# NOT RUN {
model <- ipfKnn(ipftrain[, 1:168], ipftrain[, 169:170])
estimation <- ipfEstimate(model, ipftest[, 1:168], ipftest[, 169:170])
# }
# NOT RUN {
model <- ipfProb(ipftrain[, 1:168], ipftrain[, 169:170], k = 9, delta = 10)
estimation <- ipfEstimate(model, ipftest[, 1:170], ipftest[, 169:170])
# }
Run the code above in your browser using DataLab