| _覓 | 覦覈襦 | 豕蠏手 | 殊螳 | 譯殊碁 |
|
|
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)
鏤
|
谿蟆 磯る 蟆 伎襭 苦 讌 讌襦蟆 磯る 蟆 願鍵 苦 螳 讌 螳 覺 . |