From a87e1a8ae5c048bfd82055dca4193981294aa52a Mon Sep 17 00:00:00 2001 From: Reinhold Kainhofer <reinhold@kainhofer.com> Date: Sun, 7 Mar 2021 00:27:10 +0100 Subject: [PATCH] Implement US UP-1984 and UP94 uninsured pensioners' mortality tables as data sets --- .../US/PensionPlans/USA_PensionPlans.xlsx | Bin 0 -> 15532 bytes .../US/create_MortalityTables_US_Pensions.R | 76 ++++++++++++++++++ data/USA.UP1984.RData | Bin 0 -> 1491 bytes data/USA.UP94.RData | Bin 0 -> 2950 bytes ...nternational-mortality-tables-overview.Rmd | 53 +++++++++--- 5 files changed, 120 insertions(+), 9 deletions(-) create mode 100644 data-raw/US/PensionPlans/USA_PensionPlans.xlsx create mode 100644 data-raw/US/create_MortalityTables_US_Pensions.R create mode 100644 data/USA.UP1984.RData create mode 100644 data/USA.UP94.RData diff --git a/data-raw/US/PensionPlans/USA_PensionPlans.xlsx b/data-raw/US/PensionPlans/USA_PensionPlans.xlsx new file mode 100644 index 0000000000000000000000000000000000000000..df12484efa248dd30d889e2a4d3a4769db8ad317 GIT binary patch literal 15532 zcmWIWW@Zs#;Nak3I2Mu?#DE0285kJii&Arn_4PpH+DQlf4jb^ay|3=l`fhsHfn(va z-98?>6;0$0sN_j+?Oc4M`O`NSVIiL0O^5pm>+1g{ExqTHr*qFh%{#6$G_sRvuUc~L z@*}7J6;|q-on2ISOwhtTDBoGDsNdh~%bACcr<PQgOz`4*@!8k=BIEPqHz^FZ4(&y; zq2)&ZQaYZsM84?}DohVsbfcbSPm6DEwrQTHyiApy@uP61$%<tsynGhdEVtMr#GBg2 zRe3M9cIWB)@2Bud@)&sd3Qkvi_U?q(<?Vfnf2W*&Ib(+KuAR?{3X;CCo!ukUVvt@^ z?W<ht;qz|3sH}0kS9jFBKc}Aw2Y9n{w9Yb_^^Spo;T#hK1MXnrXJBBc$k8v)FUn5J z&(GGY$j#{uj_jXpAW-*yy+fV4jHT3~387w1WlQB&pOrh$*7o4ojT2?-*8aM0J!69} ze`qbk8_Rt^)1D>Q6|dS^%&>H(h#@DNU7^F1O$kZTlb0XAGFQl5T8rz{(uNsx94F5{ zy8CC~s#vwB=ML5^Ob(K~e8$HAx#*P;{uE{=+od6<rWK*l{^nd63$+=7i}k<!?F<iA z^Jq5+{@<*4deYMklYZ`FOSBSTog<a9Ui(_crWw<F4i{ga;5_@8@!E-HPL+Opj!M6+ zewt!(|Lts%#mPZI>lmfiKKbbVO|+<4Ht<|$Z~(L8lm1^5;uV%0^w4QOcJ0HN2P^7- z-CpgwXKL48uSAXePrQocgcpCCp5<|6!=L<lzSb+;XT7{vQI)u8!togoy3U0^Uu?T? z!=aEJ2Tm4Py~^EwVB6HrlO`Qbk0fT<ZfWj1dE@w&Nt(Gig56FVCo?DP{no}?87_Ns z?$>zt8;y2%cROC0w&~bzChzEl5?^Fzq)ED;$~tyo;k&L4t$%cFclq)CpJ=nCrb@_S zjm-ArJQ_XzPvR1o9dA!;`ZQTbAgMD%@89;TaqqMrv?X;j-{+5tu$b9@>&AQ6_LxUM z`E`q?X}-9U-s&-DZ<689Z*@X`lU}Nn98NVTX-=>$v*&S7HjiDd*=HN68u&}rH8U{% zhl*@%uE@Vc{(!u58a=`47g9IaJv}ge+RXNYcW(=QsfyICV*sV2payn6ZYBnX&CK}H z5icYi6_-@zq!xox(c7qtlV+QV)V>clsCwVj>pQLQt<S3->)MwoyJq{PTh&f*yph#% zgu`;<=dV)*5)xF8XRAxwG}<tHe|4w2q(t>$Z`%6rnuT^s^OD`3CzL#AWWU&PbVlB@ z2Y(;GdS3nD3DYGBA-9V%G68&X`gOCOK61ElSWNNZ2@aF_&1(g2>aUya9zEsIpT5)% zFaJXoT&*=vrOnS<G!?FM&@4PYPke{w5fPoVlIiP$CRz*L4m4zceCx@J+wV6%5%XzS zd{{S9XXT$ZjYkt0uHUG*mG|au<<X^4yHj@^)k*v^!<6CHh8a)i&+VUZLc_I~D|pHM z`vq%0s~Q}AvY<CPwPV|a=Rw@O+LK-ch_igDVvEmie_*|&CUi^Tg}!fMf7$=vvgGf0 zyhOU>OHQwnn?(7KG+Xx7Q>AuXef4UiMqbtxL&dKvemh8uZRX)>w1_<^zPzT+CS_CE ziZwN|%QC*VUX$kIU;Ob)jl(&PKGE*8n{K{LEnI2vdO6?Pw%Z+%>Dqalre_~Zwp_ou z&d)KmD2d0s$LW*Z>}HlpGL5&sOsicqwa`#mL(qu#`0Ta2xTk5F`EX1-)y}oJ<Hd>T zsRdnIUGx+LiUXFumP&oM&QthhRQ#-~-I|}?UW&cA`;+6e=oXI3fFJuOKel>zlIQo6 zmr8!!;ybUeh|-lWUGj-FP117B46dLx*0(-nUtE$}<@}*-*^0{_WYd{k7u~qb^*M=c zb=$dVg?}R3!cHGvcE|aOm`1@8pI!S82xjR2OJRDYG3l~8-)8sBHKIpN^n|?Q_dT6a zSCOI}vwNver0-!xonH-)x}Jy~7rK@4^4;XVpnHMKFD|v3YO~wP^sMjFRkL=;8a;08 zX+3kaI9tJZg5(LF6gH#j6K4LXy``zXIBw(2FI{JM_~#sY?{h4-Zr|(vpU2AoXzci6 zT{qum={=Pa)$h^2SJW%s)Y;$Sw_41T`BANS?kAgz>;8VMh%);6c&BEB>O+MaH%+g( zpPXlDcs{;szt_aCg<;>kH%dqTU%po;S7URwsIZRolV7W5FFp4;mPOi}Rr+i4dYNTU zwnzT_9hCO?v;Cj?9;?}PJJ0=b+#DTyu8sFWTD{I(Lqm1@KSxSV?_Xs4FMm(zwH4c} zUWJ^N`LnQ3dtzJ8Ygsj>;J?r8Sal+29a{A_;}+A8u!hh5-}8C7q81$BxK-GfQL@5t zebkJTnm*dsYq`IlYN>ADA$3qnXq&<>pR<8yK24dhXZ6C{iz_1ceL7op)7E}Te_g5V zFQe)liBhqX&sLt(ocZa7#0`T}dEf3t|9)KgJ*@xJ%*8hizK8W}nr(YL*?XBynvaHl zvH#%<-<uCCTVdI6C7aqO#xgIxJMHl@fo(QdE!TYBx~+fPUMIinjk!Mlp&e_NfAiY% z^~$=fpJtQ>hfB<Izdg<U_nFF^t&3~b`d4WhAN!trb@iv)X&deex0&^?axLy<YjmCK z@YlG%KX=-XI*D1fT*+w<ew+2r>MiT<ZG4pQ`NvVar)Agjw?|#S``GaD(f^=ANr|29 zR}>2a!)hITg_1I)Py$tM#TluoCB^!X76F)J1S+M#ZG*iR_vSSl2(W*!^>5tM%s6#h zh{LpPL2Y`WzZk-c8>BZ}oXh#}?Q55;D;_JaXim0&U;gj((O(8%4$5_IHC^hlD1s$p z%G#}&-XAyC^2#6G6(#!qM)T+J9ha5a_Z=(Hw0eF_T{E)Og2BDa<*~n%H?zh5C1HIF z$}TMOdHf^pQoeJDc-n@Q-j1`a1P_);ezf0~E4B8+%~hEWkJoLPFn9Wj>uJve7l_@R zIrq6`61V#D>+@N*{D^W>xa#SiAaUg+XRh$3P^r5`bAH|B^iV#na{jTw`MzYe{Re#9 z4;enW`R|>g@1l))b-VW6yv1H+X`#Zrcf$3_%gsH`-ILYXS^Uj@{tm4tN2iD12Zd?p z+oj8x85tNf@irLnhN+=mMQ#o_Onc8C<T_-)!}egee_&DhTsfB`XS=!N_H@`eyxg>Q zhnecyMfv#wEUf%;hv(Nkj9-^m7ZCpBiAIQlrdNQ3j;UUW=$yXWA7#S6W>g+Hm=fu^ zx7+iiuZQRt%j2!rPJVmgtEG`NVTtNDwbLi&_8pt&+g=ql&G_tmwkz?=ZkdXHSU0o5 z>Ynny<lx&@-PxPO`xXCJEUcbbQSeY_#Y4W&-M){i9>u5_`M;EXzjEUF+0kx%X$-o1 zzlMMO#Rv+A3o>7)Z)ad&&}YP#wj?mp7C2RbLtyXS==|GmQfv=?{}pZ0tJ=EN;`z)g zWr1pE%^Yrslx|}E);BR@c8AI;mE7Y$zgnxPM*ic=+;GEBU#eS*_qnXxmkBZxpWD~n zTa*4h^!C-W-;(ssZTh+9mfq~py?b}gsIU0{tJ;2kY3<I~sjt(bW6#L1&inWHsr@<m zS>J-oqeK7dgl%}M_iTIZ{_2epC8uv^1(&6tU3cqP`MTL<!QVcnR&Rb$mK(b67=P|H z?wP4&8#Q0Qty%TZ^|x-R$@S}BH&tELd2e=g+kCCe)ulI&KP%t<b)EH<Z<SwtzplOY zNzu)A%kw3j>z9@HedX+Zb^FTcZ7*lN{+Dwz=bP_g&BIDIr*}ryc^@`Q{rxiUd+nME z@x!%iu9yC|*j89qX&3e{+Isi8>$O+K&T8pRe_eDp^yA*x%HY`0zwLK_)cxQ0Q`gU8 z&)yw2@o(&FD)+5Q7U%1(y%u&|{PX-H-RANx%i5fhXVzc8>RkTm`<mUka&gDi?yWuj zF5t1n$N1d6RnhsYEw<*r|0Z0YFBfO_IzB1>$kf+gdjE%Pyv!$j>(?_gvroCDcjZ^V zIo%(Abyw84tFOKkzkm0ubk51EkDn!PwhP;^YTfDGrS>L@=hkKNUw)t5t^e%yLig(% zPo<fkd6c>}j^Fe7=BEMQeAnE6_4AGQ<(zfXo?3mIEO7JW>-gjShgUlH@6(l^y?bNy zqur4;<u~N)%+4-PycCdcrnB7e=!L_(i*A&CTRY?YDT}ZBW<^crFSYlbVQ2mNpN#ma z56=o0@`ld;R~uom{`gfjz4x{8N9ukoj{CaZdH4CAlXJu`$y96UO^;u-@cQH1pLFu> z#y|RG;d4{JG40i>?N@8J_B}l=HrKDac!rSPJktlCY|66D|JA>EP`dMVo9mACC6(8| zo=v;IDO2(8wbh|pRnx7{6$jV#t?l`L?e@p}>*{61gWkMbDOJ9#{ol_v$#=_ZFUu@7 z{9WmlG|zc?SK&&Z%;kGsZ%&{7JomFf_VG=Z_bl(LoK^WJ_^AKlG@qsWHwhfuwy?$U zhr#Z|+IPpc9pf)AeDycAY~K!fsU7+g{Z)_URtrj3=B)hV<-L6C<NvpVEVnt&-xAU= z%}@1=C+E*SM`rT}PvmJ0>^!U?;?`&o%vl}ebl9MabFpyy#d=A%#RhC`7kwl?Pc_i9 z=B^h^yA@eeEoN+Xc<z=fO*+Ax^+AVh^*??JNZL661DD?qNxuqS^*uimX8bGY6kjKO zThQ-O)dj^JE){W$W_bDBcYi!3-ha7G_jBRnpM#x`-1zl&OElx_w0-)@{-;vXBh|Jr zzOH;27;v7Ix3if|Nh4+}vv^2j=pGJ@j0a78Zl1GBW+-;Odaym}SgL4(eY8y1yp~$C zmzB5H*Easw&19V@mba+gNn`CNwq>FgYZERnb8DF3a*N@zm)=@IgSAI8RcD)R6>2$@ zsrqT=qf1;<!X9qv@|`_P&`CIR;YYsKfT+xecCP}yn5<2^Tz6Ko-aE>9$y9^24=){> zy3azy);Igc7PHbQ?<K8XHX=@$ta01KmT%3ubtO%x&tr9B)bXWPGj1k1aE1janJ#2W z)ZpY*wQ%9=yp-h1IW16W>tYs0O-@Bs3(roTwI^o;HEo^ZldI_&;pOD*c`j&XyTh~_ zL6cC$J{st5o06idI(dG8q7JM1v6!N1O4A@h!O>nq(}FGpP1-!gVcH}loeMvw&RP1% zQNX8LS2fc6<dtcYT9%4znes$ORVHfk#-%FRnlo<&P1-P}Y1*VYOH<mu1tIBm1i8fM z!29S<G`&liqPC%{b6fCMEZS?+w4jx`OF6s`3TN+pq?2muvwFi)k!;PWw}QGrb_C5? z8Z!apizMBpLD61<ASZWi4!KaUJM>0S*VZXsbzi$SOlg}I)U$L+1ABYxp=m*DmWE_` zYaR*`@YtE8qbh0>qb0I!3QYT@3qf5Qr<fc&v<0F)SJO3u>s?0i(Fm`qibZ<^5Tahr z-kQgPw74^NA4Qlc73F0(E$D@SN1~VJv>+|hr6P`+yqZfTyfo7vdRnw<E{*Vdd1cBa zmZc_3rle^sy%@H7;}R2X&ACxQvnGhJIIolR%;e^m=jv5m8tM7+%A`vzOCE53j4_^M zq}1$nEh1>v)G2<tn!X;V96U4Kf{q>1{?U4D(xo*^N<K9@wJdp{dNam&(k7(^ThLWr zTYOMe%G+!6q)RJRmvVX@<k*>}@|4GF*Hv_daaLb=TM(A>Oqr6VB5G7owCTc(pjk_& z`1xx325`w;dopWb$OpdK`$=Az(}L7Ym-0AjGHa%0cy*pxd@+bE`qYMLMk{qwIlK>^ zF59_KSG8q(fv?$(pth}3JaaXjBThMZOWq1{V*8OADv_gkIO^1rZBrC=QWq}e$<<ug z>YBN6DNnZM<Xb^)8>X~QGupDW#Zc1bfiXfqm)?du7p4j6H6Q=P7JO>M6r+`zsT^Jh zZT<5yypGn2NL|V_SjywAIeAu4+kz>rQ;bZOrr11cULMZ7Y)YbLYEbYgfhn6N1hp-j zGKKB^5+tRr_A3@>s%~vxUc%L^nHu4B^U9P>EK47pIC|&Olu3Sv1i4#}PT8chG$+d| zvMER`=+vbtlMWur{(&s|VM%6QrkCc-g^Fro!KXG&*|btKmD9`8L(@ChE3=*NneMVF zshX+5!KZ|#6io=4wrom~7_Z;989~#QPVx2C^bR=X=oL9D$m;WkWUg-A)JX4}SEg-h zS^D7EjObfIQL}m8F5R$HCtGv&t)OWerZi96v}NfQ^-D?Kk=KIEwl394)U5cXx_!&i z9-fRJ6OK;Xv}S2emUrZ#Aik(mm!=t=TX;E0Ec(=@X+<k_pK^FxW@x%cpVDG<*Ad~1 zKD7}lda(G&&c(W^ds~yQaJTC|jqu)iWm-|oQkgAN7VAFU;@Z4aX4{lx-KRm(rv#^c zx)9X2?MlIS-inK-6TL031?g>FDwC+mulqE^yE6a6(n=%)Y(NHxt~rvqaj8tU=JZ=Z zeH%pnh<d#9@b2_EJYQafFZk5PDMcsWS33lpa`v*E6y)U5zwV5+kLK~9Q%jdkQPyBR zul%fU$&?8nKZxD^$Ou-wQu8T?SEYxhdytog=7JU6?V3*`ynbGp@`+`s&5|kVnyQb& zx~Hu@KIN0n(wZ!<%BCQ>pi`5l2p!`nIdw7Ft8!Y9o#|2=M@@dsr=DJ%uRrED+AN!r zuK6@L_>}Mzt_eZ&mQ48&bog{~E0PI}U=t25ZY+@VKDBw$r<JNtIXw^FZ+J3q$`lbb z=Vlq(X;acwp9XuM5}w2r5HxSfln|o@^Y2ypXr2!`wS3tWbq!I4r8b_LnM)dzw{iDt zK8^JH`J{Y`k_M~$x##niOes0FcwwSk@TtvHKCRSz%IS5maMn(BP1R=MjE+vQGn}%# zSet@Ah%c*D&|JF2B*P>9z!WZ>r6|HB29kI3n3shlXo>~}YYBk-(zs+w(Y?dnKU|Si zD>YB!TC#M@i4Pjb8+1h@yj!nK<7!#TA|p11T_`w8nq5CfoH1K#!z`|qrlK6aojgTa z6XslsQ;cU>v+_We){<)>3MQ>}9Fy251-oUnwzadKS$UvHYss?^1q;;&OLyB$m}hiN zd(ZMi^SIV5cgpf-JrvATxBW>Y%T&>@gP%9L9$3Jov%=}q?~)+%S7$EFwek#%e69Oy zqR)XvTx(Vw`#n+pto1oT_G8~)tAsvXQuyM>gNSb`pFU?Q6lX>B79W{;G1l7nQrNlZ z-ny=8o!>gft5^R>onT}9P@Az`@%izj^TyT6x-vWCWKP?iJ|mS~;o$h{%#=+myPDJ8 zjI=#+A10i96!9%Gjc4uAlWU)vhgKWgDJ<yr-Fura@ws~N@^p(Q&yHpr*Zo`h<LS@0 zkJn`--|}Bx|K46;=jDAXl3#o~tHl;`^=@9Qoge>-7jZgbvzNU+ziXMyd{4t`HBq<M zt=;~2_uU^KdT-{2^7-?=?5nN${3U|J;_0ea{pT4nZvFD!{Py(M(^<E}-=5_C^M3WV z_0xa!9{n<-dr?mQD~rcpe|+djoGrC(^VZ8nc6;8;zI*gTgs}46kNbD@)#Uuz5ft$L zPM`mpid7GGW&WCcz5B7U*}JmMv68<Zt@;<#yS?e%xBdwd-+~@5Hs|wCys_WLt}M|` zdR4{szR!`S{I|bvzxplKNBa8dZGDNykI#%bQ@-)@?M?5Ji?2WZblLy*Rr&3u^)<7O z=Uknp-hVdY*wVk7Zt|RW?X=yOyY0Ny_p9sV@}^I={rc+il+?|u+n1WyT}?Rkzsg7U zdi(3wH$LC~S9-V1f3uZe-S()zHUGD)jh$z{`s$Yx{iolbI{U7D`s4rme}7*0vc4id ze^uVM?5_sD_uiaxyFRYhe`;p<<=x4SipT5gtm1918i!bJeOABb)2gmoGwJw0W?_5Q z>#jSc9{Bk5W93}E|J<O?Tf|EBm*u<+3}WeIbl$*20(<BBmfv=p*7p6gcFC3(SC2T= zhVM-M%Bitza`7cuUu)Z!#@10SI(?c=zCmGg;_X=jT25BK_bysyJk?dFalIZFzvG5^ zPK-PLU0(11x%>RtEZc1H_j*@nzxuQ&^3L|lHy=ITeR}`@KX=VPeoERqQ)k)a%H0|F zV(T)mO|ReebNlP*WnVM@-Y}Wn9h0!JuKeeYn>zR7V%NTxpS}F#FW=ocVn3(0mwh$4 z`6NDEe*Lx6p~f@6)qgSBe<}3o`gv-bk3QXY==N1h(_8KBH*1S;-?O(j?LNEh#HyM8 zW;=hrK7O-k@9J-_zpSaceD#TH{;PGi)xLY~?lZa)Jnd@rth?)PmHysPS$yAauUT(? z>Mk$#+doU{{SMDlTkU`Tbbisp)O$PlH~-A}yfpvu)3c@VfAUH{8qCh0bv6E0W?j6T z+UL^A@zH*EX76X8y+8f$>)G>f@7|N}{nOR6U$4HFzaQhDE}8g!Tl|_??d8+&ui9?^ z$NA-j)?a7p&&`_t_1<~$*T=s--F@fC^PeeuSKrY8^Eu1xZ{fC#PnXWV`dRw${;lbO z*8lA`pRm6EkNf}Cl#Jc1t8X4Ze&>Yz?Dn$(MaDlr?3-!+eRf*ahFSCHnSb6h?R)$@ zyDgs=9@<hl!{)qstn{Z}x31>>e17Li`SfnSmp0dPrr))4J6m%v_tn#*wbTD9u0L@5 zboc#R-(LRxn=;Q)GxY7>f7kz=e|d@TW&dRTx5ejG_eVVq-_3udecRtFy02b^-IczY z@77*n`O?m2{n{OSW;|Ise|B#6zcr8lHNCwbx90!N{n~fC5AVJ<_1^!=@9%1^zc>HM zTc0}7@{iH%Jh|Ov`wQ1`1!kI0IF*0qyKlSg{x$cXl>VP~f5P2K;dkDOeeFN{JZ;|R z+U{@DpPJ@u|L|%7qxp5o*Sr4Lvsc(fuKRxP@bBkem(^C~-u&iUHOF`PS*MuX{pXgS zT)%Vb&-*tQ{V(79^U{7#$?w~IDw3`3(${<_y&0K(MQ`7_VD8s%7OeUgdo%Ctw*teP zK6&fH-=03Y>U`eyy{w;0pZ;{8{C}2d@@%_LYF~1bqi2}!iH_ZFzy9~OXZCT=m(I@* zDXsmwGy7rol6!7G{Hvo47IEjjZ2EYwY4x7O!`EIaM{mEoxbFVi%eB^T{#~2cD=eg9 zbj!6Y`ukz~ZQfejDwlnDCV8#G*(`tdhu^c8pM3UKDc<~i!`aQp&GrAjvtDkyvvyj( zd}oi&Z9DF5=l^Ht-~YCw<lD8Y`|{h2e)n!)^3gf%$C|x*mN$~`K8){e=ec_*pn{#Z z*7;Igv~neLrBmf0hmMxRC)NrmYD;lXERooG+bzWOz`y>#s_Y8Mi4zKM3tTm?SCl&$ zr(C5Uw0C9E_VWT!%9fse+}l^o<4!sI`1%s-sP}qCy96)#w!T#Jo4#eAUqjo{c4<qG zhl`5TCOom2%W7`8gY)3qUyEH|mT51kcv)C8{h@=*-D<}vLT#d@3)<Uazpy-x&Efxa zaFO$=<5org^{0p~&(TaR)tfBXVRULk(ov1opEb1oA{|dHwVvWte5x<#T1RK`lua_J zQvzK@B~xqVQqO8;d+aRPA13K{Gx!u+;I=Kotc!Y#R;_4SKILrX6yD`I3QvXazP>+y z)6*%;OLGKM4{MwbbdwAXnOBxveld88?(!VP)bLrG9#6?subBRDN@Ti(i)3m@;7te3 z-JdnA{cbv*`oGBQ?|aQ^Kg+;Va&_UVUXgu9r&cI^-SJVcl55lR3AQaUx1NOv=(O~T zvF^~nJds@h<haz8oo^N`Hz>Xw9Pl+H^Lp^4H-Wc<J<e}g=Ek&$$9UBWo!2RI(rdc3 z=Qo{O?&UpSXifjSMO&Q~Et~nHQR8rrmezEQXP@u*7yb;s@UJBE_vNO)7Y%nsB}Xof zO%qr;Bhgj#h4=zH|Nkb}?RmfYPrqib`$GP&*ecUarq29l6+GL|<R!YsN_Itlv$qN; zU%rzeOQT`e4@p)>hL=CG_i}R{wtn-ZN#^N-g&|UGQDF|ZrtZ1@^qZqI`<11#0o;5Z z<_oWR++35k;Hd^X@7_z7@3l?So$!vYd{*{?HmMcf*$c!>Ch%>zE)_ZZ>z8T)7t4$l z(<U}fbDbb}|DB1sBd>43bTdcY849+)u1a;z_I)!ups(n{1wCQwk`sC-9E&Bd1hAE6 zN?vK=3DVl?_U_q_h0c9N7gj7;c|%V3w}O31f#Q__j?zrUD@_7fS}js9XK&8wpSD=W zL@QIvs%=TC@{{<s7*5j=r`RaYtqWR8%-5O<S(I_Hs=Pe-LM+TArzHNgm&bmOcP8ad zymJGlmpSRq<y_*oV&cJ_F6S3DXjs?tdP`~jOV;&PWIww$z**a5>Dmh%VIJ&yS<N!% zF5A85aC!Ohi`X=iE1t*Qt~r%GF}TCc`^72v7I*K1)>%~x9mSr{T;HIvw4B?UYeA#L zrT0#Uk6v&vG+BD|0!Pw{l@jlqdb|=gpK}NaJQrYUnf{=4OY!#8Z;RXFGP=%J3hxOB z);IBZ)U?$3uf{9QjF3wgln>ot&|jkL)mFW*F)qWadZ8dxjZ?~J9>*!Nivm5J`=gVY z_e^Mf7MHO=eAcD73>N(>SGaj6?Ksgdqj1V$@uXuH?#*S4JK<2QZ*qa#H&frFNj&RS zE1PG`k`OnIQx4AhC2uY;q8eZVHsHn0h0HFJ882FMF5G9(UovN>nAD2aWn09g9JzU~ zIyI~4xn1jK3p^${bxY2I!zbcA{(d}HfUx6IvD#Kgq3JJnE)nc9x=?US^RJqm^i6Kd zjCZYURSR|Bwua5pKBe|oxzjtRi?J){!iFWKTP`Q2>Mtqwc&GE-iF@ybY2Tc*D-`Em z3XN7N?2J!kT*PCdm6_RInA0d8bS{Ql_li?=6!+Q%t!-Hk^;8O$IWN&TWwCft-&x;V zuA1p=v#K8+T;zOV>D~)maTzPbqf`nz<^0_>Kp|4H>HUp)D_f^!FKms<@XlT+x@AIK zVo>yxf|D2hOuCHDtyq$rzES6ble1&7?v?=V+)UjqO=3Z;D|HJjT=^#}Pg(L<MkBn^ z>TzaHqv$0@)zfP)IB9QLy7mHBSjGy`s09V9l7y!OOzHc%I7T!={not7Z5N8Pw_M=L z&D7q~BpQ{~DyA_fsIS!0VamLtPCK<O?Bq`7UNfQbSyaYCv0Im-GFWw&1gB<m%lLhq z*{k8@e|k}j=u3vTH%>*JKz2{ms#Y<JIY!g`-mwQ-J?qy>TfCgPTx^bR%AB2|Q5mi4 zwuo9C<a!wwWxb%FOY;tgOJ@Ifv8ii>e(RNN5;eNe7rn4K?1fkK!pV9{OTu0>9MXKA z`JB%sb2>;-(4w#x4WdRDVz_0mIE6=X&t1@3V&$`!+wg*2U^HW3S(MncH7^ck?CG9o z^?&c_x6N%)FTAoB3U8T^m-V*c@X8l28iYD7*}d1*S$U&}kA2UCb1w?+aLayi3ctlY z_d)BIsLi(+J1>j=y(QDAG5cbpm)6u9a=d#c@J+OO*UDG5Q2TAG-v_6vR=>9mM>B5; zOE;?gopFCrm)GUyi#HhcQ|9axw|ddKZi~3pLGG7t8bL<&aawe2+L^Fo$)=o3bD6<O zz2pLSY^HumlepEZRz8n8e2uTTIyT+xU6EquTlRz@?gZaOBp3BnEo2r-*U}PK7D&BZ z8tC~{nVEObgi@;=2%9qf7nL1&)RVfslOgb0x7#vFTiMU$2e@BenEN>H#RBnPm*QTq z>MuF$vXxyZUFoxvz|uK^uCW*WFW+F+U6TB7UiQNFs2ASZ3&pogIJDZfz~Xei9`m9e z;}t7RcYnCeti5E$PLV2&)_q$<svNmqZd`D$RpQwJzqJh-)^>|0-Kwgpx##MC*60SP z5Z3&%bm;}|AdlrqSLNn1n0)DK5bW3_$F8-K**fw?s^*gA+3#$oJMk~QFnyYnzK7yo zsiofzJg7PP>w?0mUl&#^3H);A+>O&g9_Q`vRqD0Mc`ek}ZH=4YRAsZmHo!uj>9?BA zWv)Qa$1lV0+&CR}!m(KU%LT65OzkgCqL-x2ugJ}1`ts(PjKV3$=1E~2IlbbxIq}Vk zUf3S?!aI7Q_?ipB+FxFXELgn#jZ~usJFi!i+N@;#Xi!Od!CCvu(zO@3!#wm$*V_i{ zcyjaWeT7qO?*cs2Z@#^@C#O}$WV;jp+6&XSIq63z&V3bAUBI=$D`%d4m(c|W?!9T{ zMPCzyG?~wCz2L0NvvjKgN0dkTWvdfH%eO4N{Mk*z>-ZnXbzE8(;@l_fozTd4hnxA! zp@3W5%@0~jRxIS(boA*wiQTtNL1ytR_WE+#;6&01$6{li3p~!5#ym}umu{<G+bv)% zS5Y<bG>5BXMnaqC=83ywzo=y7wXt{eIZih_tZ=t-%B)0&UE(^si&$M>Rz^-)t@GBf zkJ-SPZPx6>hBOJU*@*&YE(9C%ID8MXD+{=waLS>1PSKUdV-J0ddG7Eqn;Z_f#nYV7 zRx-~`Hl_FSsSSof0#DodCS0C(*Uw;1W?LhwDVvTx^<)2gPX-i@MaMQvziKl+Yfu1o z^2c^Bjx>oCl5CNWw-o>RDRh7*(_ZSS&U|;Nb0&umoHcMT=2?2yfFsRg>O#Iv$6ii& zajnl`N;8{f{Kq;I17|BAsU4DR8Ep%<NU|N|dD*P+N+EmBNx9<=^E2Bt#F^~fn2l2w z>;$RUxJA<KAkWJUezK{(r{hlK$$<*sQ%euL%M@soytI;S;_SqhGzst7i6Unvlx=vW zksb5zQBoSmA{i5l%`0w9EqTmwW<uk$G>L_h$1bHwuo^F!zU0bofrUxhWlB{ni`HCc zEV?CCW_eAo>eZZwdfWM>W+m$6wgnnETLnbAM?SXFD48MRVwv&bL)U_rQ~#kFw)A*V zfN{^JV>eH{D`lVL!{c}^BuDMO1(RWlJD*;gU{|7!Zd;&$vsLiozD-9hC(meX)|ma8 zzv!4&T?bpz35R0Co&cWYOv9cgiA#MsvZ>vlcecCMvbx;7s;!Wobkthbfk!d}Va{QX zqXwtMp6^}$`KY_XDT~vFt9f@Pm$1a0uqf8=xxk&Aso&EieyQ5*df>Dj2{&>KCZtRk zZ<@pV=G7sNH4_q_g-I+FJ$5Nff>nEo`N<WF*AxV1T4|=SEP7KFIic9<($1-mIY6a9 zNZGPWVKZ2?mwb0yHF-^eAzRu041v@Ij^~aZIk#?!@mhmIZJ!HV!I|1VO`>jDt)5{! zp773oz_I8}Q1yh*=PokdDzv)HCA|F*%UXk}+YYHjBrXZt!7UpUIJLCI>9R*3*Mg@p z7beCAZS0;W6>tkwmT3DdU2DJ@=3&35R7liM^YF6Tz9%afqRzP<Rh!#)dFFF&RKsSt zw7-6r;lNs?;{Nk(fP-FYeBy#eu}j%nLe~$mY&DpA?T|`_;@(fo{T3b8d@NgiV~fnw z@820!ch8pE;I721o3dc1nA(cgm0QHr9J!UR9#XNIvq^K~#tciXhH2i<{5fs^+xa<g zzwDiYWL)B+s2MJu!S|xdQa8z@?!K?9aWhux)IOd@aia@&xP`wQ3c1BS`9W*Rj1_*1 zj;@@bbboQ9gwcf}PvM)@=6(lwBs22bIA<kl{o7M@kmqHu(JPg#IbMfSMT@2c?qpS+ zn|7U3RiUkC^M?n&l>OJ~=eGTolFa<~p(^mn7NfSgvsfd~NwG}jpXYa9l0UL*w*8@b zzaKs{V%oDs@mqGvft$r|v;$vk3GA#o#*w1>ASuB0@r{a?6Kr|sR6hc%(gdqgep{}| zbVt*5w~q3J)SSG)i|?5HziC{F{bo||uDks-$A?Gfx2<PMUE+NH>jb47r_`5Q*DFt$ z+Hl%6l%r%vwoQsZv$$MQyklWV=*Q!C!kervRZqL(+_j-|<)TIAOp%;BVy;vieRsty zMYEua_p^WvL!W#_{8Y0Ob-g?m)z4~Gx#q95*}Yh;!^mX2!iu?{-yAG({$`TDZesgs zj`x?8ZmysBahaOs5{~>_q1|D8U~jO;UtFDW%=w#1!Me#H_g!+jxqc$k`MVl!F(L=v zxtPyx=Gr7wXt*Ny0Y8)6rsbW*>uqA(I;NYQuIrs+QF>a@tz);x`gigt1KFb2O}Dmv zb5hs&+QX)D=NAknBHp1>LF!~oK<W;pm@j0XH*rqtlBZ4ElFAFE7aeyj-e?n3#t|iI z?yWjw>7t+@e#1kmKRx{C^ghvH<>jh+eZ%v(V)c|QLQ{egmxdgj8pP?f@`XZ>?Ge6% zH|_){r)NIVQPveRF;v~>uYFQoGV`FSXqji|9o4B1CUt$=^Geap<MyeG#Z#0mPkWqZ zotmtExa~#Zg(hb?9pwex)=PwBf-V+^e-%)UsR`X!U2{5;ElMwAQBrY1+nd5mO*UFO z{i}A^XgSJ>+R8@r8#1YF_<j78=dnn==QU591HC@E9g8e*Yn>Y?TJEN5v3QYj+ABr3 z15f_R+P>Ftm(1817ck8?S$@-TNA684Ht4K+v}pxPWJt-nSlc5UGnOdd{pnsbZQ?X; zx8$3(p<w$|wQ@RF?NHS^DI~htMU`u=ucJhi=;j_1jTO4HTZ~isCyTuaNVE<)`ZmC` z%;UN9b?2TY&$fAq5+@_wq(pi|cWYjrVCxrk!MXKofarB+)t8EMAI0-;bT-&iT;3-+ zFErccNZ)7CH35m*SB|a?@DB4>AG)&r2Isz{o=>)`uT^x&K3&Z!e&q&hX`%R)N!*vR z*S%6K>w0e~RS~xKqk#3fa07>4-T-lP2VF^pz3Z0CB`yCkPq{w*sucgm$2F`Uts~ri zh>6?lcFN28u4})cx$n8f{m8AyoZnc)JAOC0W*Zyxean*SFJ4_$9djR5_r0DAb&rXE z^4ZHrP5r%Rxw~gVZ0stB+PJ~G_pP7!c5B_6vU?vE+aB@zXzTvw+$vMKq~kxi{FZOL z{PL0Ca@FOR&%E5SAR*^go5-UQ|8Ob(g^zPsyD#5)wC-BJ@8+FzbJWbQ`=5Q4Y@GG% zbE(^>Jtww)eR}Uwcj)H}cQ<`{d!oGFf7<<D+aK5cyn5Zp{Ca=<w6j{5|84pIIeXzB z*9}$Hr!R!t`xrlXnX`9}|GquDYwqMs%U{1PE-vogn%gI5mwo-1W%ql-tTp>$*3K$5 zj=XChmm4<uXjRevnOnQRn!i14{`y<pwVZt=_Rp4{pL}&qWc<o0tMVtk{#P3Q-!{^w zT-EHgXVLuJ3$M-={kmW}W83L>TfHZjtt~!0@7C3{jL7{*e@E|(IV(1M{<PZDdUCT* zmTdd6L+;z&{?#|X9N+Vq)BB#e<d3wkcix_VoAoVv_YI$Ci_<n{hQ)tB0~$0n-u+zv zNt%wj{OtWcVe;vfM?XJP3}1b(<;Gp3?5%hIm+#NJm3ohJm-nATAL9SLsmU<^d01)h zrChhozoH&2%r&pxzki)|{(;Y*k}OZ^+&f>FeJ{3b+0@y$_T2V+S~DZJF0X#3uX%sv z!Po0|_ow~atNrovs`&F;Y9s&rxuH{cDtfm4`k!ad=vXa!uQy%tUzXABC(q8Qf1kfE z)~CL5PVTJ6^ChO0KYj)7KVSWDMQzoo`uUyuw~jL2x&8Fb-K8&QZCm`S^knVsIi>F> zz4|_(?)U!J+pXU7^YhRAll1v+&engsRwaJ)zx?vY=j+KA&X!uwt-CM2<LBWgnLm#Q z{{L_P=kw0He?C6H8N7MlkL=GyAGd$Y-1Ou7_t__ttRj84um9$_^mqNfz59MeE!W<e zd-ngvC%@H<cfY9L`I>uw*y-J$?k#&3AAjrW@_!tKpY1^d;_G9B#ZQYdFfi=EHy|zr zS<M7l9tT=42U`pdUd*+3()p~z20ZQWYq=KxexxFu++(qKisSm|?+nKRA6+<NHtE~) zeEa@h-PWKo4Qt7h-@gBL$h!9a^OCrU6+H(XLZ>V+*m0vb(cr_L>K(h9OLu3<6>gd| ze}la6>Oblm81*N;+nV;ga9hlg7RCEtCZ=icT;izy`dgVp?DVH=m#H$}QeJkej4k7K z=z_BLmiolw`{ZTw7FEwQJkiN<wrIu#<BOLXk{+zqGh+Yp^2e`9AM+=Edn5St`h(?D zpW5}mnser>{pl;uQ}XnzB=R|Tt1sM>ditl%?fXWn-Q?fK{RXf1DtNl#<t+vVhD~_a zy@^0Vs5m3BC^aRxq$o2l9lXwYZD?TLWe0)3&qb8I6(-177fv?g^qe5NLSxa=px{&T zvu@3<NZkAS&6?TI`kNb$L|SmEC%)OSWfg<u!T!B*=g(AI8|RmOdSew{psM4!czK-u ziz<bZq@b1I!S8DdZ%9@-@RfF*$}s%8t!YpCW_DpE_BX3CU!|TCeQdBqMc6VZfotK< z^OtVO$kyKq^=K8H5v0~~I#i-`_wU5Mpy~-Tf_ASI=e5z;8Z$lVUQWs0n=Marf|`3) z9%$KU$;DZ%y65K4NS?hHH}F4?nzUnG+$=BcAPdo5R$THNeZ8eCmfZGpGN0WNy2HN3 z#(1gkksVXtYEI*dWBb50xj)6Epz48>ma1WUHv?a5kk5hk_w()ajToOVpWF3D;*s<| z`;`Zo^rtfTiOrF?yR)3jB6P*e-^=ywWHQy)xE<fULP5=_bItw(I*EBV{4Li>9_iG+ z=;iofhq={_dZC)%w_bUiKkKI5oVlANL{)v=&$P{)AJ{hPeGRnfKfE*W)Ee*3hd0fx zCPf=^-k18iPuxti`u-CQjZ07C6`#%7*}!uxp>FcNhjHiG%M>2nkzMR-bmP0?E4RI2 z8~uB-BY#Xb?-oyvNSSot>WMuL?;h<jP??)ywozk^rq1>B@SBrv1ehCb(p-OeQcUa; zUp1ZGg_Aq>1f*%RtXZSUePTjc;X2jR9xHSoyWDNxkkV^-gjdDffkAxcg;JiFLXRg6 zGvXHdSxBy7xxuxi?(hAgCC46!i<n<Zy>qI;%aJ!|#-fnjYRS*)T*K}sO(-Zhc{Sz# zrE3abwriYC%qwgP3+)JBH1+PToYZa7YK#B<pP@AM&iRO0O-s)n+7qgLp200bp|-{O zaPzTt_t%$pET4M#{ek!WopagE_dZ>DU{kX4FH@;(-G=h@_vK`NeyEstk|q4u`T{op z8Vx21x4-8MZt*YJ`b}!%eGUJU-rZ%=VP;eBIhD5uAJ?(ovN%+?p08s9XNmP<$FFiN z@&VIBIovIzV!rY(x>qmBcI2|cr=J_2AJ(|FI{mZ8tN*8KES{<5rdC9JFW!A`PhPpU z>QskEJLZ1f^)&Q4%id(!PqlWCob~4iW3~h{0|PGyzOqM<fq@|<KRKW%zo1w@Ilm|s zw1~7e$k(6AP+;$GZL_`lcl8<_n7#jSh^rdza(ldX8*@ncZr|vA|MtFR5^b%RJ@fmo zw77J)$+@wr*#==|Sv?-=&YT+eI97@!e+lxt%;>cy*=xh9Km#}H4H-c(y*rleG5nAr z#e2+iL#KGqv?5zK@8>2*Z+ud{a;D72xw7Eij9HfRXR%)Eso%)@z~=O?9c;&0ih0-% zhPb<yOc1g0dNp-r6yrg|kbveQvB`V~?PJ)NZ4;N@a)NX7w7lgHmA-PgeY<wb<4%s* zT;J_WfBodFn{8{eJuG<Tq3}Y7qc03Np0dqgo>;-SE5F<&Zuj=`ry`=2Zo4wCd4Epy zG@8Yq>37fl$NAq1JNl)AZ5l&PFB3Xx%Y9JB=YhLL0Bc0vlCrwhuH65$e(Xug+W1LZ zgJsF}RPWBE8}4*Pntx6=n68jlCLTR+^P<<k0)AgF^SgA$`u+5l3-1~x{W<b2aKYT8 z2cp`3>-^fgE&EKf;O<{PSl)fpOMaBB9?SaslcA0Etw++JI-@|asH&2Yfq?<<mJb2s zcuOoO07cu}31{;T83?qzukAYVXqH9iEEdJ%D?+ad2UU9n=1<JdKQQ&bh_%L^THX~0 zB;OyM7g_sScGJAAUVH{snZDg!I_{hjd95b9#cE66zZ6onGf<wfi7l#xrT^NO&YHe! z2PIT~s0j7sU$kS{e(1($+l*(MGiJZwDZ8R`<oS-nWfCgw=BL$p)gBm~&*mv+P<B}I zj>|>-(JKMDR<6_j|3BY;_d=<E65p0!9R}4OWp8s5R!x@5xEK;Dymqxi+??P^n+1Xw zO8+!Ibi9%$Z<A8k&Kn-aXa9cR^zQZZC+imWXa8a1-*G~G{p1iOUCw>&b5Gp%zO!Y; zCYyQ1hxfaE(2e}X4hp%sLdy>RVPIgGhj;C;FmlKxmll`g=Yj+8+(xcL1|qEw?=I)K zc{_xC;-xL!7S<u(C*0e{Se$>tx4X7lx#?YByS$y>W!t~bYXoizX6@A1)@0D-<x|(q z|GU(}^Wez`334q9p0ereF1sG1%-V61v0FzW+j6-`*3uj29`H`LOx9C&%@3Ma7-Z6S z?$FFPj~FLgg<K81*(&@~smAi>$5*C*z4=n^zyEPBU$HuOab5atage_rUSnvO&cML% zkpW*$2Kg)6IX|x?HLoN-q_QBjI2PouqoLOMhYSSn{S*znre$Uj66%`pA~|QG*Yi_b z^*g=)Ovu&v^ZOR(QjSYoIyjb{*!Nqme0j0k<f$5qRV7YO^?A(r>bRiCDv9ZpQv1)z zO`ct0^sYB8o7e2q&P&S*AI{l#^u{G7mW>{n6YM5wDtCN#pPcObV$PF>_P_s3mw8!D z&?{_Img|3~sN8+Ym0!C)_H|W-%-yS%j#|B)*Ho7u`Dwrxc&EcS;Fj2fpiQ>rCyz;f zI-zx3Eavv=`=VRUd}rCgF}3w~+L89QG!M}aGt%$p9hP(nPP!v3Xves})yv@3j(KWJ zLp$xK&fKqU>i#x2KOi{rn5KcN_#x*BSJ^l=vo;8;uG;4zp!fg6_Pp4pw^4hQ{<=RE zJ&<P=C);-Llw@`Ni-ZD6cKchhd`YM4m-Ihut+|qX<8G%h?;)`x4Aq6l_HUh=e^{@4 zHh=$osikY{m-5QwKid7S!EcK?)8mTYQhB1bUr&ZQSCmU`NZ$JLkd><6wDp;MN2`@% z{u&;S2gMwZ{~<Y0UQS>K#T+A(2m@ljB=QzP(0)mz?USgxCj-1uH6rf`1MMJ0XjEs! z*iVSASqW+H258$DLUTSdSTkZ18M;>FEefEG2nek#9AK@WrYm?IK8~#(=msLM^+z=@ zf)kH{hM;5(ZW^N-h`jy;v_$~n!UQgK1Hldj8-;GldZb1>swuJ(SWN-1TtPPlxnT=x z;3M3krw=v-M{^(D9OP;o)C@+L6JP)~2cuDpZUS<J0;=v2Caf~XQu(86M=n)CwGKji zk|~mQXdQ&E8@cQPl~4%XbIg!*Bg$cP1CX;2ssSbD3=CKbyZ~=jHjpj647>~(%nS^A HmLMJgnI1@e literal 0 HcmV?d00001 diff --git a/data-raw/US/create_MortalityTables_US_Pensions.R b/data-raw/US/create_MortalityTables_US_Pensions.R new file mode 100644 index 0000000..c579420 --- /dev/null +++ b/data-raw/US/create_MortalityTables_US_Pensions.R @@ -0,0 +1,76 @@ +################################################################################m# +# Skript to generate US Basic (select and ultimate) valuation table objects #### +################################################################################m# +library(MortalityTables) +library(here) +library(readxl) +library(dplyr) + +US.pensions.file = here::here("data-raw", "US", "PensionPlans", "USA_PensionPlans.xlsx") + + + +##############################################################################h# +### UP-1984 - US 1984 Uninsured PenSioner Mortality Table #### +##############################################################################h# + +USA.UP1984.data = read_excel( + US.pensions.file, sheet = "UP-1984", + skip = 6) + +USA.UP1984 = mortalityTable.period( + name = "USA UP-1984 unisex", + ages = USA.UP1984.data$Age, + baseYear = 1984, + deathProbs = USA.UP1984.data$qu, + data = list( + dim = list(table = "USA UP-1984", sex = "u", collar = "UninsuredPensioners", type = "PensionTable", data = "unloaded", year = 1984, country = "USA") + ) +) +save(USA.UP1984, + file = here::here("data", "USA.UP1984.RData") +) + + + + +##############################################################################h# +### UP-94 - US 1994 Uninsured PenSioner Mortality Table #### +##############################################################################h# + +USA.UP94.data = read_excel( + US.pensions.file, sheet = "UP-94", + col_names = c("age","qx", "AAx", "qy", "AAy"), + skip = 7) + +USA.UP94 = array( + data = c( + mortalityTable.improvementFactors( + name = "USA UP-94, male", + ages = USA.UP94.data$age, + deathProbs = USA.UP94.data$qx, + improvement = USA.UP94.data$AAx, + data = list( + dim = list(table = "UP-94", sex = "m", collar = "UninsuredPensioners", type = "PensionTable", data = "unoaded", year = 1994, country = "USA") + ) + ), + + mortalityTable.improvementFactors( + name = "USA UP-94, female", + ages = USA.UP94.data$age, + deathProbs = USA.UP94.data$qy, + improvement = USA.UP94.data$AAy, + data = list( + dim = list(table = "UP-94", sex = "f", collar = "UninsuredPensioners", type = "PensionTable", data = "unloaded", year = 1994, country = "USA") + ) + ) + ), + dim = c(2), + dimnames = list(Sex = c("m", "f")) +) + +save(USA.UP94, + file = here::here("data", "USA.UP94.RData") +) + + diff --git a/data/USA.UP1984.RData b/data/USA.UP1984.RData new file mode 100644 index 0000000000000000000000000000000000000000..a7b550adf492c294746ac3c36fa80823fdbd2492 GIT binary patch literal 1491 zcmb2|=3oE==G>{A0mA7b$Hke7I3yf$J~|w^$fd>H#Jc7KlTs14bWzYj-%Xs7PE4K- zfvX%eE4FA|TkN_d>f@@2K*qIOr>qLSc(5zX-TSqpAV1sDK0eX4Wz70o+OvN?+yDRl z_kG**_bYq5buqs=`i;f0fJ6J)@r`MDoY{_ESH2`PZP=93!+JUQ_=>#^^6#`gKJjz% zspwd|)5&sOnZdl+&nNoCXVqW&^W<0Azv8*VaK+)u%oXyB*cP%aZd-89=`TmAS(ZkY zgw}#jXQC_?JbZEZqWgk=2YdFvGG8XXP`-HH)n2?-<d?>m&lk=+%lFzz)$;t3__Fau z^2Or|`<><c?c{2iezAP%d?9@Cyt}=8t<WzOxm7#&XF5!tsIKhqHm_%ni=UGE#K|Xq zLSgWP<qH0e^O|BBps*tb0$XAruqOrrn_?iaD+Ua0L@TvEU12<DXUR3oC{5*M>89)I zEH2_Fq@SyOblhUqF=KiFr_%gm^Uf>?5|ERb{q*2pnU*-$#*2sdIBs}yT=YnDnTO@W z+YjHxG5@K*z3BSdc-ET!WmQuXI44X$9PD1Tm0_pN+9m0W%_j)opZ{@D8n23Z*2@Py z{}m!P{QLFl-n{Gccy_$p92&;(<ly0%)203~)&*Rjl6}hL!F+40y5LX^j*2;+ol*J% z_wGKd(f_N|F?)V+qxd0*TcWqDmTeXmt9hf(>21&SlD{jauXh)FNZY<^pF>nn?9`ij zTq?=&qO;X5t8a~`-hNs0O@u$dn_s8yr-rPN{Lw#ZH3ec@w%3T&Rxe~NI%duCZ_{$N zFZycS-|s$X+_<^+(9OG7H*{qD^qCaP|C9Uoom))%nwXyR#f#5W)!99H<K<gv<|1~5 zlg{mlVmNx*y6^q^9c-$KN$YeT8cp%L6?(@&l`HH>?r!nKlJ?N0(iV$knSM0AIBOlc zN95YPFS%1P>{>thJiokl``ZWJ`tLus|K76UqEYf(=9i4K-St0fYj?M;FSe`P6Z+FO zCv*Mn2vuRHsTB)XU+QehooW7fx!Ql0+q2i_=&!!VX`SRYw|m!Cu~oa<e_ySi&b)h8 z`qLe~MUA%MUdyB&O-j69{c7*IYi~EyA8!2Fr^*@d`theThs=2RriIVBnRAn~{kY$X zERMpKU1I<DbQS5Dypi3W>hrJEV%Ofntez#peOG$}-uY-XKi=LwwR_p}gXi~rTDIv# z=7lRyt2Te@QlInSy4cx!;XLZMZ;7qxDQk^Cz0U6R>E{O|U%s7Yz1H=DPT_|A61!N> zO?R8Lpo&X(`V&9(xv2#ge+N8#oEf}et4>Dol&3N~a<+a7a`X`R6Bnx=6a0oH{Blxr z`je-JOciEMUD;^=$nSmKmahVTBBzBfS@Wh%davH%*L^<C(djW(IVY<!zDw8bE0$rb z|Gyw7=F;+Z>o1r2FTD#taCbrrubH;yj`x>$e|va2??qQ#+^>|CT)WKwn*Ka-q<xKW zlDq!7Ym!A@|IQaEes0k1;#jkXReMVI0@E#bR$R+mtg$n2dAeJ~ekm(8x7B8=G<|n; znaLii`}gjlOy-glDXXTiS6@u-&#CH|6Bea)dP@86u=(7dJ->*k_?p)W+ZJ!lV%|H$ z^i-IeWCo}2%a0GDKkQR%`_;YS;tP$|sMSX8f=4DK@<m#;My;F{%<LLfIAfn(SPyG3 z^T#=v`ZJ%kos{vN>BH%h-!s$qFEcae@o;9tIsbMzHP!M~HEfM>mgHHp@_~`|37z?k zD^Ck74xOQPDCEEc&5!`MuF7Sv4><q6+BP-)M|AKhC$XJt_;$0*z2}j6<yei_2LDA{ zmw9E_?)JGIvo>>C=F#1+4K?}>PdQkZdzsDP`DVlNZ|~(kD_s8d_}<jlCQ@lvKOXJ< zdGpHx&jY_}ewFt0#!O#r`s(xjGt%EhcWbm-z2+@T+VJ%D4c*f=vYN{l)ojk(8?`(k he@l+nJkOOktSem(E!fC*$L{aj`V$83kt$pa3;^%g;|u@* literal 0 HcmV?d00001 diff --git a/data/USA.UP94.RData b/data/USA.UP94.RData new file mode 100644 index 0000000000000000000000000000000000000000..ec387066dd83e40a213575f85e9a7feb2498818e GIT binary patch literal 2950 zcmb2|=3oE==C?DsEvEdGJAU8rNs!XTo11cjP6i#($a-Y1IMLep-PFXkWygBX>~Ov0 zx-e|f+kM(Al~?D!TsWKSYT4~|UO`zJ+hU`mt^A*NtT8_PzO-_?-|pXU=B0nH{PtGz z{?C8*|9}7fclG<(<Ax0j1s6C9u*?mZ_J85(6Z?g<WVT%nk!}hIn<PDJPekmxESdY3 zX)^0)hOsO(33@k`L#ozftDi*pA^s=D$xrULYoCg&yy)`Ybj7^@$B>d9i$3|I;+`9` zm~tZTnY^EncS(NT&P$WMgW~T0zdB3#*0;{(J)E<}k57@9bDKBv_?~)?-!CLmp3Uvs z9bqPXE$Kg}Ew7bB*T3&!oBls(&JuIGukMsJquMw6qI5*>XXWP`^Y*U1WH4QLLf_Yu zm3c?Xp8VOo(RQa^(cCAy?r-nEQmgoTv6iLW$|p7}yv|Lwihs4|{_^*)rr+T&sz32p z>3jbj|Dcn#%U<n%S8TFPxzzC5;w+7#RaJXqJMI6PzUa^{R{kl}WOG};Dtp5QHE-Tf z=}_^n%vbmWc>{O@)fY)Elv+G%fuEzP^W3(q#;nd$4qKh(_E|AsmAcASs`g4JMD0~h zNOXvGh(qecS+`afUpViW-+xbTFLM?9m%bOW7tg!ei|-Y#QvdS#!g=TSJ@+K{a#x9e z`F!!b`}?kYqI;#Q%)h*Qara{Ng6|IRJMRha6|d44(~69{y87OUy%VdIzq`F_zQewg zzexVcz7w?*e=B`=J?936j_1JeUHcvWo$^KYPyU_wJMp*jcXzo48-_}TPYh2QPcTnp zSK@b(Yq8;|6!@g@<lu?siR{Y!ZgNdFER`Ie1fFnD(0AC!@RR8YH|HL<xw*V@^R;8& zh${2Fwtv{SiMPs-@o>U6$;XwqmzQjKcKmmrZZVU$^xOBB%>J@3lbsp1Bz-UY8SA;G zP3x{SMSeVaNjrLOLRb3M9!DFN;5g;z1vgoiO*i6QUUmGyl}Oem^Z!{4pMMGeTI_6n zAn2*eT89+Au(wZN_KR<C><vHAtlrvp;EvhcmsxQvW&gf@@4oVl>9m?k(6<{b&t4oU zT_t^{$@05?{@s`z3~%<wd`-=Eld;I*->&IBt?BVfy~UaSx(V-QzxpcAnSap6-2CRj zCWC@|22ERwm1JW+%}PIFw}bU_vHiBIW_uadZEVeZmA<}lcI@%VbAIMN_*SzhEO4vk zj`X$3l54zJzq>aD_C*OF-22t5@7*NB2lr;q4$ND?Cbw|gzs`r&2PQv1q}lDmw7xgN zy?-Cuz1`Bu|L>-9*qzO?OD*?jsCK-i@lCe&!(|`;l_qPL{?FRFoBwxA^MOf8n*(=- z3e;>}6sZ4HQs+o%+dPi$7mr>$-<Xy2dw2RbM*W?KGuFTK>9CMmdGFvqDVDq~0rL9A z0=vWo%ho=2oTKbxDN-XiZE0+F)VeF2lSCiy`<imy;my=7Q!nojS4=#ub@|yD2ai=( z_H2kK;|e=h;%oG;#BR;0vbnkHx{apOb?05l|Ic!bb<L^g74zD7+UsR(zS}UHE!%Qb zTxjM5Uum^CyAr{iyi>1qGJlE{y*IXI&ii#>Ie!*kYVXs-+m?%J+Y9$M%w^+0*Pr$| zv3#B5-)RYoPg*7RTW!{4`Lw)<>)V=}jMduid(3uyV1DC0?avJ(P3C_yg{~<WdA2h1 z`<|1k%V9YB`_$h}Vf^jRp>MM#@~=6s^qc<lr{~&&9~)!8XXvv{iPba6y2Rb0>^`mN zakPC)a{QLEDYrj8II{CX`pTc41zC3tR=;9qU%2Vqm)Wkmd;xoFUL4xJecGYO?yq;g z1jYV{+St?jwZJj;-^|$DhXt8emaP%x{rymy|Jl`->`V``I@ei#k2JU=F>}c(sT_85 z+j(<NuRh&AYijygKX$i+YyX@M%`Q1o@Oz2Z+bMxYEB4l2_xkH>y5n=ve>=yyqIa(D zH`d$nRPKs<j)~Mv-vfKIGkbzUHBBP&I-<URVXoMqbKp_yT0I+)n#}rdmx?F6jC?M- zw1*{f*+r$b3b_;R=IoB!n5uo^-`c~IKK)s+@q5j`wAzo?gx8((?-27&O0N3HrOw@c z!Nwvl&%`S<moxqZ|8%Y+O6qw#LS&Tl7vB2&%}P(HG30>gxy~orb)8>6%;#UL{j`nq z=eIu`g*^ACzxkzGtJS?Du&Zth`;^R+#$AlZvtRkF)?^EeQJjCtB~;_tCzeGXf0nu` z|61pGwavA&vWdgdVtaW?>aIO&nuFS>Dg3{v`Tvi~{}+krv%2Pq$ZAY$wADUUEiH6- zclGNF)vuNcUCF+{p!Lvcor_cC{B3`>op|5rVyEBP-ErLi#oPlAY9AIZjX9HH5)$fV zuVq{9qPfI1kjt&eg=yj=#RruiUAqi_8eZY#bv_h!$CxX)SM=oe+2@siZCYTs^HSs0 z7oV!#Vs}5fHpzMAq*mMWtT#QB;;rqbK1^B|Fwdg!>!l+Z{}#+W@V@iUKC4v^A4N<w zQQKJm*{vj4{iv|Z*JNGGFsY8??w!d?Vir2gy0N)nGh^Yl_X0e1pBC+W=)H5IeRbSj z_OHqZpTAuGFJtW$-#w;Ymrs8BAD^dIEN6OtulD@FVpUW5pxcvozKQjEW|C$1d+pBe z(_iiWWEi^g_2PBiR{!mP*&h6TPd?zja=?A{J^KIu1ub3odHS=*-=9AD{^aTYu)MH$ z_UHAhydypSpF8#9|G85uPC$r|$jGJtZEjEBUQ@Hkk}GG&<E+c#5noi3g4yN&J=v?3 zu%|!L?8+-nAGwXL6CWmAnz!VoT6S(iQ*u_sw|?^j1|L4}`aIV(VTQ@mrl=>1GXxCp z>{eSLp?1yp-o*P$*(Xc3Ii;QBGPt?*W5nZKmlLLCmZdeH4B8-3tiR6A)9#+ozpp1Q zX(br+=~pIxmXJ7pTW$ZZbHWm_vz&!ig&gpjm)<mMU8Cst6S>j9%r-<lt}t_z`CP1f z|D)@RXORYTD~*ksLOG0k`1a2^c7y%en@JCz%x5~VEN1179b3iH&T3bceEKSpP<HCd zRu!KOYj@d4t~?-_@cQ}Y?P(TFtKWSo+ux+J;ke6tg{ZR9{GV|%tew8K&5hvpd+UA0 z_={gN_r|ED)o-#2uD<h{IXjE{-Qus)!k1h=@c4Gb-Kom$4dSam6?WdO_%JWw_of$p zhCd8a)aJLUHtVa^@O9grbWY*;w_|;y+N9K5XLC5t-L4C<FXq=dQp>eBD}Q!!q1>US zez}zwPO`}<Z@=MqnpMe6yzR~kf#wG%R-e{?9p`-I+I#IdlOu<XejRmJTy5g8>Ek?& zZL_%xm6WolpOy9a^Xl{E-IsT6Q2KPF<w@J=2~~lSxA*+jToZV1h3C9X-b}{Un58cD z5%J5`-;g{}kra6OM}(x=o`;*)scdn&mXrIw^!r{#>v?*2)_&xC;^X;0W1gRJ&c>MY zdtCBc*Iw*j<@@f{;ctCUGq+6mxZ(B1O-H<LdYwoXJ61N!)Tyo}>Wp5pu0}_`)i<C0 zvfrlv*u80yWWfO=zbfMzE0OHnC#6&0v^et|{J3k~)qtYRJ;DF#q-5@$FU{Bg+P*3H z_T<Cr|2f=`^Z&hfPg$VvewR$}TQNp;!@zLC*K7P&*05eZ{-|4bZta7dG!O5aM_fOY z-cf1(xnBK1tEhX_i@DbdH0#f7ThLebW7);iw>H}{tuqwQ-?2TF?GDGftChRHSl#)f zv|8tmDreqGn;TO;U)9^8YayR{R%OAqV@q!q_nTiSbh`fT`fk4R_^EMEmTrC!*SGv3 z*HWL13o|xPkIrP~PkX;+L99`8dvM&Ibt|77IBYh1@}}og6{1%^j=7$}vgz2yu5!cu z`9^Y=?#eq}WvdAfpHu8L<*LMi_Mpi}I~WB`o9@d8wSWEVJYRv0Z_Q0xi^gv)C+rm} zvI5nA*>74__C5d9bipI<XX#%}ay=9;Zty$lUc6=StAO9N=^ZjMj)fIx|G6iBsK0y4 m@L1lbYu|bnUHM<O;J?|v+S+|jj4%EEseiL-rc8_+0|NjxBIp(X literal 0 HcmV?d00001 diff --git a/vignettes/international-mortality-tables-overview.Rmd b/vignettes/international-mortality-tables-overview.Rmd index 0cf7400..82e68eb 100644 --- a/vignettes/international-mortality-tables-overview.Rmd +++ b/vignettes/international-mortality-tables-overview.Rmd @@ -63,6 +63,7 @@ mortalityTables.load("Austria_Census") * Pub-2010 Public Retirement Plans Mortality Tables * RP-2014 Mortality Tables (and RPH-2014 for headcount-weighted) * RP-2000 Mortality Tables +* US SSA mortality rates 1900-2007, https://mort.soa.org/ViewTable.aspx?&TableIdentity=1502 * US IRS Static mortality tables (prescribed for each year) * Greece: * EAE 2005 A (life products) @@ -1481,15 +1482,6 @@ Standard Industrial Mortality Tables * 1964-68 Intercompany group annuity experience * 1955 American Annuity -* UP-1984 (Unisex Pension) -* UP-94 -* RP-2000 (Retirement Plan) -* RP-2014 + Scale MP-2014, MP-2015, MP-2016, MP-2017, MP-2018, MP-2019, MP-2020 -* RPH-2014 -* PubT-2010, PubS-2010, PubG-2010, PubNS-2010, Pub-2010 + Headcount versions -* Pri-2012, Pri.H-2012 - - * UP-94 table with 7% margin * 2015 Preneed Basic * https://www.soa.org/resources/experience-studies/2017/preneed-mortality-report/ @@ -1714,8 +1706,51 @@ plotMortalityTables( legend.position = "right", legend.key.width = unit(2, "lines") ) + facet_grid(sex~.) ``` + + + ## Pension Plans +* RP-2000 (Retirement Plan) + * Source: https://www.soa.org/resources/experience-studies/2000-2004/research-rp-2000-mortality-tables/ +* RP-2014 + Scale MP-2014, MP-2015, MP-2016, MP-2017, MP-2018, MP-2019, MP-2020 + * Source: https://www.soa.org/resources/experience-studies/2014/research-2014-mort-tables/ + * https://www.soa.org/resources/experience-studies/2014/research-2014-rp/ +* RPH-2014 +* PubT-2010, PubS-2010, PubG-2010, PubNS-2010, Pub-2010 + Headcount versions + * Source: https://www.soa.org/resources/research-reports/2019/pub-2010-retirement-plans/ +* Pri-2012, Pri.H-2012 + * Source: https://www.soa.org/resources/experience-studies/2019/pri-2012-private-mortality-tables/ + +* UP-94 table with 7% margin + +### UP-1984 - Unisex Uninsured Pensioner Mortality + + * Source: Paul H. Jackson and William W. Fellers, “The UP-1984: A Unisex Mortality Table for Non-insured Pension Plans”, International Association of Consulting Actuaries (1976). https://www.actuaries.org/IACA/Colloquia/Sydney1976/Vol_1/Jackson_Fellers.pdf + * Note: Where separate male and female mortality rates are required, + the basic UP-1984 Mortality Table can be set forward two years in + age to develop appropriate male mortality rates (possibly set + forward only one year for a group in nonhazardous employment). + Similarly, the table can be set back four years in age to + approximate female mortality rates. + + +```{r} +plotMortalityTables(USA.UP1984) +``` + + +### UP-94 - Uninsured Pensioner Mortality Table + +Source: The Society of Actuaries UP-94 Task Force, "The 1994 Uninsured Pensioner Mortality Table", Transactions Society of Actuaries Vol. XLVII, (Chicago, 1995), p. 824-826. +http://www.soa.org/library/research/transactions-of-society-of-actuaries/1990-95/1995/january/tsa95v4721.pdf + +```{r} +plotMortalityTables(USA.UP94, YOB = 1980, title = "UP-94 for birth year 1980") +``` + + + ### RP-2000 Projected beyond 2000 using scale AA -- GitLab