R/RcppExports.R

Defines functions gaussian_fit_sparse gaussian_fit create_data_sparse sd_sparse mean_sparse create_data coord_desc

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

coord_desc <- function(x, resid, w, ptype, cmult, qnt, lam_cur, stop, ucl, lcl, ne, nx, strong, active, thr, maxit, xv, b, g, dev_cur, errcode, nlp, nin) {
    invisible(.Call(`_hierr_coord_desc`, x, resid, w, ptype, cmult, qnt, lam_cur, stop, ucl, lcl, ne, nx, strong, active, thr, maxit, xv, b, g, dev_cur, errcode, nlp, nin))
}

create_data <- function(nobs, nvar, nvar_ext, nvar_unpen, nvar_total, x, ext, unpen, w, isd, isd_ext, intr, intr_ext, xm, xv, xs) {
    .Call(`_hierr_create_data`, nobs, nvar, nvar_ext, nvar_unpen, nvar_total, x, ext, unpen, w, isd, isd_ext, intr, intr_ext, xm, xv, xs)
}

mean_sparse <- function(x, col_cur, nvar) {
    .Call(`_hierr_mean_sparse`, x, col_cur, nvar)
}

sd_sparse <- function(x, col_cur, xm, nvar) {
    .Call(`_hierr_sd_sparse`, x, col_cur, xm, nvar)
}

create_data_sparse <- function(nobs, nvar, nvar_ext, nvar_unpen, nvar_total, x, ext, unpen, w, isd, isd_ext, intr, intr_ext, xm, xv, xs) {
    .Call(`_hierr_create_data_sparse`, nobs, nvar, nvar_ext, nvar_unpen, nvar_total, x, ext, unpen, w, isd, isd_ext, intr, intr_ext, xm, xv, xs)
}

gaussian_fit <- function(x_, y_, ext_, fixed_, nobs, nvar, nvar_ext, nvar_unpen, w, ptype, tau, tau_ext, cmult, lower_cl, upper_cl, ne, nx, nlam, nlam_ext, pratio, pratio_ext, ulam_, ulam_ext_, thr, maxit, earlyStop, isd, isd_ext, intr, intr_ext) {
    .Call(`_hierr_gaussian_fit`, x_, y_, ext_, fixed_, nobs, nvar, nvar_ext, nvar_unpen, w, ptype, tau, tau_ext, cmult, lower_cl, upper_cl, ne, nx, nlam, nlam_ext, pratio, pratio_ext, ulam_, ulam_ext_, thr, maxit, earlyStop, isd, isd_ext, intr, intr_ext)
}

gaussian_fit_sparse <- function(x_, y_, ext_, fixed_, nobs, nvar, nvar_ext, nvar_unpen, w, ptype, tau, tau_ext, cmult, lower_cl, upper_cl, ne, nx, nlam, nlam_ext, pratio, pratio_ext, ulam_, ulam_ext_, thr, maxit, earlyStop, isd, isd_ext, intr, intr_ext) {
    .Call(`_hierr_gaussian_fit_sparse`, x_, y_, ext_, fixed_, nobs, nvar, nvar_ext, nvar_unpen, w, ptype, tau, tau_ext, cmult, lower_cl, upper_cl, ne, nx, nlam, nlam_ext, pratio, pratio_ext, ulam_, ulam_ext_, thr, maxit, earlyStop, isd, isd_ext, intr, intr_ext)
}
gmweaver/hierr documentation built on Dec. 2, 2018, 5:36 p.m.