>>> set.seed(0)
>>> x <- rbinom(1000, 10, 0.3)   # n=10, p=0.3인 이항 분포에서 난수 1,000개 생성
>>> hist(x)   # 히스토그램

>>> mean(x)   # 평균
3.021
>>> var(x)    # 분산
2.15071