R/foo.R

Defines functions foo

#' @export
#' @useDynLib ry4

foo <- function(x) {
    stopifnot(is.numeric(x))

    out <- .Fortran("foo", x = as.double(x), n = length(x), PACKAGE = "ry4")
    return(out$x)
}
ryamada22/ry4 documentation built on May 28, 2019, 10:44 a.m.