r - 如何在垃圾箱中找到期望值

Question

我使用 Y~Exponential(0.8) 的随机变量生成了 200 个随机数：

n=rexp(200,0.8)
bins=cut(n,breaks=c(0,1,2,3,max(n)))

我正在尝试计算每个 bin 的预期计数器数量，知道 Y~Exponential(0.8)。我怎样才能做到这一点？

Answer 1

您可以使用与 from 相同的一组函数?rexp来计算每个范围内的比例，并使用它来计算预期数字：

num  <- 200
brks=c(0,1,2,3,Inf)

set.seed(12345)
n    <- rexp(num,0.8)
bins <- cut(n,breaks=brks)

expect.prop <- diff(pexp(brks, rate=0.8))
#[1] 0.55067104 0.24743245 0.11117856 0.09071795

rbind(
  observed=table(bins),
  expected=num*expect.prop
)
#            (0,1]    (1,2]    (2,3]  (3,Inf]
#observed 115.0000 42.00000 24.00000 19.00000
#expected 110.1342 49.48649 22.23571 18.14359