R/RcppExports.R

Defines functions gaussian_fit standardize_vec 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, cur_lam, 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, cur_lam, 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)
}

standardize_vec <- function(y, w, ym, ys, intr) {
    invisible(.Call(`_hierr_standardize_vec`, y, w, ym, ys, intr))
}

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)
}
gmweaver/hierr documentation built on June 24, 2018, 7:13 a.m.