将每一个班的数据存在列上。数据集名为 banjishuju
samplebanji<-function(banji,guanceshu){
  dat<- banjishuju[,banji]
  return(sample(dat,guanceshu))
}
调用时：
samplebanji(2,20)
表明从班级2抽取有20个观测点的一个样本
如果想要50个样本
sapply(1:50,FUN=samplebanji,banji=banji,guanceshu=guanceshu)