library(randomForest)
data(iris)
set.seed(100)
ind<-sample(2,nrow(iris),replace=TRUE,prob=c(0.7,0.3))#对数据分成两部分，70%训练数据，30%检测数据/
traindata<-iris[ind==1,]
testdata<- iris[ind==2,]
iris.rf=randomForest(Species~.,iris[ind==1,],ntree=50,nPerm=10,mtry=3,proximity=TRUE,importance=TRUE)
print(iris.rf)
iris.pred=predict( iris.rf,iris[ind==2,])
table(observed=iris[ind==2,"Species"],predicted=iris.pred)
致力于企业形象建设和产品！多年来，
创新互联不忘初心，以建立行业服务标杆为目标，不断提升技术设计服务水平，帮助客户在互联网推广自己的产品、服务，为客户创造价值从而实现自身价值！中小型企业如何做
高端网站设计？初创业公司建站预算不足？
另外有需要云服务器可以了解下创新互联cdcxhl.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。
名称栏目：R语言实现随机森林代码-创新互联
本文路径：
http://bzwzjz.com/article/dgpidg.html
