data(cancer)
data(standard)
head(standard)
head(cancer)
cancer2 <- subset(cancer, grepl("55-59|60-64|65-69", Age))
fit <- stan_rw(cancer2, time = Year, group = Age,
chains = 2, iter = 1e3) # for speed only
stands <- standardize(fit,
label = standard$age,
standard_pop = standard$standard_pop)
print(stands)
plot(stands, style = "lines")
Run the code above in your browser using DataLab