验证速率为 λ = 10 的泊松过程
Verifying a Poisson process with rate λ = 10
我正在处理一个场景，我必须以 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 函数的速率参数）。
我是新手，所以我相信我一直误解了一些东西，但我不确定是什么。有人能给我指出正确的方向吗？使用上面第一个代码段中生成的数据，我需要“验证访问遵循泊松过程，速率 λ 等于 10”。
你测错了。
由于Sequenced（访问次数）不能超过 12，其均值可能约为 6，如果是这种情况，它只是确认您应用了 12[=13 的限制=]
泊松分布是 Sequenced 中的项数：预计为 12×10=120，但方差为 120，标准差为 10.95。您可以看一下，或者将其除以 12（在这种情况下，期望值为 10，标准差约为 0.9，但这不是泊松分布，并且有可能是非整数值），R 代码
NumberOfVisits <- length(Sequenced)
VisitsPerUnitTime <- NumberOfVisits / 12
我正在处理一个场景，我必须以 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 函数的速率参数）。
我是新手，所以我相信我一直误解了一些东西，但我不确定是什么。有人能给我指出正确的方向吗？使用上面第一个代码段中生成的数据，我需要“验证访问遵循泊松过程，速率 λ 等于 10”。
你测错了。
由于Sequenced（访问次数）不能超过 12，其均值可能约为 6，如果是这种情况，它只是确认您应用了 12[=13 的限制=]
泊松分布是 Sequenced 中的项数：预计为 12×10=120，但方差为 120，标准差为 10.95。您可以看一下，或者将其除以 12（在这种情况下，期望值为 10，标准差约为 0.9，但这不是泊松分布，并且有可能是非整数值），R 代码
NumberOfVisits <- length(Sequenced)
VisitsPerUnitTime <- NumberOfVisits / 12