如何在密度函数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)