R/RcppExports.R

In flam: Fits Piecewise Constant Models with Data-Adaptive Knots

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

tf_dp <- function(n, y, lam) {
    .Call('_flam_tf_dp', PACKAGE = 'flam', n, y, lam)
}

updatecolumn <- function(thetamat, column, colnum, nrow) {
    invisible(.Call('_flam_updatecolumn', PACKAGE = 'flam', thetamat, column, colnum, nrow))
}

updatevector <- function(vector, update, length) {
    invisible(.Call('_flam_updatevector', PACKAGE = 'flam', vector, update, length))
}

updateresidual <- function(resid, y, thetamat, j, n, p) {
    invisible(.Call('_flam_updateresidual', PACKAGE = 'flam', resid, y, thetamat, j, n, p))
}

calcsum <- function(thetamat, n, p) {
    .Call('_flam_calcsum', PACKAGE = 'flam', thetamat, n, p)
}

order_ <- function(x) {
    .Call('_flam_order_', PACKAGE = 'flam', x)
}

maxLambda_a1_C_single <- function(ycenter, xcol, n) {
    .Call('_flam_maxLambda_a1_C_single', PACKAGE = 'flam', ycenter, xcol, n)
}

ordertheta <- function(thetamat, orderx, i, n) {
    .Call('_flam_ordertheta', PACKAGE = 'flam', thetamat, orderx, i, n)
}

orderthetamat <- function(thetamat, orderx, n, p) {
    .Call('_flam_orderthetamat', PACKAGE = 'flam', thetamat, orderx, n, p)
}

flamstep <- function(initialthetamat, y, lambda, alpha, n, p, orderx, rankx, tolerance) {
    .Call('_flam_flamstep', PACKAGE = 'flam', initialthetamat, y, lambda, alpha, n, p, orderx, rankx, tolerance)
}

flamsteplogistic <- function(initialthetamat, y, lambda, alpha, n, p, orderx, rankx, tolerance) {
    .Call('_flam_flamsteplogistic', PACKAGE = 'flam', initialthetamat, y, lambda, alpha, n, p, orderx, rankx, tolerance)
}