如何在密度函數R中繪製黎曼間隔？

Question

我想有黎曼間隔R下面的情節之下，

x <- seq(0,1,0.01) 

t <- dbeta(x,0.5,0.5) 

plot(x,t, type='l') 

我試圖與hist()，並且barplot()但我還沒有成功。

Answer 1

如果「黎曼間隔」你的意思是你的矩形曲線下擬合的分區，其總面積爲表示曲線的積分的近似，那麼它可能是你在找什麼：

x <- seq(0,1,0.01) 
t <- dbeta(x,0.5,0.5) 
plot(x,t, type='l') 
for(i in seq_along(x)[-1])rect(x[i-1],(t[i]+t[i-1])/2,x[i],0)