Nothing
# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
crossdist <- function(m1) {
.Call(`_RcppCensSpatial_crossdist`, m1)
}
varianceMat <- function(phi, tau2, sigma2, kappa, dist, type) {
.Call(`_RcppCensSpatial_varianceMat`, phi, tau2, sigma2, kappa, dist, type)
}
Spatial_model <- function(y, X, coords, init_phi, init_tau, lowerp, upperp, type, kappa, Maxiter, tol, infM) {
.Call(`_RcppCensSpatial_Spatial_model`, y, X, coords, init_phi, init_tau, lowerp, upperp, type, kappa, Maxiter, tol, infM)
}
MCEMspatial <- function(y, X, cc, lower, upper, coords, init_phi, init_tau, lowerp, upperp, type, kappa, Maxiter, nMin, nMax, tol, infM) {
.Call(`_RcppCensSpatial_MCEMspatial`, y, X, cc, lower, upper, coords, init_phi, init_tau, lowerp, upperp, type, kappa, Maxiter, nMin, nMax, tol, infM)
}
EMspatial <- function(y, X, cc, lower, upper, coords, init_phi, init_tau, lowerp, upperp, type, kappa, Maxiter, tol, infM) {
.Call(`_RcppCensSpatial_EMspatial`, y, X, cc, lower, upper, coords, init_phi, init_tau, lowerp, upperp, type, kappa, Maxiter, tol, infM)
}
SAEMspatial <- function(y, X, cc, lower, upper, coords, init_phi, init_tau, lowerp, upperp, type, kappa, Maxiter, pc, m, tol, infM) {
.Call(`_RcppCensSpatial_SAEMspatial`, y, X, cc, lower, upper, coords, init_phi, init_tau, lowerp, upperp, type, kappa, Maxiter, pc, m, tol, infM)
}
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.