![enter image description here](https://i.stack.imgur.com/b8UYt.png)
Я написал следующий код:
n <- 5
lambda <- 2
randomNumbers <- rpois(n, lambda)
prob <- dpois(randomNumbers, lambda)
Правильно ли пока мой код?
Как найти ожидаемые значения 5 значений Пуассона?
eX <- mean(randomNumbers)
или
weighted.mean(randomNumbers, prob)