R/RcppExports.R

Defines functions set_dim get_sexp_type sumsquared object_address check_missing_dots quantile2 fastcov collapser baselineArray arrayShift cpp_forelse

Documented in sumsquared

# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393

cpp_forelse <- function(data, fun, alt) {
    .Call(`_dipsaus_cpp_forelse`, data, fun, alt)
}

arrayShift <- function(x, tidx, sidx, shift, dims) {
    .Call(`_dipsaus_arrayShift`, x, tidx, sidx, shift, dims)
}

baselineArray <- function(x, bl, dims, bldims, tidx, per, rest, method) {
    .Call(`_dipsaus_baselineArray`, x, bl, dims, bldims, tidx, per, rest, method)
}

collapser <- function(x, dims, keep) {
    .Call(`_dipsaus_collapser`, x, dims, keep)
}

fastcov <- function(x1, x2, nrow, col1, col2, cm1, cm2, df) {
    .Call(`_dipsaus_fastcov`, x1, x2, nrow, col1, col2, cm1, cm2, df)
}

quantile2 <- function(x, q) {
    .Call(`_dipsaus_quantile2`, x, q)
}

check_missing_dots <- function(env) {
    .Call(`_dipsaus_check_missing_dots`, env)
}

object_address <- function(x) {
    .Call(`_dipsaus_object_address`, x)
}

sumsquared <- function(x) {
    .Call(`_dipsaus_sumsquared`, x)
}

get_sexp_type <- function(x) {
    .Call(`_dipsaus_get_sexp_type`, x)
}

set_dim <- function(x, dim) {
    .Call(`_dipsaus_set_dim`, x, dim)
}

Try the dipsaus package in your browser

Any scripts or data that you put into this service are public.

dipsaus documentation built on July 9, 2023, 5:43 p.m.