R/ecd-mpnum-method.R

In ecd: Elliptic Lambda Distribution and Option Pricing Model

#' Wrappers for ecd to maintain consistent type between mpfr and numeric
#'
#' Primarily to make sure \code{x} is converted to mpfr vector if it is not,
#' when \code{use.mpfr} is set.
#'
#' @param object an object of ecd class
#' @param x a vector of numeric or mpfr.
#' @param test logical, test of \code{ifelse}.
#' @param yes return values for true elements of test
#' @param no  return values for false elements of test
#' @param FUN the function to be applied to each element of x
#' @param ... optional arguments to \code{FUN}
#'
#' @return a numeric or mpfr vector
#'
#' @keywords utility
#'
#' @author Stephen H. Lihn
#'
#' @export ecd.mpnum
#' @export ecd.ifelse
#' @export ecd.sapply
#' @export ecd.mcsapply
#'
#' @importFrom parallel mclapply
#'
### <======================================================================>
"ecd.mpnum" <- function(object, x)
{
    if (object@use.mpfr) ecd.mpfr(x) else x
}
### <---------------------------------------------------------------------->
#' @rdname ecd.mpnum
"ecd.ifelse" <- function(object, test, yes, no) {
    rs <- ifelse(test, ecd.mpnum(object, yes), ecd.mpnum(object, no))
    ecd.mpnum(object, rs)
}
### <---------------------------------------------------------------------->
#' @rdname ecd.mpnum
"ecd.sapply" <- function(object, x, FUN, ...) {
    rs <- sapply(x, FUN, ...)
    ecd.mpnum(object, rs)
}
### <---------------------------------------------------------------------->
#' @rdname ecd.mpnum
"ecd.mcsapply" <- function(object, x, FUN, ...) {
    rs <- simplify2array(parallel::mclapply(x, FUN, ...))
    ecd.mpnum(object, rs)
}
### <---------------------------------------------------------------------->