Displaying 2 results from an estimated 2 matches for "mask_featur".
Did you mean:
mask_features
2010 May 26
1
Linear Discriminant Analysis in R
...0 0 0 0 0 0 1 0 0 1 0 1 0
1 0 1 0 0 0
3 I 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 1 0 0
0 0 0 0 0 0
thus in code I have the following:
library(MASS)
vowel_features <- read.table(file = "mappings_for_vowels.txt")
mask_features <- read.table(file = "3dmaskdump_ICA_37_Combined.txt")
#scale the mask_features file
scaled_features <- scale(mask_features, center = FALSE, scale =
apply(abs(mask_features, 2, median)))
#input vowel feature, lda
lda(ROI_values ~ mappings_for_vowels[15]...)
not sure what is t...
2010 Jun 02
1
nnet: cannot coerce class c("terms", "formula") into a data.frame
...CV
=TRUE,size=1,iter=10,MaxNWts=100)
? ?cvc_nnet.out <- c(cvc_nnet.out,predict(cvc_nnet,cvc_lda[all == n,],type =
"class"))
}
table(cvc_nnet.out,cvc_lda$G)
===
to get cvc_lda:
library(MASS)
vowel_features <- data.frame(as.matrix(read.table(file =
"test_vowels.txt")))
mask_features <- data.frame(as.matrix(read.table(file = "3dmaskdump.txt")))
G <-vowel_features[,41]
cvc_lda <- lda(G ~ ., data=mask_features, na.action="na.omit", CV=TRUE)
Your insight is very much appreciated it!
--
View this message in context: http://r.789695.n4.nabble.com/...