# NOT RUN {
model <- ipfKnn(ipftrain[, 1:168], ipftrain[, 169:170])
estimation <- ipfEstimate(model, ipftest[, 1:168], 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 DataCamp Workspace