R/RcppExports.R

Defines functions standardize_vec 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, tau, tau_ext, no, nvar, nvar_total, cmult, upper_cl, lower_cl, ne, nx, lam_cur, lam_prev, thr, maxit, xv, coef, b, g, dev, dev_cur, mm, errcode, nlp, idx_lam) {
    invisible(.Call(`_hierr_coord_desc`, x, resid, w, ptype, tau, tau_ext, no, nvar, nvar_total, cmult, upper_cl, lower_cl, ne, nx, lam_cur, lam_prev, thr, maxit, xv, coef, b, g, dev, dev_cur, mm, errcode, nlp, idx_lam))
}

create_data <- function(nobs, nvar, nvar_ext, nvar_unpen, nvar_total, x, ext, unpen, w, isd, isd_ext, intr, intr_ext, xm, xv, xs, ext_start) {
    .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, ext_start)
}

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, ext_start) {
    .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, ext_start)
}

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)
}

standardize_vec <- function(y, w, ym, ys, intr) {
    invisible(.Call(`_hierr_standardize_vec`, y, w, ym, ys, intr))
}
gmweaver/hierr documentation built on Aug. 18, 2018, 8 a.m.