R/foo.R

Defines functions foo

#' @export
#' @useDynLib Rryamada

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

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