From b1b64692b6d463a4cacfc8acdbc31d8204b69028 Mon Sep 17 00:00:00 2001 From: Reinhold Kainhofer <reinhold@kainhofer.com> Date: Sat, 31 Oct 2020 01:45:02 +0100 Subject: [PATCH] added 1958 CSO / CET tables --- .../US/CSO/1958 CSO/USA_1958_CSO-CET.xlsx | Bin 0 -> 13082 bytes data-raw/US/create_MortalityTables_US_CSO.R | 81 +++++++++++++++++- data/CSO1958.RData | Bin 0 -> 5147 bytes 3 files changed, 80 insertions(+), 1 deletion(-) create mode 100644 data-raw/US/CSO/1958 CSO/USA_1958_CSO-CET.xlsx create mode 100644 data/CSO1958.RData diff --git a/data-raw/US/CSO/1958 CSO/USA_1958_CSO-CET.xlsx b/data-raw/US/CSO/1958 CSO/USA_1958_CSO-CET.xlsx new file mode 100644 index 0000000000000000000000000000000000000000..08d97882116a432059d13668bddff767e496e8eb GIT binary patch literal 13082 zcmWIWW@Zs#;Nak3_|6g^$bba685kJii&Arn_4PpH+DYfVm<<Km-`93cs4m|o>XNc~ zZ^wn%9<>cK&iqR>pJ^ajT3g-B5w&tDd%tJh=d<R{v+fF|eeIg#-sP6RDoVSj?~g?F z;`w~vUrX=J4nM1WF3d}XKl#+ED@Ss^C``&@+$3#qBPQ@rM4Z*5grzb&+f(kQRJY{D z#xws<dGW1d<+pno_kQ<=wSRA!zG3BSxAyWUaZGNO7axT$nxOk#!%g3KkD&i~m*CI^ zQhvL0^vi!%`*CPoi{AL4qj2tykj*_a_Lti1Y%iK?FZ{e^-M?bX9UN}`|MpDseR(?L z>Vb>u8TJeT-s~J{tD3eyU|?XdW@2E#9WeY13=9=H`sMjW*-82N*?JYZIlaNR`(_&m z)V>dos8f$A$`oo{6C|`nd+Xh-$?xo>C7Ps@m2dCd`f7i<LE`Sv-xt^q6n~s)Y}|hI z?ozQQEVl|&lco5Wyd0jbdQc>PdHwDyvxAa!CbJ5AIr*$lcyagB-A8M_C<ecB_^{8! zaP6AhXZ!L$ab=~ktzzt)81!;hq{-KN=DloTGq?_1JJjEl@aTGv_btUUU;ihp*!0A5 zO=#U3$6I_Z%?V;RXLp&m>4~d~f4F1n5^=dE&GeGrj1w#O*DU?(I=Sa*d-CL@G9Pa> zo`l6yt?bk8D{Q|ZDBLuuDUu`o;0phr%ubPKju^ejkv%VS?pgUBQ`tv*Fa6m)X<BFQ zx~T$&TYpuoZgbH+|6laxw&q(K&wM#|ntOVy)p3#VlG<Xs-H*BTb6UCQ@GM_^ubjUo z{^kt7!;vnXsW*eISIp>R-V;`oyGHv_fJ9jl)0*p1HzxdFro4UgKkp^d85Yw1o||e_ zPNrQKI(EXjF>kq8H>Y}Dh1!Je^NM+1v?~?uu$3^I`&euTYwyoaD=!tHZD&lT%nxZ4 z(018<G(Nm!^K}Is=T*%L9MKUwZuB49_1@Rt>ETa(U(R`%FG8NMxSkCBJmX)5eW%*V z5~0eAS~69MJ0z>++ZJz}o_9&)`1CcCBYz1WeH!rmhl*@%vgtof|A4&pJ05teZwcM8 z^NB)O-^~7#cW(=Rsjk$iX9T67T}9cSS(z9Zs+sYnAYMocDlVzaNi7DYpSRKRdAH4E z>h5c@r1pEOcyANR-PV0>?RLh)0VXdE6wWg11{#HTifHWG`g=$58;;#a^EOTH5z&p@ z<Y`@c$;ENWf(c)K|Ni*6-^6vpVe!)@hIUS~l$+es-k&k!?O+yClIcHF9)9^U_vI6k z2NXRx+LVh~i$5RzF+1^G80Vfj&L?=}7@sQ_pNsgmH}&a3nPm$0%92N7gav0Y9gEM* zc`DheaHchQRzzQJbr_d`*>UGR9?LaP_crJlNYDK1m2%>?zT)v`Uwxh1W>1*l{F5`u z!!aq!>#^hIAHQz@|M%;8Nz(lLd(8dzSzB&ApYyx@_4f7gclX$bzBCEkn--FoncaJS z>ak0AqRcC8dN}TF`EzGV(?^5<IW;Vt{K|`)MNWO6E^^Y$UBUIF7niIe$FqiKd+e7) zPjqRsQd)4==zD9(lRY}Z8e4W%?4M+rbnHAw`wKhIUCB3Qh8XP1Xej@6R%iW#`47Ig z7IJEKZM*#C+cM3(MKb~>g&ch{E66}Dt-;Xa<COgpub;0DJ(ex>*-`hfNE!Q@WUesV z^n&X4IVu_=8jm<VIZQKbq-S1!xnzgSjGOC{taKk;PYS!)C7u7Y=fVX4$ghsdu5KL; zJ_a85Qk9LFJo(Oged($>w6ws+C*eqiRM(@OJB%lBnzR^B`qX~Oonhj{{?iE}msRFV zGcHOqzPruq*}Z9Xp$fMTwW~Nzj6QoJ`P(tuXLS!ss%KSc-2K(aznMYp<kF7M?jgOV z?tjem7vH^~8nfra(`JdquiYgx|1xdTiS+H{2s+ao^dUL%lE7Y{fS%wTsXy9;*qFm~ zg1J6caCkW<`)T|-<J_HT7^lyDWL4WjhmMqL-{ym=)!q^l0xg#Li=>3dL>Qh@|Dj}f z{b_O6hjwiv*Qv8EPYE^XX<?C1h-jL#c*5>$I%`w69G$ZF;mUFy|Li%pU9KK2U3O|# zg;l~Fz8<zS7n4^rUv7MPpd`V{;CRE!-MPP(zWE;2y6nD|iQnuCKXREaM=bgNUa~K3 zYTTmAp444kjR!ZUF9>69HZu??U|b^0$j<qpKmEX}`lF}wf8BasbKd$}ah>GbO`*%5 z^#$Ju{=KbU;npqlGw*s$-V0>*eJ+^ok;K2&FT(So+@X|N*TindzPuHm<ln8o{9O2Z z!ymU~C;4|6E>C{LEm@pz|FJ&wRFv`i>h|Xw>#SG3(F`<up>f-`;bP!7gUj{iGv8_& zuh-tJzx2(w*EiBXtu5)kx#sbkd#~O|)=!a-&p6*{lD&6on6>)mn_-*J&blF>{>SZE z{v(}?AmzMm4xG*r`yzMq2~S$KV9R@6DZX{r4(`~Nucf~J;S<fdVpE)C)@aTD+~!|D z-(UH<>*4n?PrtJTU2L7&eZN3*MNHgfiE{?0R>vx+hAy2NsOvXp-l=!@_oq*I#`yk! z$JK9B`68sQ$~6Xm*mpBnbgw?2!Kd9T)~oWUzYdo=FXb+6?q0v$^ixoFiQP8ce=AL$ zmY-hiyx_B7(bi{9x8-i{yO7o5C+qvXc;Q#UqOEDg`$DF=zkU4K`)<(v^4Rm24Og90 z?%TL(apk<+*Na|m;N*{;_vyf!w>z(W-?q=`+x5nE{@+78)-C<zb!BVF`K=dLR0>aj zzq&ely8Ejul_gu1OSO7eXm0I){c2VClk2?+dyjoDl?v>BCH2*Y*LvQM;P3r;Q+BL- zzuNSWd+&kLQYk~JuTrv1jgHF;pU&B5S|9y%PhRf7)u(^dg9=T-H0PXOEDQ|##`p?N z2}q#{s&<PrQd3Kc^}&=OsQla;>s$QTZQ7pq>jPeF*q+H4+Nz&l?$5*V=(2Iyn)EWI zZ*JRf+~x6JG%e|N^8a6~niG|b;&0jY2tM4PtI<0B>xY0yj}Xy&|9-}QFAuk0SMERi z?cv?8fB2TvZms*VVeeg=nyT`@{rj)ipIX0u-nZ55x3Av)miYJGujgMcf1Q8-|MA=N zx9ygnXSe?P@6{h!`2F9nvw#1+KmP6=o7x|H_Ql)oy=k{j{@DGRJMZ3w|NeOV?(*5o zkKe5-t^Tw4_ikx%*OzDiW_>RBThq3_Z2xna+x_z9^4G3@J3RgO*TesQs_g!HH_QG~ z{jWWhHCA)q#&6&Mx@P<CtNzKs{xy0UVdwW-&e!KF+4uWw``vGuzYG6AJN)fmtJL;Q zJ2cha?)m?ry5sKpGW(j!KbI>W9p6}ZKmVQC@A>^Q>+kQko%iSV-K)pX-mTmF`}Mc7 zJ$mxt<^HcfmiMprfBpX2?|K`#`u+cZf4lwhz{~6A@9*E+^XKF5?b~M?wzi+H+ZtV8 zQ~r1QkJXBOUChroe$GGpYx(l-|NE<c?fJV>PO@%iwC!BK3Y!~m%(lnp%UyeX@$b9S zrw{(W_ixLMds~yWj@{bz=ji`+$LGxDdt)}=u3u(<T>YK-{yXDq|KI(U_cw9>zP*2T z=kI&-{+Po3zcv5=etTEbbo=Y^tJ8P?Z9F8Ax7%9we__g>cfTG^xUl=<l-tLhJC6Q( z_wK@l*Q@#2bIj-2^Ii|%pR@h@{o07Ty_sE$Up#ugU-rLDznsvoudklJot_*OS6975 zcHjNHdJ7q=Ip$U|%aXPEIO}3$^X7_+T@PRV@kRgZaI^LH_WxgAz5IV~%%tnuWfmWw z{-3YsTf1iF$E5u!NoNk(n{WSpUU~fw-&tv{v(ism`acfMyxu;ie}7s2vFP8^KW5G8 z+w-LU_na5&uiLMC@AhZng{K=04;BB;Q)9WeUv~1Zl0V-S_m;0dzWgw2jpfUBegEHY z|8j4B?){~*xO#V;!C|@Nd+Yz1Zj$-GyVBy{_ssvFKMM7pth4j|r1qqp<?n3ec}`Z! zPiAbf_|2T;rnkpMchmJ97qjpD@O{*G^uwGd&*ieV#_z4)efwX@R_mggzJE2g=NS3L zues+7C4K6#i~XIx=}6x!i*0`d-Ue*-KQ7W+|Jy|F@5kCN-<}<3-Y@P_>2zn0OvHmm zE`FVl4!!JBHWwZ>^6`JENZ4UfV666jj^p=iNtyRc>&v<BPHeXq*8X^ai9e(wp_4t! z=E8$UG5(T@1;?2WA8qtJHYxt(jL-Rt?w^{mOFiY(B;|<(fu)8aca4>HI_%I)I>=$~ z8q&iNd}NZ~Ns&NfrMXH{ZYjYor#ou8UPuJ`2-+$q?FeLN{xs|A$*+F(Ppj-tpWOew zXt{gZ%ZWFeZ=SSK-sF8`w#F$Xk1LNPr!(ud-dZs)k@bL60c*_trM+KV3j!u?T`<G> zs%evwTi)9fo^#wA-ne96I+Qr|hD<QO4EyY4p`zV!n`XXNwZ7E7n7i(V{T_#;45v8< z-|nnnv|?FSFg;A)!QbJHiHHHG;I*EFmqH9?O-s20Zm#8cSJQaVnzfYWZK&D89G257 zILhumF~075u9W$wcJakaEKgO%ONA9QL-kH62F#ky^{RN4%)!f+8n@j(lo;OOSj+KF z=1TeUhK<X23F<87*|ouOLyz9OL!M7XjKlp7PGzo5i|jbXdE>Fjq9PlWrCK3R9bPPD zs?xX>RZyal*88AiN0>{QVPArXK~vRR)}tD&#(YglQ*MbC?<m_m?Tn(rHJ&?OPdN{} zGMg4N1zlWlBwSrZ+*yoa_mqg~k1WCsOAQsIU9Y-cSP|A*ZpfLSzA^cF&)&XAQcE== zy0WKK1iJ43_Tz7RNZ^^!DG8!S7j<oLkDN0h#*Oi`#<W^4zKN<+vKEK=to%RGrJJeS z!=+rsXs$}sl8WpvU71rBlxVIB6u2e&e-`7%_A3(}OL=W<o3lz$M^Sy9kB{xd;8MrK zGnXDYCOK__!mAG(S4{Nbe%0YpB7SkgvdKQ&?uX@%njR{W7P+p`;r_+>Pi6OsV!_l1 zmpGA$hYc@qo(yeiULZVawMKyZk_A@;uXSn09(FTY+UMb_&$Z{y+#}B_n@m+^xG5&^ zaxR+~?!3sLoR@XoLYZuh6;g}lX{?ZP+Wox6M1<>WisnW`UX!eoTTg8461gsO)<JUr zi47ehM#nEkukUy?At%6QakqPCChy-_=6~9+1ROFAN#Ipo)t0noq03bPyJPbwxbY^k zYNp5}ZoN7wv(ao*%B;uDdwTkxzflo7e^Yzj#Pb`PSk8O&u6S-X`|*_m{+CO`e(l!Q z_<L7$$||m+2uCi@PZ8dWVjQ|O#3yi_kDcJu7c0Qq#&X%avPx6&pvkU^8*{H+xWiVG zV|gLN@%SmzRMlWL6YZHs(|a#YXxii-?!8JUrAv!@W><c1yNKEO4X59ThA-9*s@t+= z@lM{CHwu<~oHc#przMpkYke}mOkNccdG>|6uBwsW2cv6UD-BnL`4mfqY44Uit~WO& z>cQf~^&M{W<jzbnUi%~`FWt&)O=eAoesZecV&^>_Q>}aXABF0~rf>0>Ce+0rxK+u^ zu28vC?1z_+Yq{ZGll=l@P9TJ`gwPvq6CfVa=St(yBVG<klYRchE{-^~S=)*dsQ z7|d6qFgwsm*7mOUGQQhaJeFD1WQA6UPd=|PQ_S*bPnXuTXA5SyiLae6cJWTwR^v5U zGV7=L{aE#9))~(DsVVEN6o2+wPn%G(YNLFR$xq*zi#%stU-g2|d+%hAD|_NT_6W&@ zXwREI$$ahnow-@*H?I7cwyWe&kgU6Mg#D?1u4h;Kd90f+!|kEy`8mt=O5$46E{)8% z)rYL#2h6kTRK5CI^s2_uO2@8OOP~36XXMSkC23~L7kf&$ql-hmOV`gsPpRg1q0^^7 z3R3F&s?$Q&hlR-6y*265>Wo``Xtx8i5+}%r;5CmN1$(DVIGY=6eR$b1PTr-#_wv0K zD?a_Z=t-!b<t|C@nN2~Aob&kFSN1*vIsbv)g3ot6HNvXaceq)k<_EawyXHqZ7SFzN z&S2%o$mJ!cexLO?HRXHvqHxQnFVenrRcmh4sNS0N>cgDgB(GK1SG~|XDD+NcO6vOX zkiumj7R-q2y0@j{nc1qji6Pb|tLA>HH-6PN<-hml#dAwaKZdruY<h9EYvp03Jdxl_ zd%}*ETl{&eGRb6pxXWT0`8T2$J<j|oDE@ur+=rDL&GqLR)fc|{b?D^DOD0m2+VURM zc_ey%&2qh(IQ^=|DwXQBT<?XxtyG=XvOYXS+2j<v>(`(k%Ti6Y`@UV%c{wB4IyLz5 z@1?E5&-A(CpH5ji`*Vt0XX?w<qT%hvEYe4(E?FP?G1lvbUy|paDpymd<uw5z${Vu| zpUn-mKD_E!dE(OGFw<@252rBqTne|$e4WIrsh}0VHp420?~=x>CDm)Y{5BU_ce>nt zEqZ>%ft?$=o-cjl`|9}lw?Wm1mmcd}y)<0U)U4v+)bHK9!YeaheEOr<nfi3KX!!I; zr>l=nZ2?(6>tYPZMXyD#bKKv~)Af4kCtvQ&yydr~{Y>rpr^Q9AE^Iukq`xLKXy2=r zCr*p5e-}D+DO`IMpSZ6{mlkLI>POa5D{o|KXvVK!;Wp!{W8hwqeVLMHb0ew`Z#Xtx zc&Yd^t-Xm+6^ZL6eF{}yV(8d@%EM`6+m!gZ4<~qhRC$>lS}^_N1dpW5l(jS5B4#uv zRcY2;7MgW?-M6;bUhf~Lggd-B+FjID_MbZ<zFu8rf6^k)F7H;;C+ovvWc%JqADwz+ z{nVI?l5bQd9bF&pqde!SnZ~l|m&|n+@088Xx46b9o4tO{gANv7%WF40!{cu57To_e zAVO?^RM1(E3sW+CFJ1RqWvP4oh03%epp;Xwwj++~J}BX=-J2M-I5)Z~mGyEMPu$FF z8Z}eH|K<6Fr>)$eQ@eGESG1AFswK5+m&{V%k`kB{`M2t*=`zV*U9Xq^@_n6=cmJ03 zzOC-}Z)uy)5Svr^G<xy3khsb{7TpP&6W7#jO_>!OzoaJn%D%8;`WkiW8&}lrO_I8N zn*ZpRpx?_}O|}=m<$Zo@aq-)!vOSA$w}zJ)WW_&yx=rHP=6#1Y{kl3yd!1X3O1Q}W zuw%<Re+iv@bX|Ly;k{YSNvqth7yrI?@59={Z~iZ*iud##IHavF@qYa&?fUBvf9+e^ zvgyawF0Gd{mAXz{U-iQ7lZ{4@Pvq~aqbA2HMVcQ~t*p7MHS6}aZ`Yp5XGB*&Wxvdm zt^fVnf^{A{_v}bY)10`XX6vJunN3@tbnd#o>V@3&BPEm6U&pPVaVd_qIZ0}@xqM>Y zb1R8+Tiu^qX_!kaZ)QnlyDao)0nfby{pmud4~1*5npeg=F(y-RU)OtC`}v;hG-~!H zNj*+T3h>cS&5v>|zJ2ZBhP8$7swG<vdPT3&X)=iL{IN=S(tY6x_cazSso9$J>Y{V5 zNN|X;=$+pJ1<p#HsZU>v2H$#<9pIy1njhs-Jp0-~gSCPFrxbL;HdTl_Myy#<eU<a% zc|)5G(;`x$w3o@5pUe^o4%!#y`n~hHQBcH{eQ}1p!ZKmn%ch?)*Il$T_jSUJYZjKP zZ5n?Zl+5<9JZK^NgvF$dUnjk2lCk}4&1LiAo@uXAsaf0gesfQ^M`GkJP^|M_61ndE za`v=~cea%p<Yf16D-~eVUYiuh@|1P)mr%zayX}?<9tlc}{FCJ=8o%G9ODi*e^`Ul+ zrGI5oHb?xgI%<0C;ok*2j%DR9GT2@$%kx}HJY$Mu#F{M&Zz^e6OYCme;^@BqTPFOR zzUZ|J`=bhZEn-&%#(4gZ618WkdVKX{*+!;sUE1f2Wks$=<ZcsxR<^GBVGMi8y5@pN z+gCr7H0&kbE>h5moBwRayQPPuq$0FeDITo+-KC|Ou=-KE&hk#hO|fel_dfD+-sf1j zH{?L3?AhEn_QQLQxwjf|%)a{A<g=@QnYLzvXv<mYWA!U0uw1)vAgYk}MzQH6ZLfsY zkJKM8Xy@|W*6p$(JSJ1=<boY>UJtfRcxJYtIWgh!wEL+7aoGn-`@0qPgiSi2#j)PJ zhyQqnoz@z~rmc@=C9IY@I#p#u=*P(>j)HGec1N&OADwC^WT3Imk9WeeZ5x^s6O;2! zDezoBa7c|O9HjrSdCH!|iHD@LBDB|Wo|~F25`O7G*irw-4OefzESt#nt!wr1!UGF- zSZ!@iHrhUMZp7@U#S`apoHu<C^3YYuCj8O?Ey2Egp=vFaR@0CTVKFaH#s{i$=7jz@ z?7r(mYe$Y)cf$G=mn3onV)RuDqTGw4Z+0f8CO4mUxv`G(ZT4J_+f!9GSSe~gOg`@z z|6ee|nI-$^)MM(skGzC#tokwY@Yk}rIbzuf>sPRSxy<f*b>&XClXvpUl6KtOv1Xr7 z%ja1an2x(xtXFBg%IRrd8S=oRe&vQXj%!`nZrU=U;gb%89X-z#6?pq(*+!0UUD*e; z4K&tG7qZY@vQzf$k%BGER=3mz?mqd^v&%v;Quo8w6PzcrCKf1iLW1(Lc#=qX)tB&x zpG^)<zd1KgtP|vnHxog%5!3QglkH3AN=!53vpVHcvEF2N#YB$xQ&l#2wS1qwlV|OP zrH7=HBDB}Bp7Y5S0lP!rsfk<H`mUbH!MH%*4{mZIR~Kw6^?9~!i}2w~ZuRSZTE2S8 zTY9&A_2P<9J@oTz7fbkNT~ScN2-M9GTl>h1>qgg)!Y9mYc`m+H;(a4}-9#x?I7VL- z9Hh586EoE_GSv@NpUwOfrL-qJ=zx~sz5IDcEh_U?ZfIk>)|73-B`r4T0mPIy$Il6K zdv5J^-4I^sTNrzA!49^sFZZP6`CA*><kqZ@Qae<wTVQrXN${SwXTnsD_uD;o^s!vI za3Ct6H+hSkl<QQH4Wb{DpL5p;yiM60!CXD{8c+L^=0~$u^b4vMM}r*m__*k4mx%SO zy0d&+zIHJMsBZf#?cTU=<_?hvZ<cIFQ?=<k0z*8RqK{tvtfYKX=h}g|RMX>?i<=kC zTDAVQYO(dL&W9O~ovUWvIG62Hy<A7=;hsrMVV!UP^hE_;D3@Wmb_tYUELwL9#zZnk zA2oeqSY<mmPdqb0e@CCKlBI{z`srL2f4_XW(^r;dachUM_sm<@wBN?>^Jx9-#T2o0 z+h^(Bg>O3kPCOtb6rsKB3(pmfRXPo87tJ~*>FYS@Y!c@i*6SOmAAepq^_n;1oM{*D zw3TH^+}fdDF!R<qZQV+r*7shY!skv{BBEKF<nPGKxJERv=1Cq)aM=E^*7HHXT&mQg zk8<~l1mE*_QT-b9cbTcl_L*~~(#-N+ge=?kQtC4MOYxPtyEgp_RabfK(q{WBD3SN? zYSHU+td$Q=y|O;^Be(zRt=4z-F71yiEEVkA$a=l=7pVDQY;Ahx4a?a#!W~nZ%7W|_ zJvCSK<y<!Ri|z8)@@_T#vR*9Y<t39Y&6V-mhjv@=Rb2Bk>;AevJo0NrF;CNLm%pF} z)bzPhab~j$QnO~SGx@HuRX059%Zyuf`Eyb&`|_uAoqiS0J?oDx`%&Sg>qQUFea=6r zWK*C{-CnPZ1HX#`LY_`jdU;2$ENjONi}%ZXa(A1a6Wr;MyL;-^^<J%}F)b|DJ#|E{ z1?-P1C^fmbATY-Bca-3L)xKrjC(<_l_^P#*)9;kD$ko&TN~7G1ci&j~FlqUVq~+Ug zzf$^=D!%gVwoP9`SHAtW>#+HnmF7Zvn-<n>eKhORx<5_YnenSvq-8dF>s#N{3ELkR z&};nbNRQX+rQblU0%2=YpPV~CH~8dkziJuPG51!Uwy%{}?)vMM)01-bSg&2$A7ywp zbMM52Q}fFN9{%+Zi@oJ%)-Ae0JmfKxxDBt?%IUw%*Dl(r`{v4q4TZvgjkcZ*6EAr9 zQ)%njuxtCZww{ff&T{5akb^Gc8rD$%bBhyBy}I7@;hy`SPJx?Rm-ff0ir(Go`1DKA zA5a^kajq1bSzZ20pWMY)m;Nx>?vcBA>e2OHxr?vMT1mX>VYxP8e^kL&le}D!aH0KS zN4{tJoQ}1=sdsIE+|#S>Kh#_b=B~KEWWuJMyl>7JY$$vcHuGlK>c!<Vy3cHjiu}9k z%(kl9C&pV|PGic}Owir&i|6`nvo7tI@vC=;HLA&+OxwuxO=~Tu-U>;UtDXNqLBnos zER*wQ_31O)qHSyWawgs^(|#Ra>NF|L;uq7spafplHLO<!9&hS)3sC)=?fPY-r_JX0 zZC#+CIlhj&)Hl^sZ2jd;J8j>b`LLnT`M%NSy<ze%PKVEYyLA&on7WE*tN+H}c&;_7 zjawf`2}#LvuG48)+aYf>{ekrxzir*B8^SA}ZoQ$kemWDVxCNVXQ9{pOA*bNnrnKE_ zbsDa6dIn9j-jX+sE88PMcL&?8zdHnDA{n9u?Im|7S4B;JtHk*xG|DztW!0rB&4$ZX zvu+<b$0IDAKgVdZ?RAIkH<UKphKn80+H8B@;G4U}$`s8F(^#%GWeXK#A9X88WzBK@ zqv9KUr+?|>w@HF;Si|RElB;Wa?ZULY)nxnhxsq{a`$RO1Z<ol*@A|mXezR}*wF6q4 zeeWCC-8d5BVRkL(U{rxG*Dt4y4^Bzl==$-};@nZr37aByn)WVu#Vr%XqqVk3x6BM| zP+41CS=#J%3m2TXO567Glu$(KwwJSyxc2bh^KRVgvOz57a>M6iQU|B1ZV>%=nP+kN zrcj;6y{EL!Es_ce+IuU|WcKZo=Xlhm;~A&U%-z)&<mjKh?d2&ZuqjLKJ^mU83F287 zjg%dyeqAs6(D?le;rO{ZV%iD%E82SQC?70cR1XTB)8}~ft)2C)H|JhgIj(-wHSPDh zHT9usyZ2>Id2W%Pr@3Jo)3v7TX^T`ZbF5oazqZ4^uROzhgWuL}(GB65OWRFnzi|1x zEEH5!Nv4^7V@pk&y-xFO<@OUfm#1D`e=6s)x$JA+{jYb6M0o$tI%ujczC|!5@^6%& zz5g+#L*+`VVwcqKO_-(fg;i>5sD4`alVa<eJ0GSz&e(A#_q6HRjp`9kwmm)dD*WlT zr?Y!YTlO9cO3?kgn)Uj|cIWpV1*%`OU4JOa-R>7#k~M8%{oVyuWo;H_LLus}%-1g7 zIrq(-f=wSk?m3ft-t_YhnUaaO=V`BwFLg>fblKu)ti?2@?3eMnJH$Boe5DRfy}DlX zWA`49!oK+Bw^Cok>+iUvkrj|BdOq{#9lx?Xi<>)^tU8l>yz~r@l>5%NJHUnTtCr7# z=Qtv`)-0{xde*d0#&2pqOL*A+Ykl(WntBgkgskTI`r0+@vP}FFzNVLua<qT0v|U-7 z-8aq_C&%?a{T<dQ1?_*;a->FFZ`t<EAot`3_a@)s-VY8V>pB_rWcKFsznfO8HthAt z7P}xR!E(Lx4=9t$TbtM9{80#*dAlzAVd3*8*Sz0rb?QU&e(!aSvWQxtwqY8>HM8qC zTrKRk3dThKi?XhJbL_Q;bIw&gXNKyD*XP*R>F$U-b$?6WvuzuT4<9>re3g;;-)lD_ zKFqjXr_G%(b#`5T&5cuSaTjhy1T$qHyn5WCCo5-N8^gAy)&9rjB)7)}gYsGKvcP!{ z#hRK=ymDb!o@%nad#<!zS)X26-mkTVArEx-oya{rm1V;z-`(XQ^6?KIq+}-ha;{;$ z>QJp{ZWijy5Pi_}iD%>6S0TH3IN#*1ORo2jcI?{X#{z1c{JydCVe;eOFO1B2uWvM7 z)T>Z@yC9WuP0{5KwrhfyeShdJo$ZyNyF<+;{>ZZ|js)!;eaSUn*sZSWI5So|ntrla zC*cxR{FC)fO&&O?=IF;iTlP@OI%?Lw6TYXf3LMZf|9kI-{ItW5mgF>URRLu;o_3ku z2d9{Bbp5y)@!4c<*w)h%4#XAozEloqK3l5Qc-d*z?NjG?wWaTFGBWqQenZ?sDfY>- zmsuVOQ)f?mpLqLhQ`{QPHA|beKA07(Y2KurouK{bdE|orBW0^%+qk|ptv<Z`_Q7RV zQxAB`iWbkl*_xR4_{pJ72C>&I7M?$@&vm)fRAqyf&-L#L4t-`KqM-K9!L19#d3zt6 z61s8gW2{KK$o-S$O{*0_MM<XrTgQO89uKzkJu}<PefW%<^co$X%cW<0dp;|0gH5th zG`yeb5y&u&DZ4Wvw^-KQc8714@{Ua`+sbOp)fC*<uN98b6@23w=j<Xo>4DY61DT3v z-=>SV&F|ekb873$J;!Dq-gsq^!Q60Xrq#ki!t?sCI?7J!-RiPo+fFO@-|i+&+TID- z$II>fgm1;V6l`_bAYSRKRI@{x<+?ZLoNJ(_Pol&vOQ~Dx0(@3Nw_d+!aoMQAxyH}q zM7f}Q-@UKgYgC)Ip1s=I@%qFwi2qLT-+y%2YSYGP9N(1IYuXy~HNAFW1{J!CV<q~` z@>(Orwt2@q`EqsNp^`XW-Zfm8f7;d*DleXS)9hNv!CTK>P3lo|x)sCAo5OnD#52Qq zgI|KK=o{BK<96w#d`jzudFO~-x-+dTG2+&a<Dro=p1r=Y_R(=JvDRGS&1_+<nSXZ` z2F#n(o|5b<x`y>SkN8Yb`ecfBH06)%(&n)O70BCH%9U9zT)1uSwN4hl*BN>KyA5pK zGTFX8WD-C3bmfX%>7#2JLlbB1Kc~L)@Jn-V>FiYrx;s8`uRHcED<dKM`1e35R-N;H zTTTZZy!Xti?2AdE%ahVY;8b-*k0)6A`mrgkFZb;VY`M^*le2h+=>{#I@7GloEB44w zXUblgkX!uK@NHpEu&K(1t%s}SFCLldXRy^|gLq`GZSGFJO;&*iG9}Nx%@l82-rK(~ zHL+@aa?yvS&lVZ%4R>Z-edtSFtl2mBA5rC+8>X>cGYgmZ2$MQERb<1~!@oB^kl7dd zmL=4ixq4!l{N+=ovtNZUf_o{k64T7W+#_dPTYY+GkI(C?0tZ$Z%#E-Av5wg)0-XDD zgTG4Z7G|@Aiya6nINN>ZvF`PiWs*WSy0@qq)=ob5%u4itr|i*-cjkRFR0<WEbt_$D zm221PuVU#Mebyc<tBt3yC@=la;mv5)x<RbQSw{K3+lN%e9M<LsMgG6LUoD#`_N{5n z=?{+`noqrT;aa%hnc4P!!IcXx+_hW0V1dx99`SSylUYwUSUD@cj+}Cd{mnF{9IqtZ zA8jf}Lj!srWP2oOYqaFl)E!xV*U$9arK53Azi;Sg6rDQvey5&O;Mv>~dF7zMg_mpH z4!T;^7*Fmx^(7@zdbP38x{E({OrET)aA29;wWhpBN=DOJVx8rq9Tg={s~nB>wmN$K z(uueaUz4>8PHyvh@1neL*)y}f{eml(UHEFZc)_wyGUg1ia~7^pQJHjAl1p4u<nd&a zeVxJy!D`tD&A&Fvy<xfE?6K*~Op!}U-b%A<H4jYl`=+&5a4okC%iT^NC(pCF_43L= zo(uoix*b%Nl3#a$!QOe{k_ffc#wD}9K4v|n_$H{qci|e=`!+|zdwUmD2YA+;5au~{ zTWd*$a2Zq1s}%hgYUdO?9ha6bniLRRZ2j<fM@Vo+>-@m!y~jA!(*<JWt{s2H^YvGa zx3J2RjsI+Uqz`^j=)9x)*X*#LfyvPg=8}Eo0WPb*vmGqfY7MX`j=q1qBf{dbFiYsU zn@jgr>WW<MH+5NW<^1>O`RU@v>w@pT>W(m9pPF#Yzc48z+vUAWN$~0_W1(AJTC&0u zn^xOyx3BFv5iTwJ%2+2R?(OG|_b)7d#pA2D{@c$R`CR_FNAg|%1jb)5%;^0ww<BN6 zGyjOZ%b%4A2cFKoZEolG<aGDBkCJ9P_gI?qt0&EIoXkDDIB93}@{Y6bJ8wt{?!GU) z(Oiiy&E?ImheGFaZ^|iuQgylfjmKM0Ur}~-PqO#ph+LWMp5(QKYmEE8K2M(fMSOqR z!TG}VpTAV@y%)av@2kJJe}8><xoYFS-PKZ`zdlX;BVArw_$6!mzlsw#!Vd>d`LN@6 zmPOamv#&Gn?XSI)EBEcb%{%kk?aNo6e|`1svxk>2|1_$-m7BL;ZvEuKC%eB&)b0OW zwByU|yU(V-JzQ71J;MIY_1)LIE51Ii+J3+0L41#iT=@KJ^|5d5a*rJ-f8GE1=CM<! z`FBryJJ0*+m&bL#EuOvDF!j;btKV<`jqrIc&);%=cle9rZ_DaGe)gU+@zwO>tB+rO zT=o6#v*}-VzjnUm9`w5W{JD?E&%Vq2|CZy=?diYY^ViGC_r3kU@9*<xW&eMEJs!;4 zZ!hon`|LZ3-(|lqAHHwDUVfkCZ7Z>FdB$d?r6->6etrCH-u~#^Z_4j?Uu~EF_o?9b z`SY{?{+cuQ_T5*HU)z36+@sX}_V3>x-;?*rZ{vTwQQ!Zy)Xl_8tB;@Eon4=CLi6@| zce@;U^Y+!{Ivvk*t{#_(y_;uOC$s*<;eQqX!o8LszJKSQUVY8p-uwIS-n+N$xbU9; z=db>KT(8^r|KI7`v#&p9Kk@lyyu$sp$FIf7{{Mel`NPxg`T2S)d+h&hx%;<Z&FAm` z`9Z5Nu2lSA>!8TMFz-9QRTxr`RTz+kp`f)GuqBX?MWPdZvkx2aw7vf;>h}GpCwp>_ z#oivr^?!db9t(VQ;fUF!Yg_-<=}AX(rM|f^`NH+j`#iqBGU<KQam1O2ZPg-{)`LgO zIQBOFefRdEWZ2n7_a0=Z_HU3ETD?d3MuWJge$?jA7Lj^MhbCCZE;;GtxAOYQUCnO; z^-q8DygY~TtZ4AsXyz?>+5x+Z5B=Yee4UpsesT4DgA=@*XN%+}8ea_RPkNxOZ^Zs3 z_vcgFr}j#+H<VAUZ=N4yR?c}fK27d@6?Z=8?X>}QZ~mx!{<M9j>)Q4A?$$7YLdO5Y z&#Frd3=FDxmxYQzLZ&z)u_!eqxTGjEFCDzLZ|bDec}$8T4&VQB6@8z2@yIbLHse{l zUL`;L!Fb}%xd{daMUt2Q)oxT<H!CgTlZA|*L(aac(|QsoD#8!dgfTcTuT74LKD6<k z{kn$0kadCAtaTnrbDDi}6mXpu;I3L?$d`T2v;2nkte=drQ9r*d3^(L;KAp+2Lh6-3 za{kXn8uKdF_b@N}`y%O*UPJG>IqrAvsxMJcKDs`|xB1e^xqgZ~;w+UmAvyo{#B99# zu=(n%l!+|;K_9d~^M`M>$h`mchI#75(D%1b9<Y0wu4H~Zdtb8Fr=avQ6@~4O-<{YI zlIQMqU(3kqe`wx~cwd{pi9eY^;k984gZn!M1_nmFiy#FV7#LFWlLLzK3ySrV^NUhJ z3wd&bV*L*ph}3=$*Qvd~%dqKIkD&db?nx4JFa8L-eR@S+?qxBy|M&8mIUBcEzq7R6 z`+dvJoapd_Y(1i0et|+qH5g8ch;N#+=zEgfy#)uXv@F+7Y0<pZ=(_ojR`M)^)CWg3 zc#m;zXf&TR&A`@G`?<-%8=FM0Tycw2wA~r9Y}q;I;3VIh`nrt$k1Cq73#J6S7iLSm zIw<&7*HT*N>#dNvjOh|uD;%x5Cu<!1AH}|Gn>c^TnTeak@|Hhb^u>Yi)mqW!4Vkl6 zcv`QVZ+~!p_w(&}R|8I%X|ZXXw@^OAP<rZ#q#fJ7X9+U}Z~Z(`{b|X=Lf6!t-+n%k zIkbDxWS+HVKf9u~f5_h=a^QXWPi>B!L8AQgGNN@3ru>MR`gXJ8*L~tYmU_q^Z2aXR zFV}5(%Kf7T-((A)$x416Ro=%YuP^HfZq5^9mcCdwucqeiU8@IWg1i6yV|?~Ym;FJu zdJJpr?|^xKSNs8Ib?1t+50e-f80O+l&;rO2lvq#zil4a?{JohC1&+S2>r(x)Yxa(5 zTc_l7Db3@mia2^(X!1?7N%bn5m;U|c*19b{|8vFR{AafNEUltt6;g$3{PU#Uv_5EM zJTAAbl%DrmbfuBk`lY;bRYgrcW{=wTFB4E)*cc<)bl&!+@-fq;k#7&4yd!d3Je}*L zr;gFvj2UW+A84+)+30@D=vttKQU&j>zI273%Io-l#IN9c^?d&yyE#b@Iqe#{!<0Du z^dAcZ+&X9>aQE&e-E)zj+a=Zp3VCZLW!nkw`4hMBJ8$-_WwANE^ZOqkUnRXewREe& zG?DlP6O6W1%;~*a`Y`UW#a<EheUSCMQ*{=;VPIgWWyDt~3NtV;L_6o_m89mC#D`QC zq!!150&8!Gwf|uQfqTETmDX#Noo*2Dy484`W2%O+(MMIoUinRTFa4`Nrx_B;soBwS za?|^L)BVfLZm&>_Z2o-d#T=g(GgKCED=%4B^l8fuZ~c=wR;R?Gx$O?dy)6!EPgpPU z*_F4eI!h;G&6H!Bas{uo(keGT5#8|l<Buj$H}(sPyc3&!HcM;#T*Z0vEn9#2E)MmR zU)Sk-J#C4;eWHn7XLCgATnqNz_l)bdS`<yMvsm1bQ(dFG*8X?g!B?+599GTHnOCkH zr(5EDiz!L&!>+j^6VB}9{vMOaT;1m>A#343{nE0;{A0TDJ&~9GWxo$FPSxZVSQeq# z5|A%j@G!e!fz+*aA%!dbU;N&Xdw_rKy-EKRD!D(biB)5sedF`|4;!VwKa}~G`DNcT zz9Y#6KlZWDKcHAXpa01Dxf|u`+1U4+f1GK(D7f3@LDL)gzj1;q|Id+n6fLf>FRS0^ zTHTb(<)A{Q|JzfuNJa*Ra8^*vFfxfSAht0eujA)N+R^}FLh3GXeHGx1su6klHfWhY zL<5MFWW-qXkFFVc86z)94;)7`gEb@8d!uVbu6sf29N{_{CUAhYf@)gua!2G<kLac# z*HfT+8exi<7T6Ss&p~FP)Y|CgAeY~uS`A^2fi~D2j5-e81mpq+RL&zzNYKGj>Z5Dl zg_P?+r4T|pqaKoWXqkkr8#!fwawbBzwm#N;8sN>!22#Yyz{z0G#K3UW0K@|TCFEPS literal 0 HcmV?d00001 diff --git a/data-raw/US/create_MortalityTables_US_CSO.R b/data-raw/US/create_MortalityTables_US_CSO.R index 1d3e6ed..9232915 100644 --- a/data-raw/US/create_MortalityTables_US_CSO.R +++ b/data-raw/US/create_MortalityTables_US_CSO.R @@ -51,6 +51,85 @@ createUSSelectTable = function( +#############################################################################h# +# USA 1958 CSO Tables #### +#############################################################################h# + +CSO1958.file = here::here("data-raw", "US", "CSO", "1958 CSO", "USA_1958_CSO-CET.xlsx") +CSO1958.file.out = here::here("data", "CSO1958.RData") + +CSO1958 = array( + data = c(mortalityTable.NA), + dim = c(2, 2), + dimnames = list( + sex = c("m", "f"), + age = c("ANB", "ALB") + ) +) +CET1958 = CSO1958 + +CSO1958.basic = array( + data = c(mortalityTable.NA), + dim = c(2), + dimnames = list( + sex = c("m", "f") + ) +) + +createCSO1958 = function( + data, col, age.col = "Age", sex = "m", collar = "Composite", + ageType = "ANB",table = "1958 CSO", baseYear = 1958, ... +) { + qx = data %>% + select(age = !!age.col, qx = !!col) %>% + filter(!is.na(qx)) + + Sx = recode(sex, "m" = "Male", "f" = "Female") + name = sprintf("%s %s %s", table, Sx, ageType) + + mortalityTable.period( + name = name, ages = qx$age, deathProbs = qx$qx, baseYear = baseYear, + selectInitialAge = TRUE, + data = list( + dim = list(table = table, sex = sex, collar = collar, country = "USA", ageType = ageType, data = "official", year = baseYear, ...) + ) + ) +} + + +CSO.data = read_excel(CSO1958.file, sheet = "1958 CSO CET", skip = 4) + +for (sex in c("m", "f")) { + Sx = recode(sex, "m" = "Male", "f" = "Female") + CSO1958.basic[[sex]] = createCSO1958( + data = CSO.data, col = paste("CSO Basic", Sx, "ANB"), age.col = "Age", + table = "1958 CSO Basic", sex = sex, ageType = "ANB" + ) + + for (ageType in c("ANB", "ALB")) { + CSO1958[[sex, ageType]] = createCSO1958( + data = CSO.data, col = paste("CSO", Sx, ageType), age.col = "Age", + table = "1958 CSO", sex = sex, ageType = ageType + ) + CET1958[[sex, ageType]] = createCSO1958( + data = CSO.data, col = paste("CET", Sx, ageType), age.col = "Age", + table = "1958 CET", sex = sex, ageType = ageType + ) + } +} + +save(CSO1958, CSO1958.basic, CET1958, file = CSO1958.file.out) + + +# plotMortalityTables(CSO1958, CET1958, CSO1958.basic, aes = aes(color = sex), title = "1958 CSO and CET tables") + facet_grid(table ~ageType) + + + + + + + + #############################################################################h# # USA 1980 CSO Tables #### @@ -129,7 +208,7 @@ for (sex in c("m", "80% Male", "60% Male", "50% Male", "40% Male", "20% Male", " ) CET1980[[sex, ageType, type]] = createCSO1980( data = CSO.data, col = col, age.col = "Age", - table = "1980 CSO", sex = Sx, collar = type, ageType = ageType + table = "1980 CET", sex = Sx, collar = type, ageType = ageType ) } } diff --git a/data/CSO1958.RData b/data/CSO1958.RData new file mode 100644 index 0000000000000000000000000000000000000000..7d6da86f35c9121fb6e26ee44a7f03df1257fb0e GIT binary patch literal 5147 zcmb2|=3oE==C^a$LxOK!JI>tH!SqN$E9_WXlIxqd{_<1!7WQ&*Dw<53wxEIIhQN`w zjvJybIUNg<Tv-BL0+!qeICgKtqZKQXAF6H;R(V|Wx%U3-nP2Z2MZW%Z-tPC4d&TE> zUjJSEzILl=(WTtiSEe0I*phUDb6eP_ru96P)yqy!*vQj1XU%~Lf)*mIs}eHOmm23y zSr8fKn{di7B`VXSWMXo4VI@<jV2&KmuLbKozn-|3?YzqC*2FE`ndL#gm+md8_53}V zPvNSXtdG@{5{s35FFAr@FHKys*u#BtpQ5a{RbPqCOO{KWOD21$Pi_kFUvklRmH#%o zn`|l46LLMaDc*ETk)D|Av(50PTFUGRe}!+_Pt5h&rg<~?#5|{OA)A&@%5~c&dGlGy z?8&)~+gNW-ONpM8>$*+!=CzdQ*Au&LeV%=#?T^`$?TY((f99Ud_pXcnbbHeMzCUG8 zwkz+K{W<eV`lR`ub!tD~p3L{JtNwI*^8Lm?d{4?1_A~#KJ^9|F&i#}1r2CzJ{GOC6 z?GK(D|L9)k>w~GE_pWVbzH_u(KuKzzme1U~%zD%9b7W?xvMqP-TRlxXx9#!e+Euj{ zzaIu%uev!gIsM^<%URQIZ}qt`dwpqk?0%^;TTcB|&yQ%h`QQ7(q#3I>tbVoa;OFLb z5w33+)qRV8-g7C=LX6M#)!xhT`$ga1uRK)o{>|54KPpeoWSTNPIci#T+PZs1JI=gU zd9joE@>{(>kMyVazmyk#Tx4?lfa#glPdM#`*1cEL`l?mOYrc72Ij`)bhud7Abv*ye znXvLlo!0AjEYn(R`QI;c*${MWPuwXP=CbImD>kO{9OSFJ`R!mv_J-G7XLsvqHtnwe zWVAY3_`t-E5i2h3)VA2YrTun)!r^4sug@>Of7k5&_}h}o5BDsMUu?Bz-xvKUO;lcn zeZTttTOulQE)E^59(34oywdpdu$o0b{MMGtCB{EY_!YO7Z+f&XEAiW0LCbaP_bJ4@ z3@y3ck=Ze0Z(UpIwe=mp3Qy$B6-_tjKW16KJh5cWS2vv}c5zqzpR*r{a9J4=`&)A3 zp_}FplR0JUBd^QP@9|1WbPaWQvg94B#|OT1mu&V5c6R+bYX58F#$S`x%zXEiKf?L* zzHk2~TAG#~-so5nmMfMR{7!HFIz{mfq4s$_kr(}z%;Byn|6(S6`%s;?7?0>}S!+4n zuk)H@?O!jMYjI6%x6)O%oBOXEnYY+mnf*&{yASL3hEs9tCoT=%wm!a`H-$ZFujI-? z{@>k^e4ppV9&>zb_cc(g^2AE+4~Czlx(`oH?_aZLPT%7GYc4783|!ZR{hD!6yv}uA zL0PExMETibl^eftaINc;sZvfi<|-904=T|(@N%v2S&{7Ni&rc!czFKdo4WQkrmxW! z$A$R*=y;XBd%I)aH%al5&7wc<ZQLR8$gpNYoUPUqDW0$9{O(Vie*ZO+?>nHnm{Dy0 zyOoc<ek8Ix-)vstr~7H*{M)SCd3x@@i`~r3e?#!@y4xk9wt*_|6kPK%5*YMVc6=06 z$;#19&dkr#Q@$8F_4wDvML+Bq|EcBh*(*eR;QrZ`|9$48_lLhH{(f0q*lM1+cz<E` z#qG-T-@ZF;`k;!9rTDGO?tjPZp8mOM-1<B4@2a)U9~Q3Ctk{tiwc+oMS-+;S3E5{o zKKHC}?#?#}zp5SG@;~3opS!;)p5gZ4<M+L<^eX<_@?x2Z@qxp~FSj4glUf|3?RYz1 zs5ZrkwZ29qC!S@t)mxv)9qJGHTGV~2#kQIMov`rEg)7TLllNz|Jz0K~@rh+!j+}pz zS_mt*MuhFWgqS^=|K#pmSjM<zjw8R>d|wVF=T!<D=bJ5(oSHFxrsl;384?D;1t))e zP`$on>fX8gQi2~J+G69^uslJIRs8sTot`}fS6$UtD`e&DNpZ1$&gnNzFT$^3{``cs znZA~civRvRFqo*xppzD%u>EMth3^}dX}75PY;`R9BWGtk`>qz#_BYq_zRqMkShH<D zzkQFU%=HTnc^mv2+MkGuop^R8q1y9YSarA9{-+m9KQEmrkSd+gwZ|pAc?#F!*&$x7 zOMd$Pnj5@up7GDQC*R+BlE14zs`I^aOCfux=%%X%XH_5Fy7kxp!HSRXYESMdJ*%Uk z(v`UUz?Qnm%@>oz-?Th2N><HT|7lmvCbQPHpP#LEmDf(R&RHLSPGe@8=+^ghw}1D% zqjQ6^W6^c}^RsRSp6Uro`;(vUwzDnGBKz;va@L1`RT(RD_kGg#vJ1U><U`t_xi^{a z-|ET><<!bh&r3JhCpRg`*;_38$jbeU2SZf+AJ#8e_l@^|{H0GRe<m+cZJYbwX~!#t zo$LQI`+6qlR4Mi51!?+Dd}jW#+%H(@%9F+i`*yE?J?}=#{QP%5&vtxz_~f(FZvXjt z1#>F*zH$BSS<qoQb5;FjiEoyB)Y<n09r&~0XGQ*1TZ5M?bH8h<+Fp)ZYq{uK<j&HJ zeS2=`FVbU=z3kXuY<>9R%XMt!7gQ}&KNZ(1*EfH*bvypuvT(*V=hL3$!Fn+!QiYs) z{z-9rr2`sXT5sZ0S@Wsk^$+=FdPSStUO#OAc$`n<U~k5u-ud5ZPX3E5`293<>zPji z8`|!Ky%RIxUUPHR^+_`Gn@TMM3fC<byfOLgBsMYb6&ky%0<OHR*ug)0ZuQ1Q!#n)- znUjAO3Rrxz=bZPy^23X~ca^`d=@snGST8+qIg|h8GAr-e=)<q~%n6MxE&q}8`2P7X zd%Go<&p+KNKehS)h9%Q~o;O#xaQfh_`u8O)Q}3^xsB6hGuekZ@)YV%#0#~fv7NB>0 z&F`(XJ!Q+3x5O166qu|!WAXWtxA)`uioMm}?Gjnnp7FVKao3|-!}quReWKU%=yU|e zgijXka`g+ewNmvtl9aYG?|@b5k+XLLrS=zaJX#;WwKF`g|7p!^>pymt5j&HQs())X zS|fG&VPniuYZbfMlgpVnJ+wH(rM6y^J~>s-&vhUBhPaDA4(mSS%6YQBqPQ|aX<Lc! z^Uq8c9uv1(EGnGQd&QT34&S{0Ehgs{Km2>cePW(@g0iv`xAo4Q>yPih+jMtzvfD20 z9SV<cJy|z5^?Abmg!1d9ThmTxt&NK@QR4b-J@eIF&Rb2)ffu(%r=4-|Yj2x%nbXsv z<SEnRM;%!*n(}rfhiBW!RObg>D=oM3n-OM|<*xPcN#WHp{?8$S7p5=Wyv>n+xzk(a z64~Csip8@p9@w|jB02J7*zXs~BC&DD&YqdopES>V`a)IxK%<`X>rP1YeU|+ybt&xE z;+z@xQ@<Xt)iAfUIOlm)R@6G=aB$M80Mp3TpWDvAFO1y1ywd!eQjG1SWs#RtZS$T; z-j({4%=J!%?fjmNw!;0<`ls&4e0Y4{#eLF3-C|AYzqbQ5iZ!J@m3@1)Qk8=?EzNQ9 z`nO-}lE@AHo9RK{SS<W+#K|by3-L*Zmy|`{_LN~vlGFWacGj9@_i@?QjcSEQPL$=o zsV>`Pl+$Z{CV%q*)@_G*rp%kN;=nbHz2Bec?b{Ih!Lao9gp?b0$v@<^&k4J)m?3;G zbLG!ho{?Usf`X<c{V81H=@r~lZ+%H+>B{_zA*a{K%LdI1o4;+EW|pJ4SCQGec{;M5 z+h$g(PV)}i!!nIcH*E3I$kYGolA=wY%I`M~NL>{m{p#Gap9M#pf7(hHxlUg>g?I7n zkW+0-e)?*qI{(^|;HY<Ko;%B&3$s|V%ezm7@3uQQCF0DIj~8Wmox9p4Pdq=B^I4wF z_S8M!C0yG+E`D$KHqU}3dE$o)Po^>-Q<*P+y<q9y8*<wh9e;8<ivP&puP-dvrc5<i z^ky+<>U*D+N_kpuuj?GUUr-*QcSiGehT#Ua8>yGLBSMyZyYtLOYT941eVSDjveTxN zZc!53qE&ZSy`+EBk3BgW+3C(_(sw5;J-9VEbA$3V;ndK#=|`uQSU%J|x6i8F;P0NL zS`3#nWY&o<TejlFKaOu6JJo}yuj-DR=>5?(Ur|fTzFq&Qa{46;=I3*FneTLDK6vC* zP12*tILq~)?&UaTEPbv2iP=5z+??=!`E7v?OWYf*tQ}=9rq6rjv%^~CvvTfLR_DWq zGV78f)R!wCtNoTa{c&r@-7l*?U)beyWOeB*yS%gRI@Y(>e|Wa|XN2Y6zu!b1_fGsE z_|n|IRr#Ywa+IK_w3?>K?43%MZ!gXh=zkbdzPS7+^E5^?sp-%7qGEf`>c@6Zt&qHN z%R-iCNzgQtvzMX_CUttqKl%M)({tB1Z|p+8KV7Zz=H0xDZp-U+jkfga%Go9=UhdN_ zzJ8J`@|$u?rBzD))lI3J${sgF#l2@Yw|@BG;X$*LD}xI((hj;zdn0D@%xdwkM-feP z4d!>=VLEoW_WAoqOAI<s&F=s6*K=$6rfCZvsOs;3aG6WQOl|7#2VZ{a+m@xsx=eia z_MYtT`hz#$et&asYUtxR2A*p^$}P1I|NZOKm*cIa$J)8lH5cyb-t{2fyg6WEjJ^$X zNM+30YCBD~-sw-TIPcKgkrf)Y|G?YDVyi_T-Kdx$xMYj{%aiwy)XhEmCS9Rslcz{m zt@xkimx{O~>N9<OXXXF7fAq>8*VEchm%UJ%S|prVH`!}v=afGp!Iz8kK6!tbVxGp@ zZxH_=liB+b%VYC(Z*{D%9GI|b+Lz_mZ|}ZgcPQmkzq+45;pG$GEjNDO6Yn_v*Xy9G zlOtBfUdcBpoIGXok~ykRbxyi3Y-35Uoo*Ui?-X_E)VlR|>l639Wsl0Z_=x-Vm3>ib z?D<yIRzI-0xaz;2-?D^^Gk?C#o^$Dxk><;ZxxU+`eDOH>-+gN8#ja-kb34Q}*BO^D zf3v(g{Nd(O-5b*R?N{pG>8go@y>z&K_O8gmS-C>e`+B&qMToDD{=Q}Q>$|R6S>j)- zZ-2eB&-(hoxIY^A;~%f6`2TMCAxoS6(GPyS+G;Phnw8J>k<ALDvy0!9^mko}dk_>h z^|YTr*tYK14|l58MXS%+$~v9n%H&P!=DDnx7n1)@^?;Q1I-NZo4tuXkmowydvHbdS z-QM8A1=Al>IJr-nKD^x`_F?gxH8b`^?ez$~Gq-Jl+kp$NAAbJYV`v`UEdS!;8ndk& zn_v7`IO{H}fdSt`mwAFNa{|4Txy#aaD9q}}u$%bUNomIn#-*aQ%XcYHQ|k5>)AjqK zx>L^k<=k7MGj~><o;KgP>1hl1;xenm(6>JiPq&gz{A#EDv{lR~V)CJV|NDNkW`BOF z&R;0s&g)V%`<l9B$#ml*VW-5FzmdMb@lA<;j&PCR@}oEWKJQ+9{l&lL{*N0@r~O-Z zq^x|y^CL38b2rtVn4_lS<L@>tA=K)MXp+6F7r)M{$|KKSDm~Fi_xomCer%zwdEuW| zbuu5<t~qH|c-T<s^BvdA!Oh8SitlS{idHN(`?Q{e{Z(i1v+(5^stm2B%MQgq@L4kb z)B|~=!mtx7FTY=~W8dTg)xaP-&k8mR{R7(slOF|!r5U9zjpsb2ynVm<{nssBd)Zo_ z$IWqn>i+gj<DQflp?!556lKFRWY?AM2;8KW$iB`xS2}IVg5LOJnH*s?3VH8Wt(eX^ zyZd*^K7a4<Uik{MKkwJ-7^l_sZ`@$EXmYy8;sl<|)R|Lymw;-L{}(iFyw^JI^8Qre zidk_XiK=N!oDY|;?7yj1_x*hDBKJjHde?K$Ew=OBkX6?nuw+r$MeEitdh=(jT%x0z zy7IrqG_KhpvPT6sOi6s+bGejh+OHoc^zV5b2=Zr5PwHO2WnO8|`ge=>@7m;ZAn1PT zp4a@DUQ#cA-O{aX5A+K5)mo|<^y&ZQiOVKz{QJ)5MG^Cyt8uq(ayLKp^EWPgd^pAG z#y#uEPy0DvtW?~oe?N~kLeqFV>(SK4r#lwj2-(K7#!lwp?r&#JR5rQREz<k;r1F^7 zeD4G6GHTYC|3A+)cgv$q=eMvvcc|Lq7NuVCqGkT}n*AbjuVrQIf30a{e=4=}7yr!5 zYi$np>OJ58dxFxrqlNjo6Yig_Wb@zZ_NICH+eb^UnfDzoPM&|*)A`qd&*t45Prhdf zITCp{e5u!h@I~d%eRSK+i%+(7Pxm{tJMH(Q-*+5-w0!S1Ht%X!|L?$({=j=P9`0O| zb@d|8kG;96bv3mdf94zJhS?drKajgDZfL*Xz2LX|^ssIBx$mW|^$k6~PvOY1Su+hk zsHE|)h)<8a-eB-HcGg!Zaf9@zJ$3BN!Dn<YB~)Gc;`pV4`{r?3y@Y!cqkr$)VSAkE z`sJI7eg`9#Tt2N@9xEZ%Zz22Y^m<pB)r%f2y%}@ldH&b?LFIC%XPS!sJsq^c=%DSy z<)1`W?~+<l5ZHfYlBGNUyjLAd-nyn5<~C2*Qy$-Xt4T8A`-6A>8_yW!Y?-@%!KtqX zX8Zqs(6Qepz0Hodw>##z<EuOEmXfyXm2$s)JsRDtJ@H=d)d#|<%^QQCN9{{f_kGiM z>t(>K>8*R$ifotpU&{GSwkAPz-h`f<#8qo!ZNEKd^{M#2lZ*Z9cDXCTfo^_R|4!fZ zx$j{?N%Q}=HzX~x;&<Nj*XB4LX?!Snx&Gl!o_*nAYwbQ&&yrkv#dUGQLoVUxFWzcQ zkzW=T9ng1K`W%~N-|PmZ!`0l|d*WI*&$r%xVe6jm;^)(r{oY#Ne2M4i?3Y=83l#U} z?e%Nm(wi3(xBv2O_NTm_oA2@MX+KrS9e=h$rg@bqoA{G0r3I13A5I*d?7HLAg1gzf zHOqE<(@Kh8a>(b-2Sa_!4|}A{zw1~<>TDJ%U*#VDudJR&?pDpKCnr}QG46Ibzu}GV z|9~YgtJm!MzgpS%(yHprB`ZBat+j1adOc454|knak(~YM?mD9fbz0tMHLptM#NAI; zH9ps=?69Wtz3}foAC}eL-}?6Ybrx{X+`K(}4R_3YDXTS=8(7wzj=X4dy#1`;vZqV8 ztIu84_WEb^ueOtiA6%1IAi=f$(b3kKRj~(+ZhSj@GA>5b8{BT|vF|hS%<TG@?>=jZ j$=Bzmp_|S|ckj}QJZAr8k<#PS`x%tuYqw^{GcW)E{o+?T literal 0 HcmV?d00001 -- GitLab