From 7530992ae36f4bc3087eecaa3a2682e4f46e89f1 Mon Sep 17 00:00:00 2001 From: avallecam Date: Sun, 4 Oct 2020 00:25:36 -0500 Subject: [PATCH] update reprex figure --- docs/articles/howto-reprex.html | 37 +++++++++--------- .../figure-html/unnamed-chunk-12-1.png | Bin 24315 -> 24146 bytes vignettes/howto-reprex.Rmd | 5 ++- 3 files changed, 22 insertions(+), 20 deletions(-) diff --git a/docs/articles/howto-reprex.html b/docs/articles/howto-reprex.html index 1a45b0c..34f4776 100644 --- a/docs/articles/howto-reprex.html +++ b/docs/articles/howto-reprex.html @@ -455,7 +455,7 @@

} toc() -#> 241 sec elapsed +#> 262.36 sec elapsed outcome_01_adj <- out %>% mutate(rowname=as.numeric(rowname)) %>% @@ -532,7 +532,7 @@

positive 75.9 (65.3 - 84.6) 78.9 ( 67.5 - 87) -83.140 (65.87 - 95.5) +83.089 (65.81 - 95.6) covariate_01 @@ -541,7 +541,7 @@

positive 25.0 ( 8.7 - 49.1) 14.8 ( 3.8 - 44) -0.423 ( 0.27 - 29.8) +0.438 ( 0.29 - 29.9) covariate_01 @@ -550,7 +550,7 @@

positive 65.2 (42.7 - 83.6) 44.8 ( 16.0 - 78) -31.450 ( 0.41 - 81.1) +31.531 ( 0.40 - 81.1) covariate_01 @@ -577,7 +577,7 @@

