<html><head></head><body><div style="color:#000; background-color:#fff; font-family:bookman old style, new york, times, serif;font-size:16px"><div id="yui_3_16_0_ym19_1_1482251187062_4664" dir="ltr"></div><div id="yui_3_16_0_ym19_1_1482251187062_4780"><br></div><div id="yui_3_16_0_ym19_1_1482251187062_6980">Pessoal como eu poderia modelar os Ys com  um for ou de alguma outra forma? (Tenho 20 Ys) <br></div><div id="yui_3_16_0_ym19_1_1482251187062_4860"><br></div><div id="yui_3_16_0_ym19_1_1482251187062_6939">Exemplo. <br></div><div id="yui_3_16_0_ym19_1_1482251187062_4781"> library(mvtnorm) <br id="yui_3_16_0_ym19_1_1482251187062_4782"> 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="yui_3_16_0_ym19_1_1482251187062_4783"> Y <- rmvnorm(10, c(2,4,6,8), Sigma) <span id="yui_3_16_0_ym19_1_1482251187062_4784"><br id="yui_3_16_0_ym19_1_1482251187062_4785"> X1=as.factor(c(rep("A",5),rep("B",5)))<br id="yui_3_16_0_ym19_1_1482251187062_4786"> X2=as.factor(c(rep("1",2),rep("3",3),rep("2",2),rep("0",3)))<br id="yui_3_16_0_ym19_1_1482251187062_4787"> dados = data.frame(Y,X1,X2)</span></div><div id="yui_3_16_0_ym19_1_1482251187062_4881"><span id="yui_3_16_0_ym19_1_1482251187062_4784"><br></span></div><div id="yui_3_16_0_ym19_1_1482251187062_4788"><div id="yui_3_16_0_ym19_1_1482251187062_4789"> for (i in 1:4) lm(dados[,i] ~X1*X2))</div><div id="yui_3_16_0_ym19_1_1482251187062_4882"><br></div><div id="yui_3_16_0_ym19_1_1482251187062_4790"> No verdade desejo usar ajustar com a função! <br></div><div id="yui_3_16_0_ym19_1_1482251187062_6887"><br></div><div id="yui_3_16_0_ym19_1_1482251187062_4791"> require(ExpDes.pt)<br id="yui_3_16_0_ym19_1_1482251187062_4792"> 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="yui_3_16_0_ym19_1_1482251187062_4793"><br> </div><div dir="ltr" id="yui_3_16_0_ym19_1_1482251187062_6889">obg</div><div dir="ltr" id="yui_3_16_0_ym19_1_1482251187062_4880"><br></div><div dir="ltr" id="yui_3_16_0_ym19_1_1482251187062_6927"><br></div><div dir="ltr" id="yui_3_16_0_ym19_1_1482251187062_6922"><br></div></div><div id="yui_3_16_0_ym19_1_1482251187062_4663"> </div><div class="signature" id="yui_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></body></html>