R/RcppExports.R

In PCpluS: Piecewise Constant Plus Smooth Regression

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

.createS <- function(n, K) {
    .Call(`_PCpluS_createS`, n, K)
}

.createImSX <- function(n, K) {
    .Call(`_PCpluS_createImSX`, n, K)
}

.createImSXnumerator <- function(n, K) {
    .Call(`_PCpluS_createImSXnumerator`, n, K)
}

.prepareImSXcv <- function(K, Vm1, modValues) {
    .Call(`_PCpluS_prepareImSXcv`, K, Vm1, modValues)
}

.createImSXcv <- function(n, precomputed, maxLeft, maxRight, rows) {
    .Call(`_PCpluS_createImSXcv`, n, precomputed, maxLeft, maxRight, rows)
}

.kernelSmoothing <- function(Y, K) {
    .Call(`_PCpluS_kernelSmoothing`, Y, K)
}

.kernelSmoothingEpanechnikov <- function(Y, h) {
    .Call(`_PCpluS_kernelSmoothingEpanechnikov`, Y, h)
}

.kernelSmoothingEpanechnikovCVleft <- function(Y, h) {
    .Call(`_PCpluS_kernelSmoothingEpanechnikovCVleft`, Y, h)
}

.kernelSmoothingEpanechnikovCVright <- function(Y, h) {
    .Call(`_PCpluS_kernelSmoothingEpanechnikovCVright`, Y, h)
}

.CVkernelSmoothing <- function(Y, K) {
    .Call(`_PCpluS_CVkernelSmoothing`, Y, K)
}

.kernelSmoothingVfold <- function(Y, K, V, fold) {
    .Call(`_PCpluS_kernelSmoothingVfold`, Y, K, V, fold)
}

.kernelSmoothingVfoldMJ <- function(Y, K, lengthMJ) {
    .Call(`_PCpluS_kernelSmoothingVfoldMJ`, Y, K, lengthMJ)
}

.lassoImSX <- function(y2, bandwidth, cusumKernel2, Xty2, XtX2, isComputedXtX2, XtXgap2, ImSX2, isComputedImSX2, lambda, thresh, maxit) {
    .Call(`_PCpluS_lassoImSX`, y2, bandwidth, cusumKernel2, Xty2, XtX2, isComputedXtX2, XtXgap2, ImSX2, isComputedImSX2, lambda, thresh, maxit)
}

.getXty <- function(y, bandwidth, cusumKernel2, Xty2, XtX2, isComputedXtX2, XtXgap2, ImSX2, isComputedImSX2) {
    .Call(`_PCpluS_getXty`, y, bandwidth, cusumKernel2, Xty2, XtX2, isComputedXtX2, XtXgap2, ImSX2, isComputedImSX2)
}

.getXtX <- function(y2, bandwidth) {
    .Call(`_PCpluS_getXtX`, y2, bandwidth)
}

.initializeKernel <- function(y2, bandwidth, cusumKernel2, Xty2, XtX2, isComputedXtX2, XtXgap2, ImSX2, isComputedImSX2) {
    invisible(.Call(`_PCpluS_initializeKernel`, y2, bandwidth, cusumKernel2, Xty2, XtX2, isComputedXtX2, XtXgap2, ImSX2, isComputedImSX2))
}

.postProcessing <- function(J, y2, bandwidth, cusumKernel2, Xty2, XtX2, isComputedXtX2, XtXgap2, ImSX2, isComputedImSX2) {
    .Call(`_PCpluS_postProcessing`, J, y2, bandwidth, cusumKernel2, Xty2, XtX2, isComputedXtX2, XtXgap2, ImSX2, isComputedImSX2)
}