comp.knn(xnew, x, ina, a = 1, k = 5, type = "S", apostasi = "ESOV", mesos = TRUE)compknn.tune, rda, alfax <- iris[, 1:4]
ina <- iris[, 5]
mod <- comp.knn(x, x, ina, a = 1, k = 5)
table(ina, mod)
mod2 <- comp.knn(x, x, ina, a = 0, k = 5)
table(ina, mod2)Run the code above in your browser using DataLab