model <- ipfKnn(ipftrain[, 1:168], ipftest[, 1:168])
estimation <- ipfEstimate(model, ipftrain[, 169:170], ipftest[, 169:170])
ipfPlotPdf(estimation)
groups <- ipfGroup(ipftrain, LONGITUDE, LATITUDE)
model <- ipfProb(ipftrain[, 1:168], ipftest[, 1:168], groups, k = 9, delta = 10)
estimation <- ipfEstimate(model, ipftrain[, 169:170], ipftest[, 169:170])
ipfPlotPdf(estimation, title = 'Probability density function')
Run the code above in your browser using DataCamp Workspace