R/RcppExports.R

In RobustCalibration: Robust Calibration of Imperfect Mathematical Models

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

Chol_Eigen <- function(R) {
    .Call('_RobustCalibration_Chol_Eigen', PACKAGE = 'RobustCalibration', R)
}

Mogihammer <- function(obsCoords, m, simul_type) {
    .Call('_RobustCalibration_Mogihammer', PACKAGE = 'RobustCalibration', obsCoords, m, simul_type)
}

Accept_proposal <- function(r) {
    .Call('_RobustCalibration_Accept_proposal', PACKAGE = 'RobustCalibration', r)
}

Get_R_z_new <- function(beta_delta, eta_delta, lambda_z, R0, kernel_type, alpha, inv_output_weights) {
    .Call('_RobustCalibration_Get_R_z_new', PACKAGE = 'RobustCalibration', beta_delta, eta_delta, lambda_z, R0, kernel_type, alpha, inv_output_weights)
}

Get_R_new <- function(beta_delta, eta_delta, R0, kernel_type, alpha, inv_output_weights) {
    .Call('_RobustCalibration_Get_R_new', PACKAGE = 'RobustCalibration', beta_delta, eta_delta, R0, kernel_type, alpha, inv_output_weights)
}

Sample_sigma_2_theta_m <- function(param, L_cur, output, p_theta, p_x, X, have_mean, cm_obs, S_2_f, num_obs_all) {
    .Call('_RobustCalibration_Sample_sigma_2_theta_m', PACKAGE = 'RobustCalibration', param, L_cur, output, p_theta, p_x, X, have_mean, cm_obs, S_2_f, num_obs_all)
}

Log_marginal_post <- function(param, L_cur, output, p_theta, p_x, X, have_mean, CL, a, b, cm_obs, S_2_f, num_obs_all) {
    .Call('_RobustCalibration_Log_marginal_post', PACKAGE = 'RobustCalibration', param, L_cur, output, p_theta, p_x, X, have_mean, CL, a, b, cm_obs, S_2_f, num_obs_all)
}

Sample_sigma_2_theta_m_no_discrepancy <- function(param, output, p_theta, X, have_mean, inv_output_weights, cm_obs, S_2_f, num_obs_all) {
    .Call('_RobustCalibration_Sample_sigma_2_theta_m_no_discrepancy', PACKAGE = 'RobustCalibration', param, output, p_theta, X, have_mean, inv_output_weights, cm_obs, S_2_f, num_obs_all)
}

Log_marginal_post_no_discrepancy <- function(param, output, p_theta, X, have_mean, inv_output_weights, cm_obs, S_2_f, num_obs_all) {
    .Call('_RobustCalibration_Log_marginal_post_no_discrepancy', PACKAGE = 'RobustCalibration', param, output, p_theta, X, have_mean, inv_output_weights, cm_obs, S_2_f, num_obs_all)
}

Update_R_inv_y <- function(R_inv_y, R0, beta_delta, kernel_type, alpha, lambda_z, num_obs) {
    .Call('_RobustCalibration_Update_R_inv_y', PACKAGE = 'RobustCalibration', R_inv_y, R0, beta_delta, kernel_type, alpha, lambda_z, num_obs)
}

Get_inv_all <- function(param, lambda_z, is_SGaSP, R0, kernel_type, alpha_list, p_x, num_sources) {
    .Call('_RobustCalibration_Get_inv_all', PACKAGE = 'RobustCalibration', param, lambda_z, is_SGaSP, R0, kernel_type, alpha_list, p_x, num_sources)
}

Sample_delta <- function(cov_inv_all, tilde_output_cur, param, p_x, num_sources, num_obs, rand_norm) {
    .Call('_RobustCalibration_Sample_delta', PACKAGE = 'RobustCalibration', cov_inv_all, tilde_output_cur, param, p_x, num_sources, num_obs, rand_norm)
}

Log_marginal_post_delta <- function(param, L, delta, p_x, CL, a, b) {
    .Call('_RobustCalibration_Log_marginal_post_delta', PACKAGE = 'RobustCalibration', param, L, delta, p_x, CL, a, b)
}

Log_profile_lik <- function(param, discrepancy_type, output, p_theta, p_x, X, have_mean, cm_obs, lambda_z, R0, kernel_type, alpha, inv_output_weights, num_obs_all, S_2_f) {
    .Call('_RobustCalibration_Log_profile_lik', PACKAGE = 'RobustCalibration', param, discrepancy_type, output, p_theta, p_x, X, have_mean, cm_obs, lambda_z, R0, kernel_type, alpha, inv_output_weights, num_obs_all, S_2_f)
}

Loss_function_no_discrepancy <- function(output, p_theta, X, have_mean, cm_obs, inv_output_weights, num_obs_all, S_2_f) {
    .Call('_RobustCalibration_Loss_function_no_discrepancy', PACKAGE = 'RobustCalibration', output, p_theta, X, have_mean, cm_obs, inv_output_weights, num_obs_all, S_2_f)
}