Как добавить кривую распределения Пуассона, которая приближается к 3?

Question

Я хочу добавить кривую к существующему графику. Эта кривая должна быть кривой распределения Пуассона, которая приближается к среднему 3.

я пробовал этот код points - это вектор с 1000 значениями

plot(c(1:1000), points,type="l")
abline(h=3)
x = 0:1000
curve(dnorm(x, 3, sqrt(3)), lwd=2, col="red", add=TRUE)

Я получаю сюжет, но безо всякой кривой. Я хотел бы видеть кривую, которая приближается к 3.

Answer 1

вы можете сделать что-то вроде этого:

plot(0:20, 3+dpois( x=0:20, lambda=3 ), xlim=c(-2,20))
normden <- function(x){3+dnorm(x, mean=3, sd=sqrt(3))}
curve(normden, from=-4, to=20, add=TRUE, col="red")

запуск этого кода приведет к следующему:

это то, что вы намеревались?