From dddd472c1f3b4dd0370d7d442f931d57adcac246 Mon Sep 17 00:00:00 2001 From: pvictor Date: Mon, 29 Nov 2021 20:04:50 +0100 Subject: [PATCH] removed unhcr_popstats_2017 dataset because of annoying note --- R/data.R | 27 +++++----------------- data/unhcr_popstats_2017.rda | Bin 27533 -> 0 bytes examples/add-lines.R | 42 +++++++++++++++++++---------------- man/add-vh-lines.Rd | 42 +++++++++++++++++++---------------- man/unhcr_popstats_2017.Rd | 28 ----------------------- 5 files changed, 51 insertions(+), 88 deletions(-) delete mode 100644 data/unhcr_popstats_2017.rda delete mode 100644 man/unhcr_popstats_2017.Rd diff --git a/R/data.R b/R/data.R index c19cae0..bf924bf 100644 --- a/R/data.R +++ b/R/data.R @@ -1,20 +1,3 @@ -#' UNHCR data for 2017 -#' -#' The dataset contains data about UNHCR's populations of concern for the year 2017. -#' -#' @format A data frame with 11237 observations and the following 6 variables: -#' \describe{ -#' \item{\code{country_origin}}{Country of origin of population} -#' \item{\code{country_residence}}{Country / territory of asylum/residence of population} -#' \item{\code{population_type}}{Populations of concern : Refugees, Asylum-seekers, Internally displaced persons (IDPs), Returned refugees, -#' Returned IDPs, Stateless persons, Others of concern.} -#' \item{\code{value}}{Number of people concerned} -#' \item{\code{continent_residence}}{Continent of origin of population} -#' \item{\code{continent_origin}}{Continent of residence of population} -#' } -#' @source UNHCR (The UN Refugee Agency) (\url{https://www.unhcr.org/}) -"unhcr_popstats_2017" - #' UNHCR data by continent of origin #' @@ -24,7 +7,7 @@ #' \describe{ #' \item{\code{year}}{Year concerned.} #' \item{\code{population_type}}{Populations of concern : Refugees, Asylum-seekers, Internally displaced persons (IDPs), Returned refugees, -#' Returned IDPs, Stateless persons, Others of concern.} +#' Returned IDPs, Stateless persons, Others of concern.} #' \item{\code{continent_origin}}{Continent of residence of population.} #' \item{\code{n}}{Number of people concerned.} #' } @@ -40,7 +23,7 @@ #' @format A data frame with 120 observations and the following 3 variables: #' \describe{ #' \item{\code{date}}{date.} -#' \item{\code{type}}{Type of data : realized or forecast.} +#' \item{\code{type}}{Type of data : realized or forecast.} #' \item{\code{value}}{Value in giga-watt per hour.} #' } #' @source Rte (Electricity Transmission Network in France) (\url{https://data.rte-france.com/}) @@ -53,7 +36,7 @@ #' @format A data frame with 60 observations and the following 5 variables: #' \describe{ #' \item{\code{datetime}}{Timestamp.} -#' \item{\code{open}}{Open value.} +#' \item{\code{open}}{Open value.} #' \item{\code{high}}{Highest value.} #' \item{\code{low}}{Lowest value.} #' \item{\code{close}}{Close value.} @@ -63,14 +46,14 @@ #' @title Paris Climate -#' +#' #' @description Average temperature and precipitation in Paris for the period 1971-2000. #' #' #' @format A data frame with 12 observations and the following 3 variables: #' \describe{ #' \item{\code{month}}{Month} -#' \item{\code{temperature}}{Temperature (in degree celsius).} +#' \item{\code{temperature}}{Temperature (in degree celsius).} #' \item{\code{precipitation}}{Precipitation (in mm).} #' } #' @source Wikipedia (\url{https://fr.wikipedia.org/wiki/Climat_de_Paris}) diff --git a/data/unhcr_popstats_2017.rda b/data/unhcr_popstats_2017.rda deleted file mode 100644 index 4f508b2f009d5793201b6614bcb9066118552555..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 27533 zcmafYRZtu3^L5aoMT%2_5Zs*>Xptni1a}Eiw6sWZ_dp5+cL?qc9;|3^cWrSf6e>WG zmj2)G;&=V+-Oiky-FasA?CyD#%$%N!Dw=ZXn>H52P!Sks{rmsgm+XIRfd3i6EApb$to)j94Ya*+7{>by_(9 zzyNvg%eCgLMhqaWR;uDMem)%xrqc`KB_m9$B <6#Z9{L=-d(ps7F{mW6MF6ro9l zD)c*z5NK&S7Z)cx5$BN1QxfU)+mFoS+dSe5b1vslCXG)iE@5-BM~W4wve>H?19Bwr z#GK2+ob0nIipv#K(&h9g!K>m1e;>haqgKjQs&du#DxxH~a_k*7^<6|Ieu(9&_B-l3 zQ&t@_GeHaV75r5yXI7Q9D3ldaRZ(p5c`LVWo?tT* z8n1+nI3|W#>_MfI#AqDg!QtZk3o*no!m%z_b6u~pHPv3L$}C^3XvIo13Xj(I9W{Uk zU!MpUx!L^T^>wxp`fFW~rG6#O1I~C*P!ns3U%bt==(fXa@<}-DUj;Pa-J4AvMbyV` zq3NT8^{-uT@~STQa|*lEgWIO>d=hZ4+N;evv~Efa=^d;U3_0<8PvqT~NMk$66K#t^ zOD(B$CdZl5lsiv$bgMc}W0dar^#;n|vtC62KpeFVoKS(Do5e7L9-?nz@Lj+osyN9)%b@1JyUpU-dcrzt(@{Ff@# zl34t~PhFXdZ$=smn6?mV%>6WdSF_KuWn0KA$AuG;IDi5^#TSXo-=sCapE|x@^O5s( zlNQ(bl0Mc_c_$oN2bGyKhyTXe=D(ucRIX(mTz9- zFts}uBeId73`BfgTIyWF!l{A4fie&23?E*3_Ud=fzGw5uR7%KZsUch!_l*TIlGb{A zkEEz($n7$l&+5XWcRs&r{SfR7Db)WZ$V%$)NyCN89G=HIvZT_lIdW|3(W(8u?!)j@ ziaw8X+1D|N71lB{$M1=3CDb^8^4KD7qe5af0H;l?E&bUrDv+Upemxpj`eKj4)t7{iV0b8nqgYTq%s zBvXgvxIBarvuee{Wqpm`9W#}d?{cUNn*vP`Hv7GS*y~@3b@zK)aM<+b=+uP6p)hbV zSZsyUZ}6AM^A+Nzg)4sSxW({fy|T;|46z(3>p;F?l19g0r#;kFp1F2q<@%Qg#Pi3U zIWm^vEoNsrli=+q5c<-+P3)wnJ{(ej}o>rv>JUV8`O(Kw& zOOIkrs7G!i1#g<+hyq>1fhNaFVG8U^)U0^QTO8SbP(lBuz!>64hf?V4u6=gFb08ZY zdDg=d%Yfk;>j$0!3(6T|sLTYDHSP6qX~^&Cnkdg^3+BX_H_jF@NrB#tK+NqD0mJ?6 zHev+@2&ew8P=F^_pnJY)zdcv=+UVQ^zT8#VKW!@?YkLj<@|;)3nU`1ljC;~M4>V4) zJf@%|b|%n;*)x=0Jp|6;nR@G4{(ax2L!p!u|Q7$#y*{jiUjM4jXKT z5%cOr=%{t{#AQjZ0v>CYmq_a1X5IvlWcGEJ4@m2pYS(@den+GuT~o4i#B;#C6bASSTCA=G zt;-xDlB=G&-!);Atn*g4#AwD3Oj|B?v$-Evwarp%zlEe)#?O~Yb>Af zQaUW(pXc)Zw+X5`K>He8;@m-rh^pD0Q&UGyV^y2guU@alb@aFp+|LYwml;aoe`){n z2*2ZAJ2AoizBkaMstz0x z6GZS(nOc4;`*myhz23;FJ}6=&UM7Z=D)EeD*rpCnSS z!v3)zX8X@nAATBM(mD`cIR5>`^0rf;RT#c?IdD*C1zd7qGVY4sDsFzhlmiXsmVB~D-8s+t z&nlT5-`i`+PeEWJWX*&zZ|w8qqSAJeIs;3Q< z>{r~h$4lY~PQKt;vY=2p9mNu;hi!;Q2w7qFn_)ouWb0LgY{R9+k8jv%Z=4s6ol*bT z(in?m50^{H14wgsS9=1^<73Ol3!>GjZ?0OFLc!|hROLmd#aA8~69lV;u;hLRw`-e1m0qt+E4`*U(=7#mr4@yFXI zwV-YiG$dT6HGcX{|yz_X)k zcob5;p{Vr1kz*a+Da-%n+jDujSn=iM)4ff-72CRtEMBi0{mHebcN*N_Ch*C-wm;IM zE)~bf%7jnaA$&i7r2h*ZCMVG3sNXSiX#D;RI(7M=Y3+4tRprm!jR7MGTS~Y2sr*i} z3R5F#a3{*u@tkG%&8b;mf9O+YfAd2sg4Q;yN1g4lv)0|Z!@C}QLK13#=ceeKsNGCd z&4PlS!C)WE@f5RywP>vvmFC4TGUo@g)+{=H;|T%to%7@G&jr$MIVXcUt5;|CZ&_YK#bTsq2jA0wx?|>}XqznG zR{CPS)=2KmS9a?Kdtt3Jk!+|K;(lU1*> zbi}2d4wfi)HUEST_a2E)?VWysy8G@7aE4p94T{dcw)@8auH)9FpexwRuh6;;FD!G* z;PweiS1BX!6&0RrMIP$vUuLWCL>IwV2|m?Hrd_JEsqRnC?OOKVHCKMxdu;9x?0tG$ z?r9v$bd~iok1TCwx`wIKQF_*OV93s~iz*@ga-ukiPnO zK{u6R&;UwQL(F_8&A#%>c;{_=8Q|`1_XjNOZgMzC5U1H4z$y^GQYtFR^2GXm)70v_ zE76%k@_6RZhP53J*42^24A9+r^et-f&x7$>Iq%@l^#88whwtY7r@5WIYOCXlE;ntl za%I|nL2VZ~gYyT)Z^r``{R94?ii__w(_N0u|w#y((t|93s^8 z7iZU>>#aABb`R>snL?Eps(r5ltnQm~Z=9++q@Gx*C{_LOX}Y?~KJ17ue;j|B|A`O2 zRB^W{#Tw9=^xDBzW!E~bH&>dQZ!ukSj}aM59QRJ#TDVx6{q9E0lz+F@6`K_-wAkRT z9pV*#XZ=<(*fg|ZdBRPSnw7WiU(IOXyWq0F`|Z-5{%?lP3l;jMr;~fS=5<;>m;L_t z=;qny?_K8)z69#zZ5euu6=aaKJ8*0{7$=~FgVU`(Q@?tR`fH?o{*f^^t+1oN=O6IX zY}Bja^wYO@a?ie;IsbFx-+TMgm*~E=qAKa|B7`ex%RW>&{Z1hBo5XEi(w0l;r=;&K zAty$2K`-ugo)!Fa%{*v1Jn6k?4q4`2+q-*Q_;cvW>bK#wwOWZ-NXY{n{JN`RA@GUy z-=Uy4K^C8ShS&CbK2f#IPgY(BGDL=-rTJz0~{Gs)Mpori{(7PQk-VOS}nrsfoSw> zxWvae1zIS(f{j?rRU+9H{PC}cYGJ7&F(Z``zgZq9Tu529p~J^VAHSKfNTlgY1V1Nk z#}%yOdzMML4SkWU%FY$P502w`gulUhCz%wXg?BwvC>qjmKlXC`*?QA?IcHH4BU>VpIST%<<7L|G1Cfa*i^gp z?I<|=2N+ms`f`wcr}?#9#z0y&Qf_nKVZ}`(xZdLLGUDHduaYPC7fS-wVv>*PSBE!i z8%C-u4eio8sHf8Ve)Y&E<*wdQ_220z=TuYq{&_-wU|+mztA6DVA`!~N9C{quzU;RA z&_>lg;4XRZkzX`#=<@0VvCA2L##BXiWY)Crmw%MrK~Ez|e;7gW*#M?He_q{TeLtOw zeLwni_DpB^_mP*Rf6N{jtUyH*{vTk8iJDNMdIJ2PRua_Jbf?eY^|GMwzRF#$IgW-5 zfiROake0&MEK@OmUD^BN8Zzwacl%f*>*h^iIDovnI)8IbsQzN_k!{}9yUn}-w*NE$ zz$fc8)t=9sYQLFvwcV<$jW4@jh5nE~3my91`hK(Q3k`MszjWijTyNkmZECUqMDv|o zd@V;E2O+H@K!8qlWAWI6!4@{e?(3yNaiBo-Gyib%2GE1*>xMr?_`roTi?w~3j!@E1 zUDn%*ZP<VV1s1s81DR)d3aH( z@j!p}rCS5`b)eGNX@`{xfSP@9?Cs@=M0<<9LO6|mB3J>RJ;#oIswanf zyt?(ZkquC#BmCWL>T>bF1ON&O0Fa&d7$MBXreOMN{j;~smE6?k@6Q$r;gWkdK^M2` z;rKv+YF0Q6K>78R!|}%~s&o@Vqqe7!OFv!8+qu~k+EY`do5S$|@ztNtZ*ny831&a+ zz5g8`K>zZ`2P%o(^HWm=2{y3yH(&jmo6iEH3jhF^B?0G@Yy1)Fm0cR!!Z@^_@azHe2}0r5i_ zJb?h}VfTPIAc5s`8ZDSdoDo<-NEDzDr+qEIDF((1SkwA9J2ZJKbNtP?@_^&P*?k5Q zkD5h$`JN3xf^a@WK71dd1`cDB*T-kGy5kIfsyusZ-S(TcjB(eK@5-;>)5c%l)|)zy zs-xS#5-0`6fuTkP_MzJs2GY*S4CMe)!tA2|&MYDvK~3*Er`A;--Nh>KZ^iMY;jgwp zL)mA+*YeZf&rv$V@Zh%m(%>GeHu5VOVHNVwSHj0VO&f2Md@ro?)(rnXP71#{7DOrF zH?2Mf5C~O`$chjOzu54^Be$cW2{B~meVX?WV?spLzZ^hH!}wl#@7_KYIC0MH#S2j0 zF?g#G*6{YN0@XmnRS~1jSo#gsyE5x{Nw8v9i&6q|Pc?4LGO`>n-` z!%t&9zfLY+9?~A%$Sd7n{WYH34wTDm=>t8O8aUsny74&sV?#^utnh${deD)MY_N5< zdWg_q$NSOOxMvc*uf}3Gd-z5I#H_#Fb!FaszWyG~6`#Ob=R$qORp6=><=yL7-sbuEH?60=r z=&#$dz>TW?9e=F#t9%X!D!DXEn%xdHENmRP^$+d|-YUFvptJtaUvViDkj?S^hfbtUpz!L~ngP8~ zf~Q)~Fnza=b+$#n+MW3XGKcKfoE5V7KnUrYY2l%THKmVeL;;hEiBPZ>3oRFfhD9Q6 z9PDf>?v%!1$se@;C>+*;YHgcD?AjD!ocI?(;Yx`qx3I zD1fBXES)SkwhoJVPZ0Y`?rwC%xnJwX zAX$T63AUuyzlpS$V2h}grB0o1PxQQr2jpx~kPSq@a0nbdI$pP4CXhtYQaxPP&^?-F zJkAan*9V^#n9vp{|12e|vB*<3DOL^{F)~tWbR|#AN@s%$f%t(Z+?rf3dY6%#qk0!= z@Ud`RBevQ);ukID8|WvSJ|ly8%NBDuU-vrfdHsL~%K;e>p+jZpxj>hN;4ITyZ?WZL zBzq)=is!=D=HX8KrAgaH)OsCG04htfb?>0n0sW|y*`S*kplw|y> znS6eUmX;nDwE*!-M|uRdeDimAk@hX|+!z|>oPda}M1s@$SCsoik>xfEZsK%h5j?1V z1_>Y&0znDLkfcj#Hkgdmg{Kl>>{p~vMU@fRB@k*SGzA5y#GW>hhJhACV_;51%p8T! zPt3=YKm)^|B^6Q#p?nFf;Eb6RObI<_xL69Qnn|^06lrDi+((ov6n!OO}Vyx?@-(|!z6Ft;z>({kX~a8%wDUBb}5VVsVnY*)Q{aso;BI`)BbAa4=nL9CCzF`WOs~vNY)qVD z0(b2YE@~%QYmY-VCa`2c&Oo(BZGzekM)XlleUuPPVJQp@h}K5I~GGPi2*aqn!w16pn#_ zmFQA=CQ4w;f?RB>l?$wj_JkmD3KTwCGcg63f)b~IFffS`O9D{(gk>30no21m&?uhS zs98;14%iXsEK09w03FfiC(=YBN*7!?Bce3myd=08Btn^xSu9m#&P4=nq6y&=qwbTa zWm+j+(GpY3QYEL+oCVUvC9kN{W*5z#QX6Q!onvjd5s#t9yY;z5)J zQV9S^i8&NGDX3h`6=Y`z*Pw%=S7u-=ICUg7Omh~EE}AXkWW(50mWg7jaOGVB6d{>|wTsIM7HW&_aW}UC8f~5Rx2z7qA zUD?Wm5OiwYl>4bx-9*!|Yi9>z8A7`D=?I%Ek(pz+JKHo}ymVA!F}Cd6QE?-D?2AHP z!og^^d{pOtR`ss1OEE04jD~r$5;2g5DV4qUA_(A}s7j*!2Ag|w{>I1?&DJ%Zgp5X9 z6~A9;Hy<#uqw`$Q7aV^VEzq4DQ}OhDlM3zJ@9Mey+&T#Dp~z~yg?|`5e9Usdzv8Kv zh&1_8n}!poyu1&akZ$d`gGz2HwHdVI;=`oydRg+T*k5<;2EHGU=DR9Ampd`nx^O|#^JOAhdmNZShDDO`oKv^D^+Y# zN$JYh*W9@4*jKshS0%qVxoB-vTvA{*&l?N-KGBF#c{iCn&lNSUQWB*r{91;EFc{2K zjV&;eY*}1T@Qp*Fx!LpVyyV)j_C=ZqfoM1F9G)M1(Gu1C?u=>G?&1GkMJyB2-Vt)% zy`!A_JKN3R1n#_w>KjuK-UHSQW0oS>t?8-I?Y-kcdsh;!U&i0)F= z{bRJPUW-YSw3tC0rp{o$dSf7cqWoO~qmYBP9|OFFY)J#iA8vT?xFhdCjqSa)tUW?+ z)G$370=7wz7h&7#`eoTzq&CMiL_mv%xe}DUOEBsW8=dRAxcDwc@F0H`kFm33OL9)r z;OoW5$hhk3j|(~El&bNx-N&lcLdJ_ajMKIhhvZ}1X$O`~o|+o{C66)^*pUjBEe3vB zyR5=a*$|UNWp|qry6~B!@aV?sCPACh1+M+@MBzvSE;Hq&9Xq0My7;V&W+6&kg|z5^ z7hbM9zeX$C=D^|cl{t;fHJ7~5I>pf>kwMfmu~NeV(=7abd8So0cKQ@LmJC@hk;i(B zyzv>hG={`lhNpvso--3M{Ey$HyxnzmpPG+kX~{;$GvJ5uyzEfASv*%Gade0@;~Qai z5fZy$hC0;3T#T)S73S=n%!nyd9J$2lKy3T5Ob9j@%oT!;cbwpdz!+3(*h(bD(b}Wg=1xyi^{7)70_0;O6Pv5078UiBsD#5w zxwXg-yq|xt(Wf2HZ8GAieS)njcj%)JG>z}pPo#wBdhwG1hfK3=xExp#B$ddSDe)3^ zHbH@Y6Q=@HmQ=5iXz~?Jd#v6}Y+lUShthbS=41EHrPfoLM0&$ufjZZ{UWyA7<2J{t zWnK%qT}EDoK^ziWVkz1_{y~z2x}y13_CQe)LZVpKI7^J^uQsX%6oZ4w)`(bh+Cd35oe>(A)5_3SGqGJ;;yefj8KV@H(Z{ZYuM0Q>)^l8K6Lyrt8Q(@G-AXAG9mMCG>~+h8Pt0aSvw7l`><+Y z$RV{Rn7|WJXaB3~yTvwoSy20+Dlf40_gW?IX_FwbnHuHC^|Vq_uuLU|Q&3=>!)2zJ z(8j?dI8D(QrWKq5tk;WBdj65SM1X<1l1D+#YEWv%UtI(^QjyGqUI#y{0u?nqy&v|M z=PofcQsY-Es# z-3j{Xe7cN7)rXC;34_t>qtObDg(=;+4KLz+X@)fW?DRnS6)LG~Ke;%*#6w=BdLJSV zov_+DQ5DB+P<`1>T^j>f^P~=64(uILR84HIcvERxZV|~39L?4AQC0ndjTKZIq950V zrBK->CwG^U_1WcY26S|qYx2z|s18mHk@Vw7I0Rfc_o$+-r_x_Xy4ThvoOk&U7_F&w=c52i0Y-krqZvCpH?tu<1I0>AWvjRb z7rM`8CK^*I3K7X>rjbI>AZbV7aigtlWA+qE#VNcg0-{h>4z7$W*dz7PkMMC$&WItH zB2)kdc8dbKZRbCf=k)3R=0gA@{IYuJGq^sVRx{aR7Hi(c#+5+C)c+HgUa39`GtT(^ zRRC;a3d-LBM`cZ{tkc?S*_rXIt;{)zmX1JRCY1}ebm}~5DH09>VzYKo9I6ini*$pp zZ|*4r)S9{a*Qu~j15OL)uqT);ez{)h}6^+lLg}_>%W*|^n5r#-LBue6J znG9K4i6HB9YPRDNGXru!1;y#z=xKnKm!2hpfvDG7TF6p0pf zO6*-DS)+uZXPF|2!HxFLNCt^qJUg(9Xl1i&`rNEds)4vJOPrJ{4yROELXU@bi~(n} z@!$kZ)9Fi;oU*B*v{+Ayvke{xj1nhAkyt>F6+{Y`l5hd`O%6b{)R6EG=F!ywpS+v4uj`X3iR2+JR5@1Kff~2wBWVdhDbyC6w4Pm1PJqXJ5)sVu+-vcb_a#1epn))zY~#gGwyw;}d|I z3yx+7ZRFx0aJsK0qg1<7H9mz{bB+|&8w35X-xmxZa9m~4oE^Nxev#0LSCYmJS^|S| zzu%`}s-jF_=76SZmMC)aaxefhBvE}x(k7@IIL%oM=D7@%$QIR{wO?t5Ks>SfqVP3A z&?LhQ6xUZ`Gc<{$7)95jVfB9zB*6vYeVm7pg)+jb{37Q$;*D^WBl!VSr`ShNbb zkgQbrcq1aA;J8|MP6#qWKo90Lo5C|&inL=%w6R=fYt8`{wMoli3+a1UmlxpTMz;xB zAa?(wt4=@JsDvPkllckBahWgqZEvR%rx+&>76Y%^cxSk28@FSm)}4Nd4C$S{-^!k< z)?G&*T*hj%PGLJXw?0aqb9<-+MbYh&np$NiMgT|TPl4%-ouWICoJsYmqbDoGD5_|7 znQ20VlKSX^Z&4KQ30L=Ue#QIG^d9n=OlPMw3@(Y_8guTpO?jjB?Yp%erdg(u#QrQg zkuv6QK5>JZt31_`MSMsS7fR+$?Op1;XmadAXB!t?q$)36ItNH>av2R&xUS&g=-9*Z z5y;Ut$?6dU8)=~=CosRvEmFIa?% z;>6Lk6u3GC95(}9LBciN(VbWhCnOYuX%)~l$l@oK+Q+^*n}s%YTJSlRc)d$pdhV$W zc`I>N@6P6wK#Xm+Sb)$ef<`*)Q}sa`^^cFo?J}jMv`S!3m^PmUgIqcj+Bl4zvlI|f zqUS0`rjB)=q;&(knIT!hIa4Q|qVPvhbO}2W+X2&TWI`8nSZ-F9){XN*WNT5TJnN!l zNKB&9!45nEb;yHmw1Y(mK#yHxUvQDkK~*u@CwZ-V%u@=Lt-yWHgxp*`uua;IYi_1$ zB|?-7i&Y&NnKaV0{hPAoa-iQ-V06p;+JqDVR>Cg{XQO-d7&JMx2UO~w(dMVv)SA%Q`lC`U>% z0k-K$14>6COHtYx?PFz|V^~j72&bB_JN-E*JDVlNBp zNw)8;iX_!Lbh8J}X1#uo{pgxE2rXSDE#*bhPkLimlBsznM8PJllZ2Nt?6JKuoyn7T2`kUg-bKE1EwH>C1#~1%)nM6u0_J~kt#QX zRz(bfeex=AqnaB|F`KA4(yUU?U3V}ro3P=V1NXE8sc_Q4j8gi}o=!u5$@x3>z@Sp~ zOMhysHnx&;5#xm;49w}F6U!>w@4RsfZm#~E%&IWWND?*TWNfFx z#Hc1ZOPp{VUsX@ho_bY;!q@lxp|3r5wISH|{SNV3OKX>#D@sX_4oZU{iTQ8JgK1KD zrD#zK(Tu$vz|pW0foyQv(oaaLYf(yy1mUnWO^j|iHRSwi8=Vr43R;|1CL{=Wj{0Dc z@Ni?hZZoy6u38Bh7mk@N5=bG@j7VcAnVBSHe{^3qF~q7m%VCv2VN;rO5ksw2SByVBVbawRk$%Lp94p1&oQGjl{ za;1$XTU^sLMllWkh=f@bZZF#=V&A-c!Gbc@EF)glTy37XY}}FZaj!uTVSs4!S5z6j)797 zzUJi-3ca~${}F@hT_{J$u@L$K-|*Q@68PuKOZ-gbh~iXssQ6nmi ztDc5<#v@B=sb!+vULngWzm4NQ8jC4aO=SITdHn6-5cOw>53WS})E)Nn_5{ct=M(+7 z0=N&W&)`YT=l)(GOrb8&+*pUX?u-XTSuoQH3Ycw7ePb;um}*C<`fsG>Hl%p_Z&0Dm z>8mgK=h-xGwD*XPI^ZuAEmIPMLcJ#gWDlnn4GH|09k8ojtmV8qiDt)0LH8&=>*aM? zE-8o{GnB974q8-lc~$a~sv-9B{v>svO$0?vcCpB8NKR*aW)?RxyrGNksWFuQwS5PV zO1>BqKh#DdD0?36To^;;&f(v^%dUl2EUuRD*ySD(DVH1E)>Q|dNQM`57|7@H0RI@u z6ypCA-ocBB@MC3l~E@A%FFyw$t( zUs6@Q#$EqTO0!y8lvBv_WKfD_v@i$+&gy|P2pOag@(MW9wGAIm2K0?v^iq6&ys_L8 zM8%RoJ+7q4vG`M1j-zvZv(XAjq(Kj(Q8W*@mi^g-2y(rr`tkWl2@qULA7YU<@(Pt4 z{7tv?+cmXyDq1Y{dwR8iX2cxEsLDhMp8hLMj#lN1US5SKMb9@wODe+9gW^4eZ@SRf z&fVJKsOdvsVLC;6fBV7fgSM}0qxq^jz0b63rty#2e%%Z`wRtkMXSqoA2;4z({v_>U z_VeX7Qu^7^Cwn`u9;@nTGK6*m^%+-y~{{QoUQ7#fKvr3*iCj zl!|XTOCNHpH+yB08`Ek%O3`_hj+4>sb1+gCs|hpE0Jrne6_8bbIlI1ljcs+uwEoEy zk}`<HrbevBz#d0< zWK>vcwkzI<0>K(5>$#jripa_e4$|KVURw-r_v9xJDQ+tzwYyM_`@w(wI_#1C7)A#( z(aY1KBA@F+9vsfUCX%@8&uvmG2*`+v-VMU z&-Jy-xvQ@3fE$h#tCbR=6hQ1AbKfW-f;IAM0UwK7@1B3VC+oRHt+c#s ztB?_5dq*BsE&J~v+4sAm4w0SfRu-_K*Nj6>?}qO7(3Qaz3SEpa*9G6`gw9KXR5sV{ za~2=0^%#%6`RO&I-iI5nNHtn>nW(dEi=18W-$V2~EQlP~Q{sJ7|X?P)iwIq zR%M!yZttHn*T%p?*}(R{nA=QTKOoRgfui6SdU%KTr>Rae_x$~$TF>3T)5}h0y=HjT z#o(X?*g9Zh5-4W?02lC*sMg9}$(nI0s4+MjKGY>#_dWlCQ>(kS9$r&t_h_7spHO{>PR)LKyjAfoe!rHh88E?4#gJuVWXh zpp$wv)RpFs&<`j{Xdx3a0cITQwUNrv>tlXCiLS-@Sq8LDX|?V}rWjiC&X^Mk4O)s= z_!tIWCxsbqM6OhJfja3Q2KUXX->M5aB~;{Aa5*;2y1I=^burg|{Sc3fwxmvI_K)Uo z<@8fecamG})BQzW#k*aO$-_924) zq)OEiw^G>qDGRyPxvtH^i}@ZUzOrA8wC7-eN6Z{~>#OWxA}K#Vw~g z$N6Pd&n;i#s#|F0g|V|CCY1qppt~<*Uh(9`xGbyVx7I^-ERn2O4FQ_?=-v4>Vf*## z+}OzO5k@R1CXD(QJLm==pQb-V)~P3KO81>Ro92r`SWplt>EYhpwANU{F#YiUOXYFh zsILmUy4dFepL04SYbPAnezQt_OYsEN=R{pzl*uW+i28nh!*t*$+C6!FUtrmW;JHlM z<@-fr32-Si$f=ea<8F-osNCqkFD(6GGXJh1Q}TQ6Te2^VFDfj`-qZ6JKMMXTLvO5P zfzrstyw!8tunjI z%1kBh{QpBwbVi|KGW@`caBEo&Qb)sioNFqv0weV@E%XbleHdI96>dr=z~> z-RZZs*yZvwy0RgIm+;tLr65urAnlEq_9AyZHFx+?2xV;fXSvp{iSf|ife$_@QQwZx z>bw!R12EzDs#Qrukn{wXtfn70GJ1VHs$hBZm(`z6;xRO@F`=a+(wUw&Z5tDZvE8X;bV8@E*_=R5>n-qO~zs# zX5LFq#1D0fu0YYlWrYr<4Idu`n&iB@dE%vvrp2y(#dWWsLk&8+GOf>}?uuf;Dtn+i z9m#PP3=I;NN=KTemratWCZSgDP)1WeNzTFBny89`CQH~iy0f~uWVyL$(qP=6IZRbK z$V5eyz9LFN(cgS=Z?SeuhIHKUUvO}ioymI3=~hQook@9&M6M5tpkt}RGM~p{F8Io4 z-Pbw?=Kj3esDuu$$=$DKHZCqMQRl@*Z7PkmN8xpn6*x!zw@qi0D5cN5kmY&kVa=}3 zFDk2=r6E>FCsAk$VWgsq14IoyX9q>0S7zOeq!Q`enW}m8LD6<_)T&e@q{LLqoeQ|2 z`Co*KfDw;|NGp;7y;6s7^WY4fO zX-OcUZcb-#Q7ZcHgSW)h>gA*H0l8eygA(pX@|FQS4Q#V^Ft9U)kw838U(q0h&c0~G zh9{nYor9OSXogOcm$#U=JPMqqq@K>Jm%%fy$}XXsEv5l#0+rB%vNeGjx>3oakZ92& zho~%Nh&q^7T(5sHlCHGTnO2=}4u^BFF2YpHODCGyd$JqM zIx58;*T1A6b$X=!V|;nti>8}f*?gMqch6&%)9!fcx2#kwZl+HJ5d-JBQlpV_;<9y8O!B3Pt z$mvf?r550#s4A)fU0PYY)^Ia-*$QjrNd?>Ba*RObx)|sRB5qX?`JmCU`@T-)%?Qk{ z!eVN-!*a9!Y?df&?e^)Gv0uy(Ol)1nQXvRe> zS|>~NSt>L7>h#S96;;$(KCF8Ck9D|aYI$N?CXsQ?<{8^?BnF-62=keX^!e$@H>Bsn z67!;8U~q)zqoo;H6Y(Cm*zjBX@RPODdLm5s{_!lPIc984+)Mz1UU17=ldMGWl+c;+!`CEX=q2YD5y=j5|*=kjv3HQCy=)l9z^)tv94>maBxwkPmuN<{w!P_!Ezz?x9 z3}#9H4Yp+a^QUy*pi7N21z}8^zClH1=)>0_*7<({EGyI0qB(Bi3n>~A-`Qm&N|uOi zp}juvb(Fe!9-Jqk5d0rQD0(wjD5t?va~0o}KE{(1DR^M-B;iI1IZCcsMb5gax)*Gj zd~})JyD_LX+gVjL(nU?RX3G$0Ezy#gZY+QVZ17S6LS=DEWHcN?tUJ?o))W-0oL^j|g_+?W!DZvB@-|#Vr?LT2Z_&3a2DT zr>J<>QcH~r*QUO5?uht$<$>6_6=ckjnhV}2zjBwRl0B#$${a#o$JL~|6)z%HZ-j|& z%I?th7fvQ%o*@rVQS~Kt6?c1;jLo*1*0wa(rb@I-O*W$}ty@}8cDg7&l_}*a9i+YY z%WjhQ{=4UIpPV>d`k{0{?srsa*9Ah~gh;t3h^ff0JSpaTXv=M;kYw5; zX&W>v3firk{79+YQ1?(<5jRCwi+QTltHPGzlqZYc);7sc4CcmQSZ!Hm(G(jY7F?|z zX*7|ou-Rd=Yu^cF^}ojjJy-Ty)%zYfpN`|>e15)BSEWl8i4$o_u~lqNdDJ*6%1NOZ zs;s5aOO%ceN-1^fK2EDF==Cd-Pf3-Cdotv-P^$ZGKC^;RLqx zl#c!3{0EZjqPJB&PU4HtcB^dpxzR~ev^;p7_=(3nsm*dXxJt~;@=Ji^CpA%V-kbPt zW^o*<8>4b=-8fT$a>;UJ;&J4V;?+{FJU1$C9@Z;(^rh#V%Ab4~D2x zeOHi|gW0MSo;u-Vs||p$sA}4*+6zd+We=lLywOwZh_29=q@ec@@+fzs0WRQjlg|`B zSyJgx`1Djuol<#lMJ-4~wILGukf@g>DRT;B9A#Ycr4!|md#I0KRpdj(BG_ayvkjox zZB3P_mKpGZIVwg%J8Iu|z7A1a)mPJ`zweY@)G69Qs?1pty1YX9gia-V;aAUxWTq2T z)5@xFmyD?Fhon7ti{?=uGD!BoeF9%)NP9I!PoGsaQF19c#a(nKeyVk)S6pxL6=Dko zRw9^Z2%xuwcTz55QtGNs$eYC;2~~LTMJ^RdSUZ%E?WqO0O&% zNZ{mANyH`Vz;sHzik*b4pP;G5Bg`Z29}+#8DeTI$k?^FQr4@J8&rtJkPmeSIS**Oz zYq!CQN%E*KS}Mf_UDYWP^Z9-klH;>YHu(QCQu8XicH;LF#Z6*XCQYW=ixT}^DQr8@ z83WaYl&I|yDLf)CX(ia14Nz(eZ6BhQPK6E%U64IQtgUSp_HK|UU0XXOVz(;M#haFuSQUPV>E!Pl<5%RH}3 z@$ul0{AL-=29>ON(`~A)wgqi1%PQS$G$xBy=C-yJ_YaIH@w)u2=%~IfO=TluHZuyf zFGFl{?k6VYz_(O4W^->UdNhF7>mo zeMedgqOIbaO%xkiydxU)_q^;TqzP?eq6uSK%b+PC2a;k0-prP$i5eT%wOiflYLY3o z&9=29-O+5jwMR3BJGC>!`*~y(+ghw(+&bqgS2HNxfS3F$QHB zs#eoYy|<>>b#1T;mPy1qfjmp9BP8NNu$>~vK zp^0T#SuGcf$|ESB_17eP_ECF$$CMP8g9Ma>m?$|qk>YOa3Rj?Go&#a+0zECS0V zO9@P6Oxfv#^UyjdE8~*3O17w+YVpFNUPwo$yY&;HF4aS(nNfK+wDR@k=6ptNn`XWP zZ#Q?!ZRiwwG^@0wdcS|a>%G^u+W4Hg?vIY!*ZOJ|}uD(uLtP|KRF zs#By#0dZ$SU1XlQRaU1fx6RY?d#=UvT-7U`DbWgPBb<&oQn;1QD&@`xEEde>a!)Qr zJ+Fonh(9s%s)Z*#LaSA%XkEGBD*E7iupN)7MLL{$J#Cq_m~>F-4)*eqbdVN6Fp^CO zR@&zb5foJwL~C{^=~Oz7*JHHVblnPWnTW7hfXO0=g2{9ZlO&T&$p~`*gx8WrafHR? zB+-xra77{Gb}j3=O;l-_D%B#Vt7LAr6<~|fLdtMba3teN%&tn2z9o9djzp!kMA{O$ zECk9dima?l&I0(5icb+ks#NT!Zk&z-r4h@}LA6osAc|j#m0Bt;daJ+PySnjo+Sc9A zce`xslcxmZtyN6Pt1>CZ)T3NelqOA;N++a(wj!}rY>@WC=`@vHvQq8{a4W4!wvrPUwaSZPsH*DL(lMqJCQC$!Z#7BIRbkBN9Wh!`XEy^^n!Mf$(M8vG zrXnJnc?Uf4qO4lfT;&!BHoTxqw%G~=o#kuAh%0Laqf`-$R;JfCn|WHT(iYokw_C8D zEYTacij!*aHEk5lRisxP-PNmI8j5nljkbw!u9zmr-?<(uSF=nV||qiYZpjtY)U0R>;y*Ycx{n zaRJu}qb6v!gAO3-4wV;GQv@*R66QnVS-G37JvJCew08N;s|u9Bi$V7OAC1GFu7F zDq^pZP~lZ8bQbX&=9UPsFH;m(1sX}@?Fw|II+Yx7iuL542~|ne4y9q7O7a88PNhlQ zcj`psk&>U^``)ADdwu(6wWpo)oU7D&oPw`Mx3O&9V=FZUwu$iuE43YGTWm$OHHEWj zv}<4@VFP4rH46#M&M`rPA!b8rK4Q6}P*Fy=uGX(#FxZZ|qPxC~gCpkT_m%L^5=-pV zv?XqBjR8i7}c*%Y@z5&xOj;LD>g;d^3xx?bcTpNJ&xcZDxPtx$}E*R6ZK7N(V!~=#R_#~z8eFRhP0vZFxm0j4Yu|j&P6>OZzvQeq$ z6*#Wc7b?nmoF|M6L71WUP?yO{l%6_8$vl@bCuK@-C0u-JrQ}psL{~jsG}_vmktV55 z4pJvM5z2CnI9r|7U6MypS9kEe*|ss3B$1@al+ta8ShFmm(n)BDrD<%atXSBK6q`a3 zj9D@oDoCRk0ZT=&8lz@t#A8tvj8+Y^O;Mu8DmIK`Bo@Z46-Ke5(=o7-ix$xstU;|K zB$HyJQ8l2AF%2P^EXkSzFw;UNW-X0kHVI6GSutueDw2}ZG^7neQex325kRO>NlRp* z8fKW(ltn}Zh_YK`ikU?g(=`@0w#wR+C0Q*dDoh$RlVHU}P+HNdNmN>Cg|;oDShmGu zRYj=P0fS>Esw-r)WHlicjbhr8$+IR#ltj_C0&TNW*|eKft5F-os(iEYsW=I2Rb6_!6=+pkA?oCM$t$cW)}p$}NN}zN3U_Kt9HB=wQKFqF$Y{ZLUkypo zN_dZW@3kuuwFa(17C___@xD{RZMTz_--qUW6~ilz+-;Mqe2#Skq?{vNY1^u!n`-7x zD;r@eERba;Lw&ukCbC*WOaS3qI8d$H+6>%eRb-2XwV1sG@M|M66SVu(MM_ zxwKVi*4j<9YQ=0D32bh0OQ%j$Z8nC{(^HxoD`+;AnKn~s<`$Dmw>6_{Z%x*qwr@4% zXz^TWTE%UTP0N-!yR{~yBUbInTjvW~H<~gFhDfHcQp`=LJFyjWLaDQ5HkE6YwzQ_& ztwj`O39&MQ=7g<^Y^JIdpPNUGWIfgGj;KqpOUp>_sueC|muH6QE2J-D1XATyS7VQG zBJF1c1BUJ6cC1Fa`i5lg+=_^Z#=>Aths z>xOR2*lz49E~2Xx(?+bfoStzQJ$D>^2}{sQ_^5^tR;y6#H58jsb35oB!n?ITtfHNJ zGJkCpx}fe*S424yJZ~CTp$@e;4x&}x1>0=Q)?-^{HMF3jW|Kmc(Fs{F87fAZCXmR) zv?+x|V@M)XERh+6p`n?BGbTw9BR~j)MIvb=nXv?tSpX3g5w?toH4$hlSg6sclB6KD zNm49K!a^|=q{9grL}LoYjkQQfqLRQGAln!$T0q!R4I4!iS}8CXBVM#0%qP=ogD5T|`~Wm>yL_FEgYo z)+tDr$%?u}yDqG$Rp-QWR8Hg(OMHdwV0(YW2=TtX2gR2qFIcYx9FNblRnAFdiu;KHRB$@l|_by_LRzx$k3Cy)q|;Pu=-GZ;$IU%Dj(DUKp#T zN!?Vi9;)rsH3n0}p_Ck`zO-ov*F`VB`hK62&Gx+eE!XTh+w8oOhx1-=pJ65L0(^>; z{8X2}5Y-iT6)+>TlIQ5pB7+6RJsl2Wye;d3kvI4BuxC$AhmlPZt$xm9pDe z7Ie8b){91?My(f?j<(g?ZOyK3war@PYnIehM9nqODr*s~t8CU}Mr19?GZ@&dMU*55 zn_@3YtJ2h5Yze4Ih#JcZB)KPvt6$z#qDd5i@pxI7qF!~h`SM0+Z6L^r<4)O zsV|1AUL8YQ7WKC{SCJh78veE^jthk%3Q^G~4!ON#J~8T2&`My|kw^%N&K(9=Xru-q z6}YqCTQWo;ttk#!tCNo&X!$zkTm*&EHEfdeOMN^FvbWw&(myc$oU}LRjqT8^gPM@x zeiM!+yJNtP+>23*Z?9spf`bW57K9mN3N$}K;E*mcaEL8ImCGDB+E<~`g}M$G7;inp zufiDkb4Fvk`B&x?&laqK^V;#!0hajopHas3S?i4zd^-q>PG#%QrdB=keb(|3RVx){ zOhb04m%$+E0tc z*;=8rZB+i|75{&yM|l|)8Sc+KWJzqR)O-l>v2=Bi*1*`RjZ`7PF_xHah#WI1uhW|I zk6(oj-&=EO&6S6;;yVFN8Tj$lk>-(`##jjTC!skS)ZVDkkACb9A*&?|M#0st?bv&r zhZ{ZyNw`HPdO-B2V@$Rb-%03fz52w|`cI%h`GiROqQj#&Rg?*BZ$gJ4iJ%o3~mlxS~A5g#4dgI z64%WQ=6XaaCh`apt#&uOOxWcXthGJPbB}&Sq9jSOM==Sb?w~aftCE>(Qgj;(%82M2^+R-10eP87O!BtwLh&zd(QHm9E*?6kvoWW zMYd3YyixX=l{myBD#qTJ1EV6d%^3B&cM>}tk`7x$?#T0xs5lJ-T{xw+xi#lUI$#zU zpUruO-q556VdiNNi>lBYGJ1+D@&3En;tT_dpDG>$FEAH<0&bg41E0`pzFoQoX<>w0 ztu2^F-r~q0YHk%oTpq&2&bub`x8?VH zhsz`Ni19zsFz0`Q!?!QyEFSv`|9dAbc($yD{ryEdI3JNdWJ)s2LHJ}`Vl@5NqMTeH zlxfRUn|+d=SK51KW?mUhNzxtTCdtMwf|eBcGZy5; z(7-A(++s*6vlQ`$bj0RZ`H2=y($eP67@B;+yc!g;m(|(MTBB7OJ8Tc3Wm+J7dn?WT zT>DXtw)S2urKCmeBv35+?;oMFpsXv1DMrwb5$a){r%U0|##G}(tR->IUF z5vn^|9WzzYN`uO}B~%l6Jm zJ=A{CC{64Asy5~=YORVtgeZcD#C~;cQxBS+WWlEtoiMx4FHhsc;t8&0+26&U7_&Q_poRZ}oY5Ibgzu{?!g!LXZ!sG^uX z$+WP?ZfH1Y*2!fh4nMPA&472o)TG-Ce-Vgl-{Fw^B6Q3uOc+pW(V{Z}H-2kxvxQb~ z%ch6Sy54lJM#By4@5jyFbFho168rIGjsYu72jl%N*URr>(1#T(-@hUZuYYX z4Gf{Y_DA!KFxUgk8Tv07n3~P5Ru!5QL!3Z4fbyZt9?Xp5<(p8h;$3gkW_QY0h9{<;-6R?Ma z_ucqe%S4S~KVP`vz!vPGLFEyPNhBQEUiB?|IyFk-wrDNnal)3z7sWn=Mw{j_Bx1TX z5vfy7f%B74+GJ=E1VID5A+Yc%79Ft@JOVI}Q(5=uZOCih21||q`7Zy=L!Z(^ z0dKWO)47c%@6R6U5RmbNeK$!sK^AEa( z1(9vh9Zy4L@_LtX?(tI(kA#?5K?d3GHTltzc}%tg)MxMWEz0+`Ow@L3Jc$wP`ICfl zTy|j7?U+BCSl#Vd3VTptS{qk+32#$(j7a?#P}P!UC-1#KXX7&L>JSCGDh;A-pLdW=sg? z7YyRi1{qbax+M3$t_@kFG*$duw8tzDxpM4Am%V9CMX0Pyk-== zHE1n?gM}l|LQKOc0k3Z!`y93%VMDf>KrX`5i-Q&SW`Di-329cnznrWV<#fn&)8=eLZx3PV5EqCX zwFrE&KhG-_*mEY{lIGV3Q(uCBD%MzjXt3VtrtgRp)`l1(wee8EeVM~7GK|RXi(~p7 zMcDE&C^tEISnbfle%btd`tHHdN$ID0WtLk5+;&vrEk5F30|x^#JpWso|J{kL!;h+1 zax~SW$hF`&9l;-mU5&(NkZBxu{CyF9cqtGdY%GdfbEZLK)`r%&3{1LExF*`b_C%O{Ny*O_$!Um zs>=+ltZxDs2eDz>b7^+QvNnfoWkEym3k|_xGuPQvkRyAR?cYKIyNmnu5SJod+%=L& z%}O~a3hdf;8I};ez(diNg4CIj#`+##haJ5iVd*1gM;w8UV*SiG+MhhN1%^Qyu5Z5V zU|=&ixJj(;iuvSS=$F?bRVIliAbBcIGRqEpzw%je1VPCo1=R$HT*1Vl$%%j;DT*p3 zngEwH@w&!szaOdwftkS&1YJA8Tz{hzrAdDC(MoPf$Ix0TryLs`EO;3<$2wo*C2o`h zl15G4<@pH`byIgd%e$;@X*-)3O5&=x6)~iOQCkxL)4kH7WXP&FN#Y7{zjb1|HY=X0 zQZ$f=_+5nM4Jn{D1)lQ2=w!}^Q;r|7N1r!*;<1p$aD|r4cL0{) zC7G`AUKsqH&nmleK;?5(yB6;~6z3)~!AR4S2$1UBBhi#V*W=Ek8NVI1X4r0&0O zpp>lU8$5|x^^>5`TJGvP<4B1kwJ`P_-4u8!@i1*%WX|72_h3q`wz9VwbfG(RhvVbR z3a=_+sSMmNSoQ{_$y&u?NSTqR;VDf5Xa!!(lzgpg0L&Tam?l7+H3tp^w*+F7b~P<2 zQirp~!NQ6K>E#&6B1w4!K^l^IsKUj}aYTwfKLeq=AynFIoFX&|A}~F9uL2R4%|r4^ zsSSY=2I-Lxf7~dI z*m^jUil}<1d-PEn4jKM_8mLA#zj*e}9i=@B`Z4S!VBI}F@le^fZ$Y&u<@fOoK~fH% zXJ$?%jZ{SC_g$hoG@td|Z3qZw(p{f{s`tLSy(K)WSxyB6WAUi{84HwK#Lqdhmc;p$ z;rW&4*{Gk6mswwGW(mJWvM$)7QC2XkmG3=(>( zk^zyR7$$%KG|(ocQ9wOS8fX9j05JlRsWbwaHjJRi$i!nv^*yR})ebIhUE~!jhCqdS zyHzV;Cl9Wwgl9Jk`sM$0PRB=w^Td* zF%hv!R9hy3L4^rHWWp(_3N|g0BSk|j8iK@8h{YuoQDJ5_#gHl@DFrN~X-Hv#n2?zg z86vS_jT>V^WW~If4i!*q5*3jRtYpEkRhwF^lGrHOK-#vb*+Xg~yHm<^<{RFQQ1Oqdj!B-%?Mf`R~wktHc4qi8Wquw-OyM#k7JqT4cv(Y7>zQdrbPRA{JVSfbdY z8c4ySNZZ(2{JXl-VsIp)5jdSh8U@B8^0vBT^d@nk6=p ziXe$dC>WrIVMYc}gb-|`l#Fa-vt-f=ktUK^u}O%UVMa6+6fBXAvq`8(v<)y)X&P;W zL?M)BG@>AjB8x(6MzDlZS_(8-1kq4glQT7mOhgctDK@}p*v&SI3{@hFL_tY1MAAZ* zMInqL8$?M^q8g16A_*y^Fv8JBf=!SzYY}56vKT~6YBWR?VVX8HmV{ZWCQ49}v9Ym4 zNL3nxW*Wwb(<5pzV_2#&wHBjmMHaXkT#LAu`QyTL1u-tY>kbj8lpC& z+ZAJL6k@9(Gg!r7r4nRo0Yq&PWYQTLAyO1VSfWHSP+>$^*v%M`G-DQNMJ6#(YAq%} zLYPreV1)s+B7|UOkYPlUjFceAh_V|Pvc%F&5SUUjBxEU>8ZbpnX2{Ad0!>RuV@X6} zDK(I>X*6w_v9VS(QEDv}5)}pvgp`n&nFypotZFb&P}U$BqQzj*s*M{E$}F1|n=D#D zwTx&oXxOb4qQBGgtj2^NiG8cMK)S}aMZ!J^tRwHg#zB*MjH2!ND? zgp*<{lwwU3f=Z1gn$a4gCb3$hXx6HYRf}s_v}q(!hRtLqXf{n5ttE_D#i)a1m?om4 zHLlvK=Oi%F{$v22+WG@{!DLQtA2G6fjal4OAalFBSbjYQK0 zv}{yriZ<14#pdI3+)zav=tQd0rAss-h`E1ip&UAV`iK=h%Ap-8P>u>wSFn`3u?2oe zCXrR;$-O==qew=@vXQc;(3P;GWetM1ifoHwn^hYmwk2C2n?l((184(kDX=ZIv1l>0 zT8&UzBN(k41&y((X4xwtkZ8n>C`8D^6f_kY5sX4pQC3WqjAfCMz?B-Pu`(@^lS!;? z84wF3SldS0G!+tU6lyIYtrjg6MXY05Eg_<5kc@`FiA9@aiy15#Flb8CDoE0nra;|$XgK`Bn_%t3Z})iLfG1fO^TM)v~4EJ(%7vQi71kisW!>A8j37f3ZjJ! z!p5R3mMSc5GLvjo8y29oW)&FHQ6@2C5)p$&D6$o!V`EkzHH4#4v~7|qHDb|JZ5r67 zi4=e)P=b<0GE62|FqpwJWYT8A5@?XhT42j5FciSaHH3{ApvIU>Gfc6drV$c^h?ufa z#+D>h86}JuG9V*LlEq08l7eB9rcyE*N@z?&5}_!-Xq3%~36=!Y11Tt?V-YBfl8rKg zC@70!ikNCC1p^@@l8^$5MI{zQu#Ga5ED%zGWQ5aAfQ(X*7DPp{RthZ#AcIa8$)QelQg2(BDPCygJ6m*R*OXhRAW(M#?h==+HGu>(QPQ3M7Ac! zH!nVStpxvm`>6;A7uf{(e!oAD&*jwe^QlE$&RGQXy$*0hdY^9+1x~kms7KSM1eVHE zVhT1W+7+@JOl_)3vWTdo88s19V`(hHD`Kd&jcja&iyACOw3=bCN^Pub8j!OlVA(OP z7`81aN*cvXFa&5OW;C>xDmIJ&iA<&`n?a3j7Qt3Uie^Mwjj^$8!humHk%^6on;S8- z&9_1j49_uRS3?vF5dsm#m<6obGlr5ovKkzeygQImtyKl4$p9c_F@q`AMXU* zh7e*HVM19Y87SE^Bu$o*)MjE~P{N`rNQoswg0WcJVA&Me68Sk@z1B8e!ZqN3S0WUyeCDrOcM8Wc?-Wf4W0gaj;A5k;hn5<(_Y zkfTO16|qJPMU7=hG?FxF4Pu0nSlH7dV#YHDN?|iL!a`6*B$UmP!bXj#B7oX0fV5F) zwlYysY-%)YL8}_0MYSs|(Gi$TYKGNpn-x~j*+sPth_gnvsMUB$6m8N{OjhB^qg~8Iw{oY;9DLs1s=_LqUzADk~dGSV9J7 zY#PC2wHnseD%#0rDKIwCSk;VFYbz33ER;lP3L|2%ic-w1Nl20y)G)>kp{BtyF`_k; zGG-LTjD<2|1e*$CGGkV=XxUpLHW9H?X-k>MT)o{KuDFUBC_KBnb9Hp}{_Y7wX+xq= P|BJaIoG3^if*R}qf;^Lz diff --git a/examples/add-lines.R b/examples/add-lines.R index 734ff3b..77eec94 100644 --- a/examples/add-lines.R +++ b/examples/add-lines.R @@ -2,34 +2,38 @@ library(apexcharter) # On a column chart -apex( - data = table(unhcr_popstats_2017$continent_residence), - aes(Var1, Freq), - "column" -) %>% - add_hline(value = 2100) +unhcr_ts %>% + subset(year == 2017 & population_type == "Asylum-seekers") %>% + apex( + aes(continent_origin, n), + "column" + ) %>% + add_hline(value = 5e5) # On a scatter chart apex( - data = iris, - aes(Sepal.Length, Sepal.Width), + data = cars, + aes(speed, dist), "scatter" -) %>% - add_hline(value = mean(iris$Sepal.Width)) %>% - add_vline(value = mean(iris$Sepal.Length)) +) %>% + add_hline(value = mean(cars$dist)) %>% + add_vline(value = mean(cars$speed)) # With labels apex( - data = iris, - aes(Sepal.Length, Sepal.Width), + data = cars, + aes(speed, dist), "scatter" -) %>% +) %>% add_hline( - value = mean(iris$Sepal.Width), - label = "Mean of Sepal.Width" - ) %>% + value = mean(cars$dist), + label = "Mean of dist" + ) %>% add_vline( - value = mean(iris$Sepal.Length), - label = "Mean of Sepal.Length" + value = mean(cars$speed), + label = label( + text = "Mean of speed", + borderColor = "red" + ) ) diff --git a/man/add-vh-lines.Rd b/man/add-vh-lines.Rd index 35ed9c0..7e1ec4b 100644 --- a/man/add-vh-lines.Rd +++ b/man/add-vh-lines.Rd @@ -38,35 +38,39 @@ Add horizontal or vertical line library(apexcharter) # On a column chart -apex( - data = table(unhcr_popstats_2017$continent_residence), - aes(Var1, Freq), - "column" -) \%>\% - add_hline(value = 2100) +unhcr_ts \%>\% + subset(year == 2017 & population_type == "Asylum-seekers") \%>\% + apex( + aes(continent_origin, n), + "column" + ) \%>\% + add_hline(value = 5e5) # On a scatter chart apex( - data = iris, - aes(Sepal.Length, Sepal.Width), + data = cars, + aes(speed, dist), "scatter" -) \%>\% - add_hline(value = mean(iris$Sepal.Width)) \%>\% - add_vline(value = mean(iris$Sepal.Length)) +) \%>\% + add_hline(value = mean(cars$dist)) \%>\% + add_vline(value = mean(cars$speed)) # With labels apex( - data = iris, - aes(Sepal.Length, Sepal.Width), + data = cars, + aes(speed, dist), "scatter" -) \%>\% +) \%>\% add_hline( - value = mean(iris$Sepal.Width), - label = "Mean of Sepal.Width" - ) \%>\% + value = mean(cars$dist), + label = "Mean of dist" + ) \%>\% add_vline( - value = mean(iris$Sepal.Length), - label = "Mean of Sepal.Length" + value = mean(cars$speed), + label = label( + text = "Mean of speed", + borderColor = "red" + ) ) } diff --git a/man/unhcr_popstats_2017.Rd b/man/unhcr_popstats_2017.Rd deleted file mode 100644 index b953aba..0000000 --- a/man/unhcr_popstats_2017.Rd +++ /dev/null @@ -1,28 +0,0 @@ -% Generated by roxygen2: do not edit by hand -% Please edit documentation in R/data.R -\docType{data} -\name{unhcr_popstats_2017} -\alias{unhcr_popstats_2017} -\title{UNHCR data for 2017} -\format{ -A data frame with 11237 observations and the following 6 variables: -\describe{ -\item{\code{country_origin}}{Country of origin of population} -\item{\code{country_residence}}{Country / territory of asylum/residence of population} -\item{\code{population_type}}{Populations of concern : Refugees, Asylum-seekers, Internally displaced persons (IDPs), Returned refugees, -Returned IDPs, Stateless persons, Others of concern.} -\item{\code{value}}{Number of people concerned} -\item{\code{continent_residence}}{Continent of origin of population} -\item{\code{continent_origin}}{Continent of residence of population} -} -} -\source{ -UNHCR (The UN Refugee Agency) (\url{https://www.unhcr.org/}) -} -\usage{ -unhcr_popstats_2017 -} -\description{ -The dataset contains data about UNHCR's populations of concern for the year 2017. -} -\keyword{datasets}