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