helper-italian-handout.R
In lifecontingencies: Financial and Actuarial Mathematics for Life Contingencies

# ISTAT, Tavole di mortalità della popolazione italiana,
# Tavola 1.12, Maschi, anno 1998 (edizione 2002), radix 100,000.
# This is the mortality basis reproduced in the actuarial handout.
italy1998_male_lx <- c(
  100000, 99403, 99369, 99340, 99316, 99296, 99278, 99261, 99246, 99230,
  99215, 99199, 99182, 99162, 99137, 99104, 99060, 99004, 98934, 98853,
  98764, 98669, 98572, 98472, 98370, 98271, 98174, 98077, 97981, 97881,
  97776, 97665, 97548, 97423, 97295, 97164, 97031, 96896, 96757, 96615,
  96465, 96311, 96148, 95976, 95793, 95592, 95364, 95110, 94826, 94514,
  94175, 93821, 93436, 93009, 92523, 91985, 91372, 90707, 89988, 89210,
  88369, 87448, 86428, 85297, 84045, 82680, 81171, 79525, 77753, 75822,
  73737, 71485, 69051, 66484, 63813, 60993, 58044, 55004, 51934, 48768,
  45403, 41715, 37831, 33942, 30212, 26734, 23394, 20198, 17146, 14330,
  11765, 9475, 7465, 5765, 4362, 3223, 2311, 1593, 1060, 678,
  417, 245, 137, 72, 36, 17, 7, 3, 1, 0
)

italy1998_male_act <- new(
  "actuarialtable",
  x = seq(0, length(italy1998_male_lx) - 1),
  lx = italy1998_male_lx,
  interest = 0.04,
  name = "Italy males 1998 (edition 2002, 4%)"
)