library(freqparcoord)
data(mlb)
library(regtools)
xd <- preprocessx(mlb[,c(4,6)],20)
kout <- knnest(mlb[,5],xd,20)
predict(kout,c(72,25),TRUE)