R/it_calls.R

"itCall" <- function(symbol, ...)
{
    args <- list(...)
    CLASSES <- as.character(sapply(args, function(x) class(x)[1L]))
    COPY <- rep(FALSE, length(args))
    .Call(symbol, ..., COPY = COPY, CLASSES = CLASSES, PACKAGE = "ifultools")
}
wconstan/ifultools documentation built on May 5, 2020, 1:28 a.m.