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)