ID <- 1:6
math <- c("YES","NO","YES","NO",NA,NA)
history <- c(NA,NA,"NO","NO","YES",NA)
dt <- data.frame(ID, math, history)
ID math history
1 1 YES <NA>
2 2 NO <NA>
3 3 YES NO
4 4 NO NO
5 5 <NA> YES
6 6 <NA> <NA>
我想添加一个附加列（“pass”），如下所示
如果学生至少说过一次“是”：“是”（无论其他科目是否缺少数据等等。）
如果学生没有回答“是”
所以，列会像这样：（我可以使用这个最小的示例手动执行此操作，但不能使用我的真实数据）
> dt
ID math history pass
1 1 YES <NA> YES
2 2 NO <NA> NO
3 3 YES NO YES
4 4 NO NO NO
5 5 <NA> YES YES
6 6 …比如我想随机排列0、1（分别为50%）10次。所以，应该有五个“0”和五个“1”。
但是，当我使用时：
rbinom(10,1,0.5)
有时，它会生成四个“0”和六个“1”。
我注意到该sample()功能也有这个问题。
应该有五个“0”和五个“1”，并且顺序应该是随机的。