pode ajudar<div><br></div><div>options(warn=-1) <br><br><div class="gmail_quote">Em 13 de junho de 2012 08:39, Emmanuel Arnhold <span dir="ltr"><<a href="mailto:emmanuelarnhold@yahoo.com.br" target="_blank">emmanuelarnhold@yahoo.com.br</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div style="font-size:12pt;font-family:Courier New,courier,monaco,monospace,sans-serif"><div><span>Grande Ivan.Funcionou perfeitamente!! Muitíssimo Obrigado.</span></div>
<div><br></div> <div style="font-size:12pt;font-family:'Courier New',courier,monaco,monospace,sans-serif"> <div style="font-size:12pt;font-family:'times new roman','new york',times,serif"> <div dir="ltr">
<font face="Arial"> <hr size="1"> <b><span style="font-weight:bold">De:</span></b> Ivan Bezerra Allaman <<a href="mailto:ivanalaman@yahoo.com.br" target="_blank">ivanalaman@yahoo.com.br</a>><br> <b><span style="font-weight:bold">Para:</span></b> R Brasil <<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>> <br>
<b><span style="font-weight:bold">Enviadas:</span></b> Quarta-feira, 13 de Junho de 2012 7:51<br> <b><span style="font-weight:bold">Assunto:</span></b> Re: [R-br] Tornar mensagens de erro "invisíveis" em função<br>
</font> </div><div><div class="h5"> <br><div><div><div style="font-size:12pt;font-family:arial,helvetica,sans-serif"><div><span>Tente isto,</span></div><div><span><br></span></div><div><span>d<-data.frame(x=1:10, y=rep(c(FALSE,TRUE),c(4,6)))<br>
d<br>glm(y~x, data=d, family=binomial)<br></span></div><div><span><br></span></div><div><span>keepWarnings <- function(expr) {<br> localWarnings <- list()<br> value <- withCallingHandlers(expr,<br> warning = function(w) {<br>
localWarnings[[length(localWarnings)+1]] <<- w<br>
invokeRestart("muffleWarning")<br>
})<br> list(value=value, warnings=localWarnings)<br>} <br></span></div><div><span><br></span></div><div><span>z <- keepWarnings(glm(y~x, data=d, family=binomial))<br>z<br>z$value<br></span></div><div>
<br><span></span></div><div><span>(S,f,P)</span></div><div><span>Allaman</span></div><div> </div><div style="background-color:transparent" align="center"><font style="background-color:transparent" face="comic sans ms" size="2"><font size="1"><b><br>
</b></font></font></div><div style="text-align:left;background-color:transparent" align="center"><font style="background-color:transparent"><font face="courier, monaco, monospace, sans-serif">\begin{signature}</font></font></div>
<div style="text-align:left;background-color:transparent" align="center"><font style="background-color:transparent"><font face="courier, monaco, monospace,
sans-serif"><<>>=</font></font></div><div style="text-align:left;background-color:transparent" align="center"><font face="courier, monaco, monospace, sans-serif">Prof. Dr. Ivan Bezerra Allaman</font></div><div style="text-align:left;background-color:transparent" align="center">
<font face="courier, monaco, monospace, sans-serif">Universidade Estadual de Santa Cruz</font></div><div style="text-align:left;background-color:transparent" align="center"><font face="courier, monaco, monospace, sans-serif">Departamento de Ciências Exatas e Tecnológicas</font></div>
<div style="text-align:left;background-color:transparent" align="center"><font face="courier, monaco, monospace, sans-serif">Ilhéus/BA - Brasil</font></div><div style="text-align:left;background-color:transparent" align="center">
<font face="courier, monaco, monospace, sans-serif">Fone: <a href="tel:%2B55%2073%203680-5596" value="+557336805596" target="_blank">+55 73 3680-5596</a></font></div><div style="text-align:left;background-color:transparent" align="center">
<font face="courier, monaco, monospace, sans-serif">E-mail: <a href="http://ivanalaman@yahoo.com.br/ivanalaman@gmail.com" target="_blank">ivanalaman@yahoo.com.br/ivanalaman@gmail.com</a></font></div><div style="text-align:left;background-color:transparent" align="center">
<font style="background-color:transparent"><font face="courier, monaco, monospace, sans-serif">@</font></font></div><div style="text-align:left;background-color:transparent" align="center"><font style="background-color:transparent"><font face="courier, monaco, monospace, sans-serif">\end{signature}</font></font></div>
</div></div></div><br></div></div>_______________________________________________<br>R-br mailing list<br><a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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><br> </div> </div> </div></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><br clear="all"><div><br></div>-- <br>
Luis Iván Ortiz Valencia<br>Doutorando Saúde Pública - Epidemiologia, IESC, UFRJ<br>Estatístico Msc.<br>Spatial Analyst Msc.<br><br><br>
</div>