<div dir="ltr">NÃO, Emerso,<div><br></div><div>a diferença entre os "paired" nas duas chamadas deve-se que no primeiro caso se usa um par de vetores de dados e no segundo um único vetor, e portanto o "paired" não tem sentido nenhum...</div><div><br></div><div>Veja as respostas mais acima para ver a razão real da "discrepância".</div><div><br></div></div><div class="gmail_extra"><br><div class="gmail_quote">2016-08-22 14:15 GMT-03:00 Emerson Cotta Bodevan 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 dir="ltr"><div><div>Simone, boa tarde.<br><br></div>Na solução 1:<span class=""><br><div><br>t.test(consumo ~ momento, <b>paired = T</b>, conf.level = 0.95, alternative=‘greater’)<br></div></span><div><br>Na solução 2:<span class=""><br><div><br>t.test(D, <b>paired = F</b>, conf.level = 0.95, alternative='greater')<br><br></div></span><div>Acredito que o problema esteja aí.<br><br></div><div>Att.,<br></div><br></div><br></div><br></div><div class="gmail_extra"><br clear="all"><div><div data-smartmail="gmail_signature"><div dir="ltr"><b><br></b><div style="text-align:left"><i><b>Emerson</b></i><br></div></div></div></div>
<br><div class="gmail_quote"><div><div class="h5">Em 22 de agosto de 2016 11:06, 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> escreveu:<br></div></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div class="h5"><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 face="times new roman, new york, times, serif" size="3">***---***---***---***---***---<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 face="times new roman, new york, times, serif" size="3">*  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 face="Times New Roman" size="3">***---***---***---***---***---<wbr>***---***---***---***---***---<wbr>***---***---***</font></i></b></div><div style="font-family:'Times New Roman';font-size:3px;font-weight:bold"><b><font face="Times New Roman" size="3"><font color="#bf00bf" size="1"><span style="font-family:'times new roman'"><i></i></span></font></font><div><font face="Times New Roman" size="3"><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></div></div><span class="">______________________________<wbr>_________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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/cgi<wbr>-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-g<wbr>uia</a>) e forneça código mínimo reproduzível.<br></span></blockquote></div><br></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></div>