求助十折交叉验证代码问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

各位坛友，我按照吴喜之的《复杂数据统计方法》在R里面输入代码，可是不知道为什么总是报错，求解答。

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：交叉验证 复杂数据 数据统计 统计方法 吴喜之 统计

似乎没有问题。

1. CV <- function(n, Z = 10, seed = 888) {
   
2.   z <- rep(1:Z, ceiling(n / Z))[1:n]
   
3.   set.seed(seed)
   
4.   z <- sample(z, n)
   
5.   mm <- list()
   
6.   for (i in 1:Z) {
   
7.     mm[[i]] <- (1:n)[z == i]
   
8.   }
   
9.   return(mm)
   
10. }
    
11. 
    
12. n = 100
    
13. 
    
14. CV(100)

复制代码