R/RcppExports.R

In DySS: Dynamic Screening Systems

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

#' @keywords internal
#' @noRd
add_search_control_limit_omit <- function(EE, tt, nobs, imputetime, ATS_nominal, ATS_tol, limit_lower, limit_step, limit_upper, limit_tol) {
    .Call(`_DySS_add_search_control_limit_omit`, EE, tt, nobs, imputetime, ATS_nominal, ATS_tol, limit_lower, limit_step, limit_upper, limit_tol)
}

#' @keywords internal
#' @noRd
add_search_control_limit_impute <- function(EE, tt, nobs, imputetime, ATS_nominal, ATS_tol, limit_lower, limit_step, limit_upper, limit_tol) {
    .Call(`_DySS_add_search_control_limit_impute`, EE, tt, nobs, imputetime, ATS_nominal, ATS_tol, limit_lower, limit_step, limit_upper, limit_tol)
}

chart_CUSUM_univariate_dec <- function(epsij, ttij, nobs, Sigma, kk, ll) {
    .Call(`_DySS_chart_CUSUM_univariate_dec`, epsij, ttij, nobs, Sigma, kk, ll)
}

chart_CUSUM_univariate_sprint <- function(epsij, ttij, nobs, Sigma, kk, ll) {
    .Call(`_DySS_chart_CUSUM_univariate_sprint`, epsij, ttij, nobs, Sigma, kk, ll)
}

#' @keywords internal
#' @noRd
chart_CUSUM_univariate_std <- function(eeij, ttij, nobs, kk, ll) {
    .Call(`_DySS_chart_CUSUM_univariate_std`, eeij, ttij, nobs, kk, ll)
}

chart_EWMA_univariate_dec <- function(epsij, ttij, nobs, Sigma, lambda, ll) {
    .Call(`_DySS_chart_EWMA_univariate_dec`, epsij, ttij, nobs, Sigma, lambda, ll)
}

chart_EWMA_univariate_sprint <- function(epsij, ttij, nobs, Sigma, lambda, ll) {
    .Call(`_DySS_chart_EWMA_univariate_sprint`, epsij, ttij, nobs, Sigma, lambda, ll)
}

#' @keywords internal
#' @noRd
chart_EWMA_univariate_std <- function(eeij, ttij, nobs, lambda, ll) {
    .Call(`_DySS_chart_EWMA_univariate_std`, eeij, ttij, nobs, lambda, ll)
}

#' @keywords internal
#' @noRd
chart_risk <- function(eeij, ttij, nobs, lambda, delta_bar, ll) {
    .Call(`_DySS_chart_risk`, eeij, ttij, nobs, lambda, delta_bar, ll)
}

#' @keywords internal
#' @noRd
eva_calculate_ATS_omit <- function(EE, tt, nobs, imputetime, limit) {
    .Call(`_DySS_eva_calculate_ATS_omit`, EE, tt, nobs, imputetime, limit)
}

#' @keywords internal
#' @noRd
eva_calculate_ATS_impute <- function(EE, tt, nobs, imputetime, limit) {
    .Call(`_DySS_eva_calculate_ATS_impute`, EE, tt, nobs, imputetime, limit)
}

#' @keywords internal
#' @noRd
eva_calculate_signal_times_omit <- function(EE, tt, nobs, imputetime, limit) {
    .Call(`_DySS_eva_calculate_signal_times_omit`, EE, tt, nobs, imputetime, limit)
}

#' @keywords internal
#' @noRd
eva_four_elements_omit <- function(EE_ctrl, tt_ctrl, nvisits_ctrl, EE_case, tt_case, nvisits_case, add_thres) {
    .Call(`_DySS_eva_four_elements_omit`, EE_ctrl, tt_ctrl, nvisits_ctrl, EE_case, tt_case, nvisits_case, add_thres)
}

eva_four_elements_impute <- function(EE_ctrl, tt_ctrl, nvisits_ctrl, imputetime_ctrl, EE_case, tt_case, nvisits_case, imputetime_case, add_thres) {
    .Call(`_DySS_eva_four_elements_impute`, EE_ctrl, tt_ctrl, nvisits_ctrl, imputetime_ctrl, EE_case, tt_case, nvisits_case, imputetime_case, add_thres)
}

