data(kyphosis)
ky<- kyphosis
通过这个我创建了一个由原始数据集的40%组成的数据集。
ky_40 <- ky[sample(1:nrow(ky), nrow(ky)*0.4,replace=FALSE),]
通过这个陈述,我想制作一个数据集,其中原始数据的60%不包括
ky_40.
ky_the_others<- ???????
如何制作最后一段代码?
答案 0 :(得分:4)
只需将采样移出提取物,以便再次参考:
ky <- mtcars
## Here, I've moved the sampling out of your extraction
forty <- sample(1:nrow(ky), nrow(ky)*0.4,replace=FALSE)
## Now you can extract whatever you want
ky[ forty, ] # This will be the 40% of original dataset
ky[-forty, ] # This will be the remaining rows.
答案 1 :(得分:1)
unique(rbind(ky_40,ky))[-(1:nrow(ky_40)),]