positive 93.3 (85.9 - 97.5) 96.7 ( 88.2 - 99) -99.903 (97.00 - 100.0) +99.901 (97.00 - 100.0) covariate_02 @@ -634,19 +634,20 @@

  • Make a quick plot using a custom created function
  • + filter(str_detect(numerator,"outcome")) %>% + ggplot_prevalence_ii( + denominator_level = denominator_level, + numerator = numerator, + proportion = prop, + proportion_upp = prop_upp, + proportion_low = prop_low) + + theme(axis.text.x = element_text(angle = 0, vjust = 0, hjust=0)) + + # coord_flip() + + facet_wrap(denominator~.,scales = "free") + + # facet_grid(denominator~.,scales = "free_y") + + colorspace::scale_color_discrete_qualitative() + + labs(title = "Prevalence of numerators across denominators", + y = "Prevalence",x = "")

    diff --git a/docs/articles/howto-reprex_files/figure-html/unnamed-chunk-12-1.png b/docs/articles/howto-reprex_files/figure-html/unnamed-chunk-12-1.png index a8ab97df0e119efb9a76c31eb6b5002479207e59..f993687c8db46a583a86514a2c91f2346370f0e3 100644 GIT binary patch literal 24146 zcmeHv2{@E*zyHi2WKTjuB_yIKvZq2DitM|JWX--CDbj-MYg#PXx9o-~*|S89ZJ4s} z`@YQoo)JmC=bY<0?>X1`pY!VZJ=gDf=6>$=yL`UOef!*ym!;Tya4!S`p}2DSk|G2` z42M7nAS49f&5Y+$NeBccbmRIhY48Yvh(I8Q5D^iG2)O%03=JWM;GPRfjbLPyWMnj8 zl$2zY1a}WcgP4N{4+;nffDb@v+!we%LlF^w+|AHX#1Q;Xu86V%uX3+7TY@h?sUz6xTkuw|DxBbov{1=7P(=bF&RxJKzrsngX{@EcW|-ufAmS zzA9f_2SGPMm3>(7uMdkI9UTQd##Z@aJN>bpxwzte$=JRs{EwiUpjl7>D2T1QV^IwV zht%@2x-|sC?2Y>m>eoMg7Xmp9xpGPBmP6Dy!Y_tH)~Rhi%?)1hdEtIO!g60;=;v5_ z3wyJ}FKs^?^)MQr@}^8>HtN5mv;16ms$I|P#k;RQ)SANj7sagfUb;*hE5I~mL%?jrJAch+6m| z914LPh5u9U)EY=Cj+4CN^Q$Hr<3~kJfGgE^~su_I^ z9asupl7y<9e+s9iVuQq9BZNwB=+E{wygGSy;j@SelL~UNrh78a)3uYqhxMMgER^rk z4}C(ojn4_a=2bO?QTkjuw0d)cSIgzDLnI6ke$F&_0;`2QM?<=P&PO61B(qQCMH%Wq zeBF1Tp{YF@5&DEthxi|cxiCNvYabH@7FgK{lX%$^AvevGuF&QrJ z>`vZ_M13G{zNKFol(iDHKC)P9aP@)H$q*$H&J)omgv#G1qq*J|^>Oy_=eXJ|y-hbi zO#HAn=+koio1E2>$+mCHpPE^7%LGsy)+H$V8V)8eRT~L?LWtV_BjS3^P2*=MzE7Lf zQ4c3beuxP#NHf-ubj)3@dOX;fUR2v5lkaHO+PtjK_BEadQLYijN}9S@K{V!4_XIxK z5>x215*I4F_p8rSrG8)GsH1kFV%pX zdiK(Tv@#HQxet$?wUnPRac#(iV)Iappr?RYT|F)88Iwgr$IWINK{;~^_3Wv*_G<}O zhfA7t$AT8@!xjAYwyj6#L$UPP3gUUqiJ#6N>A3kIxl7Pn^YcW2XoAH;TGR-U)!}ou zgeaWfzDzO&}Itg7>`A~8S2H}xfyV0x%>Q0v@jVk$cohkHlEt+srW*y

    qnx<_vUYWTOG)_r|jK3DfnZU{w;H`POzpodR5x=r15#~NQ`+LEO6DmCA@NTKMHoOg%1X+>pZ_Qg2S zREchX_^PhJF-&dU;)jm)mlvMP^iQue7HgNCr_sEYEB~g)dUcV&WSl4gk+uO=YGPF) zd(GNzS(PI@M&8IG%j4iHnwoHU5w}PTZn`ecg=ZL6u0#adj1QO@*}+$=RuLiPwFB8L zeUv;!*7v_ft7G3AKdPjU%zc$tl8nkTbN#X$K?6m_+^4{%nFwf2a-3K{5fgFy^%Jy% zgrMDLn^XSsmK~!b?n>_CC6gxF=g~vvX>x)$@DpICvPq*}Z7{dO&dvxsiY2{PXj1oC zG{<1l_hyMqV=m$l^zgh^RC8mQZhPZ$4K%0FLQXW7nR<#g+e&Ekq=`||sT)t65dpbL zUBZ*&2QqW+&`tBLg|g1I3goxCS!#?PT#Dc55bqh})wPHb5Nf|c;rhmu)S(#VgyW8| z$S_#R)N*?cU&8op=j-*c5(%j5sLm((14|9qO5Gk));Jc8-1Lvc=9*$3)GiL5_}Z%9 z0fkbv*{#L3I;EcV+WR$6Cb=eCnVc>&r_Z!J2K%Dqi}U7edsvL5qi0>C`^WWP6bOQb z#ow5cwV`2yjDRm5KM~tosIP@=NlF**OI%l-Rt`CFb66*M z@T{zJo!`7shFz)$rbKx|H>t1y6y6-g}kHPd7T8)1Q-n5)lYt^UMgL zo?6B+31c7Wl8!2LJ~%x6It%t$JM@c6SqI{lgI@c0og3(;))x~P)rDu)6?ZT9UVK%D zisHg}Tp-8tIARWoGN1U7e@2vul{}U<>ZRFj$u`}h#nq^O^vmvdk*2S`w);Lq=pw@U z(9yw(F+SYU(y({o3w0`oyw^-)fK7z`2K+PIVB{)gl&KdDf;OUs1;rvw9gg~z6S?5U@m@z*+5n%^*y3nA ztW(b2S>nmad4sdgZ#w%#YAM4W2zLG$Q~QBY&3!6>x)n5m3gb>=Sxt}36gArG@R}OU zlA+WeLcAhv6T94&C-82gv?vja_+nKBzb>Cv1S{1NN;pGb> z;of}lQwty7bcRRqI*P=(3mlGjJ(^xL));quvGARFWl7VFy2aBCVWKXLVU*w?wPh)_ z{Ay3C)$H=1_tQ4tLBv7;+KMVAhc#-Ua8GG9ZfF{|#ZvtB{$^0cD32AHE+LFD0A_FIYjq3iFZlXKz4gDcU|huy$0#5X7i`}CP$}pWSMuSbq|0P#P|z(sli1qnw}#X}W6pI}P*fm+ z^e~!mwCHwvC*EO}CO6;sST)ENY@J!+(cu&u%_TXQ;E{yEkBI8rS537T;`7bQO;^SE^K)K z*YfDwp7>(xY4YfeVFjHtYnoW?*-!TM8n6yraa*J1)RF0O)@9#5x|M(ZK_s`tNCC`YX?0GlFC6}7YS=Wi@Z|1a%-sQeYHorR1*U~c-lkSvlZao%Y zp;Np>>kfz0L!q*qHT5$IlIn{trOl!N6t{6>;0Y8OAC9}<;5K+|;Z}1`^!kN7$&yi} z8!gwsz#{t-+{XM&Bdu2IQ{;2h&Wl~Ipha%NPYsaJs#rSX& z_$<~Gx`B{%TBJ(KzSiGcI?va={?Q`*Bg=gH#K`3~QF`~j(ArA(8x%0d!MEbxnmJtc zqVcIq%`u>l{R(S66Vd4_ANg8uU*71uHh)Eru$Y159RE%Gkmf+4Q^cDMNPJUX$Cy(( zD|-fxD@+NEmyLMmt$SeQ#SdiPSBkQCThm@VZ%sy6eB$Sq3T21z<9uo8B0D%OI$-47 zav`c@J$+-a6stsUR;#c1NImka(_p2nhOg6nwtYm;DsDk6wSG+S2t<~NZGOCPGqt^U z;Kti49XlNa|g9&ci8^MTXDKobM?Gnz~Gr*V`NQnh4!a<+5TJ&`i$Y~7=1;@4@Hh- zz{!idGXulL;^Wn>-Kh}_qG$S;S6{NOn$0HG=Lgh_x+}`9G^g|#VC_tL>?ge*;m6KV zU*B{vxqO2kPiSO!9h^Gt$NiS;W##!CUGjv5TigcG*x_p}tfGi}Z#=xXgYPD3seP`Yr;u{!z>yxJHS7J^vHsmIo2}Ybv_~ zaADz?Xm)iV7@uZjL%vimkMUIRQ$tFXng#huJk@?^?R{cTZx^A9L^8#*pcg?BB1e62 z3nKsC;1qQRF&7h;tIef-IJ%3zQLcAbk4jNcab@VqF`PUWdGqw+c_d4$Y3$rrnk%@; zx4l5;=>ZqN+Qfovc`aDrA=aZ{!y_1dn(iXyFgJ*>FH1Cjlg%IPr3OfRH^LK zC#h2G*QF`^cFo0}&LH&L15;(1kH3#}P6T@ArA@M$E60d*6^ei8wmxBTW7jO4Zj6r_ zJMaQ-|7_GgLAF!6rP55Yo%`zOgpQ-FNE0+9D?7z&R}(8{HM)pfXJ8UtNkv5!AEG&f zow>(+TkO611a1I)R&Gj}2U5Vt+XqVitM9E~I7G@>c|iW7>%= zVoY@r&Nj(H`>s{hXC2%{SZY_0@dR3Om6<4}r|fr()G4+}G4=>%RZ7i7neE+e`}w1B zPbHwvGEzb@MP}(&MNVODP|mz@6wiZRd@%fU<}%qn(c`l?31g{2D#mw}sYFmQX^3u0 zXS`)a1QQueZ$_LS{-W0_doP__@UBmqsHc87G~YB%ZuB~_r;Hmj9iB1bhkn&WP#?CO zllY6e!B2tXKRQfT2J2~8(;PnwV_c+=;huP2_)a%9_uf?~wm#5Ufb0WfRQd5Cv0p#Z zPt6UQ^OFWGEBK3>Y{@v#{JeJF8 zIJVkcPjbRBsT!Gp>Z7#xb~Ej z?GPYWIJCTi#5acpm^|pkvHcuBs+jSN__KR^m2MhR?hp)Dh@eLQ*PrVZVG=9BZ;$Kb zo5VzQwMU2xJ0<4N{BWDMTwHN;mm)m0H;G|u`e5}@cL`n84(9dMBo9=VX|@C=Td4Y_ z0||xBh$#@yI0mC6+7i0Bxvk#^lW6Bn>xpIw#zsg?n2%QL+|;no+c&F6%m5|!+>+R_ z58(nvq)=A#7PR*5j{3kFMDSy(r*9}v!6^6auI_k}=a;*(OSxao=402Kv)KVpeEhRu zk~jukn5?PpnCEymmf$(uQ))|JC<3;~t`WvC4P-JuRn{mNn-v^{J2PWAnI!g>udjYA z**mib>fHF|#Vi5nKmWVe3f)P2B;2ig=ynPsDR04gD!@e7w7upO*)b;eqAR5FHo zN+)YgnG41q@0yj#2xvn~50fWMkQsAd#23+hBjv`|QuiJcy*~;+fZ9iQG7^cWvUcaH zvNL~+mtem!H`%kuq$bPjyv5p{8c5c2;#PtZT(-Byi!+gbynd)P@(pmu^yH@weR)nNhYro65jlqyH z8v05`ocK9B(ct_LULVI^pgLzAQb2B;o^flv^Ia?2pM2qK@|tIKHiK z>u_vN0qc~|$SRZ-&7~2#CK#wEji3yZQoD8f&?ZyU;ijF`!8o6sYd;WRzg~(EeYte# zw>MXbzT67Bb$b7=GCQRMt|IV!Guc6x)~NLW)VWGeRg-k{C5eM}l)5I6X~Ss;M7fB4 zn1dYg(36w#*3GNWJmKQU>&n{Fn2*`r7=Yq2%bgq2Tqh}E3;t3pdoKLMA6ND$UqX`p z>&+$_``2vzw^73NOGw#LMSzOz#{&WK%;uEkqf^!CN@tnS>0woy)VRjzLq2ngdJBQ` zzc)Atli+!wY1OYh+xIP$`9>`+xK_f#nlc{+ zb<6tB2Dy6}hx{pX-%R#UEhtkHb49lG#77k?Q@CsllyGAV_uHfc1tE2kq|JjRLmte< zK5@+O_iMrMbo4k$+o4cF6tuM1LIlZa|MbV>Zbv;jIpsZ$3?#dT7+!DDPQi=r9EYNU zn1N18w)ZoimoZ4Zm&9LHc76*IRlk0Eg~S0x?vS?8&9FaX7^2$zU~Jy&FU7b>@<+Ss zj}IBIPvs&`48In%H9?s0858cRZJ5*{J!Gu=dTtB#kdvSb`V4k&^eT*?3JO1X4{la{+$mqyGzQr*;*| zX<jbPV{Ccbji}zDiRf6?)_1d+@Fp9 zv4S4{YNsz!>@01J)?S^tL9BK)@-15^0>B)?C2S$YfmzTp^cO6sg#;AK+Ma&l5*6gjI*B2=Ky5{{d98 z_^v221l>_VEb}=SUdPP_Tn=VWH%Cij3A^L(?a_$y1!d&Jseq3J+t0VZJf|l*V#3n4 z0#zci?Mu%otw4K;cZZVrnVLtqVU z+L-G*37ik?de(X!TEuHJCBu-Ipa3_3?A0#M+4g0Hk|$Li8QRfnE@)2*%h&;-D3+-) z+B}8a^ltIO7A7C|V=E$7?bm)sgJt~QuQltL_x(}=q+5&m+wh*lM{hQ^c)Mw`IhxM4sB?J& zv?|hP2_sl6@9@7r3X_L#>kklH{2o%U{F0eSTY+4=fygWa1+k_)$G@wl+AfM=z2rjj zrK@o$9K25w;vS9Y{r3E!@8w-%R$L^I;Ln3>RGw7G^yhf2E=@xIIT;rJMQe%SmQz$DNs_juqsEx9NW}|8tV1k9TIe=CX}g zxI{}Q&E#L{qW(euj$)##`;AXxh7r}Yqbq_(zM@{%>g*ymFCv$tWu-cLrkcz?x$@tD`1!1OTnjLMq4F)4W--TmFAlC`?ua@RY>sZ8zjzKv5f zH>a+a$Q1qN;r=1wi+B>88?yn}DCMvKjVoLefIuUnmHFPTb6S0{+1 z3NhU1>ueE?FIv08wJ)j)l@R>ys6mwzhC z^8JKbc5qFrR35E$MEky}>IFSwwHn}m-qfB}51^`fKe%o0oe{<*ClQaE(uuY(v04ZQ zs&*w8eje~_5K4A=>v$tP?||j(Hxd&m?IL)s1<=x5leOdQ^`X-~=S&MW{4C7)X=ESXxdF!Fl5gvZ<#T^?JZ*jA zn~is}K*>T&yD&zFc&XaU4-%A_0XJf9r-9lNil-8FzCvW~8yhB8XdfnV$bGnS%{$~A zmCPjZnwoWAc;ay-oZ)d4BWkyQPEHkBcYH_(cmq8(4zLoLvA)=wZ>OY+96*k98TKiw z8pLe0ORmm0$aTQXms=&Y5*A#ZqbU+wM*H26q(E;dQBQdkK#bj;Wf<{ALc7_O$QDoZ53go|SFS%6 zsux;{Wb>TZG9Q7c#mh~1jwflpNkcQ03PA#AXvqo_>sTX!@8eA@0($UWrMBSWFZUeJ z5fDZBNn^I84wc-PZqlx1s#et_a)alH58XuGeejCGrTFNDE#w0XD5w24^RET=I%!B2 zxDIJDHFk!G)5u_!&T7@>%Um^-h9+GUc*F$)+b?L&SoDoOL)B7Z6#P!YrlONPn z5#d*QTHMWbmK>@&tKsS_63LisPttMSp#^|f3l{graMD^ABU5N(Kwd(H7S;9)05i1g zr1dPD=-$Ft427@AI`q<^1Dkee+HpP6M@c~=_6^ii!&;5Xr3-VOF)h~D6ke^QiGNtt zQ(QdlY%L{AXQ}>h(LH_)>i%7*)$weWzo7J{0tEK9Q--qk9+$YLQJe|e5*ch;_u#&a zlqW0b@=c_YvqkJ+Jp+;1QlI94)w_nyf+$Uq)K<&yi9IpVH{8<40ASs*oYxi{{jzBWqrTcXaY2*B{XH$)& zH%0nyC?Hcxjh31Afhpk;o792xl@lXGJCQ931C(>`P8^%h6ySL|n%CDC-9onWJuV4B zo@l2*<3Qw6oV!ZhO5!5{YlZAATS2t8q57q|2Zyjm55mOhn&S`aQ5@cBv|LA4rni4p zjS&}cG6U8Q^#NRo4Bf0cC0 zD5<@Vf^%aUUWL!;bENb&W)}HcVM`7XJfq3D6f`CeYs{2QFUd|RZf3&_9maf>xPH$&C8b;l1bc5d(hlndC!!F-Vg4FEgo3M zKCwn7;t1z(#f~N{VI`_DBk0ratFW}5?$d=f68FtFRFhhGZlXyu99MNL6stUl##LYN z{ov=ojI;@QX6!qR;ueZsqKB^fhY1@8B*KfnxRZ2r-?Y~d{lJN7?_^_L9}6GBWIOgR z1+SQ2Vzm%i?6;+NdAsa8E$#H2Bwv(a`NLJCRx`WT83 z4(A@2vv3ty9nOa<)D5}KEgQ=sQ|s?3AlZ6Omt6MKhlcLqE2_`+cD1ll;d63(^nq)W z?t}UwAk-OmC9r8t1QVo7bMLI(DwmFmdl6}+BVS$U4v!KJanb>$_YoDJ>lXWVQ<`st zXze9TP|zS0a*W3GL=9a%R1{|JZc{(Wpc`8m22XyK&CHiu5q^<+>Yx-d^P1ip;xVZ! zX{2zLDFYjs2oqtJ)*Amf?@46Q)3KMp52+4uPypq#;1Q7B1zeA$kSzFNPd)r#l$cc(z`C3u<7*g@ zl%y+a%n@h9@xh9yt5|%vr^3=9H#O0M#{1>X#_`NHl`<14fVa!!NzU1k@_;a3fEFzT zrW4dER@dA+Gkx2l?OlUpSIP$w3HrHjG?wC-vw7=1UuiOoUh=ZR1YJjkzD#=6W;05( zdi*)Klz`0e47()mFqR<1XkB%9vvJ)EV1Q-N!hARNDt?WX`9(t7$WYtt7jPbInvOLWE06=W;#=j%#kVMW~1a{O9StXYbd z0?wH>QfMWw2NBfyMt}+IJo3ae$VYdZw66H*Cn02WeC1A2hL@{D@~K^RCQ|V)UG{O` zKbMfM>irh$r2ElX`XmPLetg+7jms5StVwQu2~5O4XfGu|fbSxIw%npcg=M}n*^*`Q z#OlFum5EdymmB1^@VF0Le~dor2&NZRr$6)xcpjg*-)VqO(zVbG&iv+z{GA*#uDZY^ z1cgiwijfv;cD*OoA8*x06R`cbio}JW{@SYtP-ibG*8PSV!8Ew^riwh4{pcuy30ruK z>C$B}CZ^15r}!2p`3m$zl;^T+)=}iJ1vnf<1XHPg0#9BgSK#oY&>_)^o?_m&m2ZGc zvcyx|&vHxG)q0im$0KGD;?T&CY6Bve&_y}or9Sza#W;fpEW2-m6^Y0WDpIL_506<{ z&y-$Bnr^r#j)}-3aLIC=pZJ>EeVGT~Nqx@WsrJsD6E!_dF~lpD$yO8ja5>`q2;bZ3 zLi?}%ZQ*siY}P&^pE;L5Pqwg^l~Ne>&Kp<0LOc*d`485bt!H&C0WI)R8#>t%fR3!r zJqXiosCe+M=>6YT`81TZR4~yHvosc7eH-DJK|X(au>QIlT?_R+C*&a2E@tEaj;6lM zm`;~I=gLySa4`v+3;DP-vj=8^^m8^E_V9!#0txrugjh-d4OBAh`m0E{h3Da(Gl;tC zS%R2*GTO{J6JB?K!!z=u`tyepx_^8#d7W3m1gZcuGsDtn)3({K(Qj?5Ed)ppprA3L zzcH~&b=BR==~_#5;c&_Bu^tNJE5JRsOOyg><8$u0wFwmE4usL4Vg_WOHyNMa)rriD zjfNOyvu@(Dve%)1;YyPqOY;dtATma+a(1d_Z+_5psxnSZDAsR)M*iI`M< zWj5G`gZ0ducQ9Pi(avDcomB6ouj!4u=tEObP~}VFG2q_t;0(MLNnbKmFf-Y&Tzbdr zPbsREnVFg7(M&xx=N%asF~6(|;t0EBmY}KW7YmF+iE_tiqR^KzW|K_kKu%xX)A9n{ zF4*?!zORFOBv#fc8{~P{T;f1rTf0=dV`|po+-P3%iqNY>U+T_weu?fgy>S{QqJh(q zr(IT7;;hd4)fc>4rUq`cUE($&VI!I|m8Ffhk4V6;7Y?7yDGWvXxurVUIVLz&SIq+i zbaF&_{Q8)I3?kTzmE7HhVRD=V<-2=m@asgyr>QQIg|xbi5Lhc6>1|Yk3RS+S%`08{ zK8NsOG#YcU0TWr-bCPJKYc5cAOs{Vy*mzlS(yEKNwXY@RWlNDvMRZPdb=$2Vlkuhc zzjT$J)>6Q8#&@}s-g4cp#no2geqmOebltud_WZieMJJ=%$;z(9>g(2tb7p5v3$k+s z7$cwDp4vms%?A8JzpdF}C8&Kkmij|-prJf^Q+ z0uG3}1tC1Dq(S8d=S{;p1{;n3;DB84Otu(Y-N_cLs zjhWG>ONX{0gi#*XKT@W^-@1jiIAgQe!pBb=2&5~wq(`3#R1^`=FMyeMznYs6S4&S? zyX_~A62EKsNrd31$Pmt!6YfePa>-X-bbVpRy{K|P;<(qQuW=I!JZpLtu$=F**2c8p zKTRdXt>oK4ByLNn)j+g9zM_P91Pde?Run>pb7F21Ye;rS5Xf+4ZMQ}` zOWS@f*iP@mdx$q-@m1iST8kLIAi2_2=p~Uyz0Y;4UtlFpnt$`mup3RA@Su6Xt~XnA zdDG!~)k+RRqQ>qDb?@r(p30n8@WMspHnEYFOr+I~u#YM-Agj5BvB&9#&35Jpk*Vot zUg%{QRCJC|ivsR8*R$MphaYwK`m-b3pZ~B>N}?^f2s4+FS`6wYh&lOx?DvrOt27YI%F+zuaw>vju)bP-YM=?jx$8U8;P<{aTk z_$++}W4am2*@7SS_%qp#7R{9Ys>OlN@h3VYCvmWwjhkon1g?djlQW&e<*gZPT}fmr zf^4xl^ay4%Sp4&st=4yf-Ql`N^P{@s zv)Q8&G=IZHjQOln!Z>f*Zu|{Wk!&=`e+OG&n^|nL!Qp?uRbbHXHV<}=Xv>7!IiooD z-=>-JH~g@VaLix+na55csTcfD@8T6bsQa;3FJ82#hH9OPKH;QZxM2daY|kS{ zVbJ79EO-hK|6e-;JJ{sEagk0!m|*JeCviJrwz(AFyavRe*6ztX3cuNA7d`4tTx@)M z(HFP-!gFYD9KM@2h`$bZLVvgX09n3m&Lj98hy!xFlwd*p2cGTc@t;L2zh*RK-<0n9)tg$5-_u;Jtc;S6kL=8ho#Z?I7m>}w zhRJ*Slsi3wlgdI_A+1DPyrjfE-?pq61Vo+nuKd#L+diK=Amw$xs$0(3n7QWg!~qo8 zJR4tDq#D$UPW>#_1`YYsCQ;4;F2dYrN!FTnt`?E6%+ZTyJ5swe)t6o~j6kk|sM~ID zi@FvP^rq&lYfq$1-oNX^P+=g_CUwZ07-38F@cjoy+|6ta#Un z)#AFX=Him}keb(@tsTxJTb?Y+m_p=B(W0v7GP=<@{2SS%zJK@Y!-%$MIbjvXRQ2>?eW+^``O6E9TSj67bQ5y5=e zLKR{cG>QUk0IX68BXc7C895^3OhsQ2!NH?^X^l;+MFwLz^2f_sMzAw*7lRmfx6+TR zN1)#n+3#&vS2-MqxFUwHNltOIre~#cj>z>m0E2(m%i&pOv3L=$l7eWJBjW3z>Ph@r`ZQ2Q(I zH-RO9uAH3<8cSKD&Yj^o@m3b%x4S@oAuf?(8=-AWc~F?jqJ_R{GD7|P!bpL7vf~d! zn0Z>)XexfI@2SBP35gEYgSDoGKc78}DKZ5$*``9N~`*f!BrW zTQg79uErDaICZz;kvN9>0|3L@%E`(u(kjC?uHfR8`Qj0%&?Fr`p)lBaFklO}@6f!p z;bt{D;uMwsz*(oZfDl!^xaoiXDMqb`TyT3_7E%QJQ#(q3s z&3jrJnys7FRGU9YEl^$1IoXZ~H%&g$IB$ALD2n|tE-#{f;uzRj_ft=UtP+L+^OyCE zz_!thdet@l<&pAD3Xgb@YYs?z6ALi8PhOX%TR*moAK2=lW$l1Zz#e4)Eq*-jeRnX) zVGqcDFIj*2@sPg6eKbWiNCpt}%w`~>aKoDmV1~r|Qv`zcCOI77B3XJp1S0%43HP*T zIR^unmeh*9rdF2;8zLYRYPWT)i zcz);1G2&v$9y=)_0c<*iCct;TI+;&S3g!Imm08#m0%)!5&Z;P{OEc~a4g8mAxUB{J zEnKiUxBnAh+b@~?f2E^f2Ry5f(QP(6(t-Ysb$0se2~V%U;o?tnr4#|xHxl5%@6i7M zMExIH8hv%Bg=wskEGr1l+r&l?Zt>%IMl4)NFo*##3;gMIS}5Ms#tGRF+Nlb!0|aas z!bbml{2)%WDYMEHVcl&vZtH=xhrKh`Nwyev8{1cw)P5GhRIt7|y=phc{~W&?{Gx~< zK2(ScUP`?p)vvdqFR{i;-^1q|x9tZaM~+9!P1-BnFYq=@SC_3mwaO;Gpzz`FENIeR zn>4}YIWT{YH>cvg_;fRtceMEu951PGZ#jNE*?h~^a_raJ__xn@#{Ga)!0a=Op`SGU5(spu$m%{DH06tdY6OiqkGUk5;AL zmt37=5s_5PJ-T_81HR}17))nBmnO~Tfe-llMju^l+&U!!-w6>ZymfcguV{60m z=D{0fNw|Y0eowl^=Ob=!E8aY^Lth!hUxh|Wg*1WJk7W#R=k#UKZ*4Ze3exjH%gKBH zG+eCO$+mWd|2)})jtFdEiJm^|{r2~*e>_d`#~iAW_qTU;q$uymH@&B%SbRtCtj)cP zFnmH#E2my_QW)#}&pq5Tp>C5#2;dF{iP>OVG1&($E*<`iU&lwNnNa1&k3oJOE`drT z!SCMyqde^%8PLa0@axD6Z)DHezs|NO8$m&P#@2F}F$0Yq6obtm&I+>g!Ko=<(D9blkUmPV%A>dtDV38G z@+GK2O%bWZ4_O8$^r+Bn217HNOY~SCfUO*0V6`OY-dx+GauLUL_&Mk9dH(&qt?|2$ z8?S}TDBith17pg(LzOSH_S>LZCW&2cZMaCTuXjg%-M9Wu2P9nL8oPp=;bT<$b&N&| zFGd>Yr^jz?zg>+p!`{sO*5Kx@>}OiUQJ9@A{5&ay-RM)&Wz5bA*gV^%V$JMoKq&bi z$D17ZxvskoO3Az&8SuC2XYVWFGJSWQPqKO9!OscV>>qv?`OkA}U}OyES;u%F)>aat z*RsI5V08LM(6GSScJ%=E6!>F*sRK8p{UJ=o+SFHo^pE~0KHTBbgFxVIhjDk3|NQ;V z2~1h4LB)96V_{a7?!py2?3)vmC2KM3z3VH})un6RSf84!@%3ez<#p{Bqa7I@fdI|Q z#@L%C8E#4Hj8?6BDP(G@szj@L^*1gem;RQ4Ba!zUYXp-w*sV_~osN~yg{j1RQYTre z)f5`3EYj_6!WY!)y2p~`qoS9-;j=uYGW%>#05Q~roeZk$oS4>Lrim?Rx*9K^_)Pb` zpVGa$vh!z%XBQ(_&-hD_sBwe3R#;JHs~>~i-+l;4RO0Bt7Pi=+$9lldQxL5aGB4QI z_gW;(z3tG5a3RQD>B-O+TM6cm#SW)e@G$cL(z(h4+bA8q-B_fGwT}zF&K&4s8Ai%9IGopO$Mp837hJ0oG^id3CB zk?(`b$*>J`eW?!x!k<~?+xEA_4?8&|FAadLV}5l$-}y`ULijdX4jhqtVM-*%M3~z0 z*>I|sJldT9oz!AdJYtO=S{vKJyO5EHzEsEcMSI1BEL&3xJ84oasNcnH&dgD9Y8{U~q19Kn5iz;~i8E|&qGdj!V*&cH7uNu|gjLkv^ z>?FPrAJfKc>kqXRyc+LLn+i*0F?&5M?(rQc1FX% zOt!HT##m=C%(;i^?S0?Q`FwxpeEN*nwMfv7+rjt~_UhzhtyK^z?+j^LUH zx!<#83v$aAyDdoM79_X^ZLzc4VwbXY>(+hy_JJ{A0DTbs=cu9*rQ+zQ;s~yJDp64? zQQ+DM27{6G(e$4k(hjsBq+JR!2(;2;^q=doV-d$(U5~kfYx=Q>+T)LT?7)&p&_H*v zAQ%y37nEWbRBD$38r~7Wssb8V4L}O6j*d}Lj!}7zQJs!?d5(GDN&}O+9*dyQO8-T; zMu3*?8d2+-p6;3su7g3yEkSn3wTVlEO7Rf@h_wOqj^LM`9+6%fQ9Bq>ON&y0L^-NN ztuGRl7nKKEXH*_7sRp57wp+(()W3d5$W1QJ^{IMS=MM)Zhw!oq3(0(eh|{c{EyS5VADLt~3R-pwbjD zaZqU~9?T6crFeX8#If24*V=T@B5J|xgP;x84$^9AwY4-FKE)1S8iX%RS?dd60VD98 zQ7WBLj-7d+MRkJ30QmF;!H)*k1eZ=4t?$B(!F1Qb^oYS)(9#D1$Y9n%8u)LJMjIa= z2hh`MBWRsbw9Y*Gh{1H)VC~vN05Vt^%mF&m%rX3&< zQOME5TBm#-OqNEbY#;I^w6nToi<@0*Im}Uc{%Dhv*(TVA9hdB6X3RX|!N?8pkh;(w6f1qJ^%hC_ig?80KfAKaQaaEC?I z23#3A%@&=ihG;zND5K;gF+5JYEfGxJ3Je$uTS16~On=Usq6<}6;mA8X4tDRjO z!e3p0b@DFxQso-LL$Zx~>h__4tXZ2ybRhD#9iSnZ8bxL+H>|YDs!O?#gpv~(pbWTS&Q7BDx{G|>^* zV(zn2NVqrsW_e)W6ZRRVfEXbj) zEOhf}Lbu!qkrnkeuKC@|BQg67mc%DQOmr-&Ui2<{oT-}0Ib+D#^!Owtx^3?rk>ca2 z0=_GSq_onUr9-GHrtJQAmtMN>HJJ=FDSJ$E(pbO^Q7gqSB*b`sK9ry#@Y4HJb0q?D zydn?VW{T_6%TJNLrYo10b_D6J+_Tfus_3mXMyz|V!+Leu)ujZH*4tn`M%{n!oVmWF zv@S*eAhFC3s(StcJRr*DibulS*<+m7b*mPmS%=;Aq;+JyEv6sIk%M0OxZf(hwC^5S zw%&W<`a~aR?yI}><@vITAESkJAXpX`Rwb%tbB~z$81We2%Fy2U^HTmPO3dt~Ng0p( zS`%aopLWPodL}INpK_NQvsv6}=5e)>vQa#ii=~Nneydxlh&+Dc@al<6n86a|F0QcX zoJZ##+e&gKRx&{pd{oLmuGZg{zvw%b~2B@ zjJncd;JtNF_-SVaFwU5giUkD0^D-D>X*2(qj9L7g&c-Y z60_tXX<_MER}QjEu~#1_m`ttr~Hd|42wP1rH;_T$a>2!x||o^)lH_08T(F2%@j@_#dL`j z&z(8FvX1?6RPF+Ob?H6Q1bebWN}$>6$VE>N$2xz%u^~TWP6@#k6m4K?YB2JoX;th2 zpV8Mn9cSbWAuMoCnc^E_^0n@f@LEa)?7h+=98E`^@so z+EYEtw*szHC|Nh2JD4E*ZiVcXv&m-&)VK|SXiqQ~^lNvsKy@wTP@K*I}}0mQP-==pHjIVd}ERxpEfjH6T55mA|2@BUeM@ zbW?m}tgpN&F)hT-TEvpA6EcT6-Y(l`@{)r5ANUDD$!iqtPsFBA#FkjrH?=Dt(fCmK zT!}dye|wRu-_7LNZL@*xuXtdxOtBd!-n8}Wq8^A8j!it8k#LC6ORK`|dIA6BxuNeb1C@ zHLh>%y1?tM%~>_yyBMALTJ*%W#xCm%WWWF~{bPzbLUPDFiw}H8whBm@pAOs>G0)hw zrklgPVG*xUm)psA(iw;2R;lx%sSKelpIN(iw1;NM+k53!O`NfFsJB#3)jv^mzQV|| zdmi<4gt)ewekq#~-6r3MmZ{>6#mVdHbF_O`&s|wjv+72#ifGmP6JHpK^^|GT_Gk#mz*rI;N1S#Uqh-5=ZQP zkZG7OZAih#sK#M}t#=WsTAun3Ag5$EyT7@;B;)o6?l;JXP@Xo=Zs-iYnHqa+r)P@NRfPy}p@Ch(L1-O3uuVRJ304C5! z=if1DO;h1yvudyJ@)YLvw&BT4WI^dlSZ{q9dVJbnCDZw=s7?8K^_@rxIX@p6ow(&W z41h;?V{C0E>!LV1mr;{{NMn(`)vct18;a;~`x;Rvq78aZcdCC@b+|-3> zDzsoZS8;+42dU$XlR*#Kaao`5v0Ojq(FQs~O1E+MHLvIeEK8tz4SNFp_9$QWk~NpD zP)yCk5RojXLhFuIDp{m!^^==K&6jNdtGQyF-;65qv(S&IuRj-_9SRk1zUYP_E+Yz< z;V$rddwj>I2k%XVJr&1CG119@QsOJG<8CBhXBtp^PT*Ao{I9{>Pi^wZl z4w>#-z0sST@ho1T8%9QaM3QFj0W?bLKO$aWJWn9#{M!Te5zq>n72tcAEU|# zP_uH|ozCh=g?Tos^K~;cDszx_u8;I^ULS}&(mb=PtBhlHMmS@0Loux%v#5&difE7Y zv8p{C(WOrQ^h%_TnB(8tyTs`ZxD-}oe+Mu4jZUc!_L-Wz?9P@;xucjmF;a}&&MDh_ zr(^ror_Jy73tA5F(AQ$!6x>ytMUleQPt^addMgjUksxEhtSNpdJX8WGI71sf$kr_v4AkDmV#kRTLU63V zt5Bw;<~a2mA+|74fM5D0I%ip$?0db~W_uCH$m6%|}ObEP-=a;=S1!0$^fIu<+vTILK z!YYd<&MN2+{15~Y1?4afchg@s{Qu^36_WU`=9qS`+2CC$ zD55}$gT%q;!mClZ$0{E}H)DSgC1jUP4yi7DtcZ~=nGYDCWK#%?$O2b83{AXl5zj! z*+1Z5s}*B4cREMP-M2y;Dov}Wh+j-KjzI4Sy((0Py>2|^%>>I^-TnpzfeFV4F;Z(4 zH;?zI%%&u1;burC)5XOwhGhjjqCmm8TL{sy6!RVpMflik;3Yjq8b)ZL{6|H^2nQ-m z-%kBz6s!R01= zBWmKlq-|7E3FS6PpA}cVs-pB9mrv7Dr$jWPssrcTYn zV4Aqinb4US+hZK^FdZDi$7%x~DR5)+ZH}|BnEnEo5OF4r&Va$JK9|s|E$(p)N#=c01B|QluGyUK7oQcWD)5lLoW5YAYQzP9 zWlTqCAEV$+a?14-?Sr`SYeql2ag$EpcqG9L`yxpv5eZhd(s~G^sJ0oby%{K;b>z4+ zPADd-?f;3P5-gwT0J0Jb_K?!`H$x2z?n1MVx!H2~%>1g5d zQTLIhnz(Vm;NPKDVs7|JPagNph=P2e@PVWe?2phztsu_+zDRE4Y>oe$HC6sYe%@VI zx&Z{pU9N^3Ds}azSiO6?i!N7xy&Z)8m+$g)p(U3rH9cm{%s60cLR~6o41b0AA?l`= z1}@Jsxu?jv;^71fHO<%hu~S(efFiEr&u@%FGa}1*M-wMLK1cw{zGJ?3a{)$ zGY4E*jo<&<=jnwC?5L$4r6fyU;(%L9ax-Rjp0Y6YVPv*^-v6mVHW#ORI#5o3S+;R9 zuA;qcBxYZhD|~5_&nSLqvQ^)HU7PqTKSP}1{GnrB_f?ODlz9$Z4%qM|W8Z9A52|bR z5~bSRX1JH7Y|%6=M==DML<+i@A%pi)m@f7!@8}kCmHS2Kj4L5AbLINm6U#P(U0kj@ zZ-(Gsg8V{;D{wjg%~L&S$xE)3TS`7ao{^a!wo64H`j`Q9SXaZIA&$3yAgm#G@bQtp z6C-yCs-~3~k;RzSv|!FPwMiU`7qij+sZ3+%gb1U#q?5R?log%Jvy!^+eoFv-LtIm5 zSw2mTy1li{@LAEynj%O9YWA0@3~(mx!DTD<CA$-Jt zqU*cu0Z4QeBXnD}110s#!=*&7spRcnSV%bx0tg@P{IfRj5|D)W)we)<*#ttTh_Rb) zV-;c0hW-SXZXlZ-KrpiKFzN)(Rrd(+FWCO-ixHfdIDkC-#X|#kmEakOzj|F1Jk+q_ zB>eBQLqrb!_BLPt@!$21OFi|w+jOz}8{m-tJR3;71#?5v~bxzIWghb5XtWz_)n_4d1Z5w;&aJ!J3#nH-&6gp7>rpqf8nZ4H2{ zrm!2k&qhvmNEA=~K<9VJ7KHKksta|*;y=Y5gnL*A{}(6Qe11hWmaSvUW+RdXZqd0w z`i0MVr7v|o-P(W9Z5;~W*<|cvFF#S1&>D@EnA@`*u6F7N`q#I87na;~U5SHq{0E{( zu}OQTuU%p(C}HUHl43oV8;qV2Cp`K=%b#JB+hstWKaYab*+d1f$@9PLE4E62PWeAC z{q7pwF?zQL%L+#7RlNE{{RUCu80fLsFX&jc?imXgm}*en2b z=34`~sgdmr>34NhI|rbNqY~ z62w@t6<(szTH`el)9t-RMIcLvf)Efu1W&^aL4i#(^2QTOYyi{6fp9NTM(8*h0Zp7*3sjO(HxCs; z7TLa53ruRVz`jgz!W4R;^vJ_uS|<+kgP1=dU;yGRV72;#C4k_H5`@2Nb+^llKMC>^ z8FWq4G9&_JH(A3lJMb`xkJdt)|L_H*ZQFPKs0H|+-c4{XjMx4`_JNsnKKTW}H7ml~ zY-WK1rW--GfW>?it^;VtUnpf(GCkCbhS~$_{D~ITahPR#UV|RlBRT?r#ayEVYIX9T ziT{s5#YNLt3#VZtCq)soy$OiCKq#2k1B6YU4XW65>qVWgEQWY#%ko*W6%GPJkE)Ix zgS$KgnVUmv5q#K3w4J!kBy0l*iTY;l84Vb+uQ*g52nN@50|Sir(YnH#lOu$n?N?nq z+WhIh!C4z)5Ze7^k|jP;C2iuebk8ZA2*zI{1v5E+^4T%{4=p*^{5*wySua4K_gzl4 z&mrG%W_dvw5R~xrX|2)2xOT(lL&APv8sDA|RbB$og7Ld&jT|cp6}HwtP&)y%pN8Q+XEoB{9C^W>#3bE!;L_ri<~lbqgSW7t1icdZ@RT zp@*(!IkQ~R@DkZSJ?=yIU7k1lc%F{tAZ#K?AgtrdeMMt-X>S>|9g9_!vXO@}RVT?I znW&lNrBp%p`{&!ZKny$l!*0MWiyKOUa#K1GXNs|XaKZTYSt;9#be)elqlkoA^T93i zYp(v$p`<{Cykh=QVCvyTHQ1NNNNhVJw0$D$oXt9o)|{~r5YUs419QM1hJAE@=upS& z1H*r}Sa3DhSa#duFY$l3J=J1_8|t12zrPzS2H5LP`#zp03!6JtL1<85Z&lqCpEhe(O3EMpl(4!zs}==@i6F;1?#uA~6cL*xx~ZAP`Sa(P>jk@@Fx7%ulqf^M%87Di_H`6WsBRe$I^1w3~^RZ ze3#k*Ro}Vp<`0hE=y{K&D*?^#CL-E-!yf14Y!35Ij&F=m=jfs}#X05RS2B0LX;0~7 zE=vj6;!?op>OI2xj&JG)`2#WB%U3>3sZb?VcYpKMCWG5pe~`D^09&wGM5V87-I`i^SYh)9&A;SJg_|FGdV=5e#3WX6PGZeoJE0}>yuv9(lDmpC+i6_6pvUb+T0?w z6aJuL+i1kBC!#0^HX&$n2zZioX|TBnWzr}qDL^ZDoxP4_sI-oF;x{s}O6Jwg{Ln96 z&ou4a7ik@_Nzj!)esO8GMZK?KXgsLH=$gMCyB1S#`MCePh5^E|f7MOvJ(mzFj8N|f zB7lStn5&Mz9!J(9+bcOjDM{yHmJ}d6ANc*x$3->o7eBpKXxN&OYGYeEATB)L+63IAwd^kRS4jgYY$ zWBChhaUbf)hkR2$=+3czSBVIv271O&2lquaD-WB)mwf;xi|~s^DC7~v3MD$u7WUm) zxr)sZ+I}=$3?wG#iq_~fuDG}^nZrHy1(6M;@-n<_R&pK=SmeSC4_k1%`yBQ=>N9N8 zR0|a;U5>=i_T`jdJ*n*`if0B}VF}Zz}RJ!t_43^xEW_uC#^r<6ID=XYt*3cvnetVy{fj@Ad z=S;Blq`P-mFBn^fFZFX(i?{byxS&=0w?%C)hgYrJ zMoCvq$6{-&mHaZ@cf699fHm2Fhf+bpcK)Ya%P{NY_7Kl0Ph2ceQKZv0{-_9t?_`@RUD z(n(HtH_<;lco4e?Lo@T$VZ=@J==q0LkF63X%;)Li0Au}B)S4ighL`j#APRo&dflg_ zZ$tPO4f+2qus;vf{sh=SL-`7<8u&FJ3jud2V_1hFT#mND%I^=fC_0j^5$F*V2qVj= zopLr4LL`0M75{TvnqrPwT1$KNza?DlZWkHto@Ep8ViQ zF5ilorrRU?F}`EJoUAH5lO|N+LqBg*G-^CZ^pT z@xgcjNuSTj8HlS4k5n&2l;6D41*g~A$Q5`v_%J9kQ!0~=`^1s^ArZL_ml0!HwhEpPc;x7 zw&b%pAw^uSP(7pxL+S}wB)u*JJ!6+o(%S;crm@YI(Z_lCM`u7WYFui* zU2rG4JYUIAS#95L-_Wf>3K|cD{51*!B~|Rdx$~BW2&7ya>e_s3e)t8R;oW$jsh%5A zIO&*S!IHbgSFOXB)y&rlvSVDN34;ahbKmx>>y(JB3Y1%`-*nT-JUL)m8B!P85RFap zH`DQTmM}WH4~^5R z`5Kj^1McTvrWaQ*;dR3*F_8;S-l4Krd4d1{HkRAdw&~Kio3664Z=q?;yh}Zk6Ou!T z(RF~1Oer7f5jX6Wvc6N!b^5ZE-pDE_kpVm8n;yaT;+awT)hP_CqlFW}IxU4JbwR_A zO&xbYi^iqy@T9BIJe3`m$d$E#s)uz5uGeclA)0>-qug_| zjTssV<{MKjT=eHfc89Kpf_!^`_Ddh~G|$sOUXnHhx#c+SD{?pPnGcDK4PpEr6>UXd zLMV}S+&m7>R|ApzOGOuWSa9gyS;z(bU3J((Vm@tkYiz57=fm6es!i^Evl z$_iE%NhzM4D}>qp&OE;OY=p(V2StW;L?JY-v2nNShj*Wrfg*XNUJ zzvtOfI!z8sT=kgyJc7Di#`AiM+c44k-aw`RI9GaJ#o z^M%>VJoiveKl#F=oHxb1K(Q(K@F_%d15Du^N3h2>g~gG_7c2Y^ZQ)zkaD{H#CKyNV zZ5wuc{hY|I zLt7pXa_jX|%W}7MJI+K$yas7uU*~jm#<}ymGNka`2NKJ8%58bjBa=>ddOr@3Gfoc{ zNHm@hf$4+Nr5pTrFPlbR!7RR$)3)Fye}{yjuEKrKszdSH*Jr)kUChsz<{3XYXdphQ-j8^j_F&cj1mR$m$fqZik_l6N<}4Ts-<> zXjg2TOPETy=)^C5=pHdtcow=Vsms^Z*Uif#E$21dyN30!@1y7HL2otSU`l3yg+aYD za_AW(A`d;=yTbnXc+*whwGHvTPuWWi%hXNTTar~O6nJKjwdtKmBWf$V+^Xo(Cs*6H znWC951N4GKyBX%*B|%?k`wtr5*`?g!Ut;Emj~D`+$NE3vHRi%+KF*?o-SCqfS(`TS-#u&k4mtg1Wbocz(+VyS z6NKb!UYjO4s=Rfg^WCITpp*vJf)l$AtLDlMS2>k&J&({%w^vQzsQebk5lx&9zs>P} zE5>gt)GC*g1-x%>F4$)ae7wMfDBz9dCGmio&?Dn}@ZA@kZQz!y`m7WdP&WExGJb+s zzbRm)5bxqeOYdu3!Pk*eg7Kk`bKWV6GnUW3ckvpD;YlP0Qr=H=WXb{Ume9Qz;6ZM3 z@#;-Kro12VDxEG!gR&M%hg})v!x#GmOoBdnUaaHju0&3 zcK1W56fD!Nub7oeVv}$|z?`0Fvjksz^Nr3PHJ$(`&H$;C+8)k2x~ z7$0<7<(${T<#3N+JuXHpMREP8)(sBaDCuG6_4pu8e_v4|QHBLp=KInbci_(xZHwT| z#FBXfI*B zj0)NavNBF$_!Q)`(2G+DHf}Etq!CpCqOQK zN&TeUk7J+TOr%B+_x^O0{cnQspNZFwhu6+0|8sF1V;)hqjD2La?RR{XE7)Yn|CQ%w zkpc*K=2s8}XEfUeOvE;lR*tr6Gb#8HRHSfa*nF7zBm~-i73<#s_;(60-c@&a*Ip#d z)y_FRBZ$*oX1$h)0wQN=gf32IR-CXQFK=)|*=m=ILNV<#X?S(wECpl}-?!iiiP4I^ zzIF=5vvs$Qku?JBye8WD!cvGIhyfaf{vbS>GI63!zg`VDuCc!9EkvbNCJn@~`a9FB z8+7IIMU20$^4aBL-KKzo%}bZOT-;7b5`ss2D9csH%DDoscp#Tf?`miF^d33l#lx@4 z!una@JSEF-_5zSZG(0B5;@6FM;qQO|>dY)XZ78S9X2qhU?kd=|f^P`Z&r!9Ox~Sq$ zm}!v;(oC_mL<+e2&z>SBX_GSCJ7FPj>Wp+cuaR%;m7U0-7a@qeJ3G!xpeGAN1)=#L zBC%EqydVfr==APFvtYwfLsfTkl|Vik%f?5I(W}!od+JgDIv&V(&CEMP*B= zjx6!_TS<&czItyg(-5bx`qMmU0XLvDF)f1D>tu8|^Iq70hfq4#L=IkSOo4Gg@}_-;GSp!|z6Br;NY>Q0BfWRKC?^rLTNNk?vQ${;JjacMR?8 zj~t*Io=aVSF+5HZmmO`}ei)whXzjr-p4IOWt~$f_@n763B&yw}7Du^{UoGALIUz};0g z{+SXrZR9Ox`~}78*N0FlGj=bP6`jOkBy*{oOnlgV*iRzjZ~z ziy&}_|5rqiK7r)n-zesD0VLe0h@BSskX~>g%?KFG0S#9>@H;V2-U`y9|9%AhCxfeI z`KBEL5!_GzF2HYS`=1Q@Kj8ku$NwX}^bhZ@Ibr`lE45L5oau;>9B)2t%y{e==MT>> z2ow#}#f#dUfF@3ADkEXZTT59eU#V{xVZ>C3v2(f(h?V@fN%!rqVzn7v@)(Aw2%igc zAa1rc8x$qwZfw2;|>892*S{Amx zrHI+g!dzYZzrpSgfYUzfm`(5i^y);oTa(CAH~Dd<#_B?V2JP$k^kgryD=nj!)y+By z8MyqEkZyC4IWi;3C?eA;{LB5w@<2ZgT4TGuzYeZ+2)tl5&IV>Lpv0bz?Wu-C!&sgl z5tTnz>;ukF+s}$aX{Bw`_kpilq>LHG6BfcLUP}?D(GEw^b?jyHE_qhm#^8WI7QB&_ zqUt`RH`@=sB#^u|&8{hw-AAvrebni|l95YGpny6?yWg31;nK41Y)IK=S%GpMY7xye zEx412-;v*>My(d>QlpG~Nmw+Vl5?f`2nR|Hwn>UWI_wJtDJ7(P1kN)zz=~y!d!ZqNcuLN}cx=f8U)ugybGy4a<=J#qe}yWw5! z@f*p(`I<($ZHJ26ok0bj0+;(+v1{cSH8u6TeOqTnm*4S4QfDuVdpm@>>Lh|v7&ENv z1N7WVf3h;X+X7HBfQa*Wk>304AWl7;Ipm=><6UxZ*I_m-P)T8vEm0)a0Gl)Zah0a+QnX(o%?9sxd!d~v( ze;_(?+crYb*bI+5r4h-Fw41(MwFBKhtDa)T-OB)8omdNBMug5;77b-$`DAL=Xlwx9 zuh=@9e;b^2zFG9g^#x^DBwEyU=VJs@y!u~BD;gq~};H&7?dae>K%G5x3=Farvt_Soq*LjT0 z<|6u?FFIV9>K8dlpE@Qyagn7c3U;7;)oTV?ql-dGYoH~qJ(3OEBL+RW`wAsmrsndS z4tG|mg74{k55hV?5l%Q=OtSE7cR|4Q;!QM`HaprCb*}Vz(fej`x9tr_DdD=k<@bfd z^qY4cwHr1n{K4qI1!DUvLi>yy)tYM3Czjt=dyo|oM7}Pfp$UjUS|I;&fqbpd+}}hdq?v05-S1lx|jsxzwCAX*R(r8 z>grDnzmlOJZ>Pc(I)gm^F`@sM(0}5Be<{xUuSwiLQ5Q(={1>9=f3W+%!(07-AY<^o z4*!Yu|GD1)_)jP_0-2%ztG~1GpMc|E&geq_{3VRLSmzUNiC)mJi;|kE<&b$U2^7`~ z%|Zf&6Wae9ZzAb+MDlz87d}}@pWyo!E^#8z-qnS%MXGbAZa#8#nEI&K4_V~9+Cpa9 zO~^z$X<&9qYNp>8NQ;4QU38=Es$IO^Yw?_ibm?PIp(~SXlCR5&rcBzP!3nwd6?dOU zFdJuQA$NL_ba44i9}Wql#fw%(mlX|lWy&rs;e%KxC+=caKYDYg7p}Cbpq3qbBb8gVF|}-{R$WY^$z$&(VXRP^m5Ld?Gb5SFQ+Oo(P!Z z7MO@jbDj;k+It}wmYNoM@_^|`U43d4^2}#p-@r@DHPh$DxwAgJXbb8b85yhhur7_? z{g!plo*nn?EAC3G@ozpv5hH*-^(I!tY6pg?_*~TZC};F;R;8Ys%0+%* zoR&M--jUwta-REm?Tgl+@}*%lE3>(<7YB@)~vvbSSK!2=GAjecHiD;(}d zpMQ=@c1;RplA_2E&u3h?Iy5;|<>o3mXw?2i`;HHViD3Rj@5;TdP7 zvM0~p9WMc76#1R8ByHSCjD*)5_11kpv~FKq+PU*BFNUeqH-i&g*Qxlg_wVkdG90He znm@v(M^euhl_@Vyswp>erz-q0#bNNG|1G24H=ErIdXdK|Ly~@W4^9+in@Bs_ry6dV6fop6hWi!{&#^l%cT; zi=pbr545D7&duH!gFG@nNuf5S<$k@Ss!_Ed`BYal)z{%ffX98w!)|(aYpzL#?or?Q zjAVrC!TAK!F+%=62>CKuMJgdk16=3CkyzpjYiUeVZGmH?I)+wh>U8-@~pnCJt~t)DHEoYbf{svk!`uuAAU zzU!eE^mKWu2vn`?5gviti-FMN4EI#)Ot(-rxd$*X#D zc2>7Fl7A!W*d>P(KKrxl*qZm6$cQS3o*Y?>A{IxXXmtq>Q8$TqpGPtqbJ_bFNcV+d zSw-B!3V1QC0a?AtP0ev`#?MV+1WQ|LF&fKH7tUwEVwu`MsYJ=`_4V!vZ6+R?pTamXwK);bVo?yKmF2^WiJ57rjVK&VVD+hSBWz~MglA@4L)jB3iZ#ie zhzu2?a)NL9;=qSLApi2$eHCmlu^tm;BNoIl%8=^?7^EDG7Rcgu*OUqtv%$W&iiIjX z6eXNy(Z)fHK^>wC?qs5FCVWHBxSbJ1UWP*+w_z~XS3WUm)Dir>WBu>NK0|?!AEQMx z8xzwi?do^B!vmruyTa@|)uDHFp-;nxU$a5FB{T5x3zL zm;30K;^au$aoYvko=-7#+eW=B#|?Bc?cz);>T3#MY}(_N%ne7OkTOsrtYGsL8^?FS zP*LSWlSx^EWuLDXP3ldIe*4vkGHK?51@n&-KAh>=yu74-@Q#O5cr2#q+*q6ToMHsv z(9*e6!(FID^;LHnEmxh7RB=NH0{>gS`$(cOJoRlquKz4-8AvzesJ7wZ*9UE`{x{n& BW>f$G diff --git a/vignettes/howto-reprex.Rmd b/vignettes/howto-reprex.Rmd index d476654..587aebc 100644 --- a/vignettes/howto-reprex.Rmd +++ b/vignettes/howto-reprex.Rmd @@ -443,6 +443,7 @@ outcome_01_adj_tbl %>% ```{r} outcome_01_adj_tbl %>% + filter(str_detect(numerator,"outcome")) %>% ggplot_prevalence_ii( denominator_level = denominator_level, numerator = numerator, @@ -450,8 +451,8 @@ outcome_01_adj_tbl %>% proportion_upp = prop_upp, proportion_low = prop_low) + theme(axis.text.x = element_text(angle = 0, vjust = 0, hjust=0)) + - coord_flip() + - facet_wrap(denominator~.,scales = "free_y") + + # coord_flip() + + facet_wrap(denominator~.,scales = "free") + # facet_grid(denominator~.,scales = "free_y") + colorspace::scale_color_discrete_qualitative() + labs(title = "Prevalence of numerators across denominators",