Oi! Tudo certinho por aí?
Realmente, a variável nivel_significancia_calorias
estava contendo o valor do nível de confiança, prejudicando o resultado obtido. Obrigada por nos avisar!
A alteração já foi feita no documento e o novo código ficou assim:
# Dados
media_calorias <- 2500
desvio_padrao_calorias <- 200
n_calorias <- 100
nivel_significancia_calorias <- 0.01
# Valor crítico Z para 99% de confiança
z_calorias <- qnorm(1 - nivel_significancia_calorias / 2)
# Cálculo do erro padrão
erro_padrao_calorias <- desvio_padrao_calorias / sqrt(n_calorias)
# Intervalo de confiança
limite_inferior_calorias <- media_calorias - z_calorias * erro_padrao_calorias
limite_superior_calorias <- media_calorias + z_calorias * erro_padrao_calorias
cat("A quantidade de calorias consumidas para 99% de confiança:\nMínima:", round(limite_inferior_calorias, 1),
"kcal","\nMáxima:", round(limite_superior_calorias, 1), "kcal",
"\n\nCom 99% de confiança, estimamos que a média real do consumo diário de calorias dos atletas esteja dentro desse intervalo.")
Novamente, agradeço.
Conte com o fórum sempre que precisar. Bons estudos :)