inst/Files/infects.R

In qBioTurin/epimod: Epidemiological modelling (epimod)

infects<-function(output)
{
    ynames <- names(output)
    col_names <- "(InfectCount_a){1}[0-9]{1}"
    col_idxs <- c( which(ynames %in% grep(col_names, ynames, value=T)) )
    # Reshape the vector to a row vector
    ret <- rowSums(output[,col_idxs])
    return(as.data.frame(ret))
}