Nothing
# 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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.