## Importing mortality data from the USA available on the Human Mortality Database (HMD):
data(USA)
# Example (HP): -------------------------------
## Selecting the data from 2010
USA2010 = USA[USA$Year == 2010,]
ExF = USA2010$Ex.Female[1:91]
DxF = USA2010$Dx.Female[1:91]
x <- 0:90
fitF <- hp(x, ExF, DxF, model = "lognormal", M = 1000, bn = 0, thin = 10)
ExM = USA2010$Ex.Male[1:91]
DxM = USA2010$Dx.Male[1:91]
fitM <- hp(x, ExM, DxM, model = "lognormal", M = 1000, bn = 0, thin = 10)
fits <- list(fitF = fitF, fitM = fitM)
Heatmap(fits, x_lab = c("Female 2010 USA","Male 2010 USA"),
age = 15:85)
Run the code above in your browser using DataLab