R/Plan.LT65.R

In ActPersp/LTPricing: Level Term Pricing

New.Plan.LT65 <- function() {
   object <- IPlan.LT(
      covToAge = 65,
      premTable = c(M = "Prem.LT65.M", F = "Prem.LT65.F"),
      polFee = 100,
      modFactor = c("1" = 1, "2" = 0.51, "4" = 0.26, "12" = 0.09),
      commSchd = c(0.25, 0.15, 0.1, 0.1, 0.1),
      ovrdOnCommSchd = 0.5
   )
   return(object)
}