# Aula de teste de hipoteses # Intervalo de confiança bilateral 172-(10/5)*1.96 172+(10/5)*1.96 172-(7/5)*1.96 172+(7/5)*1.96 #Intervalo de confianca unilateral 172+(10/5)*pnorm(0.05) 172+(10/5)*pnorm(0.95) 172-(7/5)*1.96 172+(7/5)*1.96 # Probabilidade de h0 ser verdadeira (p-valor) 1-pnorm(172,170,10/5) # Probabilidade de h0 ser verdadeira (p-valor) pnorm(172,174,7/5) # Regiao Critica hipotese unilateral xc1.inf<-qnorm(0.05,170,10/5) xc1.inf xc1.up<-qnorm(0.95,170,10/5) xc1.up # Poder do teste 1-pnorm(xc1,174,7/5) # Regiao Critica hipotese unilateral Ha: m<174 xc2<-qnorm(0.05,174,7/5) xc2 qnorm(0.95,174,7/5) # Erro do Tipo II para h0: m=174 h1 m<174 1-pnorm(xc2,169,7/5) 1-pnorm(xc2,170,7/5) 1-pnorm(xc2,171,7/5) 1-pnorm(xc2,172,7/5) 1-pnorm(xc2,173,7/5) # Regiao critica hipotese bilateral qnorm(0.025,170,10/5) # Regiao critica hipotese bilateral qnorm(0.975,170,10/5) # Regiao critica hipotese bilateral qnorm(0.025,174,7/5) # Regiao Critica hipotese bilateral qnorm(0.975,174,7/5)