# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
#' @title GetCTVisit_cpp
#' @return Vector of CT indices visitied by agents
#' @export
GetCTVisit_cpp <- function(agents, s, cdfs) {
.Call(`_LEMMAABMv4_GetCTVisit_cpp`, agents, s, cdfs)
}
#' @title test_probs_fx
#' @return Vector of test probabilities for all agents to weight sampling to determine who is tested
#' @export
test_probs_fx <- function(income, income_mult, hpi_hc, hpi_mult, essential, essential_prob, t_symptoms, symp_mult, state, nosymp_state_mult, symp_state_mult, t_since_contact, cont_mult, res_inf, res_mult, adapt_site, adapt_site_mult, tests_avail, case_find_mult, hosp_mult) {
.Call(`_LEMMAABMv4_test_probs_fx`, income, income_mult, hpi_hc, hpi_mult, essential, essential_prob, t_symptoms, symp_mult, state, nosymp_state_mult, symp_state_mult, t_since_contact, cont_mult, res_inf, res_mult, adapt_site, adapt_site_mult, tests_avail, case_find_mult, hosp_mult)
}
#' @title q_prob_fx
#' @return Vector of quarantine probabilities for all agents to make quarantine decisions
#' @export
q_prob_fx <- function(contact, t_since_contact, q_prob_contact, res_inf, q_prob_resinf, t_symptoms, q_prob_symptoms, tested, infector, q_prob_testpos, essential, q_prob_essential) {
.Call(`_LEMMAABMv4_q_prob_fx`, contact, t_since_contact, q_prob_contact, res_inf, q_prob_resinf, t_symptoms, q_prob_symptoms, tested, infector, q_prob_testpos, essential, q_prob_essential)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.