Discussion3

# Assumptions
N   <- 100   
x   <- 2      



#P(X>=2 | N = 100, pi =.05)

sum(dbinom(x = 2:100, size = 100, prob = .05))                 

## [1] 0.9629188

pbinom(q = 1, size = 100, prob = .05, lower.tail=F)             

## [1] 0.9629188

1 - pbinom(q = 1, size = 100, prob = .05, lower.tail=TRUE)

## [1] 0.9629188

#MOdel as Possion

# size=100, prob=0.04
#X <= 1 death         

lambda = N * pi
lambda

## [1] 314.1593

sum(dpois(x = 2:100, lambda= .5) )

## [1] 0.09020401

ppois(q = 1, lambda = .5, lower.tail=F)                          

## [1] 0.09020401