# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
r_maternCov <- function(dist, scale, range, smoothness, nugget) {
.Call(`_telefit_r_maternCov`, dist, scale, range, smoothness, nugget)
}
r_maternArray <- function(dist, scale, range, smoothness, nugget) {
.Call(`_telefit_r_maternArray`, dist, scale, range, smoothness, nugget)
}
r_mc2_rinvwishart <- function(V, n) {
.Call(`_telefit_r_mc2_rinvwishart`, V, n)
}
r_mvrnorm_postKron <- function(y, A, B, nSamples, precision) {
.Call(`_telefit_r_mvrnorm_postKron`, y, A, B, nSamples, precision)
}
r_mvrnorm_post <- function(y, Sigma, nSamples, precision) {
.Call(`_telefit_r_mvrnorm_post`, y, Sigma, nSamples, precision)
}
r_qintnorm <- function(breaks, mu, sigma) {
.Call(`_telefit_r_qintnorm`, breaks, mu, sigma)
}
dtest <- function(x, m, n, k, R, q, ldetR, Sigma) {
.Call(`_telefit_dtest`, x, m, n, k, R, q, ldetR, Sigma)
}
test_gmrf_approx <- function(y, x0) {
.Call(`_telefit_test_gmrf_approx`, y, x0)
}
test_ll <- function(y, lambda) {
.Call(`_telefit_test_ll`, y, lambda)
}
r_dgemkmm <- function(A, B, C) {
.Call(`_telefit_r_dgemkmm`, A, B, C)
}
r_rwishart <- function(V, n) {
.Call(`_telefit_r_rwishart`, V, n)
}
r_rinvwishart <- function(V, n) {
.Call(`_telefit_r_rinvwishart`, V, n)
}
r_dgeikmm <- function(N, A, B) {
.Call(`_telefit_r_dgeikmm`, N, A, B)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.