<div dir="ltr">A solução seria você escrever uma função de teste de Shapiro usando a biblioteca Rmprf!<div><br></div><div>E se você o fizer colocá-la no namespace do pacote Rmprf de tal sorte que o uso dela a ativasse.</div><div><br></div><div>HTH</div><div>--</div><div>Cesar Rabak</div><div><br></div><div>PS.: Não entro na seara, neste post, se faz sentido fazer um teste de Shapiro para números dessa magnitude.</div><div><br></div></div><div class="gmail_extra"><br><div class="gmail_quote">On Mon, Dec 12, 2016 at 11:12 AM, Luiz Leal via R-br <span dir="ltr"><<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div style="color:#000;background-color:#fff;font-family:HelveticaNeue,Helvetica Neue,Helvetica,Arial,Lucida Grande,sans-serif;font-size:16px"><div id="m_-1474220470836468632yui_3_16_0_ym19_1_1481545240019_4502"><span id="m_-1474220470836468632yui_3_16_0_ym19_1_1481545240019_4501">Muito obrigado pela sugestão, mas ocorreu outro problema</span></div><div id="m_-1474220470836468632yui_3_16_0_ym19_1_1481545240019_4502"><span><br></span></div><div id="m_-1474220470836468632yui_3_16_0_ym19_1_1481545240019_4510">> library(Rmpfr)</div><div id="m_-1474220470836468632yui_3_16_0_ym19_1_1481545240019_4511">> p <- mpfr(c(500,600,700)^(-10), precBits=255) - mpfr(1,precBits=255)</div><div id="m_-1474220470836468632yui_3_16_0_ym19_1_1481545240019_4512">> shapiro.test(p)</div><div id="m_-1474220470836468632yui_3_16_0_ym19_1_1481545240019_4513">Erro: is.numeric(x) is not TRUE</div><div id="m_-1474220470836468632yui_3_16_0_ym19_1_1481545240019_4514">> shapiro.test(as.numeric(p))</div><div id="m_-1474220470836468632yui_3_16_0_ym19_1_1481545240019_4502"></div><div dir="ltr" id="m_-1474220470836468632yui_3_16_0_ym19_1_1481545240019_4515">Erro em shapiro.test(as.numeric(p)) : all 'x' values are identical</div><div dir="ltr" id="m_-1474220470836468632yui_3_16_0_ym19_1_1481545240019_4515"><br></div><div dir="ltr" id="m_-1474220470836468632yui_3_16_0_ym19_1_1481545240019_4515">Há como solucionar?</div><div dir="ltr" id="m_-1474220470836468632yui_3_16_0_ym19_1_1481545240019_4515"><br></div><div dir="ltr" id="m_-1474220470836468632yui_3_16_0_ym19_1_1481545240019_4515">Desde já gradeço</div><span class="HOEnZb"><font color="#888888"><div dir="ltr" id="m_-1474220470836468632yui_3_16_0_ym19_1_1481545240019_4515"><br></div><div dir="ltr" id="m_-1474220470836468632yui_3_16_0_ym19_1_1481545240019_4515">Luiz</div></font></span><div><div class="h5"> <div class="m_-1474220470836468632qtdSeparateBR"><br><br></div><div class="m_-1474220470836468632yahoo_quoted" style="display:block"> <div style="font-family:HelveticaNeue,Helvetica Neue,Helvetica,Arial,Lucida Grande,sans-serif;font-size:16px"> <div style="font-family:HelveticaNeue,Helvetica Neue,Helvetica,Arial,Lucida Grande,sans-serif;font-size:16px"> <div dir="ltr"><font size="2" face="Arial"> On Saturday, December 10, 2016 10:25 PM, salah via R-br <<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>> wrote:<br></font></div>  <br><br> <div class="m_-1474220470836468632y_msg_container">segue sugestão<br clear="none"><br clear="none">library(Rmpfr)<br clear="none"><br clear="none">mpfr(500^(-10), precBits = 255) - mpfr(1, precBits = 255)<br clear="none"># 1 'mpfr' number of precision  255   bits<br clear="none"># [1] <br clear="none">-0.<wbr>999999999999999999999999998975<wbr>999999999999914663505297831951<wbr>000646311908486498<br clear="none"><br clear="none">## caracteristica numerica da maquina<br clear="none">.Machine<div class="m_-1474220470836468632yqt2389073563" id="m_-1474220470836468632yqtfd88443"><br clear="none">______________________________<wbr>_________________<br clear="none">R-br mailing list<br clear="none"><a shape="rect" href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br clear="none"><a shape="rect" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/<wbr>cgi-bin/mailman/listinfo/r-br</a><br clear="none">Leia o guia de postagem (<a shape="rect" href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-<wbr>guia</a></div>) e fornea cdigo mnimo reproduzvel.<br><br></div>  </div> </div>  </div></div></div></div></div><br>______________________________<wbr>_________________<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" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/<wbr>cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-<wbr>guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>