Постройте кривую плотности в R с двумя функциями плотности

Я изо всех сил пытаюсь создать непрерывную кривую плотности в 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)

Любая помощь будет оценена?

r statistics probability-density curve

Apple_Tree 18.02.2018 источник

arrow_upward
3
arrow_downward

Вы можете начать с пустого графика, а затем соединить эти части с помощью 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)

G5W 18.02.2018