train <- ipftrain[1:200, ]
groups <- ipfGroup(train, X, Y)
model <- ipfProbabilistic(train[, 1:168], train[, 169:170], groups = groups)
if (FALSE) {
model <- ipfProbabilistic(ipftrain[, 1:168], ipftrain[, 169:170], k = 9, delta = 10)
}
Run the code above in your browser using DataLab