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