groups <- ipfGroup(ipftrain, LONGITUDE, LATITUDE)
model <- ipfProb(ipftrain[, 1:168], ipftest[, 1:168], groups)
groups <- ipfGroup(ipftrain, LONGITUDE, LATITUDE)
model <- ipfProb(ipftrain[, 1:168], ipftest[, 1:168], groups, k = 9, delta = 10)
Run the code above in your browser using DataLab