R/social_coital_acts_module.R

In EvoNetHIV/Herbeck-et-al-Vaccine-201x: Evonet: Integrated Bio-Social Models for HIV Epidemiology

#' @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)
}