Displaying 1 result from an estimated 1 matches for "micetestsample".
2010 Jul 16
3
Help with Sink Function
...eTrain, scaleMiceTest)
reducedSample <- 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))
predictedT...