Get the scaling from NGM matrix
scaling.RdThis value is scaling <- R_target / R_raw, where R_target is the target
R value provided to the NGM, and R_raw is the raw eigenvalue.
Examples
# examples not run as they take a long time
if (FALSE) {
perth <- abs_age_lga("Perth (C)")
perth_contact <- extrapolate_polymod(perth)
perth_ngm <- generate_ngm(
  perth_contact,
  age_breaks = c(seq(0, 85, by = 5), Inf)
)
raw_eigenvalue(perth_ngm)
scaling(perth_ngm)
}