install.packages("class")
library("class")

pred <- knn(training, test, training$is_out, k = 3, prob=TRUE)
#test <- cbind(test, pred)
table(pred, test$is_out)