# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
pstdnorm <- function(v) {
.Call('_hopit_pstdnorm', PACKAGE = 'hopit', v)
}
dstdnorm <- function(v) {
.Call('_hopit_dstdnorm', PACKAGE = 'hopit', v)
}
dstdlogis <- function(v) {
.Call('_hopit_dstdlogis', PACKAGE = 'hopit', v)
}
pstdlogis <- function(v) {
.Call('_hopit_pstdlogis', PACKAGE = 'hopit', v)
}
colpath <- function(m, v, offset) {
.Call('_hopit_colpath', PACKAGE = 'hopit', m, v, offset)
}
glm2hopit <- function(latent_params, thresh_lambda, thresh_gamma, thresh_1_exp) {
.Call('_hopit_glm2hopit', PACKAGE = 'hopit', latent_params, thresh_lambda, thresh_gamma, thresh_1_exp)
}
glm2hopit_nogamma <- function(latent_params, thresh_lambda, thresh_1_exp) {
.Call('_hopit_glm2hopit_nogamma', PACKAGE = 'hopit', latent_params, thresh_lambda, thresh_1_exp)
}
ind_latent_thresh <- function(thresh_mm, thresh_lambda, thresh_gamma) {
.Call('_hopit_ind_latent_thresh', PACKAGE = 'hopit', thresh_mm, thresh_lambda, thresh_gamma)
}
getThresholds <- function(thresh_mm, thresh_lambda, thresh_gamma, thresh_no_cov, thresh_start, thresh_1_exp) {
.Call('_hopit_getThresholds', PACKAGE = 'hopit', thresh_mm, thresh_lambda, thresh_gamma, thresh_no_cov, thresh_start, thresh_1_exp)
}
LLFunc <- function(parameters, yi, latent_mm, thresh_mm, parcount, hasdisp, link, thresh_no_cov, negative, use_weights, weights, thresh_start, thresh_1_exp, out_val) {
.Call('_hopit_LLFunc', PACKAGE = 'hopit', parameters, yi, latent_mm, thresh_mm, parcount, hasdisp, link, thresh_no_cov, negative, use_weights, weights, thresh_start, thresh_1_exp, out_val)
}
LLFuncIndv <- function(parameters, yi, latent_mm, thresh_mm, parcount, hasdisp, link, thresh_no_cov, negative, use_weights, thresh_start, thresh_1_exp, weights) {
.Call('_hopit_LLFuncIndv', PACKAGE = 'hopit', parameters, yi, latent_mm, thresh_mm, parcount, hasdisp, link, thresh_no_cov, negative, use_weights, thresh_start, thresh_1_exp, weights)
}
LLGradFunc <- function(parameters, yi, YYY1, YYY2, YYY3, YYY4, latent_mm, thresh_mm, thresh_extd, parcount, hasdisp, link, thresh_no_cov, negative, use_weights, thresh_start, thresh_1_exp, weights) {
.Call('_hopit_LLGradFunc', PACKAGE = 'hopit', parameters, yi, YYY1, YYY2, YYY3, YYY4, latent_mm, thresh_mm, thresh_extd, parcount, hasdisp, link, thresh_no_cov, negative, use_weights, thresh_start, thresh_1_exp, weights)
}
LLGradFuncIndv <- function(parameters, yi, YYY1, YYY2, YYY3, YYY4, latent_mm, thresh_mm, thresh_extd, parcount, hasdisp, link, thresh_no_cov, negative, use_weights, thresh_start, thresh_1_exp, weights) {
.Call('_hopit_LLGradFuncIndv', PACKAGE = 'hopit', parameters, yi, YYY1, YYY2, YYY3, YYY4, latent_mm, thresh_mm, thresh_extd, parcount, hasdisp, link, thresh_no_cov, negative, use_weights, thresh_start, thresh_1_exp, weights)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.