# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
mfwrapper <- function(xi, freq, qJ, Lv, Eps) {
.Call('_bbl_mfwrapper', PACKAGE = 'bbl', xi, freq, qJ, Lv, Eps)
}
pseudo_mle <- function(xi, freq, qJ, Lv, Lambda, Nprint, Itmax, Tol, Naive, Verbose, Lzhalf) {
.Call('_bbl_pseudo_mle', PACKAGE = 'bbl', xi, freq, qJ, Lv, Lambda, Nprint, Itmax, Tol, Naive, Verbose, Lzhalf)
}
predict_class <- function(xid, Ly, h, J, lz, py, Naive) {
.Call('_bbl_predict_class', PACKAGE = 'bbl', xid, Ly, h, J, lz, py, Naive)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.