surveillance (version 1.5-4)

correct53to52: Data Correction from 53 to 52 weeks

Description

Correction of data from 53 to 52 weeks a year

Usage

correct53to52(disProgObj, firstweek = 1)

Arguments

disProgObj

object of class disProg (including the observed and the state chain).

firstweek

the number of the first week in a year, default = 1 (if it starts with the beginning of a year). Necessary, because the infected of week 53 and the infected of week 52 must be added.

Value

• disProg
  a object disProg (disease progress) including a list of the observed and the state chain (corrected to 52 weeks instead of 53 weeks a year)

Details

readData reads data with 53 weeks a year, but normally one year is said to have 52 weeks.

See Also

readData

Examples

#This call correct53to52 automatically
    obj <- readData("k1",week53to52=TRUE)
    correct53to52(obj) # first entry is the first week of the year

    obj <- readData("n1",week53to52=FALSE)
    correct53to52(obj, firstweek = 5) # now it's assumed that the fifth
                                      # entry is the first week of the year