R/RcppExports.R

Defines functions summary_list_q summary_list_mean cube_tcrossprod rmeshedgp_internal spmeshed_predict meshed_mcmc meshed_casc repeat_centroid_perturb mesh_graph_hyper mesh_graph_cpp3 knn_naive cube_from_df mesh_graph_cpp part_axis_parallel_fixed part_axis_parallel kthresholdscp coloring blanket kernp_xy kernp_xx gneiting2002_h Cov_powexp_h Cov_matern_h Cov_matern2 Cov_matern

Documented in summary_list_mean summary_list_q

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

Cov_matern <- function(x, y, sigmasq, phi, nu, tausq, same, nThreads = 1L) {
    .Call(`_meshed_Cov_matern`, x, y, sigmasq, phi, nu, tausq, same, nThreads)
}

Cov_matern2 <- function(x, y, phi, same, twonu) {
    .Call(`_meshed_Cov_matern2`, x, y, phi, same, twonu)
}

Cov_matern_h <- function(h, sigmasq, phi, nu, tausq) {
    .Call(`_meshed_Cov_matern_h`, h, sigmasq, phi, nu, tausq)
}

Cov_powexp_h <- function(h, sigmasq, phi, nu, tausq) {
    .Call(`_meshed_Cov_powexp_h`, h, sigmasq, phi, nu, tausq)
}

gneiting2002_h <- function(h, u, a, c, beta) {
    .Call(`_meshed_gneiting2002_h`, h, u, a, c, beta)
}

kernp_xx <- function(Xcoords, kweights) {
    .Call(`_meshed_kernp_xx`, Xcoords, kweights)
}

kernp_xy <- function(Xcoords, Ycoords, kweights) {
    .Call(`_meshed_kernp_xy`, Xcoords, Ycoords, kweights)
}

blanket <- function(parents, children, names, block_ct_obs) {
    .Call(`_meshed_blanket`, parents, children, names, block_ct_obs)
}

coloring <- function(blanket, block_names, block_ct_obs) {
    .Call(`_meshed_coloring`, blanket, block_names, block_ct_obs)
}

kthresholdscp <- function(x, k) {
    .Call(`_meshed_kthresholdscp`, x, k)
}

part_axis_parallel <- function(coords, Mv, n_threads, verbose = FALSE) {
    .Call(`_meshed_part_axis_parallel`, coords, Mv, n_threads, verbose)
}

part_axis_parallel_fixed <- function(coords, thresholds, n_threads) {
    .Call(`_meshed_part_axis_parallel_fixed`, coords, thresholds, n_threads)
}

mesh_graph_cpp <- function(layers_descr, Mv, verbose = TRUE, both_spatial_axes = TRUE, n_threads = 1L) {
    .Call(`_meshed_mesh_graph_cpp`, layers_descr, Mv, verbose, both_spatial_axes, n_threads)
}

cube_from_df <- function(indices, values) {
    .Call(`_meshed_cube_from_df`, indices, values)
}

knn_naive <- function(x, search_here, weights) {
    .Call(`_meshed_knn_naive`, x, search_here, weights)
}

mesh_graph_cpp3 <- function(blocks_descr) {
    .Call(`_meshed_mesh_graph_cpp3`, blocks_descr)
}

mesh_graph_hyper <- function(bucbl, bavail, na_which, centroids, avcentroids, avblocks, k = 1L) {
    .Call(`_meshed_mesh_graph_hyper`, bucbl, bavail, na_which, centroids, avcentroids, avblocks, k)
}

repeat_centroid_perturb <- function(x, times) {
    .Call(`_meshed_repeat_centroid_perturb`, x, times)
}

meshed_casc <- function(y, family, k, X, coords, parents, children, layer_names, layer_gibbs_group, indexing, indexing_obs, beta_Vi, matern_twonu, start_w, lambda_values, lambda_mask, theta_values, beta, tausq_values, maxit = 1000L, num_threads = 1L, adapting = FALSE, use_cache = TRUE, forced_grid = TRUE, verbose = FALSE, debug = FALSE, print_every = FALSE, casc_beta = TRUE, casc_w = TRUE) {
    .Call(`_meshed_meshed_casc`, y, family, k, X, coords, parents, children, layer_names, layer_gibbs_group, indexing, indexing_obs, beta_Vi, matern_twonu, start_w, lambda_values, lambda_mask, theta_values, beta, tausq_values, maxit, num_threads, adapting, use_cache, forced_grid, verbose, debug, print_every, casc_beta, casc_w)
}

meshed_mcmc <- function(y, family, X, coords, k, parents, children, layer_names, layer_gibbs_group, indexing, indexing_obs, set_unif_bounds_in, beta_Vi, sigmasq_ab, tausq_ab, matern_twonu, start_w, lambda, lambda_mask, theta, beta, tausq, mcmcsd, mcmc_keep = 100L, mcmc_burn = 100L, mcmc_thin = 1L, mcmc_startfrom = 0L, num_threads = 1L, which_hmc = 4L, adapting = FALSE, use_cache = TRUE, forced_grid = TRUE, use_ps = TRUE, verbose = FALSE, debug = FALSE, print_every = FALSE, low_mem = FALSE, sample_beta = TRUE, sample_tausq = TRUE, sample_lambda = TRUE, sample_theta = TRUE, sample_w = TRUE) {
    .Call(`_meshed_meshed_mcmc`, y, family, X, coords, k, parents, children, layer_names, layer_gibbs_group, indexing, indexing_obs, set_unif_bounds_in, beta_Vi, sigmasq_ab, tausq_ab, matern_twonu, start_w, lambda, lambda_mask, theta, beta, tausq, mcmcsd, mcmc_keep, mcmc_burn, mcmc_thin, mcmc_startfrom, num_threads, which_hmc, adapting, use_cache, forced_grid, use_ps, verbose, debug, print_every, low_mem, sample_beta, sample_tausq, sample_lambda, sample_theta, sample_w)
}

spmeshed_predict <- function(predx, predcoords, predblock, coords, parents, block_names, indexing, v_sampled, theta_sampled, lambda_sampled, beta_sampled, tausq_sampled, twonu, use_ps, verbose = FALSE, num_threads = 4L) {
    .Call(`_meshed_spmeshed_predict`, predx, predcoords, predblock, coords, parents, block_names, indexing, v_sampled, theta_sampled, lambda_sampled, beta_sampled, tausq_sampled, twonu, use_ps, verbose, num_threads)
}

rmeshedgp_internal <- function(coords, parents, children, layer_names, layer_gibbs_group, indexing, indexing_obs, matern_twonu, theta, num_threads = 1L, use_cache = TRUE, verbose = FALSE, debug = FALSE) {
    .Call(`_meshed_rmeshedgp_internal`, coords, parents, children, layer_names, layer_gibbs_group, indexing, indexing_obs, matern_twonu, theta, num_threads, use_cache, verbose, debug)
}

cube_tcrossprod <- function(x) {
    .Call(`_meshed_cube_tcrossprod`, x)
}

summary_list_mean <- function(x, n_threads = 1L) {
    .Call(`_meshed_summary_list_mean`, x, n_threads)
}

summary_list_q <- function(x, q, n_threads = 1L) {
    .Call(`_meshed_summary_list_q`, x, q, n_threads)
}

Try the meshed package in your browser

Any scripts or data that you put into this service are public.

meshed documentation built on Sept. 20, 2022, 1:06 a.m.