R 绘图密度函数

一个随机变量Y的密度f分布如下

f(y)= y-1/6 if 1<=y<=4

  -(y-5/6) if 4<=y<=5

   0  else

---

f（y）=y-1/6如果1使用
ifelse

  (y <- c(1:6)) 
[1] 1 2 3 4 5 6
(fy <-  ifelse(1<=y & y<4,  y-1/6, ifelse(4<=y & y<=5, -(y-5/6), 0)))
[1]  0.8333333  1.8333333  2.8333333 -3.1666667 -4.1666667  0.0000000
plot(fy~y, type='l') 

（y使用
ifelse

  (y <- c(1:6)) 
[1] 1 2 3 4 5 6
(fy <-  ifelse(1<=y & y<4,  y-1/6, ifelse(4<=y & y<=5, -(y-5/6), 0)))
[1]  0.8333333  1.8333333  2.8333333 -3.1666667 -4.1666667  0.0000000
plot(fy~y, type='l') 

（python是什么？你不应该重新标记吗？python是什么？你不应该重新标记吗？