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