[R-br] Tornar mensagens de erro "invisíveis" em função

[Ivan Bezerra Allaman]

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
Fone: +55 73 3680-5596
E-mail: ivanalaman em yahoo.com.br/ivanalaman em gmail.com
@
\end{signature}
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20120613/96ac4a61/attachment.html>