Module 5

pop <- c(8, 14, 16, 10, 11)
mean(pop)

## [1] 11.8

sd(pop)

## [1] 3.193744

pop_sample <-c(14, 11)
mean(pop_sample)

## [1] 12.5

sd(pop_sample)

## [1] 2.12132

# the standard deviation of my sample is 1.0724 less than the standard deviation of the population whole

# n is large and the value of p is close to 1, the data provided does not give an answer to whether or not p has an approximately normal distribution

100*.95

## [1] 95

(1-0.95) * 100

## [1] 5

95³5 and 5³5

Sample has approximately normal distribution