R/RcppExports.R

In funcharts: Functional Control Charts

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

score <- function(e, lambda, k, huber = TRUE) {
    .Call(`_funcharts_score`, e, lambda, k, huber)
}

score2 <- function(e, lambda, k, huber = TRUE) {
    .Call(`_funcharts_score2`, e, lambda, k, huber)
}

statisticY_EWMA_vec <- function(X, Y_previous, lambda, k, huber) {
    .Call(`_funcharts_statisticY_EWMA_vec`, X, Y_previous, lambda, k, huber)
}

statisticY_EWMA_cpp <- function(X, lambda, k, huber, idx) {
    .Call(`_funcharts_statisticY_EWMA_cpp`, X, lambda, k, huber, idx)
}

calculate_T2 <- function(Y, Vectors, Values) {
    .Call(`_funcharts_calculate_T2`, Y, Vectors, Values)
}

calculate_T2_vec <- function(Y, Vectors, Values) {
    .Call(`_funcharts_calculate_T2_vec`, Y, Vectors, Values)
}

get_RL_cpp <- function(X2, X_IC, idx2, idx_IC, lambda, k, huber, h, Values, Vectors) {
    .Call(`_funcharts_get_RL_cpp`, X2, X_IC, idx2, idx_IC, lambda, k, huber, h, Values, Vectors)
}

der_c <- function(asn, smin, smax, der_0) {
    .Call(`_funcharts_der_c`, asn, smin, smax, der_0)
}

loss_c <- function(z, y, z1, y1, alpha, der_h) {
    .Call(`_funcharts_loss_c`, z, y, z1, y1, alpha, der_h)
}

DP3 <- function(N, M, l, u, range_x, range_tem, grid_t, x_fd_std, der_x_fd_std, delta_x, template_eval, der_template_eval, smin, smax, alpha, lambda, der_0, eval_fd_c) {
    .Call(`_funcharts_DP3`, N, M, l, u, range_x, range_tem, grid_t, x_fd_std, der_x_fd_std, delta_x, template_eval, der_template_eval, smin, smax, alpha, lambda, der_0, eval_fd_c)
}

get_path_list1 <- function(N, M, range_x, range_tem, grid_t, ind_end1, grid_search, P) {
    .Call(`_funcharts_get_path_list1`, N, M, range_x, range_tem, grid_t, ind_end1, grid_search, P)
}

get_path_list2 <- function(N, M, range_x, range_tem, grid_t, ind_end2, grid_search, P) {
    .Call(`_funcharts_get_path_list2`, N, M, range_x, range_tem, grid_t, ind_end2, grid_search, P)
}