From 89cc8a1a106100f76dad392bc1e4b814a2393d55 Mon Sep 17 00:00:00 2001 From: Damonamajor Date: Thu, 9 Jan 2025 23:01:19 +0000 Subject: [PATCH] Working changes --- misc/desk_review_template.xlsx | Bin 26380 -> 26351 bytes pipeline/07-export.R | 29 +++++++++++++++-------------- 2 files changed, 15 insertions(+), 14 deletions(-) diff --git a/misc/desk_review_template.xlsx b/misc/desk_review_template.xlsx index ff5e97382a497d205bfc5fb0efc09e507ebe7e23..27443cdd3cda6df874ba67c91ca1cef0d68939e6 100644 GIT binary patch delta 13845 zcma*OWmsIx(l$J}yL)hV_u%gC?he6aaQDI8-3jjQ9w119L(t$ZZ}#3tp7Z_s=Es^| zRd?N8J=d&W)m7cGvtYkxz#2Zo0CPwpH)kOL06#bY00jU5c-b?1I=R}JIyu=fc{$kE zXgD}!^I^URl)jL(S1bytuz;Z}C)0jzlCZ6=np$U0C4P9tGO+!)t;!puUL5{uT$En;mOQox%Asci9#4Tr_hPX>j zIT_p80^V`Q*5kz1Vgbgdg0f&$ygCgf;U=8DXW)~ECX=ra5pb_l4Y6~!+vQ==bgHt$ zcYfiOb*z8#dPPTU)nAMZWvF6Hj)4vZVImY5QGKO(u-5qkryu^*N%u9<0_rn^wd{x; zQWc%fzJeC-o>x-vhMqY+P!Cxc=6yVHbQ1`dHY=365ZRo}IKuh)6zQ1#BdL)5i!0>D z4SPG{#3HYEAzL_%=B76_{ZZfn;XvZmhBa)7hTTZWkS}$X|F&h-(0g*(eq&NyaLg{U z6`N{hRY^PMUIsim$~Pv&weTGI%c@KItidXqyXm?r6cpFqBU$-0V7u%HVrX|n#I!Tv z>emBB)KMC&&?D`{zyt6v?Kh{MoLXiua1deiDEocUuHaEn&)`OdBS{fB2ZGp9s#jkM zpnu-1qHhA@UBW*sUU|*41uPOx=NKJ!Z^R#=+;^orYeMFb>JQ&)KRze;`a=CgsOx{> z=nkUs8(>Doi1h201Fq2$@|{fIMEY94*IIQHUyXnL+TThzb3!IY@FZE_E_qQAGe7PE z@xaeBM8s^`jy}P(iSARNi@MQVs@MIa{?kykwO`5A%y+@8vn`I7mfwpeI^T(D*HWZR z#tWPLi@c|~AT-3Nc5>W)2b15s~h9MQh z31rzT;vO@~y2C-)y4UZwoc%8Ml$C}o`}E;sNX+q#=3?UarA=&!kwXk0M8UM!gaEEK zBg9SZK<*dQ0k1*rnn&fS)f#k0vo4FxN{eP{csvO=^eITF_1cAaKam@6eNetzPJJZb ztMl#Akg!%U{TQ(8TG+t-#b*lls~0@s4oC27ssSTA4qh336y|MM6kuo>GG7?km|A|K zHW%Byx-7s{v~{-(b4chm(Fb!koWblHr@kEfD3M;XPhI6*O?)Mkrgi-J1rOm%D`s6c zL65MD*f*^H4WrJ*DM&ZgJsw>#M3V8vF-mh?A`2p~)(OXFk2!9>&kI=vQI@2u^L|^6 z9Q-+7&Y0js8U=ZiQ^(r;to$#ITQ~=bg4ZdhGzIU?`PXKMsnTbL6(Oi4CVXKnFg;d; zHy)w7l_tWnsS|J<5icCA+Hfv<@a7JcK)M{lx2;j(_I60eFSy7bFdz{v%w|OdLvZAK zb3&OA1OR}99{|7wfclN`fjOERjvG9v{ze5KpDqQHD`P;oF412_8b&U}<}aXLq~*TI zi=%5q$Dd=rJrJqlN3EMvc8HiNP|Rdzx><(zdIK3;e}`4;j=L&U^nD^`R?CdKwo!P0 z-P_rX_G+=T7hAM@n3@r(I`SFoxCa#0teTg*x4;MU0e@TtFZb4X!6~(> zV#yEnozPa$kLXzDMhn2=#8@b^s3b$1lpY$7pKF%98kW5Tr+0#>2w34?*LxOKp`B;U z3{GM4f3D3)0PXtUlnfPLRlmX~(dkUp-mB?AD%jRncO%!qxMLsZh$58bJuE{3w3Ig` z_eJyVJBH~Om&?mlfpo1CB1zP_P>;mb7?S6>j^FG01`@<$Jai(e;0 z{W?%i3X! zx8*R|OINe+ruKdOhLG&tLq;IY_G*x1z(Rpb)lSC`TZ!LcOk=30HhIg-2BXPEp_i&Z z3!wR88?q1>5Lj|j-%7@!K=k2a7o5Ss;+2gQX0JQP-|(?|7gylge_hcHjCEQQS|zb~ZyUcwehhxy$j(35(Q+IQ?21CE^74?@TszKNr9DF`*g&b( zuABzL7wQqsfP!5biI4ltXum53P5NW?GwUc@l!xMc;tE_{#0o93dtg~JvaufJ^fsySI7dZ?G9r%hFEa&8cXRgX#dAX#(FszAUEj5&2IA zgJ07h*UKe$yzQ0MH*f{>TcuDy zS}{9Clt45wAh$EEAk%6R>Y)a@nI2mX4jVDi`cHQS?_Dx}M z#s2krmeljz#@dag4S^M(LoK!izj&)lZA^5N2uSr-RhSOq7aD~!i)Ak&C2bTNzg@#J z+ruw5vcjM?jP0?DeSd7S`%+?q{^w6y=>LkS_^?q;kVD|BTHIuAmwAg*;{9wo{ za^Su-sh2LDku{zieoRwVosnny9F0d~39QJF8WEU)luE{x+toqGkddck1r6(?Bgk}1 z?`ojS$<$CZrVUG?>&cu^fK`PB3YL_C-zTzu7aKK3!3z;INBqxCu@7ujR6!?fRb0U{ zY*kVLA6!*xfe&0&Wg-u4f>sXJBFA0GiRHj*6$~O#UTP#2ghw5uWT-QhOJ* z9l4#c%{~A(Ks$gpz&ijnfD>E~nGUH1xeCb**#_weIly9%;7LRGJ&W^uTJ=DyDpIS2 zZ9}aRFhs{Da2Z+~FK`*`MAVBsDUTh!tjUAAToC)=UjFqdadXq)-LJjNZ|tT)E!*4% zWTC|>IC6^;gd#^EZAud*=uj=%nWG+#{^dgTLj-xN z8_a04q^QS_j}Y$AW6gluDpAyEoRJEx?GTs>1k)xeU<&2NUen>1u$b|THd&##m%jY} zGoDS8_9^Ft9ibtJa2<=lf9U>UTP=HKxYJyDsQqehz;QiO;zy7@WbTf&q$Y2~3NeD1 z)KRujkr_LA6N>l)7$zBwM}MfpieVmosH0{+8JTP)5OP8w50Uhn=XB424nUEl4?tUq zj|ke|n+N;me&h(N9RW8%ngg%c91? zj;Komz>rbPor8J8$cJfjNEL~~Bg4ircQko8at149j_FLCCDFT5x!F|@-+d5gBYViX zJO>qjuqy7vI>WcchGtni&snPh5oe_pykGQP_6-E-`@T!*cYpMJyuKe@?j>wh<9NNa z;`DygOgi%g3h9+9=T}92P3hjZm-ppN`ST&Jqxr;xtuC>a7 zWmd0%`R7Z4H5y;$Xjolus7|LbK{D$DELi+fniqI%c-@}(-2BQLzT8TGw`e$g%@m;j z!(ZR(fAmLK+5ss=iw#9*%vG#YDD;y7kP{;dOe9KGqFoKkyYeMy zC%vJ9C28pp=qKMHNmSI1u*NxLRqj_4=9w(|yhhFcSYrR1w5g$}iAI9A{&Sg1^yFal zWD({;x1v>+6zwGNZ<4Cc7nt~80!JJ0+ndG!M0wqf3rki;%SKg9H=2k0fX6Ws)DZB{l$iDG+hE@!KY-$KI$ruJx%0tL>G|&7n z5t+woQgjD`Cih9UEPc`?yozr@(U(@GTV~yLDRrK#YJxNdJ>oNVEcq%J>s2qmNJ@X3 zzKR{c4T7eKErjq962fb4K)3}68}@aMC7-Nb?kov$s!AS3Ed}Z-VV1yWXhB6{`<$U@ zM?bl@muM0Ry|~Wiaa_es+2V&_&eug%mzc6qjAt-+j?$*rynS6(Z+a*2j(tzS+Fzmm z3fQ4qBJJFjn_2Oez=5ZZyMK)p>HrM>icuMCQT5_0N)U}I&|M44-E%A8TxNV`LWc)P zXUAvdCvauem1`(8dvtp3B{*AdBn(99wUo(1Wa^90#}W2XbZ2{PpG7|i0jjzQ2=;v# zqO89S-C zn!ABLve6XUIHJV(>F>|}Iz=T1iNUwM8f0?~XWQ{v!1u17m)(7qs6knIabtGSDnNw; zrO*hwXxMKxxlf+;f}3#TR_B2|eU>h>_kQHSXH+}p*{0sC7WRXH{HO5q4Y~JyQa@<4 zM@iy?u|D5FG>B4kk)IX9$-{V65v9mZ9xCzT#UX9k2yLd5EP2q;E+?EzSf#Rdq{aKG zhmwH6l%lu45q@lhPgVrC|IxnLasM#~=fsPDCC9j9f3>;3e4-`W2JMU+$0H6UMFuK` zlZWuK{e=<2i$^>hXCaJ&eKhA`do;j#U-b0?MptZ=Tm0#;V#3+{s%w_*A9d5Cfz@9Q z{pn8UwXPY_^dEbM-UNm}q|g3*;pAw4jRAQ}D*j(S4m~89{p0xlrT;$eKgPU%B)os1 zVEKPT@&2~8{FlRQek2xunzqk`njZ##mZ+P=3&_o)zx_S_WTk$={%duL)jUsv3l20u z4rW0OtrztHOc{wN*pOigz=)vd%_|4{`05P|did|e`LS=zeu2<3*obc;wi}3eSt4LV zM^zF$F+8q!lkIk#mabT%k32o}^PSSU%P;JO;gaAyZ*Kf+=ht(%=vP?sa4=E}f{ACby_ zV)L?x8Xk@=u*@nxV#c|Q{j}olu%{-wZ)+4< zQe;Y``jkQT@Rv7Aq2@_4G+3bToQ%aaGypKl1^^)alaq7%;%#r?_E$!3T2C)wod+|( z$mT;V<)UugHd9}kCKJ3Fib}QAQKPbXQAoW?l*O1cN@q;Iu=?${uRZnf4qFf&E*pv% zlhFN<+YRrS;*lku)Vg31EtQN`Tb;atn2hu&Po~FR-^Ht>-YQTPn_}-18QjSUeaZ=U zPd@OZ#2%|~jy*I3+JM4FE1#9Ck1LiVr;tawew>i<(o)o#kfps;jXYNkGgeIzQ!3mc zi;*1JxoC>GZtpTtaW^nPZ<>HK>IiIzoY15d-TzpZ(6BF`DipdHwt$I|8n&f$xu~_Z zn4?0ucIkI)fC)^6sWC7#$wLOnvmF0YKGyOJ6kQZ9wAtOfV zw|lb0*%-sJXp^+Imgi~$$J60kdo_P+olGI(IPUk`y91{W23X&hm{;%Gp2xQlgqzdq zHa+IvZp`}LGcQUTf@`Vy_p7^9$Nk7}JGo-veQYG604E^5$mXU1VsQr?dA66(wH;%& zqtJJ|T8@e6_u7?F0XcbWzs(8a>VvePOs&KE?$V@**450!64XYR_3^vcXFbtgY9Sz$ zC8Fz5txxW4ga?WEr^e{;6wRyY^=GwBs-(VGnC*U;>vB4cFdROx1HBc6dNh1W#&wSRnmXi5I5k z*Rr=aNMH>e@s&kz{{W)iCtDRo0#}be=yA8?YzBtynHfnpRom!O&+!Ngq z>X!oI7rv8|USXCelHa$nW)|-kad|VV-L8U`~B00HIfPvs71^|oKL+MX?T7U?0 zK~wFp4ibC5u|-5MQZNF}2rZNf1gxC_PbST5H7iVoz0O*~&J|j2zRbdG$aZFEcgHM! zoe6ap*M`>jL(3aF;ik2BQlsQ2A?H%k=px|U=Fyv=&Wjq1z?N$fMWOP+b`qOX#1mzx z!CL8;+-vA|Lo!$KNt(*X14lZ>jJaYgrD5@{Yve3!Pyd~>m={m9JStXII3blm<#BNZ zNd`KLPh>4MV5rhUZd^j#Vu%{EswdI?1}`e;t7)JgMOwEb>&#C%x*A|;0fg1QERw*E zdVP!SFl8DE3$Hqq%C2vp93*Mp!8*s>-ci-zMSdVu`65P~fPQmiY!y;kR|HxyP>*fE zz;@r`7A|TK#CD&wj+y1iJM}YvGo(s{TqY(jk!cx&WvYz5+7uF5iL1t*LBzD~a#kn7 zxq?+OIsp-=M_G~*=mWQ z{f5vc_~%0J2%Vw%Ux5@obj@AsE_y$ot_$3@W}P;KlmWPQwz0@nNdH$+m{Xd+Rjd@o ze}RDge9`TY4P0bGo$_AdB3?kMo0R8!H?VeNrr!EPqr#P=>F#@xD&>8vD(#de4ehuS z6^rlbimR4z_5QtmPH^=Ky+CPFnYCm=35V1EH_k>AIK7lfWOo~&Pfvd36)4ic|FbF2 zzK(jb6awMEF>9~z8fJv}jsHdWTd*omM;~xfrX3EOVt4!JAu5Ttj*x1N8YybmY&K** z>OpoiFO(8?4C#K z$_Yk2cr;U|kIP#SNqkdub3cohJkD-Axm7#QeY-oL_SMT@b6S}OX#u)3aApyOHU|g_ zHgXVg(fW93{TL>MbRU7Vigz0!w#Dw?c4>4~8F&+_ggnfRu6*$| z=aeHD1;cuDFqSeu#>&8;BS{{uR4%aA^x-V+X|`oLe2b$tdO7ZVo?5eu&exd;%XJ`ImiiUJ_mh%wqhKYf zC{n)(E8p@z$nmA@QZ3Kliv>D|4`uRN&01gY*wO9;5zv3lk}Q5_0k2cdg-cZ`KCNzk zbbwr8O=Ydb%9qr0EJkVG0%mKU0)Er+$H5;}J%j`)AQ%GKHde8;tUH#<%#lAhpZYb! zo2RjJx>S)zhjy|>CPJe>Ew{KX{ra(m_D$BW@~KGBi$B&9gWeK@yGx)i198)y?ee2l z3Spw=ocQO7-s8s$_oG>U;VLIXW6i}{s)szfRO($J%ro-*rm%HsI`^#c8p|Bpkj)A` z13wlPXwU)J6{N&-pE!iCw|n)e5GxM|VW-svkWRsMeT*TI}AXIYN$P0gs|h`Nu@9ptLQ}XOfcJ6 zEnOQ33P~`sr5do2ohnNy4}#@7EEQ`%q}p=cSl#r&TFX9_Ft|5ab&eIotaI^-k{v&` zdcda)X z@QGIOW#6uC@8-VCXv`gjk#>f=~PoK6YP+t%DYIL9w-`Yz3%TYZj{k^?*z>xjY89Py$a(A=z*M;jrNXw#Fat|j zck9gAa0?>W(BzyPbL$5SV4My36P<#@w9t`1cOv;TKmq{M)Bpeh0Hkb61U$=h&XygH0f6cfeZ)5y2|~MXL!k;l&L4e+Gix1 z2D2FEtE;80Aw0$Prcal3S>}T7n(nC_Yr*L@>J ziBXK3#@eL-DWad2-OiTI`M@aoEQ!v2iDxpc=o*ZlRh2_-g{)y)G3>Vyi^IK9GaB(wwarAbyZd zsWX--^3uo$I80(679X^_Ia6y)Q7iV!s&Jl^25QO`dO7$=7SMl3^#;}~>0ino7fzN} z7GH*E*3jkAo*jLw+}W@c;D_)cnz@k1pR;HblOM^y54YlTX-Y=bV7CMQk9CR!E z`k~9QD}pK7LxGTV)D7&UC*bv~TRKqoq*T#<3ZIrxF>gw|`-Zlx|DI#1l+dED!TaQU z7O*}U;6 z2CB71PWiqDG-wXF8{pf}&b>jE6H?XXFH(g;@5TLEe?i8zW26cEmwThNSy_O7&eeOS(?jado&^xIl-7r=P znNMlhWd9BDsgEEIyEv3Bw0aMW1@jvcL_mCaM9U}fIm`v~S;u;2xmWrnP`YQ3i(-1i zVbAe%HTpyH=tE;s%!oOq- z28iga)B^F^ZKC=?xa}E_+X2S!&(r^beEIVE*gYg6^!N8uFFt_$qnry6dd>{?$hVUy zn%yN6>74|}@3d^q%Vg72apbXw;4te43o&#`>$WdI5IW@(<-8(@JwN7239S^3a3}i> z;_vc!K3@?yoH9N549%bU>>MO3r~^FbQA~1-8DUCH=i#H6)8`q=% z-s8+tBtfRCX@B^*r(hq)T7^lgIw&D>6l(4O&{6YQ|E!qt+uHF@EZre#RjVr97ZmGR9K} zQ?2+urHcIwj~f3_m`a{JGj~{`ZXd6sxzgsi)G)7HNriYBQ{XtZ&M5k`wD4*hWsljq z+-J&iPPwDUDeE)uy#;d{@4c)3YptJ)_+#{Ax^YF;ESa%sg-7o}Dk84RyF?b*=epyy zsI5PmFv9=_{87!V^xdBqf?$8j~>%5@f}H)Df>Bk&OM! z=m%O5eHWm+(Nqe>zvYzqin-h$iUR#bfin~#5m7%(l%{fcuC zM1fRLX2wlYASTNWes2d1YUKs%gGmig?)lCA>tOhX`D5!cb=DXohf2-R@u<(8pZVdc zZ#vD1a(Q7-kI_1d{KgaPf9V6jGXGXS*q@maqhX1bB5%m@iEZ=eO~plu0jY>)s%+)Tc|EQo+{5IOO9 z5j=ZnK(hU!`@6@xqPoF9!Q*^MPqW|>n~pugkT#IbaM_L$GsqU<2aKehY70`}%8Z|l zkJ^tIz67^YUj|QWOr8VeLNF?VXG~$6bfEmG-l9OIuuVYPJB_K1B<0u3ub#`7-!+6s zQhplb4^!Vh7y*lbTYM_Sx4sd2PlhT%aB*TRUut9UScNKx%F`vNI*r>`h9bb~zf7Ij z5)`@z6IY#|uE(p2&G+SsHk^he*L?G*{<8X`PVHB;Iy~}f2XV|-+pj8Gscd}}X^G%Q zRARr~3B~KMYDDL*K@eewSEx}yV=aIXUt*9C9fVhdkgfNwx9A07gMb9dX~8!air7OU<9Nbd4*r=ISV#c?Y5-`)93R9fi3ZejI*~*TsQ>oC;+kzp zjF^ENN$WhUAxcRBFH>^!%_pGX}@<5 zOAn@7p|fP%yo%|JZU3=qPQn5KOtii1UN=vEH)g_d%pJ5SsB-_KFw5D9fmNeB)q9F> z8KHW7g?6KvqF}(lL9Z3hR@u@YK7vEpa1*vlUDo`~^Gdn`$FBUzMaw8Btj%!-oC_0lX$zf$-mw1?6s2Wr)a1leXa1BYP zYAIQ}k7kA(h;h=g=I}Y@$4LG(k-m=;glf3DXf29abgg&p(Y4|TBT~L#|8#y+20@x! zWBtX*k@@1_UGF7^$WLh034Z1o?!j~R?pk@=n!&XWF(>!z5dXr7$mvgkl-s3eblmgp z3X##m>!&NQ$JlEjlY_c=?aSjD-mRzuDSgsZVz7@4+OOus1k1gvi}$xvctv#mB(`_j zqUeT45QU#u?sI{bFzPLx`=~Xc1uFKoZmw!}2Xa`&>C+-u9(A+$44MbTs<|GS4Tl!T z!q!1WxRu-h0`|h|lpQ@~90s92{z#~>E%AL|Y@HZTpx$SUbz=UV!P-#BzIYv2*g>%_ zhK!-m50-TB{)#~~PU*vkSPVO}fy|uFYegy-^8di0(dH!-mOWF#cYzP}*MV zE?5f4**-uHf7wzsa7N>-(FW$3(VN1OGa7nq5+IEZ>SuA7*)g6-{e$d>aaHseY z7WjU}@8{c&Vc6AFp?o6ToJ?FJ9c!Y3ldcK;wguv0rqk1g50iKl`BF0tjtJAK3|=G8 z_>D{QgJl6~i#7OU7N!RCN1=T0+$PikK?_uf4K^r_QGBE`f}i|<)v znZelB%`<0TD&WKGSl4!<3$NlOin_MM&TRBt3Y**BF>9{H%S~9`IHk;GwfU}@ZnRk+ ze#ceY5AWO;pDwg7*`lwE5VZz=YH# zk4g$->Mhw4V#%i_xxiAaaP7990a$q>%Og-Yf}u2-c?6m@x;bixXngruy1Ls2hg6L# zm9;BMc^p+bj(-o#Bi{`9X0X_o%j8^YCEH+%ZI~+Z|60h^HJ^Nq&}S1AcWez8T{?6= zfezU2cprgqmr@W^%!?0>7beK(W_q1_G3h$WkG~Ulas%C%8c2FDr zH?)}1KYMFLGZj_IA*clMgVlf0bEUii$)>bTTp`B>nEx7lV`Ez@!h-ervqkQC))nIi~JtcSBb)E8pmcIhq-mt6~Wjc#abf!MKe0>ou z9j{(=rQIKbZvC1KUpMp;C)Ra34Esr&O!)&|J`{igunZr`pjst-VBc;JR^I@WV8GAq z^jDM)(>otDCe7!S&eJGsxqu-PHkLcne9zh}WP^q(y9~q42FY(PHp`0$)eBjCJrz7V zs&G7+={~@1NFi$YQ~nj4&%c%>%C+CJQg&ric)oOyc6%|n!Cf33mUI<{s(nH8ZlNDxK z^|}#3JS!fI7XCLKC7e!eRh|A28au`bG^gV&6?UpI4}_n-=8~o7G!)@BOr%rOZ+C&W zR>Pev*IIpyRjXY0*B+8P#_dikV4N@XH|%IK7mA=CaZCu111J4ACVIAye>`K)*GxQx zPC;nzPvLBlm9!DQs5~uwYT3#z)C}(BGS81F8SqPzaT%eh`br@O2K*_$oSrqwi zli1jF#)&ZGZ%9=tGVrZx5EsO1HAGo*#>jhZTw~wN&FSkd;rV9LX!av61ydsBN*=cK zsRBqc)0qPzf9B=qe%w5UczUJ1OmL$NY9>b;xFF^HngG^GNqu(U5pO4qhS!si>$m+? zM&4<<+Wk3f5zDCx*#8p3Oz|F|tki`)P*}gbbM*~1k2o&uw=>bxE^27=>6TVA8?Vf? zfD1&3rHQ%nSc5(OfsOPJfh*UcHi0SM=hk~#5Q*JmKHHNTmDESpi1{_oCE}EG<&Fib zyDE1{P(Cp88#3dVb9cYn;;-Y(X&t?2a1I3=>n{_Hpj~F)?_vp&R1OAmxD=CUkSOYq zG_$u+)utXvzWfMT95>zbEvB|(0iTK3qpTA{CdYK_DZGD)ds_l2I$Za_B{6QXRH1=}(x%DDFY&fuRd4@=3=de~RB$`ZGpL zYoeH#y3{oJ;%BjV4yUHYh8}FYA^JN~%>y}wwHmJhDB!2Og$DV^Z2vgK)5;{UkBxeVey|361xw*;wUkbfF z32l2cz`cU{;}d%IPOie!Zgh+2Ls`5zU5#;pBB8Ra5%OBFCesP`CFmO`cW0tcZwy{< z-vCe?h_>dEibTx!iPt6onX@n%Lh7iU_PGr)$KvDn5(w*GbY8Vqa6RZ5lu;^eA~EN; z-65+#?jpB^HLs75MhQO~X$93Wx8U5qip~wdPS#$iI!D|2mE{&pv@Q-|Bm-~W?9G9| zjIf#m@j9n5-Bq^eLH?wkyP5yao5)%oHC zbz?7>r1m?}6V01WpvMhUMhbHe*_&OSU9c6$9oV@D1eJ1jONwG4!bEbIuenuCoy5xd^Vm_xxt1BKG zZ&HG(KgWW&(fH%m%%&{@>A4;dx$jTdCw$To!Mn||Bj}f0-uHLXzgbbE0Rrx0jr2+L z&%Ph)W*8kZFrbmr&?n51ErnNPq`B7liv-zqCYPx^ebe38QEqTggO<+_?T%Z9>kch3 zqf$Ia?>tB0Us}`u@R-TfvSCU=LKU=Qm(sD_HW`L{(lo@=4$#$p5`$^5PBStp?JmZ%_wb2{#)5_)0#Z<1}LSropq(82~dR1G=+U@H%OeesiNkGQueI{K&#?$~MQ{8dW4)7Hi+ z^WjF$7=riYrLYTnG7rVWDMg{VDD_037xcct#Z+Gs@bBCQ$l4OQxk%3+67E08fu8lO|c06llegg0EquD5+D!SF_i;v5CNfy z6M!Z~;Q#tHKxSt6;5(v!i(W+k5qN3}y);w%{Z9Z)^qtp#B&0r{w^0vk(Mh05w{ugRz64Ey)S~ j^SFQm0BHY%-2{nS3W3>xLM#QrtUv>n63|{oe*yjjn%fAVp3sMK_H z-sVAj51M|9aL}+7E{+m6B7@WlrQ$1UD%WZ105gz-@ywF?d57pVD&8)*m3){hFc$=& zQJSm=Cw6?Trayj;aqOjDM*lR+E6^9$ltHf##i{uE?1*D)s96U6351bV7mPH^tyX3n z-t{rR!P;rW+N4D$qKZ7L5jj0`$Dkw|U!kv+4C$2?d!W;uQgd6r3r(vj7dgza#)%|7 z!NxrMIe4fhswYjJ0Q_aZQwd=Tc8jVHa#Ne0xgxMZpp(WR{;Bm-WBML-sLo_;bTiG5 z^4&UaUF_H$N!W(wVUSi6Q76i4B1Fh9Vfdy`@xN_HbqCV6al}rT4-wyoC(-%Zg3tDd z4RA-Md3}r7Bj7YvpU4;v(EjkkiVw0#i<4DJF_IXp!xb*UIh637ve-)H=p8Y%Fp;`^ z;z%u%3ui>9(MYt&Yh|@0bZhE9nXa*gZ7YdUke-Wx;}v$JCI`tISewC$tw%)scFD@I zm6t~wq{9rw)k$Pygg$f`I??7@=qD*f!m3sn+2GoPMnJrUF);0~i@=?u#3@s|amb7B z_~wi~36f3I?D@xL$wha`W-JM-H-X8fYVt>PN2$_i6gOmHGf2L)ebmm27{QOBeU2HJPG2c8Y zSsyWrRSVA1rxo^Fkw&scT>S^1whhs6?U`NRPFvlJ&GnPh;>BBHsHL%gfrUD;Cwb}b z`wSfT6#&cvjGFVojAH$h0%lThZKC-X*|vMQ{0b~I%309SGDZV^67npEglG(1Z~{#P zhr}~{QAr47!+sf7+%YLFs+F6hbrj~zE;_a|B{+{UluB8+_jG4`0^%c z;y{_ZkPtM~cGXANT$9Taf-?a%#1oSruveI*i;8ch3`u{)h-r@GOvCfe10kn%s4mU8;Jjo|E!)F>~%LLvP_YeR&aKbkeJj?AEc&;K}Ls zJ%L+d2BQ5DF|PuUeV%s*u^{3LXG+3Wl9@dU%jgcl@XTx(1jla zbC3UPn#Zqo+U3v|ApcKmy080b7<66BZf*t@qltg-RO z;t>)R05&zks^>>Ef<$P557m)F1OUYOzy|pEAhv%3K$e!H^LLrQ0YL2oYWV_!g+<9M zOhdNtkRe-1(|;kzsEf`;!$8{h}FNPia7lY-f(od@k=Z!a4ca=H!j#M@NFDmnFD|Q_q zeP5$&2TO80?K2B_<` zzbTFqjW~D_!y}BSjoBTlNPd3^;`q**J_+hvemD7pf^<}_^}-al^dR}-4xt@S8uK2K z^Jdb_Z428Gp~;)N+J72fbN;a(bIH&eo9^vzPVj0^gW71xuUFYMY(S$YMmJ6b%F1n2 zn|R!oZfOK;X44hBzy5@(8sjgWH(-~pSTlAj6do2xSn42UlcwVHPs;74wz4m7WDv4e z)^{A#?CVf0e*ac1JKR4Iz$P*Zs0eKAu@NONdlpuo5)?j|hwfpb^V#tkV&PYAND4Nl zK)J3DSvRG2)M)5gIC-ph+`gUyor0B9!N21c51vDQcUhLLLmDT7{BP>{Ug?vNS_psT zMVp6Pq~?%VWOuIvTGwdw3f#VgE0+$tK=gViftHD_)|vpsP8~)N7rY01Y2<^xtx`QGKv6v-8?<1 zStY(9g#-UIARiD$s_)>n3FY|I*14i!BD5xU0DzoI%PP{9uLKZ%I&rr=Syi!QXvL5+ z=IgUitJ5BAOjeLzvGzOq7d~;{u*D!N*%eOR*!qP=<2mChP49?2grcC)M3c!riOe*U zc@zXs?V0>xO&5?U#Rmz>H*im#d-vHZvN(rZ7~wv1j@e|5ERvohB;$t(-ZU+>zgdw> zz6KElzNb}R+Okj8F8euTCq;HLZ?DQ;%8GE(ZO$c5UeO@P%yuXDXG-LmQN85pSEmux zAMlX*LdxefTPi2R%tL193fAFfIe(Z;Dv+NsaXxqOdoqR2-hgZpSN3+}QKOb>H&k5O zm81$gu=G-tat+C^BBi>G!=3%7tHWG};6Mi>GB`1trc^M8C~>8+?y z@*=%qGmx?-c7l4bR4i!|L!pNS6S<>{z3xq|n_#`X9xfKV7@2kD6eOKXl}4iVq=&q? z4LU*o{x64J0qq9H@2^)ABNG)$&F4SCT6F6L!Xw*677$D(vgVPSiir1q2@i!p zhKC}+faRo$oty-s$Ei#K@#7|^faGy1(?I&T$!Q>4oXQN4H*RtUC>p0S3zUtUoR!l@ zP^_Aq1^r9^|A?BR@|x1TlQsUz_`QQUzLUAovh&xo&x27Uw9i>BTm8(muvvI+W+{!> ztK>wKS!C_fk6$j)x3IR5wurVMw=lL4wg|Rhw=jFHL-j)kF-{4Z?aN&S?d$BdV+>36 zPBUlC7IJaGpn1G$!kGs0WFcWGzmvkgql5S+Z|~~2*6~lDltG5ZIi0;3^Y&t^EvM!G zzOUxC{x(S{B_v+9->N~O=AoFO4?t2hA&M-DEb=T$12O{&19Ah(Rk8rF$5@w`$(FRH zpTE}gU!mKA{vkAf33xu8zn9xFa+f9Etup~sGETZZW*K^kvW2$=y(QQS7n%Sp1zH0S zfVjYKKyBaxkQ3LEOmL9 zn2+DXuQw;0SypA`4*rEbD#9vma_j{wjSSYbQ7~b(VoHxPIfuCcjQW0mLQjuL%K&{= z2%2Z-=oy8nM;ldRW$dZ^+QZ=j70X|w65~`kppL0-7B+#bzUl5rSmG~wgXKzMZlZf@ zj*s{gP2vGp_U>!J4s+R>z+{K?{<0$UT9idKf8KC5b~r_8h(WFUKzG(Ik31}Fm>MfR zuh(q%k6l%H_j%^@9LPpCR-u&Or+g3=5?ZlIFdYn~1bsTWTo0Nmf>lYkEC(y+FMhNY z)e6RY0aj_=V>?qjIv5VIG7=ZnBQs@Y2Yh7gGZQ88D=ULpuV`5nYs&l4Rz$Nsb|t72l}Q^&V}(edTk)5w|3e$vAG=lSC&*AEJEl5=Ixv@A+z z6#bFN`Ak0BUYWdfpe*ol8-?r7V9I~&rVLz>((=#jwX$UX-rL@0OL4eaFPD=E?z*f)&UM)^0^xJ1u75wa;eYQ=7@~PJ~mWI?DZu{FyoG6xG_n0 z`m87KO7$p-_5Q04jI)%lkEqEwUAVBoB6!f^b*m?Lifsafh(xfrH30)ciMzh^>n>C! zSr>P)ojr`@2FA)^&b5=d*kSbrjRvb1;(fNn$s!nFebD)*%dTltw6L=~oN7Loj{45As*Mj+Kgp&np?9nwHBMnR#z`!>GA80K9pF8j9S88E#+%ukon zHb$5HtOjON?WUoV`a@%n?xQ5_xa_y; zc{X##-=~M>-xg}Ag|GI3$5)#1ZWpg3f5o57X*K^s-a&2R6lMNP+B^)Ed;+EC?q6wa zmsP`ltD0&S{FRArC`3pt>@AllW{}3Vm40$=9=dq_Z`LZeoMN%9G&X~Dm}Ug&Mxe2# z#y`U?C(tu$PM%jNl`GfuJhuYo`P%VS%Uq39L zW6L$-5h_r$^~(Mc{6|UgMj^w08P`10H!l9~;TgL|*(?9o;}3>FDb0UfV64*os{%t- zGroMrTBGW}4Dkg@&HclVlKacp!}pB-ka!mUcPjczKp!6ti9L3GtY{J-$wR2)7AdSy zN0(Kx)#-Z`o9~4fHJ0eo_Va{dADusY#`0Tj_n9k}MkYjX?C`>6iLSPPB_2toJ>@b3 zTg9~ei<=vhM?lvF9(Op@7heOUWwD3dV;xf02VPl%)KK z{(0Y>H4w@b29jgm}LYVaVpW7S^nO0rV ze_BWRIvM=P_W0B=>YDn^5=&Py$rEcSC8<)#2wnDMxH^)~aPKrG@?Kj#(CvE@G0E@W zGjex&TaAn_IV90~f5&f6qx7A9IdLndkcMmAdw!et$LKxk?fpOY=ZnUn9u% za~v)q22a1ZfsZUZz3eVf_wH+&G{VnYtr&s6=^jC@H*ZkK-TWI@2ypiHR>+7WGTgo# zUR7Np&uV9^>*dsxhAcM@?*2VRymRvt}XQqRpWD^b)x3fO%} z@c$D9`!9-O6TCIN>5KKw;Qy$I^VjU3|1dke?Q4M_F999EPNXZ4z|@!Y*VS;!n1dus z9t`x$5f_UqfuDv*(iD(F`0-3R((!*S^$8LGg^4JJQ$`#lng0iD_fo*^KT$;gf%?bQ zzMEk-q9~h1>%sppM%Q;k_n!hO12;AXAKq`I05BZs6in`!5~Xkb8tG?9kUmN-BNRk&-`S-w`m-l#NzY zd$n`WozoF9Alu+vSN0CzE-V)k0B?pViOHVjrD}?aF;Q^X@ILfl!9w{Fn`TS9?0mwl zNX|&0gc40YS=AWj%4>`(=to=v1JYopZ9r`tJ2+4`jGO2oEC7JT4getk zh5y}qbNBFduyp@t;XSK=mazO8??cG;Lp;SvT^~7FL~I1R1-nHiwY6N$d0I%LT#VI( zIV!`vdeZjeg=7WZ)#q0?G0Re5OMiUskg%|G(5u*i7k=0>Q~^AVt9J8oNp(ICnK_Yi z+cW8dQB{>a2>xcLjx-t1^A20?c4a+5*aM>pVd?;1OaThVb$ZS^cFY-x65fjL8qAkb zh}WqAj0=F3#xroSu#Aqr}0+87=HUW-(p2!QAAz7F% zK?Jma*hZyHPvxH_l$u1Rp!Sbv{Ih+~ebMC`zA%~1&t-e2(sZ?xdV99z+pEz-vBRnX|F+kyNm%t@2I;z$JqYJrGDJVK1?+2vRRLChY6@V>{{wmnWheHH9wZ?D^EG+ zSi?c?T5X0~nY8jWX3X}4xrIJuDr#9rMfh@VQ`rt7zw%MfFh_T*`&C@3^yw*HdoM!C!kt^n$maT3; z)ikR?DHxT^=w<{762C?AsJ7C+toMtQ7FM78LV-VAORP^BCo^aaNnA};fAawF`4_omzwhwYr*OTV`J692uJ$!iZG7+^dek7r-bK0xA0^K#c`$$!vtK?D52jVJvr|58F5re*Gu3;*FXy z^h^8er~VlpF@_#mIXr~)MKC&84n0ywPYVEK65?Pp(jyBmw=VOP+(I#iAgytA{Kv4r4wb%?{r5mt#lrcT}#4Ph2J-RF8?1~Enpb0bCK=gXR zLz&HVp3U7Tq}KWI#hQtBNFEW($TzljMiW0aV8KzjpC@BY#NbD}k_o!T-)@C+0V$xY zWb8payxT^L!?c3v*Txu;J6H5Lw7Y(MK*HyQ2q{aUC1K`LL6KKgt7Xs`>vyMal1SXv zl_+lxIGf&2V!r!{Vx!^yS!gK3ihzF4vl%V+#1Jk|H?~T{P1|{|?xIdE^gr#N)KA?@ zEIUm=4(oeEfYMBslq{HD=bWAEz7WnGdOmeM4BHcGSbaP3Nt1X|;0cS#MhL0KHF1$O zm5+3hY5+D>lVEd0Y7S^Fi>IH?s%#OE?o-{&{K1k*yg5Xdswtj!no~ zTp~hMzxn{0$kP4lgqDZ=vj<@K46OHp(QHRGvDEmNRQ7{J(e(bO2fG8WR%;~&5m0eB z0P`hv#43eV9iWrZmIW$P1;@R@xyrzhV(sDa(+gbC-0*Mbd9ed@!^l4&2AkU$Tl1dPW_Qo~ zsrf1d1<18u3WrePSNVcVoAO#JKHL{TpdFNpcBv}I`xUOXsI1JB+X${9lG_OJ2`<9@ z&5hUXj<;CE*KJ(5T3?$bZdu^Mt1UyX2377&YjrhNkxIW5S+`bQTU^@Hc-?5`0%uj` z+Vx7KSH;n+z>po1zSqb26%kC^O@GXLiK*^2Efi6^d!I|F7?Cwj;*nt$%$zv#Rgx%P z22Jei0a3@tzuV9#`F&*zzJIGxQV4%%MF9B96bBTbwdS<)8LN}D)|+Q?pSdIPqt?UG zy3Hla3TRgvo((-rP0faZ9<3qEP-bkh=zcEiM>n8YBCd}MJ9^W1bCZ4Ha($&wzm-JD z*pMkz_|6Jht(Fa+s$BT}B<9f&dY&zntqeO?ir=X)p*|OssdEBwOwE=GbDxXo=`Mj` z$pD?5L^GzW+N-lifE0ylQ@5DvVGgQOLatmMy;RuqDP%mWRyqBIqw}=3?ZdU7uc zminWY`p4$KX@kFhSA>0c_HRfWT|VE+?hN^Oe}fAWq&oD3kyohj_o^ZWOQ>1~9)9hF z!+J=NE4!MyP4hB&Uo@UM3w)*J<~JEXf{?@vY|7H?FW5@}A%J#7Can>d~d7*h6kkFD@X_ zJU1;wd^^jTio5}0YuNUT6P#lPdUm&-5-k^B6xuSajG!CxNT&^lk8D|Jnak<0=5WTU z?P4Db_$H8kT?(L3vrV;^*nP&}2GIvgmq(XlH%|T1c8S}f`n&&wq#cH+NkX{9)ieIH zy^~t};>&eWVlRSfm|%6IICBpblLtuG4#vHxu-fio0MX$DW5)aP$UaU=NgbM7S9n6H zHoOMAch6Q0(c7l4iZ(06)^N^}^u9w>I24I6YylaG{*BH<+|Q-1l^SW6d|ECGy_X`!0jGWC&7AB2%fRP=P!UK)YBw>k6W*#H23+ z!a{v3H zXU<*w(Gc}rg#fa}!fL^zxC)L+O4tRa)vHrJI;LHwfxdxeknjy!KFvkeOjwpm9o2&9 z<8zK#NJTx&L>8HS5aIzOcRZ+PLCR-`6U~T&$i)`bA@QROO=R>+w=Z!f!KhJtxr+o? zRP1Xb>S6H0Ngdc)jrMvom)`Q7S_m&s7Gy|HZ;e1AWP3smpmh}>+#Kc zenL1SZCgXWPVXvoYX5S&^!=+)rIL;n^OlgiXa&f#-BkCLstMzau41p(jQ(4z-rNmm z0(Xs_3c(*AQ*`?h#ZjXropJ9t*{256$Wp`;dB?s9Tv-RRe2GZ*sz+|vw>sw)%(n$G z6LTnUEk_d_8_YjIQfWyx!OrW9wzvIMSu zbNvm{CBM@c=<7{B4v(TkNR#0j57X?`<WDErp;`4W zVafyMGhU`=gk2TMjw4?%>YpbjPTLL&pW6jA;nUZn2r~Ax+?9U$h1TxR@PIYqZsevw zQIi6DZB6;daCfhrdB^ky%m*Al=Fax(iMg!4pJc9EA!Kd8 zZoTWwb6X5Helk^L!dGl}0j{71E}|`%e_NSEK4R|v!i4U^Q%)=tnu3N=;me)#=wj9h zfK&HFW$X+fwZ@)7UQV{k;d)aS_~fY#@|?z5hy3DON0onU_DLhVGa$$GM)C75Y2kW3 zzuETR0eYT}wnf?$`eX^Z!W_aqqIZ||@g7NNr)>a2fimhpZB`iUH^X7M7|Z{hr_ z-)gGggcm`7!joTYU!d`Yq;p`$4bDrw6Y*-!^TXp{X+_P);XKRUyy4}}BE*Ih=(QEG zmS03L*x@oVGAEo2=#MMEEG%v^lrsC z_wRwPi_bnpTdz`iXmB7Mcuw?0^tl4yIVWic@3{^03zA)UNeYqOA8F5OmEx5J$uvC{ zs*^^mb1Ma)x*#PQ50|zH0?s`_umaagQ1ONJ<1Tj7!-n+!kZD5*%8rFwnr^XuJ4kxm5L)>SX3I zSx<5~y>1yA3ni?8-*JYi$;l1NYUOTD{_z|Q?!5@B>>ZZE zx`Q}raPeN;5Y!)IUwM0?8X|kH=z<;#cD?YN7dR=Hk)9~;6vrle@@BCj8~BwECc7|I zF*3Pt-TNqPAPUP7?~CIAMaxww`}i#hq;@QJL8zeu6uU+b>BF3e`3`j8m-z z3VIMM>YQC^l`7l{t_bu{I*@F<1(uQs)b<^C7RHeV@SxRp<__DvVcvslIXuI2;Cd@i{$cJXR&^N>%*3I>?aUkT?c z=U0Q0Gd_k5@?u8C-4(hB0C{cIz-87^wC+|C5Pl2w*_J3O>T>Yx*uDSag(>0cVf(uD zjf%GEGs)TQjJ{UhB@P1zTpgAOe$8A8qI0>w>Va#uUXmpd z&pwJM1Q~%Q}_=EtB$Dh>#?!&XK1JQvcrJwGQ%qekKmJS)gFJWKs-ci~Y!s?^m-!=2m5b?U$CT06YKa zd8$9fj-sWsiAs|M_q^dDIWu_IRrBBiqPZ_Ri{Bjl^?vJc&}d2Tc;{PV!e8M66~A0p zkBsVw@mz~OgNowtxaB1MPDj)#zTq|`YV)Mj@N>`rZ3F|RpEsfq_^gu_* z31-doCD^Mq4V--rHaY3`@w%wZ^VVu}82?esW2cO3{BIo`3ZNnn1&sxO1%RE6VCy?Y z9iUO>bd^@O~(g!Y!pS)27+`Z_%1m z?m)X@kd?wvPJKpCnpM--&RaYw=&J835~r6t_0!)~s}rI^85j+C=i$hT@F(>W2$wEb zqmkUWvO|XZ0krJzFS%GXm{^U6Dx;yGsKaWw5SW>LVtssXGwLNNCIP$1(|U|SgJ$Re zD(NyW<60+0`ZcAGiQonrOoq!5Jq9Jt_p;A-oT@1jM`>zfJAU<3JXP+!q3SY+haZ#elPP)ly(>{+Ru30}Km|Vq2FtJ=G%t~_I^HDBq`8R-N!-26_ zryBG=-m&0%l@X0p^EnQk{-kaLk9^pZUkej>k` zrWqbWI*L^l`a`z1uvMz#hoFoT7-C-yT+e+#B0`in>n}cLFX_{uIas6+r!x zu#Par$`4!F+7rNJvVdpHaU7y5ilmBV$NBzd>=Ji&1R}u^we@m+o{)_*M0IA z!=pYVHNG7ADTe{q`y)O?)jkkv0z?VvlF$l%)n2bj~(fxQh zih;J0Z_H8k1ubF4pjn-Wi#eQBU6Jvx^eKQCb;L%+YS6G^k9TBVs{t~jr1y`BQgJ_)m3}!#3#eOWEYJ=9JozzRHmZ89u`d(&2XuQ;el)fhm)^c#FWt)n zXG-MNL!!8VtpyK{n!I|PnJQ`hTW0|EDKO2vBjYEJ>-pSZ%|S&1*qI4@ika!@RPUUD%wHg91I?3RVaHqNK;SZMH}pMoj>`{I zat=a!l9=h>ci7%nTDR{;Umsua`J9NGrAo z5wEEh1Ot;z=`$#P9;LWt;~?>pbbJc#l|EZ{9#1IYOMZhccjYzJnOJaX;pS*=oPJ#V z$DZf<`I9vG)f;)0P*jkv(}eZ#OrYzfiiIWJmu8zWXrJz6WBKzV;y)=5IK=`D{L_M} z-clY13dF|9#6SAC6cL990HFOxDZ<>@(b3Y$!~Nf5fTue8&V<|qfvAZeB0zmkQAOKx z+&(w9h2DWdS7`{=wCd@EZ!z1^WG>lkHGC?; zE7N`G+)!QZG?%NCpq>q?<)ZX-^{aDSj;~^9KXmlw3|I*?X~B_P`0Z7=&)Q(a4I)&% zL|vcoz#;C!A;?&I!avbm^16Q960nTh#2z`=HJn+`Vjg^JJ9Fl>mzl<~93pssIp4w? zCAxemO*}qFJbJX^eQD;VENqOqbAyc-PCk3wx^eVgMr8WP%uvG9&zBG6@csdQB0*-_ zD6O_UD9c#Zva|T;@n;N*LF9Y&2Zab<%UGr+PM|DbK?@V>(ggPJ*=f6D2Ic7{|3Uu-S37(#VMJNfO!PAKTxw+3wGdbg9q8`LOZM=( z^u2SX$55W#C$6e-Wl8EPei3m-qE&BPWA>-)h{=B1k(8{|&LZ%uUfR^KCsd}NtwU+2 z^K-_-;g2IeF9z>Qkvq{caC_T+{Y{bMJhSdy!8Dg9#U{3MqKD*M4d@pUU?zq#oS>1- zaTor`a)JSxh%%58OB9*Lew-_f=bB`2*kvip;7DXGkDyAn$E$p3O+1<_umf_RHK>-i zh=x+%HBNid_Omp(aQH=?L}lVS$UWoH+#*N#h0V|3*Y#=a2=3yN>H(~c+N+hEZ0L@h zbvRrtE-m87Bh_*m!;PV@fZT0&I7r!Qrrj|cA*Ff`QkhtR?a8m1+qzmr z%gIFwyYL}?I>rkHpKLUP!HjA|px35*Ua;`|rLgt&fkM2IvKhNCkx#f~%k1UPbiOje z>Fx;yyNEP%9-~cO+uKKl{Q}(>NKQpu8;_BE@HXhaHX;X2ad|nMHI|MR&xcj=%XaKW z3j+=AFK%$2EXM?*A!CWxDcmd@I1-lkM?ltqRC0t;iuFBh0pmCCEKzP=5PSi9Lpmi0 zLMg6yvSeup@Pj5Wf`cCxr3<2&%zvEEH&_1^p6lHS!_FzWRCj;x3%!KBj6(o>Vd8Um zYPxGqnAWDSuLuO{WLxH0M8;+iUJ@=Njp#g@rU_KtK_m&g+)VbXN}sSVk3I6joBj4JhvAS5r2pvtorF8Ct``& zClN#MS(-{_)W{7L{Gl_P%Z>KsOJ_BtWAnVxW6G|XR}#Qd}D<`&K7=8$z5xr0fL`;&N;JdwEsx}dxtA-0JNa(QJHrVs)R zq138JocA`Jt$kUE-_=ZXQY}}+(Y~n7aTmIA;g^!qZiTLXHt+i?w0H2y)4?N$=f)xW zY3yeq6YDh-$SzBWMiPZdGTC#8Od}Z8PFK=;k8R;%lD|LzzXGJ#%MhzJ4$V!5=Qnz-iuGol5cxw!SHuB>7`mQ}8$WT;xANWc$0XEggspr$Ig@V6% zUm5u)%XhE8(V>68X3BI9Mo{VeW^V{p3h!y)Ao=QrshFB2AmKaJ%=Rk6FI^^!0w9N~En?^j~_ zKdeWt>nwPxBrM~70)=jTo2Y0iXR)Yfgr$?`p;Ulsl(Tkk4A~z1Zp&~DjT&kd1;gca zbl-vAor|)Rr7H&!)|^~^UriDRVV=^dbm?5`pU*ri2({{tE~|Z5)E;Mba|dbZiWd=t z^`hDkFV3Emc(o>tx$DpwwQ86$#PfkU6vSf}IR%9uvHO_>P5DdZSm3+jPv?ItIbeA! zl=?9JKxp{?{=o>0Xrcrm0@gEOCi|shn_xYd zLlA5uNCuw&n}OY#5kP>!Xyz&q{a{mb705erFuFM*c-)*5@>T-OEXfFFu|OmGf0v;D zTi1u=e=bOQAz$VGHdP>m!4Q^wg#S08`yUx8u$HADq=+V1Mw1@gX~_T~4L-7@B>eBM k0}=p0{~z?<)+LzMN(dqxY-J?~5ehD{l7vk){s-{?0aIr#)Bpeg diff --git a/pipeline/07-export.R b/pipeline/07-export.R index ff9e366..d5f3729 100644 --- a/pipeline/07-export.R +++ b/pipeline/07-export.R @@ -139,14 +139,14 @@ assessment_pin_prepped <- assessment_pin %>% sale_recent_2_outlier_type, sale_recent_2_document_num, sale_recent_2_num_parcels, char_yrblt, char_total_bldg_sf, char_land_sf, - char_unit_sf, flag_nonlivable_space, flag_pin10_5yr_num_sale, - flag_common_area, flag_proration_sum_not_1, flag_pin_is_multiland, - flag_land_gte_95_percentile, + char_unit_sf, meta_strata_1, meta_strata_2, flag_nonlivable_space, + flag_pin10_5yr_num_sale, flag_proration_sum_not_1, + flag_pin_is_multiland, flag_land_gte_95_percentile, flag_land_value_capped, flag_prior_near_to_pred_unchanged, flag_prior_near_yoy_inc_gt_50_pct, flag_prior_near_yoy_dec_gt_5_pct, - meta_strata_1, meta_strata_2, flag_strata_is_imputed, - sale_recent_1_sv_added_later, sale_recent_2_sv_added_later, - model_org_fmv, model_org_fmv_nom_chg, model_org_fmv_pct_chg + flag_strata_is_imputed, sale_recent_1_sv_added_later, + sale_recent_2_sv_added_later, model_org_fmv, model_org_fmv_nom_chg, + model_org_fmv_pct_chg ) %>% mutate( across(starts_with("flag_"), as.numeric), @@ -200,7 +200,8 @@ assessment_pin10_prepped <- assessment_pin_prepped %>% arrange(meta_pin10) - +assessment_pin_prepped <- assessment_pin_prepped %>% + filter(township_code == 70) #- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # 4. Export Desk Review -------------------------------------------------------- @@ -256,7 +257,7 @@ for (town in unique(assessment_pin_prepped$township_code)) { num_head <- 6 pin_row_range <- (num_head + 1):(nrow(assessment_pin_filtered) + num_head) pin_row_range_w_header <- c(num_head, pin_row_range) - pin_col_range <- 1:57 + pin_col_range <- 1:59 assessment_pin_w_row_ids <- assessment_pin_filtered %>% tibble::rowid_to_column("row_id") %>% @@ -327,7 +328,7 @@ for (town in unique(assessment_pin_prepped$township_code)) { wb, pin_sheet_name, style = style_price, rows = pin_row_range, - cols = c(9:11, 15:18, 23, 28, 33, 53, 54, 56, 57), gridExpand = TRUE + cols = c(9:11, 15:18, 23, 28, 33, 55, 56, 58, 59), gridExpand = TRUE ) addStyle( wb, pin_sheet_name, @@ -342,7 +343,7 @@ for (town in unique(assessment_pin_prepped$township_code)) { addStyle( wb, pin_sheet_name, style = style_pct, - rows = pin_row_range, cols = c(8, 14, 22, 24, 55), gridExpand = TRUE + rows = pin_row_range, cols = c(8, 14, 22, 24, 57), gridExpand = TRUE ) addStyle( wb, pin_sheet_name, @@ -358,7 +359,7 @@ for (town in unique(assessment_pin_prepped$township_code)) { # Format YoY % change column with a range of colors from low to high walk( - c(24, 55), + c(24, 57), ~ conditionalFormatting( wb, pin_sheet_name, cols = .x, @@ -470,18 +471,18 @@ for (town in unique(assessment_pin_prepped$township_code)) { writeFormula( wb, pin_sheet_name, assessment_pin_avs$total_av, - startCol = 56, + startCol = 58, startRow = 7 ) writeFormula( wb, pin_sheet_name, assessment_pin_avs$av_difference, - startCol = 57, + startCol = 59, startRow = 7 ) setColWidths( wb, pin_sheet_name, - c(56, 57), + c(58, 59), widths = 1, hidden = c(TRUE, TRUE), ignoreMergedCells = FALSE )