我希望在R的下面有黎曼间隔期,
x <- seq(0,1,0.01)
t <- dbeta(x,0.5,0.5)
plot(x,t, type='l')我试过了hist()和barplot(),但我还没有成功。
发布于 2014-02-14 08:27:48
如果您所说的"Riemann区间“是指在曲线下拟合的矩形的分区,其总面积是所述曲线积分的近似,那么它可能就是您要寻找的:
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)https://stackoverflow.com/questions/21773844
复制相似问题