From 8b0a34c056279c287a278cfca70c9a621c49afef Mon Sep 17 00:00:00 2001 From: MAY Date: Fri, 13 Jan 2023 15:44:26 +0100 Subject: [PATCH] Beginning to work on R markdown. Please note, "colortools" is not available on CRAN anymore. --- README.md | 20 +- components/ESSlogo.png | Bin 0 -> 42379 bytes components/Titlepage.Rmd | 20 + components/Titlepage.html | 403 +++++++++++++++++ components/apa.csl | 720 +++++++++++++++++++++++++++++++ components/countries.csv | 38 ++ components/styles.tex | 47 ++ demo_data/.~lock.inwer_file.csv# | 1 + demo_data/inwer_file.csv | 28 ++ demo_data/main.csv | 28 ++ vsi.Rmd | 113 +++++ 11 files changed, 1415 insertions(+), 3 deletions(-) create mode 100644 components/ESSlogo.png create mode 100644 components/Titlepage.Rmd create mode 100644 components/Titlepage.html create mode 100644 components/apa.csl create mode 100644 components/countries.csv create mode 100644 components/styles.tex create mode 100644 demo_data/.~lock.inwer_file.csv# create mode 100644 demo_data/inwer_file.csv create mode 100644 demo_data/main.csv create mode 100644 vsi.Rmd diff --git a/README.md b/README.md index fc00c4b..4ef9dd1 100644 --- a/README.md +++ b/README.md @@ -9,17 +9,31 @@ Version: 0.1b First working R version, translated from Python. No grouping per interviewer. -## What's here -This is a script that opens a database containing (at least) following columns: +## How to use the code + +There are two ways: +a) running it standalone from R +b) use the UIB Tool to run it + +Prepare the database so it contains the necessary fields and you're good to go. + +## Accepted input files + +Currently, it only works on CSV files that contain (at least) the following columns: - ID (integer) - VSI1 (see VSI documentation) - VSI2 (see VSI documentation) - VSI3 (see VSI documentation) -This script is made by two files: + +## What's here + +There are two files: - R file (original code to check things) - Rmd file (makes a PDF report) + + diff --git a/components/ESSlogo.png b/components/ESSlogo.png new file mode 100644 index 0000000000000000000000000000000000000000..3d8958579c01a89f6f89fbd28a33e9f9311bfdd3 GIT binary patch literal 42379 zcmbrFRaDze*zIxGVkNkHp?HG?cY;HUmX=baxVt+PcemmW#VtUw;_hDDH4xzBJ?Hv- zH{V5OWmaq@nfcGN_x?Q*>R@?XEC3b)0s^k0f{Z2t0unL&{vQl91O&uqVm4p+1kp)T zUJ9XlobnJpLHRDJDv5wl7mE!uMTO5X?G-*bAt2Dr{dYq|$!g3-Kq#hFl#$eSH$Kfq z_h*uAdf9mD-sk)5IYF88NyWcbhDnhiE~}7{kU&O5Mz;O}r56F?UwFYA6s8E;58)_? z8uh!4BJB+#B3u8wCc1s+?vKk>W`xF86-A!MvJ4Kj53owWdU|@Vncu?Wb>#eWwB@RF z8#J4~%+-G=|JbVAxSXi=@ic`(OefbJ!v3z-uwv1^RXj@;O@juNT?kKM{Fwo)Oq!gU;b&T!(*%jw3;m>!bM zK%>;hPmv74ci_q2ypg$L@0u=7OZ8n*D`GK7*go;ECJD8L58jm zFOd?@7&ZLsQdh+wIdloH*At-g>m|R}=N%p+{+^iZk=CcP_S5S2v-&Sn!#w-1k$N2k z0cs8*vm+mm{@5=M2o~z+TO~&%)-`X0;9^h}X!^~c zr{;Y!qSi91P@#U;x}%QDwqD1ls_%00m#$g1tNkxr5{R-zRcH8Rye&M?R3#?6a!tnX z#PZTgws~80LT|OmhofwS_*;JSzos-U&(G?M4X#U&6_cXpcM|byqgBb7iezJ!SEE|p zVCan=kXwq*5%Sfq!=f}=zbea*|LjD}$M%3oC;8(8wNgU!l3{FKr8*<6&W@ zX$q<>~9Ib#?0>y~U@ESKrY+N8dYB zcf@oe$HR@!k+eNzKr;Rfm zWwlcIn;tGZs9V0U%fZ1SF=}TWa?8@WRn!kL3H8KA`0Q(r?J-&R@)SU5n4seeP1VsE zfa6`q35w+#!=6wI+XD_%`?^6&r)VSZ%YpUhA%<9YB17jX*>y%dG1I~r!7HSlc;{ zM_@s1Y5V8oKVAvOTH%>?T_39B%##Tpg&M*XuJNDsby2*1XjXaO{ov3M!Kqkxa`PrU zb3C#{4XMhMa&&<)3ss`5B?dD)@5ajuie9(euX}YG9f?@ez_)2lRV@VT1r0CJo?k}= zLYG`&DSPANz8{KhBj38y{co=)t%4HWwq+}H3Td93-!jy#Q2Q|q1T(esyIcD1vr1vt zF$Lm$^E%9ud%}Tf4E5P2%DrF?_XbQZS?MYWP}kiPSc*xJ{mjHp&Lj;ret?j9-kWFI z{2QZrxd>ZFiEJ<%P6&<68!WoRNI95!*GMv_q;KyK; z*@q808C$V!9}7FAca|jZux(y*UH64xvOL)94iQ&x`D1dsP8QJLs4zYkB=%ETyj)>x zLLj%1b=G8kz1ylHrFn{c5mc^=`L+}^0QN7vSI04I&Ky@r@!h=zbMJtlWR@aL%N~%z zc7W!a#y8Ce3&vhHGf}9)bTFyS=F{IR^F}+;UuBDkyGZ5;eu^QH3*4#9G7z)EB1&+yG#+UY`1d z{wmY&c#G_Z{WxQEcQ3lB>v`42^F1Hw_)*2L|MIP?uCIL&b(rS)MK3Y6hQamGL%Ru& zt@ZE5sT022>HAWYcQTB@z62y_Md%W=jZxn_6sj;Ju24(fYq}qjlm`#3m+M7qKHwAy z^S@;>Mql%EcVArTQ!*9aH2xYR(23 zzUAe%r&OUj{wBm2e);zjA>&-4TlGAy>Ox0=&0+8UqSuMok=-YWN5ev%GpGOxAJ9DD zWWjt4yhmcI9HAuO3D!?K1~G3wQ*6x}*iq^Av~N7y+J(6f6-F_fO!&PtH19MIkQyxB zE|{F3N=r*S6sw>RRfJpqY2D9RnRH?f{A5IUB-YteSsiXnUl9(hj~wDb`&0rSwAR^_ ziVOC#Nc-0_lv=+G$kR0S_Nmo&?JcNHDSOE)&#%l~Ef{};>MyaMP`fmzuF`ye8JlKCzrF58{N5VCouOH2R%`y^&7l3MU%Gke=I(li}H#|n~3VD6G z?_SYT6PvR~E_429ZTi*L&(BYK8Og!-zI_AQL7eMc2ZHVa@BX`$ycm8L)_lkn-(?6zvk*rl~XUb~5Q@Q?a~*q8>esklNpfic_iJEoM9_ zBrPw_TIt;&3i0BgZk}o|qSIkQlqN+znKow&_D(n&*4}G{F26I9Q0$pcDc46oq2psm zCxeYJ*T#^{)_AAuTix-xJe3e(dLQ{hK5IAifzZ5FdI0keRzFol{20z22Jt0SK*V6i z16wB#C9A6O`RC){>3F{byq&M1dp*>l*s3C^O8U23VVWFWWZLaJwl#;>D4VTfcq)6A za;&*Kt2}9tizwyV0QsBg)UL*S-u8g$9hZ*)axXpt<{Vw`#F$^%1%_Njx<6_x zF7ck8z8}1=ozI>PlZvBWzo8xnht$2tbX(&tmpQ>hnLAxi@(asD4yG4a5{_mE;8lTa zl6qrl%olqUy%ZiW6NvLSv=}fs-g_w~b5qVQzBfm(z!@804YB%MyKGefe^WVD&3 z*(!MKoKOm60CaI9$!$Y)-2o6DSG+>Qu9I)v4Qp;2Vn6X~Csx5*BNN^mV|98&zml6T z%-`iYr7vLf4&=oPSXuV(#Ddn9(Vel1Bw8*_rnmm`P24zO?BGdUMlcw=VEw|Lj{j2b z-0DNT5q(M=*p9=o>ZZ18pC7m|#>{X!t8_LU2}?YTR&_i4Mbj)br&Cm6?{~1y=mG%z zlnXJ_>q8RYG*<{*H3c{l;SW(~(A8M9P5#z$7mnD9{IR!@W$i-~Eok6U@ysF;0+jPC zv5-CW2ou~`3ib1;i&^z(=Q64tV($$nvA~gID!dWuhQ@$?BgBhm$Gq2?{8WO`L!LhO zWq{PjA}lmi;h52q%CwR1^Z9S-=wjFG22G{z1kBx1erwsAB^X3aeVwBmFL9LhOitP+uJo@Q0F zY^OzKr<$(k!~NADZjofxx0&)VINpX#Fo7<9ftZVC3&gXew(mi7U`g16W-C<^k2 zUhfaSY-i&|w`&yzjQY0>WmQDys|kTJoEw8wR5XhclxGBDxV2c+ktf|N3BE{~_65ht zzYQA--deoe=bEQ^eHdH^hi%p>pKKFinwDr}9m=VR$gsKkw?tbn(vEq*wH0u>w;mnb2=fpc`E;-Ym zbQk!tzT6V}BWgWhmiFyP4$q7Q86Gd-052MlZaQFLEj`6tDGcHN9tr>R!1qh*A$C|h zQr9$~#P`mkO0zD@DRwsUXSptW%LPkL?hxC5hG`ROsrAoI}s_q2Tsmq>P_0W*JGVS7~XjFa1bnExLqFavlL?S!x$JL6L zberO=VpURF%Xtc*9rTSJ(KPt``#A|sxkS-jJtc4Y7CbU3X^6hZZ`Q?=j;2e|`jhbx zaj8CZ-4#pELqG_jVoxC&pVIS-)mIe(S^Nckw|ZHV$6vVZSE*XyAlbGHZ+gXLj=IWx zmTdYAQunrxP4PkEc2T+(qBNC!R@~$ks}W~)7A}si4u?cwq#_~y3AP&^*9B>30g`F#r3+?`gIA- z-o>9~*E!`!Z@xwMgT8;++@IC^o{{-(k>PM?VAMg|F=_!f4#zS%U3WOc7=a31g!#PS z3ldDYO4(cDQhOb)KSBS{O~pHE|NhG25${l_!G71$lWD3S88yrit|X+Qm8M?8I&bn; zNpMw0-bo*}#Q^?Yyw{OAX!Ld7L?HUzkj5H82cLZ`YVvM0t?_47*#>aH>q6IEQyYiW zP*i74%|xaG1ptHS{-~nnO!YF%^kh_hafGAhq>m0rDthwpCpgyK8A*H$^Yy35*}?M? zQQ*3?@QdHm%0@?-Xx^-Kc_vj~$rf>_?D2`{zdozZUl49z%O-EydZ_iBVKPH2sgD*tRTKc+kkuEjFVE({SuZ<_;bNTfnl$LnfU=ADD z^jRM8jMzE+N>9z&qT`OLP{gPpi^i2q9c=+$gMetANkz3ffs}y&FM>f z%*ZW^To#Ok@Cv7jH_J>Dv%idTHUF^qsB&3xsUWS@`=9AiqK5osVG83aD7A4In+Wua zbQSoV<1ThYtV7{I{!74|yVQP-L{O8;flO}#Z-!_FU97|QK6uW^U&!=s{?V>y=bZD1 z&ZW!PA1ky}fe>2y-r^%nxCMvEZ$O$1L4(}-MO&;`7JbvY533J98`1AF_`1s-ashg| zj1})z62d!1G)}Se!L9<99q`v+zG_2h z9qj6zs+92=y45n4wQf^ff*9`0#C$rYhy-EJ|y*(A$;jHYz#P?fqU9698LdjqunRP;~79SwiG0 zH*Y>{yxrC5{%xLjX(^!))AxO@(9uTbV#2)ymv%p=k>_cAm{o}xuPXTG2EcjUc)4qKVCdSywF{@v!S&n< zA$#P34%0xYdD0(d;-%IPh~<~4UepW>G6j6HyRxxQ{-Q4|Yqo2kEyvgnV~q@MugZa{l^ z8YlvJfEx}IsFJ7-25V$+zO_A!&Q(>2E(wh)GE8^z(7s53hi7w50;(#M;f4h;cfa}V z%u8B3ZL#YluRpwzuHw^7s|HYZL)YXayyR!S`=0AFA13Lok^8ftCD^Iaf3*npBCMaG zeLC15QbNI{Tss>9dBHzjoU|Z1qy+Ai&oIPTJzrPpn@3n%0Wo5V+R-B(QoCV$;?X}L zq{6Tkn}J}p8Pu)z)8Co*47g(0imoWCib^|IqulqlJRCq&oA(EDHu^y>%7xzz1#+B{ z*CqcvlDv9m>Nr(zJw&!Ku-7iAXQc7}W|TX?zbHWtF{Mk`QWS^KUSU8Xq9sH&?M!ay z$yW#2L+(ri7GdG6c*p8ijAi!Yt<^!=oco?i`MSCx<)T+9On-OIc>-tl%qRkC3)9cKJHHYugh=5v{6`JB&C4!hqY z8#J}~2}Im%4>P$hyCTS*y-VM7ZT_?FV5MV|rX>g+_*-a2w^a>VR?_^1V4&>NfL z!K%v#(K?Ag2Sw78?`x&=-=-S%aCP(Z;h?7#Ojeaic3_e1rrzXQITz2Ve>863z`^fN zUbg}&p5qiU=9qPW%ht37HC;P}*VU#lRLKJYNQpcE^~JBTVjVQ5@c(N+$Lrl)pP?^w zk7C*#e!3iyD4sk9Cnaf3Q&Un#?{MG|KdO?o9TUHV8QTi(o?)g?dR(Q2Vo;RVA(vhz zQWZCVr>c>QLaw*f8Xk+K?a^yr9*>3i0|Cszq-l`QuN#c#8hK&0H)B-jRC50Nb%WH` zR0!=w$QyWls-h}_OGuDLiBKQlluijj!FX@sdL#)4)2Pq2$X8-HfMNpum2$3BTRgG& zSg;8nyY4j?N2=Vm6IQe_APHHWiOM340RF34%@QPF#T7*W`^SVf4EF)2&KC!JRM5mf zKKE-2ldZpycaDg0B}CiX%4gYiONlFAk!hMxD}KyPN?5_Be)24{Np;oDdW0!za_!q1 z9LuUm#Y8FY)blD1y1zbc&2;MKMKp_2ceTp_m^LLK7@V4|=;w3ARs zS>YUi!YKD8R4@o2hwDE)QVd8Omnzd5Hta2e_jUKIc zZ+ZMcGc$Afn02aJ>uT2xBoePFb879h1f zfUnNR+&5t1t>93(K58(He{Ive{%F{xs&fEX7VwbkGXKeS(KJk;h-p~L*Qr9Q$o~|U zvr6+A-rVk4{Sanqo1{CU>vQEm@!{N&;=`*W#miZZ&BZaOu{Y7zf}y)}7WzD8CA9t{ z8H#Pl60|Yk;xBU*!4NZv#3z|2N=}FVhndlk=KcM5(Bo4aMbi@k+)^JV?+l1OHsxe!s72m_I#ZDd@rL#*h6G z-~AA=f>=;0{>}u-V(iYdXyFOd{%ZVPhB*a?oEdSnG4Dcp2%i>>-JCy-rw~yX*h9~^ z+_NLJrX8hA#s0CYW0pNCr}pR@*{7{q?qb{5Ogw<-&8Y6vsEh8q+fPmWW=&X9C>jFn z5(U_OpI1IJntkb&mI%e6`f`Vbg^OZGb$T=9U-Q)7T~EQtBy@2d;#*

