<div dir="ltr"><div dir="ltr">Andre,<div><br></div><div>O seu CMR está cheio de problemas...<br><br>A linha: </div><div><br></div><div><span style="font-family:"bookman old style","new york",times,serif;font-size:16px">fit=aov(indice ~ cultivar*factor(dose)+Error(</span><span style="font-family:"bookman old style","new york",times,serif;font-size:16px">bloco:(cultivar+dose))</span>  <br></div><div><br></div><div>dá erro por falta de um parêntese no final.</div><div><br></div><div>Colocando-se o símbolo faltante caímos em:</div><div><br></div><div><div>> fit=aov(indice ~ cultivar*factor(dose)+Error(bloco:(cultivar+dose)))</div><div>Warning message:</div><div>In aov(indice ~ cultivar * factor(dose) + Error(bloco:(cultivar +  :</div><div>  modelo Error() é singular</div></div><div><br></div><div>O que me parece esperado dado que o número total de amostras é 72 e você está querendo fazer  interação de 4 x 6 x 3 (blocos x doses x cultivar) ou seja você só tem <b><u>um</u></b> experimento por interação... isso deixa de ser regressão😶</div><div><br></div><div>HTH</div><div><br></div><div><br></div><div><br></div></div></div><br><div class="gmail_quote"><div dir="ltr">On Tue, Jan 8, 2019 at 12:45 PM Andre Oliveira por (R-br) <<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div><div class="gmail-m_9159820371470119182ydp3b2252efyahoo-style-wrap" style="font-family:"bookman old style","new york",times,serif;font-size:16px"><div><div><span><p>Boa noite,<br></p></span><div> dados que houve a internação entre fatores, preciso particionar a soma de quadrado. É apenas um exercício que estou fazendo co dados que está na web. Evidentemente que 
posso construir os contraste e testar o que me interessa e também 
poderia usar a ExpDes para isto. Alguém poderia ajudar com um script 
para tal desdobramento?<br></div><div>Grato</div><div><br></div><div>Pequei este exemplo! <br></div><span></span><span><p> da <- read.table("<a href="http://www.leg.ufpr.br/~walmes/cursoR/anovareg.txt?fbclid=IwAR3oUEJYP2LMuNkZCndm3jrtUceBc16QUaD1lEvqHhpoh7l4NJN8-Vkzubs" rel="nofollow" target="_blank">http://www.leg.ufpr.br/~walmes/cursoR/anovareg.txt</a>", header=TRUE, sep="\t")<br> str(da)<span class="gmail-m_9159820371470119182ydp554c07f7text_exposed_show"><br></span></p></span><div><span class="gmail-m_9159820371470119182ydp554c07f7text_exposed_show"> attach(da)</span></div><div><span class="gmail-m_9159820371470119182ydp554c07f7text_exposed_show"><br></span></div><div><span class="gmail-m_9159820371470119182ydp554c07f7text_exposed_show"># Este exemplo testa regressão! <br></span></div><div><span class="gmail-m_9159820371470119182ydp554c07f7text_exposed_show"><br></span></div><div><span class="gmail-m_9159820371470119182ydp554c07f7text_exposed_show"><span>fit=aov(indice ~ cultivar*ordered(dose))<br>summary(fit)<br>summary.lm(fit)<br><br></span></span><span class="gmail-m_9159820371470119182ydp554c07f7text_exposed_show"></span><div><br></div><div># Gostaria de ajuda para desdobrar e testar doses para este modelo abaixo! <br></div></div><span></span><span><div class="gmail-m_9159820371470119182ydp554c07f7text_exposed_show"><p> fit=aov(indice ~ cultivar*factor(dose)+Error(bloco:(cultivar+dose))<br></p><div> summary(fit)</div><div><br></div></div></span>Grato<br></div><div><br></div><div class="gmail-m_9159820371470119182ydp3b2252efsignature"><br></div></div></div></div>_______________________________________________<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-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-guia</a>) e forneça código mínimo reproduzível.</blockquote></div>