Muito obrigado pela sugestão, mas ocorreu outro problema
> library(Rmpfr)
> p <- mpfr(c(500,600,700)^(-10), precBits=255) - mpfr(1,precBits=255)
> shapiro.test(p)
Erro: is.numeric(x) is not TRUE
> shapiro.test(as.numeric(p))
Erro em shapiro.test(as.numeric(p)) : all 'x' values are identical
Há como solucionar?
Desde já gradeço
Luiz
On Saturday, December 10, 2016 10:25 PM, salah via R-br <r-br@listas.c3sl.ufpr.br> wrote:
segue sugestão
library(Rmpfr)
mpfr(500^(-10), precBits = 255) - mpfr(1, precBits = 255)
# 1 'mpfr' number of precision 255 bits
# [1]
-0.999999999999999999999999998975999999999999914663505297831951000646311908486498
## caracteristica numerica da maquina
.Machine
) e fornea cdigo mnimo reproduzvel.