Rmpfr (version 0.9-5)

seqMpfr: "mpfr" Sequence Generation

Description

Generate ‘regular’, i.e., arithmetic sequences. This is in lieu of methods for seq (dispatching on all three of from, to, and by.

Usage

seqMpfr(from = 1, to = 1, by = ((to - from)/(length.out - 1)),
        length.out = NULL, along.with = NULL, ...)

Value

a ‘vector’ of class "mpfr", when one of the first three arguments was.

Arguments

from, to

the starting and (maximal) end value (numeric or "mpfr") of the sequence.

by

number (numeric or "mpfr"): increment of the sequence.

length.out

desired length of the sequence. A non-negative number, which will be rounded up if fractional.

along.with

take the length from the length of this argument.

...

arguments passed to or from methods.

Author

Martin Maechler

Details

see seq (default method in package base), whose semantic we want to replicate (almost).

See Also

The documentation of the base function seq; mpfr

Examples

seqMpfr(0, 1, by = mpfr(0.25, prec=88))

seqMpfr(7, 3) # -> default prec.
# \dontshow{
eq.test <- function(...) {
  args <- list(...)
  r <- do.call(seqMpfr, args)
  is(r, "mpfr") && all(r == do.call(seq, lapply(args, as.numeric)))
}
m <- mpfr(8, 60); m2 <- as(2, "mpfr")
stopifnot(seqMpfr(7,3) == 7:3, seqMpfr(to=1) == 1,
          eq.test(pi),
          eq.test(1,12,3),
          eq.test(1, by= 2, length= 5),
          eq.test(1, by=m2, length= 5),
          eq.test(1, length.out = 8),
          eq.test(1, length.out = m),
          eq.test(1, 8, length.out=8),
          eq.test(1, 8, length.out=m),
          eq.test(1, m, length.out=m),
          eq.test(1, m, length.out=8),
          eq.test(to=17, by= 2, length=4),
          eq.test(to=17, by=m2, length=4),
          TRUE)
# }