IC.95

mean(can$WBC)

## [1] 5997.58

prom.WBC <- mean(can$WBC)
prom.WBC

## [1] 5997.58

sd.WBC <- sd(can$WBC)
sd.WBC

## [1] 995.1962

ee.WBC <- sd.WBC/sqrt(8525)
ee.WBC

## [1] 10.77858

Ls <- prom.WBC + ( 1.96* ee.WBC)
Li <- prom.WBC - ( 1.96* ee.WBC)
Ls

## [1] 6018.706

prom.WBC

## [1] 5997.58

Li

## [1] 5976.454