#' @export
social_coital_acts_module <- function(dat,at)
{
#Description:
# Calls in following order: social_discord_edgelist_df,
# social_coital_acts, social_role_msm, social_condom_use
# browser()
dat <- social_discord_edgelist_df(dat,at)
dat <- social_coital_acts(dat,at)
if(dat$param$model_sex=="msm"){
dat <- social_role_msm(dat,at)
}
dat <- social_condom_use(dat,at)
return(dat)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.