Nothing
# 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)
}
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.