# NOT RUN {
#Note: more examples can be found at
#https://bmcbioinformatics.biomedcentral.com/articles/10.1186/s12859-017-1650-8
# }
# NOT RUN {
library(ranger)
num.trees=500
rf <- ranger(Species ~ ., data = iris,keep.inbag = TRUE,num.trees=num.trees)
IPM=apply(ipmranger(rf,iris[,-5],num.trees),FUN=mean,2)
# }
Run the code above in your browser using DataLab