语言代码：
library(randomForest)/安装随机森林程序包/
library(foreign)
training <-read.csv("D:\\bank.csv")/导入数据/
ind<-sample(2,nrow(training),replace=TRUE,prob=c(0.7,0.3))/对数据分成两部分，70%训练数据，30%检测数据/
traindata<- training [ind==1,]
testdata<- training [ind==2,]
rf <- randomForest(y ~ ., data=training, ntree=100, proximity=TRUE)/y是因变量/
table(predict(rf), training$y)
print(rf)
plot(rf)
importance(rf)
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024