library("randomForest")<br>
MailShot&lt;-read.table(file="#.txt",header = TRUE)<br>
MailShot&lt;-MailShot[,-1]<br>
set.seed(12345)<br>
(rFM&lt;-randomForest(MAILSHOT~.,data=MailShot,importance=TRUE))<br>
head(rFM$votes)<br>
head(rFM$oob.times)<br>
DrawL&lt;-par()<br>
par(mfrow=c(2,1),mar=c(5,5,3,1),family="SimHei")<br>
plot(rFM,main="随机森林的OOB错判率和决策树棵树") <br>
中文总是点点,然后字体是按照电脑字体册来的