问如何在R中绘制泊松密度曲线？
EN

Stack Overflow用户

提问于 2021-01-02 06:32:16

回答 1查看 154关注 0票数 0

我需要证明泊松过程中的事件数量是由参数λ* t的泊松分布分布的。下面是泊松过程生成器：

 ppGen <- function(lambda, maxTime){
      taos <- taosGen(lambda, maxTime)
      pp <- NULL
      for(i in 1:maxTime){
        pp[i] <- sum(taos <= i)
      }
      return(pp)
    }

在这里，我尝试重复这个过程1000次，并向量每一次实现中出现的总次数：

 d <- ppGen(0.5,100)
    tail(d,n=1)
    reps <- 1000
    x1 <- replicate(reps, tail(ppGen(0.5,100), n=1))
    hist(x1)

这是直方图：

这里我试着画一条带参数λ*t的理论泊松密度曲线：

xfit<-seq(1,100,length=100)
yfit<-dpois(xfit,lambda = 0.5*100)

lines(xfit,yfit)

但是曲线不会出现在直方图附近。有没有人能给出一个正确的建议呢？

回答 1

Stack Overflow用户

回答已采纳

发布于 2021-01-02 07:44:57

也许你可以像下面这样尝试curve

x <- rpois(1000, 0.5 * 100)
dp <- function(x, lbd = 0.5 * 100) dpois(x, lambda = lbd)
curve(dp, 0, 100)
hist(x, freq = FALSE, add = TRUE)

票数 1

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/65534278

复制

相似问题

问如何在R中绘制泊松密度曲线？
EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何在R中绘制泊松密度曲线？EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何在R中绘制泊松密度曲线？
EN