求助，如何把数据分成十份取出其中的八份

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

求助各位大神，

该如何学语句把一个数据随机分成十份同时取出其中的八份？

谢谢~

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：求助

试了一个语句，但是一直跳错，求高手帮忙指正一下

> data_split <- function(season,mxPH){
    c <- file(season,"r")
    varnames <- paste("splitfile",1:10,sep="_")
    i <- 1
    while(TRUE){
    assign(varnames[i],value = readLines(c, n= mxPH))
    write.table(get(varnames[i],paste(varnames[i],".txt",sep =""))
    if(length(varnames[i]))< ncol) break
    else i <- i+1
}
    return(i)
}

找到了方法和大家共勉吧
set.seed(1234568)
X.samp <- sample(n,round(n*0.8))
XTrn <- X[X.samp,]
XTst <- X[-X.samp,]

举一反三再分享一个方式：
> nX <- dim(X)[1]
> ntr <- round(nX*0.8)
> a1 <- X[sample(1:nX),]
> Xtr <- X[(1:ntr),]
> Xts <- X[(ntr+1):n,]