new <- c(0.05, 0.25)
A <- c(0.0467, 0.2471)
B <- c(0.0533, 0.1912)
C <- c(0.0917, 0.2794)

data <- rbind(A, B, C)

dimnames(data) <- list(c("Dark", "Medium", "Light"), c("Age (MMN)", "Na/K (MMN)"))

trueclass <- c("Dark", "Medium", "Light")

knn <- knn(data, new, cl = trueclass, k = 3, prob = TRUE)

?knn

knn

library(fields)
together <- rbind(new, data)
rdist(together)

setRepositories(addURLs =
                  c(CRANxtras = "http://mirror.fcaglp.unlp.edu.ar/CRAN/src/contrib/spam_0.29-1.tar.gz"))
6 10

setRepositories(addURLs =
                  c(CRANxtras = "http://mirror.fcaglp.unlp.edu.ar/CRAN/"))



http://r.789695.n4.nabble.com/installing-spam-package-is-failing-spam-0-29-1-td4636628.html