# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
LM_Fit <- function(y, X) {
.Call(`_hlm_lm_fit`, y, X)
}
WLM_Fit <- function(y, X, w) {
.Call(`_hlm_wlm_fit`, y, X, w)
}
LVLM_FitFS <- function(y2, Z, gamma0, maxit = 25L, epsilon = 1e-8, initLS = FALSE) {
.Call(`_hlm_lvlm_fitFS`, y2, Z, gamma0, maxit, epsilon, initLS)
}
LVLM_FitIRLS <- function(y2, Z, gamma0, maxit = 25L, epsilon = 1e-8, initLS = FALSE) {
.Call(`_hlm_lvlm_fitIRLS`, y2, Z, gamma0, maxit, epsilon, initLS)
}
LVLM_FitLS <- function(logY2, Z) {
.Call(`_hlm_lvlm_fitLS`, logY2, Z)
}
HLM_Fit <- function(y, X, Z, beta0, gamma0, maxit = 100L, epsilon = 1e-5, method = 0L) {
.Call(`_hlm_hlm_fit`, y, X, Z, beta0, gamma0, maxit, epsilon, method)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.