Acho que o único jeito de fazer isso é criando uma classe e definindo o print dela. (o lm nada mais é do que uma lista) a <- list() a[[1]] <- rnorm(1:100) a[[2]] <- rnorm(1:100) a[[3]] <- lm(a[[1]] ~ a[[2]]) print.macaco <- function(x) { print(x[[3]]) } a class(a) <- 'macaco' a 2012/12/13 Leandro Marino <leandromarino@leandromarino.com.br>
Caros,
boa tarde.
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.
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 .
y <- rnorm(100) x <- rbinom(100,10,prob=.2) obj <- lm(y~x) names(obj)
[]s, Leandro
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.