用两个密度函数绘制R中的密度曲线

Question

我正努力在R中为以下pdf创建一个连续的密度曲线：

{ 3x(1-x)^2     0 < x < 1

f(x) = { 3(2-x)(1-x)^2  1 ≤ x  < 2

{ 0              otherwise

使用曲线功能，我可以单独绘制两个函数，但不能一起绘制：

curve(3*x*(1-x)^2,0,1)

curve(3*(2-x)*(1-x)^2,1,2)

任何帮助都会受到赞赏吗？

Answer 1

您可以从空图表开始，然后将这些部分与add=TRUE放在一起。

plot(NULL, xlim=c(0,2), ylim=c(0,0.5))
curve(3*x*(1-x)^2,0,1, add=TRUE)
curve(3*(2-x)*(1-x)^2,1,2, add=TRUE)