R/RcppExports.R

Defines functions compute_param conditional_simulation compute_prediction compute_S_sum compute_Svec compute_S sample_mvt compute_distance buildcov log_objective_prior buildcov_deriv

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

buildcov_deriv <- function(beta, dist, l, covmodel, nugget) {
    .Call(`_ARCokrig_buildcov_deriv`, beta, dist, l, covmodel, nugget)
}

log_objective_prior <- function(beta, dist, RInv, X, covmodel, nugget, prior) {
    .Call(`_ARCokrig_log_objective_prior`, beta, dist, RInv, X, covmodel, nugget, prior)
}

buildcov <- function(phi, dist, covmodel, nugget) {
    .Call(`_ARCokrig_buildcov`, phi, dist, covmodel, nugget)
}

compute_distance <- function(input1, input2) {
    .Call(`_ARCokrig_compute_distance`, input1, input2)
}

sample_mvt <- function(mu, L, sigma, df, nsample) {
    .Call(`_ARCokrig_sample_mvt`, mu, L, sigma, df, nsample)
}

compute_S <- function(output, Q) {
    .Call(`_ARCokrig_compute_S`, output, Q)
}

compute_Svec <- function(output, Q) {
    .Call(`_ARCokrig_compute_Svec`, output, Q)
}

compute_S_sum <- function(y_t, H_t, y_t1, RInv, K) {
    .Call(`_ARCokrig_compute_S_sum`, y_t, H_t, y_t1, RInv, K)
}

compute_prediction <- function(y_t, Ht, y_t1, yhat_t1, vhat_t1, RInv, Hnew, Wnew_t1, Rmo, R_sk) {
    .Call(`_ARCokrig_compute_prediction`, y_t, Ht, y_t1, yhat_t1, vhat_t1, RInv, Hnew, Wnew_t1, Rmo, R_sk)
}

conditional_simulation <- function(y_t, Ht, y_t1, RInv, Hnew, Wnew_t1, Rmo, R_sk) {
    .Call(`_ARCokrig_conditional_simulation`, y_t, Ht, y_t1, RInv, Hnew, Wnew_t1, Rmo, R_sk)
}

compute_param <- function(y_t, Ht, y_t1, RInv) {
    .Call(`_ARCokrig_compute_param`, y_t, Ht, y_t1, RInv)
}
pulongma/ARCokrig documentation built on Sept. 24, 2021, 11:24 p.m.