R/vital_aging_module.R

In EvoNetHIV/RoleSPVL: Evonet: Integrated Bio-Social Models for HIV Epidemiology

#' @title Title
#'
#' @description Description
#'
#' @param x A number.
#' @param y A number.
#' @return return value here.
#' @details
#' Additional details here
#' @examples
#' example function call here

###################################################################
# 
#' @export
vital_aging_module <- function(dat,at){
  
  ix <- is.element(dat$pop$Status, c(0:1))
  
    dat$pop$age[ix] <- round( dat$pop$age[ix] + (1/365) ,5 )
  
  return(dat)  
}