随机森林循环问题求解答

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

想要一个随机森林结果集合，其中data有10组，ntree取seq(50,500,50),这个会生成100个随机森林，将100个随机森林的结果储存在一起，请问如何实现

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：问题求解 随机森林 求解答 Data Tree 森林

首先编写分组函数,这里用iris数据集做测试

1. library(plyr)
   
2. CVgroup <- function(k, datasize, seed) {
   
3. cvlist <- list()
   
4. set.seed(seed)
   
5. n <- rep(1:k, ceiling(datasize/k))[1:datasize]
   
6. temp <- sample(n, datasize)
   
7. x <- 1:k
   
8. dataseq <- 1:datasize
   
9. cvlist <- lapply(x, function(x) dataseq[temp==x])
   
10. return(cvlist)
    
11. }
    
12. 
    
13. k <- 5
    
14. datasize <- nrow(iris)
    
15. cvlist <- CVgroup(k = k, datasize = datasize, seed = 1111)
    
16. 
    
17. 
    
18. pred <- data.frame()
    
19. m <- seq(60, 500, by = 20)                        
    
20. for (j in m) {                                      
    
21.   progress.bar <- create_progress_bar("text")      
    
22.   progress.bar$init(k)                              
    
23. 
    
24.   for (i in 1:k) {  
    
25.     train <- iris[-cvlist[[i]],]                     
    
26.     test <- iris[cvlist[[i]],]
    
27.     model <- randomForest(quality ~ ., data = train, ntree = j)   
    
28.     predictions <- predict(model, subset(test, select = -quality))
    
29. 
    
30.     randomtree <- rep(j, length(predictions))            
    
31.     kcross <- rep(i, length(predictions))         
    
32. 
    
33.     temps <- data.frame(cbind(subset(test, select = quality), predictions, randomtree, kcross))  
    
34. 
    
35.     pred <- rbind(pred, temps)
    
36. 
    
37.     print(paste("随机森林：", j))  
    
38.     progress.bar$step()  
    
39. 
    
40.   }  
    
41. }  

复制代码

AlexYoung757 发表于 2017-2-28 13:35
首先编写分组函数,这里用iris数据集做测试
library(plyr)
CVgroup

非常感谢！

grandcc1 发表于 2017-3-1 09:49
非常感谢！

不客气 都是这么过来的

AlexYoung757 发表于 2017-3-1 10:02
不客气 都是这么过来的

train<-data[-cvlist[],] 这边报错：invalid argument to unary operator，请问是什么原因啊？

grandcc1 发表于 2017-3-1 10:42
train

抱歉这个是编辑有问题 不知道为什么i显示不出来  我重新编辑了下 应该好了

AlexYoung757 发表于 2017-3-1 13:28
抱歉这个是编辑有问题 不知道为什么i显示不出来  我重新编辑了下 应该好了

嗯嗯，就是iris里面没有quality这个变量，只要换一下因变量就可以了，多谢