#' @keywords internal
#' @noRd
local_const_cov_est_faster <- function(epsij, ttij, nobs, alltimepoints, hh) {
    .Call(`_DySS_local_const_cov_est_faster`, epsij, ttij, nobs, alltimepoints, hh)
}

#' @keywords internal
#' @noRd
local_const_mean_est_faster <- function(yyij, ttij, nobs, alltimepoints, hh) {
    .Call(`_DySS_local_const_mean_est_faster`, yyij, ttij, nobs, alltimepoints, hh)
}

local_const_mean_est_update_faster <- function(yyij, ttij, nobs, alltimepoints, hh, covariance) {
    .Call(`_DySS_local_const_mean_est_update_faster`, yyij, ttij, nobs, alltimepoints, hh, covariance)
}

#' @keywords internal
#' @noRd
local_const_percentile_est_faster <- function(yyij_eva, ttij_eva, nobs_eva, yy_ref, tt_ref, starting_idx, ending_idx, upper_line, ntimepoints, hh_t, hh_y) {
    .Call(`_DySS_local_const_percentile_est_faster`, yyij_eva, ttij_eva, nobs_eva, yy_ref, tt_ref, starting_idx, ending_idx, upper_line, ntimepoints, hh_t, hh_y)
}

#' @keywords internal
#' @noRd
local_linear_cov_est_faster <- function(epsij, ttij, nobs, alltimepoints, hh) {
    .Call(`_DySS_local_linear_cov_est_faster`, epsij, ttij, nobs, alltimepoints, hh)
}

#' @keywords internal
#' @noRd
local_linear_mean_est_faster <- function(yyij, ttij, nobs, alltimepoints, hh) {
    .Call(`_DySS_local_linear_mean_est_faster`, yyij, ttij, nobs, alltimepoints, hh)
}

local_linear_mean_est_update_faster <- function(yyij, ttij, nobs, alltimepoints, hh, covariance) {
    .Call(`_DySS_local_linear_mean_est_update_faster`, yyij, ttij, nobs, alltimepoints, hh, covariance)
}

mchart1_decorrelation_CUSUM_multivariate_both <- function(eps_A, varcov_A, nobs_A, numdim, kk, limit) {
    .Call(`_DySS_mchart1_decorrelation_CUSUM_multivariate_both`, eps_A, varcov_A, nobs_A, numdim, kk, limit)
}

mchart1_decorrelation_CUSUM_multivariate_upward <- function(eps_A, varcov_A, nobs_A, numdim, kk, limit) {
    .Call(`_DySS_mchart1_decorrelation_CUSUM_multivariate_upward`, eps_A, varcov_A, nobs_A, numdim, kk, limit)
}

mchart1_decorrelation_EWMA_multivariate_both <- function(eps_A, varcov_A, nobs_A, numdim, lambda, limit) {
    .Call(`_DySS_mchart1_decorrelation_EWMA_multivariate_both`, eps_A, varcov_A, nobs_A, numdim, lambda, limit)
}

mchart1_decorrelation_EWMA_multivariate_upward <- function(eps_A, varcov_A, nobs_A, numdim, lambda, limit) {
    .Call(`_DySS_mchart1_decorrelation_EWMA_multivariate_upward`, eps_A, varcov_A, nobs_A, numdim, lambda, limit)
}

mchart1_multivariate_CUSUM_multivariate_both <- function(eps_A, nobs_A, var_cube_A, numdim, kk, limit) {
    .Call(`_DySS_mchart1_multivariate_CUSUM_multivariate_both`, eps_A, nobs_A, var_cube_A, numdim, kk, limit)
}

mchart1_multivariate_CUSUM_multivariate_upward <- function(eps_A, nobs_A, var_cube_A, numdim, kk, limit) {
    .Call(`_DySS_mchart1_multivariate_CUSUM_multivariate_upward`, eps_A, nobs_A, var_cube_A, numdim, kk, limit)
}

mchart1_multivariate_EWMA_multivariate_both <- function(eps_A, nobs_A, var_cube_A, numdim, lambda, limit) {
    .Call(`_DySS_mchart1_multivariate_EWMA_multivariate_both`, eps_A, nobs_A, var_cube_A, numdim, lambda, limit)
}