~NHq3FUtg zqLP79;Wr*ZSSk%GAMEy_*)fuxrm0#@LOK{L+7*$kz8K&m)u;? z{CA%HbIInTRhi~*&8am!PWNTp1OY7(Pk^ekM9h9I{1nwg_Tfd5Q<(U1hxz(pzn+Nt zlvWjwuIKIsS8%b%FEtWBrFiPT>%LP(;V=DPO35vA9&sikXQ~ojQM2NwGr(!%bznnX zh9-Y0i`Rt;^KDgYA=j#z9f$XkJ%^EVS8^D&8?wtJR&s}q6%z-E`*qB{KF7;^0AiN6 z0D>y5$sSH^!9t4?c!#}3*kj*B0@=w@$6ET`kGeVA&N-!$TpR4>X-mudlsz79bFlu_$Y%O-inJMK@1q5`ljWqGw zrs%vYl9rc$Ow-Wr7?iXtm#sN#PFSBo)*CUmMQi7 z%x3v)HpR6(3Q5F+#>hT40!xPrB7EYjRi_EDI#AG2BuBNyCX)|lzC4Z3>{Cdye7)16 zgg8yM9mBNb$Rxb>IYk%xzC4640QnGZOUVBXlK3ov9n6=< zAN~OtiijTaZH9JFWD1ZK+$T?YdD%J0W2azBsh-cXmAL^k&$@$ObV*BaeeW7_2lf!s zTFOAxiSCB@4iM+$-0)-MV20@bXF+UV(`m!{yk~gI0s{m3eEkoG`@;9YIS+(_GvF1P zA9GvcHK-2mq3yzIT?N@Ljo5!xOOXW)W*MWwc(bh}g2s~h0ilW_;hQ^OD}&?r@4H`p zKcqfH?tq31IO&yuX>>WMzmk{gRCaDRxqsYKC zxx%Yaec=S`;i(Y(I>1P#1j0*kb9Uf$q8o(UXtT_0n18}2T=RRhdiEDh5CAxQB2`+8n zuB5;&;&A8fyg^9{E=b|~HDvUMn(?X@6;=7}xZ_$a5y3 zS`?b)Q{RCUDCNDo5UqBQoo5flNh2bldHwN-kTuK?mmaWN58cmhI|_43tC}sx4%NR& z(((z9yw^C*d1;*|s9g0SAB(;cB>b93f;eYlVj<8J@k;97XbF2rEEu_EV zt?m*L`)9(V=nwpPm*1zGl>Oy}BWUj*FIEEF{dk|Mfce^~5by z3P)j&P8`w8akAI#c1~|a{OM$8ba;56WHh0}t33FqTENu}vbEV~XOT1mEbdOsuApcXN(ISK0nlNVKkT@G4oLJ^MOkx|? z`p3a9y51D1G%moHnI`vW^ALz#zne8+MGn+ zG*frL@<2R=R3YX9CB&X?j4A`kQsKh>xYuP|$C-=O%C?Q2^Fi;3HjAWj*|nN)O2e?Q z9dQFESh#u!@jzy5Nq%by;PI7%^usjp``fd)lNK%9E5Bi7<85>-ed&79s*w^NG>VF= z%8LfAxW+}-zf!cBQEz9*Bmn*UJ5gSzO?t3P`EdC((DR|1PfJfCM)*WeNFdVZ{hg`* zT>NKUyW)m%;PGPT{rWMg%A0;dlV!kwq0~J9)gaZbMbL*}{4-WldPv2OZ%y#+H}>R# zhK?(^R^qf$H>X>DmX*tj2@4-QXr?Ut!liN>|uR?n8 zB?-Gwp*_g>?jT%4l^)u26eV=c$NoJ|OlX6&mX!3KJ{)hNqz<%)eusYr_2!pJk_8N? zR@d1^A_lraMr~T|W;*$7mr9TcXe<)UQ}5;2KlVcuH-c1R&=vNL5GTogf%X?#nyr8o z?k3!y>~zD&!Rhy{MBF6%6JjrYk$30B!H@&@e3|aP_wq)w#QmBkNn&C29pM6@ki#Av zjM{z~*mVk!f*;suR0hUS284SV{#Z@vJQSx!6OxXS#uyvC>gG0X!w@OVkDY%8xf{yw zVJekv)0Ch+yQd={U!rom2hh~QNrW)J56Z}KeOl|!XKqiD{j_1RlJb;j6#KM158>Do z17s$Y*hud4Ms92F_VwZcG^X1hwt|Va?Za`^u=;j+Qgrl;=2D43w8j{qORLV{`r2>$ zQh3{3V?5N$VG=DcKFRlpyH=chn+l#$W+AGwdSB>=R<@YLV`@iQNVF>t_RfB&v#74%EsqKh|( z*ri31iO#2i2|Yuq&J>p#)BXwPz4~@z&sXE7-wYE zhwR>ckqSh57~x3H?kW9v#`3)c?^juofdT9h!{5?a&N)_e_M^ zLN3;4f|h|;Mc@USm`XgYUolHY)Im&MkF#I0<~V$L`){a`y-n;~Tmmb|%(A{sI9peD zJLGzt9RF=mB3=2=)KK{dgd~W z*zZPBwY&nW*vT)3dK624rqUyrG0`Q6(L$dP`e+MX{rsP=tHPx;Y*t8>^ zjTJqGn8S=g58yihKmaqCQ0Bxx90Y@t@6bO^xok!*Fc!4gq60q!$%$}!X!d^kxwZL) zr$`cl8pv(abJF#6_8#9d5?!mA|KV$ByQn~%$>VgY;6w3V0L_-D<+O~@$Bbc55q2b63-Hd1=fTN!-LsO!TF@D$co@{H zAzYgf^rJFQ0q3G304kPfqRp+Pg`oQ$q7^WR&#wl{Q(n z21M9QDKXg~n_CYblD}1du|kza(%4(j(Yj-93C(+74o6JU?U!jS<*)Uqs9^cDZ=1q= z35$#QsHHxtl=s+wJKeZf=g%(p-K94n2dYhjGYQ1%$ML;_TypA_v!RKXo2p9G28oUSe)9sWeeNQ?5IzCd*N^` z4h4P7iDZVIH6vhPG7#j}EAZ0~GiK1(sJ5!G55ME({UI&@^9`=FeMR^K=;(Pc}WywE+`>eAG z%7`mcDs+AX$6mf%QTmO`EN@!LUh6Gc&0|FNQsFrw5jV9Nvx!M8e@6AT6r~i!A#QC# zPHa(JwkV9*?p;(-&w>M#T$ zEe5FgzQW|Wd`o|y*E|Hij-8-#70nc()+0m4F34rtjRW93?QDck+pC;8x_0ezq?Mgf zuPtiJv?ocw9I5Dwx^7*YJC190z)#gC_wK#4I|pt@agwx6fG-GC&Xbat5|Yn!wZ-shtB7vVB- zryUp!)-`k(5Ekv@Bqpxn`K8*q;*#OcQgj?VK8{rWvvssx0Y}2tNsjXzLiXu)-N5D{ zt)^`y%jMa$!>2+`r6)S|aelQ|?oRmcKPU6h*G%DuyI?dMzAp~y28D>sLDAAKn5jK+ z!?fbCi@wfDNn{N4#=J&CO^iTub>p*1RxEez#uV86{6U^?HF^^s|E!OV}5@xd7Ma6VBOp7OqZ zueez8uzrwbRB{bFx#YoQ^s{Kn(jHReB>GN`(dk;aZ3LnfBK!~pju|KUi{5nzR=NHogBpJp~RNeX|XI67$qvp{<3P#l|h z%t#z^-bUH~&4X{kO^C}^Iz=91*VZclZB(C}TX3>oiX8mpP{HE@{;juAwEmcxJ7&8N zat;MIdtu~Dg?-_L_ICHH3Ir0_)NA=!2x?rzXqflb|;<~ zzSK8orQ0XP`cqI6&alj&fLw2g)ufTzr_+C#m9C>Ps%4%lr@CH{OY!F-<%-=2o=5LhW!{)HQd#|9mEpyxswUzyv_7qu}jP*5Z8i+M;IsC%1c=ZQ; z=EGI2U5eZSc>=iFaRD_JBs;371-D#H$>&*xZPL>_56t%h_dei_jrDvJ&)TsV8iUPw zkF)DNFNJpBaZxN@JN@1a%3KcA`3SF? zOirMYSPviLCk{Dq;Dngice}>T8Km`PFnW~`neWHgh%MS!vV5iBt0D)by~@#MhRV^{ z@EXx;k;GoXbybqd7lvx_^2+=Nkcsu}BLpYT-aKt3ttl{&JOSBuRL8CRCl6~%muIb$4K#9SCgA+Hhn7_KFyxmc5$tP zd?OP%t+epan-l$J`o1xHR)TL*-g6p7I-y9_3@~ug1Fy1fXc|KaOAu4Tlv76W^`YqB zR|1m-RZce#`F*)Q*IU%1YEM|K|JMD~(SsSSfYC@XaY2i~$oi162zNynlOFz|>C1*L z1&}kc!psps4zhe{?QU{T57*xWTg-iW+-|Zb=S8)|)LFQ?hhNN(^jDq)aufWdre8?u zh>5)w!RraeRaP54+jEq~GN9wyb0>xUrjP5o5EfC6JGE{ZTS25j~>I6Fwpqx16k z9#z4~2{F5=AAMtkrbRArennt~gdCrmKWCm=CfE4(Va2Z6?qyVjjl_{CpCo=p)*Z9E z+de*<`z*k6~5Heya@3B9@TxI3bzt)QT(dK1GSLFO&u;WScw|&%e zfn5XIH#V``TD8n>FoIpFhVwFcAFBF^<>iI-pCBU>q#*k!7RJ1bi&4|a)KDJEX*d1k zF4*n{UVji-VoN_^u_W|OwP;caBsfkeo%$vF-xAIYJ?l0-Fsj}8b)Oi6<5uh&w$M_0 ze&4uR!e+DF~>`d+aXsPXTc6BB*tdiSTMf7I74&=YHVHM$irZz0`vWIseY(^@&y8*+bkT|Zjh4h+g$Zr>GY0Nn*)+qpuc=lZ{1pd1s2>Fuey zf$RU2-5G@>^b}6l=A46GuR%L@;k+#hYC$$@E(^D?$8BIR)#GKX-;WTfd{crhD17yZ za=Z6pcRazZ;#=E2Og3&51ZXKNje!B|Re{~Z?Q^KCO6C>85rbHO)4%t1iY|8q?{dy{ zy7=!1{yoL|MQB3ZT zZUZ9;h4$k6PWmYkw4+^Maa3-4gfw@a+Pr^#KS)Vb!U1ZHh-I^pUI?JjY^6P6$#E~J zg6E#Nhqw3lUdEUy@FpL3Ka1AAlxyrB3fmS_(M3gTxQTclNdGr6mWzWrkg%6cs0hZR zCJr^@jvH#Gf@dH0h_XTwktA;K&kB_GI=GCSqHY36)miy}=?gncN4Y*EEhP+`0X4{v z8n9kn+TA=OVX3nAHqH`2o@^+b4WN>q5WS8TdU|{;XtO_%QD?PbRaKY3VFtdAn!Gqt z0037G{OWzZS0$ilHtLW50mFZ*0=nVd6;S(w&T}6-%Ge9Nj%^Z$4EAFd@ym!bbj`QS zQdV$A3LfjL(TaGf5$jnZ!P#2T8SKExSm%xFocsR0WPifni(jII#g5>F;pTGFGp3eMi!pY=T6 z)+*%&p!Orb!uzcbp_|tTS~vsW4b_^bHk zg1x#io#%8C7ZFB`K1NGSEOOrAMETodiau8yW2Uc2WfI;gvA=f8;{iZLt-;l&Gii8f z@J#?7m;(ez2srF)k@25r%Axgpqqe^t1MM2OEQU(o@AH;oyQl;6j#wChWh(ipf%Gb5 z1Zv1sE=JHWk0CDO@Rhf#IKTliI}4;~vlLzOP5cn_v(&De;=5QsSl=03YifILVVfL4 zClOG#69p~vU4Fp9+{=u}>0~j^SQJ!K_Atn|u+4x;^Mu=!&>ZZ@gI%Tt+VLEU%BAV5 zg28M)kC^;VOOK$AAe|gv2n~Uji)OpRz}NGhFmL16cK5cD!NICC1s zdKjvQArNWigYgg%Ch+F6QR-X(OE2%pe(tI%Ys{n*x`fB~$zEbk#PigDA ztkblTy?@Jl)1oUH^Di;5Mv}a5*uqmglJR1B9F*171qps}ZHDSC;J(khOwD9@57#1m zfiy(ow%>{@Yg45il7)Wd=u2Fo=jZi+aELC5CX%qR>bIGymm%M^&_8oq)(6Y%1w2(& zj@9R#Z6*aJF(xD8KZMB!Mi2v#3eA)PhSi<4GqOxiKcLb@eZ5r3`?1Yh^ zkTG?2du0d_{x&OhPxYr9_lvr52}6jzbFc-L6{^AzFP-9*o{;mvZl)o66(U1 zX$A>!x0HWuW&Uw~X~2@8WBQCe#b#Wa^0h^zv>&H1TP>(6(KBcto=e@pa7y8Mo&YIv z+{wxJN&l~j>KHH?+P|ri9f!X%A9+Rw#+9aLdjiQsiX0R11Cc?PSQcXf3pWml{;>vV zdk%9tdLE$Ze{9jyV$U}-$M2`}9f|HM8^$BAzqNlbjXOdHO$QUm&x| zy+8QSj@v&jWEd`;SPYF zP8xQ4@oGo8h#uh`lGG(`@K!ed3n$edFiqj$?*HmoijRHCTj8YB1O;Ij^A+yvy%P$kMRdtfUeUg9whPN1r2^jlt@xwMJ{yw6L`=4-R7ie z!PqxjVhiq2rUV#}R(w===}?F`^3{@8Y#{QM;}#?&r{oi~ z3(j9XUWJE~VPQ=txDveC>)*|e;PLYplwO+RG=6S2GveWVltlk7VMU5BVhQLi!FwlkZb2(?x9(;4w0_^UKhvL! zSdyBWz%9Aw7|$G@OG-+DX2$Z)bhlR@!y|8Q6;9rW=j6G=kD7kjQbL-l&}JQv)+iwm zn^rgv?jCpkKowR7VyrY9dNX+u)qDs>cSTLta;i)B^IgM#`1ljz9CFbL9W7|}Aqo@> z!QAom-xlh7Kta8~vF)+9a@wI)$!!%O!O&t7b_BWHNA_6|Sr8t5EDRdgX=>J86L@q2 zVk7H%!6YeQ>-aXqj|M9c-229^Cb!=q6~!eReEL3K#|Ca>1{YJEKMqr#7KaE;8kPe~ z45i7Q(+RtrG(O)KUOk}=HmLU919mI$7BM%k_uPIdWE)cDUhHm?(J-r1UXFrf-r`eV zvKgo4sKgNyn~ILXTKa@7HvyZHllC_7)sD)So&(!e%PB$(c~MmQqbw!LoA3G-o@+YFne10?)ey%wE z+}hx4uER2uYM1-`!<65lj zU-7${BOSdh3#?dRRj})}tw7*m%Pp(1eMIty&S9N5%Q91#QA#cmw^hw6ySdUImUc%# z9eeN2Qij&J8%n-y`;>iEDcX6Xm-Npzlu=FO#WtRqH5fcXCe^XS_EkTt5!SA10L$(_ zhNA?A>3mFCf*M`h(>LQ8w86d37{TV+Z2wkIgSFO5DdqddKVH22AIjb;Dvqv;)=q-E zyF-8mf(CaD4h@8c-~5sAI|%jZlz?DFF+H6ChyGz5ae}@Bv0H*PPY*S^%Te6D`I9>Xqz97j>9wp6wi^?h6`?mT`z=e9ICPRvO~Z?pKfbP!J|Y;*0Nzj5Q!YOD0I zP$iN41KSCsyLUf>*3phhGK6YTK6vqH-iSzLm0g<-MbB{|@(G;9Apci(%0k zLoX9^AKnrh2wOW8NJsxCnEd4y)tRH9Qy)i1quF4X_}ERsT3$`lS@Kd(WH)I{$8*;6 zPiH)$VV;32LLU~dxZj~McWp`)*i;6xfHjuU*ttON{AQNMb2=vqU7GR4;~c`iWqZ0; zT6KOJobo)O3TfLzu3T|$B%10TW9@}!Yx@JWa6wiBk8*AMyXa(xj$vd&kE8nV>eE{W z2piGlwmH$Yrl1s_jStdKKFJI zm-k$T^xe@PPS;&1xskHVhz6#ZJaT__+B>Yd#D+ak&dg*eiQX*#=f@xF2cIzZ>NQW# zNXGL=Ls<#i`io_6tY8CZ$}KOs0Kd8tDJvyfN6@i#Wi@fF)M?IOAPV)aL>R)FDQp8z zo^n0%Z-Np+q6;o^X|`KNb<>Q}8Q=HVmV{^t*~-zv|FHg|p-Wuw`EPJ*v3O1lrr54> z&)j>238xib@em;-^%tZI+L@q*Fue5$eRv7mh;lK4NPQX_`9!*&N8fTFWHOVjV`wYM z4~+(g04rmidWko0-_ht7pQXCxxw93qo5DKD^Cia+hd~`ZSCTQ)={4Jg^{wm z{Y=S5B!j=i@clkT2n~exb)59vlOvnrlkWmZ2P0A1$Y=_>!A>L~C-n854_7hStBpbT z(|(lEV8YLIS0fY-O~9V9(qX>M-9WfJQruA- zNODc@8y%{tHlzd$)p#{Bm^qW)f-gD=xfQw$g&g-98z`{%e>*itAJq6SSs0Twt z$jQuo$W($g*8>Ez#`BtPL#VAJIsML}AK7u94lNX^ud0&kG@OkH|!(|NnGCJ6p{p zAI~a2!QW_ST)(e-8nyeAd&1Q!FjpjXg@?_Bh+KqVLZ*O<*n~PT7`Sqnr6@^G$BD>^ z(h|>96o=^^1PPLU6H)8yMDLcyEDLAE9q>rcBb9@-QuFopN4Q2Ul&SKTE)Mv?6!&4f zlVyV;RF*X|K><<>Si$;u$mFtuMg7CyohFeSN8B6(_0^B=3&R;|=U z!{6cOy{7{hj~y66Zz96$RKQKZ2NLOOw*m&8Z@BU|NvscM5B-wkCgrJ@YBe6#sc+#J zIFJ6t^LYj3X6M)sm|1kH1oYF*U;kavD&)P;H4uar@0s*C zA7}2Sc`Kn}H#uSq_9;f1;YIiGdps~64HjGeSKam}nTD_=9W6@3rS(H#ydwf~VwC>f zc5Tcr*0g%dS$2hrFm8u~u;Imi`IGwZ37JPqE_r1HlSo|mOzvuL4n_I;a;1>-7iXDq ziET@N_j&({HrhgYCynGsH^&sgY4>IYOJMouec`9B1H+SZI9^FVtAG`%6*&_8MFVxB zRu?@BiIXRV$1_JaY!$YJpuG$lcXBzZ<<1?Ok1pk=l9Lc?PZ3R+=pAJFM_8|OSFhU& zGuuTNb9RkxF3TfX@)f!sa$kTafO&bO-4Mf4i~CY{YvXF_v#1`7LFY7xCE(#7@%o1V z58)Jw&l!w%o0u_cxOquSbO?5YvhI_c9=nmLRG-uJ}(CW7zA>fDHe&}f1Mt+J&%g1NrMF-bn0 zijbc&T^L$syKV?hA|gqL>ujAdi%YW;Y65bb!JsRvSUhlhzA1y-7MnDSZ3nv=4Ba&E zXTxLLkplIm=MrVU2gJwYHk06P645^{`OKih3@zk({Ek0j-F>=jDzg8L6hVWkaWsj3 zdoKJr`aP#Hw=OAfJn|y3zU{iZS`>+!6pcD*kjR8BDT?OS0kJMKZ>8HAPrh2T=ht9$A#z7xM z|IBWT;Sk`j8VrZEvQUE1=ep^I)%mA(t~ZeY&5f*r%r-f$jeIl zVe_(~%dlko{CE|JEu1(7XxH|vur|{%Qz|`i^U|nYpXA*}UC)cr{e+;Rh79Wi#`LiJ ztDiM|sKbh%OR#e4-c>`3>v;WsK%91jncjgAdm-!l=}@EnV-k|;?*DvgZK-gg#(%O7 zNKs?m@vh@))*>M}=?~{BEEXo+Uy{7@{})$%TH33-_fLQF=`4@k@6w2kllq*7>$oU! zFt{WDEJ<4DakH<}yBG_k@%?$JMwc((z9B>DmO1HIS(w~j%%Ha1K^F-h5e6OBrJr~D zde7)IcDtwD#Kh|+>Li$oCyi5q5{GV_9jc^@@ zmH`=l(?P~1Gq5H9-q|h|8X|}M^Su;Z9Ymvw*l^VKX4w=OSN6fb7|N+5-Tcm9$1v zBm5D?CW_CUO|vnOK~44Olpa~WRNBlXpcErGzCbXhYusfkhjss--t5bC z(ihjSY@onw68Xm^wD-4h(h6Y4I3A2tf3n?%=w`f%7x7WwDv0KYx=4>sj0S=nF+z8agzTc&bWBq#917%3)2J*M{Pn4!6*0WvQ!L5 zzg`GS8D8g|bTHGbXkrrXA%tawIQT-F667RymdP&?4tNV*!}9z`&!k?6Tej@=sQD{Y z^H+*++{VMbofAr@P$pI#BMA@^qgTm2hug6oLkVce&b=uH8(;<_4qTOO1iz`GOOB6gVEGw z!o>bMQQ!j}by53oJ)4;EXctEeC{X?kvgzK%2Ky$c zEOu)}Xi;h&Ga#~B{rynK-7r?6*rWek7xu*DsfO|g-|O&$1FF#DS}S6}+)Uj+r)TdNK3?4hp?|?JH$hQ-J-e>f}N`_C70GLn@vSn@%++ zU{?&u!eyI%3x!>$lJj#cLQm|$&?^(%vud@!t2U=T$N%LRl>*ZAsVnkqKL!{z_Ac9iEaKV9xYDUDclbn0Pf~r@+aFKBJYR7*7+vm`6p+ zMeVtTXUuWy8ZAX$WfzZKvy zMxz;nP#1sQ9n{j`_=#B$=MLJnUD16Tv^|wEi6qIGNOJ;Qt6}|BOO^K5@9J*%$k~nA zmc|x#7RJak^;e<#!meEx!($rjKdbWsEWMDR3EARDIJZZx{`0h`C_%{cFS)CeXCPlX zhXa1d@U=mZK&F~g0*5?V(fR;HzNk>7J?S>ZdjJ7eLqgr*3+_1a7!~Ofq5LxmdMDv6 zo(poRZ^gqN`hmn6MtLxnb#o1Fn5xTT{-=ktA`$;e!>TP_)*QE6 z8ye;^275+ud-047?%2~yg#{zT)_x$j8B0t5pfPG9 zwHE@c(1s^peCa;fV=pj%>!R`6r8_C*iDXu-dmUO|rudNBeQ0r3ihK>E{*YJNV?PyY z@a7%67}7VqViv4m5Tf{UW69@GtT$ync$`u!`gNY5#}woDqSfIml{S(5Nc8wKFkSA& zy;?!A-9AhN8ywdK$?;izJupd|w1^dnq80r8)N$=Qab^}_EPNfu|Ia91LeLv)q?x%O zdMjzslC6)9Ggz~b1zgr7RT_zZdWcXqrGIg&K-rWmRb95@2r87yCBhr!)Q5owo3fvB z3<<^F5JvVEp!OX)-+34b!x0}Ku1XOXv_xlL*fViQvUl{bv;It_6O8`(w7PzT-0$BO z!eFiU--FNoKWH9z<c(L}>oXs|1>HcaV315(#HH(kuJsrGu#> z2fGvXRFRp`a}WW;aF&F1ji%dm!ux0+4yQ4=gk|x6{&vCoC)U1z8OPV=C`~v(Un|iy zPP;|vMxBAV@9y`?!m3(*+5v`y)K7SNx<)M@>g+C14*RA)1`&Wdh8pT%o;ZF%I80_b!6a6UQZY+^l~U$eneBf#zaqmxnNrknEvQl;rjG#h(TP zT|Dn5f(p=lHg&S~pw&v%x~rY*er(@!PiWN+95oSHHkYUNMPdk;)UIw&hLQ{{{jXWr zR_}3uSaw{F^G=Qf!;Z*3Jay@`T%sjk%g;QR`LPdK{VAVa3@+cY)wv_sGr>STY7C#% zhIC(GPe?qaC8xY|v$_~DUqE9MZkUKeTH--S;%P6KpOC$ z51)ZJ*`4EL133uuEgDAbswGwsr^gwD$(!?4S61`*Qr@B8oXJowXVPY^fLyXYc@pR4 zoR&KLBy@jrlGl-4i6GIJG@QyU?L`E8qDlmykNtjtd;1pWHH%>lf{Fatn%`{Z3Lyqz zjn4KouIUsSdY<@>h}t9Za3{lHCTbX0fM8D|UU>7H9aZCjI7v)W-;8&n9X-3_x(*+B%`sNvi1mY)8h24@EE7{X_;yh6 zXd~3=;|H`hE|ns|)BG3(iqF%ie)vpe^gk4(xXT@Vai!M1^yf^o1J;^q6AqFru!*vz z@_g3U&bD3WFgHfcX}NJN$w9dx2w!x+{CL|Ic8Vlqs6&2Y@BuJk4v|i;rIjO87`Ef0 zW)0G*zVQOUobTy=A*Sc0nZNB^ZkR!{ymz&27-zzY&Hun}dclY30bgT) z^m^KVV42f8GiF5fE+vrjq~SI0ZI&R7lgMzyE)m=4o6!p)VFx zAU;3FWonN8a$sOH-gID$@Wqn~Y|;&ed}kpf(<@kjadf3J&}g;_6i`ox3wdYvXRb_( zY+jlfJq$>kkjO;@omCRlfI$B$DF|ef0%qus%6zsc;E9Ph(QRE~^e0gs1+*yBRPgiK zR}O-!V18fpwu5E<}xXwPua5`>=I#!#tFzQm|2%s!a2Cdn*1FuNah;~?&;p#bj-dzpa6@N8j;0kdoyc1;-+)s) zfAOxZOQCfGs&OUzG*uPfx>?)C6BiCm+tP`GZq2X@H9{u!=a-w?ZD_0hl^L)LCfY>S z^ct{y>W9M{QViiAvi!SMlIj&a53KII3V(1I^~1G{H4KIQc6NxqmF>TOxmXZdEf9|j zViF?Lbyub+MsrYMSMDq2;jf=L+Y}Qc>vtc{?WIEt9$QkC4;Lqpho#kb&#+$I^$`lYt(l1`V7nz$;<=ru*W=qZ_G1+L^1X?-eP*{^ zf5noke5Gyn@hTm=-*i~ZtuMu5!Hum+^lE25yJznE)!zK8+Pd$6zsZIIK8DTTw6nwh zykJ)CIM7;s`e>}X9#vW87~Gkn@6b9UaooJoOI^S5-?Xk>-6{*3XX%3=W5qv0qEgKK zym>G$RPD7hdI*NoRVaSgz}A>fNA2Cqut*~U#>WEc@yg$=slVKAOpH~>On;VrET;CD zE-SXzSmY|v`F7kO62BVXfL*^?2=o&f>aJ+~THS8E13SCzs7r?yLp*0xpI`=7!zbCM z4B=F!kN3ihM;E_akNSW2j*I_potpaHnvvPXEEqT~r`I;~?|1KAON+^-nB6)*ir({R zuL(RjJK?f8=r&0Mq&8qUBfj3DZ z5yOsgNbd>?t6KYolL5(joc7BA&kqOAgyl0~u{=nbAZrI& z7@GNzQgm+P48o1>-d&~bE)I$Aaiwu%AiKMI_SWZ&R@IJY%wo8!5{5pp)w-UD{`wkl zt=CVgZ(*5L54XYmybW_K5jB535x4JThOfeXkmM4cOnYi?Yk~_R8DAbguLza=G--u+ z`AUo@@m~b?5R?bQ!kZuzKZSKaCda_zN?O&7qR~+E8y$&+o)V9$raDYtH8Lfrf z(tyM!qLd!-1*N_7`r~uDj2RIrlrlwRFGu!n?Vs5rWNC!Bx;OLc#H9|4#yuhVq-T`1 z%KTTZ0ga}F3-yX>Df&H~R1fD}T?f(JV3)(;g2*k;yy}8?3>S`R!#OnGl!HzSRDz5D zTid;KSAY<*;Lr8B8QneER_~pDJEWd2r6fG8>UP?j-G7`hMdHEZVAT;;pE$z%^N)4_ zOO~Kn#{NSB`jE$YZmgHJ44bVbCY-7s zx_a_LW9CtNZ+@ve!%MY#QeErNi>cO7{Ub|Xnw4L75_M7?Ce#8kD{%E2L_z-y z2;GS0h4T+{MpFnI*F{S+w7hi5(RE0oqEZOUE22?o-^{Gb{XQx@{UZnf+u!@IbX_mn z`2O)AdQFH%T`alI5C^;tR49QjN&tbj+L)k4{z&5n;EzL+*JdLU^ofA6dG=&AJ|N)y z86zuQEQo1olsozR6Js%y&5ju3Zx4>W5Np7wRJOWc3<2wzY`(wjUgC*L&ho$kUh&yg z$g*tu{%S}{ReLs;ZBr-Kp+^Aw;}%KP$(aSn4iHEl2yYNRN#Fc>venoy1Z+9V+%7?K{h~KGcrPyhk_Ho;E*po|kGC-=R zd_2BMdG3#6_rJrjU7HwP>eE^!VGO5qctoMGK@g!aS8llrVK?$;J}~xW)2~z7 zILa>Sq-qx?7rGdIy81kVW)a7<{Z%`kgrI2#l?Z*op<}PaX{XR5imj6nqgt=7SGtm9 zBQQg1eF#B`Q$+^Aj?kQ&hM5*Iqk9g=Ie%nr7ok9bv%M?gl~CA&9wMHyiY2Ssr_*lr zt5Jper75l$1zyS)Rd&CJzQ@EUr-~p*F}yw{Cn~uN9M}#|m*wdqLURuH4BOUfJI_@C zKBxGiByN(PAe>CBGhH+DNGzWl`4-1QF}r^2!hvRo;TQ@;JKK|tFFS^AwJhaaD)Y@Z z)g3WJEh{ke(yTAV6txY|S)5PJ4n5k)#7hcvC&xp7*Ic9ra)-vh$jbk+%7|@~aSv|# zanPx@SM_gsYkHGo;BR)P8j>8#DN2B+a}~1#^(-@)%jR8zF5?Mc&UQqZfB3>#j#-q55-e)7YYw7xoV~ybpk;R#LAF8iYDi0 zdt|kRa*S}C8O6pybPNZl&7eIJl4uqASY}a#g>x<=cKey974_LRZST`3(`{=*_^&eM~jf=qA*9$M0 zqg`BZJ+hqIP7RJMKf{Q5&FXFB-zy4OY1ZVKY!`?Wg!Xi6+k|NZKHcJ>ZxsGs0*Vad zg0B0a^Qq0cxEFHJsLj9iUk%qlFQS~ga1Z@fGyO^E$G31iqM85f{Y?=)hQ}7DzB8>K zS7ZU}72+}vVn{lnvzQ_N$ z0g3KK5&*J(e`qOTqhsW0G55qlqe@yWDVR969!_KbvTjgENpz|0x!a%P*?egr;7fTc z4lGH$I{?kfXQhBS*JlQB#BwgY_|@B}^8n-7N_eGDJQQ=?ABgWR{gS7#tE_5>dIX@f zrT#8Ow-qpevN_)}!O{5#aAwf0uj99Vw#+{2L7~Yucxd!H171FKWkO z1Vd~cAl2BYbg!q-pbip+olELxI}V_=tcOu7vKgI43HqL6T=-1ruYA5g>FqtiP?9J& zVZ7+0q^52$ixnEViHncGh;zL8>%OERPqlrZ=@|y+?0q;F&+^i^vx1i!ZLhNbOOjr% zV6Ol%TPVkVz)hii)$9^Tge?fYD_LWYcGOf2V^>Zp5xv~VxLRY~kSOkMcWNHNQu@ZTSJxgKcVvm%7|^bKVM+@N)fnPu;z2AdUmF|B!! z=4RK0ojOGj#?RozAn7O@;|w5-aH)EFm)_K(%pox9l9wOT!0a5PGH6w~t~K*%u@LuO zN&=&M(E!4vb{OuGkUFDOg5V3(I~_8R6Vq$dnH&oGo&jq=)abH+gb(zZPJ<*v_9}{9 z5a=6m$jIrbDAUcTXzCTsb|Me#8E6{uCv)YJDHqxG!{70mCYCs8vCsP8 z)3JN+QmRIhB4)Ug+`Rc-B=%z!J2e#Tp`u@A`7-eBhakXI}x3+O{44*9p z$fz|rXGO0aS9~hivCqIsggcn!Nw!HvO0Vmn8i?G-dBLaFpWpw$SBO{S3Y#mJ{`HM{ zFZ|yBX~%zLYqnbY^_p@C0-qM>)caq$<>x@o{NA$>ilvv15089%rp_o`0EcHm&!&2N z4-j*|woPoS@e9?P_yfxD|Kjq8fZ4+~O;i`%AFzKM0cgo6b$yF~By2c$I|dYE#+-?s z+WjFaE>gn%1SAAlHhX+DG;bZ34;?@N*@pJRBMz#(E9t zk5jEIF30UVi!Yr^ycZ^n{?%%@zAKn4N7-h`KuyUeit3QoD8u^1p4;f-1kxj}nX@fh zJJ#KKo*=I3^&X^-h}5i%Y)U0KR4FntTm@2TO~V3D3l#{{oq@a?gl`1OJZ!=&ZaSP% z;f&rpZi923zOA+Qp8h-QBvg(fHNx^?pHR`7i*V&od4%W{7*&?=d|qHb-R%Iy;;u=i zKT;?g9mzdI(GSWh;y$Soacb>sF@w(hj+(8G{DJV*vS0!ly*8BM~REtZ7&8S%rH->9? zo&kmL6dvk&{kyei{%%>-EDfiqOJ;4wzVm3qYx4}X38?hkasl|^aIue+MUHRbAC2IJ zuPVMJeYyssP?jo7A$x~yo3X&rl01Px$?w(G)%ZAtN*dfaVNx8^=YW;l5rI2LLj+#D zADW>9+N70O4{&Ir`n>;c#Trww^a9qvK}~bdZ1e;?O`Nm;Ph57jpVoo0Dq=7X5Om{ zndYl+cqNfYQ>2IyQZhp@{i2Y=vZ0~$qej@TaQ2)_vWq_f(eDsG#CEY)ntPr2*0UlDzz1=zLv<87Ufb7DZ7aYqOnd)j*lc*I zDWhn9+QQCn*odS0ED^o0{NnNs6vVofN`sVvLDZKoE~$&cDi)&%^Cu9mbuCx7mYNXb zKLD}{cMo1D2j612VbwKlC57)srzgt|wv543kGm&`9eULFi&B2g{W^`k*FQFH{p6}K zWzFc$JRBx2Tt$&vb5+2vl7786+QSJ8?h+f!3JUoIy5vf)OEbs2{F(dwVA(s)9)lVj zKAHR{AE3%Qh#!GXK2Pz61|1l<&TCVIh@#H+(FkvTdr!V$)-co!bc8|nJEW&`34glS znZB`NWX^T`98S}EPKX2jft!ovnCQiG#DybeW$N7B@V^RV&{(GLTQ3^~bg56<>V8V{+Zc*bNvB zUEot|wAGtz;?Bsg|9Cuwzaf>cy28g}W zVov&)Lwjwq<=pP2C@=MtghWnB*>vLneBU!QD35LhpTN;7;;QNVWLV5XD00-KC6mo! zL@Kd|^3qsCjEQ|;)fHn}mWz!rYL`qX?)^Dr*9&^58ZQ7J9JGgC5o&lVGfkOW7_~7Qe;q1Z55~Elb54k4P6Vrbp6{5~?Tkygn7m7YS$uSFU!rXP&HT>s||JfG( zabS$q`{&5KSh#{FKkjM(`;w;lmR_J22+D`wDQTWcZF)`=5^DKMRxn5mb9Ad3iMlo3s1uFnGS%=Qs!|(OGUs*`u=1bj6F^h3@&S*2 zhp||2IKcF-JWR`)&36u$Z97+|SIvJ(N_>8560{1aO_$E+KjN+alIDaS+W8jdHB}{m zOhW2w&Sr^_NgXe|pvr%x^g1FbjNdx>ZCmGT#Mp%XJ+{ z7NeLlzsmoJmjW9n^kFbp+3SGxr1l)^5@$%9N~zQkt>7$AWm)@Alu>F#QMhf*3*TW< zgC4jJ)?a%AH^Qt!{NitA-)$yhyYIzAN1|lY>^1Y(rZQnHd}rZSEz*K;zy{kJGn+Ub zQc6VOL1#q7C{c|K^1s#tRdYStN3=mv1ejot03r%5`jLMh`33;IlZ+B=K}1;C`Jwp6 zaUWz&(-YIsL#4M5Ud}ZTU9O3~A0-@FNlnI}t1smko_>kuK>X{QaWc?_O+wt~$$Dww z^vt+%FjCLyK}E^*kvLC88BBW?YIVu0cHD2Ih9P*#ct z&dR17s10V}z}}``k0D62(25p)0Y4RuQ?S+g9@$XL6j6aQ2AW({v(|BqL|~KqAI|xp z_W8h?{r<&78rCrWv72$T%ouEx3?IPYq$HquZ_8Xv2Q05iBKUWl3M-NOU5@)1Aq$W3 zm*Wn^KY!@P>;~K-qc#0jgLH3W>kpWMwM!+xwFOQ=!O2um)c7)AKsvQ8%Vk8OA!H?_ zbB#9l5xYhW6%A*smyM~z+6-`{AClb-cb}kB%m**yZW`vlO2S}Ve|g8G-QrpbI%X75 zBk-~zc$1*+I3d?^HH6TVjD8se79J81(Ikj-=$is;@SC*5S*EL^>?VbqTK`8I8R0*Q zJ3xfmU({6QPaw1t_^!ojlsPt9ze@5?bHL9INp!zuih#-+WqBxipbr09pi8;|ntnuY zGNUmnTxH0XfL&g5MD#Q1B) zt^7!qtd9W93+H}ZmVk3DljMchZwL4{P6;r&aBDBhtI}{+lfXs>nW*1%^1E;^b zf{4m{@x4rXgbdJW3XCB}qcTdz0(#LQ25cu+v8<$WhBhJ+0wq?$q2x^A{wbF9RAWES zEas9!ko1d5bv03PxsEz=0&lD0zik$JtOq)N5q##V|Jnr>zcT!fym-L;!&p{N+C`+;XaUU->ez3fCr~Y9 zXu&Qr&gwu!Mu}Ybl^vNrL*wzz(w|W}d$GJJxit0n*RQ`T`#I&fiu?KCyM|btQ%aHc zrJpL%iq)vkc*~`LL<`0^(QhQKXxq)OPfiY9&yPVxuWvn8BN$~~HCH3%Aht0HFO13z zZ8Jbn9YR0^#02d2#{*Z;0yQJ^H~pBQy)(bIUg0ofpDP5!$+4*T0M6Q?>1fe}uf^aY z-!6Ofw)8ER9S)IyFSjRbmV>We#`Nzv4mz`Q4N77onxI|6WjVu-I#IA@e%{m{Z)bqY zHhdMT=$8eF5=j>*y5(62m&%khNMzc>tx!i5hgf3^t_6hY2+$p}V(e`~+Rg{7uZf+A zQD9|}5V)!Hp(_v0LUQ;r{R24bt3&L8T3F*kq771oWxiG@JsD@nZOS-N6c6*K-$0(i z+32+;VH>v7F_M@Vv4~l=HQybB_jbn+~hGNgPynGklZeO`4k0TK!gQ#bXl zz=M5Xz1zdUZmi0cU`gXOti`gYh14sVASA zCw+L=Y7AI_#bamMU%~*#pYs6%yQtq0SJ#JKKqR?Jtga#We7-KDa~iFVx{2NpcfFu6 zzE+c|qi}WhUe(3wYTR8&@F~MbDos6sFy|wP*2wZ>dprMBoQbjQ`Q1=lW@JijigSzX zAL=9A6eM~M&x_kNpcBGbt!)@IZ#-bn6i%O^+iLzYOOEK8$t&!qD~^_y%B2^ZDONdpb@CF75A&hhH@47Pa!oKI zFZq}+IbD?JDPbjOs?R%-EN^=oz@Ww4^R1)!x6*K*yj$!3&)Fvr=c#j08}`Q{y#0H~ z@<(|Dq4BK&U;T9$rAn1O>b-z?+PejX=+6PYDoL^U1Uv*sYw_B5B>Hy!7ZC4jtH#pY z2Iyv-{&tUdmCs*3Nc$;0h3JKM%T|$tF8rrib<=%6f7iAV(vOfu~=nQf0(G47PFa$$KH{A zvin;8?5Fa}e|^sIq>f@suJpIZ_81;P6i{&T>8l!BbM*)5rt|zlHAfuKCO{mpFNhCF zs(Wjw;FlknhYZ#4imJQ?iJ_YI1m>T{<8(5;MYG9s49LCJMf>TRSX(2ph0+ktRMfP^ z*$I7R^#*+wYw!$*&L4z$TqGShE=y8^#Ue5Pn&~OukjXV}0c%K|Ji}a3L`C8qg8gBK z{b5=)D3X_2!79`a#e6ixCHoHxg&UN(1?erQM*$XLc((MKdOKGIr{J0Kv16F97CeVB zm7UWmLQ#(WXDwxcdqGP|`TDT{>z{mq$iKU6@k)#;7o=uwNpN@47&SRl-Vr-3|nPDFixO4h&5-Y%9 zabpF;0RLD+V2&oYC*35I@an`UUfrixhUZvz##&CP(Ra}x5ya?&CD51aHxRWQMFd6a z#hlKrlMuw5Z5~C9V@lzu50r^hQa6K^oe5_c-rpW{DpF0p+Q=B-$N39h)f3TuYG7m6 z`7$5D|1CwO@N7FAmP9wzirp^r%tgtI;a~y9mcDO@XgbiMijXdXt0E1Y7iG)fu>vG5 zY9^h0$B*W|y$CII?~G zV5`XOWl-#vwQnUy5S4O&79_`2ozq_A%Lk@0Kp7y}Rg=ohE9$(}l&q>ANdKb523ws!L$H{{CXGf+Cr5L2XeaPwY(r=6?u@UDEw{ zlWKx(uj`t!ZbX(ZN^|)?n0%P?a2LiSk2}px=RLbC+w$C=Sf;AZ4Eckg;fTNwV0uc(`0_zZ5-8#Y#vNNAkUULA;Vj!Q!09T5O((@u z@Ck$*GUt{Yp?v5ls)V=%lmz21ly-kjI;A&+$115}A32J^V>BX6t5znOGZzjsM#TAd zv*tgpoI5OT?Y`Gdc@Ri;#m}T+gCWU`?-G|a`SUUVLrJUxx5YvVw9>II^w!3t_3K6; zzi;}hXF|WSs!sE`ZiWxFWapzR-FKW(aOU5w{eE@x{S*;$Eet!6dQ8D*gHzKeji zOSt_~2oTfd*{Iwru1;Lj*q5JP={NP){1%9;eNdCQs>7-2>1H=@7tn92u59fFY7_D~ z=I~wvhxuZRWnHp{eCvLPZ^ciBldz@11u8i^(&m^&RXf3Ca5}Hmvd3o3^#)1rpI-Fv z@hxV#byWwi#FxHyPir6}h9b`M>Igs@8+~yzz3`-VbwDm^{p2=P>$8MOI=ij!=(@yN z2q}|_?#$#+L~0A1dk{o%ALh0{GQ2x@QS@=n^*pze?Ept@b23D4`~^3{527IZNBlBU z2{e8wJv}~T5r{u})7WD`R)mRbs+snTYIwdqLU&cPalO=yUbVSJtWZ0?DH9)=MfTnb z*IPg4qU5Y3A3BRu?h^63VA#1u_7o`^U`Q%pNJUx2V(Vy|>eZBngFY2!wJx7Zvt3J= zB{LttzaKS(v~O}ko+eyVIuG$Fp5P1oYlMl#OGggMt#=_;)naII2FuxgtE`2-_FZ$W zPaG|$g*2^u0Gm1+|b{(~Z*6x56d5R?Of32`u&Vg~F;jO!+=PUcp*% zfSd93Eli%q^${9s#aH%;N|gwN5LEzC|LPtgMrhJ8k!tG2wU@~g-5ivuyPP*pWP4UZ zqfYeOidTo}VZ3B<8>SnmBZnc!iMagj!^CaN9`($>$Hxzv7g?T?(c}4VHEV z`%mLGehbB+eTQGc9sR&5gVsU)U*OzQ)l%*wkheDdZcJr{zXtmarDtxDByukUdMIJh6jG#zzI#gamk;G zlYq;uU>8c0w(1Zg(vUp=@+eA-mF?-sJn-Pw!)ImN4Qi`5WJYVV5V3ZzO* zWkIgp#=u-tACnoA>ENCjmYML9G%on>*FGu(9c*!TMw?r6Xn(49w^{Ro)hjJ@nqa1VrV)ufjo++pox-TFb-i#)njdzIBx#Q6gA4(yF3}fr`45_Phzs2B0cRtAVsH4s z6}wxb&VSQIYR+V;bd%95Zsi8<*#ta7Y)L>XQF<=ifSPU(%mg|a6cg!RTVo-^h$Hbd{}zW*T@YphUs_nk&T6#h zd0za3+XN+rF_{x$Z!3zThVH$zquo)I_GHa|%QzTfPlO)-5BpKCy&Q-7H4DxBxYH;V z$wjEs>*E)9=FnRf}{7bf*G%}!7H(VO@_$2gX#fhiV94~7hl-dSLpg(PWK~a~dfn>VO z3T}21GuGy(d|bUy=Ev9DVH`l^n!Az%q()5J*8$%VWj!3Fg4$onN5=-2acMzu+;OgR8kpP+;OD-h_w|;<0-m~g6Jj62H$=U{d2a1z z!$ImM+eK1cbkHrQ2#~h92m`tS^J$ z5>MSPM4QnKZ8wnBM9x)m64$5gBiB3>C%#?IH@JsWAVZVP zge}_%q2$swde8IO7mW%HUsl#HslYg4B5>yP&IL!3c3r#VKS1!nOnlJ>;ON0639Ir# zIYlF3^k^@;t)t7uMj9=Hi zY!?7nST3PHpy>nsT9$5AsQ;SB*DvMp?e*GpMK{MWmI{vcO$DxC%(A9w>*2l#2-U=`}_q{ zNJ%;qh1&mfK^WZfZ+}U=ME=ICNXJUmQjZ>--SO^Mf$;Z5l!t#RmfWTz`liv9TE^2W zbVe+p-6;|CN*k;emLGQPWwi1=;kkCbypZiGT~7|DVcBJ)qriLdiS~1jXDtt=6_y>~ z2zbXmC2__#bs+AjI&rr{UR!aYKC8SjWkOui{CNbLG~))~u}t)_eBzhOxJI-Ro?`$@ zL8;m!cEANZEZt>*OS(*W2VgtSh=cp5qtJ|*n(v9o7A_P!HY&udWlkZfx&}6UlWOKm`_kQ|5!=+C&cNZ6Xs2=_+ za{~>K*5vBHqU$8b@x1A~Wr}+Yob_nJ+3ceeJ&7d)R&pDQa{~P;?81%_Qc}$8#Rzy{ zEwhv!XJE;Pgqt`r>H$)h|Ex?;a?R;*f8%qSvSJPM6wa%8*Bm!{P8yW>>P<_BGr&!w zT639fdEF5$cxkvu2D|EAI0$mpZKh`I&aym=tH>-nkz zM5!-%93~uK)OSHi>S7YFG zACh49ZTSfB(ympQ`~=e9bfoYeCoX9H;XDpsO4X~oW$^qrhwjHFb zPKEQC&Ug~?%*3{>Fi4qo=!@}#p{(jy!`#$AIV#?@L-;%QHU&n|sPHrr7-R#mw;d#@ ziq}MADtt*i2qw~MG~#LNrl#|YMxvXGDz_bYE&$|!UfYWUL;Qet4!8>^060_0abGhW z!*(_tu@ef>+BcJ49WDjbWf`9Utm|x4BniK~Hr~fq-Ha`+eyP4z-G`Yl6Px!x6wh)& zQ0_YW4j4Btwd3gt@pJ)4`E18PB~eO+*|ihn|ETyCk7Dv}Cq(-#KA9ATzFsap)&V3- ztjb1T)>j7%qRaw3gD95*fPGx{*{WendwDbQ&cAPVIErT@IWzO=Q8~1}d2}*btA>Z6 z(rt=uJ4vTVzb;Sp=_D-d_I9NKy6cvkujVtHJI-LfO_}Q99N@!uDttBvhc-*;eM~q_ zc_K-1Wr+CBW#*s%}>9ql6+XgX9w)eQFvf z(YRWpf(!P_b}o<-5#;U?FtT}KU(tGbhItL zQH?aRRO(EnB|nuu1>Ci}zk{a^zp2!*Q^lVFXKK57fEU@(4mwLZK0bb+5pF*Q?sJ*V zG{Q%lU9`tatli3C!yiNvp92xH)_`mCaEE|gH504l?sEX*}p>b|jEe#fXTinn*l()Tnl(r}FGev?EvRx0?pxS;32;4s)Px^p}?_8A4jaxSz=JDZVOgjsZnR zKXOedqV(0ySIR92%n2IflBnA_Yj3wkogS6|V-NU;El?wK5=Xtu8}T{_v0IR{GkB3) zMJ8Lt_ITng{8eJRN1}yACfB}tcf!N_0x1G32_{7sr5|Zdi|b2wklx{+L+o{VUJbQY`;yhoO3g~ve+s>OxSs}Yd^ki^w`KRPbYz<5I1*CIo_3)}+FtN5R>k?Y^%dx~QS&yX^@3zn#?zOJ*!;o@_-Xi@+;|_3!nx^- zoAt$UaivQ5vF5>Y}v)_!e zsY1v-g|$jWdrJ(v$)3KUS6(v~5;Gsqdn}07a$OKoT&tguk0=e34HGO&UB>Wm?2VK=wn%gXtR~_n;1a zjPoCr%A1gGtM~JW-k~PPZdTR#ZdnOs%-=$49oeJh*T*oZZGRiTEKNE5nxk~L^Wux4 zS=S(@$*X8lpB1F2TfaT(>@u#xV>1Qyc~`4kMtWXNi*`{+z2*ETh+{B|`D7z@=wbK1 zi}(5-F$WtgyO)_d&m;e#3W}9Id-3BNos11Zg;#bk_|f{KV!^nmWMN?TWPr*hQ~r%I z?XS%ku+a*ACkyH;s;+-nItN;K*W1G(5tiW#cj2uxZW)1B^Q)lCl;WPPF0 z5b#ylq{dFk-nz$m&2$tJ)YSH(t9Be5`|L`ga=I8?zU#FZ#RvBS z&r>@EzS~AOdZ?{K2YpFdJmRkqtGf;JdmY3+|IVFt!=aHdZPRbQ(GBMi(Fk|bjhkxL zOl8RqCBL6C$(%vA&%bpOeEl=QRIQehqsh^AAn81jRrBUCjMujR9ko<zU2-q7jKGti^#~KZ{YhwW%Z4Wx)|gGdGtNlQ|_!J1Z_kZ1EDV{$;tZS&~b*<;tztD_y8xgYv=5Vapc`2%?>h;S~wH@&d5aZBGwU9&J_3K&yiJ>T?etZ4-dsVX*z z9N>xjD4+XY8?F570aJ;DBj<0)x;w1{b7?ybz4IO)?_W%2FVCq6O@URGSF%L$+Bah= z!775?h8iJAfTbX13(r>X3H0VHhMxZK_TmP4{w3zh!O+-h@A?n=lcK$cZNN| zMG=sdE(ojj>j-LlLXOxcpu9K@fa5oUzW+I%F#A0k7J*Ecg0~)YuNboy6ka_1OyyG` z;zE{+Z8^fK2mEqLZora9iSr78uer(`mugQDq|dFd+L!qvsZ((&BfxSt>IH0p@OA7d z!gcOEH`(;mf6}t4K4$6LAua$p8*0BeBvkyh%14h7_n0sb_@EqPN-dj#8y~Z`zShjZ z8OLq2YXJ4|2-~$R*yN~cQjZl6eN2+~biuqtebXzg;fU!J~!%|1P&r0C((}TQ$4fQ0EaKdXYrIJlw1f@=@tNm`GdA)~k8 zG0jDI0XpAP|MoLG5*#AU9Z}d%lEB}8Q>x58<=Ulp%eDz6w`mzOrj}3ov%T?2w@YJc zRoF>{VeTV5jX=Q>gMcY>_2kC1ViQ%nP?thF0Z(B%h#;V&u~9h|d*&#BZP}>Z`ZVVu zTgCV4VQXf(p`}hrzbN9vFxWQ7Hu|S~`!CHZ`|GkXiQsNUXlyq~%CX&9N#it2<7^ij zi?zEqu%iPjIkaji#%of3_9LH7Xz`Rzz4S?;bQzN>4oU@g+y33GF#TsV=oK-@9d>iC z>h6(HTBIPpgnoYFbW=NMiyNeAM+3RR&eCoqmqf}f{K681w5B!Vi?juZG`1uyzOd^q zJ^ZFsanC<8t+#tjfnAtDn>!k0CaP;!4<-OyB{^EhUZO2M*Ri%Kke%mqwA>-Ks%`;R6R*j~G zaams+$5ZTP92;2jbwash$LV|GgmG%V9F#H+%8Vk&jviu`wXm#D3p_7l52~$F5T0fxzXIkRGm1^`De+o@B)iW%+`Y6azA;Ps6UmHO)>! zM>BLuZ6UUOo@dS5`(1h?L2R66y-zQrdK?xv=W8zOy$>Ld0Mo@(@RROr^r@d6Y4l>@kl;KmCar=7=!~NlVe3a z8eAeQ!$3t%wk)5n2wx{*c($+{-cM|1ewRXq?3~4WR>&rCoi+wVk^D9O`{RY%NoEw* z$DFemwLrq2cX^wZ4gWDwNfs$@O+P}l_&{#PasAAv#c_kJsr!RJV`{*?FJL9ea9cpn zAHJJaqXwDZ?yvqOEuNfAE3dYKqJ3L8KVC$rR|L%vF>yy`Yke&kmu%5p%}?RPewXFy zaxSQovIQdxi@nGzb)(_XKu#qC)c1g=ht(yBH>_cYycL3No>xS5hzd68F zS~2z#ak6?I0a3r7IjB4blyz}Bz!f$Ia?1WCQv%J1Hp>SeO+Scu|K0yW9Uo;UJf4Al zo}+4H?0zKaZ(-Wmrr9h!B;H~6*vEuN7M=gHgJQH-P)u+gimth}do;-|=6~^=PVC|X z{tGfWE}iK^#}8?z4hB;zg&EeJKNj~c7HmG*b!j>*qBA_}1@c)QXq_R$*!Ah!KZslb zp0s;~DHbpKQu3X0rur4UMGnsAjkCoh)U5gP^c$J9K=XY!8~ctr{1q(ohKVEaJ0E{c zBe}E2_U+wZG^{Lk%kzZutWRQaWDi(Ld?b>L`tUb#iyn_SEOR?Jr*Ze694OH#$6S?8 zdU`1SNW$V-!|6&mAsi8tBbk3MQ@_k5vUw6yT3fbPGVcw{rese(=6J2+fXV-+$K;B5>1>btm6sBHB&HH(nf-+_k86j&)DGJ@=;EPRZV#wNh|Mo;)e zX0XssUCed0?#iH#U9SS>)~Z`V?k{BAagt{Xc!t3BiRlT-cd_epC4v=&uOb00*{wmP zRm)_x2{SADufOH4-kUYb(0S&haXTbIUe9hV4+B#)^xB+x-p$J_xHrhx4NA}=WCTbp z=`qIi;gMz7^`-lffY^r?ryghq5V3$Q=e$ldsdLMn=_+cH2(GU?iF-?yw<`d;4oLnbALeXU5ulI%O_ zXZ#XM`IZVP>8k@nzsp`$UPK8@FFBqxki2xrk%S*78o?n+`8wZC$}TT0ukPx}_-f5Z zp2cNo0zUL408JZVM)n8T$KYp6y&c*W8*&Noj(vh-EFo!U>o%_ahMtpQVYt zG;Aw5XnN7rf6v=J0xVQwVmOY+^}jc}w1Jd7Ml`n=)lKKg@clY}y&C8N=%#^5iqLWL z19T^^aWOA+@p%er3_kxXFM;pM;SRm%X%i?nGCt<4+vD}+4I%hum0?menK#)5@lHAq zVgGa%#pS=!_WU1B*#4~dd;ldl?9`|HkuUu3@K^!p!^d1)>(zPdvWFrMREqz#!3Bq3 zp-w13qTccBCB+)1(Ik-CD(dVJO3TloyjdSgK?bWjO$B|v?E8qP5Vk|i^Vq0u^&+fJ z0C%pReujm%9@*@E0;_d#OFMle@QxTibg1dNIcK)pH+7dcT6HzyVaF^0+#bMI1ZEX7>Y zL}(Cm!alli(k$G~6x?AxuZU8HB`qjWOOM6#XPlS0(AmdTS!bv7h*y(TfLzWNLrb)8tfIkOxI!Rj|fdf3N=fMChz1wTV|k26Q&Gt>>%HOS^C~BN&;M zv6Y*R>*{@HdyGqpGRAvDAW58% z`15xK9z`rZ7}i=L6`lcU z%|JC=!N26K3YfPQOSvuYnD5fg{+Yhpb{m=FVb7qEqTuU({~#jbFP#yKo?l+e$#gjf zOJNE}NIV=WOkdgkLILBxZ~`@ERvJ>ZbNOS4>ycr|qFP#$E=OfPDrx$FNc#5Sv7lRO z^-ae{qffbdQ)*I{u5KBFVNzbDjUM1w@r##}X?J1;a*Q1Siii;0*UG7PHW858dZjgB z;+jSuxc_({#|53@CHYM)W5-5aw$c79R4SzO!{Hm0N2`a+w@ zcSp|nVD>r6^r(5&O}(NWPv`5s-WzypYi`_i?D{DAboP_b9@baiV`VRWf|TVBhGYv| z@cq5u9n9j&?G*1Z>W4YMZI36G_TLp zGumV`^n|9M@aP+0my9ut`lg7)_H=X-d?Koxk9pSU=n%kU)g`VvBi$;X@hWOZ$OW;? zP1B`hXQ76Xc(Z!R`K6s%$o^rHN2W7WxqYtUaO{3Ui%sMZT~WS#K)sSvkWcb*`2pM| zwt+tejI!kLEcm@5GkYSrgkSY9=qq|8cjTv)Xcu(OfRF$HENe?(4d2diVgCEXFz$Z*Dm9? zZif2HWBKz~*k%5(R(XBEw)NBUF>mn|#7P5i0Ku#@MY@uA$9ZfwIJ78ZdwWsNJUo_G zOB_<#A?SobVY4|{cDGcIZ|U*brI5*Jpv1lc7(tI(C=`r>iC2o09(g9Jgny0(2nE4c zBVo@5LKnU({S^JhkvaCT@=HA1-QWp#iA-KcB3PjJFHeJJ-rNhxLB5VzC7`KFkdh!G zbwKf10wG0?8=Wi6lqWjhxUGR3jqnKhuaU}{Ed8QGh3P;cZNW7h3Lb(k_Ik8*L3n8_ zjB0IrhrxuV4xvy~}#a zd+J|||K|eCxq0z$z=1{n-+x8$7yZAzSN|%o6v9Dw{&Nw+SAi)1=eGeL|9@gFIn3Xn Y=sY!B>99<$e}F%vl9pnXym|2d0C=GsdjJ3c literal 0 HcmV?d00001 diff --git a/components/Titlepage.Rmd b/components/Titlepage.Rmd new file mode 100644 index 0000000..0e3ea98 --- /dev/null +++ b/components/Titlepage.Rmd @@ -0,0 +1,20 @@ + +\begin{titlepage} + \raggedleft + \includegraphics[width = 6cm]{components/ESSlogo.png} + \vfill + \raggedright + {\bf \fontsize{40pt}{50pt}\selectfont Analysis of Virtual Surrounding Impression}\\[1 cm] + \vfill + \begin{center}\large \sl + European Social Survey \\ + Core Scientific Team + \end{center} + \raggedright + {\large \today}\\ + Tool version {`r params$version`} +\end{titlepage} + + + + diff --git a/components/Titlepage.html b/components/Titlepage.html new file mode 100644 index 0000000..31ce26e --- /dev/null +++ b/components/Titlepage.html @@ -0,0 +1,403 @@ + + + + + + + + + + + + + +Titlepage.knit + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +

