我们可以推导出分布Y分析地。首先,注意它是Y|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)