>>> rx = rpois(3000, 2)   # 포아송 분포에서 lambda는 2, 난수 3,000개 생성
>>> mean(rx)
1.976   # 지정된 lambda와 거의 같은 값이 평균, 포아송 분포의 특징
>>> var(rx)
2.116796
>>> hist(rx, probability=TRUE)   # y축에 확률 값을 지정한 히스토그램