<div dir="ltr">Simone,<div><br></div><div>Perceba que em ambos os casos o R está te dando a mesma resposta. A diferença entre os dois resultados reside no fato de, no primeiro caso, tu estar calculando Antes - Apos, e não Apos - Antes, que é o teu objetivo.</div><div><br></div><div><div># Solução 1</div><div><br></div><div>consumo <- c(8.1, 7.9, 6.8, 7.8, 7.6, 7.9, 5.7, 8.4, 8.0, 9.5, 8.0, 6.8, 11.6, 8.8, 9.9, 9.5, 11.6, 9.1, 10.6, 10.8, 13.4, 10.6, 10.5, 11.4)</div><div>momento <- factor(c(rep("Apos",12), rep("Antes",12)), ordered=TRUE)</div><div><br></div><div>t.test(consumo ~ momento, paired = T, conf.level = 0.95, alternative="greater")</div><div><br></div><div># Solução 2</div><div><br></div><div>X <- c(8.1, 7.9, 6.8, 7.8, 7.6, 7.9, 5.7, 8.4, 8.0, 9.5, 8.0, 6.8)# antes</div><div>Y <- c(11.6, 8.8, 9.9, 9.5, 11.6, 9.1, 10.6, 10.8, 13.4, 10.6, 10.5, 11.4)# apos</div><div>D <- Y-X # Diferença</div><div><br></div><div>t.test(D, paired = F, conf.level = 0.95, alternative='greater')</div></div><div><br></div><div>######</div><div><br></div><div>Note que adicionei o argumento</div><div><br></div><div>ordered=TRUE<br></div><div><br></div><div>na criação do vetor com os grupos do experimento para a Solução 1.</div><div><br></div><div><br></div><div><br></div></div><div class="gmail_extra"><br><div class="gmail_quote">2016-08-22 11:06 GMT-03:00 Simone D. Sartorio via R-br <span dir="ltr"><<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div style="color:#000;background-color:#fff;font-family:Courier New,courier,monaco,monospace,sans-serif;font-size:16px"><div><br></div><div><br></div><div>Pessoal, boa noite!</div><div><br></div><div>Surgiu uma dúvida conceitual, que não estou conseguindo resolver. Estava preparando minhas aulas e ao conferir um exercício no R que inicialmente tinha resolvido com esses comandos (Solução 1) observei que pelo p-value aceitaria a H0: não há diferença entre as médias. Contudo, pela minha resolução manual, deveria rejeitar H0. Logo, propus a solução 2, exatamente como realizei manualmente e dai, os resultados foram iguais. Gostaria de saber, qual é a diferença da solução 1 para a solução 2? Para mim, a sintaxe de ambas soluções deveria retornar a mesma conclusão.</div><div><br></div><div>Problema:</div><div>Uma distribuidora de combustíveis deseja verificar se um novo tipo de gasolina é eficaz na revitalização de motores velhos.</div><div>Selecionou-se 12 automóveis de um mesmo modelo com mais de 8 anos de uso e, após regulagem dos motores, verifica-se o consumo de combustível. Em seguida, o carro é abastecido com o novo tipo de combustível durante 15 semanas e uma nova aferição é feita (km/litro). </div><div><br></div><div>Como o desempenho dos automóveis foi medido antes e depois das 15 semanas, é razoável assumir que exista alguma dependência entre as variáveis. Gostaria de testar de realizar o teste de hipótese ao nível de 5%:</div><div>H0: mD = 0 (O novo combustível não aumenta o rendimento) </div><div>Ha: mD > 0 (O novo combustível aumenta o rendimento), onde mD é a verdade média da diferença do rendimento apos e antes.</div><div><br></div><div>Aqueles que puderem me ajudar a entender, agradeço desde já!!!</div><div>att.</div><div>Simone</div><div><br></div><div><br></div><div><br></div><div>### Solução 1</div><div><br></div><div>consumo<- c(8.1, 7.9, 6.8, 7.8, 7.6, 7.9, 5.7, 8.4, 8.0, 9.5, 8.0, 6.8, 11.6, 8.8, 9.9, 9.5, 11.6, 9.1, 10.6, 10.8, 13.4, 10.6, 10.5, 11.4)</div><div>momento<- factor(c(rep(‘Antes’,12), rep(‘Apos’,12))); momento</div><div><br></div><div>t.test(consumo ~ momento, paired = T, conf.level = 0.95, alternative=‘greater’)</div><div><br></div><div># Paired t-test</div><div>#</div><div>#data: consumo by momento</div><div>#t = -6.5396, df = 11, p-value = 1</div><div>#alternative hypothesis: true difference in means is greater than 0</div><div>#95 percent confidence interval:</div><div># -3.7495 Inf</div><div>#sample estimates:</div><div>#mean of the differences </div><div># -2.941667 </div><div> </div><div><br></div><div><br></div><div>### Solução 2</div><div>X <- c(8.1, 7.9, 6.8, 7.8, 7.6, 7.9, 5.7, 8.4, 8.0, 9.5, 8.0, 6.8)# antes</div><div>Y <- c(11.6, 8.8, 9.9, 9.5, 11.6, 9.1, 10.6, 10.8, 13.4, 10.6, 10.5, 11.4)# apos</div><div>D <- Y-X # Diferença</div><div><br></div><div>> t.test(D, paired = F, conf.level = 0.95, alternative='greater')</div><div>#</div><div># One Sample t-test</div><div>#</div><div>#data: D</div><div>#t = 6.5396, df = 11, p-value = 2.097e-05</div><div>#alternative hypothesis: true mean is greater than 0</div><div>#95 percent confidence interval:</div><div># 2.133833 Inf</div><div>#sample estimates:</div><div>#mean of x </div><div></div><div dir="ltr"># 2.941667 </div><div></div><div> </div><div><div><i><b><font size="3" face="times new roman, new york, times, serif">***---***---***---***---***---<wbr>***---***---***---***---***---<wbr>***---***---***</font></b></i></div><div style="font-family:'times new roman','new york',times,serif;font-size:3px;font-weight:bold"><i><b><font size="3" face="times new roman, new york, times, serif">* Simone Daniela Sartorio</font></b></i></div><div><font face="times new roman, new york, times, serif">* <span style="white-space:pre-wrap"> </span>Professora Adjunta II no CCA/UFSCar, Araras/SP.</font></div><div><font face="times new roman, new york, times, serif">*<span style="white-space:pre-wrap"> </span>Doutora e Mestre em Estatística e Experimentação Agronômica - ESALQ/USP.</font></div><div><font face="times new roman, new york, times, serif">* <span style="white-space:pre-wrap"> </span>Licenciada em Matemática - UNESP/Rio Claro.</font></div><div><font face="times new roman, new york, times, serif">* <span style="white-space:pre-wrap"> </span>Contatos: </font></div><div style="font-size:13px;font-family:'times new roman','new york',times,serif"><font face="times new roman, new york, times, serif">*<span style="white-space:pre-wrap"> </span>tel: (19)3543-2664</font></div><div style="font-size:13px;font-family:'times new roman','new york',times,serif"><font face="times new roman, new york, times, serif">*<span style="white-space:pre-wrap"> </span>cel: (19)98182-0586 - Tim</font></div><div style="font-size:13px;font-family:'times new roman','new york',times,serif"><b style="line-height:1.22"><i><font size="3" face="Times New Roman">***---***---***---***---***---<wbr>***---***---***---***---***---<wbr>***---***---***</font></i></b></div><div style="font-family:'Times New Roman';font-size:3px;font-weight:bold"><b><font size="3" face="Times New Roman"><font color="#bf00bf" size="1"><span style="font-family:'times new roman'"><i></i></span></font></font><div><font size="3" face="Times New Roman"><i><span><span><var></var> <span> <span> <span> <span> <span> <span> <span> <span><wbr> <span> <span> <span> <span> <span> <span> <span> <wbr> <span> <span> <span> <span> <span> <span> </span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span>Tenh<wbr>a um bom dia! </i><font face="Courier New, courier, monaco, monospace, sans-serif">;)</font></font></div></b></div></div></div></div><br>______________________________<wbr>_________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/<wbr>cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-<wbr>guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr">Marcus Nunes<br><a href="http://marcusnunes.me/" target="_blank">http://marcusnunes.me/</a><br></div></div>
</div>