<html><body><div style="color:#000; background-color:#fff; font-family:arial, helvetica, sans-serif;font-size:12pt"><div>Ótimo PJ!! Muito obrigado!</div><div><br></div><div>Abraço!</div><div><br></div><div>(S,f,P)</div><div>Allaman</div><div> </div><div style="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="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="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="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="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="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="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="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="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="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="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><br></div><div style="font-size: 12pt; font-family: arial, helvetica, sans-serif; "><div style="font-size: 12pt; font-family: 'times new roman', 'new york', times, serif; "><font size="2" face="Arial"><hr size="1"><b><span style="font-weight:bold;">De:</span></b> Paulo Justiniano <paulojus@leg.ufpr.br><br><b><span
style="font-weight: bold;">Para:</span></b> R Brasil <r-br@listas.c3sl.ufpr.br>; Ivan Bezerra Allaman <ivanalaman@yahoo.com.br><br><b><span style="font-weight: bold;">Enviadas:</span></b> Sexta-feira, 30 de Setembro de 2011 17:15<br><b><span style="font-weight: bold;">Assunto:</span></b> Re: [R-br] Função não reconhece variável extraída de um modelo!<br></font><br>Ivan<br><br>outra funcao que pode ajudar nisto é terms()<br>combinada com eval() e outras voce pode ter flexibilidade de manuseio de <br>termos em formulas<br><br>Isto pode evitar por exemplo, copiar variaveis em objetos de saida e ao <br>inves disto, apontar o objeto inicial<br><br>exemplos:<br><br>terms(y ~ x1 * x2)<br>density ~ Asym/(1 + exp((xmid - log(conc))/scal))<br><br>a saida e uma lista com nomes fixos que voce pode entao explorar a <br>estrutura<br><br><br>On Thu, 29 Sep 2011, Ivan Bezerra Allaman wrote:<br><br>> Boa tarde senhores!<br>> <br>> 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.<br>> <br>> da <- expand.grid( A=factor( LETTERS[1: 3]), x=1:10)<br>> da$y <- 10/(1+exp(-( da$x-5)/1) )+rnorm(da$ x,0,0.1)<br>> <br>> n0 <- nls(y~As[A]/ (1+exp(-( x-x0[A])/ S[A])), data=da,<br>> start=list(As= c(10,10,10) , x0=c(5,5,5), S=c(1,1,1)))<br>> <br>> fun <- function(modelo){<br>> mean(all.vars(summary(modelo)$formula)[1])<br>> } <br>> <br>> 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<br>> não dá certo, pois a função entende o seguinte:<br>> <br>>
mean("VARIÁVEL") <br>> <br>> 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?<br>> <br>> Desde já agradeço a todos.<br>> <br>> (S,f,P)<br>> Allaman<br>> <br>> <br>><br>> \begin{signature}<br>><br>> <<>>=<br>><br>>
Prof. Dr. Ivan Bezerra Allaman<br>><br>> Universidade Estadual de Santa Cruz<br>><br>> Departamento de Ciências Exatas e Tecnológicas<br>><br>> Ilhéus/BA - Brasil<br>><br>> Fone: +55 73
3680-5076<br>><br>> E-mail: <a ymailto="mailto:ivanalaman@yahoo.com.br" href="mailto:ivanalaman@yahoo.com.br">ivanalaman@yahoo.com.br</a>/<a ymailto="mailto:ivanalaman@gmail.com" href="mailto:ivanalaman@gmail.com">ivanalaman@gmail.com</a><br>><br>> @<br>><br>> \end{signature}<br>> <br>> <br>><br><br></div></div></div></body></html>