# NOT RUN {
data('casedata')
data('popdata')
head(casedata)
caseformat <- formatCases(casedata, ageBreaks = getBreaks(names(popdata@data)))
head(caseformat)
caseformatagg <- formatCases(casedata, ageBreaks = getBreaks(names(popdata@data)),
aggregate.by=c("age", "sex"))
head(caseformatagg)
# }
Run the code above in your browser using DataLab