R中一个分段函数的PMF和PMF

Question

给定的

 p<-function(x){if ( x==-4) {
    0.1
  } else if (x==-1 ) {
   0.2
  } else if ( x==1) {
    0.6
  } else if (x==2 ) {
    0.1
  } else {
   0
  }

我将如何策划PMF和民防。没有指定发行版，所以我不能在命令中使用构建。怎样才是最好的方法

Answer 1

为PMF试试这个

df <- data.frame(x = c(-4, -1, 1, 2), p = c(.1, .2, .6, .1))
plot(df, type = "l")
points(df)

​

​

对于CDF，您可以尝试类似的方法。

plot(df_cdf <- transform(df, p = cumsum(p)), type = "l")
points(df_cdf)

​

​

Answer 2

简单简单的解决方案：

### support
x = seq(-4,2,1)
### PDF
plot(x,sapply(x,p),ylab="PDF")
### CDF
plot(x,cumsum(sapply(x,p)),ylab="CDF")