r
> sample(c("H", "T"), 20, replace=TRUE)
[1] "T" "T" "H" "H" "T" "H" "T" "H" "H" "T" "H" "T" "T" "H"
[15] "T" "H" "H" "T" "H" "T"
r
> sample(c("False", "True"), 20, replace=TRUE, prob=c(0.2, 0.8))
[1] "True" "True" "True" "True" "True" "True" "False"
[8] "True" "False" "True" "True" "False" "True" "True"
[15] "True" "True" "True" "False" "True" "True"
r
> dpois(8, lambda=10)
[1] 0.112599
r
> ppois(10, lambda=20)
[1] 0.01081172