library(randomForest) data(iris) set.seed(100) ind<-sample(2,nrow(iris),replace=TRUE,prob=c(0.7,0.3))#對(duì)數(shù)據(jù)分成兩部分,70%訓(xùn)練數(shù)據(jù),30%檢測(cè)數(shù)據(jù)/ 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)
網(wǎng)站名稱:R語言實(shí)現(xiàn)隨機(jī)森林代碼
文章出自:http://aaarwkj.com/article2/pegpoc.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供云服務(wù)器、建站公司、動(dòng)態(tài)網(wǎng)站、網(wǎng)站策劃、做網(wǎng)站、搜索引擎優(yōu)化
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)