如何解决图案的蒙特卡洛模拟
我正在编写一个蒙特卡罗模拟程序,以检查y是否紧挨着另一个y多少次。我构想出一个向量,其中40个x和10个y放置在向量中的随机位置。我的目标是计算向量中不包含任何相邻y的概率。这是我尝试过的:
nrep = 100000
count = 0
for (i in 1:nrep) {
x = sample(c(rep('x',40),c(rep('y',10))))
if (x[i]!=x[i+1] && x[i+1]!=x[i+2]) count = count + 1
}
print(count/nrep)
结果是非常小的数字,对我来说似乎没有意义。
解决方法
fact
部分不正确。我们可以使用if
/ head
来检查连续的元素,并查看一次迭代中是否有tail
个连续的两个any
。
'y'
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。