dgeom(x, p) 
# x = number of q (failure)
# p = probability of success

시리얼 박스 중 20%가 공짜장난감이
포함되어 있다고 한다. 첫번째 장남감을
얻기 위해서 4 박스 미만의 시리얼 박스를
여는 확률은?

p <- 1/5
# 1, 2, 3 박스까지 열어서 장난감을 갖을 수 
# 있어야 한다.
dgeom(0, 1/5) # 첫번째 시도에서 얻음
dgeom(1, 1/5) # 두번째 시도에서 얻음
dgeom(2, 1/5) # 세번째 시도에서 얻음
sum(dgeom(0:2, 1/5))
# or
pgeom(2, 1/5)