<font face="trebuchet ms,sans-serif">Samuel,<br><br>Adoraria ajudar mais não entendi muito bem. Você quer algo automático, de forma que todas as variáveis que hora estão do lado esquerdo (independentes) sejam usadas do lado direito com variável resposta/dependente? Meu tiro no escuro é esse<br>
<br><span style="font-family: courier new,monospace;">da <- as.data.frame(matrix(rnorm(6*50), ncol=6))</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">formulas <- sapply(1:ncol(da),</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> function(i){</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> paste(names(da)[i], paste(names(da)[-i], collapse="+"), sep="~")</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> })</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">formulas</span><br style="font-family: courier new,monospace;">
<br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">ajustes <- lapply(formulas,</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> function(f){</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> m0 <- lm(f, data=da)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> m0</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> })</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">lapply(ajustes, summary)</span><br style="font-family: courier new,monospace;">
<br>À disposição.<br>Walmes.<br><br clear="all"></font><span style="font-family: trebuchet ms,sans-serif;">==========================================================================</span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">Walmes Marques Zeviani</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)</span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">Departamento de Estatística - Universidade Federal do Paraná</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">fone: (+55) 41 3361 3573</span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">VoIP: (3361 3600) 1053 1173</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">e-mail: <a href="mailto:walmes@ufpr.br" target="_blank">walmes@ufpr.br</a></span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">twitter: @walmeszeviani</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">homepage: <a href="http://www.leg.ufpr.br/%7Ewalmes" target="_blank">http://www.leg.ufpr.br/~walmes</a></span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">linux user number: 531218</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">==========================================================================</span><br>
<br><br><div class="gmail_quote">Em 6 de abril de 2011 13:11, Samuel Carvalho <span dir="ltr"><<a href="mailto:samukajm@yahoo.com.br">samukajm@yahoo.com.br</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
<div><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;"><div></div>
<div>Pessoal</div>
<div>Alguem saberia me dizer como se faz um ajuste simultaneo no R?</div>
<div>Algo tipo</div>
<div>###</div>
<div>mod1 <- <b><font style="background-color: rgb(255, 64, 64);">Y</font></b> ~ X1 + X2 + X3</div>
<div>mod2 <- W ~ Z1 + Z2 + <b><font style="background-color: rgb(255, 64, 64);">Y</font></b><br>###</div>
<div>Valeu</div>
<div>Samuel </div>
<div style="font-family: courier,monaco,monospace,sans-serif;"><font size="3"><b>====================================</b></font></div>
<div style="font-family: courier,monaco,monospace,sans-serif;"><font size="3"><b>Samuel P. C. Carvalho<br></b><font size="2" color="#000000">Mestre em Ciências Florestais [UFLA]</font></font></div>
<div style="font-family: courier,monaco,monospace,sans-serif;"><font size="2" color="#000000">Doutorando em Recursos Florestais [ESALQ/USP]</font></div>
<div style="font-family: courier,monaco,monospace,sans-serif;"><font size="2">=============================================</font></div>
<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>
<br></blockquote></div><br>