R/RcppExports.R

In spfa: Semi-Parametric Factor Analysis

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

diff_mat <- function(n, order) {
    .Call(`_spfa_diff_mat`, n, order)
}

spfa_main2 <- function(dat, na, item_type, shortpar, pos, n_basis, lmbd, n_quad, dim, update_group, maxit_em, maxit_mstep, maxit_start, tol_em, tol_mstep, tol_start, n_thrd) {
    .Call(`_spfa_spfa_main2`, dat, na, item_type, shortpar, pos, n_basis, lmbd, n_quad, dim, update_group, maxit_em, maxit_mstep, maxit_start, tol_em, tol_mstep, tol_start, n_thrd)
}

spfa_score2 <- function(dat, na, item_type, shortpar, dim, update_group, n_basis, n_quad, n_thrd, mode) {
    .Call(`_spfa_spfa_score2`, dat, na, item_type, shortpar, dim, update_group, n_basis, n_quad, n_thrd, mode)
}

marg_loglik2 <- function(dat, na, item_type, shortpar, dim, update_group, n_basis, n_quad, n_thrd) {
    .Call(`_spfa_marg_loglik2`, dat, na, item_type, shortpar, dim, update_group, n_basis, n_quad, n_thrd)
}

bspl <- function(x, n_basis, order, lwr, upr) {
    .Call(`_spfa_bspl`, x, n_basis, order, lwr, upr)
}

bspl_nc <- function(n_basis, order, lwr, upr) {
    .Call(`_spfa_bspl_nc`, n_basis, order, lwr, upr)
}

gl_quad <- function(n_quad, dim, lower, upper) {
    .Call(`_spfa_gl_quad`, n_quad, dim, lower, upper)
}

reduce_par <- function(n_basis, par) {
    .Call(`_spfa_reduce_par`, n_basis, par)
}

extend_par <- function(n_basis, shortpar) {
    .Call(`_spfa_extend_par`, n_basis, shortpar)
}