library(randomForest)
model.forest<-randomForest(Species~.,data=iris)
pre.forest<-predict(model.forest,iris)
table(pre.forest,iris$Species)

library(rpart)
library(randomForest)
model.forest<-randomForest(Kyphosis~.,data=kyphosis)
pre.forest<-predict(model.forest,kyphosis)
table(pre.forest,kyphosis$Kyphosis)