#导入数据
data <- read.csv("data.csv")
data <- data[order(data$major,data$ID),] #排序，让data好看一些而已
1.随机抽样
sample(x,size,replace = F)
replace=F是默认的，表示不放回抽样
#1.对数据集的序号进行抽样
index <- sample(1:nrow(data),60,replace = F) #1:nrow(data),从第一行到最后一行，抽取60个；
#2.根据序号提取数据集中的相应数据，即可得到样本数据
sampledata <- data[index,]
2.分层抽样
sampling包中的strata(data,stratanames=,size,method=)
#1.通过strata得到抽样序号
strata_data <- strata(data,stratanames = "major",size = c(20,40,60),method = "srswor")#srswor表示不放回抽样
#2.根据序号提取数据集中的相应数据，即可得到样本数据
sampledata2 <- data[strata_data$ID_unit,]
网友评论