R/RcppExports.R

Defines functions trapzRcpp interp2lin dropZeroElementsXYWin cumtrapzRcpp Rrotatedmullwlsk RmullwlskUniversalDeriv RmullwlskUniversal RmullwlskCCsort2 RmullwlskCC Rmullwlsk Rcppsort RcppPseudoApprox RCPPvar RCPPmean GetIndCEScoresCPPnewInd GetIndCEScoresCPP CPPlwls1d

Documented in cumtrapzRcpp trapzRcpp

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

CPPlwls1d <- function(bw, kernel_type, win, xin, yin, xout, npoly = 1L, nder = 0L) {
    .Call('_fdapace_CPPlwls1d', PACKAGE = 'fdapace', bw, kernel_type, win, xin, yin, xout, npoly, nder)
}

GetIndCEScoresCPP <- function(yVec, muVec, lamVec, phiMat, SigmaYi) {
    .Call('_fdapace_GetIndCEScoresCPP', PACKAGE = 'fdapace', yVec, muVec, lamVec, phiMat, SigmaYi)
}

GetIndCEScoresCPPnewInd <- function(yVec, muVec, lamVec, phiMat, SigmaYi, newPhi, newMu) {
    .Call('_fdapace_GetIndCEScoresCPPnewInd', PACKAGE = 'fdapace', yVec, muVec, lamVec, phiMat, SigmaYi, newPhi, newMu)
}

RCPPmean <- function(X) {
    .Call('_fdapace_RCPPmean', PACKAGE = 'fdapace', X)
}

RCPPvar <- function(X) {
    .Call('_fdapace_RCPPvar', PACKAGE = 'fdapace', X)
}

RcppPseudoApprox <- function(X, Y, X_target) {
    .Call('_fdapace_RcppPseudoApprox', PACKAGE = 'fdapace', X, Y, X_target)
}

Rcppsort <- function(v) {
    .Call('_fdapace_Rcppsort', PACKAGE = 'fdapace', v)
}

Rmullwlsk <- function(bw, kernel_type, tPairs, cxxn, win, xgrid, ygrid, bwCheck, transp = TRUE) {
    .Call('_fdapace_Rmullwlsk', PACKAGE = 'fdapace', bw, kernel_type, tPairs, cxxn, win, xgrid, ygrid, bwCheck, transp)
}

RmullwlskCC <- function(bw, kernel_type, tPairs, cxxn, win, xgrid, ygrid, bwCheck) {
    .Call('_fdapace_RmullwlskCC', PACKAGE = 'fdapace', bw, kernel_type, tPairs, cxxn, win, xgrid, ygrid, bwCheck)
}

RmullwlskCCsort2 <- function(bw, kernel_type, tPairs, cxxn, win, xgrid, ygrid, bwCheck) {
    .Call('_fdapace_RmullwlskCCsort2', PACKAGE = 'fdapace', bw, kernel_type, tPairs, cxxn, win, xgrid, ygrid, bwCheck)
}

RmullwlskUniversal <- function(bw, kernel_type, tPairs, cxxn, win, xgrid, ygrid, bwCheck, autoCov) {
    .Call('_fdapace_RmullwlskUniversal', PACKAGE = 'fdapace', bw, kernel_type, tPairs, cxxn, win, xgrid, ygrid, bwCheck, autoCov)
}

RmullwlskUniversalDeriv <- function(bw, kernel_type, tPairs, cxxn, win, xgrid, ygrid, npoly, nder1, nder2, bwCheck, autoCov) {
    .Call('_fdapace_RmullwlskUniversalDeriv', PACKAGE = 'fdapace', bw, kernel_type, tPairs, cxxn, win, xgrid, ygrid, npoly, nder1, nder2, bwCheck, autoCov)
}

Rrotatedmullwlsk <- function(bw, kernel_type, tPairs, cxxn, win, xygrid, npoly, bwCheck) {
    .Call('_fdapace_Rrotatedmullwlsk', PACKAGE = 'fdapace', bw, kernel_type, tPairs, cxxn, win, xygrid, npoly, bwCheck)
}

#' Cumulative Trapezoid Rule Numerical Integration
#' 
#' Cumulative Trapezoid Rule Numerical Integration using Rcpp
#' @param X Sorted vector of X values
#' @param Y Vector of Y values.
#' @export 
cumtrapzRcpp <- function(X, Y) {
    .Call('_fdapace_cumtrapzRcpp', PACKAGE = 'fdapace', X, Y)
}

dropZeroElementsXYWin <- function(win, xin, yin) {
    .Call('_fdapace_dropZeroElementsXYWin', PACKAGE = 'fdapace', win, xin, yin)
}

interp2lin <- function(xin, yin, zin, xou, you) {
    .Call('_fdapace_interp2lin', PACKAGE = 'fdapace', xin, yin, zin, xou, you)
}

#' Trapezoid Rule Numerical Integration
#' 
#' Trapezoid Rule Numerical Integration using Rcpp
#' @param X Sorted vector of X values
#' @param Y Vector of Y values.
#' @export
trapzRcpp <- function(X, Y) {
    .Call('_fdapace_trapzRcpp', PACKAGE = 'fdapace', X, Y)
}
hadjipantelis/tPACE documentation built on Aug. 16, 2022, 10:45 a.m.