R/RcppExports.R

Defines functions calc_modelfit_lpml calc_modelfit_pearson mhpd vhpd pearson_parcov dic_parcov lpml_parcov fmodel4p fmodel4 fmodel3pp fmodel3 fmodel2p5p fmodel2p5 fmodel2p fmodel2 fmodel1p fmodel1 calc_modelfit_dic BayesNMR

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

BayesNMR <- function(y, sd, x, z, ids, iarm, npt, nu, c01_inv, c02_inv, a4, b4, a5, b5, K, nT, ndiscard, nskip, nkeep, verbose, theta_init, phi_init, sig2_init, Rho_init, lambda_stepsize, phi_stepsize, Rho_stepsize, sample_Rho, sample_df) {
    .Call(`_metapack_BayesNMR`, y, sd, x, z, ids, iarm, npt, nu, c01_inv, c02_inv, a4, b4, a5, b5, K, nT, ndiscard, nskip, nkeep, verbose, theta_init, phi_init, sig2_init, Rho_init, lambda_stepsize, phi_stepsize, Rho_stepsize, sample_Rho, sample_df)
}

calc_modelfit_dic <- function(y, x, z, ids, iarm, npt, dfs, nu, betas, sig2s, phis, lams, Rhos, K, nT, nkeep, sample_df, verbose, ncores) {
    .Call(`_metapack_calc_modelfit_dic`, y, x, z, ids, iarm, npt, dfs, nu, betas, sig2s, phis, lams, Rhos, K, nT, nkeep, sample_df, verbose, ncores)
}

fmodel1 <- function(Outcome, SD, XCovariate, WCovariate, Treat, Trial, Npt, c0, dj0, a0, b0, Omega0, K, T, ndiscard, nskip, nkeep, theta_init, gamR_init, Omega_init, verbose) {
    .Call(`_metapack_fmodel1`, Outcome, SD, XCovariate, WCovariate, Treat, Trial, Npt, c0, dj0, a0, b0, Omega0, K, T, ndiscard, nskip, nkeep, theta_init, gamR_init, Omega_init, verbose)
}

fmodel1p <- function(Outcome, SD, XCovariate, WCovariate, Treat, Trial, Second, Npt, c0, dj0, a0, b0, Omega0, K, T, ndiscard, nskip, nkeep, theta_init, gamR_init, Omega_init, verbose) {
    .Call(`_metapack_fmodel1p`, Outcome, SD, XCovariate, WCovariate, Treat, Trial, Second, Npt, c0, dj0, a0, b0, Omega0, K, T, ndiscard, nskip, nkeep, theta_init, gamR_init, Omega_init, verbose)
}

fmodel2 <- function(Outcome, SD, XCovariate, WCovariate, Treat, Trial, Npt, c0, dj0, s0, Omega0, Sigma0, K, T, ndiscard, nskip, nkeep, R_stepsize, theta_init, gamR_init, Omega_init, verbose) {
    .Call(`_metapack_fmodel2`, Outcome, SD, XCovariate, WCovariate, Treat, Trial, Npt, c0, dj0, s0, Omega0, Sigma0, K, T, ndiscard, nskip, nkeep, R_stepsize, theta_init, gamR_init, Omega_init, verbose)
}

fmodel2p <- function(Outcome, SD, XCovariate, WCovariate, Treat, Trial, Second, Npt, c0, dj0, s0, Omega0, Sigma0, K, T, ndiscard, nskip, nkeep, R_stepsize, theta_init, gamR_init, Omega_init, verbose) {
    .Call(`_metapack_fmodel2p`, Outcome, SD, XCovariate, WCovariate, Treat, Trial, Second, Npt, c0, dj0, s0, Omega0, Sigma0, K, T, ndiscard, nskip, nkeep, R_stepsize, theta_init, gamR_init, Omega_init, verbose)
}

fmodel2p5 <- function(Outcome, SD, XCovariate, WCovariate, Treat, Trial, Npt, c0, dj0, s0, Omega0, Sigma0, K, T, ndiscard, nskip, nkeep, R_stepsize, theta_init, gamR_init, Omega_init, verbose) {
    .Call(`_metapack_fmodel2p5`, Outcome, SD, XCovariate, WCovariate, Treat, Trial, Npt, c0, dj0, s0, Omega0, Sigma0, K, T, ndiscard, nskip, nkeep, R_stepsize, theta_init, gamR_init, Omega_init, verbose)
}

fmodel2p5p <- function(Outcome, SD, XCovariate, WCovariate, Treat, Trial, Second, Npt, c0, dj0, s0, Omega0, Sigma0, K, T, ndiscard, nskip, nkeep, R_stepsize, theta_init, gamR_init, Omega_init, verbose) {
    .Call(`_metapack_fmodel2p5p`, Outcome, SD, XCovariate, WCovariate, Treat, Trial, Second, Npt, c0, dj0, s0, Omega0, Sigma0, K, T, ndiscard, nskip, nkeep, R_stepsize, theta_init, gamR_init, Omega_init, verbose)
}

