pode ajudar

options(warn=-1) 

Em 13 de junho de 2012 08:39, Emmanuel Arnhold <emmanuelarnhold@yahoo.com.br> escreveu:
Grande Ivan.Funcionou perfeitamente!! Muitíssimo Obrigado.

De: Ivan Bezerra Allaman <ivanalaman@yahoo.com.br>
Para: R Brasil <r-br@listas.c3sl.ufpr.br>
Enviadas: Quarta-feira, 13 de Junho de 2012 7:51
Assunto: Re: [R-br] Tornar mensagens de erro "invisíveis" em função

Tente isto,

d<-data.frame(x=1:10, y=rep(c(FALSE,TRUE),c(4,6)))
d
glm(y~x, data=d, family=binomial)

keepWarnings <- function(expr) {
    localWarnings <- list()
    value <- withCallingHandlers(expr,
                     warning = function(w) {
                         localWarnings[[length(localWarnings)+1]] <<- w
                         invokeRestart("muffleWarning")
                     })
    list(value=value, warnings=localWarnings)
}

z <- keepWarnings(glm(y~x, data=d, family=binomial))
z
z$value

(S,f,P)
Allaman
 

\begin{signature}
<<>>=
Prof. Dr. Ivan Bezerra Allaman
Universidade Estadual de Santa Cruz
Departamento de Ciências Exatas e Tecnológicas
Ilhéus/BA - Brasil
@
\end{signature}

_______________________________________________
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.


_______________________________________________
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.



--
Luis Iván Ortiz Valencia
Doutorando Saúde Pública - Epidemiologia, IESC, UFRJ
Estatístico Msc.
Spatial Analyst Msc.