Acho que o único jeito de fazer isso é criando uma classe e definindo o print dela. (o lm nada mais é do que uma lista)<div><br></div><div><div>a <- list()</div><div>a[[1]] <- rnorm(1:100)</div><div>a[[2]] <- rnorm(1:100)</div>
<div>a[[3]] <- lm(a[[1]] ~ a[[2]])</div><div>print.macaco <- function(x) {</div><div> print(x[[3]])</div><div>}</div><div><div>a</div><div>class(a) <- 'macaco'</div></div><div>a</div></div><div><br></div>
<div class="gmail_extra"><br><br><div class="gmail_quote">2012/12/13 Leandro Marino <span dir="ltr"><<a href="mailto:leandromarino@leandromarino.com.br" target="_blank">leandromarino@leandromarino.com.br</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><font color="#333333"><font><font face="trebuchet ms,sans-serif">Caros,</font></font></font><div><font color="#333333"><font><font face="trebuchet ms,sans-serif"><br>
</font></font></font></div><div><font color="#333333"><font><font face="trebuchet ms,sans-serif">boa tarde.</font></font></font></div>

<div><font color="#333333"><font><font face="trebuchet ms,sans-serif"><br></font></font></font></div><div><font color="#333333"><font><font face="trebuchet ms,sans-serif">Gostaria de tirar um dúvida. Estou preparando uma função básica e ela tem 3 objetos distintos de saída sendo um deles o resumo para o usuário e outros a informação linha por linha do arquivo de dados de entrada.</font></font></font></div>


<div><br></div><div><font color="#333333" face="trebuchet ms, sans-serif">O que gostaria de fazer é colocar estes dois últimos objetos escondidos na função de tal forma que quando o usuário rodasse só seria apresentado o resumo. Seria algo equivalente ao que o lm() faz. Se rodo o lm() só aparece o resumo, mas posso extrair os resíduos com o comando lm()$residuals .</font></div>


<div><font color="#333333" face="trebuchet ms, sans-serif"><br></font></div><div><font color="#333333" face="trebuchet ms, sans-serif"><div>y <- rnorm(100)</div><div>x <- rbinom(100,10,prob=.2)</div><div>obj <- lm(y~x)</div>


<div>names(obj)</div><div><br></div><div><br></div><div>[]s,</div><div>Leandro</div></font></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>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>