hasRSV {FluMoDL}

Does object have a term for RSV?

Description

This method checks whether a 'FluMoDL' or 'summary.FluMoDL' object contains a cross-basis term for RSV (Respiratory Syncytial Virus) incidence proxy, or contains only terms for influenza incidence proxies.

Usage

hasRSV(x)

Arguments

x

An object of class FluMoDL or summary.FluMoDL

Value

TRUE if the model contains a term for RSV, FALSE if it does not.

Examples

data(greece) # Use example surveillance data from Greece
m <- with(greece, fitFluMoDL(deaths = daily$deaths,
    temp = daily$temp, dates = daily$date,
    proxyH1 = weekly$ILI * weekly$ppH1,
    proxyH3 = weekly$ILI * weekly$ppH3,
    proxyB = weekly$ILI * weekly$ppB,
    yearweek = weekly$yearweek))
hasRSV(m)   # Returns FALSE
hasRSV(summary(m))   # Also returns FALSE