使用R,我正在处理一个场景,我必须以10的速率生成一些数字,使用cumsum对它们进行排序,然后删除任何值超过12的值(这表示网站访问者的时间):
Visits = rexp(4000, rate = 10)
Sequenced = cumsum(Visits)
Sequenced <- Sequenced[Sequenced <= 12]
从这里,我需要验证生成的“访问量”是否遵循泊松过程,速率为10,但我不确定这样做是否正确。
TheMean = mean(Sequenced)
HourlyRate1 = TheMean/12 # divided by 12 as data contains up to 12 hours
这不会生成(或接近) 10的答案(我认为它会基于rexp函数的rate参数)。
我是新手,所以我相信我在这过程中误解了一些东西,但我不确定是什么。有人能给我指出正确的方向吗?使用上面第一个代码段中生成的数据,我需要“验证访问遵循λ等于10的泊松过程”。
发布于 2021-10-09 05:31:24
你测量的东西是错误的。
由于Sequenced
(访问次数)不能超过12次,因此其平均值可能约为6,如果是这样的话,它只是确认您应用了12次的限制
具有泊松分布的是Sequenced
中的项数:这应该是12×10=120,但方差为120,因此标准差为10.95。您可以查看它,或者用R代码将其除以12 (在这种情况下,期望值是10,标准差约为0.9,但这不是泊松分布,有可能是非整数值)
NumberOfVisits <- length(Sequenced)
VisitsPerUnitTime <- NumberOfVisits / 12
https://stackoverflow.com/questions/69506883
复制相似问题