require(randomForest)
data(iris)
iris.rf <- randomForest(iris[,1:4], iris[,5])
par(mfrow=c(2,2))
for(i in names(iris)[1:4]) {
rf.partial.prob(iris.rf, iris, i, "setosa", smooth=TRUE, raw=TRUE, rug=FALSE)
}
Run the code above in your browser using DataLab