DATA_605_Discussion_Wk_8_DThonn

** DATA_605_Discussion_Wk_8_Thonn - Excercise 8.2, pg. 312 **

** Excercise 8.2, pg. 312 **

pr <- 0.5
n <- 100
# less than 3d (15)
x1 <- 34
# greater than 3d (15)
x2 <- 66


p3sd <- pbinom(34,100,prob=0.5) +  (1 - pbinom(66,100,prob=0.5))
round (p3sd,4)

## [1] 0.0013

# [1] 0.0013

** END **