Nothing
# 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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.