问题描述
我面临以下挑战:
设 X 为 V.A.离散均匀分布在区间 [1,10] 中。是Y
另一个 V.A. Y 的每个样本由一个的中值给出
一组 10 个 X 样本。生成 10^6 个 Y 样本。
我正在使用 R,代码如下:
x <- runif(10000000,1,10)
sample <- cut(x,breaks=10)
y = median(sample)
解决方法
你可以这样做:
mosaic::median(~x|sample)
或在基数 R 中:
tapply(x,sample,median)