如何使用R语言的sample函数随机抽取若干个奇数或偶数？

Python025

如何使用R语言的sample函数随机抽取若干个奇数或偶数？,第1张

#1.如果总体是自然数这样的等差数列，可以直接利用seq函数挑出奇数（或偶数）：

n <- 1:100

( ji <- seq(from=1,to=100,by=2) )

( ou <- setdiff(n,ji) )

rm(ji)rm(ou)

#2.如果总体是杂乱无章的集合，可以写个小函数判断某个数的奇偶：

jishu <- function(x){

ifelse(x%%2 ==0,F,T)

}

( ji <- n[jishu(n)] )

( ou <- n[!jishu(n)] )

#通过上面的任一一种方法将总体的奇数偶数区分开，接下来就可以使用sample函数抽样了：

sample(ji,5)

R语言读取（加载）txt格式数据为dataframe、依据学号字段从dataframe随机抽取10位同学的数据。

详细编码如下。

ReportCard1=read.table(file='test1.txt'，header=TRUE)

ReportCard2=read.table(file='test2txt'header=TRUE)names(ReportCard1)names(ReportCard2)ReportCard=merge(ReportCardReportCard2，by=xh)print(head(ReportCard))xh=sample(ReportCard$xh，size=10，replace=TRUE)samples=ReportCard[ReportCard$xh%in%xh]print(samples)。