<分区>
我有以下小标题,我想用泊松分布 rpois(n, lambda)
对每位乘客的到达时间进行采样。
# A tibble: 3 x 4
flight terminal passengers arrivaltime
<chr> <chr> <dbl> <dbl>
1 LX123 A 3 120
2 UA1 B 2 130
最后的小标题应如下所示,每一行代表一名乘客,到达时间是泊松分布的样本,其中 lambda 是第一个小标题中航类的到达时间。
# A tibble: 3 x 4
flight terminal arrivaltime
<chr> <chr> <dbl>
1 LX123 A 125
2 LX123 A 115
3 LX123 A 118
4 UA1 B 129
5 UA1 B 132
我已经有以下代码计算 rpois 值并将其应用于 tibble:
f = function(x, output){
n = as.integer(x[[3]])
lambda = as.integer(x[[4]])
rpois(n, lambda)
}
apply(tibble, MARGIN = 1, FUN = f)
我现在的问题是如何完成创建第二个 tibble 的方法。由于使用的数据集很大,因此快速计算是一个问题。