<html><body><div style="color:#000; background-color:#fff; font-family:arial, helvetica, sans-serif;font-size:12pt"><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; "><span>Boa tarde senhores!</span></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; "><span><br></span></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; ">Gostaria de saber como posso fazer uma função ler uma variável a partir de um modelo, nls por exemplo. Vamos supor um CMR.</div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; "><br></div><div><div>da <- expand.grid( A=factor( LETTERS[1: 3]), x=1:10)</div><div>da$y <- 10/(1+exp(-( da$x-5)/1) )+rnorm(da$ x,0,0.1)</div><div><br></div><div>n0 <- nls(y~As[A]/ (1+exp(-( x-x0[A])/ S[A])), data=da,</div><div> start=list(As= c(10,10,10) , x0=c(5,5,5), S=c(1,1,1)))</div><div><br></div><div>fun <-
function(modelo){</div><div> mean(all.vars(summary(modelo)$formula)[1])</div><div>} </div></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; "><br></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; ">Percebam que eu quero que a função calcule a média de uma variável, cuja variável foi declarada num determinado modelo. A função acima não dá certo, pois a função entende o seguinte:</div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; "><br></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; ">mean("VARIÁVEL") </div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; "><br></div><div style="font-family: arial, helvetica,
sans-serif; font-size: 12pt; ">Para dar certo, eu acho, a variável não poderia estar entre aspas. Enfim, alguém tem alguma idéia de como eu posso fazer isso?</div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; "><br></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; ">Desde já agradeço a todos.</div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; "><br></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; ">(S,f,P)</div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; ">Allaman</div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; background-color: transparent; " align="center"><font style="background-color:transparent;" face="comic sans ms" size="2"><font size="1"><b><br></b></font></font></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; text-align: left; background-color:
transparent; " align="center"><font style="background-color:transparent;"><font face="courier, monaco, monospace, sans-serif" size="2">\begin{signature}</font></font></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; text-align: left; background-color: transparent; " align="center"><font style="background-color:transparent;"><font face="courier, monaco, monospace, sans-serif" size="2"><<>>=</font></font></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; text-align: left; background-color: transparent; " align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">Prof. Dr. Ivan Bezerra Allaman</font></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; text-align: left; background-color: transparent; " align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">Universidade Estadual de
Santa Cruz</font></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; text-align: left; background-color: transparent; " align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">Departamento de Ciências Exatas e Tecnológicas</font></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; text-align: left; background-color: transparent; " align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">Ilhéus/BA - Brasil</font></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; text-align: left; background-color: transparent; " align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">Fone: +55 73 3680-5076</font></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; text-align: left; background-color: transparent; " align="center"><font
class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">E-mail: ivanalaman@yahoo.com.br/ivanalaman@gmail.com</font></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; text-align: left; background-color: transparent; " align="center"><font style="background-color:transparent;"><font face="courier, monaco, monospace, sans-serif" size="2">@</font></font></div><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; text-align: left; background-color: transparent; " align="center"><font style="background-color:transparent;"><font face="courier, monaco, monospace, sans-serif" size="2">\end{signature}</font></font></div></div></body></html>