Running ‘arith-ex.R’ [4s/6s]
  Running ‘binomial-etc.R’ [1s/2s]
  Running ‘bit-repr.R’ [1s/1s]
  Running ‘create.R’ [1s/1s]
  Running ‘functionals.R’ [12s/16s]
  Running ‘lowlevel.R’ [1s/1s]
  Running ‘matrix-ex.R’ [1s/1s]
  Running ‘special-fun-dgamma.R’ [27s/35s]
  Running ‘special-fun-ex.R’ [10s/12s]
  Running ‘tstHexBin.R’ [1s/2s]
Running the tests in ‘tests/create.R’ failed.
Complete output:
  > require("Rmpfr")
  Loading required package: Rmpfr
  Loading required package: gmp
  
  Attaching package: 'gmp'
  
  The following objects are masked from 'package:base':
  
      %*%, apply, crossprod, matrix, tcrossprod
  
  C code of R package 'Rmpfr': GMP using 64 bits per limb
  
  
  Attaching package: 'Rmpfr'
  
  The following object is masked from 'package:gmp':
  
      outer
  
  The following objects are masked from 'package:stats':
  
      dbinom, dchisq, dgamma, dnbinom, dnorm, dpois, dt, pgamma, pnorm
  
  The following objects are masked from 'package:base':
  
      cbind, pmax, pmin, rbind
  
  > 
  > ### Simple basic examples of creation of   "mpfr"  objects
  > 
  > pi. <- Const("pi", prec = 260)
  > pi. # nicely prints 80 digits [260 * log10(2) ~= 78.3 ~ 80]
  1 'mpfr' number of precision  260   bits 
  [1] 3.1415926535897932384626433832795028841971693993751058209749445923078164062862088
  > 
  > ## These both failed (in mpfr2str(.)) with a seg.fault:
  > c(mpfr(1, prec=3), pi.)
  2 'mpfr' numbers of precision  3 .. 260  bits 
  [1]                                                                                 1
  [2] 3.1415926535897932384626433832795028841971693993751058209749445923078164062862088
  > m0 <- mpfr(numeric(), prec=64)
  > ## print()ing / str() of 0-length mpfr
  > stopifnot(
  +     grepl("0 'mpfr' numbers", capture.output(    m0)),
  +     grepl("0 'mpfr' numbers", capture.output(str(m0))))
  > 
  > c(m0,m0) # failed in Rmpfr <= 0.6-0
  0 'mpfr' numbers 
  > stopifnot(identical(c(m0,m0), m0),
  + 	  identical(c(m0,pi.), pi.),
  + 	  identical(c(pi.,m0), pi.))
  > 
  > ## This is TRUE for 0 and -0 :
  > Zero <- mpfr(c(0,1/-Inf), 20)
  > stopifnot(mpfrIs0(Zero), is.whole(Zero))
  > stopifnot(mpfr.is.0(Zero))# deprecated but must work
  Warning message:
  In mpfr.is.0(Zero) :*** buffer overflow detected ***: terminated
  Aborted