Data 605 - Assignment 9

Problem 1

# (a)

a <- pnorm(100, mean=100, sd = sqrt(0.25*364), lower.tail = FALSE)
a

## [1] 0.5

# (b)
b <- pnorm(110, mean=100, sd = sqrt(0.25*364), lower.tail = FALSE)
b

## [1] 0.1472537

# (c)
c <- pnorm(120, mean=100, sd = sqrt(0.25*364), lower.tail = FALSE)
c

## [1] 0.01801584

Problem 2

Problem 3