我们有一个20人的团队.我们想把它们排成一排,让A和B坐在一起.我必须用R语言找出该事件的概率.
我的解决方案是:
f1 <- function() {
x <- sample(c(1:20), 20, replace = F)
for (i in c(1:19)) {
if (x[i] == 1 && x[i+1] == 2
|| (x[i] == 2 && x[i + 1] == 1)) {
TRUE
}
}
F
}
prob_p <- function(Nrep) {
rs <- replicate(Nrep, f1())
sum(rs) / length(rs)
}
prob_p(100000)
我想我的解决方案中有一些错误,因为当我运行这段代码(我使用RStudio)时,概率的结果是0.
你能帮我找出问题出在哪里吗? 如有任何帮助或建议,我们将不胜感激. 提前谢谢您!