[\code]
library(ipred)  ##加载包
set.seed(131)   ##设置随机种子
error.RF<-numeric(10)       ##建立一个向量，其包含十个零数值
for(i in 1:10){
      error.RF[i]<-errorest(type~.,data=fgl,model=randomForest,mtry=2)$error
      ##估计用random forest做分类的误差misclassification error。type应该是factor类型的吧
      ##mtry是random forest的系数，每个节点分开时随机选取的变量个数

}
summary(error.RF)
##得到与误差相关的五种数
[\code]

今后你发代码的时候最好不要用图片，要不做注释的话还要照抄你的代码