data(kentucky)
kentucky = terra::unwrap(kentucky)
kentucky2 = getSMR(kentucky, larynxRates, larynx,
regionCode="County")
data(referencepop)
newpop <- getStdRate(kentucky2$SMR, larynxRates, referencepop, scale=100000)
newpop[1:10]
Run the code above in your browser using DataLab