search for: micetrainsampl

Displaying 1 result from an estimated 1 matches for "micetrainsampl".

Did you mean: micetrainsample
2010 Jul 16
3
Help with Sink Function
...- combined reducedSample <- subset(reducedSample, select = -pID50) reducedSample <- subset(reducedSample, select = -id) for (i in 1:iterations) { miceSample <- sample(combined[,-c(1,2)],nvars, replace=FALSE) miceSample$pID50 <- combined$pID50 miceTestSample <- miceSample[47:55,] miceTrainSample <- miceSample[1:46,] fit.kknn <- kknn(pID50~., miceTrainSample, miceTestSample) table(miceTestSample$pID50, fit.kknn$fit) (fit.train1 <- train.kknn(pID50~., miceTrainSample, kmax=15, kernel=c("rectangular"), distance=1)) predictedTrain <- predict(fit.train1, miceTrainS...