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 Fone: +55 73 3680-5596 E-mail: ivanalaman@yahoo.com.br/ivanalaman@gmail.com @ \end{signature}
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 Fone: +55 73 3680-5596 E-mail: ivanalaman@yahoo.com.br/ivanalaman@gmail.com @ \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.
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 Fone: +55 73 3680-5596 E-mail: ivanalaman@yahoo.com.br/ivanalaman@gmail.com @ \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.
participantes (3)
-
Emmanuel Arnhold -
Ivan Bezerra Allaman -
Luis Iván Ortiz Valencia