Rmpfr (version 0.2-3)

mpfr-utils: Rmpfr -- Utilities for Precision Setting, Printing, etc

Description

This page documents utilities from package Rmpfr which are typically not called by the user. In some case the may come handy.

Usage

getPrec(x, base = 10, doNumeric = TRUE, is.mpfr = NA)
mpfr_default_prec(prec)
## S3 method for class 'mpfrArray':
print(x, digits = NULL, drop0trailing = FALSE, \dots)
toNum(from)

Arguments

x, from

an Robject of class "mpfr", or "mpfrArray", respectively.

base

(only when x is character) the base with respect to which x[i] represent numbers; base $b$ must fulfill $2 \le b \le 36$.

doNumeric

logical indicating integer or double typed x should be accepted and a default precision be returned. Should typically be kept at default

is.mpfr

logical indicating if class(x) is already known to be "mpfr"; typically should be kept at default, NA.

prec

a positive integer, or missing.

drop0trailing

logical indicating if trailing "0"s should be omitted.

digits, ...

further arguments to print methods.

Value

• getPrec(x) returns a integer vector of the same length as x,

  mpfr_default_prec() returns the current MPFR default precision, an integer. This is currently not made use of, in all of package Rmpfr, where functions have their own default precision where needed. mpfr_default_prec(prec) sets the current MPFR default precision and returns the previous one; see above.

  toNum(m) returns a numeric array or matrix, when m is of class "mpfrArray" or "mpfrMatrix", respectively. It should be equivalent to as(m, "array") or ... "matrix".

Details

The print method is currentl built on the format method for class mpfr. This, currently does not format columns jointly which leads to suboptimally looking output. There are plans to change this.

See Also

Start using mpfr(..), and compute with these numbers.

Examples

getPrec(as(c(1,pi), "mpfr")) # 128 for both

(opr <- mpfr_default_prec()) ## typically  53, the MPFR system default
stopifnot(opr == (oprec <- mpfr_default_prec(70)),
          70  == mpfr_default_prec())
## and reset it:
mpfr_default_prec(opr)

## Printing of "MPFR" matrices is less nice than R's usual matrix printing:
m <- outer(c(1, 3.14, -1024.5678), c(1, 1e-3, 10,100))
m[3,3] <- round(m[3,3])
m