## selected data
years <- 1970:2006
death <- selectHMDdata("Sweden", "Deaths", "Females",
ages = 0, years = years)
exposure <- selectHMDdata("Sweden", "Exposures", "Females",
ages = 0, years = years)
## fit
fit <- Mort1Dsmooth(x=years, y=death, offset=log(exposure),
method=3, lambda=30)
## summary
summary(fit)
Run the code above in your browser using DataLab