<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css" style="display:none;"><!-- P {margin-top:0;margin-bottom:0;} --></style>
</head>
<body dir="ltr">
<div id="divtagdefaultwrapper" style="font-size:12pt;color:#000000;font-family:'Times New Roman', Times, serif;" dir="ltr">
<p></p>
<p style="font-family: "Times New Roman", Times, serif, "Apple Color Emoji", "Segoe UI Emoji", NotoColorEmoji, "Segoe UI Symbol", "Android Emoji", EmojiSymbols; font-size: 16px;">
Obrigado Walmes,</p>
<p style="font-family: "Times New Roman", Times, serif, "Apple Color Emoji", "Segoe UI Emoji", NotoColorEmoji, "Segoe UI Symbol", "Android Emoji", EmojiSymbols; font-size: 16px;">
<br>
</p>
<p style="font-family: "Times New Roman", Times, serif, "Apple Color Emoji", "Segoe UI Emoji", NotoColorEmoji, "Segoe UI Symbol", "Android Emoji", EmojiSymbols; font-size: 16px;">
Obrigado pela indicação. Mas acabei optando por realizar o cálculo dos quadrados médios combinados e graus de liberdade combinados manualmente mesmo, era isso que eu estava na dúvida... e de fato deu resultado diferente do método que estava de exemplo no pacote
agricolae.</p>
<p style="font-family: "Times New Roman", Times, serif, "Apple Color Emoji", "Segoe UI Emoji", NotoColorEmoji, "Segoe UI Symbol", "Android Emoji", EmojiSymbols; font-size: 16px;">
<br>
</p>
<p style="font-family: "Times New Roman", Times, serif, "Apple Color Emoji", "Segoe UI Emoji", NotoColorEmoji, "Segoe UI Symbol", "Android Emoji", EmojiSymbols; font-size: 16px;">
Acredito eu que está certo como fiz.</p>
<p style="font-family: "Times New Roman", Times, serif, "Apple Color Emoji", "Segoe UI Emoji", NotoColorEmoji, "Segoe UI Symbol", "Android Emoji", EmojiSymbols; font-size: 16px;">
<br>
</p>
<p style="font-family: "Times New Roman", Times, serif, "Apple Color Emoji", "Segoe UI Emoji", NotoColorEmoji, "Segoe UI Symbol", "Android Emoji", EmojiSymbols; font-size: 16px;">
<br>
</p>
<p style="font-family: "Times New Roman", Times, serif, "Apple Color Emoji", "Segoe UI Emoji", NotoColorEmoji, "Segoe UI Symbol", "Android Emoji", EmojiSymbols; font-size: 16px;">
Se a alguém interessar, ou se disponibilizar de conferir, mando os dados e comandos:</p>
<p style="font-family: "Times New Roman", Times, serif, "Apple Color Emoji", "Segoe UI Emoji", NotoColorEmoji, "Segoe UI Symbol", "Android Emoji", EmojiSymbols; font-size: 16px;">
<br>
</p>
<p style="font-family: "Times New Roman", Times, serif, "Apple Color Emoji", "Segoe UI Emoji", NotoColorEmoji, "Segoe UI Symbol", "Android Emoji", EmojiSymbols; font-size: 16px;">
</p>
<div># Análise de um experimento em faixas com interação significativa:</div>
<div><br>
</div>
<div>dados<- structure(list(local = c(1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, </div>
<div>1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, </div>
<div>2, 3, 4), trat = c(0, 0, 0, 0, 30, 30, 30, 30, 60, 60, 60, 60, </div>
<div>0, 0, 0, 0, 30, 30, 30, 30, 60, 60, 60, 60, 0, 0, 0, 0, 30, 30, </div>
<div>30, 30, 60, 60, 60, 60), bloco = c(1, 1, 1, 1, 1, 1, 1, 1, 1, </div>
<div>1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, </div>
<div>3, 3, 3, 3, 3, 3), yield = c(150, 163, 164, 171, 188, 174, 182, </div>
<div>182, 220, 170, 170, 182, 147, 141, 133, 140, 157, 166, 144, 143, </div>
<div>173, 165, 152, 170, 146, 140, 149, 150, 172, 158, 142, 160, 204, </div>
<div>163, 150, 175)), .Names = c("local", "trat", "bloco", "yield"</div>
<div>), row.names = c(NA, 36L), class = "data.frame")</div>
<div><br>
</div>
<div>model<-with(dados,strip.plot(bloco, trat, local, yield))</div>
<div><br>
</div>
<div># Se interação não significativa: </div>
<div><br>
</div>
<div>comparison1<-with(dados,HSD.test(yield,trat,model$gl.a,model$Ea));comparison1</div>
<div><br>
</div>
<div>comparison2<-with(dados,HSD.test(yield,local,model$gl.b,model$Eb)); comparison2</div>
<div><br>
</div>
<div># Se tiver interação significativa:</div>
<div><br>
</div>
<div>QMea<- model$Ea ;Dfea<-model$gl.a</div>
<div>QMeb<- model$Eb; Dfeb<-model$gl.b</div>
<div>QMec<- model$Ec ; Dfec<-model$gl.c</div>
<div><br>
</div>
<div>a <-3; b <-4</div>
<div><br>
</div>
<div>#Erro medio a e c</div>
<div>QMeac <-(QMea+(b-1)*QMec)/b</div>
<div><br>
</div>
<div>##Graus de liberdade a e c</div>
<div>Glac<-((QMea+(b-1)*QMec)^2) / ( ((QMea^2)/Dfea) + ((((b-1)*QMec)^2)/Dfec) )</div>
<div><br>
</div>
<div>#Erro medio b e c</div>
<div>QMebc<-(QMeb+(a-1)*QMec)/a</div>
<div><br>
</div>
<div>##Graus de liberdade a e c</div>
<div>Glbc<-((QMeb+(a-1)*QMec)^2) / ( ((QMeb^2)/Dfeb) + ((((a-1)*QMec)^2)/Dfec) )</div>
<div><br>
</div>
<div>#---------------------------------------------------------------------------------</div>
<div># Comparação de médias por Tukey:</div>
<div><br>
</div>
<div>## Tratamentos dentro de locais:</div>
<div><br>
</div>
<div>L1<-subset(dados,dados$local=="1")</div>
<div>t1<-HSD.test(L1$yield,L1$trat,Glac,QMeac)</div>
<div>t1</div>
<div><br>
</div>
<div>L2<-subset(dados,dados$local=="2")</div>
<div>t2<-HSD.test(L2$yield,L2$trat,Glac,QMeac)</div>
<div>t2</div>
<div><br>
</div>
<div>L3<-subset(dados,dados$local=="3")</div>
<div>t3<-HSD.test(L3$yield,L3$trat,Glac,QMeac)</div>
<div>t3</div>
<div><br>
</div>
<div>L4<-subset(dados,dados$local=="4")</div>
<div>t4<-HSD.test(L4$yield,L4$trat,Glac,QMeac)</div>
<div>t4</div>
<div><br>
</div>
<div>## Locais dentro de tratamentos:</div>
<div><br>
</div>
<div>A1<-subset(dados,dados$trat=="0")</div>
<div>ta1<-HSD.test(A1$yield,A1$local,Glbc,QMebc)</div>
<div>ta1</div>
<div><br>
</div>
<div>A2<-subset(dados,dados$trat=="30")</div>
<div>ta2<-HSD.test(A2$yield,A2$local,Glbc,QMebc)</div>
<div>ta2</div>
<div><br>
</div>
<div>A3<-subset(dados,dados$trat=="60")</div>
<div>ta3<-HSD.test(A3$yield,A3$local,Glbc,QMebc)</div>
<div>ta3</div>
<div><br>
</div>
# FIM ?
<p></p>
<p style="font-family: "Times New Roman", Times, serif, "Apple Color Emoji", "Segoe UI Emoji", NotoColorEmoji, "Segoe UI Symbol", "Android Emoji", EmojiSymbols; font-size: 16px;">
<br>
</p>
<p style="font-family: "Times New Roman", Times, serif, "Apple Color Emoji", "Segoe UI Emoji", NotoColorEmoji, "Segoe UI Symbol", "Android Emoji", EmojiSymbols; font-size: 16px;">
</p>
<p style="font-family: "Times New Roman", Times, serif, "Apple Color Emoji", "Segoe UI Emoji", NotoColorEmoji, "Segoe UI Symbol", "Android Emoji", EmojiSymbols; font-size: 16px;">
Abraços!</p>
<div><br>
</div>
<br>
<p></p>
<p><br>
</p>
<div id="Signature">
<div id="divtagdefaultwrapper" style="font-size:12pt; color:#000000; background-color:#FFFFFF; font-family:'Times New Roman',Times,serif">
<font face="Times New Roman" size="3" style="font-size:12pt"><span class="ecxyiv1220415869ecxApple-style-span" style="line-height:20px; background-color:rgb(255,255,255)">
<div style="line-height:17px; text-align:center"><font style="line-height:normal"><b style="line-height:17px">..................</b></font></div>
<div style="line-height:17px; text-align:center"><font style="line-height:normal"><b style="line-height:17px">Me. Eng. Agr. Maurício Sangiogo</b></font></div>
<div style="line-height:17px; text-align:center"><font class="ecxyiv1220415869ecxApple-style-span" style="line-height:normal">TEL:(55) 96822030</font></div>
<div style="line-height:17px; text-align:center"><span class="ecxyiv1220415869ecxApple-style-span" style="font-size:12pt"> </span><span class="ecxyiv1220415869ecxApple-style-span" style="font-size:12pt"></span></div>
</span></font></div>
</div>
<br>
<br>
<div style="color: rgb(0, 0, 0);">
<div>
<hr tabindex="-1" style="display:inline-block; width:98%">
<div id="x_divRplyFwdMsg" dir="ltr"><font face="Calibri, sans-serif" color="#000000" style="font-size:11pt"><b>De:</b> R-br <r-br-bounces@listas.c3sl.ufpr.br> em nome de r-br-request@listas.c3sl.ufpr.br <r-br-request@listas.c3sl.ufpr.br><br>
<b>Enviado:</b> domingo, 12 de março de 2017 12:00<br>
<b>Para:</b> r-br@listas.c3sl.ufpr.br<br>
<b>Assunto:</b> Digest R-br, volume 75, assunto 8</font>
<div> </div>
</div>
</div>
<font size="2"><span style="font-size:10pt;">
<div class="PlainText">Enviar submissões para a lista de discussão R-br para <br>
r-br@listas.c3sl.ufpr.br<br>
<br>
Para se cadastrar ou descadastrar via WWW, visite o endereço<br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" id="LPlnk815115" previewremoved="true">
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
<div id="LPBorder_GT_14893601116930.44245332731585596" style="margin-bottom: 20px; overflow: auto; width: 100%; text-indent: 0px;">
<table id="LPContainer_14893601116880.3282122223858037" cellspacing="0" style="width: 90%; background-color: rgb(255, 255, 255); position: relative; overflow: auto; padding-top: 20px; padding-bottom: 20px; margin-top: 20px; border-top: 1px dotted rgb(200, 200, 200); border-bottom: 1px dotted rgb(200, 200, 200);">
<tbody>
<tr valign="top" style="border-spacing: 0px;">
<td id="TextCell_14893601116880.4277311609830565" colspan="2" style="vertical-align: top; position: relative; padding: 0px; display: table-cell;">
<div id="LPRemovePreviewContainer_14893601116880.7429262816407805"></div>
<div id="LPTitle_14893601116880.49501506193731903" style="top: 0px; color: rgb(0, 120, 215); font-weight: normal; font-size: 21px; font-family: wf_segoe-ui_light, "Segoe UI Light", "Segoe WP Light", "Segoe UI", "Segoe WP", Tahoma, Arial, sans-serif; line-height: 21px;">
<a id="LPUrlAnchor_14893601116930.6660242170819353" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank" style="text-decoration: none;">R-br Página de Detalhes</a></div>
<div id="LPMetadata_14893601116930.3867673028356209" style="margin: 10px 0px 16px; color: rgb(102, 102, 102); font-weight: normal; font-family: wf_segoe-ui_normal, "Segoe UI", "Segoe WP", Tahoma, Arial, sans-serif; font-size: 14px; line-height: 14px;">
listas.inf.ufpr.br</div>
<div id="LPDescription_14893601116930.38316195132899855" style="display: block; color: rgb(102, 102, 102); font-weight: normal; font-family: wf_segoe-ui_normal, "Segoe UI", "Segoe WP", Tahoma, Arial, sans-serif; font-size: 14px; line-height: 20px; max-height: 100px; overflow: hidden;">
A [R-br] é a lista Brasileira oficial de discussão do programa R e tem o propósito de permitir a troca de informações entre os usuários de R (em português).</div>
</td>
</tr>
</tbody>
</table>
</div>
<br>
<br>
ou, via email, envie uma mensagem com a palavra 'help' no assunto ou<br>
corpo da mensagem para <br>
r-br-request@listas.c3sl.ufpr.br<br>
<br>
Você poderá entrar em contato com a pessoa que gerencia a lista pelo<br>
endereço<br>
r-br-owner@listas.c3sl.ufpr.br<br>
<br>
Quando responder, por favor edite sua linha Assunto assim ela será<br>
mais específica que "Re: Contents of R-br digest..."<br>
<br>
<br>
Tópicos de Hoje:<br>
<br>
1. Re: Desdobramento de um experimento em faixas (Walmes Zeviani)<br>
<br>
<br>
----------------------------------------------------------------------<br>
<br>
Message: 1<br>
Date: Sat, 11 Mar 2017 17:44:03 -0300<br>
From: Walmes Zeviani <walmeszeviani@gmail.com><br>
To: Maurício Sangiogo <ms_sangiogo@hotmail.com>, a lista Brasileira<br>
oficial de discussão do programa R. <r-br@listas.c3sl.ufpr.br><br>
Subject: Re: [R-br] Desdobramento de um experimento em faixas<br>
Message-ID:<br>
<CAFU=EkYuWZnFRExk8eNhcLSq3u1=OG0Yg=ZQUNeGoxQQc8obzQ@mail.gmail.com><br>
Content-Type: text/plain; charset="utf-8"<br>
<br>
Verifique se essa postagem do histórico da lista serve:<br>
<a href="http://r-br.2285057.n4.nabble.com/R-br-Anova-em-faixas-td4655899.html" id="LPlnk967219" previewremoved="true">http://r-br.2285057.n4.nabble.com/R-br-Anova-em-faixas-td4655899.html</a>. Caso
<div id="LPBorder_GT_14893601122090.6985740392671205" style="margin-bottom: 20px; overflow: auto; width: 100%; text-indent: 0px;">
<table id="LPContainer_14893601122050.9379749142813243" cellspacing="0" style="width: 90%; background-color: rgb(255, 255, 255); position: relative; overflow: auto; padding-top: 20px; padding-bottom: 20px; margin-top: 20px; border-top: 1px dotted rgb(200, 200, 200); border-bottom: 1px dotted rgb(200, 200, 200);">
<tbody>
<tr valign="top" style="border-spacing: 0px;">
<td id="TextCell_14893601122050.42769513534530845" colspan="2" style="vertical-align: top; position: relative; padding: 0px; display: table-cell;">
<div id="LPRemovePreviewContainer_14893601122050.543418634887066"></div>
<div id="LPTitle_14893601122090.9948550598360713" style="top: 0px; color: rgb(0, 120, 215); font-weight: normal; font-size: 21px; font-family: wf_segoe-ui_light, "Segoe UI Light", "Segoe WP Light", "Segoe UI", "Segoe WP", Tahoma, Arial, sans-serif; line-height: 21px;">
<a id="LPUrlAnchor_14893601122090.7435272587492538" href="http://r-br.2285057.n4.nabble.com/R-br-Anova-em-faixas-td4655899.html" target="_blank" style="text-decoration: none;">R-br - [R-br] Anova em faixas</a></div>
<div id="LPMetadata_14893601122090.8527696022042617" style="margin: 10px 0px 16px; color: rgb(102, 102, 102); font-weight: normal; font-family: wf_segoe-ui_normal, "Segoe UI", "Segoe WP", Tahoma, Arial, sans-serif; font-size: 14px; line-height: 14px;">
r-br.2285057.n4.nabble.com</div>
<div id="LPDescription_14893601122090.7780295246549798" style="display: block; color: rgb(102, 102, 102); font-weight: normal; font-family: wf_segoe-ui_normal, "Segoe UI", "Segoe WP", Tahoma, Arial, sans-serif; font-size: 14px; line-height: 20px; max-height: 100px; overflow: hidden;">
[R-br] Anova em faixas. Srs, Preciso de uma ajuda. Preciso fazer uma ANOVA de um experimento com três fatores, porém o problema está no delineamento que foi em faixas. Tenho o quadro da análise...</div>
</td>
</tr>
</tbody>
</table>
</div>
<br>
<br>
não funcione, envie no corpo da mensagem os resultados que você tem como<br>
sendo os certos e o resultado que você está conseguindo. Não esqueça de<br>
disponibilizar acesso aos dados usados no corpo da mensagem (use dput()).<br>
<br>
À disposição.<br>
Walmes.<br>
<br>
-------------- Próxima Parte ----------<br>
Um anexo em HTML foi limpo...<br>
URL: <<a href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20170311/02ec2ff1/attachment-0001.html" id="LPlnk646968" previewremoved="true">http://listas.inf.ufpr.br/pipermail/r-br/attachments/20170311/02ec2ff1/attachment-0001.html</a>><br>
<br>
------------------------------<br>
<br>
Subject: Legenda do Digest<br>
<br>
_______________________________________________<br>
R-br mailing list<br>
R-br@listas.c3sl.ufpr.br<br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" id="LPlnk862458" previewremoved="true">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
<div id="LPBorder_GT_14893601707180.9994008132632841" style="margin-bottom: 20px; overflow: auto; width: 100%; text-indent: 0px;">
<table id="LPContainer_14893601707100.68145996503413" cellspacing="0" style="width: 90%; background-color: rgb(255, 255, 255); position: relative; overflow: auto; padding-top: 20px; padding-bottom: 20px; margin-top: 20px; border-top: 1px dotted rgb(200, 200, 200); border-bottom: 1px dotted rgb(200, 200, 200);">
<tbody>
<tr valign="top" style="border-spacing: 0px;">
<td id="TextCell_14893601707140.14056503496391226" colspan="2" style="vertical-align: top; position: relative; padding: 0px; display: table-cell;">
<div id="LPRemovePreviewContainer_14893601707140.8733582121401708"></div>
<div id="LPTitle_14893601707140.3287942884109263" style="top: 0px; color: rgb(0, 120, 215); font-weight: normal; font-size: 21px; font-family: wf_segoe-ui_light, "Segoe UI Light", "Segoe WP Light", "Segoe UI", "Segoe WP", Tahoma, Arial, sans-serif; line-height: 21px;">
<a id="LPUrlAnchor_14893601707140.48485902274841663" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank" style="text-decoration: none;">R-br Página de Detalhes</a></div>
<div id="LPMetadata_14893601707140.2908532467702636" style="margin: 10px 0px 16px; color: rgb(102, 102, 102); font-weight: normal; font-family: wf_segoe-ui_normal, "Segoe UI", "Segoe WP", Tahoma, Arial, sans-serif; font-size: 14px; line-height: 14px;">
listas.inf.ufpr.br</div>
<div id="LPDescription_14893601707140.9493355946567343" style="display: block; color: rgb(102, 102, 102); font-weight: normal; font-family: wf_segoe-ui_normal, "Segoe UI", "Segoe WP", Tahoma, Arial, sans-serif; font-size: 14px; line-height: 20px; max-height: 100px; overflow: hidden;">
A [R-br] é a lista Brasileira oficial de discussão do programa R e tem o propósito de permitir a troca de informações entre os usuários de R (em português).</div>
</td>
</tr>
</tbody>
</table>
</div>
<br>
<br>
<br>
<br>
------------------------------<br>
<br>
Fim da Digest R-br, volume 75, assunto 8<br>
****************************************<br>
</div>
</span></font></div>
</div>
</body>
</html>