fmodel3 <- function(Outcome, SD, XCovariate, WCovariate, Treat, Trial, Npt, c0, dj0, a0, b0, Omega0, K, T, ndiscard, nskip, nkeep, delta_stepsize, Rho_stepsize, R_stepsize, theta_init, gamR_init, Omega_init, Rho_init, sample_Rho, verbose) {
    .Call(`_metapack_fmodel3`, Outcome, SD, XCovariate, WCovariate, Treat, Trial, Npt, c0, dj0, a0, b0, Omega0, K, T, ndiscard, nskip, nkeep, delta_stepsize, Rho_stepsize, R_stepsize, theta_init, gamR_init, Omega_init, Rho_init, sample_Rho, verbose)
}

fmodel3pp <- function(Outcome, SD, XCovariate, WCovariate, Treat, Trial, Second, Npt, c0, dj0, a0, b0, Omega0, K, T, ndiscard, nskip, nkeep, delta_stepsize, Rho_stepsize, R_stepsize, theta_init, gamR_init, Omega_init, Rho_init, sample_Rho, verbose) {
    .Call(`_metapack_fmodel3pp`, Outcome, SD, XCovariate, WCovariate, Treat, Trial, Second, Npt, c0, dj0, a0, b0, Omega0, K, T, ndiscard, nskip, nkeep, delta_stepsize, Rho_stepsize, R_stepsize, theta_init, gamR_init, Omega_init, Rho_init, sample_Rho, verbose)
}

fmodel4 <- function(Outcome, SD, XCovariate, WCovariate, Treat, Trial, Npt, c0, dj0, d0, nu0, Sigma0, Omega0, K, T, ndiscard, nskip, nkeep, delta_stepsize, Rho_stepsize, R_stepsize, theta_init, gamR_init, Omega_init, verbose) {
    .Call(`_metapack_fmodel4`, Outcome, SD, XCovariate, WCovariate, Treat, Trial, Npt, c0, dj0, d0, nu0, Sigma0, Omega0, K, T, ndiscard, nskip, nkeep, delta_stepsize, Rho_stepsize, R_stepsize, theta_init, gamR_init, Omega_init, verbose)
}

fmodel4p <- function(Outcome, SD, XCovariate, WCovariate, Treat, Trial, Second, Npt, c0, dj0, d0, nu0, Sigma0, Omega0, K, T, ndiscard, nskip, nkeep, delta_stepsize, Rho_stepsize, R_stepsize, theta_init, gamR_init, Omega_init, verbose) {
    .Call(`_metapack_fmodel4p`, Outcome, SD, XCovariate, WCovariate, Treat, Trial, Second, Npt, c0, dj0, d0, nu0, Sigma0, Omega0, K, T, ndiscard, nskip, nkeep, delta_stepsize, Rho_stepsize, R_stepsize, theta_init, gamR_init, Omega_init, verbose)
}

lpml_parcov <- function(Outcome, XCovariate, WCovariate, Npt, Sigma, Omega, theta, thetahat, Sigmahat, Omegahat, fmodel, nkeep, verbose, grouped, Second, ncores) {
    .Call(`_metapack_lpml_parcov`, Outcome, XCovariate, WCovariate, Npt, Sigma, Omega, theta, thetahat, Sigmahat, Omegahat, fmodel, nkeep, verbose, grouped, Second, ncores)
}

dic_parcov <- function(Outcome, XCovariate, WCovariate, Npt, Sigma, Omega, theta, thetahat, Sigmahat, Omegahat, fmodel, nkeep, verbose, grouped, Second, ncores) {
    .Call(`_metapack_dic_parcov`, Outcome, XCovariate, WCovariate, Npt, Sigma, Omega, theta, thetahat, Sigmahat, Omegahat, fmodel, nkeep, verbose, grouped, Second, ncores)
}

pearson_parcov <- function(resid, Npt, Sigma, fmodel, nkeep, verbose) {
    .Call(`_metapack_pearson_parcov`, resid, Npt, Sigma, fmodel, nkeep, verbose)
}

vhpd <- function(x, alpha) {
    .Call(`_metapack_vhpd`, x, alpha)
}

mhpd <- function(x, alpha) {
    .Call(`_metapack_mhpd`, x, alpha)
}

calc_modelfit_pearson <- function(resid, npt, sig2s, nkeep, verbose) {
    .Call(`_metapack_calc_modelfit_pearson`, resid, npt, sig2s, nkeep, verbose)
}

calc_modelfit_lpml <- function(y, x, z, ids, iarm, npt, dfs, nu, betas, sig2s, phis, lams, Rhos, K, nT, nkeep, sample_df, verbose, ncores) {
    .Call(`_metapack_calc_modelfit_lpml`, y, x, z, ids, iarm, npt, dfs, nu, betas, sig2s, phis, lams, Rhos, K, nT, nkeep, sample_df, verbose, ncores)
}

Try the metapack package in your browser

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

metapack documentation built on May 29, 2024, 8:45 a.m.