# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
schaefer_cmsy <- function(r_lim, k_lim, sig_r, startbio, yr, ct, interyr_index, interbio, reps, finalbio) {
.Call('datalimited_schaefer_cmsy', PACKAGE = 'datalimited', r_lim, k_lim, sig_r, startbio, yr, ct, interyr_index, interbio, reps, finalbio)
}
comsir_effort <- function(a, x, k, bt) {
.Call('datalimited_comsir_effort', PACKAGE = 'datalimited', a, x, k, bt)
}
comsir_bounds <- function(x_bounds, a_bounds, k_bounds, effort_bounds, nsim, dampen) {
.Call('datalimited_comsir_bounds', PACKAGE = 'datalimited', x_bounds, a_bounds, k_bounds, effort_bounds, nsim, dampen)
}
check_comsir_lik <- function(nsim, predbio, predprop, like) {
.Call('datalimited_check_comsir_lik', PACKAGE = 'datalimited', nsim, predbio, predprop, like)
}
posfun <- function(x, eps = 0.00001) {
.Call('datalimited_posfun', PACKAGE = 'datalimited', x, eps)
}
effortdyn <- function(h, k, r, x, a, yr, ct, logistic_model) {
.Call('datalimited_effortdyn', PACKAGE = 'datalimited', h, k, r, x, a, yr, ct, logistic_model)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.