8.4 Capítulo 6

Solução. ??

n <- 10
m <- 1.63
sigma <- 0.05                   # desvio padrão universal
z <- abs(qnorm(0.025))          # |-1.959964|
(e <- z*sigma/sqrt(n))          # Error margin
## [1] 0.03098975
(LImusig <- m - e)              # Lower bound
## [1] 1.59901
(LSmusig <- m + e)              # Upper bound
## [1] 1.66099
# Princípio de relatório automático
cat('O IC 95% para a média é [',
    round(LImusig,2), ',',
    round(LSmusig,2), '].')
## O IC 95% para a média é [ 1.6 , 1.66 ].

Referências

Woodhouse, Sidney Chawner. 1910. English-Greek dictionary: a vocabulary of the attic language. G. Routledge & Sons, limited. https://archive.org/details/in.ernet.dli.2015.31421/page/n425/mode/2up.