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])
if (FALSE) {
model <- ipfProbabilistic(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