# NOT RUN {
table(mtcars$carb)
for (i in (1:length(mtcars$carb))) {
if (mtcars$carb[i] == 3 | mtcars$carb[i] == 6 | mtcars$carb[i] == 8) {
mtcars$carb_new[i] = 9
}else{
mtcars$carb_new[i] = mtcars$carb[i]
}
}
data <- data.matrix(mtcars[, c(1,5)])
mtcars$carb_new <- factor(mtcars$carb_new)
label <- mtcars$carb_new
str(mtcars)
idi(y = label, m1 = data[, 1], m2 = data[, 2], "tree")
## [1] 0.09979413
idi(y = label, m1 = data[, 1], m2 = data[, 2], "tree",control=rpart::rpart.control(minsplit=4))
## [1] 0.2216707
# }
Run the code above in your browser using DataLab