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