# simulate some data
data <- matrix(rnorm(100*20), ncol=20)
status <- factor(rep(c("A", "B"), each=10))
# set up the parameter list
knn.params <- list(k=5)
# learn the model
fm <- learnKNN(data, status, knn.params, predictKNN)
# Make predictions on some new simulated data
newdata <- matrix(rnorm(100*30), ncol=30)
predictKNN(newdata, fm@details, status)
Run the code above in your browser using DataLab