我们可以分析得出的分布。首先,请注意遵循均匀分布的是,即ÿ | XYY|X
f(y|x)=U(a,X)
所以
f(y)=∫∞−∞f(y|x)f(x)dx=∫by1x−a1b−adx=1b−a∫by1x−adx=1b−a[log(b−a)−log(y−a)],a<y<b
由于,这不是统一的分布。这是分布的模拟密度,上面覆盖了我们刚才计算的密度。log(y−a)U(0,1)
y <- runif(1000, 0, runif(1000,0,1))
hist(y, prob =T)
curve( -log(x), add = TRUE, lwd = 2)
hist(runif(1e4,0,runif(1e4)))
很清楚地表明