> dpois(0, 800/365)
[1] 0.1117176
> dpois(1, 800/365)
[1] 0.2448605
> dpois(2, 800/365)
[1] 0.2683403
> dpois(3, 800/365)
[1] 0.1960477
> 800/365
[1] 2.191781
> dpois(4, 800/365)
[1] 0.1074234
> dpois(4, 800/365)*365
[1] 39.20954
> ppois(0, 800/365)
[1] 0.1117176
> ppois(1, 800/365)
[1] 0.3565782
> 1-ppois(1, 800/365)
[1] 0.6434218
> ppois(4, 800/365)-ppois(2, 800/365)
[1] 0.3034711
> kuukoolis=rpois(30, 800/365)
> kuukoolis
 [1] 2 1 4 0 2 3 4 2 5 2 5 3 3 3 2 0 2 3 0 5 1 2 1 1 3 0 3 5 3 3
> table(kuukoolis)
kuukoolis
0 1 2 3 4 5 
4 4 7 9 2 4 
> kuukoolis=rpois(30, 800/365)
> table(kuukoolis)
kuukoolis
 0  1  2  3  4 
 3 10 11  4  2