为什么用rgeom更改p值不能得到预期的结果

编程问答 2022-06-13

问题描述

因此，我试图证明当X〜Geo（X）时，期望值等于：E [X] = p /（1-p）

p <- 0.50

#1 Exact
(p/(1 - p))

nrRuns <- 100000

#1 Simulation
x <- rep(0,nrRuns)
for (i in 1:nrRuns){
  x[i]=rgeom(n = 1,prob = p)
}
mean(x)

在p = 0.50时，精确计算得出1，并且模拟输出如预期的那样为1.00134，但是当我将p值更改为0.20时，精确计算得出0.25，但是我的模拟报告为3.99477。我希望模拟报告为0.25。那怎么可能呢？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

montecarlorrstochastic