# 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.