R/RcppExports.R

# 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, tilde_lambda, R0, kernel_type, alpha, inv_output_weights) {
    .Call('_RobustCalibration_Get_R_z_new', PACKAGE = 'RobustCalibration', beta_delta, eta_delta, tilde_lambda, 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) {
    .Call('_RobustCalibration_Sample_sigma_2_theta_m', PACKAGE = 'RobustCalibration', param, L_cur, output, p_theta, p_x, X, have_mean, cm_obs)
}

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

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

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

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

Try the RobustCalibration package in your browser

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

RobustCalibration documentation built on May 2, 2019, 9:36 a.m.