R/RcppExports.R

Defines functions Loss_function_no_discrepancy Log_profile_lik Log_marginal_post_delta Sample_delta Get_inv_all Update_R_inv_y Log_marginal_post_no_discrepancy Sample_sigma_2_theta_m_no_discrepancy Log_marginal_post Sample_sigma_2_theta_m Get_R_new Get_R_z_new Accept_proposal Mogihammer Chol_Eigen

Documented in Accept_proposal Chol_Eigen Get_inv_all Get_R_new Get_R_z_new Log_marginal_post Log_marginal_post_delta Log_marginal_post_no_discrepancy Mogihammer Sample_delta Sample_sigma_2_theta_m Sample_sigma_2_theta_m_no_discrepancy Update_R_inv_y

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

Try the RobustCalibration package in your browser

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

RobustCalibration documentation built on Sept. 19, 2022, 1:06 a.m.