# NOT RUN {
md <- CoreModel(Species ~ ., iris, model="rf", rfNoTrees=30, maxThreads=1)
pr <- rfProximity(md, outProximity=TRUE)
# visualization
require(lattice)
levelplot(pr)
destroyModels(md) # clean up
# }
Run the code above in your browser using DataLab