<div dir="ltr"><div><div><div>Oi, André.<br><br></div>Eu gosto de usar o lapply nessas situações. Facilita até para comparar os modelos, aplicar predcit etc., pois retorna uma list (com a estutura abaixo, em que cada elemento terá o nome da respectiva coluna do data.frame passado como objeto).<br><br>models <- lapply( dados[, 1:4], function( y ){<br>  lm( y ~ X1*X2 )<br>})<br><br></div>Abs,<br></div>Karina<br><div><div><br></div></div></div><br><div class="gmail_quote"><div dir="ltr">On Tue, Dec 20, 2016 at 2:37 PM Andre Oliveira via 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:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div class="gmail_msg"><div style="color:#000;background-color:#fff;font-family:bookman old style,new york,times,serif;font-size:16px" class="gmail_msg"><div id="m_903365402033483797yui_3_16_0_ym19_1_1482251187062_4664" dir="ltr" class="gmail_msg"></div><div id="m_903365402033483797yui_3_16_0_ym19_1_1482251187062_4780" class="gmail_msg"><br class="gmail_msg"></div><div id="m_903365402033483797yui_3_16_0_ym19_1_1482251187062_6980" class="gmail_msg">Pessoal como eu poderia modelar os Ys com  um for ou de alguma outra forma? (Tenho 20 Ys) <br class="gmail_msg"></div><div id="m_903365402033483797yui_3_16_0_ym19_1_1482251187062_4860" class="gmail_msg"><br class="gmail_msg"></div><div id="m_903365402033483797yui_3_16_0_ym19_1_1482251187062_6939" class="gmail_msg">Exemplo. <br class="gmail_msg"></div><div id="m_903365402033483797yui_3_16_0_ym19_1_1482251187062_4781" class="gmail_msg"> library(mvtnorm) <br id="m_903365402033483797yui_3_16_0_ym19_1_1482251187062_4782" class="gmail_msg"> Sigma <- matrix(c(1,1,-.4,-.9,1,4,1.6,-1.2,-.4,1.6,4, 1.8,-.9,-1.2,1.8,9),ncol=4)<br id="m_903365402033483797yui_3_16_0_ym19_1_1482251187062_4783" class="gmail_msg"> Y <- rmvnorm(10, c(2,4,6,8), Sigma) <span id="m_903365402033483797yui_3_16_0_ym19_1_1482251187062_4784" class="gmail_msg"><br id="m_903365402033483797yui_3_16_0_ym19_1_1482251187062_4785" class="gmail_msg"> X1=as.factor(c(rep("A",5),rep("B",5)))<br id="m_903365402033483797yui_3_16_0_ym19_1_1482251187062_4786" class="gmail_msg"> X2=as.factor(c(rep("1",2),rep("3",3),rep("2",2),rep("0",3)))<br id="m_903365402033483797yui_3_16_0_ym19_1_1482251187062_4787" class="gmail_msg"> dados = data.frame(Y,X1,X2)</span></div><div id="m_903365402033483797yui_3_16_0_ym19_1_1482251187062_4881" class="gmail_msg"><span id="m_903365402033483797yui_3_16_0_ym19_1_1482251187062_4784" class="gmail_msg"><br class="gmail_msg"></span></div><div id="m_903365402033483797yui_3_16_0_ym19_1_1482251187062_4788" class="gmail_msg"><div id="m_903365402033483797yui_3_16_0_ym19_1_1482251187062_4789" class="gmail_msg"> for (i in 1:4) lm(dados[,i] ~X1*X2))</div><div id="m_903365402033483797yui_3_16_0_ym19_1_1482251187062_4882" class="gmail_msg"><br class="gmail_msg"></div><div id="m_903365402033483797yui_3_16_0_ym19_1_1482251187062_4790" class="gmail_msg"> No verdade desejo usar ajustar com a função! <br class="gmail_msg"></div><div id="m_903365402033483797yui_3_16_0_ym19_1_1482251187062_6887" class="gmail_msg"><br class="gmail_msg"></div><div id="m_903365402033483797yui_3_16_0_ym19_1_1482251187062_4791" class="gmail_msg"> require(ExpDes.pt)<br id="m_903365402033483797yui_3_16_0_ym19_1_1482251187062_4792" class="gmail_msg"> fat2.dic(X1, X2, dados[i], quali = c(TRUE, TRUE), mcomp = "sk", fac.names = c("Doses", "Substrato"), sigT = 0.05, sigF = 0.05)</div><div dir="ltr" id="m_903365402033483797yui_3_16_0_ym19_1_1482251187062_4793" class="gmail_msg"><br class="gmail_msg"> </div><div dir="ltr" id="m_903365402033483797yui_3_16_0_ym19_1_1482251187062_6889" class="gmail_msg">obg</div><div dir="ltr" id="m_903365402033483797yui_3_16_0_ym19_1_1482251187062_4880" class="gmail_msg"><br class="gmail_msg"></div><div dir="ltr" id="m_903365402033483797yui_3_16_0_ym19_1_1482251187062_6927" class="gmail_msg"><br class="gmail_msg"></div><div dir="ltr" id="m_903365402033483797yui_3_16_0_ym19_1_1482251187062_6922" class="gmail_msg"><br class="gmail_msg"></div></div><div id="m_903365402033483797yui_3_16_0_ym19_1_1482251187062_4663" class="gmail_msg"> </div><div class="m_903365402033483797signature gmail_msg" id="m_903365402033483797yui_3_16_0_ym19_1_1482251187062_4622">André Oliveira Souza. 
 Graduação em Matemática, mestrado em estatística aplicada.Instituto Federal de Educação, Ciência e Tecnologia do Espirito Santo.  IFES</div></div></div>_______________________________________________<br class="gmail_msg">
R-br mailing list<br class="gmail_msg">
<a href="mailto:R-br@listas.c3sl.ufpr.br" class="gmail_msg" target="_blank">R-br@listas.c3sl.ufpr.br</a><br class="gmail_msg">
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" class="gmail_msg" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br class="gmail_msg">
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" class="gmail_msg" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</blockquote></div>