R/RcppExports.R

Defines functions h_cpp fill_T find_rowmax outerProd vecmult fill_U make_hC_Obs getRealSQM toeplitz kernel matadd adaptive_bw make_Obs_tilde_C make_Obs_tilde_h dot_sqrt_mat dot_col_cumsum dot_integrate_col dot_integrate

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

dot_integrate <- function(v, r = NULL) {
    .Call(`_fChange_dot_integrate`, v, r)
}

dot_integrate_col <- function(v, r = NULL) {
    .Call(`_fChange_dot_integrate_col`, v, r)
}

dot_col_cumsum <- function(m) {
    .Call(`_fChange_dot_col_cumsum`, m)
}

dot_sqrt_mat <- function(A) {
    .Call(`_fChange_dot_sqrt_mat`, A)
}

make_Obs_tilde_h <- function(Obs) {
    .Call(`_fChange_make_Obs_tilde_h`, Obs)
}

make_Obs_tilde_C <- function(Obs) {
    .Call(`_fChange_make_Obs_tilde_C`, Obs)
}

adaptive_bw <- function(Obs) {
    .Call(`_fChange_adaptive_bw`, Obs)
}

matadd <- function(A, B) {
    .Call(`_fChange_matadd`, A, B)
}

kernel <- function(bw, n) {
    .Call(`_fChange_kernel`, bw, n)
}

toeplitz <- function(v) {
    .Call(`_fChange_toeplitz`, v)
}

getRealSQM <- function(M) {
    .Call(`_fChange_getRealSQM`, M)
}

make_hC_Obs <- function(Obs) {
    .Call(`_fChange_make_hC_Obs`, Obs)
}

fill_U <- function(A_h, norm, hC_Obs, m, n, d) {
    .Call(`_fChange_fill_U`, A_h, norm, hC_Obs, m, n, d)
}

vecmult <- function(M, v) {
    .Call(`_fChange_vecmult`, M, v)
}

outerProd <- function(v, w) {
    .Call(`_fChange_outerProd`, v, w)
}

find_rowmax <- function(U_hC) {
    .Call(`_fChange_find_rowmax`, U_hC)
}

fill_T <- function(hC_Obs, n, d) {
    .Call(`_fChange_fill_T`, hC_Obs, n, d)
}

h_cpp <- function(v1, v2) {
    .Call(`_fChange_h_cpp`, v1, v2)
}

Try the fChange package in your browser

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

fChange documentation built on June 21, 2025, 9:08 a.m.