Exercício Teste de Hipotese - Prof. Estela

{r setup, include=FALSE} knitr::opts_chunk$set(echo = TRUE)

###RESPOSTA DO EXERCÍCIO “TESTE DE HIPOTESE” PROF. ESTELA

##INTERVALO DE CONFIANÇA - DBO

{r *parametro analisado DBO*} DBO<-c(79,108,177,101,89,98) length(DBO)

#media {r média do DBO} mean(DBO) m<-mean(DBO)

#variancia {r varianca do DBO} var(DBO) v<-var(DBO)

#desvio padrão {r desvio padrao do DBO} sd(DBO) s<-sd(DBO)

{r T.teste DBO} t.test(DBO)