+ + + + + + + + + + + + +
+ + + + + + + + + + + + + + + diff --git a/components/apa.csl b/components/apa.csl new file mode 100644 index 0000000..2920400 --- /dev/null +++ b/components/apa.csl @@ -0,0 +1,720 @@ + + diff --git a/components/countries.csv b/components/countries.csv new file mode 100644 index 0000000..4587ba9 --- /dev/null +++ b/components/countries.csv @@ -0,0 +1,38 @@ +cntry;Country;CountryName +AL;Albania;Albania +AT;Austria;Austria +BE;Belgium;Belgium +BG;Bulgaria;Bulgaria +CH;Switzerland;Switzerland +CY;Cyprus;Cyprus +CZ;Czech Republic;the Czech Republic +DE;Germany;Germany +DK;Denmark;Denmark +EE;Estonia;Estonia +ES;Spain;Spain +FI;Finland;Finland +FR;France;France +GB;United Kingdom;the United Kingdom +GR;Greece;Greece +HR;Croatia;Croatia +HU;Hungary;Hungary +IE;Ireland;Ireland +IL;Israel;Israel +IS;Iceland;Iceland +IT;Italy;Italy +LT;Lithuania;Lithuania +LU;Luxembourg;Luxembourg +LV;Latvia;Latvia +NL;Netherlands;the Netherlands +NO;Norway;Norway +PL;Poland;Poland +PT;Portugal;Portugal +RO;Romania;Romania +RS;Serbia;Serbia +RU;Russian Federation;the Russian Federation +SE;Sweden;Sweden +SI;Slovenia;Slovenia +SK;Slovakia;Slovakia +TR;Turkey;Turkey +UA;Ukraine;Ukraine +XK;Kosovo;Kosovo diff --git a/components/styles.tex b/components/styles.tex new file mode 100644 index 0000000..f2ef9cc --- /dev/null +++ b/components/styles.tex @@ -0,0 +1,47 @@ +\usepackage{placeins} +\usepackage{booktabs} +\usepackage{array} +\usepackage{chngcntr} +\usepackage{color} +\usepackage{titlesec} +\usepackage{titling} +\usepackage{caption} +\usepackage[bottom]{footmisc} +\usepackage[justification = centering]{caption} +\usepackage{lscape} +\usepackage{pdflscape} +\usepackage{longtable} +\usepackage{threeparttable} +\usepackage{nopageno} +\usepackage{footnote} + +\counterwithin{figure}{section} +\counterwithin{table}{section} +\definecolor{ESSPink}{rgb}{0.91,0.2,0.32} + + +\titleformat + {\section} + {\bf \LARGE \sc \color{ESSPink}} + {\rlap{\thesection}\hspace{1cm}} + {0pt} + {} + [{\titlerule[2pt]}] + +\titleformat + {\subsection} + {\bf \large \sc} + {\rlap{\thesubsection}\hspace{1cm}} + {0pt} + {} + +\newcommand*{\secref}[1]{Section~\ref{#1}} + +\captionsetup[figure]{labelfont= {color = ESSPink, bf}, labelsep = space} +\captionsetup[table]{labelfont= {color = ESSPink, bf}, labelsep = space} + +\let\stdsection\section +\renewcommand{\section}{\FloatBarrier\clearpage\FloatBarrier\stdsection} + +\newcommand{\blandscape}{\begin{landscape}} +\newcommand{\elandscape}{\end{landscape}} \ No newline at end of file diff --git a/demo_data/.~lock.inwer_file.csv# b/demo_data/.~lock.inwer_file.csv# new file mode 100644 index 0000000..4c3f373 --- /dev/null +++ b/demo_data/.~lock.inwer_file.csv# @@ -0,0 +1 @@ +May DouĊĦak,may,FDV,13.01.2023 14:25,file:///home/may/.config/libreoffice/4; \ No newline at end of file diff --git a/demo_data/inwer_file.csv b/demo_data/inwer_file.csv new file mode 100644 index 0000000..d4f4838 --- /dev/null +++ b/demo_data/inwer_file.csv @@ -0,0 +1,28 @@ +"idno";"cntry";"intnum" +1;"SI";1 +2;"SI";1 +3;"SI";1 +4;"SI";1 +5;"SI";1 +5;"SI";2 +6;"SI";2 +7;"SI";2 +8;"SI";2 +10;"SI";2 +11;"SI";3 +12;"SI";3 +13;"SI";3 +14;"SI";3 +15;"SI";3 +16;"SI";4 +17;"SI";4 +18;"SI";4 +19;"SI";4 +20;"SI";4 +21;"SI";5 +22;"SI";5 +23;"SI";5 +24;"SI";5 +25;"SI";5 +26;"SI";6 +27;"SI";6 diff --git a/demo_data/main.csv b/demo_data/main.csv new file mode 100644 index 0000000..b1f8774 --- /dev/null +++ b/demo_data/main.csv @@ -0,0 +1,28 @@ +"idno";"cntry";"VSI1";"VSI2";"VSI3" +1;"SI";"x0e11dcb6d02d45522908aa022d7b187aa11d120bb843255bc7ccb62a78dd4dfc1eee8e5affda4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df" +2;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df" +3;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df" +4;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df" +5;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df" +5;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df" +6;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df" +7;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df" +8;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df" +10;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df" +11;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df" +12;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df" +13;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df" +14;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df" +15;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df" +16;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df" +17;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df" +18;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df" +19;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df" +20;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df" +21;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df" +22;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df" +23;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df" +24;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df" +25;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df" +26;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df" +27;"SI";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df";"d0e11dcb6d02d455229087c022d7b187aa11d120a4843255bc7ecb62a78da4dfc1e2e8e5a78da4df" diff --git a/vsi.Rmd b/vsi.Rmd new file mode 100644 index 0000000..c61d975 --- /dev/null +++ b/vsi.Rmd @@ -0,0 +1,113 @@ +--- +output: + pdf_document: + includes: + in_header: ./components/styles.tex + number_sections: TRUE + latex_engine: xelatex + fig_caption: yes + fig_width: 4 + fig_height: 3 + keep_tex: TRUE +header-includes: + - \usepackage{titling} + - \setlength{\droptitle}{5em} +papersize: a4paper +fontsize: 11pt +mainfont: Arial +geometry: margin = 3cm +subparagraph: TRUE +graphics: yes +csl: ./components/apa.csl +link-citations: yes +params: + mainFile: "" + intFile: "" + version: "0.2" + + +--- + + +```{r setup, include = FALSE, error=TRUE} +library(knitr) +#library(kableExtra) + +knitr::opts_chunk$set(echo = TRUE, results = "hide", message = TRUE, dev = "cairo_pdf", warning = TRUE) +knitr::opts_chunk$set(fig.pos = 'H') + +options(knitr.table.format = "latex", knitr.kable.NA = "") + +Sys.setlocale("LC_ALL","English") +``` + +```{r setup2, include = FALSE,, error=T, warning=T, message=T} +library(here) +library(foreign) +library(dplyr) +library(psych) +library(ggplot2) +library(lubridate) +library(wesanderson) +#library(colortools) # adjacent works +library(ggthemes) # theme_tufte works +library(varhandle) # coercing factor to numeric variables +library(naniar) # for replacing values with missings + +# for tables +library(knitr) + +#New packages: +library(cowplot) +library(tibble) + +``` + + +```{r theme, include=FALSE, error=TRUE} +ESSred <- rgb(.91, .20, .32) +ESSgreen <- rgb(.14, .62, .51) +ESSblue <- rgb(0, .25, .48) + + + +ESSColors <- unique(c(adjacent(ESSred, plot = F), square(ESSred, plot = F))) + + + + +ESSColors <- c(ESSColors, ESSgreen, ESSblue) +# pizza(ESSColors) + +themeESS <- theme_tufte(base_size = 9, base_family = "Calibri") + + theme(axis.title = element_text(size = 9, face = "plain"), + axis.text = element_text(size = 9), + axis.line.x = element_line(), + plot.title = element_blank(), + legend.title = element_blank(), + legend.text = element_text(size = 9), + strip.text = element_text(size = 9, face = "bold"), + legend.position = "none", + legend.direction = "horizontal", + legend.box = "vertical", + legend.spacing = unit(0, "line"), + legend.key.size = unit(.75, "line")) +linebreak <- "\\hspace{\\textwidth}" +``` + +\newpage +\FloatBarrier +\pagenumbering{gobble} + + +```{r child = "components/Titlepage.Rmd", error=T, warning=T, message=T} +``` + +\pagenumbering{arabic} + +\setcounter{tocdepth}{2} +\tableofcontents +\listoftables +\listoffigures + +# Introduction {-}