R/RcppExports.R

Defines functions score_test wma_cp csqei rs_sum pcg_sparse pcg_dense logdet_gkb_dense logdet_gkb_sp logdet_lanczos_sp logdet_gkb wma_mv logdet_lanczos logdet_ch logdethmcmdense logdeth invsph cswei

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

cswei <- function(w_v, rs_rs, ind, rev) {
    .Call('_coxmeg_cswei', PACKAGE = 'coxmeg', w_v, rs_rs, ind, rev)
}

invsph <- function(A, der, dv, v1, mx, v2, v3, v4, av, bw, f, inv, tau, sol) {
    .Call('_coxmeg_invsph', PACKAGE = 'coxmeg', A, der, dv, v1, mx, v2, v3, v4, av, bw, f, inv, tau, sol)
}

logdeth <- function(A, dv, bw_v, w, cs_p, v4, a, tau, inv, detap) {
    .Call('_coxmeg_logdeth', PACKAGE = 'coxmeg', A, dv, bw_v, w, cs_p, v4, a, tau, inv, detap)
}

logdethmcmdense <- function(A, dv, bw_v, w, cs_p, v4, a) {
    .Call('_coxmeg_logdethmcmdense', PACKAGE = 'coxmeg', A, dv, bw_v, w, cs_p, v4, a)
}

logdet_ch <- function(X_m, rad_m, bma_d, bpa_d, cj_v) {
    .Call('_coxmeg_logdet_ch', PACKAGE = 'coxmeg', X_m, rad_m, bma_d, bpa_d, cj_v)
}

logdet_lanczos <- function(X_m, rad_m, m_d) {
    .Call('_coxmeg_logdet_lanczos', PACKAGE = 'coxmeg', X_m, rad_m, m_d)
}

wma_mv <- function(X_m, w_v, rs_rs, rs_cs, ind, av2, n, t) {
    .Call('_coxmeg_wma_mv', PACKAGE = 'coxmeg', X_m, w_v, rs_rs, rs_cs, ind, av2, n, t)
}

logdet_gkb <- function(X_m, bw_v, tau, w_v, rs_rs, rs_cs, ind, av2, rad_m, m_d) {
    .Call('_coxmeg_logdet_gkb', PACKAGE = 'coxmeg', X_m, bw_v, tau, w_v, rs_rs, rs_cs, ind, av2, rad_m, m_d)
}

logdet_lanczos_sp <- function(X_m, rad_m, m_d) {
    .Call('_coxmeg_logdet_lanczos_sp', PACKAGE = 'coxmeg', X_m, rad_m, m_d)
}

logdet_gkb_sp <- function(X_m, rad_m, m_d) {
    .Call('_coxmeg_logdet_gkb_sp', PACKAGE = 'coxmeg', X_m, rad_m, m_d)
}

logdet_gkb_dense <- function(X_m, rad_m, m_d) {
    .Call('_coxmeg_logdet_gkb_dense', PACKAGE = 'coxmeg', X_m, rad_m, m_d)
}

pcg_dense <- function(A, B, tol) {
    .Call('_coxmeg_pcg_dense', PACKAGE = 'coxmeg', A, B, tol)
}

pcg_sparse <- function(A, B, tol) {
    .Call('_coxmeg_pcg_sparse', PACKAGE = 'coxmeg', A, B, tol)
}

rs_sum <- function(rk_v, d) {
    .Call('_coxmeg_rs_sum', PACKAGE = 'coxmeg', rk_v, d)
}

csqei <- function(w_v, mx, rs_rs, rs_cs, ind, av) {
    .Call('_coxmeg_csqei', PACKAGE = 'coxmeg', w_v, mx, rs_rs, rs_cs, ind, av)
}

wma_cp <- function(w, cs_p, ind, a) {
    .Call('_coxmeg_wma_cp', PACKAGE = 'coxmeg', w, cs_p, ind, a)
}

score_test <- function(deriv, bw_v, w, rs_rs, rs_cs, cs_p, ind, a, a2, tau, v, cov, x) {
    .Call('_coxmeg_score_test', PACKAGE = 'coxmeg', deriv, bw_v, w, rs_rs, rs_cs, cs_p, ind, a, a2, tau, v, cov, x)
}

Try the coxmeg package in your browser

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

coxmeg documentation built on Jan. 13, 2023, 5:07 p.m.