model <- ipfKnn(ipftrain[, 1:168], ipftest[, 1:168])
estimation <- ipfEstimate(model, ipftrain[, 169:170], ipftest[, 169:170])
ipfPlotEst(model, estimation, ipftest[, 169:170], observations = seq(7,10),
showneighbors = TRUE, reverseAxis = TRUE)
Run the code above in your browser using DataLab