# NOT RUN {
data(pima)
pima.sample <- sample(nrow(pima), 0.75*nrow(pima))
pima <- prim.data.prepare(pima)
pima.model <- prim(class ~ ., data = pima[pima.sample,],
peeling.quantile = 0.4, min.support = 0.4)
pima.predict <- predict(pima.model, pima[-pima.sample,])
pima.idx <- prim.box.index(pima.predict, pima)
# }
Run the code above in your browser using DataLab