Assim, para o seu CMR, segue o código:<div><br></div><div><div style="font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)">genotipo<-gl(10,3)</div><div style="font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)">
<span style="font-size:10pt">rep<-rep(c(1,2,3),10)</span></div><div style="font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)"><span style="font-size:10pt">resp1<- c(249.75,227.56,368.18,615.42,756.11,481.54,610.40,534.73,488.87,587.84,627.27,594.91,358.48,341.18,409.65,530.40,644.79,619.42,592.22,588.89,627.72,605.05</span><span style="font-size:10pt">,620.72,</span></div>
<div style="font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)"><span style="font-size:10pt">711.55,493.93,457.53,366.90,479.98,671.50,471.44)</span></div><div style="font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)">
<span style="font-size:10pt">resp2<-</span><span style="font-size:10pt"> c(604.15,527.36,711.87,548.00,59.78,464.04,529.91,436.40,277.88,186.90,478.44,454.60,480.34,238.63,537.39,430.57,352.27,256.40,563.79,862.62,521.22,420.44,</span></div>
<div style="font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)"><span style="font-size:10pt">519.95,375.29,</span><span style="font-size:10pt">425.79,450.88,264.96,611.18,372.21,284.37)</span></div>
<div style="font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)"><br></div><div style="font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)">dados<-data.frame(genotipo ,rep,resp1,resp2)</div>
<div style="font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)"><br></div><div style="font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)">ANOVA_resp1 <- anova(lm(resp1 ~ genotipo, data = dados)) # SQ da resposta 1</div>
<div style="font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)">ANOVA_resp2 <- anova(lm(resp2 ~ genotipo, data = dados)) # SQ da resposta 2</div><div style="font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)">
<br></div><div style="font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)">ANOVA_soma <- anova(lm(I(resp1 + resp2) ~ genotipo, data = dados)) # SQ da soma</div><div style="font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)">
<br></div><div style="font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)">Espero ter ajudado.</div><div style="font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)"><br>
</div><div style="font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)">att,</div><div style="font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)">FH </div><br><div class="gmail_quote">
2013/2/27 Tiago Souza Marçal <span dir="ltr"><<a href="mailto:tiagosouzamarcal@hotmail.com" target="_blank">tiagosouzamarcal@hotmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div><div dir="ltr">
Fernando agradeço pela ajuda e como você pediu eu estou enviando um CMR para um delineamento em dic:<div><br></div><div>genotipo<-gl(10,3)</div><div><span style="font-size:10pt">rep<-rep(c(1,2,3),10)</span></div><div>
<span style="font-size:10pt">resp1<- c(249.75,227.56,368.18,615.42,756.11,481.54,610.40,534.73,488.87,587.84,627.27,594.91,358.48,341.18,409.65,530.40,644.79,619.42,592.22,588.89,627.72,605.05</span><span style="font-size:10pt">,620.72,</span></div>
<div><span style="font-size:10pt">711.55,493.93,457.53,366.90,479.98,671.50,471.44)</span></div><div><span style="font-size:10pt">resp2<-</span><span style="font-size:10pt"> c(604.15,527.36,711.87,548.00,59.78,464.04,529.91,436.40,277.88,186.90,478.44,454.60,480.34,238.63,537.39,430.57,352.27,256.40,563.79,862.62,521.22,420.44,</span></div>
<div><span style="font-size:10pt">519.95,375.29,</span><span style="font-size:10pt">425.79,450.88,264.96,611.18,372.21,284.37)</span></div><div><br></div><div>dados<-data.frame(gen,rep,resp1,resp2)</div><div><br></div>
<div>Att.</div><div><br></div><div>Tiago.<span style="font-size:10pt"> </span></div><div><br><div><div></div><hr>Date: Wed, 27 Feb 2013 20:47:01 -0300<br>From: <a href="mailto:fernandohtoledo@gmail.com" target="_blank">fernandohtoledo@gmail.com</a><br>
To: <a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a><br>Subject: Re: [R-br] Quadrado médio de duas características QM(y1+y2)<div><div class="h5"><br><br><div>Tiago,</div><div><br></div>
Somar as duas variáveis é proibido?<div><br></div><div>Se, por exemplo for um DIC e seus dados estão em um data frame chamado dados, com a variável resposta chamada Y, faça:</div><div><br></div>
<div>lm(Y ~ a, data = dados) # soma de quadrados da variável a</div><div>lm(Y ~ b, data = dados) # soma de quadrados da variável b</div><div>lm(Y ~ I(a + b), data = dados) # soma de quadrados da soma</div><div><br></div>
<div>
Vale destacar que sem CMR isso é apenas um chute.</div><div><br></div><div>att,</div><div>FH</div><div><br><div>2013/2/27 Tiago Souza Marçal <span dir="ltr"><<a href="mailto:tiagosouzamarcal@hotmail.com" target="_blank">tiagosouzamarcal@hotmail.com</a>></span><br>
<blockquote style="border-left:1px #ccc solid;padding-left:1ex">
<div><div dir="ltr">
Boa noite pessoal, <div><br></div><div>estou querendo estimar a correlação genética entre duas variáveis (y1 e y2). Entretanto, para isso eu preciso do quadrado médio de a mais b QM (a+b).</div><div><br></div><div>Alguém sabe como estimar este quadrado médio para as duas variáveis no R.</div>
<div><br></div><div>Att. </div><span><font color="#888888"><div><br></div><div>Tiago. </div> </font></span></div></div>
<br>_______________________________________________<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" 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" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>
<br></div></div>_______________________________________________
R-br mailing list
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forne�a c�digo m�nimo reproduz�vel.</div></div> </div></div>
<br>_______________________________________________<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" 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" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>