search for: even_s

...ware and it give me around 11% of minimum 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.tabl...

NAME xx - twice as dirty SYNOPSIS ~ > gem install "double x" require "xx" include XX::XHTML doc = xhtml_{ html_{ head_{ title_{ " go xx! " } } body_{ " one more and it would be illegal " } } } URI http://rubyforge.org/frs/?group_id=1024 DESCRIPTION xx is a library designed to extend ruby objects