关注公众号凡花花的小窝，含有更多更全面的计算机专业编程考研相关知识的文章还有资料
#代码 3-19
使用subset函数选取数据
df1 <- data.frame(name = c(“aa”, “bb”, “cc”), age = c(20, 29, 30),
sex = c(“f”, “m”, “f”))
selectresult1 <- subset(df1, name == “aa”, select = c(age, sex))
selectresult2 <- subset(df1, name == “aa” & sex == “f”, select = c(age, sex))
df1
selectresult1
selectresult2
输出结果如下
df1
name age sex
1 aa 20 f
2 bb 29 m
3 cc 30 f
selectresult1
age sex
1 20 f
selectresult2
age sex
1 20 f
#代码 3-20
有放回的简单随机抽样
library(sampling)
LETTERS
(s <- srswr(10, 26)) # 在26个字母中有放回地抽取10个样本
(obs <- ((1:26)[s != 0]) ) # 提取被抽到的样本单元的编号
(n <- s[s != 0]) # 提取每个样本被抽到的次数
(obs <- rep(obs, times = n