mchart1_multivariate_EWMA_multivariate_upward <- function(eps_A, nobs_A, var_cube_A, numdim, lambda, limit) {
    .Call(`_DySS_mchart1_multivariate_EWMA_multivariate_upward`, eps_A, nobs_A, var_cube_A, numdim, lambda, limit)
}

risk_estimate_beta <- function(yyijk, ttij, nobs, st, ot, delta, yfij, hh, niter = 200L) {
    .Call(`_DySS_risk_estimate_beta`, yyijk, ttij, nobs, st, ot, delta, yfij, hh, niter)
}

risk_estimate_beta_recurrent <- function(xxij, ttij, nobs, ot, xfij, ft, nevent, hh, niter = 200L) {
    .Call(`_DySS_risk_estimate_beta_recurrent`, xxij, ttij, nobs, ot, xfij, ft, nevent, hh, niter)
}

varcov_mat_est <- function(eps_cube, tt_matrix, nobs, alltimepoints, hh) {
    .Call(`_DySS_varcov_mat_est`, eps_cube, tt_matrix, nobs, alltimepoints, hh)
}

#' @keywords internal
#' @noRd
f90addarray_wrap <- function(AA, ndim) {
    .Call(`_DySS_f90addarray_wrap`, AA, ndim)
}

#' @keywords internal
#' @noRd
f90_add_wrap <- function(a, b, c) {
    .Call(`_DySS_f90_add_wrap`, a, b, c)
}

#' @keywords internal
#' @noRd
f90_local_const_mean_est_mult_wrap <- function(yyij, ttij, nobs, nind, nmaxobs, ndim, ntimepoints, hh, mu_est) {
    .Call(`_DySS_f90_local_const_mean_est_mult_wrap`, yyij, ttij, nobs, nind, nmaxobs, ndim, ntimepoints, hh, mu_est)
}

#' @keywords internal
#' @noRd
f90_local_const_var_est_mult_wrap <- function(eps, ttij, nobs, nind, nmaxobs, ndim, ntimepoints, hh, var_est) {
    .Call(`_DySS_f90_local_const_var_est_mult_wrap`, eps, ttij, nobs, nind, nmaxobs, ndim, ntimepoints, hh, var_est)
}

#' @keywords internal
#' @noRd
f90_local_const_cov_est_mult_wrap <- function(eps, ttij, nobs, nind, nmaxobs, ndim, ntimepoints, hh, varcov_est) {
    .Call(`_DySS_f90_local_const_cov_est_mult_wrap`, eps, ttij, nobs, nind, nmaxobs, ndim, ntimepoints, hh, varcov_est)
}

#' @keywords internal
#' @noRd
f90_mchart_simultaneous_CUSUM_both_wrap <- function(eeijk, nobs, nind, nmaxobs, ndim, allowance, limit, CCij, SSijk_upward, SSijk_downward) {
    .Call(`_DySS_f90_mchart_simultaneous_CUSUM_both_wrap`, eeijk, nobs, nind, nmaxobs, ndim, allowance, limit, CCij, SSijk_upward, SSijk_downward)
}

#' @keywords internal
#' @noRd
f90_mchart_simultaneous_CUSUM_upward_wrap <- function(eeijk, nobs, nind, nmaxobs, ndim, allowance, limit, CCij, SSijk_upward) {
    .Call(`_DySS_f90_mchart_simultaneous_CUSUM_upward_wrap`, eeijk, nobs, nind, nmaxobs, ndim, allowance, limit, CCij, SSijk_upward)
}

#' @keywords internal
#' @noRd
f90_mchart_simultaneous_EWMA_both_wrap <- function(eeijk, nobs, nind, nmaxobs, ndim, lambda, limit, CCij, SSijk) {
    .Call(`_DySS_f90_mchart_simultaneous_EWMA_both_wrap`, eeijk, nobs, nind, nmaxobs, ndim, lambda, limit, CCij, SSijk)
}

#' @keywords internal
#' @noRd
f90_mchart_simultaneous_EWMA_upward_wrap <- function(eeijk, nobs, nind, nmaxobs, ndim, lambda, limit, CCij, SSijk) {
    .Call(`_DySS_f90_mchart_simultaneous_EWMA_upward_wrap`, eeijk, nobs, nind, nmaxobs, ndim, lambda, limit, CCij, SSijk)
}