Displaying 2 results from an estimated 2 matches for "vowel_features".
2010 Jun 02
1
nnet: cannot coerce class c("terms", "formula") into a data.frame
...t;-NULL
all = c(1:52)
for(n in all){
? cvc_nnet <- nnet(G ~ ., data=cvc_lda[all != n,], 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 ver...
2010 May 26
1
Linear Discriminant Analysis in R
...1 1 0 0 0 1 0
0 0 0 0 0 0
2 o 0 0 0 0 0 0 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 featu...