Displaying 1 result from an estimated 1 matches for "even_u".
Did you mean:
even_s
2012 Aug 01
1
Different results between lda(mass) and spss discriminant analysis
...inimum error with and without leave one out cross validation.
Maybe the problem is a my error in my script?
Someone can check it pls?
data <- "data\\raw_data.csv"
r <- read.csv(data, header = T)
sound <- r[1:844,]
unsound <- r[845:2195,]
even_s <- seq(nrow(sound)) %% 2
even_u <- seq(nrow(unsound)) %% 2
t <- rbind(sound[even_s == 1,], unsound[even_u == 1,])
p <- rbind(sound[even_s != 1,], unsound[even_u != 1,])
fit <- lda(samples ~., data = t)
ct <- table(p[, 1], predict(fit, p[,-1])$class)
errors <- 1-diag(prop.table(ct, 1))
min.err <- 1-sum(diag(...