effects/0000755000176200001440000000000015145003163011667 5ustar liggesuserseffects/tests/0000755000176200001440000000000015132433422013032 5ustar liggesuserseffects/tests/regression-tests.RData0000644000176200001440000006165615132433422017305 0ustar liggesusersX֨;@ (jr0 ALH Yz@2"9#9#H%]Os{<ϰWWWUBW(IjG#k p{DG%K&6FV&2a%ݺ #_(ֿgO41^bX PllnlmlolؐؐؐŒX[ fFdtj}kuK]oȿWw]OV.Q 9!IXw\KdEY!͘`7ʌњbk3x w?շt:ʆ5T3 ](-a /,/y i qѬ!sh# 重UpbH&9 /nE(U̖[Pўz2ԠiP-'+rh!ėAV^ap]Qȃ\Ů}Ymm\ dL vp4wzvnj$ %s亟탒N.{!?6szWc7򝇾w;ƋX@;+|ۻ~h+mQ&:ݬ|9b57U _.' fѷhm^C8{Ѹx+8|rFW℥=^"xֵ_l{eUR]ఆ;wrE˂%/׮CZO5eީżγJt&VN="8??T52GѢ|Js g>͒iGU bIG{p"Pv|J+ތ3Ug!zvv9F2G73l pYp!UD9p,#[gžRs4|X|OE#T- ; ]/˱!!zb%<^gjjtuiCF{ qW{ J Z2bnі$GCdluI2k^Jzu*-uגCJJh,ʢo?'27g$fuCv)J=evBk>"< ~mfHf}Kح@/H]{/ɛoAx6nP6wm"[[Y5drn.B^TmRe . 삅s"I𞍢`x_ UYCTns =(|%J:qPrQUHr/hmbIyeF(7*t'mĆn϶!D0ڸ@畂CPOyLHВӻ nx(|*3݂] "lAPfz2М򥅸v'赼g(}b<|>e-hἸؠ WC̰z+,Q >E6 1Lndn&o(l.\Cjcbns䒩Fcmjcr}G!$k߇l/Y3,7Lm]t䒉6V/0Ѻ-pkX?u̎ztɍ_R!:ܯA ?lsw5#mi@iebmiqLO*_03& ,KJ%h!ҍv]FfFhZXӳ3hr}nדsTRHZ冝0pO$eX@ҩԙ9C{۵F.ΚWz BY_y~=(īoJ:}Up`!0jWSN4t@~mD?8~.; 5Whz!8RWhHJk4zﲻꋠ*an >)wډm"YsReDy!Y6A˲[z]ha9~54Yd5Jfn~|mmV &UN@m !/8 PJCãk^P^? mnN%xN4]pZpuF*h+ve#ؙ<x$d wdC| Pbj E,A7;#5gsM-FRȄ]\]T^1fL]OPg  ~?HүBZʹYhZONh27oφ&C&;vvc..q.ՖN |hZ`(!*aj^\kQ.#I]FZ8ۡÚvUW;z:A`Xsтڜzo|?OSޱZPAt6[ǥ[\%čNf?a':uVC:2g/k|Erぞ G{ePn*eot¾[K!J=Tby-FNs~Vb #ڞ;ǎx=B0#D+hnQ;hÎ,ShS'Ԍ8 h_A6ҷ+/nd[𤒚.n3Ipt9XrkV{͗x_<.i,xI?B 5q"u:.u~ jo/ œ' Уc߼"yx\gUxk!!?!N _2F[L?Ճ_|zg\aߩ= ʟHpfI;YrǺr$9Ao:npH@} 9'aZ~?n*%{ܳBGChhM;^r%MHp `"苻:[bHL-t b=))j K$zhrU޶ODžATPE\ i,d:G.EFP"S!@Jř )d RHq̀l6}>Vb}|:wDFAt׶QB1Ȭ8}w(y)@\Ƒh;9M$rN_t۟BSAF%}l#}l>vd 7Vʟ4jAwuMQ[kQj,]&AO|57-S8!U44BcySֻ%V<RtXt ǭAҒ#cQK- r(7rO2z+"hA93V9hzlZZFSuPoLV ]}UԔMʓOmP~ 2.4ɘD_Xn6IC1Q:q+MZ*emq .ТMƲ`g{J}y= I>4 ?3d2p9 5ݲee SwWy Hf9vH_ > ;PfHy8ك0mk+4=_ó%FHm{}HWuܰ~F*$}U[]xy|(6JsHsk0X^b݉7̶đ@xwu'>FVAۦ" %9* "n4FnE蔹+Xuj 3 [S+]-|Yr6Ǟ%es5ɀ |iPYCu)I(7wV|\v&t?[lƓ/ʎr݃r"C4i- AiT{8=4wX;w'Gv*?ժ@*/hY+Bko| dPhZ4#:V?|T ZNq$E=c-Ww5*Ƒ$:;svQC 6cDХRأõjibhיRWF q%}x/~4UsqZc /ƻtxb/{O{M}(Ѕ͇Dr%Y箮xOR3"Fѥ"xl![r$Q(?\BI447DG'.ɏ57F*^Q [G `K+LVCwGQ ~W8hw9b(&_-xsh6'}E0p:FM âW(c\3#%Gy!+;ιt23IXW4(bx=+_yG1 x-v3+Pmri:i/ѺsΗжоUS8l$0G~Bk۩m=6U9Eϵ`X@G OݲJO-^hCP+ h_N|[3how=i.ޟr5uB:W2Nt\m?=cW<N :C.IXM΄Zd0EJ笔LѹrmxHiӕx#Qx7tx~l7]1xDW-qOe:MLIa<9 ,6H\ݢt- DP\ncA0H.opMVƂ,,Mml6 ?Բ6l/:Br [c0ljL6s.lM#Ί'&3씿1k П~fQLۤm6'i迩"֐A+^e1ya)0Gq/?S@_(0N x^X ÀڳvKOJ#(=0`k cm+WSA0 (ywpa0Y,rW|b r0`ޞMАty *,BU6?/|Rn'q^\B1 XA]`N乸=ÀҚ1 wÀuL1 Xpkz0s]0?]1 6̊0bp.r,GվEcЏYÀ/81 x77P=UÀeH|ΏÀ, 1 (qWÀ.Gj0 sݫn0n D0 a䔸aV3WuԨG=;̓uϤR@ٖT[` h9v]XaoS(ZZEdb)!|Kb"]ٜ0 &q À޴աÚ!M[?$##0KA|DD-+߾'BEg34/ ZD`izS!hǃcd0 xUA5̄aULc0XNP1UX%5À><J ÀY) n=`дj#>yAFh#}ٖFo0 sMS fۜs0+bmv0 lqÀa{1 8N&%VLr[0 LaܷKbPNÀҫYxkV곎 cpn_x2 CzY~ŀ_V. @s 7JA n(cPyDiÀO0ցW0 H5KÀuCHya'l1<?a$VsW %OaP+ÀΟÐ縒6UGZ>6ۘ`@gr aE^YBwÀbPQYÀo+g LlrBÀsg0  À*Aq0|?YA0 8~R>x V,;8 VEL n9% H~g Is&c x|Bs\7"0sq>1 ۮc0UNÀLdL60Vj+_}*0nj  jÄ/ȔDX  ^0 O10t Do<0+y2o0P c1ddo,1 8;À;bL[PJÀ0 x0,eC`AQ HaWfa@TS ^W0 s 9 Iqj|Si77}0`e LW@U0 fz VR0Ӏ1d3pY?0` cp'7}À`'}v8zw;TIe@u|QDf݉ Hmo0uPcP{^" ',$`? _0f :b0 .,ÀߞYcp׀ Ka}l~tĵiBޮ:Z,QOT"o0 Fq *r0`3Y0 D:a1 `PF5y0`_0}'1 XvÀ5硎a@0* Gbp) Zj-0|BE14p]h0`@]$|5 $vyacg/xaPYd6!Ks!ÀSL[obQ0 j؁a@PĹ oT}݌aց+JT?̆W!ZK폷 >#*jg(s[ tN0`T4_02?_ 0bݑa{1 Ea@!! ƛỉ?0v, Zh`>9-Ǡelv7~.m B'0`l9s1 À0`$?0ӁÀ#&PF(07bPp%}iml}4YhZ0&  TaڸtQ̼!S0`70U]<{3wCodbNf CW]0 ZBa<3 Bv,!j> eekS V"fw 10I^y/`P葽}$}7W @\$9 m׽l.@0d}"o [8ŒLE |Uy^ga Dp)@S _Ҝ3ÀCT1 hfvO᪚O=$Tax 0xc]h8۲0 OxÀ~LԫcG a0~e bPX:[||Àx0 ~7RxNw À紙Ѷ Hԝetx2:Sޛ) 0α"x ь펟0 `h_Zfn<ol0sX fwc0UÀw";0 ʰO  Ŀ0`X) ~;'?zN6 TI\\!`@Cٓ0%[EIa@9WL/y/k0ëB)y|ͦ ÀuN0jz}?0/i߁WUAYAMV|u u3NI~mmn(K X SnGG51k2u0 /O I`7pÀy41 X4)ĸ0^5@W'wqn$""=Uoķ^l{xrC^f~o8%X'g"v O}gpCBГq O1+MB盦 7++tZR5s;?uk (bo&賅|?SܥӚ!MUebHZNj#3zEf'@[z)" ȔJń!mik=cgv@ yǙ!wwTMů_ȐvYKF]a'y_iH,fAJviPIYga 9U-k  &?]ҎLx+ )^:Ete+/g/@nYp~{?Kj'WKNxJ[L~92$/zߺ**3c!ɝѦR*EN&YDE/t~A?%XO)A?x]LztDFϐƘ/ ׼z\"cx]xZ I DеeQd#?;?b(7GR䟔ܨ(X@񢡲0T&|u"4Y_NgP薏ǭrh*rN-HӍ3^ڸ AېAo7h+<tbл?Zٓ*m$ha[#Ft4=`<eq~7{OjwQ#$>/E4Ȱ, r5ÏO<+lz] m3$sa?Q~OX7/WKS.)B>iw3;QH._ub+C%!݋_/B-(%;0zTҏIe*"ܷeB|gL<]FHW;"(XW(hg͐x ]Q{KHbǐyt?<>?#yY?'9iSP Um-K7~Wx?u ;~0!< |IU^>CȖvШ"HNEB^迠n |'+$Z6띦n:X R`beya'[!2ߵYDH^zH,r~пY2,֘qy Lo ̶"!ե!ai&?>H &\,DK{{{C3ɖ>Ukyy(k5|ߋYvDue ወ e;ʈ93wLhǑUJpw/IJ>DwT'n"NvrMmQ JDMo@7\wXEIun#Uو60=#>hG_ly"# ^af> 9N{1\ADdam/޲#r 7˨=rDt="yh|"~O.*Q9i3 +'ڊH5w^C&2^ ߤ9\ rhxʹU6Tf?u< !R0ݨ; $z&g:_nENHZ_?¦^x&B^( z![0/3Ͳyd#Hm cç7ʇK'μp;03`tna2. {䕰t3p,n4۠/s "T3al`F$ 5/)հ[Wf\_*BaHW=KXȽ#kd3M9'oSj!+mZ#Jx&Ȯ'o!l 4k Wm齘f&Ga!+뽃왠r\}@E;[C݆Cj'ۑWη^";Yf \CΖ-컫BA11r}{1~k֍KmȮ # pנ6.0 B4| *#BJ%!lea({q ʯNRgWE00Qpټ5tZ{qsԻ̽a&/ 0OMދ:1*ZaYknR#t/{)L\sfQgJym-Ox #\^]ч>ty)tɞSO0@wɜCd0x: =b R;nKL-.Wt&-]i&S>2ܖA:1 !Tr\j> W:CvOg"&B4uvf"lϧI _!58zNdh4qad=\E;Aï5$V(!,Ok!+k kw1%^%w:= q6dWZmcOg.)a[D־Bc~kˆ?ç׹oȮd ~d]OhLt/%݋"TUa%xh P~HQq^AMn; >܈ԛI'N J-ZG(_62ze V[r@bDYL]4fcY7Gu>{jDa׀ k+̎*! x?rDeSQ^P֪fbDskkIGGDWfNw4d 7,#jdYesn#=ROfbC/T7:2MƊaFeUrTމD!-]?щp6%uJ*Qܟh0[3Y_4v8?<"nN?c{Dp䆝Pϒw|%~<9 ֪LITHm*JE}51PPR^&Je%cQ-H69Ԝ7^[0{sb$T(2G("?j@6ѐ_$TɱI\'km;db|`1qg_Vw 9Þsw\/s4j |7)61}I_6PCW$uQ'1 а/\N;V}mǩYPPr7|<`ČgPǣM\矬xvA[mPj$; =o'vATFZ3B#{Ѓ{2Phb ,j. f\3: =+*&D]@Rhd2YB Âד BrG5]ХGTϬǭ~BsLOy3]BWS5EU=LuwtXt;S8lSCO,s9/XCOu| scq]`Egnu| CkiJ݉a,b\́p=G - 7Qp%yz[㠣J. ?lG3&@݋ evQ t>mlnr٣1o7D=o#r3:~뙆L!ȣ?um! 9f7* ]̭.|xJ],1S eBgA:2_zм"N~tEB Щ'e+ISvoڃHt`t=;gt62:Ml6d4~mf!%$ZoS/i~:,:);Stą.|a%~ *(k߽]Lo+<MCCNUy:3^~K}gCd+P/'n~dCŹ6K {}ګ3}4w W ]ab/Լyr"hɮL[@}Ƃ@rcwd-dgh9[@*,O+ yPDkSNhxaM^DKY'H9@e^{MB*Zdz6)*OBzaAsI2dLPYx xne-,Pyk@WC?qkBt -X)ByG_We [_L]$ՌA/{Ç[DKP^ls7mM{ц|m\dK}P{d#4 y|k[ԑހ@V(uh/XVo 1Pz\`g&˷]Sn7$!yt ݑ{cُxu ͞G[!wqv38 jQƉ6DU|ʆo&ڂ .PB΃:nm Ivꑠ1zT'16$y%I)CI0xhxn}kB }iUзK%>͛.cvRϡOfg˗;њf z]~^]#nXxB;XaУ5kzt 'أQkpMF.CgUsжKʘ$cqe&+x~ﶺ|oPt& (=jEenծ NP=T~u,TjNG9/"Pk$f }$)PÏrګo/BV.ݭ:(Q +e潜CP<@*T>9tR{$`gŇWjR$(ו[,oPOn%ZM^ΤP1C~ ^DиmD0fʌTǭXq{~Moŝ=^DB!nuPg19u>t}' ՘&z=Gy$\!k 0h%i?Ș֞ t::0Jd? gi>;)5гdVyϨg7Qл6'\3K.h~C#}i G H|p8zO9["s*vV9%5%ʉjPP:vTB=#=~! u"#ou{nosD/Z]ɓu{N'} sƮ/ yMvz@; NjsCۚ^nhBe's7 ;\6qTܬ8N<0>O&ቐNڸ&<[ȇJ؞Ct>ΏϠn[s |Imk7ɀ>pF, (M .7 6'IZ65ՠV ,WȡtfƥG#4zrZ1ʰ`["uDT6]c֨.r')k!h}EPLrJ Oe{O=;T܁N^6/oO3}thE;FWP멨,']LF_FJ6DߨLSbbH5ߵptǔkMt].륭Lz%ctN:$K/+/yK /h ;$zbt$$XbwJ>O)(tvSX2:_{I0T't~~o-xrwL%r[w0<-*T9xg3Xƃ%WxJ- ֏9_|~sJxK * d 73#ɵė@PzH}|5d)O"[u\҃K3^AaEJJs7<ˢ|a%hhqMk GcBF.;5Rlw 2 ,AzYB{G?MkPzΚTtw#ϒRK6BcXf]כ-skt]};Ξ}km>>ɘmy:z]SDH@H$r32, Ue#~nX9ۗ棌~6wF'c~6KTyE w]G{C}ԨF}oho'iњ({ gf* [9=tDdT>7r|X-O!/DixBTp-!}Ew#Zs\Q2K[-5yr X GrmABwK#b^>I<qߍeux5_YN_]!俷{z1e._ d?23+V߶M[ӓwꡦ1 dD|:핟8sb{_)R# gvz?ő@;~l=9R3"-jW#x=ơ]^{ ~BWzP\T* PNBÒܣgRI ï?h?UAv MhY-}f!7 քQK6n6}>Њ+|uNKOHnA[䝤gpQu 5< t~;>Hk:vP9_yާJE-!S`-HM1쟄e@5+Oy2-㡑^ҦjF?S M~~i[,OO^g:֌x?B ,^߆HWA8{e"Zl7t8;%]V´UVr:ZW$ YGBk|:*q?:dm|!lQ3c[N2 NK6=ݎ|CNΙïn(]kt(:.:qw~&ӉhP57t@7_2#zXuJM"o?n7΂ǤCO>oB]Pq|L(Oٱ? xZ^Cڍ__%'\ Iٙ iJï@ށuCSH~d܌~g2}uZ"t)(gx Yϟy͕/$kmd~L]m,[geo'ؙk=+4fUE;<T t=tL /.ʊ1;M9UN3jH_] OK@&fȇu Sj5,k'!v]&O\9Z\޿[YVk*TVCږqҞPt!@b(e߱}!#%@eZ}̐V}sH~y~0KprJ[Vd% 44׹ _ϒZ6J'/6{;k/t;T=Q>7h<o%򝊡Z%1z!Lay9]*O: =EMrx-*"TqG9Ac_qˋJV$%R;nӚC}J/'pPr⬴*l!rr<=,PUXawɚ+VEgL&T")f9tb>2KBc?j45]SYG޾P:֟SxwērQBso;+N} )zw|;;;h  L+Mà~i> hLSI%Ķ)mx9;E#5Sf{ d8(C2/(k8 >ܮfu Rw>!.-/A3iNPRz0>kzwm̯|^i)J6҈i{3o]pi,kXaLj5}0p9Ӷ^G~yچDžAs\f;棚!;+8~?,Zu1f{Fh,djJE{"dc>v' Q>{,phy9[ IknK1MoZj3H4C]<TQyAt;r$,ͫg06 \E{= 7Gʸ/GsaقVlY ,KGERn.(-D9{(ѕN\TdxCݟ)6YE]3/ 誕H̋n<љǮ$S7<<й^ٛxx"Ю ODl:xKdb7J`.zU<+ >x.6]7Oz|c㰸f2Y Մ*9?^E=e^5nʂHdEGhE$?Z=yryN94M=OWa;}:"*_46Lz0ߺWӧ̠yw#_>uӇIoJ:mG0y<$"S.CH̎o#R[8Q?+[9d'`|u{k/?A$Z9 9Dl;jDWjS 3Ay|ע|%/"q$"Rt0b*";opއ7ν,it"8֓!/O}-g1JaעﲋEcY  r =ec7Uxf#)'d^#Yӏ0'M$ۡAt1žXȐRU as9 rО3^}2 ~b1m_Dt՗@q̲9Dq 1TI]DOEqSs6;9zG4z8w-jSCi,=f8qʕmC]D3]!R|?B+_IG1w$y.{!ʎ#t+" ʯ[B%., #=vzuQIS81aS,`B)>lbxF//{LxlP[@g#uND w{-{+"q]u0CoЍBdjjPקҌsu d#|}xɐb]\L;\%eGZKrKwFBjgbrf# sp_DȠeffects/tests/effect-tests-1.R0000644000176200001440000001310315132433422015705 0ustar liggesusers if (requireNamespace("carData") && require("effects")){ data(Duncan, package="carData") mi <- with(Duncan, mean(income)) me <- with(Duncan, mean(education)) med <- with(Duncan, median(education)) # (1) focal: factor, constant: polynomial mod.1 <- lm(prestige ~ type + poly(income, degree=2, raw=TRUE), data=Duncan) X <- matrix(c(1, 0, 0, mi, mi^2, 1, 1, 0, mi, mi^2, 1, 0, 1, mi, mi^2), nrow=3, ncol=5, byrow=TRUE) if (!isTRUE(all.equal(as.vector(matrix(X %*% coef(mod.1))), as.vector(Effect("type", mod.1)$fit)))) stop("failed Test 1-1") # (2) focal: polynomial, constant: factor X <- matrix(c(1, 0.4, 2/15, 10, 10^2, 1, 0.4, 2/15, 40, 40^2, 1, 0.4, 2/15, 70, 70^2), nrow=3, ncol=5, byrow=TRUE) if (!isTRUE(all.equal(as.vector(Effect("income", mod.1, xlevels=list(income=c(10, 40, 70)))$fit), as.vector(matrix(X %*% coef(mod.1)))))) stop("failed test 1-2") # (2a) As in (2), but without specifying xlevels X <- matrix(c(1, 0.4, 2/15, 7, 7^2, 1, 0.4, 2/15, 30, 30^2, 1, 0.4, 2/15, 40, 40^2, 1, 0.4, 2/15, 60, 60^2, 1, 0.4, 2/15, 80, 80^2), nrow=5, ncol=5, byrow=TRUE) if (!isTRUE(all.equal(as.vector(Effect("income", mod.1)$fit), as.vector(matrix(X %*% coef(mod.1)))))) stop("failed test 1-2a") # (3) focal: factor*polynomial, constant: polynomial mod.2 <- lm(prestige ~ type*poly(income, degree=2, raw=TRUE) + poly(education, degree=2, raw=TRUE), data=Duncan) X <- matrix(c(1, 0, 0, 10, 10^2, me, me^2, 0, 0, 0, 0, 1, 1, 0, 10, 10^2, me, me^2, 10, 0, 10^2, 0, 1, 0, 1, 10, 10^2, me, me^2, 0, 10, 0, 10^2, 1, 0, 0, 70, 70^2, me, me^2, 0, 0, 0, 0, 1, 1, 0, 70, 70^2, me, me^2, 70, 0, 70^2, 0, 1, 0, 1, 70, 70^2, me, me^2, 0, 70, 0, 70^2), nrow=6, ncol=11, byrow=TRUE) if (!isTRUE(all.equal(as.vector(Effect(c("type", "income"), mod.2, xlevels=list(income=c(10, 70)))$fit), as.vector(matrix(X %*% coef(mod.2), 3, 2))))) stop("failed test 1-3") # (4) focal: polynomial, constant: factor*polynomial X <- matrix(c(1, 0.4, 2/15, mi, mi^2, 10, 10^2, 0.4*mi, 2/15*mi, 0.4*mi^2, 2/15*mi^2, 1, 0.4, 2/15, mi, mi^2, 40, 40^2, 0.4*mi, 2/15*mi, 0.4*mi^2, 2/15*mi^2, 1, 0.4, 2/15, mi, mi^2, 70, 70^2, 0.4*mi, 2/15*mi, 0.4*mi^2, 2/15*mi^2), nrow=3, ncol=11, byrow=TRUE) if (!isTRUE(all.equal(as.vector(Effect("education", mod.2, xlevels=list(education=c(10, 40, 70)))$fit), as.vector(X %*% coef(mod.2))))) stop("failed test 1-4") # (5) repeat of (3) with medians rather than means X <- matrix(c(1, 0, 0, 10, 10^2, med, med^2, 0, 0, 0, 0, 1, 1, 0, 10, 10^2, med, med^2, 10, 0, 10^2, 0, 1, 0, 1, 10, 10^2, med, med^2, 0, 10, 0, 10^2, 1, 0, 0, 70, 70^2, med, med^2, 0, 0, 0, 0, 1, 1, 0, 70, 70^2, med, med^2, 70, 0, 70^2, 0, 1, 0, 1, 70, 70^2, med, med^2, 0, 70, 0, 70^2), nrow=6, ncol=11, byrow=TRUE) if (!isTRUE(all.equal(as.vector(Effect(c("type", "income"), mod.2, xlevels=list(income=c(10, 70)), typical=median)$fit), as.vector(X %*% coef(mod.2))))) stop("failed test 1-5") # (6) focal: factor*polynomial, constant: polynomial, using predict() & orthog. polys. mod.3 <- lm(prestige ~ type*poly(income, degree=2) + poly(education, degree=2), data=Duncan) if (!isTRUE(all.equal(as.vector(predict(mod.3, newdata=data.frame(income=c(10, 10, 10, 70, 70, 70), type=factor(c("bc", "prof", "wc", "bc", "prof", "wc")), education=mean(Duncan$education)))), as.vector(Effect(c("type", "income"), mod.3, xlevels=list(income=c(10, 70)))$fit)))) stop("failed test 1-6") # (7) focal: factor, constant: poly*poly mod.4 <- lm(prestige ~ type + poly(income, 2)*poly(education, 2), data=Duncan) if (!isTRUE(all.equal(as.vector(Effect("type", mod.4)$fit), as.vector(predict(mod.4, newdata=data.frame(type=c("bc", "prof", "wc"), income=rep(mi, 3), education=rep(me, 3))))))) stop("failed test 1-7") # (8) focal: factor, constant: 2nd deg polynomial in 2 Xs mod.5 <- lm(prestige ~ type + poly(income, education, degree=2), data=Duncan) if (!isTRUE(all.equal(as.vector(Effect("type", mod.5)$fit), as.vector(predict(mod.5, newdata=data.frame(type=c("bc", "prof", "wc"), income=rep(mi, 3), education=rep(me, 3))))))) stop("failed test 1-8") # (9) focal: covariate, constant: 2 factors and 1 covariate, 3-way interaction data(Mroz, package="carData") mod.6 <- lm(lwg ~ inc + age*hc*wc, data=Mroz) mage <- with(Mroz, mean(age)) mhc <- with(Mroz, mean(hc == "yes")) mwc <- with(Mroz, mean(wc == "yes")) hc <- rep(mhc, 3) wc <- rep(mwc, 3) age <- rep(mage, 3) X <- cbind(1, c(10, 40, 80), age, hc, wc, age*hc, age*wc, hc*wc, age*hc*wc) if (!isTRUE(all.equal(as.vector(Effect("inc", mod.6, xlevels=list(inc=c(10, 40, 80)))$fit), as.vector(X %*% coef(mod.6))))) stop("failed test 1-8") } effects/tests/effect-tests-2.R0000644000176200001440000001211715132433422015712 0ustar liggesusers if (requireNamespace("carData") && require("effects")){ # plots should show fitted values directly on plotted effect, and must be checked visually # numbering corresponds to effect-test-1.R data(Duncan, package="carData") mod.1 <- lm(prestige ~ type + poly(income, degree=2, raw=TRUE), data=Duncan) # (2) focal: polynomial, constant: factor print(plot(Effect(c("income"), mod.1, residuals=TRUE), show.fitted=TRUE)) if (!isTRUE(all.equal(Effect(c("income"), mod.1, residual=TRUE)$fit, Effect(c("income"), mod.1, xlevels=list(income=seq(7, 81, length.out=100)))$fit))) stop("failed test 2 (2)") # (3) focal: factor*polynomial, constant: polynomial mod.2 <- lm(prestige ~ type*poly(income, degree=2, raw=TRUE) + poly(education, degree=2, raw=TRUE), data=Duncan) print(plot(Effect(c("type", "income"), mod.2, residuals=TRUE), show.fitted=TRUE)) if (!isTRUE(all.equal(Effect(c("type", "income"), mod.2, residuals=TRUE)$fit, Effect(c("type", "income"), mod.2, xlevels=list(income=seq(7, 81, length.out=100)))$fit))) stop("failed test 2 (3)") # (4) focal: polynomial, constant: factor*polynomial print(plot(Effect(c("education"), mod.2, residuals=TRUE), show.fitted=TRUE)) if (!isTRUE(all.equal(Effect(c("education"), mod.2, residuals=TRUE)$fit, Effect(c("education"), mod.2, xlevels=list(education=seq(7, 100, length.out=100)))$fit))) stop("failed test 2 (4)") # (6) focal: factor*polynomial, constant: polynomial, using predict() & orthog. polys. mod.3 <- lm(prestige ~ type*poly(income, degree=2) + poly(education, degree=2), data=Duncan) print(plot(Effect(c("type", "income"), mod.3, residuals=TRUE), show.fitted=TRUE)) if (!isTRUE(all.equal(Effect(c("type", "income"), mod.3, residuals=TRUE)$fit, Effect(c("type", "income"), mod.3, xlevels=list(income=seq(7, 81, length.out=100)))$fit))) stop("failed test 2 (6)") # (7) focal: factor, constant: poly*poly mod.4 <- lm(prestige ~ type + poly(income, 2)*poly(education, 2), data=Duncan) print(plot(Effect(c("income", "education"), mod.4, residuals=TRUE), show.fitted=TRUE)) if (!isTRUE(all.equal(Effect(c("income", "education"), mod.4, residuals=TRUE)$fit, Effect(c("income", "education"), mod.4, xlevels=list(income=seq(7, 81, length.out=100), education=quantile(Duncan$education, probs=seq(0.2, 0.8, by=0.2))))$fit))) stop("failed test 2 (7)") # (9) focal: covariate, constant: 2 factors and 1 covariate, 3-way interaction data(Mroz, package="carData") mod.6 <- lm(lwg ~ inc + age*hc*wc, data=Mroz) inc <- range(Mroz$inc) age <- range(Mroz$age) print(plot(Effect(c("inc"), mod.6, residuals=TRUE), show.fitted=TRUE)) if (!isTRUE(all.equal(Effect(c("inc"), mod.6, residuals=TRUE)$fit, Effect(c("inc"), mod.6, xlevels=list(inc=seq(inc[1], inc[2], length.out=100)))$fit))) stop("failed test 2 (9-1)") print(plot(Effect(c("age", "hc", "wc"), mod.6, residuals=TRUE), show.fitted=TRUE)) if (!isTRUE(all.equal(Effect(c("age", "hc", "wc"), mod.6, residuals=TRUE)$fit, Effect(c("age", "hc", "wc"), mod.6, xlevels=list(age=seq(age[1], age[2], length.out=100)))$fit))) stop("failed test 2 (9-2)") # additional tests of partial residuals income <- range(na.omit(Prestige)$income) mod.7 <- lm(prestige ~ income*type + education, data=Prestige) print(plot(Effect(c("income", "type"), mod.7, residuals=TRUE), show.fitted=TRUE)) if (!isTRUE(all.equal(Effect(c("income", "type"), mod.7, residuals=TRUE)$fit, Effect(c("income", "type"), mod.7, xlevels=list(income=seq(income[1], income[2], length.out=100)))$fit))) stop("failed test 2 (additional-1)") Mroz2 <- Mroz Mroz2$hc <- as.numeric(Mroz$hc) - 1 Mroz2$wc <- as.numeric(Mroz$wc) - 1 inc <- range(Mroz2$inc) mod.8 <- lm(lwg ~ inc*age*k5 + hc*wc, data=Mroz2) print(plot(Effect(c("inc", "age", "k5"), mod.8, residuals=TRUE, xlevels=list(k5=0:1)), show.fitted=TRUE)) if (!isTRUE(all.equal(Effect(c("inc", "age", "k5"), mod.8, residuals=TRUE, xlevels=list(k5=0:1))$fit, Effect(c("inc", "age", "k5"), mod.8, residuals=TRUE, xlevels=list(k5=0:1, inc=seq(inc[1], inc[2], length.out=100), age=quantile(Mroz2$age, seq(.2, .8, by=.2))))$fit))) stop("failed test 2 (additional-2)") print(plot(Effect(c("hc", "wc"), mod.8, residuals=TRUE, xlevels=list(hc=0:1, wc=0:1)), show.fitted=TRUE, smooth.residuals=FALSE, residuals.pch=".")) } effects/tests/regression-tests.R0000644000176200001440000001302715132433422016500 0ustar liggesusersregression.tests <- FALSE if (regression.tests && require("carData") && require("effects")){ load("regression-tests.RData") regressionTest <- function(old, new){ test.name <- deparse(substitute(new)) if (!isTRUE(all.equal(old, as.data.frame(new), tolerance=1e-5))) { stop("failed regression test ", test.name) } else { cat("\n", test.name, ": OK", sep="") } } m.lm <- lm(prestige~(income + education)*type, data=Duncan) eff.lm <- Effect(c("income", "type"), m.lm) regressionTest(df.lm, eff.lm) m.glm <- glm(volunteer ~ sex + neuroticism*extraversion, data=Cowles, family=binomial) eff.glm <- Effect(c("neuroticism", "extraversion"), m.glm) regressionTest(df.glm, eff.glm) m.mlm <- lm(cbind(post.test.1, post.test.2, post.test.3) ~ group*(pretest.1 + pretest.2), data = Baumann) eff.mlm <- Effect(c("group", "pretest.1"), m.mlm) regressionTest(df.mlm, eff.mlm) if (require(nnet)){ m.multinom <- multinom(vote ~ age + gender + economic.cond.national + economic.cond.household + Blair + Hague + Kennedy + Europe*political.knowledge, data=BEPS) eff.multinom <- Effect(c("Europe", "political.knowledge"), m.multinom, xlevels=list(political.knowledge=0:3)) regressionTest(df.multinom, eff.multinom) } if (require(MASS)){ m.polr <- polr(poverty ~ gender + religion + degree + country*poly(age,3), data=WVS) eff.polr <- Effect(c("country", "age"), m.polr) regressionTest(df.polr, eff.polr) } if (require(nlme)){ m.lme <- lme(distance ~ age*Sex, data = Orthodont, random = ~ 1) eff.lme <- Effect(c("age", "Sex"), m.lme) m.gls <- gls(Employed ~ GNP*Population, correlation=corAR1(form= ~ Year), data=longley) eff.gls <- Effect(c("GNP", "Population"), m.gls) regressionTest(df.gls, eff.gls) } if (require(lme4) && require(nlme)){ data("Orthodont", package="nlme") m.lmer <- lmer(distance ~ age*Sex + (1 |Subject), data = Orthodont) eff.lmer <- Effect(c("age", "Sex"), m.lmer) regressionTest(df.lmer, eff.lmer) } if (require(lme4)){ m.glmer <- glmer(cbind(incidence, size - incidence) ~ period + (1 | herd), data = cbpp, family = binomial) eff.glmer <- Effect("period", m.glmer) regressionTest(df.glmer, eff.glmer) } if (require(lme4) && require(robustlmm)){ m.rlmer <- rlmer(distance ~ age*Sex + (1 |Subject), data = Orthodont) eff.rlmer <- Effect(c("age", "Sex"), m.rlmer) regressionTest(df.rlmer, eff.rlmer) } if (require(betareg) && require(lme4)){ data("GasolineYield", package = "betareg") m.betareg <- betareg(yield ~ batch*temp, data = GasolineYield) eff.betareg <- Effect(c("batch", "temp"), m.betareg) regressionTest(df.betareg, eff.betareg) } if (require(ordinal) && require(MASS)){ m.clm <- clm(poverty ~ gender + religion + degree + country*poly(age,3), data=WVS) eff.clm <- Effect(c("country", "age"), m.clm) regressionTest(df.clm, eff.clm) m.clm2 <- clm2(poverty ~ gender + religion + degree + country*poly(age,3), data=WVS) eff.clm2 <- Effect(c("country", "age"), m.clm2) regressionTest(df.clm2, eff.clm2) m.clmm <- clmm(SURENESS ~ PROD + (1|RESP) + (1|RESP:PROD), data = soup, link = "logit", threshold = "flexible") eff.clmm <- Effect("PROD", m.clmm) regressionTest(df.clmm, eff.clmm) } if (require(poLCA)){ set.seed(123) data(election, package="poLCA") f <- cbind(MORALG,CARESG,KNOWG,LEADG,DISHONG,INTELG, MORALB,CARESB,KNOWB,LEADB,DISHONB,INTELB)~PARTY m.poLCA <- poLCA(f, election, nclass=3, nrep=5) eff.poLCA <- Effect("PARTY", m.poLCA) regressionTest(df.poLCA, eff.poLCA) } if (require(survey)){ data(api, package="survey") dstrat <-svydesign(id=~1,strata=~stype, weights=~pw, data=apistrat, fpc=~fpc) m.svyglm <- svyglm(api00~ell*meals+mobility, design=dstrat) eff.svyglm <- Effect(c("ell", "meals"), m.svyglm) regressionTest(df.svyglm, eff.svyglm) } if(require(nlme) && require(MASS)){ m.glmmPQL <- glmmPQL(y ~ trt*I(week > 2), random = ~ 1 | ID, family = binomial, data = bacteria) eff.glmmPQL <- Effect(c("trt", "week"), m.glmmPQL) regressionTest(df.glmmPQL, eff.glmmPQL) } } # the following commented-out code creates the comparison objects: # # df.betareg <- as.data.frame(eff.betareg ) # df.clm <- as.data.frame(eff.clm) # df.clm2 <- as.data.frame(eff.clm2) # df.clmm <- as.data.frame(eff.clmm) # df.glm <- as.data.frame(eff.glm) # df.glmer <- as.data.frame(eff.glmer) # df.gls <- as.data.frame(eff.gls) # df.lm <- as.data.frame(eff.lm) # df.lme <- as.data.frame(eff.lme) # df.lmer <- as.data.frame(eff.lmer) # df.mlm <- as.data.frame(eff.mlm) # df.multinom <- as.data.frame(eff.multinom) # df.poLCA <- as.data.frame(eff.poLCA) # df.polr <- as.data.frame(eff.polr) # df.rlmer <- as.data.frame(eff.rlmer) # df.svyglm <- as.data.frame(eff.svyglm) # df.glmmPQL <- as.data.frame(eff.glmmPQL) # # # save(df.betareg, df.clm, df.clm2, df.clmm, df.glm, # df.glmer, df.gls, df.lm, df.lme, df.lmer, df.mlm, # df.multinom, df.poLCA, df.polr, df.rlmer, df.svyglm, # df.glmmPQL, # file="regression-tests.RData") # To add to regression tests first # load("regression-tests.RData") effects/MD50000644000176200001440000000537115145003163012205 0ustar liggesusersbdede5f148dca72a916d280bd49ce944 *DESCRIPTION 130de17ac9478e8e93e238ebcba2072b *NAMESPACE c205f7bd3a4295e84793054fdd3ffc85 *NEWS d1f92cdca6c7da281924ae7c85f831f0 *R/Effect-methods.R 0f8016554cab47c6a1ccb9da15d16af2 *R/Effect.R 5bfe0326fe788c44006406b359392ee4 *R/Effect.mlm.R a80b00308da234c0e29eab91ae30caa3 *R/effects.R 2d8ee8f8d9f81ffc4d2d9db7f57d2a79 *R/effectsHexsticker.R 4dc0a80d752645130eb921edebbb56b0 *R/effectspoLCA.R b4708084e524093860c2440282dfae7d *R/plot-methods.R 60cbbb54335426578c6dbac3570c6f7a *R/plot.effpoly.R c8496a8a3ffb497764ed1bf2ccbfccd7 *R/predictorEffects.R 93642c198ec49c37c0976f280dfcc11d *R/summary-print-methods.R 76efc8e78c120153923af3094acdd72e *R/utilities.R 1bf18d9c216b8d95033f0bd2fe2906b2 *build/partial.rdb badfe9bab39e9e2a4a8147efc523baa1 *build/vignette.rds 809fa4f25bbbd3e6d146c26d7ae3907e *inst/CHANGES ed8b460d1573500f7cd500d221721f81 *inst/CITATION cb53f2c0b269be9c31bf7b76474124f0 *inst/doc/functions-supported-by-effects.R 16f477bca2b3348d15745a4ea870ede7 *inst/doc/functions-supported-by-effects.Rnw c67793482e2654ea3b20797611040504 *inst/doc/functions-supported-by-effects.pdf 050b8d5b725bc28fb6aa8be4314f0d31 *inst/doc/partial-residuals.R a12d0cd397ac0d93512f56f2627b638b *inst/doc/partial-residuals.Rnw 246f9cdd2dff37827a91c021e5966430 *inst/doc/partial-residuals.pdf f125c7ca128e1f5ec995ce5a3edb3e71 *inst/doc/predictor-effects-gallery.R 799cf28b8350e9a9fc1e9b6b433d3682 *inst/doc/predictor-effects-gallery.Rnw b8986e5d22c99f587aa8940ea92c9cdf *inst/doc/predictor-effects-gallery.pdf 76f842b1ded93812932ce24783631774 *man/LegacyArguments.Rd 8dff095ad52db29dd51614db222e9af5 *man/effCoef.Rd 063f634a47fd1e66c908b9b0f358d82b *man/effSources.Rd 629b158e460c56fcc3210f9d5bc79c98 *man/effect.Rd 140d8033c133239cd8538e69f2039ad8 *man/effects-package.Rd f54730485d1a6917ce4b7f2a7f2afaea *man/effectsHexsticker.Rd d0ae5771f15744474ac9219bc0946b76 *man/effectsTheme.Rd cfae5575ac3ee1cc31eccd868aa5b3ba *man/plot.effect.Rd 6519278b11d7c3f90c193f131b1717b4 *man/predictorEffects.Rd ad3cb8d8438a77d174fee28168135f19 *man/summary.effect.Rd c0e3bc933c20142624ff79e8f5ee6928 *tests/effect-tests-1.R 140e592dfb8c95c795863201b5e480e4 *tests/effect-tests-2.R 665333e5df1cb3d04e968aab925b7612 *tests/regression-tests.R 991fe7f80ee85c1f765f733ca217e24c *tests/regression-tests.RData 2ae04276c51f11eda70770f4081293b7 *vignettes/chicago.bst 16f477bca2b3348d15745a4ea870ede7 *vignettes/functions-supported-by-effects.Rnw 52dd8e54ca1391694c2936f07e489475 *vignettes/functions-supported-by-effects.bib a12d0cd397ac0d93512f56f2627b638b *vignettes/partial-residuals.Rnw a6cb29f8bc79527fdb6f4099a9319f6c *vignettes/partial-residuals.bib 799cf28b8350e9a9fc1e9b6b433d3682 *vignettes/predictor-effects-gallery.Rnw 4414ba31c49a8261876883dc29ee4e8a *vignettes/predictor-effects-gallery.bib effects/R/0000755000176200001440000000000015132433422012071 5ustar liggesuserseffects/R/plot.effpoly.R0000644000176200001440000013235615132433422014647 0ustar liggesusers# Plot method for effpoly objects # modified by Michael Friendly: added ci.style="bands" & alpha.band= arg # modified by Michael Friendly: added lwd= argument for llines (was lwd=2) # 2013-11-06: fixed drop dimension when only one focal predictor. John # 2014-10-10: namespace fixes. John # 2014-12-05: made key.args more flexible. John # 2014-03-22: use wide columns by default only when x for legend not set. J. Fox # 2016-09-08: added show.strip.values argument to plot.effpoly(). J. Fox # 2017-08-16: modified plot.effpoly() to consolidate arguments and use lattice theme. J. Fox # 2017-08-20: reintroduce legacy arguments for plot.effpoly() # 2017-08-20: introduced multiline argument under lines argument and as a "legacy" argument # 2017-09-10: use replacement for grid.panel() # 2017-11-22: added a check for non-estimable factor combinations with style="stacked" # 2018-01-02, 2018-01-30: changed defaults for key.args, lines 140-141 # 2018-02-09: Use one-column key for stacked plot. # 2018-02-28: Fix handling of rug arg (error reported by Dave Armstrong). # 2018-07-08: add cex sub-args for x and y axes (suggestion of Charles Leger). # 2018-07-08: add cex sub-arg for strips. # 2018-10-05: modified plot.effpoly() so that multiline plots don't show confidence limits # by default, and so that confidence bars for a factor are staggered. # 2020-06-01: plot.effpoly() no longer ignores lty. # 2025-07-21: rename range.adj() to range_adj to avoid generic confusion. plot.effpoly <- function(x, x.var=which.max(levels), main=paste(effect, "effect plot"), symbols=TRUE, lines=TRUE, axes, confint, lattice, ..., # legacy arguments: type, multiline, rug, xlab, ylab, colors, cex, lty, lwd, factor.names, show.strip.values, ci.style, band.colors, band.transparency, style, transform.x, ticks.x, xlim, ticks, ylim, rotx, roty, alternating, grid, layout, key.args, use.splines){ if (!is.logical(lines) && !is.list(lines)) lines <- list(lty=lines) lines <- applyDefaults(lines, defaults=list(lty=trellis.par.get("superpose.line")$lty, lwd=trellis.par.get("superpose.line")$lwd[1], col=NULL, splines=TRUE, multiline=FALSE), arg="lines") if (missing(multiline)) multiline <- lines$multiline if (missing(lwd)) lwd <- lines$lwd if (missing(lty)) lty <- lines$lty if (missing(use.splines)) use.splines <- lines$splines lines.col <- lines$col lines <- if (missing(lty)) lines$lty else lty if (!is.logical(symbols) && !is.list(symbols)) symbols <- list(pch=symbols) symbols <- applyDefaults(symbols, defaults= list( pch=trellis.par.get("superpose.symbol")$pch, cex=trellis.par.get("superpose.symbol")$cex[1]), arg="symbols") cex <- symbols$cex symbols <- symbols$pch if (missing(axes)) axes <- NULL axes <- applyDefaults(axes, defaults=list( x=list(rotate=0, cex=1, rug=TRUE), y=list(lab=NULL, lim=c(NA, NA), ticks=list(at=NULL, n=5), type="probability", rotate=0, cex=1), alternating=TRUE, grid=FALSE), arg="axes") x.args <- applyDefaults(axes$x, defaults=list(rotate=0, cex=1, rug=TRUE), arg="axes$x") if (missing(xlab)) { xlab.arg <- FALSE xlab <- list() } if (missing(xlim)) { xlim.arg <- FALSE xlim <- list() } if (missing(ticks.x)) { ticks.x.arg <- FALSE ticks.x <- list() } if (missing(transform.x)) { transform.x.arg <- FALSE transform.x <- list() } if (missing(rotx)) rotx <- x.args$rotate if (missing(rug)) rug <- x.args$rug cex.x <- x.args$cex x.args$rotate <- NULL x.args$rug <- NULL x.args$cex <- NULL x.pred.names <- names(x.args) if (length(x.pred.names) > 0){ for (pred.name in x.pred.names){ x.pred.args <- applyDefaults(x.args[[pred.name]], defaults=list(lab=NULL, lim=NULL, ticks=NULL, transform=NULL), arg=paste0("axes$x$", pred.name)) if (!xlab.arg) xlab[[pred.name]] <- x.pred.args$lab if (!xlim.arg) xlim[[pred.name]] <- x.pred.args$lim if (!ticks.x.arg) ticks.x[[pred.name]] <- x.pred.args$ticks if (!transform.x.arg) transform.x[[pred.name]] <- x.pred.args$transform } } if (length(xlab) == 0) xlab <- NULL if (length(xlim) == 0) xlim <- NULL if (length(ticks.x) == 0) ticks.x <- NULL if (length(transform.x) == 0) transform.x <- NULL y.args <- applyDefaults(axes$y, defaults=list(lab=NULL, lim=c(NA, NA), ticks=list(at=NULL, n=5), type="probability", style="lines", rotate=0, cex=1), arg="axes$y") if (missing(ylim)) ylim <- y.args$lim if (missing(ticks)) ticks <- y.args$ticks if (missing(type)) type <- y.args$type type <- match.arg(type, c("probability", "logit")) if (missing(ylab)) ylab <- y.args$lab if (is.null(ylab)) ylab <- paste0(x$response, " (", type, ")") if (missing(roty)) roty <- y.args$rotate cex.y <- y.args$cex if (missing(alternating)) alternating <- axes$alternating if (missing(grid)) grid <- axes$grid if (missing(style)) style <- match.arg(y.args$style, c("lines", "stacked")) if (missing(colors)) colors <- if (is.null(lines.col)){ if (style == "lines" || x$model == "multinom") trellis.par.get("superpose.line")$col else sequential_hcl(length(x$y.levels)) } else { lines.col } if (missing(confint)) confint <- NULL confint <- applyDefaults(confint, defaults=list(style=if (style == "lines" && !multiline && !is.null(x$se.prob)) "auto" else "none", alpha=0.15, col=colors), onFALSE=list(style="none", alpha=0, col="white"), arg="confint") if (missing(ci.style)) ci.style <- confint$style if (missing(band.transparency)) band.transparency <- confint$alpha if (missing(band.colors)) band.colors <- confint$col if(!is.null(ci.style)) ci.style <- match.arg(ci.style, c("auto", "bars", "lines", "bands", "none")) confint <- confint$style != "none" if (is.null(multiline)) multiline <- if (confint) FALSE else TRUE effect.llines <- llines has.se <- !is.null(x$confidence.level) if (confint && !has.se) stop("there are no confidence limits to plot") if (style == "stacked"){ if (type != "probability"){ type <- "probability" warning('type set to "probability" for stacked plot') } if (confint){ confint <- FALSE warning('confint set to FALSE for stacked plot') } ylim <- c(0, 1) } if (missing(lattice)) lattice <- NULL lattice <- applyDefaults(lattice, defaults=list( layout=NULL, #key.args=list(), #New default added 1/2/2017 by sw strip=list(factor.names=TRUE, values=TRUE, cex=1), array=list(row=1, col=1, nrow=1, ncol=1, more=FALSE), arg="lattice" )) lattice$key.args <- applyDefaults(lattice$key.args, defaults=list( space="top", border=FALSE, fontfamily="sans", cex=.75, cex.title=1, arg="key.args" )) if (missing(layout)) layout <- lattice$layout if (missing(key.args)) key.args <- lattice$key.args strip.args <- applyDefaults(lattice$strip, defaults=list(factor.names=TRUE, values=TRUE, cex=1), arg="lattice$strip") factor.names <- strip.args$factor.names if (missing(show.strip.values)) show.strip.values <- strip.args$values cex.strip <- strip.args$cex height.strip <- max(1, cex.strip) array.args <- applyDefaults(lattice$array, defaults=list(row=1, col=1, nrow=1, ncol=1, more=FALSE), arg="lattice$array") row <- array.args$row col <- array.args$col nrow <- array.args$nrow ncol <- array.args$ncol more <- array.args$more .mod <- function(a, b) ifelse( (d <- a %% b) == 0, b, d) .modc <- function(a) .mod(a, length(colors)) .mods <- function(a) .mod(a, length(symbols)) .modl <- function(a) .mod(a, length(lines)) effect <- paste(sapply(x$variables, "[[", "name"), collapse="*") split <- c(col, row, ncol, nrow) n.predictors <- length(names(x$x)) y.lev <- x$y.lev n.y.lev <- length(y.lev) ylevel.names <- make.names(paste("prob",y.lev)) colnames(x$prob) <- colnames(x$logit) <- ylevel.names if (has.se){ colnames(x$lower.logit) <- colnames(x$upper.logit) <- colnames(x$lower.prob) <- colnames(x$upper.prob)<- ylevel.names } x.frame <-as.data.frame(x) predictors <- names(x.frame)[1:n.predictors] levels <- if (n.predictors==1) length (x.frame[,predictors]) else sapply(apply(x.frame[, predictors, drop=FALSE], 2, unique), length) if (is.character(x.var)) { which.x <- which(x.var == predictors) if (length(which.x) == 0) stop(paste("x.var = '", x.var, "' is not in the effect.", sep="")) x.var <- which.x } x.vals <- x.frame[, names(x.frame)[x.var]] response <- matrix(0, nrow=nrow(x.frame), ncol=n.y.lev) for (i in 1:length(x$y.lev)){ level <- which(colnames(x$prob)[i] == ylevel.names) response[,i] <- rep(x$y.lev[level], length(response[,i])) } prob <- as.vector(x$prob) logit <- as.vector(x$logit) response <- as.vector(response) if (has.se){ lower.prob <- as.vector(x$lower.prob) upper.prob <- as.vector(x$upper.prob) lower.logit <- as.vector(x$lower.logit) upper.logit <- as.vector(x$upper.logit) } response <- factor(response, levels=y.lev) Data <- data.frame(prob, logit) if (has.se) Data <- cbind(Data, data.frame(lower.prob, upper.prob, lower.logit, upper.logit)) Data[[x$response]] <- response for (i in 1:length(predictors)){ Data <- cbind(Data, x.frame[predictors[i]]) } levs <- levels(x$data[[predictors[x.var]]]) n.predictor.cats <- sapply(Data[, predictors[-c(x.var)], drop=FALSE], function(x) length(unique(x))) if (length(n.predictor.cats) == 0) n.predictor.cats <- 1 ci.style <- if(is.null(ci.style) || ci.style == "auto") { if(is.factor(x$data[[predictors[x.var]]])) "bars" else "bands"} else ci.style if( ci.style=="none" ) confint <- FALSE ### no confidence intervals if confint == FALSE or ci.style=="none" if (!confint){ # plot without confidence bands if (style == "lines"){ # line plot if (!multiline){ layout <- if(is.null(layout)) c(prod(n.predictor.cats), length(levels(response)), 1) else layout ### factor if (is.factor(x$data[[predictors[x.var]]])){ # x-variable a factor range <- if (type=="probability") range(prob, na.rm=TRUE) else range(logit, na.rm=TRUE) ylim <- if (!any(is.na(ylim))) ylim else c(range[1] - .025*(range[2] - range[1]), range[2] + .025*(range[2] - range[1])) tickmarks <- make.ticks(ylim, link=I, inverse=I, at=ticks$at, n=ticks$n) levs <- levels(x$data[[predictors[x.var]]]) if (show.strip.values){ for (pred in predictors[-x.var]){ Data[[pred]] <- as.factor(Data[[pred]]) } } result <- xyplot(eval(if (type=="probability") parse(text=if (n.predictors==1) paste("prob ~ as.numeric(", predictors[x.var],") |", x$response) else paste("prob ~ as.numeric(", predictors[x.var],") |", paste(predictors[-x.var], collapse="*"), paste("*", x$response))) else parse(text=if (n.predictors==1) paste("logit ~ as.numeric(", predictors[x.var],") |", x$response) else paste("logit ~ as.numeric(", predictors[x.var],")|", paste(predictors[-x.var], collapse="*"), paste("*", x$response)))), par.strip.text=list(cex=0.8), strip=strip.custom(strip.names=c(factor.names, TRUE), sep=" = ", par.strip.text=list(cex=cex.strip), par.strip.text=list(cex=cex.strip)), panel=function(x, y, subscripts, x.vals, rug, ... ){ if (grid) ticksGrid(x=1:length(levs), y=tickmarks$at) good <- !is.na(y) effect.llines(x[good], y[good], lwd=lwd, lty=lty, type="b", pch=19, col=colors[1], cex=cex, ...) subs <- subscripts+as.numeric(rownames(Data)[1])-1 }, ylab=ylab, ylim=if (is.null(ylim)) if (type == "probability") range(prob) else range(logit) else ylim, xlab=if (is.null(xlab)) predictors[x.var] else xlab[[x.var]], main=main, x.vals=x$data[[predictors[x.var]]], rug=rug, scales=list(x=list(at=1:length(levs), labels=levs, rot=rotx, cex=cex.x), y=list(at=tickmarks$at, labels=tickmarks$labels, rot=roty, cex=cex.y), alternating=alternating), layout=layout, data=Data, ...) result$split <- split result$more <- more class(result) <- c("plot.eff", class(result)) } else { # x-variable numeric if(use.splines) effect.llines <- spline.llines # added 10/17/13 range <- if (type=="probability") range(prob, na.rm=TRUE) else range(logit, na.rm=TRUE) ylim <- if (!any(is.na(ylim))) ylim else c(range[1] - .025*(range[2] - range[1]), range[2] + .025*(range[2] - range[1])) tickmarks <- make.ticks(ylim, link=I, inverse=I, at=ticks$at, n=ticks$n) nm <- predictors[x.var] x.vals <- x$data[[nm]] if (nm %in% names(ticks.x)){ at <- ticks.x[[nm]]$at n <- ticks.x[[nm]]$n } else{ at <- NULL n <- 5 } xlm <- if (nm %in% names(xlim)){ xlim[[nm]] } else range_adj(Data[nm]) # range(x.vals) tickmarks.x <- if ((nm %in% names(transform.x)) && !(is.null(transform.x))){ trans <- transform.x[[nm]]$trans make.ticks(trans(xlm), link=transform.x[[nm]]$trans, inverse=transform.x[[nm]]$inverse, at=at, n=n) } else { trans <- I make.ticks(xlm, link=I, inverse=I, at=at, n=n) } if (show.strip.values){ for (pred in predictors[-x.var]){ Data[[pred]] <- as.factor(Data[[pred]]) } } result <- xyplot(eval(if (type=="probability") parse(text=if (n.predictors==1) paste("prob ~ trans(", predictors[x.var],") |", x$response) else paste("prob ~ trans(", predictors[x.var],") |", paste(predictors[-x.var], collapse="*"), paste("*", x$response))) else parse(text=if (n.predictors==1) paste("logit ~ trans(", predictors[x.var],") |", x$response) else paste("logit ~ trans(", predictors[x.var],") |", paste(predictors[-x.var], collapse="*"), paste("*", x$response))) ), par.strip.text=list(cex=0.8), strip=strip.custom(strip.names=c(factor.names, TRUE), sep=" = ", par.strip.text=list(cex=cex.strip), par.strip.text=list(cex=cex.strip)), panel=function(x, y, subscripts, x.vals, rug, ... ){ if (grid) ticksGrid(x=tickmarks.x$at, y=tickmarks$at) if (rug) lrug(trans(x.vals)) good <- !is.na(y) effect.llines(x[good], y[good], lwd=lwd, lty=lty, col=colors[1], ...) subs <- subscripts+as.numeric(rownames(Data)[1])-1 }, ylab=ylab, xlim=suppressWarnings(trans(xlm)), ylim= if (is.null(ylim)) if (type == "probability") range(prob) else range(logit) else ylim, xlab=if (is.null(xlab)) predictors[x.var] else xlab[[x.var]], main=main, x.vals=x$data[[predictors[x.var]]], rug=rug, scales=list(y=list(at=tickmarks$at, labels=tickmarks$labels, rot=roty, cex=cex.y), x=list(at=tickmarks.x$at, labels=tickmarks.x$labels, rot=rotx, cex=cex.x), alternating=alternating), layout=layout, data=Data, ...) result$split <- split result$more <- more class(result) <- c("plot.eff", class(result)) } } else { layout <- if (is.null(layout)){ lay <- c(prod(n.predictor.cats[-(n.predictors - 1)]), prod(n.predictor.cats[(n.predictors - 1)]), 1) if (lay[1] > 1) lay else lay[c(2, 1, 3)] } else layout if (n.y.lev > min(c(length(colors), length(lines), length(symbols)))) warning('Colors, lines and symbols may have been recycled') range <- if (type=="probability") range(prob, na.rm=TRUE) else range(logit, na.rm=TRUE) ylim <- if (!any(is.na(ylim))) ylim else c(range[1] - .025*(range[2] - range[1]), range[2] + .025*(range[2] - range[1])) tickmarks <- make.ticks(ylim, link=I, inverse=I, at=ticks$at, n=ticks$n) if (is.factor(x$data[[predictors[x.var]]])){ # x-variable a factor key <- list(title=x$response, cex.title=1, border=TRUE, text=list(as.character(unique(response))), lines=list(col=colors[.modc(1:n.y.lev)], lty=lines[.modl(1:n.y.lev)], lwd=lwd), points=list(pch=symbols[.mods(1:n.y.lev)], col=colors[.modc(1:n.y.lev)]), columns = if ("x" %in% names(key.args)) 1 else find.legend.columns(length(n.y.lev), space=if("x" %in% names(key.args)) "top" else key.args$space)) for (k in names(key.args)) key[k] <- key.args[k] if (show.strip.values){ for (pred in predictors[-x.var]){ Data[[pred]] <- as.factor(Data[[pred]]) } } result <- xyplot(eval(if (type=="probability") parse(text=if (n.predictors==1) paste("prob ~ as.numeric(", predictors[x.var], ")") else paste("prob ~ as.numeric(", predictors[x.var],") | ", paste(predictors[-x.var], collapse="*"))) else parse(text=if (n.predictors==1) paste("logit ~ as.numeric(", predictors[x.var], ")") else paste("logit ~ as.numeric(", predictors[x.var],") | ", paste(predictors[-x.var], collapse="*")))), strip=strip.custom(strip.names=c(factor.names, TRUE), sep=" = ", par.strip.text=list(cex=cex.strip), par.strip.text=list(cex=cex.strip)), panel=function(x, y, subscripts, rug, z, x.vals, ...){ if (grid) ticksGrid(x=1:length(levs), y=tickmarks$at) for (i in 1:n.y.lev){ sub <- z[subscripts] == y.lev[i] good <- !is.na(y[sub]) effect.llines(x[sub][good], y[sub][good], lwd=lwd, type="b", col=colors[.modc(i)], lty=lines[.modl(i)], pch=symbols[i], cex=cex, ...) } }, ylab=ylab, ylim= if (is.null(ylim)) if (type == "probability") range(prob) else range(logit) else ylim, xlab=if (is.null(xlab)) predictors[x.var] else xlab[[x.var]], x.vals=x$data[[predictors[x.var]]], rug=rug, z=response, scales=list(x=list(at=1:length(levs), labels=levs, rot=rotx, cex=cex.x), y=list(at=tickmarks$at, labels=tickmarks$labels, rot=roty, cex=cex.y), alternating=alternating), main=main, key=key, layout=layout, data=Data, ...) result$split <- split result$more <- more class(result) <- c("plot.eff", class(result)) } else { # x-variable numeric if(use.splines) effect.llines <- spline.llines # added 10/17/13 range <- if (type=="probability") range(prob, na.rm=TRUE) else range(logit, na.rm=TRUE) ylim <- if (!any(is.na(ylim))) ylim else c(range[1] - .025*(range[2] - range[1]), range[2] + .025*(range[2] - range[1])) tickmarks <- make.ticks(ylim, link=I, inverse=I, at=ticks$at, n=ticks$n) nm <- predictors[x.var] x.vals <- x$data[[nm]] if (nm %in% names(ticks.x)){ at <- ticks.x[[nm]]$at n <- ticks.x[[nm]]$n } else{ at <- NULL n <- 5 } xlm <- if (nm %in% names(xlim)){ xlim[[nm]] } else range_adj(Data[nm]) # range(x.vals) tickmarks.x <- if ((nm %in% names(transform.x)) && !(is.null(transform.x))){ trans <- transform.x[[nm]]$trans make.ticks(trans(xlm), link=transform.x[[nm]]$trans, inverse=transform.x[[nm]]$inverse, at=at, n=n) } else { trans <- I make.ticks(xlm, link=I, inverse=I, at=at, n=n) } key <- list(title=x$response, cex.title=1, border=TRUE, text=list(as.character(unique(response))), lines=list(col=colors[.modc(1:n.y.lev)], lty=lines[.modl(1:n.y.lev)], lwd=lwd), columns = if ("x" %in% names(key.args)) 1 else find.legend.columns(length(n.y.lev), space=if("x" %in% names(key.args)) "top" else key.args$space)) for (k in names(key.args)) key[k] <- key.args[k] if (show.strip.values){ for (pred in predictors[-x.var]){ Data[[pred]] <- as.factor(Data[[pred]]) } } result <- xyplot(eval(if (type=="probability") parse(text=if (n.predictors==1) paste("prob ~ trans(", predictors[x.var], ")") else paste("prob ~ trans(", predictors[x.var],") |", paste(predictors[-x.var], collapse="*"))) else parse(text=if (n.predictors==1) paste("logit ~ trans(", predictors[x.var], ")") else paste("logit ~ trans(", predictors[x.var],") | ", paste(predictors[-x.var], collapse="*")))), strip=strip.custom(strip.names=c(factor.names, TRUE), sep=" = ", par.strip.text=list(cex=cex.strip), par.strip.text=list(cex=cex.strip)), panel=function(x, y, subscripts, rug, z, x.vals, ...){ if (grid) ticksGrid(x=tickmarks.x$at, y=tickmarks$at) if (rug) lrug(trans(x.vals)) for (i in 1:n.y.lev){ sub <- z[subscripts] == y.lev[i] good <- !is.na(y[sub]) effect.llines(x[sub][good], y[sub][good], lwd=lwd, type="l", col=colors[.modc(i)], lty=lines[.modl(i)], ...) } }, ylab=ylab, xlim=suppressWarnings(trans(xlm)), ylim= if (is.null(ylim)) if (type == "probability") range(prob) else range(logit) else ylim, xlab=if (is.null(xlab)) predictors[x.var] else xlab[[x.var]], x.vals=x$data[[predictors[x.var]]], rug=rug, z=response, scales=list(x=list(at=tickmarks.x$at, labels=tickmarks.x$labels, rot=rotx, cex=cex.x), y=list(at=tickmarks$at, labels=tickmarks$labels, rot=roty, cex=cex.y), alternating=alternating), main=main, key=key, layout=layout, data=Data, ...) result$split <- split result$more <- more class(result) <- c("plot.eff", class(result)) } } } else { # stacked plot tickmarks <- make.ticks(c(0, 1), link=I, inverse=I, at=ticks$at, n=ticks$n) layout <- if (is.null(layout)){ lay <- c(prod(n.predictor.cats[-(n.predictors - 1)]), prod(n.predictor.cats[(n.predictors - 1)]), 1) if (lay[1] > 1) lay else lay[c(2, 1, 3)] } else layout if (n.y.lev > length(colors)) stop(paste('Not enough colors to plot', n.y.lev, 'regions')) key <- list(text=list(lab=rev(y.lev)), rectangle=list(col=rev(colors[1:n.y.lev])), columns = 1) # if ("x" %in% names(key.args)) 1 else # find.legend.columns(length(n.y.lev), # space=if("x" %in% names(key.args)) "top" else key.args$space)) for (k in names(key.args)) key[k] <- key.args[k] if (is.factor(x$data[[predictors[x.var]]])){ # x-variable a factor # 11/22/17 check for rank deficient models and if found stop if(any(is.na(Data$prob))) stop("At least one combination of factor levels is not estimable.\n Stacked plots are misleading, change to style='lines'") result <- barchart(eval(parse(text=if (n.predictors == 1) paste("prob ~ ", predictors[x.var], sep="") else paste("prob ~ ", predictors[x.var]," | ", paste(predictors[-x.var], collapse="*")))), strip=strip.custom(strip.names=c(factor.names, TRUE), sep=" = ", par.strip.text=list(cex=cex.strip), par.strip.text=list(cex=cex.strip)), panel=function(x, y, ...){ panel.barchart(x, y, ...) if (grid) ticksGrid(x=NA, y=tickmarks$at, col="white") }, groups = response, col=colors, horizontal=FALSE, stack=TRUE, data=Data, ylim=ylim, # if (is.null(ylim)) 0:1 else ylim, ylab=ylab, xlab=if (is.null(xlab)) predictors[x.var] else xlab[[x.var]], scales=list(x=list(rot=rotx, at=1:length(levs), labels=levs, cex=cex.x), y=list(rot=roty, at=tickmarks$at, labels=tickmarks$labels, cex=cex.y), alternating=alternating), main=main, key=key, layout=layout) result$split <- split result$more <- more class(result) <- c("plot.eff", class(result)) } else { # x-variable numeric if(use.splines) effect.llines <- spline.llines # added 10/17/13 nm <- predictors[x.var] x.vals <- x$data[[nm]] if (nm %in% names(ticks.x)){ at <- ticks.x[[nm]]$at n <- ticks.x[[nm]]$n } else{ at <- NULL n <- 5 } xlm <- if (nm %in% names(xlim)){ xlim[[nm]] } else range_adj(Data[nm]) # range(x.vals) tickmarks.x <- if ((nm %in% names(transform.x)) && !(is.null(transform.x))){ trans <- transform.x[[nm]]$trans make.ticks(trans(xlm), link=transform.x[[nm]]$trans, inverse=transform.x[[nm]]$inverse, at=at, n=n) } else { trans <- I make.ticks(xlm, link=I, inverse=I, at=at, n=n) } if (show.strip.values){ for (pred in predictors[-x.var]){ x$x[[pred]] <- as.factor(x$x[[pred]]) } } result <- densityplot(eval(parse(text=if (n.predictors == 1) paste("~ trans(", predictors[x.var], ")", sep="") else paste("~ trans(", predictors[x.var], ") | ", paste(predictors[-x.var], collapse="*")))), probs=x$prob, strip=strip.custom(strip.names=c(factor.names, TRUE), sep=" = ", par.strip.text=list(cex=cex.strip), par.strip.text=list(cex=cex.strip)), panel = function(x, subscripts, rug, x.vals, probs=probs, col=colors, ...){ fill <- function(x, y1, y2, col){ if (length(y2) == 1) y2 <- rep(y2, length(y1)) if (length(y1) == 1) y1 <- rep(y1, length(y2)) panel.polygon(c(x, rev(x)), c(y1, rev(y2)), col=col) } n <- ncol(probs) Y <- t(apply(probs[subscripts,], 1, cumsum)) fill(x, 0, Y[,1], col=col[1]) for (i in 2:n){ fill(x, Y[,i-1], Y[,i], col=col[i]) } if (rug) lrug(trans(x.vals)) if (grid) ticksGrid(x=tickmarks.x$at, y=tickmarks$at, col="white") }, rug=rug, x.vals=x$data[[predictors[x.var]]], data=x$x, xlim=suppressWarnings(trans(xlm)), ylim= c(0, 1), # if (is.null(ylim)) 0:1 else ylim, ylab=ylab, xlab=if (is.null(xlab)) predictors[x.var] else xlab[[x.var]], scales=list(x=list(at=tickmarks.x$at, labels=tickmarks.x$labels, rot=rotx, cex=cex.x), y=list(rot=roty, at=tickmarks$at, labels=tickmarks$labels, cex=cex.y), alternating=alternating), main=main, key=key, layout=layout, ...) result$split <- split result$more <- more class(result) <- c("plot.eff", class(result)) } } } ### with confidence bands else{ # plot with confidence bands if (type == "probability"){ lower <- lower.prob upper <- upper.prob } else { lower <- lower.logit upper <- upper.logit } if (!multiline){ layout <- if(is.null(layout)) c(prod(n.predictor.cats), length(levels(response)), 1) else layout ### factor if (is.factor(x$data[[predictors[x.var]]])){ # x-variable a factor range <- range(c(lower, upper), na.rm=TRUE) ylim <- if (!any(is.na(ylim))) ylim else c(range[1] - .025*(range[2] - range[1]), range[2] + .025*(range[2] - range[1])) tickmarks <- make.ticks(ylim, link=I, inverse=I, at=ticks$at, n=ticks$n) levs <- levels(x$data[[predictors[x.var]]]) if (show.strip.values){ for (pred in predictors[-x.var]){ Data[[pred]] <- as.factor(Data[[pred]]) } } result <- xyplot(eval(if (type=="probability") parse(text=if (n.predictors==1) paste("prob ~ as.numeric(", predictors[x.var],") |", x$response) else paste("prob ~ as.numeric(", predictors[x.var],") |", paste(predictors[-x.var], collapse="*"), paste("*", x$response))) else parse(text=if (n.predictors==1) paste("logit ~ as.numeric(", predictors[x.var],") |", x$response) else paste("logit ~ as.numeric(", predictors[x.var],")|", paste(predictors[-x.var], collapse="*"), paste("*", x$response)))), par.strip.text=list(cex=0.8), strip=strip.custom(..., strip.names=c(factor.names, TRUE), sep=" = ", par.strip.text=list(cex=cex.strip), par.strip.text=list(cex=cex.strip)), panel=function(x, y, subscripts, x.vals, rug, lower, upper, ... ){ if (grid) ticksGrid(x=1:length(levs), y=tickmarks$at) good <- !is.na(y) effect.llines(x[good], y[good], lwd=lwd, lty=lty, type="b", pch=19, col=colors[1], cex=cex, ...) subs <- subscripts+as.numeric(rownames(Data)[1])-1 if (ci.style == "bars"){ larrows(x0=x[good], y0=lower[subs][good], x1=x[good], y1=upper[subs][good], angle=90, code=3, col=colors[.modc(2)], length=0.125*cex/1.5) } else if(ci.style == "lines"){ effect.llines(x[good], lower[subs][good], lty=2, col=colors[.modc(2)]) effect.llines(x[good], upper[subs][good], lty=2, col=colors[.modc(2)]) } else { if(ci.style == "bands") { panel.bands(x[good], y[good], lower[subs][good], upper[subs][good], fill=band.colors[1], alpha=band.transparency) }} }, ylab=ylab, ylim= if (is.null(ylim)) c(min(lower), max(upper)) else ylim, xlab=if (is.null(xlab)) predictors[x.var] else xlab[[x.var]], main=main, x.vals=x$data[[predictors[x.var]]], rug=rug, lower=lower, upper=upper, scales=list(x=list(at=1:length(levs), labels=levs, rot=rotx, cex=cex.x), y=list(at=tickmarks$at, labels=tickmarks$labels, rot=roty, cex=cex.y), alternating=alternating), layout=layout, data=Data, ...) result$split <- split result$more <- more class(result) <- c("plot.eff", class(result)) } else { # x-variable numeric if(use.splines) effect.llines <- spline.llines # added 10/17/13 range <- range(c(lower, upper), na.rm=TRUE) ylim <- if (!any(is.na(ylim))) ylim else c(range[1] - .025*(range[2] - range[1]), range[2] + .025*(range[2] - range[1])) tickmarks <- make.ticks(ylim, link=I, inverse=I, at=ticks$at, n=ticks$n) nm <- predictors[x.var] x.vals <- x$data[[nm]] if (nm %in% names(ticks.x)){ at <- ticks.x[[nm]]$at n <- ticks.x[[nm]]$n } else{ at <- NULL n <- 5 } xlm <- if (nm %in% names(xlim)){ xlim[[nm]] } else range_adj(Data[nm]) # range(x.vals) tickmarks.x <- if ((nm %in% names(transform.x)) && !(is.null(transform.x))){ trans <- transform.x[[nm]]$trans make.ticks(trans(xlm), link=transform.x[[nm]]$trans, inverse=transform.x[[nm]]$inverse, at=at, n=n) } else { trans <- I make.ticks(xlm, link=I, inverse=I, at=at, n=n) } if (show.strip.values){ for (pred in predictors[-x.var]){ Data[[pred]] <- as.factor(Data[[pred]]) } } result <- xyplot(eval(if (type=="probability") parse(text=if (n.predictors==1) paste("prob ~ trans(", predictors[x.var],") |", x$response) else paste("prob ~ trans(", predictors[x.var],") |", paste(predictors[-x.var], collapse="*"), paste("*", x$response))) else parse(text=if (n.predictors==1) paste("logit ~ trans(", predictors[x.var],") |", x$response) else paste("logit ~ trans(", predictors[x.var],") |", paste(predictors[-x.var], collapse="*"), paste("*", x$response))) ), par.strip.text=list(cex=0.8), strip=strip.custom(strip.names=c(factor.names, TRUE), sep=" = ", par.strip.text=list(cex=cex.strip), par.strip.text=list(cex=cex.strip)), panel=function(x, y, subscripts, x.vals, rug, lower, upper, ... ){ if (grid) ticksGrid(x=tickmarks.x$at, y=tickmarks$at) if (rug) lrug(trans(x.vals)) good <- !is.na(y) effect.llines(x[good], y[good], lwd=lwd, lty=lty, col=colors[1], ...) subs <- subscripts+as.numeric(rownames(Data)[1])-1 if (ci.style == "bars"){ larrows(x0=x[good], y0=lower[subs][good], x1=x[good], y1=upper[subs][good], angle=90, code=3, col=colors[.modc(2)], length=0.125*cex/1.5) } else if(ci.style == "lines"){ effect.llines(x[good], lower[subs][good], lty=2, col=colors[.modc(2)]) effect.llines(x[good], upper[subs][good], lty=2, col=colors[.modc(2)]) } else { if(ci.style == "bands") { panel.bands(x[good], y[good], lower[subs][good], upper[subs][good], fill=band.colors[1], alpha=band.transparency) }} }, ylab=ylab, xlim=suppressWarnings(trans(xlm)), ylim= if (is.null(ylim)) c(min(lower), max(upper)) else ylim, xlab=if (is.null(xlab)) predictors[x.var] else xlab[[x.var]], main=main, x.vals=x$data[[predictors[x.var]]], rug=rug, lower=lower, upper=upper, scales=list(y=list(at=tickmarks$at, labels=tickmarks$labels, rot=roty, cex=cex.y), x=list(at=tickmarks.x$at, labels=tickmarks.x$labels, rot=rotx, cex=cex.x), alternating=alternating), layout=layout, data=Data, ...) result$split <- split result$more <- more class(result) <- c("plot.eff", class(result)) } } else { layout <- if (is.null(layout)){ lay <- c(prod(n.predictor.cats[-(n.predictors - 1)]), prod(n.predictor.cats[(n.predictors - 1)]), 1) if (lay[1] > 1) lay else lay[c(2, 1, 3)] } else layout if (n.y.lev > min(c(length(colors), length(lines), length(symbols)))) warning('Colors, lines and symbols may have been recycled') if (is.factor(x$data[[predictors[x.var]]])){ # x-variable a factor range <- range(c(lower, upper), na.rm=TRUE) ylim <- if (!any(is.na(ylim))) ylim else c(range[1] - .025*(range[2] - range[1]), range[2] + .025*(range[2] - range[1])) tickmarks <- make.ticks(ylim, link=I, inverse=I, at=ticks$at, n=ticks$n) key <- list(title=x$response, cex.title=1, border=TRUE, text=list(as.character(unique(response))), lines=list(col=colors[.modc(1:n.y.lev)], lty=lines[.modl(1:n.y.lev)], lwd=lwd), points=list(pch=symbols[.mods(1:n.y.lev)], col=colors[.modc(1:n.y.lev)]), columns = if ("x" %in% names(key.args)) 1 else find.legend.columns(length(n.y.lev), space=if("x" %in% names(key.args)) "top" else key.args$space)) for (k in names(key.args)) key[k] <- key.args[k] if (show.strip.values){ for (pred in predictors[-x.var]){ Data[[pred]] <- as.factor(Data[[pred]]) } } result <- xyplot(eval(if (type=="probability") parse(text=if (n.predictors==1) paste("prob ~ as.numeric(", predictors[x.var], ")") else paste("prob ~ as.numeric(", predictors[x.var],") | ", paste(predictors[-x.var], collapse="*"))) else parse(text=if (n.predictors==1) paste("logit ~ as.numeric(", predictors[x.var], ")") else paste("logit ~ as.numeric(", predictors[x.var],") | ", paste(predictors[-x.var], collapse="*")))), strip=strip.custom(strip.names=c(factor.names, TRUE), sep=" = ", par.strip.text=list(cex=cex.strip), par.strip.text=list(cex=cex.strip)), panel=function(x, y, subscripts, rug, z, x.vals, lower, upper, ...){ if (grid) ticksGrid(x=1:length(levs), y=tickmarks$at) for (i in 1:n.y.lev){ os <- if (ci.style == "bars"){ (i - (n.y.lev + 1)/2) * (2/(n.y.lev-1)) * .01 * (n.y.lev - 1) } else { 0 } sub <- z[subscripts] == y.lev[i] good <- !is.na(y[sub]) effect.llines(x[sub][good] + os, y[sub][good], lwd=lwd, type="b", col=colors[.modc(i)], lty=lines[.modl(i)], pch=symbols[i], cex=cex, ...) if (ci.style == "bars"){ larrows(x0=x[sub][good] + os, y0=lower[ ][sub][good], x1=x[sub][good] + os, y1=upper[subscripts][sub][good], angle=90, code=3, col=colors[.modc(i)], length=0.125*cex/1.5) } else if(ci.style == "lines"){ effect.llines(x[sub][good], lower[subscripts][sub][good], lty=lines[.modl(i)], col=colors[.modc(i)]) effect.llines(x[sub][good], upper[subscripts][sub][good], lty=lines[.modl(i)], col=colors[.modc(i)]) } else { if(ci.style == "bands") { panel.bands(x[sub][good], y[sub][good], lower[subscripts][sub][good], upper[subscripts][sub][good], fill=colors[.modc(i)], alpha=band.transparency) }} } }, ylab=ylab, ylim= if (is.null(ylim)) c(min(lower), max(upper)) else ylim, xlab=if (is.null(xlab)) predictors[x.var] else xlab[[x.var]], x.vals=x$data[[predictors[x.var]]], rug=rug, z=response, lower=lower, upper=upper, scales=list(x=list(at=1:length(levs), labels=levs, rot=rotx, cex=cex.x), y=list(at=tickmarks$at, labels=tickmarks$labels, rot=roty, cex=cex.y), alternating=alternating), main=main, key=key, layout=layout, data=Data, ...) result$split <- split result$more <- more class(result) <- c("plot.eff", class(result)) } else { # x-variable numeric if(use.splines) effect.llines <- spline.llines # added 10/17/13 range <- range(c(lower, upper), na.rm=TRUE) ylim <- if (!any(is.na(ylim))) ylim else c(range[1] - .025*(range[2] - range[1]), range[2] + .025*(range[2] - range[1])) tickmarks <- make.ticks(ylim, link=I, inverse=I, at=ticks$at, n=ticks$n) nm <- predictors[x.var] x.vals <- x$data[[nm]] if (nm %in% names(ticks.x)){ at <- ticks.x[[nm]]$at n <- ticks.x[[nm]]$n } else{ at <- NULL n <- 5 } xlm <- if (nm %in% names(xlim)){ xlim[[nm]] } else range_adj(Data[nm]) # range(x.vals) tickmarks.x <- if ((nm %in% names(transform.x)) && !(is.null(transform.x))){ trans <- transform.x[[nm]]$trans make.ticks(trans(xlm), link=transform.x[[nm]]$trans, inverse=transform.x[[nm]]$inverse, at=at, n=n) } else { trans <- I make.ticks(xlm, link=I, inverse=I, at=at, n=n) } key <- list(title=x$response, cex.title=1, border=TRUE, text=list(as.character(unique(response))), lines=list(col=colors[.modc(1:n.y.lev)], lty=lines[.modl(1:n.y.lev)], lwd=lwd), columns = if ("x" %in% names(key.args)) 1 else find.legend.columns(length(n.y.lev), space=if("x" %in% names(key.args)) "top" else key.args$space)) for (k in names(key.args)) key[k] <- key.args[k] if (show.strip.values){ for (pred in predictors[-x.var]){ Data[[pred]] <- as.factor(Data[[pred]]) } } result <- xyplot(eval(if (type=="probability") parse(text=if (n.predictors==1) paste("prob ~ trans(", predictors[x.var], ")") else paste("prob ~ trans(", predictors[x.var],") |", paste(predictors[-x.var], collapse="*"))) else parse(text=if (n.predictors==1) paste("logit ~ trans(", predictors[x.var], ")") else paste("logit ~ trans(", predictors[x.var],") | ", paste(predictors[-x.var], collapse="*")))), strip=strip.custom(strip.names=c(factor.names, TRUE), sep=" = ", par.strip.text=list(cex=cex.strip), par.strip.text=list(cex=cex.strip)), panel=function(x, y, subscripts, rug, z, x.vals, lower, upper, ...){ if (grid) ticksGrid(x=tickmarks.x$at, y=tickmarks$at) if (rug) lrug(trans(x.vals)) for (i in 1:n.y.lev){ sub <- z[subscripts] == y.lev[i] good <- !is.na(y[sub]) effect.llines(x[sub][good], y[sub][good], lwd=lwd, type="l", col=colors[.modc(i)], lty=lines[.modl(i)], ...) if (ci.style == "bars"){ larrows(x0=x[sub][good], y0=lower[subscripts][sub][good], x1=x[sub][good], y1=upper[subscripts][sub][good], angle=90, code=3, col=colors[.modc(i)], length=0.125*cex/1.5) } else if(ci.style == "lines"){ effect.llines(x[sub][good], lower[subscripts][sub][good], lty=lines[.modl(i)], col=colors[.modc(i)]) effect.llines(x[sub][good], upper[subscripts][sub][good], lty=lines[.modl(i)], col=colors[.modc(i)]) } else { if(ci.style == "bands") { panel.bands(x[sub][good], y[sub][good], lower[subscripts][sub][good], upper[subscripts][sub][good], fill=colors[.modc(i)], alpha=band.transparency) }} } }, ylab=ylab, xlim=suppressWarnings(trans(xlm)), ylim= if (is.null(ylim)) c(min(lower), max(upper)) else ylim, xlab=if (is.null(xlab)) predictors[x.var] else xlab[[x.var]], x.vals=x$data[[predictors[x.var]]], rug=rug, z=response, lower=lower, upper=upper, scales=list(x=list(at=tickmarks.x$at, labels=tickmarks.x$labels, rot=rotx, cex=cex.x), y=list(at=tickmarks$at, labels=tickmarks$labels, rot=roty, cex=cex.y), alternating=alternating), main=main, key=key, layout=layout, data=Data, ...) result$split <- split result$more <- more class(result) <- c("plot.eff", class(result)) } } } result } effects/R/Effect.mlm.R0000644000176200001440000000273115132433422014177 0ustar liggesusers# Calculate Effects for term(s) in a Multivariate Linear Model # 2014-03-12: Introduced allEffects.mlm(). J. Fox Effect.mlm <- function(focal.predictors, mod, response, ...) { if (missing(response)) { mod.frame <- model.frame(mod) response <- colnames(model.response(mod.frame)) } else if (is.numeric(response)) { mod.frame <- model.frame(mod) response.names <- colnames(model.response(mod.frame)) response <- response.names[response] } if (length(response)==1) { mod.1 <- update(mod, as.formula(paste(response, " ~ ."))) result <- Effect(focal.predictors, mod.1, ...) } else { result <- as.list(NULL) for (resp in response) { mod.1 <- update(mod, as.formula(paste(resp, " ~ ."))) lab <- resp result[[lab]] <- Effect(focal.predictors, mod.1, ...) } class(result) <- "efflist" } result } allEffects.mlm <- function(mod, ...){ result <- NextMethod() class(result) <- "mlm.efflist" result } plot.mlm.efflist <- function(x, ...){ x <- do.call(c, x) class(x) <- "efflist" plot(x, ...) } summary.mlm.efflist <- function(object, ...){ object <- do.call(c, object) for (effect in names(object)){ cat("\n\nResponse:", object[[effect]]$response, "\n") print(summary(object[[effect]], ...)) } } print.mlm.efflist <- function(x, ...){ x <- do.call(c, x) for (effect in names(x)){ cat("\n\nResponse:", x[[effect]]$response, "\n") print(x[[effect]], ...) } invisible(x) } effects/R/Effect-methods.R0000644000176200001440000001147015132433422015054 0ustar liggesusers# 12/11/2017: S. Weisberg. This file contains all the Effect methods that call # Effect.default. Excluded are Effect.lm, Effect.polr, and Effect.multinom, # and for now Effect.svyglm. # 06/08/2018: rewrote method for betareg, removing the 'link' argument from sources # 11/28/2018: modified Effect.gls to ignore the weights argument by # deleting it from sources$call. # 11/30/2018: fixed bug in Effect.merMod() specifying fam$family explicitly. # 7/5/2019: clm clm2 and clmm were not passing the estimated threshholds to polr # 3/22/2020: added Effect.glmmPQL (from MASS package) # 4/27/2020: require 'insight' package for find_formula and get_coefficients # so formula and coefficients are generally not needed # 2020-06-13: fix typo (omitted ') in an error message # 2020-06-23: All the Effect.* methods previously in this file have been removed # and replaced by effSources.* methods. effSources <- function(mod){ UseMethod("effSources", mod) } effSources.default <- function(mod){NULL} # lme, nlme package - default works # gls, nlme package effSources.gls <- function(mod){ cl <- mod$call cl$weights <- NULL list(call = cl) } # glmmPQL method 3/22/2020 effSources.glmmPQL <- function(mod) {list(family = mod$family)} # lme4 -- handled via an Effect method to allow for KR argument # effSources.merMod <- function(mod){NULL} # rlmer in robustlmm package, not really needed effSources.rlmerMod <- function(mod){NULL} # clm in the ordinal package. clm is not supported by insight package effSources.clm <- function(mod){ if (requireNamespace("MASS", quietly=TRUE)){ polr <- MASS::polr} else stop("MASS package is required") polr.methods <- c("logistic", "probit", "loglog", "cloglog", "cauchit") method <- mod$link if(method == "logit") method <- "logistic" if(!(method %in% polr.methods)) stop("'link' must be a 'method' supported by polr; see help(polr)") if(mod$threshold != "flexible") stop("Effects only supports the 'flexible' threshold") numTheta <- length(mod$Theta) numBeta <- length(mod$beta) or <- c( (numTheta+1):(numTheta + numBeta), 1:(numTheta)) list( type = "polr", coefficients = mod$beta, zeta = mod$alpha, method=method, vcov = as.matrix(vcov(mod)[or, or])) } # clm2, this is supported by insight package effSources.clm2 <- function(mod){ if (requireNamespace("MASS", quietly=TRUE)){ polr <- MASS::polr} polr.methods <- c("logistic", "probit", "loglog", "cloglog", "cauchit") method <- mod$link if(!(method %in% polr.methods)) stop("'link' must be a 'method' supported by polr; see help(polr)") if(is.null(mod$Hessian)){ message("\nRe-fitting to get Hessian\n") mod <- update(mod, Hess=TRUE)} if(mod$threshold != "flexible") stop("Effects only supports the flexible threshold") numTheta <- length(mod$Theta) numBeta <- length(mod$beta) or <- c( (numTheta+1):(numTheta + numBeta), 1:(numTheta)) list( type = "polr", formula = mod$call$location, coefficients = mod$beta, zeta = mod$Theta, method=method, vcov = as.matrix(vcov(mod)[or, or])) } #clmm in ordinal package effSources.clmm <- function(mod){ if (requireNamespace("MASS", quietly=TRUE)){ polr <- MASS::polr} else stop("The MASS package must be installed") polr.methods <- c("logistic", "probit", "loglog", "cloglog", "cauchit") method <- mod$link if(method == "logit") method <- "logistic" if(!(method %in% polr.methods)) stop("'link' must be a 'method' supported by polr; see help(polr)") if(is.null(mod$Hessian)){ message("\nRe-fitting to get Hessian\n") mod <- update(mod, Hess=TRUE)} if(mod$threshold != "flexible") stop("Only threshold='flexible' is supported by effects") numTheta <- length(mod$Theta) numBeta <- length(mod$beta) or <- c( (numTheta+1):(numTheta + numBeta), 1:(numTheta)) Vcov <- as.matrix(vcov(mod)[or, or]) list( type = "polr", formula = insight::find_formula(mod)$conditional, coefficients = mod$beta, zeta=mod$alpha, method=method, vcov = as.matrix(Vcov)) } # betareg from the betareg package effSources.betareg <- function(mod){ coef <- mod$coefficients$mean vco <- vcov(mod)[1:length(coef), 1:length(coef)] # betareg uses beta errors with mean link given in mod$link$mean. # Construct a family based on the binomial() family fam <- binomial(link=mod$link$mean) # adjust the variance function to account for beta variance fam$variance <- function(mu){ f0 <- function(mu, eta) (1-mu)*mu/(1+eta) do.call("f0", list(mu, mod$coefficient$precision))} # adjust initialize fam$initialize <- expression({mustart <- y}) # collect arguments args <- list( call = mod$call, formula = formula(mod), family=fam, coefficients = coef, vcov = vco) args } effects/R/plot-methods.R0000644000176200001440000013612015132433422014636 0ustar liggesusers # plot.eff method for effects package, moved here from plot-summary-print-methods.R # The plot.effpoly method remains there for now. # 2013-10-17: Added use.splines keyword to plot.eff. Sandy # 2013-10-17: Made ci.style="bands" default for variates; allow "bands" if multiline=TRUE # 2013-10-29: fixed plot.eff() to handle factors with "valid" NA level. J. Fox # 2014-03-03: modified plot.eff() to handle partial residuals. J. Fox # 2014-09-20: fixed plot.eff() to work with partial residuals when rescale.axis=FALSE; # added smooth.residuals argument. J. Fox # 2014-10-10: namespace fixes. J. Fox # 2014-12-05: made key.args more flexible. J. Fox # 2015-03-22: use wide columns by default only when x for legend not set. J. Fox # 2015-03-25: use non-robust loess smooth for partial residuals for non-Gaussian families. J. Fox # 2015-03-25: rationalized type and rescale.axis args to plot.eff(); deprecated rescale.axis arg. J. Fox # 2015-05-28: added residuals.smooth.color argument. J. Fox # 2015-08-28: added residuals.cex argument. J. Fox # 2016-03-01: move computation of partial residuals to the plot.eff() method. J. Fox # 2016-05-22: modified make.ticks() to avoid possible failure due to floating-point inaccuracy. J. Fox # 2016-08-31: fixed plotting with partial residuals with various scalings of y-axis and x-axis. J. Fox # 2016-09-16: added show.strip.values argument to plot.eff(). J. Fox # 2017-06-12: fixed bug in plot.eff() for multiline displays with many conditioning variables. J. Fox # 2017-07-15: modified plot.eff() to consolidate arguments and use lattice theme. J. Fox # 2017-08-09: small bug fixes, reorganized axes=list(x=list()) argument. J. Fox # 2017-08-17: tweaked layout. J. Fox # 2017-08-23: Fixed bug with the lattice=list(array()) argument in plot.efflist --- lattice was as # an argument to the next method twice # 2017-08-23: plot.eff, in key.args, set default for between.columns=0 # 2017-08-20: reintroduce legacy arguments for plot.eff() # 2017-09-10: use replacement for grid.panel() # 2017-11-03: Added a test to assume that at least one point will be plotted in a tile, else # draw a blank tile. Needed for rank-deficient models. S. Weisberg. # 2018-01-02: Changed the default key: see lines 240-241 # 2018-01-02: Rewrote find.legend columns, lines 41-44 # 2018-01-30: enlarged text in key titles # 2018-05-14: support plotting partial residuals against a factor on the horizontal axis in plot.lm() # 2018-05-29: lty was ignored for multiplot with factor on x-axis; fixed (reported by Krisztian Magori) # 2018-05-30: don't use hard-coded pch=19 when plotting a factor on the x-axis. # 2018-06-30: add cex sub-args for x and y axes (suggestion of Charles Leger). # 2018-07-04: add cex sub-arg for strips. # 2018-10-09: moved transform arg from Effect to axes=list(y=list(transform=)) # 2018-10-15: moved z.var to lines=list(z.var) # 2018-10-25: check number of points used for spline interpolation # 2018-10-25: fixed bug in plot.eff() introduced by previous modification to as.data.frame.eff(). # 2018-11-03: fixed bug in plotting partial residuals when a factor focal predictor had empty levels. # 2019-02-13: made sure lty not ignored. # 2019-08-27: correctly handle character or logical predictor # 2020-11-11: fixed bug in plot.eff when x.var is set for multiline plot. # 2025-07-21: rename range_adj() to range_adj to avoid generic confusion. # the following functions aren't exported #find.legend.columns <- function(n, target=min(4, n)){ # rem <- n %% target # if (rem != 0 && rem < target/2) target <- target - 1 # target #} # new version 1/2/2017 by sw find.legend.columns <- function(n, space="top"){ if(space == "right") 1 else { if(n <= 2) 2 else { if(n == 3) 1 else {if (n <= 6) 2 else 3}}} } make.ticks <- function(range, link, inverse, at, n) { warn <- options(warn=-1) on.exit(options(warn)) link <- if (is.null(link)) function(x) nlm(function(y) (inverse(y) - x)^2, mean(range))$estimate else link if (is.null(n)) n <- 5 labels <- if (is.null(at)){ range.labels <- sapply(range, inverse) labels <- grid::grid.pretty(range.labels) } else at ticks <- try(sapply(labels, link), silent=TRUE) if (inherits(ticks, "try-error")){ ticks <- seq(range[1], range[2], length=n) } list(at=ticks, labels=format(labels)) } range_adj <- function(x){ range <- range(x, na.rm=TRUE) c(range[1] - .025*(range[2] - range[1]), range[2] + .025*(range[2] - range[1])) } # added, modified from http://www.r-bloggers.com/confidence-bands-with-lattice-and-r/ panel.bands <- function(x, y, upper, lower, fill, col, subscripts, ..., font, fontface, use.splines=FALSE) { if(!missing(subscripts)) { upper <- upper[subscripts] lower <- lower[subscripts] } if (use.splines){ if (length(x) < 5) warning("spline interpolation may be unstable with only ", length(x), " points") up <- spline(x, upper) down <- spline(x, lower) x <- up$x upper <- up$y lower <- down$y } panel.polygon(c(x, rev(x)), c(upper, rev(lower)), col = fill, fill=fill, border = FALSE, ...) } # modified by Michael Friendly: added key.args: # modified by Michael Friendly: added ci.style="bands" # modified by Michael Friendly: added lwd= argument for llines (not used elsewhere) # modified by Michael Friendly: added alpha.band= argument for ci.style="bands" spline.llines <- function(x, y, ...) { if (length(x) < 5) warning("spline interpolation may be unstable with only ", length(x), " points") llines(spline(x, y), ...) } plot.eff <- function(x, x.var, main=paste(effect, "effect plot"), symbols=TRUE, lines=TRUE, axes, confint, partial.residuals, id, lattice, ..., # legacy arguments: multiline, z.var, rug, xlab, ylab, colors, cex, lty, lwd, ylim, xlim, factor.names, ci.style, band.transparency, band.colors, type, ticks, alternating, rotx, roty, grid, layout, rescale.axis, transform.x, ticks.x, show.strip.values, key.args, use.splines, residuals.color, residuals.pch, residuals.cex, smooth.residuals, residuals.smooth.color, show.fitted, span) { closest <- function(x, x0) apply(outer(x, x0, FUN=function(x, x0) abs(x - x0)), 1, which.min) .mod <- function(a, b) ifelse( (d <- a %% b) == 0, b, d) .modc <- function(a) .mod(a, length(colors)) .mods <- function(a) .mod(a, length(symbols)) .modl <- function(a) .mod(a, length(lines)) .modb <- function(a) .mod(a, length(band.colors)) if (!is.logical(lines) && !is.list(lines)) lines <- list(lty=lines) levels <- sapply(x$variables, function(z) length(as.vector(z[["levels"]]))) lines <- applyDefaults(lines, defaults=list(multiline=is.null(x$se), z.var=which.min(levels), lty=trellis.par.get("superpose.line")$lty, lwd=trellis.par.get("superpose.line")$lwd[1], col=trellis.par.get("superpose.line")$col, splines=TRUE), onFALSE=list(multiline=FALSE, lty=0, lwd=0, col=rgb(1, 1, 1, alpha=0), splines=FALSE), arg="lines") if (missing(multiline)) multiline <- lines$multiline if (missing(z.var)) z.var <- lines$z.var if (missing(lwd)) lwd <- lines$lwd if (missing(colors)) colors <- lines$col if (missing(use.splines)) use.splines <- lines$splines lines <- if (missing(lty)) lines$lty else lty if (!is.logical(symbols) && !is.list(symbols)) symbols <- list(pch=symbols) symbols <- applyDefaults(symbols, defaults=list(pch=trellis.par.get("superpose.symbol")$pch, cex=trellis.par.get("superpose.symbol")$cex[1]), onFALSE=list(pch=NA_integer_, cex=0), arg="symbols") cex <- symbols$cex symbols <- symbols$pch if (missing(axes)) axes <- NULL axes <- applyDefaults(axes, defaults=list( x=list(rotate=0, rug=TRUE, cex=1), y=list(lab=NA, lim=NA, cex=1, ticks=list(at=NULL, n=5), type="rescale", rotate=0, transform=NULL), alternating=TRUE, grid=FALSE), arg="axes") x.args <- applyDefaults(axes$x, defaults=list(rotate=0, rug=TRUE, cex=1), arg="axes$x") if (missing(xlab)) { xlab.arg <- FALSE xlab <- list() } if (missing(xlim)) { xlim.arg <- FALSE xlim <- list() } if (missing(ticks.x)) { ticks.x.arg <- FALSE ticks.x <- list() } if (missing(transform.x)) { transform.x.arg <- FALSE transform.x <- list() } if (missing(rotx)) rotx <- x.args$rotate if (missing(rug)) rug <- x.args$rug cex.x <- x.args$cex x.args$rotate <- NULL x.args$rug <- NULL x.args$cex <- NULL x.pred.names <- names(x.args) if (length(x.pred.names) > 0){ for (pred.name in x.pred.names){ x.pred.args <- applyDefaults(x.args[[pred.name]], defaults=list(lab=NULL, lim=NULL, ticks=NULL, transform=NULL), arg=paste0("axes$x$", pred.name)) if (!xlab.arg) xlab[[pred.name]] <- x.pred.args$lab if (!xlim.arg) xlim[[pred.name]] <- x.pred.args$lim if (!ticks.x.arg) ticks.x[[pred.name]] <- x.pred.args$ticks if (!transform.x.arg) transform.x[[pred.name]] <- x.pred.args$transform } } if (length(xlab) == 0) xlab <- NA if (length(xlim) == 0) xlim <- NA if (length(ticks.x) == 0) ticks.x <- NA if (length(transform.x) == 0) transform.x <- NA y.args <- applyDefaults(axes$y, defaults=list(lab=NA, lim=NA, cex=1, ticks=list(at=NULL, n=5), type="rescale", rotate=0, transform=NULL), arg="axes$y") if (missing(ylab)) ylab <- y.args$lab if (missing(ylim)) ylim <- y.args$lim if (missing(ticks)) ticks <- y.args$ticks if (missing(type)) type <- y.args$type if (!missing(rescale.axis)) type <- if (rescale.axis) "rescale" else "response" type <- match.arg(type, c("rescale", "response", "link")) if (missing(roty)) roty <- y.args$rotate cex.y <- y.args$cex custom <- y.args$transform if(inherits(custom, "function")){ custom <- list(trans=I, inverse=custom) type <- "response" } # if(!is.null(custom)) type="response" if (missing(alternating)) alternating <- axes$alternating if (missing(grid)) grid <- axes$grid if (missing(confint) || isTRUE(confint)) confint <- NULL confint <- applyDefaults(confint, defaults=list(style=NULL, alpha=0.15, col=colors), onFALSE=list(style="none", alpha=0, col=NA_integer_), arg="confint") if (missing(ci.style)) ci.style <- confint$style if (missing(band.transparency)) band.transparency <- confint$alpha if (missing(band.colors)) band.colors <- confint$col if(!is.null(ci.style)) ci.style <- match.arg(ci.style, c("auto", "bars", "lines", "bands", "none")) if (missing(partial.residuals)) partial.residuals <- NULL if (is.logical(partial.residuals)) partial.residuals <- list(plot=partial.residuals) partial.residuals <- applyDefaults(partial.residuals, defaults=list( plot=!is.null(x$residuals), fitted=FALSE, col=colors[2], pch=1, cex=1, smooth=TRUE, span=2/3, smooth.col=colors[2], lty=lines[1], lwd=lwd), arg="partial.residuals") if (missing(show.fitted)) show.fitted <- partial.residuals$fitted if (missing(residuals.color)) residuals.color <- partial.residuals$col if (missing(residuals.pch)) residuals.pch <- partial.residuals$pch if (missing(residuals.cex)) residuals.cex <- partial.residuals$cex if (missing(smooth.residuals)) smooth.residuals <- partial.residuals$smooth if (missing(residuals.smooth.color)) residuals.smooth.color <- partial.residuals$smooth.col residuals.lty <- partial.residuals$lty residuals.lwd <- partial.residuals$lwd if (missing(span)) span <- partial.residuals$span partial.residuals <- partial.residuals$plot if (missing(id) || isFALSE(id)) { id.n <- 0 id.cex <- 0 id.col <- NULL id.labels <- NULL } else { id <- applyDefaults(id, list( n=2, cex=0.75, col=residuals.color, labels=NULL ), arg="id") id.n <- id$n id.col <- id$col id.cex <- id$cex id.labels <- id$labels } if (missing(lattice)) lattice <- NULL lattice <- applyDefaults(lattice, defaults=list( layout=NULL, #key.args=list(), strip=list(factor.names=TRUE, values=!partial.residuals, cex=1), array=list(row=1, col=1, nrow=1, ncol=1, more=FALSE), arg="lattice" )) lattice$key.args <- applyDefaults(lattice$key.args, defaults=list( space="top", border=FALSE, fontfamily="sans", cex=.75, cex.title=1, arg="key.args" )) if("x" %in% names(lattice$key.args)) lattice$key.args[["space"]] <- NULL if (missing(layout)) layout <- lattice$layout if (missing(key.args)){ lattice$key.args[["between.columns"]] <- if(is.null(lattice$key.args[["between.columns"]])) 0 else lattice$key.args[["between.columns"]] key.args <- lattice$key.args } strip.args <- applyDefaults(lattice$strip, defaults=list(factor.names=TRUE, values=!partial.residuals, cex=1), arg="lattice$strip") if (missing(factor.names)) factor.names <- strip.args$factor.names if (missing(show.strip.values)) show.strip.values <- strip.args$values cex.strip <- strip.args$cex height.strip <- max(1, cex.strip) array.args <- applyDefaults(lattice$array, defaults=list(row=1, col=1, nrow=1, ncol=1, more=FALSE), arg="lattice$array") row <- array.args$row col <- array.args$col nrow <- array.args$nrow ncol <- array.args$ncol more <- array.args$more if (smooth.residuals && !is.null(x$family)){ loess.family <- if (x$family == "gaussian") "symmetric" else "gaussian" average.resid <- if (loess.family == "gaussian") mean else median } switch(type, rescale = { type <- "response" rescale.axis <- TRUE }, response = { type <- "response" rescale.axis <- FALSE }, link = { type <- "link" rescale.axis <- TRUE } ) # levels <- sapply(x$variables, function(z) length(as.vector(z[["levels"]]))) thresholds <- x$thresholds has.thresholds <- !is.null(thresholds) effect.llines <- llines if (length(ylab) == 1 && is.na(ylab)){ ylab <- if (has.thresholds) paste(x$response, ": ", paste(x$y.levels, collapse=", "), sep="") else x$response } if (has.thresholds){ threshold.labels <- abbreviate(x$y.levels, minlength=1) threshold.labels <- paste(" ", paste(threshold.labels[-length(threshold.labels)], threshold.labels[-1], sep=" - "), " ", sep="") } original.link <- trans.link <- if(!is.null(custom)) custom$trans else x$transformation$link original.inverse <- trans.inverse <- if(!is.null(custom)) custom$inverse else x$transformation$inverse residuals <- if (partial.residuals) x$residuals else NULL if (!is.null(residuals) && !is.null(id.labels)) names(residuals) <- id.labels partial.residuals.range <- x$partial.residuals.range if (!rescale.axis){ x$lower[!is.na(x$lower)] <- trans.inverse(x$lower[!is.na(x$lower)]) x$upper[!is.na(x$upper)] <- trans.inverse(x$upper[!is.na(x$upper)]) x$fit[!is.na(x$fit)] <- trans.inverse(x$fit)[!is.na(x$fit)] trans.link <- trans.inverse <- I } x.all <- x$x.all if (!is.null(x.all)){ for (i in 1:ncol(x.all)){ if (inherits(x.all[, i], "factor")) x.all[, i] <- droplevels(x.all[, i]) } } split <- c(col, row, ncol, nrow) if (missing(x.var)) x.var <- x$x.var if (!is.null(x.var) && is.numeric(x.var)) x.var <- colnames(x$x)[x.var] x.data <- x$data for (i in 1:ncol(x.data)){ if (inherits(x.data[, i], "factor")) x.data[, i] <- droplevels(x.data[, i]) } effect <- paste(sapply(x$variables, "[[", "name"), collapse="*") vars <- x$variables x <- as.data.frame(x, type="link") for (i in 1:length(vars)){ if (!(vars[[i]]$is.factor)) next x[, i] <- factor(x[,i], levels=vars[[i]]$levels, exclude=NULL) x[, i] <- droplevels(x[, i]) } has.se <- !is.null(x$se) n.predictors <- ncol(x) - 1 - 3*has.se if (n.predictors == 1){ predictor <- names(x)[1] if (is.list(xlab)) xlab <- xlab[[predictor]] ### factor no other predictors if (is.factor(x[,1])){ ci.style <- if(is.null(ci.style) || ci.style == "auto") "bars" else ci.style range <- if(has.se & ci.style!="none") range(c(x$lower, x$upper), na.rm=TRUE) else range(x$fit, na.rm=TRUE) ylim <- if (!any(is.na(ylim))) ylim else c(range[1] - .025*(range[2] - range[1]), range[2] + .025*(range[2] - range[1])) if (!is.null(partial.residuals.range)){ ylim[1] <- min(ylim[1], partial.residuals.range[1]) ylim[2] <- max(ylim[2], partial.residuals.range[2]) } tickmarks <- if (type == "response" && rescale.axis) make.ticks(ylim, link=trans.link, inverse=trans.inverse, at=ticks$at, n=ticks$n) else make.ticks(ylim, link=I, inverse=I, at=ticks$at, n=ticks$n) levs <- levels(x[,1]) n.lev <- length(levs) plot <- xyplot(eval(parse( text=paste("fit ~ as.numeric(", names(x)[1], ")"))), strip=strip.custom(strip.names=c(factor.names, TRUE), par.strip.text=list(cex=cex.strip)), par.settings=list(layout.heights=list(strip=height.strip)), panel=function(x, y, lower, upper, has.se, ...){ if (grid) ticksGrid(x=1:length(levs), y=tickmarks$at) good <- !is.na(y) if(!all(!good)){ if (has.se){ if (ci.style == "bars"){ larrows(x0=x[good], y0=lower[good], x1=x[good], y1=upper[good], angle=90, code=3, col=if (partial.residuals) band.colors[1] else colors[.modc(2)], length=0.125*cex/1.5) } else if(ci.style == "lines") { effect.llines(x[good], lower[good], lty=2, col=colors[.modc(2)]) effect.llines(x[good], upper[good], lty=2, col=colors[.modc(2)]) } else{ if(ci.style == "bands") { panel.bands(x[good], y[good], upper[good], lower[good], fill=band.colors[1], alpha=band.transparency, use.splines=FALSE) }} } if (partial.residuals){ x.fit <- as.numeric(as.factor(x.data[good, predictor])) partial.res <- y[x.fit] + residuals[good] lpoints(jitter(x.fit, factor=0.5), partial.res, col=residuals.color, pch=residuals.pch, cex=residuals.cex) if (smooth.residuals && length(partial.res) != 0) { lpoints(1:n.lev, tapply(partial.res, x.fit, average.resid), pch=16, cex=residuals.cex*1.25, col=residuals.color) } } effect.llines(x[good], y[good], lwd=lwd, col=colors[1], lty=lines, type='b', pch=symbols[1], cex=cex, ...) if (has.thresholds){ panel.abline(h=thresholds, lty=3) panel.text(rep(current.panel.limits()$xlim[1], length(thresholds)), thresholds, threshold.labels, adj=c(0,0), cex=0.75) panel.text(rep(current.panel.limits()$xlim[2], length(thresholds)), thresholds, threshold.labels, adj=c(1,0), cex=0.75) } }}, ylim=ylim, ylab=ylab, xlab=if (length(xlab) == 1 && is.na(xlab)) names(x)[1] else xlab, scales=list(x=list(at=1:length(levs), labels=levs, rot=rotx, cex=cex.x), y=list(at=tickmarks$at, labels=tickmarks$labels, rot=roty, cex=cex.y), alternating=alternating, y=roty), main=main, lower=x$lower, upper=x$upper, has.se=has.se, data=x, ...) result <- update(plot, layout = if (is.null(layout)) c(0, prod(dim(plot))) else layout) result$split <- split result$more <- more class(result) <- c("plot.eff", class(result)) } ### variate, no other predictors *** else { effect.llines <- if(use.splines) spline.llines else effect.llines ci.style <- if(is.null(ci.style) || ci.style == "auto") "bands" else ci.style range <- if(has.se && ci.style!="none") range(c(x$lower, x$upper), na.rm=TRUE) else range(x$fit, na.rm=TRUE) ylim <- if (!any(is.na(ylim))) ylim else if (is.null(residuals)) c(range[1] - .025*(range[2] - range[1]), range[2] + .025*(range[2] - range[1])) else if (rescale.axis) c(min(partial.residuals.range[1], range[1] - .025*(range[2] - range[1])), max(partial.residuals.range[2], range[2] + .025*(range[2] - range[1]))) else c(min(original.inverse(partial.residuals.range[1]), range[1] - .025*(range[2] - range[1])), max(original.inverse(partial.residuals.range[2]), range[2] + .025*(range[2] - range[1]))) tickmarks <- if (type == "response" && rescale.axis) make.ticks(ylim, link=trans.link, inverse=trans.inverse, at=ticks$at, n=ticks$n) else make.ticks(ylim, link=I, inverse=I, at=ticks$at, n=ticks$n) nm <- names(x)[1] x.vals <- x.data[, nm] if (nm %in% names(ticks.x)){ at <- ticks.x[[nm]]$at n <- ticks.x[[nm]]$n } else{ at <- NULL n <- 5 } xlm <- if (nm %in% names(xlim)){ xlim[[nm]] } else range_adj(x[nm]) # range(x.vals) tickmarks.x <- if ((nm %in% names(transform.x)) && !(is.null(transform.x))){ trans <- transform.x[[nm]]$trans make.ticks(trans(xlm), link=transform.x[[nm]]$trans, inverse=transform.x[[nm]]$inverse, at=at, n=n) } else { trans <- I make.ticks(xlm, link=I, inverse=I, at=at, n=n) } if (is.null(x.var)){ if (!is.null(residuals)){ x.var <- names(x)[1] } else x.var <- which.max(levels) } if (!is.null(residuals)) x.fit <- x.data[, predictor] if (is.numeric(x.var)) x.var <- predictor plot <- xyplot(eval(parse( text=paste("fit ~ trans(", x.var, ")"))), strip=strip.custom(strip.names=c(factor.names, TRUE), par.strip.text=list(cex=cex.strip)), par.settings=list(layout.heights=list(strip=height.strip)), panel=function(x, y, x.vals, rug, lower, upper, has.se, ...){ if (grid) ticksGrid(x=tickmarks.x$at, y=tickmarks$at) good <- !is.na(y) if(!all(!good)){ axis.length <- diff(range(x)) effect.llines(x[good], y[good], lwd=lwd, col=colors[1], lty=lines, ...) if (rug && is.null(residuals)) lrug(trans(x.vals)) if (has.se){ if (ci.style == "bars"){ larrows(x0=x[good], y0=lower[good], x1=x[good], y1=upper[good], angle=90, code=3, col=if (partial.residuals) band.colors[1] else colors[.modc(2)], length=.125*cex/1.5) } else if(ci.style == "lines") { effect.llines(x[good], lower[good], lty=2, col=colors[.modc(2)]) effect.llines(x[good], upper[good], lty=2, col=colors[.modc(2)]) } else{ if(ci.style == "bands") { panel.bands(x[good], y[good], upper[good], lower[good], fill=band.colors[1], alpha=band.transparency, use.splines=use.splines) }} } if (has.thresholds){ panel.abline(h=thresholds, lty=3) panel.text(rep(current.panel.limits()$xlim[1], length(thresholds)), thresholds, threshold.labels, adj=c(0,0), cex=0.75) panel.text(rep(current.panel.limits()$xlim[2], length(thresholds)), thresholds, threshold.labels, adj=c(1,0), cex=0.75) } if (!is.null(residuals)){ fitted <- y[good][closest(trans(x.fit), x[good])] partial.res <- if (!rescale.axis) original.inverse(original.link(fitted) + residuals) else fitted + residuals lpoints(trans(x.fit), partial.res, col=residuals.color, pch=residuals.pch, cex=residuals.cex) if (show.fitted) lpoints(trans(x.fit), fitted, pch=16, col=residuals.color) # REMOVE ME if (smooth.residuals){ llines(loess.smooth(trans(x.fit), partial.res, span=span, family=loess.family), lwd=residuals.lwd, lty=residuals.lty, col=residuals.smooth.color) } if (id.n > 0){ M <- cbind(trans(x.fit), partial.res) md <- mahalanobis(M, colMeans(M), cov(M)) biggest <- order(md, decreasing=TRUE)[1:id.n] pos <- ifelse(trans(x.fit[biggest]) > mean(current.panel.limits()$xlim), 2, 4) ltext(trans(x.fit[biggest]), partial.res[biggest], names(partial.res)[biggest], pos=pos, col=id.col, cex=id.cex) } } }}, ylim=ylim, xlim=suppressWarnings(trans(xlm)), ylab=ylab, xlab=if (length(xlab) == 1 && is.na(xlab)) names(x)[1] else xlab, x.vals=x.vals, rug=rug, main=main, lower=x$lower, upper=x$upper, has.se=has.se, data=x, scales=list(y=list(at=tickmarks$at, labels=tickmarks$labels, rot=roty, cex=cex.y), x=list(at=tickmarks.x$at, labels=tickmarks.x$labels, rot=rotx, cex=cex.x), alternating=alternating), ...) result <- update(plot, layout = if (is.null(layout)) c(0, prod(dim(plot))) else layout) result$split <- split result$more <- more class(result) <- c("plot.eff", class(result)) } return(result) } ### more than one predictor predictors <- names(x)[1:n.predictors] levels <- sapply(apply(x[,predictors], 2, unique), length) if (is.null(x.var)){ if (!is.null(residuals)){ x.var <- names(x)[1] } else x.var <- which.max(levels) } if (is.list(xlab)) xlab <- xlab[[x.var]] if (!is.null(residuals)) x.fit <- x.data[, x.var] if (is.character(x.var)) { which.x <- which(x.var == predictors) if (length(which.x) == 0) stop(paste("x.var = '", x.var, "' is not in the effect.", sep="")) x.var <- which.x } if (is.character(z.var)) { which.z <- which(z.var == predictors) if (length(which.z) == 0) stop(paste("z.var = '", z.var, "' is not in the effect.", sep="")) z.var <- which.z } if (x.var == z.var){ # z.var <- z.var + 1 levels.not.x <- levels levels.not.x[x.var] <- Inf z.var <- which.min(levels.not.x) } ### multiline if (multiline){ if (!is.null(residuals)) warning("partial residuals are not displayed in a multiline plot") ci.style <- if(is.null(ci.style)) "none" else ci.style if(ci.style == "lines") { cat("Confidence interval style 'lines' changed to 'bars'\n") ci.style <- "bars"} range <- if (has.se && ci.style !="none") range(c(x$lower, x$upper), na.rm=TRUE) else range(x$fit, na.rm=TRUE) ylim <- if (!any(is.na(ylim))) ylim else c(range[1] - .025*(range[2] - range[1]), range[2] + .025*(range[2] - range[1])) tickmarks <- if (type == "response" && rescale.axis) make.ticks(ylim, link=trans.link, inverse=trans.inverse, at=ticks$at, n=ticks$n) else make.ticks(ylim, link=I, inverse=I, at=ticks$at, n=ticks$n) zvals <- unique(x[, z.var]) ### multiline factor if (is.factor(x[,x.var])){ if (ci.style == "auto") ci.style <- "bars" levs <- levels(x[,x.var]) key <- list(title=predictors[z.var], #cex.title=1, border=TRUE, text=list(as.character(zvals)), lines=list(col=colors[.modc(1:length(zvals))], lty=lines[.modl(1:length(zvals))], lwd=lwd), points=list(col=colors[.modc(1:length(zvals))], pch=symbols[.mods(1:length(zvals))]), columns = if ("x" %in% names(key.args)) 1 else find.legend.columns(length(zvals), space=if("x" %in% names(key.args)) "top" else key.args$space)) for (k in names(key.args)) key[k] <- key.args[k] if (show.strip.values && n.predictors > 2){ for (pred in predictors[-c(x.var, z.var)]){ x[[pred]] <- as.factor(x[[pred]]) } } plot <- xyplot(eval(parse( text=paste("fit ~ as.numeric(", predictors[x.var], ")", if (n.predictors > 2) paste(" |", paste(predictors[-c(x.var, z.var)], collapse="*"))))), strip=strip.custom(strip.names=c(factor.names, TRUE), sep=" = ", par.strip.text=list(cex=cex.strip)), par.settings=list(layout.heights=list(strip=height.strip)), panel=function(x, y, subscripts, z, lower, upper, show.se, ...){ if (grid) ticksGrid(x=1:length(levs), y=tickmarks$at) for (i in 1:length(zvals)){ sub <- z[subscripts] == zvals[i] good <- !is.na(y[sub]) if(!all(!good)){ os <- if(show.se) (i - (length(zvals) + 1)/2) * (2/(length(zvals)-1)) * .01 * (length(zvals) - 1) else 0 effect.llines(x[sub][good]+os, y[sub][good], lwd=lwd, type='b', col=colors[.modc(i)], pch=symbols[.mods(i)], lty=lines[.modl(i)], cex=cex, ...) if (show.se){ larrows(x0=x[sub][good]+os, y0=lower[subscripts][sub][good], x1=x[sub][good]+os, y1=upper[subscripts][sub][good], angle=90, code=3, col=eval(colors[.modc(i)]), length=.125*cex/1.5) } }} if (has.thresholds){ panel.abline(h=thresholds, lty=3) panel.text(rep(current.panel.limits()$xlim[1], length(thresholds)), thresholds, threshold.labels, adj=c(0,0), cex=0.75) panel.text(rep(current.panel.limits()$xlim[2], length(thresholds)), thresholds, threshold.labels, adj=c(1,0), cex=0.75) } }, ylim=ylim, ylab=ylab, xlab=if (length(xlab) == 1 && is.na(xlab)) predictors[x.var] else xlab, z=x[,z.var], scales=list(x=list(at=1:length(levs), labels=levs, rot=rotx, cex=cex.x), y=list(at=tickmarks$at, labels=tickmarks$labels, rot=roty, cex=cex.y), alternating=alternating), zvals=zvals, main=main, key=key, lower=x$lower, upper=x$upper, show.se=has.se && ci.style=="bars", data=x, ...) result <- update(plot, layout = if (is.null(layout)) c(0, prod(dim(plot))) else layout) result$split <- split result$more <- more class(result) <- c("plot.eff", class(result)) } ### multiline variate else{ if (ci.style == "auto") ci.style <- "bands" effect.llines <- if(use.splines) spline.llines else effect.llines nm <- names(x)[x.var] x.vals <- x.data[, nm] if (nm %in% names(ticks.x)){ at <- ticks.x[[nm]]$at n <- ticks.x[[nm]]$n } else{ at <- NULL n <- 5 } xlm <- if (nm %in% names(xlim)){ xlim[[nm]] } else range_adj(x[nm]) tickmarks.x <- if ((nm %in% names(transform.x)) && !(is.null(transform.x))){ trans <- transform.x[[nm]]$trans make.ticks(trans(xlm), link=transform.x[[nm]]$trans, inverse=transform.x[[nm]]$inverse, at=at, n=n) } else { trans <- I make.ticks(xlm, link=I, inverse=I, at=at, n=n) } key <- list(title=predictors[z.var], #cex.title=1, border=TRUE, text=list(as.character(zvals)), lines=list(col=colors[.modc(1:length(zvals))], lty=lines[.modl(1:length(zvals))], lwd=lwd), columns = if ("x" %in% names(key.args)) 1 else find.legend.columns(length(zvals), if("x" %in% names(key.args)) "top" else key.args$space)) for (k in names(key.args)) key[k] <- key.args[k] if (show.strip.values && n.predictors > 2){ for (pred in predictors[-c(x.var, z.var)]){ x[[pred]] <- as.factor(x[[pred]]) } } plot <- xyplot(eval(parse( text=paste("fit ~trans(", predictors[x.var], ")", if (n.predictors > 2) paste(" |", paste(predictors[-c(x.var, z.var)], collapse="*"))))), strip=strip.custom(strip.names=c(factor.names, TRUE), sep=" = ", par.strip.text=list(cex=cex.strip)), par.settings=list(layout.heights=list(strip=height.strip)), panel=function(x, y, subscripts, x.vals, rug, z, lower, upper, show.se, ...){ if (grid) ticksGrid(x=tickmarks.x$at, y=tickmarks$at) if (rug && is.null(residuals)) lrug(trans(x.vals)) axis.length <- diff(range(x)) for (i in 1:length(zvals)){ sub <- z[subscripts] == zvals[i] good <- !is.na(y[sub]) if(!all(!good)){ effect.llines(x[sub][good], y[sub][good], lwd=lwd, type='l', col=colors[.modc(i)], lty=lines[.modl(i)], cex=cex, ...) if(show.se){ if(ci.style == "bars"){ os <- (i - (length(zvals) + 1)/2) * (2/(length(zvals)-1)) * .01 * axis.length larrows(x0=x[sub][good]+os, y0=lower[subscripts][sub][good], x1=x[sub][good]+os, y1=upper[subscripts][sub][good], angle=90, code=3, col=eval(colors[.modc(i)]), length=.125*cex/1.5) } if(ci.style == "bands"){ panel.bands(x[sub][good], y[sub][good], upper[subscripts][sub][good], lower[subscripts][sub][good], fill=eval(band.colors[.modb(i)]), alpha=band.transparency, use.splines=use.splines) } } }} if (has.thresholds){ panel.abline(h=thresholds, lty=3) panel.text(rep(current.panel.limits()$xlim[1], length(thresholds)), thresholds, threshold.labels, adj=c(0,0), cex=0.75) panel.text(rep(current.panel.limits()$xlim[2], length(thresholds)), thresholds, threshold.labels, adj=c(1,0), cex=0.75) } }, ylim=ylim, xlim=suppressWarnings(trans(xlm)), ylab=ylab, xlab=if (length(xlab) == 1 && is.na(xlab)) predictors[x.var] else xlab, x.vals=x.vals, rug=rug, z=x[,z.var], zvals=zvals, main=main, key=key, # lower=x$lower, upper=x$upper, show.se=has.se && ci.style %in% c("bars", "bands"), # data=x, scales=list(y=list(at=tickmarks$at, labels=tickmarks$labels, rot=roty, cex=cex.y), x=list(at=tickmarks.x$at, labels=tickmarks.x$labels, rot=rotx, cex=cex.x), alternating=alternating), ...) result <- update(plot, layout = if (is.null(layout)) c(0, prod(dim(plot))) else layout) result$split <- split result$more <- more class(result) <- c("plot.eff", class(result)) } return(result) } # multiplot ci.style <- if(is.null(ci.style) || ci.style == "auto"){ if(is.factor(x[, x.var])) "bars" else "bands"} else ci.style range <- if (has.se && ci.style !="none") range(c(x$lower, x$upper), na.rm=TRUE) else range(x$fit, na.rm=TRUE) # multiplot factor if (is.factor(x[,x.var])){ ylim <- if (!any(is.na(ylim))) ylim else c(range[1] - .025*(range[2] - range[1]), range[2] + .025*(range[2] - range[1])) if (!is.null(partial.residuals.range)){ ylim[1] <- min(ylim[1], partial.residuals.range[1]) ylim[2] <- max(ylim[2], partial.residuals.range[2]) } tickmarks <- if (type == "response" && rescale.axis) make.ticks(ylim, link=trans.link, inverse=trans.inverse, at=ticks$at, n=ticks$n) else make.ticks(ylim, link=I, inverse=I, at=ticks$at, n=ticks$n) levs <- levels(x[,x.var]) if (show.strip.values){ for (pred in predictors[-x.var]){ x[[pred]] <- as.factor(x[[pred]]) } } n.lev <- length(levs) x.fit <- x.data[, predictors[x.var]] use <- rep(TRUE, length(residuals)) xx <- x[, predictors[-x.var], drop=FALSE] plot <- xyplot(eval(parse( text=paste("fit ~ as.numeric(", predictors[x.var], ") |", paste(predictors[-x.var], collapse="*")))), strip=strip.custom(strip.names=c(factor.names, TRUE), sep=" = ", par.strip.text=list(cex=cex.strip)), par.settings=list(layout.heights=list(strip=height.strip)), panel=function(x, y, subscripts, lower, upper, has.se, ...){ if (grid) ticksGrid(x=1:length(levs), y=tickmarks$at) good <- !is.na(y) no.points <- all(!good) # skip arrows and lines if no.points==TRUE if(!no.points){ if (has.se){ if (ci.style == "bars"){ larrows(x0=x[good], y0=lower[subscripts][good], x1=x[good], y1=upper[subscripts][good], angle=90, code=3, col=if (partial.residuals) band.colors[1] else colors[.modc(2)], length=0.125*cex/1.5) } else if(ci.style == "lines") { effect.llines(x[good], lower[subscripts][good], lty=2, col=colors[.modc(2)]) effect.llines(x[good], upper[subscripts][good], lty=2, col=colors[.modc(2)]) } else{ if(ci.style == "bands") { panel.bands(x[good], y[good], upper[subscripts][good], lower[subscripts][good], fill=band.colors[1], alpha=band.transparency, use.splines=FALSE) }} } if (!is.null(residuals)){ predictors <- predictors[-x.var] factors <- sapply(xx, is.factor) for (predictor in predictors){ use <- use & if(factors[predictor]) x.all[, predictor] == xx[subscripts[1], predictor] else x.all[, predictor] == xx[subscripts[1], predictor] } n.in.panel <- sum(use) if (n.in.panel > 0){ fitted <- y[good][as.numeric(as.factor(x.fit[use]))] partial.res <- if (!rescale.axis) original.inverse(original.link(fitted) + residuals[use]) else fitted + residuals[use] lpoints(jitter(as.numeric(as.factor(x.fit[use])), 0.5), partial.res, col=residuals.color, pch=residuals.pch, cex=residuals.cex) if (show.fitted) lpoints(x.fit[use], fitted, pch=16, col=residuals.color) # REMOVE ME if (smooth.residuals && n.in.panel != 0) { lpoints(1:n.lev, tapply(partial.res, x.fit[use], average.resid), pch=16, cex=1.25*residuals.cex, col=residuals.color) } if (id.n > 0){ M <- cbind(trans(x.fit[use]), partial.res) md <- mahalanobis(M, colMeans(M), cov(M)) biggest <- order(md, decreasing=TRUE)[1:id.n] pos <- ifelse(x.fit[use][biggest] > mean(current.panel.limits()$xlim), 2, 4) ltext(x.fit[use][biggest], partial.res[biggest], names(partial.res)[biggest], pos=pos, col=id.col, cex=id.cex) } } } effect.llines(x[good], y[good], lwd=lwd, lty=lines, type='b', col=colors[1], pch=symbols[1], cex=cex, ...) if (has.thresholds){ panel.abline(h=thresholds, lty=3) panel.text(rep(current.panel.limits()$xlim[1], length(thresholds)), thresholds, threshold.labels, adj=c(0,0), cex=0.75) panel.text(rep(current.panel.limits()$xlim[2], length(thresholds)), thresholds, threshold.labels, adj=c(1,0), cex=0.75) } }}, ylim=ylim, ylab=ylab, xlab=if (length(xlab) == 1 && is.na(xlab)) predictors[x.var] else xlab, scales=list(x=list(at=1:length(levs), labels=levs, rot=rotx, cex=cex.x), y=list(at=tickmarks$at, labels=tickmarks$labels, rot=roty, cex=cex.y), alternating=alternating), main=main, lower=x$lower, upper=x$upper, has.se=has.se, data=x, ...) result <- update(plot, layout = if (is.null(layout)) c(0, prod(dim(plot))) else layout) result$split <- split result$more <- more class(result) <- c("plot.eff", class(result)) } ### multiplot variate *** else{ effect.llines <- if(use.splines) spline.llines else effect.llines nm <- names(x)[x.var] x.vals <- x.data[, nm] if (nm %in% names(ticks.x)){ at <- ticks.x[[nm]]$at n <- ticks.x[[nm]]$n } else{ at <- NULL n <- 5 } xlm <- if (nm %in% names(xlim)){ xlim[[nm]] } else range_adj(x[nm]) tickmarks.x <- if ((nm %in% names(transform.x)) && !(is.null(transform.x))){ trans <- transform.x[[nm]]$trans make.ticks(trans(xlm), link=transform.x[[nm]]$trans, inverse=transform.x[[nm]]$inverse, at=at, n=n) } else { trans <- I make.ticks(xlm, link=I, inverse=I, at=at, n=n) } ylim <- if (!any(is.na(ylim))) ylim else if (is.null(residuals)) c(range[1] - .025*(range[2] - range[1]), range[2] + .025*(range[2] - range[1])) else if (rescale.axis) c(min(partial.residuals.range[1], range[1] - .025*(range[2] - range[1])), max(partial.residuals.range[2], range[2] + .025*(range[2] - range[1]))) else c(min(original.inverse(partial.residuals.range[1]), range[1] - .025*(range[2] - range[1])), max(original.inverse(partial.residuals.range[2]), range[2] + .025*(range[2] - range[1]))) tickmarks <- if (type == "response" && rescale.axis) make.ticks(ylim, link=trans.link, inverse=trans.inverse, at=ticks$at, n=ticks$n) else make.ticks(ylim, link=I, inverse=I, at=ticks$at, n=ticks$n) x.fit <- x.data[, predictors[x.var]] use <- rep(TRUE, length(residuals)) xx <- x[, predictors[-x.var], drop=FALSE] if (show.strip.values){ for (pred in predictors[-x.var]){ x[[pred]] <- as.factor(x[[pred]]) } } plot <- xyplot(eval(parse( text=paste("fit ~ trans(", predictors[x.var], ") |", paste(predictors[-x.var], collapse="*")))), strip=strip.custom(strip.names=c(factor.names, TRUE), sep=" = ", par.strip.text=list(cex=cex.strip)), par.settings=list(layout.heights=list(strip=height.strip)), panel=function(x, y, subscripts, x.vals, rug, lower, upper, has.se, ...){ if (grid) ticksGrid(x=tickmarks.x$at, y=tickmarks$at) good <- !is.na(y) if(!all(!good)){ effect.llines(x[good], y[good], lwd=lwd, col=colors[1], lty=lines, ...) if (rug && is.null(residuals)) lrug(trans(x.vals)) if (has.se){ if (ci.style == "bars"){ larrows(x0=x[good], y0=lower[subscripts][good], x1=x[good], y1=upper[subscripts][good], angle=90, code=3, col=if (partial.residuals) band.colors[1] else colors[.modc(2)], length=.125*cex/1.5) } else if(ci.style == "lines") { effect.llines(x[good], lower[subscripts][good], lty=2, col=colors[.modc(2)]) effect.llines(x[good], upper[subscripts][good], lty=2, col=colors[.modc(2)]) } else if(ci.style == "bands") { panel.bands(x[good], y[good], upper[subscripts][good], lower[subscripts][good], fill=band.colors[1], alpha=band.transparency, use.splines=use.splines) } } if (!is.null(residuals)){ predictors <- predictors[-x.var] factors <- sapply(xx, is.factor) for (predictor in predictors){ use <- use & if(factors[predictor]) x.all[, predictor] == xx[subscripts[1], predictor] else x.all[, predictor] == xx[subscripts[1], predictor] } n.in.panel <- sum(use) if (n.in.panel > 0){ fitted <- y[good][closest(trans(x.fit[use]), x[good])] partial.res <- if (!rescale.axis) original.inverse(original.link(fitted) + residuals[use]) else fitted + residuals[use] lpoints(trans(x.fit[use]), partial.res, col=residuals.color, pch=residuals.pch, cex=residuals.cex) if (show.fitted) lpoints(trans(x.fit[use]), fitted, pch=16, col=residuals.color) # REMOVE ME if (smooth.residuals && n.in.panel >= 10) { llines(loess.smooth(x.fit[use], partial.res, span=span, family=loess.family), lwd=residuals.lwd, lty=residuals.lty, col=residuals.smooth.color) } if (id.n > 0){ M <- cbind(trans(x.fit[use]), partial.res) md <- mahalanobis(M, colMeans(M), cov(M)) biggest <- order(md, decreasing=TRUE)[1:id.n] pos <- ifelse(trans(x.fit[use][biggest]) > mean(current.panel.limits()$xlim), 2, 4) ltext(trans(x.fit[use][biggest]), partial.res[biggest], names(partial.res)[biggest], pos=pos, col=id.col, cex=id.cex) } } } if (has.thresholds){ panel.abline(h=thresholds, lty=3) panel.text(rep(current.panel.limits()$xlim[1], length(thresholds)), thresholds, threshold.labels, adj=c(0,0), cex=0.75) panel.text(rep(current.panel.limits()$xlim[2], length(thresholds)), thresholds, threshold.labels, adj=c(1,0), cex=0.75) } }}, ylim=ylim, xlim=suppressWarnings(trans(xlm)), ylab=ylab, xlab=if (length(xlab) == 1 && is.na(xlab)) predictors[x.var] else xlab, x.vals=x.vals, rug=rug, main=main, lower=x$lower, upper=x$upper, has.se=has.se, data=x, scales=list(y=list(at=tickmarks$at, labels=tickmarks$labels, rot=roty, cex=cex.y), x=list(at=tickmarks.x$at, labels=tickmarks.x$labels, rot=rotx, cex=cex.x), alternating=alternating), ...) result <- update(plot, layout = if (is.null(layout)) c(0, prod(dim(plot))) else layout) result$split <- split result$more <- more class(result) <- c("plot.eff", class(result)) } return(result) } print.plot.eff <- function(x, ...){ NextMethod(split=x$split, more=x$more, ...) invisible(x) } plot.efflist <- function(x, selection, rows, cols, ask=FALSE, graphics=TRUE, lattice, ...){ # Next line added 8/23/17 along with lattice, also lattice arg above lattice <- if(missing(lattice)) list() else lattice if (!missing(selection)){ if (is.character(selection)) selection <- gsub(" ", "", selection) return(plot(x[[selection]], lattice=lattice, ...)) } effects <- gsub(":", "*", names(x)) if (ask){ repeat { selection <- menu(effects, graphics=graphics, title="Select Term to Plot") if (selection == 0) break else print(plot(x[[selection]], lattice=lattice, ...)) } } else { neffects <- length(x) mfrow <- mfrow(neffects) if (missing(rows) || missing(cols)){ rows <- mfrow[1] cols <- mfrow[2] } for (i in 1:rows) { for (j in 1:cols){ if ((i-1)*cols + j > neffects) break more <- !((i-1)*cols + j == neffects) lattice[["array"]] <- list(row=i, col=j, nrow=rows, ncol=cols, more=more) print(plot(x[[(i-1)*cols + j]], lattice=lattice, ...)) } } } } effects/R/utilities.R0000644000176200001440000006346015132433422014240 0ustar liggesusers# utilities and common functions for effects package # John Fox, Jangman Hong, and Sanford Weisberg # 7-25-2013 S. Weisberg modified analyze.model and Analyze.model to ignore # default.levels, and use xlevels to set default. Use grid.pretty by default # 11-09-2013: fixed error message in Analyze.model(), bug reported by Joris Meys. J. Fox # 2013-10-15: eliminated functions not needed after effect() methods removed. J. Fox # 2013-10-29: fixed as.data.frame.*() to handle NA levels. J. Fox # 2014-03-13: modified Fixup.model.matrix() and Analyze.model() to handle partial residuals; # added is.factor.predictor() and is.numeric.predictor(). J. Fox # 2014-03-14: error message for non-factor, non-numeric predictor # 2014-07-08: if no numeric predictor, partial residuals suppressed with warning rather than an error # 2014-10-09: namespace fixes. J. Fox # 2015-04-08: added setStrip(), restoreStrip(). J. Fox # 2015-07-07: fixed matchVarName() so that it handles periods in names properly. J. Fox # 2015-09-10: added a fix for class = 'array' in Analyze.model. S. Weisberg # 2016-02-16: fix Analyze.model(), Fixup.model.matrix() to handle non-focal terms like polynomials correctly; clean up code. J. Fox # 2016-03-01: correct and improve computation of partial residuals # 2017-07-10: fix warnings about 1 x 1 arrays produced in eff.mul() and eff.polr() in R 3.4.0 (reported by Stefan Th. Gries). J. Fox # 2017-07-14: added applyDefaults() and isFALSE(). J. Fox # 2017-07-27: added effectsTheme(); removed setStrip(), restoreStrip(). J. Fox # 2017-08-08: added .onAttach() to set lattice theme. J. Fox # 2017-08-26: added scheffe() to compute multipler for Scheffe-type confidence bounds. J. Fox # 2017-08-29: enhanced applyDefaults() with onFALSE argument. J. Fox # 2017-09-02: added nice() # 2017-09-08: small changes to accommodate Effect.svyglm() # 2017-09-10: added replacement for ticksGrid() # 2018-05-09: fix typo in startup message # 2018-05-13: modified Analyze.model() to support partial-residual plots against factors. # 2018-08-17: modified .onAttach() so that trellis device doesn't open, suggestion of Kurt Hornik. # 2018-10-06: modified as.data.frame, adding a 'type' argument and deleting the 'transformation' argument, using the mu.eta function from the defining family # 2018-10-19: added as.data.frame.efflist # 2018-10-25: as.data.frame.eff() fixed so that deletion of the transformation argument doesn't break plot.eff(). J. Fox # 2018-12-19: accommodate character and logical predictors. J. Fox # 2019-08-27: correctly handle logical or character predictor with residuals # 2019-08-30: further fixes to character and logical predictors # 2019-10-24: add color options (e.g., for colorblind palette, suggestion of ) to effectsTheme(). J. Fox # 2019-11-14: change class(x) == "y" to inherits(x, "y") # 2022-02-18: insure that levels of focal predictor in returned objects are in proper order (bug reported by Christoph Scherber, didn't affect plots or tables). # 2023-02-19: added levels2dates() and methods. J. Fox (request of Christoph Scherber). # 2025-07-21: rename to is_factor_predictor() and is_numeric_predictor() to avoid confusion. J. Fox has.intercept <- function(model, ...) any(names(coefficients(model))=="(Intercept)") term.names <- function (model, ...) { term.names <- gsub(" ", "", labels(terms(model))) if (has.intercept(model)) c("(Intercept)", term.names) else term.names } response.name <- function (model, ...) deparse(attr(terms(model), "variables")[[2]]) mfrow <- function(n, max.plots=0){ # number of rows and columns for array of n plots if (max.plots != 0 & n > max.plots) stop(paste("number of plots =",n," exceeds maximum =", max.plots)) rows <- round(sqrt(n)) cols <- ceiling(n/rows) c(rows, cols) } expand.model.frame <- function (model, extras, envir = environment(formula(model)), na.expand = FALSE){ # modified version of R base function f <- formula(model) data <- eval(model$call$data, envir) ff <- foo ~ bar + baz if (is.call(extras)) gg <- extras else gg <- parse(text = paste("~", paste(extras, collapse = "+")))[[1]] ff[[2]] <- f[[2]] ff[[3]][[2]] <- f[[3]] ff[[3]][[3]] <- gg[[2]] if (!na.expand) { naa <- model$call$na.action subset <- model$call$subset rval <- if (is.null(data)) eval(call("model.frame", ff, # modified subset = subset, na.action = naa), envir) # lines else eval(call("model.frame", ff, data = data, # subset = subset, na.action = naa), envir) # } else { subset <- model$call$subset rval <- eval(call("model.frame", ff, data = data, subset = subset, na.action = I), envir) oldmf <- model.frame(model) keep <- match(rownames(oldmf), rownames(rval)) rval <- rval[keep, ] class(rval) <- "data.frame" } return(rval) } is.relative <- function(term1, term2, factors) { all(!(factors[,term1]&(!factors[,term2]))) } descendants <- function(term, mod, ...){ names <- term.names(mod) if (has.intercept(mod)) names <- names[-1] if(length(names)==1) return(NULL) which.term <- which(term == names) if (length(which.term) == 0){ factors <- attr(terms(...), "factors") rownames(factors) <- gsub(" ", "", rownames(factors)) colnames(factors) <- gsub(" ", "", colnames(factors)) (1:length(names))[sapply(names, function(term2) is.relative(term, term2, factors))] } else { factors <- attr(terms(mod), "factors") rownames(factors) <- gsub(" ", "", rownames(factors)) colnames(factors) <- gsub(" ", "", colnames(factors)) (1:length(names))[-which.term][sapply(names[-which.term], function(term2) is.relative(term, term2, factors))] } } is.high.order.term <- function(term, mod,...){ 0 == length(descendants(term, mod, ...)) } subscripts <- function(index, dims){ subs <- function(dims, index){ dim <- length(dims) if (dim == 0) return(NULL) cum <- c(1,cumprod(dims))[dim] i <- index %/% cum if (index %% cum != 0) i <- i + 1 c(i, subs(dims[-dim], index - (i - 1)*cum)) } rev(subs(dims, index)) } matrix.to.df <- function(matrix, colclasses){ opt <- options(warn = -1) on.exit(options(opt)) ncol <- ncol(matrix) colnames <- colnames(matrix) colclasses[sapply(colclasses, function(x) "integer" %in% x)] <- "numeric" result <- vector(mode="list", length=ncol) names(result) <- colnames for (j in 1:ncol){ result[[j]] <- matrix[, j] class <- colclasses[[colnames[j]]] result[[colnames[j]]] <- if ("numeric" %in% class) { decChar <- getOption('OutDec') if (decChar == '.') as.numeric(result[[colnames[j]]]) else as.numeric(gsub(decChar, '.', matrix[,j])) } else if ("ordered" %in% class) ordered(result[[colnames[j]]]) else if ("factor" %in% class) factor(result[[colnames[j]]]) else result[[colnames[j]]] } as.data.frame(result) } # the following function is a modification of code contributed by Steve Taylor # as.data.frame rewritten, 2018-10-06 # fixed 2018-10-25 so that plot.eff() isn't broken by the rewrite as.data.frame.eff <- function(x, row.names=NULL, optional=TRUE, type=c("response", "link"), ...){ type <- match.arg(type) linkinv <- if (is.null(x$link$linkinv)) I else x$link$linkinv linkmu.eta <- if(is.null(x$link$mu.eta)) function(x) NA else x$link$mu.eta xx <- x$x for (var in names(xx)){ if (is.factor(xx[[var]])){ xx[[var]] <- addNA(xx[[var]]) # handle factors with "valid" NA level } } x$x <- xx result <- switch(type, response= { if (is.null(x$se)) data.frame(x$x, fit=transform(x$fit)) else data.frame(x$x, fit=linkinv(x$fit), se = linkmu.eta(x$fit) * x$se, lower=linkinv(x$lower), upper=linkinv(x$upper))}, link = { if (is.null(x$se)) data.frame(x$x, fit=x$fit) else data.frame(x$x, fit=x$fit, se=x$se, lower=x$lower, upper= x$upper)}) attr(result, "type") <- type result } as.data.frame.efflist <- function(x, row.names=NULL, optional=TRUE, type, ...){ lapply(x, as.data.frame, type) } as.data.frame.effpoly <- function(x, row.names=NULL, optional=TRUE, ...){ factors <- sapply(x$variables, function(x) x$is.factor) factor.levels <- lapply(x$variables[factors], function(x) x$levels) if (!length(factor.levels) == 0){ factor.names <- names(factor.levels) for (fac in factor.names){ x$x[[fac]] <- factor(x$x[[fac]], levels=factor.levels[[fac]], exclude=NULL) } } result <- data.frame(x$x, x$prob, x$logit) if (!is.null(x$confidence.level)) result <- cbind(result, x$se.prob, x$se.logit, x$lower.prob, x$upper.prob, x$lower.logit, x$upper.logit) result } as.data.frame.efflatent <- function(x, row.names=NULL, optional=TRUE, ...){ xx <- x$x for (var in names(xx)){ if (is.factor(xx$var)){ xx$var <- addNA(xx$var) # handle factors with "valid" NA level } } x$x <- xx if (is.null(x$se)) data.frame(x$x, fit=x$fit) else data.frame(x$x, fit=x$fit, se=x$se, lower=x$lower, upper=x$upper) } logit2p <- function(logit) 1/(1 + exp(-logit)) p2logit <- function(p) log(p/(1 - p)) lrug <- function(x) { if (length(unique(x)) < 0.8 * length(x)) x <- jitter(x) grid.segments(x, unit(0, "npc"), x, unit(0.5, "lines"), default.units="native") } ## model.response not generic model.response.gls <- function(model){ model.response(model.frame(as.formula(model$call$model), data=eval(model$call$data))) } terms.gls <- function(x, ...) terms(formula(x)) ## vcov method for eff objects vcov.eff <- function(object, ...) object$vcov ## [ method for efflist objects `[.efflist` <- function(x, ...){ y <- NextMethod("[") class(y) <- class(x) y } ### the following functions are for use by Effect() methods Analyze.model <- function(focal.predictors, mod, xlevels, default.levels=NULL, formula.rhs, partial.residuals=FALSE, quantiles, x.var=NULL, data=NULL, typical=mean){ if ((!is.null(mod$nan.action)) && inherits(mod$na.action, "exclude")) class(mod$na.action) <- "omit" all.predictors <- all.vars(formula.rhs) check.vars <- !(focal.predictors %in% all.predictors) excluded.predictors <- setdiff(all.predictors, focal.predictors) number.bad <- sum(check.vars) if (any(check.vars)) { message <- if (number.bad == 1) paste("the following predictor is not in the model:", focal.predictors[check.vars]) else paste("the following predictors are not in the model:", paste(focal.predictors[check.vars], collapse=", ")) stop(message) } X.mod <- model.matrix(mod) cnames <- colnames(X.mod) factor.cols <- rep(FALSE, length(cnames)) names(factor.cols) <- cnames for (name in all.predictors){ if (is_factor_predictor(name, mod)) { factor.cols[grep(paste("^", name, sep=""), cnames)] <- TRUE } } factor.cols[grep(":", cnames)] <- FALSE X <- na.omit(expand.model.frame(mod, all.predictors)) which.matrices <- sapply(X, function(x) is.matrix(x) && ncol(x) == 1) if (any(which.matrices)){ nms <- names(which.matrices[which.matrices]) msg <- if (length(nms) > 1){ paste("the predictors", paste(nms, collapse=", "), "are one-column matrices that were converted to vectors") } else { paste("the predictor", nms, "is a one-column matrix that was converted to a vector") } warning(msg) for (nm in nms){ X[, nm] <- as.vector(X[, nm]) } } for (name in all.predictors){ if (is_factor_predictor(name, mod) && is.null(xlevels[[name]])) { xlevels[[name]] <- levels(X[, name]) # accomodate logical predictor } } bad <- sapply(X[, all.predictors, drop=FALSE], function(x) !(is.factor(x) || is.numeric(x))) if (any(bad)){ message <- if (sum(bad) == 1) paste("the following predictor isn't a factor, logical, character, or numeric:", all.predictors[bad]) else paste("the following predictors aren't factors, logical, character, or numeric:", paste(all.predictors[bad], collapse=", ")) stop(message) } x <- list() factor.levels <- list() if(length(xlevels)==0 & length(default.levels) == 1L) xlevels <- default.levels if(is.numeric(xlevels) & length(xlevels) == 1L){ levs <- xlevels for(name in focal.predictors) xlevels[[name]] <- levs } for (name in focal.predictors){ levels <- mod$xlevels[[name]] ## reverted levels <- levels(X[, name]) if(is.null(levels)) levels <- mod$xlevels[[paste("factor(",name,")",sep="")]] ##reverted deleted fac <- !is.null(levels) if (!fac) { levels <- if (is.null(xlevels[[name]])){ if (partial.residuals){ quantile(X[, name], quantiles) } else{ # grid.pretty(range(X[, name])) nice(seq(min(X[, name]), max(X[, name]), length.out=5)) } } else { if(length(xlevels[[name]]) == 1L) { nice(seq(min(X[, name]), max(X[,name]), length=xlevels[[name]]))} else xlevels[[name]]} } else factor.levels[[name]] <- levels # x[[name]] <- list(name=name, is.factor=fac, levels=levels) x[[name]] <- list(name=name, is.factor=is.factor(X[, name]), levels=levels) } if (partial.residuals){ numeric.predictors <- sapply(focal.predictors, function(predictor) is_numeric_predictor(predictor, mod)) if (is.null(x.var)){ x.var <- if (any(numeric.predictors)) which(numeric.predictors)[1] else 1 } x.var.name <- focal.predictors[x.var] if (is.numeric(X[, x.var.name]) && is.null(xlevels[[x.var.name]])){ x.var.range <- range(X[, focal.predictors[x.var]]) x[[x.var]][["levels"]] <- seq(from=x.var.range[1], to=x.var.range[2], length=100) } } x.excluded <- list() for (name in excluded.predictors){ levels <- mod$xlevels[[name]] ##reverted levels <- levels(X[, name]) if (is.logical(X[, name])) levels <- c("FALSE", "TRUE") fac <- !is.null(levels) level <- if (fac) levels[1] else typical(X[, name]) if (fac) factor.levels[[name]] <- levels x.excluded[[name]] <- list(name=name, is.factor=fac, level=level) } dims <- sapply(x, function(x) length(x$levels)) len <- prod(dims) n.focal <- length(focal.predictors) n.excluded <- length(excluded.predictors) n.vars <- n.focal + n.excluded predict.data <-matrix('', len, n.vars) excluded <- sapply(x.excluded, function(x) x$level) for (i in 1:len){ subs <- subscripts(i, dims) for (j in 1:n.focal){ predict.data[i,j] <- x[[j]]$levels[subs[j]] } if (n.excluded > 0) predict.data[i, (n.focal + 1):n.vars] <- excluded } colnames(predict.data) <- c(sapply(x, function(x) x$name), sapply(x.excluded, function(x) x$name)) colclasses <- lapply(X, class) colclasses[colclasses == "matrix"] <- "numeric" colclasses[colclasses == "array"] <- "numeric" predict.data <- matrix.to.df(predict.data, colclasses=colclasses) for (i in 1:length(x)){ if (x[[i]]$is.factor){ predict.data[[x[[i]]$name]] <- if (is.ordered(predict.data[[x[[i]]$name]])){ ordered(predict.data[[x[[i]]$name]], levels=x[[i]]$levels) } else { factor(predict.data[[x[[i]]$name]], levels=x[[i]]$levels) } } } list(predict.data=predict.data, factor.levels=factor.levels, factor.cols=factor.cols, focal.predictors=focal.predictors, n.focal=n.focal, excluded.predictors=excluded.predictors, n.excluded=n.excluded, x=x, X.mod=X.mod, cnames=cnames, X=X, x.var=x.var) } Fixup.model.matrix <- function(mod, mod.matrix, mod.matrix.all, X.mod, factor.cols, cnames, focal.predictors, excluded.predictors, typical, given.values, apply.typical.to.factors=FALSE){ attr(mod.matrix, "assign") <- attr(mod.matrix.all, "assign") if (length(excluded.predictors) > 0){ strangers <- Strangers(mod, focal.predictors, excluded.predictors) stranger.cols <- apply(outer(strangers, attr(mod.matrix,'assign'), '=='), 2, any) } else stranger.cols <- rep(FALSE, ncol(mod.matrix)) if (has.intercept(mod)) stranger.cols[1] <- TRUE if (any(stranger.cols)) { facs <- factor.cols & stranger.cols covs <- (!factor.cols) & stranger.cols if (has.intercept(mod)) covs[1] <- FALSE if (any(facs)){ mod.matrix[,facs] <- matrix(apply(as.matrix(X.mod[,facs]), 2, if (apply.typical.to.factors) typical else mean), nrow=nrow(mod.matrix), ncol=sum(facs), byrow=TRUE) } if (!is.null(given.values)){ stranger.names <- cnames[stranger.cols] given <- stranger.names %in% names(given.values) if (any(given)) { mod.matrix[,stranger.names[given]] <- matrix(given.values[stranger.names[given]], nrow=nrow(mod.matrix), ncol=length(stranger.names[given]), byrow=TRUE) } } for (name in cnames){ components <- unlist(strsplit(name, ':')) components <- components[components %in% cnames] if (length(components) > 1) { mod.matrix[,name] <- apply(mod.matrix[,components], 1, prod) } } } mod.matrix } matchVarName <- function(name, expressions){ scratch <- "zAMIjw4RN3" # randomly generated string name <- gsub("\\.", scratch, name) expressions <- gsub("\\.", scratch, as.character(expressions)) a <- !grepl(paste("[.]+", name, sep=""), expressions) b <- !grepl(paste(name, "[.]+", sep=""), expressions) c <- grepl(paste("\\b", name, "\\b", sep=""), expressions) a & b & c } Strangers <- function(mod, focal.predictors, excluded.predictors){ names <- term.names(mod) if (has.intercept(mod)) names <- names[-1] sel <- apply(sapply(excluded.predictors, matchVarName, expressions=names), 1, any) (1:length(sel))[sel] } # the following is used by effect.multinom() and Effect.multinom() eff.mul <- function(x0, B, se, m, p, r, V){ mu <- exp(x0 %*% B) mu <- mu/(1 + sum(mu)) mu[m] <- 1 - sum(mu) logits <- log(mu/(1 - mu)) if (!se) return(list(p=mu, logits=logits)) d <- array(0, c(m, m - 1, p)) exp.x0.B <- as.vector(exp(x0 %*% B)) sum.exp.x0.B <- sum(exp.x0.B) for (j in 1:(m-1)){ d[m, j,] <- - exp.x0.B[j]*x0 for (jj in 1:(m-1)){ d[j, jj,] <- if (jj != j) - exp(as.vector(x0 %*% (B[,jj] + B[,j])))*x0 else exp.x0.B[j]*(1 + sum.exp.x0.B - exp.x0.B[j])*x0 } } d <- d/(1 + sum.exp.x0.B)^2 V.mu <- rep(0, m) for (j in 1:m){ dd <- as.vector(t(d[j,,])) for (s in 1:r){ for (t in 1:r){ V.mu[j] <- V.mu[j] + V[s,t]*dd[s]*dd[t] } } } V.logits <- V.mu/(mu^2 * (1 - mu)^2) list(p=mu, std.err.p=sqrt(V.mu), logits=logits, std.error.logits=sqrt(V.logits)) } # the following are used by effect.polr() and Effect.polr() eff.polr <- function(x0, b, alpha, V, m, r, se){ eta0 <- as.vector(x0 %*% b) mu <- rep(0, m) mu[1] <- 1/(1 + exp(alpha[1] + eta0)) for (j in 2:(m-1)){ mu[j] <- exp(eta0)*(exp(alpha[j - 1]) - exp(alpha[j]))/ ((1 + exp(alpha[j - 1] + eta0))*(1 + exp(alpha[j] + eta0))) } mu[m] <- 1 - sum(mu) logits <- log(mu/(1 - mu)) if (!se) return(list(p=mu, logits=logits)) d <- matrix(0, m, r) d[1, 1] <- - exp(alpha[1] + eta0)/(1 + exp(alpha[1] + eta0))^2 d[1, m:r] <- - exp(alpha[1] + eta0)*x0/(1 + exp(alpha[1] + eta0))^2 for (j in 2:(m-1)){ d[j, j-1] <- exp(alpha[j-1] + eta0)/(1 + exp(alpha[j-1] + eta0))^2 d[j, j] <- - exp(alpha[j] + eta0)/(1 + exp(alpha[j] + eta0))^2 d[j, m:r] <- exp(eta0)*(exp(alpha[j]) - exp(alpha[j-1]))* (exp(alpha[j-1] + alpha[j] + 2*eta0) - 1) * x0 / (((1 + exp(alpha[j-1] + eta0))^2)* ((1 + exp(alpha[j] + eta0))^2)) } d[m, m-1] <- exp(alpha[m-1] + eta0)/(1 + exp(alpha[m-1] + eta0))^2 d[m, m:r] <- exp(alpha[m-1] + eta0)*x0/(1 + exp(alpha[m-1] + eta0))^2 V.mu <- rep(0, m) for (j in 1:m){ dd <- d[j,] for (s in 1:r){ for (t in 1:r){ V.mu[j] <- V.mu[j] + V[s,t]*dd[s]*dd[t] } } } V.logits <- V.mu/(mu^2 * (1 - mu)^2) list(p=mu, std.err.p=sqrt(V.mu), logits=logits, std.error.logits=sqrt(V.logits)) } eff.latent <- function(X0, b, V, se){ eta <- X0 %*% b if (!se) return(list(fit=eta)) var <- diag(X0 %*% V %*% t(X0)) list(fit=eta, se=sqrt(var)) } # determine class of a predictor # is_factor_predictor <- function(predictor, model) { # !is.null(model$xlevels[[predictor]]) # } is_factor_predictor <- function(predictor, model) { predictor %in% names(attr(model.matrix(model), "contrasts")) } is_numeric_predictor <- function(predictor, model) { is.null(model$xlevels[[predictor]]) } # custom lattice theme # effectsTheme <- function(strip.background=list(col=gray(seq(0.95, 0.5, length=3))), # strip.shingle=list(col="black"), clip=list(strip="off"), # superpose.line=list(lwd=c(2, rep(1, 6)))){ # # current <- sapply(c("strip.background", "strip.shingle", "clip", "superpose.line"), # trellis.par.get) # result <- list(strip.background=strip.background, strip.shingle=strip.shingle, clip=clip, # superpose.line=superpose.line) # attr(result, "current") <- current # result # } effectsTheme <- function (strip.background = list(col = gray(seq(0.95, 0.5, length = 3))), strip.shingle = list(col = "black"), clip = list(strip = "off"), superpose.line = list(lwd = c(2, rep(1, 6))), col){ car.palette <- c("blue", "magenta", "cyan", "orange", "gray", "green3", "red") colorblind.palette <- rgb(red = c(230, 86, 0, 240, 0, 213, 204), green = c(159, 180, 158, 228, 114, 94, 121), blue = c(0, 233, 115, 66, 178, 0, 167), names = c("orange", "sky.blue", "bluish.green", "yellow", "blue", "vermillion", "reddish.purple"), maxColorValue = 255) # colorblind palette from https://jfly.uni-koeln.de/color/ (ignoring "black") current <- sapply(c("strip.background", "strip.shingle", "clip", "superpose.line"), lattice::trellis.par.get) if (!missing(col)){ superpose.line$col <- if (col[1] == "colorblind"){ colorblind.palette } else if (col[1] == "car") { car.palette } else if (col[1] == "R") { palette()[-1] } else { col } } result <- list(strip.background = strip.background, strip.shingle = strip.shingle, clip = clip, superpose.line = superpose.line) attr(result, "current") <- current result } .onAttach <- function(libname, pkgname){ if (!"package:lattice" %in% search()){ lattice::lattice.options(default.theme = effectsTheme) packageStartupMessage("lattice theme set by effectsTheme()", "\nSee ?effectsTheme for details.") } else packageStartupMessage("Use the command", "\n lattice::trellis.par.set(effectsTheme())", "\n to customize lattice options for effects plots.", "\nSee ?effectsTheme for details.") } # to handle defaults for list-style arguments applyDefaults <- function(args, defaults, onFALSE, arg=""){ if (is.null(args)) return(defaults) if (isFALSE(args)) { if (missing(onFALSE)) return(FALSE) else return(onFALSE) } names <- names(args) names <- names[names != ""] if (!isTRUE(args) && length(names) != length(args)) warning("unnamed ", arg, " arguments, will be ignored") if (isTRUE(args) || is.null(names)) defaults else defaults[names] <- args[names] as.list(defaults) } isFALSE <- function(x){ length(x) == 1 && is.logical(x) && !isTRUE(x) } # compute multiplier for Scheffe-type confidence bounds scheffe <- function(level, p, df=Inf){ sqrt(p*qf(level, p, df)) } # function to compute "nice" numbers nice <- function (x, direction = c("round", "down", "up"), lead.digits = 1) { direction <- match.arg(direction) if (length(x) > 1){ result <- sapply(x, nice, direction = direction, lead.digits = lead.digits) if (anyDuplicated(result)) result <- nice(x, direction=direction, lead.digits = lead.digits + 1) return(result) } if (x == 0) return(0) power.10 <- floor(log(abs(x), 10)) if (lead.digits > 1) power.10 <- power.10 - lead.digits + 1 lead.digit <- switch(direction, round = round(abs(x)/10^power.10), down = floor(abs(x)/10^power.10), up = ceiling(abs(x)/10^power.10)) sign(x) * lead.digit * 10^power.10 } ticksGrid <- function(x, y, col=reference.line$col){ reference.line <- trellis.par.get("reference.line") panel.abline(h=y, v=x, col=col, lty=reference.line$lty) } # for character and logical predictors is.factor <- function(x) inherits(x, "factor") || ((is.character(x) || is.logical(x)) && is.vector(x)) levels.character <- function(x) { levs <- unique(x) sort(levs[!is.na(levs)]) } levels.logical <- function(x) { c("FALSE", "TRUE") } # to support Date variables levels2dates <- function(effect, ...){ UseMethod("levels2dates") } levels2dates.eff <- function(effect, predictor, origin, evenly.spaced=TRUE, n, ...){ levels <- effect$variables[[predictor]]$levels if (evenly.spaced) { if (missing(n)) n <- length(levels) levels <- seq(min(levels), max(levels), length=n) } as.Date(levels, origin) } levels2dates.effpoly <- function(effect, predictor, origin, evenly.spaced=TRUE, n, ...){ levels2dates.eff(effect, predictor, origin, evenly.spaced, n, ...) } effects/R/summary-print-methods.R0000644000176200001440000002604715132433422016515 0ustar liggesusers# plot, summary, and print methods for effects package # John Fox and Jangman Hong # last modified 2012-11-30 by J. Fox # 29 June 2011 added grid, rotx and roty arguments to the two plot methods # by S. Weisberg # 21 Dec 2012 modest modification of empty cells with crossed factors # 2013-01-17: Added factor.ci.style arg to plot.eff() and plot.effpoly(). J. Fox # 2013-01-18: Added CI bars to multiline plots with factor.ci.style="bars" # 2013-01-19: Renamed 'factor.ci.style' to 'ci.style'. Added a 'none' option # extended to variate terms if multiline=TRUE, ci.style="bars" # 2013-01-30: scale arrow "heads" for error bars relative to cex # 2013-05-31: fixed symbol colors in legends in plot.eff(). J. Fox # 2013-08-14: fixed bug in restoring warn option. J. Fox # 2013-08-27: fixed symbols argument for multiline plot in plot.eff(), reported by Ulrike Gromping. J. Fox # 2013-08-31: fixed handling of ticks.x argument. John # 2013-09-25: moved plot.eff methods to plot.methods.R for easier work. Michael # 2013-10-17: added use.splines argument to plot.effpoly. Sandy # 2025-07-22: fix summary.eff when transformation is inverse rather than direct. John summary.eff <- function(object, type=c("response", "link"), ...){ effect <- as.vector(object$fit) trans.effect <- object$transformation$inverse(effect) check.order <- if (all(order(effect) == order(trans.effect))){ "direct" } else if (all(order(effect) == order(- trans.effect))){ "inverse" } else { "inconsistent" } if (check.order == "inconsistent") { warning("the response transformation appears to be non-monotone") } result <- list() result$header <- paste("\n", gsub(":", "*", object$term), 'effect\n') result$offset <- object$offset type <- match.arg(type) if (type == "response") { object$fit <- object$transformation$inverse(object$fit) if (!is.null(object$confidence.level)){ if (check.order == "inverse"){ save.upper <- object$upper object$upper <- object$transformation$inverse(object$lower) object$lower <- object$transformation$inverse(save.upper) } else { object$lower <- object$transformation$inverse(object$lower) object$upper <- object$transformation$inverse(object$upper) } } } result$effect <- array(object$fit, dim=sapply(object$variables, function(x) length(x$levels)), dimnames=lapply(object$variables, function(x) x$levels)) if (!is.null(object$se)){ result$lower.header <- paste('\n Lower', round(100*object$confidence.level, 2), 'Percent Confidence Limits\n') result$lower <- array(object$lower, dim=sapply(object$variables, function(x) length(x$levels)), dimnames=lapply(object$variables, function(x) x$levels)) result$upper.header <- paste('\n Upper', round(100*object$confidence.level, 2), 'Percent Confidence Limits\n') result$upper <- array(object$upper, dim=sapply(object$variables, function(x) length(x$levels)), dimnames=lapply(object$variables, function(x) x$levels)) } if (object$discrepancy > 1e-3) result$warning <- paste("\nWarning: There is an average discrepancy of", round(object$discrepancy, 3), "percent \n in the 'safe' predictions for effect", object$term, '\n') class(result) <- "summary.eff" result } print.summary.eff <- function(x, ...){ cat(x$header) if (x$offset != 0) cat("\noffset = ", x$offset, "\n\n") print(x$effect, ...) if (!is.null(x$lower)){ cat(x$lower.header) print(x$lower, ...) cat(x$upper.header) print(x$upper, ...) } if (!is.null(x$thresholds)){ cat("\nThresholds:\n") print(x$thresholds, ...) } if (!is.null(x$warning)) cat(x$warning) invisible(x) } print.eff <- function(x, type=c("response", "link"), ...){ cat(paste("\n", gsub(":", "*", x$term), 'effect\n')) if (x$offset != 0) cat("\noffset = ", x$offset, "\n\n") type <- match.arg(type) if (type == "response") x$fit <- x$transformation$inverse(x$fit) table <- array(x$fit, dim=sapply(x$variables, function(x) length(x$levels)), dimnames=lapply(x$variables, function(x) x$levels)) print(table, ...) if (x$discrepancy > 1e-3) cat(paste("\nWarning: There is an average discrepancy of", round(x$discrepancy, 3), "percent \n in the 'safe' predictions for effect", x$term, '\n')) invisible(x) } print.efflist <- function(x, ...){ cat(" model: ") form <- x[[1]]$formula attributes(form) <- NULL print(form) for (effect in names(x)){ print(x[[effect]], ...) } invisible(x) } summary.efflist <- function(object, ...){ cat(" model: ") form <- object[[1]]$formula attributes(form) <- NULL print(form) for (effect in names(object)){ print(summary(object[[effect]], ...)) } invisible(NULL) } print.effpoly <- function(x, type=c("probability", "logits"), ...){ type <- match.arg(type) x.frame <-as.data.frame(x) n.predictors <- length(names(x$x)) predictors <- names(x.frame)[1:n.predictors] y.lev <- x$y.lev ylevel.names <- make.names(paste("prob",y.lev)) colnames(x$prob) <- colnames(x$logit) <- ylevel.names y.categories <- matrix(0, nrow=length(x.frame[,predictors[1]]), ncol=length(y.lev)) for (i in 1:length(y.lev)){ level <- which(colnames(x$prob)[i] == ylevel.names) y.categories[,i] <- rep(y.lev[level], length(y.categories[,i])) } y.categories <- as.vector(y.categories) y.categories <- factor(y.categories) for (i in 1:length(y.lev)){ cat(paste("\n", gsub(":", "*", x$term), " effect (", type,") for ", y.lev[i], "\n", sep="")) table <- array(if (type == "probability") {x$prob[y.categories==y.lev[i]]} else {x$logit[y.categories==y.lev[i]]}, dim=sapply(x$variables, function(x) length(x$levels)), dimnames=lapply(x$variables, function(x) x$levels)) print(table, ...) } if (x$discrepancy > 0.1) cat(paste("\nWarning: There is an average discrepancy of", round(x$discrepancy, 2), "percent \n in the 'safe' predictions for effect", x$term, '\n')) invisible(x) } summary.effpoly <- function(object, type=c("probability", "logits"), ...){ type <- match.arg(type) x.frame <-as.data.frame(object) n.predictors <- length(names(object$x)) predictors <- names(x.frame)[1:n.predictors] y.lev <- object$y.lev ylevel.names <- make.names(paste("prob",y.lev)) colnames(object$prob) <- colnames(object$logit) <- colnames(object$lower.logit) <- colnames(object$upper.logit) <- colnames(object$lower.prob) <- colnames(object$upper.prob)<- ylevel.names y.categories <-matrix(0, nrow=length(x.frame[,predictors[1]]), ncol=length(y.lev)) for (i in 1:length(y.lev)){ level <- which(colnames(object$prob)[i] == ylevel.names) y.categories[,i] <- rep(y.lev[level], length(y.categories[,i])) } y.categories <- as.vector(y.categories) y.categories <- factor(y.categories) for (i in 1:length(y.lev)){ cat(paste("\n", gsub(":", "*", object$term), " effect (" , type, ") for ", y.lev[i], "\n", sep="")) table <- array(if (type == "probability") {object$prob[y.categories==y.lev[i]]} else {object$logit[y.categories==y.lev[i]]}, dim=sapply(object$variables, function(x) length(x$levels)), dimnames=lapply(object$variables, function(x) x$levels)) print(table, ...) } if (is.null(object$confidence.level)) return(invisible(NULL)) for (i in 1:length(y.lev)){ cat(paste("\n", 'Lower', object$confidence.level*100, 'Percent Confidence Limits for' , y.lev[i],'\n')) table <- if (type == "probability") object$lower.prob else object$lower.logit table <- array(table[y.categories==y.lev[i]], dim=sapply(object$variables, function(x) length(x$levels)), dimnames=lapply(object$variables, function(x) x$levels)) print(table, ...) } for (i in 1:length(y.lev)){ cat(paste("\n", 'Upper', object$confidence.level*100, 'Percent Confidence Limits for' , y.lev[i],'\n')) table <- if (type == "probability") object$upper.prob else object$upper.logit table <- array(table[y.categories==y.lev[i]], dim=sapply(object$variables, function(x) length(x$levels)), dimnames=lapply(object$variables, function(x) x$levels)) print(table, ...) } if (object$discrepancy > 0.1) cat(paste("\nWarning: There is an average discrepancy of", round(object$discrepancy, 2), "percent \n in the 'safe' predictions for effect", object$term, '\n')) invisible(NULL) } print.efflatent <- function(x, ...){ cat(paste("\n", gsub(":", "*", x$term), 'effect\n')) table <- array(x$fit, dim=sapply(x$variables, function(x) length(x$levels)), dimnames=lapply(x$variables, function(x) x$levels)) print(table, ...) cat("\nThresholds:\n") print(x$thresholds, ...) if (x$discrepancy > 0.1) cat(paste("\nWarning: There is an average discrepancy of", round(x$discrepancy, 3), "percent \n in the 'safe' predictions for effect", x$term, '\n')) invisible(x) } summary.efflatent <- function(object, ...){ result <- list() result$header <- paste("\n", gsub(":", "*", object$term), 'effect\n') result$effect <- array(object$fit, dim=sapply(object$variables, function(x) length(x$levels)), dimnames=lapply(object$variables, function(x) x$levels)) if (!is.null(object$se)){ result$lower.header <- paste('\n Lower', round(100*object$confidence.level, 2), 'Percent Confidence Limits\n') result$lower <- array(object$lower, dim=sapply(object$variables, function(x) length(x$levels)), dimnames=lapply(object$variables, function(x) x$levels)) result$upper.header <- paste('\n Upper', round(100*object$confidence.level, 2), 'Percent Confidence Limits\n') result$upper <- array(object$upper, dim=sapply(object$variables, function(x) length(x$levels)), dimnames=lapply(object$variables, function(x) x$levels)) } result$thresholds <- object$thresholds if (object$discrepancy > 0.1) result$warning <- paste("\nWarning: There is an average discrepancy of", round(object$discrepancy, 3), "percent \n in the 'safe' predictions for effect", object$term, '\n') class(result) <- "summary.eff" result } effects/R/Effect.R0000644000176200001440000010244215132433422013413 0ustar liggesusers# Effect generic and methods # John Fox and Sanford Weisberg # 2012-12-21: Allow for empty cells in factor interactions, S. Weisberg # 2012-03-05: Added .merMod method for development version of lme4, J. Fox # 2012-04-06: Added support for lme4.0, J. Fox # 2013-07-15: Changed default xlevels and default.levels # 2013-10-15: Added Effect.default(). J. Fox # 2013-10-22: fixed bug in Effect.lm() when na.action=na.exclude. J. Fox # 2013-10-29: code to handle "valid" NAs in factors. J. Fox # 2013-11-06: fixed bug in Effect.multinom() in construction of effect object # 2014-03-13: modified Effect.lm() to compute partial residuals. J. Fox # 2014-05-06: fixed bug in Effect.gls() when cor or var structure depends on variables in the data set. J. Fox # 2014-08-02: added vcov.=vcov argument to allow other methods of estimating var(coef.estimates) # 2014-09-25: added KR argument to Effect.mer() and Effect.merMod(). J. Fox # 2014-12-07: don't assume that pbkrtest is installed. J. Fox # 2015-03-25: added "family" element to eff objects returned by Effect.lm(). J. Fox # 2016-02-16: fixed problem in handling terms like polynomials for non-focal predictors. J. Fox # 2016-03-01: recoded calculation of partial residuals. J. Fox # 2016-07-19: added checkFormula(). J. Fox # 2017-08-18: removed default.levels argument. J. Fox # 2017-08-26: introduced confint list argument, including Scheffe intervals. J. Fox # 2017-08-29: reintroduce legacy se and confidence.level arguments. # 2017-09-07: added Effect.svyglm() # 2017-09-14: no partial residuals for Effect.svyglm() # 2017-11-03: correct handling of rank deficient models, now using `estimability` package # 2017-11-22: modified checkFormula to work with clm2 models that don't have a 'formula' argument # 2017-12-10: Effect.default. Effect.mer, .merMod, .lme, gls have been replaced to use the default. # 2018-01-22: allow given.values="equal" or given.values="default" # 2018-01-25: substitute se for confint arg; make confint a legacy arg # 2018-05-06: allow for complete=FALSE arg in potential calls to vcov.lm() and vcov.glm. # 2018-05-13: allow partial residuals to be computed when the x.var is a factor. # 2018-06-05: Effect.default now makes sure family$aic is # set, for use with non-standard families. # 2018-06-05: A test has been added to Effect.default to chech if family$variance # has one parameter. If not, the function is stopped and an error is # returned. # 2018-06-12: Fixed bug with vcov in Effect.default # 2018-06-20: Added a check to Effect.default to handle family args that # are character or an unevaluated function # 2018-10-01: Avoid warnings when testing given.values == "equal" or "default". # 2018-10-08: transformation argument changed to legacy # 2018-10-08: new returned value 'link' = family(mod) # 2019-04-20: made Effect.default() more robust in fitting fake glm by setting epsilon=Inf. # 2019-04-20: fixed bug in .set.given.equal() in tests for model class. # 2019-07-05: clm, clm2 and clmm were not passing threshholds to the fake polr object, now corrected. # 2019-09-04: handle xlevels=n argument correctly # 2020-05-22: Removed fixFormula function. # 2020-05-27: Added effCoef generic that uses the 'insight' package to find the formula, coef estimates and vcov for methods supported by insight # 2020-06-23: Added effSources to gather sources for new regression methods. # Old mechanism of using Effect.method will still work # 2020-12-02: Allow cov. to be a matrix, not just a function. # 2022-01-29: Added warning or note about unestimable effects. # 2022-02-16: Make computation of residual df more robust. # 2025-07-27: transformation is no longer a "legacy" argument to Effect.lm(). ### Non-exported function added 2018-01-22 to generalize given.values to allow for "equal" weighting of factor levels for non-focal predictors. .set.given.equal <- function(m){ if(inherits(m, "lm") & !("(Intercept)" %in% names(coef(m)))) stop("Seting given.vales='equal' requires an intercept in the model formula") terms <- terms(m) classes <- attr(terms, "dataClasses") response <- attr(terms, "response") classes <- classes[-response] factors <- names(classes)[classes=="factor"] out <- NULL for (f in factors){ form <- as.formula(paste( "~", f, collapse="")) .m0 <- if(inherits(m, "glm")) {update(m, form, control=glm.control(epsilon=Inf, maxit=1))} else { if(inherits(m, "polr")) {update(m, form, control=list(maxit=1))} else { if(inherits(m, "multinom")) {update(m, form, maxit=0, trace=FALSE)} else update(m, form)}} names <- colnames(model.matrix(.m0))[-1] vals <- rep(1/(length(names)+1), length(names)) names(vals) <- names out <- c(out, vals) } out } # 2020-05-29 Use insight::get_parameters to get a vector of parameter estimates # for any model supported by insight. effCoef <- function(mod, ...){UseMethod("effCoef", mod)} effCoef.default <- function(mod, ...){ est1 <- insight::get_parameters(mod, ...) est <- est1[,2] names(est) <- est1[,1] est } ### end of non-exported function checkFormula <- function(object){ # clm2 does not have a formula, # if(inherits(object, "clm2")) formula <- function(x) x$call$location if (!inherits(object, "formula")){ object <- insight::find_formula(object)$conditional } formula <- as.character(object) rhs <- formula[length(formula)] res <- regexpr("as.factor\\(|factor\\(|as.ordered\\(|ordered\\(|as.numeric\\(|as.integer\\(", rhs) res == -1 || attr(res, "match.length") == 0 } Effect <- function(focal.predictors, mod, ...){ if (!checkFormula(mod)) stop("model formula should not contain calls to", "\n factor(), as.factor(), ordered(), as.ordered(),", " as.numeric(), or as.integer();", "\n see 'Warnings and Limitations' in ?Effect") UseMethod("Effect", mod) } # 2017-12-04 new Effect.default that actually works # 2017-12-07 added Effects.lme, .mer, gls that work Effect.default <- function(focal.predictors, mod, ..., sources){ # 2020/05/23 ... uses 'insight' package, else # if sources is null, try to construct it sources <- if(missing(sources)) effSources(mod) else sources ## formula formula <- if(is.null(sources$formula)) insight::find_formula(mod)$conditional else sources$formula # the next line returns the formula if focal.predictors is null if(is.null(focal.predictors)) return(formula) ## call cl <- if(is.null(sources$call)) {if(isS4(mod)) mod@call else mod$call} else sources$call # insert formula into the call cl$formula <- formula ## type == 'glm' unless it is set in sources type <- if(is.null(sources$type)) "glm" else sources$type # family fam <- try(family(mod), silent=TRUE) if(inherits(fam, "try-error")) fam <- NULL if(!is.null(sources$family)){fam <- sources$family} if(!is.null(fam)){ fam$aic <- function(...) NULL # check to be sure the variance function in the family has one argument only, # otherwise this method won't work if(!is.null(fam$variance)){ if(length(formals(fam$variance)) > 1) stop("Effect plots are not implemented for families with more than one parameter in the variance function (e.g., negative binomial).")} } cl$family <- fam # get the coefficient estimates and vcov from sources if present coefficients <- if(is.null(sources$coefficients)) effCoef(mod) else sources$coefficients vcov <- if(is.null(sources$vcov)) as.matrix(vcov(mod, complete=TRUE)) else sources$vcov # added 7/5/2019, next line, for models that use polr (e.g, clm, clm2) zeta <- if(is.null(sources$zeta)) NULL else sources$zeta # set control parameters: suggested by Nate TeGrotenhuis cl$control <- switch(type, glm = glm.control(epsilon=Inf, maxit=1), polr = list(maxit=1), multinom = c(maxit=1)) cl$method <- sources$method # NULL except for type=="polr" .m <- switch(type, glm=match(c("formula", "data", "family", "contrasts", "subset", "control", "offset"), names(cl), 0L), polr=match(c("formula", "data", "family", "contrasts", "subset", "control", "method"), names(cl), 0L), multinom=match(c("formula", "data", "family", "contrasts", "subset", "family", "maxit", "offset"), names(cl), 0L)) cl <- cl[c(1L, .m)] # if(!is.null(fam)) cl$family <- fam # if (is.character(cl$family)) # cl$family <- get(cl$family, mode = "function", envir = parent.frame()) # if (is.function(cl$family)) # cl$family <- family() cl[[1L]] <- as.name(type) # The following eval creates on object of class glm, polr or multinom. # These are crated to avoid writing an Effects method for every type of model. # The only information used from this "fake" object are the coefficients and # the variance-covariance matrix, and these are copied from the original # object so Effects plots the right things. mod2 <- eval(cl) mod2$coefficients <- coefficients mod2$vcov <- vcov if(!is.null(zeta)) mod2$zeta <- zeta # added 7/5/2019 if(type == "glm"){ mod2$weights <- as.vector(with(mod2, prior.weights * (family$mu.eta(linear.predictors)^2 / family$variance(fitted.values))))} class(mod2) <- c("fakeeffmod", class(mod2)) Effect(focal.predictors, mod2, ...) # call the glm/polr/multinom method } vcov.fakeeffmod <- function(object, ...) object$vcov ## This function removes terms with "|" or "||" in the formula, assuming these ## correspond to random effects. As of 2020-05-22 this function is never used. fixFormula <- function (term) { if (!("|" %in% all.names(term)) && !("||" %in% all.names(term))) return(term) if ((is.call(term) && term[[1]] == as.name("|")) || (is.call(term) && term[[1]] == as.name("||"))) return(NULL) if (length(term) == 2) { nb <- fixFormula(term[[2]]) if (is.null(nb)) return(NULL) term[[2]] <- nb return(term) } nb2 <- fixFormula(term[[2]]) nb3 <- fixFormula(term[[3]]) if (is.null(nb2)) return(nb3) if (is.null(nb3)) return(nb2) term[[2]] <- nb2 term[[3]] <- nb3 term } Effect.lm <- function(focal.predictors, mod, xlevels=list(), fixed.predictors, vcov. = vcov, se=TRUE, residuals=FALSE, quantiles=seq(0.2, 0.8, by=0.2), x.var=NULL, transformation, ..., #legacy arguments: given.values, typical, offset, confint, confidence.level, partial.residuals){ if (is.numeric(xlevels)){ if (length(xlevels) > 1 || round(xlevels != xlevels)) stop("xlevels must be a single whole number or a list") form <- Effect.default(NULL, mod) #returns the fixed-effects formula terms <- attr(terms(form), "term.labels") predictors <- all.vars(parse(text=terms)) xlevs <- list() for (pred in predictors){ xlevs[[pred]] <- xlevels } xlevels <- xlevs } if (!missing(partial.residuals)) residuals <- partial.residuals partial.residuals <- residuals if (missing(transformation)) transformation <- list(link = family(mod)$linkfun, inverse = family(mod)$linkinv) if (missing(fixed.predictors)) fixed.predictors <- NULL fixed.predictors <- applyDefaults(fixed.predictors, list(given.values=NULL, typical=mean, apply.typical.to.factors=FALSE, offset=mean), arg="fixed.predictors") if (missing(given.values)) given.values <- fixed.predictors$given.values # new 1/22/18 to allow for automatical equal weighting of factor levels if(!is.null(given.values)){ if (given.values[1] == "default") given.values <- NULL if (given.values[1] == "equal") given.values <- .set.given.equal(mod)} # end new code if (missing(typical)) typical <- fixed.predictors$typical if (missing(offset)) offset <- fixed.predictors$offset apply.typical.to.factors <- fixed.predictors$apply.typical.to.factors if (!missing(confint)) se <- confint confint <- applyDefaults(se, list(compute=TRUE, level=.95, type="pointwise"), onFALSE=list(compute=FALSE, level=.95, type="pointwise"), arg="se") se <- confint$compute if (missing(confidence.level)) confidence.level <- confint$level confidence.type <- match.arg(confint$type, c("pointwise", "Scheffe", "scheffe")) default.levels <- NULL # just for backwards compatibility data <- if (partial.residuals){ all.vars <- all.vars(formula(mod)) expand.model.frame(mod, all.vars)[, all.vars] } else NULL if (!is.null(given.values) && !all(which <- names(given.values) %in% names(coef(mod)))) stop("given.values (", names(given.values[!which]), ") not in the model") off <- if (is.numeric(offset) && length(offset) == 1) offset else if (is.function(offset)) { mod.off <- model.offset(model.frame(mod)) if (is.null(mod.off)) 0 else offset(mod.off) } else stop("offset must be a function or a number") formula.rhs <- formula(mod)[[3]] if (!missing(x.var)){ if (!is.numeric(x.var)) { x.var.name <- x.var x.var <- which(x.var == focal.predictors) } if (length(x.var) == 0) stop("'", x.var.name, "' is not among the focal predictors") if (length(x.var) > 1) stop("x.var argument must be of length 1") } model.components <- Analyze.model(focal.predictors, mod, xlevels, default.levels, formula.rhs, partial.residuals=partial.residuals, quantiles=quantiles, x.var=x.var, data=data, typical=typical) excluded.predictors <- model.components$excluded.predictors predict.data <- model.components$predict.data predict.data.all.rounded <- predict.data.all <- if (partial.residuals) na.omit(data[, all.vars(formula(mod))]) else NULL factor.levels <- model.components$factor.levels factor.cols <- model.components$factor.cols n.focal <- model.components$n.focal x <- model.components$x X.mod <- model.components$X.mod cnames <- model.components$cnames X <- model.components$X x.var <- model.components$x.var formula.rhs <- formula(mod)[c(1, 3)] Terms <- delete.response(terms(mod)) mf <- model.frame(Terms, predict.data, xlev = factor.levels, na.action=NULL) mod.matrix <- model.matrix(formula.rhs, data = mf, contrasts.arg = mod$contrasts) if (is.null(x.var)) partial.residuals <- FALSE factors <- sapply(predict.data, is.factor) if (partial.residuals){ for (predictor in focal.predictors[-x.var]){ if (!factors[predictor]){ values <- unique(predict.data[, predictor]) predict.data.all.rounded[, predictor] <- values[apply(outer(predict.data.all[, predictor], values, function(x, y) (x - y)^2), 1, which.min)] } } } mod.matrix.all <- model.matrix(mod) wts <- weights(mod) if (is.null(wts)) wts <- rep(1, length(residuals(mod))) mod.matrix <- Fixup.model.matrix(mod, mod.matrix, mod.matrix.all, X.mod, factor.cols, cnames, focal.predictors, excluded.predictors, typical, given.values, apply.typical.to.factors) # 11/3/2017. Check to see if the model is full rank # Compute a basis for the null space, using estimability package null.basis <- estimability::nonest.basis(mod) # returns basis for null space # check to see if each row of mod.matrix is estimable is.estimable <- estimability::is.estble(mod.matrix, null.basis) # TRUE if effect is estimable else FALSE if (!any(is.estimable)) { warning("none of the values of the ", paste(focal.predictors, collapse="*"), " effect are estimable") } else if ((n.not.estimable <- sum(!is.estimable)) > 0) { message("Note:\n ", n.not.estimable, if (n.not.estimable > 1) " values" else " value", " in the ", paste(focal.predictors, collapse="*"), " effect are not estimable") } # substitute 0 for NA in coef vector and compute effects scoef <- ifelse(is.na(mod$coefficients), 0L, mod$coefficients) effect <- off + mod.matrix %*% scoef effect[!is.estimable] <- NA # set all non-estimable effects to NA # end estimability check if (partial.residuals){ res <- na.omit(residuals(mod, type="working")) fitted <- na.omit(if (inherits(mod, "glm")) predict(mod, type="link") else predict(mod)) partial.residuals.range <- range(fitted + res) } else { res <- partial.residuals.range <- NULL } result <- list(term = paste(focal.predictors, collapse="*"), formula = formula(mod), response = response.name(mod), variables = x, fit = effect, x = predict.data[, 1:n.focal, drop=FALSE], x.all=predict.data.all.rounded[, focal.predictors, drop=FALSE], model.matrix = mod.matrix, data = X, discrepancy = 0, offset=off, residuals=res, partial.residuals.range=partial.residuals.range, x.var=x.var) if (se) { if (any(family(mod)$family == c("binomial", "poisson"))) { z <- if (confidence.type == "pointwise") { qnorm(1 - (1 - confidence.level)/2) } else { p <- length(na.omit(coef(mod))) scheffe(confidence.level, p) } } else { df.residual <- df.residual(mod) if (is.null(df.residual) || is.na(df.residual)) df.residual <- Inf z <- if (confidence.type == "pointwise") { qt(1 - (1 - confidence.level)/2, df = df.residual) } else { p <- length(na.omit(coef(mod))) scheffe(confidence.level, p, df.residual) } } V <- if(inherits(vcov., "matrix")) vcov. else { if(inherits(vcov., "function")) vcov.(mod, complete=FALSE) else stop("vcov. must be a function or matrix")} use <- !is.na(mod$coefficients) # new # mmat <- mod.matrix[, !is.na(mod$coefficients)] # remove non-cols with NA coeffs mmat <- mod.matrix[, use] # remove non-cols with NA coeffs # new if (any(is.na(V))) V <- V[use, use] # new eff.vcov <- mmat %*% V %*% t(mmat) rownames(eff.vcov) <- colnames(eff.vcov) <- NULL var <- diag(eff.vcov) result$vcov <- eff.vcov result$se <- sqrt(var) result$se[!is.estimable] <- NA result$lower <- effect - z * result$se result$upper <- effect + z * result$se result$confidence.level <- confidence.level } if (is.null(transformation$link) && is.null(transformation$inverse)) { transformation$link <- I transformation$inverse <- I } result$transformation <- transformation result$family <- family(mod)$family # 2018-10-08 result$family kept to work with legacy code result$link <- family(mod) class(result) <- "eff" result } Effect.multinom <- function(focal.predictors, mod, xlevels=list(), fixed.predictors, vcov. = vcov, se=TRUE, ..., #legacy arguments: confint, confidence.level, given.values, typical){ if (is.numeric(xlevels)){ if (length(xlevels) > 1 || round(xlevels != xlevels)) stop("xlevels must be a single whole number or a list") form <- Effect.default(NULL, mod) #returns the fixed-effects formula terms <- attr(terms(form), "term.labels") predictors <- all.vars(parse(text=terms)) xlevs <- list() for (pred in predictors){ xlevs[[pred]] <- xlevels } xlevels <- xlevs } if (missing(fixed.predictors)) fixed.predictors <- NULL fixed.predictors <- applyDefaults(fixed.predictors, list(given.values=NULL, typical=mean), arg="fixed.predictors") if (missing(given.values)) given.values <- fixed.predictors$given.values # new 1/22/18 to allow for automatical equal weighting of factor levels if(!is.null(given.values)){ if (given.values[1] == "default") given.values <- NULL if (given.values[1] == "equal") given.values <- .set.given.equal(mod)} # end new code # end new code if (missing(typical)) typical <- fixed.predictors$typical if (!missing(confint)) se <- confint confint <- applyDefaults(se, list(compute=TRUE, level=.95, type="pointwise"), onFALSE=list(compute=FALSE, level=.95, type="pointwise"), arg="se") se <- confint$compute if (missing(confidence.level)) confidence.level <- confint$level confidence.type <- match.arg(confint$type, c("pointwise", "Scheffe", "scheffe")) default.levels <- NULL # just for backwards compatibility if (length(mod$lev) < 3) stop("effects for multinomial logit model only available for response levels > 2") if (missing(given.values)) given.values <- NULL else if (!all(which <- colnames(given.values) %in% names(coef(mod)))) stop("given.values (", colnames(given.values[!which]),") not in the model") formula.rhs <- formula(mod)[c(1, 3)] model.components <- Analyze.model(focal.predictors, mod, xlevels, default.levels, formula.rhs, typical=typical) excluded.predictors <- model.components$excluded.predictors predict.data <- model.components$predict.data factor.levels <- model.components$factor.levels factor.cols <- model.components$factor.cols # n.focal <- model.components$n.focal x <- model.components$x X.mod <- model.components$X.mod cnames <- model.components$cnames X <- model.components$X formula.rhs <- formula(mod)[c(1, 3)] Terms <- delete.response(terms(mod)) mf <- model.frame(Terms, predict.data, xlev = factor.levels) mod.matrix <- model.matrix(formula.rhs, data = mf, contrasts.arg = mod$contrasts) X0 <- Fixup.model.matrix(mod, mod.matrix, model.matrix(mod), X.mod, factor.cols, cnames, focal.predictors, excluded.predictors, typical, given.values) resp.names <- make.names(mod$lev, unique=TRUE) resp.names <- c(resp.names[-1], resp.names[1]) # make the last level the reference level B <- t(coef(mod)) V <- if(inherits(vcov., "matrix")) vcov. else { if(inherits(vcov., "function")) vcov.(mod) else stop("vcov. must be a function or matrix")} m <- ncol(B) + 1 p <- nrow(B) r <- p*(m - 1) n <- nrow(X0) P <- Logit <- matrix(0, n, m) colnames(P) <- paste("prob.", resp.names, sep="") colnames(Logit) <- paste("logit.", resp.names, sep="") if (se){ z <- if (confidence.type == "pointwise") { qnorm(1 - (1 - confidence.level)/2) } else { scheffe(confidence.level, p) } Lower.P <- Upper.P <- Lower.logit <- Upper.logit <- SE.P <- SE.logit <- matrix(0, n, m) colnames(Lower.logit) <- paste("L.logit.", resp.names, sep="") colnames(Upper.logit) <- paste("U.logit.", resp.names, sep="") colnames(Lower.P) <- paste("L.prob.", resp.names, sep="") colnames(Upper.P) <- paste("U.prob.", resp.names, sep="") colnames(SE.P) <- paste("se.prob.", resp.names, sep="") colnames(SE.logit) <- paste("se.logit.", resp.names, sep="") } for (i in 1:n){ res <- eff.mul(X0[i,], B, se, m, p, r, V) # compute effects # P[i,] <- prob <- res$p # fitted probabilities P[i,] <- res$p # fitted probabilities Logit[i,] <- logit <- res$logits # fitted logits if (se){ # SE.P[i,] <- se.p <- res$std.err.p # std. errors of fitted probs SE.P[i,] <- res$std.err.p # std. errors of fitted probs SE.logit[i,] <- se.logit <- res$std.error.logits # std. errors of logits Lower.P[i,] <- logit2p(logit - z*se.logit) Upper.P[i,] <- logit2p(logit + z*se.logit) Lower.logit[i,] <- logit - z*se.logit Upper.logit[i,] <- logit + z*se.logit } } resp.levs <- c(m, 1:(m-1)) # restore the order of the levels P <- P[, resp.levs] Logit <- Logit[, resp.levs] if (se){ Lower.P <- Lower.P[, resp.levs] Upper.P <- Upper.P[, resp.levs] Lower.logit <- Lower.logit[, resp.levs] Upper.logit <- Upper.logit[, resp.levs] SE.P <- SE.P[, resp.levs] SE.logit <- SE.logit[, resp.levs] } result <- list(term=paste(focal.predictors, collapse="*"), formula=formula(mod), response=response.name(mod), y.levels=mod$lev, variables=x, x=predict.data[, focal.predictors, drop=FALSE], model.matrix=X0, data=X, discrepancy=0, model="multinom", prob=P, logit=Logit) if (se) result <- c(result, list(se.prob=SE.P, se.logit=SE.logit, lower.logit=Lower.logit, upper.logit=Upper.logit, lower.prob=Lower.P, upper.prob=Upper.P, confidence.level=confidence.level)) # find empty cells, if any, and correct ## 11/3/17: The code until the next comment is surely incorrect, but ## generally harmless. One must learn if the notion of estimablilty applied ## to multinomial models and figure out the right thing to do whichFact <- unlist(lapply(result$variables, function(x) x$is.factor)) zeroes <- NULL if(sum(whichFact) > 1){ nameFact <- names(whichFact)[whichFact] counts <- xtabs(as.formula( paste("~", paste(nameFact, collapse="+"))), model.frame(mod)) zeroes <- which(counts == 0) } if(length(zeroes) > 0){ levs <- expand.grid(lapply(result$variables, function(x) x$levels)) good <- rep(TRUE, dim(levs)[1]) for(z in zeroes){ good <- good & apply(levs, 1, function(x) !all(x == levs[z, whichFact])) } result$prob[!good, ] <- NA result$logit[!good, ] <- NA if (se){ result$se.prob[!good, ] <- NA result$se.logit[!good, ] <- NA result$lower.prob[!good, ] <- NA result$upper.prob[!good, ] <- NA } } ## End of unnecessary code class(result) <-'effpoly' result } Effect.polr <- function(focal.predictors, mod, xlevels=list(), fixed.predictors, vcov.=vcov, se=TRUE, latent=FALSE, ..., #legacy arguments: confint, confidence.level, given.values, typical){ if (is.numeric(xlevels)){ if (length(xlevels) > 1 || round(xlevels != xlevels)) stop("xlevels must be a single whole number or a list") form <- Effect.default(NULL, mod) #returns the fixed-effects formula terms <- attr(terms(form), "term.labels") predictors <- all.vars(parse(text=terms)) xlevs <- list() for (pred in predictors){ xlevs[[pred]] <- xlevels } xlevels <- xlevs } if (missing(fixed.predictors)) fixed.predictors <- NULL fixed.predictors <- applyDefaults(fixed.predictors, list(given.values=NULL, typical=mean), arg="fixed.predictors") if (missing(given.values)) given.values <- fixed.predictors$given.values # new 1/22/18 to allow for automatical equal weighting of factor levels # new 1/22/18 to allow for automatical equal weighting of factor levels if(!is.null(given.values)){ if (given.values[1] == "default") given.values <- NULL if (given.values[1] == "equal") given.values <- .set.given.equal(mod)} # end new code if (missing(typical)) typical <- fixed.predictors$typical if (!missing(confint)) se <- confint confint <- applyDefaults(se, list(compute=TRUE, level=.95, type="pointwise"), onFALSE=list(compute=FALSE, level=.95, type="pointwise"), arg="se") se <- confint$compute if (missing(confidence.level)) confidence.level <- confint$level confidence.type <- match.arg(confint$type, c("pointwise", "Scheffe", "scheffe")) default.levels <- NULL # just for backwards compatibility if (mod$method != "logistic") stop('method argument to polr must be "logistic"') if (missing(given.values)) given.values <- NULL else if (!all(which <- names(given.values) %in% names(coef(mod)))) stop("given.values (", names(given.values[!which]),") not in the model") formula.rhs <- formula(mod)[c(1, 3)] model.components <- Analyze.model(focal.predictors, mod, xlevels, default.levels, formula.rhs, typical=typical) excluded.predictors <- model.components$excluded.predictors predict.data <- model.components$predict.data factor.levels <- model.components$factor.levels factor.cols <- model.components$factor.cols # n.focal <- model.components$n.focal x <- model.components$x X.mod <- model.components$X.mod cnames <- model.components$cnames X <- model.components$X Terms <- delete.response(terms(mod)) mf <- model.frame(Terms, predict.data, xlev = factor.levels, na.action=NULL) mod.matrix <- model.matrix(formula.rhs, data = mf, contrasts.arg = mod$contrasts) X0 <- Fixup.model.matrix(mod, mod.matrix, model.matrix(mod), X.mod, factor.cols, cnames, focal.predictors, excluded.predictors, typical, given.values) resp.names <- make.names(mod$lev, unique=TRUE) X0 <- X0[,-1, drop=FALSE] b <- coef(mod) p <- length(b) # corresponds to p - 1 in the text alpha <- - mod$zeta # intercepts are negatives of thresholds z <- if (confidence.type == "pointwise") { qnorm(1 - (1 - confidence.level)/2) } else { scheffe(confidence.level, p + length(alpha)) } result <- list(term=paste(focal.predictors, collapse="*"), formula=formula(mod), response=response.name(mod), y.levels=mod$lev, variables=x, x=predict.data[, focal.predictors, drop=FALSE], model.matrix=X0, data=X, discrepancy=0, model="polr") if (latent){ V <- if(inherits(vcov., "matrix")) vcov.[1:p, 1:p] else { if(inherits(vcov., "function")) vcov.(mod)[1:p, 1:p] else stop("vcov. must be a function or matrix")} res <- eff.latent(X0, b, V, se) result$fit <- res$fit if (se){ result$se <- res$se result$lower <- result$fit - z*result$se result$upper <- result$fit + z*result$se result$confidence.level <- confidence.level } transformation <- list() transformation$link <- I transformation$inverse <- I result$transformation <- transformation result$thresholds <- -alpha class(result) <- c("efflatent", "eff") return(result) } m <- length(alpha) + 1 r <- m + p - 1 indices <- c((p+1):r, 1:p) V <- if(inherits(vcov., "matrix")) vcov.[indices, indices] else { if(inherits(vcov., "function")) vcov.(mod)[indices, indices] else stop("vcov. must be a function or matrix")} for (j in 1:(m-1)){ # fix up the signs of the covariances V[j,] <- -V[j,] # for the intercepts V[,j] <- -V[,j]} n <- nrow(X0) P <- Logit <- matrix(0, n, m) colnames(P) <- paste("prob.", resp.names, sep="") colnames(Logit) <- paste("logit.", resp.names, sep="") if (se){ Lower.logit <- Upper.logit <- Lower.P <- Upper.P <- SE.P <- SE.Logit <- matrix(0, n, m) colnames(Lower.logit) <- paste("L.logit.", resp.names, sep="") colnames(Upper.logit) <- paste("U.logit.", resp.names, sep="") colnames(Lower.P) <- paste("L.prob.", resp.names, sep="") colnames(Upper.P) <- paste("U.prob.", resp.names, sep="") colnames(SE.P) <- paste("se.prob.", resp.names, sep="") colnames(SE.Logit) <- paste("se.logit.", resp.names, sep="") } for (i in 1:n){ res <- eff.polr(X0[i,], b, alpha, V, m, r, se) # compute effects P[i,] <- res$p # fitted probabilities Logit[i,] <- logit <- res$logits # fitted logits if (se){ SE.P[i,] <- res$std.err.p # std. errors of fitted probs SE.Logit[i,] <- se.logit <- res$std.error.logits # std. errors of logits Lower.P[i,] <- logit2p(logit - z*se.logit) Upper.P[i,] <- logit2p(logit + z*se.logit) Lower.logit[i,] <- logit - z*se.logit Upper.logit[i,] <- logit + z*se.logit } } result$prob <- P result$logit <- Logit if (se) result <- c(result, list(se.prob=SE.P, se.logit=SE.Logit, lower.logit=Lower.logit, upper.logit=Upper.logit, lower.prob=Lower.P, upper.prob=Upper.P, confidence.level=confidence.level)) class(result) <-'effpoly' result } # merMod -- included here to allow addtional KR argument Effect.merMod <- function(focal.predictors, mod, ..., KR=FALSE){ if (KR && !requireNamespace("pbkrtest", quietly=TRUE)){ KR <- FALSE warning("pbkrtest is not available, KR set to FALSE")} fam <- family(mod) args <- list( family=fam, vcov = if (fam$family == "gaussian" && fam$link == "identity" && KR) as.matrix(pbkrtest::vcovAdj(mod)) else insight::get_varcov(mod)) Effect.default(focal.predictors, mod, ..., sources=args) } # svyglm Effect.svyglm <- function(focal.predictors, mod, fixed.predictors, ...){ Svymean <- function(x){ svymean(x, design=mod$survey.design) } ellipses.list <- list(...) if ((!is.null(ellipses.list$residuals) && !isFALSE(residuals)) || (!is.null(ellipses.list$partial.residuals) && !isFALSE(ellipses.list$partial.residuals))){ stop("partial residuals are not available for svyglm models") } if (missing(fixed.predictors)) fixed.predictors <- NULL fixed.predictors <- applyDefaults(fixed.predictors, list(given.values=NULL, typical=Svymean, apply.typical.to.factors=TRUE, offset=Svymean), arg="fixed.predictors") typical <- fixed.predictors$typical apply.typical.to.factors <- fixed.predictors$apply.typical.to.factors offset <- fixed.predictors$offset mod$call <- list(mod$call, data=mod$data) Effect.lm(focal.predictors, mod, typical=typical, apply.typical.to.factors=apply.typical.to.factors, offset=offset, ...) } effects/R/effects.R0000644000176200001440000000414415132433422013636 0ustar liggesusers# effect generic and methods; allEffects # John Fox, Sanford Weisberg, and Jangman Hong # last modified 2012-12-08 by J. Fox # 10/31/2012 modifed effect.lm to use z distn for ses with mer and nlme objects # 12-21-2012 Allow for empty cells in factor interactions, S. Weisberg # 7-15-2013: S. Weisberg: deleted 'default.levels' argument. Changed and # generalized xlevels argument to include the function of default.levels. # 2013-10-15: eliminated generic effect() and all its methods. J. Fox # 2014-07-02: added vcov. argument to effect # 2014-12-10: Changed 'effect' back to a generic function. S. Weisberg # 2017-12-08: For compatibility with Effect.default, changed test for itercept i effect.default. SW # 2017-12-08: Removed unneeded allEffects.gls effect <- function(term, mod, vcov.=vcov, ...){ UseMethod("effect", mod) } effect.default <- function(term, mod, vcov.=vcov, ...){ term <- gsub(" ", "", gsub("\\*", ":", term)) terms <- term.names(mod) if ( terms[1] == "(Intercept)") terms <- terms[-1] # if (has.intercept(mod)) terms <- terms[-1] which.term <- which(term == terms) mod.aug<- list() if (length(which.term) == 0){ message("NOTE: ", term, " does not appear in the model") mod.aug <- update(formula(mod), eval(parse(text=paste(". ~ . +", term)))) } if (!is.high.order.term(term, mod, mod.aug)) message("NOTE: ", term, " is not a high-order term in the model") predictors <- all.vars(parse(text=term)) Effect(predictors, mod, vcov.=vcov., ...) } allEffects <- function(mod, ...) UseMethod("allEffects") allEffects.default <- function(mod, ...){ high.order.terms <- function(mod){ names <- term.names(mod) if (has.intercept(mod)) names<-names[-1] rel <- lapply(names, descendants, mod=mod) (1:length(names))[sapply(rel, function(x) length(x)==0)] } names <- term.names(mod) if (has.intercept(mod)) names <- names[-1] if (length(names) == 0) stop("the model contains no terms (beyond a constant)") terms <- names[high.order.terms(mod)] result <- lapply(terms, effect, mod=mod, ...) names(result) <- terms class(result) <- 'efflist' result } effects/R/effectspoLCA.R0000644000176200001440000000446415132433422014522 0ustar liggesusers# 2013-07-31: extend effects to poLCA objects. S. Weisberg # 2013-10-15: removed effect.poLCA. J. Fox # 2018-11-19: added focal.levels argument to predictorEffect() and predictorEffects() methods. J. Fox #The next two functions should be exported to the namespace allEffects.poLCA <- function(mod, ...){ allEffects(poLCA.to.fake(mod), ...) } Effect.poLCA <- function(focal.predictors, mod, ...) { result <- Effect(focal.predictors, poLCA.to.fake(mod), ..., sources=list(type="multinom")) result$formula <- as.formula(formula(mod)) result } predictorEffects.poLCA <- function(mod, predictors = ~.,focal.levels=50, xlevels=5, ...){ predictorEffects(poLCA.to.fake(mod), predictors=predictors, focal.levels=focal.levels, xlevels=xlevels, ...) } predictorEffect.poLCA <- function(predictor, mod, focal.levels=50, xlevels=5, ...){ predictorEffect(predictor, poLCA.to.fake(mod), focal.levels=focal.levels, xlevels=xlevels, ...) } # this function makes a 'fake' multinom object or 'glm' object so # effect.multinom or effect.glm can be used. # effect.multinom requires at least 3 classes, so if classes=2 use # effect.glm poLCA.to.fake <- function(mod) { if (requireNamespace("nnet", quietly=TRUE)){ multinom <- nnet::multinom} dta <- eval(mod$call$data) form <- as.formula(eval(mod$call$formula)) # find the missing data: omit <- attr(model.frame(form, dta), "na.action") if(length(omit) == 0) dta$.class <- factor(mod$predclass) else{ dta$.class <- rep(NA, dim(dta)[1]) dta$.class[-omit] <- mod$predclass dta$.class <- factor(dta$.class) } # end of missing data correction formula1 <- update(form, .class ~ .) if(length(mod$P) == 2L){ mod1 <- glm(formula1, family=binomial, data=dta) mod1$call$data <- dta mod1$call$formula <- formula1 mod1$coef <- mod$coeff[, 1] mod1$vcov <- mod$coeff.V class(mod1) <- c("fakeglm", class(mod1)) } else { mod1 <- multinom(formula1, dta, Hess=TRUE, trace=FALSE, maxit=1) mod1$call$data <- dta mod1$call$formula <- formula1 mod1$coeff <- mod$coeff mod1$coeff.V <- mod$coeff.V class(mod1) <- c("fakemultinom", class(mod1)) } coef.fakemultinom <- function(mod){ coef <- t(mod$coeff) dimnames(coef) <- list(mod$lab[-1L], mod$vcoefnames) coef } vcov.fakemultinom <- function(mod){mod$coeff.V} mod1 } effects/R/predictorEffects.R0000644000176200001440000002031115132433422015504 0ustar liggesusers# 2017-08-14 fixed bug in plot.predictoreff on passing 'multiline' to lines list # 2017-08-30 for compatibility with other effect plots, default # is now multiline=FALSE # 2017-11-09 fixed bug in setting the class for multinom models, and possibly others # 2017-11-17 added methods for clm, clm2, clmm in the file effectsclmm.R # 2017-12-08 modified predictorEffect.default and predictorEffects.default for compatibility to Effect.default # 2018-01-09 fixed bug in predictorEffects.default with log() in a formula. # 2018-01-24 fixed bug with minus sign in a formula predictorEffects.default # 2018-05-14 predictorEffect.default() calls Effect() with x.var=1 # 2018-06-07 predictorEffects now works with offsets. # 2018-08-09 removed explicit 'xlevels' argument from predictorEffects, so the argument is correctly passed with ... # 2018-10-19: changed class of predictorefflist to c("predictorefflist", "efflist", "list") # 2018-11-19: added xlevels argument with default 5 to be applied to conditioning predictors and # focal.levels argument with default 50 to be applied to focal predictor. J. Fox # 2019-04-13: changed behavior of xlevels default to match Effect.lm() when residuals=TRUE. J. Fox # 2020-05-29: use find_formula in the 'insight' package to find formulas. S. Weisberg # 2020-06-23: modified predictorEffect.default to get formula using effSources. S Weisberg # removed xlevels argument 8/9/18 predictorEffect <- function(predictor, mod, focal.levels=50, xlevels=5, ...){ UseMethod("predictorEffect", mod) } # removed xlevels argument 8/9/18 predictorEffect.svyglm <- function(predictor, mod, focal.levels=50, xlevels=5, ...){ mod$call <- list(mod$call, data=mod$data) NextMethod(object=mod, ...) } #simplified 12/10/17 # removed xlevels argument 8/9/18 predictorEffect.default <- function(predictor, mod, focal.levels=50, xlevels=5, ..., sources){ dots <- list(...) which.residuals <- which(!is.na(sapply(names(dots), function(x) pmatch(x, c("residuals", "partial.residuals"))))) if (length(which.residuals) != 0){ if (isTRUE(dots[[which.residuals]]) && missing(xlevels)) xlevels <- list() } sources <- if(missing(sources)) effSources(mod) else sources form <- if(is.null(sources$formula)) find_formula(mod)$conditional else sources$formula all.vars <- all.vars(parse(text=form)) # all.vars <- find_terms(mod, flatten=TRUE) # find the right effect to use terms <- attr(terms(form), "term.labels") # get the predictor names: predictors <- all.vars(parse(text=terms)) # predictors <- find_terms(m2)$conditional sel <- which(predictors == predictor) if(length(sel) != 1) stop("First argument must be the quoted name of one predictor in the formula") if (is.numeric(xlevels)){ if (length(xlevels) > 1 || round(xlevels != xlevels)) stop("xlevels must be a single whole number or a list") xlevs <- list() for (pred in predictors[-sel]){ xlevs[[pred]] <- xlevels } xlevels <- xlevs } xlevels[[predictor]] <- focal.levels # create correspondence table decode <- function(name) all.vars(parse(text=unlist(strsplit(name, ":")))) tab <- rep(FALSE, length(terms)) for(j in 1:length(terms)){if(predictor %in% decode(terms[j])) tab[j] <- TRUE} ans <- unlist(strsplit(paste(terms[tab], collapse=":"), ":")) ans <- unique(all.vars(parse(text=ans))) ans <- unique(c(predictor, ans)) # guarantees focal predictor is first args <- names(list(...)) result <- if ("x.var" %in% args) Effect(ans, mod, xlevels=xlevels, ...) else Effect(ans, mod, x.var=1, xlevels=xlevels, ...) class(result) <- c("predictoreff", class(result)) result } predictorEffects <- function(mod, predictors, focal.levels=50, xlevels=5, ...){ UseMethod("predictorEffects", mod) } # rewritten, simplified, 12/08/17, bug in formulas fixed 01/24/2018 predictorEffects.default <- function(mod, predictors = ~ ., focal.levels=50, xlevels=5, ..., sources) { dots <- list(...) which.residuals <- which(!is.na(sapply(names(dots), function(x) pmatch(x, c("residuals", "partial.residuals"))))) if (length(which.residuals) != 0){ if (isTRUE(dots[[which.residuals]]) && missing(xlevels)) xlevels <- list() } # The next function removes offset(s) from a formula, used for mform and cform no.offset <- function(x, preserve = NULL) { k <- 0 proc <- function(x) { if (length(x) == 1) return(x) if (x[[1]] == as.name("offset") && !((k<<-k+1) %in% preserve)) return(x[[1]]) replace(x, -1, lapply(x[-1], proc)) } update(proc(x), . ~ . - offset)} sources <- if(missing(sources)) effSources(mod) else sources form <- if(is.null(sources$formula)) {find_formula(mod)$conditional} else sources$formula mform <- no.offset(form) # replacement for next line # mform <- no.offset(Effect.default(NULL, mod)) # returns the fixed-effect formula for any method cform <- if(is.character(predictors)) as.formula(paste("~", paste(predictors, collapse="+"))) else predictors cform <- update(as.formula(paste(". ~", paste(all.vars(formula(mform)[[3]]), collapse="+"))), cform) cform <- no.offset(cform) mvars <- all.vars(mform[[3]]) cvars <- all.vars(cform[[3]]) if (is.list(focal.levels)){ for(cvar in cvars){ if (!is.null(focal.levels[[cvar]])) next focal.levels[[cvar]] <- 50 } } else{ if (!is.vector(focal.levels) || !is.numeric(focal.levels) || length(focal.levels) > 1 || round(focal.levels) != focal.levels) stop("focal.levels must be a length 1 positive\nwhole-number, numeric vector or a list") } if (length(xlevels) > 0){ if (is.list(xlevels)){ for(mvar in mvars){ if (!is.null(xlevels[[mvar]])) next xlevels[[mvar]] <- 5 } } else{ if (!is.vector(xlevels) || !is.numeric(xlevels) || length(xlevels) > 1 || round(xlevels) != xlevels) stop("xlevels must be a length 1 positive\nwhole-number, numeric vector or a list") } } # check that 'cvars' is a subset of 'mvars'. If so apply predictorEffect if(!all(cvars %in% mvars)){ stop("argument 'predictors' not a subset of the predictors in the formula") } else { result <- list() for(p in cvars){ flevs <- if (is.numeric(focal.levels)) focal.levels else focal.levels[[p]] result[[p]] <- predictorEffect(p, mod, focal.levels=flevs, xlevels=xlevels, ..., sources=sources) } } class(result) <- c("predictorefflist", "efflist", "list") result } # plot methods plot.predictoreff <- function(x, x.var, main = paste(names(x$variables)[1], "predictor effect plot"), ...){ if(missing(x.var)) x.var <- names(x$variables)[1] NextMethod(x, x.var=x.var, main=main, ...) } plot.predictorefflist <- function(x, selection, rows, cols, ask=FALSE, graphics=TRUE, lattice, ...){ # Next line added 8/23/17 along with lattice, also lattice arg above lattice <- if(missing(lattice)) list() else lattice if (!missing(selection)){ if (is.character(selection)) selection <- gsub(" ", "", selection) return(plot(x[[selection]], ...)) } effects <- gsub(":", "*", names(x)) if (ask){ repeat { selection <- menu(effects, graphics=graphics, title="Select Term to Plot") if (selection == 0) break else print(plot(x[[selection]], ...)) } } else { neffects <- length(x) mfrow <- mfrow(neffects) if (missing(rows) || missing(cols)){ rows <- mfrow[1] cols <- mfrow[2] } for (i in 1:rows) { for (j in 1:cols){ if ((i-1)*cols + j > neffects) break more <- !((i-1)*cols + j == neffects) lattice[["array"]] <- list(row=i, col=j, nrow=rows, ncol=cols, more=more) print(plot(x[[(i-1)*cols + j]], lattice=lattice, ...)) } } } } # print and summary methods print.predictorefflist <- function(x, ...){ for (eff in x){ print(eff, ...) } invisible(x) } print.predictoreff <- function(x, ...){ cat("\n", names(x$variables)[1], "predictor effect\n") NextMethod() } summary.predictorefflist <- function(object, ...){ for (eff in object){ cat("\n", names(eff$variables)[1], "predictor effect\n") print(summary(eff, ...)) } } effects/R/effectsHexsticker.R0000644000176200001440000000017515132433422015670 0ustar liggesuserseffectsHexsticker <- function(){ browseURL(paste0("file://", system.file("doc", "effects-hex.pdf", package="effects"))) }effects/NEWS0000644000176200001440000003521115143644347012405 0ustar liggesusersVersion 4.2-5 o Updaing maintainer and updated information Version 4.2-4 o Restore export of Effect.default, effect.default, and allEffects.default to avoid breaking code in other packages. Version 4.2-3 o Fix bug in summary.eff() output when the transformation (e.g., link function) is inverse rather than direct, as in a gamma GLM (reported by Natalie Nicholls). o Import version >= 1.4.1 of estimability to avoid bug in version 1.4.0 (suggestion of Russell Lenth). o Added levels2dates(), with "eff" and "effpoly" methods, for limited support for plotting "Date" objects (request of Christoph Scherber). o transformation is no longer considered a "legacy" argument for Effect.lm(). o Update \link{}s in .Rd files to adhere to new rules. o Various small updates to conform to R/CRAN rules. Version 4.2-2 o Added warning or note about unestimable effects. o More robust computation of residual df in Effect.lm(), to accommodate broader classes of models. o Insure that factor levels of focal predictor are in proper order bug (reported by Christoph Scherber) didn't visibly affect plots or tables, just order of levels in returned factor. o Functions supported by effects vignette rewritten (and renamed). Version 4.2-1 o Allow the vcov. argument in the call to one of the effect methods to be a matrix or a function. Previously only a function was permitted. o Fixed bug in plot.eff() for multiline plots in which the x.var argument is set explicitly (reported by Gerrit Eichner). o Small improvements to docs. Version 4.2-0 o Adding the use of the insight package to get formulas. o Added Effect.glmmPQL() for fitting generalized linear mixed models using the glmmPQL() function in the MASS package for penalized quasi-likelihood estimation. o Don't ignore lines lty sub-argument to plot.effpoly() (fixing a bug reported by Laura Adamovicz). o One-column matrix predictors trigger a warning and correction (following problem reported by Carla Hendricks). o Added regression tests for classes of model objects supported. Tests must be enabled in the effects sources at tests/regression-tests.R. o Rewrite of defining effect method vignette. o Minor changes to predictor effects gallery vignette. Version 4.1-4 o Change class(x) == "y" to inherits(x, "y") in code. Version 4.1-3 o Handle xlevels=n argument correctly in Effect() (fixing bug reported by Gerrit Eichner). o Add col argument to effectsTheme(), mostly to accommodate colorblind-friendly palette (suggestion of Sercan Kahveci). Version 4.1-2 o Effect methods for clm, clm2, and clmm models were not correctly passing the estimated theshholds to polr for computing effects (error reported by Stefan Th. Gries). o Updated "Defining Effects Methods ..." vignette to reflect revisions to Effect.clm, Effect.clm2 and Effect.clmm. o Make sure that Effect() and plot() methods work correctly with character and logical predictors (following bug report by Julian Gaviria Lopez). Version 4.1-1 o Accommodate character and logical predictors. o Make sure that lty argument to plot() is not ignored. o Change behavior of default levels argument to predictorEffect.default() and predictorEffects.default() when residuals=TRUE to match that of Effect.lm(). o Fix to Effect.default() to make fake glm fit more robust and fixed bug in .set.given.equal() in tests for model class. Version 4.1-0 o Fixed a bug in Effect.gls to ignore the 'weights' argument on the call to gls. o Added predictor effects graphics gallery vignette. o predictorEffect() and predictorEffects() have new xlevels and focal.levels arguments. o Removed the transform argument from as.data.frame.eff(), and added type argument. Made the transformation argument to Effect() a legacy argument and added transform as sub-argument to axes=list(y=list(transform=...)) in plot.eff(). o Rearanged man files. o Extend use of cex sub-args for x and y axes and lattice strips to plot.effpoly(). o Avoid warnings when testing given.values == "default" or "equal". o Modified plot.effpoly() so that multiline plots don't show confidence limits by default, and so that confidence bars for a factor are staggered. o Added effectsHexsticker(). o Fixed bug in plotting partial residuals when a factor focal predictor had empty levels. o Small fixes and improvements. Version 4.0-3 o xlevels argument now works with predictorEffects. o Added cex sub-args for x and y axes (suggestion of Charles Leger) and for lattice strips. o modified .onAttach() so that trellis device doesn't open, suggestion of Kurt Hornik. Version 4.0-2 o Fixed bug with offsets in predictorEffects and a bug with variances in Effect.default. o Support partial-residual plots when the predictor on the horizontal axis is a factor. o For nonstandard models like lme, the weights argument was obtained from the call that created the object. This argument was never used by effects, and caused an error with lme models that used weights. The weights argument is now ignored. o Fixed a bug due to new complete arg in vcov.lm() and vcov.glm(). o lty was ignored for multiplot with factor on x-axis; now fixed (reported by Krisztian Magori). o Small fixes and improvements. Version 4.0-1 o Replaced the Effect.default method so it is easier to write new methods. o Added estimability check for linear models and glims. Fixed bugs in plot with rank deficient models. o Repaired clm, clmm and clm2 methods that were broken. o Fixed a bug in predictorEffects with polym use to specify multivariate polynomials. o Replace confint and partial.residuals argument to Effect() with se and residuals; confint and partial.residuals now legacy arguments. o Small fixes/improvements. Version 4.0-0 o This is a major update of the effects package. o Moved data sets to the carData package. o Introduced predictor effects. o Reorganized complex arguments to plot() and Effect() into lists; legacy arguments retained as alternatives. o Use lattice theme for plot defaults. o Improve generation of default values for numeric predictors. o Methods for "svyglm" objects. o New vignette on partial residuals with contrived data. o Various small improvements and fixes. Version 3.1-3 o Fixed bug in using multiline=TRUE with effects with 4 or more terms o Fixed a bug in Effect.clmm, Effect.mer, and Effect.lme that caused failure with a data.frame named m o Fixed bug in Effect.clmm and Effect.clmm2 o Improved stability of handling linear and generalized linear mixed effects models from lme4 and nlme o Fixed bug in plot.eff() affecting multiline displays with four or more predictors in the effect. o Fixed warnings (new in R 3.4.0) produced by use of 1 x 1 arrays in computing SEs of effects for multinom and polr model (problem reported by Stefan Th. Gries). Version 3.1-2 o Fixed bug handling 'start' argument in glmm's. Reported by Mariano Devoto; fix by Ben Bolker o Modified internal function make.ticks() so that it doesn't fail due to floating-point inaccuracy (following error reported by Joe Clayton Ford). o Check formula for presence of factor(), etc. (suggestion of Ulrike Gromping). o Fixed bug in Effect.clm() and some other methods (reported by David Barron), which didn't pass ... argument. o A warning is now printed if partial residuals are requested in a multiline plot. o Corrected plotting of partial residuals with various scalings of the y-axis and x-axis. o Added show.strip.values argument to plot.eff() and plot.effpoly(). Version 3.1-1 o Requires R >= 3.2.0 (requested by CRAN). Version 3.1-0 o Corrected and improved computation of partial residuals, fixing bug introduced by bug fix in 3.0-7. Version 3.0-7 o Extends to logistic ordinal response models fit using 'clm' and 'clmm' in the 'ordinal package. o Fixed bug in handling of terms like polynomials in non-focal covariates (reported by Urs Kalbitzer). o Added package tests. Version 3.0-6 o Fix bug in Effect for mer objects with 'poly' in the formula (and related issues). o Allow "||" in variance formulae in lmer4 models. o Minor bug in handling class=="array" in the Effect() method. Version 3.0-5 o Fixed bug when the name of the data frame is the name of function like "sort" in mixed-effects models with lme4 (problem originally reported by Saudi Sadiq). o Fixed bug in predictor-name matching that could occur in names with periods (reported by Trevor Avery). o Fixed package imports to conform to new CRAN rules. o Added residuals.cex argument to plot.eff(). o Changes to work with pbkrtest 0.4-4. Version 3.0-4 o New default of KR=FALSE because KR=TRUE can be very slow. o KR argument now works correctly with allEffects(). o Mixed models with negative binomial did not work and now they do. o Added methods for ordinal mixed models using 'clmm2' for the ordinal package. o Moved pbkrtest to Suggests (wasn't done properly previously). o Tweak to handling key.args (suggestion of Michael Friendly). o Use non-robust loess smooth for partial residuals from non-Gaussian GLMs. o Rationalized type and rescale.axis arguments to plot.eff(); scale.axis argument is deprecated. o Added setStrip() and restoreStrip() to control colors of lattice strips and make beginning and ending conditioning lines clearer. o Added residuals.smooth.color argument to plot.eff(). o Cleaned up sources to conform to CRAN requirements. Version 3.0-3 o Made key.args argument to plot.eff() and plot.effpoly() more flexible (suggestion of Ian Kyle). o Moved pbkrtest package to Suggests and adjusted code for mixed models accordingly, to accomodate Debian (request of Dirk Eddelbuettel). o Fixed \dont-test{} examples. Version 3.0-2 o plot.eff() honors rescale.axis=FALSE when plotting partial residuals (bug reported by Alexander Wietzke). o Effect.mer() can use KR coefficient covariances to construct CIs for effects in LMMs. o Modernized package dependencies/namespace. Version 3.0-1 o Added an argument vcov. to Effect and effect (and allEffects) to select a function for computing the variance covariance matrix of the coefficient estimates. The default is the usual `vcov` fucntion. o Added a warning to the documentation for effect for using predictors of class "dates" or "times". o Fixed bug in Effect.gls() when var or cor function depends on variables in the data set (reported by Felipe Albornoz). o Small fixes/improvements. Version 3.0-0 o Added partial residuals for multidimensional component+residual plots to Effect.lm(). o Small bug fixes. Version 2.3-0 o removed stray character in a the mixed models file o ci.style="bands" is now the default for variates on the horizontal axis and can also be used with multiline=TRUE o Added ci.style='bands', band.transparency, band.colors, and lwd to plot.effpoly() for line plots to give filled confidence bands and control line width o Added Effect.mlm() for multivariate linear models o Interpolating splines are now used by default when drawing lines in effects plots unless the argument use.splines=FALSE o effect() now calls Effect(); all effect() methods are removed, but effect() will continue to work as before. o Various methods for effect objects now handle factors with a "valid" NA level (fixing bug reported by Joseph Larmarange). o Further bug fixes in effects.mer() and effects.lme() (following bug report by Felipe E. Albornoz). Version 2.2-6 o bug fixes in effects.mer and effects.lme. o added terms.gls() to make effect.gls() and Effect.gls() work again. o plot.eff() gains an lwd= option to control the width of fitted lines. o Added ci.style='bands' and alpha= to plot.eff() for non-multiline plots to give filled confidence bands. Version 2.2-5 o Added support for polytomous latent class analysis based on the poLCA package. o Modified mixed-model methods to all use in user-functions. o Changed the default method for determining number of levels for a continuous predictor; see help page for 'effect' and discussion of the 'xlevels' argument for details. Argument 'default.levels', while still included for compatibility, is depricated. o Added .merMod methods for development version of lme4. o Added support for lme4.0. o Fixed bug preventing restoration of warn option (reported by Kenneth Knoblauch). o Fixed handling of ticks.x argument to plot.eff() and plot.effpoly(), now works as advertized. o Adjusted package dependencies, imports for CRAN checks. o Changed name of Titanic dataset to TitanicSurvival to avoid name clash (request of Michael Friendly). o Minor fixes. Version 2.2-4 o Add argument 'ci.style' to plot.eff() and plot.eff() to allow confidence intervals to be displayed as lines or using error bars. Confidence bars are permitted on multiline plots (after suggestion by Steve Taylor). o Allow empty cells with crossed factors for lm, glm and multinom. o Added warning about logical predictors (suggestion of Kazuki Yoshida). Version 2.2-3 o Fixed bugs in axis scaling and xlim specification (reported by Achim Zeileis). o Small changes for compatability with R 2.16.0. Version 2.2-2 o Use asymptotic normal to get confidence limits for mer and lme objects o Correct effects.lme to work with weights o Added Effect.mer(), Effect.lme(), Effect.gls(), Effect.multinom(), and Effect.polr() methods. o Safe predictions simplified in effect.multinom() and effect.polr(). o plot() methods for eff and effpoly objects permit predictor transformations. o Added as.data.frame.eff(), as.data.frame.effpoly(), and as.data.frame.efflatent (suggestion of Steve Taylor). o Small bug fixes. Version 2.2-1 o Some examples wrapped in \donttest{} to decrease package check time. Version 2.2-0 o Introduced more flexible Effect() generic, along with Effect.lm() method for linear and generalized linear models. o Default is now ask=FALSE for plot.efflist(). o globalVariables("wt") declared for R 2.15.1 and above. o Small bug fixes. Version 2.1-2 o Offsets for linear and generalized linear (and mixed) models are now supported. o cbind(successes, failures) now supported for binomial generalized linear (and mixed) models. Version 2.1-1 o plot.effpoly() now honors ylim argument when no confidence intervals are plotted (fixing problem reported by Achim Zeileis). o safe predictions simplified in effect.lm(), producing correct results for mixed models (other methods to follow). o plot.eff() now honors type argument. o nlme and lme4 moved to Suggests. o effect() now works when options(OutDec= ',') (suggestion of Guomundur Arnkelsson). Version 2.1-0 o added support for 'mer' objects from lme4 and 'lme' objects from 'nlme'. Added 'rotx', 'roty' and 'grid' arguments to the plot methods. o See CHANGES file for changes to older versions. effects/vignettes/0000755000176200001440000000000015143646012013703 5ustar liggesuserseffects/vignettes/functions-supported-by-effects.bib0000644000176200001440000003253215132433422022443 0ustar liggesusers@article{FW2018, author = {John Fox and Sanford Weisberg}, title = {Visualizing Fit and Lack of Fit in Complex Regression Models\\ with Predictor Effect Plots and Partial Residuals}, journal={Journal of Statitical Software}, pages = {xxx-xxy}, volume = {xxx}, year = 2018, url= {http://} } @INCOLLECTION{Fox87, author = {John Fox}, editor = {C. C. Clogg}, year = 1987, title = {Effect Displays for Generalized Linear Models}, booktitle = {Sociological Methodology 1987 (Volume 17)}, pages = {347--361}, publisher = {American Sociological Association}, address = {Washington, {D. C.}} } @Manual{nlme, title = {{nlme}: Linear and Nonlinear Mixed Effects Models}, author = {Jose Pinheiro and Douglas Bates and Saikat DebRoy and Deepayan Sarkar and {R Core Team}}, year = {2018}, note = {R package version 3.1-137}, url = {https://CRAN.R-project.org/package=nlme}, } @Article{betareg, title = {Extended Beta Regression in {R}: Shaken, Stirred, Mixed, and Partitioned}, author = {Bettina Gr\"un and Ioannis Kosmidis and Achim Zeileis}, journal = {Journal of Statistical Software}, year = {2012}, volume = {48}, number = {11}, pages = {1--25}, url = {http://www.jstatsoft.org/v48/i11/}, } @Manual{ivreg, title = {ivreg: Instrumental-Variables Regression by '2SLS', '2SM', or '2SMM', with Diagnostics}, author = {John Fox and Christian Kleiber and Achim Zeileis}, year = {2021}, note = {R package version 0.6-1}, url = {https://CRAN.R-project.org/package=ivreg}, } @Article{insight19, title = {{insight}: A Unified Interface to Access Information from Model Objects in {R}.}, volume = {4}, doi = {10.21105/joss.01412}, number = {38}, journal = {Journal of Open Source Software}, author = {Daniel Lüdecke and Philip Waggoner and Dominique Makowski}, year = {2019}, pages = {1412}, } @Article{koller16, title = {{\textbf{robustlmm}}: An {R} Package for Robust Estimation of Linear Mixed-Effects Models}, author = {Manuel Koller}, journal = {Journal of Statistical Software}, year = {2016}, volume = {75}, number = {6}, pages = {1--24}, doi = {10.18637/jss.v075.i06}, } @ARTICLE{FoxAndersen06, author = {John Fox and Robert Andersen}, title = {Effect Displays for Multinomial and Proportional-Odds Logit Models}, journal = {Sociological Methodology}, volume = {36}, pages = {225--255}, year = {2006} } @article{WilkinsonRogers73, title = {Symbolic Description of Factorial Models for Analysis of Variance}, author = {Wilkinson, G. N. and Rogers, C. E.}, journal = {Journal of the Royal Statistical Society. Series C (Applied Statistics)}, year = {1973}, volume = {22}, number = {3}, pages = {392--399} } @article{FoxSuschnigg89, author={John Fox and Carole Suschnigg}, title={A Note on Gender and the Prestige of Occupations}, journal = {Canadian Journal of Sociology}, volume = {14}, pages = {353--360}, year = {1989} } @article{Cook93, author = {R. Dennis Cook}, title = {Exploring Partial Residual Plots}, journal = {Technometrics}, volume = 35, pages = {351--362}, year = 1993 } @article{CookCroos98, author = {Cook, R. Dennis and Croos-{D}abrera, Rodney}, title = {Partial Residual Plots in Generalized Linear Models}, journal = {Journal of the American Statistical Association}, volume = {93}, number = {442}, pages = {730--739}, year = {1998} } @Manual{Lenth13, title = {\pkg{lsmeans}: Least-Squares Means}, author = {Russell V. Lenth}, year = {2013}, note = {\proglang{R} package version 1.06-05}, url = {http://CRAN.R-project.org/package=lsmeans} } @Manual{visreg, title = {\pkg{visreg}: Visualization of Regression Models}, author = {Patrick Breheny and Woodrow Burchett}, year = {2016}, note = {\R{} package version 2.2-2}, url = {https://CRAN.R-project.org/package=visreg}, } @Book{Wood17, title = {Generalized Additive Models: An Introduction with R}, year = {2017}, edition={2nd}, author = {S. N. Wood}, publisher = {Chapman and Hall/CRC}, } @Manual{gam, title = {\pkg{gam}: Generalized Additive Models}, author = {Trevor Hastie}, year = {2015}, note = {\R{} package version 1.12}, url = {https://CRAN.R-project.org/package=gam}, } @Article{ice15, title = {Peeking Inside the Black Box: Visualizing Statistical Learning With Plots of Individual Conditional Expectation}, author = {Alex Goldstein and Adam Kapelner and Justin Bleich and Emil Pitkin}, journal = {Journal of Computational and Graphical Statistics}, volume = {24}, number = {1}, pages = {44--65}, doi = {10.1080/10618600.2014.907095}, year = {2015}, } @article{becker96, title={The Visual Design and Control of Trellis Display}, author={Becker, Richard A and Cleveland, William S and Shyu, Ming-Jen}, journal={Journal of Computational and Graphical Statistics}, volume={5}, number={2}, pages={123--155}, year={1996}, publisher={Taylor \& Francis} } @article{BlishenMcRoberts76, author = {Bernard R. Blishen and Hugh A. McRoberts}, title = {A Revised Socioeconomic Index for Occupations in {C}anada}, journal = {Canadian Review of Sociology and Anthropology}, volume = {13}, pages = {71--79}, year = {1976} } @article{Fox03, author = {John Fox}, title = {Effect Displays in \R{} for Generalised Linear Models}, journal = {Journal of Statistical Software}, volume = 8, number = 15, pages={1--27}, year = 2003 } @Manual{sas12, author={{SAS Institute Inc.}}, year = {2012}, title ={LSMEANS Statement, \proglang{SAS/STAT}(R) 9.3 User's Guide}, url={http://support.sas.com/documentation/cdl/en/statug/63962/HTML/default/viewer.htm#statug_introcom_a0000003362.htm} } @Manual{FoxEtAl16, title = {\pkg{effects}: Effect Displays for Linear, Generalized Linear, and Other Models}, author = {John Fox and Sanford Weisberg and Michael Friendly and Jangman Hong}, year = {2017}, note = {\R{} package version 4.0-0}, url = {http://www.r-project.org, http://socserv.socsci.mcmaster.ca/jfox/}, } @incollection{ChambersHastie92, author = {J. M. Chambers and T. J. Hastie}, editor = {J. M. Chambers and T. J. Hastie}, year = 1992, title = {Statistical Models}, booktitle = {Statistical Models in {\proglang{S}}}, pages = {13--44}, publisher = {Wadsworth}, address = {Pacific Grove, {CA}} } @article{Nelder77, title = {A Reformulation of Linear Models}, author = {J. A. Nelder}, journal = {Journal of the Royal Statistical Society. Series A (General)}, volume = {140}, number = {1}, year = {1977}, pages = {48--77} } @Manual{LenthHerve15, title = {\pkg{lsmeans}: Least-Squares Means}, author = {Russell V. Lenth and Maxime Herv\'{e}}, year = {2015}, note = {\R{} package version 2.16}, url = {http://CRAN.R-project.org/package=lsmeans} } @book{Fox16, title={Applied Regression Analysis and Generalized Linear Models}, author={J. Fox}, edition={third}, publisher={Sage}, address={Thousand Oaks {CA}}, year=2016 } @book{CookWeisberg99, title={Applied Regression Including Computing and Graphics}, author = {R. D. Cook and S. Weisberg}, year = {1999}, publisher={John Wiley \& Sons}, address = {New York} } @article{CowlesDavis87, title={The Subject Matter of Psychology: Volunteers}, author={M. Cowles and C. Davis}, journal={British Journal of Social Psychology}, volume={26}, pages={97--102}, year=1987 } @article{PineoPorter67, title={Occupational Prestige in {Canada}}, author={P. C. Pineo and J. Porter}, journal={Canadian Review of Sociology and Anthropology}, volume={4}, pages={24--40}, year={1967} } @book{Scott15, title={Multivariate Density Estimation}, author={D. W. Scott}, publisher={John Wiley \& Sons}, address={Hoboken {NJ}}, edition={2nd}, year=2015 } @INPROCEEDINGS{LandwehrPregibonShoemaker80, author = {J. M. Landwehr and D. Pregibon and A. C. Shoemaker}, year = 1980, title = {Some Graphical Procedures for Studying a Logistic Regression Fit}, booktitle = {Proceedings of the Business and Economics Statistics Section, American Statistical Association}, pages = {15--20} } @Misc{Schumann15, Author = {E. Schumann}, Title = {\emph{Generating Correlated Uniform Variates}}, Note = {\url{http://comisef.wikidot.com/tutorial:correlateduniformvariates} [Accessed: 2015-05-21]}, year = 2009 } @book{Pearson07, Author={Karl Pearson}, Title={Mathematical Contributions to the Theory of Evolution.---XVI. On Further Methods of Determining Correlation}, Series={Drapers' Company Research Memoirs. Biometric Series. IV.}, Publisher={Cambridge University Press}, Address={London}, year=1907 } @book{Tukey77, author = {J. W. Tukey}, title = {Exploratory Data Analysis}, publisher = {Addison-Wesley}, address = {Reading {MA}}, year = 1977 } @article{Friedman01, author = {J. H. Friedman}, title = {Greedy Function Approximation: A Gradient Boosting Machine}, journal = {Annals of Statistics}, volume = {29}, pages = {1189--1232}, year = 2001 } @Misc{Stata15, Author = {{Stata Corp.}}, Title = {\emph{Margins}}, Note = {\url{http://www.stata.com/manuals13/rmargins.pdf} [Accessed: 2015-04-09]}, year = 2015 } @Book{FoxWeisberg19, author={John Fox and Sanford Weisberg}, title={An \R{} Companion to Applied Regression}, edition={3nd}, publisher={Sage}, address={Thousand Oaks {CA}}, year=2019 } @Article{Lenth16, title = {Least-Squares Means: The \R{} Package \pkg{lsmeans}}, author = {Russell V. Lenth}, journal = {Journal of Statistical Software}, year = {2016}, volume = {69}, number = {1}, pages = {1--33} } @Book{VenablesRipley02, title = {Modern Applied Statistics with \proglang{S}}, author = {W. N. Venables and B. D. Ripley}, publisher = {Springer-Verlag}, edition = {4th}, address = {New York}, year = {2002}, } @Manual{Christensen15, title = {\pkg{ordinal}---Regression Models for Ordinal Data }, author = {R. H. B. Christensen}, year = {2015}, note = {\R{} package version 2015.6-28}, url={http://www.cran.r-project.org/package=ordinal/}, } @Article{Bates15, title = {Fitting Linear Mixed-Effects Models Using {lme4}}, author = {Douglas Bates and Martin M{\"a}chler and Ben Bolker and Steve Walker}, journal = {Journal of Statistical Software}, year = {2015}, volume = {67}, number = {1}, pages = {1--48} } @Article{Linzer11, title = {\pkg{poLCA}: An {R} Package for Polytomous Variable Latent Class Analysis}, author = {Drew A. Linzer and Jeffrey B. Lewis}, journal = {Journal of Statistical Software}, year = {2011}, volume = {42}, number = {10}, pages = {1--29} } @Article{Liaw02, title = {Classification and Regression by \pkg{randomForest}}, author = {Andy Liaw and Matthew Wiener}, journal = {\R{} News}, year = {2002}, volume = {2}, number = {3}, pages = {18-22} } @Book{Weisberg14, title = {Applied Linear Regression}, edition = {4th}, author = {Sanford Weisberg}, year = {2014}, publisher = {John Wiley \& Sons}, address = {Hoboken {NJ}}, url = {http://z.umn.edu/alr4ed}, } @Manual{FoxWeisbergPrice17, title = {\pkg{carData}: Companion to Applied Regression Data Sets}, author = {John Fox and Sanford Weisberg and Brad Price}, year = {2017}, note = {\proglang{R} package version 3.0-0}, url={https://r-forge.r-project.org/projects/car/} } @incollection{ClevelandGrosseShyu92, author = {W. S. Cleveland and E. Grosse and W. M. Shyu }, title = { Local Regression Models}, booktitle = {Statistical Models in {\proglang{S}}}, publisher = {Wadsworth \& Brooks/Cole}, year = 1992, editor = {J. M. Chambers and T. J. Hastie}, chapter = 8, pages = {201--309}, address = {Pacific Grove {CA}}, } @book{Sarkar08, author={D. Sarkar}, title ={Lattice: Multivariate Data Visualization with {\proglang{R}}}, year={2008}, publisher={Springer-Verlag}, address={New York} } @Manual{Lumley16, author = {Thomas Lumley}, year = {2016}, title = {\pkg{survey}: analysis of complex survey samples}, note = {R package version 3.32}, } @Article{Lumley04, year = {2004}, author = {Thomas Lumley}, title = {Analysis of Complex Survey Samples}, journal = {Journal of Statistical Software}, volume = {9}, number = {1}, pages = {1-19}, note = {\proglang{R} package version 2.2}, } @Book{Fisher36, author={R. A. Fisher}, year={1936}, title={Statistical Methods for Research Workers}, edition={6th}, publisher={Oliver and Boyd}, address={Edinburgh} } @Book{Cleveland93, author={W. S. Cleveland}, title={Visualizing Data}, year={1993}, publisher={Hobart Press}, address={Summit {NJ}} } @Book{Cleveland94, author={W. S. Cleveland}, title={The Elements of Graphing Data}, year={1994}, edition={Revised}, publisher={Hobart Press}, address={Summit {NJ}} } @Book{BeckerCleveland96, author={R. A. Becker and W. S. Cleveland}, title={{\proglang{S-PLUS}} {Trellis} User's Manual}, year={1996}, publisher={MathSoft, Inc.}, address={Seattle} } effects/vignettes/partial-residuals.Rnw0000644000176200001440000004525315132433422020026 0ustar liggesusers%\VignetteEngine{knitr::knitr} %\VignetteIndexEntry{Effect Displays with Partial Residuals} \documentclass{article} \usepackage{amsmath,amsfonts,amssymb} \usepackage{natbib} \bibliographystyle{abbrvnat} \usepackage[margin=1in]{geometry} \newcommand{\x}{\mathbf{x}} \newcommand{\code}[1]{\normalfont\texttt{\hyphenchar\font45\relax #1}} \newcommand{\E}{\mathrm{E}} \newcommand{\tild}{\symbol{126}} \newcommand{\Rtilde}{\,\raisebox{-.5ex}{\code{\tild{}}}\,} \newcommand{\captilde}{\mbox{\protect\Rtilde}} % use in figure captions. \newcommand{\Rmod}[2]{\code{#1 \raisebox{-.5ex}{\tild{}} #2}} \newcommand{\Rmoda}[2]{\code{#1} &\code{\raisebox{-.5ex}{\tild{}} #2}} \newcommand{\Rmodb}[2]{\code{#1 &\raisebox{-.5ex}{\tild{}}& #2}} \newcommand{\C}{\mathbf{C}} \newcommand{\betahat}{\widehat{\beta}} \newcommand{\bbetahat}{\widehat{\boldsymbol{\beta}}} \newcommand{\bbeta}{\boldsymbol{\beta}} \newcommand{\xbf}{\x_{\backslash{}f}} \newcommand{\hbf}{h_{\backslash{}f}} \newcommand{\xtb}{\x_{2\backslash{}f}} \newcommand{\xbfi}{\x_{\backslash{}f,i}} \newcommand{\inter}[2]{\mbox{$#1$:$#2$}} \newcommand{\cross}[2]{\mbox{$#1$\code{*}$#2$}} \newcommand{\N}{\mathrm{N}} \newcommand{\fn}{\textbf} \newcommand{\R}{\proglang{R}} \newcommand{\yx}{\widehat{y}(\x)} \newcommand{\lvn}[1]{\mbox{$\log(\mbox{\texttt{#1}})$}} \begin{document} \title{Examples of Effect Displays with Partial Residuals\\ Using Contrived Regression Data} \author{John Fox and Sanford Weisberg} \date{2017-11-22} \maketitle <>= library(knitr) opts_chunk$set( tidy=FALSE,fig.width=5,fig.height=5,cache=FALSE ) @ <>= #options(continue="+ ", prompt="R> ", width=76) options(show.signif.stars=FALSE) options(scipen=3) @ The examples developed in this vignette are meant to supplement \citet{FoxWeisberg18}. \section{Basic Setup} We will analyze contrived data generated according to the following setup: \begin{itemize} \item We sample $n = 5000$ observations from a trivariate distribution for predictors $x_1$, $x_2$, and $x_3$, with uniform margins on the interval $[-2, 2]$, and with a prespecified bivariate correlation $\rho$ between each pair of predictors. The method employed, described by \citet{Schumann15} and traceable to results reported by \citet{Pearson07}, produces predictors that are nearly linearly related. Using 5000 observations allows us to focus on essentially asymptotic behavior of partial residuals in effect plots while still being able to discern individual points in the resulting graphs. \item We then generate the response $y$ according to the model \begin{equation} y = \beta_0 + h\left(\bbeta, \{x_1, x_2, x_3\}\right) + \varepsilon \end{equation} where $\varepsilon \Rtilde \N(0, 1.5^2)$. The regression function $h(\cdot)$ varies from example to example. \end{itemize} The following functions make it convenient to generate data according to this setup. These functions are more general than is strictly necessary so as to encourage further experimentation. <<>>= mvrunif <- function(n, R, min = 0, max = 1){ # method (but not code) from E. Schumann, # "Generating Correlated Uniform Variates" # URL: # # downloaded 2015-05-21 if (!is.matrix(R) || nrow(R) != ncol(R) || max(abs(R - t(R))) > sqrt(.Machine$double.eps)) stop("R must be a square symmetric matrix") if (any(eigen(R, only.values = TRUE)$values <= 0)) stop("R must be positive-definite") if (any(abs(R) - 1 > sqrt(.Machine$double.eps))) stop("R must be a correlation matrix") m <- nrow(R) R <- 2 * sin(pi * R / 6) X <- matrix(rnorm(n * m), n, m) X <- X %*% chol(R) X <- pnorm(X) min + X * (max - min) } gendata <- function(n = 5000, R, min = -2, max = 2, s = 1.5, model = expression(x1 + x2 + x3)){ data <- mvrunif(n = n, min = min, max = max, R = R) colnames(data) <- c("x1", "x2", "x3") data <- as.data.frame(data) data$error <- s * rnorm(n) data$y <- with(data, eval(model) + error) data } R <- function(offdiag = 0, m = 3){ R <- diag(1, m) R[lower.tri(R)] <- R[upper.tri(R)] <- offdiag R } @ \section{Unmodelled Interaction} We begin with uncorrelated predictors and the true regression mean function $\E(y|\x) = x_1 + x_2x_3$, but fit the incorrect additive working model $y \Rtilde x_1 + x_2 + x_3$ to the data. <<>>= set.seed(682626) Data.1 <- gendata(R = R(0), model = expression(x1 + x2 * x3)) round(cor(Data.1), 2) summary(mod.1 <- lm(y ~ x1 + x2 + x3, data = Data.1)) @ For reproducibility, we set a known seed for the pseudo-random number generator; this seed was itself generated pseudo-randomly, and we reuse it in the examples reported below. As well, in this first example, but not for those below, we show the correlation matrix of the randomly generated data along with the fit of the working model to the data. Effect plots with partial residuals corresponding to the terms in the working model are shown in Figure~\ref{fig-contrived-1a}: <>= library(effects) plot(predictorEffects(mod.1, partial.residuals=TRUE), partial.residual=list(pch=".", col="#FF00FF80"), axes=list(x=list(rotate=45)), rows=1, cols=3) @ In these graphs and, unless noted to the contrary, elsewhere in this vignette, the loess smooths are drawn with span 2/3. Because of the large number of points in the graphs, optional arguments to \code{plot} are specified to de-emphasize the partial residuals. To this end, the residuals are plotted as small points (\code{pch="."}) and in a translucent magenta color (\code{col="\#FF00FF80"}). \begin{figure}[tbp] \caption{Effect displays with partial residuals for the individual predictors $x_1$, $x_2$, and $x_3$ in the incorrect model $y \captilde x_1 + x_2 + x_3$ fit to data generated with the mean function $\E(y|\x) = x_1 + x_2x_3$, with uncorrelated predictors.\label{fig-contrived-1a}} \centering \includegraphics[width=1\textwidth]{figure/fig-contrived-1a-1.pdf} \end{figure} The failure of the model is not apparent in these traditional partial residual plots, but it is clear in the term effect plot for $\{x_2, x_3\}$, corresponding to the unmodelled interaction \inter{x_2}{x_3}, and shown in the top panel of Figure~\ref{fig-contrived-1b}, generated using <>= plot(Effect(c("x2", "x3"), mod.1, partial.residuals = TRUE), partial.residual=list(pch=".", col="#FF00FF80"), axes=list(x=list(rotate=45)), lattice=list(layout=c(4, 1))) @ Moreover, the effect plot in the bottom panel of the figure for $\{x_1, x_2\}$, corresponding to a term \emph{not} in the true mean function, correctly indicates lack of interaction between these two predictors: <>= plot(Effect(c("x1", "x2"), mod.1, partial.residuals = TRUE), partial.residual=list(pch=".", col="#FF00FF80"), axes=list(x=list(rotate=45)), lattice=list(layout=c(4, 1))) @ \begin{figure}[tbp] \caption{Term effect displays with partial residuals for $\{x_2, x_3 \}$, corresponding to the missing interaction \inter{x_2}{x_3}, and for $\{x_1, x_2 \}$, corresponding to an interaction not present in the model that generated the data.\label{fig-contrived-1b}} \centering \includegraphics[width=1\textwidth]{figure/fig-contrived-1b-1.pdf} \\ \includegraphics[width=1\textwidth]{figure/fig-contrived-1c-1.pdf} \end{figure} As a partly contrasting example, we turn to a similar data set, generated with the same regression mean function but with moderately correlated predictors, where the pairwise predictor correlations are $\rho = 0.5$: <<>>= set.seed(682626) Data.2 <- gendata(R = R(0.5), model = expression(x1 + x2 * x3)) mod.2 <- lm(y ~ x1 + x2 + x3, data = Data.2) @ Graphs analogous to those from the preceding example appear in Figures~\ref{fig-contrived-2a} and \ref{fig-contrived-2b}: <>= plot(predictorEffects(mod.2, partial.residuals=TRUE), partial.residual=list(pch=".", col="#FF00FF80",fig.show='hide'), axes=list(x=list(rotate=45)), rows=1, cols=3) @ <>= plot(Effect(c("x2", "x3"), mod.2, partial.residuals = TRUE), partial.residual=list(pch=".", col="#FF00FF80"), axes=list(x=list(rotate=45)), lattice=list(layout=c(4, 1))) @ <>= plot(Effect(c("x1", "x2"), mod.2, partial.residuals = TRUE), partial.residual=list(pch=".", col="#FF00FF80",fig.show='hide'), axes=list(x=list(rotate=45)), lattice=list(layout=c(4, 1))) @ The predictor effect plots for $x_2$ and $x_3$, and to a much lesser extent, for $x_1$, in the incorrect model in Figure~\ref{fig-contrived-2a} show apparent nonlinearity as a consequence of the unmodelled interaction and the correlations among the predictors. A similar phenomenon was noted in our analysis of the Canadian occupational prestige data in \citet[Section~4.2]{FoxWeisberg18}, where the unmodelled interaction between \code{type} and \code{income} induced nonlinearity in the partial relationship of \code{prestige} to \code{income}. The omitted interaction is clear in the effect plot for $\{x_2, x_3\}$, but also, to a lesser extent, contaminates the effect plot for $\{x_1,x_2\}$, which corresponds to an interaction that does not enter the model generating the data. These artifacts become more prominent if we increase the predictor correlations, say to $\rho = 0.9$ (as we invite the reader to do). \begin{figure}[tbp] \caption{Predictor effect displays with partial residuals for the individual predictors $x_1$, $x_2$, and $x_3$ in the incorrect model $y \captilde x_1 + x_2 + x_3$ fit to data generated with the mean function $\E(y|\x) = x_1 + x_2x_3$, with moderately correlated predictors.\label{fig-contrived-2a}} \centering \includegraphics[width=1\textwidth]{figure/fig-contrived-2a-1.pdf} \end{figure} \begin{figure}[tbp] \caption{Term effect displays with partial residuals for $\{x_2, x_3 \}$, corresponding to the missing interaction \inter{x_2}{x_3}, and for $\{x_1, x_2 \}$, corresponding to an interaction not present in the model that generated the data.\label{fig-contrived-2b}} \centering \includegraphics[width=1\textwidth]{figure/fig-contrived-2b-1.pdf}\\ \includegraphics[width=1\textwidth]{figure/fig-contrived-2c-1.pdf} \end{figure} \section{Unmodelled Nonlinearity} We generate data as before, but from the true model $\E(y|\x) = x_1^2 + x_2 + x_3$, where the predictors are moderately correlated, with pairwise correlations $\rho = 0.5$, but fit the incorrect additive working model $y \Rtilde x_1 + x_2 + x_3$ to the data: <<>>= set.seed(682626) Data.3 <- gendata(R = R(0.5), model = expression(x1^2 + x2 + x3)) mod.3 <- lm(y ~ x1 + x2 + x3, data = Data.3) @ Effect plots with residuals for the predictors in the working model appear in Figure~\ref{fig-contrived-3a}. The unmodelled nonlinearity in the partial relationship of $y$ to $x_1$ is clear, but there is some contamination of the plots for $x_2$ and $x_3$. The contamination is much more dramatic if the correlations among the predictors are increased to, say, $\rho = 0.9$ (as the reader may verify). <>= plot(predictorEffects(mod.3, partial.residuals=TRUE), partial.residual=list(pch=".", col="#FF00FF80"), axes=list(x=list(rotate=45)), rows=1, cols=3) @ \begin{figure}[tbp] \caption{Predictor effect displays with partial residuals for the individual predictors $x_1$, $x_2$, and $x_3$ in the incorrect model $y \captilde x_1 + x_2 + x_3$ fit to data generated with the mean function $\E(y|\x) = x_1^2 + x_2 + x_3$, with moderately correlated predictors.\label{fig-contrived-3a}} \centering \includegraphics[width=1\textwidth]{figure/fig-contrived-3a-1.pdf} \end{figure} Effect plots for $\{x_1, x_2 \}$ and $\{x_2, x_3 \}$ are shown in Figure~\ref{fig-contrived-3b}: <>= plot(Effect(c("x2", "x3"), mod.3, partial.residuals = TRUE), partial.residual=list(pch=".", col="#FF00FF80"), axes=list(x=list(rotate=45)), lattice=list(layout=c(4, 1))) @ <>= plot(Effect(c("x1", "x2"), mod.3, partial.residuals = TRUE), partial.residual=list(pch=".", col="#FF00FF80"), axes=list(x=list(rotate=45)), lattice=list(layout=c(4, 1))) @ Neither of these graphs corresponds to a term in the model generating the data nor in the working model, and the effect plots largely confirm the absence of \inter{x_1}{x_2} and \inter{x_2}{x_3} interactions, along with the nonlinearity of the partial effect of $x_1$, apparent in the top panel. \begin{figure}[tbp] \caption{Term effect displays with partial residuals for $\{x_1, x_2 \}$ and for $\{x_2, x_3 \}$, neither of which corresponds to an interaction in the model generating the data.\label{fig-contrived-3b}} \centering \includegraphics[width=1\textwidth]{figure/fig-contrived-3c-1.pdf} \\ \includegraphics[width=1\textwidth]{figure/fig-contrived-3b-1.pdf} \end{figure} \section{Simultaneous Unmodelled Nonlinearity and Interaction} This last example also appears in \citet[Section~4.3]{FoxWeisberg18}. We consider a true model that combines nonlinearity and interaction, $\E(y|\x) = x_1^2 + x_2 x_3$; the predictors are moderately correlated, with $\rho = 0.5$. We then fit the incorrect working model $y \Rtilde x_1 + x_2 + x_3$ to the data, producing the predictor effect displays with partial residuals in Figure~\ref{fig-contrived-4a}, for the predictors $x_1$, $x_2$, and $x_3$, which appear additively in the working model, and the term effect displays in Figure~\ref{fig-contrived-4b} for $\{x_2, x_3 \}$ and $\{x_1, x_2 \}$, corresponding respectively to the incorrectly excluded \inter{x_2}{x_3} term and the correctly excluded \inter{x_1}{x_2} interaction. <<>>= set.seed(682626) Data.4 <- gendata(R = R(0.5), model = expression(x1^2 + x2 * x3)) mod.4 <- lm(y ~ x1 + x2 + x3, data = Data.4) @ <>= plot(predictorEffects(mod.4, partial.residuals=TRUE), partial.residual=list(pch=".", col="#FF00FF80"), axes=list(x=list(rotate=45)), rows=1, cols=3) @ <>= plot(Effect(c("x2", "x3"), mod.4, partial.residuals = TRUE), partial.residual=list(pch=".", col="#FF00FF80"), axes=list(x=list(rotate=45)), lattice=list(layout=c(4, 1))) @ <>= plot(Effect(c("x1", "x2"), mod.4, partial.residuals = TRUE), partial.residual=list(pch=".", col="#FF00FF80"), axes=list(x=list(rotate=45)), lattice=list(layout=c(4, 1))) @ The nonlinearity in the partial relationship of $y$ to $x_1$ shows up clearly. The nonlinearity apparent in the plots for $x_2$ and $x_3$ is partly due to contamination with $x_1$, but largely to the unmodelled interaction between $x_2$ and $x_3$, coupled with the correlation between these predictors. The plot corresponding to the missing \inter{x_2}{x_3} term (in the top panel of Figure~\ref{fig-contrived-4b}) does a good job of detecting the unmodelled interaction, and curvature in this plot is slight. The plot for the \inter{x_1}{x_2} term (in the bottom panel of Figure~\ref{fig-contrived-4b}), a term neither in the true model nor in the working model, primarily reveals the unmodelled nonlinearity in the partial relationship of $y$ to $x_1$. \begin{figure}[tbp] \caption{Effect displays with partial residuals for the predictors $x_1$, $x_2$, and $x_3$ in the incorrect model $y \captilde x_1 + x_2 + x_3$ fit to data generated with the mean function $\E(y|\x) = x_1^2 + x_2x_3$, with moderately correlated predictors.\label{fig-contrived-4a}} \centering \includegraphics[width=1\textwidth]{figure/fig-contrived-4a-1.pdf} \end{figure} \begin{figure}[tbp] \caption{Term effect displays with partial residuals for $\{x_2, x_3 \}$ (top) and for $\{x_1, x_2 \}$ (bottom), the first of which corresponds to the missing \inter{x_2}{x_3} interaction in the model generating the data.\label{fig-contrived-4b}} \centering \includegraphics[width=1\textwidth]{figure/fig-contrived-4b-1.pdf} \\ \includegraphics[width=1\textwidth]{figure/fig-contrived-4c-1.pdf} \end{figure} If we fit the correct model, $y \Rtilde{} x_1^2 + x_2*x_3$, to the data, we obtain the plots shown in Figure~\ref{fig-contrived-5}. As theory suggests, the partial residuals in these effect displays validate the model, supporting the exclusion of the \inter{x_1}{x_2} interaction, the linear-by-linear interaction between $x_1$ and $x_2$, and the quadratic partial relationship of $y$ to $x_1$. <>= mod.5 <- lm(y ~ poly(x1, 2) + x2*x3, data=Data.4) plot(Effect("x1", mod.5, partial.residuals=TRUE), partial.residual=list(pch=".", col="#FF00FF80", span=0.2)) @ <>= plot(Effect(c("x2", "x3"), mod.5, partial.residuals = TRUE), partial.residual=list(pch=".", col="#FF00FF80"), axes=list(x=list(rotate=45)), lattice=list(layout=c(4, 1)), span=0.5) @ <>= plot(Effect(c("x1", "x2"), mod.5, partial.residuals = TRUE), partial.residual=list(pch=".", col="#FF00FF80", span=0.35), axes=list(x=list(rotate=45)), lattice=list(layout=c(4, 1))) @ \noindent In these graphs, we adjust the span of the loess smoother to the approximately smallest value that produces a smooth fit to the partial residuals in each case. \begin{figure}[tbp] \caption{Effect displays with partial residuals for $x_1$ and $\{x_2, x_3 \}$, which correspond to terms in the model generating \emph{and} fitted to the data, $y \captilde x_1^2 + x_2 * x_3$, and for $\{x_1, x_2 \}$, which corresponds to an interaction that is not in the model.\label{fig-contrived-5}} \centering \includegraphics[width=0.45\textwidth]{figure/fig-contrived-5a-1.pdf} \\ \includegraphics[width=1\textwidth]{figure/fig-contrived-5b-1.pdf} \\ \includegraphics[width=1\textwidth]{figure/fig-contrived-5c-1.pdf} \end{figure} \bibliography{partial-residuals} \end{document} effects/vignettes/functions-supported-by-effects.Rnw0000644000176200001440000004305415132433422022456 0ustar liggesusers%\VignetteEngine{knitr::knitr} %\VignetteIndexEntry{Regression Models Supported by the effects Package} \documentclass[11pt]{article} \usepackage[utf8]{inputenc} \usepackage{graphicx} \usepackage[american]{babel} \newcommand{\R}{{\sf R}} \usepackage{url} \usepackage{hyperref} \usepackage{alltt} \usepackage{fancyvrb} \usepackage{natbib} \usepackage{amsmath} \usepackage[margin=1in]{geometry} \usepackage{ragged2e} \VerbatimFootnotes \bibliographystyle{chicago} \newcommand{\x}{\mathbf{x}} \newcommand{\code}[1]{\normalfont\texttt{\hyphenchar\font45\relax #1}} \newcommand{\E}{\mathrm{E}} \newcommand{\tild}{\symbol{126}} \newcommand{\Rtilde}{\,\raisebox{-.5ex}{\code{\tild{}}}\,} \newcommand{\captilde}{\mbox{\protect\Rtilde}} % use in figure captions. \newcommand{\Rmod}[2]{\code{#1 \raisebox{-.5ex}{\tild{}} #2}} \newcommand{\Rmoda}[2]{\code{#1} &\code{\raisebox{-.5ex}{\tild{}} #2}} \newcommand{\Rmodb}[2]{\code{#1 &\raisebox{-.5ex}{\tild{}}& #2}} \newcommand{\C}{\mathbf{C}} \newcommand{\betahat}{\widehat{\beta}} \newcommand{\bbetahat}{\widehat{\boldsymbol{\beta}}} \newcommand{\bbeta}{\boldsymbol{\beta}} \newcommand{\xbf}{\x_{\backslash{}f}} \newcommand{\hbf}{h_{\backslash{}f}} \newcommand{\xtb}{\x_{2\backslash{}f}} \newcommand{\xbfi}{\x_{\backslash{}f,i}} \newcommand{\inter}[2]{\mbox{$#1$:$#2$}} \newcommand{\cross}[2]{\mbox{$#1$\code{*}$#2$}} \newcommand{\N}{\mathrm{N}} \newcommand{\yx}{\widehat{y}(\x)} \newcommand{\lvn}[1]{\mbox{$\log(\mbox{\texttt{#1}})$}} \newcommand{\fn}[1]{\code{#1()}} \newcommand{\pkg}[1]{\textbf{#1}} \newcommand{\proglang}[1]{\textsf{#1}} \newcommand{\class}[1]{\texttt{"#1"}} \usepackage{xcolor} \newcommand{\Comment}[1]{\textbf{{\color{red}#1}}} \begin{document} \title{Regression Functions Supported by the \textbf{effects} Package\\ And How to Support Other Classes of Regression Models} \author{John Fox and Sanford Weisberg} \date{2022-07-07} \maketitle <>= library("knitr") opts_chunk$set(fig.width=5,fig.height=5,tidy=TRUE, out.width="0.8\\textwidth",echo=TRUE) options(prompt=" ") @ <>= #options(continue="+ ", prompt="R> ", width=76) options(show.signif.stars=FALSE) options(scipen=3) library(effects) @ <>= library(knitr) opts_chunk$set( tidy=FALSE,fig.width=5,fig.height=5,cache=FALSE,comment=NA, prompt=TRUE ) render_sweave() @ <>= options(continue=" ", prompt=" ", width=76) options(show.signif.stars=FALSE) options(scipen=3) @ \section{Introduction} \emph{Effect plots}, as implemented in the \pkg{effects} package, represent the ``effects'' (in the not necessarily causal sense of ``partial relationship'') of one or more predictors on a response variable, in regression models in which the response depends on a \emph{linear predictor}---a linear combination of main effects and interactions among the predictors \citep[Sec.~4.6.3]{FoxWeisberg19}. \fn{Effect} is the basic generic function in the \pkg{effects} package; \fn{Effect} is called directly or indirectly by several other functions in the package, such as \fn{predictorEffects} and \fn{allEffects}. Table~\ref{tab1} provides a list of regression modeling functions in \R{} that can be used with the \pkg{effects} package. This list, which is almost surely incomplete, includes functions that are directly supported by \fn{Effect} methods supplied by the \pkg{effects} package, by \fn{Effect} methods supplied by other CRAN packages, or by the default \fn{Effect} method, which works with many classes of regression models. \begin{table} \caption{\R{} regression functions known to be compatible with the \fn{Effect} function. The name before the double-colon is the package that includes the function; for example \fn{stats::lm} means that \fn{lm} is in the \pkg{stats} package. In some cases, \fn{Effect} may support only a subset of regression models fit by a particular function. Effects for mixed-effects models represent the fixed-effects part of the model.\label{tab1}} \begin{center} \begin{tabular}{|l|p{4.0in}|}\hline Function & Comments \\ \hline \multicolumn{2}{|l|}{\textbf{\code{glm}-type models}}\\ \hline \fn{stats::lm} & Standard linear regression models fit by least-squares or weighted least-squares. A multivariate response, generating a multivariate linear model, is permitted, and in this case effects are computed for each response separately.\\ \fn{stats::glm} & Generalized linear models.\\ \fn{nlme::lme} & Linear mixed-effects models.\\ \fn{nlme::gls} & Linear models fit by generalized least squares.\\ \fn{lmer::lmer} & Linear mixed-effects models.\\ \fn{lmer::glmer} & Generalized linear mixed-effects models.\\ \fn{survey::svyglm} & Generalized linear models for complex survey designs.\\ \fn{MASS::rlm} & Linear regression models estimated by robust M or MM regression.\\ \fn{MASS::glmmPQL} & Generalized linear mixed-effects models via partial quadratic likelihood.\\ \fn{robustlmm::rlmer} & Robust linear mixed-effects models.\\ \fn{betareg::betareg} & Beta regression models for rates and proportions.\\ \fn{ivreg::ivreg} & Linear regression models estimated by instrumental variables (2SLS regression). \\ \fn{glmmTMB::glmmTMB} & Generalized linear mixed-effects regression models (similar to \fn{lmer::glmer} but accommodating a broader selection of models).\\ \hline \multicolumn{2}{|l|}{\textbf{\code{multinom}-type models}}\\ \hline \fn{nnet::multinom} & Multinomial logistic-regression models. If the response has $K$ categories, the response for \fn{nnet::multinom} can be a factor with $K$ levels or a matrix with $K$ columns, which will be interpreted as counts for each of $K$ categories. Effects plots require the response to be a factor, not a matrix.\\ \fn{poLCA::poLCA} & Latent class analysis regression models for polytomous outcomes. Latent class analysis has a similar structure to multinomial regression, except that class membership of observations is unobserved but estimated in the analysis.\\ \hline \multicolumn{2}{|l|}{\textbf{\code{polr}-type models}}\\ \hline \fn{MASS:polr} & Ordinal logistic (proportional-odds) and probit regression models.\\ \fn{ordinal::clm} & Cumulative-link regression models (similar to, but more extensive than, \fn{polr}).\\ \fn{ordinal::clm2}& Updated version of \fn{ordinal::clm}.\\ \fn{ordinal::clmm} & Cumulative-link regression models with random effects.\\ \hline \end{tabular} \end{center} \end{table} The most basic type of model for which \fn{Effect} is appropriate is a standard linear model fit by the \fn{lm} function; for example: <>= library("effects") Prestige$type <- factor(Prestige$type, c("bc", "wc", "prof")) # reorder levels g1 <- lm(prestige ~ education + type + education:type, data = Prestige) # equivalent to lm(prestige ~ education*type, data = Prestige) plot(predictorEffects(g1), lines=list(multiline=TRUE)) @ \noindent In this example the response \code{prestige} is modeled as a linear function of years of \code{education}, the factor \code{type}, with levels blue collar (\code{"bc"}), white collar (\code{"wc"}), and professional (\code{"prof"}), and their interaction. Because of the interaction, the estimated partial relationship of \code{prestige} to \code{education} (depicted in the \emph{predictor effect plot} for \code{education}, at the left) is different for each level of \code{type}, and the partial relationship of \code{prestige} to \code{type} (depicted in the predictor effect plot for \code{type}, at the right) varies with the value \code{education}. A linear mixed-effects model is a more complicated regression model, fit, for example, by the \fn{lmer} function in the \pkg{lme4} package \citep{Bates15}: <<>>= data(Orthodont, package="nlme") g2 <- lme4::lmer(distance ~ age + Sex + (1 | Subject), data = Orthodont) summary(g2) @ This model has a fixed effect part, with response \code{distance} and predictors \code{age} and \code{Sex}. The random intercept (represented by \code{1}) varies by \code{Subject}. Effect plots for mixed-effects models are based only on the estimated fixed-effects in the model: <>= plot(predictorEffects(g2)) @ \section{Basic Types of Regression Models in the effects Package} The \fn{Effects} function supports three basic types of regression models: \begin{itemize} \item The preceding examples that use the \fn{lm} and \fn{lmer} functions are examples of \code{glm}-type models, which express, via a link function, the dependence of a discrete or continuous numeric response or of a binary response on a set of main effects and interactions among fixed-effect predictors comprising a linear predictor. The \fn{glm} function is the prototype for this kind of model. As shown in Table~\ref{tab1}, most of the regression functions currently supported by the \pkg{effects} package are of this type. \item \code{multinom}-type models are multinomial regression models that arise when the response is an unordered multi-category variable, also modeled, via a suitable multivariate link function, as a linear function of fixed-effect main effects and interactions. The prototype for \code{multinom}-type models is the \fn{multinom} function in the \pkg{nnet} package \citep{VenablesRipley02}. \item \code{polr}-type models (i.e., ordinal regression models) are used for an ordered polytomous response variable. The prototype for \code{polr}-type models is the \fn{polr} function in the \pkg{MASS} package \citep{VenablesRipley02}. \end{itemize} \section{Supporting Specific Regression Functions} To support a specific class of regression models, say of class \code{"foo"} produced by the function \fn{foo}, one \emph{could} write a method \fn{Effect.foo} for the \proglang{S3} generic \fn{Effect} function. That approach is generally undesirable, for two reasons: (1) writing an \fn{Effect} method from scratch is a complicated endeavor; (2) the resulting object may not work properly with other functions in the \pkg{effects} package, such as \fn{plot} methods. The \pkg{effects} package defines and exports several methods for the \fn{Effect} function, including a default method, and three specific methods corresponding to the three types of regression models introduced in the preceding section: \fn{Effect.lm} (which is also inherited by models of class \code{"glm"}), \fn{Effect.multinom}, and \fn{Effect.polr}. Moreover, \fn{Effect.default} works by setting up a call to one of the three specific \fn{Effect} methods.\footnote{There are, as well, two additional specific \fn{Effect} methods provided by the \pkg{effects} package: \fn{Effect.merMod} for models produced by the \fn{lmer} and \fn{glmer} functions in the \pkg{lme4} package; and \fn{Effect.svyglm} for models produced by the \fn{svyglm} function in the \pkg{survey} package \citep{Lumley04}. To see the code for these methods, enter the commands \code{getAnywhere("Effect.merMod")} and \code{getAnywhere("Effect.svyglm")}, after loading the \pkg{effects} package.} The three basic \fn{Effect} methods collect information from the regression model of interest via a suitable method for the generic \fn{effects::effSources} function, and then use that information to compute effects and their standard errors. The required information is summarized in Table~\ref{tab2}. \begin{table} \caption{Values supplied by \fn{effSources} methods. In the table, the regression model object is called \code{m}. For functions cited in the \pkg{insight} package see \cite{insight19}.\label{tab2}} \begin{center} \begin{tabular}{|l|p{4.5in}|} \hline Argument & Description \\ \hline \code{type} & The type of the regression model: one of \code{"glm"} (the default if \code{type} isn't supplied), \code{"multinom"}, or \code{"polr"}. \\ \code{call} & The call that created the regression model, which is generally returned by either \verb+m$call+ or \verb+m@call+ or \code{insight::get\_call(m)}. The call is used to find the usual \code{data} and \code{subset} arguments that \fn{Effect} needs to perform the computation. See the discussion of \fn{nlme:::gls} below for an example where the \code{call} must be modified.\\ formula & The formula for the fixed-effects linear predictor, which is often returned by \code{stats::formula(m)} or \code{insight::find\_formula(m)\$conditional}.\\ \code{family} & Many \code{glm}-type models include a family, with an error distribution and a link function. These are often returned by the default \code{stats::family(m)} or \code{insight::get\_family(m)}.\\ \code{coefficients} & The vector of fixed-effect parameter estimates, often returned by \code{coef(m)}. Alternatively \code{b <- insight::get\_parameters(m)} returns the coefficient estimates as a two-column matrix with parameter names in the first column, so \code{stats:setNames(b[,2], b[,1])} returns the estimates as a vector. For a \code{polr}-type model, coefficients should return the regression coefficients excluding the thresholds.\\ \code{vcov} & The estimated covariance matrix of the fixed-effect estimates, often given by \code{stats::vcov(m)} or \code{insight::get\_varcov(m)}. For a \code{polr}-type model, the covariance matrix should include both the regression coefficients and the thresholds, with the regression coefficients \emph{preceding} the thresholds.\\ \hline\\ \code{zeta} & The vector of estimated thresholds for a \code{polr}-type model, one fewer than the number of levels of the response. The default for a \code{polr}-type model is \code{zeta = m\$zeta}.\\ \code{method} & For a \code{polr}-type model, the name of a link supported by the \fn{MASS::polr} function: one of \code{"logistic"}, \code{"probit"}, \code{"loglog"}, \code{"cloglog"}, or \code{"cauchit"}. The default for a \code{polr}-type model is \code{method = "logistic"}.\\ \hline \end{tabular} \end{center} \end{table} The default \fn{effSources} method simply returns \code{NULL}, which corresponds to selecting all of the defaults in Table~\ref{tab2}. If that doesn't work, it usually suffices to provide a suitable \fn{effSources} method. We illustrate by a few examples. \subsection{Examples} The following examples, with the exception of the last, are drawn directly from the \pkg{effects} package. \subsubsection{\texttt{glmmPQL()}} Objects of class \code{"glmmPQL"}, produced by \fn{MASS::glmmPQL} do not respond to the generic \fn{family} function, but the name of the family can be obtained from the call; thus: \begin{alltt} effSources.glmmPQL <- function(mod) \{ list(family = mod$family) \} \end{alltt} \subsubsection{\texttt{gls()}} The \code{weights} argument has different meaning for \fn{gls} in the \pkg{nlme} package \citep{nlme} and for the standard \R{} \fn{glm} function, and consequently the \code{call} must be modified to set \code{weights} to \code{NULL}: \begin{alltt} effSources.gls <- function(mod)\{ cl <- mod$call cl$weights <- NULL list(call = cl) \} \end{alltt} \subsubsection{\texttt{betareg()}} The \code{betareg} function in the \pkg{betareg} package \citep{betareg} fits response data similar to a binomial regression but with beta errors. Adapting these models for use with \fn{Effect} is considerably more complex than the two previous examples: \begin{alltt} effSources.gls <- function(mod)\{ coef <- mod$coefficients$mean vco <- vcov(mod)[1:length(coef), 1:length(coef)] # betareg uses beta errors with mean link given in mod$link$mean. # Construct a family based on the binomial() family fam <- binomial(link=mod$link$mean) # adjust the variance function to account for beta variance fam$variance <- function(mu){ f0 <- function(mu, eta) (1-mu)*mu/(1+eta) do.call("f0", list(mu, mod$coefficient$precision))} # adjust initialize fam$initialize <- expression({mustart <- y}) # collect arguments args <- list( call = mod$call, formula = formula(mod), family=fam, coefficients = coef, vcov = vco) args \} \end{alltt} \subsubsection{\texttt{clm2()}} The \fn{clm2} function in the \pkg{ordinal} package \citep{Christensen15} fits ordinal regression models, and so the aim is to create \code{polr}-type effects: \begin{alltt} effSources.clm2 <- function(mod)\{ if (!requireNamespace("MASS", quietly=TRUE)) stop("MASS package is required") polr.methods <- c("logistic", "probit", "loglog", "cloglog", "cauchit") method <- mod\$link if(!(method %in% polr.methods)) stop("'link' must be a 'method' supported by polr; see help(polr)") if(is.null(mod\$Hessian))\{ message("Re-fitting to get Hessian") mod <- update(mod, Hess=TRUE) \} if(mod\$threshold != "flexible") stop("Effects only supports the flexible threshold") numTheta <- length(mod\$Theta) numBeta <- length(mod\$beta) or <- c( (numTheta+1):(numTheta + numBeta), 1:(numTheta)) list( type = "polr", formula = mod\$call\$location, coefficients = mod\$beta, zeta = mod\$Theta, method=method, vcov = as.matrix(vcov(mod)[or, or])) \} \end{alltt} \subsubsection{\texttt{ivreg::ivreg()}} Sometimes it doesn't suffice to define an appropriate \fn{effSources} method, but it is still possible to avoid writing a detailed \fn{Effect} method. We use the \fn{ivreg} function (for instrumental-variables regression) in the \pkg{ivreg} package \citep{ivreg} as an example; that package defines the following \fn{Effect.ivreg} method: \begin{alltt} Effect.ivreg <- function (focal.predictors, mod, ...) \{ mod\$contrasts <- mod\$contrasts\$regressors NextMethod() \} \end{alltt} \noindent Here it is sufficient to set the \code{contrasts} element of the model object to conform to the way it is defined in \class{lm} objects. That works because \class{ivreg} objects inherit from class \code{lm}, and thus \fn{Effect.lm} is called by \fn{NextMethod}. \bibliography{functions-supported-by-effects} \end{document} effects/vignettes/predictor-effects-gallery.bib0000644000176200001440000000511315132433422021423 0ustar liggesusers @Manual{R-base, title = {R: A Language and Environment for Statistical Computing}, author = {{R Core Team}}, organization = {R Foundation for Statistical Computing}, address = {Vienna, Austria}, year = {2018}, url = {https://www.R-project.org/}, } @Manual{R-bookdown, title = {bookdown: Authoring Books and Technical Documents with R Markdown}, author = {Yihui Xie}, note = {R package version 0.7.18}, url = {https://github.com/rstudio/bookdown}, year = {2018}, } @Manual{R-knitr, title = {knitr: A General-Purpose Package for Dynamic Report Generation in R}, author = {Yihui Xie}, year = {2018}, note = {R package version 1.20}, url = {https://CRAN.R-project.org/package=knitr}, } @Manual{R-rmarkdown, title = {rmarkdown: Dynamic Documents for R}, author = {JJ Allaire and Yihui Xie and Jonathan McPherson and Javier Luraschi and Kevin Ushey and Aron Atkins and Hadley Wickham and Joe Cheng and Winston Chang}, year = {2018}, note = {R package version 1.10}, url = {https://CRAN.R-project.org/package=rmarkdown}, } @book{fw19, title={An R Companion to Applied Regression}, edition={Third}, author={Fox, John and Weisberg, Sanford}, year={2019}, publisher={Sage} } @book{sarkar08, title={Lattice: Multivariate Data Visualization With R}, author={Sarkar, Deepayan}, year={2008}, publisher={Springer Science \& Business Media} } @Manual{lenth18, title = {emmeans: Estimated Marginal Means, aka Least-Squares Means}, author = {Russell Lenth}, year = {2018}, note = {R package version 1.2.1}, url = {https://CRAN.R-project.org/package=emmeans}, } @Article{fw19b, title = {Visualizing Fit and Lack of Fit in Complex Regression Models with Predictor Effect Plots and Partial Residuals}, author = {John Fox and Sanford Weisberg}, journal = {Journal of Statistical Software}, year = {2018}, volume = {87}, number = {9}, pages = {1--27}, doi = {10.18637/jss.v087.i09}, } @article{HawkinsWeisberg2017, title={Combining the {Box-Cox} Power and Generalised Log Transformations to Accommodate Negative Responses In Linear and Mixed-Effects Linear Models}, author={Hawkins, D. M. and Weisberg, S.}, journal={South African Statistics Journal}, volume={51}, pages = {pp. 317--328}, year={2017}, url={https://journals.co.za/content/journal/10520/EJC-bd05f9440} } @Manual{SarkarAndrews2016, title = {latticeExtra: Extra Graphical Utilities Based on Lattice}, author = {Deepayan Sarkar and Felix Andrews}, year = {2016}, note = {R package version 0.6-28}, url = {https://CRAN.R-project.org/package=latticeExtra}, } effects/vignettes/chicago.bst0000755000176200001440000011105015132433422016010 0ustar liggesusers%%% ==================================================================== %%% @BibTeX-style-file{ %%% author = "Glenn Paulley", %%% version = "4", %%% date = "28 August 1992", %%% time = "10:23:39 199", %%% filename = "chicago.bst", %%% address = "Data Structuring Group %%% Department of Computer Science %%% University of Waterloo %%% Waterloo, Ontario, Canada %%% N2L 3G1", %%% telephone = "(519) 885-1211", %%% FAX = "(519) 885-1208", %%% checksum = "26323 1654 5143 37417", %%% email = "gnpaulle@bluebox.uwaterloo.ca", %%% codetable = "ISO/ASCII", %%% keywords = "", %%% supported = "yes", %%% abstract = "A BibTeX bibliography style that follows the %%% `B' reference style of the 13th Edition of %%% the Chicago Manual of Style. A detailed %%% feature list is given below.", %%% docstring = "The checksum field above contains a CRC-16 %%% checksum as the first value, followed by the %%% equivalent of the standard UNIX wc (word %%% count) utility output of lines, words, and %%% characters. This is produced by Robert %%% Solovay's checksum utility.", %%% } %%% ==================================================================== % % "Chicago" BibTeX style, chicago.bst % =================================== % % BibTeX `chicago' style file for BibTeX version 0.99c, LaTeX version 2.09 % Place it in a file called chicago.bst in the BibTeX search path. % You need to include chicago.sty as a \documentstyle option. % (Placing it in the same directory as the LaTeX document should also work.) % This "chicago" style is based on newapa.bst (American Psych. Assoc.) % found at ymir.claremont.edu. % % Citation format: (author-last-name year) % (author-last-name and author-last-name year) % (author-last-name, author-last-name, and author-last-name year) % (author-last-name et al. year) % (author-last-name) % author-last-name (year) % (author-last-name and author-last-name) % (author-last-name et al.) % (year) or (year,year) % year or year,year % % Reference list ordering: alphabetical by author or whatever passes % for author in the absence of one. % % This BibTeX style has support for abbreviated author lists and for % year-only citations. This is done by having the citations % actually look like % % \citeauthoryear{full-author-info}{abbrev-author-info}{year} % % The LaTeX style has to have the following (or similar) % % \let\@internalcite\cite % \def\fullcite{\def\citeauthoryear##1##2##3{##1, ##3}\@internalcite} % \def\fullciteA{\def\citeauthoryear##1##2##3{##1}\@internalcite} % \def\shortcite{\def\citeauthoryear##1##2##3{##2, ##3}\@internalcite} % \def\shortciteA{\def\citeauthoryear##1##2##3{##2}\@internalcite} % \def\citeyear{\def\citeauthoryear##1##2##3{##3}\@internalcite} % % These TeX macro definitions are found in chicago.sty. Additional % commands to manipulate different components of a citation can be defined % so that, for example, you can list author's names without parentheses % if using a citation as a noun or object in a sentence. % % This file was originally copied from newapa.bst at ymir.claremont.edu. % % Features of chicago.bst: % ======================= % % - full names used in citations, but abbreviated citations are available % (see above) % - if an entry has a "month", then the month and year are also printed % as part of that bibitem. % - all conjunctions use "and" instead of "\&" % - major modification from Chicago Manual of Style (13th ed.) is that % only the first author in a reference appears last name first- % additional authors appear as J. Q. Public. % - pages are listed as "pp. xx-xx" in all entry types except % article entries. % - book, inbook, and manual use "location: publisher" (or organization) % for address and publisher. All other types list publishers separately. % - "pp." are used to identify page numbers for all entry types except % articles. % - organization is used as a citation label if neither author nor editor % is present (for manuals). % - "et al." is used for long author and editor lists, or when "others" % is used. % % Modifications and bug fixes from newapa.bst: % =========================================== % % - added month, year to bib entries if month is present % - fixed bug with In proceedings, added necessary comma after title % - all conjunctions changed to "and" from "\&" % - fixed bug with author labels in my.full.label: "et al." now is % generated when "others" is an author name % - major modification from Chicago Manual of Style (13th ed.) is that % only the first author in a reference appears last name first- % additional authors appear as J. Q. Public. % - pages are listed as "pp. xx-xx" in all entry types except % article entries. Unnecessary (IMHO) "()" around page numbers % were removed, and page numbers now don't end with a period. % - created chicago.sty for use with this bibstyle (required). % - fixed bugs in FUNCTION {format.vol.num.pages} for missing volume, % number, and /or pages. Renamed to format.jour.vol. % - fixed bug in formatting booktitles: additional period an error if % book has a volume. % - fixed bug: editors usually given redundant period before next clause % (format.editors.dot) removed. % - added label support for organizations, if both author and editor % are missing (from alpha.bst). If organization is too long, then % the key field is used for abbreviated citations. % - In proceedings or books of several volumes, no comma was written % between the "Volume x" and the page numbers (this was intentional % in newapa.bst). Fixed. % - Some journals may not have volumes/numbers, only month/year (eg. % IEEE Computer). Fixed bug in article style that assumed volume/number % was always present. % % Original documentation for newapa.sty: % ===================================== % % This version was made by modifying the master file made by % Oren Patashnik (PATASHNIK@SCORE.STANFORD.EDU), and the 'named' BibTeX % style of Peter F. Patel-Schneider. % % Copyright (C) 1985, all rights reserved. % Copying of this file is authorized only if either % (1) you make absolutely no changes to your copy, including name, or % (2) if you do make changes, you name it something other than 'newapa.bst'. % There are undoubtably bugs in this style. If you make bug fixes, % improvements, etc. please let me know. My e-mail address is: % spencer@cgrg.ohio.state.edu or 71160.3141@compuserve.com % % This style was made from 'plain.bst', 'named.bst', and 'apalike.bst', % with lots of tweaking to make it look like APA style, along with tips % from Young Ryu and Brian Reiser's modifications of 'apalike.bst'. ENTRY { address author booktitle chapter edition editor howpublished institution journal key month note number organization pages publisher school series title type volume year } {} { label.year extra.label sort.year sort.label } INTEGERS { output.state before.all mid.sentence after.sentence after.block } FUNCTION {init.state.consts} { #0 'before.all := #1 'mid.sentence := #2 'after.sentence := #3 'after.block := } STRINGS { s t u } FUNCTION {output.nonnull} { 's := output.state mid.sentence = { ", " * write$ } { output.state after.block = { add.period$ write$ newline$ "\newblock " write$ } { output.state before.all = 'write$ { add.period$ " " * write$ } if$ } if$ mid.sentence 'output.state := } if$ s } % Use a colon to separate output. Used only for address/publisher % combination in book/inbook types, address/institution for manuals, % and organization:publisher for proceedings (inproceedings). % FUNCTION {output.nonnull.colon} { 's := output.state mid.sentence = { ": " * write$ } { output.state after.block = { add.period$ write$ newline$ "\newblock " write$ } { output.state before.all = 'write$ { add.period$ " " * write$ } if$ } if$ mid.sentence 'output.state := } if$ s } FUNCTION {output} { duplicate$ empty$ 'pop$ 'output.nonnull if$ } FUNCTION {output.colon} { duplicate$ empty$ 'pop$ 'output.nonnull.colon if$ } FUNCTION {output.check} { 't := duplicate$ empty$ { pop$ "empty " t * " in " * cite$ * warning$ } 'output.nonnull if$ } FUNCTION {output.check.colon} { 't := duplicate$ empty$ { pop$ "empty " t * " in " * cite$ * warning$ } 'output.nonnull.colon if$ } FUNCTION {output.year.check} { year empty$ { "empty year in " cite$ * warning$ } { write$ " (" year * extra.label * month empty$ { ")" * } { ", " * month * ")" * } if$ mid.sentence 'output.state := } if$ } FUNCTION {fin.entry} { add.period$ write$ newline$ } FUNCTION {new.block} { output.state before.all = 'skip$ { after.block 'output.state := } if$ } FUNCTION {new.sentence} { output.state after.block = 'skip$ { output.state before.all = 'skip$ { after.sentence 'output.state := } if$ } if$ } FUNCTION {not} { { #0 } { #1 } if$ } FUNCTION {and} { 'skip$ { pop$ #0 } if$ } FUNCTION {or} { { pop$ #1 } 'skip$ if$ } FUNCTION {new.block.checka} { empty$ 'skip$ 'new.block if$ } FUNCTION {new.block.checkb} { empty$ swap$ empty$ and 'skip$ 'new.block if$ } FUNCTION {new.sentence.checka} { empty$ 'skip$ 'new.sentence if$ } FUNCTION {new.sentence.checkb} { empty$ swap$ empty$ and 'skip$ 'new.sentence if$ } FUNCTION {field.or.null} { duplicate$ empty$ { pop$ "" } 'skip$ if$ } % % Emphasize the top string on the stack. % FUNCTION {emphasize} { duplicate$ empty$ { pop$ "" } { "{\em " swap$ * "}" * } if$ } % % Emphasize the top string on the stack, but add a trailing space. % FUNCTION {emphasize.space} { duplicate$ empty$ { pop$ "" } { "{\em " swap$ * "\/}" * } if$ } INTEGERS { nameptr namesleft numnames } % % Format bibliographical entries with the first author last name first, % and subsequent authors with initials followed by last name. % All names are formatted in this routine. % FUNCTION {format.names} { 's := #1 'nameptr := % nameptr = 1; s num.names$ 'numnames := % numnames = num.name$(s); numnames 'namesleft := { namesleft #0 > } { nameptr #1 = {s nameptr "{vv~}{ll}{, jj}{, f.}" format.name$ 't := } {s nameptr "{f.~}{vv~}{ll}{, jj}" format.name$ 't := } if$ nameptr #1 > { namesleft #1 > { ", " * t * } { numnames #2 > { "," * } 'skip$ if$ t "others" = { " et~al." * } { " and " * t * } % from Chicago Manual of Style if$ } if$ } 't if$ nameptr #1 + 'nameptr := % nameptr += 1; namesleft #1 - 'namesleft := % namesleft =- 1; } while$ } FUNCTION {my.full.label} { 's := #1 'nameptr := % nameptr = 1; s num.names$ 'numnames := % numnames = num.name$(s); numnames 'namesleft := { namesleft #0 > } { s nameptr "{vv~}{ll}" format.name$ 't := % get the next name nameptr #1 > { namesleft #1 > { ", " * t * } { numnames #2 > { "," * } 'skip$ if$ t "others" = { " et~al." * } { " and " * t * } % from Chicago Manual of Style if$ } if$ } 't if$ nameptr #1 + 'nameptr := % nameptr += 1; namesleft #1 - 'namesleft := % namesleft =- 1; } while$ } FUNCTION {format.names.fml} % % Format names in "familiar" format, with first initial followed by % last name. Like format.names, ALL names are formatted. % { 's := #1 'nameptr := % nameptr = 1; s num.names$ 'numnames := % numnames = num.name$(s); numnames 'namesleft := { namesleft #0 > } { s nameptr "{f.~}{vv~}{ll}{, jj}" format.name$ 't := nameptr #1 > { namesleft #1 > { ", " * t * } { numnames #2 > { "," * } 'skip$ if$ t "others" = { " et~al." * } { " and " * t * } % { " \& " * t * } if$ } if$ } 't if$ nameptr #1 + 'nameptr := % nameptr += 1; namesleft #1 - 'namesleft := % namesleft =- 1; } while$ } FUNCTION {format.authors} { author empty$ { "" } { author format.names } if$ } FUNCTION {format.key} { empty$ { key field.or.null } { "" } if$ } % % Format editor names for use in the "in" types: inbook, incollection, % inproceedings: first initial, then last names. When editors are the % LABEL for an entry, then format.editor is used which lists editors % by last name first. % FUNCTION {format.editors.fml} { editor empty$ { "" } { editor format.names.fml editor num.names$ #1 > { " (Eds.)" * } { " (Ed.)" * } if$ } if$ } % % Format editor names for use in labels, last names first. % FUNCTION {format.editors} { editor empty$ { "" } { editor format.names editor num.names$ #1 > { " (Eds.)" * } { " (Ed.)" * } if$ } if$ } FUNCTION {format.title} { title empty$ { "" } { title "t" change.case$ } if$ } % Note that the APA style requres case changes % in article titles. The following does not % change cases. If you perfer it, uncomment the % following and comment out the above. %FUNCTION {format.title} %{ title empty$ % { "" } % { title } % if$ %} FUNCTION {n.dashify} { 't := "" { t empty$ not } { t #1 #1 substring$ "-" = { t #1 #2 substring$ "--" = not { "--" * t #2 global.max$ substring$ 't := } { { t #1 #1 substring$ "-" = } { "-" * t #2 global.max$ substring$ 't := } while$ } if$ } { t #1 #1 substring$ * t #2 global.max$ substring$ 't := } if$ } while$ } FUNCTION {format.btitle} { edition empty$ { title emphasize } { title empty$ { title emphasize } { volume empty$ % gnp - check for volume, then don't need period { "{\em " title * "\/} (" * edition * " ed.)" * "." * } { "{\em " title * "\/} (" * edition * " ed.)" * } if$ } if$ } if$ } FUNCTION {format.emphasize.booktitle} { edition empty$ { booktitle emphasize } { booktitle empty$ { booktitle emphasize } { volume empty$ % gnp - extra period an error if book has a volume { "{\em " booktitle * "\/} (" * edition * " ed.)" * "." *} { "{\em " booktitle * "\/} (" * edition * " ed.)" * } if$ } if$ } if$ } FUNCTION {tie.or.space.connect} { duplicate$ text.length$ #3 < { "~" } { " " } if$ swap$ * * } FUNCTION {either.or.check} { empty$ 'pop$ { "can't use both " swap$ * " fields in " * cite$ * warning$ } if$ } FUNCTION {format.bvolume} { volume empty$ { "" } { "Volume" volume tie.or.space.connect % gnp - changed to mixed case series empty$ 'skip$ { " of " * series emphasize * } if$ "volume and number" number either.or.check } if$ } FUNCTION {format.number.series} { volume empty$ { number empty$ { series field.or.null } { output.state mid.sentence = { "Number" } % gnp - changed to mixed case always { "Number" } if$ number tie.or.space.connect series empty$ { "there's a number but no series in " cite$ * warning$ } { " in " * series * } if$ } if$ } { "" } if$ } INTEGERS { multiresult } FUNCTION {multi.page.check} { 't := #0 'multiresult := { multiresult not t empty$ not and } { t #1 #1 substring$ duplicate$ "-" = swap$ duplicate$ "," = swap$ "+" = or or { #1 'multiresult := } { t #2 global.max$ substring$ 't := } if$ } while$ multiresult } FUNCTION {format.pages} { pages empty$ { "" } { pages multi.page.check { "pp.\ " pages n.dashify tie.or.space.connect } % gnp - removed () { "pp.\ " pages tie.or.space.connect } if$ } if$ } % By Young (and Spencer) % GNP - fixed bugs with missing volume, number, and/or pages % % Format journal, volume, number, pages for article types. % FUNCTION {format.jour.vol} { journal empty$ { "no journal in " cite$ * warning$ "" } { journal emphasize.space } if$ number empty$ { volume empty$ { "no number and no volume in " cite$ * warning$ "" * } { "~{\em " * Volume * "}" * } if$ } { volume empty$ {"no volume for " cite$ * warning$ "~(" * number * ")" * } { "~" * volume emphasize.space "(" * number * ")" * * } if$ } if$ pages empty$ {"page numbers missing in " cite$ * warning$ "" * } % gnp - place a null string on the stack for output { duplicate$ empty$ { pop$ format.pages } { ", " * pages n.dashify * } % gnp - removed pp. for articles if$ } if$ } FUNCTION {format.chapter.pages} { chapter empty$ 'format.pages { type empty$ { "Chapter" } % gnp - changed to mixed case { type "t" change.case$ } if$ chapter tie.or.space.connect pages empty$ {"page numbers missing in " cite$ * warning$} % gnp - added check { ", " * format.pages * } if$ } if$ } FUNCTION {format.in.ed.booktitle} { booktitle empty$ { "" } { editor empty$ { "In " format.emphasize.booktitle * } { "In " format.editors.fml * ", " * format.emphasize.booktitle * } if$ } if$ } FUNCTION {format.thesis.type} { type empty$ 'skip$ { pop$ type "t" change.case$ } if$ } FUNCTION {format.tr.number} { type empty$ { "Technical Report" } 'type if$ number empty$ { "t" change.case$ } { number tie.or.space.connect } if$ } FUNCTION {format.article.crossref} { "See" "\citeN{" * crossref * "}" * } FUNCTION {format.crossref.editor} { editor #1 "{vv~}{ll}" format.name$ editor num.names$ duplicate$ #2 > { pop$ " et~al." * } { #2 < 'skip$ { editor #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" = { " et~al." * } { " and " * editor #2 "{vv~}{ll}" format.name$ * } if$ } if$ } if$ } FUNCTION {format.book.crossref} { volume empty$ { "empty volume in " cite$ * "'s crossref of " * crossref * warning$ "In " } { "Volume" volume tie.or.space.connect % gnp - changed to mixed case " of " * } if$ editor empty$ editor field.or.null author field.or.null = or { key empty$ { series empty$ { "need editor, key, or series for " cite$ * " to crossref " * crossref * warning$ "" * } { "{\em " * series * "\/}" * } if$ } { key * } if$ } { format.crossref.editor * } if$ " \citeN{" * crossref * "}" * } FUNCTION {format.incoll.inproc.crossref} { "See" " \citeN{" * crossref * "}" * } % format.lab.names: % % determines "short" names for the abbreviated author information. % "Long" labels are created in calc.label, using the routine my.full.label % to format author and editor fields. % % There are 4 cases for labels. (n=3 in the example) % a) one author Foo % b) one to n Foo, Bar and Baz % c) use of "and others" Foo, Bar et al. % d) more than n Foo et al. % FUNCTION {format.lab.names} { 's := s num.names$ 'numnames := numnames #2 > % change number to number of others allowed before % forcing "et al". { s #1 "{vv~}{ll}" format.name$ " et~al." * } { numnames #1 - 'namesleft := #2 'nameptr := s #1 "{vv~}{ll}" format.name$ { namesleft #0 > } { nameptr numnames = { s nameptr "{ff }{vv }{ll}{ jj}" format.name$ "others" = { " et~al." * } { " and " * s nameptr "{vv~}{ll}" format.name$ * } if$ } { ", " * s nameptr "{vv~}{ll}" format.name$ * } if$ nameptr #1 + 'nameptr := namesleft #1 - 'namesleft := } while$ } if$ } FUNCTION {author.key.label} { author empty$ { key empty$ { "no key, author in " cite$ * warning$ cite$ #1 #3 substring$ } 'key if$ } { author format.lab.names } if$ } FUNCTION {editor.key.label} { editor empty$ { key empty$ { "no key, editor in " cite$ * warning$ cite$ #1 #3 substring$ } 'key if$ } { editor format.lab.names } if$ } FUNCTION {author.key.organization.label} % % added - gnp. Provide label formatting by organization if author is null. % { author empty$ { organization empty$ { key empty$ { "no key, author or organization in " cite$ * warning$ cite$ #1 #3 substring$ } 'key if$ } { organization } if$ } { author format.lab.names } if$ } FUNCTION {editor.key.organization.label} % % added - gnp. Provide label formatting by organization if editor is null. % { editor empty$ { organization empty$ { key empty$ { "no key, editor or organization in " cite$ * warning$ cite$ #1 #3 substring$ } 'key if$ } { organization } if$ } { editor format.lab.names } if$ } FUNCTION {author.editor.key.label} { author empty$ { editor empty$ { key empty$ { "no key, author, or editor in " cite$ * warning$ cite$ #1 #3 substring$ } 'key if$ } { editor format.lab.names } if$ } { author format.lab.names } if$ } FUNCTION {calc.label} % % Changed - GNP. See also author.organization.sort, editor.organization.sort % Form label for BibTeX entry. The classification of which fields are used % for which type of entry (book, inbook, etc.) are taken from alpha.bst. % The change here from newapa is to also include organization as a % citation label if author or editor is missing. % { type$ "book" = type$ "inbook" = or 'author.editor.key.label { type$ "proceedings" = 'editor.key.organization.label { type$ "manual" = 'author.key.organization.label 'author.key.label if$ } if$ } if$ author empty$ % generate the full label citation information. { editor empty$ { organization empty$ { "no author, editor, or organization in " cite$ * warning$ "??" } { organization } if$ } { editor my.full.label } if$ } { author my.full.label } if$ % leave label on the stack, to be popped when required. "}{" * swap$ * "}{" * % year field.or.null purify$ #-1 #4 substring$ * % % save the year for sort processing afterwards (adding a, b, c, etc.) % year field.or.null purify$ #-1 #4 substring$ 'label.year := } FUNCTION {output.bibitem} { newline$ "\bibitem[\protect\citeauthoryear{" write$ calc.label write$ sort.year write$ "}]{" write$ cite$ write$ "}" write$ newline$ "" before.all 'output.state := } FUNCTION {article} { output.bibitem format.authors "author" output.check author format.key output % added output.year.check % added new.block format.title "title" output.check new.block crossref missing$ { format.jour.vol output } { format.article.crossref output.nonnull format.pages output } if$ new.block note output fin.entry } FUNCTION {book} { output.bibitem author empty$ { format.editors "author and editor" output.check } { format.authors output.nonnull crossref missing$ { "author and editor" editor either.or.check } 'skip$ if$ } if$ output.year.check % added new.block format.btitle "title" output.check crossref missing$ { format.bvolume output new.block format.number.series output new.sentence address output publisher "publisher" output.check.colon } { new.block format.book.crossref output.nonnull } if$ new.block note output fin.entry } FUNCTION {booklet} { output.bibitem format.authors output author format.key output % added output.year.check % added new.block format.title "title" output.check new.block howpublished output address output new.block note output fin.entry } FUNCTION {inbook} { output.bibitem author empty$ { format.editors "author and editor" output.check } { format.authors output.nonnull crossref missing$ { "author and editor" editor either.or.check } 'skip$ if$ } if$ output.year.check % added new.block format.btitle "title" output.check crossref missing$ { format.bvolume output format.chapter.pages "chapter and pages" output.check new.block format.number.series output new.sentence address output publisher "publisher" output.check.colon } { format.chapter.pages "chapter and pages" output.check new.block format.book.crossref output.nonnull } if$ new.block note output fin.entry } FUNCTION {incollection} { output.bibitem format.authors "author" output.check author format.key output % added output.year.check % added new.block format.title "title" output.check new.block crossref missing$ { format.in.ed.booktitle "booktitle" output.check format.bvolume output format.number.series output format.chapter.pages output % gnp - was special.output.nonnull % left out comma before page numbers new.sentence address output publisher "publisher" output.check.colon } { format.incoll.inproc.crossref output.nonnull format.chapter.pages output } if$ new.block note output fin.entry } FUNCTION {inproceedings} { output.bibitem format.authors "author" output.check author format.key output % added output.year.check % added new.block format.title "title" output.check new.block crossref missing$ { format.in.ed.booktitle "booktitle" output.check format.bvolume output format.number.series output address output format.pages output new.sentence organization output publisher output.colon } { format.incoll.inproc.crossref output.nonnull format.pages output } if$ new.block note output fin.entry } FUNCTION {conference} { inproceedings } FUNCTION {manual} { output.bibitem author empty$ { editor empty$ { organization "organization" output.check organization format.key output } % if all else fails, use key { format.editors "author and editor" output.check } if$ } { format.authors output.nonnull } if$ output.year.check % added new.block format.btitle "title" output.check organization address new.block.checkb % Reversed the order of "address" and "organization", added the ":". address output organization "organization" output.check.colon % address output % ":" output % organization output new.block note output fin.entry } FUNCTION {mastersthesis} { output.bibitem format.authors "author" output.check author format.key output % added output.year.check % added new.block format.title "title" output.check new.block "Master's thesis" format.thesis.type output.nonnull school "school" output.check address output new.block note output fin.entry } FUNCTION {misc} { output.bibitem format.authors output author format.key output % added output.year.check % added title howpublished new.block.checkb format.title output new.block howpublished output new.block note output fin.entry } FUNCTION {phdthesis} { output.bibitem format.authors "author" output.check author format.key output % added output.year.check % added new.block format.btitle "title" output.check new.block "Ph.\ D. thesis" format.thesis.type output.nonnull school "school" output.check address output new.block note output fin.entry } FUNCTION {proceedings} { output.bibitem editor empty$ { organization output organization format.key output } % gnp - changed from author format.key { format.editors output.nonnull } if$ % author format.key output % gnp - removed (should be either % editor or organization output.year.check % added (newapa) new.block format.btitle "title" output.check format.bvolume output format.number.series output address output new.sentence organization output publisher output.colon new.block note output fin.entry } FUNCTION {techreport} { output.bibitem format.authors "author" output.check author format.key output % added output.year.check % added new.block format.title "title" output.check new.block format.tr.number output.nonnull institution "institution" output.check address output new.block note output fin.entry } FUNCTION {unpublished} { output.bibitem format.authors "author" output.check author format.key output % added output.year.check % added new.block format.title "title" output.check new.block note "note" output.check fin.entry } FUNCTION {default.type} { misc } MACRO {jan} {"January"} MACRO {feb} {"February"} MACRO {mar} {"March"} MACRO {apr} {"April"} MACRO {may} {"May"} MACRO {jun} {"June"} MACRO {jul} {"July"} MACRO {aug} {"August"} MACRO {sep} {"September"} MACRO {oct} {"October"} MACRO {nov} {"November"} MACRO {dec} {"December"} MACRO {acmcs} {"ACM Computing Surveys"} MACRO {acta} {"Acta Informatica"} MACRO {ai} {"Artificial Intelligence"} MACRO {cacm} {"Communications of the ACM"} MACRO {ibmjrd} {"IBM Journal of Research and Development"} MACRO {ibmsj} {"IBM Systems Journal"} MACRO {ieeese} {"IEEE Transactions on Software Engineering"} MACRO {ieeetc} {"IEEE Transactions on Computers"} MACRO {ieeetcad} {"IEEE Transactions on Computer-Aided Design of Integrated Circuits"} MACRO {ipl} {"Information Processing Letters"} MACRO {jacm} {"Journal of the ACM"} MACRO {jcss} {"Journal of Computer and System Sciences"} MACRO {scp} {"Science of Computer Programming"} MACRO {sicomp} {"SIAM Journal on Computing"} MACRO {tocs} {"ACM Transactions on Computer Systems"} MACRO {tods} {"ACM Transactions on Database Systems"} MACRO {tog} {"ACM Transactions on Graphics"} MACRO {toms} {"ACM Transactions on Mathematical Software"} MACRO {toois} {"ACM Transactions on Office Information Systems"} MACRO {toplas} {"ACM Transactions on Programming Languages and Systems"} MACRO {tcs} {"Theoretical Computer Science"} READ FUNCTION {sortify} { purify$ "l" change.case$ } INTEGERS { len } FUNCTION {chop.word} { 's := 'len := s #1 len substring$ = { s len #1 + global.max$ substring$ } 's if$ } FUNCTION {sort.format.names} { 's := #1 'nameptr := "" s num.names$ 'numnames := numnames 'namesleft := { namesleft #0 > } { nameptr #1 > { " " * } 'skip$ if$ s nameptr "{vv{ } }{ll{ }}{ f{ }}{ jj{ }}" format.name$ 't := nameptr numnames = t "others" = and { " et~al" * } { t sortify * } if$ nameptr #1 + 'nameptr := namesleft #1 - 'namesleft := } while$ } FUNCTION {sort.format.title} { 't := "A " #2 "An " #3 "The " #4 t chop.word chop.word chop.word sortify #1 global.max$ substring$ } FUNCTION {author.sort} { author empty$ { key empty$ { "to sort, need author or key in " cite$ * warning$ "" } { key sortify } if$ } { author sort.format.names } if$ } FUNCTION {editor.sort} { editor empty$ { key empty$ { "to sort, need editor or key in " cite$ * warning$ "" } { key sortify } if$ } { editor sort.format.names } if$ } FUNCTION {author.editor.sort} { author empty$ { "missing author in " cite$ * warning$ editor empty$ { key empty$ { "to sort, need author, editor, or key in " cite$ * warning$ "" } { key sortify } if$ } { editor sort.format.names } if$ } { author sort.format.names } if$ } FUNCTION {author.organization.sort} % % added - GNP. Stack author or organization for sorting (from alpha.bst). % Unlike alpha.bst, we need entire names, not abbreviations % { author empty$ { organization empty$ { key empty$ { "to sort, need author, organization, or key in " cite$ * warning$ "" } { key sortify } if$ } { organization sortify } if$ } { author sort.format.names } if$ } FUNCTION {editor.organization.sort} % % added - GNP. Stack editor or organization for sorting (from alpha.bst). % Unlike alpha.bst, we need entire names, not abbreviations % { editor empty$ { organization empty$ { key empty$ { "to sort, need editor, organization, or key in " cite$ * warning$ "" } { key sortify } if$ } { organization sortify } if$ } { editor sort.format.names } if$ } FUNCTION {presort} % % Presort creates the bibentry's label via a call to calc.label, and then % sorts the entries based on entry type. Chicago.bst adds support for % including organizations as the sort key; the following is stolen from % alpha.bst. % { calc.label sortify % recalculate bibitem label year field.or.null purify$ #-1 #4 substring$ * % add year " " * type$ "book" = type$ "inbook" = or 'author.editor.sort { type$ "proceedings" = 'editor.organization.sort { type$ "manual" = 'author.organization.sort 'author.sort if$ } if$ } if$ #1 entry.max$ substring$ % added for newapa 'sort.label := % added for newapa sort.label % added for newapa * " " * title field.or.null sort.format.title * #1 entry.max$ substring$ 'sort.key$ := } ITERATE {presort} SORT % by label, year, author/editor, title STRINGS { last.label next.extra } INTEGERS { last.extra.num } FUNCTION {initialize.extra.label.stuff} { #0 int.to.chr$ 'last.label := "" 'next.extra := #0 'last.extra.num := } FUNCTION {forward.pass} % % Pass through all entries, comparing current entry to last one. % Need to concatenate year to the stack (done by calc.label) to determine % if two entries are the same (see presort) % { last.label calc.label year field.or.null purify$ #-1 #4 substring$ * % add year #1 entry.max$ substring$ = % are they equal? { last.extra.num #1 + 'last.extra.num := last.extra.num int.to.chr$ 'extra.label := } { "a" chr.to.int$ 'last.extra.num := "" 'extra.label := calc.label year field.or.null purify$ #-1 #4 substring$ * % add year #1 entry.max$ substring$ 'last.label := % assign to last.label } if$ } FUNCTION {reverse.pass} { next.extra "b" = { "a" 'extra.label := } 'skip$ if$ label.year extra.label * 'sort.year := extra.label 'next.extra := } EXECUTE {initialize.extra.label.stuff} ITERATE {forward.pass} REVERSE {reverse.pass} FUNCTION {bib.sort.order} { sort.label " " * year field.or.null sortify * " " * title field.or.null sort.format.title * #1 entry.max$ substring$ 'sort.key$ := } ITERATE {bib.sort.order} SORT % by sort.label, year, title --- giving final bib. order. FUNCTION {begin.bib} { preamble$ empty$ 'skip$ { preamble$ write$ newline$ } if$ "\begin{thebibliography}{}" write$ newline$ } EXECUTE {begin.bib} EXECUTE {init.state.consts} ITERATE {call.type$} FUNCTION {end.bib} { newline$ "\end{thebibliography}" write$ newline$ } EXECUTE {end.bib} effects/vignettes/partial-residuals.bib0000644000176200001440000000165715132433422020014 0ustar liggesusers@Misc{Schumann15, Author = {E. Schumann}, Title = {\emph{Generating Correlated Uniform Variates}}, Note = {\url{http://comisef.wikidot.com/ tutorial:correlateduniformvariates} [Accessed: 2015-05-21]}, year = 2009 } @book{Pearson07, Author={Karl Pearson}, Title={Mathematical Contributions to the Theory of Evolution.---XVI. On Further Methods of Determining Correlation}, Series={Drapers' Company Research Memoirs. Biometric Series. IV.}, Publisher={Cambridge University Press}, Address={London}, year=1907 } @article{FoxWeisberg18, title = {Visualizing Fit and Lack of Fit in Complex Regression Models with Predictor Effect Plots and Partial Residuals}, author = {John Fox and Sanford Weisberg}, journal = {Journal of Statistical Software}, year = {2018}, volume = {87}, number = {9}, pages = {1--27}, doi = {10.18637/jss.v087.i09}, } effects/vignettes/predictor-effects-gallery.Rnw0000644000176200001440000025156715136405661021465 0ustar liggesusers%\VignetteEngine{knitr::knitr} %\VignetteIndexEntry{Predictor Effects Graphics Gallery} %% vignette index specifications need to be *after* \documentclass{} %%\VignetteEngine{knitr::knitr} %%\VignetteIndexEntry{Effects Gallery} %%\VignettePackage{effects} \documentclass[10pt]{article} \usepackage[left=1.25in, right=1.25in, top=1in, bottom=1in]{geometry} \usepackage[utf8]{inputenc} \usepackage{graphicx} \usepackage[american]{babel} \newcommand{\R}{{\sf R}} \usepackage{url} \usepackage{hyperref} \usepackage{xcolor} \hypersetup{ colorlinks, linkcolor={red!50!black}, citecolor={blue!50!black}, urlcolor={blue!80!black} } \usepackage{alltt} \usepackage{fancyvrb} \usepackage{natbib} \usepackage{amsmath} \VerbatimFootnotes \bibliographystyle{chicago} \newcommand{\x}{\mathbf{x}} \newcommand{\code}[1]{\normalfont\texttt{\hyphenchar\font45\relax #1}} \newcommand{\lcode}[1]{\mbox{$\log($}\normalfont\texttt{\hyphenchar\font45\relax #1}\mbox{$)$}} \newcommand{\E}{\mathrm{E}} \newcommand{\link}[1]{#1} \newcommand{\tild}{\symbol{126}} \newcommand{\Rtilde}{\,\raisebox{-.5ex}{\code{\tild{}}}\,} \newcommand{\captilde}{\mbox{\protect\Rtilde}} % use in figure captions. \newcommand{\Rmod}[2]{\code{#1 \raisebox{-.5ex}{\tild{}} #2}} \newcommand{\Rmoda}[2]{\code{#1} &\code{\raisebox{-.5ex}{\tild{}} #2}} \newcommand{\Rmodb}[2]{\code{#1 &\raisebox{-.5ex}{\tild{}}& #2}} \newcommand{\aab}[2]{\code{#1}\mbox{$*$}\code{#2}} \newcommand{\acb}[2]{\code{#1}\mbox{$:$}\code{#2}} \newcommand{\C}{\mathbf{C}} \newcommand{\betahat}{\widehat{\beta}} \newcommand{\bbetahat}{\widehat{\boldsymbol{\beta}}} \newcommand{\bbeta}{\boldsymbol{\beta}} \newcommand{\xbf}{\x_{\backslash{}f}} \newcommand{\hbf}{h_{\backslash{}f}} \newcommand{\xtb}{\x_{2\backslash{}f}} \newcommand{\xbfi}{\x_{\backslash{}f,i}} \newcommand{\inter}[2]{\mbox{$#1$:$#2$}} \newcommand{\cross}[2]{\mbox{$#1$\code{*}$#2$}} \newcommand{\N}{\mathrm{N}} \newcommand{\fn}[1]{\texttt{#1()}} \newcommand{\ar}{\texttt} \newcommand{\pkg}[1]{\textbf{#1}} \newcommand{\proglang}[1]{\textsf{#1}} \newcommand{\yx}{\widehat{y}(\x)} \newcommand{\lvn}[1]{\mbox{$\log(\mbox{\texttt{#1}})$}} \newcommand{\vn}[1]{\mbox{\texttt{#1}}} \newcommand{\level}[1]{\texttt{"#1"}} \newcommand{\class}[1]{\texttt{"#1"}} \begin{document} \title{Predictor Effects Graphics Gallery} \author{John Fox and Sanford Weisberg} \date{2018-12-19, minor revisions 2023-02-20} \maketitle \tableofcontents \begin{abstract} Predictor effect displays visualize the response surface of complex regression models by averaging and conditioning, producing a sequence of 2D line graphs, one graph or set of graphs for each predictor in the regression problem \citep{fw19, fw19b}. In this vignette, we give examples of effect plots produced by the \pkg{effects} package, and in the process systematically illustrate the optional arguments to functions in the package, which can be used to customize predictor effect plots. \end{abstract} %\centerline{\includegraphics[width=1.25in]{../inst/doc/effects-hex.pdf}} <>= library("knitr") opts_chunk$set(fig.width=5,fig.height=5,#tidy=TRUE, out.width="0.8\\textwidth",echo=TRUE) #options(prompt=" ") options(continue="+ ", prompt="R> ", width=70) options(show.signif.stars=FALSE, scipen=3) @ <>= library(car) library(effects) render_sweave() options(width=80, digits=5, str=list(strict.width="cut")) strOptions(strict.width="cut") @ \section{Introduction}\label{sec:intro} Predictor effect plots \citep{fw19b} provide graphical summaries for fitted regression models with linear predictors, including linear models, generalized linear models, linear and generalized linear mixed models, and many others. These graphs are an alternative to tables of fitted coefficients, which can be much harder to interpret than predictor effect plots. Predictor effect plots are implemented in \R{} in the \pkg{effects} package, documented in \citet{fw19}. This vignette provides many examples of variations on the graphical displays that can be obtained with the \pkg{effects} package. Many of the details, and more complete descriptions of the data sets used as examples, are provided in the references cited at the end of the vignette. \subsection{Effects and Predictor Effect Plots}\label{sec:intro2} We begin with an example of a multiple linear regression, using the \code{Prestige} data set in the \pkg{carData} package: <<>>= library("car") # also loads the carData package Prestige$type <- factor(Prestige$type, levels=c("bc", "wc", "prof")) lm1 <- lm(prestige ~ education + poly(women, 2) + log(income)*type, data=Prestige) @ The data, collected circa 1970, pertain to 102 Canadian occupations. The model \code{lm1} is a linear model with response \vn{prestige}, continuous predictors \vn{income}, \vn{education}, and \vn{women}, and the factor predictor \vn{type}, which has three levels. Before fitting the model, we reorder the levels of \vn{type} as \level{bc} (blue-collar), \level{wc} (white-collar), and \level{prof} (professional and managerial). The predictor \vn{education} represents itself in the linear model, and so it is both a predictor and a \emph{regressor}, as defined in \citet[Sec.~4.1]{fw19}. The predictor \vn{income} is represented by the regressor \lcode{income}. The variable \vn{women}, a percentage between 0 and 100, is represented by regressors that define a polynomial of degree 2 using \fn{poly}'s default orthogonal polynomials. The variable \vn{type} is a factor with three levels, so it is represented by two dummy regressors defined by the default contrast-generating function in \R{}, \fn{contr.treatment}. Finally, the formula includes an interaction between \vn{income} and \vn{type}, defined by multiplying the regressor for \vn{income} (\lcode{income}) by each of the regressors that represent \vn{type}. The usual numeric summary of the fit of \code{lm1} is a table of estimated coefficients, which we obtain via the \fn{S} function in the \pkg{car} package that is similar to, but somewhat more flexible than, the standard \R{} \fn{summary} function: <<>>= S(lm1) @ \begin{itemize} \item Interpretation of the regression coefficients is straightforward only for the predictor \vn{education}, where an increase of one year of \vn{education}, holding other predictors fixed, corresponds to an estimated expected increase in the response of \Sexpr{round(coef(lm1)[2], 3)} units. \item Even ignoring the interaction, the log transformation complicates the interpretation of the effect of \vn{income}. \item The predictor \vn{women} is represented by two regressors, so the effect of \vn{women} requires examining two coefficient estimates that are interpretable only by those knowledgeable about polynomial regression analysis. Even if raw rather than orthogonal polynomial regressors were used, via \code{poly(women, 2, raw=TRUE)} in place of \code{poly(women, 2)}, interpretation of the effect of \vn{women} is complicated. \item Understanding the coefficients for the main effect of \vn{type} depends on the contrasts used to define the effect. The contrasts can be changed by the user, and the default contrasts in \R{} are different from the default contrasts used by \proglang{SAS} or other programs, so the coefficients cannot be reliably interpreted without information not present in the regression summary. \item Finally, the interaction further complicates the interpretation of the effect of either \vn{income} or \vn{type}, because the interaction coefficients need to be interpreted jointly with the main effect coefficients. \end{itemize} \noindent Summarization of the effects of predictors using tables of coefficient estimates is often incomplete. Effects, and particularly plots of effects, can in many instances reveal the relationship of the response to the predictors more clearly. This conclusion is especially true for models with linear predictors that include interactions and multiple-coefficient terms such as regression splines and polynomials, as illustrated in this vignette. A predictor effect plot summarizes the role of a selected \emph{focal} predictor in a fitted regression model. The \fn{predictorEffect} function is used to compute the appropriate summary of the regression, and then the \fn{plot} function may be used to graph the resulting object, as in the following example: <>= library("effects") e1.lm1 <- predictorEffect("education", lm1) plot(e1.lm1) @ \centerline{\includegraphics[width=4in]{figure/fig11-1.pdf}} \noindent This graph visualizes the partial slope for \vn{education}, that for each year increase in \vn{education}, the fitted \vn{prestige} increases by \Sexpr{round(coef(lm1)[2], 3)} points, when the other predictors are held fixed. The intercept of the line, which is outside the range of \vn{education} on the graph, affects only the height of the line, and is determined by the choices made for averaging over the fixed predictors, but for any choice of averaging method, the slope of the line would be the same. The shaded area is a pointwise confidence band for the fitted values, based on standard errors computed from the covariance matrix of the fitted regression coefficients. The rug plot at the bottom of the graph shows the location of the \vn{education} values. The information that is needed to draw the plot is computed by the \fn{predictorEffect} function. The minimal arguments for \fn{predictorEffect} are the quoted name of a predictor in the model followed by the fitted model object. The essential purpose of this function is to compute fitted values from the model with \vn{education} varying and all other predictors fixed at typical values \citep[Sec.~4.3]{fw19}. The command below displays the values of the regressors for which fitted values are computed, including a column of 1s for the intercept: <<>>= brief(e1.lm1$model.matrix) @ The focal predictor \vn{education} was evaluated by default at 50 points covering the observed range of values of \vn{education}. We use the \fn{brief} function in the \pkg{car} package to show only a few of the 50 rows of the matrix. For each value of \vn{education} the remaining regressors have the same fixed values for each fitted value. The fixed value for \lvn{income} is the logarithm of the sample mean \vn{income}, the fixed values for the regressors for \vn{women} are computed at the mean of \vn{women} in the data, and the fixed values for the regressors for \vn{type} effectively take a weighted average of the fitted values at the three levels of \vn{type}, with weights proportional to the number of cases in each level of the factor. Differences in the fitted values are due to \vn{education} alone because all the other predictors, and their corresponding regressors, are fixed. Thus the output gives the partial effect of \vn{education} with all other predictors fixed. The computed fitted values can be viewed by printing the \class{eff} object returned by \fn{predictorEffect}, by summarizing the object, or by converting it to a data frame. To make the printouts more compact, we recompute the predictor effect of \vn{education} with fewer values of the focal predictor by specifying the \code{focal.levels} argument (see Section~\ref{sec-focal.levels-xlevels}): <<>>= e1a.lm1 <- predictorEffect("education", lm1, focal.levels=5) e1a.lm1 summary(e1a.lm1) as.data.frame(e1a.lm1) @ The values in the column \vn{education} are the values the focal predictor. The remaining columns are the fitted values, their standard errors, and lower and upper end points of 95\% confidence intervals for the fitted values. The \emph{predictor effect plot} is simply a graph of the fitted values on the vertical axis versus the focal predictor on the horizontal axis. For a continuous focal predictor such as \vn{education}, a line, in this case, a straight line, is drawn connecting the fitted values. We turn next to the predictor effect plot for \vn{income}. According to the regression model, the effect of \vn{income} may depend on \vn{type} due to the interaction between the two predictors, so simply averaging over \vn{type} would be misleading. Rather, we should allow both \vn{income} and \vn{type} to vary, fixing the other predictors at their means or other typical values. By default, this computation would require evaluating the model at $50 \times 3 = 150$ combinations of the predictors, but to save space we will only evaluate \vn{income} at five values, again using the \ar{focal.levels} argument, thus computing only $5 \times 3 = 15$ fitted values: <<>>= e2.lm1 <- predictorEffect("income", lm1, focal.levels=5) as.data.frame(e2.lm1) @ To draw the predictor effects plot we recalculate the fitted values using the default \code{focal.levels=50} to get more accurately plotted regression curves: <>= plot(predictorEffect("income", lm1), lines=list(multiline=TRUE)) @ Here we use both the \fn{predictorEffect} and \fn{plot} functions in the same command. \centerline{\includegraphics[width=4in]{figure/fig12-1.pdf}} \noindent The focal predictor \vn{income} is displayed on the horizontal axis. There is a separate line shown for the fitted values at each level of \vn{type}. The lines are curved rather than straight because \vn{income} appears in the model in log-scale but is displayed in the predictor effect plot in arithmetic (i.e., dollar) scale. The lines in the graph are not parallel because of the interaction between \lvn{income} and \vn{type}. For $\vn{type} = \level{prof}$, the fitted values of \vn{prestige} are relatively high for lower values of \vn{income}, and are relatively less affected by increasing values of \vn{income}. The predictor effect plot for \vn{type} uses essentially the same fitted values as the plot for \vn{income}, but we now get five lines, one for each of the five (not 50) values of \vn{income} selected by the \fn{predictorEffect} function in this context: <>= plot(predictorEffect("type", lm1), lines=list(multiline=TRUE)) @ \centerline{\includegraphics[width=4in]{figure/fig13-1.pdf}} \noindent Because the horizontal axis is now a factor, the fitted values are displayed explicitly as points, and the lines that join the points are merely a visual aid representing \emph{profiles} of fitted values. Fitted \vn{prestige} increases with \vn{income} for all levels of \vn{type}, but, as we found before, when $\vn{type}=\level{prof}$, fitted \vn{prestige} is relatively high for lower \vn{income}. These initial examples use only default arguments for \fn{predictorEffect} and \fn{plot}, apart from the \code{multiline} argument to \fn{plot} to put all the fitted lines in the same graph. We explain how to customize predictor effect plots in subsequent sections of this vignette. \subsection{General Outline for Constructing Predictor Effect Plots} Using the \pkg{effects} package to draw plots usually entails the following steps: \begin{enumerate} \item Fit a regression model with a linear predictor. The package supports models created by \fn{lm}, \fn{glm}, \fn{lmer} and \fn{glmer} in the \pkg{lme4} package, \fn{lme} in the \pkg{nlme} package, and many other regression-modeling functions (see \code{?Effect}). \item The regression model created in the first step is then used as input to either \fn{predictorEffect}, to get the effects for one predictor, or \vn{predictorEffects}, to get effects for one or more predictors. These functions do the averaging needed to get fitted values that will ultimately be plotted. There are many arguments for customizing the computation of the effects. The two predictor effect functions call the more basic \fn{Effect} function, and almost all of the material in this vignette applies to \fn{Effect} as well. \item Use the generic \fn{plot} function to draw a graph or graphs based on the object created in Step 2. \end{enumerate} \subsection{How \fn{predictorEffect} Chooses Conditioning Predictors}\label{sec:eff} Suppose that you select a \emph{focal predictor} for which you want to draw a predictor effect plot. The \fn{predictorEffect} function divides the predictors in a model formula into three groups: \begin{enumerate} \item The focal predictor. \item The \emph{conditioning group}, consisting of all predictors with at least one interaction in common with the focal predictor. \item The \emph{fixed group}, consisting of all other predictors, that is, those with no interactions in common with the focal predictor. \end{enumerate} \noindent For simplicity, let's assume for the moment that all of the fixed predictors are numeric. The predictors in the fixed group are all evaluated at \emph{typical values}, usually their means, effectively averaging out the influence of these predictors on the fitted value. Fitted values are computed for all combinations of levels of the focal predictor and the predictors in the conditioning group, with each numeric predictor in the conditioning group replaced by a few discrete values spanning the range of the predictor, for example, replacing years of \vn{education} by a discrete variable with the values 8, 12, and 16 years. Suppose that we fit a model with \R{} formula \begin{equation} \Rmod{y}{x1 + x2 + x3 + x4 + x2:x3 + x2:x4}\label{eq1} \end{equation} or, equivalently, \begin{equation*} \Rmod{y}{x1 + x2*x3 + x2*x4} \end{equation*} There are four predictor effect plots for this model, one for each predictor selected in turn as the focal predictor: \begin{center} \begin{tabular}{ccc}\hline Focal & Conditioning & Fixed\\ Predictor & Group & Group\\ \hline \vn{x1} & none& \vn{x2}, \vn{x3}, \vn{x4} \\ \vn{x2} & \vn{x3}, \vn{x4} & \vn{x1} \\ \vn{x3} & \vn{x2} & \vn{x1}, \vn{x4} \\ \vn{x4} & \vn{x2}& \vn{x1} \vn{x3} \\ \hline \end{tabular} \end{center} \noindent The predictor \vn{x1} does not interact with any of the other predictors, so its conditioning set is empty and all the remaining predictors are averaged over; \vn{x2} interacts with both \vn{x3} and \vn{x4}; \vn{x3} interacts only with \vn{x2}; and \vn{x4} interacts with \code{x2}. \subsection{The \fn{Effect} Function}\label{sec:Effect} Until recently, the primary function in \pkg{effects} for computing and displaying effects was the \fn{Effect} function.\footnote{The \pkg{effects} package also includes the older \fn{allEffects} function, which computes effects for each high-order term in a model with a linear predictor. As we explain in \citet{fw19b}, we prefer predictor effects to high-order term effects, and so, although its use is similar to \fn{predictorEffects}, we won't describe \fn{allEffects} in this vignette. There is also an older \fn{effect} function (with a lowercase ``\code{e}''), which is a less flexible version of \fn{Effect}, and which calls \fn{Effect} to perform computations; \fn{effect} is retained only for backwards comparability.} Whereas the \fn{predictorEffect} function automatically determines the conditioning group and the fixed group of predictors, the \fn{Effect} function puts that burden on the user. The \fn{Effect} function doesn't distinguish between between a focal predictor and conditioning predictors, but rather only between varying (that is, focal \emph{and} conditioning) and fixed predictors. Each call to \fn{predictorEffect} is equivalent to a specific call to the \fn{Effect} function as follows. Suppose that \vn{m} is the fitted model produced by the formula in (\ref{eq1}); then, except for the ways in which the default levels for predictors are determined: \begin{description} \item[] \code{predictorEffect("x1", m)} is equivalent to \code{Effect("x1", m)}; \item[] \code{predictorEffect("x2", m)} is equivalent to \code{Effect(c("x2", "x3", "x4"), m)}; \item[] \code{predictorEffect("x3", m)} is equivalent to \code{Effect(c("x3", "x2"), m)}; and \item[] \code{predictorEffect("x4", m)} is equivalent to \code{Effect(c("x4", "x2"), m)}. \end{description} The \fn{predictorEffect} function determines the correct call to \fn{Effect} based on the choice of focal predictor and on the structure of main effects and interactions in the linear predictor for the model. It then uses the \fn{Effect} function to do the computing. As a result, most of the arguments to \fn{predictorEffect} are documented in \code{help("Effect")} rather than in \code{help("predictorEffect")}. \subsection{The \fn{predictorEffects} Function} This function, whose name ends with the plural ``\code{effects}", computes the values needed for one or more predictor effect plots, and by default for \emph{all} of the predictors in the model. For example, the following command produces all of the predictor effect plots for the model we fit to the \code{Prestige} data: <>= eall.lm1 <- predictorEffects(lm1) plot(eall.lm1) @ \centerline{\includegraphics[width=0.95\textwidth]{figure/fig14-1.pdf}} \noindent The predictor effect plots for this model are displayed in an array of graphs. The plots for \vn{income} and \vn{type} have a separate panel for each level of the conditioning variable because the default argument \ar{lines=list(multiline=FALSE)} was implicitly used. Confidence bounds are shown by default when \ar{multiline=FALSE}. The resulting object \code{eall.lm1} is a list with four elements, where \code{eall.lm1[[1]]} is the summary for the first predictor effect plot, \code{eall.lm1[[2]]} for the second plot, and so on. The following equivalent commands draw the same array of predictor effect plots: <>= plot(eall.lm1) plot(predictorEffects(lm1)) plot(predictorEffects(lm1, ~ income + education + women + type)) @ If you want only the predictor effect plots for \vn{type} and \vn{education}, in that order, you could enter <>= plot(predictorEffects(lm1, ~ type + education)) @ Similarly, the commands <>= plot(predictorEffects(lm1, ~ women)) plot(predictorEffects(lm1)[[2]]) plot(predictorEffect("women", lm1)) @ all produce the same graph, the predictor effect plot for \vn{women}. Predictor effect plots in an array can be a useful shortcut for drawing many graphs quickly, but can lead to problems with the displayed graphs. For example, the horizontal axis labels for the plot for \vn{income} are overprinted, and the labels at the top of the panels for \vn{type} with conditioning variable \vn{income} are larger than the available space. These problems can often be fixed using optional arguments described later in this vignette or by plotting predictor effects individually. \section{Optional Arguments for the \fn{predictorEffect} and \fn{Effect} Functions}\label{sec:peopts} This section comprises a catalog of the arguments available to modify the behavior of the \fn{predictorEffect} and \fn{Effect} functions. These arguments may also be specified to the \fn{predictorEffects} function. The information provided by \code{help("Effect")} is somewhat more comprehensive, if terser, explaining for example exceptions applying to \class{svyglm} objects or for plotting residuals. \subsection{\ar{focal.levels} and \ar{xlevels}: Options for the Values of the Focal Predictor and Predictors in the Conditioning Group}\label{sec-focal.levels-xlevels} Numeric predictors in the conditioning group need to be discretized to draw a predictor effect plot. For example the predictor effect plot for \vn{type} in model \code{lm1} consists of a separate line, or a separate panel, for each discrete value of \vn{income}: <>= e3.lm1 <- predictorEffect("type", lm1) plot(e3.lm1, lines=list(multiline=TRUE)) @ \centerline{\includegraphics[width=4in]{figure/fig21a-1.pdf}} <>= plot(e3.lm1, lines=list(multiline=FALSE)) # the default @ \centerline{\includegraphics[width=4in]{figure/fig21b-1.pdf}} \noindent The numeric conditioning predictor \vn{income} is evaluated by default at five equally spaced values, when are then rounded to ``nice" numbers. Using the three values of 5000, 15000, 25000 for the conditioning predictor \vn{income} in this example produces a simpler graph: <>= e3.lm1 <- predictorEffect("type", lm1, xlevels=list(income=c(5000, 15000, 25000))) plot(e3.lm1, lines=list(multiline=TRUE), confint=list(style="bars")) @ \centerline{\includegraphics[width=4in]{figure/fig22a-1.pdf}} <>= plot(e3.lm1, lines=list(multiline=FALSE), # the default lattice=list(layout=c(3, 1))) @ \centerline{\includegraphics[width=4in]{figure/fig22b-1.pdf}} \noindent The argument \ar{xlevels} is a list of sub-arguments that control how numeric predictors are discretized when used in the conditioning group. For example, \code{xlevels=list(x1=c(2, 4, 7), x2=6)} would use the values 2, 4, and 7 for the levels of the predictor \code{x1}, use 6 equally spaced values for the predictor \code{x2}, and use the default of 5 values for any other numeric conditioning predictors. Numeric predictors in the \emph{fixed} group are not affected by the \ar{xlevels} argument. We use the \ar{layout} sub-argument of the \ar{lattice} argument group to arrange the panels of the second graph in 3 columns and 1 row (see Section~\ref{sec:layout}). See \code{help("plot.eff")} for information on the \ar{quantiles} argument, which provides an alternative method of setting \ar{xlevels} when partial residuals are displayed, as discussed in Section~\ref{sec:res}. The points at which a numeric focal predictor is evaluated is controlled by the \ar{focal.levels} argument. The default of \vn{focal.levels=50} is recommended for drawing graphs, but if the goal is to produce a table of fitted values a smaller value such as \code{focal.levels=5} produces more compact output. The focal predictor can also be set to a vector of particular values, as in \code{focal.levels=c(30, 50, 70)}. Used with the \code{predictorEffects} function, the \ar{focal.levels} argument can be set separately for each focal predictor, similarly to the \ar{xlevels} argument; see \code{help("predictorEffects")}. \subsection{\ar{fixed.predictors}: Options for Predictors in the Fixed Group} Predictors in the fixed group are replaced by ``typical" values of the predictors. Fitted values are then computed using these typical values for the fixed group, varying the values of predictors in the conditioning group and of the focal predictor. The user can control how the fixed values are determined by specifying the \ar{fixed.predictors} argument. This argument takes a list of sub-arguments that allow for controlling each predictor in the fixed group individually, with different rules for factors and numeric predictors. \subsubsection{Factor Predictors}\label{sec:facpred} Imagine computing the fitted values evaluating a fixed factor at each of its levels. The fitted value that is used in the predictor effects plot is a weighed average of these within-level fitted values, with weights proportional to the number of observations at each level of the factor. This is the default approach, and is an appropriate notion of ``typical" for a factor if the data at hand are viewed as a random sample from a population, and so the sample fraction at each level estimates the population fraction. A second approach is to average the level-specific fitted values with equal weights at each level. This may be appropriate, for example, in designed experiments in which the levels of a factor are assigned by an investigator. The latter method is invoked by setting \code{fixed.predictors= list(given.values="equal")}. You can construct other weighting schemes for averaging over the levels of a factor, as described on the help page for the \fn{Effect} function. \subsubsection{Numeric Predictors} For a numeric predictor in the fixed group the default method of selecting a typical value is to apply the \fn{mean} function to the data for the predictor. The specification \code{fixed.predictors= list(typical=median)} would instead use the \fn{median} function; in general, \ar{typical} can be any function that takes a numeric vector as its argument and returns a single number. Other sub-arguments to \ar{fixed.predictors} apply to the use of offsets, and to the \pkg{survey} package; see the help page for the \fn{Effect} function. \subsection{\ar{se} and \ar{vcov.}: Standard Errors and Confidence Intervals}\label{sec:se} Standard errors and confidence intervals for fitted values are computed by default, which corresponds to setting the argument \code{se=list(compute=TRUE, type="pointwise", level=.95)}. Setting \code{se=FALSE} omits standard errors, \ar{type="scheffe"} uses wider Scheff\'{e} intervals that adjust for simultaneous inference, and \code{level=.8}, for example, produces 80\% intervals. Standard errors are based by default on the ``usual" sample covariance matrix of the estimated regression coefficients. You can replace the default coefficient covariance matrix with some other estimate, such as one obtained from the bootstrap or a sandwich coefficient covariance matrix estimator, by setting the \ar{vcov.}~argument either to a function that returns a coefficient covariance matrix, such as \fn{hccm} in the \pkg{car} package for linear models, or to a matrix of the correct size; for example: <>= e4.lm1 <- predictorEffect("education", lm1, se=list(type="scheffe", level=.99), vcov.=hccm) plot(e4.lm1) @ \centerline{\includegraphics[width=4in]{figure/fig23-1.pdf}} \noindent This plot displays 99\% Scheff\'{e} intervals based on a robust coefficient covariance matrix computed by the sandwich method; see \code{help("hccm")}. \subsection{\ar{residuals}: Computing Residuals for Partial Residual Plots} The argument \ar{residuals=TRUE} computes and saves residuals, providing the basis for adding partial residuals to subsequent effect plots, a topic that we discuss in Section~\ref{sec:res}. \section{Arguments for Plotting Predictor Effects}\label{sec:plot} The arguments described in Section~\ref{sec:peopts} are for the \fn{predictorEffect} function or the \fn{Effect} function. Those arguments modify the computations that are performed, such as methods for averaging and fixing predictors, and for computing standard errors. Arguments to the \fn{plot} methods for the predictor effect and effect objects produced by the \fn{predictorEffect} and \fn{Effect} functions are described in this section, and these change the appearance of a predictor effect plot or modify the quantities that are plotted. These optional arguments are described in more detail in \code{help("plot.eff")}. In 2018, we reorganized the \fn{plot} method for effect objects by combining arguments into five major groups of related sub-arguments, with the goal of simplifying the specification of effect plots. For example, the \ar{lines} argument group is a list of sub-arguments for determining line type, color, and width, whether or not multiple lines should be drawn on the same graph, and whether plotted lines should be smoothed. The defaults for these sub-arguments are the choices we generally find the most useful, but they will not be the best choices in all circumstances. The cost of reorganizing the arguments in this manner is the necessity of specifying arguments as lists, some of whose elements are themselves lists, requiring the user to make sure that parentheses specifying the possibly nested lists are properly balanced. In addition to the five argument groups that we describe below, the \fn{plot} method for effect objects accepts the arguments \ar{main} for the main title of the graph and \ar{id} for identifying points in effect plots that include residuals, as discussed in Section~\ref{sec:res}. Finally, the \fn{plot} method for effect objects retains a number of ``legacy" arguments shown in \code{help("plot.eff")}. These arguments have been kept so existing scripts using the \pkg{effects} package would not break, but they are all duplicated as sub-arguments of the five argument groups. The legacy arguments work but they may not be supported forever, so we encourage you to use the newer argument groups and sub-arguments. \subsection{The \ar{axes} Group: Specify Axis Characteristics} The \ar{axes} argument group has two major sub-arguments, \ar{x} for the horizontal axis, \ar{y} for the vertical axis, and two minor sub-arguments, the \ar{grid} argument, which adds a background grid to the plot, and the \ar{alternating} argument, for changing the placement of axis-tick labels in multi-panel plots. \subsubsection{\ar{x}: Horizontal Axis Specification} We introduce another linear model fit to the \code{Prestige} data set to serve as an example: <<>>= lm2 <- lm(log(prestige) ~ log(income) + education + type, Prestige) @ The default predictor effect plot for \vn{income} is <>= plot(predictorEffects(lm2, ~ income)) @ \centerline{\includegraphics[width=4in]{figure/fig30-1.pdf}} \noindent The plot is curved because the predictor \vn{income} is represented by its logarithm in the model formula, but the default predictor effect plot uses the predictor \vn{income}, not the regressor \lvn{income}, on the horizontal axis. The \ar{x} sub-argument can be used transform the horizontal axis, for example to replace \code{income} by \lcode{income}: <>= plot(predictorEffects(lm2, ~ income), axes=list( x=list(income=list(transform=list(trans=log, inverse=exp))) )) @ \centerline{\includegraphics[width=4in]{figure/fig31-1.pdf}} \noindent The transformation changes the scale on the horizontal axis to log-scale, but leaves the tick labels in arithmetic scale, and the graph is now a straight line because of the change to log-scale. This plot has several obviously undesirable features with regard to the range of the horizontal axis and over-printing of tick marks. We show next that additional arguments to \fn{plot} can correct these defects. A more elaborate version of the graph illustrates all the sub-arguments to \ar{x} in \ar{axis} argument group: <>= plot(predictorEffects(lm2, ~ income), main="Transformed Plot", axes=list( grid=TRUE, x=list(rotate=30, rug=FALSE, income=list(transform=list(trans=log, inverse=exp), lab="income, log-scale", ticks=list(at=c(2000, 5000, 10000, 20000)), lim=c(1900, 21000)) ))) @ \centerline{\includegraphics[width=4in]{figure/fig32-1.pdf}} \noindent We use the top-level argument \code{main="Transformed Plot"} to set the title of the plot. The \ar{axes} argument is a list with two sub-arguments, \ar{grid} to turn on the background grid, and \ar{x} to modify the horizontal axis. The \ar{x} sub-argument is itself a list with three elements: The sub-arguments \code{rotate} and \ar{rug} set the rotation angle for the tick labels and suppress the rug plot, respectively. The additional sub-argument is a list called \ar{income}, the name of the focal predictor. If you were drawing many predictor effect plots you would supply one list named for each of the focal predictors. All of the sub-arguments for \ar{income} are displayed in the example code above. The sub-argument \code{transform=list(trans=log, inverse=exp)} specifies how to transform the $x$-axis. The \code{ticks} and \code{lim} sub-arguments set the tick marks and range for the horizontal axis. This is admittedly a complex command, but it allows you to fine-tune the graph to look the way you want. In specifying nested argument lists, you may encounter problems getting the parentheses in the right places. Be careful, indent your code to clarify the structure of the command, and be patient! \subsubsection{\ar{x}: Horizontal Axis Specification for Date Variables} The functions in the \pkg{effects} package, such as \fn{Effect} and \fn{predictorEffect}, support models with numeric, factor, character, and logical predictors. Date predictors must be converted to numeric for these functions to work. We supply the generic function \fn{levels2dates}, with methods for \class{eff} and \class{effpoly} objects, which can be used to properly label the horizontal axes of effect and predictor effect plots by translating numeric dates back to dates for the axis tick-mark labels. \fn{levels2dates} takes several arguments: \begin{description} \item[\ar{effect}] An \class{eff} or \class{effpoly} object, created, e.g., by \fn{Effect} or \fn{predictorEffect}. \item[\ar{predictor}] The quoted name of the numeric version of the date predictor. \item[\ar{origin}] A quoted string giving the origin date (see the examples below). \item[\ar{evenly.spaced}] If \code{TRUE} (the default), the tick marks on the horizontal axis are evenly spaced; if \code{FALSE} the tick marks are taken from the levels of the numeric date predictor in the \class{eff} or \class{effpoly} object. \item[\ar{n}] The number of tick marks; if missing, the number of levels of the predictor in the \class{eff} or \class{effpoly} object. \end{description} Here are some examples: <>= data("airquality", package="datasets") airquality$Date <- with(airquality, as.Date(paste("1973", Month, Day, sep="-"), format="%Y-%m-%d")) airquality$Date.num <- as.numeric(airquality$Date) m1.date <- lm(Ozone ~ Date.num + Solar.R + Wind + Temp, data=airquality) eff.date.1 <- Effect("Date.num", m1.date) plot(eff.date.1, axes=list(x=list(Date.num=list(lab="Date", ticks=list(at=levels2dates(eff.date.1, "Date.num", "1970-01-01"))), rotate=45)), main="Date Effect") @ \centerline{\includegraphics[width=4in]{figure/figdates1-1.pdf}} <>= plot(eff.date.1, axes=list(x=list(Date.num=list(lab="Date", ticks=list(at=levels2dates(eff.date.1, "Date.num", "1970-01-01", n=4))))), main="Date Effect") @ \centerline{\includegraphics[width=4in]{figure/figdates2-1.pdf}} <<>>= eff.date.df <- as.data.frame(eff.date.1) eff.date.df$Date <- as.Date(eff.date.df$Date.num, origin="1970-01-01") eff.date.df @ <>= m2.date <- lm(Ozone ~ Date.num*Temp + Solar.R + Wind, data=airquality) eff.date.2 <- Effect(c("Date.num", "Temp"), m2.date, xlevels=6) plot(eff.date.2, axes=list(x=list(Date.num=list(lab="Date", ticks=list(at=levels2dates(eff.date.2, "Date.num", "1970-01-01", n=3))), rotate=45)), main="Date Effect by Temperature") @ \centerline{\includegraphics[width=6in]{figure/figdates3-1.pdf}} \subsubsection{\ar{y}: Vertical Axis Specification for Linear Models} The model \code{lm2} has a transformed response \lcode{prestige}, and ``untransforming" the response to arithmetic scale may be desirable. This can be accomplished with the \ar{y} sub-argument, which has two sub-arguments named \vn{transform} and \vn{type} that together control the scale and labeling of the vertical axis. There are three options for drawing the predictor effect plot for a numeric response like\linebreak \lvn{prestige}: <>= # default: plot(predictorEffects(lm2, ~ education), main="Default log(prestige)") # Change only tick-mark labels to arithmetic scale: plot(predictorEffects(lm2, ~ education), main="log(prestige), Arithmetic Ticks", axes=list(y=list(transform=list(trans=log, inverse=exp), lab="prestige", type="rescale"))) # Replace log(presige) by prestige: plot(predictorEffects(lm2, ~ education), main="Prestige in Arithmethic Scale", axes=list(y=list(transform=exp, lab="prestige"))) @ \includegraphics[width=.33\textwidth]{figure/fig33-1.pdf} \includegraphics[width=.33\textwidth]{figure/fig33-2.pdf} \includegraphics[width=.33\textwidth]{figure/fig33-3.pdf} \noindent The first plot is the default, with a log-response. In the second plot, the \ar{transform} sub-argument specifies the transformation of the response and its inverse, and the sub-argument \code{type="rescale"} changes the tick marks on the vertical axis to arithmetic scale. In the third version, with \code{transform=exp, lab="prestige"}, the vertical axis now is in arithmetic scale, not log scale, although that may not be completely obvious in the example because $\log(x)$ is nearly linear: Look closely to see that the axis ticks marks in the second graph are unequally spaced, while those in the third graph are equally spaced and the plotted line in the latter is slightly curved. The help page \code{?plot.eff} provides a somewhat more detailed explanation of these options. As a second example we will reconstruct Figure~7.10 in \citet[Sec.~7.2]{fw19}. In that section, we fit a linear mixed-effects model to data from the \code{Blackmore} data frame in the \pkg{carData} package. \code{Blackmore} includes longitudinal data on amount of exercise for girls hospitalized for eating disorders and for similar control subjects who were not hospitalized. We transformed the response variable in the model, hours of \vn{exercise}, using a transformation in a modified Box-Cox power family that allows zero or negative responses, explained briefly by \citet[Sec.~3.4]{fw19} and more thoroughly by \citet{HawkinsWeisberg2017}. The fitted model is <<>>= library("lme4") # for lmer() Blackmore$tran.exercise <- bcnPower(Blackmore$exercise, lambda=0.25, gamma=0.1) mm1 <- lmer(tran.exercise ~ I(age - 8)*group + (I(age - 8) | subject), data=Blackmore) @ This model, with numeric predictor \vn{age} and factor predictor \vn{group}, is a linear mixed model with random intercepts and slopes for \vn{age} that vary by \vn{subject}. The response variable is a transformation of \vn{exercise} similar to the fourth root with adjustment for zero values; see \code{help("bcnPower")}. The predictor effect plot for the fixed effect of \vn{age} is <>= e1.mm1 <- predictorEffect("age", mm1) plot(e1.mm1, lines=list(multiline=TRUE), confint=list(style="auto")) @ \centerline{\includegraphics[width=4in]{figure/fig33a-1.pdf}} \noindent The plot clearly shows the difference in the average \vn{age} trajectory between the \level{control} and \level{patient} groups, with the fitted response for the latter having a larger slope. The graph is hard to decode, however, because the vertical axis is approximately in the scale of the fourth-root of hours of exercise, so untransforming the response may produce a more informative plot. Because the \fn{bcnPower} transformation is complex, the \pkg{car} package includes the function \fn{bcnPowerInverse} to reverse the transformation: <>= f.trans <- function(x) bcnPower(x, lambda=0.25, gamma=0.1) f.inverse <- function(x) bcnPowerInverse(x, lambda=0.25, gamma=0.1) plot(e1.mm1, lines=list(multiline=TRUE), confint=list(style="auto"), axes=list(x=list(age=list(lab="Age (years)")), y=list(transform=list(trans=f.trans, inverse=f.inverse), type="response", lab="Exercise (hours/week)")), lattice=list(key.args=list(x=.20, y=.75, corner=c(0, 0), padding.text=1.25)), main="" ) @ \centerline{\includegraphics[width=4in]{figure/fig33b-1.pdf}}\label{corner} \noindent The response scale is now in hours per week, and we see that hours of exercise increase more quickly on average in the patient group for older subjects. We use additional arguments in this plot to match \citet[Fig.~7.10]{fw19}, including moving the key inside of the graph (see Section~\ref{sec:key}), changing the axis labels, and removing the main title to the plot.\footnote{The code shown for this graph in \cite{fw19} uses ``legacy'' arguments, and is therefore somewhat different from the code given here. Both commands produce the same plot, however.} \subsubsection{\ar{y}: Vertical Axis Specification for Generalized Linear Models} Transforming the vertical axis for generalized linear models also uses the \ar{y} sub-argument to the \ar{axes} argument. You typically do not need to specify the \ar{transform} sub-argument because \fn{plot} obtains the right functions from the regression model's \ar{family} component. The \ar{type} sub-argument has the same three possible values as for linear models, but their interpretation is somewhat different: \begin{enumerate} \item Predictor effect plots in \code{type="link"} scale have a predictor on the horizontal axis and the vertical axis is in the scale of the linear predictor. For logistic regression, for example, the vertical axis is in log-odds (logit) scale. For Poisson regression with the log-link, the vertical axis is in log-mean (log-count) scale. \item Predictor effect plots in \code{type="response"} or mean scale are obtained by ``untransforming" the $y$ axis using the inverse of the link function. For the log-link, this corresponds to transforming the $y$ axis and plotting $\exp(y)$. For logistic regression, $y = \log[p/(1-p)]$ and, solving for $p$, $p=\exp(y)/[1+\exp(y)] = 1/[1 + \exp(-y)]$, so the plot in mean scale uses $1/[1+\exp(-y)]$ on the vertical axis. \item We also provide a third option, \code{type="rescale"}, which plots in linear predictor (e.g., logit) scale, but labels the tick marks on the vertical axis in mean (e.g., probability) scale. This third option, which retains the linear structure of the model but labels the vertical axis on the usually more familiar mean scale, is the default. \end{enumerate} We use the \code{Blowdown} data from the \pkg{alr4} package to provide examples. These data concern the probability of \emph{blowdown} \vn{y}, a tree being uprooted as the result of a major straight-line wind storm in the Boundary Waters Canoe Area Wilderness in 1999, modeled as a function of the diameter \code{d} of the tree, the local severity \code{s} of the storm, and the species \code{spp} of the tree. We fit a main-effects model and then display all three predictor effect plots: <<>>= data("Blowdown", package="alr4") gm1 <- glm(y ~ log(d) + s + spp, family=binomial, data=Blowdown) @ <>= plot(predictorEffects(gm1), axes=list(grid=TRUE, x=list(rug=FALSE, rotate=35))) @ \centerline{\includegraphics[width=.9\textwidth]{figure/fig34-1.pdf}} \noindent The \ar{rug=FALSE} sub-argument to \ar{x} suppresses the rug plot that appears by default at the bottom of graphs for numeric predictors, and the \ar{grid} sub-argument to \ar{axes} adds background grids. The \ar{rotate} sub-argument prints the horizontal tick labels at an angle to avoid overprinting. Interpretation of GLM predictor effect plots in link scale is similar to predictor effect plots for linear models, and all the modifications previously described can be used for these plots. Because the default is \code{type="rescale"}, the vertical axis is in linear predictor scale, which is the log-odds or logit for this logistic regression example, but the vertical axis labels are in mean (probability) scale, so the tick-marks are not equally spaced. The next three graphs illustrate the possible values of the argument \ar{type}: <>= e1.gm1 <- predictorEffect("spp", gm1) plot(e1.gm1, main="type='rescale'", axes=list(y=list(type="rescale", lab="logit scale, probability labels"), x=list(rotate=30), grid=TRUE)) plot(e1.gm1, main="type='link'", axes=list(y=list(type="link", lab="logit scale, logit labels"), x=list(rotate=30), grid=TRUE)) plot(e1.gm1, main="type='response'", axes=list(y=list(type="response", grid=TRUE, lab="probabilty scale, probability labels"), x=list(rotate=30), grid=TRUE)) @ \includegraphics[width=.33\textwidth]{figure/fig35-1.pdf} \includegraphics[width=.33\textwidth]{figure/fig35-2.pdf} \includegraphics[width=.33\textwidth]{figure/fig35-3.pdf} \noindent The first two graphs show the same plot, but in the first the tick-marks on the vertical axis are unequally spaced and are in probability scale, while in the second the tick-marks are equally spaced and are in log-odds scale. In the third graph, the vertical axis has been transformed to probability scale, and the corresponding tick-marks are now equally spaced. The predictor effects plot for species would be easier to understand if the levels of the factor were ordered according to the estimated log-odds of blowdown. First, we need to recover the fitted values in link scale, which are log-odds of blowdown for a logistic model. The fitted log-odds are stored in \code{as.data.frame(e1.gm1)\$fit} using the \code{e1.gm1} object previously computed: <>= or <- order(as.data.frame(e1.gm1)$fit) # order smallest to largest Blowdown$spp1 <- factor(Blowdown$spp, # reorder levels of spp levels=levels(Blowdown$spp)[or]) gm2 <- update(gm1, ~ . - spp + spp1) # refit model plot(predictorEffects(gm2, ~ spp1), main="type='response', ordered", axes=list(y=list(type="response", lab="probabilty scale, probability labels"), x=list(rotate=30, spp=list(lab="Species")), grid=TRUE)) @ \centerline{\includegraphics[width=.55\textwidth]{figure/fig36-1.pdf}} \noindent The separation of species into two groups of lower and higher probability species is reasonably clear after ordering, with paper birch more susceptible to blowdown than the other species and possibly in a group by itself. \subsection{The \ar{lines} Group: Specifying Plotted Lines} The \ar{lines} argument group allows the user to specify the color, type, thickness, and smoothness of lines. This can be useful, for example, if the colors used by \pkg{effects} by default are for some reason unacceptable, such as for publications in which only black or gray-scale lines are permitted. The most common use of this argument group is to allow more than one line to be plotted on the same graph or panel via the \ar{multiline} sub-argument. \subsubsection{\ar{multiline} and \ar{z.var}: Multiple Lines in a Plot} Default predictor effect plots with conditioning predictors generate a separate plot for each level of the conditioning variable, or for each combination of levels if there is more than one conditioning variable. For an example, we add the \code{log(d):s} interaction to the model \code{gm1}, and generate the predictor effect plots for \vn{s} and for \vn{d}: <>= gm3 <- update(gm2, ~ . + s:log(d)) # add an interaction plot(predictorEffects(gm3, ~ s + d), axes=list(x=list(rug=FALSE, rotate=90), y=list(type="response", lab="Blowdown Probability")), lattice=list(layout=c(1, 5))) @ \centerline{\includegraphics[width=0.75\textwidth]{figure/fig37-1.pdf}} \noindent Setting the sub-argument \code{type="response"} for the \ar{y} axis plots the response on the probability scale. Setting \code{layout=c(1, 5)} arranges each predictor effect plot in 1 column of 5 rows. See the description of the \ar{lattice} argument in Section~\ref{sec:lattice}. The predictor effect plot for \vn{s} conditions on the level of \vn{d}, and displays the plot of the fitted values for \vn{y} versus \vn{s} in a separate panel for each value of \vn{d}. Similarly, the predictor effect plot for \vn{d} displays a separate panel for each conditioning level of \vn{s}. Confidence bands are displayed by default around each fitted line. These two graphs are based on essentially the same fitted values, with the values of the interacting predictors \vn{s} and \vn{d} varying, and fixing the factor predictor \vn{spp} to its distribution in the data, as described in Section~\ref{sec:facpred}. Concentrating on the graph at the right for the focal predictor \vn{d}, when \vn{s} is very small the probability of blowdown is estimated to be in the range of about .05 to .3 for any value of \vn{d}, but for larger values of \vn{s}, the probability of blowdown increases rapidly with \vn{d}. Similar comments can be made concerning the predictor effect plot for \vn{s}. Setting \code{multiline=TRUE} superimposes the lines for all the conditioning values in a single graph. In the example below, we reduce the number of levels of the conditioning variable for each predictor effect plot to three explicit values each to produce simpler graphs, although this is not required. The \ar{xlevels} argument changes the number of levels for the conditioning predictors, but does not affect the number of levels for the focal predictor. This latter quantity could be changed with the \ar{focal.levels} argument, but the default value of 50 evaluations is appropriate for graphing effects. <>= plot(predictorEffects(gm3, ~ s + d, xlevels=list(d=c(5, 40, 80), s=c(0.1, 0.5, 0.9))), axes=list(grid=TRUE, x=list(rug=FALSE), y=list(type="response", lab="Blowdown probability")), lines=list(multiline=TRUE)) @ \centerline{\includegraphics[width=\textwidth]{figure/fig38-1.pdf}} \noindent In each graph, we kept, more or less, the lowest, middle, and highest values of the conditional predictor for the interaction. We also added a grid to each graph. Multiline plots by default omit confidence bands or intervals, but these can be included using the \ar{confint} argument discussed in Section~\ref{sec:confint}. By default, different values of the conditioning predictor are distinguished by color, and a key is provided. The placement and appearance of the key are controlled by the \ar{key.args} sub-argument in the \ar{lattice} group discussed in Section~\ref{sec:key}. When the conditioning group includes two or more predictors, and certainly when it includes three or more predictors, multiline plots are almost always helpful because otherwise the resulting array of panels becomes too complicated. Suppose that we add the \code{spp:log(d)} interaction to the illustrative model. The predictor effect plot for \vn{d} now includes both \vn{s} and \vn{spp} in the conditioning set because \vn{d} interacts with both of these predictors: <>= gm4 <- update(gm3, ~ . + spp:log(d)) plot(predictorEffects(gm4, ~ d, xlevels=list(s=c(0.1, 0.5, 0.9))), axes=list(grid=TRUE, y=list(type="response"), x=list(rug=FALSE)), lines=list(multiline=TRUE)) @ \centerline{\includegraphics[width=\textwidth]{figure/fig39-1.pdf}} \noindent This plot now displays the lines for all conditioning values of \vn{s} within the panel for each level of the conditioning factor \vn{spp}. Compare this graph to the much more confusing plot in which different lines are drawn for the nine levels of the conditioning factor \vn{spp}, obtained by using the \ar{z.var} sub-argument in the \ar{lines} group: <>= plot(predictorEffects(gm4, ~ d, xlevels=list(s=c(0.1, 0.5, 0.9))), axes=list(grid=TRUE, y=list(type="response"), x=list(rug=FALSE)), lines=list(multiline=TRUE, z.var="spp", lty=1:9), lattice=list(layout=c(3, 1))) @ \centerline{\includegraphics[width=.7\textwidth]{figure/fig310-1.pdf}} \noindent The \ar{z.var} sub-argument for \ar{lines} selects the predictor that determines the lines within a panel and the remaining predictors, here just \vn{s}, distinguish the panels. The default choice of \ar{z.var} is usually, but not always, appropriate. We also use the \ar{lattice} argument to display the array of panels in 3 columns and 1 row, and differentiate the lines by line type and color using arguments discussed next. \subsubsection{\ar{col}, \ar{lty}, \ar{lwd}, \ar{spline}: Line Color, Type, Width, Smoothness}\label{sec:line.color.etc} Different lines in the same plot are differentiated by default using color. This can be modified by the sub-arguments \ar{lty}, \ar{lwd} and \ar{col} to set line types, widths, and colors, respectively. For example, in the last graph shown you can get all black lines of different line types using \code{lines=list(multiline=TRUE, col="black", lty=1:9)}, or using a gray scale, \code{lines=}\linebreak \code{list(multiline=TRUE, col=gray((1:9)/10))}. The \fn{plot} method for effect objects by default uses smoothing splines to interpolate between plotted points. Smoothing can be turned off with \code{splines=FALSE} in the \ar{lines} argument, but we rarely expect this to be a good idea. The number of values at which the focal predictor is evaluated is set with the \ar{focal.levels} argument, and it defaults to 50. In any case, more than three evaluations, and possibly many more, should be used for a reasonable spline approximation. \subsection{The \ar{confint} Group: Specifying Confidence Interval Inclusion and Style}\label{sec:confint} The \ar{confint} argument group controls the inclusion and appearance of confidence intervals and regions. This argument has three sub-arguments. The \ar{style} sub-argument is either \code{"bars"}, for confidence bars, typically around the estimated adjusted mean for a factor level; \code{"bands"}, for shaded confidence bands, typically for numeric focal predictors; \code{"auto"}, to let the program automatically choose between \code{"bars"} and \code{"bands"}; \code{"lines"}, to draw only the edges of confidence bands with no shading; or \code{"none"}, to suppress confidence intervals. The default is \code{"auto"} when \code{multiline=FALSE} and \code{"none"} when \code{multiline=TRUE}. Setting \code{confint="auto"} produces bars for factors and bands for numeric predictors. For example: <>= plot(predictorEffects(gm3, ~ d, xlevels=list(s=c(0.1, 0.5, 0.9))), axes=list(grid=TRUE, x=list(rug=FALSE), y=list(type="response")), lines=list(multiline=TRUE), confint=list(style="auto")) @ \centerline{\includegraphics[width=.5\textwidth]{figure/fig311-1.pdf}} \noindent In this example the confidence bands are well separated, so including them in a multiline graph isn't problematic; in other cases, overlapping confidence bands produce an artistic but uninterpretable mess. With a factor focal predictor, we get: <>= gm5 <- update(gm2, ~ . + spp:s) plot(predictorEffects(gm5, ~ spp, xlevels=list(s=c(0.1, 0.5, 0.9))), axes=list(grid=TRUE, y=list(type="response"), x=list(rug=FALSE, rotate=30)), lines=list(multiline=TRUE), confint=list(style="auto")) @ \centerline{\includegraphics[width=.75\textwidth]{figure/fig312-1.pdf}} \noindent The error bars for the various levels of \vn{s} are slightly staggered to reduce over-plotting. Two additional arguments, \vn{col} and \vn{alpha}, control respectively the color of confidence bars and regions and the transparency of confidence regions. Users are unlikely to need these options. Finally, the type of confidence interval shown, either pointwise or Scheff\'{e} corrected for multiple comparisons, is controlled by the \ar{se} argument to the \fn{predictorEffect} or \fn{Effect} function (see Section~\ref{sec:se}). \subsection{The \ar{lattice} Group: Specifying Standard \textbf{lattice} Package Arguments}\label{sec:lattice} The \fn{plot} methods defined in the \pkg{effects} package use functions in the \pkg{lattice} package \citep{sarkar08}, such as \fn{xyplot}, to draw effect plots, which often comprise rectangular arrays of panels. In particular, the \fn{plot} method for the \class{eff} objects returned by the \fn{Effect} function are \class{trellis} objects, which can be manipulated in the normal manner. ``Printing'' a returned effect-plot object displays the plot in the current \R{} graphics device. The \ar{lattice} group of arguments to the \fn{plot} method for effect objects may be used to specify various standard arguments for \pkg{lattice} graphics functions such as \fn{xyplot}. In particular, you can control the number of rows and columns when panels are displayed in an array, modify the key (legend) for the graph, and specify the contents of the ``strip" displayed in the shaded region of text above each panel in a \pkg{lattice} array. In addition, the \ar{array} sub-argument, for advanced users, controls the layout of multiple predictor effect plots produced by the \fn{predictorEffects} function. \subsubsection{\ar{key.args}: Modifying the Key}\label{sec:key} A user can modify the placement and appearance of the key with the \ar{key.args} sub-argument, which is itself a list. For example: <>= plot(predictorEffects(gm5, ~ spp, xlevels=list(s=c(0.1, 0.5, 0.9))), rug=FALSE, axes=list(grid=TRUE, y=list(type="response"), x=list(rotate=30)), lines=list(multiline=TRUE), confint=list(style="auto"), lattice=list(key.args=list(space="right", columns=1, border=TRUE, fontfamily="serif", cex=1.25, cex.title=1.5))) @ \centerline{\includegraphics[width=.99\textwidth]{figure/fig314-1.pdf}} \noindent The sub-argument \code{space="right"} moves the key to the right of the graph, overriding the default \code{space="top"}. Alternatively the key can be placed inside the graph using the \ar{x}, \ar{y}, and \ar{corner} sub-arguments, as illustrated in the graph on page~\pageref{corner}. The choices for \ar{fontfamily} are \code{"sans"} and \code{"serif"}, and affect only the key; the rest of the plot uses \code{"sans"}. The sub-arguments \ar{cex} and \ar{cex.title} control the relative sizes of the key entries and the key title, respectively. Finally, any argument documented in \code{help("xyplot")} in the \code{key} section can be set with this argument. If you use the default \code{space="top"} for placement of the key, you may wish to adjust the number of columns in the key, particularly if the level names are long. \subsubsection{\ar{layout}: Controlling Panel Placement}\label{sec:layout} The \ar{layout} sub-argument to the \ar{lattice} argument allows a user to customize the layout of multiple panels in a predictor effect plot; for example: <>= plot(predictorEffects(gm3, ~ s + d, xlevels=list(s=6, d=6)), axes=list(x=list(rug=FALSE, rotate=90), y=list(ticks=list(at=c(.999, .99, .95, .8, .5, .2, .05)))), lattice=list(layout=c(3, 2))) @ \centerline{\includegraphics[width=\textwidth]{figure/fig313-1.pdf}} \noindent Here, the \ar{layout} sub-argument specifies an array of 3 columns and 2 rows for each of the predictor effect plots. \subsubsection{\ar{array}: Multiple Predictor Effect Plots}\label{sec:array} If you create several predictor effect objects with the \fn{predictorEffects} function, the \fn{plot} method for the resulting \class{predictorefflist} object divides the \pkg{lattice} graphics device into a rectangular array of sub-plots, so that the individual predictor effect plots, each potentially with several panels, are drawn without overlapping. An alternative is for the user to generate the predictor effect plots separately, subsequently supplying the \ar{array} sub-argument to \fn{plot} directly to create a custom meta-array of predictor effect plots; this argument is ignored, however, for \class{predictorefflist} objects produced by \fn{predictorEffects}. Suppose, for example, that we want to arrange the two predictor effect plots for the previous example vertically rather than horizontally. One way to do that is to save the object produced by \fn{predictorEffects} and to plot each of its two components individually, specifying the \ar{position} or \ar{split} and \ar{more} arguments to the \fn{print} method for \class{trellis} objects: see \code{help("print.trellis")}. Another approach is to generate the plots individually using \fn{predictorEffect} and to specify the \ar{array} sub-argument to \fn{plot}, as follows: <>= plot(predictorEffect("s", gm3, xlevels=list(d=6)), axes=list(x=list(rug=FALSE, rotate=90), y=list(ticks=list(at=c(.999, .99, .95, .8, .5, .2, .05)))), lattice=list(layout=c(3, 2), array=list(row=1, col=1, nrow=2, ncol=1, more=TRUE))) plot(predictorEffect("d", gm3, xlevels=list(s=6)), axes=list(x=list(rug=FALSE, rotate=90), y=list(ticks=list(at=c(.999, .99, .95, .8, .5, .2, .05)))), lattice=list(layout=c(3, 2), array=list(row=2, col=1, nrow=2, ncol=1, more=FALSE))) @ \centerline{\includegraphics[width=.65\textwidth]{figure/fig313b-1.pdf}} \noindent In each case, the \ar{row} and \ar{col} sub-arguments indicate the position of the current graph in the meta-array; \ar{nrow} and \ar{ncol} give the dimensions of the meta-array, here 2 rows and 1 column; and \ar{more} indicates whether there are more elements of the meta-array after the current graph. \subsubsection{\ar{strip}: Modifying the Text at the Tops of Panels}\label{sec:strip} Lattice graphics with more than one panel typically provide a text label at the top of each panel in an area called the \emph{strip}. The default strip text contains the name of the conditioning predictor and the value to which it is set in the panel; if there are more than one conditioning predictor, then all of their names and corresponding values are shown. For example: <>= plot(predictorEffects(gm4, ~ d, xlevels=list(s=c(0.1, 0.5, 0.9))), axes=list(grid=TRUE, x=list(rug=FALSE), y=list(type="response")), lines=list(multiline=TRUE, z.var="spp", lty=1:9), lattice=list(layout=c(3, 1), strip=list(factor.names=TRUE, values=TRUE, cex=1.5))) @ \centerline{\includegraphics[width=.85\textwidth]{figure/fig316-1.pdf}} \noindent Setting \code{factor.names=FALSE} (the default is \code{TRUE}) displays only the value, and not the name, of the conditioning predictor in each strip; usually, this is desirable only if the name is too long to fit, in which case you may prefer to rename the predictor. Setting \code{values=FALSE} replaces the conditioning value with a line in the strip that represents the value: The line is at the left of the strip for the smallest conditioning value, at the right for the largest value, and in a proportional intermediate position in between the two extremes. The most generally useful sub-argument is \ar{cex}, which allows you to reduce or expand the relative size of the text in the strip, in this case increasing the size to 150\% of standard size. \subsection{\ar{symbols}: Plotting symbols} Symbols are used to represent adjusted means when the focal predictor is a factor. You can control the symbols used and their relative size: <>= gm5 <- update(gm2, ~ . + spp:s) plot(predictorEffects(gm5, ~ spp, xlevels=list(s=c(0.1, 0.5, 0.9))), symbols=list(pch=15:17, cex=1.5), axes=list(grid=TRUE, y=list(type="response"), x=list(rotate=30)), lines=list(multiline=TRUE), confint=list(style="auto"), lattice=list(key.args=list(cex=1.5, cex.title=1.5))) @ \centerline{\includegraphics[width=.95\textwidth]{figure/fig315-1.pdf}} \noindent We use the \ar{pch} sub-argument to set the symbol number for plotted symbols; you can enter the commands \code{plot(1:25, pch=1:25)} and \code{lines(1:25, lty=2, type="h")} to see the 25 plotting symbols in \R{}. The sub-argument \ar{pch} can also be a character vector, such as \code{letters[1:10]}. In this example, we set \code{cex=1.5} to increase the symbol size by the factor 1.5. Because only one value is given, it is recycled and used for all of the symbols. We need to change the size of the symbols in the key separately, as we do here via the \ar{key.args} sub-argument to the \ar{lattice} argument (see Section~\ref{sec:key}). \section{Displaying Residuals in Predictor Effect Plots}\label{sec:res} \citet{fw19b} introduce methodology for adding partial residuals to a predictor effect or effect plot. This can be desirable to display variation in data around a fitted partial regression surface or to diagnose possible lack of fit, as the resulting plots are similar to traditional component-plus-residual plots \citep[Sec.~8.4]{fw19}. The predictor effect plot for a numeric focal predictor that does not interact with other predictors is equivalent to a standard component-plus-residual plot; for example: <>= lm5 <- lm(prestige ~ log(income) + education + women + type, Prestige) plot(predictorEffects(lm5, residuals=TRUE), axes=list(grid=TRUE, x=list(rotate=30)), partial.residuals=list(smooth=TRUE, span=0.75, lty="dashed")) @ \centerline{\includegraphics[width=.99\textwidth]{figure/fig51-1.pdf}} \noindent The partial residuals to be plotted are computed using the \ar{residuals} argument to the \fn{predictorEffect}, \fn{predictorEffects}, or \fn{Effect} function. For the numeric predictors \vn{income}, \vn{education}, and \vn{women}, the plotted points are each equal to a point on the fitted blue line, representing the partial fit, plus the corresponding residual. For \vn{income}, the fitted partial-regression line in curved because of the log transformation of the predictor, but the partial-regression function is a straight line for the other two numeric predictors. The dashed line produced by \code{lty="dashed"} in the same magenta color as the plotted points on the graph, is a loess nonparametric-regression smooth of the points. The sub-argument \code{smooth=TRUE} is the default if residuals are present in the effect object to be plotted. The sub-argument \code{span=0.75} adjusts the span of the loess smoother from the default of \code{2/3}---an unnecessary adjustment here specified simply to illustrate how to set the span. If the model adequately represents the data, then the dashed magenta line should approximately match the solid blue partial-regression line, which represents the fitted model. For the factor \vn{type}, the points are jittered horizontally to separate them visually, because the only possible horizontal coordinates are at the three distinct factor levels. Smooths are not fit to factors and instead the conditional means of the partial residuals are plotted as solid magenta dots; in the current model, the magenta dots and the blue dots representing the fitted adjusted means of the response at the levels of \vn{name} necessarily match. The \fn{plot} method for effect objects has a \ar{partial.residuals} argument, with several sub-arguments that control how partial residuals are displayed. In the command above, we used the sub-argument \vn{smooth=TRUE} to add the smoother, which is the default when residuals are included in the effect object, and \ar{lty="dashed"} to change the line type for the smooth from the default solid line to a dashed line. All the \vn{smooth} sub-arguments are described in \code{help("plot.eff")}. For a second example, we fit a linear model with an interaction to the \code{UN} data set in the \pkg{carData} package, modelling national \vn{infantMortality} rate (infant deaths per 1000 live births) as a function of \vn{ppgdp}, per person GDP (in U.S.~dollars), and country \vn{group} (OECD nations, African nations, and other nations). The data are for roughly 200 nations of the world and are from approximately 2009 to 2011: <>= options(scipen=10) # suppress scientific notation lm6 <- lm(infantMortality ~ group*ppgdp, data=UN) plot(predictorEffects(lm6, ~ ppgdp, partial.residuals=TRUE), axes=list(x=list(rotate=25), y=list(lim=c(0, 150))), id=list(n=1), lattice=list(layout=c(3, 1))) @ \centerline{\includegraphics[width=.99\textwidth]{figure/fig52-1.pdf}} \noindent The predictor effect plot for \vn{ppgdp} conditions on the factor \ar{group} because of the interaction between these two predictors. Several problems are apparent in this plot: The \ar{id} argument is used to identify the most unusual point in each panel, as described in detail in \code{help("plot.eff")}. Turkey has higher than predicted infant mortality for the \level{oecd} group; Afghanistan, in the \level{other} group, has infant mortality much higher than predicted; and Equatorial Guinea is clearly unusual for the \level{africa} group. In addition, the smooths through the points do not match the fitted lines in the \level{other} and \level{africa} groups. We use the command \code{options(scipen=10)} to suppress annoying scientific notation in the tick-mark labels on the horizontal axis, and instead rotate these labels so that they fit without over-plotting. Log-transforming both the predictor \vn{ppgdp} and the response \vn{infantMortality} produces a better fit to the data: <>= lm7 <- lm(log(infantMortality) ~ group*log(ppgdp), data=UN) plot(predictorEffects(lm7, ~ ppgdp, partial.residuals=TRUE), axes=list(x=list(rotate=25)), id=list(n=1), lattice=list(layout=c(3, 1))) @ \centerline{\includegraphics[width=.99\textwidth]{figure/fig53-1.pdf}} \noindent Equatorial Guinea is still anomalous, however. Rescaling the vertical axis to arithmetic scale produces a slightly different, but possibly useful, picture: <>= plot(predictorEffects(lm7, ~ ppgdp, partial.residuals=TRUE), axes=list(x=list(rotate=25), y=list(transform=list(trans=log, inverse=exp), type="response", lab="Infant Mortality")), id=list(n=1), lattice=list(layout=c(3, 1))) @ \centerline{\includegraphics[width=.99\textwidth]{figure/fig54-1.pdf}} Partial residuals can be added to effect plots for linear or generalized linear models in the default link scale, and to effect plots for linear or generalized linear mixed models. \subsection{Using the \fn{Effect} Function With Partial Residuals} In most instances, predictor effect plots produced by \fn{predictorEffect} or \fn{predictorEffects} visualize a fitted model in the most natural manner, but sometimes in looking for lack of fit, we want to plot against arbitrary combinations of predictors. The more general \fn{Effect} function is capable of doing that. Recall, for example, the additive model \code{lm2} fit to the \code{Prestige} data: <<>>= S(lm2) @ Plotting partial residuals for the predictors \vn{income} and \vn{type} simultaneously reveals an unmodeled $\vn{income} \times \vn{type}$ interaction: <>= plot(Effect(c("income", "type"), lm2, residuals=TRUE), axes=list(x=list(rotate=30)), partial.residuals=list(span=0.9), layout=c(3, 1)) @ \centerline{\includegraphics[width=0.85\textwidth]{figure/fig55-1.pdf}} \section{Polytomous Categorical Responses} The \pkg{effects} package produces special graphs for ordered and unordered polytomous categorical response variables. In an ordinal regression, the response is an ordered categorical variable with three or more levels. For example, in a study of women's labor force participation that we introduce below, the response is not working outside the home, working part time, or working full time. The proportional-odds model \citep[Sec.~6.9]{fw19} estimates the probability of a response in each of these three categories given a linear combination of regressors defined by a set of predictors, assuming a logit link function. We illustrate the proportional-odds model with the \code{Womenlf} data set in the \pkg{carData} package, for young married Canadian women's labor-force participation, using the \fn{polr} function in the \pkg{MASS} package to fit the model: <<>>= library("MASS") # for polr() Womenlf$partic <- factor(Womenlf$partic, levels=c("not.work", "parttime", "fulltime")) # order response levels or1 <- polr(partic ~ log(hincome) + children, data=Womenlf) S(or1) @ The response variable \code{partic} initially has its levels in alphabetical order, which does not correspond to their natural ordering. We therefore start by reordering the levels to increase from \level{not.work}, to \level{parttime} work, to \level{fulltime} work. The predictors are the numeric variable \vn{hincome} (husband's income), which enters the model in log-scale, and the dichotomous factor \vn{children}, presence of children in the household. The model summary is relatively complex, and is explained in \citet[Sec.~6.9]{fw19}. Predictor effect plots greatly simplify interpretation of the fitted model: <>= plot(predictorEffects(or1), axes=list(grid=TRUE), lattice=list(key.args=list(columns=1))) @ \centerline{\includegraphics[width=.9\textwidth]{figure/fig41-1.pdf}} \noindent Unlike predictor effect plots for generalized linear models, the default scaling for the vertical axis is the probability scale, equivalent to \code{axes=list(y=list(type="response"))} for a GLM, and the alternative is \code{axes=list(y=list(type="logit"))}, which is analogous to \code{type="link"} for a GLM.\footnote{The logits plotted, however, correspond to the individual-level probabilities and are not the ordered logits in the definition of the proportional-odds model.} Confidence bands are present by default, unless turned off with the argument \code{confint=list(style="none")}. Numeric focal predictors are by default evaluated at 50 points. The plot for \vn{hincome} suggests high probability of full-time work if husband's income is low, with the probability of full-time work sharply decreasing to about \$15,000 and then nearly leveling off at about .1 to .2. The probability of not working rapidly increases with husband's income, while the probability of working part time is fairly flat. A similar pattern is apparent for children present in the home, with full-time work much less prevalent and not working much more prevalent when children are present than when they are absent. \emph{Stacked area plots} are sometimes more useful for examining polytomous response models; for example: <>= plot(predictorEffects(or1), axes=list(grid=TRUE, y=list(style="stacked")), lattice=list(key.args=list(columns=1))) @ \centerline{\includegraphics[width=.95\textwidth]{figure/fig62-1.pdf}} \noindent For each fixed value on the horizontal axis, the vertical axis ``stacks" the probabilities in the three response categories. For example, with children absent from the household and \vn{hincome} set to its mean, nearly 30\% of women did not work outside the home, about 20\% worked part time, and the remaining approximate 50\% worked full time. Some ordinal-response models produced by the functions \fn{clm}, \fn{clm2}, and \fn{clmm} in the \pkg{ordinal} package can be used with the \pkg{effects} package. To work with model objects produced by these functions, you must also load the \pkg{MASS} package. The \pkg{effects} package can also draw similar graphs for the more general multinomial logit model, in which the polytomous categorical response has unordered levels \citep[see][Sec.~6.7]{fw19}. The details of the model, its parameters, and its assumptions are different from those of the proportional-odds model and other ordered-response models, but predictor effect plots for these models are similar. As an example, we use the \code{BEPS} data set in the \pkg{carData} package, consisting of about 1,500 observations from the 1997-2001 British Election Panel Study. The response variable, \vn{vote}, is party choice, one of \level{Liberal Democrat}, \level{Labour}, or \level{Conservative}. There are numerous predictors of \vn{vote} in the data set, and we fit the model <<>>= library("nnet") # for multinom() mr1 <- multinom(vote ~ age + gender + economic.cond.national + economic.cond.household + Blair + Hague + Kennedy + Europe*political.knowledge, data=BEPS) @ There are nine predictors, seven of which are scales with values between 0 and 5 concerning respondents' attitudes; these predictors enter the model as main effects. The remaining two predictors are scales between 0 and 3 for \code{political.knowledge} and between 1 and 11 for \code{Europe} (attitude toward European integration of the UK in the European Union, with high values representing ``Euroscepticism'', a \emph{negative} attitude toward Europe); these predictors enter the model with a two-factor interaction. Drawing all nine predictor effect plots simultaneously is not a good idea because the plots won't fit reasonably in a single display. We therefore draw only a few of the plots at a time: <>= plot(predictorEffects(mr1, ~ age + Blair + Hague + Kennedy), axes=list(grid=TRUE, x=list(rug=FALSE)), lattice=list(key.args=list(columns=1)), lines=list(multiline=TRUE, col=c("blue", "red", "orange"))) @ \centerline{\includegraphics[width=.9\textwidth]{figure/fig42-1.pdf}} \noindent We use optional arguments to get a multiline plot, with a grid and no rug plot, and to modify the key. The color specification for the lines represents the traditional colors of the three parties. Interpreting these plots is challenging: For example, the probability of voting Labour decreases with age, increases with attitude toward the Labour leader Blair, strongly decreases with attitude toward the Conservative leader Hague, and is relatively unaffected by attitude toward the Liberal Democrat leader Kennedy. In general, a positive attitude toward a party leader increases the probability of voting for that leader's party, as one would expect. Of course, the causal direction of these relationships is unclear. We next turn to the interaction between \vn{Europe} and \vn{political.knowledge}, this time drawing stacked area displays: <>= plot(predictorEffects(mr1, ~ Europe + political.knowledge, xlevels=list(political.knowledge=0:3, Europe=c(1, 6, 11))), axes=list(grid=TRUE, x=list(rug=FALSE, Europe=list(ticks=list(at=c(1, 6, 11))), political.knowledge=list(ticks=list(at=0:3))), y=list(style="stacked")), lines=list(col=c("blue", "red", "orange")), lattice=list(key.args=list(columns=1), strip=list(factor.names=FALSE))) @ \centerline{\includegraphics[width=\textwidth]{figure/fig43-1.pdf}} \noindent The \ar{lines} argument is used to specify the colors for the stacked areas representing the parties. Both effect plots are of nearly the same fitted values,\footnote{Not exactly the same because in each plot the focal predictor takes on 50 values and the conditioning predictor 3 or 4 values.} in the first graph with \code{Europe} varying and conditioning on \code{political.knowledge}, and in the second with \code{political.knowledge} varying and conditioning on \code{Europe}. Setting \code{strip=} \code{list(factor.names=FALSE)} suppresses the names of the conditioning predictor in each effect plot; these names are too long for the strips at the tops of the panels. From the first graph, preference for the Conservative Party increases with \vn{Europe} for respondents with high political knowledge, but not for those with low political knowledge. More generally, voters with high political knowledge are more likely to align their votes with the positions of the parties, Eurosceptic for the Convervatives, pro-Europe for Labour and the Liberal Democrats, than are voters with low political knowledge. \section{The Lattice Theme for the effects Package} The \pkg{effects} package uses the \fn{xyplot} and \fn{barchart} functions in the standard \pkg{lattice} package \citep{sarkar08} to draw effect plots. The \pkg{lattice} package has many options for customizing the appearance of graphs that are collected into a \emph{lattice theme}. We created a custom theme for use with the \pkg{effects} package that automatically supersedes the default Lattice theme when the \pkg{effects} package is loaded, \emph{unless the} \pkg{lattice} \emph{package has been previously loaded}. You can invoke the \pkg{effects} package theme directly by the command <>= effectsTheme() @ You can also customize the \pkg{effects} package Lattice theme; see \code{help("effectsTheme")}. Finally, because \fn{plot} methods in the \pkg{effects} package return lattice objects, these objects can be edited and manipulated in the normal manner, for example by functions in the \pkg{latticeExtra} package \citep{SarkarAndrews2016}. \bibliography{predictor-effects-gallery} \end{document} effects/NAMESPACE0000644000176200001440000000573015042141506013113 0ustar liggesusers# last modified 2025-07-29 by J. Fox import(carData) importFrom(lattice, barchart, current.panel.limits, densityplot, larrows, llines, lpoints, ltext, panel.abline, panel.barchart, #panel.grid, panel.polygon, panel.text, strip.custom, strip.default, trellis.par.get, trellis.par.set, xyplot) importFrom(colorspace, rainbow_hcl, sequential_hcl) importFrom(grid, grid.pretty, grid.segments, unit) importFrom(lme4, fixef) importFrom(nnet, multinom) importFrom(graphics, plot) importFrom(grDevices, gray, palette, rgb) importFrom(survey, svymean) importFrom(insight, find_formula,get_parameters,get_varcov) importFrom(stats, as.formula, binomial, coef, coefficients, cov, delete.response, family, fitted, formula, glm, glm.control, lm, lm.fit, loess.smooth, mahalanobis, make.link, median, model.frame, model.matrix, model.offset, model.response, na.exclude, na.omit, nlm, predict, qf, qnorm, qt, quantile, residuals, spline, terms, update, vcov, weights, xtabs) importFrom(utils, menu, browseURL) export(effect, allEffects, Effect, effectsTheme) export(predictorEffect, predictorEffects) export(effectsHexsticker) export(effCoef) export(levels2dates) S3method(plot, predictoreff) S3method(plot, predictorefflist) S3method(predictorEffects, default) S3method(predictorEffects, poLCA) S3method(predictorEffect, default) S3method(predictorEffect, svyglm) S3method(predictorEffect, poLCA) S3method(effCoef, default) S3method(Effect, default) S3method(Effect, lm) S3method(Effect, poLCA) S3method(Effect, mlm) S3method(Effect, svyglm) S3method(Effect, multinom) S3method(Effect, polr) S3method(Effect, merMod) export(predictorEffect.default,predictorEffects.default, Effect.default, effect.default, allEffects.default) S3method(effSources,betareg) S3method(effSources,clm) S3method(effSources,clm2) S3method(effSources,clmm) S3method(effSources,default) S3method(effSources,glmmPQL) S3method(effSources,gls) S3method(effSources,rlmerMod) export(effSources,effSources.default) #,effSources.gls,effSources.glmmPQL, # effSources.rlmerMod,effSources.clm,effSources.clm2, # effSources.clmm,effSources.betareg) S3method(print, eff) S3method(print, efflist) S3method(print, mlm.efflist) S3method(print, summary.eff) S3method(print, predictoreff) S3method(print, predictorefflist) S3method(summary, eff) S3method(summary, efflist) S3method(summary, mlm.efflist) S3method(summary, predictorefflist) S3method(as.data.frame, eff) S3method(as.data.frame, efflist) S3method(as.data.frame, effpoly) S3method(as.data.frame, efflatent) S3method(plot, eff) S3method(print, plot.eff) S3method(plot, efflist) S3method(plot, mlm.efflist) S3method(print, effpoly) S3method(summary, effpoly) S3method(plot, effpoly) S3method(print, efflatent) S3method(summary, efflatent) S3method(allEffects, default) S3method(allEffects, poLCA) S3method(allEffects, mlm) S3method(effect, default) S3method(vcov, eff) S3method(`[`, efflist) S3method(levels2dates, effpoly) S3method(levels2dates, eff) effects/inst/0000755000176200001440000000000015143646012012650 5ustar liggesuserseffects/inst/CHANGES0000644000176200001440000001147015132433422013643 0ustar liggesusersVersion 0.9-0 initial release to CRAN Version 1.0-0 o Rewrote summary.effect method and added print.summary.effect method. Version 1.0-1 o Blanks can be inserted into or removed from effect names without causing an error; thus, e.g., "poly(education,3)" is equivalent to "poly(education, 3)". o Name spaces of lattice and grid packages are imported, as required in R 1.8.0. Version 1.0-2 o Added ask argument to plot.effect.list, and row, col, nrow, ncol, and more arguments to plot.effect, to support graphing an array of effect plots. o Fixed bug in plot.effect that caused xlab argument to be ignored in certain circumstances. Version 1.0-3 o effect function now works if na.action is na.exclude. Version 1.0-4 o Fixed small bug introduced in version 1.0-3. Version 1.0-5 o x.var and z.var arguments to plot.effect now take names as well as indices. Version 1.0-6 o A variable specified in xlevels can be fixed to a single value. Version 1.0-7 o Made effect() generic, with a method for lm objects that handles glm objects as well. Version 1.0-8 o Small fixes to the help files. Version 1.0-9 o Small change to compile without a warning in R 2.4.0. Version 1.0-10 o Standard errors of effects are computed using t rather than standard-normal distribution for models with estimated dispersion (as suggested by Brian Ripley). o Small fixes. o Objects are now named "eff" and "eff.list" rather than "effect" and "effect.list". o Data sets now provided by lazy data. Version 1.0-11 o Replaced obsolete \non_function{} markup in Rd files (reported by Kurt Hornik). Version 1.0-12 o key.args argument added to plot.eff() (coutesy of Michael Friendly), to allow conrol over, e.g., placement of legend. Version 2.0-0 o Jangman Hong joins project. o support added for multinomial and proportional-odds logit models, as fit by multinom() (in nnet package) and polr() (in MASS) package, following results in Fox and Andersen (2006). o added the argument given.values to effect() methods for finer-grain control of displays. Version 2.0-1 o Fixed bug in effect.polr() that prevented computation for a model with a single term (reported by Paul Prew). Version 2.0-2 o Fixed bug in print(), summary(), and plot() methods for polytomous logit models with a response with numbered levels (reported by Paul Prew). Version 2.0-3 o Fixed bug in all effect() methods that caused error when na.action="na.exclude" (reported by Tracy Lightcap and Rob Goedman). Version 2.0-4 o Palettes from the colorspace package are used by default for stacked plots. o Fixed bug in handling of typical= argument to effect() (argument was effectively ignored). o Added Titanic and Wells data sets. o Small changes. Version 2.0-5 o Added examples for Titanic, BEPS, and WVS data sets. o Arguments ... (e.g., digits) passed through in print() methods. Version 2.0-6 o Fixed small bugs in print.efflist(), summary.efflist(), and plot.effpoly() methods. o Corrected error in missing-data handling that sometimes surfaced in effect.multinom(). o Added .Rd file for package. Version 2.0-7 o Fixed bug in handling of given.values argument to effect(). Version 2.0-8 o The S3 method print.summary.eff is now declared in NAMESPACE (as it should have been all along). o Added CITATION.txt file (courtesy of Achim Zeileis). o Version corresponding to John Fox, Jangman Hong (2009), Effect Displays in R for Multinomial and Proportional-Odds Logit Models: Extensions to the effects Package. Journal of Statistical Software, 32(1), 1-24 . O Fixed [pgk] markup in .Rd file cross-references. Version 2.0-9 o Applied patches contributed by Ian Fellows to allow logical predictors and various coercions in model formulas to work properly. o Fixed name of CITATION file (was CITATION.txt). o Small changes to docs. Version 2.0-10 o Backed out Ian Fellows's patches because of errors. Version 2.0-11 o Small change to eliminate warnings produced in R 2.12.0. o Added nrows and ncols argument to plot.efflist() (following suggstion by Michael Friendly). o Small fix to docs. Version 2.0-12 o plot.eff() and plot.effpoly now return an object, printed by print.plot.eff() (after a question by Michael Friendly). o New effect.gls() method, various changes for compatibility (after a question by Oriol Verdeny Vilalta). o effect.lm() now stores the covariance matrix of the effects (after a question by Bernhard Kaess). Version 2.0-13 o effect.multinom() and effect.polr() now use update() to refit the model rather than calling multinom() or polr() directly; update for effect.multinom() sets trace=FALSE (after suggestions by David Armstrong). o Added [.efflist method (after a question by Andreas Roesch). effects/inst/CITATION0000644000176200001440000000566415132433422014015 0ustar liggesuserscitHeader("To cite effects in publications use:") bibentry(bibtype = "Book", title = "An R Companion to Applied Regression", edition = "3rd", author = c(as.person("John Fox"), as.person("Sanford Weisberg")), year = "2019", publisher = "Sage", address = "Thousand Oaks CA", url = "https://www.john-fox.ca/Companion/index.html", textVersion = paste("John Fox and Sanford Weisberg (2019).", "An R Companion to Applied Regression, 3rd Edition.", "Thousand Oaks, CA", "" )) bibentry(bibtype = "Article", title = "Visualizing Fit and Lack of Fit in Complex Regression Models with Predictor Effect Plots and Partial Residuals", author = c(person(given = "John", family = "Fox", email = "jfox@mcmaster.ca"), person(given = "Sanford", family = "Weisberg", email = "sandy@umn.edu")), journal = "Journal of Statistical Software", year = "2018", volume = "87", number = "9", pages = "1--27", doi = "10.18637/jss.v087.i09", textVersion = paste("John Fox, Sanford Weisberg (2018).", "Visualizing Fit and Lack of Fit in Complex Regression Models with Predictor Effect Plots and Partial Residuals.", "Journal of Statistical Software, 87(9), 1-27.", "doi 10.18637/jss.v087.i09"), header = "For predictor effects or partial residuals also cite:" ) bibentry(bibtype = "Article", title = "Effect Displays in {R} for Generalised Linear Models", author = as.person("John Fox"), journal = "Journal of Statistical Software", year = "2003", volume = "8", number = "15", pages = "1--27", doi = "10.18637/jss.v008.i15", textVersion = paste("John Fox (2003).", "Effect Displays in R for Generalised Linear Models.", "Journal of Statistical Software, 8(15), 1-27.", "doi 10.18637/jss.v008.i15"), header = "For generalized linear models also cite:" ) bibentry(bibtype = "Article", title = "Effect Displays in {R} for Multinomial and Proportional-Odds Logit Models: Extensions to the {effects} Package", author = c(as.person("John Fox"), as.person("Jangman Hong")), journal = "Journal of Statistical Software", year = "2009", volume = "32", number = "1", pages = "1--24", doi = "10.18637/jss.v032.i01", textVersion = paste("John Fox, Jangman Hong (2009).", "Effect Displays in R for Multinomial and Proportional-Odds Logit Models: Extensions to the effects Package.", "Journal of Statistical Software, 32(1), 1-24.", "doi 10.18637/jss.v032.i01"), header = "For usage in multinomial and proportional-odds logit models also cite:" ) effects/inst/doc/0000755000176200001440000000000015143646012013415 5ustar liggesuserseffects/inst/doc/partial-residuals.Rnw0000644000176200001440000004525315132433422017540 0ustar liggesusers%\VignetteEngine{knitr::knitr} %\VignetteIndexEntry{Effect Displays with Partial Residuals} \documentclass{article} \usepackage{amsmath,amsfonts,amssymb} \usepackage{natbib} \bibliographystyle{abbrvnat} \usepackage[margin=1in]{geometry} \newcommand{\x}{\mathbf{x}} \newcommand{\code}[1]{\normalfont\texttt{\hyphenchar\font45\relax #1}} \newcommand{\E}{\mathrm{E}} \newcommand{\tild}{\symbol{126}} \newcommand{\Rtilde}{\,\raisebox{-.5ex}{\code{\tild{}}}\,} \newcommand{\captilde}{\mbox{\protect\Rtilde}} % use in figure captions. \newcommand{\Rmod}[2]{\code{#1 \raisebox{-.5ex}{\tild{}} #2}} \newcommand{\Rmoda}[2]{\code{#1} &\code{\raisebox{-.5ex}{\tild{}} #2}} \newcommand{\Rmodb}[2]{\code{#1 &\raisebox{-.5ex}{\tild{}}& #2}} \newcommand{\C}{\mathbf{C}} \newcommand{\betahat}{\widehat{\beta}} \newcommand{\bbetahat}{\widehat{\boldsymbol{\beta}}} \newcommand{\bbeta}{\boldsymbol{\beta}} \newcommand{\xbf}{\x_{\backslash{}f}} \newcommand{\hbf}{h_{\backslash{}f}} \newcommand{\xtb}{\x_{2\backslash{}f}} \newcommand{\xbfi}{\x_{\backslash{}f,i}} \newcommand{\inter}[2]{\mbox{$#1$:$#2$}} \newcommand{\cross}[2]{\mbox{$#1$\code{*}$#2$}} \newcommand{\N}{\mathrm{N}} \newcommand{\fn}{\textbf} \newcommand{\R}{\proglang{R}} \newcommand{\yx}{\widehat{y}(\x)} \newcommand{\lvn}[1]{\mbox{$\log(\mbox{\texttt{#1}})$}} \begin{document} \title{Examples of Effect Displays with Partial Residuals\\ Using Contrived Regression Data} \author{John Fox and Sanford Weisberg} \date{2017-11-22} \maketitle <>= library(knitr) opts_chunk$set( tidy=FALSE,fig.width=5,fig.height=5,cache=FALSE ) @ <>= #options(continue="+ ", prompt="R> ", width=76) options(show.signif.stars=FALSE) options(scipen=3) @ The examples developed in this vignette are meant to supplement \citet{FoxWeisberg18}. \section{Basic Setup} We will analyze contrived data generated according to the following setup: \begin{itemize} \item We sample $n = 5000$ observations from a trivariate distribution for predictors $x_1$, $x_2$, and $x_3$, with uniform margins on the interval $[-2, 2]$, and with a prespecified bivariate correlation $\rho$ between each pair of predictors. The method employed, described by \citet{Schumann15} and traceable to results reported by \citet{Pearson07}, produces predictors that are nearly linearly related. Using 5000 observations allows us to focus on essentially asymptotic behavior of partial residuals in effect plots while still being able to discern individual points in the resulting graphs. \item We then generate the response $y$ according to the model \begin{equation} y = \beta_0 + h\left(\bbeta, \{x_1, x_2, x_3\}\right) + \varepsilon \end{equation} where $\varepsilon \Rtilde \N(0, 1.5^2)$. The regression function $h(\cdot)$ varies from example to example. \end{itemize} The following functions make it convenient to generate data according to this setup. These functions are more general than is strictly necessary so as to encourage further experimentation. <<>>= mvrunif <- function(n, R, min = 0, max = 1){ # method (but not code) from E. Schumann, # "Generating Correlated Uniform Variates" # URL: # # downloaded 2015-05-21 if (!is.matrix(R) || nrow(R) != ncol(R) || max(abs(R - t(R))) > sqrt(.Machine$double.eps)) stop("R must be a square symmetric matrix") if (any(eigen(R, only.values = TRUE)$values <= 0)) stop("R must be positive-definite") if (any(abs(R) - 1 > sqrt(.Machine$double.eps))) stop("R must be a correlation matrix") m <- nrow(R) R <- 2 * sin(pi * R / 6) X <- matrix(rnorm(n * m), n, m) X <- X %*% chol(R) X <- pnorm(X) min + X * (max - min) } gendata <- function(n = 5000, R, min = -2, max = 2, s = 1.5, model = expression(x1 + x2 + x3)){ data <- mvrunif(n = n, min = min, max = max, R = R) colnames(data) <- c("x1", "x2", "x3") data <- as.data.frame(data) data$error <- s * rnorm(n) data$y <- with(data, eval(model) + error) data } R <- function(offdiag = 0, m = 3){ R <- diag(1, m) R[lower.tri(R)] <- R[upper.tri(R)] <- offdiag R } @ \section{Unmodelled Interaction} We begin with uncorrelated predictors and the true regression mean function $\E(y|\x) = x_1 + x_2x_3$, but fit the incorrect additive working model $y \Rtilde x_1 + x_2 + x_3$ to the data. <<>>= set.seed(682626) Data.1 <- gendata(R = R(0), model = expression(x1 + x2 * x3)) round(cor(Data.1), 2) summary(mod.1 <- lm(y ~ x1 + x2 + x3, data = Data.1)) @ For reproducibility, we set a known seed for the pseudo-random number generator; this seed was itself generated pseudo-randomly, and we reuse it in the examples reported below. As well, in this first example, but not for those below, we show the correlation matrix of the randomly generated data along with the fit of the working model to the data. Effect plots with partial residuals corresponding to the terms in the working model are shown in Figure~\ref{fig-contrived-1a}: <>= library(effects) plot(predictorEffects(mod.1, partial.residuals=TRUE), partial.residual=list(pch=".", col="#FF00FF80"), axes=list(x=list(rotate=45)), rows=1, cols=3) @ In these graphs and, unless noted to the contrary, elsewhere in this vignette, the loess smooths are drawn with span 2/3. Because of the large number of points in the graphs, optional arguments to \code{plot} are specified to de-emphasize the partial residuals. To this end, the residuals are plotted as small points (\code{pch="."}) and in a translucent magenta color (\code{col="\#FF00FF80"}). \begin{figure}[tbp] \caption{Effect displays with partial residuals for the individual predictors $x_1$, $x_2$, and $x_3$ in the incorrect model $y \captilde x_1 + x_2 + x_3$ fit to data generated with the mean function $\E(y|\x) = x_1 + x_2x_3$, with uncorrelated predictors.\label{fig-contrived-1a}} \centering \includegraphics[width=1\textwidth]{figure/fig-contrived-1a-1.pdf} \end{figure} The failure of the model is not apparent in these traditional partial residual plots, but it is clear in the term effect plot for $\{x_2, x_3\}$, corresponding to the unmodelled interaction \inter{x_2}{x_3}, and shown in the top panel of Figure~\ref{fig-contrived-1b}, generated using <>= plot(Effect(c("x2", "x3"), mod.1, partial.residuals = TRUE), partial.residual=list(pch=".", col="#FF00FF80"), axes=list(x=list(rotate=45)), lattice=list(layout=c(4, 1))) @ Moreover, the effect plot in the bottom panel of the figure for $\{x_1, x_2\}$, corresponding to a term \emph{not} in the true mean function, correctly indicates lack of interaction between these two predictors: <>= plot(Effect(c("x1", "x2"), mod.1, partial.residuals = TRUE), partial.residual=list(pch=".", col="#FF00FF80"), axes=list(x=list(rotate=45)), lattice=list(layout=c(4, 1))) @ \begin{figure}[tbp] \caption{Term effect displays with partial residuals for $\{x_2, x_3 \}$, corresponding to the missing interaction \inter{x_2}{x_3}, and for $\{x_1, x_2 \}$, corresponding to an interaction not present in the model that generated the data.\label{fig-contrived-1b}} \centering \includegraphics[width=1\textwidth]{figure/fig-contrived-1b-1.pdf} \\ \includegraphics[width=1\textwidth]{figure/fig-contrived-1c-1.pdf} \end{figure} As a partly contrasting example, we turn to a similar data set, generated with the same regression mean function but with moderately correlated predictors, where the pairwise predictor correlations are $\rho = 0.5$: <<>>= set.seed(682626) Data.2 <- gendata(R = R(0.5), model = expression(x1 + x2 * x3)) mod.2 <- lm(y ~ x1 + x2 + x3, data = Data.2) @ Graphs analogous to those from the preceding example appear in Figures~\ref{fig-contrived-2a} and \ref{fig-contrived-2b}: <>= plot(predictorEffects(mod.2, partial.residuals=TRUE), partial.residual=list(pch=".", col="#FF00FF80",fig.show='hide'), axes=list(x=list(rotate=45)), rows=1, cols=3) @ <>= plot(Effect(c("x2", "x3"), mod.2, partial.residuals = TRUE), partial.residual=list(pch=".", col="#FF00FF80"), axes=list(x=list(rotate=45)), lattice=list(layout=c(4, 1))) @ <>= plot(Effect(c("x1", "x2"), mod.2, partial.residuals = TRUE), partial.residual=list(pch=".", col="#FF00FF80",fig.show='hide'), axes=list(x=list(rotate=45)), lattice=list(layout=c(4, 1))) @ The predictor effect plots for $x_2$ and $x_3$, and to a much lesser extent, for $x_1$, in the incorrect model in Figure~\ref{fig-contrived-2a} show apparent nonlinearity as a consequence of the unmodelled interaction and the correlations among the predictors. A similar phenomenon was noted in our analysis of the Canadian occupational prestige data in \citet[Section~4.2]{FoxWeisberg18}, where the unmodelled interaction between \code{type} and \code{income} induced nonlinearity in the partial relationship of \code{prestige} to \code{income}. The omitted interaction is clear in the effect plot for $\{x_2, x_3\}$, but also, to a lesser extent, contaminates the effect plot for $\{x_1,x_2\}$, which corresponds to an interaction that does not enter the model generating the data. These artifacts become more prominent if we increase the predictor correlations, say to $\rho = 0.9$ (as we invite the reader to do). \begin{figure}[tbp] \caption{Predictor effect displays with partial residuals for the individual predictors $x_1$, $x_2$, and $x_3$ in the incorrect model $y \captilde x_1 + x_2 + x_3$ fit to data generated with the mean function $\E(y|\x) = x_1 + x_2x_3$, with moderately correlated predictors.\label{fig-contrived-2a}} \centering \includegraphics[width=1\textwidth]{figure/fig-contrived-2a-1.pdf} \end{figure} \begin{figure}[tbp] \caption{Term effect displays with partial residuals for $\{x_2, x_3 \}$, corresponding to the missing interaction \inter{x_2}{x_3}, and for $\{x_1, x_2 \}$, corresponding to an interaction not present in the model that generated the data.\label{fig-contrived-2b}} \centering \includegraphics[width=1\textwidth]{figure/fig-contrived-2b-1.pdf}\\ \includegraphics[width=1\textwidth]{figure/fig-contrived-2c-1.pdf} \end{figure} \section{Unmodelled Nonlinearity} We generate data as before, but from the true model $\E(y|\x) = x_1^2 + x_2 + x_3$, where the predictors are moderately correlated, with pairwise correlations $\rho = 0.5$, but fit the incorrect additive working model $y \Rtilde x_1 + x_2 + x_3$ to the data: <<>>= set.seed(682626) Data.3 <- gendata(R = R(0.5), model = expression(x1^2 + x2 + x3)) mod.3 <- lm(y ~ x1 + x2 + x3, data = Data.3) @ Effect plots with residuals for the predictors in the working model appear in Figure~\ref{fig-contrived-3a}. The unmodelled nonlinearity in the partial relationship of $y$ to $x_1$ is clear, but there is some contamination of the plots for $x_2$ and $x_3$. The contamination is much more dramatic if the correlations among the predictors are increased to, say, $\rho = 0.9$ (as the reader may verify). <>= plot(predictorEffects(mod.3, partial.residuals=TRUE), partial.residual=list(pch=".", col="#FF00FF80"), axes=list(x=list(rotate=45)), rows=1, cols=3) @ \begin{figure}[tbp] \caption{Predictor effect displays with partial residuals for the individual predictors $x_1$, $x_2$, and $x_3$ in the incorrect model $y \captilde x_1 + x_2 + x_3$ fit to data generated with the mean function $\E(y|\x) = x_1^2 + x_2 + x_3$, with moderately correlated predictors.\label{fig-contrived-3a}} \centering \includegraphics[width=1\textwidth]{figure/fig-contrived-3a-1.pdf} \end{figure} Effect plots for $\{x_1, x_2 \}$ and $\{x_2, x_3 \}$ are shown in Figure~\ref{fig-contrived-3b}: <>= plot(Effect(c("x2", "x3"), mod.3, partial.residuals = TRUE), partial.residual=list(pch=".", col="#FF00FF80"), axes=list(x=list(rotate=45)), lattice=list(layout=c(4, 1))) @ <>= plot(Effect(c("x1", "x2"), mod.3, partial.residuals = TRUE), partial.residual=list(pch=".", col="#FF00FF80"), axes=list(x=list(rotate=45)), lattice=list(layout=c(4, 1))) @ Neither of these graphs corresponds to a term in the model generating the data nor in the working model, and the effect plots largely confirm the absence of \inter{x_1}{x_2} and \inter{x_2}{x_3} interactions, along with the nonlinearity of the partial effect of $x_1$, apparent in the top panel. \begin{figure}[tbp] \caption{Term effect displays with partial residuals for $\{x_1, x_2 \}$ and for $\{x_2, x_3 \}$, neither of which corresponds to an interaction in the model generating the data.\label{fig-contrived-3b}} \centering \includegraphics[width=1\textwidth]{figure/fig-contrived-3c-1.pdf} \\ \includegraphics[width=1\textwidth]{figure/fig-contrived-3b-1.pdf} \end{figure} \section{Simultaneous Unmodelled Nonlinearity and Interaction} This last example also appears in \citet[Section~4.3]{FoxWeisberg18}. We consider a true model that combines nonlinearity and interaction, $\E(y|\x) = x_1^2 + x_2 x_3$; the predictors are moderately correlated, with $\rho = 0.5$. We then fit the incorrect working model $y \Rtilde x_1 + x_2 + x_3$ to the data, producing the predictor effect displays with partial residuals in Figure~\ref{fig-contrived-4a}, for the predictors $x_1$, $x_2$, and $x_3$, which appear additively in the working model, and the term effect displays in Figure~\ref{fig-contrived-4b} for $\{x_2, x_3 \}$ and $\{x_1, x_2 \}$, corresponding respectively to the incorrectly excluded \inter{x_2}{x_3} term and the correctly excluded \inter{x_1}{x_2} interaction. <<>>= set.seed(682626) Data.4 <- gendata(R = R(0.5), model = expression(x1^2 + x2 * x3)) mod.4 <- lm(y ~ x1 + x2 + x3, data = Data.4) @ <>= plot(predictorEffects(mod.4, partial.residuals=TRUE), partial.residual=list(pch=".", col="#FF00FF80"), axes=list(x=list(rotate=45)), rows=1, cols=3) @ <>= plot(Effect(c("x2", "x3"), mod.4, partial.residuals = TRUE), partial.residual=list(pch=".", col="#FF00FF80"), axes=list(x=list(rotate=45)), lattice=list(layout=c(4, 1))) @ <>= plot(Effect(c("x1", "x2"), mod.4, partial.residuals = TRUE), partial.residual=list(pch=".", col="#FF00FF80"), axes=list(x=list(rotate=45)), lattice=list(layout=c(4, 1))) @ The nonlinearity in the partial relationship of $y$ to $x_1$ shows up clearly. The nonlinearity apparent in the plots for $x_2$ and $x_3$ is partly due to contamination with $x_1$, but largely to the unmodelled interaction between $x_2$ and $x_3$, coupled with the correlation between these predictors. The plot corresponding to the missing \inter{x_2}{x_3} term (in the top panel of Figure~\ref{fig-contrived-4b}) does a good job of detecting the unmodelled interaction, and curvature in this plot is slight. The plot for the \inter{x_1}{x_2} term (in the bottom panel of Figure~\ref{fig-contrived-4b}), a term neither in the true model nor in the working model, primarily reveals the unmodelled nonlinearity in the partial relationship of $y$ to $x_1$. \begin{figure}[tbp] \caption{Effect displays with partial residuals for the predictors $x_1$, $x_2$, and $x_3$ in the incorrect model $y \captilde x_1 + x_2 + x_3$ fit to data generated with the mean function $\E(y|\x) = x_1^2 + x_2x_3$, with moderately correlated predictors.\label{fig-contrived-4a}} \centering \includegraphics[width=1\textwidth]{figure/fig-contrived-4a-1.pdf} \end{figure} \begin{figure}[tbp] \caption{Term effect displays with partial residuals for $\{x_2, x_3 \}$ (top) and for $\{x_1, x_2 \}$ (bottom), the first of which corresponds to the missing \inter{x_2}{x_3} interaction in the model generating the data.\label{fig-contrived-4b}} \centering \includegraphics[width=1\textwidth]{figure/fig-contrived-4b-1.pdf} \\ \includegraphics[width=1\textwidth]{figure/fig-contrived-4c-1.pdf} \end{figure} If we fit the correct model, $y \Rtilde{} x_1^2 + x_2*x_3$, to the data, we obtain the plots shown in Figure~\ref{fig-contrived-5}. As theory suggests, the partial residuals in these effect displays validate the model, supporting the exclusion of the \inter{x_1}{x_2} interaction, the linear-by-linear interaction between $x_1$ and $x_2$, and the quadratic partial relationship of $y$ to $x_1$. <>= mod.5 <- lm(y ~ poly(x1, 2) + x2*x3, data=Data.4) plot(Effect("x1", mod.5, partial.residuals=TRUE), partial.residual=list(pch=".", col="#FF00FF80", span=0.2)) @ <>= plot(Effect(c("x2", "x3"), mod.5, partial.residuals = TRUE), partial.residual=list(pch=".", col="#FF00FF80"), axes=list(x=list(rotate=45)), lattice=list(layout=c(4, 1)), span=0.5) @ <>= plot(Effect(c("x1", "x2"), mod.5, partial.residuals = TRUE), partial.residual=list(pch=".", col="#FF00FF80", span=0.35), axes=list(x=list(rotate=45)), lattice=list(layout=c(4, 1))) @ \noindent In these graphs, we adjust the span of the loess smoother to the approximately smallest value that produces a smooth fit to the partial residuals in each case. \begin{figure}[tbp] \caption{Effect displays with partial residuals for $x_1$ and $\{x_2, x_3 \}$, which correspond to terms in the model generating \emph{and} fitted to the data, $y \captilde x_1^2 + x_2 * x_3$, and for $\{x_1, x_2 \}$, which corresponds to an interaction that is not in the model.\label{fig-contrived-5}} \centering \includegraphics[width=0.45\textwidth]{figure/fig-contrived-5a-1.pdf} \\ \includegraphics[width=1\textwidth]{figure/fig-contrived-5b-1.pdf} \\ \includegraphics[width=1\textwidth]{figure/fig-contrived-5c-1.pdf} \end{figure} \bibliography{partial-residuals} \end{document} effects/inst/doc/predictor-effects-gallery.R0000644000176200001440000004213015143646004020606 0ustar liggesusers## ----setopts,echo=FALSE--------------------------------------------- library("knitr") opts_chunk$set(fig.width=5,fig.height=5,#tidy=TRUE, out.width="0.8\\textwidth",echo=TRUE) #options(prompt=" ") options(continue="+ ", prompt="R> ", width=70) options(show.signif.stars=FALSE, scipen=3) ## ----setup, include=FALSE, cache=FALSE, results='hide', echo=FALSE------------ library(car) library(effects) render_sweave() options(width=80, digits=5, str=list(strict.width="cut")) strOptions(strict.width="cut") ## ----------------------------------------------------------------------------- library("car") # also loads the carData package Prestige$type <- factor(Prestige$type, levels=c("bc", "wc", "prof")) lm1 <- lm(prestige ~ education + poly(women, 2) + log(income)*type, data=Prestige) ## ----------------------------------------------------------------------------- S(lm1) ## ----fig11,include=TRUE,fig.width=5,fig.height=4,fig.show='hide'-------------- library("effects") e1.lm1 <- predictorEffect("education", lm1) plot(e1.lm1) ## ----------------------------------------------------------------------------- brief(e1.lm1$model.matrix) ## ----------------------------------------------------------------------------- e1a.lm1 <- predictorEffect("education", lm1, focal.levels=5) e1a.lm1 summary(e1a.lm1) as.data.frame(e1a.lm1) ## ----------------------------------------------------------------------------- e2.lm1 <- predictorEffect("income", lm1, focal.levels=5) as.data.frame(e2.lm1) ## ----fig12,include=TRUE,fig.width=5,fig.height=5,fig.show='hide'-------------- plot(predictorEffect("income", lm1), lines=list(multiline=TRUE)) ## ----fig13,include=TRUE,fig.width=5,fig.height=5,fig.show='hide'-------------- plot(predictorEffect("type", lm1), lines=list(multiline=TRUE)) ## ----fig14,include=TRUE,fig.width=7,fig.height=8,fig.show='hide'-------------- eall.lm1 <- predictorEffects(lm1) plot(eall.lm1) ## ----eval=FALSE--------------------------------------------------------------- # plot(eall.lm1) # plot(predictorEffects(lm1)) # plot(predictorEffects(lm1, ~ income + education + women + type)) ## ----eval=FALSE--------------------------------------------------------------- # plot(predictorEffects(lm1, ~ type + education)) ## ----eval=FALSE--------------------------------------------------------------- # plot(predictorEffects(lm1, ~ women)) # plot(predictorEffects(lm1)[[2]]) # plot(predictorEffect("women", lm1)) ## ----fig21a,include=TRUE,fig.width=5,fig.height=4.5,fig.show='hide'----------- e3.lm1 <- predictorEffect("type", lm1) plot(e3.lm1, lines=list(multiline=TRUE)) ## ----fig21b,include=TRUE,fig.width=6,fig.height=5,fig.show='hide'------------- plot(e3.lm1, lines=list(multiline=FALSE)) # the default ## ----fig22a,include=TRUE,fig.width=5,fig.height=4.5,fig.show='hide'----------- e3.lm1 <- predictorEffect("type", lm1, xlevels=list(income=c(5000, 15000, 25000))) plot(e3.lm1, lines=list(multiline=TRUE), confint=list(style="bars")) ## ----fig22b,include=TRUE,fig.width=5.5,fig.height=5,fig.show='hide'----------- plot(e3.lm1, lines=list(multiline=FALSE), # the default lattice=list(layout=c(3, 1))) ## ----fig23,include=TRUE,fig.width=5,fig.height=4,fig.show='hide'-------------- e4.lm1 <- predictorEffect("education", lm1, se=list(type="scheffe", level=.99), vcov.=hccm) plot(e4.lm1) ## ----------------------------------------------------------------------------- lm2 <- lm(log(prestige) ~ log(income) + education + type, Prestige) ## ----fig30,include=TRUE,fig.width=5,fig.height=4,fig.show='hide'-------------- plot(predictorEffects(lm2, ~ income)) ## ----fig31,include=TRUE,fig.width=5,fig.height=4,fig.show='hide'-------------- plot(predictorEffects(lm2, ~ income), axes=list( x=list(income=list(transform=list(trans=log, inverse=exp))) )) ## ----fig32,include=TRUE,fig.width=5,fig.height=5,fig.show='hide'-------------- plot(predictorEffects(lm2, ~ income), main="Transformed Plot", axes=list( grid=TRUE, x=list(rotate=30, rug=FALSE, income=list(transform=list(trans=log, inverse=exp), lab="income, log-scale", ticks=list(at=c(2000, 5000, 10000, 20000)), lim=c(1900, 21000)) ))) ## ----figdates1,include=TRUE,fig.width=5,fig.height=5,fig.show='hide'---------- data("airquality", package="datasets") airquality$Date <- with(airquality, as.Date(paste("1973", Month, Day, sep="-"), format="%Y-%m-%d")) airquality$Date.num <- as.numeric(airquality$Date) m1.date <- lm(Ozone ~ Date.num + Solar.R + Wind + Temp, data=airquality) eff.date.1 <- Effect("Date.num", m1.date) plot(eff.date.1, axes=list(x=list(Date.num=list(lab="Date", ticks=list(at=levels2dates(eff.date.1, "Date.num", "1970-01-01"))), rotate=45)), main="Date Effect") ## ----figdates2,include=TRUE,fig.width=5,fig.height=5,fig.show='hide'---------- plot(eff.date.1, axes=list(x=list(Date.num=list(lab="Date", ticks=list(at=levels2dates(eff.date.1, "Date.num", "1970-01-01", n=4))))), main="Date Effect") ## ----------------------------------------------------------------------------- eff.date.df <- as.data.frame(eff.date.1) eff.date.df$Date <- as.Date(eff.date.df$Date.num, origin="1970-01-01") eff.date.df ## ----figdates3,include=TRUE,fig.width=7.5,fig.height=7.5,fig.show='hide'------ m2.date <- lm(Ozone ~ Date.num*Temp + Solar.R + Wind, data=airquality) eff.date.2 <- Effect(c("Date.num", "Temp"), m2.date, xlevels=6) plot(eff.date.2, axes=list(x=list(Date.num=list(lab="Date", ticks=list(at=levels2dates(eff.date.2, "Date.num", "1970-01-01", n=3))), rotate=45)), main="Date Effect by Temperature") ## ----fig33,include=TRUE,fig.width=4,fig.height=4,fig.show='hide'-------------- # default: plot(predictorEffects(lm2, ~ education), main="Default log(prestige)") # Change only tick-mark labels to arithmetic scale: plot(predictorEffects(lm2, ~ education), main="log(prestige), Arithmetic Ticks", axes=list(y=list(transform=list(trans=log, inverse=exp), lab="prestige", type="rescale"))) # Replace log(presige) by prestige: plot(predictorEffects(lm2, ~ education), main="Prestige in Arithmethic Scale", axes=list(y=list(transform=exp, lab="prestige"))) ## ----------------------------------------------------------------------------- library("lme4") # for lmer() Blackmore$tran.exercise <- bcnPower(Blackmore$exercise, lambda=0.25, gamma=0.1) mm1 <- lmer(tran.exercise ~ I(age - 8)*group + (I(age - 8) | subject), data=Blackmore) ## ----fig33a,include=TRUE,fig.width=5,fig.height=5,fig.show='hide'------------- e1.mm1 <- predictorEffect("age", mm1) plot(e1.mm1, lines=list(multiline=TRUE), confint=list(style="auto")) ## ----fig33b,include=TRUE,fig.width=5,fig.height=5,fig.show='hide'------------- f.trans <- function(x) bcnPower(x, lambda=0.25, gamma=0.1) f.inverse <- function(x) bcnPowerInverse(x, lambda=0.25, gamma=0.1) plot(e1.mm1, lines=list(multiline=TRUE), confint=list(style="auto"), axes=list(x=list(age=list(lab="Age (years)")), y=list(transform=list(trans=f.trans, inverse=f.inverse), type="response", lab="Exercise (hours/week)")), lattice=list(key.args=list(x=.20, y=.75, corner=c(0, 0), padding.text=1.25)), main="" ) ## ----------------------------------------------------------------------------- data("Blowdown", package="alr4") gm1 <- glm(y ~ log(d) + s + spp, family=binomial, data=Blowdown) ## ----fig34,include=TRUE,fig.width=6.5,fig.height=6.5,fig.show='hide'---------- plot(predictorEffects(gm1), axes=list(grid=TRUE, x=list(rug=FALSE, rotate=35))) ## ----fig35,include=TRUE,fig.width=3.5,fig.height=3.5,fig.show='hide'---------- e1.gm1 <- predictorEffect("spp", gm1) plot(e1.gm1, main="type='rescale'", axes=list(y=list(type="rescale", lab="logit scale, probability labels"), x=list(rotate=30), grid=TRUE)) plot(e1.gm1, main="type='link'", axes=list(y=list(type="link", lab="logit scale, logit labels"), x=list(rotate=30), grid=TRUE)) plot(e1.gm1, main="type='response'", axes=list(y=list(type="response", grid=TRUE, lab="probabilty scale, probability labels"), x=list(rotate=30), grid=TRUE)) ## ----fig36,include=TRUE,fig.width=5.5,fig.height=4.5,fig.show='hide'---------- or <- order(as.data.frame(e1.gm1)$fit) # order smallest to largest Blowdown$spp1 <- factor(Blowdown$spp, # reorder levels of spp levels=levels(Blowdown$spp)[or]) gm2 <- update(gm1, ~ . - spp + spp1) # refit model plot(predictorEffects(gm2, ~ spp1), main="type='response', ordered", axes=list(y=list(type="response", lab="probabilty scale, probability labels"), x=list(rotate=30, spp=list(lab="Species")), grid=TRUE)) ## ----fig37,include=TRUE,fig.width=9,fig.height=12,fig.show='hide'------------- gm3 <- update(gm2, ~ . + s:log(d)) # add an interaction plot(predictorEffects(gm3, ~ s + d), axes=list(x=list(rug=FALSE, rotate=90), y=list(type="response", lab="Blowdown Probability")), lattice=list(layout=c(1, 5))) ## ----fig38,include=TRUE,fig.width=9,fig.height=5,fig.show='hide'-------------- plot(predictorEffects(gm3, ~ s + d, xlevels=list(d=c(5, 40, 80), s=c(0.1, 0.5, 0.9))), axes=list(grid=TRUE, x=list(rug=FALSE), y=list(type="response", lab="Blowdown probability")), lines=list(multiline=TRUE)) ## ----fig39,include=TRUE,fig.width=7,fig.height=7,fig.show='hide'-------------- gm4 <- update(gm3, ~ . + spp:log(d)) plot(predictorEffects(gm4, ~ d, xlevels=list(s=c(0.1, 0.5, 0.9))), axes=list(grid=TRUE, y=list(type="response"), x=list(rug=FALSE)), lines=list(multiline=TRUE)) ## ----fig310,include=TRUE,fig.width=7,fig.height=5,fig.show='hide'------------- plot(predictorEffects(gm4, ~ d, xlevels=list(s=c(0.1, 0.5, 0.9))), axes=list(grid=TRUE, y=list(type="response"), x=list(rug=FALSE)), lines=list(multiline=TRUE, z.var="spp", lty=1:9), lattice=list(layout=c(3, 1))) ## ----fig311,include=TRUE,fig.width=5.5,fig.height=5.5,fig.show='hide'--------- plot(predictorEffects(gm3, ~ d, xlevels=list(s=c(0.1, 0.5, 0.9))), axes=list(grid=TRUE, x=list(rug=FALSE), y=list(type="response")), lines=list(multiline=TRUE), confint=list(style="auto")) ## ----fig312,include=TRUE,fig.width=7,fig.height=6,fig.show='hide'------------- gm5 <- update(gm2, ~ . + spp:s) plot(predictorEffects(gm5, ~ spp, xlevels=list(s=c(0.1, 0.5, 0.9))), axes=list(grid=TRUE, y=list(type="response"), x=list(rug=FALSE, rotate=30)), lines=list(multiline=TRUE), confint=list(style="auto")) ## ----fig314,include=TRUE,fig.width=8,fig.height=6,fig.show='hide'------------- plot(predictorEffects(gm5, ~ spp, xlevels=list(s=c(0.1, 0.5, 0.9))), rug=FALSE, axes=list(grid=TRUE, y=list(type="response"), x=list(rotate=30)), lines=list(multiline=TRUE), confint=list(style="auto"), lattice=list(key.args=list(space="right", columns=1, border=TRUE, fontfamily="serif", cex=1.25, cex.title=1.5))) ## ----fig313,include=TRUE,fig.width=13,fig.height=5.5,fig.show='hide'---------- plot(predictorEffects(gm3, ~ s + d, xlevels=list(s=6, d=6)), axes=list(x=list(rug=FALSE, rotate=90), y=list(ticks=list(at=c(.999, .99, .95, .8, .5, .2, .05)))), lattice=list(layout=c(3, 2))) ## ----fig313b,include=TRUE,fig.width=6,fig.height=10,fig.show='hide'----------- plot(predictorEffect("s", gm3, xlevels=list(d=6)), axes=list(x=list(rug=FALSE, rotate=90), y=list(ticks=list(at=c(.999, .99, .95, .8, .5, .2, .05)))), lattice=list(layout=c(3, 2), array=list(row=1, col=1, nrow=2, ncol=1, more=TRUE))) plot(predictorEffect("d", gm3, xlevels=list(s=6)), axes=list(x=list(rug=FALSE, rotate=90), y=list(ticks=list(at=c(.999, .99, .95, .8, .5, .2, .05)))), lattice=list(layout=c(3, 2), array=list(row=2, col=1, nrow=2, ncol=1, more=FALSE))) ## ----fig316,include=TRUE,fig.width=7,fig.height=5,fig.show='hide'------------- plot(predictorEffects(gm4, ~ d, xlevels=list(s=c(0.1, 0.5, 0.9))), axes=list(grid=TRUE, x=list(rug=FALSE), y=list(type="response")), lines=list(multiline=TRUE, z.var="spp", lty=1:9), lattice=list(layout=c(3, 1), strip=list(factor.names=TRUE, values=TRUE, cex=1.5))) ## ----fig315,include=TRUE,fig.width=7,fig.height=6,fig.show='hide'------------- gm5 <- update(gm2, ~ . + spp:s) plot(predictorEffects(gm5, ~ spp, xlevels=list(s=c(0.1, 0.5, 0.9))), symbols=list(pch=15:17, cex=1.5), axes=list(grid=TRUE, y=list(type="response"), x=list(rotate=30)), lines=list(multiline=TRUE), confint=list(style="auto"), lattice=list(key.args=list(cex=1.5, cex.title=1.5))) ## ----fig51,include=TRUE,fig.width=10,fig.height=9,fig.show='hide'------------- lm5 <- lm(prestige ~ log(income) + education + women + type, Prestige) plot(predictorEffects(lm5, residuals=TRUE), axes=list(grid=TRUE, x=list(rotate=30)), partial.residuals=list(smooth=TRUE, span=0.75, lty="dashed")) ## ----fig52,include=TRUE,fig.width=10,fig.height=5,fig.show='hide'------------- options(scipen=10) # suppress scientific notation lm6 <- lm(infantMortality ~ group*ppgdp, data=UN) plot(predictorEffects(lm6, ~ ppgdp, partial.residuals=TRUE), axes=list(x=list(rotate=25), y=list(lim=c(0, 150))), id=list(n=1), lattice=list(layout=c(3, 1))) ## ----fig53,include=TRUE,fig.width=10,fig.height=5,fig.show='hide'------------- lm7 <- lm(log(infantMortality) ~ group*log(ppgdp), data=UN) plot(predictorEffects(lm7, ~ ppgdp, partial.residuals=TRUE), axes=list(x=list(rotate=25)), id=list(n=1), lattice=list(layout=c(3, 1))) ## ----fig54,include=TRUE,fig.width=10,fig.height=5,fig.show='hide'------------- plot(predictorEffects(lm7, ~ ppgdp, partial.residuals=TRUE), axes=list(x=list(rotate=25), y=list(transform=list(trans=log, inverse=exp), type="response", lab="Infant Mortality")), id=list(n=1), lattice=list(layout=c(3, 1))) ## ----------------------------------------------------------------------------- S(lm2) ## ----fig55,include=TRUE,fig.width=8,fig.height=4,fig.show='hide'-------------- plot(Effect(c("income", "type"), lm2, residuals=TRUE), axes=list(x=list(rotate=30)), partial.residuals=list(span=0.9), layout=c(3, 1)) ## ----------------------------------------------------------------------------- library("MASS") # for polr() Womenlf$partic <- factor(Womenlf$partic, levels=c("not.work", "parttime", "fulltime")) # order response levels or1 <- polr(partic ~ log(hincome) + children, data=Womenlf) S(or1) ## ----fig41,include=TRUE,fig.width=6.5,fig.height=6.5,fig.show='hide'---------- plot(predictorEffects(or1), axes=list(grid=TRUE), lattice=list(key.args=list(columns=1))) ## ----fig62,include=TRUE,fig.width=6,fig.height=4,fig.show='hide'-------------- plot(predictorEffects(or1), axes=list(grid=TRUE, y=list(style="stacked")), lattice=list(key.args=list(columns=1))) ## ----------------------------------------------------------------------------- library("nnet") # for multinom() mr1 <- multinom(vote ~ age + gender + economic.cond.national + economic.cond.household + Blair + Hague + Kennedy + Europe*political.knowledge, data=BEPS) ## ----fig42,include=TRUE,fig.width=6.5,fig.height=6.5,fig.show='hide'---------- plot(predictorEffects(mr1, ~ age + Blair + Hague + Kennedy), axes=list(grid=TRUE, x=list(rug=FALSE)), lattice=list(key.args=list(columns=1)), lines=list(multiline=TRUE, col=c("blue", "red", "orange"))) ## ----fig43,include=TRUE,fig.width=10,fig.height=5,fig.show='hide'------------- plot(predictorEffects(mr1, ~ Europe + political.knowledge, xlevels=list(political.knowledge=0:3, Europe=c(1, 6, 11))), axes=list(grid=TRUE, x=list(rug=FALSE, Europe=list(ticks=list(at=c(1, 6, 11))), political.knowledge=list(ticks=list(at=0:3))), y=list(style="stacked")), lines=list(col=c("blue", "red", "orange")), lattice=list(key.args=list(columns=1), strip=list(factor.names=FALSE))) ## ----eval=FALSE--------------------------------------------------------------- # effectsTheme() effects/inst/doc/predictor-effects-gallery.pdf0000644000176200001440000262076015143646017021177 0ustar liggesusers%PDF-1.5 % 1 0 obj << /Type /ObjStm /Length 4871 /Filter /FlateDecode /N 88 /First 736 >> stream x\[s8~_驮_*$;qlڕfbMRZ;Iɔٮ-"AP"čT&tfLl\ƙUϸW3ўe&2`YgBHq Q&,F L*zwggJ0<,2L+ʴv),3F>eJ3,HHYix&Ef52xQ1JFe:}9:G7x(X0V Ҹ,rn0h45P23 K*%4d遍d%,R8 +cEFkրb^- &y1@]f> N?<_xg夤tIX<_?i.JX>'0ll 'nT TNt2~R纂u7 pd-O.уOP}"EuXWn%eb,+\)cEO*jNgKZd&i!$i42ͳLӏe9p1;;bň?N";)9$_>9]MD+@T|v~Z.8?0KxXfqג1|b\9g<Ʉ!B4` "i<7 ȳ2pt_Vhg5oLb"pE4&'Ѻi\D+dio3 =d{>YK'.aH1+ B$nάw8jDa#It& G@"" RIS%E\.|R>bT]Jg"e:tN&&jIDRm2/}~}y,O8 ݖgZf6M`VeguY-cqϧ{`3./ۣќ< >X m*#;p:yEbytaΆ}?>.!|Й`Wc $u2%H肘Foy5<6i]*20QBT`)0"w &\ Mi9rY1D?G~8(8)ΊQq^\e\܊/e1.~+&U1-flZ_y(ŲX^˲X~ŏ{'X8Kn"PXy0pli졮gpi_`x4^,@k&4/Ǔ$߈ߟe`tYh<ѤX¿Pw~R.5O>ALo_'׋ EkQn,&$38IbppkiC&߶ߚ.dBSE9O7 N:-TڵnM)h+ܠLbJc*4C|n)rZq&sO&tV&V6>r-9Sn#BBH :'1-MpKșJnBbT|ZadLL\#({8sQ)*G42N7WU5FK:ӱ{v};.o39t2ZDzfW;ĹmmWZ6ONO7Čtl__ԋlVd3D4)P"F~] ՆyUGlrէ47+|1ɚgz)Bﰹ{5LG{~U?DaXZÆ qqk-IsQ*El8FBʰpTUP)=(oՂ2>g y PV1⟁u_d5e5òINm k)ckfEV? h7M()_\8kro׈lo;)ު6~Lٗ`IBYH}d8 (w%^Y\`ɥCzEMԱ5G䙨mZx)ǴvT׹GraR#˭̖{6Й_%=R>Z, )oY3Q.{PVt+HpЍ-:jU;a5K;9,Bsp[W:k:F6q_6TK3q8>ё jYSJRTOair4')yVO7 :&yTطɁJGK}5@D OO{iklm_%IlRr3"8+E)hd@8*nNtGݣgczEH['~7qD8X}Ė^¢#$Vs1W,ݹ2jo|WSZ ыl_П~{+T@ !*BM] .e,~C IxM+kq}wB*@UAiUA{i hO=յD8D~j~1SuL(#H:ͦy=k'&w!`ljbpݏ^ GU&8")`:V)OrCm#FD'%n}SvX%ŵѫܾ~ !hWjВ3R/`m`oo:YvLk` NeU&e=#ա:*mH}x,lzYzh[ t|>g}tΙ Tms2k>$O&jw^I!toe K}"?>|,@->6x04%-OnsVphۤ$juX!e.Y:{jJ~]Uۻmqs!EXy7yP\6[^`d93@Jxhr ؜,Z(QO#&5"Z5RVḞaT'Przٜ r7wNˆf w¨7@e)BbhF(*8K "ӫg%ɬ ]荵l M8?|&(8sḥͣ ob]tׂ{MhwBY[i\; !ݎf78%BSA=lOO((樤])1W䞅y=g17+޽(dNns%4OӚ뼣cPگVᕆ?#XYJ8O\2?2F`%(|` #J[$"v{ Ꭶ+gDŽfpZ {F~fU{ug5WЦaendstream endobj 90 0 obj << /Subtype /XML /Type /Metadata /Length 1549 >> stream GPL Ghostscript 9.50 2026-02-13T11:06:37-05:00 2026-02-13T11:06:37-05:00 LaTeX with hyperref endstream endobj 91 0 obj << /Type /ObjStm /Length 2313 /Filter /FlateDecode /N 88 /First 778 >> stream xZYo~ϯA X,KF+%Y'hi$1H;~jrFDSDBzzWVR.Š\R%(άJTYn&,\r)ar2 W< ":ڠ<Y|D "E1,~s`Hr^ D2˝(:!1)(bW Sx;^Ξ Y&CG1 @@Q,ˁbJ6QT6Eg!K`#x2;D d!IU I"҅" 2I3䠘D;GNVʸ"H+XPƬB$"4WA \Bi)너- #YN*e;e^Gf47}qb8x>ޣ M J=Sx0AW~'tirLl0k*d|~09~y_3 |ldu/h+ٜϪdW }Wv|0mx7?G'oG誢b>p2LGee3= ?ӛsìN*S?/fS08WD'8_X V9GW*=>46/rƁ\Zi?\y1C3nym ӘKsmƌG31S33_~m5pj T>o1VgGÛAmE nFW7 `:ǧoս-iu {?̧pwFFݍ;1oB-o@ 5C>U 6K! C;/RE˰յǂs+oV\V\֑95?]vP1VKs]x݌[32л4glm>6*E"|%hʕ5(u(nd'0#ۡh-āxrL S/pmoM- ==ts#Nƾm yZuDp7ѿZ>F8rŭ0sk,墭D #!:V@}Th#D:!hOH CĬ,lμOx@zGD>j WDu{Db9 sg0FIT%IXm)X HK¶SH'>V_g~s"ғ@_Gd;.mE.92-a=JAsВ5IQYb Աe"E<´|HjNKLũ<Ikq)ioA FjLm%nbp1{:u𑒈)RRRАlP# Ѫޢϒ.\_(˺'rsw9mVQ[-r6A @l `V:mVfh!<]/TJB>iU}үWb{&Gm'p#{JlPzLhtTA}zX*B,F,{4Mn1Wŕ6B}4ȻOvSB4IY EtMB\%^똊N[9uL9d> YCMU<d-v-O[Dwa峄樂 仐EUZ㐮%ZRNhqׂwk!z支+Sdr*׬bPE4Dm`Ǖh6n;a'~4Y'4NWqLjcy+żPDOr@TOx'q9lGX--g۾;w`n&w.0nlr"%1Θ2uD‰ĘhZW@[QÔ|*?@q_EP=7Hݚb]KQ~"O#EèpF*ċMANl勗^^60b//./Ŧ~hY endstream endobj 180 0 obj << /Type /ObjStm /Length 2597 /Filter /FlateDecode /N 88 /First 793 >> stream xZko[_-X,wT Ϩr3)k, YY[Ru >lDGP+^hX'D%>$ JRbXԌQDakQ * 0^9"ˆmrųMRp(WQ>8 N}T|r BE<`=(`rb "sR%~^PtŨ\Ģя 5BL2$N lG0it2>a,)*&gPY1' v蜊%U2XYqA%KX$DSH차W0#ĪU/($ʜ ŗ?蹌*6…s+V.s$*ƳT!: ^O!9&Y" IOFJ/%E1-UQ# PX11PH(mL¦#պ,Tdz鲚.cFt2~4~G uITQ]Ob?O?//˪֋3t]+G]{3WK:z>/O?b+TkT0^?F5fkPxTa(Te3wCB*w#ѻ:Y wML3F&_ >ʭwCUBu![jVfҢ\[`BU8\CJkʞ+ L&H LnM=L^V 65kAʍ5hLUT vdxۿ@49fԤc˳3;.y18jIN Z_Q2CT󖐲Eޅd]R.{ڤI;S-L &82Pcl1݉); jlFg| "sXN[v)mjR}gEE K+$)^m풒/.9~!өl\%-7JMa1 LYw"^IuY4xZmBBJ^3:m u*c"ǁ60qvc2oED".k|`9 L1 o\|d1^!,ke+%II3@a2 mҦ%oS  W7r&&lĮ N.Ck{8唷4@e5~[:pϴC3Lؐ6E@I|hl: lʦw&#2Cv効f6dH /̋ͷ/Շ?~zXN@|ݼxQL|WG߬At2Xg>/?8O.y2n8 4sr`$%vϿ.N@ax|jSWE ::L/˳ꅩ?#G,XVn7oM*PWjK/dz,L=DxYtWZ/ytq_E>/l~>>۽{*&j6 ^d10N ,.=Mӧ~!C oGտ ]%1;V~Wf +RyX'W={6J1#}qE k~C-Io-B0fᚌg̰.jo u>=YVB {FӘU@g~} +ņACA#ٲȒ7,2giԾſ`/ j\̖/H|+b8/>>V [_Ji@VPIb^a%Mx+)uˡk?c59CCJd+j*jg5QK^?MA:*{}2O~%FDeJ}l \QDyڢ{CspL6 Stpt^);ڽ@ZIX<"[цc.!ʀɌXw7w!PCH2y^[pDB թt+H7%ǻ:#J5׬Rhk0 XLoe2^tcW=Ȅ6TT <(w!6- yb:',lw@ԹaZƦFv 㷯o'|<]Ӈ+6Yd}?ܜs]&z+\\j4L /dv:o52[;bCZOt5M-{^'A N71ۚSޜ, &0ڏ{)x- pC)X} KܝNҏh'}C-~b_ c?+(w _/u5$}x"= t5'Y3fUNzb"đ|l$;S]jCfN\KDendstream endobj 269 0 obj << /Type /ObjStm /Length 3098 /Filter /FlateDecode /N 85 /First 771 >> stream xZms6~۹HNgn:mK{#S6/#)ʯg!IIS_H`t)Kt pLڀbZU3j5W˼:&RC<Л eѕO֠>; g5 !£"h'AS}ȓ*$"qA0%BA2R*(LJm4SV`r9X*ÌpZfSITgV jDʬh#`.ŸɔdSYHrϕ(x000v:Gh7YJӔ y!+i0"1ѫ@mlKkR`>dA H)iB)Rc*x o.Ԡk rdyA"UA*SZSI{DjZisT"94L&R~P D` Zk dNBoaɋnد`.Vsϗ%&N$yܺhf9445ϋISVl}ʦ}P?*)F6*w k-UDQo^Zd)fAX@byuP3Fw(pd Lz0)llgu>[Ou)[þ.-rk{f<\.&#*JnoąM݃^3`S(ap1E8?YJs`aUL%ϕˋ#K'5T \*R2=]y>yWl-xOpwU^ˌZ,#?moUMwn}C`sґWjm38^e8uF#b$|\`s=s[>:߈f_bbG7beV c;-wB?Lُ'ތcP8d{4?7wq<0oׯ)*9O:WtsQ0Ų,bCpCmaF=I9{f >?ap)Zkq~VUjkm(pqD6Z@x߹cZ,xKȚu\|>jf2_g}IYVl '0T$mAͣ)ʋ^*[@;.GMV}OϺ5Ɏcs9J@Dz)0g,mUI9[5UDnl9d `uю50x92;ly6 嫼[q曽?3%/_;yg&';K;SQJ %/jx 'dXڎ( ,A _/wYV8KG?7RMOkKaRIo[e^\\U(,oWQ%I'iR%u7J\;e5ke={V@Q)=pG,W6n`E@\L &NSY_ìsvڲ4gqjD}'Ҙ!i#iLR{̒6auN[o;.g!%P]".nwWBqO O龦}s͏z1hz |'?$'&Nʫ,9#cdJ̼H.2'E!%W<#MʤE 4˧ͺTwXNeLMJ>%ܦ4^3*8o 8WeuWXƉ뭵5<'2|~e-RAŬةL⪨]7heӶS Y! !y \] I#+zDDmyiiS㹣\q@՜-$LRb+[J=P*NɏI(2CaRЁ0H HR<^ђ -*&;BxvQfu[C44]% ʶ:7 ] b&<Gs[FVEhgO~.G󺸽NN5Ē锴Vg; Z.endstream endobj 355 0 obj << /Filter /FlateDecode /Length 4656 >> stream xZYFr~`( l4E3O&k]Xc hMɚ vǑ՘E2̈/_VyW9Ϳ걻3OǛ_n45ZꏷаWeVV7<^ybu{I4>B>덍6˵k͖MV%~< A=Z|pѨID}'-~m5|(ty,,co7Wa)钔 ZUa1.֬6&Jvwpm>V# :bmk=.ߔ0,VcT{Wk#:aJվZ:qOں{Ƨ tVQu2RPmtx׿8y\'mJkNu8 [jWﻱgB*r>jTn6fQzlpTJGUwhAh_hs+"Z4$rs}$ďEMO2QX N=S_1Wu}cKFpKd#zsO}M O'<*-Vs6>h<l>ȋԀ,k0Wr1$}*xu A ~\:Yz?h{8͈O>~/ g}̌[[ .Ӯj`'y1se3~.`3nvwlީS huoKh>ac8XsHxl_>t}}V>\mߟ/ X.Ja  tP=7C>fN{]U%žLW$ϳ_%#d0bJhR| ;:p(Lΰ<3I˜edF-˒.7sPl m^oFh4gA6=w֖`cɃ-ȭ1xu>О _O` 3;F qړ¥ }Va6F+ vp h^\? aAAPcâXTW-2|&_!~eYc߭q‚)P9ߑFx[jTpz 0.`pڦsz擘 5՚"? z7=ZgGU1yMr E\Gj)n84-c}[;jz1I ܕ;05@K_& @*> V XFDO-&!B1]io>F!FrCp5n-ޡ┠JҰBoVqklv?m,CO+.p [̘p&jKpB"hy;T%aWFAI'Ր Npr@KinԣH=pȕ$>KΆjֈ7W )MrBB !f#5z3BXݠҽCvplpeŘ_eQ~4kn qz"Vv@Dba{5~ r"zɰ,3Ii!҂Oarb%Rw@L!(;80 1k#^"ѹ85}[{bzQjȿ2M&E5(keL\LoQ% HJz >XI߽i0cs'J=w@z'!OĀ5C qDD`GuJ= y6r,i 1M4=쪾%f\t ;$pI˂,ֱvPLZ;ȶ~[L?uiXaM?my@[aijNخ[+^/#p1EgC``XHS*R^Sb>VSiD `7Ų4SD"y $/g¿m&ݼ[ë=ŀO7[Xq7#wxpn 8ۣ5ADY++NڣR]8k _{>aߟ (;35ݴF{x[9t e](1vňS/`~xBRME`E,ԁD Ұ Hծ)2Ո1[)bp1PU< "P" M@ʰ,@;,q^y3_c؆&`[FJS$+6KQ},qI>ΝHe'%)4ߒKq!\iP8&  LnfnHT_j6AqtK[]!ƿSsaG Bͪ[]^9_ûq8־ތk wCJrG=NMQ%2A B=z"rzx^h33Xt[#DFyIjXo>GA@' =v.O|7B ܝe ~'oj\y C.>RB8Xvp~ؒ'Άѭ'RڣD*uY̎>R3S%" mÅ_pl[4Đyr-zylb"|n@o'b#Lǘb6% vGuP?L6+ia1p k \\.+!=X.*L',={lKoȺ 8q!bDC@eJ^.t>';(d1g,q0C`(&<$/һ-aJ_dME< -UAa>آǐ=\U}Lq3"P\ t'ew _ sgFMOw e0k^$[A eMpӡ!o e`K XT"3CC@P׉OwRƠ2CuNmtzL^d[^dxA%9v+YE Y+*hL}.SXW .!+ JG> i%υ=접N>W ' ~H/#i\|jY^LeiĶɡ:f[/`H`!uIV]=kk+N`җR+4Q–XgE[imַuW F1"ɟ#]1.Cs6弯d.UM2܏h9oyODKĮs)$jm){ ~T8 3% :541;+ǐV1m$.K{>qW[rI2{՚0lj8MW)qW965}kt#N"s(wJR@ 5P`f &v+XxZ1q'v>@/̲̇5#~:=HW& 3R]$b g̕-YtED D&mg3浻 dzU\!ߣfJu]uCP.vV6a-~À- ߠIR\~xz/&dY'=xv=JWN% =rb]0iHَ_?JU+aB39z~z֩uxr, G` Jm\9/fi}-5+ip.SȿNu9<~ kC8%Ku $#qztPjUM_h!OpyE֗X,t}XjfE9!T?<4}GgHl%~Gݩ=PtEyWNE_=};FP#$ex^,wCm|=<Jԛ<.%r4QIbtnSendstream endobj 356 0 obj << /Filter /FlateDecode /Length 4875 >> stream x[[c7r~?~Q`~ bzO4ju]z%g>U*G}=1n,WuP^(nw}˝Z>#,1 ii-(!aW W&1Xi{M37Ü_Kk %aKhpN\l_\A io/abvS#1 ']_vh0a^ X ̨ڿ@2 ڍ=Rhxmq0R0PyaȃnMG_.4w ˼-륔ñuӆ8ArKS2@+{nfj拶 7lTՅJjFuZD_ZNq{AEЉʧ㶐%%*ްo@"6D nXc$r>,P g;uir݋RyO3.DlEVQ69aj{@G{|> 0b4r\w؊ٱԇ "hu@y,T2J;F .,@8P5{pǡ5*p<'IvrBÖoKXF-,l̘&%Uw.8hΦ [ad#E5VÛTW+X-ላD1LltLpЃDg{ݚ>-&* 6 uQiDN[D}GTkQ+)+ wԻpń(?4ܓx"4R1! =LGH憷 F L@p*ct;U[:,d.Sn;!ִkTQ^5VӨ~JN+-lRצfJ)'([Y6t&inqhMARi*H*QJ%(D &B`"D=N*UIꀂC% it',ti6$""Dcn=hb q*Eeʙ@R(ޥQZ.cPr"cpysW*%sdž1vU !pQOB .w@eIwbpa`: $w>rv|ͯ4)jy*MgڔR}]bZvgb(9Q'1P!aݿ Zhb\hR-~ԏ:*NɯO i` aC?|^p>)#b6. N>junDFPuP|3KV!g'd[nZc#|80R9 -_H5B5ka¡MR#+cI!"%sfn'RO2D .J;Ove/P*ߺ *YvO TM1e  \&)2 fPen)P Cx uB!22Ylf%+"[kxY13_+tSRЭ5 ʁYǨЭRH)ؼL[+1ZzMyeg@#yOc0q|mvX l2VqonÕG@戉x^two?Л =a1ќ҈?聏H m2}&ёp؞KE禟 ./˕,,M~8oAkˏ㢝<:0a>x0=L_Q'vO4j c\zwD9b-u^Nk31p,wOYk+/>C{s6jo}C0U>cȤq eU @8"dhu :h..NI`>+8瓨|Mzw,sHZ)mV}OoaGa@ fZz|E9RsEepMc80ˎr& 3*}!NK(CtYRa~_/XA X륵Xnn+S9ptZ>{F\Rj,W)dhżhY<lT|:`[`1vκR,fstw2@B^﭅|v`ɉnx~œN[ӴX!{NK.5 HO -Ɋ_iZ87"2ODe(;m^.aϭTIv*qD`i /9ŧX(yeN^x=feKB50WJ#ݤ Mczw(<]7`LA8ѣ*/IAus5)P4KrM{!&Y~oJ8Jp``sa WfVOlsQ01˒T "Iđ3PFk>iʮ(Fq-źF?\v-[3*yEU}t;C?Uą #*\oryHJJĸ>uxPW$sXê30o_ |胚۰57aa\Pw8zФ|m{~3`Ɛ<o:ƠJ{LlBZ;Wv9XIZ4o0>E=Vfc9MK|wX);?y<(C5M1)ʠ2FU 4Ppjr?jU91(+) 8lNLL*gꉉAO)wKMq;eLr-N-+GMd\0(?4uG; ]ݭ[Pb w'ؒ  ){UŋFiL%˼t7>H ,c*x:9nء:>>ƛD75Ip$j^6_XQob0]O2`4)`t^](P.HZ.CH)sC㧂vn~\u<κ(3} E2 /riendstream endobj 357 0 obj << /Filter /FlateDecode /Length 4584 >> stream x:r8vw{"22v&vdOt,r̡VEM2Ko@0TAI|x7M-6 ?Ѫxlo~vͿ!F:#7w7؄fDS7m7+QTz*Y7Bew0/aXQ{'=|@Zz]5]p[e\ٕSpz򡩃VoSxO 6}~3iFxrmӱv_~cL44Q,NnBԭpp _+3G:xC8_MOOMc/[dNLJjnJM !UqV'~<PyNBA׻΄emP |Hm=)n"ƄLL#@e#@0=hktJE&0G1lbH.oiDK༪ 9RS'T˻dNz#eU`[gf#UOTTa1onLQNQ@}|[@4,>}#Ù4t8wĞ[n:* &:̈?DlB]O hpD]!͖kt5 I4W0PQoIH:8 IHȷ,!V5:k=3$+y/9p d=3h\ՏK)/|E !S:At,J.VTBI&Qep:t9h3Od<1$Ufye7 !mݧmbaUALX~^F}viEE^Eڠ e>:d( f 1sɐ"(.}/o`d5ӗ~ (g[Mg tg S&' }dh~Hе1! bPT~ZKsa80VcWKo>H[(@R*tVtU}3F@>RPud ϛ(Ps;dzV6A|۔S~-EDhK. L b7 7wАtB{Z@ͺΩc<B>ԗ6{ ЌPl 2 Ap-2 m9M&f#!3 zD5̛d5tv,> ]}TZM]Z\Q%K|T2mHf@ & _LG~+X 1;E$m7x\t-'F92dPရlc !}*H`-udj7QeW+E5"KcTژO#'_]2 z7hcn%t0%llE0` ݚ+Z4ONd=;KQۻD7\'AŬLXsRGS,ڭ,mj.J(@qf$7NX[߯ gܻNSܭjY0$$QlwFkc5擹~jF U6*^#u60yO_?)9Gެ"I7.)! X7w\nxnu{hAS1ymئ!''z/'P9wy͆cu?Ӝ>)ݿ!%?Eyh|EqvA_sa-}E>SGL:")F}W -ϓZ F`Vv:T|Od@y?f{L+$}&f5]^wΜ]^#~: v|B Ur9$Pt˂Z-Y*IB#"7".y%'_Jz<+'(č(>e0_PAWLKpOs&%;ngGӢSߡ:Ԟ@%~PT$a3>z'쥏!Nd#0 *~&[xja4$j ? "}ˡ B*Ր[РM{_^utZF'~x7FDU!~ Ѯtk 1s-\ҥwLW)f^n~KR SՑB#^  ~tL0nx,xyp(°3LJ-jWL*hŸ*q%OP.+b\.x#<vNF]ٜ>)V0YOOx9&`DOFMlH,"՞-v`8{ D eyӑ8[T|hK^ʷ$cEWoӐ1$9-uYx;u Y/q<ۧy[e̻FN*ڡ)+藭w]K!{ |%h=p?sendstream endobj 358 0 obj << /Filter /FlateDecode /Length 1455 >> stream xWM6{{0D+~MQREm[Ŗw]F )Fns!"E̼[\ VU~X[v=m7X:`]oSaD ֛ {ja7{F*e,c ٔss/nvr\)ŋ³]#|+38WIV)`}\f4>l7v]V>˼2}w @`,Nls2 ׹4 ceL`L(6fu0$&4+O% ^dL1)r%1sNZ8Yp ? G=FK9e>mCsݭeTwց;zl۴-LŸۖu= Nri܀_ip-j7X˜L($fp|!t`a[E$5H<f2`[o ׇB=ą4;ȸ6I@ ʄg} vcaVqC2Ȫ/-iR{G &i] PxwqeR3GjX e+yK&.zjvj"R sbKJr ?VO͋ >x9Ig l׌8@GN )GUw{$6\ ~\)cfGРl$6}70ݍPwOOrS1QB3cHzʵFS, Gy'`q!;m J(SLyL+Qdb8dZJ_y-P$2eR54IG`/L,^;6p~nĀQk)֛aK;T. ʲv>W on>gWl6ȸfTA~?eh% 9f)i#sE6x}˼VS)-?6]54vn>i C}nX((KA+ZEbt ,V#Owwҋ$IUw;:CUhaiHNUU3R⒎7iNՈ6UJi_ i;i2E^fAAH/XQ#q R7}Go߃M]/!w? B8Iuh)}Cre1i)r) w[X0rΚz,ܞE M(*C*^.݁kM]7IQY8&V]rS;߻6Ka2"'RTq Oѓ[] ֋YLԓ׎x"r{t*l\Fg - cpxr*W^]ٗ/> stream x[[cI~VǨ}{A fVc26{~;yܮnS'2n%^wś`g;5{NYj7=phgC?fwy+YԪW6wwo7/q0=\uӸެ.Ecwa\]N}>v|i7w?t}kH"uȚWyfE/D~4M]nvEPq/L@W#~2@4fay+R{<-OնA>wݍ?Y%,FhB'z5zsȱ0ѳ@*@E;2\>&ms`-Oc>f^mL"] "(t8]Vd@ѐ]~?u($`X,~PhߠM7+8OppN(},49搣I;Kv\ (+~Ad}wg_ oK&Rޜ[#7x:NE)v_JA0T$%n!;]hqAQ' ܛPr9R?l,c،3;yM(ȎxHWRL z P9Rt:.UćCS!@\>o3Zs2nuد7a9C λ~ ;m%)dX zzOsK AC!14HA\nd[%i-dӑdէ,&!'0ؘBT[!!TG6;cEeS8:mP1s#R9 QzJ @is. (Y]S6rܗ,xVrK.&x*REéd,4 j(J@Ӊ낁J!(~$K)@@034@`H<ߜ`PeCUXJ!ahq&=1hHJ.Hdx&c곆0Gc&,;t-zmpp}^"U NN%uX[buyia, N)˿ s:wȲ1ҞG\,G"RğuiY^\&ipZ. 19+^®09BO&'qQ kWnUv,hP/mnjr8P4QaҲK?+ιη AMeS>u{#\mXVaYnxi:2Y]E8cq)_؇'_q&SK?r7%;.)}&fSKJ=2'.b'XZSi2>)t= zO7|̯nqrl>q3O8ـPA@ Xr>D|| LYЮ|v:w>ks6@:ܩth!x/ǖ{p[jF]ۏ +s$6%?>nwn[A LȬHQҤ:|LBf9Ag)9Νu6Pr:QKp EbLm-12lԊSSodS{w 8eofH!h7v/O|&*y,‹|p.>a2/9vF8ӸoËd+@T qN9m]֡C.:pyYX0b?ο\so"X$@~,͎5';* 6+|nTj͔'\ bL ~l:2m#ȯ (u%wMS&1^6(e'ٖc=irX[z~H)OJ' [*f4eYCgllL[4lwE4܏7gU~G]vhqyZ|npc"LЦ}iӥyv6d=fh-i-|q̣|y@뗥SM.hkZzm/ѱE}r{P(iuVB,-nlpWo6uG|FAx UF͌4:Q2#Aw|ti&Ƈ9>>(_J? B pHÝ|4A= Tͳwр:jT!=_6Hb8Ý3@d*:x? N>%5\r9 ╖(1]Dbxe2 " &|Qֺa* &V/LR0Sue^Aa۩b+rՕ#ba46;)Aޮj6:Lga1iPa+%X,%`-%h.XM%FԦv^ \Sڬ9ap7z0,5+9 @9AW <Ej80! Bg@I%BPB ++?VIo PqX tOtQgB`s Q +x ~66565yֈB7Z tJб7L7fHck"֤SL0%ZtVZr^@維L7L2! CSL Z8 jEӦpT4BW\ ^Lp-x7.rNU' C 0衂 %u4ƿp;:=tl++?&M vp?m 6[ lEYEM,zjtl`Yԋ Jt] vr6Ŵ V0U4CBEBHä)["`؂P.ՙ/Z f42@m3 awL7] tр{pE-:2݀9"ʏ tC3wp'۸z]tVр;Y|p'CVCp ^Lp&;Aɺ\  ݀[8 tEYEӭk8ILWp ^L-x7.WOހxK!3O_d51< 1}X-1?-:(E6okui< y-\@WOfJѻ!u7;UVnI: *Jpf 0"IJct0>pJ?XV EBV3+eU1N٘d6W8;"iAS!H+d S?V~?H+^/7ʿ%C3oCI.a n1N[ᴖ? endstream endobj 360 0 obj << /Filter /FlateDecode /Length 5244 >> stream x[K7rwСSCS.;tqJ rED5öGI2@zzH`HѯW]n,7(uQ.tR Uu\7 "-5(ի ƇEbotZҝ>>øެNbM}JѦn\O_a'^E&(adnkU@i+;\vRiЈ^[26U&u-WC|r7kqU2oAkpuG=:U,Emvн \@Ad T {n:R$D(k!H:Y'҈Ăe[HD^@^a@@n?a(kO-&俶BtQ |!~ >B=2haBzEZOl&Ȇ' e-wЉ< E Q.`ނ=uIlzyD02@I5 6@'AV*&L@tfZ^B!Š4) aJ5Nb gП>+qe_4aAyN#/qߍwJA^N!S /PG*LeQupdv( !4PugCa~ĪœNsـզ <(z~,$H(y1ABd$%Uթ+ h40>Zi_a&3AYCkipeM;7Py*'͢qFW/XfP|B5 U h/iPB 9JKg^U(P->!@^{a*cj#ĺlRKT%{䮞kqUË> [ au(#@Wʱ'q~4)f 3sESGUyM?A\ O5CY;pDݑ1hDgĜzG^ Q.|p6Q^2vzDu _9R׸7H-?CYt }{(`؟5(TdJepNJ,c@RCaSH&. 'aPr(;(r A 664wȚN* D`jdUf"0?6~5~A+YЯ0zM6R/%z<>I#L73ԀLHY0o5Ňv:0+GbF:| G[㩬Btsw<ѢSw:P~ 9=v+a[u=O:t~[XLݻ=cޗt ÝͪNYGwnaCc%Hw@C0Szs\5N! B}B)by<~i ;Ȧ|I,e7qڃR?? s`o)Fہ|=8-wOkGlQi7M]ͿS]xs[Won3; 0Nxh=fYvW !;k(B1v 5r{1֑#Sh q 8IPHZngwȔ-(c~>].rŭR45sDkr8x|ZHV(e'(bnUCÛP޲f)= xeK̥720Tы>)$BOD7/SsksMWؙ]Kxx6j)qⷨStڬ1Q/JfY0(Sk7%||3yY`iQ~G<LJ]ei@Ls)MKWPa4s)d/RA~ "BTg*|)8,ͻ[hF~Pl>M`AK?W FzPލۧ7w!xRs ::G@f-YLUe^v JD\=/Ox͓g+e {nY-HeA Z OQ~ʇ5g9PDdofܞ#xDnXXn7PAޕr=Ͽ= ~M!!|IDj!MD!BrD;)aR,O%#3e5*rYnE%y&WdG)MT@8ǡqN"st=d D3=dc(9wML3婀gg,C  ᨛ&n#^9`gB`+yq*2nЍRzzf)p3.i[A[1/f"L 0{ؿhhwi_Rur#]pWhA62^F,YkJiY ̋aI4#Jb#Q=M{/B;+j~:yu\>[q$ɧ\kW`3 4;\y\E@+Ҟ6<'N_&qNęJi}2GZ^/\V'rܔޓ憎XPZ~TD|9J؉B_;Ez;xҎpC cJw.ʇoYTl+2a8g2REFRqx: =19$ %dSJ"S5IOn%%i.i;Mt [yϿ1iu"InN \YJ*ןЌ.DR2?P3BŃXݰ1?Vcۿ r{j>ʥw(O!fB)9= GdVS?%IS\1 4ŞEʇ#[IRT=T?\9I}rS_}PDnzdNՅbj4vG>D )'mr[W ~6h6& iazůpx˓eJajJA +BDwy u#o˥u]d|fi ;bt0G8|VC#F/mi;cF cwI9: ^W$SS$ӡASۺN t# =wi ] wP߆kEb|\-*!Or-\>EvKa .Y%8Y'gBjIHbIy~:1SɁ*wyvȏ'cλj=飿@8d$)-1o8۟l<ۡD+V7uiAU`gT_傗\2TaM~O҂ ˌ& T_gV^J<6L|)/#(slYxDo#IБ%bZy 0;on<-˕:?[鷖^DjxJ~a)/س[/ͶgϻI*`P++4Y-͎ޕ^endstream endobj 361 0 obj << /Filter /FlateDecode /Length 6098 >> stream x\M9r/eZ|ݐ#֎ ;;$8lVw/QHbKСɗT_ޮ ?~2돫,_oήSF7oV" YOOy09ߧmw2 ɻt~>޽<|z{7O!͟W7r؜ -?)pzFtBw+|?Lܮ`i?on~Z]e[GK㻛_'xp7q|zM~.Q!՟g,Ç+GoV&nZ{3MYn83S?n_{}"+a4 pz|\?w]7uyxx8^Ai0'k#.SڥĠ&B][Kf`i4[ܟV6 C zn8V[U8р q*5a~p*[{36iP3};h0}-p*j0QT4k1i,ʻPYu~ *s ]ӢS?@%{;!ԫ>tGq ߶>`j xgz'^Hjaj3~)n{SYO64.' mPSQC+0LvT8 *;h*RiP H &;h*Rʩol+6&!M2e0 \ qX 8%9=9.~1"Z~I6ᴙw#Cψ,v%ox">uO0hHXQ Q;c)zӟq4NYK z<'0 !Y "aE N[r~7F "A9}) & nm<)O 'UIA5DQ5('UIA52FuB#s6%: 9^HP}DӅrQ.ԗr9\!\/Q+M$_W-xWUz=^-Pīxբ^WgU@g@ F eVC pkhQl%e="؛ѠAAf!|J aeKX'J336X z#GU41FF2Kd|51"kc^$ Ea9-zDTZ>8vh`El9,Xh[HL;-"Z Ah$S?B4F*CdbC\V$xbHrG6rx%:Z[:p U2I(g6i]5`cMj"Jհm-88mn8h &C݄2RD4p@Ixe !&(BMT Iļ]`etQz' /ֈN[DFĥ7* X"s'Fd WŊxk>)FUNiGc9zDR88(>(P>l ;E2I(+l p_BZʬ&NYêIlʢAKֆb?ΠvQlAH%1"jҥZ26iB*s%<\.55z%sjE ZSQTrsZh-AᄘwWR4`w8(JwRH-4e/\3JRg3 }ZTD\0*Tr.r8VJeffU ؂A`(EjpdC);r5 .\ENJxqW艐Ħ I=]SɹȵZri(~-j H3GPSɹȵ֢O`7Mn-F>C"s#U@< ۄj97ҙ D>遲"2WdPTr`@]dQA]?qO2H}+{iXj:E2I(GJ#Sl"Jհttрhtý@ޘi%5ljAWZ"s=!K2j/g z6@p <\z"R#wAJr`)$Ң%2;1B42D&Iu*_ w^ޏH=E:xDavz{4SH{e P2]  6ҩcMj"JհG&Eq\̕A-?ݴ;r?ˍ[7*'״!HB98Y#!T|tBsCPD6R,&mU|\ê[ zΡ^{3{XC>X925e6e3MQT.:v GPSɹ-tu2]MNwBXSJx*9V.hW{n; èSɹ-tNRh[nOA ae9: S`ln#}zK#Tr.rp<`ͭJ Ĵ(TY*7>*#Q);8('7˒sku鳀rr6T<ʦɍTr.r\!E5cxd -IžȽ/1#,Tib6bVPȺ^aLƃBфP=4w:bi)2`4#ɔ bDAdb D p˸ʡ4zwO- ~nEE`d J$9e viVDhX#7Q;*߀dh%A㋌0ZnwP@H!y PNvh'bBH#\V$ɩwmt">",ߺ+}ߜD0#U]0 "> [in"ĄPUrDDOO=@aU|/"#]X!/a7;2Kd(# < i~"V(B ȝPҕH݀ w=tESU@ʁ*, 16CMjDF-E*+YI.A&j)&@ &%*'.03MUPA¢H]4(-crhCh+P+UrZ)ZISZ+zF+,$z=X$~WQJVd*pb3UdfHOA$2\P9DQ4 -jՠAA n`݀:$[R5,!}ÒK@}_X(谪aE05zX.&íE^l,tRb"ˊBDy#=-(?N,%*ʋtΛK3'?*˜Y0O%"*].b \Z[-ajQ[nA9[d^\!*KȻ>/wR*3fH{YYnR&ccMub.Mt[Fn/*hR7!8ꘓķ^ -i]Sɹ-te7"; eZp>[8Jx*8B"Z)*>x3j" DE@H;+k(z( 'Sɹȵ7_#S<:~H#&7΄L&a0=Hc`=C7OZotm$=H&5An, t`Oy?Æ1RDx#]U-O~؄3c+9,+R#N73׸nA;we HY=%Ct(CDG١>_Zz1ٌx g<[C5uno/DO󜎸}8^NXloyg6'1Oqsէ;Z=),]fU c Jxy@:V\G/˜>vnr;r)MQk8%꣯^Ҧ>U{_}dG+^bUsp,B'$$P|SSɘՐ$ K /s; EKr DJ+LSl9.S|`pG:Oa]Dȇ́>Bk nh:Hy브 S{p eX- ^k^/x = #gW;<~|~/5,t~J{x1/KLyw)69zl*<Ѫ>d9_9++_O:c:Pw\_`}Gٝ7S~3W_8d'-,}&2~L\O׫#t s, !W.#W.\(yqNS*:vGt\gHY*RMMUMmIG*nnz:/T!/L'@6CXU=]$y? o1[bGqsraE>7)[](*)sqXok.xv7gk!(⿥fοvqɄPڅpc"S[|>X0٧][I.bnDtDKsCK'l(YQH:{bL쑶\M92=(r$2 v"PCz&|K(6ja'?n"[ۺׇ(F𯑌'8}>m/N`:q~1wEw[ō~ǣ 4_ZN?;_Ka?^ D >>KFugwP5>ko7wEn$R(/> XDh FD 0r0g;u^t^o꯫endstream endobj 362 0 obj << /Filter /FlateDecode /Length 13530 >> stream x}[o%G{B/[\+k^4;jc`p<즛%(ݒ B?41*+32⋼DeYsg=/n_?pUտr3ހDguWgo^dxV\C9{s/ݟչp:Dyp \̾{?T ޥ?Zw~=N]+to_xK9^p;o  .8lǛWݷOlhRc]̬9"s~>9\[+]HAK56%A=hvT.O{l?]߽f߆ݐkv5%>-ZTm02"ؐa"dJ4>)Y!jM!Rٯ h:RQ!kp(DL!ү W؇F)?UP!R͚'YB+".S! /W0FdvBRu&1B: TPE#+DX[! qK}" aFR4PŸ-m1nq1u\IĢ^JjB&bXMD&l"VRXOg5ͤjI=դ^1\dx>A JEHg!Bڂ蕈eOw\‚PH`P8Sm?iC(,;p(n |9sh/i <] AYk68iIaIRfU7J{\  !~8|q1Uf>S2S0q*8kQ-?fj/ZaPd iU PPj%O /C ZP7hUSg,q*C+= k NEas&PB?ERPnBG@y5@BKy 6h@Q 4NگAp95OKH[MUƀ `=m,EMgs _y=';M ʠS~yX{)Si@)@GqNK)mPXqzV`Xh^c=jyxuYm w-@!X9nn.oen?߮a^cR]$j:]lGζa=kք[Wb]ʺuM XX!K8,qYr3g)ҰYKKF64aC C6Thf VhtP;.dNgE0k. YZ.I kbSBx1VNS!/sv<RPK{N@F$Bذ4Z]2[zX ;UC^k"(_$D")Zb&OgBS6\h"H6#rbEZ9 s]#.9FHc5RB hQ7Јc UV%p!Fm9Xf ^mqo{[;{6+n!rZyJmLˍnm'؎i;1k\Z3nu+z= /7D`bP,Xbe pIäk-/)`C 36pe" zmmõ j߭B v*Dt״tѻBk7M3(D,I# E*DV!bҬ_#:͇R}Q!YjB" )@jB)DO#K6TB$~zp0P HLш[T& K Ž-mqwE nc><{n,7 E(4˞[$MB:{n,7 E$4x{*i&dZz:fϽ~6E/Oyg}K}?]q %yL 3=ge 2Ou5D%IJjDF q8e]`>ESn&u t#T.S8f~*7==df{?.R0T=ԣ"'SNG Lh%1;Q%Q oB||a߾>@n j.z bu2!S{hCwakh<}-L< B `hhq_bUxx!8z>JgYM`}dVY&JiCJNjr3A4}0sgA AoJm`|Uh/I6<{[ijS oţFlvqu`XAmpՁ]5}f&,Ye/CE_ q1, yX޹Q| 1Q=$]xE #u8 6ȮҾ]#a77갳ԹoJXVc9V-VuV L/~]m̊YYӳiMXu+֝YkR M&dc ɒ%6K~ -Zdk+o &d d6 D5>sZ;Iu91=,mA+Z3Wee)+kuieWpMRz. Z&t֤- 9dj3KJRX[J=h)1 тN4iv HhĶ[O @d F~/⥂1Wurix= ICL|ܸb~$Hi& <#0s {;@b ̉ƾD)M $(5qh~DMi- Ɩ !S G &(P+3vDż-m1oy[b#晔Z)تT66۪ƪϪv)ӗIXY1-k~DK`źu;}[X &p,)Yf В%RKmX}MlDl3ݷ"%+DޮCL&ʚQW"=iEm%)DM!bmV4PFmT5}׸C!/ RFܢ 2,U*F*DY! KX ;*݅C7jrż-m1oy[b$TE WR-㔐J[$MB:UnT"1N TEb="5z2Ej&dԯL{)Ie-\܋_'>,M>>2eᱶu&Lj9+K_xМt~5MikZi4DIԈ()i-:۬N~ۤ&mRqEJyHT9@̂8jhWq>@X."6/Sm0|й@ݱ6)P"ft\*n ~zzGx)FC m"iY p@vgpA-$hUg4$0Rj+<$iTҦhM7P泛f}vZ5+UյM6ʳ `;vpkniju0֩\zuDa%%K\ $j֐%Ro 6@db g6 *IN?U)#nkaDzbpw9vd&Ua^0ˏmL /u@+hNoB#BEhb& > )BoB#BϛH磐"/`*< ;H{GWiC+K!cO 0cQ LHPҀ)WlB4@ɈI(QRbJjD~!17r=GCH0ʄdگU٢U725ѡ =m: ^x?N LbW˗[a ;Bمa^> ;30@\t!0iNP-G>J]{< @puZ櫛nY⯷wjت&[Ϊv&ەְkP+Fg oI#Yg3no҇KC [!EK\-[6|Iq.' "X5GT7Rb@̃\ U.6xѥ Io {Ua/b{nnu[bXL*Bv[[]$lYn]e"cjqZ66n:u&p)^-=X 4cҕ4z+h%aKԆ-ې`† -+D(lkrmj|J!\  c2,FF](եѨBg"aL@-),2FTHZd(dv-e OTHYE7zBa(-.YjB0!BW*$-2FU_\:rB' 1(DBoS,y5eҧ.h`2#Gϗ1pc;8N ! y:FM.^Pe,ڴp989?X +n!;vՊdlڝ+r -#/x̔vEk}`bS|Wu8s CЖc4C=$y4gxn.oex?߮|J]MklRrmN gӚ5s [V:uL- X0db g,qYrh8Ұ%ZKƆ-[޷blD3dUyܢ$KK}n_>\oDNkmc+INbIi"g!uZLg6w^ɋS+ryY %k!YmI˲I[- ,sFc;O< T',?3)AfRJ1J)hRw4)QjQJq(5r(%#ߟS컛ƋȶhD\>?x-X *Ǔ|H+~jy({$>lj!=z ?.2v!h |>w`,OAli_FH/Kxg \0D:?^}1xP=AP9Ci_ ϟ{(zp N 1m<D|)X',8<\TxǶx <~[9x ZxxDp4ڝ`GKqqBdۧVCH+ UB!/ݢp7!2,N-E!bM aSؤBn¦~LH" ܘ aUB◹1?/sc Lqc<+*$BӑD>B h I{<ȣN v\mo|["|-cqsk8;kT2?qYGD%JJe-|2l&dnL2-tnٯW|9uJ+.uӄW?CKγ|E7?v^WIO+c(/^!޹Beu(/˰mw&궊sɛJ㙰=]|s}wx]}X/ɰ{<Բ }|8\? {Ø.>X.#TQJ0quQQŭ"@ jkJi{w߿5hoY1~]ؐx:,x%єNyPn_#cwnw}`db丐݆xVM^o๋廵*W)U^$6ktpt&ϚပߟYP)|.s%Py%fЃCv YC]"2OkLDE|Rq~1Eb^ =r=ƫVCg Sߏͨ0h`<`tA%D-?0ϟ^p017&NpwqAk2>ʇhȃ<k$pƎFB5{0}"}` @udZQwPQL;WT# ~Gyw|{"zo4lLL_c{l(Of#+̪HcJ*c`E*FgxbE+|w;71h񹀏<p:C5Yyk/hBc_GP7\HC|>ww+hv}8<4S4qQoH+}G<<0Q/i?\A%$6@S'T!8,4ȯɤ5yԺ az0_>q46b8&LUV􊟩PO4!hK^2cP'BBE}M T'B͌^0P\܅i .p & ]*.a^5B$J=ܞ/;=fж'o/Q`¥8%>]&L#[jN􇌳5IyEU:MXM0.Cex 8< ?m=3Z\Q hFO2ItrCvafz_>CtL `/\ Gbi9*B6PM7<V0l#utilgx4՛1fV^eaE3S=-FPRwI|w@wu<ǹL8 !4eWc `b=`# 042 *d@w.77Oh䚇$=ѹaFt蒕~bw^[amaZMv8lşiU Yj+i+I Nւ ZT+z0,fffi2\4k{ xa9Q Y̟>Bi \pV*Cy %EWyXj-v8=Wij1NpT_(/[IVki$o׫80tn`Ҏ/ D(c^:t ~ ߌ=yz彥~w06eL5sϥvy>z sv7ȫxE CMc7 Pwph RApީOӭkύ &ү>HCxL-mIĊG.m5s9~ܑ}+ҀgOD@̣%n, sWJVgQ>a@h@;t4~~Þ%@gnF i" Xڽot4^?4@/4CU XMqf<^ .,R?0endstream endobj 363 0 obj << /Filter /FlateDecode /Length 2866 >> stream x\KsF/$U{*Nqb&! `@P``zp$E*$0itFo?)>;oG_?ˋ?NbF5fTQJgpl8)e0vvrq3z]bN0pѲ *BzcB,zYlwviTgaP9̸gL>Z>'ߺ=Jܞ\[>[0Ѱl?@Ye$}57fUs] n([cVqdMkJ):UlFo`ؾ/BZX_Ai  h5 Ծ4]B:.2TATJ-F'\>2 Y BhY$,(53*0KtA_l!uXqxsEjpۏRL8a|rcnxTQD@o2 Aޥ?X2%Xb4 A? -x!z㇐Wv6W'{ֳ6Nc"$#OnJg(4`0ilHt'1L){|+V%l]E 滆,KQ:U!ZӐ`:.KZIVˬe~V Z'qR9t^흋+L>_@!lb( )OVr!:uT{7p"ߡLOhKy; ,/brcA.ZVy5EOrKvCܢXP{Hq7Y՚|7=lJj[4KƓt>H-@3dr<I"QC!*9VDOoHь36.b ;Tw?YZđӤSk"+xx;~dJ@O'_b͓"\vro#J8Kxx>O  b6:46ݩFrY]⑙ 040oVn˺7ʐLpj]U1`S2 wg Z^_Υt@+*TniBLwN!%nTo.MͮIMqRMy7u]rxKI$ ?WCNAe1E<:4b'ʥ:9T5ˮ13]7fyg(_J/"G27r `˃ Ufg˼ 4=NѬ-\ F`H_J7U]0Q;<5 @?,'#> W3Ilx`saˬ:A׋] `[S)ħ8iBCc aVĚ=[kDv|a֩B'Wx`?,LMV!Xp9Э\ʦMn#Ժk* Ǘ`{JUc7雲8\IzO ypHjH>`ax)*Ǫ]x, i[-gQڻzY=Yw*qUVhv6: >nX5/Z_kЛ*e|2|A&U' ?)S RaL2}BZfLE.DutQO \^mj~u4n>e~ҡARV,)O%.ePIۗKκ ̷ݠBPL% S)>E~\M4G܁_>=89 21oJY+n)Z{P BZuxCඩIwv=MdlIn7~z\oo>l K:Oq35kykŻj#XJbvRE"fUI߯OvXq1i}acYb)3BE}{ XDڪEAT06]> stream xmW TSWay႕}qZUkk[WD Ⱦ!@/@ aPQQԺUVm::R fxr(+m\yμy-/f]̯Zmרq˖6uXW~r@qh+tMHM O7iY|L$)K=Znu;0[u}F=#U?@o 5R'Sˀy*PH}$Q!kݺ~CTv}c_7dΪTDX]U\Z!DRF(f'dgsG>57 fCrsD%qY+{~q&1_7~]},@41 }{׏m V ܒ\_`iL: /HhڮtOXQ!Ӫs !;kvFG!7hpxUduu:=~u hl45A*; h2<6ew@lfc&^ ֏P&C-*2tp:+yPR*/C]HNdw)"]j s/dFv HB;r9Hߝ`֓'ڑ?}yh2}ME9D& 5)O;S!;LZde9hZ#23H.t -7 }Rv/Y OiffPFWGvA[aA`= ` I,/IЈʡ=Y)Z.d\]򟔪J5\ RNLu&H4& NX.}O[RcLVQ.<`%l!g@*B68L˕j5eؼ6c 1&Q`xze#Z4C0ozbb$ 7pِŊ+}jE3#&:<'N(pYw=>hP!5fwBcpkΪ;ŽtJZAhYfVT4)8)Xm2`Bjn3;.GxV 'Ay!tp H٠y ,AKؓ 7$ /©k{jگ;h Lf~RZjCaKؙrG-Iu.!jQhPKSįJD6c#+Y* ֕\dQkh WLuIfK%'qLaFWC`3Q3?vݚB --][z֐ZdA"t|sS4,r;U440"U)`@"KNNiJn*#iK]g,r1:cy`g4hA|M\;WJwmB%eo IXY=^r+.+--st:enM-rd76— H!'{b~ti(F$'h+f~ӯʯ-DؽK{g}[/#&5MC;g 375}3c{+W"/)T8($l 8着tr Hf=Zk%%I[(UU%e4gdE}B<%E܍;N]RT %.O^-mN ?ܐt4KuzX wꍻۉO_bq.QC#qR'*lmv|2{El3g\Q?au^sⳆpE-G@Kuw.=4|b 9J;\,<،ya m ?He'uP4bk6eBkmȊu051a{ZJe$јbhmlh;,&C+Ϯ%@ #$97aːC G@ .bFkOx&~$@=sN)c!Ē@UsA-oNOtڛGBhݱAab }y;4Q9BU[ Ku”iY-aCyCEZMݓ][{O!!6**K) .O_ͭ(p6wӌ[B5n@yY[Y\>O K\7Tx aAsBw{q2fS{RnosNQ%vRxBr`Hij? ::ņ_:WG^*4mVXYIMۀL$L"CBY 񘋗3c  #'W8 SeEOnhLEhơ,].JSUT1 76ѯԻ; S$\W$&[-I?Z',V$D "mZc./G'&nwGCo/kj#ۑj V=>$Fl"A:v%NJ78|s4y O3?_> stream xXtSW}G3B` 7Ӎ!`+IV%^d\!0$0!@ʟ$ sɿ2)oR<5rpF]9s8xG';M~37ocG6N튺&WcU\L|Jrhq!SVELYo/RފظU$MZ>eCjwz3Cn #ggTݓg{}y[НR[m4j;5zfP;(_j&EVR=*ʃK<)?j EP먹zj.Gͧ6Q}*G\).5QRnr猦P I1wDT'pFNwӧ;V;jԨQ_N153LuѺ6W&xNPƻڸs&6n:M*FMJmk[r)t7mv4No?O46&f;[K[jAe(I^^3rYzhOP(#h 9A l$I i%ޖ Q$+ X|yF--.';Y]iƽgU3u!p!~%E>}v q+k0QؙkV!i, Q]Xl]JciEMtB5<_~EPevWXC|n )z.w!+y1Чlk(i+Xsacc/!RҜԢUtKRbi:Sƽlt O՘;g+lyn|FmBTHEPʤom 6;gd7Sp[_[Ա54[mAQ 6Y)aQ>4+Kr%L&+d $R ,*9F׆^_B !S0#/n"@^e6ȽXا`)V̘Аح0(ѷ^]+J&$EKvħ>دJsE3dƭ~m!}L7 7^UK盿,.\(V$Rg'|~< nS>l&俳rWp쮬=8aCf:ͷ9u?]s,%Y8-U~VsQI|s6.ӳm|̈G_plM]h $NcRFՊa5%/W7CB XA^nA&d"- KDr*GXΆjGl1ȡ}3?nZ4&]Q2cg)Ju]uF"J@yDlBJvDj> /O$vi6_DL] , Ņr!dzesf{[iBRLacс^C ]]:I 2DFg&%H$+BmLNbo>WCD(ӶK߃zz -b, L.ۈq0VihE4_)[=}(cl]X1PF~h׏}#Cؐ=+)C C⣓bòHXZJ6OY)Ld@ 9=CXT7n]~229y)AwG7 tr=>g3e y\𞸽0oIo/ȁUVAU *{s|wc;X:ERx,0J`+"U腤}4ѥP.U&|<C5PmjC Cc;'4yXTm/ JaKϑo_+pX%@a83>pg*!U'IA6R<~赂N$u$I (BcSUCٞ̀XdEjEî!'9ir(Gkdips:b+AC|[>L ٴLlt6Y_lM;*t֬F!ZuaA!ؤѹ9IR.#h9u rT?MW^-5f9]~L ߨL>=Ui[=^ #;7ƈEp 5E M*?h>C74v?s~P< |6pױ[@KakvS]քlfU;g,$俑[m5?I'[y*Scb~  zo9xC,p[&5DJ"m ý׉C1!4tut)RKfP iyovppDx|#G9f 7Dx{-9C2L*@v yj .Qy䧮5uP.6ϋÅ#:{N)xC)M*ÄԷo6xt@5t-@닊hcV3sRTPȥ2u1$ԥC:IxQ;$Ob17 NkY8gwȾӆ=wNல]m6L2+"ϹKu^r'0ә֔#0ː[ K.tT[ s>~@`@|$c1 "پ<p`S4Wۋنr{dimS]D>u'S㝟2$yOO7Kj-AWg:b!`lX)-pyD@YT))}훞#ok7_^ax0'n{$}OK%~`ٗDʤW{: $y-F6 QL h9 o_Miڔhzsqzш>i]iY0` 'ߜm֚!ϳȃܓ5eͺm  ~rRa#g=IS@R[Hv6|Wt.].לP dDg$mIޚ%ß($J?>BPSHљO7_Vsܠ~!~\ts/UWFWks0Ôm^x79UXYvı-1]ݖ]g$ 0sXTp%N@ /ML/SIH抶 A[ G :Z[n, |;8h/Xl~[kW5OBAyh=}#m_ E6<~)W&gI|Ɛ5U/X&l3hZNh /O[: E"H&WQ($^y' $L؋9~dg 7l r<:0ņׄXS,݋v#ϼ z5!(1~5A7ۑ`4bCEۃ郡#[*uIBY4iP6(+#+ó@*+QHv^AF% + #0>䨳jkJ-f0sP@*$=*92$'|26g>o~=ād M&q{ -Ylͧ iMF"9@}LR֕͏ذS6s>̇^k|;4TaSxHޔvE3jT7wW,LUEgd$DeGWޘڢRt o؜jo"M@nD_4{O?E"bNvZdtLphDL𪙻XllYqkcs0f0l#_xJi 1X|~6Պe#.o߻eؓ)K 91| `HÇ;.i?]^:F4C%u7bٵ_$K erQRdqQhx %C Ƣky8cYV+d,Hl]fqQU@bE\lfBG#Tl(/> stream xztT IsE* E"z!@$dfR&2̤ i{^ը(X]qO'o]ֿus< zZqƄ LFk;Ok"Acb0r+"a323D)!R! 336E NL\1#kf[Y9ofH6$mXi^J[.L]8} iƲոx0~^~WNkÆ?7hJ$ijbN,"#KRb1XNL'F+hb%1C""qD<"61O!& Db.2HB#^%2G(I'.1xDыHDOhb0!H"RD>}E87z%%R'9zb%΋A{?[>345~t+;@=cُ}6>w>R(vDlu\T\؁ ~vvOqȧVӽh}3ۇ,ri0١۟Lų=0l?}!#/#[GY&?{ݿJCpE(Fm!2l,5mu{$XQ/ז.#Grˎ}ZGX+YHD-Dܜt|500}82/0珁'\rm KɦFj53Mh|q(̱10wHM |:=Cʶ530M=ˋ׀y`IŽgQ)ΐYOomo|'}g.Tk.y"SҴ2(h>LrEUACp7(dBr[s}qNR I;%Sޠї<W_JVXhQQBBA.#Oq۝vI7^ 0+?#vPckL[V,w/PlQza }_Hsu& yy{HnH⧺iLN,`:X~RJ>W uF";^6A~r6խ;2G_v}RPHWI1ڸUBpoYeI09TJe?=q-+OJ哵!U*cj09NZJ:smNQ镔h]ZwơV_Iwj\MYI{U9(Gz/!uE)2|= ܳyi@%4 B(4`O1f;;58UyM=-$fM.PpBΙ/n>>DXj@X:Iɭ~]c(xD0竰vd JqCn \9[+cj6pw#ߘQūr6na.y集SQZz)Ӫj=g°^>t;S&31>u'Iٓpx.g;u/4B\ĢOBHXZJͷf'p0a% &ޠzEUpEzhޱ9ůW)|hLja[ZdY%Fo])"3qϐbL o`RP"2g߂]\;Oi`{ss훶'9iߖTKb@X 8f&@#.JWp[^-\--8t,QdsLwDX#覵#" ΪJMa-*aKJ.*V:j/qXKp9[Eq˪W,)l׊[Oq5Jn`"k&,HWeC-Vt"]@֨ ^9/hpzolR~TƮjJ4q]P^nPI ۥ=[ݵmfW]/jiup Xn& ? ݦgG$zc eԤkʷ0;#uیZ{dn#?]]䣾wչ/_{y@Cny SpZxsVoh;I0s@do/^]NR)4c.SVZVVVZ-z|xɥŠswv*r2N_(S0 NǍ7q ^#Юzu2 ,gUU"|.5kj>iֺqCd).-.Ys) ҳ r5*[5PT귶rPwy K(?tHÊ[u!p~G,h 't!l| a/5M[x[LJ_ېY"N=sYTN@żX+l+.7,C"EqGbAIl7y=&~+0# )P=(r?eU;@L�iJJ"Y)OR qȋ+U^POBd{3:nt;+_vkj 2L'gٳ2(QM*LY2p@)F\6`L-a)(6 A&UWX毧ˁX9 @џ!]z8nN]#U4tΦ9kMC@/b|T ^i; BNl' Őȶ+9'IS"w\q ga]쑸$hu`SES^|&\r{q"Y2 Ayye!xx geyLa?(WXZ,m;1V#9#/Ǣ:s+t<4S04I#F΍ @9V[T/G“lVȖ:Ƅ6\X7 G<1lby,$?ú wC3߻YW042܎*7]K+Pj,Kffp}xR}Ot{:yXK@{os\bńUdYO(CٿNfqe|n6pͷDȌj8Q;FA)xN9_(<@}Y2Setuf+n|SqMShiUe`3HΪKgNQj^Ǯo>*3vZk`' dRK7ߚ73},K7q$Vp.;H@#ΤR>+'$0)nGi}Ƚmmp=iku]mH/54 ̂#ˍ}#/EH7[T! iCXqrr |AN헎yJZS<* P[Y?"qܜ/=a#Q 78oj\k'{ G  :CqoEf ]+ Zi;Vdl12R/P-u6? @C+?*zNh,ժukjj4|6foR9ŻٜqtpFIY>CTW2Tb{;vf3YWU[ Xog5Z Q⒲:?skj(6z 3]:+$;Õ1KeTe36S2F dc>P ȣB8QM>8{le%?|}{6 azb-2 cD`K0j6vkJɶZ*桅Li0äd3a1Jl6Y[8gS"!w FxvW`O=_$ܐC^gRSW pݡ.N UuJ! Nq5بJgu"x|b >5Y`.>AcwBZG `vz>3bۗbwۺZ5[Ix! cƄ $'ZAȤ FaP.C#WGB ʃ}OVw N5.ݖm{/ݕן+RCnʽfTK25ŔWnܵm@ϼ_T몴պEvH7xBRB&M9IήVeUhyzItTw:p:n ߜEڱlWNXA5 *ˡ0H9T.Sby5Е+ U [-[aq?/ydyoᓥ>EQ,-R᜞Llĩ3--d{Py؋D= # T* "tˡO9ɠ/c% h3m)^ɍ Ζ_)钉99L'ѳT |TL%b-Qx={= ;^Z^]s+0lwtlᓍE[#iRF,5NRI ɶʷHS d;aJgkn#9?=9If"'7e;s-4ZgFs2- ؔӜݴޝ 急)Y  `^8~%*Rד 6g9`xSΡgЂh*RcTXlCp80eu[]7o#w/ fYqVM2bR{9x&Ż_eO2&5jZ0`aޢI(1NRg5++Za𑍰a@ P!Uί#f@ES FgRTX:Ntbt""g_GB6-|)?Z. p2Xjnd_DiR%L $)F9 `{ç@HYKer*sj˂A^ӷJ T1<"{cW`|%Ϣ3kq`*JoK}t`o?O핝^Fsogr3RkJ>7(afL{)LrPzڬ-K*@rD2EPG1y8|SAoʕJ r{Gm7،f lw: t<M Ez?ٝGa\ UP]}uVJiQ2ӍA%/ J4ƕ{ HUWFNQ!U(23rqm(cα<@`BmK9s:X7WJșwݑ$|CgzQ-pw!^pj7&N]8YU*X9.z8X6l\k{FR0z(zCݍ5ՍuZ>e'qx`d[:; =?>AՕKa>/ 솑_7`D׼X1@KZ1W 8QAz޻/ =^L%/0jz4:=3 ˥hYC<=hɞ ԅa'!6[ywq1dzGTCuuC}nUvVn^O>OgaW܏~ ߚFed@M8WWm8_16ܢ|@Z]_Egՙ)#Gp{лʪ{v;]^-O>xSR , Px.yD_J ( I9 b:.wV:)$*J% u?_az0bPy$oLp+ 4ɪ f, ΓdgWIj*+oćk4=Հя F<F},g̨C^@w0ŒΣɷ/"&d}5yz ÷k0^gxi([bnv@r43tƢ^_9f+OS©5Wpş}U%%_8iT1 H4 |;ױ{V c;2R\8=|·fXfQ3Qvb0{!C|1{n[PN^2b?Ȣh[@`n9<9HNϞ&D)H5KOGi{K9(nǙgv~WҘ!o_~v+.<]f{\=txbqs+d;r_ޢ^ysk3LAs;<7ywR@o6=XvzvzP"ͩ- G?icg2ޛUن̬'>N8]J 䏜g0%͋ۙRWP?{E̯H OcrAR)u;+]NuD @*'8q>N5o 9Q#'v3Ql@Ldݹ5oPPG$ )"{[>Pܜ̚ʪs-e4zi!OFl'/,S@ٓs{򙓗{^QbSߙ+6c"S ?? Iwm,ۛyLz 5 $O1)9 8eQʥ$vyЄ;N=氱 H[> Vm/(0R/D_;;4]捓&PG}=O=0 |Dqo)> : zVL.1zG63w|0b>R2,]?W&NTOjC'CVy8 Fvn򄜤e˒h gmQQ u컏n=SZWnv5U&߭LcQ,ʔSmM\F8uάָֽ}кg/17̜e$Uc6`1yZVaeր)Ԙʹ?&? NR;K;NAs*9[YVڠGrk؊NςVAKQegWaoJ=.h"sW,^y836#'ki<9-L.\Va1vUSHi]R\~ϗw^VhvxE|\+hi> ;+6oV< W|IMp68͡iqa&Ӡ%2:,h4` )Awz i(C4)]͜bKUuq11M h8] L0ءos$E3{}dg}^wEj30슼͡US3dٴޠӲ#RCq)g ``S;Ϡ I5jEk {+oÜ'l[.As0[J#p? 9ܕO]Ѹ`޲-+hy[zo`PO/Οd[B"GW` ubxz}9ԗٰ_oendstream endobj 367 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 8506 >> stream xy xUnbQ0e@ aY\P@H0 [BNzt}ߗ ad"$ 8z[S";wSuW9X^XNNN/~|رFgze5̖ksL} 6 $@WNNѣӪ*ukCU_9dz|aج*VM~f:ںYBQx\y7Y`EbV=f'T>5ga&?)<Æb/ca aBal6+F`WGWG%Rl* ^^Fc˱%l86=ƞ`㰹6݅=ݍ b` Vb<>+a`7Va`4`}!X_6 ؾ)9g{M=wNޓzo# >|3_|\wW'{|xbrA僎kp犞)z~_i C0>v:4Еa u=E#;]*әEԶϺyz)‪S.]j[\u`U *1CUv[]EW@ :BϘcx}Lmׂo4{tzjֲ1kQ,!a{.ly6]wsiN/N=pqOuNx~" OZ$hцOgKpjH Ú O*%YO{\:|s%ʖB\V'tTؗ*"tUse[aI:(y m/3] B(׊FVjmw7}.:3ORw|aOM\VHG@ӑ/;%-+V^-]d$,wT+]3cpFS!.ycS4(s lɅ\O=mBjpJz;g/ BV8s\]^ZG>Iϻ]M:I͌|[߾" 8;R3ء}i =w{T5Z#.^TZ H=~ ߒ# qnڱ1hH1"rfٚ4O[A<)JIH5(_ނ$\]˯KJ$`/,}a" g\8@~ 4XV"b{?ܥ"qH*U'V6率N b){ NobNh%J\RJ6U_0PRA} sqWBЕ׳J^Q N %֡Q E[PEu]Rt[®%m\Jp A@k-nA-\*{fpk&@UlYuPIJ,BțB3Kx.åsįL1R3iQło:4l X% `5mg(B)e|R**"fv)_(Sje0oamHfcn\QH%U͛ń>\fC?~gY ~׎#4$~>3z. ur퇄QmnCcLhWHQk0g لǣ^DɄ&PCų%=j2O~ (QߣiZcb礎g[f:4NiRK'nQRQ'XlO;`mmo+:pI<wDN)3@;T BDw`8<3K^!3ҐR29r,PLde, ƿğ_,+ɡ>37nxȘ+5l'^:g'>.4oڝuGs{ ZCR7x#XeP`0pU`9E_{-*t \坠6SDas3d [;fW1.@XLc@n ^!aҘ4 iMV]HlV xz2r[w dOs%g;iֶ.>A7Bg~la/-ûĖ-*~Ug<rY M-h&."P&up"$?>~JܯK 9W^<ǚC;):bo@ Ej%R\Ұ4l,6Kb@W nOĘ u(fkʁu!` J!>o@Bf&ds+ H(F+w xqHs2 )ɘѲ̺_Ibl%l_m&7S%TC (ւ`a%z?28 v-tDa>s~$߳ER)1olBpDf؇'hBxx<59d {|Τ^rEXds$thŧV?;p禡)Ϧ;=(dD4 : ΅C_}__S.M& m+kAOkI٬i3}z&Uc1C'Aă$mXL$Yu -6`'kۋ<.4~4`]imL~=X ֺևkmu]ָ:b_Mr ~C|w#% ~7 o [ ̞p>$Ⱦ;mWH# nĨHsje{ ;BczkfK"+hG*Wg|Bw7MH7/zozܻ 940?eJl-e'y 2NfjAX׈D4eu@@ bUmf.%i_Lw>ANÝ a돨}Okbf7<&$eJ5"M}Z6hF㢣vnm>*nZV笚7{t_ڑ/,7$4;Hg5'V@fr [e UOm61#Z ~PR9+ۈ?>4&Lf$Tpȗp#!1[6\W,&[W73p>P$ ;S*cX*o?!#JD>q1A^p?;pc+qN&hjg_]ĩ:)j?l:$y2R{=&щ/NӁDzr@dJb ZAvgDZ#$ԌʺޗqB)T,Bbs=Pݓ{k[@ <Nm0žlqK I$R/{~!28EAdWK- @Q!c 4'e1_!gISF8q\V' w +B* H'&ChRUh>z%BBSMR~jMQ( nQH9́> Pgp9&;78U`[@:G# N]ہtn|ĽwбLF= -)iLE3p!kDb2Xj/I/oWE6>P+u ՅSSe ۳&" 8-+Euɛ.IWE9P΅r}X* + =I8}eX031" "VO,1E@b%٧8<%Ja(px.+5r,$Xȓ|ѾCX55URN#(v3\+͆^ *C쓄P SMe'X&cH_[MҦ؉8$BխY9St $hO!M҅YO:n0Z ;K =x+\r@uջMHvNrkM75_x-17u(3lĤ#'٥#EJy T+K(mSVWov {w LRɈ"$Cf{:#Blc3;d}}>F{p8$ Xp`Xk-E^gvMv4nE}LSϯ'*Xʂx주lF(0\EY2,mƌw}(Rs1}Mm "x\eFg6$5Ix]e*M 6U.elw4 -/ Ф!mn=Yt@KVE1X `&f7٨ &`14g 73jN8~'$?8ST-dcXE"h.1v^)X]^PiAY2Ghxұ$XXjx_g٧pTg%67ms ?_`Ku: ?(%MUԦN9wei-@Fƌz >6Y痩+RzwcK=Iؗѣ'f#-|uDi,!-մ7%b-^pkQRʧ3jcy  iԲm $e1 BԪl+9PGaU5VדV\:٣ܬ|b3 }G)q&˦fP{ҳ vw7H4 Z 2>[j-zC.]N?ᴋN _?ހ Wh:fdDi٧OXfvۏA߳5#Ia)h>:4{]/ԅ3Rr]5%촸n_9LF=qNq&K $qCل$!l)k=Q kiVmGNe܈$νA}h[H)I+̛˟\sy,O DJ ;<; |k}\tBԭ1]@޻ ʨ2 1D!d W_̅fGXRD}Fɂ[G@8]Zi3 u|%*$.yDFTl!\GjѸ%cЦ:&cw [a֪ڰoXj!{MQh: CVE:-t `\Qa1J,C'yъ8ʇOHR,="oT6ʚ5DVVJ5e=mE|aQ*I !)Md`y.o8GH]pm6RԜ1l FA?e\t8*bՆC bR@kiV%z0[V&kv yOhq 6 \R䤲/JL&Z"h ApNώOb WrRqe@H߭gz~GO7+ۻendstream endobj 368 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 579 >> stream xcd`ab`dd v 6400qt~H3a.)3UAVx _7s7[ ~&(土[PZZZWZ&``  |f50,,p[9+l7'~_ɝZ4oS";ow^ YyQǼngζqsI*RTZ +f,b@8}݌u6LK*+k@.xÌ~uOoѿ^_>KY~KNfoڞnʿ/~J FA iu))@.x-D; +/lаeS{~={R [+fk5 (1}sb;нz[椶L]ڽ{bG_[oº9KVջzXFw-nmlKLhWGٽ3La0=^n9.i< nendstream endobj 369 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 5608 >> stream xXtTeھr索 3 Rq'H¤QBzIH2KzeH duAA,~Mww3d}}yˡ(3`MקM5K78"e^$tP^v2>>?Kp8 SӲ2FHOH 5)~DXNVBJ|B^() 23g-^*.ύOXm\kmҺ/M3fNQUjj APHjH&Q(jZHM6R0*J-^PKԻ j&zZAIfQP*RS<j8g 54b(;' S?]6ߦхQfs7qg3mi0gpِ!Cz̽g<<'}n?̝ EXx_]'zBw?8(qBwVDU JC>Y1;"^{.͡XwO`w߫@#5FX b;F A4͔ӊ 'z&6eoψnMQzlOs.E)8->;< X<W>ddG{mm{ EfI9l2[۳R A<ėffz`%u%>$!gP%_Uy6l yhgAI_θ N@IK5:P0&싾vBs >ͧ} ;3GXrE[ . N$c,/yD" FAt wimWW/{I *PQ^4 iGCeGCBlOޯ>)b|:H=d!h54 z'<1r}nHx/i}/c-O`y%kCE-" LX#N HTӟ́[S`)FѬWa(VSx^ȁ <@#olA#ST\vGCfNZk=iѮh@# 2{ˈ0G(/u\TA!fsriZKe18kOfl:3, #Uiѧq ^1v@hO Ytt+?zGZ'qŁ(R\"xڪKw,,h[XT\αd5C3+*WtU*"6k`@UthVq"[%瑇K/2q!Z?d,2&ۏc8f6i KGa]ù .&C;  a-Y(i[IjsV7M.qa h7ZWt(~ڒ%1:'x]њވ)T|_e# h olT5X=}$ypC+*sυ1˙KQPxP.*:j:ۼlaQg2_SŶzf3*boGN  ,oS_A-TYNB"*I#c.quk.Ӊ RİZܦa9KU6 ĤC8DT<ӽy>kj;oq8h vkd["A+E"xcm }t 2 -[7 W/GǏ{Q؃8J`$VIdwS G;j˛Mp4$ZuVIb9i6htبԍb?М7Wy4iA@*ࡳtYSC<㽈u1a Ghܵ_oheJ4ۘ+no$uSU7 ^%F7.{-wLP`.;(yg;J-E#}c\^J4y"/c܀C݅W.cyk݅7q`H CN°[*p\7R ?v.66BX*4%2h4*:Ćr`}k^<Ҳ{pA~,=4E-~%{n@II <$pB\[p<E1#'6;YѰqShc,QonC]mEy$OhO/CЀ"^bScG)?&W \bXո4# d 3`9<6WI+Vz]-o!u{{]zAaյ5 iC,%WgidX rQib=aѢQ;Kvf-z9k9mNjBl+ޔ̡Ίn(5"X3gdnĒɥ#g9d%D0=]'ȯ0VkEنOӃ:!}X=2N\>p /CcrYnP2>-:Bkw-!W%s3aD}WWm)spwbiƅN7x18o숩K$NnI`gVn4 O~E${JK5rzwLF2𸗶RмAw8JiKf77$Gjܑ6Գst)>}) [}AL@ .Ze-jB1i,:7BUo.]oY8v@R~#Œ^z ٥*u!XL6Zr8uh;K'btN\`V):E[X|~_֙+0Hp--'>\b;,b#^\$bJT I'>h7#C})>=x<73t bđ9SFUU/UT"~J~fқuM`uTV6K=K ́L41~Cp%.w% c߉-Aە4@)@o7gx̷̏7Tus+4HcWw6WviI*xzvfKO-qP 5{)Zkhs DXv?65%T}CQڏOjP/>aj- Դ vu\U/lB}*/$V!^ N+B#G9mJbbX$پYă"\#2FmL}:d}to{?;4xH4fb2klHon~ZlN#lhT(G4w5,7:Z,ř}*%;4[ݐJ">8#۱Y gl,jHtڪڠݛ/JJh|'pUjZvr^R`-05]EDgۦΞ}\e5$wu56vud6$91]hI@nExӘ#B׽};ɷ.U r: TbYg, xan'$S$|G& 9Q*rF:< ;RFXB|;4Y!ͰY¢ GZY?oes1Ϊ!JV6FrnИ5I ZQ*+tW Z%!"$ռ M?Y`VZBZ51m{y__7_HrHt47Xۼ!&F;Akd SeI/I&$ó^I>;~ꪴZXMY$o"1U^[B[M4dg <2H00p?zendstream endobj 370 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 9563 >> stream xzUnT-=Ta@Aa;Oq(bV]ww4[TO#w>}zz]Nwp VTT4pѴE7nse)Ғ:dvI#6l0 zؗ¿ '67 -#4VT4\,i0h~e?\a؜ SWLmzՖiw/w>0 {:w};KK?]ʾ'i $;r?+jvぉ5{T߃գ%}(pvc9ȸG\{c-Ć6}{ECgc/K(sI .j&Mg, %⪐b뭆2^ϼ``AӼiMZ2uU@+kAAUriQ2`&\ 4*hNbdawY*LQ)WD8%t+to3}EP+\6pYJsq=t4)Fŗ}%pB% NP<rvwz߾x#&%L<+]J$jx:KA \)G* q][[VͲ[c.Xֈ74<{~aA%8_I$|| ~}+N~:ccHZ *0KRk N7qTyad)+f.p6קe@J-=h>~N:9A-t|¹1vݟ",[??rkO8s⧌.[{A!å, j}plW[us#8aӄZ 8_$S{wU;@)8 YpV4WRO?=9}(NIX;H;B fz ]xSǪ}N*4Wp>&XJQ"(Ix64ǟ%hGdGMt񳳛u@c.^(&, j8̬r&FbqU@D-b9;f"JdNy_c$kwU$ACw?8Fsq*AMbR͙}m V3ukk¢bRB$Ae+xlH8S6<™5fQ`t&Zh >"N[* ۃXRkB꓀fj-:1=mhBö:R)';b;_̢9M->ɤNw-*HI6\8?syIDɂJ@ k[H-ےreAT\zqGG' b$aU˔?FtW ;]PCy#RKXeX :U_/xU&Zd3_)"(@#څ.BO T?kJ*)ހ!_  p ttS 4.ɏN"%QudgY<CB4Dy!evDB1Ŏt.Zd!E:h*L UJ@HAaHJ⑐S9_nkx~yJHU,gu4BA\__\wq]HH06MmW u$-JRW]HoO?~g  hf+ I.\$ !e:?HV xdUM*+#Gb\&h7G'.!1& IgkmFƢ z.|nGZ{x}Q?ֆWؔv 4#DsqW>Te:Z@,~%)@ltd)=p.5nEo P;=_ ٌ kFLyg&)fnHcA%tD&x:HGTAb* HW*:$>$:$Z\&7ph,֎ Ǯ@(8<]J>mx:H&Tz}uJ0e$QXL _] 9K14  Sp(?&tJf\ [QyV*j:HXA/tu} x BD<<# 80"6T3["-)% k3dN?L up^Bqŕ!:j3Y(57/ν)l/.i팴o#ǟD5Ojzn.Οzb':}`'iR#F]# ^w)Jq2';Y 2(1ZT $DK*PUxS+.-.TrbWKHpqTw>(g7DP@i g\rȍu3UՂU&yⱡ ##\~q,nT>dL f"t3MBՙDez> gGŽҕȈܲæfND$mDBQp>uV#F|=E->ڟC!sy &5EvBS^)͘ҠIjE KC2 R_bjn 0kg%)H1 -y%S̺G;E!ʡu",V ~)K9) I-╡ķgܙ0|Y#:TӊJL"prqB(Am[yp)mNWقU_KJs~wn=W 9n綽lNs[ѫ.f",>{>"l%)sK@0K溍 :o(qCGK/=3uVDM//.s%PZ%Mhr2c&[u׌X~/΄΀YZ_@{z,8^xB܌Vb7=g>8`oG]˚Fe& 0h9y"hFg1R).Ⱦ7t K-C[1;*o]Cb֎X5{KI%36\ւ?0.@^Pf==>hFGT?7ls^M‘x5JvՀoKm8`E7^N$lyjD֤Kǭ[fTv%P^^z@'s\u%{0aqgh,гc +dHз'Fmj"' S6<#ީߊ _1favN_Ŕq@dP}&2Yf ,(*Iz%NP ~K,ňy(SR 3KH?AuOwH2t wB]=C VH宆fP MQT)c{c(lmnU,jhbox{v̱c;"bEJ l*}űѶEp|u8-@LE=UO (IQYAl)[J].Ky(wikZqJ勊Ʉw_)XV2i+R1(G4F$K¯98\bjRT)-2,S<lV5Yݞpqx ]`)JH=T*+PQ㶈30DF7 I 3)o,*@0&+u(5! q~׳2㕛+RM;.p0!]KIܢ92وo"n:W fhQ*<Øl([‹ 87?>Y 4 !."StgOkm2䵐* N hp(jlksnCʦP v]5!iqzqF.)! i_& p38q#ʰSɢ+÷ÿ"AO~~I?~>H|] G?&Oɜץ*$r-YzhQ)Ee4Qñ#Ҟ&n ^*NPdKc +m"'vx$,:k8 *E[Vˍ 8Źq'9?Ȟ=o @64w֓'DM)E-jGYў;[7DM|e)5sլU3Wjt:5P:IV:׏RdQle$\747\9WreΡ<}bRi٦}31(웮?:|tFdQyS ʄ $" "-z b}V/q$4V2IZMٽ`/ua:|^"PE4gQrGvߘRK/$0%RClJ` >d >.#Qr@4\&Ca2R"iɭn@ޱdɸ'_[jrW0I]M꺚GJo8e҃6nP7݀ĮP,*rf7 _J[= VVR?t;#[O.*=B/Qfd, OٰauخmmDhėui?)ˊޞ|}e vsLz t=H,i%xmw+ N#p  2G&#<:N9z/[o[Kp'pfOB o sPsaʛ~əBr4fA vuj'>co>M1&`QO1rp }/E/Bv..΅ca+G7㥍3}Ԏg/8{b\3b)Y@O_eZgh`hYYO%8Qy>ΈcN{ѵ YkZg\1d_F\ r&'HߊG0ͩzx=e]@#;hZ#2N843;{{ɯ o60_92m2.IwMn?B.3'We{cj?e8ckfP7}p\-H1"pmEkq%pZ.4m.\]l1$QB?@7zZYTU̩OݕIq@|\ "EPHqVOmAWtiOp3]4B2 "Ԥ2,JfgC Yx =z@rSP(ph1ʩ55փj%xt9:Qt6gOkA{H9|2_ ©ȠhN"T6#ufH,):^}GOO$vJnM9D1fv|3$1:-[ff>) x =}Drvՠ̜|PÜ iO_:ppfEp:n{^DZы?b !QYi7!6zá( yTL? ^ƙf O7Dp5/gYSvxl2Cs, U ri;MQ˲wy?;KsnNS$4&*n+oknC/@|x3aN6v9|FQL‡1"*U*4z59W6RQ:iJ[d{Y'?["> "DRO3k=Ҁ8 ! [nqA޴0NIemsV{p2B$h6qwrd%zƍÓ o:fCphVIHѵHZˑҧT̗#>T/U˴,.ܼ`ZE ,,!|~$A!Oc1lUT܉G^x{aGWB1mXK[}~QuTQ-DaaZ?wyUգ΢@B?I ר @E1 }p|d5d=z`w{4Z}&) K9h?iĚcj"!)EV}LMe6aa5krX-ӡآ+#'w&;RM| պ&˱ktmsvI6i@V(7D2HTKkf]|ж7zU+*ޠ!D$BG q_Qi7ͦ:f_ȽB,z G~F)]YKF@?xZS5} עꀞZ"$pdҞ,!ڐA rS|p;"7An%^<0nendstream endobj 371 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 8001 >> stream xy tUwhu+1N+:: -${wտz;Iwgo IXD\ Fg=6So[μ7}{N[oi^]Gyrr7 R|/$7ϟYWovܐ7\}=3ws3ɴ[gPWSl.kci]iYc4WW_%Ƀί{ŗ6+UZ[/Q,ՔYժ5kkOB.rݒ{$+%JfI^̖< Y// yAdEC"K%HHI,<)Y*yJLkId@R7]~pT]^vkʏ\v17VruӮ{sz] ܬOn{ ?g_ȳ?uⶂi޶_WYz3w!MY6kQlnS̜磹|l8Gy`5 gCZѭpN0Ntx)` t+ ڿRvЊHIM(p.pA-=޴M]ݪh^WnpBv.%k>! C\ ^Q#$ >wWAi2IZZ%tWMn7 ρ ZvA#ަP{U Jkfa`&4$u 5w>b~AWhKɢ= ^HP?r6U:)ΆU[lubaox8ftwAyvՋj7SxGH~ )3s~_խtE^O*;+2%<Vf iy*Md:atiAvo.5 cN MVaxYk"$ ?{8{0V%4h qwZ6zǜ<50[=H6FodC75-F$.s̠iQ|>sn\doF &/O6_ ]e-Jx@K.m96N~KΜ?jI%&:8\o4UʃB"cTd7_pv UV͎_Ȼ4)GSc@0gqkiᶁ48 "aC~U)_!RjJW44PSV^,efn[erm$姨OgXmf1RWσ^K) $Ʃ4%2Q.Kc4j!mӁk0dHCړnn7 Ďl>.SvP{,%IoDN&wUX+,ś 7+Oei6 yBn?dbd+6161G>1J^6Kxer++9hN c«{%UP Vhsh3<AO"-hp}RՂw;>nm*&᱅/lWjZF x._$q >kb{j:{s?ޯIEl+EytTto&MƋӻ+fܺŧ?4wJ?"9"47)^(;R)e,UߪB8.iʎZ =j둫 p#N eP}Y TL)ILrj?  EcG' ۺIPbdpdusU Э~cCqE7E6U2nTX?bY M 8U}:!E. 6(znu&qH⼋`{c>*:8ȑmAZ_=U a9{&LG߿%OlKs2ju=4[Cц}! }#[M*(b0&秂H@1+^Mk;jԔud/7.q1X1/;SナBTiX_X`hIL7Qc8;-MW`gCrjqsպz|Tn[9 a~#{ Y$r?`&}DW:^AkV=K7k ʎ!ǸlZkAah]oޢC^Ȓê[q>h[1`uZCn^R t緈'?0w%fhO:pp0Gc} &88@Wo2mjrн%G. :hJ1Z%uTګb]r'iձqxg>EK3d Ӈy=qBI?^mVxc'|;B[\@5{<[EaS{suta>Nb}ERvZtʦ *va# 塛na!1~X s7"d-lԯ"lf(p!z]+7=ErOrG9ꮆh-S}EF#X[KcݰR۰vit[n) X)oZv78k5n#B+i9"THvO .Z";q[CfJ&I ZٳZ)ⲂG»w,k;o^jVU#&h5p9A*Q5bd^s1a n49R C5VP}-y6ςG營ltzen2T *jH7]?>8co:?O3@zQwjsG @}(iz@ii+\j.+itn?vu0_^r\J%-S=ޯ(`YVi68)Cqâ"H, }~>MUn/)/JTiȢit$;3f񅁯o':.Qq2[RUKCˮdolm_1:~$NanCqmw-ڽ7Ms"ztⶠ+;9MI']>vY>bAskL7J('KR%(8y||r9^tX;. GGVSQڂE:kLwQsx+%ƥV85\V_y706u4,ߣǕ+iC@+6Rp[/>|¾cq2p-.{Ç2\b# }C&U+rdqBrp ]߱h&\ )&یmCOϞucbjݐ p6 C cq[ e 'Qgݺi䣖:X Zέ!M-5'.9)^cT}"g; CR uy{H^ o.F 8.&`pFR Xӡ AJ]< vЛ2xBU "z)ֆ)uZj# !TG-@o:@E"ѱ+?`|VٹIkwOAw$:2neu oi7ÖY>~"},>:Z abJ1݆BzB61ThUy"cXD{VHQ/H @>W}$9" nk$EP UjG*X7$%o棑++|8V#DE^F67:Z规 ˠ-hS#{)/HBX 3gڠuraީ~e'c,?y(F<, ,+KNTWVOvj*wrwLq QDŽutd^FaQ U+* wjPC ,]XaVSAXGfšCazD.,^oP&wS59|__B=55p$aܘ Zwx|{']|9ԑfyQrRsIW30r>9$yתb6XҰHdY3S2qc"n̶+Vc]8[㻰 F>_޽U[ ٻ>p@j=ɔ7?ھA_>gG :V|^4syCY撅t N&l5  8A.1z1U鰘rc蚹6(璉 DIV*;'ҋʴMm֭n^v&OxDM"e&$V^+'soaS%w5±_1t4 _['c%,H~P۔:QA> #q9(~?!`8u&mrt u6;y[BMش*$3E|yȦ65MTƥ+ (+.72ɳKFb+э,zݨLϔ vzLxX'~=5=?<$ uVendstream endobj 372 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 1935 >> stream xM PSW_$O>J^f ",뺶"Zhqk!B$ #§O$|RB 4"j;bV:[ۭJڞe:uƹ3oy9<ىx!;_L!oB|eGef(UkJVBܗ,͐HUrBmdur*UjuTL](QS%[e92e,El*d9AsߨLEVJdȔEʗH ]'EmT4ܩ7C-~Gy+ʧ)9R73?|uoZOVcu[xߑ\'Ax OHL.& ۳*G I9rv;ܮ$B|nbČ@{:vZV&=_cp3BD.*}5#Fqa`L7?MQgX\'<$-4= 3+zDu.m"- {F{ƀq-ּ,3bKfNQ'.6v,ezO j9gmlB n<`ಧ u TWń- {ZF[--s7 vs7A.v0 Wq[ty(]eukl_׭e 4MEPYz:]kdp]8FUWi&W>茵L߷FF KXL>'j fE/_= X]ЉKB v@rjHL JKt;:|71xe_TbG㘡6iJT 4SVS6Pѐ<>X)Z055PJ6mlh-KQ'V푊RS.A-2k{`?i4M2:0- 騩]([;6ҐVg>Ifi؅'FL zb/ئy|&RMldA{>v0xL`mڙT$O_>MN[[ׁUɐP¤ePQĒQaT4Mu5G.~`Mh(8ט;hKCl4'eovD WLz0Bye䞾~E";yW G`kaߓoX3ӱ_n3.>dV>i0Fz7LkB6ĩa &1տhb=>BXZ2҂}$ H^.O|rU5'>[\94cxN~)zZQq" {mnbW5fyCfw?yendstream endobj 373 0 obj << /Filter /FlateDecode /Length 1923 >> stream xWߏ6~{F!≿;$m$EeWo73dsmQp87ß awV-wZ?/.ab BeJ\.QXNTRn>,޳w*J#5x{7CxÊ q(~XN5§4oWfsQjج*6u ?d}eσls5&c]/H˅`z`/h_-p-UzN p€sp1wq4L704'Ld~`ƅl]ܟnsܾ'*͍(]ث_9.+I,XaHR:R7jr\h`qaWmQ~; % E5-~%A>E) Rhv5R6p/Hi #Tf8%1tbYv,*2?C!Rώ(jCkr6Pz=f2,wA= Yn1$;ms:qZ4nN?m h̳PQxbum%}L'QCA8~ɋݞ~T!fOUH"Ťx|q+Q(kQS?R`2"z"ѠYvu7)pԙVu&qRX)xҝ=o]ɾl\x 85Ϻ$J%dLT(+ύ4z1 RWZ@6:Wzc u 9)2..z5CAqb{ ^ tX9BŻ{1^}Mlt_1J[hogfR)326մ03 w!j~`>B*Z\1S**X݈m`/! jl8#04=yu:훘Վ1vw)=Jiz-q+%뻦^OkM<&2F?5> v1 %N-{Kߊ:t N 6G5S0Qix2G%d@дD+t !i1Ęg* a/e2LƂ؍ȹӒ"@o}- F۾?TSʡΓrP)\ ^7o`F#/'ڸ%H3lDsʵ^>[i%AoHVc`<4n<&!aǡ\d>PTYפ x^[mLx 0cmb u^!'Đf*DX«Z9߈ymD #ݟN|-˔pb|'yFVpZ\8Cl_3B'UI?kpDoF(QM7!_cyC]S,qPu&RoЧޙPաEqm&3RY:i*8oh&Xm3uŹDXYW.jAoO4SuHLwx~T~Me?q} $T =/wBl(i#:1#vŠ`t5 eуf7C2a/>N)jFo= UuzY9xzUcA/L29XIeTY@ A'endstream endobj 374 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 2576 >> stream xVy\T-0}3°HhBUd 0E1IK ∊ F.aQqLKĨ F+r`?ossdn IXH2Kd&a8JJ+deXb,W|mn+!|UQpȾV܆/ COJ*[ѷtDiwsV~L9ȫ|M9[>V^q!Rv6iz@aPoCoI?J[H d&PMܟk;IJ6Tkz{@M'Ö'Eh\T¯D=d! \iA wc8# ڃd`37mfdqq́ǐ]I~sHΚf_K>#`,%Rٻghf#"%8rg~ҋEE1*Z?J( Cu?J}ú-,('~'. pJLټP抏F 3 ū7`2$Wt$# WMYx%oZO>zߊ)sP++/xE£M= -LMiUJۜsp0N_ @#HD+˴Pۈ#)Jcm%XxqtJK^TXy:x~ƲJ\JjET4ټaϷĉy82ݟ>p&*2[ˊB@gw4UQUh@VE1-Ԕ_jRƥ/L-nd$_5nJQpi%vAAFH֦R|F[H`lͽF`}`=Z,)p)nn}jO'aĜ!OQ%.>);'Uk`ߦS۵ \_@~'c]u,x~^9d5-V6j)6oFzxV6k~v E`݇ \5rDszWgH53%Mc%?S:p#PNDe_^CxaNJ҂(ij;[|esgT5*D$aWA{" V4VI0Q&=0Is̥F#\u'k~]kãR#@I4v=0iAvqVJ'cnEs퍇m)IIXt:$nRzLsCyfLX-J4ȟDRĂ/GÏ0Y:g+ p6~QQ%3?Em+/Ϻe+ɐR]{Ɏ;GPP\NTS `:5Kna.Ш.F$`]RDT4u 5XiN4Ơ PƴR(=@D w DژoKF&CkiYk+ZAL`Q'/L&7'{WN +Vұ\ 0(jCD0xa NnЗ+&.G4$ F1l|σnϳCͻLP* l" bmrJRj#G؝VV*FӜȢendstream endobj 375 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 3888 >> stream xWiX׶ JY  2 8"@ "AE@@Ve q1F#jF*(! rEdiQsww/4$SYgס)AMӦR3W΢-$a~>O*294J â!'ov^0nx2ҳ==&x/ͳ}`Ꚍ4Xr.5s*e*;L->)* \x*rR j6AQ`ʓCPsT(FS`j5xj%P֔ ES)[j%>NQtB>eBM)3Œ&x&M4IӥJ1L '9;vs3<|+!LY03;oVoiSg-,c,-;[vZݑjZTJ c^R|O)iRE0NXbtcڪٯv7E.|]JE{+zEqDNߪXjA.\gÿo ]?RvBUn8^|p\Ut3矩RR W0:@@?;{2%JF9YA!k*'L͢K3} $pB `'/ZGNa&L|];~swn:~YFtx`o4Mό戰)%oG=ZlQ3[6eW)#2| 1ADt 5Ug䧲*pF-s ]6|M:$s%bM=`h0G ^ƵB~4<On0v[q H#:qNm ) a09>dagf8A;7HLdY oyfMR:@XyveX}{:y{S˻Ob 4tNsS?>Cc٧?c H媿P[=$w|'`uح\'{,زc],Zb/Gd-ŭ 6wIR6GlArzK)0D)o:6.~G6%(B7-/; ::Jl+.pASf?8,ߞ Y9 mgD p+Hڢ]ղjp&yI,E؆0 {@/-%dǜ5ٍs=.=0z /={AU{۝(5nݸ=qi K䀟 PCvhSWzԻ)uW1HUm;ndŢ))$]/)'ֻvޯ2>Ux!Rj +> E*Pj bԕN_l/S5I׭e"|dp'' /7owi?Tѣ%wm_/I9euAX _&[jrS=ae|-=-oCfl>Wg& Υ.ⷺc7kd_Ş̾EvX-YK?G\H٪[{Ȼ]|X[IJτ0#B1J JW R(5rr8.@ |e Gc+0 qVK_2` `LUƨŰ#7b$$)|E*UzHߤX9fa,.tRRA^gt,@4`\C臑N21dU<PR, Owf7(:N=z䑃G],FsNU'M؃ mmaL%Isi!`s+K <I+JtkHAj^ ƙRL8ъ@FEFZ0*?3`.)5~-W!n!LǙy4+aU-g?fq$ݳcKϲLA@m_[_8s+YxV8y{=0E ih>Zt|啜3~Y/魹߁Κ9~2RxԷ>O\bWHn9UY#o}p8/M5_ɲ@lNM0%wyQ]#%ʳal.!{"8~g=A v104WC^ ;cne\>zs`1mH:m1{'%ϱü6ӽϗ%VfDQy:nS8.+E6ڹ9Ԍ~:qŊs$\g5ardz'5*9CBv <.iЌp. k$8,${d#[7~=!=%+ 6\"yG7%ivⶌ^j,\[cf-ʞ/3D{)$kuLxb(jg7zdGQ?"/^v' >ߊvl^T<-XH2N4H!o[4S>;_*ajG&ň| Dq@s Y~ y`r3\*׆?԰';,}?w/1^7)E2!PՋC=NpǢrqlݶkK`vs8y!ԷIzMM-(@>M"fGxa\YCRi3د}P'[Vy:q&/:^BXx@ а_+~_Ob3$g=5j"S{$.w]UrcԍN*K*]m0MJݸḫN?~?OU!No4{,v$h 3ڋm={l E11 }.')0^ƾ¨镓κSW6!Ӛv]ʴ̎+O;[kq^fJ|ͦ_o'4AAaqaԍb  H5t{->V fZjĽ q6/m?peꋱ2h^qK/k$@] 5ї_B) 30|"5)dQ`k[<4^&q`> /0Y=?Uy(8x}ΪsM {ν./d*Py<}糱|\` 7d 1XvcvPq ƻx^ӱtDvHxx;h?ax[rd|/N5][h̅ ʛ[|D{'jwdĈg5@iK{ P5^/ ˼椟RjwAvc=qa**oƢ0bAĵl7ψ0INC^$ 6YM0*\flTI~mBqC^/}xWj3#`ءwJt8]x 6!p1;VlW<$P1 D_ Tgֲܼ܂7endstream endobj 376 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 2868 >> stream xW{pSUm蹷好FpV*Eڂ iswMs64SEE`@Vw\YUV\w\8I&{9~RH?7&L/*ݪpcmN~nmnèu#06$spm)#317Pgl޸ES[.{z* qKV\;Eڴy˓Z\B\j .zO-SQT%ZDMS3%ԓLj5zzIS%h:ESAG:!bQANpMhGKJ4% +ca1ɢliӏŞ@nT6TMN+)hCD,b4 rWk2bUKxlZL痋5_.G韖oXE嗹+gѧق1>@ yJ<< V|Zr-H^(GExGaǜ|μOzϏ;~WgYtZF_4oRt]k/n_Is-^K&dˈv*_xQXG^<[x|ɐ'GZ=aaM;zC3vrWY2і^G7f2R7 ?ӂ.#4*ǂ7qp9A'QP{a='I`4f9IqghU,&q@'LZcθ,Sy!ij!/vtz*"d&H^.:R͞CFQ.pБi v` aTYr1uGUI{nw;TQ ŏFGe;dʽ*#'cτ6̛vz*PwQl+e{=9 /ݳ<ŗ'89`a-a}аMIt&FmH̓DǢ0o=}Ʈ׵pK-.}¹Vuv;I-4t:A$ڛkt?E#~`ݓj,V6jO 0z~4^9 .Ҙm j@D1zy<_M\W{iy￐+Vb7 7ꎪ}ɰuqW~B d`:aO ZW5N Wǡml4KJq!7y =ޅ+Mf=̫mͰZO`e^qwyHM;f  G&̆ͼ=zcę$&s1}z ݹy Ǟ16<^/O&+F .WzG.*hDQWӝKQKF7`2HƛF~;UZUG(/D) GơxQ'#A9aj1d#͡6Q@ BC=eMvÆwSE 6z\gs')rTneԲ)H7s''z54yn2V2V1fl0) =:ʉ0!v9Kx0 ӍisgKwCDv;R8<ھ>0xbiڕڰ5͝&td!ϒ\uR57vA"M/:|_?| x.Z54;g'89nhu^5L8v!R+/aǡ%Ƅ9# 5V}Ƶ*8N}9 ?Neu]ա_)h&_H!Skik8m6B aN H9f V G *ct==)diN]nf5BkȿD!MVLQ\Lendstream endobj 377 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 667 >> stream x]oHa߻swvkA2M@3&A%9Ėۜnҽ+ٲri9 "L̄2hHEaa`$7N0#?y><paXxi^I"];p~' p(]$Y=Q0a!VbbcXcZM%>P[KJv `*bM4bhkYQxFpNH=?WY5 '7(urAZerC䧌P0@ڸP.[h*j%O׿u@?^! )2*+/7$V-C;+H*IFK0BZMV;I7/,7f.1YBiycZ? hg~X,!)}8,9ʼk?qh+"]邴ddJoE0N =7~Ve8@s_98/g>ZNXǩB,fH;niĜc^4T&Ϭ=B,zF*k* -2)O6C̚<=p)WGO"K ҽAbkzeu@El7"=m732?1$endstream endobj 378 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 686 >> stream x]kHSqg\\͈.VR eVvbbمknާQIyE4u *1 # Cr9)}xyA 'Uq z巋 1hK`}4xr`7xˣsi?ô&| :/)( K(Ԅ)JrpkӈFj@$yRQC] +>#M߁,pS 9 f^!qI'] EZ`3[z(ݦ3UWUpx`6V?ys/#35we@(..%&q\Y-ިß1aXk7o% (nYK-eO4sT,]|#CϪP%K$mi&OukWnz.='.b]\]qV |ڠA-3pWB +!݆ĵI&R< ,endstream endobj 379 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 6088 >> stream xY xڞdfX,!  eR&]$MӤ͞MtO)`YUUwzs34O(wFcaaa/_3g9L aL<1dݏ_wEq`ܨ+'È{IӖs iyL=/1 {ro1?'oY@(!N)LkwzƆ,nv}35{ΓO=̳{{g<:^b#,ۈ%bIblی-^ab˱JYl5b=c(&bll&&c}e`1acP0 6KDFQ~ea%F֘cfbܦ{2#GE "7۽]:GuS:2qD;?Iע1c.O^9>v^{=S~ KE13a?$ lggf7[:ॺ:VU`24N`,(bʄe2IeU%K4Lgd.Mz LX/ Zm@-Y_ͼyI"(@4XȆpcfSs: ny/&]ujk4SDx?Z^37&8 `V.]0D M/lEQpƧ,>9<% \F' ;Z5;9wZLMJPZ 1x=cE1&l;OjnT lXͼ:PP`(„37p:^ * N{%'Ek)z)M('|նGIGcjb?s4zma##9fԹydbCp04ep7z4ucsmǥN-JE1{C}%p+PxTEh=XjU2#R-4%Ee Q,c/1—=i焇oDv|(%s~F־ @nZw!ӀAb a˯FS]#|*Eqʹi%@n2oEXO\gtiZd$ATWԳý+~2INgq<=08Lnzπi`bPd(d"z7_Wǫy Tz;(zr u&TH,x&ڶm8X㰤;M}u;{o_q ? Gq构uD5$w8s4{VK*] fb 4vE"EǥB,5>,Q y^1s:_ѺrPVI 3ZhRsiQa6nY퓃Ŋ "uA6mo;4~T ˔UoL9Zt_tr Pl,EkdGi膏G"@^: 0&ЦM%&dyU9o!SQbT_bǷr!Y%,j0I[8䗟M8]$Zv&7EQX¦3{3̴[kA ln~sX~Oձ;B; ^f. *M¤MBUBw~k@i%>cCX(_gGsH2+ռcvٖKq4`jc<'OzNPis,j~՝cX <-sпTt}?TI4&>ȓd+ ċuJR Q֨lȻz&h^PK:֓63 ե TjwU%P鄲L \9=uzy}G +)[i0"Èp# ՂzCV8T۳&70)>ysɈܽfG8|qĢ.஭uUpJ{icS:2Bf9-tJ1%ebNVz(IofHVoegzH:\n@htg29(ٻxR!/T-Yubbeً@8 $( 0~_hr 3v7 H߂l8q4G7 whѱuɪd~:/c0_wjd&30sjcy*4Tt(vo?b;UUnH?{9qIg-# jJ-G&U۫A3$ {=[&w9RtſokP$URiD%QJ&+%]j^0C'ұf NA< B-z4u)x-RɯV}2Bqf$f!ΥK^nsfa:? '}꺶Kq_TAk֯0)mDI363i0YMY0laN gWקGR֨&.4ok⢍/i}J_EDkW`hA37&}.Ʈ76&׼NS\r3↔"}2#z|N@Dt'unػ1WcZZvnUNAb V p0`롩T?pf*!oπzBUNapLP.yT:sS 53bc/F3j2])etގMF]~G Kr 7Q–GH1|$zF# G#gU<"x%Rn7 u(T"ί544m^|ڈd}pمA>x[RA8Opc8g8\7~OkX Z0Y@ʦk4^@^UkJVv*(HIUqMUgN-:Vh h®m_5'gf98fUd"F@*YdClf{b=>SWJ Wd֦U`z:8dĩ k۸|-o w!-5?x3Hm\9HmvM-;(QkH_jׇ\z1癑%&@+8j3X G&"{R0\?R{iD7 <'mS13s 7ҔES:A7%2104-bD6z|o0^ki%RRiL$WiVNG]yG9ݜ(ouz,Y,Cַ/Xٷd߅бW"C8+rnR6'|J AWw0n8wwNҧӥo6zݽ %~C贈y?ȩzBPVWS[hFԆׇ& &^/!yAÝI=ԗߛX4 נU\Zڰ Q1piX}0342\h+ğc_dيLwP֛,M֪Ðs҇ do*o,+uaƴ| ԒW'mGwC}9Q`X˂rNC,odmc'2Ӥ]pl  ʕ.PA/g3=H֗ i֤Z]JfM5=,E[]rPz ޓǿ,z ~Њ4p"rCк^]pʇ i7΁bOeqi ~.rLUHu,W~A!BHdnK[pW_lY;itPBxJuk>UJ͛5Z2lZr8M]5@yHv.Nj T*m/__r\#u7 "@aS$HJi {3Cr&~yߊ` :N.W )2hzAI0+)1|+aCK`ĿӨ;DwiMXwhLkX1gh633d8L~ x|)qo^ߴ.Ɍ3m@ ]gYɲ'rqpyl: bFU|Q8 d(hkcgG!{o=y@>Nτ 3̇8C[.JKݣ> ߆7#now_7##-\l.7;U(TCd ZT ) 0dL@>=yv|ۧߑ͌9?u̥iiu9#E d9-Q0lpE)2}gzS~"N&L'$rGy@ߓ 9*°;,&Q'ϝKcX0za8$ރ9B uދ'`{vFArH6x|zna?FM a<|t  %NTePhWY<3v>3F!AvW`݉ ~KHT+i(?߈IX f@z=oҏp, y b&lRUƫ'++־; M%BM"S 5ڌTWڀDUQ^*ӾՇ̤ Ō[ ge{rB]# 0"F񽷂衰lJ|6FFTO! jpyTɹOZ@ގyW>n24G=ۏ朊D%@l(^'ޤk&H ^dLj rj<[w۱ld1>8&|šop9vmLGbubO>᳘l+~`)s_^r2l Lb;K>k:#r`ZVAn"VRuWuiz#SE23%B]! v;rfQt1wvz#j?/Kn]I;!>h`&00`ZƲAQJuKg O8 S-3i 緑34L7`D:Сc:gFSl+Hyw9DǗF8x ܆GuAѨxNgmc(ʅ?o@p, (n? ުx!GzLzHrebiH"kV&'hP_JZ: v7u2b?"߇lV\XRD3J uUq֦n]9NǦ>pN4e*Jo=@ͅm4z2m@XXDy0Tf13R˕TY5e(*Sm!y.eFj9g$"z`zCY#ڢ/Ű ia=^R-uO9ѓDGkuE]% \#)b1rN `HT\&}Q%) qHUdX\FIcDT,7f.endstream endobj 380 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 919 >> stream x]OmL[e}o[0,؛r[A`R3]p,Yt bSJ ^:hK eY`S)d!_H4ƨfq$%O5K?ϓssC! Ql*+7 ; ;%rٚ*IDiy̬3)q*nͳHFQZ[R?h5[y~RgwD%5ث-RP)@ z!6uܦ~g%8`S[j 6 q.&/u`6z!l`/*LO(jxF[v +ףc8@ru|7$ '!]Ӌ[`Ƿ=>s¨F"_Yp[yvBΰtj&#"<ɩ z/ o'K|í= }4$TMXX_t>QRzpqbܖI "-ŇvB{Caqiͩ-W\} xU #>`vc2'W'E/K56 U OB7oEX[F6 iXHwI7g4H Պ$\z[47a$Ub xp3+U7=;74y_. Y)m%Q4cxc~o?\{E{X+('eJO_|/50~endstream endobj 381 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 1839 >> stream x]}PxyvQzt7&hͤ**QKQ-1T;{9^ n!Z!)XzRL3Ԙi'Qg'b}f}R(BqզM͟?bRIyT֊e3g?UOSR3X8 l*EP`^WytOF&cY/JVjݿSw9s)j=Mm6QT!ZERET5ʖ%R46"2=S)ӎgפ'R3rԇϺaW) uJT.I8ad^^私Ypdq$ճ+r5t/-5>l_Ryq8/,\D.5'g(O zn#cۆPDlQmLgn^E!oG`=#@Wsg0Ql(ÃlP ]#n?a?Z\Xk]up0[n1VrdyH@Ѯ1y!\8i2FwT}miqIBVjR(%MDFIloMT;kt.{@Z]5YFIOh¼u,٥s$M#]`c<4=*d hmv^t4>\$vuFEk6\_+ 欉\w8 s=4'mPM_A9XkYWq Ǿov 'T})_[ʪZk-Wn^̼d)Ą@0ȰbUnwȿ@o {~ k CdC 0/Y|i*+E *ɧն̱rZkk?尊j ʦhyKS"ǠyO $BA.I 3k f^-rgO|+7%=q>X7 dm r&vu8\E#-]f=NK6-ޮjUB3wd;qy}[4vWjf%.<0"L+Ra:lPmm[$?3!3 s!L:?=}o@;c.n$ZeO}Q0t*[='0+&Zyk*X:9lT+| ٧ះ!DXSWgE'S>Aǻ?د,UccpK,Z\D> stream x] l1y <> wTtф@`%a"*@MJ!$>~'vyLAZChLMFWeEZ1z#m2m:{O~sGE(T*-O56,[采K"5&KSsk,j~֨fF~Mq?|Fjr,=b~u$'qyw~mMEW~|HCjcr;0s_RRIqӁÙP:6]q\i)upkhuĘNf)tѿ\gQ|&ρ&h޼N|=(,9 ҼKjmZ8r0Gh8|f̐?&L_ /_-ʊ$QAtr}{=x+n:u׌6SZyc AzEwp)X\FCK"NdΎt=&~Yϣ\,YC& ɹ@>鈙y2 }6{cOt\&Yvxmۆmz& P/*p(47Qhah!{[Hd6`-tDrd3?0W$j0RP6=ijyuhQ_(v׆}/6,~LʕwL"IL!i-A3qaRݍ}=`V*ђN,aMھX9B4T`-d!Q?!m'.{ nl[~#5*&3}9RT51D լ,utf&E.endstream endobj 383 0 obj << /Filter /FlateDecode /Length 25935 >> stream xѯF0juM23I2`yLkaP-kVzZDy[RK=`Z?~d= O>>}ۿ>?_~?[<_y+o>g:sOo|o|otZxz /?o>uߟmel?Y7/O?O׾͗k_Oǝ{Ӈ||ˏ?c!`^?ǧ'u=_䋯>yӫc/'? ~|n/>'\~ڣm>G9c\<~<޿~o{H8<<κ=_/W޿ ~_˻߽}~eUvc\Jzw~3|9ʣo{!~f{g}>?ڽ?IJo?'ǾJ[M%mU|U(ivϭB[Y~8.\eܮ孨,[ݭ?;oE%o1=m%e٪]VTν>3oE[`Z^8sm.:>_Iè3Nc[)=64@q3z,#fnJڈ#m$%mё627ޟǥtqtovwy#ܾaq+ESǏ{wb5>zq[8~vkώ*0{e,[Y1o?> ָ>WqY 'l; x@˷ٲ[m90|>qޮyÇj3;<!!vl2.xC ~. e<]p~ -gƧwٟkƶ_Uʅa;G~;S7Jߞ >5n"~jф6mOw8{R0 [2?5Nfۜ{=ojxǑlOøl<{n(=c̔]P pe;/ݾ㴙rc W #1Tۦqvٰm8&ۇƸ/wu&c,Օӆmqcǥgڧ*w 2 O/ϗmqL6WSo3N^~4džg)~? MƝv7v|ܾPƶ> &v\~>Fa]myvFVؖJ겛 nnT`]q1±5۞ s}8B?k;Cj~r~06S7nc@m5.5.=9p'n?Q0@9p8>>Ry͏1]ڰ{6cMusb7՘Hmj=)6n{)MCe0yƌpb[HٰJp݌ cm+~)cN`1Nσ\$h]ֺ+qg9Wm̆v&nԡ|}1BݕNM1milgávK| o7t*S RS 9S]{#6=cbqI7xbBY6=0Fm2BTR]T.N̷<40dЁO̽5W|wp )hcȎp(~3`8ll YKG H Msjec>x6pp^0j䤍#l” xڼ e 6 yf^iRHYy_ DI!BG"ӤLB2giHI!x!&h=ci.=B!B畳iY lj#v=$L!LB0M 4+'·QiVLB0I0͊iRft*BӤM &г iVM+4+I!&h ;vMB4M ]DӤt=Mr e * MhiRȦP 6 l=`㼑JHᘶ=CiY?CinI(m4)(W8J Jn#CixI^鸮O6^YN(mu\! 686EgIgv&mȤ ~wLK̤ 3iDxs(mu vc t(QPJ­Ci>1anJl xbvi ѳ]`98J v3N :6wvK ҡd(şP` 4* Bi-9p:rS J<#{O(mBCipd? PRS#:Bkԩ 9ҨJM-mj|&T߯C)$(a0O"5:XF"5~i#eԔwDj/Ԕ3[J$5?D`ln;:HL%⦬ 8".+H|@ꊣ)8:y);N7DjʝRS"6XSD'RWHDj -X'RSȺN@o)n":N5)hVG]!}.̟c  6a7 6=hdt9ǗZ/`3ۦ!gP5@wwuJ$xp=lӻ ٦w}6;`a܋mڏڦ}cMfqipT&D69oBm>Unһ,DjJD/>wD`6D'Pq* @c.#^L[">.1MG">bt#Rs@C]G(J= JS^(u/)u<ŵRx&>(uO9T_NTd]/N‰U?~9#@Zxg!/g!/;qj+hq*ӡ "w.98ل7ǩW gva*}ӆ p~C⊩S<_]pZ M]53]YJud\? t͸~WC`^Sa\ٮCd\ CjVJ'2~=5Ia\(L.e\ 뇠>l. SQT+A6IaT*Q0?E>Q~R%CT'(?E~bFE~Rٟ"SQdW&Gd*'0/aF~Eh* 'CSPh* '劁˼O~W9MBI9c*΄OEqkQQl*'(1 5 W%t OAFhbIaL*OE10?E~R(ۋdӬYIaT*OEQ0JD~R՟p'OGTOG~R&Ɵ*%Pwgj(JNE9;3*fj(:\{6sPP"5A㔃J䠆9SQΐA %rPP"uu9SQj(:堆95ETJ䠆9m홃JJ9SQj(11sPP"5ArPgYGXVm}UѻkAt.o7nbMʢPȢC*%(GBo eYo1?(3O"P?,FS+M it*Qar颐FS&y²V?)ѤGA뚨G@Lx4)X<h(P<.M yt*ѩHoE/H""?XTDS&D 呁t FPɧѩF"M it(cNE4TDS Y&4:(uITRHNE4Pϊh4)NSNE4zht ѤtW S&| " EDTDSBaD:TDI!NEDiTg"4)$ҩH""M 4 ҡ\+&D:TDI!NED 呁4h)FC Qtg'%P4)DѩE"M Qt*Bѡ;{hRR~fOWԦ< 6TQ@jCR( Hmg* HmZ R[ iyTڴ\=*HmZ6- RG)Uc1IkG 'JcR D]Kx|$0EZ׾U@` ̋LY"ݡ` .` ) brʩ)R}(uI0œ` ^buo2/ PLy P` ]`L'Prʩ)uI-}n C3BXW%L9[k"S(-և3NMKԾ%f:BK J-A7!BY/EP)c ר"*Җp>O%B)B);2ZʱؤPʲRJ]ʙFkZFe^UA K©)FKTJYJHAM -Q}(K©)Z+` ^,TeY)үQFT ,)P)G HPe>%Ԕx5JIF*p,T ,!}StߨBRi2?R(gIPǟ}Y,ۍ F|&P)cI0TZ䐨JcS)sYcR8BY2(W~=R(P֥SSJ^eJ]C &\L b 3iKbR(RJ *R)~R(RD*)$S(>q M,djB^eJ]L:+FLM xʵ-ӛSI$S(/EQFniD{喪tK#NnJT*d7#=cR3ruG3rϐKܫ直{:)rL3˜b#p1]a7Ro\<5cG~{dgXC=ʔs2J[ҦkaBYLQ#T5$U 呝ֹ-ҡvNiS-pJ0L4)tJQa)j \4+tJ8m)R+"t(W:z H@%}NENic;SS:9Q4ҩ)D@t*tJ-L:SSXb:S:9IS.ҩ)M ҦENENiRNENP.yS:SUzSY&nTNEniRBy$&)* ANi2JЖIQSQ:IQ:fNEFiRhNEFTd&ōv,ҩ(MSQ7J t*2J?HCM:KLNirHCA{a-5IA:SASA:IA5\m2H"4)WK{^IA:IC:YSG(鼖lҤqCQOJI↢"t*IBt*I"4)IUO%Ɨ`mk{!!1c㯹%{4ZwP]:(cU+0nka jƈ64p ?(;qX\<{2{F!mJZiPVWB[&Xݰ4\Vf&ݩӃ{n#!m_6NIac[M@7< /R[M@V-& seUj H*KtԵ[ɋlW69nfOqxYBQBDxYugt-QW=밷z~ M R|7,z '7ɫܩkT.U^ b!GâRI+/%6Ci[}Q UosMBoVuUc`pFe,/dbQ,#FV=>PPUQ8!2#erkSoۆK ^> Vd7b/" ޔ⿨P@t~mvo5EL)bp2ӔΪ eY {/U~x8]eA c+Z t,x[h.\^FcL7A~^jfyW$#!Uj(ԶAyرC͉ ^msmZ0mCC3^vv F(c1U ]jsvӷoVHx^,,ޔoۆUW[h(Pk4gV r-0fJB!kW/#19+R]FcpaV6u*0˫!WCW.s}@7V D3U6-^I1TiwVѸX?vWn1VH O6lǽX\QcҨ^Gc\Ff^T棠ܭUѸ i|u=o͏>Y3lTpZmЪGAR+N5 Zz¿g{~4t;Cjt)JH; bSN<{Wt ):Z Gzp q!qf&GmQ/Q=j$NC8c¨nps 4K EgEaN$$:;= d2Fg܋0FgY_/ctVܗ1:2tF>Y{^Oct1:˸:2GgsI9:k=9JPN֨ NqF(b/?ZI5j BVi&hRhZh194 4F@c4 [aTE"k4+'[aBk4+eC5 gvYY #ZI7T(FBo YhR&hVN"s4+0B9Yqs4)4GBs4+7oP5hV.v$|-Ѭ3 GB{4+7oPh&hVnvhRf Ҥ 7Yl ҩ!JgKP&ȥrǽEiRhf{.ią"ɖ"JgKPh&iVza[,Ҥ"ʝERR.iR&iRhf<@Iq4 K:Y OڤYO&M mҬ\qcQM> a++}4L;Jf;O~kXħۭFSj=,DE":Ӟ0+D=y YH Q^QG`!T-ˆxȧ/zcV$±kT ex$F}+WIJm!]R!:ªKJг]ښBAxa%v)@8.DxuOjxŏ%|NOq̵ɧH/rT|Sx5^+br6 O O7.x)&tcKj*9to OKx頑--XQN< Oաrv+Y@xJeiynaN7.֞tN7\'ʙtE[tqAS5ÜtfN &фӍ 집t{ NC 88rYxSTNʗTq -ipl`S^M7M"6eĦl++0~533jDԪ_U7#xy ]a|$)S=oA6WGPkPjqs  qQVOS=#iRyUs] #ci {0AGa|<%ǣ/*QO vd,;g3+䠯(Q|d%֦4E1BEqoyWQ}ݸgF^mſҊߕ# 2o&]XFo,(}}D~:F H=#.֐PtmĿoĿoVoRrĿ!d>Ŀ;KFG}_ >& ·;?C{1OVc1c~?J$z ?GgR݊;~1:#DŽղwZ{=8rBr&2Lxsv-L ~ozS+ ~bh꠮~WSS0>fPW$2߯Sb_> ~5RwOQc})Լ1c}|!!Tjg M9t(DmR [Mxn"4T,tIPh%Htҝ@Muj,nΛ M +t;Sljt+JYF3`S[ߏqjKƩjh(RݖOQ3.F\ 1Pn3mMtӝn34mE顶nzQ )M0PF-7.ozp7=V)ߴ(2M<b5H0nZ+MM1WfhhL7#Q*֌5״cVk\KkZkD=״61rM+,#ݴ^\/lz+@٦ m (۴l<%o5G5~lښ[ɦfi|ɦJɦf|$*x&JdSD\skz2b{/WY3'$k^WgynzF2MO J\DNE2 Wr-XM\NEV? ĩGfH]NrJS* UT(w^ey7o=5/0 GvOM{j)S?b1GީH3 ":Y#!N%"LH^@5NAEQ7]2ɉնLjFD~% 6RstR@P 7&ufo P]$ә-@SU: o*dPgηvT(J y)"Td7%:^i:1R)JO8ɧD&~sұL7I[*tck&nZIkdL21L#u=L7%Di$Gjzee9Le,.enʸUn3t,,4ӭfiZ4Ӎg`JЍ4S &J3E]Jgig7_15( h]TрR,^zBorz1ۄ~5J娟^馚MT+*=԰)㊀=S^iQJUWZ+mJU.w[0(hbO"XL ڢö, )A1+tS0KLmd6,7Yzl p,4K)w\;pKdCQiBKCarQNг(r`M+ BP┞}YCлq_;]İJ7iJCVqX *ݻ8ZV)}ڔ9t(S$bЫ4B"%=N22ĠWe`ЫP0b0"Rט|£ɠh.@NSOkK&3B~^ςPĂ.;)/7k{_8R+!q(n*zMtchzc^"4[I|r5[C]`Q;W;(J,xkJ1.˝;IwaX(3/ʭ=ID$$ K}]t橓&'iDod9uCq$s?r \Rss('WC͘$ /D`("-ͩ'-CK8QW޽S8FێGPʨc}IB7/zME0( CP+ȳ,vƒ'1oC$/exzwC(8s0H0>g  B{("0h/WDzيL]L$RIX)A\r@5=ڢm) NqѦ.kJiEەsJ)yTO3Gg'8zO(J_KEsA!|:P ߲"vXÁ P/\ť8ѫҸ ;?dhU?uw5@Sv6gK5P*lgRѫFK|H4jYw(p5Pl%q(ٰjP0Z5/ (L+ŷA+@5[7w[JC5Pluϊ'h&7LO|LOO| >rar{6ز;;Dx. 8-RNlXmN,_G-XtON,æ؉,mbѪ r^[)~^x6,v&ufqjeTͤˬfRYI& {%+yPndЯcl%U3T.[9!iA\p=ύ +R:6z"iS~e%Z=p]wȦ3\lNΦI낸F0e9:^zjQ x \j xtΥ3H\jE7Atga bYE]ȥA-qi%]K-dz߉3T0%ȸF&%j2uq2e% )ՙtsV@:We H3) $GKȧN`tL-z% FIEA0dx%"=O?`C Fw0"Fw q}b_XRH,փdC]҂E:*M,jQ߆,nnbѣz@уMDDD3$ֱoB=,E?u E}.gw(z(G( ψDtsEB+u`w#5.$ PHxI@7@DˡHsGhK+JEN6uECG$h]F-Ccp|DD  D hMQď.AL E_E-.@mc'Ah!'@(&@$ƈ$3&9'cPlpICkܿPD\ @qZu"1 (C C=s ֝= ġ~P'; 9|CQ';rzMȡ(7'9u 9GE;Dk)V%3bM$q j) B DQO@jFP\_B_@|AJ(.Y$ZZ/4gS( !S$QB7h=孈DjN&BІUJjE=N'Q8)tGq*=Q=Iƛm Y R,(wԨܿ5ld8gUF# ##h9:[,d6rG7)hvFhRЬfQ4)DYJ_(GH8hVyGB͊ކHhRY۰yѬh>o4)ѬtPI!f#l &<G"ţY1rGB Jm &ʼn4 #&ʼn4 z@DIaNAhRΥ34GcR9:IcܶI"s4)aS9+zP9JI9_aI/mS;Ÿ wt*rGrNEhRG(wt*rGr8pG_pG"w4)T&~1vѤ\ {t*Gp<>٣IKWiNh+{t GrᏆTv?:ON?*eS/鐆T^>CJ8Sv4! %#z^x9*6uP[;XmTF#5^HZR !@REs D:T饥JR쫅TH]TYeHHʃ"Ukj"Uw 6LD6v\\:*Y\BB.ŪUj\`ը悓U~jV"Qn~JOVUɪ>YU'2XU3Uw'D]c&7艪򁪬PxZoC텪|J㉪\P/\ U1 I|QK*e*$R\"U.JJj :n`p8"RHTCRSw`*F':aj( SO*ebTҁM1$L21JTRt Q~P]HJa)#O5zɧTRI|*eTz"+OL>JS)O$>-k>)O$>TJiYlS(iH|*ai]I >e;)ɧ&l&!ɧT&RH|*%9$>TӗL>ԕ̧RqS*O/<̧E*O$>7}M"R߲@؜L.!ћ"EeH/a+i)3 #U(]!C@K_2LMEM'n%"tQ_._D"S,c&OIBXl}2vodG)V$H遢'MBSD5X*F&jM~)IhZ0ؗSꈦmQKei"SeqQc^*ɴ(3ԖJLKb V%I$S 2QLhI+S wYe\VsKn!sKJ鋅ʇAAjq)j-{E\?O1-]r)rw<]H\ZU"0E): Ld,)^6ҷJ/ݘ=Kq|?J/UL/>KwD;ۘDziD#Tf~/=v% ((ǞCLQ$SR/AV%6mE"dSKrlڊΧ݌M niSE`S3ݕlj+%/l*MW zXX牴S>(ikAJi*ҙ*JBmM] 5Z|XMK j;B8"x-*$*P,j;[QYS)BT-ǒ`? >mgoOAQ§PuZK[EOm.ǤSmtL}>'iNAPnNm9\ ScHBN-SxR ;6TشEkNE#\Z餤ShTpe,fZjfՁ{w˙#봰[d W:3lU:.-cK "tAvWNQ v`=R`&L4S흹ER"T+Qgi]/D-"J-UR-T{dԂ*NTSg0Ļ94S^\T PGN-'uTTJ$r[@,PEQZ.o"N-73ŅX%78^@N-UZb8ժ>=Ze TJQF"G(0;O|;U3wSy0Nc^䝪;l2fȗ4O4'ҦDBPeuK[B~Am @*SCC[zhݍ7e@Vޅ2K*ֹʝmrSU)=A,k蔢#F|E2J7QjAT2JC/R<%U$o0J")˅P4J7 t?_|MRFiaDuu2,ebir&EgGPwH.iZ/|Dz r!%'zi&i#G׼@< yOpip&H 㙰IKq,'\Ft4LH5ᑞ䑎o+'x[^?MHϲFžT0IU%LS$=U!\ғ~KzjT]pIO3T%0I( ^Ke^/>ASBW;^$ BR& GYZ8zESC腦fk^Gr}(h9q2p{+j; J+VE?Q]ɝ БE3RNgQ,d&pK,"ED})%W鲒HQ0O3DZ $-TYHZNVS $RJ`7)vH"u$VK*/L,''II-HHu +lZP _.HN{U[#mؿKulm8cYPFqa8ԦgB*PmC6}PGR _&* UPQxY2T銧2TUq#}E>,j"tRcGQSn[TR>B 7Wf^)"tF~j LFV4ɒSjGxF/YWX^0 @=`j/ Q(}) ׹PjqLjrEZ(g+h>@^4!Р[%AZ| o>2c0z+A%`TI7CN4z F[ШdFoJFo9ށaFQ{~ګ_DҾG (Gά(_D9[CkE)$F͹ RT~$ Ee%~ZZ@ڹei|S o#]9$(,yW"vAaoj$u> 兣i/띬FފV_8eG^7G^hg _dTΑ /WPs(#9U u'@ k=^)-CFÕj32eREʑRXHk1'b{N./ZSmfk6!fMehݙB+Qk2|#.ouڦzF'ʾeˣhMO?)mBM$P20}-yemefCTOڠ̵ABF ˏ hz:*):,A &ZC*6SPnr ɴSC€0tJVlBE92o BZq)b"9t(Hi(̽Z#, ~C-u Rk^Lt -޹q7]50oyC lBqKZq\ʺ=n7adX :K>̫Z`!ZHn$rI@Z1LFR)^75?L)W_~|W߼o߁D> g=}O?;wO_o?0JOo>{K10?wb57{~Ɣl (>ܾ)3vޟ^}m|ݶ &}:ӶO ڠ ?/}՛o}+wc{Ҡ7aׯ9ߧ?Sw~|u}bO{Q@O:j\uw^o޿:m̾>Zƭv;M_vާwso-v>>Ɓ8y~:4o /'0SW^c _=.7{{}/1>pg9kgR [G6r;fH S,cXpo`ˆ_mjC݇isHc}h:F+~$So;b g{;Űc>qW}~͸%^}d1NPJſۼ;ǫ}#4b}@]-mN;30|ܶ_GnӂFc/߼É҇mt,c }olm'o` ?rǏy_qc -}ɮlo߅]7>2c+N0U%#{#P|(Mڋl*>`/߿~vyMύwYtylS{o) N{ ySf@uW^MǸʉ;dGۏ-:0)Ә"t gx*&?|i vPq oNwgp{,p?ؗ44Af3+p1{1hj6my@AYlž/h® o?hq&ݜ6Č/\wn WUVb#{W?|xo/ fO,O?OX%xigxƠ]\O1]~z_ˏp7s|a?}oac>wOܞWݧt kV;{ҹO|n?W~>o~lDOmyqNm7n}_f}/?qi?/Ol dwogގ~wSjo_?<<Ǩ3DZFǦAjkޛM~O-UO͢endstream endobj 384 0 obj << /Filter /FlateDecode /Length 47725 >> stream x͒f7r%WgZEΈ`jm-z,'I%ݪ<9FI%uFt^\_ߞ75=~?>^xο#V_z{ĐKΏ/, 塿^))/)Ԑ~6#r|p߾=O?w?=~w?~?߯ׯ>}|&\b[z|Fz?}>Y{__/h~>x}~7|&[=<_h/}ӔRʔgwzoMSEy,xۜKHOOr/,$YƞB9Kag)bhKG9K+S9[KM%&k1V1QHP 9V(]F.$ƭPI饅V_Q3h~*0sH%0ǬǬb,$!s81Sr}9 q9 9,rrQG.8g)sRʣO_/y>9Ęz~|~ !(iau=x\I?w99\3^QGb/s0K>Ni_Ә]fM6z)Ls$MF]1)}fɉj65Ϗ#^Fm8sDNFsn5F}eYRR:pbeIZsW5Kz;89zsLm~ZsVi>$1:9tj<54'.t;ϵSˎ:X*86 qi|WaP_.֚ݜC"䂏_UM͵]eg9>]}@Hrƙ̉ksVdтJe~s6g [4%Vl܁ӡ]kRΩwI&KHL;x`̕VXnFE`LpzztVhe2`>7Yѧj|PD) bFTh^]9Q+Tg֫,T֫8d9 MX^$|:5[Q`~6j(Fd̕b4vc·l4vsDfѺds,Z)d`BdcѴU6h4]ltgɹ4;% ^%؝prPp40cZs@3sn_Z}ir0^ql@.BCÞ]N@*sem<{k6;Ϡ)8 Π]c؀4g4l@RD7l@Zڄ$x5$jS2 ;cL9ScGg+jd#HʓS6FOfp4jeV ƣ)3\S599s؀>:X'wrPF G%1ƣ1v4#[J19s<>xx4[G F63Njlb$UuU2:Gwũ86"9˴H(FoΪۈD̅+&`Ll< &fiA>/pɞ$*]c!i-ٙEl(z&>dC'͘lH„Q[5 qƦlqE Vr Xa:B>A`ov ֩kHl#sl2p_~MW~niw9'l͌7˚"j*'|%Y9#pNw?Gpp9Y簹qQTGh@#sWƅ?a (|Z\ 5b¬?Il|v@{XV_vh_Wx!>_6@T< b:tAՅ+ 86^ $IǠ8nt .  Dv :{GXt(0h ·$4t6P 6^#t ZlAkZ)\.8@|$bB Y t| Dz O:uǡsCsQ  q`\U m9; 5[F4rP.GPh : msɤ05EB(yT(, oGԒPBm0:Bs)P"-f<C6=0%EBVbnQy>QPf9B|!s@<6[/ Bďn- z׽0I-=y H&p jp*11[" flI9aP! 96% j ~m@ ]@8) j@1Yq|P}Yp]lO$XOXD?TZ ~ }V$lsU |_s7B߅>|2?'`ONi>1q9zз\Iio99Xm62Ÿğ‘>_qi R}^.99b}ڲ8dXsZQ,|NNd|N/CDgoz }v7 TNNI>ؼVфj3Wގ>{n["n2U%@_zL:ݕi- 8%7= 'efȔ*gϚ"l7j5Ndӟ )jZ-|ڝRVp] Ksr7O }"1A=xk!VB5kglG^9}͚ѺVF~9Wb>|.ẻNKK rd /w\b8WzU喚'm庲6,~K\8C rl?[\#+Όqo݄IWыnZ,`@vFa_-q>Ȕ^n9'ӝ@鮣uvj;Vݵ9BYNicXt9$hwh^]}s9rMtN92-#gGm@P(*7_zϚ6[:եM֐y~鵯=mMe.e>.lեliᘤ}&"YB?ۚ.A|WfY+e_hq;_6X\6rfD/K;^6{(.wum>Mw?5}k>}9ZeS ,\dq/W4}/ωMܽ+ێv2 2G͑B aϨqJu`w=.grOGRZwQ"9`+ly pĸ fm*!UTS|o>~;H_P_G [ Eק mxRKp:l`)Z9WN8/l /}Np&~Y+Wl! fOL`Ap-k@rl+|obFI֦m OrNaqg?C;s2Q H[ WK. tӥ w8'rm3xڴMn<*1 lNLdй_- *x WQuqdT4q|+jgJmѾi~yQi6 DMlaXCRA%;r6|N8S&n[EӚj?J+d Z-z 9^*x W%;r]?g~aaHmڝ`%&b- fV9($h6D>--R}-α5bB`@)t0' 4c:-i3d1V KoIxͼq.3gm[J .M.%86sҎ&@ZyA^ N!mЋn/[4%2h| /ݰE 6$Jw$m9:!}4s~ӋoX4k%I~/1q[hŸGXNy6 Z3T?KpX/;6CF!K`.i$poN\`׮>Fn4FTKws\F1 ڳ61wʄ!o;_fV9|.bZPUoW;,#9)ZǁOWH0լxva3LneI>ֽk">Gӗ9K <7I:H׳Dk.\ha5[K=jCbp]½ ܋՜\09N3t0OHs6mTV.1<%i.΅= PpjP]µt ~p,LO*N# `ˈ&QیE XcС%Z B`,!%]6.> [B;4xi!.,Nק)/6H[ )\Gpx:e6k#Btז4WۛJ/}PPi6`$5KV^ ﮟW@h#bx&AEm&EXNHs!jı% ^XI>yԧ܄aӺ2:C4r+m=zeC´mŜj%JȻ: JA&o^1(M$S]:ozZ} ;Q]s4%lef1neO p|!(X%{?7c2<(O jMh{Q!^"%(\lj8o mG5 Q•{'8psDΙӅ;sٚ`ы5,&l;J.i6a5=-Bn4*KG x ̄W:YsuRT m#m<4c&4+@S Q6tC!uӶjDW4KpmX 0dKȁAZ@?K.Y ,fINnZ9(U_;OVt|3A@wēb+[7͗#JfP9twQ}ǜV2W.R8GQBs"DD5b_Y"z׉RΫ]XJSlN]ωQ˰” u,oD0V^}Ly{L][/;Wbg9{y㠐W ~n<G/܏c aCr#Æ tcIY={)j=0uvLjNN41jZD5CD:t 6PNf+0΀(P-'Dݸ%H~DaU1YLqʁNEx$W]t#w;_Dr=懕lٹs(eC6/_>|̯{E>wT / 82'좹_K0NՅZ %A֊7˛#؁1t*QR K eƖE-1*q7xŤC A0M#3ժUg\̓aʶم|],;Xfvh8#3bJLEPLI-S1.{v(1Ž@Lc̻ H:3x<. &E$ho-* wE!DhQTtb!E9sLV2wlӉGrɥ1.&F-}e}ؙ] 0l@g=G|qwk:qD]i߱H$HAUJH;9nզn+WnFNq򅧫(LWӎtUdtjg 㵰x킨ضR9%l\1x$D6xW*Thdpԙ͏|ē3Bߡ66R&`O$bL359hnQ:jur ,W&1x.H1#ưNjmV۠bi]6/TDah#RL :3 S3/kZu@sJtH % M*1Y~'ulPQ)*+fM';%0R!u2O ې43/ֲ! 3N$vd'rGR(qܖb $ɪK#ФtCTj iBĠn'3et\faYh:X1'XwA!ojEmEAP$.tZU6rn Z.ؼ0(Ͼ:-I D/:Lt`Y 65xP3Zyh]g@ڮ [ >AhM nm8 FV.% 'k HQh.j݀%|@Qĵ975+Ё(HtDD^@7w } Z@T'ǁh/>vU@Ԝzx v@ =Nڔkѹ;mC,h(NjFVr lDX@*u! ::q(WBm Pe B=~y2.Z`4 -:ûA:ugaP?n1贂8pba9uq, jf8D L +jkG#PˤBfIq885K* q2`$!IAʹ"&.L@8Aq QÄ|BB (8BBGfs,ēBێsC],vz( bn(l](Ԍ= a6C͒S0EC ǁBqRl\jex-S%US-AL)RnY[7 JEA6y 2bKbnCv$QP}!xk{mH)qe;Y>^Ƿ G- e%)^2qAhkg38-2+Oݲ=rl4+ݶ`Qm+7Xp7x[y5e+Iюcԋ?fV󹖳M-$Nrg;>n  r>d_xd]_fr\ͮ YtUrUv[˹Zۧo+Y܂ Zv^ <`2A; HJP Ԍɬ7 Ocs)=ܜwy+p(I#twnKB?/'/_ pq5doCr9c J񢽹H޽QɎgح=^0{St{j٩K]$vd嵂__WBjmbC4ǃk~pGK6ׅGK4<-i%N0yG_^µt ~o#|8\9"9b$s]~.aDY <:* 8m.*{'*% Dh>9EKfnErNwt[MO҈ P_۪|מv]4:l=,%-i?W9m%[ѰtL9=Id7^k}+,%86^6w. 4jC4FBmTb- VšXc@ wiDtA6M;kNن,/ZY^nCb(;֏yoNq9 6bkpoqQ(~l f4Jxl ~4FﮢWwt~Nh&+.fMZt{0Pp Gv]i*x W%;nj'l8NmCזt]["OqWw 5\-~}*x W%;'!Ev9V@HmHy {WzUw IND&- ^CiRK. 2'#2Fz"1~H9;)\@{Xp]½r Z~Q4H*s(Hp՝קͱ#t@G 񆥂.-8PQCne e4:ѰK 2&#dUrs.7TKwE-:"5693JMr%2EקɈ2\= J XZJ»~h$t?CV&։< ,RPW Ncq n]2sy{ $ɵӃ302VwymiƬ/m%ip@P̈:QDkg %!If6 ^Kv-ZX?K!vHpmwm'HkRi-|,Z{?4&1jΰNi|Bk#>1}\%2c/5ӯ6NK.}ĭ;'Úmd;!ie>vCYJ $f¥][zxWŵKcm%7\xKgWZcG4D(Z%:N.NB>W/ZxF*!UTRSCAb |Z1|-n׈~e UmN [B@PnPv=K.ޏ5WV)($<@ImZ{ ,Qh/ N qR0r +Om?K,7CSp i8.,\u~ʁ(_-b|(]Hl5)H%np-kX{J rr 2EgvNkr,g$8649.?MԞ8~wEyx8s "O ҋ'z̻%VrЀ/(!7NԆh HjJ.E35`+"9;vEs;z/͖4@ qbn$h`>~s]}͍UE;9t" C'}h3#<ϑ{^_Z(`7bS ļH VWŬv8;Uq ZF{{BJa|sBa['[-[>~w[q|;8tLM1E?V%,m>msl < m3k%\KIxNCo ?Z{Pqɻo3#]wXNJ,%]'}Lvpx ۄƦoߴY3fIpm8$X>6l̫ ]g %Aopd~,1kJ|dE$f#w xmnŝT^#ZEZq~weULMHM0 mWE)n1  St96?K, ! 6HT(Z{?nm+7ǥܶy;En]Ui6p:G>W -v]C˹3۫{ ѕ i.CIS6}t(KzIp.qq.F%а(KoICO;bht$K!0ؽ_9Քx˷نJ,K^roK,%&sikwZaʚniLQyy|=E5;jw ŧsQ|_Zx Rc9>`Tw|3T'6qXiav ,_f\Q{5ycr|kXqUIȜ6*M.M.n XX71SP Po#{ K.dRk95Ls51cY"cfrSPj4ޛK uP}Nr{٣{DkmgʃK}OrNEaũ(Q%K.z/Pqi4qnml?"CsOKHfV9l|v+%\I B3 |B8|u# YHѯ;g KHcDثGzI/*{'`]MF=Zx֧Q"@4ЧU !iiJ.}jZ%WلpN},݆h|h~L% uB1XxKocǓDK^:=3byUw ȭ=p?$4  ]?~avp@x/"&0ce^/FyuBB|gDi=tpASӤ 40`qCH4L_.@^:RQ}Xn|glgly>f9یyD-u9묬$j8j+-V i$!9cyk3:k r^6sU鶢Sb A/B 넆TKwBqVh9CȬ 2"lZnq#S{8Tj;-Zq=,ʹ7T1yHcvpFrB>p!9"HkTaxz1Ipm(+ CD72؆h.jJ.\YЖHe@6L g{ߖنX'\ݣ VuKiUw^aZ<Ļ7)Tp--dEZde'; {^{E#/á翺f|Ӝa]W[q1'!N_g9L~e2plB4x}Z]k$XrvṤ\Ż9ρifh-X-R[!=96IY?vW$C6\3vp(QD}%Dg(ن6g--V i$!4xt"Ki̧bwU"+7vm)o3ᡅo[8קݺp]Ǎ!!H[3zfnwEw[ !$`x 4tX] !H39Iܬ]fL{棄. Nק&I,6DcnXɲ89v,R-JݴY“j(nIM{TNT%q[k$8]9%ܥK0h<]z[r#<'Fq*谂사WfkG f[¢ن38ˬvmu-k) I'-P>-*f@Hg $g4O9Vg W%;#Y!(L;304ZEZ]Ej#QL.y!Z^v.։>>E )yxS>EҩZCNd iv 8hW+ߵ1Hvp,yB}̓Nn<۱%86s }[ Kwk%\Kpsf0\ C8c5S^"_97FNקH^I8y{h+Y$|%|dgo}%<йʱ# $_v0 {IԒD.cZ7YN$80^S~4@N*x Pn=P8vpJ5Q4G2 _]Vxn%8DLCc%pm?QKc*"}!o@^ގg s~D9M-Pt17@Zzp]½+cƮyqqxi#- dOW%ꄨ$86| A2$! ^mWVrI8_i%:AƲbːq/uc޼ d05. f>.4׺q4.EQ7 n/7Ed…MBuM R;r= ]74WBƸ.=ܰvUU=01VV5[Z~ϺaR%\ZHdN\7ZG& +7J+4lgQ^Uu2~L]t1H(vHfrҍ'qc݋|YcafEX=:LNM|*7ĕw:]Mqj'4֥2SCrr硫آE /.چv^CN jZ#gq~?Sz}{oq0`I!)#Vdtq߾==}}o~='Ԃ-sl Si}ϏkzS̝ؽbE`Y}i|`[=[,}!q$W7-l=| ?||kZ:[DRJ;RX)o珧M7e!8- 9/#Jb25%cs[:AX:#^u^/Cx I OeJ ,@&X+Zl7 #NaX]k\ET8mi(k;7cމqcp0EWQ9@_ |Ipӣ^sQa S`F;Wi&;vPgfBuZ ;wvx6wr{ĝmASǝsu w2E;K%;mq嵱;?;c뒅;-8ÅR3[s܉IBĝN.7'G3FMa wF6pOW4}CGs>yOf9g=}vD..5T.ۍ>q<i:4!_OlM94C3O2"s1ui~^;MCwŸe?~H.9O`YӶ ;~OK)$)i~R? ?l42z ~P9 >Ч1}ѧq6}^r34aM2@";5#PQ8,7O8G@C}9 S#PprjΑJHj A[! PcDOPpsj~@jXk@Ñ#j J@mL5NPp,95aPsrjtSwj]9 'q@74ZxBrG9 瀞QaOq=mB'H;A+ixr16kSOɓ3æoʈ>Nl0O ~>K\g)JX./z%p|)Zp2s/7Cdr|0cMNqXm! 2%쥁_qOjn|ᲮoXR }8GOKqFāH!4엤c*xF?-2P\W h>.{8vp1"Z^\1=#Ii:IN-&mE-}kA)f%p0i)\r`ia{0ocڱIݎc)EHg)e셓 2r.fąܮz,LuJ F#@cr,^A ]vBY@;MN!|<_`ӂi&#cC4*Aq`TU8ȷ|$`(jB.'vr~]BԸაP!ˉq5;bi*!4uh'l %p ͍ht%ERd~:˔\++_Y_"jKk/`̾[SBBn7 tѢ͸hp3@u˧mФe^6v+úWӶ F98 m>7/2=͓as-'HܡOK0- o78-fX\nfcΌxsޙo!=s42x%n('lIFXim'Q~u~?obtM vGxwAcXJL,u{9aWX3˒񳛸vH;H.i zs$jfR}3&&RoëKb` G2W+tfO@T;^µt ~5ھbx|!1}8h(aS"рf{6v`J? 幜%\C @bNJ3gq[+Yn>nMrDNRV`%Z4:W )$ >x}03bpd;,צm|t*y4۰αhV%X$8 m5\ /Z{?ʺб6.q,Tq d{=צe -alC_cK> үO[ /ZJ»~9FXs>8 €-JКKۿh6 ;[i x KmTb( :q8ls L-yAa}L^§8&dP JޒA`^ 8 05Q2H¢ل#8 n,!%%މ;p\Uˬ~I=vpH}N"0ēg ׏NzmM&X+ [iȌ٢QlL=veަœ~} x ׯ;!܈8לכ_G%Z@\:m1kT}q \w ^Ut Nл1wpndx0O°+ѱ!P%LkJK$ev ttz$;96bƪ~&?Jq03!B֫v091m'%,mg[BGcA'k) S8x;8IO-B6DCSļD61T3Ϟhvp-%]?(ayE>%.uQ[$6Mp,Ko%ƀAZH%\K;cyj:{uj޴FXĪ p i% Sy(l\%xY՝P@&]YsxϢܴ_3b-C~-rۂ,2Қ5QbQ¢نf!ȏ-`}AZ3b:K|Y1'S\/cEV3QŽD (2:n1u'7\p]?~<8y><|دy>ȕ|,G|z7ϧw|y>ӻy>-٨ق`%q %*4Tw}X Hlk'5_\~u2MQ-alCд~I5~ 2MYµwyG-;)ò<*!ߧKX487l qMQ/wP0r|9vr>)Pxڴp0f[¢z&Nv m[^BJJky0I8 J61FcMkG [lgB# Tj:x5Գ( :ա'/ܜP4-=QgPC؃(a0<\<`9+"r6n-k|H4İ$lW=٥צM"D_9q:u ep:62n-tN##Th1ggmۏ#8>*E 1-r;]e@mָG %"Ԣ.5X2=hm~cld&]ҵA2< wϫ{3lapWpksPj\jҦl'قغU=]UB*wFz+14yń+.N*; K^ $]z]?U5]귃41(=`WbAfOû]F}p-]½{(>ψc(wlڴģ ElRD >ߥj{pv-<`0 X#ѾH0Xy0 L650 RtV&R?Qv6 Obuwr*/}pnG͚c37yYpf|Uj<ەqFTv-"E˶C[xf1Y*Qٲ/=@#v vmx%Nv^Ϗ1<Z=U!>[e~dIaב #a ca)U?q-J[;ڋҏڑ8YXTkLS!~vN` J.ptG?*PpX=Q,,FTƻ%gT\XR-vJؘ !Ea {fO/ }z/?Uߛ?_O2y??^)^N2->,z9^oV3^|Ifyw1U|wog+e?矿iUOύg?|09]s{̽?ۤ?~O~fZƬu>OwXDEYݗYW5G{W/۰4OO_^?dϟ~?@QO0-}w?o|E]5?sV_J̨sHrϟ_J{ɰG_zsPxvC5og>nzm|o???g?wz|c˗?_ǣ ܭ5}W~y*O]H/~b fMY~_$>},Ū͕l}u֏اzs5{2Ygs?9Ma!Mp{>NaoLIC gaCG}Ja?Q2BM7͙.CF5$~]<Ɩ~0̗?PؕmNg)MG,$Yl~rQ*)jqRX⭔sR8r,5(6JA[8RЏRœZ֡UJ[);~EY&D5t^9nr&jJ|qAsezm,E1?Ì\XvNeuzcF;[o(䌣FQhqv)u4Rs; 9c_= c-wX_Ȟ]@2K?ΞmsSg϶|<>{?S̞gk?LEp- ݃$p E6{ V]9 8gx'b;em[l:=s1`&MN̐xE'Uhh;߅ FU2.‰&dq A>ZDX'poN%'F>ԙY,؉A\MH09 1]1c=A΃9D/>,Bc۶7MFaSf dJ ;j q vK䠡p/|K9[Aۜ@񝙍7*9=z#9|:9H7"/vS29HalM<Z@`7eA…`!1vc0w <\`Tr 89Þ9bF*px͐eI02NpKL)n$VJ aQwR'Yރ,11: >px#K|YDg]>YJ $r0(9W=eK㚓ȩP5p %KOb^È j=SrG 9<sOU`͍v?;m١ # E<[}tvd|8ňpՃ$ T3d)w󊐃Xmg]qeѰF">ѶB:9ٮWR|-ZƝp̣@Pգ~p,01e{rJLg `]wlD9̶K0QmΜbR+,NbO%L9x==sk {9l/7lǻZӂ;aP~>xT1v .Yn,YrO۸yjt |iϢA|D&fZ(FCoaO г oYY.Y6,Z}*qF+;̺oO;N84GNtHk o.h^%'h]z!|QlV@7B?*)@xo͞*ҁ@ j@B6:VT}P ׵g.*?+:jl6FU&F{ ԳzM@tCb?ellSFn~l˳)de@EF2[Ym)C怟Eن.Sρ?֮?e4s8,nP% >6**zq*J?|YT@3T6@gPtOuǟ~aƟ&.@ǟ47] O8urqIn#PD7=8M7] I1nP7h7I7nozpz:b8uyq%˖u -_(c̅EM -ԢxQ. Ws#_90!g2hb$¥HMP))&Fhc@#T"5 Umt~!yPN!zB_0>/|O|h-* ,j0L]L''0Mv+Nio*Wlֱ(` %m‚(r=E LO8J^XTOFN40²Ӣ|cI{Ueo-h_DhwVvDqۥ q+ 'BݹUƩQ>2Ccv@yDO8,NVzvŹ[ٌbm팯ۑr@=xZKTzD!qRI!M(!IO)Id_HQKVdHMh4IOeYu0iZPڒ!uCjv7!oChem7 !|oC@/C}piU\""/S3"%;۹ TZS؀-IԤt/hZUYb2MƳsQdN2¢#/iܢZI -]nxd(2/^9'ұӥE34Tt iH7tD5⫒,)l9Ikm} Eah;04OJ#IC%4kb&04M|^LC/s+'}Pr_)ˊblb2ߝ֖ *fd wA}fΒi a Fecze`g`6$`VYix. ewy=[ v\/ NN d=3+4(49qOg {+bj5;8)Ј)9v0j8B1(4Kqkz*M]tr B&lJR8~1{$9`Bf)u`m{stpSX9ˋ7PO `Py PYߜWMg+|+?- -e;tE~خX ï y//aخ,DYՐA!eC_qm{uli;]c6# n΅`WS=y 9XxXlWh,_Uyl]-^;aH3} ~߽%Q^.X'׸n9@@Hb=;(ܡ**<v^X.g! NR nn_.` TQՈr H\)KX8<ygP*nw{B8kǤQe炁;pLaj@$@îzE`m[lWh,A eW84K v N 51Nɡxf)uvRMx.*H21o~1iH#î`e^s./@~.{}4 $'Yeƚ}G-#1o< &9v.c+4 Qhp_ŏo`kx\NJP'Fs- c BLP^Y~o^.[AD4zNx`C,M1 X||-Vag$X t^q1/!.;nS1(4KqI-Scm+"fk iX,{_)8艀(//fIR +.[2+㼟 ̃v5Hn0U }!1%1'ꮐm(4Krxƪa:( 4ZrJJ/tZM[)-q,})1Ш4C:YB8A] U(f_mQ\Mص FGF1 +4&f%g! R.mo .0;}6# Oinoh k#N׼?^rpQhrp>54xuSi-! 3ݝrj6jq94)!` aW'CrVC8r%5C^}_9.yT{|M` PX6Cvag%P'og! Rn?KR{CKO{v׉V 1]!:M>%g! R}q;xn `̓`pe!q.ajk̍=>oql cȹVeW{SKyVs&0q...'{v'.fWR4JCL۞<0]R8v0'eb 78AAD? u_rL`zUXGӍ)ʐ.Hm +a2`8Qhp_ĽQJ ۔'ntu| 9JQg6N[[ť[8FxP4ka^wEQҤCwo 9ddgktav$6tmӳ<l }RyA36*ΊRcl sNJiX0!0GNlz6FHff̰ZF CdNF':,Ԍtϳb/1Gh!G"HA ܪ`"#.3s:uHBYÁ)a̓f! eE"} TTӚMs0nX9Bf.%., ;UAF[5An<*շ|0vۧnGl gy/,odgOnF?|z|y*UG`b^㭭T,Tm*TYqf+0+մZe7*a,o5}~(A gV?Y"c~'ԊRPOv LR&Ub*>م*0 BOv LRٷ],Mm>_?^Rwh,d͚j,q᛽sk0OmUpxVܶS[9BNb]:єZmC^+^TXcdRv}ɜ“!M+!)O +uAY2u: utMESg^hBkAh("uotȣYSIJfGg> “*Os 711ɅKB$ќ d Oz0o<ꆏw vb|V܆DhkoiC>5@svOE"a,2(6J1`O<;.mfE7()2M9)SUiO3p 2?4"P? DCĠ+EJzmR%6Мo:<0DY)QTλ3Y>֊tFiجi%fsLbVG[`dԶf2f!^iV mg2GB{$[j&nyag0V wJL3lff 1U6~2ъI͊5AYFE`ZӤjټ*1(j˪)fod3y.Y3gQך֬t8uI,bKbT*sZD+ Е,BgTf=R,LJBE2Z *[ CFY|m/Y˵\$fcM9k&ΨZ gT3bʵx"Q3qFZP"rF#m=ĴAC-T_lMf(Kq2zu`ڴaYB?LQ,eNeR<߬(7LԅfLd77QFZN Hx(v3AFY&wnCB&lsI*TuR$m;R$UFl'RR"HVI'XJG!%҃GxMB$~J.HW֕ tߘ")E$1.S$J t*_3Dg"TuIzIyTL)*?+Q&8,G'ŤG%8yoBUGGGC-."|GM{AȗoRE+-U\3|(t$?Mv|\)ˇBǾs a'Ʀ66yFCͱR^vK֬\vԢ:v]:Bscfye.:b{/Q(u㔠~9I6̈_N$V ]N-)yQiOze=sg<<.;})HOA1d7H1DU_lkZMv<Q'KҢfE(SQ'e_J&)UBuXKeKfit- Xڡ>:PS&:-m:$n6m:C#k(%!1PnB^ (ĞБ$+%+U-iIKMT$k'ztS>L ً"JWR_Z*һhJ*TKݙ̢_$FU,'ާF7dzI/5,-ްA^z̤#0utJsH?ɤ˜VNaa*hKwbc8-h#He MC&5T'VC!5nUtɲXzmȌ6)fm-MpaO5ѩ--vi q0hd@<(FFki u/dXɞiO/QڬUo^w:R§,N̪ [",gA0ư+` B8q6o qZ3t=ܟHaϔDa" NOeg.H3 |QkEbsz|n,Uۨ3(Eq"#8v00&0]o.O3v"/L7Nȭ* 9|1> @{]@IHVo~+Rs"iKq*oHob[)L_|;;t([8z|dm;~e䄙mTƔ8PVJ 9_@z|]$B&wu a`cwǠf|ݖ(Fp"-~G.\^. n2(Q#~D)}xdS,炙|¢^;3~S֛+>υ`%'up3P}B8ׁ:zli37(U\YW׷FѠܸc cA W (4Kq{uۘ|G2'S V`Oa `ێ+so u!yYĜ06 j%hjX2YA0x$ Ek ܃JY}X*4.>?l373 0U @E\xb)b`p_`&^Q4! ?`W)1%10&s .r,FA[ZNm uOxS솟 #C<),h_8 Q^쯅jB:n2~۩)b_O~_p/!T`P}7LRߨO NR nY`g&Y?ё/{[Ľcy L3O\0WOזh`,DIm|^L$e4杷[{?!\G2%/73I9aY[!VSzk%:+Ois2[´ +ť/8 8mԺo##)4EXn~y&NJRA}z]#_0sɞ>~wXbs4,M!ch _^ Z ,"1K@1C^n \7$ D iu&dxKұR82bv/r 0 Q,:=~t Fԟ 4dg)@G !ŜL}@w"D~y CDAl|ᵄF1[T*4P5I &IEPwn9&00X^=`21]:mh 䬏YB:-|``BնuIM n[aQᕬfW ˵)g {Fсӧ N炱g}|"S㟾O!`;?0p&ὕs 6f! Rq"yFibCXjq"'707ƲRT!`1Uq"PF!SAe炱*ZS ;VsDp19 Z48lN3i])4Kq/d=s17UU`'$ʼn( C# !&8\h/9 Qpbp[mm^.1-Oߦݦ`zB67KK ,&Owݍ4HBZ1FB%9[r*3NwDHطdҿAZ%I2hs yYB:B#4>Ip[Ď}ӛp`Mb>KQGSx_bڑ SB##js]w炱 JZ{^`?.`@#uDrے?@Yߕ+K* ci&vjKhJER |){!6@c]SEp>n/`qFn9R)1^_kwYq=*{qtWvxL9a/$rEa8Br)<1o:=x,"Mu8]"QH74{VOmv;b  9_rK?𪞊B)W@YQb("|p3tiA ;1C驮+gg)\0QbK WRÕ7ܭw$|~% ksb8봣3/UBD+cf" WtA0+ihiیcFŕs7yDfN:Эξ̡JΉZE[g_pc<^Ks 6F4"f)uPh:Y炰.&2K\RΌvzpB>p0x$RA6`t1Rj}7{X;M0?U'fR>3 jP악@A0x$f"28I1 g! R,_fF0{?egtgFM{[z QҀabRo MQecGYhslmG8ri dqG02T@cDf! R,+1=WYR*YDHgp NxcN`rr6b1;^n5B~.33g7=FX@3eCׁٽspm\c~hA9}]8\%ˋXR] y=k q_y<&o)?(492X `se61r6ޑX48 Or\Y"1a2t9`Bf)uã&O0mx y|(Uyy{`kp-"5Qhp_$s @{/3R]6|UÌ %]_YY˂*=BŇ*>p *>C =I 1э|He׊*HcX~ u\05~P~GP30 1A? 1Us~q}s}`AgRDMاUQL堓୫T@s4D$) egC5ȯҀ<+EXiC <"U^΋ s e?E G!vcU1}D]ځ[H.m8xr1r̵wu6f)uDljD c `&Fn_7_7v1^7e@ m]pUVҨwFϕ!^N :~#MV NׯӿgY^|}ɲZJ5 ,B&c"rVB ] ʲ}ȶgJ%.ȷ10<00]NKA"@=RXY7VV˷/D)}zGy:EP3TC|M A0+Kia;Y(c^LTAo+D%nD:=6m%+B !` R4'BԈ2r (8I1/"r:\0;ֺǣqTc7L^&e0` i=߭^"lQiTev)(/%VvvmcB} Cx1h,Jf_Y_01I0x|UfS`(>x2xh>60ϕºM!`xÌteT]"fI񻾒;vqȾ z^Š=Py+Y0]nW^O?Ah"n`hQ_BxZfxV[)XlX Qm,8[(,|%9[+۰9Yنr;1k`aW#Jl3X]aeJ)4Kq#t~Y:cB4uQ:8Y hMY*cvDǹPhbp_B|astb/磯u^y.0FW M/ X~ u} M6r޽< :,tVkJ?KO<lЄQ5 YySm+@m꾫cCsͺd_g[a:j~tzѨ̎ؗ7t>2=ύE:0l }W ;n텍N_Ezh' Kjh]6FOg 5{c}6؋C吢% ?GmDk4)&3*=GC2V \X2GF_+?YmqÑ=7W>]ctV Leչ4Qf6i] )۫=ިu{{7;o_ hl㸾iu|yO/˿{/__N|$^1?~zfOe{>݋,tѾG1 zc~d+B,nٲU/?b.x/y_ϿUqp{˯?ORʹYDuo5Sh^0iF7ٮ?L} LTYlGmfkP R8yf:2P PiEzd3٬5טTY*0 WPf,T\B#/̾dڭ˱yWWfBksrchl0Tu/Wõaצ^s|!Wr?M?k?LkӦyaJ8D2LCh"F5)ݙPs:JJv粈1*noCuم| K&_} *tP1f -͏"Qbk&FKA7c0DO?PsR@ư6vGݲ\6';LGY+{^] fa0}])-N`\t 'wu6Q }]:;ZZX=CT/$A޾۫3D߻^jL8Ì-0mB-"arg#v b\rLcMىZP1J܆4qf…oqMDUЍwM7v!U5Qz\Ky@ђ"\38[VF ^^&NvޭqVbowфaw1Yܔw{D 0_x*T BԀ20s:0i&|Gxo؇[=m#v(ntzi7 ^R<7l/٭X Ć'~ `(k˘h"Odz7\aUx?v:w滗'y2pb4W&r[n+{cq@{p|4[ƫ9`c[SGѐGe.9\WV9IelB}&:1 Z=e KA?Fr0)W1xvE)H3 u c:>lur Ëw]!xN?G` 9{;s蓵 ƄE`6a%;NVvb*hArƚ29 ?Q]켴;x]Nv ߱:-u:M CBg+BշD\ ~< (mj&/Ӫr`W:*iQB'꭬Bq6B&UDUɻԹlRJ*I;E:w J)uV:O#N F|]ɖ)t^[ :oB !JxcH:Č:J`)x"XܸIH'6>6> TҧU8y]>ʥٵ>x&F;>T>Q/w>{ÇgoƦyiJggڔ>O O༡i=>Mĩ%0s$}slOݸKB()}zZ\ O_OJt[30> 3(B4 ^ISdb"~OT ?ͥ.0x#%~OT |lҐ(~}J0?Yq?M` 6rB4 OC8a$ӪI5 >zI 0$O%ЊV)_$PH5͍wPޤZQv@ - 7]JlUJP.YЊnj i )Pʾj @+9 BR)"VԀXЊҧ*}> C§)|)J§W- fIC@e$|ϊ8ԋ*Ǭ 1ocjWLjZ:<:r\5DIjRJ8yӥ7(0l(*9\w 9Eg`x.2Sn9`^BQ ?:`ZO5锷VX"@CTa W{٥JEҕ {:)SꨖQ2̸e6ˇH]AϩY=鈆GZ~5 C uo)լ;N)sn1:):%9`R j%}N ݞ4hP9 :-Ce2L#h=vdsOsCYqBRdiM1CQFoZ2VF"nP`5jڨHjv IeJT+,VH]ZBZjK1IiAXO0ݿO.kh]]Ny'+a­m290B6kFvʾY53BnuL u͹^kU!:vK1]A ]Z|1@fh1>~=GPYC$NuDS;~wqC: ï f~a/f)u`m/ykf,Eת0[zg6j~O{C Y\.x2 1óAwE#Lb wOWUHcs_stRzI^(N frxt59wKcזfI' be Y_] hνr؈"?"04zN@k~_~Nf6*0{: y e9UT` #fy#20yEq%7\0ՓQ T6\`#?W ,0 /ؼUU\NO')(E`aV[O؎.),`$j[pso$ŜL'î @ofAoɴRpHl m$;x'鲣_`~eehH  _%f`vj >21KrxMCmpVol@_W상۫.n-1~1󬢝*0¢V+O`.=8Z;8te1s]> Qhp_VQ߼{dsA`L* S)+ń8s𐤸 s+fGal29pݦ&LP+giA0~XXR1,DY}qyc#!S2VVc >qHg1%9[Gb=s@!#ċ5onL>ɷ!Y {CphDb%g8jML؂xkk  g6XT .omfr'<>}_yƍCq YXT=a1 RT!7 L?1FI̜11Krx8w(zh-@`V E4NS$IO$h<8wP4tmf/ +e{s\.zo 7b}Mw+K ˟( x; L@Za{A&zfž=FO~ϸ‰lN!(4iq/"40OJ&ffN6Ԑ CۧaCR1z (4KqkC%K М?~Mn9BRjKSY):[8dT0Tc VYB:n;De瘈_/w"S">l`=fsC1Krxx'hvO@ 9񾴄NA0;sZSNB:X#/0HS'nZVv*9MwCKhCcQYB8 \s+뙘L"gMJ CW̆/,ʿPAࠈy}!'NoV)6|Iu'HUQӈ o!XI;|ȝ03119qx7}i iX ccYhՖ}&Gι[Cic BtH B8בcAv܅lɝ+@mVe, ,`x@kX{BS$w vOL-]MsiJД08\c6<^ ,s1E^n<4-q~/1! sWRb _5/0uޤ)B3$ D%,(|Da)hM +E"1 r0Ż0Me,%hTĠYPB_%hTf%$B?KrXfÄ́r YB$w,Swj? qO-~۩'qlNaHe cͪF©šk ˻8[#< .<)/ʁXZ…T2nr>BVf!)Ukl- QU%[{Yûu #`P4iŝ_Jv{j`/Ϋ\]8WnBo={~4&j=bϟƞ?iמo2˞{{ ӅObڄXPuN&]|[):}`AK@3Tpi+f)ujeJqLbB{;i940Omhn1TxH`[!W MQOXͧU(}i&E&|4c12Q*8Xhh9|8 &<҈e)9@ LxEEG# CPq̶<5묔0a_f;EepaN \[ôkb4y&6a6I jcn"k?>."T.I( @grYûuPBVfHVİ\!2U\rCKVh=.*$!`1ۤd<(Ya ~aAYûu`mm[<q z]>|;WA0pYnTzmؖ5E]~_DȰR\0Hnq#@+~LJ;A0pqA4i YB:na:LqXc1Fm 0tw1ck ɂAg\a:+UL)#\T8 (~k k0ML wZJɉ}HOEEQAJC尫"&)EOHp 1\f hBC׸-kҺxV~{^|V(toer煲b =+Y qcᾂpPHltPP ʦWW!ݒ`ȿdAh* 28OL_XrLXrұJzaךn%DzW)G AUFC;~AM .9iJۉin2+ϣb2TBhU=Tw"q#*gEzD-2TcoVGWuZTؠg`Pԣ#ڭ"x\"!n3ȁ&_xe qjSaT6&MK)ExM򦜪vȌ^@+S'H8b N`[{0m __dC(7o?~_dw8o}'?Y_[vc_XuLYoѶߩ:jomfweɚh;ݰ׃[fYfx*pC=>zo?~o~'J{|ހe^Zz}Uo}Aӿ/zηoыg{?c7η_}ӏ?9ͧ~yЗ_%Eǟ?O_W]WSO?{Q>~ Z7vWk1~Pf\i7vf8}. 7dzc..]w$~XoK=whquԞFx~r^%_{ob_~`{x?]륡o[(zkSZZ˳F}_$yɷv>+/:5>^u$}s|+ r^]/׶g,BchE avz;tj[5=߸yV'S_Y|=-1>KtտoVwxIlv}?,gܗ{n~c ߭.(Vg~ӟ~W_qG_鳾}Ͼ|_vo|w~?~ͧ+NloCO{?~ue{~'ffHx۟p)ӗ~jm}^~߁}Eozsޜ~9 W\=K8-_mȐgendstream endobj 385 0 obj << /Filter /FlateDecode /Length 28035 >> stream x[frPkdNq'#(A Pc͚>ö=kEMte|~Xqɿ~<ߗׇ?mˏ?}}8z~}?/懕<[j?_x|_}y'ϧϯV_~ۇϟLO?y㇗o|}Z釿z?~s?/>~𿣣\RW_O/~y;$>9yW<,|wmy HgorYO?~'tOݷg+,r)_}^|/VkYZzzb5i~÷c]G{z^ڼwߟȻs/M5ʰ?a5bֶ_ՙbC/'\OfeXsnޢ.Q|Og{y]C}0޻rq~G5lrc~@'ί\~cfÈ3Ͻά<اR3~>5Ͽ|w=Vg[$>y/U:r4j2|u]{똧7 wW ~Zܜ{u{߰\G 0ÿ M[:+]?pŔ\բ~)> kq}ǵqb/~|;/_p&ﯭ,>fpo||w=?tD $l^ J?*ԬKqpFPդ\V˒¸?.滉K!=z49F^<ܬҞlv>߬VT=j"j]el=uuԢ_~_cI$ݿO+Om$ hǺ71>2-\ۛ-ՍNYc\wZl=(ȲFuE((4V[aRS9(rRrg,Ld&7آL9Ki$@6B)}5ucŠirw_@Y+mŠ֢h\W5k:`abY HyȰNI̵Qf \Byùr wg?- |m 2OV?l.(gz>QVaF_IEXȏ)5~=#(y 65=mYmHՄX[d Ŭm(Ue5X36mbz=4W؜N h/^Z@XZrl5U+,g|I%͢4]b֬j;E>w U'4R wsW P:V(ʙމYl~ k!bi5,AZ9YMPL&crbgbm j1 kaba5$t[WD?@K!i }(e}a?'4cՊίoaj'2Ot`9X+4PrQ̪37j$TB;3PQ2vdEYҚjb'I%`5(gm .)Agq ruX9C+`UVoZe%ZS%sX]{V8ƴ4lK!(fsV)I\X, ^+\sКML Q0lcm}-’N눫,ydTf8YϬjmӊ^\#Z?2k2kZb J>\b d\FvttFXiY*E)?S[uQ-,P&<:zc bwLXKC_weLk>i$r΂|j tQ E)<# bbc ' sZFl%;")lV#A?N߹ru6g6UQ&Y=p3w(P:ׅ\QcQ0HYV`0 Ȭ,J:Vb9u+U7+(؇{yp5-׉w+p1aCPc|Lp8c\(=Rpq29DT,ܸP(ո^M17gFY7 P(ոcTI0`Ϗ7apׅR oQ:45vnRyZuoN 7uu[% "B5Xg<&eZyM O!Ag8G?uukHxuZ$:#tVN ~-vaTmLoQ. U'),wn|JJ1[uSeI̋~An+kr?8d^苓ds~Q:k<>F~pi-o6 /鼮;=9X4`(+iCu. wb9 h 5e($eXsʺQø! u4e])6 (<;ƥY%烳;O:nJ,\f)(\I57cCLxzX2y0k,e<,;gp^: ч llζZ0ecwfkXp'@5x;Y XM XÝBp'`wFk7 wF#zpg[ˍKIp-p#*<Ζ;;䅚 ÝdĄ  &ε-j\#O³vV_#v) MhI,&F;[wMm;)_Ξ E;qE9wu9$4ns sH*x\F=!if㝘BQwN?$p;F7޹ s HNÅx'p!u;w8 اB3P<Rx'a;$ N5vj*Xv> !'Phg /wp'p;߂;q4rM:JPD#Gx';@e1;{IoNIxf"!Rx'2xL'@ -xpP'i!xWɎx]:'ŀ;kpY:ڹf" B;p@;[vbh'HVhgk  Shg8:ܹ 9;!A*NHlÝ8"YÝ=K* p'tvrS> a8Uc# AZ`r_`:б"a E:)TСNp?ȡN"C3 ^:Ct Cv:n uȡCŤ:!v2PPr+)]/LW`'.h`K U` q4`;6;!Qwb?[lsӘ I)9A;!n # NRDvBXN5vB(j72U~Xα3Α Bsuȅ Um)X#h'vv4|Hv4 sn`ȧ ;GΚ;%aD;G&\&s%%L;9&&|D:G]G:AqSBpsաN0E,Z@Ac^uU9:GAX' uRamXq,X'vucUQvp5{$ JrQ%@ aG;F 9`<}C;G'NPUf`Dž EX!΁]'Qc;A!x'zG7w&A,NP99֞l, ,Sx#tx'(BIw;A!x'Dv<[8 .<*RxF8Ox8 QEC!sSkOP ]0F<Ðx.iG<$ i9`~"ml=ga;!{tsQ sZiCP;pTxwZ;G w^;9tL4w vg;qsLG_ pSptdq;!\؀;!)ÔvB=qG;w~FU4ÁvNW:ڹ&rvN]NԮ߀߰X\VS{@In6^Pu ֈoź&&Ƙ;Pk~AIu @%z^(Z9Zof p^$(-}݂rޠ|c}r"!36Bm nA)9 t=@Xg`@kV'Plr9@oj@s|= 6)~\Z.*)]\\ePt }ۡkQtչblUWEW%?]\rG}r}࢜waڊFB'4)1Nӹ`ؕK(T!+qW̞q]Ku{u nh)4ɧ5tr(ꌰ+!.X=aqt=3U R9OWcS m!`P d63.8?Q8dξiPdl+8OwCmzq=g! fGqYŭ\ˊ?D|]{ @"N>uHS źBx˸{NjJZMwHWvHnE1&}6P!:GqNW9tLn&rVyJ0G˙rzEM|qrיCGv9trjuWlI( _'Dqs,)?E*}XS9n ws}]A?o u~;n\K2y",F0Wp7# qSPUn bBLJh1+'*Ȫ~츬Nj2ShR?_Mn>U0 ĉ̯wcA!DAŸb9vS#䮌Wix;΍rVMYE2%pЄ(8ϦC4=!aq{m^GT >*7YȸmfͻA*v۳ҫ+O7̓ [imd@y2^p.]ܤO7+ER {>y+K84'we gDE}uLaHɗ!)Vy}ecM>n;-.@2F-,su7ńDli0ܑ#L:b(V^/xBҲm圝ǽ_J:-=Gj=*!Ҭ_8]Z_v+#ZłB@f_/b lЇ4X*g{%Y$}z7fv᭳̓`Bj!?OlXT:rNEi)`]B5S]/[%}3X ξ - =Ȕ4yfQ08봌:V% ˰WlWDzEd| 9,uf2U{ f%Ea]iǮi\kP#U/\`sa녒̗8-mv'U%/9(<:(iIÇu(mcVD2Jp Bhxh0͋,Bp+|(m5`e9kDRӨBm D/.f"9ح tVO#%qՀh荼KU wB*3WH/ vlod@d&s0[@ܤii6kFZX9/9%=/!ҬCטQ!*:5fPhJxV6WS7X=ٌŶx)D" q)Ӭv(@qE{ @3m V7`ά @ ? ZP01]?y1˥%YCqi6/0 Û%;$܆V2MbaPmMagx <7Kw-hhn±ʁ%UүGJ1B+PұM~tv`%8xr=vdJj.(_^LwLo&z NpR'2 Bɦ7 `(}J{m4!*iaS ix.hܟ^/[%5_[`b ib59Br 2֣S)8v IH T o~?i' 0z`wH5/[ WyKUabڊQ}vLFxoJ;>WBA>0d($w`"CiVa)PBU~V J;D %iQ١%DX.!5*\J%dQGv#Z9^½q|LXʚb,-d\az-Ӣ2m=G:/x5<Xy`d MT o:! 념xYI:_6rL^ D8͛apbrWIjFz ^pp7)_zv 7(ٚMd5ZfkD9 pj7j6z^pʖPd5;SVAވƈqŬVpJRȗ~ymPh x ,Qӂ[D>\8!>&y?sd +!PUQTY PywLuVx5 uBXI06}8BD%TfI,X%, 2(l `r"mk.c#c/Q8*U/ێsDU›~o}"6s{Q,Va \)^]5enZk g&r[QO7@>FNߦe6zȞ wl4X &ʦ땈AT[9͠"R$vSRvbVTptIZS593 *,YMaxf jF=G+F&e*z扸2ikf̀UxЁT(rS eL4ճ3{|*uin0O)fY~ z`I܆!LЦGSִׅC&y@z33<#],M/oLwsIxW3XS[a(H\7O*GgyOiSOY0R?,+J%KmWv=~G{@Z=@ ϣ#?~[7 X#`íg-[N* Kg>`##z>cZ g 1S= 1!7a h7 %-T!thh~(tHhB=< Afgh)m+A!8 dIarjFHLEG4 NzAm,t]fЌ W=˥a)TӘzhc?t7]v>TeF?z%^&řөxh[~O 7u*FSѧo#XfgL_{hLXZM~-$pw,=<z82=އVFMh/x\@ %qD߉~b-.SKYX6TMgg,ajE"= }7pX3\(f~HtҘΓ] ^4c w6yTcbAwsbgdRz7EgX{O\4GMޅ $bhNKOy!8Y!|Ey}CoMCzn@{COMMv3ɬ=`MRqsfr<3 3.Zsf0=ՏLJfJT3(}\igJLjҕAS4x~yfbdԽvgtA_-jOAXkZG(IrݢМ"6D(xQ"wOERLV.,_ETE\gdDZa;`ЗYONnQE) S`QhvV^;9vӢ`.]d{)shu8 0BUPtn5wPM*cX<E) ScQ:Mj幵X}C*$`VE4*rb@ lǢ`(B|+cN,c8&d7R?JgKbfXLr)^+)<; Ӣdk (]λY@bk=gU5n@QXcŎxs)-S>SѢ4a:YSDW 0AM+vsN3s~"4 ~^íKs-"ALITYOߙ'&f(>4qѢii ^~Xĭ(DqmE1YXY -g68O*ֆBh\}4v[%In%$()6֟oι%hҋB8k}w?(162Fc` jREVQY!3LThȀE^({'+@Nv9@ȈQr"za99Yh㴇/'Tg qb_ĉєor!΍ Ibu@*_@yLB8[.g %7鿀8 qu s聕r-PN~Ü80 0' ̩q9!N=`NhpR0'TwS: i(nQ݂9WM9ipsF9O-{hH97H8'@:szs-YG9?8'+Y%nf8gjy{ 3:"Yos^c:,69êuN/;;+Y;dž6v lsLL$h甩F;hTߍvNPM/$Sh{*Yu(9,G;g fvNq휮; shb!wBNJ7sr꜇^ 1 u@C(=%hl B*N[cA9ujr5i@p|[M E`r.mɢ1낃=k$q]ץm6=vHDZ lםoXF{KXЯܯu߃r8t|QD!o]A-N0:t$H0n\EǛ^Pxs he܎pPx1߳*g㺰J]% `м^o % HIR]X^fc42(d=ҎbłAłŜψłł]ł *zyyz 8,{_b¶]3jx:3ʝŶ;>"OIV3Nj:qA9]q9\h190ˠHq$Ⱥ.ol }1ay^C-a2qfrچ  pwہ0Njyj= 67ZDc,,/p!mdᒚD qYNeUIXn,AGq͇l0(ɛgzW-Ӣ&7w:NM㶚:k $Lza-@^ʰ8oJg4rIهB>:I6Nۍ'#Ot{}^aJ3}m^Q?9?B VG4/o5Pbgݨ2v t_77c731 :ak7¨zdOsTqw1@@r3 E_euÑpjfnR #8/ʲv,&3l]@~lNn3Yj P~ȇho"?N0+/pf}8]A˄h^5EMY[7yH{of\9&K f ːt=U(dozb1# 7-ܦ]sIWʸrv/BQ$QS%Du Q-%`)P]S+z;r⑗iaw(qx 2/u0LF9^½jFMr?c\:q`bq^rΧO{8Ma]B٬Wv7?wB'cnibHd̳{&m~Ogȫs>Ke%!{9}gs.+P!9}*Mث"F+Q XL.`Sx7HPޅT 0qњ*Pn"F70 Eb`YI|2=Kf@2P5(Mjbp{tZ Er3L΃~Mv4c^Y-QĿF ï![opIJzuzP iO A/C-Bds#Q8,2QYg)?{ׯ<)आu_/aV z ` 2/9:a(=S4bvQB1Q[9^½bQ zӔԹĕ؉~OyY*Eơsd=5( _MD/M'8iI-D1 E5i[q6ixLM}d?Aȼ$7/>e ]k.UgNrzVpAgQ(1B@BئmitBa(P*AjH/ ס1T^( dSK4sXO$@P /޼k`N$4 [n7[MTJҥھ0,9AZy .ݱN`KD>oN*b*CpWmys" xK;is29GU:QCܖok71:ٻ 2{[hD~_:-2ob pLj;xh?<'\w\Sk->lE0c% :yrRMzska$y29\mM=z0gC&H@FhŎ4<·"X3A9|vČhPyfBD!Qd{"$ e6.S<7d㫑u?+(ql~dzy$Z I3P _7fHrMf>ӌbiggN]wV%dQRF?eE.jS9VMR.0+CYJ[.e~AkRd)ƹY-U7שY6UՐ&܍5-1J`PmK36;f>iN&(|x'Pѻ qPQc؋>e?,=GNcܾN|ش!YUS3=;)3Br75J25ghE +QģTQ!yWDl SYbp!kqg0wS&j(E?˲nQƳhM;I6l<#&M:`AL'Y-X{AG4&0)e H[hNmqQE)݇q֦fQJ$)g0y.J.Erݩ6ELvh[gW;""tzUy.&EodoS9_@iVVvUw"J9UfB{3b{z@Sӄ+ i[zƯec:jHbVFQ;'4ɀLRdZ)e^EE䕲W[6(@f 65z==K\YUa h3[ qe*" !TTC: ك7S[zE:aىYDU*O(SQMus$M?uQ)SEp*gICE>*2jI;" !S;`QtOY@t&E5(0Ex%Sj)z-_r0bZfţ-3&/WEt0O9T<ŢT 4TvE%UL~bw;=RJ7Fq "pb\u<gQ&e*y8Nc]C4-֍͘YֲB,, wM%eZU(Nef[`*O^Av bǑe~1A &Qw AjB%\J♤ڞd;7o4ݎ< xfA $'E+pCmA TB]2Ax)|i>bIk Ka˵  iF ZfUPYYty' TX*$FrgJ (J2ƳNqI hµiXB {R"A0`9UFؑ iq˚)3J:IN4F>o_< e! r@7xrP3/ВjR|1pQ{T!Ub $(˜*Վ6AYPx6KP y/2PXt18E<`'@AIMP@O R,󂐯=G'}ùxbCBż{uc0Y؇j c3 i;Q1/"?@#4^kk+@bk;CaNt$pԡp"0h 4׺ S: sJPg;ԉu0>un~:Bd%QPA`BAtkpTe rߡn.6]h`#e*Gҹ_Br[m ̨ הrDҹ8 @C# O 9 '_N@; 4hࢀN- i+m ltHgXbv<vxZo'u `g]B{6)$oAlzBqs(J ýos&N:㱗:&P'"ERv:p|OP=DunNFLRoP' :#l@@  J4SKސN](d AYae49V.3^ǧYk%NHmn۽d! ġ i ؔNAp3\I Qi}p9#pNM'y7j i0'$Q{9CuWD`NH5rB'9-+4qi! 9q8S 9qO `'X0ErW9q+[Dss ds-Vᜐ(m; 1JqN܋M'q8'd"l9qwr8 yJ.M!K]sE8g9{ svqtOs8^C79tsD/tXCѺ7Щ89~KuÜϬ9mRD9?98'[9 rz@ rN1J9'u㜝69\1N1,aʳ1q"XV'x%A'Lh9ru 9.9#iyiq<`IANc@y(Pg] 'l5B9˝7Ӭaig(Eeʌz9B9AIKUpN8Z  8* JiIr")okG9AW(rNFe L gZ qLO2q ГZ!a*ph pΤ܁p2"sSZ^G8A.*ܴW!+B8A$ \((6pH#pT8o'(BLB3܀8AD "(';9 儑8QmG9]I6G , '(rBd9 W9A's: '9AI r"t9!s9gs rN`0^ (`+\tۧ6^h%O2%ߖm9B1ʗlh<%XfIѯpsn @A9nv=]=c^t(N}|f'~49,J3%:urގ]@=4h6_Oo  G@љ"`MqFqd=zsCLqY$|A7UE8e .[]Au`r#-r_@E`!f'+)KPEѩ,Jf:= -az*(6p= #X e~ӞqS( vO=;M{x1'Hm7 ;c sScwck+A!e6z>wh'"9 qHqj[1%TXIQPc.R;؛^.u;PK%T]:z6s]"'C`1nzU77y~- =|gň\}FNjm $!nͅnF/MFa&]dsO*h,e7{eݞgVxa= =+ӟq2(! CW C7i20ɡ 7Ru77]-@7*jm ZҲ閔%Z S>?$;/NHiX eXPŠt]?/dF䨕iց/FxGau(/Ԋx Xx5S1JJ^)H,ӫ'rk%Du/rR%)?^ f 7?w[@P}a.Lږ#xU'BkoJ1xxۍ e%{։|݄!e:mWƴU)ĐrPw#S=0?Of+`a7sy,M٣jn°.3-R%V瘅i)՘]B}4P#<ߺ`[z\Cٓ[{wè~sΝ^@$Y3q0ϮiTF/ & -M3z hYj+L۔11&1/Ӭþ9y*: Y;!ޓ6"YeD!͗rw;i^l09&(G4Q%\{إiBcʄ5R[gVWPkT娄H|jv wLg[ H.K,!ҬC(D]0rifjVz ~6ggt J3 i 6u~ߑiv1x f)jw ][9^½ˮCog675F#(899Ƿ,7NŴ;,ffGRMt ~yMB/Gsw]rfP&h4h*cU|9%rݥ<S& N%Юi; U&)@րe 9Kn}Πޛ_{XCxch4>xop9aIy[n nc\O1Jb+B͗{:V)H:QBn/NY)fڰn S(U>||"-i=iH< kUæ@ Q1I-6wܻK T^MXSlps%L#(r1 +QҺsV{ ^*S2 J2뀂++ZɪόKZ !OI)Lx̴p*jDF{/g Ġ~,tQ$V3%"6@TQt*ӬaSwL~yؔb'؉+`nI5s~p20~`j@՟oiqJK[ 0Mw؆8w J6xh xӋ{|*64c<<[A:.΂BܬzmČ&)I& I44iH),X$lfsUԑLNh7WWiB#uY!+^ g:pm@=(사{YYM:lxgułДɇ:h5 Jn+4/v]jS/ه+4GAOV~xMBŇ+lыLJ,-Z.xnՇk [Wg&0BO>Z3֜M" "*jrFqB=]JC&i_4+nkO5?qlxmfSE0;;{dԧ8_-,FO_̰xýd</Vu-?}xy_U׌_^?0'*?޲oYsI?LJw32o2{p?߿|yxS`%;?&w?23ap<ӏ5>WO߿|@c>eYeys_><&?׌Ua5{sYbaKì.>z}|`*^cˏ>|O2w}dǏg]5*?\DXu-; @AT?J!nR.ggH@$ݵs6"Վ,?=T˖4AR Y4XC9ulESo*|LE6/v݉kY5|ڼSEp>z -siveDfgizixlPc+EXREg(N+OXv  (> stream x]UyPTGFQ#h 11jK]uoXCŒp"5' 0빘A扚C"M(+ffwC5U\^~DTh%“V'&,\@tH`5cIa)+f9>=u2P~fHd*6_BDiYYTX\^SPS"I,*̒bEūJJהe)ٴ+w4Em6SoRIT2BR۩8jZHS TP#(9Rd= sŪy#aӿ{ aKђ䗢 ,ƲF ЬyH8pȋXA1$ rsnF6!OmÃ+*)Q)>70O;QhiBM&89NRSn,Ț.S:;PU0"e2Wev?k)iʎ8š_f=X*\ mE ƫ$ƕ$-2 A'ux@\i?*; NdiZg/GLc /讠KIwF~$tPd4j\9 uf)kdYGbqـ?1rA+ƃcB^}v_*AK"a8p +AJ<5۴`e,[Ү]Ø=cUj u[[02a;.dvuӣʉV.s*Sg")*h(H0A"}v@7emZʦ?_H_>vv;PA'O_l#/22Tn3 փKswnV2x )@ #_ N= f~.%?jA2l`HRII@*h)vx6R&jl,?_}鿬;OeLL+@i0"'q18&' IrKewCzGtIp?9!i=/ ei@ ]WjnD:TT+*63Y2Ei!+0_ d0<|we'Pk*i 6B[{M3 ?ԑN:endstream endobj 387 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 3486 >> stream xiTSwdNXGNñuBkq@D, I$$&doHB HB" PDZVRl{ڞ7ZosVt͗ {g?1$p8CW$Y73B"B㹐Mg"'.0y0fK#46FBW珓yW׈3WYE!AD|!ܱsĬoL59Db 13 HBF88w#?qSC"gDM2@-C_:cxppGd=/joDo9 Jm -j`a+Ͷ; eHzFȾG>s[G*rȘE=cn-L)cKeL whTZ967gd[h@ π,Y.E# h<4C z0}-00|@Z3*jؚ7Df0%wB!g8\6&7.YeU L <.q7P^j7C26R(ʽ ^]2 (Ff #g DfN:zC5 O -ٶ.Y&O5AQ\-yZ*yMF YxiҜnM,K~^D$5 7,C9qݞ],'FkCBSD)w(SѦ@cjiv&/Ֆ{*2&[IQRrw=9rzN عK{јNNѤh)DC3в`ʝzӬJX UVLJw<z!DdXUU ydc jڴOg79GcWv+YB/5o Wք'1b4fȠ'Pn.Ea[K)+cV /hbiA;=WU ɶF>E04Տ_=4Dh?=G?ZO'81;V9O+-UgWX l=h7ɤH'SU4;q/MBN_@Vxj %Jg7H~O\8',d*-E EA>.˟U,UX%J;ͫRL@IS58@F6mj"D' -PqR6IJʫfҥnRY(*-˦u%Z0m\R|| ),>d. p{9OI_8z py8 hsͫ%iy4nFAF`آOٓ?€M*qj͸\v<Q󴰄REȎ)f3iMQ3&#&b?uwh#2(',K_ BA oT;uZ(f S\P&^[^NK afuGv;Â9f']C`݀׏n-Vh6Mg+TnjJf>ISq%xk>ytpi^58`+ K,xEFA_fvCѥkP Յu#[Q:#Ũi>t}NYkŞfheק;Z:?dZIXY) ʱlR3`2bv޿&QlT|=޶=u]4{UAyy=I@ah1yJV^½᪦lN0U. X` ⮴U ޹hEE+g4)hP&ݾXf[wQ#qXbaՐ- ƃ-E)mp-\px(ɢq1#aK@;IQn:4LBAX_-nn 0}ǽD|6 3?1t5_C#&7fl4SA9yʹWK 9*$w36EoVr ~Oqfebڣ=E_ȯf?I+t@ÛwMoCftn٤ެ.̂ϝy_wWLLY-,;P۷6\n'<7MG8gsOXUWSi)ψ=ɾ9]VkQ[{˚0C( "n/l-Kzة'׺iEWn8aq^@>CkΣu5W»:IDSjNNof''P5Eʎhx.D N:@ \*a\:,j` 0&NeܗQH}Tu d4y+MbM6 VdE 2-ct]zA}j`(ڜuc]}ySVan_P;% 0DArl,*n+6C&2N&6Q.J)E 4^K ~أ^m-#u|-mC6}:K 7ܑ(Goi\gq>c#`Ofd2 3Tb-~$UP( ,n1t,3UUZ%&ڤ@zy롋qŞSx;6wᤥW/-˗KJJ P9zh!׀FJy%)-iP E&1ީS'N\-w_gs2Y?Z=uuŵb-Ԛ^!k|6*m1?]g'!8%|7>w@g+OjTA;y.n~:w*˝*NmޟWEx9")sxv׳؉o=wԵhμ&=e5x >; ;QP> stream xYKs/ؕR L̖*;YW9O$(! .@|=\JqJ~mAjw> 7ͧŧjw= ypon䦺 ŭWE^{9k֧U}lb+oBe:eX,^bP!de^P8ě΋fY?z.o79;tSkweq XZ|LW1@ P01@++} 6 pBU2z"t^ D* BIBJSE{e ઢlY_̇b4ATVtEzS."s8ZT؎χiXk=i(Lm('].BU3t| [S ;i)ro\vB[(-U,r+lt-3^ERuOVX܅*b6-Մjsm&B)a&୉ЮOnl8u/MPt:ymM&*PD.< 8itѺۉnWQkNǡ?3AaDa}j&tC7V" //!ͤifvV\%{lcJU*=\M>33QJ:&|Jgz{jSAefb2*sWyuox~DW]g@b ֆ[=|Y27ǘiu(CYgdž^(U֓/8[REawR/V" (C \ۇGBqOr,_O9.C%̘nWGG5q>x,Hr˥ U#-lnp|nǦ}QLI,PzSrź45g `"Wf Y~E eU*3fǘX>'=I}kJػ%zC=݄Vď36]Ifl~],5MYE(b_ȹɄB ]&8]Cpx$>`*;㐋,eE1']~T>+]e4k]jJpiDO [%:JBiqT !ja=(3pqF2\?TgErOb+&ɼR'zgʍ/#TΑ9; Ms`-3& HUİ( Phd_eƧ. )SV :X]W%[}&<ٱL:FO~Pv٩ea3ƦֻvO1Ap` 4{nbͦ1Lu Ԝm"`c5ahsBQpv\}ٺӶY?4r#ڽ$@&);>Ƿk~s^WsNw8%-в$R^f*sT3MDd3#~YI:ډ=5QCQvBG,-isŴGg}}޾~7rcS7S LWp&+ vMzH.:22" 65&ayL Pݔq#),M緗Lِ[7^\*Mz R~? tєؑv 5&W具ۯ咤1!7=feB!-@G`m(,j\n(&*܄$Əxe|1tw}CD`&S*&E;FVmectWT;-Js3Nq>) 5,ߥ?kT@LԾ"'@]88pc#9v8vu[[ҭ+ѥ,BSzS8@dlsT|jrUxT9Is1K3,܍=ˍ2ubJPL{;7ul4DzIfn3Gi@Kq`m ;N:0.exFsc:IAǵ,me]vd&ģQqwS[UOJZT`XX_n[zmeLWUO(bȽ}5 ^CP̱Cȫy2~Jp~q ";|=Lhڙ/:u j{yٴBj9 WJ wŠ+2Jvdҥ@dB.۶{YX dX-FKjiyR)lG0.—c},rV'z(Ǣ7snt}cYz  (YF ko\~oӄWt +M5lPl'yDmĐ捸訿Edfk$$q$jț6vm]R%SfCg׷T6݂d%OژTL \2x^bĎɾ>HcTT in}^pb$GB(FQbqxQ1`df}0O_멁/lsnC! dJm SO'*隘1D)fx=uB@HC%gz\.Gåfj+ q?Z%|AEJ\QwzS#UW]41‹K*,0E8ue. =.yi_`ۤ6$4V<4Rictm'i?IKA}ŻKz'u !N Yi4}۶{CWJDqx=vNMYN /rQ*۩H𒊸к .H{N!ywsXendstream endobj 389 0 obj << /Filter /FlateDecode /Length 7341 >> stream x\Ks#q/hÁ#tp:—&BɁzv&F;cb5DvUVVV1[1?~|لRƕb6Λ9͛?n^n Սs ecm>wl7qzcR}O#tg9^.6DHXʌY,(8tR %dQᑫ3bA<'%U{g)UvĔĂ $ D^,&S\j9bMI,Ze9Rłj0L)Id`oDKb IFU,9E g.-8sL,7.0E6!o|aMtB)lC$9- J2|:VKB6s,䗒LTDR+DG ǫmcVRLdadCޱ]$ # P؄)..[ %x llAUÔhقPXP()ق"'D#mJ NFN^d>13!PP$뀘f =Iن`(~"h ] -F9"8'rbLc X2YjfJH볕a[˂eO\S/ʲfpDwĊcasB qOƭva4-> E®/2JKLqv}U(E$FL/aW## : @뫏Lv!2s!]_$"aל0En@C!JЅ3AZg. +7`ކgYZPZe` ŧ:f& ] S8"D\|eJ Ue3@Jq3M`XA i-'Xb R(%X :@¥ 0Pz.H)ǒQzʩjǥ 7:Jy {I)W k.RN:2̊K)N[P)u+*”h0Ȟq{љ0A& \Z%aoRja,{ éU;BwǬJ?3uЃRy0UDQpcȵFʯF,sbqFn=.a()=vvXRڃ(e3ev\BY?\V(Xeu2.6J?O3-ANRֻ(=Wue3J'Z)Ty`ƙ0FJFH”qfeJWVf薦 TB5o#" QeOƄau1ϋ|@^=8LQ8J?Vp~Qz8*2בȼ' 9 qe1J$q/P[ee1Jv5RƳWK)cZ2Uf(데żZaz:of, #uTJDžCDw*NO=0t@E܉aX'PQ@T8m~RQ ^uUmL2VQqu­V* Z*-%)@V䢀(Т@VTi?6Tm*Ppfi4+N*NQmC7N{ӊSTW8E(NQ}Z5Hۤ5PQU T,tA*jpCHEm HEE +jQ@ZtUVB1%*`:P C4e TH7|q N.@ƻhIa ( 0E2Ia-)ɲ=Rg")DA}̩!PT& k& )|=J!+ &) o* -V{7BR`}n)z O:6Fދ Q`:RHDB Y(X s ]^(\E +X ȈDPxY rf@RB ߺ P`7^xf@R'pjOu'|UE>Vz Q@@AbU]R"pށ!:[A# z}F4 7" IS`< 8E6"z8Ϥ8EIfR"Oj8E^ )B" S@PmT|(hbE! yTT"H;Hi(:/DʒA(:ሶY ڸNd#yي 5p"{'x!D#(:c^h`Y2NPTt}O#(>|od> l* K*}i֦,AOejQw:l gX 9yk}hә7SrTͺ0/s1YZ$1bНZ\; .+`14(ڹ3ɘ'=Nw]Jӛ4,H5ԓ8 lvnWAY곜bvͯ9P}v1ރb>H0up]mQSܹ-T@"JаI ae7 d^GeCX%Ͷ1̣qjqbuU/H~ɶ])ѸmmF S4Ϸw҉Ztڽ~Gc߷w-цmwLܰ&L3=Le;a:wNN$_ɡ/j~Oӯq$.i;Z4oqCg]m~&"\pZdܿܟya/WÜGD*ġ 8rd~fTzbxyuapqeH5PM!*Op'a֥AnqO_>/](p$;Ԟ`Tt58+h3oiwPsea{{-f q_d{đCOv)FuA j]kz>0M ǗeE`bZ$6|w{h|=~ȬkS8/O„xIF4+1~xpt 8qy߹ M."V-4~ ve!&HACWqnAeG 5y~&g6rzCZ] @Vƫ%4=?v!Izk;^.BpBM Y8Py0oMûxI%For@E-hE*ČG]U+TgY.~t 'G2t; ʗz!Ԕ/L0fgΐ ac9d `,#+j k~WE;M(-D\pϔ#\Ll$v[t9qz }Xz;򙄊 8S]Lx'[H#_߿Tv 0$!\oǨ҅Jq)ZuhU xEE~:91~ d8eДѯ^NM-t>B54ViaoqD>) W*jN>VJ;NtL9^C-ɷ&3B~kHʦpV[9c!#^Jve8%t5)_*DkBUockƒvŖ[,8Y _cQ-)aOvS/w (N~|]aTa|)RQs~\0l[J#% pž ׮}T@z~=(+qQee.8SU.LܧdFlsDng j^ҌVvP&|_P\IML=N {xc AyeshD}.=YR)88 s9|}K B"ּD^V<.0;.v:'id7}MCC iJc TDj'P* ;rq[GɫTǤ+ME7nwi!yA9C~lZVU7LgSTܻtKjN4~H4f9ڴ"Q]`+ %k eP6nT7|=BJmPV镽۬D58[N8dP; W:RZ6pCR8xjT[p yK&L*jѯ6:7J-Z47pu;([ ѣ,ܒz :ުKl*آB#/VT]Huј^Ͻu-O_uZO˕ ;ɠN=2mjtesKz.TFeȐ]wk=)ik:cƖy,6ȱ Ae.rV@q/m3A=h5JtzgptxnИ5_ ͞fztrg_3l  5HA"'*s"M#%,WL(#񄁐[H5W6sۨ̀`aO3{u|<3:> Ӯj#(Bf> stream xˎq!:, v;w + @pv $GkSUR p~Xu7?zN_ov{'hur[}62ns_-I$ 1~x =[X4O,:;5xysOeBg(#BOm$L&qLKLY;p&!*#o Kr"k&h*D2hJ[꼫I^ק:׶_1 UWJOTg!먉 = U'  rU7qOr:Վ߭vTe^e$~S5u m4O9E,q^/+.D|>F+1#㝩CPA](9rXۉ;]fuG$'GRdLjH G9rR'Rt+%쥄FX ?-"jlvQtƯ u&LQQ\ #R)ҔPz4YɡAUajtLGT#BayTrLGe:3ƀ3=z7ÁGmNe}]/aIL÷R"r" Ww\8䨂&,8T㱮/GxmD`-D7OCwO!JUS${8`HFbCM>p"}R='U;~10G<ĩאDiH{Y/UrȘ9 jnui7uW)y'ōA=~-<|.u5O#8-8|F"X ⇕)s1S\@"Ђ!N?N@@}Z3Xݕ4d7ADY CƃhqvN/ bM[yatrmGA `ML[fEJصfV&x.OF}=XR$٦ X)&%9= vsuujJEQ.ULqv}[c؎S1Ӑ$ճ}[R"4 j=yʏTF1?NGBEG@"y޵=_jC'$XE3F=hW;Hʩak=gv^ݸ ZX*]%7yMCi{h^1 iTcvHev4l&MbH?ͽCZ>1EQAbEJK +4t;5H)(rZeT\DӇy1+N zޏI]2P2hq eac2XYf;phNa9D˜ˇ.)6\1cժ[˥S?e-Őmns=Q1SOuw=pս(؛ꦪǨ{z̸exli)Ѧ\chEa+z͇"]]H{ȌGJ} lwd8-l"WVh(xQ[[zGُϩS٩*hkݴY/L_YآS#B zKT"Y@K1NakVU 2QNRcZ>gOC4+7f0iClgKeɕփ {B4+ - k*g+P|@oR%Y1)F&Jڴ~dh[Wۣԓhu$ JVN/6AOnEDP;Sœwc!gzpc}& IG/T]]PRf .Y:`@e}U=WZf0!PB]̔N4#,ztoJ9j;ҚJ>'Q{*>zay>zwaV"Pv~'ʯtk(3 AEendstream endobj 391 0 obj << /Filter /FlateDecode /Length 5779 >> stream xIo$Gv !1IŜ0HDi!Ֆ?K @gd/^eF}1] '76Y>^E~n٥n5\]𣠘%[뇋o*՚֣NfL^囻ǛKZaZntxz:~v1?/4|xnvrx8^ldosT]dlr} Z6z+gjL׻3\$j 7>=}9e.̫VJ>c)ϊ:c <s\MK"~vjjՔin POU/ `E<"dzQ1l%V1j( j T.tc4ca^[1~ e %-Yߊ ={Miu(6@z1o^l[jC &Jb6 9kPyo6w hPX>10T؜ A[ww j,*3(k`P-#[~ݠ̆y11~A-űشZ j,F)?g=;֙<ۊ;4#-θ{qy So{r0RѸ0-~1(KpNjz_[FKCOB*r(1nѺFdJ$'V{[o%fC0C#@#[9~#hf37b/'-m|c??SN natEP7a53ŭO*p ȷРdq=0+'}>=LK`E,hpLcV/ez۲NRǏC z{;|>ߣS)ھsy?oŕnJ}<~j<=dpC |ΕpsIzLNr|}z Y};?],a _!mp u=?_>ݿBt>ܛj~|9zk 0-OOd"sxgkLUF B Z@EF'o%MS*/H&Nz c5@wBFMzEVQ++n 淰և0_/o^7nruq di=.qa2l(n Mhl\$Xup;tue X #zH i[\ɿ\xa&Vw0&ReH](CSy* ie.)c-7`V&D85$RaJD%XH)Q_0H1w<=])aWbqT&by7GUXV<;%HaC in\2<1Y7`9M1_Ti^ EJYn[wa5f hw, 5yzo:۞ Ê_!nfmm1:fiBoIq M܋ cٲTFB#M:B{;i<Vͨ0ض[2U`_.tjX $ZĊL~KJpIrG@9.*XbiGY9Aw$.#9lSaZ){W+eIA,y[ [)5䗤+%T+G9[.)0cvV+pepH+P>qxflkkz:G.5T PC!6;Zǀv!=C $%q&PHh&1IU@jc)R, T;hm @/v@Je}HBfzh0 J9wzteYIbE>,JqLJt$"ѳ SdSgNfQm mQ$3V[IHe fYp6e2ͬ4PV"k@cEF#qqd%{Q V3ޫ#~w8I/'44QWRI cD%L4Y4h<$g`H3LMaIۗ &McZeIک3' K0PXҶ%]YFh$*$/׊h$~IXJxB6&Do/)0 >J@ag6%a,H *HR& ,GX #CRVS Y E)F)2W+h2Fg~W2FR#cl`dռqdP2Ax %;LL8Wi<%i`LV4LQJf,FbEFv $̦CBٓRdvJj&mB PI+Edv+;xȌ2ad.Ffy YuHgf be,N^e},^X!}:2d $~CGJO i YtdcȂ&%ɷ* C8- ? $ U`dEf"$W> KH8$7Iyy Vcd :wF?/늫 "$ 5EHPLώI$ 8ЋGR)!Hdv2Ǖ %A ҸL5`d/2+ 턐ƫ+BWOi!Qiit۔"FR&7\43\4%+ A*F$~ TFw!VC- !Bf@AHk5geHM6D.DFZfiq#m`&d1!3 !m&QP(U)jaMb #m0樨)i3SEHQTSH[rPWH 2&+E"+W!#юI/FΫ7 wj!E BHȃ!Tx$#C!$s2$~`&k ]W9@Ʃ 'dRzD`'z2G$;#WD1eeT4~(<h <aDf)0!;(>@-TvD"FG:!32c-)ŷ4x̵sUx,&(2<\G$ GDw!8! Xx,AVg7cx@Gtv3VuGʉ(dF!a| ~ C hRߣ(dj܂zʊ ($8 c]!4\V\cCB"! Ib^1H!G Bz-rAȠ҂Ap- dqf1aΙL:P- $aH$!!haQdVR, "(EvZQdu4 ӺqH@SFk&*hj A DZz-i[DQ㐶eqHײ8du(DZQNCJRVDFQhT)k7 *;D4Th2ʞd92] r>!HD7LnLď6To - C&ƐueG"ΎqHFz7; #fo8.}L G,~p~gtZ;`s#@#x*@aWcK!7(;G/_ؓ\ٳǏղSݰl{(1o O%%ޞ(m4P?Ԏk=5Aoz$GLXo'aSk H);ǫ޹bz{|:y%DR+ ؕrgr-urp*e=s;/(m7 Q˫ 4 OѲm>t/t?}Af ?=Q5cOuGU7=<=|zL ~)WU,4VímZݝM=D!~}=?~t#89 l;wU~<싻9> stream x[&Ǒ%ο17@/[AXjR#cv=2I(f}'-"<}o_Wܺ\㩵PqB 8oƼ_;~ z*#>M8çw~ >:k6~Cx_0zOإYR1/lR%k!|zˑ]'xjSDr,Opȴ8{4BDvz5KʐC*t4jm@'1 jbNT:>+Xٱ WLNJ`o{|Ǡ؄ YB6#&d& >S+VR>u>/ ֧^5]gׇ,ܕNHO}סe|06Mj FK`tm0F㿠|2iTuk&b2r=#?\SPll(&S2e idEfpO5 Cהիr{Jly'LS,c'&HK@.*Ϲne}^9Ǔ>hKrd|:yuy3Y~s\UjN׆ZyJҼmcV>dsܝQ0فTiziWdVԉtt^[(="v lb\ \plv`]̕7p\-˿J HmWDfQq /4~"]ɫod4y~% EΎ` 燮Bo)>d x*ƫ rsblڅ6̶Tva S/\>?KAҫ\t19޽9hcj xZOm}c.IE*\}8H{zUI2p7W2VOi>zxA- >J>5w\5gf$>E9D 1$kE] C}}9=G>|j}sʉ^R:2f_jh Y *ZQSwH>Lze@f:rJ0W∧}CʪhvI4 u=s1ĻOc sgJU8> Xq 94U؇˻ D"D< Ap QzVk\5gLɊȜds!.@ъq._&2؇537\8W뀧7Y`ӛ,@t>T_ԫ悍w_w.4ׂ aW͏2uA悍w |ln1XS}@b&,ظ*Wa‚|m -kv`@=Hef,ظ&=u—2 O{iЫy@`ϧ9~~>s)da4&D0vQ2&j}b>sDhsXkA7X4jNkoM-\/y`'"{" ZسлMBBO+n/M6͉ta>S'ùXʻtLh`]w8vv}XbϧRC(Or!-Xq9?kz14>Xql{֫抍#Raa WuU]Vؚ\{UW;llc"}؂._IJ޽^-j^jsM/;ĖeeΪ*抍MaŞ=V\H [NNwذbs,zU;#/s.ɗ>Rmq\!D0ۡ.G]ȑ%s!۝f?tɐNr9d=,fq#[?s6ܑ{4Y8χlBP"tdj23v!C6a] :;8G;i|3dxv!gDs? M?!K(c=f}4ͽ6# Fqs={ɑm4Mݪvąz,n0:`nͽ"G/9s[,WpJGc1?ΐMB %GU}^GG w!v%ՐaضgFF9!0w4ȑEs 'qds!>{7E _?B;^nUt )8%}DdrqX هm}5G>s,o߿0m \vp[ Xs-td au=4l#iq1G7uل|?D`>_ߑm9I ل虻!6d;l; tI YBelu X}K (3dt<Αmp لpv8zܑNs#>oޢ"VҽEDvxBI\ ٺޭ+ ٚߎnˠ#獻loWժ!|6]džM.dusLMGY4wuS# kDU:ӑ\x`l.g GuGo~y/ q!pCIc|ƭg}cy6ǀ:(BlQ_)-@&ϡ(=hDlbq"s#2\Fd1QeHd X k|է6Ag2|=d%ߍXvc2F-ƙm<1 mCd@sSDƨUMNd_ 1)1fgDƘ^"fyJdT}'2&)HdL&!1*#2*$2&ՈjDFԔ !"^~u'250%2&Rh$Q٩j'1F9cLxzͮTy ҫǘ#WWx0GZ< j4#+d6:mEGXʽ@>l4F1 h94勭f10az1@z=l, YQŘM獍ŀ%_7!$YÓ $1b&!$F,K#1b-4|5fqw%Āl$F#Oc$F#O? qv#Fq ,ކƲ0x;}94G[a,qipp#kCU8!E+q9bvK rkFaJv)2,0`HױlF)e@ nAa)1dF R0 0 Bx0\z0 &q%(MB1 k)S\I5$) !5A(98.20j&C >!Z ¨g ]-hs)3l FKX2pЎ7`WC:hm61 2$9/dW[B>>-kE9q /JYT:ҷiN:oLǥ}49ǁ6 "V}9r>\>ް*Z6r 9ķy4*gk'ol>|puUISağMX.kϲ$nLT{~o[E/-_X<9c0":MN=SLk TX@UtkAi%C] 02ua| @]]8GrbwGWY`jEzgF'I"Sa¡Kv=Dγ+he;y 3W* ">v6qrB?ÔuU'9鲧"IKo&Rn[~[8ǜv _S=XT~daf[y:'>}jG1? &g?ɦ2|w1k34ѸB3F~xP+B V6-ʅp",xnyBVK4-)GT KӒZ&:MʑM ;rd(%zPOzly.[XۉRMe"K`!Nm"q )Un&ӣfhL)47#fb`pMy1 Z {/!G6!~MȐM_{2d2F@r< &/(>>Gs!~ ]k弸CaR045 Mj.Хau?V#kMדu/n] Zd尜zTGCYmT߽ilDA'h#jƚ}x)B"Mw0[sс .}>EM. g#yL2.XPQ]C.&7V. U=y'yiG|~Ǫ]߼zphr52VhS;[pHt!nP6mfmIUJ8-&]RUinRTWM3Vkmq"YOe'#'am2%@`4\>+VөEp`hǠsDHq8g8K`&a"(ԈaFh SDNaaya @8J!qX9KxV`@rTψp7 CY^&NAGxUpR#m]PU "E & DU~sة—E[U*Sxt;yC=2fr,?i<9[4c x!aC 2T`X8u0|u[2NK8בϗ.%v,zUQ9t:‚i =!g 6 K^U2`,dX]>o# ˬ;m@",mEem`(,F=R4&m T&-/ Xt.j-aM.pY 뷰AŹuS-{ % CD媖 cF‘60k$ys- g)P] t/{k0 %X2Ps *:"p%AxT:Zb$ٶ3GP%[ò>EbjX.U$r&\"A${$r}&#VHΨ܃RnUʠd3wt^8H'$iֲHU {`K!۝Zu'C;]\vxpY2ue;>] qzZ.d::D{$ loV^vyۥNx qCځ%tdYBKq#G>dtZ8S#u:/d!A YGqp_Oˏ|,dor  ͵vejM,dr\Y3u#7[7? n |1moI%5yrd *&JW]@dr'e x;G൐m!woCYϻas >k!6U#zo![qg.d蹐m͑}̷ّMs>8m8:& M)ǣ'm !wKHXȾ/ i}GBޞ:9YwBW8&T&25~!ٕczkQ+ ́[xBLX϶|-d$wݭݰA ٕ mЂD>3Kv^֕JCE"ûX$lr s_ E9"STNm!^h擿X.tu_.oZ#@;{ {n ;r6{ۯXPkʰ!V|°Pl jo‘#qsUrt|J MEZ JNNZ.ZlY:1d-jC'1Z[X 8)ԃpџY dgPXZjNZT䠓Gi$ I j6b!i)EAi+@Ve^@8qه1}QTEm,q!HZ`hhnNZH wrv\Y |Z59k,Y AR~Kd)ǒڑ8 xɪ DDQoKjt7q=3{=WH[Tn@yWm~[ dM[ttޢLPgq2MG}H\ [`JwH0TaQN\ L9 vm[ "[ C[-`0-uEޢb"o!1bj&o1aslMoEQڢ^ZR(mQqH[HWQȷi%m!]:H['ZcXY qG֐pkn'kQC2cE %[sۢYZ,lc-j躢iQz/Ңe3Ң9cIZT EZԘmM!k荵h6PYLk.&&tIbįYd>N[$0-R醐HpkT(pБkŜ6F[dHd(mugJƄaG(^!O1¢wh a!z `ƥ`^E}TqqBlz ԦN@\v8_J1V4a31nv1ym@>]2u^ak\moq`ut%KIA٧-}"348dk$x"%E\6T ZT&~sIaw!;Մb]T.lڧGyBpR4CmJVZ zn|U,s^t \Gv]Ł@1k%/ZM]K"QVa7Y$8; F>#ɱFP#N#ռ _#FY%lS)mBh&7yŸp8F7L sGNs?NPDr.` 7E.y sTG1$ZK*j6Cɍq!K|0+Z"˦4!N 73NEM^z6sE&!LA#:5Ѵ)6~9x3+VKZh¬a@a1%ŭjŌ7 QiuT/ݸKS8eR#v3B /Y2_L|1ruYUo_u4H1W o>{ ?8s>*^-O9q^ (϶WV1D2:Ts.i٤]!]|@I!q+I']w!"T]`LCI yr_[;iE1K>@`ʜ%G[ )Xz˯\[^;6*2sL8$x!04v)G6),ޤ٤[w!l{> ǜf8Lˀ$"?$=S _Q0{%k/N I4rɰU9q.1[`898%ئ4t2"v"rL 4sDY2A9I- 7߳ T tV$x_"LD_'(\H /#swHCA[Q 1y)F"dѼ9&* hsQUIR 靫8&M}Ok Ǐ,ט)As(0Un$>N!ue4 MH=pAHiViAFzdj bhM0i*/ ytIv_ XMM@] MɴSC _%G:2X Ȅsbc|&`hp"C0TUqf>%"+eN3xlV̂ "ɮ⼟SY1WQi€V< AR ZCnuA^$I /OgϿw/}e%Q)$A](z؍'VJ #35H@i"ٸ{~I'LDؚ7P+4ģ OgtVS= UDS!bbAy:'kZWDȁ'A (\Bn*H !G9&h̺EX]#FOz\NrOvdYcYK?g #.:'+TXPȌ=:&sl@W*]d咺 htWJA)8y*b/˜$")3fRdë?]Ot}E&z4'BoVEsA Yt&Hc]eD9Hp+O ИtC e ŜH9#F ṉm"i848/IMz_,H"RT i&D N!Q9m1ah]B  c&$Ilq:e_FS ޴#@k*Vjy)1LĎ:%HQ>DD)п34N`V皟{}@I>JhkܙJ p,a—\ &BKh#T%lv2X ?IST&)V }NZJI`Z z9KB) +G–S1WdLRUcRRp=R q!r+ly/A[ pʨjREζ9`Iǽmiio"/zk{o{gV~䔊 uR䔺@B2C7̧ȭz ļTWX+}Tۿ"罺X{)OSi*S帲E{!q93RgRl}ho"T'"ϳ'9{zѫ+$q/AncBl1!I }y/^%rJESv)En*^䔺إ+B#ZS CHLt rc r7*E^i>M/0 ԸDnfQۈwcDr[ŬvS_Yq$#9I )uH r[q㹾2a? ۽<#r{xGA^Hk ۘJh E(\6Řt5/ƹ>gI!ܾܳPB"/Vrj)+^%r[24cW/BF]0z?IEvPOzYo#:W&qA7-ȭ>r͡|шЫ.EnQ\(m]^ɹW/An Ǧ s<;!m5f~|k=ۻȋRiv:[5yCAn$nI`7HDtՒ7:d(Ab1:$x!n~v:0d!S+bC`XQhq:Y cC4Άb.A#1:dh"gCfWdH2^IB INHV@|H̡jt "k*ANbt!iբCC,o!ν )^^d|gSeC*RdC脴Sd<Փ i^D0-2G#1 K^edȜj0v2dɐa!œ  vq!| Lݹ əh\HVƅ`i %\HީXu2J"5 NJ-S!ْ9;4"B`dmTLIBHVT leB`,&D&a1![o_gBr&D;\l i,˾Ƭi(#Bv"9`DJҳ!D9ҙ| 9AEJ2.΃x_A%vD}8wdud {m f| EhɂTѾ" b),HQccA` %YdUX 8Z43HѤR@: R, 6,8" %#+HQ鍬IJxG'Aka@Qߙr8N26%Ɂ־q 9 /QH1.9(u ň''A`J좤<Re;}ܪs C ]eȁsHQ؍Htm9 `'+Hќ"e?\WO΁bg+r+sr1m+c[bi.$`LŔX7 2HSGAk=On7!?.Ͷ;g_#G6}VS L#Ⱥ4u9 +g^9eKMrӦc)uAI;KlKMsd6HpIa_P \t&\X~ \RGm Ja .O [mSꅶ"RU;fj+;q?A@TCs3'GϽ(vinWkmipdm'[cV}vO8(%o;. /ܩ^ SCi˦7b XҭlPY\Xx1 B􌠖#ި&Ä~`ӖrӨ1)~ЁaN8xG1"l6E ys3S%6Y~.?Z.өK>_~>BuxP* z*eQmբmB0C]Fӥ4/g"ϛz`d&]U­0:U&ta_L>% 04fCrza-r)Ccf#XfN: %h*E'Q1:|zۖU=u=UTUWUQDrݪw!$>4HSE'E'(zwгn㯮l8Z 9K1RgnD2xW5 "Ckz9!^T.=G܊lCQ W _LoAU'2di"<mdZ_%E̒ILw|KIOZtFSrm S9|X4 #}e'LXH N"b5a)0L27XYoT;NsR(ʬzè,f];X6m+jodtɐ>"BYD~Y/0cѢ"4 HA9 Pa8)Q($#$ @/'HqX"\"2䊝tB­) _>Ma$-A/HWDx>hJbSK[zip h dM -!{ؔsRXҚ 냄he䬔c#%e5m2uS eWd N)E1819Ǯ!|t<)m`!%|EW_!ó̐YyѮۉ.74RtyRE~z">\ܞO>CNO/'C)AnQEn=N_C^,"6yW!g.)DK[ʙU=3 R1fSjH]J[O\qOL"Ԑ]JWc< +8=P 9 d|9r>}3 9Z> 9bF"{Qnȭ5Jz!q3R֮r[lj1f#۸ ՞m]nH6&IFuF^r+N|e q S,#Gۊsm\Uo`}V~%Dnc"VB"/n QZM^΋żXnŸX[RZmqRmomnۼHײ!F*2"v K}K_tEnn{?]MVqD^<e?,m^#d7EӋֿX!J6yQs+r@W[{)bԻ~3})r#ۈwF(T+޾gPCdȋ6yO =1mjDHgA7_qgA)ѺY )7d3 8.4H"j4$=n6$"QADU^4GĈ 1V=0$e#{HN 9[a4HfE;AJR1.ƃTz/ ΃ UA̡j 滵hhp? p,FݸeAp kZRI! N *)+2 g , iew$3+ТAX| X79 AJG TFb6{A`R.h bugR Ƃf"ƂtY,H7_^gAF2-.dT{ Z$HsYI5k$^<F+wI؂A s#AptW ҃9 3ʍQ\Y`5$;d,2 y4HlAr6R<'6| YS>/DEAHw1;N #`:Nd&v"j5"$C!`?A$BFWC#B\9b:Ԉތ 0"ҜNY\N"ݎr"dhŃӴ KNw! bqNӐ) h] R%BEʐF "T"*r2v $/-V*=yQ!D !E*1'R|1*K?!euU@ixg:>@B[,] Hv+i,(]%ؿ/Y`)RA\}2Ss J8-p0q.7N& I=wB^L3g`JK'{TDBB=9ai >sݖ aS2ߖ*7%z'NݖA.J MK.ɒz דk8k @HFs@|l"ygN`{|UcJ4iK}zT7\Ϥ=;5m۰mߩd^ Au9"Tj@:;YLg]~sh*|AA2Quď^r1>ýT,ѭKyL* a.;;̕R;9/Si[һu2{44_D-E8Z>eנqO,jR&#-b%;7 vt3J+?ǬuUNv<^$9c\,pBԅŽg_Mx^<4uI0l~<-¡Y=PZϻhv,vrEpi`\'U'o9,t_~| @/F)YLp?lC})ݚbޖtqDdVZr[EZfY3fHEĒi,IdƲлy^ˡ,L/p|p3 j)Yu5svx֢03;IJ-S]ƫP\]ɽu387q_L+9D3Й2\PޅLhN$mjmlfA,}[dJcjC?CK9! {"h ۂ!? aU2,'-<G.lRlR ܤ٤&d* Kh!۝,ڣiEdFyԐҎ`MI9ۤRJR gIrHm"rJ ݥq7)l5{ڧ[ţ֒ZR[.Kyo[&zˤr)-zkIYo-[.eB>sUs#Z'*Ph W\ V2! [T AM#h2#kzPh#yۘU'q(pq@7FSb7eB#KazUYGDC.&``cLR3jp ‰Ef$:`+ PpD b̲[;iD*5rx|hG4r"i2j (Jc7U,DK[g2(!?"QB+Efd`+ ص S:#WPiPDjkF H@b H` H$E0hYue5ϛ~YJ.,badD,',(OdXe=m/2VF`,6P'=S VfE3jKjecGd& P"SeI,T?[TF^.^ JGkz=1obDE߫+C+{̮1Yjkz @ca~`9B`VG dh|&"j k 24LDy 92KaF|d-򥈜!u7UT9$K; rH #hBJ2B&{Yc5܀]ؗ},!μyҙ,݉1 6 =B ĺNB, 8:S|lI`b%dqp,gam؅ǒCDs7'p vkL֕Żs8psw(vc@+{lciam#pO5XYm 8&DXSn2xǶCJzlw^N(VގMX.8FA<ֹEkB>jnZ8uB: Y%r,t]S:@Ƕb"V'iXcK xlx~&Dʧim#p{\Wsg/'+wl×v*%*7Ũm2vȳ};ǚyƸX8IKvlDX%/c(cj4&r%k<ֱ4nxKϫ:Kh87x\yqTڼئwoa\#_:8 9X(&ȕ/(ĦJQL$Yn(Ī1FQ) ,B}vZ(eq͒:GѲhX$EFRrK!%v[Pg)z9 %JHSt˥44*MGj40Q8Ma|0|O"\h عZb.MRX ذY,,֚ X اo,m+e.h5K3*KlRW2ˎl,Y\Y uK+18_7&Io&%$ l΀9I釸H@IP"/A"[j')&u"3")eƍp㨓e IQ GQQ7b~!Q mQ9 36.5Ij ) _L\`Eќ01(ZrFEfT7y>j#)ZFR4+f$ERt+,E,c)%,v™=c)zdd)ču#){pېu[g)1{@K1p0—;g)cQ[FvhQ-뚓D\4Ɛ{d{)x"4ԆN"^@FS˓OW9p4蓤@># .Q 9:9 9 %$AR ~M G@Y_Y 5d)QȍRd)fHJ(Kŗxc)樛@KX"RD@k:X xT,RD,띥@$@c+!ݐ,H#}𘈗 MXܰDoCnlhQmKr^y *'F]kB'rYrebT˕, :ee.B>C~Fx)tY>R'LeZ2P9'`ayN;av1sj9 6a\'s:հ}RfI NdxV\Kq,+@XcKr ro !C^HʱY_tl2\ӹ[ED #s{6; ܍C;xj8-XMVx;$P/. DN&[Iǎ~-=>j2 ֑@,?"? 9H<6o$tпڐ+xlNMU5/T0͚ZMQMpXKxgVޕN: w0g|O93/s`%vo  K8a Kʏ .Q.gw \a:vWX+LZiw8Cޭ$ b_s iNqIuר8ױI$ X7\aHP!DGOȳ gk/>/_\65" XՊNu#*J.ҋكu}{vR[uumk = Sv`:.dB#BCKe}X~͊J[We7.%|#9"7W_m7OT$&ϝCv NCr!"S*j8.ދ|s+b,lR#ΑugL,Ĥ1979R{g C4Y%lKX{J/heM-Fp$7_ vZ4~#pZzmx]{FC鋂 .*#Naq(.||P;v =;o}0$ʁ{!?C kIv%lkZ=c;/^ƯPן/wɽ5 ;@9w;GBlk;ɄIAuiȯ=\_뫇~ϭ6f!8 Zvv!?vv!?v^B<]&]Ͽ&]ȏ&~13JmteB mH]# U6!dڀ{"c{6W:I$dz O1^/ġj N)X!/W +o׭{F`_p53*s CcEbg C4cٺjFWX+LZiw8C5AO,_#[0 B#3^x,)M1ǝ݁  #?!6߭vbYB~Jηסia1A]~C~juyo\aM0 nf14X{r=\suT(?}c'WZ,RW¡Cvvݤ٤xݤ٤vQ%z"rH.]Jk)Յڥ9&ܤRv)L a%qѝ–]qR!]Ѯ\v^ȈYq"oFEj(ۏq/HfܥԀhnT+QqaTD 1ovE߂]qIp݀? nZOe;,K~u wk]~nZ4%u,۵ϪMO|òeY\j7\weX!Љe1 K;o5\>7]Qa ^v%VuOXvEIޢ)p՟ݲD^nZymDW3OX¯-5{kD2B/ 1;o}ƲBK>4i=C/+V"R2CGe^jd^we-xaz32C/ 6npn^CqWui=GM?jQY =x3Dd^C/?Po+-$k_f@OjB¸=οo^z2#<~kwr|;%۷&v>e%koWo7rhTo:/1xl˯@\a|x8_HZ:Cg_q~[à""RfW(5Wy9}n7DE}E_?ZB]c?7o>~O~|ο|:cv߼ѧVk'KØ#ݴ=>l"m);olot'<}͏?y]0o߿^|O}+nO~| -ͦsK94! Fk}޼MEqз(:'`XW;`>~o~s_/%=%'S|`\oމ}Y[7^p'^'YC3z['|"3>?7G +uF"RG3}o߇WZm?`4PۻO1)̆?Rk\kNw!ShFp1[oZܛ^6?7   .s{=]Pd?}D'1w}?isD"WQ_GxpOzѾkV[- >ssW>;́q \{R݇gF̯(}0okWo|70t4g]dbeJh82{[ݷ0TF4)7 _kvm<څ`^|&GS(G{j#m 'o_|?_9 er,诡G;?uk]n6?>KW]%erKOT/~| "^8^v|҆ܦ ;YѾH۷}_|,[6L9{]Ay~Ah`U۬>~eIF_eOO'>~,s{㫃+Tkpk~A:«C߽9:L1`EwB5,X{;,/ z)9endstream endobj 393 0 obj << /BBox [ 1468.87 3580.49 2096.61 3703.85 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 97 >> stream xʻ Q Ul~ *ː%.&%?2&bO+Kl;nxp@X~4yt{|;endstream endobj 394 0 obj << /BBox [ 2090.5 3580.49 2718.24 3703.85 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 98 >> stream xʻ@ \U ēNO l2 (&lٕO0!ꠖB89fd̚zu?yU.endstream endobj 395 0 obj << /BBox [ 1468.87 4297.4 2096.61 4420.76 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 98 >> stream xʱ @ 1PMfvPL[(qc.-#:k"]I5d}Ğy6g,qH gͽ12'endstream endobj 396 0 obj << /BBox [ 3520.9 3580.49 3941.4 3703.85 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 98 >> stream xʱ @ S ﳝ;O@ _JWim yCih9Pv\Tx߱)Ԋ!͵5=kkquy퟼"'-endstream endobj 397 0 obj << /BBox [ 3935.3 3580.49 4355.8 3703.85 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 98 >> stream xʱ @ S ﳝ;O@ _JWim yCih9Pv\Tx߱)Ԋ!^>5=+aֵ帺<~Od >endstream endobj 398 0 obj << /BBox [ 4349.7 3580.49 4770.2 3703.85 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 98 >> stream xʱ A UlwWCgH@ QrnJ/{KrHWRN1:W츛8pXF5Bַ'cwn_>/endstream endobj 399 0 obj << /BBox [ 3520.9 4297.4 3941.4 4420.76 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 98 >> stream xʱ @ S  &H"%_>im ?Cih9Pv\T>-Ԋ!͵^5`ֵ帺'o ]endstream endobj 400 0 obj << /BBox [ 3935.3 4297.4 4355.8 4420.76 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 98 >> stream xʱ @ S  &H"%_>im ?Cih9Pv\T>-Ԋ!^>^0r\]^w~7Ynendstream endobj 401 0 obj << /Filter /FlateDecode /Length 4897 >> stream x[Kodn*? dqާN ols(a^8s 9*?goQPy ŜU2,jQP U059 ba;d}s(Ωmm )VYsǰS-V4+T\sYZg;9͑bY,J9Uֈ;aP߷fNUe wga cp38U;mfHll9?ݼUN>n.n曾*!%N8dSԲXǒ.gu T\NPyi(Y][lpr3T%di(]cMp(`D VZ1bw.sB⑖ !z9Q0hPڋp|#"D,0(!VB >N-0rP󜦖XѦ嘤QuH-(v9_ZE/6)Sp*xh/S Fw]0Z ]0ru lq;?!y?9* )iNC %]ʎ8/Es<׊w3%^.Q {±WAS aX~5 n Ƕ_Yw_4_ <NV*=ZɻtovVi|-jsoLDkGam UT΁|Dڞ@WD3ݛA~5Mc+$G5 c0ݛ!Vqjs +Z \<|UVU4FoǵU ` DkGݤdj|RV7_Ek>h%+􋚯Yr.{PY9<β/2Rz&3*gFgtT8 J9;dI8e[Z;>_"'sӷh4+$sEi2WId(\Q&+JL2W&sEd;/zP&5k}C'W'kǟ uSُ!|΂E ±={={KK#t)g ˜[c{"=Aj?+ذנ'4_ߜG<3#NǛw8Bc^<8?!zGەr(/7nX܌ CldۆDۄ@ SMć\{eUDeǹ,qPkIb.MW+5Z+ʸD3 -WY׉gH~.WY#$9/g5~6kYaw\0Ue<~8ubP\ oKZHy =xwVR~9]ӿkZۓ9 ?0 c]dpHv뫫 _'ӠEV;C|~?ܿ>\߃,-[q8t=F y3? eE Lp}߾~{*F_y`{uׯ~6yjк!/~0mo:H1EF1siD}P y+gJcVK|t9?VHpluaE~tTtTxw꜎jsm$ ?%1 ~21 cAb+/y#jh9eCp+fl:z5c0+u->yTwNVe:s:Jv:'R<|#ר[Qs?}ꎒ"v)"(*RWQE(8Ye꼘GUGUhiQP緪ʉm!P[`8+Pcq!!T9U]d $ AdBJx!-\w܋[!'B)Ii`уSi]wȪَ@4 E8*V:9|.О( t%ON A*_y!fEDvl 4t&\iou QZNJ{Ⱦf%YF"9<{Tv[Y{ǨoP_Kѥp # rC(]2w8NW#*08}.Q嬮AwxeCȷ{IvSz1@Zs 4t&A-!.kl"c0N3 E]j ~BTf]{=qI8p/x) :8,Ģ4t6jiF9qW o} `U87t>ZYS>'`c,*'¡<Rԍ9Zk>,oPhW蜆KƵdC0nzr EEyN4e|F},~2ݓ**R0ņnvʟe"tfԖIʠi3MA,~2S~֋裤Vu;lY B(p]mgOf'W(q|6tq4$LDE&O$H'_{ԙ|8<\><\<ۏ 7O;'~]'Vbendstream endobj 402 0 obj << /Filter /FlateDecode /Length 9383 >> stream x}Ko^Ir^a6\~)q0`311n k,hSb۳>:q3/U.0v7q"*īg}}WR*c4FJ9&\}by|G2bIW>V#nrLW=خ}y_~~pnBrǗM&{Ϋ)dik?rBC# rkwo~]w?~I%ntǓdr5kD#%ʸїHμbek46gr=9%,lS(sdYobRJjyT뚬 ZAJ%˳Xaܓ<6J&,?B.S^ dJ64O B 2NfNjȾE 36t_)frI:R\Q:RRm5K)֮;VSl eruXO5TOiVMI+.Sa9:Y`$2⢓eTJD9,3Yd X%;jeB'%d'ѣ u9`:ءdNV& Nr,X*o!RejR>UAi5cu]Ol<#BEQlX2CՁ(EE6Ԍf],RBFתZXO_Mmb$ ^Za.4Ū&IS/D1-Om(fͲD'GmEWH!/^WmΤ5-ÿz `%1'JUlc}-LSpfYMp6U56Ah@ y7J(2?T[VNNw %"6ttPV$.lB/So hQdp%6v&KQV{<@ٸYrʂ[E֖pe ~w2֟ڡQQ) K)+[p=(~;4;6¶{Q6SVym'([[ԟ6J[SV.>Q6*PQ~clmM.megc3 T)!7wFոSVzYNΚE^ivlmr !fJU1ʦ%l:k;EH@+M5iɒ%g֖Rv]ce'k`qڟNƞFVN[|>ŹawT/ZZIA5be falg}e:E@ 'Km|Jqy2~. ʙy_.N}a}rƮ}_J9 I\Q/ (ζfq }l{> m43g~nA$4>r#l<=Q6Q6w5q8QyG.'}<3lnUetb{st#b[263Q^>!:^Pv=s[W$'aw m|Vǻyv=5(g/"M|Ƃ$HhўĀF<}24g0W^Ftp[c,kX@ñShPp"#43XhČ#8 khtшY  ]Ј1P4Bp RU> B7@hv@qDw H(FH""D.$Ӽї`QgD"(HTPH4'pq:"1&P @@ )`H~A$H- @| T*$l IDH ĘHnS4H"  ),3t` l T"WSp9a q0P"w 4 K%LWPbB%X%LDD7OIpT\$CIl0CEG}@5iN0PxDiK(֐/Pa2L,Q!C%8֬ UI %jBDի܁Jx-P ,Q-~6H0 >ZQ$p.0HD:9*Au;*6EWP jë`cAMwIhJ1DK7hٖD38&X:R-kpDZ [> 4]> uI(:D$b$@gD@KHՂJ4@Jih=8Dq莪* J(DOw`B .!bKL%z ֏]g\[d>Dv8,ѫ Kf 'ZL}` Knaޫa%zWa>`>%%@7%K}#0 >JRRȬ͒ )ɒD|h|F V͏}A3bbbdDD*k>ʺŁ%尬遭{cՌ/=l-uA|h 1X6%&$gη< ǔG;m&ڋlY 8(q#ogm%"J!en졎֊LM->fx0I>̫)8W/t&%vČ}.6:pyK8RnNvc)g88 6̞w`gh,'m'19DhNkI{[9l>A R 98'䝚j}Twqڼ4WxIn“b=mVrw:l| ṾK.3L-G7ag&]L u ?ny evS{e1]Kc>sʖTpSp=GbztGާ(n)A% )bOve$Npaa-ӊ.v3PSE&p͐z]fX#v#ůvk%zj7˘q%D6\Fz'!HCVבx=yy佀fq3Jn0+y77 sBŢ'5fh=fȍLOF -"uu!)RgJy.hFv"E)'Fܤq:&Y*+t̢I _q >RdI{ܪėTj/vqu!ѳ-֐]偶VVX\KkN-W¶ׄM /X(Kd1c_('yU+֒K5($Y5}R@[!̋S檂3~IߞxMJ:iC̗O"ܽ|w-9TzrZ+ke&H1d^r i+>qyWm uy IЦ[ܿsp/LJxh'|{5_= S}3_%eo:9mIM~"9$r!jkBOE~CEc@Ey]>]-s*:huߘ"'֣E(mN)/?^N { wu6ތ^_s\2K+Q& ]|~|sF4y B8) ГoMLT 6˟85а0o?}n ٯ/2ۯJٶPIdBC㝔ۯϢ6DzNl ̸ӌ*UZ_l;]R~^$~yTs'kJ{j+t>C'6[#"g'}Omd]m,Oڒ$Uoǜ;6Wh..,oF^$U\לMLʏn/#l󏗇/釃񟴬!,~V'+Uջ忑5Nԟ wpL-/t%#/66mXe\gN.Pˏ~AFǻ绿?^2sbYzP:v岳<Ur]|3CG]fMUN.z-P, .LN9gy8`Kyb S\4Xta2qelLFY^`4&,Lui- Xוua(=0ka(Y+ Wkʥ+0aᱥ?x@Xyl&P T)K!VJ ޠ Urx%SB#TbK5RrUJrtE+ҹt.KZ\bkU̥&7ՄrQwnD2BB-0qs G*XzUTDj) B |1Nz-%FKLf 8ZYG\i0LЊPo!'-mgn-ѼPyY%))5 vr еdBtvw|Jw]=.%)v6! EUv>B>M)gc>,bFtxv֞$Pi(-I\${=ep"πӨ"pTIA$_Ye+yci[Ұ$0.M]N X^Ct1'q uv*SDz8\!尸)9"EH*`i$%(YS)'xкk6]U؜NВ#(nDe ^ (%(q}y3G55 ~,lο԰|*j@bNNqWN粅b9=*lpR`w 1ˋhd$VUIKiZE Bezy,*P@ggc/bg:h(%3piii43VI "u lxHqLS Pa3*m9"KCә)fSr1'ԬfHY"ѪGR*>[uҰB8yƔ #J鸒@g*O&Ֆj]g"承^b]+ WbSPđU| s/wٳ{ 5$ŚYft>3UCsHb57}be,vfZnNiIj&6O?(.nUs d*m$IM8Pl0P9dDfRvaO`wŬg]GDt3¼)5o׺PŢPZ; /L^afی"@Is ̓( XDd'sDurL(3dz,B>B'1FIqe4!)BtcG ,^yݿ]]hz3U屴唕+ʯ S._923 C%hG݆c6 ,\d;)٤dK6dGW#cTuL,"xv4*-[eʪ)k5hI]s]>PqAZ&v)'iUڷh( ) [=+z<(TTAY5^/*ƃO*}iwf42e@Y$0r֖߬꫖떚-M9ek+vSV)`(;؍붏)%igV]}zP6y]6t(PVz lrNYIOA3jƢI@Xu ِO)kKz_e;IN9q3S9kA8iSVR?k(P턲׃Y廙r<( W)p:j浬 fV)Ku9eW;3݌ݷt*Jkm]OrxSVQXNg.NyVN~AN'SVO 3Փmp9ϓoURrfAv ٿt*Wڞ'8Y,ʟm5}u~W vgz߄^_g)(Gym?4n;skξSV9yzP_(XA.}`f:R2t_ap 9zz!(# LՂSp\c)rA #.@gء@>fBvC ;n8E,AoȅA٫8UpTpUARQ‘ jb? \a!\J%!GHEI(<R#ŋUuTQ hH: ŋThBYPT P(H?%rb"ӡ)UT8%P ">PW[%Eϓ[TVB#x**XVaxaaVZjSg@q |)ϪMPV|Րtq ~d/͌A8i0&؏ğI! 6|r1 kGHDEaVuv㿀x3Co6 ݎw|V }\7?(qbGRwcSvbnN?w"p@ZqrrB; {G'Jxr~/h(rߡasgpKiw(̓i E4$j^>[BBn$h7O" .d :minx/~~챀 RƿBJBvLX٬&R@v Z80(H L{( n DdbAQ ?aյS$b@zi)x¢PQ3B Y uOD8,ne!{YBB&ne"(/Udzo!_vjңfG+ e1ڒ[(zd䶔!̥:^urU!k_>~ezŤ/I_+'yK?E^?ƌwB:Ke&[m=Rzak2lz]~npQy!%ŋ֔qCo_Xۯj^>=Y-Gȟ@/Ig]9描yy ,ԻZ۸2K^绣ǏwM!T8ސuNzDn6:By*Yֶr̙K/?ߚM'.wO.CQ3u"1vO]ۓ6{.iyOwn>42 ɦTH"0߯u;ߵzTE,=XLdH~ @kr6P*eV._nk ,be</p1~I )'Ob蕧B垲./Q틽{Ç{8"kqge=m=?fIlsd*2K-5|zkkJaVp@~+Kp'7oRRpcAӝ>qV .ZcMaWrnjD[ryDNo*"v_:Ty2;,BV.N30diuMt[- l5F~}endstream endobj 403 0 obj << /Filter /FlateDecode /Length 5573 >> stream x[˒[q/X x6P#B-Q;zvMh O Mc"u*2O[[ۇ_PpWv>,~w5,P7d_tޭ\~_?!/nxu?N?:Lϻy}6ûiޜ+}}zؼ[YͿ_y9{_ס1zi3e5hv=`qrn'ɭ/*dt\7ojk&޿ܿߟ-ފ*h*ݱ`?޼=ݛZП7g 0V Mo8Av|waq{;dv[޾sn_=b|gX-//ppZ $>up/whoD_[ꪤEh_ߌ 3yPАS'eEtؒ¡67. y9B$dW5nӛ@_:|m"9]Nt@; Sֿ,>ak]xaU5h96N'0Lg3yVisdry֠xwҖYRYy'kw*.^I[z|I[Wf3UvX1fD{䠧x<eڒƴr_tL0v4Fg`N0[: O6TʭZɽVd.x{^Վ]]Uؐ R"#!%[&JA "c$78 ܖ2&o܌h9*?5,EQ9,1c !1t04X09rJ-huԒ:b'PLCu"-(ؽtM-6A^UlDE! .Rk >YVBh ̩Ť0<f$8u LH 5yE$7LuU2;ԥ7 =H{H3"%O0<.iŔ2H zrqt⍾yD ZL0"%TPfr]<=z̔}W.G}h B@}b0֑ἴ sV@u2$d'F$O!PJ(3'B T8%@+dNg3J\ *eJ4eM**DQDe"SIY%8oFU+NPlJh;T F*ɩNF*}4Tdjdg;)E)9bP>hR7 `I(e"x0 F'I.t1:Y :ٔ 6IMF $19eJ&IR62I!$ؚ`#T(A&)U'0#+%)̉#0RV5h%E`>LvD7^ ^?xe7SPDh<g2Gc=+ d*hJ"eVVd1Zn3,J"`tF+*KIE Y:\d´lFF'A'[0tYeɖ}+lVFt-J'[3ctȐ($NEd&eO({"W- V[ ySfQLe2tŨe 27 sfx3K2cueHʊXfb)0̾Wb̾;UVϬ]=i>5Z [T5.V\2(v)<.JKsc'"hnh5ljCCE z&nW!ʍoFjRTbB(8T?InGY[PY郲S[1쳋X^ڢe#jʩtVM( yE[tDV[ŧGJSZh-ZJ}rY䨨}Qe_&浲 Pw@+{tgߓ2:~èh0 (hEo_G[ M.8eI;fyM$չ>ЅQi';\vTOjmZ_64kJ]/)ʝ8h"bZZLɔ(asƗtk=qz`k.sERjy_}n>n.k^ rlFv=<ӽ׃hMN^^>C6a3Gq3)%&lܧag7'eZmIWrukF`3jw6alĸ&iӞpd;" ,w/ xͶń9tYÚ3=6L(F^dp >n9={X+PN~fkk3$yۯ?>mu0̃ p1R\ɥ;.LFױr2 y b3T/}ݝ]rYs@K*摑&ܬoDGm|:1J ;u68GS^ݬ%4e6x~U۬ycfmϻXt:I;m)b9H>q_svH|Z5gy@ǡ]HZ%\7>t_a8O)$B@ q9Ήť@`cp${vaБ^+d[<4惒)!'?]4~y{HԖlBt9[bZ|l<&<[=l! |8 Jw)RtDD{n'!B> 1= ߥ@_=n/ ʼNG7)Rv3yIǷt>3!lי%rqD`@:|!.L \Eg]^7&.$yEvDK6لh?|+벀w[Y[3Qۓmf)3=!A=w>a0:3's6Kق{F7!G&RJTHdH=K6:}xٽ!>4 əi/ͽuKCl!gl{[/8]N0gєσNZ6nL싱NJeU2t1Ŵ?]/~~zendstream endobj 404 0 obj << /Filter /FlateDecode /Length 2404 >> stream xKo$)B=r0XY(cWkSd7]+YMVfn7Mo6zzy1vAf*Df=%vi|?vW|8U4!ʼZ_?ܭͭQZ'g٫.1Ft)Ei;?\?u|~{ҽ̷O4L|ֻ?k|fJ;mxsN,/F׻&ͯNp|vmw|SG?Z=ry9t3Dcbq~l*9 fD-3`"B Zc"3ISdp"Іn2 jnz瞦IO[IOeQzYT|[t@[:_죉w݀>%_;4ZcƑС>ZF D +쑉kʆ3LUi٣BGo$֜,ԏto?p!q}T/qwZhUzGQZ%K}褫Z7RmWǛլ_e-ʇR-t_\uvg5}ؚ<x68TWRS]l^L{hwcCcf_3&v}Yf:dz;ήqY;i>HHKZSfрк i@{ZN%\cS>5 \eϡ `@R*ig<{^^ r^}VPz>AZ95^sV.QX|נwӘ=zgJn}e.]o.E&32Bhk>՛~wk_Ҿ)o> stream x}k\Irw%E|y=$keX. }H~+3=Z hXYy3###Ĺۋ.OU/-Y^^_+jr؏{gU,kZKY/^]?ï˖qOv\rYpu_WYJǽt^Y/޿?}}ߌ6;py{7< uͅO7>{ \.>^>^뷧';?}&÷Ww<ܝn]{O~;\|ܖzճm֋z"UPܝ/wx.q/~ӷr\Z-竇 RK(ENΉzkE;T/^&˺Wx꟟a4vLmGxBԜW;,:Rq/zYTz)W~,aG22jO4>2*Ty%sl$󈥮؁֖~,#礏[M\դj裵[>zl [Fl1lFq=GvWdTʚX^h bHBHBx3>Uy4E#v\3$uI$iYv$8{qE9 zF շcZYR*MȗHB*Dҏ+f9fl<[:t -ii&m:]%Ϋ - 7eFɎBBu.ii0J*K;"|;nԚԋ$6]V$+4$Ub^j$u閎$ @U܁*YV:EzB,b2f,/kH D L䅖^BǏbNdyhܑE$]ƪ,IE)]F+a(+Av"BYEz#s+-`X@낁ݏ]zm$0IHH$%2U:u ̎r{™$5-T1$dlڮ]h;C3L dz9Q^Hdjs]N!I:N g KћBl8jϲH74(N.[W=*<8.HjNxUyp2E:qAʓo=d3KCHw¥ܱ$* H9zDbiSd`F,9FtaF#̍p F&4B̍2`ndGb~:FP982A>72Ax AX'93A\=iE0n};9! 4祝 B#2khڼ*=!;ϡ:s킸)9ȣ-LQ"+ 6plDe\s#_E4AP.P̍:< ~ V ih AYaTzʞzRA\zRA49[4^&/.`ng8'6sO"2+| 0$Q]Zqc <]aM [k0'rЈ6 ]A\tas6;D zFk­(𧨰{ \cx/w[8"=c FȒϮC+&9sJ1AhTs]m!T(/2BJp/Qf7K6 ڮ˥F"SЗƒ.U||1 dgЃ.m^S ӽYJf ` ZSuG5Ft6@hdU+Yq=IـϪ=tUNOВBvʀڹCϯV:h\9Z|0Z :d7HҏdZ(_vmPo+,VnM>9FlIRzl9[fO*p˹Of 7YwӌL ^$a,g\$vd&%ȋ %I[VnY cO7lY!_` żUy"*^AE"N@A62CJ5bfyFr)GT6\̋[UOo[͒ӥ|ʍX<+;XGRߔJW"`TIc2 -$* RYW]i8^BeEIu#[*ͼ{+mޤч?e 9DvXܫR"XX6#ګNM$eIbJh I4[:Nt"Õ9Ǝ+]Z&%*6 5ŊH4bQ*Vdoi$8JҲH/h 52?f %?V.HkTBI!HJ,8^"\(|AlS[jmjn[/zS?s lZ)yTPAI%B.%\8t@\ z- KH?jXY&E:J%M a%uf +Rd=Vùע[I|!Jm&Z/Zk-2ZJ0Kյsj: ۴ Y2~XM 5mp6$H8Rj@?6dZ E2H4+uX&~{Zd4 ρ>e"A| o.8t5X~syJO d5kx35Ha)&)eYKV(b+̭XyC+̭2̭t ~mV K[$HbjUObF+Vy,;5;rdftY3J{K^L䀮>ȚcȘ,t!&C=*uqM1%.o4S#US#S#e&#KLRe&,Be|u2/[MXPFo5)cBլ2zlmLYaܖM!UΗRP'|ݍ'̐DI'd61LjRA 3:f2<4f2Z0SoĘ(Ę\LF౴19.')s0N3f2 a(c&#VZD5293a}ƘP}74c&ʱc&#Jd0N)3$ع2)3M1y(3={FmPfʂlI(3 q2S`,(3eɘ`.&LA^)=Ƙ!4 #̔wLt:f ^c 3 Ǒp IV 1SJ fBʘ! L1SƖ;e eΔȜ2SPf IH) 6Qf e ?$c$֯\;83Jfk0fH҅mRyb̐D<#pwwLiu3$ٔT/SZ٠̔& $Ao4 y9LAD!F)2f -M E&|#͔:f 'L:fJ`:i$+#Κ)p}6fJm,eb͐ fRe$I>f ) kmafHa˝5SdskK2fH XjQ5Sn2f rs̚)\F5SĚ)++Dc$D)ȝ:i##ٵS]X킹xH>~*]07Ua`nD=g iTz= 4qAhRGF!BO*Kジ{wI&qˣSA艬2o Bu m)9~P0m[z(uwAQca }sTgQjx7 `i4Fue. ‰#K3A\07e6/AL^]07g BO9AQA8)i .f iϡማ q2+9LoqL=y)E''E\o`)> BS#Fk "}O&KLn <[m肯%#:d{!wWN%L\l3Q>~Z6LCʤA#8fDm ,<r&+ 4Z[pa\l ´s,wAhITóURA ҂c傰NA%j :^': ӵ9&=h,L Bf K` ,tb <L@ TWi {y|/,ii"I$^'8B!$'Dhp#΢qX4P8 g8B,G(<hpCNqi4Q8! 8D4(Gh pCNqi4Q8! 8Da<(GhpCΣqy4Q81 8F<(F0 8F4(EhpcNqkp(F30 +hFa4Qf`ƣhFa?>#-gv D1pbU4`4rH`4rhd`j?TFTӓ32RRg4el_(7}jR2ZY&eI#g*V7ƽdwoZZdrmԬx{Т沣]ePKMn`O/9]]DZj'̎\Zۊ؂o~2|GULw$m{֌jE蜋#7#%]DK:tn vw*PE7YHQi ٕZTx{_sʫ`nQS?Ȱ4XLVWW:ʁG=W j_b`E1CIZi̼ɮUELk-sW!-%%>L]}KMUkF?^gvT8#f'"}s"Vd_TQD^EE$\]riR6F&Br="Cb6oU8 TxYi<d߅)IGG*0pX[2Ptrh@ײVV8Ml/%W% NJc."凁xo8TBK%鼑{w"7<][CidW_ڠ/cTD1^4:L5hu-#|ޤ-W+9Xfk7ݓ$_Whϖ-'wVAZz+@{I@$I VVu*U YVi!D0(+4^n3D̓R4B#'-*'+6Iňrfv.7X%e6fݴ:s2˪/[oj„cdQ\V|Cdk)h?Ԥ*(N\;N}$+DSaCB͚" m[ mz\rƵU7>") ¾}FrNbȑ2Fİ ^0򜛤+?Y{^fo%ëQ g'۔nȉ"wkyR]89w^En@1gt w P /eR@*b"!R*E1ڦnI\D62.s[ËeJ" $dB$eA7Eh7[ bAI$3&/kDzrRbGΙ2dM%/{ͨEFHҵ &-qAl֚ - :c\t|m 'h)\{ F@KÔTqHaJ ,e,؝Cp@qa8SAR9|Kgb ^"CRq9:מ;aFf xD߻qAT=z&zE WA|5У  s $$kq߸w'Hir\Lj"$bR%'n l'`'E^O)IgJ*r|$+:r'bɖ>7T4B c < ;HZ;<2({OG0'jSDu S\DstUщ|Nwtbm ::~G'ZNI Pt}E9v{Y7tbBG'NY @](8] V+KT"nNpn'P+ uqqpbܺ8I&vp7l˺egx M0H bVݰRMDC Λ~Yt&#ʷ ՍLE%苔 h"&'$fL{ w2:VC&$i~&R.^(0wiH;0 {Ad#(yMH2k {vH@p U(.xI/ %xp\q\N$gD].Z%PkR.fNo)0OYP`?/ySl֑ 8S sJ|'d f(e̱ hGҺҨS3Œ%]O}NR.Jާ 3$IVdD.mzPybrߪ0-*ɺ1SΨ:ﱼӱOzP:k#eڤOu96e$T[LӤ %K|Fmm"m:h ,2V:=Lo3hTݒ&W 'kA ŝ'x[Tb)V0$(\n2 E 'Yd{*Îl2n&a\<\=GrƵUϚ|Wiׯ^ppjՋVr2xEA٭ʄbW/5B*YEIds"[[dw$#ym#V2wߝ05{1_= ּFjgn7u;=# ~g|I\-ŝVoFR? Odm^VdיW56*e/т5N;:RmV+eSeE,l=i+ Osd>%{o_NC5:`*=T~[Lط KY -Z\ ".F?X#]E]ΦEu !z<5EYףnh>K K#YDk@ DMAh9$[R0tIXMUc-ь鏶WH^wI!fa (dVR Kא[ݪftڪEݴfZ٣֬2Lb#KQ]4Gt2]lX)dTf՚Q{=(S[Oe <PPLt$)6Vl QT=VX4gYI`h&x,O3?~gք?]NOW(JdLrmS˫/KR^N@Fpur彵rxw~| IPuw~8Y?]|OCNMۛKzҾpm AN'q[aP:E<-(ww`R^޽?Lm!-r<  *?DU}{P?CxuzO/PmPJ<{nkAv; Kh6Slvc_O_.hE[-o9̇D-hIubkvyD[YVq, ̔tJ1_9]=|A=..W[I. Wb?@(oo?]WRo|5%g(aYxтrKW·ӵepeIoOH4/[2E—(p d FKKnA('j*i}jHBgY~QAQQVo']ps>Rw҇KH\%mXߌ&K=cZ` ;ޤ[}%UU6 #;<ӌ[+ɸLMNT^M|cNX_1yiϧ+<6wDsM瞿xyuM a>XO__>{g$3S/.uiw\gH6lvբX8_?{W'ڝ~ \Wd0 4L=S?h_;{2wt]tN'tOHi_n=r%x~WF]tw miu/ LILy{}N_SCpb}0[O:ݘcgdo?QԃGOWr'ÓN!)kMWyء[y|˫+>}¿YTE%v3hSp'sTUQ\*o_DKkY!GpڪuH+|rZmsM`>-~h4Q7wi[GX"h[Nۗ_M{#zb U* :APOgoDWuח]:{ySq}776j TzYN'K9OG#8F<: '#0fN6餦 e'[/o#ղwCFao^ }8v붧q՝W2@͇ˇ.oMb`Y |ŽI{h_ldr3Խ o\{ͤFsv{{}|ݕM|D?]>.Ar6/"1p΄ }A?r{Gъ;oer./N,o%!ڤǡO9< X{;|I+Aֿuu)KMjyWkg[i]N:{ 20K׍瑳 A _?x3kf>^]K7^&xBijz>C:˕ey—+fFQi x4Gn˟:_k,!3.X`QN~|!K9#NKao)>_ ,~Ѥ)4h=}rKt?ﮇ7w3o~x8egJWϞG:nI(]O5x~,i@G.-h%jz"WC9VDݼG>7\wXHtZ8ƭU#״"ῴX$w!0 <?fLg>_QOCNN\/<\${kP~wGɾ,,T$v*ā:yԟi8ixڻ˷O9QOOtȩ`(OO ͗Á_뜍h6IVj=m |fW " ^fT%4z\f'8Ϥg ]K3MS,8E׿h,Ծ(cM{_w-P3qĉdNw#e\'ЄwxUfS'fea>r8RÇTF dmNȢl ^R08da}6S4{<=2bV4=1%)C{qN!˺₨îWeqLYY+-%S>r}? @}Fg<'AA#>X?0?Wt?; <[> stream x}Ms$ǑaPvR|ML&VT́nBB-2\JvΖ?ݿ]P?}mvi޾jw;*tؽx:r!?\ЏJqyw|ZRwOO vQTy _7ryg^vs)*$?R_{˿t?\!]&?.$=\>,UVup`q+$54Ƌt36-._Zk_,\ҵh=h%˫*H_\ŒX.!2 W[^f~2AXNPƺ ?K ;ߨ'c4l}veTiYvj ?#gkSMj^kڵՖa.]YخNeK]\%TOuE]-uqUz= fpHBQz]ƻu{Zksp(oIrIU _PjU} WZ.~U_@WԯZ,? ghΕ}#*I+%I"_= V$Qj 6*J6C˔hgè}o1*_:KY"uVk,*!*HFnnw~eGō:8'FAbfcHX$3$K,9fF%V DjVZɫby5X$R^>+VZ V6' NGg6礹38sx&}ֹDq}Dڤ&~XVz;q$V o^q`= k{RwHS2p0^%DH99R.vQX"A-c%_]"z^|g^jfiexғ(W3JKN\}>mK(2fE IIA g Zi#V($Vhr&z.%'[5o^Z_ g\v]"GuDH_VH+I@-[#GޮVLx@Fɠ -y*x-z[Y -t/"&qbLXq9݊ƿs]3ϚO?_as[aLњ* (fVVz-̉ C- xux aӐlc7f:Szf #lmD_oqcHA  @Bn˫fX gZdX5Z!l׳Ն(-D͂-Zb<^flAޱa%%b |Sf;&LkEx4Tg5\C9geYi e~!dʻ^ 9 :휻H?6Ӻ G9?1 5@"?Ns^˹u1^u(K Meb|aY0C"We^ήb]>%Ɋ XLAp,c0Y7DB/ؿ2347W˼ث rh;/WIh;@"$o<3~)Y!`ɞ>9ZHVXwu83H4,%Ø3~C,\ 0z ɪ$+?oNfN$aeqHbϠRMGv՝N̹ͩeGu8Q1%v]+'w4Ou.)IQnD3޹)! v[pcldK˕NDn}:L ֑p V9_T7gLFY.f,ODag1bKs{.RӴq s"#?W)i==z-h2U{KK8͝v/xy$[ ko|= fd6-v!f9%8wM2N`ųhoe%ү Ʒ`Щ}R'|yL m")nHgꬳg4hW+GHdUSγ.xI>rB9͝3ù݇+7t }龘:EN۟|k/!zW9p̌g DlE[vV'_YN_uܠwl"3-*HiA3ohqmB7^{ZY%MZFHٙ9]$/[9[|؄7ZkNk\9,8b:Wz1:Y]A.0F"gHh:?cZj6u c<pz?'e[.:S^tٽ3'M0̾Dżnϋ'\WFÙ漢S3ੳMH53Z> 6+DÎ9<$byQ[ \LԮ9u*uXJ=1S!d?!ٶ&$#7$[,k$7WyL* i1"ﱃD>q/ڏ9S} JRQgL#'y.վrnSHǚ;u)x+5'vx.Hds763\s'looѭNugo/rqrDoe/L-:`2=p¢y:-n|gK7:Ezf}O\T1dK:L!\9s.5/.̝MtkB-]K@ Zв|V@ƴ,q:4#J(΄ZRaȮLXbK 3Ʒܡ%bɮ y - \d_b >bhi,M]@. Ka%Qv%ձv04Q9e40 #FTIQo^LPɌ@(ӆҪF+bM*haETI&e/a_@p.Pir`PiM>1H^2ZoTIC mv#TYPCsXXR|pC4pځ + ,m@Η0,ׄ|ee@-ɷҲuhi3P/%D6GOFNa|.]C׀6, 0,T%pĄW:Æq%9JYN:tYZX,Jס4u `7vd+2t\R7JU*]eźVX2(Jʀ*rUzH@nF URhT @dU |iT-:`e1k6(JOr@ey\*00~,XSw>`+}O+}|- ,`r@ W\Ǖ>[`|木ʠ'G0ʠf[8)~*N-݁*adQ%{"`em=tT,wGۓ* g.Ƨ߅~|gbu€iuoξ,ѳ-A&&m<]qA(Ӧ=މg-7$3}]0 -DVwuB!",baG[, ) ^7 O;EӀn\ ҂Mlo:hB;N;!FR'6}#ϞS1tOue҅jeul숉smUk mΉmoCLІ74^,Gwr s=xixn7m!j aj3p4Z.q՝@< A#"k Ƹ?hŨC#e8E+D'1ZҡJ@VLwD TsQ y)n*;|2ڣUQevEĤa(U R% pVuȫqaTCDf1TjS( ]E'a:֡7>]tpS z@FR/ߞxv6"9Q0@-rQ44H8&J[\Je<\HkiT9dbԳG<?bmQi~XeQA,R]22PiePn@M3Z$ X'@(T/1z DR\A&Fي;QqkԖI"Ay"q =j<(o˽2 ).xP$ S=E#n3FEdVHPbQ$]IZLp’sS=L ҊW`[Pp f\vq, Fy"4ꯤ9efuZmAtK5Z;3~[h$bjY.ϴ(ㆾ x=<1f9]6Ts%Ǒb\W:RzNUBnI@"Jݨ/KYa]m0]u[e{u'Џ \cuGh= Hg#Kg#5Ntd@GZvu#{ӑ;}HOldgltkuӨlr\yASQ!Cko| v(;]2KDD 4ԫ |^Au4,[0(RW|GYDO1{|02`D@IM`Uoi8Z%38Cnѹp:}e^BQZڏ"!6"IEh @⑌LNW,ݩeHoGC2r"r Q)!SD2x\cz2[duR6g~kj;1de(ds@5G6X nF8m j˄:(n9wP3<[7A!73R" Z@4LD r%q3Wt';G(Ӂ D4A X6g[)+KF6kL ԭ>Ԭ--Ƞ@ V0(TF)P,)`ǔTJ_\V0=ƼVbZ-=cDZVh[ M"`$m:wMK/#gBI@%#,ʅapQZֹPssDXvP8"YO&`â2"#рhYbn NR6RRuOF$K{2聟r*q$ %Rcb%n;@J^f̟J Ckm@PVJkDdA%pq2IPeq"@DLy0ڮ;JmTP,4J2JPH+$XJe,A]`]қ.aXm0K,7Ȓ t<=y(h9e@McrD:mAޙuZΜVԁ}UcKDڔ:B`2x{>[U]+gK`Th ˂wyV,(y rML}syy}\ '({g׻fݫ\Jd>!A;h{-/g Xçވ.i䡽K{nO}ĮW93ʨf*Ng&a2JJTCNj`mPoⶨJ>ol;k^q*6*f&Nc9FWidOJsr0h=FfTawm CNuVy42CqAQn( `T7e J߹KPNc;vy/}i/z;Qgu;e{t 5ވk `2S/Wp"8.-AVB]PC'|՟~%U|䮬@qǫJX'vU՟W.~ʄ;[V+؈fۏWO?~~W|7ԘXP9޾np}SIy߼tz||ٿZ (ё̍G 6q> V]|O:eJx*s9Wۿx}hOO[GoV$8>? nuq&)_{w_ǻ#s MފqM=.ñnyxX^˞.380ESUjs|{}C^=u1ޱ#{}zoXڴiu}rFO,z~m.__ٍ#MY߹vSs7-6`0_~S^̱LO?J0Tʶ_fǗO[\3.Mn](#~1pXCGU 212d.oO]o?pPwЩSrpۿ;=ѿ;+ ,/&Pb1;-[/4d-HGL*_reϯwzYoRDP_%ϤK~̊y?Hk>ٛa=/0'2y.Sq\m4}*nw~zF̙ҐrB tw^O*,Rll|CJ~˻7%6_?~H2]nc [goDf_UG=U+/)u т~ԇu$xoŠL++m/<|s7Q?y8}J-na)rgܻY]ؗǐRn R֭^Fǯ\g >WOŋ;+~oo՗tQux9[^:t> stream x}IsdɑAsH$T˘JfC5&uv!+U!6(~%"p6cyz,񹇿ع9n/oK}}pN9~8jC/>~~ݮzwp>^n}w>~p>8z_:>?ϏOQoǻʵg0|{Gxw~J\X:=Vr+;W|sRNW';GSy~TY_*g_]og\4 eR(Z1.W7zvs^I9`?ϐ17o7*NǛLOϏϗk-5+oRf ?n9 |>?6>CLJ|?/ y|=h=ϲG+|z| /֔TԑꊨXhz'OhHӅbJ_( VJonDsa{7$,:>uۡvs?nJ)ݯntu'Q}L?;|gXfNU 1 sl t2n.7OTa>|I@gz|`Hf?k˻+Y?TvC?w/_.;,mΝw:SXiݡJ=F~Z4-zwA&@6Y!uF}rD^!]ywPZ<"T$䚔+Z+AY*Vd M |jkD2&eʮ(iʥ Wr/\Jכ1RNEJ8h*_p/p-Pi2اbh_ a΄Z.u~8Qh#3Δ~ $k2TOQM=00%mKX-Zɇukg*D$#HBliP$FK()$b@K S_e=w +ظ4RNMy8U;aA H^JgYn-U'Z,-ċR7 hb^Jۭ"1Ir&?0(@Ih֋eIQ&&m)QE c R$&wTNR4UI5OE)  =P2<"JȂBbHC!#JO%s1kXBr_D)<\dHL^(D2T \Ax[ACL!9i5g4h3ViXӃ(Ef&83e1Gb""Ӡ4Nw͢PH΀c%C Fd_aYB1RՂ.(Yl_D2vGgDi:K=y/9Q'4N&xBbU ST;ha_Rm J}V'&JBh@r⬆!b!_`SHLD&4E. N-L$.ձHټdkżp rI SםTFP1F0/O4ܨ&!. nf93B5c#.Q,G(Eƫe@Na0zLՉPf;P0Ih'7MƲ a)IȑQJa=#JԅXHPf*g!9a^ QBy)dP楐fWX3k\O`^W* IBan`^0&J!9 U3oHD)aCRu$& Rs%1JEW@BfT)ʳN~R?N٨JXAУ!PBa@ v A;tAi "CA3O AMdià8+ɊA.A=MBy(YPǂ#L s[A(aJPbPz {&-PA!(mbU&`i'J(vbP谴d4wTmqOHht @#pShMv@cr,,_4(Lnş4qb͆X%Ӯ (֌RV&o P\1n PTJ*Ah EhE< N8g4 N@lECp:*M5x@B"HEOQE݊?KVl1'EЦO ̧>[vH> O膔g#}Qb n>d4IK^4}-2>su8')6:͹1Ij RJ'Q𓺨 ihm'p-^C}d0eBPlRaК;AkOtbP6m*O J{ iv~vSAI d-{APM*-e`xn0(,"à%8.à/]Q`.à *2 ZlKZQX `2 Z U Zl 5ZrVWZp4* @blV'X:?kPSfp>0',4eGOFw?Iel]aOh2~r^6 ['^Zs}Sy>D }V7D@U6.nn5S7:( A1VJheӾV<'#i}Lρg`^^EUoMװ:UC Ï1)(nU0`^Xpe2X0+ sn*[CItfK]=q㌢-iZ}$`1j!&RV[. XevV ۂDK\8f3|^j"3!OCmJө)b ݵa=I7- b$n".&6Z2QZیS)`[:Q ~J^ ňL> KynaH"3eŶid_GP.plDGdvqђ"0"ˈ*7Ji"t+ `Ri$t*,LBA.6H'Zl`:~'nD(%p!{B-AچB#MXt'#I)1E1Y=̌<+P@sLK̕ @~R{Q&G41ȁ8B< BQ4FwjG(EyRladŜ&;yMl90]I({o5x3N.G X4aХ#>h7E`|9go詙FFgFB#B۾DFIB! I|!!Po{(DHHixJcF%=ͪjyQ O%`G++:\힁0W%і*yx2] ʉq;Z8"4 +qo )j2Ģ8d-jPd~d[5yZ25OE]+Aqm6yZ=}lQEdə!5)3E`r J,sX&e Eؤ,\H++laYJH%D?Q_N0.l`†K). R.1p_wao#ܦw(6k~3fO-Hn`a2dL0/LFYd%,,: Q&2E gd,1ZFlH$=G~ [4Qod72˴Z? 32ATSM7Ƶj?\Cע0cIMÊ$1ʚa%RחKi__/}}IVXFkhz{!m\I7҆͵fL>3d {cnxhA%'9j JlD2bn*كH;J䜔:ħ4*E d4@557h )5Ic!(V\xQ;9*+1q^ !ZL 1PWjM.pcB$guJ8Er$c4*!qyMI]:!qᦀR>; Uj jHN74a]ēNm3ΡԢzp Q>$p+^$lnjMA倐MnKfȍh1I<('Uipg>xx±>ǕM.r;[lM ?qxJRCBM04ojz A\g#)3KI0mfv䠰M9Ӧ6*aOWI-XpD^4:e)B'9!JSqE~9Oy98"JilW7WFb3wGM2H)jw*7@K(m>v68Qp JY9EP/qGi:id=׹xo!˱8O\nU¹PUB#p[xVFF:\>aRN4UhPy*wݒEI( :!BL/bz9Q% @YUJcn$z1✰MosޤllӋ jMޗgͩl5ß6mڪPF/PL9!O;c ~Pj#:',4nzÚ>F')JS>[54l;nz >1AOD>(06~?-pO;??J5?<0gԜ3Y4{zyÍ? }ϮA։?%tCşD4I1ёOj?iE?cP8g ~BͶ35 N5Mx ,iZ#\VN٢\ş ROz$0<'q.f $Y z :'b3ʡʄpw+LcN&- JV2(NE(M&En@u^OP&( 02gT43V93iĞ\65yzbϢsLYaO3Hygس/{v=ESH)@~=ٝl>Tgt&qd4dO&[g,?fLY% ?hvfxOف=x@T 3fX' dO5xϨㄟ?JQ ?i#W khքEq4'vO.M&I'rER~"RLO XS H)>3wv+I&L;g)L5ii4idBQ J+A1hpbЮ/ PՇ8 *BP ʹDBQ lw -ɼAM߀94JKHk@R 5Afȉ`eqBPZFb V22jCte60jRFz*7@3yl11^ȇ-Xϑ 9u= s!R:܌8TCbUzdR"o׵{Wxª#kD~"$i*ҕ 61U6+6Ug\W5(pE'hZ /A\0<^M0/4_&DNZSt&tM_k3[j#[EW kgCǑ9+!I-'L U6 >Ҵ q{ ?V8}xx3Hm\7fi3O;E# ;@vvJP4|zrع:{Ll|FRŧWө}~ח-L@[N~i4yN&DHS#$ӈKn'K%jS!e BJveج FDwg^A |`t4\I3 di]cq֚Rj$Ƣ.gvH#;ٱ%Fo/׏C< _| \O==<^8atfݫ~:_b$WfB`k+p|8?>_?~o!"6l*AHa9hk4Jx|a~Ҿ6}]W0Ѵ,e %[B6o2"U)M ގbkMVjm;\-ˆIӒR~f:"^]^Rkx!ljMm&./y8άl: 1Bf ,mQ*GF phCQB{18VVGz-6(:=KcV% =9heAQ5謌6Ƽ^jqbY5 v< F^fWOx13/Z,m.&rcԐ '",ƞOzi5l`٠7泼q1)rދVfbf ,m.&o<;~A]/`XXeɂ ר[||AF"'y_yp YJ l5/m3Jh'hl`˗MʖxPW66|ǵٶ0y> ;8|i*bRsYل< qX,CAD:|!~PjWwzqCQOz2#@`gi׋w|(l@QzR X*_sfoL ތkp9 Y P#ɁѼ`J%$f sc!(a0հzHd|pXaYeL"Kfv7 HGfBMZˆ-DD>p+^k`r8Qf\pe0P5O>-~=]"^C.l=_@.+-C4Ň!@?Ll5}jƘ\jٟ|k'%_nFeIK4ݥ\b-׫tߵÓ~R\ǝg2& ŞpsϻlӼNd2nZL1N-<.2Gvè;\ x<Ěn>fb+IyՉb"iͷGl:e>LrOz~sP | 7Yo*/0v@2εxٞw+VBZkwv=?>ju5~?{croXûq\;~F? O. |wl16^XANT~p3/c~g;X{B3ѐ9:y ^endstream endobj 408 0 obj << /Filter /FlateDecode /Length 6265 >> stream x\Kq_Jcq]AkhE C.03 ݋~QHjcS/>44Մտ|jZѧfk@8Vuɧ+VɴnWW~}Byح߾z{|wDZ47%qtx|~{ nws/\rnV?SW0e?>0E;+o7o +b^?֍c-~د^xiryjw54cB&RJixqi$1:_h?¸&<zz_,E1:p{8 uNfs1N@q)F7|KW̾x+4_}g?4g4|.;w:vOcc\:UE19]ӥ!Ubk1 jAa:@))S #4O4RRDKsA<OOׯn+Ҙr el_;ʯ4\8=qGpbxb#؞\ǒW.q4?՟ ,&E%`Q" QEĢ 6EٍyH OK%08FoA"^As^EC\XU@0$ T*ޢĢ)@%D]eNjvcJBA [jr)Ѝ!ItYPH(yG&"[y%jyfP"g%jyfP"g%<(X'5Ŵ<3 f8ciHsI3AM K?sP/O3'f{nK9e3kO[r"g@7~Voqe}zfL\zە /Q_?Pb3Qa\hJ:Ҡ(- 2AQZeJzi- OJi) iΐg^ɟn#cʘP*aT5}׳tdow)2dDJdjƒ|{g [,G 8TN0ɚY[E2PC%P>[3}p5 Ar4fZo(9YnMJZrm7a\dɀ T Nj*j"\PC$o+0cKF"Kތg<"Y3+٥7TDj,H@ w UQAgˆW@) +?v"UހFBfRm;:]UT܂;6AM9C s-8ڇL^y(D瀈 ";bkBb h{ &[ ]{&* b 4,JfG$pvriokCnQ[',64ܪ+&D}^;sB3N.?;sTE3'8N9dqCJP/_F؞3?{mX3._YNx %B`f>IcbB=85O,"*ؗ|BߪR·yAĠ„ݲ*(/aP"(S:EE;^%t2[Y%5Wګ J$a/xaB2|R5فYA5'bPM@HIZhT CI>#&(\O }8ˑ>am5u4$sJ$KB$@mYjP"1(ҎRE,5(XTRE,5(XTRE,5(XTRɯD%)/RɰgepJsartgN%jdlft-{ \s.S=G%C%.97\>%XY.yFzOs6b*K0y^TEieQ,ʢ(SYEQ(J+Le=Fެ*`)z4&kiLӘ1aԥc/-\ukXukXukX>LksVa=ҳ9[T/ 32eU)Y%OIl@& fZeLZsJ &d!,)-i)1-j֒dR*1lr_50w:/-"UZ|dYQ>y Syi(/֊R=M!x5 r,xi)/-j֒ es!,: ^˄zƖ3Ub0gP+Ĵʔ5kIV2*1\2\`@Ighi)+Z_J{8_|he( \XiЭՖfUrf¹J/O,,G@(JIw ʾWiZI"_0ZS. 63;> uYXbC*O:6h܋aBnm7¸KRq]4F>E}9!t0 ھ $Va>k?Q S X%OV o]iBKC8bgVB|ro^7R.4H i8Tڏ@o7KNm{"G1 |J>KM|^aoG8ԏ]Mj@B *>sͽa PId 4F .7PF 1#nlq 0ܻ>;!q F-[ɰMD6Y7B%` Bo3]'w7.NBl%X`0]”rH5frIᓟ c-q0-ܻht?W 66whJX^+^T)&tM!-//N~/MǀP' 598e}p3#'?hhyn9/!_Ub@~ VQ"S*g=E嘐D5(XTt1(XT~Ġ`G)|J,E^ j۟(O]0uSk*td*8ja %ABG+C=yn5?sܲY!TbS3E<3(XT3E<3(XT3E<3(YGĢ8 ~%owu[\pݞ[g[nj qs˳è7ap AAZd 0@,Neg>Ӓw:%tKXϗb\"@],2 "@],2 "@],2u,P'a r Vr@<nj4F5Yw=kK'LH_$8QP4 ~5z֖L~Ea*8 86,aXso-I$|4lZVȑr:VwM,aT5}׳4)lJfȂ1tNʁug i% ^kn,XNa cX4(Y;Lf#Ep/#|0Ae mF5FK.Wn RZ- 4Qw-kE}9f&H*qc݅t5mX ``u.HA$o#lkF"f`9 YzםK &-iEI)6tgb:b@5m4dBb7n;Q ,GA#+hx|ro%/ɹ%m܆n[HO݂ Y`CQCx)㠱o o$5iҤ{:S.mS!Xe&Ň(AlhJ_=vA| [{ ld,h@ @~bl6jhN h\B;H )$Jl-wքN~ Pis!H_9w Z.b Q ,G7M^;q̡Kۗ '8cv$bJsQ._H6?{ϑ&Ͼ& m\[8l?<_{`W Nû4?2,:P 1žm~5=(/ \^pRqc 臥1͵[T4sΧf>|'>;ya %uz>eXpAoW)=>wodp|Zo=a D;\{|jσ^V!34#~vN\i75wiL( Q<3f'GB3Ya%y<ޢGs\_/ J ނC#4YOI[b$.!i*%ڠ@+²>2,xxoXqI^ĊyAWhB-70O6|@Z?kvJ˳O~Гz,xQ|d.2,9Aƈ_8{ny,uelo7ϏenƕWɧac(&@1pV\#%ۮEٮ[3[(g4]󮥗`wۿi $(LkLݭe>m\naRT dg/>nu=>{9Smom&^h + ~kAhXK۝,Pn[{p=CP!ack[ud9B-rvQKu~<(V݇Q_XEe/lSqE{CÃgCϭQ!pB8Lja c(Yz⏆̹{0GlH݊%-7A@p3bEܶ>#$>hO3=v}o yڵ7׿,Ep(?[}|x=wćHW=5 d~{9-)4X&8PO */Nx)uupn῱cZoǎCZޞ7EV;Fo">GkHzܭh&jXtX{ӓz.aoPX.A(7X %Iy% >p搁 'W߲7y> stream xO6WEo0$)`F/ {,5-0" ϕdY6=/3L&!3ޞ~,[ɲ 7)yxϞkI;?˯y,*5z},EK#+8Y[\һX%~z3*ˬyS,!Mhuy52>Qvs]Yg)*G_mw ,UfyrrjmE,3r/W!*G vSm=uG/]rzow?'ZCEOv;wuϫyGhQhQ*w:wyGy\x陫["zcֵ^U'emumL[bP>z3$동2 ,eVSfڼ Y Wf ىGjYk{N@ieVטV:cʮ5AYx /Uٕ~҅nf`Ensf5tՍ+RCsu {wW&ޭL="Pmުt\ײ+u=ޔ^LՎZ˴J{x}+^]sbeg9W2hŎ*~_y~ޅ5gmPK.&͢5 /e vOt,_7ĔUlw/YX0a}2.e5ǎYݳ ]%m jM"gv ZRcFT *y;j=?*eK euN$*uzTV[u̫-4;Jx=% p5^jueY-[].W1\~dx/v[UAVRj4?ot_*yCjK(ш BYv=,֫hfTޖPz J2Ev:(k5!yncz@ӊ"*겚 Zd" ?[j>vVԴ톊6j7Çz k{.YҼeiò]a;Fe_VY?)zzQf.VmAJPQ-kk)#S[>{YݔE.5T]m%׋B/Ƴ@jb T _ wk_X YąmA۴ W ~iFZW'#V_[C;UhuVGOX?hJ m5uSk']2 4m=w]X ݄W֪ūvVC7L^uA顬f#q^ W3W:\݃q}ǎvmFw~Yj) ϵq]27뭊NংSߍ1.=T_G Åi;DJ}wWG<lِ'[JO<>CGlB|#M*9&*hr55dCmle6L.H\/!Lvdwz@ND%̛%{-&;2Xr Dz \ԈKH ~Ir)ː${'ǒ$ ǒ$ȑxR92 9dմA$6rx|r  G"Oo'@N63 =@T rr.@!*qjEG"7 =,BxT.E F~^cYo\䇀`ǒ  zTĺQl|TeE/9r?f 1կ:bWJd)7?HSo'?&QT׈,%? j.Q2p)  +%z Ndm,F Gwg{/W$7?6A0%@0r $ \7/o'?N'4ңEGyp?Gyz?H%1">j:ف3@ɑ Q |d0"@*Ex] sy(AGJ;?  ^(Un|ǚN|n'>j|2Gi ?~o~.~\ +r0#AƉD=>2UWhcWc]=nw+JcUSѱ2! pѱy(eZ=NjEYL;&\wn~= MŨ?ev3#fl?_j-gVRJLC 3"ՙmQLJz;~TCxĀfDϤoT|,?;eRD1 C|Kb2 ]o:;u(hJrvgj{Sz:QwB0yb=1>1N< ˧| av tb(y`+b8zp1b=\{{`0)3c~>>+lz%s@JPqAPu(ϋLTy.xQv |20w!)НpO 'E@ZB~OB Uō6'v-Oꅨ+eզƅk' َ()<":p}{4;lŰ;:0;:d: 5n^6w~ #fCM^cFЏjxC5 I?bp'Eţ>FJk@YKDiVL}+Ss9;L׎kqiew,/5ܧ-A[A 5!5{,f1Y }8% Yp޾vJIqOCH{Br) *"t ]ihZiy-@OC+ .OkaeVVX}a.o!,ܽ|g+W~tv A90kڣT\{:=JŵGڣ= k2qQ hVV(eCY/_6%eCʏlCx<.pQ+:PW|)MawK1=Ūљ,길;L<TZ  R[(0>Rt s<3..0jwKX-iA^9tKzR "i\RH$(m$EӴWpfDgcd\c\_=KjOR{ mRQK@INXJ{'zēt05*,e('ՇHK#VPÏ% 31'NiKL5fs恒b(2Q2(ahD3;يFcP~"Ǣ)hgv ѫ.r.6~Z^H>_7 D] -D;qţQ 7ADԱgFJ,oA D#PpIl~Do{ļSuDe<|uLF;P uaQ6l.X8&QR"WΜglEKoxfE{5E= 4/eR_߷m ?chYX =,A6 Q4 !T^UǸI"jUi/RjZ)nƈC(~Rm bZ ^`Rnampְܠua-|LgnZdY #̴%k]h!fgK-ދ_6xn.RM؏K_r ps qs 0..No!7SZ7hk@RWF /ObI9/ynJ/o t-oS|yyo/!_܂_o{%a/"Dtm3;I&8Sײ;y3cz,͙ș1 9Sn\8gb ?83zq" O̤qfJeiLLAn$l,qGjpv 7grsfJrv^p͙T g{s2ș9S3ʇLvqs.3G5€əEh32LiO\-BzșZ7gZy !ə~kEDm|s.U3WӲ["{.% rN4VL岛3u͙%hj9C ԅ^2$ɵN379s3g"3uL~i N]tr=_sL]R{s|sfs,dLP2kܗ3Շlh13N\|돗6fj 1s=#:S*`>!S1^Y!gXLhfؿ43*P3s~$XpƎ˔Ǣdpf4Jk $Xl֬X,Y*XsUsRHp&ApXL5ua+Ι-foܭ >͑` $jK*1E~͙UzrDAܜރ9L ItT;'NTڻhS\b`pWNT#_:q*ܥM^ld_s,sQɖ]o&L7Ol|X f*/x? hݞo֘yUi:/[h?Kx;Q[D;EUs>Xj+;IŌP Z*y|F+~lr-2}oрg1'FأUFtv`»UܞoKH/T{ Z|+|q[֏,a|˷b=\kٖ1`G'MP_zX+>pa …z3=uHbI G_p4z\*F,A A05k\Tg鄒Y0E;pV^ Jtj3S\T+yJ' _FCY T K:k{w%ЕUM'n[]i'R aRvSg+oSXnt0 U?X?ʷVHh خ>vNou7vV! bw 1y,%*dDCG&!N86_ 45]rO k#gb2UKģB(`vrO<8#(NԹyMh_G( ZW: #}䞜km}|NJA-]Q2 9 Y϶߆姩8mz\w|O$!<:MY.#H2a ,\ҳCLrrS혪ۓjzNi\Nei;Rn1\hILN(0 [BpC)ƒi-Ґ+UG$&.ٳ&d ?d?9Vv@%g*gޥ\t X9WPJ\B1gy^"Y?ڈ'Q( f],uVp RGG(uTdd;/_sIi\P+POk>u-GWݘaw1zyإvk+tv_cV!s:1r:ʙEtSa]E72K)A>W<v&Cu7SKsHx9TжkFc[Q>D~a*H>NLJ0 =W]k3_u~AUC^~`F!E ݍ4z=|Qչ*B| VV.U X-Gw_ ,&Xu\JgJ]!uUr 澒[ueyjU>к h^e1_/GK}v.D3xXQ3ёG1xxRm: aRstP2vf!. !UO|®+y[U]⊇oU?zW{[W< M4BŪa&T^_V zVe*#G1>X վːG5.yV7A%*<:&yT'̠8꺜%OѬ.]Fj`тaG <eȣ^'k>xbQ5oƙɣFQW<W<:xɡ$xt%ǷޗG ty2\ɣAeYɣ<[1wQEkP=]IƂKu k>"0oE<2b$—gFOhӑ˅_, 2߼'~O}G4WG1=Y "GyErψ茚+R0f$;_/O;#bWԬ &5c#]ѷ~ޯ]:=$y3XwgRgslugXGw̱92e yޙwt%\>S.SNbPalgu/1{vT55K:4\ # -3 ]zjz]3ītW8,Ι=utg5"ܜֱ~gеͻBWS3=`K;T?E~`KLޫ.Ur3 kI'G)(WZ8J,2}=j*Xq\wRuG(u\w"nn9fRj |~`MNL*Úc_Ysj߽6E`.8Hn/3IipnS[g+5b3R}Vmҽm?¤P՞jGPkY}lX3qxL!Z7y&z̄ ~Bg)[p`$~r8f`Ϙ=V.GFR|9~۽C` vt;g)f13'LLy f2*gjff h'CM|Z R' MP-M}D91AF,lzq бb#ql:.[Ԧ@5Ka_ _"qӵLtBH~7]ӁK1~)xIz?M6}!dX BXt.[)ЛLBJa.:pBMü~.-VR-e:0j:eVMtRc[{k!R:a`uϏ8PprAoai9-MÁۦ-k!pqM~ym nxtoЛ'h훵b?̰ 4e-hS*?Y)zn. ^|ra2L.9ɗP0`ٻrdK7!iU\0%;L+ jgYbM`gع>bu&97t~ncĤK<9c#G@ΑN B JrZ s+`Q}@NЀ_n8IpH_9 s>7uu ͙͛p,A)xA[peha>1s#p0L?Bixt9ٞ4ܹH/*slhHs)o&su߂O&FDQ,p]0ҥ9&zY1b&Tu8lB <@Zx:ɄD:H&WØ?g{} K~zp@S+S)AnJrѝnO*)%;Jn9Ϲ]Vzӿ_ڃv *yHȍWPt]5MMckP _ӈD}EctD"7yĖѤD{S:;xzm[$ #T44VAD*7_ר41aQ-&5j֮s#[t̜c1r:&_weWO^>@/s[죍^'ogd s`0՞*H'rySe{v܎>rLɹ!ґO:,[AU5 8/]ntM 3iE'vS]9t-1&=ݓjy÷j-6ၵt$wtל(nSj&s{jYyx19eZƹsj \ iTZ??>u(\ҒQGis-Qb)uSWXd(,T sr*(*(x^*vր.g *W)MrrpmrD*vu;PJi?E@Tt2Mc~+GɟNfWp9*8JEGTTp:*8JEGTTp:*\x:|$}Mӌ̫G 67Gt┏>IHsMw~&7ru̓ܽOm_m77 &{!q`4kE|9a_Ɓ։|xZ`=`QI{ \`VŴHh"=rZkxqfo639R"jٌ3|vf_U1+,Q.9-2t yH, /DMo=g2ǥ &DFZgȥ4&DP3 s35HXgf.Y`Mד3f'Qi"k 3ƙ,uj]kT *LyGbV3R3')R놉ϙ\9ߚ2MItM3" + UpfEx=PtREy54+0TA^`3O)~iL(ni5rySg I#/Q ڑCc~*m7_ SU&[dU/F**iu?zi ^ĝgڙo/ (pW|r;F^f)^ě+3fM/f1>p 3''/Lc|c Q89,I< . ɣi7L"$<ʝ'G2#ݯ~<\.EVL-QGR`ͣͣkh^m{y 72D(ѰCf>c<1c4_E3򌗀Ct&~pm~g<8>pC_^LJ/Nj^9I\w{`}KGy}}!F5ԋpczCˊS0|W'\ *sg3؎v+ ;m`E>AmgH&ivZ)m Rj僦q5:S%}InZݩy`mHu IoԌ7J0*UINЯpA· (^$bxgdυ ;:ȱ,#]=#H#I"ZY",F4Q}y}EF"~Ak "}# xtE##LFM1aŌHYΚlh&FDĺ⎚dd"<A"4I7] ܀&{dw uIИsτ%e-`rK сeT9 GEǍ|.^~J>ȭN0OI'q#^pt灻۾y:`ڗc.ȕ 'M7pCfdG(颌r"WY~󃼦d(g"ZR;œFZ~}WXj2/V?߻xG7͟\3~h}'ee24ݳ.'okW۷?}oo{w\sBV/7~oƊ.oX9@uL AMػ7]z o?#V/}|w׿]}_]A(#*(*U=7Q2[QgqrReA+w,y:aNZA~L:sNQ_i!](.%:tQJ{B٥~ffkM5 jeMK)|g>qT*XuT hmQ&Z[:Z[EEhmQhmFDnLsm|AhGUW,ki (*DE㊢G({-QN aNj9S( AJ$%s;b!*a~fOK6T CR0(w)X2PnEts[Wydrbшӆ*.X*`tveWF[[4FSAxX4x^4g%~#xUK 8`nT;{>.jR;f膶G%;[S_!Mߞl鳊Ҫ=YѰlZD>l#b{FTvvTggORD7Tg/hV]&$ODwSi*5uT(͞h*_ӟ!_0xfߦMsvhrת>O6V Wm_;}E?Xß[Ύbߎ[ wM/`2CT2q;^se`Y6 / =eoKM bG ~[7YɕJjP0J3͎(-2t(pNtjStM.:Lo2!AD7ţ[M)Aw*35-xo:A(oY?/7;b^'*;z-7Xcԩ\#M xx1 yzHEjMoV,<ֽۿVV v=G";!Rh R͐H bFȊfrt4H\OL'&B![!!&Ȕ$6Ȕ$S `#d$ {cd-@ qQ JzM5>7@g!gisy RQ@JGH.B**%]B*$HLP"_ RbRD(RBDFRHM)nW6@H z%CVr dyEF؇@DH]v2dci!g H3H+H"Qx , r @"@ZqzISflj|dc 6vB->. @3q~Q)'?Jj$,"NHlo%?R6d>~܉H ȏ_Q =hv࣎*^(Fz"w}uHR&<?EGn>Ԁ!Q_Q*}S`G5Ŏt!r\訓 G( X :^(HnԏGMrnkXF9(1Ca` u^Pt?Qz}F>66*ȅ:@΍jy-e Qp7.Qi2O pl1=@`GW2? jTfi~qFl0Fȫ(Ga GtB̗G28*e۞8uhJPu8kRqV |*TW4M2Nj-H]N| ˖.U{rpŏZS~M-G1~O:K^t@DwX7WP9ש,?JAJ$LXvnG)MQRP 깢(WRqQ(WRqQ%5>*q]^#?篭T#M~_Dtgp)H/|M]jjKCf'qq*[9z2*{'q`/'N L9HXt eE'qi9km^9\܃S3MfyA> Ķx"]C ӆ0 /vSc b#j{}z<$ڑyxdv1~FKt4" ̓A&+bᝨ. #Z#EtEDa"FqVVE;ToBЊD+C̻Έ"(^` ErkQ\΅#K!>Ƃ勰5}݋iq}D܈> Sn~ J"0Dv .#~æu۹d)n-!$¸RE}%n~[O" N8,A\"|胉:޸@D:4~OZ)':vsvrέ=Dg~9"̉CQ҉Kt4zT7&=š* N1i.a{¢^|c`,^9goMP/i0tM,6,r~b7E{ೖt嗀`ƽ)ʀU.{9I 0 olՍ ˏ"!Bg 4qL-Brm[PEBS|7 BhπP] ,eWHO# Tqb) 4u!TO2P]EXBaBĽ2Ȇ? BceL@|B',>8B sں BuI T:BKZJ(2[P)GB` Y46n#+ p&mTB(ʼ>BmC(:pCs'F&`@.H T]*'j6&K [`[P[pAU9.;p꺃vAЀPyxP)CBBep*Zi/F X:|2d sdPfVA[4l`ОxdP_n0'7vܤz#?+!%6Uli4}s&.X!{ڸ9"sVs9='BϊmqΤfv\ΠNs}Ys?g `Κ6Y WÓ9kZ 7sP/p XAA,XYY:.Yb3aX|Mx`V=XSNkJ2OA}d&m<[c:.O{:;l7)\h!R?֧p*]5(kG,Q 5M1$)g-!vd#ey*v% #-fј#bc.qkG~n?"̂l;-ȷRy hzЙqqI:p^ga nGQoDhێ@k\Y 2_ #5ZmH k ,i,A=?'HnxMB`(t*411q}%XXjB?S,0SpR=B@[%Ya@'6]!.+=tu=I]]OvT_W.$`T|R+C$ڭ HCӳAueƯ4;aǒ0 o0<>u!R]$|ݺʨ J#I4#I|dp>A`# {uIy8g+yWXhKخQWp^h A3SDF0յ3Fs.kCyVlsP0S;9Bt]^fM3P (5f`跞~f 9zȉ6B\=DW(Rсe^si+b`Kų瞋sasa' 9o˩`cmKAU~hJeh=a&ӽexl'{^X?2*gT[Gc6$&"dBm#]՘Jؑ 8ZyتǪW{J8V/ZVfe-5+N( @ȶ RPRUL9KQJe(QJGzwdsgdsl.|%*8Q,+ RQQ( >׬vw_fe<1]Z&'=Wh )G1֥v)< 7MZԵ/f/<39'b_YuI .w+ܪS%f룫4wNz2U'FZ?ƀ;>'3'XRuԜ:1jpQ1nU?8c[M+0y|IscIC|5wcm0qPkYLc~KYTMl5?>nsFՀqKgkLWg2+oz?ں|pRlTudM%cUR+aU'|jUo$Օ'I(TR=k7셻t$U^HUEυ9 4sR iTcI =TTx")ߢQ!Z~aH獤ڲn$D@Ҏ6e")wMHJH=, Ց 7I IFRHI]n$K@@RAT'&J%o$*@$"D@RD@"nI_I5E+!Io$@uIk"4I+ZFRnu~@ZwDҀ@ʇHZGI% w#iP"RʍFZ DD K$ *I+7Ém#āl-Ik#io $byꁤāhH:yf"i D&rKɍP iüF[m5 WGIfY%B.7;MQ֣Q2ykD(§S`'Xrg퇭%hQ}^K| 00RحT q%zkwm3D/q$y G6|Sg˃({ệ̝}8{؇ _&z =vُEN=fCfO#H{ ݦ=-Gp`䈖&e ziHq1135ˌ18W(9h` > )W áx}GyA9O A(h6XSOw@= r{ŭ]h~'Bcdncj]Um} n/*?\> jSډf5 ' Z]H봮㋐{aL aoN&t<OF|ā{P&rYX,CxMХ~܎;6,ʊQcBk9P;VXg#≘7 +9T 맽N '_I(vrMSɿR[vO51m|ӥ!yƾA趵+ ѵ+vr['q>3tseɑ21GˤcZJZe8GPltl 8Gg0.W97p>Z7 {Mxi,EL tYbM!K)[4g@3K,]Ӟ*Z g@NMC*(NWMJ;l)#(2k3zA ¦{uAMgF;r)E}6 ˹uR&jt fAKTkgål4Nŏ:Ax]l4TX[vO&Lrn41iD$,hY+ÚfKҠhpk)³Xf~4J5ݽЃ=k)dx׍quRSbC,mJM(\M=LnW?qSvy-lg-btd7A9`B0),eA1,˰!Lfs{S&Rw(X sńrf7Bxl8O1 ~RЉ32W2o ޓ) l ~=,Sᚂ_w/l)leS3)LڀgJb)ݿ;uД+Q)~dfw_Ҕ|j7@55>+oeM~{x=÷5eB1ooӧ ={BhL>+^ƽfS2m >uڕ3c)rfl7+gvS}vW{t(=qNwi7yVMO(K$Jn $QB&ъ{(d(dh%D+FMW$J$J$J$J$J$J$>h@ 5IDDD;"Hld QKvah'bA$ɋA$ɋA$QD;8HA$: 7Rf eRfVHHt| DC  p jh(A$:,6$:V7u{qˆrv?|sK{=󡷡=Rk%\g _%z4uL=6{Q:6e!sشv.GϟƫOAi }]2hDthEzhQ%^İ7N%I1Tr N1rN5<$>MDʀ$mrEbQ0b{iL~[~1 dn6j~Cdhp O8@gOЇDՇ:ayy7"X犃Bod6\ci"=P'A%TOxC# cg6Uh(W죱!4~W /sYE5Ui<ؐ31#LHlG_ȞIolg1oTw<;_7ۇƏ#ſPW6j,}ނ(JkA0 le/B^*˥-3l.mY2҈ְʭs/U[,]YNrn_RZ]nc67vI p>\_[Rco8lYD)hR42΄jԊNJwhi:^ş^?hij{E h׷~֨?Rڶ?Q YJЧRTR:\oRҙUJwdPJd߈\r\(54Yѹ#.ȭPBX evɿL%DzTTp:*8JEGTTp:*8JEGE6-{\w/iqybV#5rO[&C!m0J><5Kf(ڐi21g8t43R3 )0̎q p=b!CWsW3RwJϙrr'[(̈m*I/*dL+G3q)6C6A2e9*g^TP,{W$T`yT9snP&`%D|M{ب8|0.x DV9Lk;^W#k gbUSXQ)G~S@ʵ +>-Spapp"L9r^@S`_zⶈ gSJ? \S(89f!Rim)g KqPa2tŧ/T/;xjuw;õҥx( B?Ts4L/}*.PҙTफ़xU |Sh,ы# }SqPG ?7ůs_1 !Ne*笵i['B I[d= VIg,=#*nXHZ:Ick@9^M HDrӵ>Y"ik&F6@ %T i)I "]"iHڸFR 4PHI#kw i/H>n$@ƭI%Aa~AI%)P"i+$C$@ґ^4/tp@7"sܢi#)Ã| iHZ> NDRFRFRs;A!I c} )Qk#)Qk#)j#)*hHJHJn $%6DRnH$܁!րT iD$ I-6l$I$7IR $`SFIC $%2nHJ )@-IC $ H;HJ i({7B$ !t+EH{XnenxAPIC $ 4@:I@HZ> )HJe#)I$-JU$r )H=be#鵳̩Hzt)InN@R*I$T> |@R*I$r )H @R*U9UaXJzUש+ʳ; %j#V%VjJnKbX[V2K`P-˰ߔPm %޸} %PzzyGM>Vg {ʝ KOa8,;H "ȎIy-w7ncNG|'-{P}4:'"Ixb A}{Ć;ZEع!bxC;X׈p{(t4 =UqO簑).#>?< 'o:q{ ?4ƇQl$7>z&_20gVx8ӊygxA[_TGS*|#+jq,'b3)de懥w.H\ALK3S^uƎK-HLIJAҎeH6u߹;W`oV/koc[/./?y-\^p\\U5|ׯ?/t癟_eo 'ɫc~oꏟ kD])9V9]3}?}?t˥h^8/?Vd~W'緱>}gooӫ NcUƷ^>q=IOydbͯ7_G})zo_(` ].\|%__T_Xc\]o_??>}o;}sz֓?+b5}ݯV}ӧ~=Qҧ٦WI4ʧ=ժ*q*Y*}wzQo/G[hb╥h0_({n__ò:w>c Nճ}(Y<ޗG>}?7u\Xw]QFƷ[CGYIRM>_[ eM t_Gwvÿv- Z?g2A G}T5!?Jx. ׾FSN~66X :km^ b [t)-v_"-CwIB=J0zJM|:mSd;`#VDCF_r}mY0S6_e}vCHtA:)OaK<# N5"6r'ǪhNѝoVV.C 5/m7M2Sͽڹ\l\oܡӡXSN<_{OK?zB? c`Anv-9z*[qS` .GFRk+I?JRAeb>$μ4X f`XpyZ7+ cЄ\DRA!_\ ~P)!+w _\q1ڒHd;nye?Q }Y:$Zt Tu&!.E[N^!p5K{\帴 e馹?8Uz!8xzgEmmjR2&aC+_ @,/@0+ڈyK`Vl-t::z &MꊻI7֘SzfSY& {b$R'7 մ%Ip&3FEAZxk}a@_*Uc\` T` 羥@yvrhvܼ.Şv-Yy|g`E<;jR`V$vK}`89 $FœAX&B!4`~+iá; >G6&Z+APCN_lWAF[׾6]V$MW _Ȧ7mg"hLte g<6B26qILp-2z׆~~!Q` ΃^k08yYY)g\(p,9z}9xGƆݕ~JYDSS=R@IzD jH]B(H9Z6H ve/Rf>>\-y:_5Cmfiֹ~ƜF X/]G+8/d>+ϧӳv|}iTM>L%mT d;rۻ_\oF@[v>YtVIoɞyU0]QſV4ZO qmxfY(UVV+,>yIK-ɘNbC>ͺɩ HT6HprOeܫҼVρ)2Aօľ`lMj2&@~)>ƒehu5+$1*5d"27h(nm [68/xzNҌ &t^4?*c N3@+zugػ Vr@P!|A)g?2endstream endobj 410 0 obj << /BBox [ 1739.64 3890.2 2833.48 3965.95 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 97 >> stream xʽ P ES O ILxP黭S,UO2|p=-Hծ061ѓMmendstream endobj 411 0 obj << /BBox [ 1739.64 4642.88 2833.48 4718.63 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 96 >> stream xʱ@ \U\IϿ* *y@.e!9Gh)z4{KPx"N:m|'?f_ɶendstream endobj 412 0 obj << /BBox [ 1739.64 5395.55 2833.48 5471.31 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 96 >> stream xʻ 0 S Ǐ qvL`3d .2@knٝX&ᣗZ oZ0z6CcQYdM7 endstream endobj 413 0 obj << /BBox [ 1739.64 6148.19 2833.48 6223.94 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 91 >> stream xʡ0 P)!ISN@wwTQϼa1q.RwEd. wl8IzF#-faR{[i,endstream endobj 414 0 obj << /BBox [ 1739.64 6900.87 2833.48 6976.62 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 91 >> stream xʡ0 P)!ISL@wwTQϼa1q.Rw\+&xnŽcIrV!š('ߛ~J3endstream endobj 415 0 obj << /BBox [ 3359.7 3876.84 4453.55 3952.6 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 96 >> stream xʱ@ \U\^~bہ+2f @N/c`+-쥙p js0qjŌ]MѲvCcQY覤r')?endstream endobj 416 0 obj << /BBox [ 3359.7 4632.88 4453.55 4708.63 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 97 >> stream xʱ@ \U\^R l2 pN1p#-p jseĎP+:qD::0%.;?ɛ,rXendstream endobj 417 0 obj << /BBox [ 3359.7 5388.86 4453.55 5464.61 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 96 >> stream xʱ@ \U\KT`1c(h]vc%-p js4>KM{{Qq0%f/w ˠendstream endobj 418 0 obj << /BBox [ 3359.7 6144.89 4453.55 6220.64 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 91 >> stream xʽ@@|*Xn1 3g䢗n2 78n!p{M\+$ܢNEOµ@ KCw4!endstream endobj 419 0 obj << /BBox [ 3359.7 6900.87 4453.55 6976.62 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 91 >> stream x1@@ >'l (Bz&~I]ђ#`যkł+v2 @ERXMI7H.endstream endobj 420 0 obj << /Filter /FlateDecode /Length 8209 >> stream xMsdu ΢K\&fpETRҤȞ&9fkߞfs,\/qq_sqO7Yn7uuON~o~J86m۲ϛw/RRMqv eJ>n[wǧʢKey}(ϴ]װ?qח?/۶.÷\[w7-V[⊻պ[\vݲ˚\Xdlݦ$nB,>Pϻ×zOw؂'/﯎.i_/UO/7_@JtZ/x>>>v_ta_?~}hPnڥmRgt2ڳ_Iwj뺉nbhiIخuaH"-Bͥļɾm A|=mv_r, ǟآ*Ӻo\e[͕weV w{rb)lK,mȗQo^:$ua3u Օ'j =neG&\+SևTWF)C݆CJضqPR5tsLz8fr"9n#joKK2JmS)(Gb@s)SJLARp78z`Ib%m*Fx '_)M"lI,|d}]=Y

?mJ9mRoORoNRoN#_+^cċ1gyBҬmhliߓm d(R)m* 헪4(aDS%nBI&( q/LnE< 1"8iUH#JX`eV`DkN SЖ'8Ί2TQ8;s8%vy492bf%GynoqfK6fK)d6Bu6ś}+JQs%Ah6hҜX#ܗ %BiPl8 ^y'UC@5@A5B)cdUlB %ؔm+Lk viԾmKȔ"0MsiV8789 Gnq+gC(~i]JI+1l ƺ_3C0ZD5E#B㵗g M_DPvw0[hu՞pͼS Anx8fRAPf8[-+7ٯcŏ7nPưBi1v)ȴ;R_TN.-h#9;/J&B[}MhxcS@&7/(T3(EpK0L6u" 74!p+ }D9y( &\LB'e(JRz QezT;#˼4S^ΰLk@ի`f e.̰e?BވJE&E7hj&E"TdTH&$kon"4(*8LRM(T9w \iUoBѮ6 5%RjD9F N9NWc@<.stYV[:] RM^E%PltݺEF?<̨mPvts:^dQJDU 4˕Ʈ2mueni3e#6fLl316EʙY23[r&Rg.TL!P6L4ESj/ ך)oYMb*4h3ZB7\H6S`(׋)^LaUE@Rb -ʤՄLh&b]aaμxM7eI3Lqˏ̓7Ep3x3Xm%D 7VPg62e2FoJf7P8Ię֫<2=R4 iP՞1g3șx3ɖxj 8O=/Ʈ_>'20L'X@NRvUVc6#')QhTz+<dw3*g3[@IP*? i=)JRcOR(pŏ')"31^'B)(4`IsD"<3tk? i-KL`g$X'xIl <63'=uiV$xN"3ա?s43ҔQ9a"gx'Й?E3&&RmECg=wZPZg*)QLWSOlQ!O)B`wk.uAU8Vff?ԄسPB Y- ?j]?܎d9r3Z3ɴ\e@Rˀx^&@Ɵi`0o4r$(cP?9F3l =V,VN3:P!ϏtITa>av'GZOD' >=%-c'm}d30CBQeG ~AR1']c0iT5˴ G|0TOiD2" 5z4k󱧰zD%s@=@<t/2ihKA(ICzP(F>4'9Zdt 9 zPN(4w\R)cAЌ;+ơ TRx B3,:fZPZ|*J9Ќ33 BIP: xJޫS(̧c ͘BIѻw ͘B3>:Υ3NPVvH`))R(@;vtA[)Z;V0z* m:UMw{3/dc~&S|* Ďn*d$r^ W\9bܺ W\ioLe )K\/b~v@|%+IC~li~̔s̏R4Et&3 |Fَ oO `g o ymogQ Ћd=J e*KL21a ("+ }s}J6uTʔ-ٞ7JA9* >̥L9*ow|G( -0%S*'߫:*'p*Y_s1#=h(#,̒|X9!MFHzRSԈ4#KMKH륦H-ς_zvv)'ilr~vz3LCԛ|TPu!"cu!!eHN[e4 $K? MAAzST4.$d7U> N Bo̞mZ5#-d3{RK62$1!_~#U2qJYS`SQ5TIC^7$'!Pl(*!bMykP]t(Գ\B]TW H8Z/rȀ1`2 [zH I!},gKHfPI|?gQ>MQ%L0cďQO(RRl-zQ* 7+*PL0|JeZIby5QD(2|"J(X^McU,%1(4DZ5"?XtLWxFt\DVjEkfi4ћ瞩}үPU:;>Cm}RPy=\abI18(9x9XU ,$xuUfoW"E>FQjJB1*J(X$aңQTI?LJ7Ob-=di),~I]U%j䜪bQUV 6ag1u3=p`hb(Ԡ{6ύN'fţzr?<7Z[odx=S=3Z@x{ZcrR4GxB}!q(gu e'n;' 3;f%P |1[8'o&~72+!!ŬahqJw CDB%)@9ΫodžNpYdP: (?R ҟXB!KO -4ʺ ޚwPnRʓB uGZPclP, (LT2^el'JwC $ ,ʇe> $  0JsF5YU圤3r:rNOG%'I )+IR( d)iJ9bRRELJHGsgҞܙH P|@:2:>tܦ=C)g2td;u(eA)jJ{SRV eP#*e%,=j|@*J;Ҟ5թ9T0:̪#ґkչiϾ`ʊ:CU7vrx~5b~bJ<Sһס#0y]L{^WSVsAӡL1*ml^)@S 4J|w4JyI$ԋ_-sR፤<-'Q Nh缼u~Fb'ߗC-lb^'>ļ߿هşI> +N5]\䪫o$ZN -|J]ʲLyo|ڡ<>*áטU²u _(,v3vT݇vq/9+"ӿ/\%{8򐗛LJۻLJoyWHMx?$jGX[)kܒah[pYDV+v&^[\E8G18E*(ͽT_/ny@Eu'u,5]Ă~;svM겿=p},Ӑp{glpBӈx+;xyܧۉכ/$X|[zHٿhq2G\2 /ԾwϺM->_iEr.O^w+ۻ yXpgB盲Ff'a3ۋى% yiy|ېW.~9;Px<};v;pS(ZpuUD17]a?ن6J1yA',\IZǡ",yET^hHv9-#\wN9f&.Br噕&cRh IGW N#n93 FY$Qwb4nr>c̍oG sJsѭe-2s-JC{ClD+/:}mWKe;SN3MD4~vL''N;9x9OwcWTW_>9!I,O9a{/'lu`Zڗنx6N`agaK&X'^ͅ7M 'A|mI(}@ʥendstream endobj 421 0 obj << /Filter /FlateDecode /Length 25542 >> stream xK'77W䏞: /Pl}twt{%Tzܔ?Z{sɇT^ Xx_k?6Ol?om{c؞}?l{|= ŷs7{x޶xxq|qm(O~O_>~xow7_}j拟?W vYqׁ]Ryَ~}}ӗ~_?Á>휮vG>{(w>ke^O?~?ޞzcRl?[>Zj+ϥRRnc<_}I>{.%%*[۞URJǭ6ֽjګlq{leT)|`@~[g?:9൏yNSPVc^RRRYrPV6k}bD}W?Wu*u*r=QGo׬s]Rgٍ[>P;< >_TPvr8Y]0oQ;|7}ven(6C7(y2ʵPuB ^2ǼkDΈJE2/B52B z̛x\ 釗 541>Fe^ί7T617kۼ;,lʡi<Np Cs^kV-ݽ_T.<̞|f+y[zZhϺmj6r>f󱴷~򾝭جvjS9t!Оu+jk֞uNeajk>ОuVyqͧ :˳ʛ* 'Uߔn/;6S9tW;/SN5;V4)g3&{5Ɏ}0[qT.kϺ;PZn1ϸχہvU}#){w57>jg=n>ݓMmyƀpGuyOo8Y}֜G{y ab9Ϝb6ڡޙ؜eܯ o1K[{޽Ƽy~]]L):1o뢢󙷵Yu]cxVy_[= %S.VTUvVT:yYې׾ܜM h֜|)Aub9u͚yS[sWvJ؜5ug]xb㜷fyG7 :|w:м1bEv-/Y . g05yC[cm{/ͩ[#S^ًؚ әh9֜^֜)Z;ѤQƅ>4gm>,v6zxm] kaJ57a1hAYo (Zx)D拗/r'6_'vz'6;h7%M{C= @6Du8U8^o@ݹU^,#zM+h1iwv~ "SgoCIx=}),"Ě>;@'e[)goeDcvS s{1n#>Psq3-e_9}bPsn9 U9pcEIRH2J9-&E{$w)ρOG1rQϲaw,C,ŞSBϲ9zNtgَDJ=pᥲs>7)BϩzNśE9ymv~Bϲ[Bϩ5г96ZY5*, =rщSx-,79JY9s  гlH09]gG)tVgnS9qJA,J9L`u, =RSsJE= "=+%,;d;Tv5s*:s*BYATjPi{N{ ĞS|.9{Ne >[p)pgAwe>=E9civCJQU>Rt, Si,TVs*]}GYpI&t 2L) yVm)|$f]u2E}v3v}|Xn8s̚=ǵK#C/|19_LU/Aa.(s =}CO{y]iO%!zڣ#۷&[|Z>>S)lnb 5,z>bs*CTFs*կYaNk2I ɢϩTf"Y>p,{2aFG'}&<997TT9 9}tʤ2CL®k~N?GT g.?R4Ο&q ?!şxVt@'Nit67\4:yS eϩj'P(#~Nб@.@'8@@NxA@m"*ٜ@dEPD"P(f'I8rNPoBP(:PobcŠPʍATuBta)!︀P(G4 xW BP(g(7C(B6BX ByO BM!* B'9 BTPXǡE@(ҐC(" B+w2 ʍAMȃ]B_ABݒAmwyʍAACv,e EH,r4+dP(g@B)7Jפ^ qT A" ^b,Ag?jsns3+O(>EYlIlϤ>S;}f%C}B7LӔ}.E 3+Ϥ>>E7BxGB/8:ST^gѯT?rtGN@/vV6}h~^}Ow+du'x\|Oa/FRaT( Rhm y 3r9-w+іhʐ1qrM̧|U 4T86+iҲRb!+Sl: Sa!g0G'Z |t x[i Q Z=ihىɱu鞆Q /O6{4|HQ6Qf.s>;KbǵtT.MJd‰kQAԤ6.T8cv'c‰-|l=7/VKx,|]T6ؠar15^i ;H|5tkjg}?բ~0 [3N8z9ԢTSԢ!PGlVݠ';2?)٠۩ |PT3m+2٩4|㸰SϛPj)+1dKΆ]y\'cȖ2΍c)>2un#d2DD91QM9wgd~#ݕz=+Oq:Ȗya;o/ `PiCM M'qϛpcee@TYpb\po7wjХ 5h/bJ/l]}݅nxP9}uSIn nJY:(tcwQPlPh\p )v, 9( )XNPPXYNPAFDXs Bu ł~C8B9bqX3j$CAh,p* P:%-<A(҈C P(9X{rrXX 3A!HΠOבĠPƍAW W ,U9(qbP A5h z! _8(6#u^oEר + Λ$о@8~~*8%>?{=|7O?֧'ҥ?4CJ."*-'GşQɑ0-8OĬsZq#Ο`xw8?='AtDdΎ9?>#ZKh M &>qڏs` '|~k6s`J?| >Ԣ|ٽiYPRvjowzӢypoBMϩhYT{çȳN _+§Eo$K§Ū? g>-bfbd>-b f>- HC_Śc G,[bM@RGO /w_7iA:ATNU{O >-Y[Ė~RTdp?#"u~ϩxu>ֵnbUb>-Fq>-8W%dp~O g >rrJy >\iE}ϩ(~Bw){&}Z?,\AN~N%~OMO ?˾+rYO 0ű?!NȟEwğe\Ο gɟJZ+s 8?R,_."ha )^yw5g9YaEFBZbC1JasPR Y|ܯRfhu3MoV7)X[M(nTDt"&J/nTR "thAH߾Wgl"V*нnR ,5t[)Tao?q' Rn>z'ʠ1h!Ev]Xqr5 i bȝlȾȠr/F.FTb.LJ-<+ںM:tpéWInJ~z엿;Il%ƥغ 2w/;WIu}LepTW@l|Õƨ}Etnj \#5oDQ]\ o~h3{4‡\U *~j~#V5T)!/fv NkX`rHCJ罱;+H`/ayXquS`>{Eؕ|*:/a"@#bTKØ: uXt> }Cd: J : CN]p,p蜒:cNbD=:E5F$` tJС^rCq: !0å8)0PPJC>PJЕERJIt(%萃 .f@6GXp ԦS 7-?n|f06@=ni!CAx l7{1@:m $ǭ8m:q3Ao q3Nlq+Xj JfMg ˸Lf ȴs ,fp7´yW/n:{ikW.nrq3xK="-BI`Jz1b7;TUI9DT{~8^Ȝ+zëc{z};Dx ]_Wl%[9'[]5r+RRrjaG*ʭQpwuMjƴN"S>UIQ蓕>YI^ӕR%E"'UJTX2$9RRrH\DN9SA6lj {iH֦U ;e6gZF':zKM|ޟel:בƦ,#cS,k|Mx$OcV);0g^#MߌMݚ_Ʀ;~bƦXTU26G,J46ŷƦ0T'¤YdشốioZ-Ʀ47nlWnlJ$cSTll:|%d_WƦX~ EƦ#),EIƦ×Q5Gal:tϫD_S|75U&kྦ/#_<ٗ#G)(lMըO5>]"h*[1<9ۚbDv՟BtXHP5XHCִb!>ִnrI lkZ7˦X|75bաhk:C[өx-ٚV(d5*؅ִ˗5X8B 剶_3mMdkZִ ZgH[jƠ,C[өh-ۚN{n(ښV 85J$cbv:մbNմ{+jZNhjZL446VMdhZwyiдbyuдZ/JNTwep?j܍VDQ* L+b7~u9V3gZ^L+lgZ>%;ӊJe uכL+Ɓt35t3^R17ӊ E7ӊE4* ʹZ 435$ifZ\@̴jXmgj Ҵz&̊LJDKӊTʦdw4hP^&s4H- T:ҳiY{ζ<gѴFi&Ԅ+Vd`sԄL+_\^`~(&&&Az{w8t^QϡKwLWv)T"xVN1B?TvxV &9hjH1O:yNRӈ<+X"ϊ$Y<+3xVoDo#6%yV+gE8YJ$jn&EL-O ě m C'XЫFPd/q#O(l'OD˳9yBaf'O(J'"yYNPOf )<O(OO(:Al< /;-g,WsIp;- <\&(Ǔ s8xZ #q'VȔ_i #q6x$p$j _z6wKwB;!/ŝGwJ^yAMp -;Ǫsrܸ ;!ŝ,;((_Ν⑰sV,M;mƍ;-RyN'aq)[;5_TN(lZ΃Ix5 Myps ;"BOÝ<"tx93)$O[ Xiۤ`gRPzN#e 2 <"DWPFPgV[]=<"✹5 򴐊G%ii$>4.Ixl*𬖳/gE2& UܡӾFXid<4i7iE)Rt"j$woI t<<x4Is>j0ܹΝx+YѪ/UW"wE':wkyӔ;MQiAagS9uZ iQbMuZ 4'u9hVDPN8tΤ:`QR:=Τ:w}t̹m̹gΥ8s>53)Υ8t5s)It݂Υ8t&EԹNWurYԙQR;عΤ;ܹΤhvLJg(Kqteg{ x.^povˆB0 !hŔ)motteg(p.Ł3P8Cq\g(Aq.ʼn3 P8]YĹGP9C %s)=rȹGC>ؙg%8scs.ř3`P92=%sJ0RzP:C \S+A!u.ũ3N)M@&<*N1*+p?_{Sxw3̩n5R%0Ia(/NR2$Ja(/NR2da(/NRɑVPɑ+Rir+ɑV))2 =BK[v7fM =W!qKqfdH楳z7[Sn&1&d7va]i3=,#b-ї=fCky$lS!MeٕyQp2Nd?QgLBpvϣg HrˁT`@qL~k7ױgMwP{:pv&po&c7x*H2n&0`&Nh=;pb1>y'0)SYʥ$l4ƁJ1$H{ pV%ެ*!888pE*< *C)4E؉?%\q^~ő7%䌞ّGr!^ȉvCN'ŜXb 9GsQD 3ŜcWèbN`Q̉b_$]j91_ X;8|FNN[DM*wεʹD)4ɝ|~K9sIEIq1|LDqVN[!j#%$uJ"!ueBN t*g ;G)4 ^CՒuرx\k Г dmCfjӔVBnĞYgAi =v=mĞ«{NexKZc!4'(CuK [[$S;iK5i%?mFC,I"cxpҧ):b+i Eѧ-QJҧ) ѧ- )SzGO[9rO%y,\M>Mr $[ڢ|OSN5ne8f"4Fi A4aN))Zgila#^Ӕ[$ <_#ǣ+>(>Q7@ K"P}ſwo>'`"$($QhED B)$JEIJ$^jExA"$J Ƶs/٥ 9oS-5V!:c^t2EP/Gd2rB3RB2!(:!(zrۛ=>↠P8g솠PP #CP(i łp(Ae(zv((z)h AdBZ*C3P*pKr3P(hRdj @UʥZRS|Z*{BaM@ 9oNI)d9B`j7M@Xo KЬ fQZ7]{&EPWChRd EY EnPm C"Ь6ԔG2]C PKq ѤEddy2MD";Q3ĴsGѬ g(M E!(EBѤc4)bp]&E~I(ihd<y&E"~7e?꛲͡FĚ^" Y . A',xK=| bM(p&FޔHKQ&9ڋ5K4ΚPIYJlLH!lBў[;3l/ PlB7 6k&FYjp`xB&6I O|R= 洉X&aP 61*ʫrشqbM,4#:kBa9kޱ5=20PBnUrք"lΗ-#]`L m 3e6;đP E([B"ƚ65 /# 5ơQ IIs 94I ,~tDu|niv NPR ?nqB:n6γtB1ƙ ę əs*Zu›ÙXx'BWe8-E*N(*N(J)EfXN(w,H;i i i;M(;8D%98mBf:m=NPlx.h oA YzM$6bgA9y:v1~I99SEfuQO9uVX6W¿),Qy}> O?ͻy?'~,=ejPI\I<*J.|?+ns2f9%yr+yK%VbT勩‹ʕ\!lTʕ[yuR3AKe;d"Z*-HK ZZl7Zll(Rl(Rn(7RiҭhoV*V*TZZGZޓݬ)x,۬=hf-)mJBBCBaN.5e$٤BK-[ѻlVoBω Шf"YI g"Yj2 gMy$d76 ZY,%lRd7KsB)f"٬gf"٤o\j7Mf"Y,h7&A~YjM` %mv rMBWKn y٤lv n6Kf˶yfnIlR6ګc!(mߪN"(dMy_u,Jޤ_ AQT2BP 1UYڕ}K96bp0?_?,o9*W~5TҦ'b%,D/\nC`k_Љvdφ#}6D Cφx!g~B$ѳΛSɰ6x PJKl8l6K2#+ xgyYzn{7$7f 'l0q7^k*؄ NR=z6xINFS7f.y<`/_7NśS9li] lى7ΐś P,f=y!UMSrcs{u#l--%4E!p6 VUpNH56RjӶNiȴsOf՞qӔ q\n:n6X_񲅛S&YrFk6!Qi [`OSjfͩpMlqEmXX'MS(4%h@#jf;@i -lp4 lU4MaiNNl`)<);&i6vA6@Ӕ:va)%u";uk-uǜ@Ӕ:MtLkhkl-#Շk}o̮Y`z{}o_q'*3*,EF/xoVˣ‡|x"#^(ʖ&#r({.ōxp#^3]Sv#ޤȈFPxǸoRkJYB]VPd,+ޤȊ o4MxgW^PxoV̋͊w r5ě:BNPx/oVT tMr"[`9f?"+b?r'$\z]݈7)4[܍x"#^(݈7O/<y^Dk[ٛHgO=1!{bփ:Ξ8sZOt'Lt>ZdN9|FxH'zRH-)E '28pd0Ȍ(LlxS}[)a賝>_٩[ۊY"TgD%8}đV59|~%ICE8N :~b{HmuK?Vj%@i??1~"'NYq~+;vvtD[^#ΟQj3'fy ΟarD-DPG(tP(KsWst-(PiNEK0'P,ڧ(|hZtlpE%+8bF^m#(DDP˙$ު A/we t+Lv?NbΟp(MgOiȟHE,"DF"ZN8bNΟQhZi}bZL$)D /鳇sggWSl-D//V>?{9@!v9w~}Sw|;~v~H#Sg#gpēƝLĻֹ ۍ;PGp'cS9<㗸ssؔM)3;厅8;Ǿ{\aOa'LLnoͰ>uO090X w[ۊ8K:map#Q8(4s]ɼ:arNx3(Zeϩ١ڍ:Y99܁$3ȬgN\7E^C%ΜxGmP2'ul1'".r[e<6+̸&!';AR1 :`9zr䌰:'?ۃ8Ouo8@OgEpo A`qєW9v'vD'8,&Dv0As4ds58=-mVi1*țms+ِjͶLfCf^qs >.ܴ" qM &QXŎ i<عE7ԄSr(k.q!~ei]z(!.qam7-ͶWfaHS~mZgIImZ8I$mZDڴK㟃!E+NYpT%mZői(FM P2M8a%\AN2M xPb\Ҧ<OE`ӂn,Ak6-T!kZB঱&(o/qs!8nZ%ܴ+ETM 8pKɐ"p6?Cr)B?)φޡ_OS i Oi )OCu*4ŝ^7&Dd·o?vSg$M)PFBMP(r4RRєJKy~p|b)%JEKJ.Q*"\TpRRZ.^*GDpR)%g@/~}nR=kV*ӽnR=k.t[TOKyRXzhʉ,bQ(zh.YV)g[8 wޭx^xNxw*ƻ&pƻ&l9T4bƻpHƻ;A&pKSQ܏8Y>Jrfw"^FTƻS&pVTS95s*]S8*]SXY25E9|S2 w@]lv7-"M䴼wMtʠAW w@]SZtIxfTLn.5 5'ݛ0Ԓ Ksݬ{7+޽)kJ޻YnVkJ YMjC2MwBݛ՜ZY1ݛ0Ԝ|7+4ߥX޻Y0$y7 4MwУ1w7+ݽ)Cow7+ woʈƔ.wbƻYM1۬x7+4޽)#Rt5I伛s޽ wB+լ-ҕ)ֻYn{8nVz7 M[f=CnRdYfֻInRh Flz7)Mw"ݬtg(2]&EYoInV辛&EPMYnR辛&AYR}7)r.&EInz&EInV进HIњ4ĕ佻Y&λK任&ZHKnqw 2 v]DjM4FqC 9<|M6AM ZZnaneo/vafa1ޅu t3Ƞ0 0 Lp3<07&3p3573p3\;73p3) Ͱ L3H8ݮ4p6!gRŭ28vp'b'rgRP#&ZϮq3+]y d7B,]ͤ77"ބBwLjDKq \q!vGά wIrBQ6Y!gV-3)D$9ۮr&E Gq&a5egR;''L3+]Τ82ԜE$8'NgVZ3'rL3+H+]I!pfap? ,[,Ug#y;;v/)=, (Etâ,N||xfO3L?uWٷ~'%<!U=g͏>?-x?qkΧu %ޟe޾~u?ϱ}>b?~X~.Jm1Oxz?}w_~7w_ksGx~?gើݼڒz'|^ >[雟S3G޼=7Gcm?\~g0V</{ F}OZxQv;ݱϋ4oxd .߽vjO?}X̾}h O?Yz^W?KkV?EWN<56_O?e=maf[go޽.k(&"'wX̎^1,O_{پec o@mo`RrgIGa}=m;~1?7> [m\0WLxg"ƒo;2^\! y[sho E[&t>0\2Xvu~TTS$.?BMg>?1o5;_g_I'<͗zތ&O|ӏoW֤_&gy߽I8RbYH [ӿ??ϳѰmq_Uo_1?݉d?߼{㛿#߼߭3|qZ6:o^o'\\ ߽fO^O?}8'Tߟvְw[mdsc.OH91Nqoendstream endobj 422 0 obj << /BBox [ 2132.31 5948.73 2785.71 6047.21 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 96 >> stream xʱQ*^OBƧeΨh`nk`SOv[:j^7\Db<&rhf,f~O&&Bendstream endobj 423 0 obj << /BBox [ 2780.84 5948.73 3434.24 6047.21 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 97 >> stream xʱ S؎=u`H/(O5%VYT ;MD;nxr"W << K3._>*endstream endobj 424 0 obj << /BBox [ 3429.36 5948.73 4082.76 6047.21 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 97 >> stream xʱ @ S ~;۲'&)C"_x[֡㒷XFR #YQZԆg)q>KCOc!:H/ƘԈwoM_endstream endobj 425 0 obj << /BBox [ 2132.31 6702.62 2785.71 6801.1 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 98 >> stream xʱ@ \U\d}3flx/wCO쀷6u"8.n#$jѤ*s*7$Fendstream endobj 426 0 obj << /BBox [ 2780.84 6702.62 3434.24 6801.1 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 98 >> stream xʱ @ S ~l&!K`'8>,&;MjwxrFjhR <=WZ]|'d/(endstream endobj 427 0 obj << /BBox [ 3429.36 6702.62 4082.76 6801.1 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 96 >> stream xʱ A Ul6 *ϐ%(p o{WZ+&H6c:uTRf5Yn{>Sendstream endobj 428 0 obj << /BBox [ 2132.31 3608.66 2785.71 3707.13 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 98 >> stream xʱ @ S g; "A Rﱘ8ƗvҌdQXhrXItx:6|H{`is~ZZzqXCoyuzt'4 "endstream endobj 429 0 obj << /BBox [ 2780.84 3608.66 3434.24 3707.13 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 99 >> stream xʱ 0 S4IQ5$E&p?.i?IªvN$KG ƗW “t/1;}/z'%endstream endobj 430 0 obj << /BBox [ 3429.36 3608.66 4082.76 3707.13 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 95 >> stream xʱ @О)G D?Qկ8Ҩ(U$KG \0c'rB]ɵqƳinN4 "Kendstream endobj 431 0 obj << /BBox [ 2132.31 4384.26 2785.71 4482.74 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 97 >> stream xʱ@ \U\d}3flx/wCO쀷6u"8.n#$btqAE3}`Z}<]&zaendstream endobj 432 0 obj << /BBox [ 2780.84 4384.26 3434.24 4482.74 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 98 >> stream xʱ @ S >M@`H)D |һ#XdQG5@Jd٘jymy"_wendstream endobj 433 0 obj << /BBox [ 3429.36 4384.26 4082.76 4482.74 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 96 >> stream xʱ@ \U\ }glӣi[,{R `ZiQ"Kikdž(GtBx%gd{s g/}}*_endstream endobj 434 0 obj << /BBox [ 1218.15 6697.68 2491.23 6787.67 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 98 >> stream xʱ @ S PE&HH`׼עͰRa/x*= ةqc#QmU\HtzuyzW;endstream endobj 435 0 obj << /BBox [ 2486.72 6697.68 3759.8 6787.67 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 98 >> stream xʱ0О)D @0AjE&HwqR=VmyA^#8Tz7^ةqcZ&#K ё]N_~7Z sendstream endobj 436 0 obj << /BBox [ 3755.34 6697.68 5028.43 6787.67 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 98 >> stream xʻ 0 S hG u" $ xT})%4= uVo;N5 jaq5LΊ*5i'endstream endobj 437 0 obj << /BBox [ 1297.39 3291.79 2544.04 3381.78 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 96 >> stream xʱ@ \U\^z* 1c {VrfG&Dh }2^XU!tU ̞n{>"endstream endobj 438 0 obj << /BBox [ 2539.59 3291.79 3786.23 3381.78 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 96 >> stream xʱ A UlyϾ+ *ϐ%(po{Z˙ _\жX W/v endstream endobj 439 0 obj << /BBox [ 3781.72 3291.79 5028.37 3381.78 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 97 >> stream xʱ@ \U\I* 8cƦ(w[N)vB:94'-׎^Ҵ> >> /Subtype /Form /Type /XObject /Length 93 >> stream xʻ P S 'L!A"pXMNR3nh Z^x ᎁ48`]P`SrowM/endstream endobj 441 0 obj << /BBox [ 2640.23 2986.25 3679.23 3082.83 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 94 >> stream xʱ@ \U\B b3x/+-'vó+58ĴcbfP`WiF(v-vy퟼"endstream endobj 442 0 obj << /BBox [ 3674.45 2986.25 4713.44 3082.83 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 95 >> stream xʱ0О)0Ajۅ'HwQRL㦓Ԭq4s/X -ppC&*áҜMQ)Vendstream endobj 443 0 obj << /Filter /FlateDecode /Length 6971 >> stream x\[ocGr~S%n&& I֞ v@Sg$%Q&;8"umvl;:}WfmWWuY]}eו}\;nU5zjVٚyjzlOݟlXuѮ^qn]kvty~>7k =ݑ]^>4m]9L46wt}yU77Zc[H8[} .$\|[-i=vOw$%hD`v0PǷ nfЇna~Z5߾- ̖ ϛ?]뒃 eI77[{]u]wpx=N[T%2:/A?6I BӱsY#A|d ~{_u`cF/f xW6s~̜7f%=lTv:\|d*~¿Qޓxc}ygDE&S ʚvF,Լ06zt@@i:q]-n ۀdחGDh^x 惒f})^ӌFup?t 8т[!B(9@9#f9:  v~yy8rp?''m hWnm]{_Sm122F̈–ЀK䘟0JѾbG/b+oRJtLfFxEzhqݜ6BMtn$kZ^ ԕqДlh^%v5} Hٞ~$%}'@&ܿ<`^ Exy#yXJjYyMzu9OM]ClR \ZruAn%J%m&Nҗ^I¨1B ?SGN;ttsKO.<8=pkWuGiwjl݋f\Vx[R^pȯW-ցS$Ԛ@ 8G 2G>pM}p\PyIT\ 0,pFlSG?W#1BfYe^؝>B֡rp?^:Lj+2}{mߨY\hݷz8GE܃-86=5k46r[{Υ=$W%!W J_, S.43yFz_M,gyv\aZ> o/A??x ՗k9vK`o6[ L%?xe'Ē??/pfD0 g:P:\Yon-(7O9EΛ&_O[J33SR E\6$DI^sd4t, **u1@}GɹT \Lȅ|4Bڃ*c*|0b@t;B9|Q<RsV+G65緜z }|Պ<0s78i?%u懷`A:Ĥ+yNE7fX5;!ۢ$Y~o칢Ϳ9fG<6$Gdk,x9+ ~tapwam3W{hz&rdݴQSEz(7.u~돻G^ x4_49x8H%8"1rI'v]Jsr[B/GsZs+ιO8m/هd0<sЏK86mӯz 09ptR$UsQLP]qfs+i~.h-Qq^%{ 4)jum:geYkq:ۏP5 bW!ljbjHP傔 %9`+< WH6 fl~?/uۮe )qߝ*A>͵zs+gvgĮ4)ikXtUDh1;, RzA$Xk.d'VS %X.;ʺ$(YfK8U`d#`=H1 ';a\8RyP>! gY"ˆ/J1q_>!Vܗ'we[}yŌh p*%/pZj1 q%& z RE,!` "zUM1.`l%c"{2)!.1F@bĖ $&XPVqD@ DZ RYk|' HeưL@^rn-!R-Ry(ֽX‰HwPLLHO-ǎ =XX4pz*E:*X)Ӑ_95daI%HRBZ {wfA So@eBT 3z~ 4`peؓ"#S 2|!/{CN:2j,y 5AS#]L4d\##B /* #HGr\Aad HO)PYzE?9# 쪧d2f01!#8ъ ~bCz^>-δL}]VEZlHOU]D+2*$uq%HGF7 ;PµCj|@$T2"`XF )2zE&А H+8?ؐ*Ki3\Hʕ4J\SYhE&A|OClFOАa\ǾmCYJ{Y Ty\Q j(0,_Cv -.zi 2XKJ  ѐWvӮȰv4aiA9EҐA/Ȱw,;30})QEF=Hd>'~GsKa vbvŽl(2*Ŋg5.Η"cZ"3nz#7/0}2o`3LNu%pZOllϕ:ܶE-tE-ҿE-E-҉E-ZRuS &rY2tjQ[WAL- t[`s:mc TfdlYxeldnVC[tᔳt\25d-PYaA|W؂X3 yn@% #z+m"`R76gJl!>,n N,⿶@%ǘ+#c;z2&U^!W^ԻQ v3z#w@gt!G8W\ZIJr5d5VZ@oÆ$_T*r`\QD:at˰;j*vuR2⼹R}@&VC=v5}߂=mxe8+GG 6?i2endstream endobj 444 0 obj << /Filter /FlateDecode /Length 4315 >> stream xZIH׉;-T NX` 83c;9-dաۋ|o6Kmwp[;F6k{p3mnso7oǺlM^rɹid_"ylaSd^$!?r/v'4>OPu8<)P$e_Iړ,TRN?w]jlf6~++HA@ eW]Oc9t6&ϗݟnJs7w?~!'Nc,WXt$}yڿ8򁺒c5@Kotϱ&}U~ -;ifA`w`is~|?y}y-[-STShUAynsE?XZ&K.6HV͓j?jP7>{.rѼs Ltf2oAz l8-W}aKڎdo6d 膺lZ܉MɄ>|.mZd !UL P;j<ަ* /(X(jzڿ/ǭN-B2۽YS$ 1Ai}}:Ⱥ)&A-I>4r'rYl*&Sh$8M; m4"/} ._7OxV\} q!bWW<%~/:"t=\N!+Oxߌ/+G!+|ۦe{l{4sf@*+9x Ф / a}z5sb4c!I>w cGҚFji* Z$T)gyNvlZn;P< {1d .ya2(aϧz! GY[Hk?ǝ=Pz$5l e] ^P#Q{v^!cSKd4\_3)OeP9!J9:&sS_NlvGUɗl*N{UdVY;g-0 Ȝ{EڙY8e1ERm,b8nqBFbl40Bڄڔm42j+p2I=ckT:Gy#$4m\VIpFPjMs)rDj9TNzd ɧUG )`}VFPqzCA`$܍KR 5zR:>`6`pgd-HZZKa@d Ĥ}ly s_ e ?*9slOVZO ziUR?"qp" BBte vUmw(O7t@B%(̷B9 8GR "<bPaA R %gI6_ehOx'aM4:2z"'0I*-r@/䈍.AΝr&8 h 4ɑcMc<}1+*(QP,4ѐk8ŃMhgX \Qa@fl/͸#g@nC!(*NqK|W hb呿@fy<fU}sN#:g^NzA {AA%p~R-Dv֏u!N[*C؀uTueSA(#6VL]jލi~7r50rLSR"hqLXNaNLrFx^釧gyS)$*gxB{I8Gqg K*8C*.+̩JR:U5Bq353nY~;#qBnJCV_fHב,2rd90**xl_S>dĴnAM̋,Ⱥ8siNc1:KISwZB,ԈA߳U^W;)"Ĵ fcTy`3|Ţ2xUNJk+GcEeI]pд,)enaי7xES]`VrȱB0cNLLo'1}437ݮ:nYVPe-c$t,mV!$1d+#Mҥ1jfX uftZqj[%PWTfų@g%|<2lp:}}5}чŅU@*-1=}mt&Lqq,/XD1E qh7b_*ԩ#Rq*Q:_d ;?2.p/+FxG0 M!łP>Wٟ:58_Źz>I*98/1nABZc+['R0z iڜ)I78VEN#8O$إ3pˁŬjU1=<Tɨ%CCE*7͸O!.ya`qUqLDG N.C$ 1d`OϹ؇wi&`w\0 9W\B},mUOϛRlNG[">0͑)}^W'~hnO\ӶDG1UZB\$68J~ p9X+"bt SIT^E&^sEOD2,ŸmuڵuO!ъKH14/}5-9!w$n-]saFJG|ߌ,}Z\bδWA:nVgoK*ը3 |t@󱐸x&߽@G'4AX".!ٳeI|1KIzA~C-E~8Eҕv/Up-Ǖ\TV(b2@Bh0Q';iL Lٻ:4:8drcq䳛qendstream endobj 445 0 obj << /Filter /FlateDecode /Length 3813 >> stream x[[oGv~_Hj:u*;,Vfbfd\虑%C~{SW_Wsܪi!z']+xJEq[ X>87WMb1H =,nvWe7"i!xWnNh{N,WV^wχRKAwv^돛=i0m>ƻޭqq=U}>)t ?xZͿqer~I֛4 ;ZrC/62j3yV{+f;70tn<@vyAc{UžлVO~sw>8PфbBd ۫hmw86!nwt66 .amH3~؜ae~_|~77wXNYm&Y+`dk y>bp/t4@Tv掼4~+#igT?62viE8{Dݏcywwpy廟nΆnCjdٛH/c4„qٴ m?!3hpqG5ļQBg8dž>㖃|ʦe?E!doɼ9*i7 bz|x>&4FnIƶ3=.fBm"-k?Qy'`Q7M::PF1M* .&'rΒF$^GHl?N#i} 5"b(?&Ӂr {P>[s)54˜vNΧOͪdN q?mQ)P r.:ce.C9(i@ ql;2ٍT+Zj>97ۓSɯv/1K%Wa,J+Ә6}N: (Gn#Ly>b2)uc,M˿{VxDLR􁂬R)q-0BQ н\% t*}tHݙ "q5Uߎ"c+r%/ b_2.6S1Cx1NWYdl7Kh?t_G1d]] ʹyi<"7wfu~@?K`Viz-VC!?./ YLԳ<zRvZ=\r}krwݼo/%4NUǼu1H=~=.Ffcr7=2)qi?{Or @'G>e>GHe'#ؙnp8!Ѥ@EczS+JcSQ "4s*\(. xѓ8D\$1N_JqD8/ɶ5)f_vifyTU]ձCTRp-YF>/Yٿ;_A KJ.by6^ɗ%\'N{;sv|\;O<9V!GgN*+ /WaYTH ^swZnZ􎸡T{@zwtCc쨢]ltEHET)z9隼Ahwdw5Otn¡:ω~zrHv5}mR]SM4fpǵD{YDyf ǧ׫k*OHk GN,Wj#˪b=E)j|fSżoi9?X߭Bn?6VQMuc4^~C8e;p3.k=*}pS^Q^fV:Ibv}3|[WvscYϏÙus!i+S<:I;L'+T)\ew^_8*p˯Mqجq}|rd\.)?qbK{&Aw gm ttoC.eDA8'4Kw%}+E\Qt$eyEK&祤LzWY zOjNob h_lR΄"KAa&ք4,4Ұ*25!\btCJ`&=a@KRJ HVޙFBg+eRZD(1kI?EN:X+Drxi`>uߵ=k<1jH-iB&RvTJ*2&^03:ICF!V!9 C팀;>P^ d+c2c8t^i(JBxNR/,#>U5\ڣ9FKݝBЩ&v kjjTV=U)>e t$S9͇ ffJj@3bPhv'$XYSnj@1Q{- *14zd:2+bFDTF,($mDvPT"%8B $䶆 ,f˅Ȫ ъ8%MZVFZQ6qd$[.>q; 0 -+#-)-ʬf0ʖb,|8pxIa,//[VF+mYiY% UƂrRYh`l rscQ3c! r3,c9^|dH|"-ˢs*HB[?0 3)c!Ű3rfRBR2Kg02@iY [ - 0n0fW biXZsK*H"0q|+XW|0U%eeI9!a,=!a,ûJ3'aa϶g"f"-~^ƲTrT"q¬"Uei9Ha,5Ha,=Ha,+R*RE*REZ\a,2*Xe ҲU0U0 XNAE\0*傴,'K Xbق`tK XE _A =.'% pڂ0QV9= g"f"-ˣGy D٭BE M50fPBWvA+X5h9AYp QSaW0u;a,ǻ00v*X;D\4,#Ĭ'cYOTҼ'*YOTr"5z0V0:4,SStLݏj.X5 ް1P77,^b>] ['bq67w,\qKxuK|Z^Ť;撅5d82ꦷD)KRWM`mXU.s SR.gh3u{eJ/U+_*wc8'%JrGr{w/Ͼx/_~`/w)ZJr9zsJșxSendstream endobj 446 0 obj << /Filter /FlateDecode /Length 8971 >> stream xM%7vZܠ7AGȞ E(p̨C^^4 o99AT]O=7o&p<<ϗ.٫'G<䟟mr[I=Eq߷}yd<1M\?^]SL%[ܶ' %t;jy ^zO>ov۶|}|;-ӻCq>yw5y۱mЯ9mq߷v'mwOvU[׻jI=}'|r ''a+%o򅯞t<'0}-)9 )t;#HHJbI9dS;&H#*}߹CCOtIPh_ݒ]/eKս6N0ux|,cg []r, Gl@ X1x;Xͧl|:/?FA+nbm{oPte_=B9r?7Օ] %l[{s?CHM[H>\Ngv$mAR;N]BVvi%3l9JA& IMrJPT9}9ymߊp(:v^ o嶜UԽhniVNฝ G-'&ËHrCr쎜 UƺI \ng"hs~Q Ul3R;9>Zq$a|tNNTHr4Df YgkUgh9AKrVάd -'d7YFЊYc-'hɅ𶜠0Y獿:yK48 Gο’4 l9KF_8ZrG)%Bryꈂ4]r!BN>t[%A+-1ZBkN:"Wbb[=2~%ӗ̖JV -'`-UgN*zU#Z2 ;r\MY2@\,sr So"AK-'hɥtg Z h5fhD$h$!儬%&Ak_ar"%Gp ι< ZEB-'dI UǓ%Wژr\iw%@9ZG,2Bn,'hU2%V2L-_` YN%Ėds儬r2[FkL Qo' h,F hla~r;XIMA k| <" d5Z :rVYrBV$h&#]*ZN:7K~5A18Zu< BVIe- ;IВ{-'dI\.R<Fa9cy@GMw%ʖF `mA*|:ɴ4+5M G'ʤ*GL\, Ո IJȌJ E0[)@&hc&{x&HT X0BfA8 }#$MAo=}#$LJD4agN:*a^*ɓR{ɲL-BS+vɘlTS-ot٩s[1aTK+LsMbK'fɭKܶtbs ݝoZ>'*75֑{5MBBzN!Cf AY.ǯ}$Љ!A}g)gSD&}-OZ`?99݆uEΟ@k3bCT/܃\yшm2>w= QIN)hSom3@蜑3 rJn- N&!=$h9'&A+F h;'A+GiIҌ[N:e<@GY":5$`2wLF h5JA+7Yk f_8䧤=#W,P pV9N`{Vdq۲+lj2q4$ljr8Qfk=i6?Zg] ﳮY?Ëi]>:Vh߭-\?XXc`*a2a2!u I.\k>ҁ|2n,}FͲ?6a]gu; %G{"$p}Km1Sw=e@ht!e,ocOZSt^,!H-uƾz9^ ɬ=eۚ3r]MlC~Jgr}HIXJN9; Xq2rxEe%$hiky3ZF3'h*IZVNVYVNV]VNVٖUU8? Zԋ׈F d1/ZFwNbOV^V>OVY4OB\&A3Xu[#gڪu5Z^ULkU"'!rzsSݓ)IВ?}Y; Z}ZN:֖%AlK`rֺo6x4͊3:eqx#NJˊIڗUZɒ̖te^& ZuY; YJIT-&A+0ZqY : YJIJJIВ3e%$hJIҕpCokoBֲ2sۃ-VRvڏ%3#>A\qڏu.g h՝LOin9 ZY$he$he$huUdAKf :uUuU(::Wα*SA:9: ZqY; Z~ 22־ h5AKX): Ykf5JAKR4 BU(#kB,1ĨtR;Q:Y''A+83Z2{|N:-9q:) }OȌV/~Ѫ9QG.-q58M0#7㑳82Nx>fqʘIs4Rq4ԓC7LjmP#$׊($(iIQI?lm8?J߭K)ڿUs<lLVE[:Y4Ɗܚ1~xIKW x# Oϙy|~aKKןe}F3Wt3{Ͽ@R+HL6$-[e2jך|a$}pI$$+3*r͉Iz.(s 7]qm|Va5_y!$lw:!$r^5_0 !|MCH|CH^1Ț mm"=/S_6mX"ʘ/dJAEH[0a|%3&Lփ4>\eV6z#Z:!2ArZ!t: 1AY ZFjuLꄬ^-#d:&hAꘀ儬^-#l('z똠e}'lc  '/`c촧$uBVc XNuL2V@ Y ZFuL2BVcKedu1 Y ZFZ[ Yym 'd ZFuL21 [-OV'd:&h!1AY}9ZFuL21 [rY똠eV4@N+dNI7I똠e^-#d ZFZc Yu'`yi BV\azD dK4 BVNhqGrz똠eVDŽNв:&`9!1AY ZFuL2BVcZ:!1AY ZFjO-czꘐ Y ZFuL2V{RAV'd5&똠e^-#d5r똠eԃNв:&`9!+儬^-#l儬VuLP2V d:&h!1AY ZFZc YeA'd:&ha} hY똠e^-#l:&duBV+dRB&t@N+dNt〜c;AuL2NȪk9Aꘀ儭&Y'aMX$Ӳ##}Sd^I.rm)HKM 6Eno'`Fl"fdoJ7M=YcɛS߻i fotIXKR r7@ kLmRI#$;sD<3Zl&֛x&R纒LźtZ_Nͱc牳swoXD"#htBI̞?_XD_29meI ?krڞ| ̵;IW,dZ2v}v$"}XGフ}2sk8mm,#^K WyF৹!GId{CHO}y~~WF}\JioV2_N|%3郙@7yrէXEH앛ܲ !|s'kC ^u`AY JSo^%#le-+z e^-#l,duBV/z߫@[ Y e^-#l,du^({;Y ZFX2BV/NBֱF XNX2BVZ Y`AYem 'l,duBV/ XNتKV Y ZFX2` d,h!+.-1YiiAjXꄬ^-#d,h!҉G}F,(!`AZV,'d,hasAȊK BVZ# Yy'd,har6k5 eV)-+zU9W:Y ZFX2BV/zU׾vNв,`9!`A[k?:!`AYڏNZ Y ZF:vyBV/zUטp` Y ZFȊk8a.g9NX2BV/ʍrZt: U`Av*!`AY ZFв,`9a= dAX2BV/(uBV/zU9=Y ZFjXPꀜVY"9 JFв,`9akR'd5JsNX2rٞ+% yc!9/ z"ЇX"t0SDN-{/=9UJȵ8s&pgdrtfLi0mrtcT LlqnZeYB]~˲e-+xr0yzY˲e^-#dˢAZBVYBV]e [ Bz Yq'd5"ʌ Y, ZFBA*A:1 d5reeYrBV^[ Y^N:rBV]e deQ d,harse hYY˲e}Y<Y, ZF:֖pNeY2Bֺqyz] _o,!+- !k_V]b YyY:Y, ZFeY2BV]1ֲu, XN k,8!+. [akY:YiY:Y, ZFAZBֱ,^-#hYY,4NeY2BV^ Y, ZF:~tBVY [r9!eAZV,'d,h!+.?!+-?!eAYyYV<[ BV/˂eY deY lJ: b, eA['Y!+. !eA[, Y焬ƟzYUa dk:!eA[k:!Q-+Z]:`gQ%F ˲d}R'l<^-#d,h!\ Y, ZF~RӈZ#'wԽwUOU>-j 2W{9䈮xW}o߿x^ 3']_A<wWwzb\=q'?z}Z?'A7o&Ezo䟚ǗZsʎG{Jb{}Eɺ;t+َn[Vm^DM.._;=x}ߥ_wrPyNys'M+ Qʇ(mB[_jʀSq}\>W[(Ga!zJ#[7 /dW#Gwһa͋Ͽ& sm]Ͽimt"Z&r{o_=JJN"Q Ww-d9 ?U"ܯ߽xǗ79o[ȷԯ퇭|p#ٳ7{ݷgQsJ?tF*Klw_=~}=z[iv9\} -[7KҨxK>^Jklߪ!M { =h'}u7s?<yk[\QWl({7D1>(GQ~||葲Mԗr&XȰ3UUKK 0,*劓/vL!l39Fɷ/?oǏw_٨ 6 [=$p] ZeųC:yw#\{m>Kne2{$iРѿ%\_Sdd{ύm" cݣ2KsZ:u6׾Gq<}пRb4DԐ:IAdl䬲Wl?y9_Nl ׿w_E7^/o^u5" /^omtt}WBH?="s/*o^D9at%=+u~a8l:^VӘ~;աzK'!ڷUF*krSiw_|K1˹F(mFK E9/-ұ_~;^/$ %>4#:rrenk tm{endstream endobj 447 0 obj << /Filter /FlateDecode /Length 13993 >> stream x}ݏ$q{=wVgeЃH`I3ݑfwY_UUi HNGGVdd/~Y'G_\u _tןxz-xpKu=^EZe*1c~Oy㍟tOus9ƚS(pPÍZK92??=7Ne~W{?u{9KEǕ$/WiQM:jj!q}Ñч|_Y$Lރjc-x<E:(:A*YrLA"Ycq}HVe_A):juHpVz=2KP <ݼE p2~+ [Q܊"L=jFY`K2qjJ\$WG5rr|\}f?.߫ .,׸)>p SCkܼ gMw(Xy;\.( >ڈ\8뵡G-CZ/vT[hGюZ-=jYzz}iGH;vj&D̛1Dx9}o$(̫iV4Y>ˆT: l1s魓%f9K?vc'+ΒnfXҏ+$j5~81#Ȼ5yv䩿VpfϸQz͸Xr55*~\3+c1qKAzxO3 T8jaD75Q%ڣTrFfu;z~?$vcgI797Z7ޣI6.2zt{6+G%;.C}Tl^Ul-Y%7`㊹JJz SxjRύycJ%i4SUhT%V)[3{;yLJhtmI:fkUb]7qgVhY-V!b|J6r,5 OяG%LQUS6Z1M6rZ^f=;weo0d$K:#c;cT%VaƮfzM4&lfothdO,b7ZhEmlEc~(G5IQH^=&(d1y(TYB:3ӎ l"jhZAc󌸛ghwh|7òc]W[T`:{[Q6cO[os7t:V\⫆2y`VzZmw[4;:.OTrINY;6%n|{y3.EosXcqvٽwh; y[{}pѲa3.Z űE=*՗]dZXjěl[S׍| /2~5vlgCM s6ıYI$W6uo@8LRYMr B<k*lÅ5>jFP]5Dm΋jl1p4I,;/RYK6ejZ˘ y_"S%YzcM8n|t֏6ѐȄ֒qnl&34zb 33TЕPs2}\aدhX;.ڱjP%ht[~ oP$`1}Ub^71F:}VQ~| ` ,>w#]mj];9|9M=҆XMW%٬-Xk)ZKY}. &=h77 8{S] cOuyw)UbWִq/63qc17"wX[HڂzKؠ np3Mbmk.2&i a=>5lUG%5vq2* 'TǰO7Ʀs~M%l?2M`ګRdç>796!z -;hi]{6O ޛk5%9_^&UG5jc,eU\O%V*BfV6<+"5Ti"؏^%xƱ^"dtZ6ժ`:,JKr!8Ntz>1ʔ\G\/Ď~3obE8~mbڭnh5l: lSPŤRy![[vԍAy{3K Md(uYz>GY~bLbwR%Yh7&5cN̋` pC)zSnW8*=g{Ywzyq-:ijF#|Hߠ|"$ >#]6QUoGe>VD|Mr<b򦸭f+ygc$Nyӯ'%kbl@o1^m׳ Į̘:Y^2*A;RM-v~j2m(3,Rep,o7Z)W&nsz\=Vf Ď٥9wbvbL;t& ,k逝C_R%cz~,/Y(AZѣE%~kt2۽.*]ii+m"g|,д#t?V5($lnAM꿫bB˖.v4QU*k|X\)]%*5UrqW_zTbG5VU6-u͸cc2w N[= UgcjtvzFzx&g8%i4E|#u Z8_jկ16vmF2!z3q{9{Nx\~ Ltɝa[,sv3\\G#٩0Mbxj/FnPez0X:gs k sM!o'_䒼zdO_I.&G6{E^ѱJ@Mihe 7v:6ՖnZٶ[ocbO mI?h٢KW0kx: ipGfIwr>^< ֋ 56/E{#ͶS}T84XI.Zg=xm 7 &vz]y/MmlYQ%>[h!^X+=#;`R?Y,|~* 醺Fn}jMbhv=}0Ì%QrX/7f ^9A`hGD}k[>L`oЛI홬;=>{`ũ*7stmOcojۑ=2\7%{X'(q6޼yțLi`٫㌼竍lf>GA تJ.DC]OCt1yѼfܨFɳMpA%x]l{UN{U߉b:+Zw9;&mrz( "3򞇱J/Ni䲕?2O%:d 8ya%n\6c͘{L0yMr8ygp x\gGtw}[*k~d̠DaQuuCX,K4> 1o6o$3βi^m0н4+_n3r3gdB:w]0^~`A7x.k¢j wpěqx J"(  ("Ϭ&&I;Jjb5E:u<_u.Z!VQd !Ϥ$)((xSu!&# |K<))}1"%%oZ]R"GJm(Ʌ)C,GBL!9 M'XGY<^e,Rd5mS.Sg%QRgV"9,![ckd~H1JRd-E+kLQK yZ $fYI%Nfz<dBHGE::\먪 ϵ*}¥X)LDpQ$%NȂGbEg~Vtx )|7DF( Y7rDY%(n(Ap#GH!Ef'Zt s\G *|'F H =(A#H(^(VK )"B * IȄmx4+h$ ř")CbT^d))04dH!gU#E )$ J ) \"IA5+@? TŞ, ,H1 9d=|a5X;zԡFUQ#:}jt 5:'9KCɱ+ht ^bFO+%Fǁboh6n6DaܻF(ntɭ8} ptQ}A:.)Pc>.)jRX^C" y:Q")rF?k67KRgUG_4}DE#DY  }sUi 2Lr"Ial@dp@dp!~# C2x C*B( wx!a QЪHza,g=Ú+įnYH(hWOI$u*Q5qM2$WJ.uj/d$5M$~mĕuJ6g"OΦ4a65вBZuY.!unAY9YT@N1PO?˾HU"K%+ewEeNN :I"4+]*WLT⽉nƠ 6<$P˃`҈]7%&-l-hF 2{#}$[Kx$Y&PU]j(YhNxɭ$$)$T*w^=LHҡ"(=#`)IK@U 5MGdT_k/J'ɂH2-1@8=T`=0$A0(UG;j eI"n]t GٱPsCC$f{Tbp_ĉMߓA?ƃ!BDS I3@?e9O(IIQ7]B{Xy5nVR"i*ӬO^8`t-E K \qV=rtBZq $^/%ZqqC#Rr+RѤ%)&iM55B VմZU& KeV9%jrM@x+㕪-1-%âD++eY[Tѥ&KU:F4nK5SV-EPW"@Fh5\Wtf[hY`GD~\ %d˘efxĹƦb]w/VEoiQ꫍Jշ *oOWk>h=)ӊ֍lEknukq؊մfլV2Kz28E܎ѢV[Z@RՑhɺHYJkVf[V{t87E^F>za*(=G41E ^G{:=*]G{,И|,X:$D: յT)FЏ)AG%5hK}tYJ*u:VWS*pdẹg(胤ymq(_@5Zl$oHp$$U {H%Q24rP94eT2D9)F$d7vfM|깫] vScNg R@JBFiQ2&eQĝ 2aujZXHX`KCGA&a2L:2" k#׮SːLec̭ dvORVM4_2GE@*Q2Ϛ'(/1UrV`k2 ܒa g-0I9v)F 9W͚,RE1s KK@Dw$$-OUʚlqQd,.fBBbٔzSc\k*bRIIsrlSۗms*qRKQZs:hڭ*UDn䒉j% Z6fmWڶ-lVɼbw en۩`Ӫ۱5.uԈT[XS󚅵lxYN'eJZqURJooZߖ}Ky[V$i)okcRߞM+m Zy;+S۩ծIKXUnmYFG%Z:Hjz2"8k_tןWwk,zAM<&2O?15#x~NS~ =+n£;ۏWOyg94dӼX1\}wu{l~ۗӧ[x/l8/8#bGV-dl5=)VYQ7onSj*LQa` B px:=!P?=wnڡpQtxWߋt*Ozt>|xD'WpD SI87}XpWxxn?[FK'T6rx>1ˇ7xmDƅw!wx?noۜ4:< Êǹ;r 2t$O'C:uX):%<oaZ>Mcf> f:χ?^7o7+\3)S-w_?>2.g:~ztQ7}yKۗ;~nPviI^ _ܹ ,)Gba k]?#._&֣:|}@_zNy$elՅ_{Edثz&;*+M_׉w1T5x&吙.. /ӏrHw'*xoy9=&ujNA^1g]>XX@p7woytVw~zOEt?́}Fo2ns#/+@0+(# PV#o{n/ _ݿ7~EsFZ/9y8M[= Q/!TB / .rL;4XDJh ݣR|t" a ]WKOϚ~QCykEE8~Itwi֘xβe} {ְ>0Hƙ?~ΑL[- ܿ`-@4={H+ ycUQ ݟIkg:?~wڳ]H{~zo gǙOpí3o?+\O'uSP7zbAq!>|fGI,ؼ}^gN7]v:74χwq7ʁB5r0|F{ ZuPqm@[ /*zT{2fq$u8+ӻrvx?X'w/Ei;6TMAg48eH*9r41S5ni Rا|\'lw/o)d' ^i͕q3e1GAXPE ΄?pgZyM'stNq-8LBm?2\vAd%"Ag:$|,.~:T4'; yL,;ztBjGJX9yì ՜ 8zSAZ$ W&7J|A[hs,s< 34.Q _U"|QvsjZjDUA*H3yrOa!/㵀e%H޸$]ۃwABϊOoRRsJKA =R;;q+|wIya͑6XϞجw|o0~QXO2yY!ԫ4: L $`mִ $&v9lnW6aLx7nnʛqz؇'hXPl5? %&?h2šAޗs5cƪ@sYj RO56qiEʥO'p>OHLSq D|]+{&d7Mč&^]%l4w?R[_7k'#+jz"_UpDօ Ga͠ r͸`>/\rm{'Nno=)Q.3뗙MjlΙfvJzd^"~57.V"]$]{-N 3? Wy`F蠣&*D }˽yA_) "<)wи0OiuJߙ*4kԔ<׃seKa2rº9^lCzIDBXvTK[ko*)CT.|s '֥}Z6z)MgoHݪ-FGO? $==3ZKp-|؈p|n{BQq/mOSQ=~iĄML}]!tj] _2[m)qZr DC:)jqR^lxD?vwNO0X-B,yd2t xa#,Y7t~:ZثcX*Mϭ  vjuBu.i}&)Xd8tt]˓}57.0 yy^,Qxо'fގ ~{U'0K܍Nf`ܗ<]'Hzomx<>^'̥7tj2ipS2=I񆪊8РeU)GSVpYukw$]kM F 9tbu&#M2Y5^ٜpw. sA" W.  Y&)N\{ZOo9*@ÂÚwy.#/̳M$NLg f@UThb"ǡEWT!a-tt<6znW+*xu@_-G}xlI{ M_㭋4|hߍ[endstream endobj 448 0 obj << /Filter /FlateDecode /Length 3772 >> stream xZK_eLw[~,Ðݥ=|JUGځahꪯsӵzwl7?pgyZj\{4W{5Mgk*\Zu5w7amZdcyJn޳q|Bumǭb|<$5l3wߐj5PH5]~^tX tyna\agұ&4˿?b7B*:ݘ^QͮL7? QYR Lʒ kԨ,)(ɵl{YBI5*K*ֶUBYݷbbT𶛭%ktwдE:I[$W& j6=9DI r'נ(!ЋA=ԝ*kZG! _Qsp U*GZF#cXµUQhWG]ʒ cBeI1VRTTc*K*T %*Xʒ cBeIA#(.3D F@]߉GSI?0]s=9 ܟv?sM58B*sIP 0.e+X=[zM9O%񣓂=GO¶dΏT'+b=n4 q<5ic^u>#(V!lH ;DJbPܡVs>W+%u(oMp]czoWm6ۚGH#FfidzFj42CH#3ԋ42CH#3ԋ4RQ3YSs #([S$di.ϛJG\8b~SS}9 o˒8sWպ;cZ!Pe 9 ͋$,y3])z]ЕBS WQx+(Q%di.ϫu TTlS 9 'c$,ܕy "L⦓%i9ʁ{$,ܕye.ֺDNR31jr&I@EY+j])Ѵ!HCD4G9$ (3we^+%-問,Ao]T2h[EVJQ`P<1L:\,<^kW8^cV![4kЌ, h04#Ya ZN$E¡⇚i|"rj E1ո'.#ھ֐a %-<7kp@7TֈcȈhe0߇ߛ<{, EXMf0\9"\yo1|a$8,zV,:>'z BmNIS*7 Vו4 + Q *W-4#Ƥa'[Si4yHk$GwcD&{1YC%;##(8gD 4P4pe Xʤa7x+E% En"ְ38ƪx/!aX&$ BJ0K1͈6$@0)K+# X LTkj彍O'|AfPC§d^>o ׵ ġ% GP􎂹0ƪ֠4kЌ$:z0ɊHV& }]C$l64GsZKn VW 8,A3gjlS4aL3 lL XחRs %a*oөN MW;^.Tz4SWOU& skַ]Ψ>]9^z8.>8v^,rp.>o|\,4v6#&JT9/f. 8VOֱZx и^l:@c5 v$8Ex6q`9-ɳX&a ;Vs|o [Op_Tⶹ{wslxo4pڌDg٧F#:X)}m|L -NcQ~:eƤ2z,"]$gIfafc0ْ.5wi ;[28L˞ C"mi5D8{XP 6ݮ?99c֣4{:M<~ [O([6@:el$yhӜTO+ y#ǜwaBiGdRSAЩ1x[8^x{!* ΀&2pz @7d'[CҿO+Do;2kx,g $lø\%Pq2fK46u]·X/C1~X>c׋jз #ei5m׾#xD|,'#0j֙rYẊ<,g96BeMуѶnKl4ȿDWJpLEv琡@MF92GȮ2FF}%L݅&CRƤAzuc2.(1ZUJ옙Բ֤^eUN":y|LTcZ8!*C/f_笜ٷClSg HͶ\~~Z-gb=%],n]VBn"к_\#hJ~ ?pi0`}:ӄ_-Cyu2,LZR, (_Qۻv} !`z bͧI]Lll{ЪҲq?~0FKpwHQ)+21Tg|1M,4q!w>ۄsip&p t9E\ϣqGl281 ̭>]h}JR͇k7.l\˒CK&&zAp]#2<3ƭfVJ  $/*y) XYs3A)-}N& Q|Wx`|'u9>_P 2\\ jASfEh"}7PPMz8uɬ%(Y[\ϯ\c}X׆ }覕)I}2vVt.|6{jdly[fBO"_i{¿Ûn˞N m嬾-}V? v=-tyx:h4]orK]>a|w?endstream endobj 449 0 obj << /Filter /FlateDecode /Length 26576 >> stream xOGrWj33#$teݦTEU/P# ,O9T=/޼y##y]?KMw?|}JW+Wߥ+uܽA67or￱wƇ] Cݻ/^>?B?޽{+]{vz(!a{'7OBma~P"[w7<xP]WzݫoM0ǓG{*0'RTyKF s82f{5ØZdysDheS2Ui~(+@-2>+ί=N1r0VRbX( sPFݩ?ۦPety2C=ZRz1eN:&T%Շfx՝:>w3oU9D씃LzCvd35̣6lvݫ}xWg+뀘Cʦˣpa^A*!^L(ReA4${aHʍMGbe7.swjs,7 (7LJn:,v@\gEQ5'"ӡ3}uN,vȄ)(ݾ՜tX+~X1uN 'J\P dQr/kN(@GT tgo2)b:aIDžܦTV)r+&9wt&*wbJlTd^ uթҡ4P)ꨘ;yNYbԢbNXJ?{Nm^+:,NG!`a)<_(*鉢 Xt*(,:Gc3$ ^ HШ(40`EEHPEE .^(vȢD(Ƅ`,pe`QQԃFEORQl"bxT0!4ϏmHED5 !@ EoQHfD tA eQUT`?yTߑGUb;GE/GEbo UńQAh$H< rШ(QUD .0*B 4 bP$hT F!,*JyJǠHׄQQCQT\ C)Ew`GB$XT*vE7(*=xE7( PtSUńPTώ(+b,@ݕ|g] ݕ1lB݄@ToŰ )]#$) QQl&#n PtW*r@K"h˦F"覀AEЁA7 +!ɠ20\Hn tSR0ɠP1)AEXA7+ Sa-+S+`]tlȠ20\n tSR0 t 0tWBW1 1]A9B@Ơx AyGc%AC]-6ý:i"q*Gaw 2hy5GF t7$A#1|K* m3't*x9>?\fYe. P?pJj9|b99X~NZ ?BKYe5"N35 ) Yefp??~Nϩ)/{N(*}PU:PSs*Eg0CU)&(|0v @ >>U1B}NÍ>UI;}BwTS\Ϫ76X 'Y*?e!1/6OUl>UٝP}2v't*hA|PwT֨ҧ 8FUb10>UTŦAЧ*B@}[Sg㲗 <40m@L*iGOUwzbc S |vTp);{b TePmHg4P͆S1j <"tAUiibMC)6 Q`iΞbJ tS> tW Bc\00,GCC6!N&!J Q=QhSJ q*Bwt!.t HP+F2lB4J5#C)6#.XCiJ)cCC6' =Q*EDRt"9w_CŘmGh^b*_&6뾣hi);x \-wC3aa&ۡ}ވؙ?g)l> hqv舜IJGl~d野Ar1E?tD#~9Hy<{^_AUWCH&Hi2P^s _| 4w3aaN xҐz$ m@T#pʠ "0 0 j@*: (QaP:F Z8 zFo%o,:Qw4:Yphp)ښ,Zlkyu>528:POhiY> G$̳S%#p4?q4vG ȣ2$Faa!ix#iRFqt84I MsUPh(A Mr=B1 0v3t*14FkGZ0>&7Hɭyh iTN+ChM YSQ9iB%i4%>Fׁ MFҨ#iBB"ʏMW8q4y^haph* zFSq0*%0Q*YmwDRQcv.هFSY'ye"JM52RY0*Ȣ2;,*[ɢ2h,0ZhB Qu7MA|hv?t*ͣFiN&pZAq%&FSOMҨ(6$I3Hk}OQY¨zVhkʫ$Pi20&.y 6MID!4Qa36/iw{h~ ̋pF:Ed>Zy^+2r04=y*+49zh~) )bKal~)Oy_" 22)/yIح]ad~SLk 47y 6 6% 4#K@`>3#RDT704)ͻ̓Rߔ CAt~* Kax~S ( oJq ϻ%&02cٝ o BKah~SϷY}LF?z(/08)/M>ߔc#-4|JCz('~$JAM>,ߔءtWߔ"7T G70P)g}(=_"D%x<_",%|h<^2ϗ%_ 8+8 7q0)/q0O_ HRߔߝ cXR]X 7ep<"9:B!292Kny;}JV3¯Z;RgfՖd-31t視?c%znhxnhe0sC [=7ZyjZGg1P:g+/+-+-4ҧP>P Pf PPfPa+/|+1{+/Og+/ix+/ʔ.CC BնBöCCB}B\BP戭Х01DO[YZitAV^(θʻZi̩ZiKi+jB\ʬrTPgB;=h%≡O& UBM1y<-4q兺≡]CO uCC]Ћ<1O ^y<-ٳB]PW<1뉡xb(ҭP*+1t)L Х01J u<1J uC#L ؼ)<1Y+L e6J ] C]a/a出\$B8s)#2|P@Ћ<;uųC :n t)Mkw.]SkJ7PBJ`}J7PBRPBJB(@i"HM.P)Ҁ(3.H k)jIr7?*&NS}z^ ^y)ՊNٗ*?<Nϩ>+>+2>.)ϺrCSvgO_'~Vq \Hgmg&*\̿toCW+?+?+'?G^'V_CZz#heʣhz g@ȟ?+9N%heO&XOy9V.r@e/?/!~6_ClÈq>KllFZwl|Vplxpl|ql|Frlxrl|`sl9PY慇 ΟΟΟΟΟ(gE?=ś*M [滳gK+:{ĴRgK$MgQg[%S)gཙճS(OOgtl\ZކٲOXX2) S(/lçث@?eZd:zΞIlLul,r)ʞZwN Rg+$U)N%頪٠&@[J|BhcFshc.GQ`U$RZISgP^=TmX1t*7yQ/h4G >1xDT@|A{^Ia6 }KnAn;$ Er#*QT< !CC/c'9&9&9,:%\:Or@gCC?Ǜ"SN)40914cCC{8)40)t)rХBC%K ] )44Z@ۄ%A] FG 3,7:3@7 *tSK! BB0 D%@:n t)$K!.)n3m (t)M/J Ph-+PQT . t @Ps;tSK!. )`P}E<tS8n t)K!n t)M.K4BB PRHK!n @t)QQL@]BAaE ] B2PO tSrZ2|P@RHK!N%R< R}PC7x*++z(~)Y+tW (_ Cx(/xW<jV(~)F /xW<⩬XRt_,Ͽȧ-<ޔ`g-w?BR'[Ɯc( )k-epݓPuOWۅ7ʼ鵳 HRKk%lױ5DY¶Q7ramל#+RMV\ؠ_ykwW^-emm_yHSӌCM.Eƶ4Eƶ4Ejoq"cjkq"cjoş{Y|G[|'[| k%+ď ?n kOCF |oZW܆=*Rm~sq*Rу~|PW I9]PKv({D`#wD4ܫ'dQ:LF.%x^Y.8+^\QwwnB3w,;w4D/T3:FeywHnJ5LoG3wD;!貗;n#Aɢ-Q3E~s:)JxӶVŁ2$# %%<"q&ZN(ᑙ_>Jx H{9`g,@H%<*@y^IY$T32.?+G^u;9ӁT bU'8b FϑTjۑT-/jqPUpt*XNUe !Nr'PUΆ"lTF Akdr^6* }$B7D vRцEYPh C$0Tnj7J abPmPi J[+b =,qr DUi ]- CU.6PmsiJ[}//PEmD0mPCU1T{cr4 ;¢Pi(Te  B'2Z%'f7EkNTj5]-#5s jiڍ%/ڵf6e?z 2jBsξPpS?u+kxTv~Z{E V!JCW|>PfO;tUj]iC;Un誳N7tPi4CWr8Uf(k 1ZV讠-V N+tW7ϐV ŘN`nBr&UhrAwaLT] }]^N |]^N +0Bwx9~8R|T@+C+ɏ ݕbV记͆+Bwm6 ݕJ` WJ%R (}6P _l ^6K6հ0=%iK؝4%N/?^Fvˊ^&K6Ͱ5%e^x.x6d{ { _1슡/\Kð0 -Kfd {"2aSnJa+)w/\M+lJg WT _PS+2Ka WT _b);K--ܰIa+w_)uG2$ж*^^4(qD8T }I/pQ~ׁ1-yQ&t𢄿Wj+p1y2⢔G1Jpt+ňQ Fwu7'(WqjGIˉBc`a0R |b嶈qbx91982vņ391f6vdlȘ$XN1Hn'Ro]81O 1X /fc:3V Z3c4gƊŌVbp3c`@s-I-2tll+?6B[ RRc :d/jD;n84Z/bl̾HZ~ #]c/n`cg鱻K]ΐa0$pd`0y}RNLʹBˎeԋ.;Q/dŘ L6L\dMP\B;p_mNvY\M 'eB;-pPf\$;mA¨g9v^Hڑ9=?St\`ڑkMY\ʮK;KrqitMɥ Ki-,eȅ}M$.X~ KOrQigNԢMvXT\SR .V}ܰt^l"-ّH%NK` 3A^?"`;#b< ftAX<;j¸ t#^8{]|k70 A .d^4`AsI-;1|^4AKlq왢>(Yv 2^+K3.9kcYeA]EDk;"u^+CUr>zzX1tYMQz ܍ JfyZћwzbMA#3R;4ց z zco7!ţSHEo At$#*) 7` z*scR-rZHAB K+De"ކ ؄ۃbTQ~l1ޯ2r z0\@@{4EG=Fe6;9Gt>3Bi! !3!M\{a^)"d/z/C3.%΢SI={E!#R"!ރ# wyFѻ5轣G{h=Blwvz1t]LO+XD&8`чgC3>?DpDG R3> #H ˔kD8,".pit޹#E+R8:8H 0T77G}4WevG###;G".5 E1FGAaKلtDG=Dчx3>ɾM"DO :˽K[U0-1QẠ9#>".7Х[kQt*;C\Qt*fCêBx } CzfG]!t1(N$MM/dkVN7΂Y鑮j+3"ΌNI*2:2::y^ fƐE~{fqԱ9@^ 4GC Ftw4Hw4Iw4ۣx^hfewGsuG3 ͺ9ZP$Z TDke%hӭF݃SɌEvC(Z; DQqhenhXrMUWx՗vztzW=CSaȽ#2Gk(;.wu;hb$*r;Hhc_'Q ϩ m%@8D;wh=XIhcf'ƲEaE mM4m,z:d=\VuX2":smp!X Ɖɢm ?wCzR:W; )+Z,40iLC]s;W| :w-)' Λ݆=w hwMh@{Y$N f.T}텞5Tx @Պr;S ?-?{ ?Ū{~*t{ɟޏ=L*Mɟb&޸)7\ہ읋ȟZ0FZKdWz{8ٹ}SO?R'H~۝ы P`^ 5z5z!&RHVj/jgl BsbZWbVShcVS輛$r !^B,> Tb@cК;I9ND$PXu@ bw @]RhHHPB)sahPq`m 2'}߃@w ;e8R NAG?c!t\[O?о^Ch-BeGp s.Tfv0Π{NPv_5I\Gz&@L7ᇎVBL.JaCe8*ă@K/Ju?%& ( )#6/ѽs(ƞ8>GiRV)s =G мwмw<[!zh޻Dzh-=2;=2H=2Q=2 [=2a=2Ϯn>־g_r0{a{bg>gϞz|74}Wp>'ڋ gwZt;6my+Z ͳ;34ّc<6ّ,*J8b󢜆(ͫrШ(͋b6*`T'{aT{̮4 1X6*`TJSjm[iTHE!~ig6 f1'(3M CU1 Tz0(F]Y+T[5 wX*ʱ~i*-%pl f+[W 6 vv 앆`r4zbL05gp=V/pء9{ga`W*[yv(,Ė( U\o.m Q]d@=;7 ]ҮaቪDe`W {HwipZ3,QlQQ nlL(-)-a]Bd`t+*yP0ZEwcTt_Ć\ʾvi.ߔ\ v]+EUlL(E7%{0V ]\QvCQtE7t ${`|+{Cg`|m˿ Ur ~2zpa]!&g k,Oc FRo4}a:%C6r7!6!l5?{2o:_1].{g,վ5ȲW67ښXV·ښXpĂ[M,|+ob[mM,|+ob[mU0v>7m=^ߞ3%7]=^rҎ)9iV)9iVݜcunNگ_C/䋗HZ/X@&BIadRIU0RhƅR&pd2kPF2Up5`:jFy ܥY+%F(!WZXi0IBD!ۤB&Fr PYe#WNB&VB&|Ɋ %Z}S ,dBIOV E+m.I*V|~,d§ny~Uˬd\QDr#eIbTV+%FeL.~+H!8i 1!:&趒`#}t_uLMbVh?#/1AEZb2u>2&{\uL 3VĄ(1$ELdr|>D19]‡"&ѝ:jyȼNZ%L췕pk*:?ĹY~V {&F\8W e0!+tLBV {@y01te u+mj>$9#X0ULl|*&l!!%qUQċ*[ϼy d3BV)_a1&E|SY%L)i0ѹ9K08$ZʫIeY2,a/PYST 8`W[ULVf{ H[ Sf3PZ$^je*cϛY,c\b; (bbWxELP`:˭Ǫ8؍alW b$vM^5LmSV ;RʑdI6Aa+G\e+G2U$N}0Vd㫆I6dU*{&vG@rOq0TBY*^e9U~LSYާ&V no#!m=k-zyG&ҹOg $gԶR#Yz𰆉 q5L:hmFa eiVX$kt(i1i& Ҝ5LlHJm50Qֱ dbu𲡌"1YXQ=%%gnMNv5 Pc7JNDjU3 'mc E *PB=(˷)hH}BKCЕD v2- 5-m`I9N>8T(y9G-Z$@PM&4:cO" C5i:G(CHjtp{>H4$v#\Lhu>$P)4Tp#O%J0p ` h14xQ4rhVrtDlGkD= !C妌Pyu]D<94JLmS"dD%ʍ\39T>'Jgpph,;ƂyAT \ ^X 8@4ҳpͩ *%2@46TsS:@4$;Ш(*);fhJp5s e@P=pP n.tPFBS6MSAS@4sCJyY=Z"hb~#T9T AÁ[@PεASJ ]#.dΠ)٬*`&rMpMY;&'A?N҆ LW'P 0G#4&,&pMLsMa hbI|8PiTBW#_mAI6U )[Ơ2IbLPu% `f.tt ϱP?.ႮJAWBڠBAraj >pԛQjP4Fp#ԛF="胮nAWo}Po67XptSj衰H<Pҽ o RZ& nekʗu'_ֽF;|nzekɗ}rF'_3TH6RsnJ)>ԛsnJ)>禴snJ)FtDBsSM|:BsSM|:7->\չ),MiThvn [|BsSڝϱMX~RwnJ9;7->\߹) MiX~禴2<7~P\J sl,s);RnƆ[-Aܔz^ܔv36ܔv)*JH7cmϥDʸn{.%{WpsS9C.sSU禴4Y4Y禌禌RMS|.%4YR|nMS\J\MS0Th'-(I:QP>T9&φ$J7m3g99 4aճ#hB 4hau'2NɑZUZY R:6Y{G:6rm@;+8vCtXs*!@'E(P@}ա(W;zM{OwJ󎟾(˿;~z!wO]@Y˙/ eE|RY0quQZHʄE\+O1bTVXǤXľ(%"_lT,\:_ R 5RtHu%>taƨ3jqAsbTWjChRjCy6tTȨx>\jBou) ]!T( .g8]J?78;pMq8M)>,8.C9S6_p~ ӥT8.؀p ӥN,8]1KtWilpRilpS#mXӥͿһ1R0``ދyd[?xd^Їȼ,4E$yEd#,/jayƝH5|ZR=ayF^v&->TWJk8T+;y1̅v$ʚqd4IC<%ۈ4x"iZ8DF@$A$)x&!L'QΑ4.!\Jk;%TBdGn?T[OQ ]<<yT"H@DHƣA*h oQY9p4:DV*Q08*|p4IF>8q4yhjQC&q@M<yT0i0yT4v  sH/,|t<<,<<cQ/r@X!߁40<x4&F$FO$٠XIjȤ>QV(^8. . GSeEp4ɣ2@$R[H*|IYaw!i̓$f(I32iB̐#)*-"eME,ĺk<"҂ZZHMg H #r+8K -Lv -M -u -&EX텣28Z,8Z8Zт|h$Ex&q0q[Hq[8Z,e_508Z8ZT8ZъQ\8ъ\ ZJe[ux|ʔъ{ъ I+r~s됕1*tdFm0)1ZPF=/F⮓'zu@O?0.*F3&F۲ Sg2B2p}TsL󎥥q-X߳EY\óE[}٢R\: ـ٢Plxɢx٢^ԳE}nJ~;E{tQ[*vi|Q)Y|Q3_4U5S]\lpZI鴌iXJ<ՖE4'TWMŹTPwL%#j`*H#Jȩ8 (E2,4O`R)Y\2k $E^|ыɯt Y$wTtTHT jxtH;;QԛGz { R oH/_D4I\@ "5nFuq47-RW;ו-@Oxnuԓ|&MNT~DeA BIÜ$o& & mRoQ>iGX@4&ͅDx,XFL:RtdB)-D82'xS*J@U*}D ?$wJ#WUȝ4J S*NiT:^ϝR/eNia wJȭ;iV½OwO>'mL, &=DSc-5 O:hH DSH7>il@M7ɡR MlU6 M^'>n}+?Qr:m]Hڤ.M"߇6iRICUIC!'哲0I#p|)sI#&G?mҸ3&8#u ={ e否p.]G&fQiʄN: C**!M\{:û C,VR Vz Ҝhl "np0hβGsz! JУ?F͸R?궴|@\T`-\C(,{ԍjG\h,@w-kaJDո84s2GEǖ9Z KQwbFK#z쮶o/-o۽ºj[AɃ$Qe6{Kjg^ۜ$*Q ( vig T;jvJY{D\,Ӣb#Z/ŵnn1CQDbhnPeC 300TL-`}bqCw.`J:*IPju*#L1ȡkɒC2erkYB/sFa7V }7Ŝ\vGT@Ubs Ap N102 X3HeH xi`2 <4$gqAٸSH+43H## Am9'* MdibE=]zx=ìx}N39gC ZL #`A$HhNP_Z9@ՒȡhO0oTP&/ -frΠ&zҗq8Ch5`#2 V'ABh-n~BkqOP.YZZH f (CqCE)mqh@e- w;oW55=[ D$ 'іtH[e"і=veE,p nF&1 <o@ m|Kmp mCYnq(˃,EMš9B)P868(qzr gv7B@BhCȯ5q!T5P!fh z\JT@"a ]뉠[? A նGh>-Bu;B/ݢZjK>ev.aҖ|ȮE\t%EX^NtEe_",/) G-ѩt˩v՞l˰? ay|%"aW#*/enNYQ42*_iD1<{}Oox'AHN=/'s_?=/'0Uלݟ?x^_~^yoxٻw~\K;Zv{yur?G!V9ooQE߾ZߤnoVKW0y ҿ$[%7"B+[o3~fr@E-R?'%/P<){Xu˜F]㺳I~|t>ꬍxrnRzGO0эx??}t2igO/?|9فh#g?(z?}o~yގ:&_{*!4avn~ӳW~y"]rԯ)pOrB<]Q~YWh!x3ݻo߽㣜?s|gI#M_}xb@0M_=QNgDַïy\s~\-h_+T,4x|J?%TXoF y9׿׫DzC'|μO|0/*EkoK{}64c87/>Tg4v5V/Ԭ۬=>`'OuzQ}uqAr_냞a;C8H`cXQUfsмymP~|TqޯCr3Ȓ;lY+/^˗W`m_z6.u1{vy#UxݓE{GOW=seD{㏿琏xvms}௴_O!>ͫIa̯_^nùe<^"e&^򢽵Lݫ #Y5P15[&z1k>tv 2̛w?o:+=GG=7r&)xtD/:`U⫤7(q*q`$N_t@~'' MbLͱ: 2] mc=(gyv?_\Irwq~._6/ U%#c6|z>GJz--^+هx5^[;s05俨Z˸ߪaGn_iP qupϷv97g񒟍p IWtz^/|_+]Nٿ$ǷƟ|nғ@sm:5OĹ7 g眩0J⟻d%D1dƂY+o;7˟t?OOȯPw}DK̳7Vg>K׏|t ^>T}zoՇs ~gXdxÔ6nHK50Ysq˝πG?+a+W+uL 8o!>uy!W7r&M"wۗo? ӓu/ w{&K}̬ۿC&? Q&żoOόIḒ~BܺܿNQӎ=Q=cO!KB.7 s. eN:Nc)2e3KT7Ȝo?ۈzͱك< 鳭=7$k_=ߧ]4٫؛ҳd|b̉PzautU}}rr0Fxz8o/ wdW.+Ɨƒ$b˥fc^=E?RR{׆Ty=Eg$jaL?_u(c@{#9LKYnCDM!cgo?>=/߾{?Ag?'ry>|xgo޿C,zS=߯w+~;$y;Z|g~e;Ólm&R}G[35Ѐf9#EݏO$_=Th}y>)\~,vyx^^yG}QqOe5K2gGyBvo?7C \c9˭/Olo^ d> oA뀵<]r7VΊ}49#Ǭ_^=~)W˜+#~sz/|%sɜ]?_흼4gjտ+cҵG晚 )L7jsʦG&o_<z_m)>=t+dQ;Zc?>'5)`&D]>w_r+xGwoSћ;sܯ/S!ph>p}}x)7pr;Vis5J8{IohJw>~(sݒg/_ʼ+<ͨisL~ 3qmWS(rYg͋ϟ*=l.c #Fgfs$j>ʽMfs$a>M2D*AIB,=/Rd:5{Ƿ_Z9nžEG|֫Ǐ؁Q'Z|~"(Xڰ%ln[ÜO 2$}8Ms`'[Su>zy凲.VA 8̈YwΚOֿӧ0R㇉JB/, Ƿotɟ+_b?k4Wfc@G=.su<~#/j>+ek{oE2R2p/s"'Sҏ~%Cxl>[O3їU%7י$c6?h"oTj:sSCW9?}yz//f}(;L1>t ax &^yOh.eF ?~X*3F0uRsb1/B]v=qNh;ڔ -cOaIk8>c 7b8 T4On0ߋS^߯ebyFNw{FInC6?\?=8lo߿{O<@~&.<~u?` ?kۭ?߉?Ywo$a‰Ko]iS18endstream endobj 450 0 obj << /Filter /FlateDecode /Length 7023 >> stream x\o+Ǒ='—v-t/ ,/؃D_쯾{g;xxXU]]]]_3-:?7߯\"FW_U7,0 +8L^<^u{"d /ĸ8.:7.]nS\CWW,ϋtݜ:r>/i{:]ϻ?-" Mi/n<~ɺ~uCSHC^DwW_^ElΥ W.g yLb`dWޏa54DФ_u%*jU-UTndžb*`!oJ0PULCZ*R>-q;8)bFHDhz#,D!Rs_4wPtgvn%Cąp=i}?t89g~ofuBD](bFYc"C̈/+"fDꖕH-ye!2ČH)%d+I0 rB\)]"8k7+#CXG?$>q_mLVq$f"f#w)-wwq8PƼpm9v-rUp]PI}t&x^?OŇa@4"|QdqB_?W 1>>$XVihBHLcmbH*1P5AP R(bT5UF U ##_sYL1 IGA&M.s\6HmTo)S3Ԍ8fDoũ[q%z3N͈ފS-%Uo1R"_Q2s#--&vxXuE FcBQV  rM(Hh`^csU0.UE#پ0Z ղHc3CaMLV/H@0VS7PSl(2_*`Y8 {ҤJ5kLQ&a[Bi<ƕֆ eCLZ,xCa`dH0X à>E<ǖPTBaJ.xgHoהwV0i%`{h#_aXv"o(` ̡ش\G.!01FaJ.6?ΙR6@ 8ݣ#o(o }7P  ŢW.!0qF`x_1!7T5G$AxCQ|M)z@%,kalQ$$RDo:禢71JITcf=doPD{rD %p; #aT'T  D\-R{dMRP QP&a i0H"oXawp\bC] sU)i b[-jaIC P)gf%eD@NAܫP7 5`xU%xD5&(*aM;u-i :OՈRF:kcQu]SmMP]s;!v8Mۙ@DN'CH!(VR5|3lf=IWT3}2C~T\'3c:JS3vS}kevv Σ\om-#``q _+ԇ9P `F棡I"F߾p$Ff< QX1B8eV9yDC$ a2j*ISm2*ZoDɤ-:ƂCp¸l$n(74 "2ZuQ(QS}ak$͟daDs1::|n/ (NV> ; EBe 0糩{]C`n0T 0-E>|+:k)Tb p^T`nF6Qvy56W $ bDEo0߇=9YO/㏂iy@yzj 94t*=7 LK0"p;KT@ֹ.!0?*Q%”4 ]h!@c}񉟷k=H#2X`J1r: 5C14Ŋ*, ћhMH{zi%sPxUw\x6APW P0<@?sJEZ%w!FS!H$UGELe!`mV!>4 %08SϭJp<-K8}DVu0w!}Fc^raP'5#<*9Ř"`Y; `-Uqd]C`~ZZiiV&:$. 1:d-{V sEs(;ryo8L `Q_ /B!4KO#eH#!qBA Q0H*N$=t P%-BC$#P{a#)u$qw].wrG㩹0?NE,MͅmI4]vk/^W `+SSuIOT4.["1BpƸ7$32 b܄Bkz;/i-ʲSZN;O"o2Ͳ!Pʷ\"dP\E0S%m,DpڢOFhāJD/m,g7F}y^47~FEt,q _+ z{Hp U*Jp`Jpƹ/|3YzC"e_,UIPRѐ΂P̴/,EƗ?7'|b0MJ>ȍ|_EHdz ͍2숸'8w!Lg_[aI\); "hECvOaex2Plg[᢮2K1a]{ja|+ }7qS]LGYnOۧ^_ӣvqy:~~F4F+9o$I.)hyzdu~XO֔3ߴ9mńqjzOO{09k +vz(u'3oNť‡/i$X9%3qIsnuiįow߮oZAG?2~dž щaXޱc qnu-r8)~z>=[DA qb\ots**~cK=n -(0QJ[qq ( ҎOϸ Dӂr g]i[Q=uqMӯ϶en,c/Jm~aw0uKLF'-=EkGqX.ˎ|h^ȇtKO]tʣk\, =}CS;`NybeΨdIiNmqC. <ɧ:S;:  e n8&ꠏ3WZ{Ğ/;z!&eh'kz`MK;8o[tr~it"U`cYbF1| hHw{|{-i6˯{8,wkdoN*zedsM/?gHsZe"q~w}n.^?G`{8TXo=u[rT}|i<}u{EW^CihO'-%Mjqynⷍ~>h1K:ԣ,_ qCZ#OnijT<2ָ?qbF]8#3c]HtR%tcUY4  җs8qL&cE/7z52A؇PL孟mNZLB bkŏYiлӃѼ9rGlmI_ &jrήV tqՇqx#?p%6jݻh17yi_x[AWш-ߧ+ү>?;~A;xECgⓞ 4,/_wEɖ?ly1xۜ>,_ؕuz}2>3}ZyO'_nXڿT#VXS_Haŗ!֗Wlendstream endobj 451 0 obj << /Filter /FlateDecode /Length 36425 >> stream xMvq7?EWd$Ȥ22eG6Z}?lIht:|Abq|Xi?ϏfjGoe:~o_?ߟxݏ7gJ_?[o'\(ֿ?f_o~ۿo/?~s~w?9NF['ڏ)6Q~տ7'NGikq_oS:zy.9O{[=m~w#m>7]ߍdhz-Z m,Ѽ_mK|RxvPzmc~5.Ϲs0>~_&p}?VYm6. ˿߽,~i| *-V߭j5:C*-V6WWZ^8/i*Df|Y↑zbXƠȦ+|;O72Z5X{-kX95[N>² բOmȇ̆aXW&aY_GNos?2U'k WΏ0eypUҞ/,zZ0kmμntci_Oe,}6g_Վ> :C /VCeyyrzaB}k>r`eGwۙ4h_N* ⍅57u *#}X=ϱ Im5,Gztl`pϻy0L_>°9aoW߰3ȎDwerQ6c9Cm|ugOe+,ۃ>a}j,Z}6ˎİ>30,}$ƈ[.IIEaه=iXf#X~K^_| G0*ldMoX:Ge=ʾ⟃C/ MfCsh39$Ĉ~zXg=xY h7`83y/D‚9Μ=,F80X6-=CrZMgEcrA37]>r2 <W`yq4X0,*>o1blrXE<0hЛ{y`yy_-ڜ[00YIv$uVQ`1YIS:8+I)``_I|*J>/0űt,}ǂig%A7Jmփy]D3WḴD1Xc^|'؃W ƥ*m:ǥ2mǥ:bLZ:k IB0``$>-3-C#lM,}>Zm F͎.]hag=htջs||,~ǂiDi޺²iq|γbKM˓s%Ƚ8>`|:~ SR8>=6,63,ðahuK&WZ`G)o/x\<7} FJgF籐 Eg&$}~"l?}E$q g`O=<PgtYF,")4Ey dKgɟdğ\HϦo(Xu&ٿ7ɟDzȨPhNht-@ϪB#YRz2*K=K&oRڻڇ`Xz,ChQlZXx!Y %CKQ'~ NL#E( ?e~'~-i!~шWy,D>AJ X!$s!IH?F &ɟʟ_jrIAχ@|DPSz j!1`eIzfB*HLs $P'?|v)Dz <v@=^ZFN=Á?#u@`oD"$)*D,=*=#t)>@M.yI?0@WM=C+=BG^K\SbfD.z>Lg+ p3X5"Q‰DD ,9ިX%ޜ+0%Ud L8hFCV:d4$_v#~IaVҽpk&'HwΒ I)9]7-.tHX -$.H/)옞{Лhbo9VSrE4M 9@MԕNR qˑC:[}wvv ܺ3uZ+=̝t!kZr3+Z'tWN\*F[/S;\tϿ 7rYWxfgd_=:y7@@8XnpB߷|$igJa"Td07c% 7À(g2 Knf n2X΀Σ0a}|q@z&i>72(qK=S{ˑa'#} [ x9X!鳭Em+|àbǶmMږ𥝛q;HL??d?Wr&1;#Y|HuogTjD>S}j/فW\A+c}`j?>r[b*WWjj*r/#|^s/gR'<! :3a He p{9[!{T%~|<6=0+s\( P5~7Ʃ06q %q. }nƒ?eh=q*b0_^X"z:9y.I,ܱۜ 3Ek< / xnρ: #"-XyAjgúbN=5#ٚJ^.DC0-;}`n^ŜȼEY*0soxK֎1O A /k! Lt'll $:\A_/&k`;[@ho94\LmOi$ n<Xak(nFH>t=n 91cao?:shXF=Uc8F>3a/>A-6Depo/0^:[=?ឱb7{6&#xıbgɋ0qmGwτABq} @LBϔø>%~,g xcYMa}*@'cYcI[A'7eH G6 ].5i費¸_#"Dze~ڌޟ,|&<#0Xq\\kD6c1DDw3\p"ʱ0Ry,e`@tFױ}?e6{5*suVxuڧ2# wk)X c<+,1_\"=u,1!Kwr_K qX"!X"D+̾Y܄oy3L܄'ѦFXw2e8R(G/,9*n}Q YT|}`\KC;s"xK/\ 9çBaYhIJZ.[ḮxltCm??C;lDֈY5 yp4i1tL3IB5}t g0b'AԸl_%zɔ:9]O\I.zЊI-9tō B]rGDό-Atm̘D7.nf^C*B At/AfC5'Nn \zENRm}'e$eބ ݨ5~0?Vȇ:6| ˗8qhzy2=0}O>3gM3>>NOW9}$Gmsͱ֘vcmh6и鏡ߴNc [jk*tsr<{gڸWkz#o\g. ` s$\L&jͰɼ4yV\JzZ8|Ӯ,.=Ed\\|8~,ObL_~/Zz "\=P}51:pQ' Y]QXk$  t^Vպa"r-2)͕D FrdT6[Q~} T Mq71L3.ɚ6b?aӪ&Z}Ԅ;!ѱgw  DƋ 7VH=r+蜴q:ct:&|)Rs>]Q#թ wg{ zڦH52qvHϧ! ȱ-]Q}ݠ8\plMW]wֻTMy?AqC {hJQxPr#d`{mKb-ineHe)rn`Qd2;scǞf eV"HS9Ow0e;cW U>;EgL8cb{E62.CxN4|Cb`a=c] \X_y'7y WpyJ`~1V샽dy83hd\˫U3Z^8>W+sUZ^<Ƒ?_Y:?Uਿ'ѿo@/U_xTwEnDnQ+rFol"7%rs[Q6Jl"7%rs[Q6JՓ쯡LR҉P߹/ʢgȱHӡ3-J K??3i'Ru$x0` Vq/*zj~3_lbHTGm]jk l4:ͣX5Op\m!._p8c"._9JmgU,Íhت p7W668nuVz\yBXvd:ar\X, HVȱl8w6LπKЖӕeNaldc1tsX6|8.@c<6]`,Tx@1/5\4ݟ{1MX6=×nw q-W1Y:g="slCw!abHķttO_?nnD:#+ =?> :!!S[p;v&5]RkSVܺh][cqwzqưdÍc/YT%2^Qᣈ-`FAiF=l`?0tG (ÏDU0t+51tG/ ơ;8uCHCwxd gsیN 1R68TTi7_C0uXz`93"J+@htgĒ1tNJ3%%aĐyc3bdyEb/%1FRqeI c[AG 2_M &y~F7zC`GIj2ak%FlZCB"1aљ({p/'фyǂ#L/#p"w4r%lD0$QͳǢ f0X6(g3CN5_Odf,Bɯm4X`+#9ƞ}V5λ8=ay<)1 M+O8={?Th+~ JQhsU?/} )MGx1 ODBb+pt  s `Չl#Fqm;貟?Zbwc}4G(4NHd!qNxBJ6Si\=m~&<[ ;>7*_#ԗ!3@+ yPgIY'!fPL:ҁ@3# ԩOЇa"@RhKkZK") Tǁ@߉@$d @ @qhkb]B*.6]RګV ?fh!@v@s.>pOOH!h%$?ܓ?3d91 <+y/N 'I@ GLM]K"'y ՜z9Y2 4" !J%F6~Xgv~hiɛ$2hD~ $JLU (T$%кx$[E<چXI  .⃿v#s?z?@(s'}ɟcY?34ӸGi]?#(N.wg""dKܺ+7,\h~2d6rKWğe%n9 {qr!ƦNhP-w$5hz,D=}$P3U OZU U 5 M!PDB,Pl(Ж7*y7&V>Сd Co4t&#*S@m6{61:tj= tMe_x tK1#]Mu0@Aw{BˣiXZB$jB}+$GG\KdNYɋ4k;J̻A }u|M~\>r?I?^Kݺk*V[ b̺N|OV4''>?"~O/"E7ÓPw=A7y~4Cx ` icr1ظX)-bDh '(g?/c5cPaΰTR.bexVD1( -ZȜbg 傘pZڴ?=`RF..a?>PCBϸkJ ='x WMdȞIghR! *ճ.UKl0*}w#B,J J,@HUE8X.P(xL8?i?AAT#\|34ߓ+hcYS VyXg6+}sWӵN_"S~e7Mhӱ` yMᖜ3ۊYg~sbח2r7*i.Ii=q^.^򌻎wV:u^<3$'r[h%2bPCʨBԚڴuD-I0֘ rmke ȿ`IډS@cPaE z70 7O(CLq"IJ% 6yXwx *d(Z˽XnJ;wgY-rw* ;Œ+{Jfi icSYQYF] d$S=]py[ȑʑQ~Yuj,xU wWZNͫUZ^X*-Vԩ{J˫ԼZJ:-(Q𪡤6i\nDG3rjEg_ػU7jGvEZ>ZpTV|nU%rzxӍ"XPTlϚ9:8t,l"Y/usIbmhR׎ee%CH%EEc:Êl2<:d0~:/@CYO2JH/Ґ%ԱLpRʺ2Ve=ިhu,RQT2 `A=+>BPزxzVp 0aJ ,!Sj`YzaS)bhE)-31/Ji^Н.9Q<ŠSm h z 4KYQ;.Rk3bl2@v<<%v,Yoƒ\;bqq0\Gs.Й3U Ug.P 9;sআ6H/—檇òXhc0% T&㱤tbC0QAXg>L,!Bi.YhXsб47.\{4wht,I /41e0:FJ!P X^H:ǒr=-u˳K H2A vyE|j^@P\5Z(#$>p 퇸T-~桗ֈ=kSGX9EYuġG{,]@Zsu]*BLGΤ}{,\>n/kî=>"0k@MCFd3$lHd /#-qJ"]'"mSE[҉`()P\l:H?2HuosO*@\=p"7^Sb-DTPa3} heP2hureA=OmMA|.m2hW ڵ&fݗd$dЬǒ 1$ɠr$ 1h+IMdP*4eAP#lA$@+Ň :U!NLK S/ :IKbӢ%UӤezRZqQ~K _AV9A"d- 92x!3]('>ԙA u.24-a>(kAȈA ATB" WZu~22"h<$6x"hd1hS$жu "Ю#iIIu[uf+ OdLM4 @L$MJiN&DI@Jy$P(t.1 ?J to@%5!TB=` t t>`BjOBOu>!:V 4 5%_-tZBkHIP_ mP]m:=kBH')TB֛U'K =$$:СjYEjGM dWQ(eG.NKR_K +$N%-Q-QRI-/31t:9kfJO uoֹ b8\B]y|~PhƂ7PSgyBAAt"' dY x=Eɠ@A;1hLm2hLm󳦋yeU&SBh*#:l:VlKk\BPſ*ʟ$њ?lK..yAGeބoܨY|z~`>X?m-U5 sr4 tt䯘$ ҧ"O~P%l4scݙG~ؐZjCu=ӟYF>_ב=j{ݳ|2 Zs$Ҿ5OPyYNF-kjªYVZjVXjO?BE8{"Kα 6WB\8 -.d-ROւB_^y/v~.[\=j4?"7Yb8ck aX@.@pQ}e8;<rx MBR26xF8 LѤ)cM.kߡ̊H6TZl7(vԄ rd}IqfWu hW]՞4=AoWTT,9e#S<ɽ{%K6Um :q} ?Gݎ3kR8RHdS9AO¿Gc!G1tT8}Gζ6ߥXd0jMw;>DЉtGfGʢ64YYF+3pE;348.z> _7d:Y]n厎<}c`+ J*h`*P&zQkG,| I˚6Ɋ4ecvs2fS%tqjrejPPbHs<)e\fHY2R{ScXRa8XE*)F#)FX:ϐьgȰ ctM'2F_&yIwr+{LHvO;cȃeg%Ֆ9.5/8ViybyWV*s[]˫U^j8Vi-%=g-jI=WmyKC(EtF\̗{KE"b=DQل^("[!Ң(S,gU4EԟuD!dx?s)zP5%"mTPjU!hFU baMV9W#F=ӁkD[5"DTlC@06|:ДE>k;1,C6\m&B|Cz\ԸE 9r=.ru-E!>iOty6ղt/ y߈/DR >pD7-",iE∛@ؼ~$-ŏ#,(|$4`,BhIgq|<}6?>eh+ԣ#7A"( m㡖yXXju<jbGDQg hkGD}M9:E }#FD8kY;Yj5qPh7T1}Q=-u3NnYh[ 6Mݤe0xj~Oxƻ|@hS/!.M =T#B }LcIE0+Ձ :p!tpBt3BMiRfR1 !HS5B'nBU:K] zBBu$!t)PRn3%aBkxC覺 ԱuH##CXf:$0Q4!zȎ*P?::C"(tRhUߤЪTRhqVBJ YP*?Pߥ214S+CurhOtvfvhrhW|P:dšq$^nqBPjJd%f8| ,m)MU5 SQDEK5D~ ^ġ[Jz煡*I UlR"4Pߧ=)ԓ&^C}ZP>0?') )1F0TC$6v_ m#ږۈB{N([r))K}2)th5M *::󁉡{] %F"}QhO YP$`Q6/.)&&NޥН)D['@BaC CgBNEsC;QF$F u^C=zH t78Tㅡy,# mGCDCCCCC'kI!Jſ*PRbI!1$:(SSs~)t5. &.}=Z/$ ?^goYB /zK++;\tPx[%W'&W(]4">YO+E<>TeWH4#|Or<㚏Goscĸn|[߲ < tI|u>.A\\:\^%sjUzt(mt[s=P5J@!,rkoQ\^V"$3HF!Vu.d`M7sD3rE%]uǝO.mr{֏\?|g?bw`>&͢(d tݗ{W*x e]Ջc̔L,<ưp)*Id/m2Ga0p!k\Z@!#ӲB܈T`fƞjv^ᩚg:V mQPӤxcn~e(vi$ 24̔e a2NKe,ѓF6ol\$=i□TwW'3B//ej;BWZՊU{^jŪ=Viyb՞WZjϫUZ>ZFI%&5JK$[FIziV(FIJl(VQ^%4JnQ U8w}m+L{gjLf.>=rH6Vl}G:UKi$Z+Iu}2XǑO[pBA)e ~ ȓy+5lU9tOp=!KzOEC3*V%+uϽJy*&`4ĩbb+ UdPK *XBʺ2&ҊNW5֐ WBړ]H#eGW d1audYNPzKȂJHV[,y+TC B%+Er[a-@b_Pa&I >bUsB-i wR5ΔLtVs.S1܀XhR.8[oi^l{j-$+NxKcQ/v=h[w =C[0<(Ȁ $ cCBH^/Hr8? ±nUś#ȁ)ouȁ{Lp 5; ?cH(AۈG,1(y,{#R2e@W7D /*Bg 'fl}fl}H]gQW&D80kA4>0QjCG4"F =C4vd)DA޲ҧHy Q_/TPvBd5B0)/j)#cJ`fH.dac/i -HqC]mlPg*qb[)a9FɭTo{xouC]z)uC0竷nWU8\' [ʡ޺=9[:#Cu/1'e9T'Kz_=Lt 3{BoÉd(8)-P5}RԾINվ)mk?)k@Fkw#D:ڞR>]6g oଗg`DJ;T O&`Y[w>=ʯͧkS|^=x)tep:}}? DN 37:T-tL@IIb"PSIDPS!!/@&! 'A!n%E&-C2"Х6t !Au"fE-DPywOOd-wUڟ@'}Z{Y ?,Y5'}!#}֬)!lUp#lGѧj>=\UKhgA-)**;Сa)?o5OSbfS}JJkϩ-ϩҒɪ=eϵӂ-yϭ钊gȅ+ %DbO3I`O*==Yfj'{V8'|.^|V%'|-| gOTE"+?67) >ϮWIC>ܮL4Bo@},$NS(\*N%~.ջJO؉ "⧓It=>D&}:%s(T* O4~:Бլ%IlJO̴Ϯk}&?PO>|OӷiIϙ )*)CH\*3K>RB>$}nNYtp;s=U5dHWe^Y,,>D,ѧYI3?ӷk>]`PM2l,3C\- >WSl,y@2kϷ%طil%eh_Ng&M3!yo5V9F9j]~Ԝ-9}uڇ )H(or sN ̘}]sån*+<ǫ+Rp+(0Ʒ o~^\uRL tU׏A /hkg GBǢJ.u:AZW.@UuI( /I\0)Ex%xG *@Oҕ8Q'Yap˳3D2O9osyW?g)G!U2QSpiʐ NմTd6q2zkg' O#I |aoôa `Z CyWtb] O'/s69- jArO8ӟjuU32Of^^[cWJ~(7Y } ?ѺףuaܳjSggt5(.}91=:.դɚ횈ah;̦",1S%f{hxa܍<)z2 LWY 9`N7 =)&/)6jF&?G<یNj-b+aҴHZyg`ۣM<&ݣ}!X?=6FOA ][ S6_ϟ̜iq?9C}~)qv''Y4]/wO.~Pۏ-{wg2Ȑvɑoە4icsv-.-Z^;jZ<\w+Zޭ!$t[u[Uw,W+C~xQ?#!EZǿ'Ĕu3!{bb{BS}Ky+!9)x$v,!g봎co(% =2)Gl2VX"`?ғZG7Q =ķlѤizq~D<tY{m 9,3cJT>OقŇvp)2U%@>ט*9b?/.dN l WՌw; ^-ܣpNabGs_oX&z ]&6!\^yty08 ~apZnlFčk5&䛧ƋH& F# lkm+< '6QRm 4^le{ģFJaaDIHi(r,9l<<tX0&<s=d!GAJ4a4cZE=;8/K)_eٯsYl,{.FAn ΒRt&\w'etrz~zPt"-trpx,Q$#{w5;M?Y;SR_;gSE3{w=ANqk4薏3ҝJv ׵>'휸{SFs{'y.i*ҙ9vWըW\\Ҕzw=ϽKc{vvkg5e3e<ʹi 4zыS'E\)6!/=VӵZ%G(VhyTsb.N,Snx6_C"`cʋm„MMe\$mZ["gIo%%!*n,.vIMIm&3KeȚߦB ;Au0"4Qi#gF^x;>ѱpB~Snȵj];rB颵qj; 6AhzM1*b٪2hgi{h =0!k ϝBː wvOP[KF,l?lgf 䢥,տ2[|QoP0_?55q-5KWF^둆ۤ}IK6 Ι6T[bݱH!t)*[df )0v ‘wk~{{tn5#X~yC̔ױL3S0H۸{vrFsCs^qn,–X6t55qx `J7-wqciS?#T;k ]YF&~?14x1cX 汓=ެ#z, fc1LRr9i]Papʣцc B_FM:>sk?+EHÆᚎZq b1-QP̱lZM'"s7r,!h7$ҋ15F@6,]ر=U$ÂQ@>;BkpXF[&BDn,eqnj٢ w}𱬘UWa ~UP@ e!UX3/e rVx,}֧ZfElseTXb5 _6?ZT][²h Mc>Y/ϕʺ2߻*  z @+Le{D-QQKgB*O(2X{rǰK~ bo乸c ylp/)X:XX&BhC]n0?Z ^V_cXB=1,O !> z]DPn>\S Og ^Ws#?',k 6u{V{dtONgZ5<}Do;v}v;VFp ]ʂߙg xŽ#Q1 v}:z2̐題;dco;ǗclY:ì_8D;lXlP5XzlzT34`ÂЉK亟@'1Yx8KܡZtpoݏhY`-M 9CJt?CC!&Dk|{hNrhwA4#+ I A7a&AS8E Iͽ$%$:$Jir/AT5.I)D8I/Nf&>srTrq9ʍ 9F?.j] ]&K p_^$uC7ϸ_Эe09tD { D-A41 D>A4 *B]*E :G Y!Ai S__-U)-M`,-]w!-#ٔ$~AL D}APhNJ1 ;c7hOhՇ C$VCBrhrLr豬Omr CQCs9U84$9uGچYwm&7* mSΆ0PPڨ:ڹy1q0>PUUګXG39,Ю/71wq83Xv9kH햬JSX,S(کq94P?CV%G,El/ӿ :'J,AthvLMw!8I/&I_ 4:c$"RIc:Ic H5.'--$w."HԊQ$jEDF5HԘK$jI4$Qk?$Q|IGKO5lX_5IfHԨMz[zupW@Ry(~NY]*_nm_w%P[#UtèV9Ci+`,UV}\:1_IuF}{,ɧbNGkr+_S\a凜 '2L[Ne} Usց;{k|~v} 'Q(|ט:TXUehzVxy+utPkz5w:]V\ jON$(%!aR.~d3<0P_AG%`zTLt] $gF}Ex6U8TPUҧ+`)p}ۧſOS\XTŠigv[E}OGjwB3=w? O-hz+@dGFDf+ ڜtV9Xr[>rzE. =n^VmbXrdQ,{4䞋PݽhgC= Mͧ T&Dg ~C wMa93|BȻV\UPɃRcd_wR }ǎR7 ,,\5vLP@2m:1 =]e8UhCIY v̒^-JI孝3ϭַsTD!mXGqS'qΥGb Ot..oM˾]*'8m +; TFY;~ S/*e`:^h#?%2 }SaN/>9=t ^;ˍ"oa _47LkEݝmsfd9?al < # jU{pFTm‚GQC7(cm2d Po >j_j ݥTmmrRÂ<ц{>-K0B3,bgU'`EirU#høOWZf+>DkեTL?p4ДCW@`!6C/jT'`0숒`6ua{CR0S {]`Xۈ/֌sW.+OmKۍK+B{ UdBP4)(ԴL'΄YQ.FnBW'jBb9I}Qv/cބQDw.BYBhQ/vBB"u!TiB%LQhU R6Q.j')tB[Bם oo/!W\\+%B]2h}TEP&EСDСc"P.EPx1ڣ;ZU151hns&Y$K'!b tsJ Щ|Щ:%%8^'AsM],}y!tiK.!SpgJ ]I.G- Q~B}ysB/3B݀$uDIHaR#QF(t?_ u(|* ՑJ uiBBKBP/(В(4FZx!([ZYbhUn04I%1V=cbhm.C~Z)Kq1*BZ$VJL$V+ Z8 0Jհ U_qh{ĂѦtQ Jm@$69 I5F IT%S/_6&6eJ%z1$ژ {Q)S*Qi;Qi$-ޝP[N%q(!I$+j=]"]thWP+E*Q+(G)Q+E*Q+E*QTD4VS[.zP\y(g}3ߏz|ֳ~m<.j1o*_<.hS1GЛ࣬NEz[~zbCciƍخ}u}rq|79<(kX[XA{o=?źk)̗fpb͉s[rƋx=פMnu8;mp.hX[ i q W 25\)Yj-գE! N^\͸qv R.tr  9pR}sCWohoq_Vl)*#iKSF2|5wٛ{S2B8KQĩt4Nˈ%9$OΞJ朢͗]'w/ dSs%m%M4n&CdoCPI;EXȤtF25ڧS36_N:>C|:Gc'Ӂ?}9ݰN\5U9\ }omcɽZʒK7ťʕeKwWKܕqvwnн;b r3q>]ZuTvxjūGhlUCݪRo?j^?vE}}ivG- XV! 옧Q Dx,B`B=o/Ԯ(s,?oI)sA*(Tl舥u ^eP a)SY0Y[| /Cp+(WT:@X.Hm/:9"/%-e!IGci_" clH@reQ౼ur_=3炏1Q:DyI, {Uآ&%/uV GEJ'5@XaA5μOjrQBN/xQtS[#E+B:xl6Zy^ܓӋTσ H/B}\H>EQVnyV^*QtRmÓg HhΩ SQ]te(D*]^SRE1Y@iќQVkb9mE+@цF$ad;ԡ1dGСt/}Jx=3 C\(TOyI_ҧtE"m ^ }@UNY% |3Q)YKMIVI\gM%z\I쬟~ٳdgWdO)\-=ǐsL >r _!˟:oSG/Zάf(YG:AP dP\]L])N]Y OF֑!.I ]U- U6|Pm\ RfO YFMd( ݪFz( :9& GLPn[R)#)ԱJUYbcD nr)#9 ɡIT&&ꯍ1J51ԡ\G "ZR&"V)'^֬' / Ъ(ZɡU7Ct!d Dj&6JmU+mMeMmhrh3&y$.DpQghBQ zHBK]_Nhzh*!UEѮo)QܤP3h־PteˀWR$#{"\``Ce|B- SozzjPvae­J#~<ǭS( ۯč.49dnQSQܜ&wԊ7RgS= q<(鶽D˸Hnx}lRzuHN1 ԭՒmXCcZs5a8k:@{:pBY @/R5hjv%{+c&Iv8T҃J/S/sɶ^ ǁ1S^a+O,>ið9KLN6x%t31{*'-#LZF<802p,1hٶe`Ǻ[Ƈobjqr'e+Ӝ%MyeFЗQ?# q. A!TG,P6})*]V~DAz@BNpLۺ`Ho?8 xRt t`mSebtAf`=KC3E0fJ^808SbuT2,2u{7hKA& b2\ iUnN* agZ"!ZXl %LPaZ"k%"gz¦5Kxr-{Dνh"KlckZK%2 b'Ԗei`pci6n%kЄ.%ɭ塕n5dʁeAo-)+G. S8%fl3p)upJS%VL8IIFk abm+_PKB.i)-%ttTX%DdDjJ0߹AV]B.1XS"} |ZR̝\UB9ǁu""Z"n&8#A{A{YCZQBg7Z_c 5 BV$ OBGyBDzN"XBVZZZua - L~I!tվ!t t!trl ̲iO BېBg-q4Zf Lb Y:G:۷\K)PS!tae5A}zf9Ƞ!ABȩ`РB&t|A@ 04'^A3m5KAA(D4HfIZ]@30v",(4qIddh@ov<֔ A.YɁ; XM"@)y 3 4D)ɛ "!fzyi?{ >̟YY?{ZisZ9|:?4?ѰIF9(7} S[ >E+hT >G5|F;EϱWNDgS+}O}27=K!Fѩ#ܣ;1//J-%ی]l_]uE*:=i|4Q*Ӌֽ=~x%{JkT-J{X|EM!u7;J6ob 87%3Ko}!B((a Q鈴(aVYRZ3-JHR]U1S1EEDӤ(/N"=`$U2\ZVefaT>,aҶHSBb63%#]OԬ̌Mz33 4ȾJQ^Menj>y"AF  \bhZ!魉 t"e^HRl^ ] f2eYN.E{z&;8czJĤ[5uE}V$.<]LVQQ-/m@ KᇀT`hfHy'Mՠl_mmgB&'Ux407w# [2_m5AsƪMVoeoVVu+Y}[V? 9´9[%ǖwQ0fĻoecŜz  fe?ΕE،._;E<i(m|1>eހ[Pm:%LPYC9jb0.J RY?YpCRVDB14Z>͘r~(v_Sv^OO9+RxICbj]'* &΅G7M-8^a 2,T XWa~^ TkSe87d1TVp WB*,P% a<TUt?YB>Y <|֕B`^_KaTPYuໆNl#ymx[.X0( =2"g!w&l0䏂t撇%#κQP;` }~Na< SY2s]Nb4L1/*s8|&gY=4>9f0d2 rFt]Uc2O;TiԌr3xLH \LJ Tfx̋ NQ0MU6 CSե6Tp QH`x+G_I wzB>҃+RŷO?d U,I[֔_Y4֮z5uV [b_a2[K9m7jK,#i^ۧX[~%P<_v~[2_'KJ^mQVYzIKi["(zq:-t-L95 .$ɗeZ2r'I4/. Kݢ3LKZ^0J.̔˚%<m)pd7 3l\" +%l;\q6IXF xWܪK,tCCGFoZbgɂ9Y5.i?9d1E4.k%eV*X|rתV%^cZx~L79gw3~NAU Aˬ$DBЩ[t\BEsAй AcV%1:+]ti DE3FŘ*]A\hL r! Av\D. (C(9l=DМmSwBeg"hC]Ѕ9dm:b#ho+i!h9B^k4d4s :艚AAZƬ :6s`CA :67O ߤR2h Z4d-]5GBkˌ4Щg\L ҉B'0ڥi(t2 CghC疜' UYsL|MsBBFE=󉡋 C]DݓDc9=1$(aA4i6@422#A4` kXCO;['F2`14F:#"CD`rhX09tn5QF0,!yиNN dCrhXyɡq7LBpS`h^0q)x$C3sCg-.;.:xd+$%dYа{Bã Q=p:KаGYÏ=ĠfJÂiOF[G-} icN ) 4L>2+hpx`t3 ﰢV5wf1t d8KԹfgPBA9P5 zz5$. ^3ʑ @wW}{5ʸm,Vzf8cqp!t;˶;*Ǝ;M$ :b\z/)sOh-h5 X=K9_|b:N&i-ڨ kk)'ls^{Fy7暑oՄ oGиL4K 8iB^E ܔk @d 511*4ԖRgE q,W;ĂH$F0D̀MD̜h .9x(lm -˴fs~6q2{ {c>.rYr.bYPr]DViY%GJ G6=ޚ}Θ)?`16ɩ(Q6h>cA*[CEOr8Y9{),+j𶳊+L_Jwonw Ψ˸k A ]2B3jIRCӝuͣ,k:m# Pe۸ JiXWfRaE'SH*iOX`*B ECK=UXzdWMS#lݬjm-DRkIɆȳ>d4OuFAR$C91bp%Nj.%`K|qK 9{”.CDrg'Gf꾊Zzde͋x)/=lf_nb*9[Kr?x"Rt}ǻO/跺z8mAp"'2-oO[uc۴xp?z/sxss|=O,{: *">vnNo/<ݢ/bHEY'9ɳje.0}/wPk@ewڛԷ^_\S{ǫ۫Yo׾Loy9Os<:W}% "{VT,|hxdWR=<;;5 4).]w8bMRTE}yoXoɆß/y9|A'{cwm|P>ݷű^^xsƯ772)ܹC NV\ UܿHOn4xv.G9ܝy_bjkw~zonuz]ߡ `w|6~5}aOig5oNO5611 o?\ɣ43KەCIem<ܬtė+;^=pWx/`E_]7q*d4-E\M3|oJ@om;Ժ9)&׮PG|#\joR5e/h碉(GX:Opy#WT]VXIPs멏ק8wZNhsRFU֣^{8At9ܤV+4xqg:G{4·~:/Bmm3~6zWCӜYIje3;GK\u)7ÎP*6m׵NG!Z&G,Rk!׈[v=9V8DEǪ9oߠG>ب̇xyzƃg}Y5zO~vpPoC7XZO)а BY_B}kw?:#TxG]"%W͑XSaz?UmSw\ڤ7꫏o|i ém6Eʷbehg|oJ3{Op{wUoߜ]ƻO95i z _fĊo: 8.>;^5|K:+qeqij|o>i>μ㵟q$ d^?F̐v~cf=r&P&los؞)K4~1TBUI1'(~볅c0%*k/}ƨkaպ}|k]Hčuogn×m~O87oa졍0Rm&:`Z>:NG?9gk'Ɏ3]д[},H׎(_;c7h1n>5TV3Q) Ǜ2 IJ_/0Hݧ;QzrPĒG}p?Չ5>(>v}by]^?ן^@kcx[1:w)='ZvORxYcbk'szw|8]ݾ.K_@r⮟]O7hLa*G?ULH0I5J!șD%XqʒDLO+5+f~׬-ؗ 9bg湏4&˗v(㟧ł_RDzq+v37R7zNA9n^6Hve.?G 8; ѳzkik+`ɳ?pzA?\ׇ߫yXUyoOCAvպO=/Ij7PWK%~cGpT&̃U`/C\OU7nn?*Gt?1>극vs{J dظ^*l,nI_Q m'> stream xˮ5ɑ9ϧ8Nt}A'R'ЃF$K,޾leq,f uow츸|x>c?~^>_ߥ>rKs֏<>~g;??R3=O?;|}ly}g~˟ۿ~>X}_/?'|Ϲ?GLSc~wEdߘ|#g?ThmYˏȷsgOQ%|QKx': Qek*QQ?ykA6}vg+ӯֲ띲ݫ95!bgu?5#?}v~^b^GE:}TDZޗuTDzKu^5uTDQ/CNsByxo꺈y_B}c:ϸyRzkכ~{ @.Kޑ̎2z~ܫ/M5}憈;??l#3!R*{jgAd6Ȳ;d}8N}}~'x߫Y8Q?}Wv=2yؑbZdk`b?1 ?kN[}]>;Ny߫n#3!W#:"s7M{?-bFb=4}G k_Cq=xvqh YfewGg)7?6D&g=f϶,Yv%#oV1f\*v1F#x`~Y 05ܑf#u߭ǿHa葅c*v1G쿷OcAb`LH.>wd-DiocߵÊc]fC#ڎ`0m6 ~|DAO8.=8,F&~־[ٿj|Lu_ߴ8}U:#u}?g߽4%!'" Y>At, {2H"6w5D0,{[U  L">*lfq  ھO6_fa$h>eَ;[Pc=&4y}GLJ1MYNt#A7*9Maz#JwjY6zVMZ`$hG6Y֤3& >T,>Wo\M@݇Қ4}j4+}@`\io-߾?JcHa5'}O 6W}Z8d*I8#0FLY>|ޑMu2 Q >QZd!wd `}޾uƀ͆('kkY͓6VoUչ>{C$7U#;Y}+ 4}pót:8@ac˲KQ4}lE#N| hnTTrLM.L(L 9s E<߲Ew]h#(#E)௄s bPpJbѦW%Xt_0bXtGp1Ţ.;2,'<3<Ţ;2d}bt0ګM0j000;E~2x-]a~1Og(!ŠF7al N=$X(b=>O@;"$8 F`W 6|{! Fwd= cg#cCs|o)+bs{}0#8D,J̵ ɢ#Ewdf+{qEO} f=7DӜDSjX K 3hT ^$HD!"Q#'"QjEHILqCZ'H$^D5N&D Da D!Hi$"Qg PHt=1&, HZ r ,rfeAgAY#khLD0^.{@^a=CL5&7ysk+C7K9>\r螠pуC7bgšUsp)3ɔZ5&D Dr`='YtNVh0j 0*ր} 1;.5>!zF$6ea]GШ>X4j`t3V FE0"B`'a+ E.螵6ˏ0: o_,`⯒wLƲ;`\@̆4@]wk_7f{?d<ǃGv?J@i3 Z'fw G~@O<_sE4xӞG9#'荵-6wכ:k99߃LLJ9R\ĖE=9Ǵ{P[yh5:-©JLi=[ D ǬvOIRp75JS3k2N[)"9 ,5U:{:5H$)"ȣ[Vjζnu^"%Tq5лLe|KbiolG(]IZOoCS\Ht*CCJH$F.i;FJ$ /# 3NG9rКaCXxD{ S)iY`G⏄_GY@ig`X]%oy%tAtAW>{^Ʒ+ !Ҭ};C +]ۃs(tM,i_+#5N{w) s84Sef7{8"kg&2Z)G]E IYS_5ÄZjS1L]k`c)H(JB(mCuOA6UTR4sR I.2L^Z^t5ㅼ7K3WB%jIckhMWI¼Ҭv_^ 8&v* m| qlBKHL:-,6ćTIGgZ6dP`9gعKsf$4 X3F/Wo1cr4ɂI9bȔ#nC2M|0fC½c7˓.-d>D,K|/;"diʓ>V'(lg~GL'>$%"#Le,_9U괶# $+@Y5|O0ЌF% _/y@E:Y]zʂ ׶_׊0H1b5a`D;2YlӰHO[3RtAۺ nq1Ԥvd1oh,ΩU|@z(7bn`; =9Ch!=@Eh׻j7P6#݇6 MƏe =D٬0/'6mCi+a^((ހҖ<ĘĚaL:}_酏x~2@|΂vd 0(P;uDmG2&=-#̹6U'Ғ (TٳHKl$mu(hYNs_ΦʾւP].w&T/GP)mɠpS#wdrX7^KM r(Tvvӊ垽yt=!_z܁FippG_/jz Mi$ΉK;Vl덥HE?7 2Bs7.ZBE BWaBC/Qa"BWH&YCq\jtHN`hUƊa`=ΤL~AMA6MIy&Dc/Hj#s~@tO>YѢQ(8 Zr2(D+bD$Z .HTI! HhSMcUMI_EZ)vv]Xh$j.O).HJJH$ѡU ѡCxsHt~{" DMAQt8|PTAQ āKq@(HD5]"&HtHYE@QV~\(:7&M,ȸPׅEMExE3E'@Q>n5l*@ H0d(5cHDnNLh{3E!Qc!hLhS jcD{ Dm5' ` ݏ =Q/Ht񐨩4LrHtM, ZLh(zP( FۃAѵDѾUQ?wF(ڭ CEFŢݲ7\ (%@4X0@4M]O-;9 S j"hDRpc&A='U Zhdu@t,DmЦG+PfFhtmyhOEk?")CPt?B.q#Ptpyp%E`1dNR͉X[I.,9_^U,# %~gQ+Q{U^Jit=Okn~}ݗHՀ{=iE$eqc ޔs",F1aIXGTW_R˫&X(^,3- YVI=܎D? *@Bg2 7z֤g"h˔Bb9ǾGY+ <w%X@MAJLp6P^pמ&<}-k'ٞ/e h3Y4n.lx"3hjXaоѕRܰѹebG3rQ`8mp;Dk)ƧT.Lr)e62q)e'JxGRjlK)K*H`g Nf0A\q $&0ĥ[3wd0fav&jNgy+Vx Dm׹@R )& ol0]Sv73yŠd|NqM؉d!i i_6^`1Y}J'Ny6#lvcB/szW2[K#9K 㑜_,l@ok;Mo%Vci)tΛm%\\zf#Eܯ>@fzSPCю@u !H-7)$.ъX`QܜH؋^kkFfSc\辵#.5IwIL輰#O@+)PmTm Vϯe o2ك%4 l;ga:w!ՏNy8erw1;mK ;`g_e:m:: :ņЩ ͇;M,CY/ 7MP` I(aqєi;ةj݃]*ipg;Ρ>sH $L2Ü<.Ҙ:C;t?tNE@ίÜ>9ÜK乸,sq(sZf"OP$(hxa=DܦE2ܝ'#ǹ\i(%7u-lΝu; ]=Γh:8{l㡴 R_U$lLHDoQE##w:|]m0DE^i˄S_{˖׸˨9L)mϗƆk̫v{`"u[zÕ7VGSlM1āWcs ڿ* U1T$:'摢>(9k^T b 1+)4kgSLi6EcDIkЭr5  `6QuB ݍtSʓ.1VsV\,dEY@*" wCA#o B5c|t:->9hu4̣J!̊Ijу[*t!GUPt]!jPG͔x=*$xƌ'RjLu@$Ew3?{WJf ' Op*'=xM6ox@UNʬ}%ETXY\q =۾C Zq(6;'(dh:Ffj6SH$s'hEsQ؊<)M5YZX+:֓WXI դ%pI~ZTpF`,ѣUtB)vR# (J* !G׏SXqBRVSѧV~BJ~\Ħ",iehi\Ď&ɨvp q* gC 1\Bg "pT > `/-V:W*`Qc^yMC6.5{xl燍jb(Eب:J(]G)rF5QGљ7˞Ci>1ä((D^GYu#R"(F^G=p̺b$Yc*(˦|GH3p Ўrv2vD= JW,$I*QzjvՁQOM䎴#tP^͈c_w҉iG`hԭ_sYiG9 P=?uTbGTtT_c*LvH"n)9Te]ml`խ ϚBi#ړK{n_~խ_^.$#Sm(mcΊM~`L#m^m|߬Nݰ@ۑ0Iv(ڎvkvCЮl~ `*ݺm%ߺ88 nG ׳2m(t ۦڍí`;2\uI¦5pEZqџC=**]&JS_7KD>7ym𯛝>u 2U췭`776Gz>uvCkbwt^/A nNyt-bk?nn6}Xnv7ؼݼiv2SQ#$.bd-Rߺލp6ρe[q jhk<4AMׁU,IVݸٰLNwq~vf`7]wvހ.+jow3F\I O,o0C\ JrˢjRw٬@mvvvniCF7ʗ+C3Fg ^OwmT4unmr'I=cnh_av{]̽[7vVq9}Sn(N`YS؄1ݖ1F["1 Fd܁vhݷ7D|:-:ҷ1r_[!ὅ*mĻ)cxo^vRroyͷdjC}_myyA8Ԡ: ONrhNtQ 5$84'NPۜWNjGO`yPU:ڞ<* U2hà%:ACV{5߄UAAi*mY]pĠ mKAړ B€.Ƞ!'v!sQ4::ݹBAŢPLBU'9sM5N$I,?}˷[3!iiFgxRFȟ91?6.f ,ڵ',\D=j jN9BPMIr>=X(m2bm2tG &jٳ.?@ǣС&էF:(eO˥ ~N> \ڼ4\ ?W~.`O@6$~ڦOt'~Oow:"~v :"~#ϬmY i?Ϣ}E‚?5 Z4VqwhmKhrhK4 &o6"&O4p$v\9j9"Сt6Զ sB!$*Lj"rNY./n@hJHԥ>p ]MO{~ʋ? MO5~ 63ɟw?[^P8bP[L]Q!hM&96vV*7QB2h+ j֛A kbОjG jF^1h4F~cD =nA&`Щ&VdWbХ=BХ灠k2 6uvG)PS=|?і:aťxdse?ᛗ}um V*sv_K򼟁egLK^ F[Y~bMZﯧ 7z}rXK\WoH=vRd eFD&tVJ4JpfN{5[dkhAGQD~ˁHl7sY3bU,e8$shHCS23^+GC[o,b|JH7'mnQ|5qwͧy@26#?n0ɭerฐ܆ܐTt.ty?$%)Q$9hɐ>%54V 4 <)`䨠ܢHE/XU KLj:gg:Sth'KɎ ,!IL"wKn2#LHͮY^Jk+>ұ #3bJ—o+ T癉Yj?bf+0/Oyʄ[{^X pT;S"X\?|#nUr9u;MkwWL浫 GWe͡n % -9CpQηKCܰ^.$$|!$Gh8ZT}GByxCy -vaBJQ?2I$&󾚯d-~u*[ϥ)̰ڕ:{Y:PXS۵P5brX ΍;ϢttukkqvCx*yI"%`D$秗YiemsgӮ,KN7|*@.`O(E(4Źb>=qbO(E^W~(ՖeزX޶-merwy?7s~7w4}G࠹8 vs*8`c$B$_~:.iln ;ɥ};yu+xi l(/xu5h?B>;W|ic#a>P4˥{:m?-Wi꾸P^^_{e# ,O/ox|qɰcݦ/:ÔlG\ﷹC%(ŠIS؅FjN*47ٚ 6kEEKƙv.5 ꜍W}{猽nt uH52~ts>]7PЎ x`QGL=\ZÄE[ = 53?jZ k-^{z)S~ d.įn>n@ؽ!>&ݬ\QK#C}6hC7D%t/S1t.>okFϪm]a:{2\dXEzGwl 1h9el`0XY̕NY%ݔ`٭n0Ժ߆^4n('urJkD]Q)\F]uxn'RW&Gnc?( M5eP һ^$APԵx;^zN.'()MkjaBZ\NhSk"+ƲπV1~9 :i{$tY麒;E]QSMK^iQ^W־4?]ľ Zwx?h5 [] E<݈mY; {Ki%8?{ܽ.MaC+wnފM@mgu\M|NjBՍe7Y^@ggXO9ݤ@_ tftntvItvIp>]Rs?.*M]QZiu]P ˻myLͻɖG{nnyZ B-w/*ji,{B=< B 4+ 51PSpТP[ C)~iDG{UQhq@hS -m⍀6*5T}[^ BmBFD:# b=7T$Atje8@tJ ]q..Ib WQp EMHl7G$j j,V$QcAZDm_DsH"ѼD""m68_08rIph{!Hdo&8?rh/qh1QCDg@tjrѥ]Q]2=MCu5#cCxK5[/2 C L'-&ANA LjA+uJɠ9 AUzzA|>Ġ} Ġ#N :ĿcoTC]j .Am7.;A݇_rB-+~ B B-P`/"ryrC`O =Pw.Cm3bY"%c(tϟ)m2" M-vC{C;gk%?7pywYo iFxIWeEN Ov`f:;׊"P ICyT:8R0TYQ/AdNh0e["Hf+L9ڙbcE6M)=jJe=JBZ MBS._4&=(*OjMc+3A$ZtbqzI=di}ѨR2$ah#yX{y@K0Ќ$xIb U_7lDɌL|^tey6$Z'v;)l?9r>/4Y|Cͷ X,nVy;c@{}UtHʊCVJ1lbCYH|d*9+ xr(ʊȜR(ʮ<"Ku=C2=) TQx6*Q|mJP-[gv$Jt-Xa J+7#Zhug:>hH^8g!;d{tNB+hY-'ԩZKTtaUr{rI$c;<zL9l̳2t~v>hFhHO%Q񴴨^b\gܥ 5$ŬcR)t:85+* F .gctV6m1ZstؾZK׍gyیC}Q19 UU^iK, )_W_ 繋++0؝:H(v繎R>yiu"Qs(49f%jsQ2+YIf%qeVrY9ꘕQaVG]f%qTQYIf%qeVw>t]Y`[cZbZVb%ۡXClQIbl%S1+y~O{}WȲn2tP {;ʰEP+eWNL^)~[W WZCRzGGlw/۟Yw.{ 7]VxQTpѥʔ\^%V]*W]r9NaDzDnb 9r ߢ'cpV gy/Ug/ݒg!sBبy/>`U4[$-ȯ E1b]J7;Oo3cAs'[9@-CZ)X{x'Y64zWt{At'RvqRtA5 NUT4AE FW T# Wҥ\^B/ŖvYvuiFĐ.-b}:md}֮p/Ѻ>FKNE  j.|o]C~Jo\n&N ]_A)mx}IVH{u"~} ૳ώL>t v -NBK2?[d."Sdwk C`M2In+eiLNu,Hnsٕm<4vL@n[660ӣ^Ծpsj_6ZˈDk-UCtG Z'7ܵ{s)p&It;uK}`㡊$?p_F8heEK-اkkɻ8<̻Mt9;0/}ae⏺Z{fŻ3a=sbO$M% /O=gt? j`Y,SJgUg8|6bMmg)~TG)בC }q5sd`~XFyush Z4I\&:7~"~j%O=?"}a%iEX&}Z k>m=N^L-b>>s?LC%>UrSe/Alo4[8)ϖ6ɟğm tş۟vFg6?N ?ޠ,l%}sj-srCOA\n@৭t O~bi{3#N ӐO3 :n兎g4GFh_ЬuТңh1F2| U h+rfh)m#~1v @Y:Q {SNeP+sEWR(4ci4%~J0ٗUʠB0$3l?m$!O÷F:ɟ"wOzI$ʏْYerٸ4}!4l=>RgT}nlW)g ҍ>ףϥϥO$VOSMo&ZP\s\8in S `M ȹDkH֖瞠OsX2;Jை&䍟 ?$lC*T^@G9-=98!~lVD.TC*ՆdGةş3A5^:i=! X*7́,5Z\" ԥmR(HTaDBQZ ^_Máq~a=lh3T/ӛJʋ: SvNtQN,؊nڄr+;#FZpO MƷN 5lEVQժ2*jh$2".J2_Hr7)"岺E.h=RD/$ڞE01n}#V R{QuS}y:b/(ZfZcSW|-2~&ۘeo+TR:74 EYs9ܱ^Oa;6 Uؼ쁮@eo8R,w_Bl<># 4ځ&V^wK|]z +{jyS+[:bFnК+0a}׎7 `)F0/?~]*9Xfc;R$C2/c=ˊetuَ\g_5GW:yAoy amGG)o{/G"܊)ێ;"yAiCx#rg)<9~xYeTnަގ4Vyϫiw>ʣ+4ہ)WB܁%B8zi&Ǧ`11v#4hqn;RdSDI⎀l עz-z:qGa#&~ rGؓ.M&}#tYe19`hA_L߉LAcLnj8G(,8} hTʳcf#4:%Gm#2_|tG4jѠ#xAib2|#l3T SCфo| ?Y=2o}EaZFM&a%Gh YTS¸#/s[;"zzF[#j{)3Gn6E<47Q7{͎=_ ?өJOe,?>iӹb,kKpy"|0$b8!-##hi`/$9û#4G䊝0OvR6M߶G OQ6v{6 ="suH>Cq=-,Gd0Uv4#wi#اvLi)1hA{t Dt]ktG``Hz/y)=|  AB`-)vC7&:L;RDBQ $vE;F )Ith\  $:LE#JD뀨DG EܯE4E0 EPtJDQpFPt>$"3 rSg䄢S@YSik(!PtjSngaI,:W)д`tN`t\:g/Y4j#]ѥ8ht>3htvШ,.^mKnF>Fm< Fm#Fmѥs.V]ʢEmϛ;@.96!%&VZ,B5ZGM2Qahz' Mnb*T0 ש@" SrP3sP$pE^̓ D H}ah֋hwi'x-^-q :AܿPl :tE 쳺͋3Nz6G Z*sKHWt+YhL#E^SS@]VCّզ!*p"JkYjI‘ە%u01WeF3zrQ>ylíLoI-"_$rjwλwk&b3i%gM"3&@GLo, QţmB i$HGyʻ5V&ẓgلΣv~\rCH ȵ4\\ok\W^rHUgubb܏׹8.e9pvwlE <5RRPSXMbyRȁ[d5ń؟w@)y._GSv_U~_}i56 lK_Y8d?Tl#wkf(PS@!k."rdS)rTP9NTOXɟyKgplg(ݛ|$24>] W履D^RDo![:4O*,V3R{ W>EuZ iMڰwU]rq_>(!mU>Zs>lq1I!m\̗Q`Pd~gz =\_aRT:zG8T74=E}= k^y'{kloYGf;\@K>pŋ8@4)k/G1: }d`t]~QeoYUƥ Y{e^ # bC%JɡS&  I% ԄADf?ZT)Z$lBPh,Z6O \ m*~0e `e`ڂ UUNlC`h ]tb5C$hK 郡 wL!@KjPU:2e`Z p0ti-$04VC CWӯ.3kC p)Ԁ?Tդ0d&:zj8B" )0؋ 5- 5¡(9B'1450TCv'3# jT]ġl%84'84Zphn8/845b֛CpCK4G#-@ZXP ZXw@4 #@7gD$ZzEi}HLMOM5:1DZEkW/M(B?I4 &k Q[1'Dw E-5HEM$d$ښ ڨmr m\#[!QȀ7x)m,I$]DZ~vR  +v'4H7ѿHGDM]IHGgh 2J 3 j3$ڕ؊Dm;M$: D2 ѡ8H֘"! ! ]VCJF{FEG:%Y#jj"SysS}>V,:@F`)`vN:FD`pvP+].K>!oyW!9.TBq1N-چ-Wmխ@?G_#="eu}'-:,xbZS3Sxrdm'ˀ5^ fYī=s~XkDH2Q#Mu0Ȓ?Fk3^#T4kKrz0u t0me=&p1flSS7ߓ^RUd(lEcfTI3M(l1g _Zѫ/ԘR2$#ڷL+sC{BG *j}< BydΣ^ACфKdp6BG']|4͞,h$0I|9FN>|ԋ- rkҭ P+qkt1`Y{$@{^ŚXG *<ĒF5[]|#;2HbY"RX#zfthBlJX`kz”zkVq/KLU;Y~Lj%a keZHnM)?P"އPH$C놑tnMO|!JCK# jCK8gP qkQs`⻤mt>pZD --`IGiSbƖGiMVDb_IS%)Sz(#VUVB*RQOxYZji .i -/6hWhbS6V\~bI TXD/?;O/tDX\9a~}WN'zN|mOdC6U0l:HiEno>E^X׼d7B>n|q]]Oe%9&.qLAK&.qer9꘸QaG]&.:꘸j-?dqu|^f^eTZ%|y!|tb7[X.:2`LM.'htzPmrpM')6 [Kh4r{W8+yu4jb]PE,:hCN"ЉgMkўN^Po/'6tsΤa:\.5bWbH1Jibe3=̮b]z*а G0aAťau5Oz/˙nsniwz#`#;&2# &*"1ݜ #]ae޷psΕ=lzy:#`ݸ]CO=jh>Wx[lo7?WǿK+ ^ٝKC-W6F/pAפMBM I0ݛ\, .5?\ؘzhX֌GgӾqGL ^jF%Yq#dM+ň@OJsYdGgvpYc?D5;5xq+mEONOy2&bO O$u6A䯄{g/Ap! lJ 'b}HXmB[1X'6 tU-fFOvVL7uxz0[]sE[ѐα%<㴛uFp-nim# @ޤ`8tq]aC"SL^/IcObU8?Uq:zWfZҲ&%Gw{ {0.V ĮFѱ<ho\ ݋Q Z̭I; JX햋Օa"6RkbQnC dٜDXQ;&OM{f.t#<.1L5yڧE< MX=;=#awѰ~nJ|{G{B~C8f|W#r{Lڞc#t|МF6z1/Ԇ/Wz ة{&.&.:Ѡe'0SE: QRgWC#;vovJ npax:/l? & ;(w }ʁY95wt{t5R99e9Zi;l9<&윝}.Euq2wsSiP$Kg&<ϬϬ[Y3"ȿ:*. MQo,i8OY,سh8,ZF ,\ > Z ZQ{Vh{V.ZzV)Uh{D58y (yVACMAMAq<;ȳ5y6<[V$OzgS ϦaAMAm ɳW $g5I@& "E$J5=B7vv)>iZƛ99;Üa΢`ξx*BTĜhsH &><:KI #5JXjAy]\հG7% onmtUzBr쯇(Yfn.^$ '?\bwr-^KziR^2:Ű"ubT\L1&`0BJ Tc% h@~ԑ3B,tD֨p 6vDM0$SLTdqQLxĤ&N"| р }sR#ω|yi"H0,7tf%&΋[agCp$8 1xaHԲnj1Q˨b*FoQrVY$Jܜ{ЙuH_EڶV!bK* Qw4O;* 1U+1~dS2(jBŧwDj&#җևNWr^n4G/SRVV )Y4$욪#kR"A4ADIdUVѺԬj)ml;GQz5hUэQEG}$V@)P+ cBkõLF"BYZ[SEe(!Vǂ%a*v{>Kv$XcFNg1q&H&t!$ Aj_Y @f`rSCYfDzhg uvIkQH,NG˫R*3 $hm,0X(>gvܷW):۫¥0ɒzRi] մ5UQWRN >Rt~irZ&WјFXV*mЌ[.theY"[k,Әr[wY>Fw0&a2s*ڑl\mGf1ڨ/3(t_jF]-tG$)LL&k{x;٪XW^mat>[5A7gvW u\|Uw&1(ۨV~+\4sU`8?N'̫nAUkfZ\Z\jI ]h͟.ls[`}-]!LSYƄy@𵅿aB6ZZe0 aX}gnz"dtI*Ӥq縳c}ڻLrEHD#Αdu t\Š3\aUV7Aɥ J4DzCXZZy>aY`~ج^\8"-6Y8pLO'6_T[e#XV/ǧV8>֣q[hO굗t!i5)\N{Z}CnՖ'GJj88V[5DVcjV AYxV+_Tj+ʹȖi6_Ð6faZ[V6DmjV}c Y|\vwg ^'i[v /_[8X{MHv6+02*^< &W^5I|=z3W[M5e,lu׀Mxg]}>nժ1p`N^w uzF9a]}c a]S~ j2[֋A [AA Al̃A;p5 NM@\!EK=X%GVkA4[fnXtȷTZ >EEKhը,{tb!F ԶE  `IcIN#, t "ŲC E ]x Zm_YZm? vA^P_Ienv ׇ?2{@m&='$ZyAE AKAn^ hՀZs%TZOhGLh= I!-EMr-"Ʊ$o^heڕ>.o!hD[h@VPo СjATA#܈@GWCANA3:ψ@@ )o P Nن.e!AܯttkU1vh4 ]JKe1@*@ƈ@}08j7A "PCWGJ&cd@}+2)Ac)H}"5`?>цZAQiԀ ] P| t}p"Os?ݜ͟Y?3Rm3Y?  %m?K2Zgѫ)ϢeT7+? Q~Vu 4i LHޞU RgYu+ 7jL񣄟ջ?Lu.􂈍W^O~0-b G?q3}E^)u-[wOsnJ.DNR|'{# 0^MZIj8{6>{%{hVjZy&0oUi,/W:(_ז=HqbnTN {W<'`@a]_ =:Jy( zV=nv=%Yu)++45j 5uzj]Tۊ\ܲZjxټ% [8)iyER0@R՝;@FSU53> M*r5 |;Zt5qyM ԚmɭyGmsYF`ܾ`tf!mh}S @WɐȐr:3P#P,&Fl #ᣱ(#IUXUG+fiP]i9wPw-Qgz%q6lD*XiXO{ZI Kv5gGQjۈRPRz./yX@#dƄh Hn9@}_~r]E#}00k3/?Rm˩PP8(AlrR>-^A \%eۏK.qגZ lLnrlL3+Xm5DpX{3Z<5`&oq z8 BԤKSYhyQj2Ɩ= 2^‹i08،An5#Xm9CRQc>Ô>r*}ɿr`; <|@ Z9zt  /uQ*vWmX/l@F4'aYEZ"5.gUNhP fi6;!KgyV,l/t`cFĀ&{5a%iXr#ǻbWA*b  Z>.oߌnt4IH 4WEF3# irsZ%buFOQH@8A~<,Q=cR|i &gz~u gW@@(pс qAY](Hmz9 6sC4ΫVh*]VѨ:0^4bʋ/(/mHWpA4UÉ] 864xb~%4Bͫj :itS]]lӮ4 .oiT]Ө0(Uz_6gy X"u(4;E.)zzh94]TLۻDEoJ.2*Kh <4O]TpA/MEs!%1~ w\9UAuq}rX]78c?B6`vW*k?`ŊbttɊ?x3$gE+$\VE;"+(ņhƎ;k$ Z nn/Sנ(-V s5D]^Xz6$ o4 y54~_ۃhmѨb̮,:.㌲XEf(6;PvgkKA|\.Z\QZDeL :-VՅcLZ4Vr!Wv/p}k1ٝA[ ͧKdK*u',hm3ȡw=n9kpn:a$o4Ѵ^9`ЍƟA2Ġu֙%Ġ,1qF2n``/0h^\I rĠڟĠ X[ĠiYA`C VjknB%MbН@A K$58u:`wdt41-h}B/Tf  S1μc["R•<@>3teh4n@tcO@=:8 PE p&dp!R 0Upij`k4A 0h QE /B"Pihf}\c?%p$i;S#(?+GYv|VNL/CjSd}*?t>$liݯ>MƑЧ^ߵe>mGO+\w p_}FX}&:Ժ~$TN~,Z} +&L8 +lr pMqEOs9T: :L-`! @3FӞΫ{,`=N=F`O bO3:=-ޱ:I# g]ϲg{JN{*,Ь`^{xV{㷬pfSG]ǫ7lsЖIFD$:bР#,sṘ:>>.&(AKb Ps>Hm€T0*lRC&@e2楹oo.㤠;,6NTfe>a2l.x0uŅ4_."e?L6&9he\Liy긐k]N[`Uщ<簏E>žI݂k:#Fg /h c.GC^Kef3pѤ45CL'L=;'ԩ%FoozB mƒL+gaAiZ=7CO|Zm|N;WWb!f$zL;Z.H>r53R5}f`3s'0&XTĆ 0DS8(JʨGG5{QG 2{QG?GG5{e>Z^d +_-gEhF6jRmg[$;RYfDk ơX͟a.l $ʣ[ %&}Q8@ "A"dL".5sBH#sB6T5+K|T7zCIk!aT7_ rq%]P#^]ɲB`EPDlvR^gv)~noy8İͯzYSKzvSt˰\!~Ն.2Za:ttJbF{1| hE `qa^M36=Hq+(6Dc (צznJoT_q]^MC8 L^΂ڞB/7Q CAΨ ܿ 9 łBP36u.gAo'lh[Th)1ѐwAcѰ&D mn3\[\8figlT*CC(eXƘ;j@> sWt4^1lCZ*ST;1 JcqJڮdi/%]R4O]5Ӹ^Pe5|7k؅F;i<7ҸGpcrE5Qciq^%XZ' K65N0**}TAr}: Ug7u&zFB7yr-Pqu&E~k} }XcXƁ4ufEeZʩąjEE ;c_d }"{˂}TЂm>m&1ZHij+A UIΰ B< yt5Iy_aݕ޻6.<$OڥMR= ?]$ra!6`i`0=].w7z5w [OtOmH ['ڿ>}Iٻ.'F=C=Nwk+-83;Ib^1rB;ny0e:@u#twwc3Μ=QY ?o :f'*>uVb[?+'OvTKRV. ֪OZO2c{N҆u@cF{\Ӳ:[Gcr֧┒' owjYj]S 6Ӄ G.L!wzt}qT^_ Ħ+:{u)۷ӻu?ގۡm}sLw//onix]+[7=7~wwW1ݾ/Wso 9C}û7oõ<\˾/^>>NfCDgj^]Ҫ.mE' 4X5_fSgRendstream endobj 453 0 obj << /Filter /FlateDecode /Length 5469 >> stream x[K#m_ ]T˕̕W+tЎơÎ6ZVd@mll  3 4DͿfuFMS'2>QU2N1ifZ33+l@qhI޼IJiz&?&Vooo/j:)z</뿽#t*!(O*4NΚխXҵ~TXKz4ZK 77_QMAX?׍AƏάs/7z ?O%4kITJcX=ST&ba(9*1%1UJe:Qk}ST&eS'q:=F_)=l{LXXG`ʔWTv=zR hLB\/W+)9ʌ8viVNMD߈ΥLq[Z ԚOS!<-;B鹲_v\ql\se ʮqJU|qUJϕ*'Nݧq6ޥnT ~6U->9?A3F'`֠ :wy3OW^g, 86oWv@hU"s 8ZCa4m' in~ FouQ4WE6cSݟ "]ላ7ncp=rXK WŒaIXR:,\K*SÒӰ0X5UA UT#g+iRV J*>u(}nPסAE*ǀj"P-^eZpT z\/UEu6q '*QG&=Lve K&+Lv#$𺦀 ԈW.4e 7̼`*PR 6idGe3Y,CYbѲ^¥_# =:hkeQƨVrDMTQOX+KtHr" >L.ѓ'@\ѤX!.F!e.:"PrtlpFUDqeɹu1@؛'%ۂDAXգ Š -YRs Qe\H{Pвz] 5#KT1T/MLT )MԜx`PUSᒧvf4Rвz] c;. \p*,97^WvrJQS#UES2H"2-KMbCaxk.o\:*,97^WQo6r> ^YHRв:]?8-XT8`h4oeA|[C`.)ܤq@:9HP(u)d Q) b)5`TbPbZ \VSWu,3@"SlTiC%^(CО r/ 7to!F; JuZ֚+*]Ǣ E]",f_ (eY- Ǩ$2֚Jq\ƘJ*Gdæ!e(uaUXU"I"/r5xST"aH:)T[&hC(*|cd#Ax@*Ӑy((6T5(Xcȫ(uYó}lFjAih*NIA΁r,jW[d5JC AVP2 d 4Lǐ(yEó]ΨՈAq-RRd;[ZƩ1&74ԱJqjسWm<9**GYeѰvp,RvRw`-7 i7 7 $7-807ŝcpiە?7ZUC>`J+Dn"Jв:]cgqPC5Sc+%7L+s[*VԆ[z(ꗎ xG*92-KMUHɨfᚹ3R+Ze"2-KMU]E#T)\Wg.Eh1i?I9 i:2- UTXz); s7(&S)sHUn$߂ 6wΒ6.;MJ\HEnRG~4j7?(¥g JChErr ]+-ۺ.y`E`ԕ"=Њ\z]](QMrR e(63)\Gzǥp5B[ 5ˠt}Gzf7tiʿrM N`TrE&210 08N=Pܫ y0 *nQ]Gl+zN22|g./7|&BSmS- )o8sX2UP^^"e^o̪p*~\#Fe$9 ,- wJ7SșJYiP#lѺ.bAcnW\__0_B˂s4K XBSz7︸ L"KhErr ]A3]-חȩctPrbZBW9I vpTPBt%,97NWf! < 9@H*2%'0ɹ-tOD0ϕ73%*2c蹼TvJ`L+s[*N7#ueoș5z~Y,}A)91HUUB  \m$yfDž_)TJaL+s[ʡj)%Vp =W@楏V2%0ɹOL#_8MXu5G\at?GwgzzkUj \ֿ͟e ,|I| Q7  X(7btS/) @2}')W_}!>k>]VJ1P2rBF O{h#t~  6<đ3j(p[ߋU"lF>RJEP maRǍc. <_&M/I_ב)5ַjLxe>uB/\;vg OeçWX9OWHΑD~Vrt{W.҆مjA P;ʗha:];tEe/c8S_Pج$cg^܏&ws8eD66ˋiش[aslky/iW B'm-ej?l6(%vvͮ/DIZ4_i]>qcl8`Up[r\,CE)݋SL?lw_a|e'h8;o7y@Ö%N9O:MN_~.," M>eoT˺̀#;ãﶛseP4ـQ1v. k}O K7gDŽ:E3"t>"oc:twEgX3ZiWD/<Pv=9PU“DĪ/P=i-v t}TKZ ǀܓAuy)^M⼿We}_zc࿝c;V!GJ  Z-` ju~:Z>\vw0 x)0(qwG&?!/Ah #'J]iSOF.(eRQU4'4pN$ARe$f)u'TASҢ2 )TMڹd)=5%ϻyڼ;0I9z#uڣ|D0#~ʚZ9¡7Q.Ϫ$J<7tmy:>I7|nOv*>O澒O'F;rɸ:rsaϰycW@= i6\3"(J)<FBrFU&t>(+z.)y؜~ nOg@֑#($lhp5xx:/] D#=,KђZ kŹRdURF D#וk;,`){h},H(.Rx8q(S/ݐ6("X{ZaHBI@_zE~(&0' h4@46a]~v> imӾp}^gP桰|A.>w.p4@lm`=5us}ҽJN}59O{KFkHE+RJOߜyX> stream xcd`ab`dddw 441H3a!G=,qGnn?$g ~O$Ș__PYQ`hii`d``ZXX('gT*hdX뗗%i(gd(((%*@s JKR|SR e G4-s?|3~WQC*1ߣw6wK6665vNk;774tvvH6Lm:wt@;kRn铧L a߽%&L5cĞIӚ774m^ޏ?տWΙ=~ewlUs/i4\Xy87b^0endstream endobj 455 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 870 >> stream x%oLuhI3rwfq 1U`-.^KpkK◖GrR[v,CŒٌ24sMtdLH1vywɃc* VD#$?Vu*Buި;6-hTQ_I؃qPrlǨ-- ɦM;ñFAiiN#^ ϻ^>~v7F'ڱdzh;Cs6K;M 0Lx_ŰǸ`J9LĝUUʠtJ /S]Wqv*|X<,Yx >rt nh$0jTznSjNȬd HBRtTza3}&+’zc y}`bi1I~(7?@dХ'WVWR9@˖ReH k2 ++;O;*w[]OwBats0|(-n|1vZ1 tKqxft,](t%?|ʬPOop1[HKPBš;7`^su-@KB&T$?il!An\T́ =9oE'p+c=q(_[,eҙ,\B o̷wwKV*O*ݽf` t ND ~O!!O咄vH[!+ZY=p ›9yh0?sڈendstream endobj 456 0 obj << /BBox [ 1408.86 4939.95 2552.66 5061.15 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 91 >> stream xʭ @ @a):AA;LHN4ucdF!) ݔI׆+^EJYPB4&xvmendstream endobj 457 0 obj << /BBox [ 2546.66 4939.95 3690.46 5061.15 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 91 >> stream xʻ 0 SxP@:$`{,ln8!Qj ”k` sl nA0pLI 'a׎?<{endstream endobj 458 0 obj << /BBox [ 3684.46 4939.95 4828.27 5061.15 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 92 >> stream xʱ0@ў) &V 'tީߙ³,ln8!Q0p26╬0ȘVL5&x|endstream endobj 459 0 obj << /BBox [ 1408.86 6291.28 2552.66 6412.48 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 90 >> stream x;@@~N1'Ϝ@ N'HDzFevZKP5tS&ɟǂ3nՌYI+XDvoX puiendstream endobj 460 0 obj << /BBox [ 2546.66 6291.28 3690.46 6412.48 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 91 >> stream x10W@iy:f?Qtua;a`F%* Sc7` @KIŔC&a7 zendstream endobj 461 0 obj << /BBox [ 3684.46 6291.28 4828.27 6412.48 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 91 >> stream x10W@)}:f?Qtua;aʌR( Sc7`z2Gj$)iLzoX p{endstream endobj 462 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 645 >> stream x[Hao:f}AŔYA^ѴIkyXr{k4DjZau"$FЅAA7.ruwy{ EQJmט:S|(~Dc'oxa)B$As S V9ږligl*'[e͠7kWg9`vVVu:뿻#D;T"RPJGhFB*^x[恦!h֚``d>hTg0лJ/K^u5#`aViYœǸN:EGcG8-Vk0D@X3 /.M=g Ur:ٯ9%_7f-ʟ'$CMRnYAŃ{kip;p&Ą"m7`wf{  Լ,[{}ڀێ󢕛-./܍F/S'_hhD m5sA;}o!CE*H $ dn@_)I!YW᪫esN=fJO7rph'O5)Vʜ}pON\N {ҥNi2B%.Tendstream endobj 463 0 obj << /BBox [ 1238.19 6228.5 1757.5 6298.42 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 96 >> stream x @ Eѽx8W:aA"K(Rq6*uesRI;gbcŗoOquГNendstream endobj 464 0 obj << /BBox [ 1754.04 6228.5 2273.35 6298.42 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 95 >> stream xʻ P S xjH )RRdN}Mq~E-R6hnŘ8O\$8iTW!Մ#xE&{J:Z endstream endobj 465 0 obj << /BBox [ 2269.89 6228.5 2789.2 6298.42 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 96 >> stream xʻ P S ϋ'!K`#J yI!}R=>Z+V}ǎv$!"nJG5OFY]|'d/Eendstream endobj 466 0 obj << /BBox [ 1238.19 6846.86 1757.5 6916.78 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 97 >> stream xʱ 0 ўS h")qIL `g \-ON)MT#plxKiAE빣[gOxq>;Brr\x_?K$endstream endobj 467 0 obj << /BBox [ 1754.04 6846.86 2273.35 6916.78 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 97 >> stream xʻ 0 S hGu"8$ oyN?*xOnފKц&G/ 9&tLİ^<\Rgϕ;E: 0endstream endobj 468 0 obj << /BBox [ 2269.89 6846.86 2789.2 6916.78 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 97 >> stream xʱ @О)8 R.2Ar%KqR>=VǼAn޴ :s&7^I<0ɬ+!BhɞRw/?-endstream endobj 469 0 obj << /BBox [ 3398.15 6228.5 3917.46 6298.42 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 96 >> stream xʻ 0 S h?N\x[;Ir-/|E%lV\6s&N.L21jj> >> /Subtype /Form /Type /XObject /Length 95 >> stream xʻ @ U ׿\ TdH/A@4ì8~tQ +í9 +N.dՂ!ՄPdi矼D7endstream endobj 471 0 obj << /BBox [ 4429.85 6228.5 4949.16 6298.42 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 96 >> stream xʻ 0 S h?vRxD]q\-> >> /Subtype /Form /Type /XObject /Length 93 >> stream xʻ P S PCLtHI"=>Ӧ8?Aجl܊Q:s&;H=pY7W!+1+)tr;endstream endobj 473 0 obj << /BBox [ 3914 6862.27 4433.31 6932.2 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 94 >> stream xʻ 0 S h?vRx[]q>> >> /Subtype /Form /Type /XObject /Length 91 >> stream x1@@ >'l6 (B~T M'`$49׊ 9vssE[Hosendstream endobj 475 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 1389 >> stream x]TiPSW}!G@Լ/JNJ a ( J!D^BMX$D$a3*KTDk8ZjCv|ҟ=ssosyx~)i"" GIٱ1?x+ID| kA\̇ǣ %ʜ 9E b l*Sgd0 Eʌ̬ R]n,6b0%T?dz5rþ\m GȾ5Wtg{ZBn]&%6sG)"eFFTҙu-FF'!Ҍ15kIO?AI.M3K7]_@խJ́8"}N2u:TiXHTYWB3 :%+ )*z1sQ{Y2"_X+X: y)HZٱC##4aA]t `bfw#J7ݳ\UcF"++ұy/گuэ s逦p{w?tҢ%uAW۴77"ҀS;ع+䧊'CCGG[Ryډ?`a=yVBh`Υk:[_+j2[i3(o_ X_(x=u_Cߒ {.ٓR?v! { 6fs sIM~~)$ps/YϵQ̺ z={b@zN<16I~ͮټ4=]JDI$?upGVS^TTR w<=ΐNc_*"&A8S^ B 'I-RjRL&!?M(s -;wTUC 55S͊#>w:N8ow˙,`d zGf> stream xX TSgھJ.նǩZǵ+B@a("ԶUݫ?3ՙ/9=sr}yy/;p8AWmp<s}=UeK|~ƶ<܉(`1Ùrq$+3A:=R M$NA KVKWedfe͋OHܐ/9U5{y_~mzbxDl&f[6E"N,#D xXI"V󉷈5D8$D1L\1q"Gs%(BO1yu̩9=cƞ\XJ_QȠwwp& iv{A>FЃ\ٔMI/d4r[GgNcCnwχqv%8K8ed2YlEbO6RjMW^ڷ.fBm6tċ4[ 蹷'<@{q-T|&rF.{B7-4 ݆LĴ҃jJ w+r JTFvL.'༡'gu=bcE 牢QG<ƽus?=/>?gA9;/N[ҭk*=}gWIQpon1iLe\ ŌTm,ݒY=. [be̲r.ZW),܆%rGiXm6f?T2\ԋ"C"i-a܏l}޲dvLFJq5$KҪ%MvWV~ b M٭xsGԈϡHjqYx]6;cGA0%rPfwPfUI<ѧ'$2-ࣙ<*-/(v<{U褼6҄/[ {!L9dZ#^@Jm+zwTNpWR;mF(gh{k㯢sѡ]3ͶY k \zZG.kl5eUu-g;^*FȒb*4Ii-Ҭbtx}VQ٤l\jյZ]kRy?7g'uLݳg[".!Znh_7Tw~ZUZeM9ZP:^_*|Ybw9pc&˾!BH} Qֺ}$vSoוZF +Vř5iJBޖU+j25f Es/Q•˞0.Zܽe]ޜ:It.PVEH!~/ xZҸDS-)&Ab8(C/GM_p;%ղ.mnFh934JbgfRc6bTkR'#r{fM^X/nqAQT֧w[jЀ2Mcu-VMTAcMMUum _Bsb$TJ(Pѐ&NO:*qC>ޡOɚ"y /;GVEȌ.h38N|uj皑-sw5]hch3_)OI]G14O(4eWΞ=t}OC+J͊=R*iA9pk ]D<=n)r]QvC™yc1߬**ek]ͷ7Y+Es4ץI3czJwjua T"If|H1}So$\:~,bP!b"T 3jZ]um# Jeiv 6BS.JlVoڢ3]E[0Ern4nƮizzԭ vsq)kn0DI(!X@`t2})5hSb2RE_ oV2E17 [/66*hI0ߤWqYA`UȥҺw[U{p{S]km+:A0<-:u'`T b'ߪAo2;rHh +. Hv,NkxM5U0WвuqA@L6Ẽ֓W;Nq"G3RdC35wg.1lG%FOFI3dKVӕ6VS_)w4z?~FgAqDu4TJA)ծg&KNzV4GfM[y5qmOLgN 9Nei5*|$bV%rKDؔ)B*-s1zM? zb%c=q_۪{[pDڤ+2ׂ_>daUj:#/F'BC?qŃݭ%`ۨc4i|JnnSQuN&?.jhcdݚєu~AsMv]-ͳꓖA!VPUauVU8ZccS: 0 GT d3Z j %-V<8|R*(13+o&>!Eq1KYY{]x+VC+DYZX|2`lI0n\pe8G/r'e9r_wmQd襧Fz+ۂA޼amRX-"jCEQE%ǚ> b|k%/jK-Vz_5P=X5pfG˄EiVf#U;wV,4Kj s0!n ?}M.V,N,4ǃZ1hX23yFLm*O9Z'|}rZyja9jjʪQkJ1';5 NTiŗ|.B^4ox ZG}SCoRwk^Ãr"u:4ڮ4uU0ͽΣpSې-5^*۔zrHrdQGOe-^vZR0ə|/5 ƽx"`_m,uqig!.~|rFhUl zfPgw9YsPC;6pu7tn_e1EC4Pc'V kt7qd_ 3QtWQ; d!%Fmi~Bg+/S3;E[~a^񿣔[7}mSNϮ]r-k7nTt(>.A+Pǚv$hF%"(7%Sg= ,7hBc_䙔LoKccksNsNFB pPah,2l `I%nS.f\3< 8O1, pu۩rceX,[Kc}*xY$ HT/O:gVPu|muς)3B &)NmIn%hLv&lh M's +nj2|4>܆%vEփ^hX^bhdvpxM Z\$fƉxf q.߇u6?,Xfoc%" @3U`R,Նq7H3+޿ $1 A +M:ۍ *3KA RT$Bv$6#hkT"AeJ$P4Y#(!+1Fh\ NԻ!8Ljj!nr@@e*R,Lv;HcP<u h B7'j ZS3Mp @3(7$P̺]a=*}1p)#ƟEɟ2+ 2ze(HYƨƟY1Ɵe?1CPpLU5(`Q21(D 賅A h&46(52Y4#%B=Ij1Ƚb*ٮ/"hAWT-H N rֳ8ʒT&61$ NO(F`43yP98(bq(H@@ =hTH7(UT5-Ju b+n*ۅȟuc3ɟ!'**sEnqYc6d Hz#dQ".(*VY!#Px h-GDZJ F8NPA`q'8F'wm ;tuʁ?+L굌?C s*mf?M#?D"E]g߬'PUpl7-?[!$6y=gØᚊƟ 6%@&qpm07B5lb٤kb0bلĆM&Nmg\O|V9ւP1:MD`i+ I Tk$Bzc$yCcr1:1CPZ !mQ'MJil.ʑ>A'p^\YJ0* fiHiLǁ(j=(cZiFa7u%hekzE8bscbYfrZTܤT<({R  sQ9g \鈦nAGHѮ5]5qs^7/_}++v(. 8Oۡ1UD0PWUv0=B^:w^Jݳ26"$N2Z>eC7QAa+M?>KZebM,|8SgUh*X&UC4ؓ֔VԔ:Vl4բeE'-@ϸU|ESMc+UR݊cX)s2Wޏfb`jw-k\mMkN2&ZV*%11A,Q uib bQ$MBRZ*ʰ8"D?c*fZΊ\M~*R8TQf4, TcȘ"BUSta1UK w `L ]f U6 S,;7â$02߰"R`R9,*Xr00nʤX]a^YƧXE#,Y,JY4ca'p8h(vhs-6Ed%o(NK9&+vLc5:ų2(fuQ0=z it F>d"τQ`{rEh(eC#;QS-DQ2EJj{mwDQ󊢂hjX[QT(k^.59QTQE2# ,!0!Zp OX4$"(IEEQ*:$ Oz(bÁD{S5 (P$V$[vhmD{y 1@\gk [>'zhT"B14 Y1040a(6?ۧv1h"G8#X)Ar񈠹Xv#(KC-Plw* T]!  R YmO9[>WImc]ٸsISFߤƽO-:yxAи3ƯxXZ!u@t`1ۇ)&"CF'S&'ppQY+jBtaѵiIFO]PS TkֻaSS$i1u#>XaR͌&Bfu%ZbCM-zYyѹ j жnKXi1DuЈBi=)OȒ~735]Ktݙ̉!@$D%vxI2="ʈĨu#['R^TQ3t4&Ńյ>2%OEjE0D/C(GѸpS ˙{\|΅_>5ɵq*.ջZٜؾCqLK1E=B?nK] | :6hg9ކG44p*n&lrk!Տb|VH砬 +-d1&V5ذvZDϑhȊ̫{؎VleA.K7{~ֲ zW2^BD͝SZ3=cUszmW`n"Ti`pdfúdfgZ \Q\- RuHN0U=U.W1?JOD0GMhSKl6TX6ePF1{&X$70DAF?ݜ|@s[C3EZ{jofs(}U{:Fl_OX <<֗خ1)ꐌJ=&.QՑ_OOqdu \om.V8|Qu[kyllȫ9pFZ5dm]zեBTŮúfi E@kWFn3vs=obPr47n'iɐ&o"=0AyNz]䈡,8ۑqic7]Y7dU;0YXgh4v5b1̢`2a`(li! ?0 t԰:d4O"QPK[hӸ>M4,wa1cNXusݟ(K9WHgiwc7|  x;ag0CƜʷƮaSaٗGA5 6Zy܀Xݸ~]wbxOTK!R4pHE`Ŗ*; y7z^K;TaQWp:Xsjicg^R>yI`$)!,&IZ暖YPZTX,$˺|X 9x_Dh>o9 v@ѰBT;aQjgs.wN LOH*PTccB3Qt];a8ʝnq3Sp3;zg^;wg6wN ='wN w#P9]iڙ]49-T;jg=St9YuʝBUqk]nbZӖzxx;5vM^!'6V1,gG)u_VKt0?Z\xUҾ>> m9. ݎ Y? wI=u9 '|&NN&MDig"i!OSN d'{6MΞO^4,:&{'{=wǓ= S=;ٓ4ٳ_֗)-DtNr$9yfgs* <=y=y=p=p=p=3Ks/DӋ'3G*Ad'c'c'!cdOcdIˤGם>aՒ~e6gz7I8k95:yn&[ ns]6.}v9[ ?IdNKq$PC8qG% [3<&N Ih"2 YXe<6!;U}Fdk@+${kkzwSI3T^Ķlj r18EmO/@aEB3Sf|ߦKr%OI3< FuۏV>{,Oò>3՗9sGnt,|=Ag<I`yD,\ '/x(#Ȯ]Řw 1;QN~{d&41TYOK 悿N?:Ya`3Y`v}3:Vf^Lv3}fX4˂NJ-POcJRKj5~!,`[YjŮVDdS٨zՏR#\!)볲cT]bt cC-' |{6ۏP@UI*l̈́-~f6%=SV*]cK}Y͙XkrQmK+C maLS vl&≚pP?BIQg~\UEאxo_pɗfa쫕[{v|;GB?!ugxV&_Ep44x[/O0+L}7eZ 1cf{a~ Kç¯]r寻 {*}o?{z<~ A37?o"D nWl8kj{?|?oZm?\noo_-6l 𑧬w^}~y>9`fAVf}oB:y}&kVZ>yA-|{wh>ÖĊ 6ܓ5ڰ~v7֤=}Ϗ㭗o?>H[G/><\dI`9k6(T_"hKq dŸٿk SE>÷9=)F Mz3M>dEΟ?yR_Z0t9|&̘޶O5v͛Wjz=N #zx%r8o_.ůzT7\7nGdw>>_=O?so9e 'oo22'.L"~x&ZH%#>endstream endobj 478 0 obj << /Filter /FlateDecode /Length 41027 >> stream xM-;6?bC.}:O 4s$ ]n. \k"*s#vdb0_gz/>׽#Wy {C:y_~#uH˟+H?FAwN~T*W?^_z>KJ~_?Kn~oo?Wz*?62Qr?eK8_>72?~7=DZBcT?H-ϡk9/#]%.59K*G?I-&U􉗴&g:Y.59[r?^+*s/~rșgv,>?HpH?g?,sHHpHHHpH"?3;eJs㥌Α?gGf*T%^KmF={u={2crB E[BfBz}k|1vU^85KgoӷyM`V0)}{?@Jl8{yp~l8?~6wNGjԊ5Oc'^o*jg iUh"ki9jINOipT068'=WȨyv1~b`.8ӮDU*8,c,3z 3wSc=.`ko FN>;8[79WK#]-q2/pyR25&[0[2&*?T.9H#F?s.xMb GkPru uS8]ϓo!1Z<) jpncWFXT?hgg=q(}|Bh }|/IJOcE\%e1㵤Q_9ږȹs|6L]'IO=3*Cy$,c\,GBWO1ղkTcTlpFS(tpFT3)]RF)]Io⬟Y$g.r1F}*:=S#gT1pgt[yyܮ=ڒg;lSUqp:g:SL<Xg 3<:;{NT/]lp&38vp.c8R$ˌ_ГКeQWLipƈ:Њ1ƸetJNלc jd%]u',sbNXbEsz >ӊ:}`6c,L:^S YG_|/೎eYSL9}t(}rQ9L(B59~߄u*@я@xGVt&a@6@u&B#:+#:hRY@됍1 ZG1B-=V ;{91htaЊ30=0(޶jl /0hbh ZG Z5N7; ZaUAAf ڰ Bq5mڃ6.vF9c|^ѷ9w1Chp2֍7a5 XBκ,b=~{6g ;t_؅`͓bUC{ΟF Cb1-N;FN wlLDǚ==Fy@6{dhえ^؃v@ƀ?kB1E1X<sPy <sf̉c+%1Ť:wa:@> sV1sX`cM~M3V%^rU|.]su}pC{hF=h#i 1b4iUʹ<6'>)RK1D i>La(آgSMF`*P0f=AnKW;c46dN#c={"12B,iʱzbt+br=`nj^ Fe\; `Pw$ 4/\>t9]@c[iyǷ]|ZGG[v~!9p20,{fXǀznRٴ?R#Bcy0ƽ#D3w׹<⠍:%W2=FSc] 8{PY_޾[CXBq3H.<΃[ydiS+64B?V>!{89L`A=Ө% 4iE灲GRh/pRr="4-lkXMR]2?& ^ 3u0u]=>aazYtxQaS-s Yޝv.[Ty<꠆V[֔_űTIo9 Nз@#|ne`Ze0V'\ Klnxt3c,!Ӷ Kp,zL\|4Q#`h:VµDT2<o0\k4*F߉$ŽNO}"~/\$scrc)^%[5g5p;cM[3~[tI`p&=NN*UF:ka 24|k_t,v4;`:bg~ ^@k02ĵ3P'\ Kl6gI]̀pe Cl-}`ZE sƞC[$!:QC?hAbm矜х '؃+[+y^Y -9K|~lkErSݕ; ~m[c_F)AƂiο'vKb2ӹ4LZe?ki_խ VEHZoP۰J2zoH$c[aeܲ-ۡy9bZDG,k8A* 9i3L0ώ;1 &%} in3U0%~۩nG}+A4痨%\\qtF71GgTe}2HʳO^}i4MfYHGǟ-Qod_n Vs-w +ٺbgoSGS8/ ~\t ϳSg;4^4{&FoMpXt,HX4L_0i'HxaS-,ZZ÷vm8&tW,*, y*C4ka RCm k{Б~WW\4NjKiL8$`xuhV*-3Qh97\5+h;h3S`t:+X!dO8\!1 k2 8.ΈW2@d5 RIxJ%n)R%?(򸚏A3QKlX:Ϯ6ΘNTq@\d u3xSki(8[E4~6 NS/pq.S:~(2ZSh4V|"8/ WNV$!:Yx[#4(meMa <{?&`ƔӄMZT`R%p]a[Q` W` Wz\ Y@*XTrsӺi - Ucq,=S]W$!:Yx[#4Nq0< 쥭h|xMtZi''$"*$q!~wz$6N6!Zm^{t;.=Vh=wa[  w2<0d0g4e,9/c7O UpKnh!*C4X5<3h7(k/Bɝ=IK}5t2٢)iS+g"0cj-m/7]n='挾$g Ucr 5YeMj1%TɩM3izɴlO6AP1Ecҵ%k UB]h<*XUg#4՟ڋsH*IEs".S^LgZ&29:A_cWp-C÷v5y\cfXxD3ꓜhn!K\qL >{]o;uoeq5<ۡ*/S@/BV;=SgiS/Kh0]M̥hZXµg;%웞_Co {0m=:Wq.-8q$ơSr&! ]c?lA 0wk"3*AHX;|C6&ga*#%D ߿5Խ/"oF+v-t79I@j ~&5%0!0ç~`3;kgz.#hQ˩َhۡqwnn8-B9u,qӳqi02m3XC-2Ds`F-,ZZówhK-˲׃i;L ;_u6-4 . dcb~Yu%`&ɚ5ɱu.{L c+hҡ%Ck02Dpk#bJl\"~^o}~kapz?3p!hW0i5:85k/k `!:{Jg#bN< 4L)$Ԥ/0Mι 碽#$ZZYäU$P_KCͲUhΊQ K[;ԶEzޑa}NMͽ=B5Ldq3МWA6Ys vkคnrinE2HKO\ Ld0ֹ s%\i-Ix*cAyԓ4?-p.~%4V+ 2$s+C4%\Kkx#f<[s]'81\/|4wg:%E4VM2:*CtIlNJ,QK&xғY=!,߱hy6[bԌ5V yp1i|ୖUh<*XUg#0\A ;oaFVt|'7PYBx"0%\Ekx6"NL>9'ozבtMt$bSX!nݻ V|"8EЀke+C4-^Q n<8y zoMAno, |.-gk:4 X8EA㉨Ŕpَ6^jpi`gK*X2DG-,Zo3q)2hNwMu8$ 0'P~I>2'1TpЫg Qw>-ް2YmVC6hk蒩4LZ?'QYq=5Zͣ{P͉>iz4 +&iZ0*},Bo&*8N:}rA?f-ki vf6ڮM[oin޹$J*8cVM ;Tekp%CP/7-grjSNvMO̍i3eI- K/Ҁ[Iǟ`ò/69]Vࠄ6oպ _]5pBbV14|kVNj#K^8},ezU Po]sw ZL 9_Zح+,;%\Kkx#:cgD!|ƥ t{](`ZeDw$P;R2D;F-Bb24|kǴ LLG_'`c=:4a \]b<6A8i/ÝY \h Fi[A6Nr9ܕuYc !O9;NфbQKl8\v0gLtMx2'uei02tj`.C4Q KlG"V;hfte e~IPpJtrrWjc _E[5Gյ@[]#ՇdZNGJ2*Y=< Vj5}2\ KD%ш"hTF58^=nŝup'W&U Vd^KCfJUh"%\RljMQ<ϩ@Dye<@ͺçMP7O'y aLsצ]co W W', lEShs.X0NE_4O"%pXuoL )ӵcih'gE-,ZZóq@y=_=lswqbQ ]*KMig%B_UC|g5bI̜riFqlREMwF`Zek.@UIDwWя?[X :Ek}9p0iwR|B?oZ%Sn{9 1k0\C?lC\JjqP)̨6&znM0)Es{_ riU'aР8 4E-,G#XQ(tqt<]ӈY-"Wk[c!1ZYLhW4x!:ja +h/[MNb͕YqD^w _*#\Z55\E*#0%Sóʚ;3GWPUƷV sH^&2k'8)̻ U KlGGܗAAZGX [9"xI"`Zepb . ֊2Ds]ZXµg;nnW̩wW. ei"9+;%zL9bb!:u vD~mX#FOh`aסl$`Ze?'+Ԁæ1~w}pCN)[e-I a*8Ґaf geh֎i:eS9ڵNx7{&ns[OZp.NJZ a:6Yqvc`$·MkuFa ѺߛDU$ x,I+?SprAVUa(xO/q}4xvK`i[t#!.xkF~Uy&Hcpg_t%גjU`eonog3M6Gfxl8uR?vO)Ҕt]WY$Cָw8dGL|e:f㞧72\?sD1;rJ#9pHj97TA ? דHJVuEIM[-#nFj(&yKQ/a+)jS $eSHOp?r+7"w].Zet[w>) __AFEå)JXʐ% wf twhY$WK9c`K?ߌ"b$bنC>zx& =~-%=bBRҏ5ϔS#+=bg9ap$+}¨<W0i{f٤fܳ/&Ցv2cAGYR9ݐM<TpR{=K1--w,eC*+G&f #I!ծ[19Tp ) ]L>zLI?>5VGJzILJɝ?ےһ5lν/6xq2Kjq6ylRzLMhry -/I1ώ*Ii4~.&/3646RRsMmYj0K#lJ66RRsMmauYM{/cAK$ x~ eʺd4Gy5Ѯ++&.csؒ KԌ͇+8R(RV9S(L,Ev}D鲹 N).\{_*]b1AFk+8W|rkFWdr+l˩ )Xf"o! S'q(Ȃdhk~m*A: *f38ۆDTuέX Ѹ]\+ytUgwu2+ڮFajA{J$N[RNۂz0)nWpmgʗ,,-/_qK R<3C ̍bWnJkg$ߛPl- n)8w 28;}SIEtj^񪆕3txo~E=7Eg9J?ubs׋suY4&Tm`E*#2yAg28'/m>_sU'{ݲSݿ"]>M|?U"^},A"{lz^bMAtqc+cof- !1ji$ǞNEYCbߔAIy*kMB{Jʒ8H@q9M7"UA-iVTRM#In`Yչ/ ,iBYtGU|j`b Z9G؊`:ؾdń^gmIg! uF޷ CX" XGB"0ߋ,BL&Nea[U!{U(SELC_:C㐹2.*?+?b8E?ǰʑ9DʩS|E \%r2SWCm,U\䱽V ]ɍ*0BBV`E͊hL"Khe~DG&\+2>2g%hp2u]գ;BRj #t]DK$_Iwb.C0])N{,+ò-_fXeư}">"!-Ir Ia2$%`_$m񗄺 I ؍&&0NLʰٯ "Y`!- \0ׄw$CRCһdcɀRgäÉI=Ƥw-Io禞vIvD+IY˘$:1iD0ƤT"Ĥi[Nl;$u.I- Y5-Hzz3!$e׎HX"-Dl;"לpTW;UМޑpЭM8:Hp7GN\Q"92Ӟp؎y GcQ&(#5f(0Vc!ͅhcE+&׆D+lH 6 ZlU 6 ctGq(<ݑyV)g LW@Iv{iRvL(GOtz}H}a(}vM#qsgٻ&FVIf^IHb~smC4Fd{Šłl 4LjG>|,3Hr90?cW cs׹KG}5a6ئ4=W|<&|[.`<7g:̊~+qVCaLf}pJ òT5v/uP/~0ڶ#Ƌ];"m,yG#07NYh&UTtⲬyfO`1kNVS,M[1_  Klp̶Mp9*<1j^86faݔm5>ϧh'&>R/3sH ?`>7ZBaX½]EONp8/|"iF^ݦ]>ql3M5Ӫ_s56q: >k;ca̍3%sQs61C8`?plPa3?6մ.Nf˴эr8pqso~/Ȅv00 /=.$<g`0)dȼ೴ܬm9YR|ۍ⓽#|ߑ4eMky syx6.%a9GGoIKMXQ[ZV2[k3=,U{+Yd$0xaMo2M D8f"s3%4!mc+Œ~OSnqm5ab7cǢLWa%_ߗ׾"` WVŹ*BUՋW㉒tVrk0}E9:5 XygA㉨Ŕp-َ7t(t0ƥ18jFcEK|.5mV&42sPh=eFŒp*51~3`)4Hb$y* r>mMɀ?*~ӅR/|K~l[~ꍓ_;E?;[q>RH߹i029KC!\e%\KkxmCynI_lrh5 #Y {-|c7#%>79p ;Uh<*XUg#0,ܲ$m+]*&> ֛|JԦ H`tnp+~~R Faq|ULtM=MY 9).Np*;p-MGPqo稭5WM;N<. qE,բ$n W.4|FWՊ$_SxЊ[Tt{oY]+Tt'!+q,#h<5<ۡ-[)S%LFa \Y0GD99\Ĝ9B ALDcmsIb AG8+ܸ[u4ZL PtJ;:,QeiWhDk+%_O UFp:s. > xµki vC^ְ7ѓzq*%Uoh{dJ0N޵4LDɼθ4|>ZXµ !tUZRspFMpt1Uz<,oW$)/Xi's0gԀ#)4j1%\KkxCt ƹx?vy5tt7wz߲݅i)0P.rADW5<!ŘWl32mo]]>L ZD29ESmV92^Ϻ8'zH;6Bqp@Hp .KäUҀ#μ!ja P?I[nu  J5Y?=x'|"hq.:LWR퐋hՃ~S3 `ZetO_e!P ja EB}&G ZHݭxտ^WyŞrfInp. OnAU%/;byu|щ ܹEc\ܕSIh(9氠wucia2jV-,ZJvC QmS5d G1•2={cŕK[W>}IԴ-\DEo AG\\:y1g4?j1%\okxCN@̶_p@ܷn xEHsN 2Ԟ{ `.#ht¨EpV{;4)v]:k(P'0m9-q#\MCsoK=NCC\ B"ٮ2g-,ZZó6gߍW0' 6,,aӔ5LZel+XeތWSµ +mJ^k};}gAと”p-wՑk39jY!zp'>++,%pqmSJO|xUYb6Աc0QZҮ#rzairv0Sb,d V|"8'}~R,#ǬŔp-C÷vm7[ qpFԦr%M]DԮ{TiXi a#W ` Wp0 nqn(H {2;/:hk[]4"SrԀWA㉨Ŕp-M!їx'UoDætTꐸkx4t[e4kC9UPT"ɨu劫\8zVGvF`ZE s2aҐ Wka<xtB: 6lrn#s]5Iy{^U9ccwy!Oec])gP< L7H#bN![ .)P,2H7eUO1qy3N"LO?믹~C {k#tKڇIps[BScco"$f-C÷vm$J'6w= Ң߸#$T]&}%LG44gQka<vcyq*tRg+Gd-)IpT8gzN9Hg}V}rΈ X䔰ȅQh)Ze&2YE5LZe ;ʰB]e8Yꪅ%\Kkx#Xx&Wő}rSQ)d,rG~ H]b$WbM9y| lQ KlFn+\̸T^q"W~)Va [M+%.~KѰ0qVeױDT vVhst;gXVbK :(aY"ft őS@UDC*g#4Á$v$򈘜 NH&34UϋƔmKL nZQVT@ץ?&omlߡ`QKVlEH<>\{)t/c[MעJwҡx,NpЭ~!%\Kkx#]:-O|/_'U/}F͊Xepݽ—"2nhx,SáҳPNdHlzdS`[ӽ9ΰ!T)qqγLGnlփ/$s5Ϻ?p.`)bC)BSiE5EAoGSµg;Ks1xp}A8HGhx|T8 X}R/:\V](x>L{g 78|T&kG.Sǽi02h$ Ncۥa+meki vhӂf$=0-[gǠ Zv ą,`w~PFߛW%\PhAx?ܴF~%A[]}Zru|*_K(#;P4k(ytIlߗ~muڎCxc*.a$G[dgREG(ש/G . 7hqg7"kDjeu>&Ux))VSWj΀N3-ª1PpB0s+oMWWBb|Ȧ )b*HҕQq%$kCtٻ`,cp1ydWA/p%-ҟP9z|(  ؝M#7j̮ZX9f~kF/s@Y^j%#r-o"3k7?+|tW=[Ig47eJq+eLse@ ب%3,fXZLј"6 Ko̺$ەf.(LOf)?MXbdVc?wݏ13&#"sWtP|&cSI|rfg}]8}b6ݺ'[CG#!x .٤2bJM.89Ts2gWΛ3! f,zmg`^뻄Sg0g J/HpH{w kQE`.5@c8kkL';J^ ǜtż1z1W ~?xuEפ+؝S\ DG܄&gI#.٤#nRIEGܤ&gIb0|p ?)Uqq#^|*fDs^K_ X7TO󗬟Va4z>~KȌY[mDZh)I yTN5*CdKBsdNmdZh)M 9щ+&%u4F5V:֮oSڷ7 *0}{?ξf^&oO?Tr.L:;#mB P;tSʙq1C>d]82UaY/K{0 X8 NWf=? ɛ[A0_qX:\,| .Jm3s#Rޑ#1g:N3zEį r-*{_.V lnT~Ux\a Nfhsk1w)+DyPukSw銦{̣ BU8 Pqk_x /Ì!gY=S^2+J"'юY[t*4LEBL|jrNЄ$%SV2"|)S3R&VdNuyfץptFI[*JIsY?7iQ6N:8NNn== N x5_` &9HMs2ьONd Kp;TP>>`pK`E: t6=([(Jء"%BpsyfYSxR}B .|Ze;%j/3XDHHT1N*R1RF_ET( ]ӡd4Ḛ1-:hcm.lTLAgmsw.ؠs+88䭫[fsUЃ)2ғ'r9U"UiMަ`KdSJ-~|U24|F8#tw*Ye׺\Ƣk8 RՕittQl\1¼`4dFE?uQz$3rҺJԬ3I9)L> r*6ǫ촴 HE=y=fxLpȏi|rE障'Cꮤ_Edm>VeY*1l9CisiF8RYɾREirS`+ϢQ.O=tI}[>$mpߗe%93HT Sn$l3z(C>:M'U چr(f ^%pT2lRLk\J21[2g8]1="DA]IusvJE * *f8"qFxnNR#ftEY [̠qf$z?aP@:~L -( ]8@}PB :qH$gR҉?: pIvO'p~@?@&oƟ$i&$9#( >PhR( Ìu' eP@P"(UxДo' BsWڅB'(4_2& U:daьQh :B8y \'-F-j@hM$@X $b Z tǠ) c$ eiǠA51h˚*$=Ơh \=AXlAh t|- BFiV[0T!vڽ0& =Slg CU$0?a 矐a詽Bs}(TΎB8[({'  DK(6b(ßB ޑt3QhvމB\je1 ry  (pfb)JeA݂AiGaEMd} Aqx (EZmC AQ4:!(OwԀLP4?g.y"(^'=".)3;)'Bj$҄r"v))f[>duiT_X]Ϭ\/>Μj/a??"6:`]||E*CT;=,zu?k+NRŚ?3ʞ }D~J=]hO8 H~"kGH"NOfVɁ>qܪ> N/^,GP|2|Hu†u{`RIikheW}`)g~ޤD[G[/GObNkmhpnvZcQ͗qڟpX{86xrs^ŜC%}3J'i[;|J6w^;n:-[WeIm7tfnIƁtʠ X<7y_a o!A)ϗeAs_n8^O#79Pjih{R,]GhpcaOvZ6mT#[ȴc=l]W} px߸jmΦtuΦ ;^vl d94B;0tM'_67'ʉ 1@ѣNytOӣt1LkWG Gnt(srܗ 'i{Kf8 8lx& 5i:Cý'ɓ7wl>nl?Ϧi89m:Vaǹ bM5t6nա66޷?彝m8bqouTi{/JO,pt>];kl )ݙc9OYfGfS0Xs&&{$_}bpX9!hOIo3[f.JܱXi'85F]e5<gj+G޽+2L=> N?=0MM遹$0L4&5]`ڊ y!~wlX\Q}7u P;m~cgDƏ烢zHֲ1:z4)ճG"ډI ؝^H0Fbe<lwm)0ءWz9UK5 {+`$5*2^[`O ۢcMW2,:EQRP2FQ)G#4DDZQY0jN'ƽi029Ñx ɑu]E?l#P_26iE"{zU0s9tD?fYx[ ڽH{DŽ$m9K'J9E%Yi1ܱN c2Q)G#;}؜_*x<*Hv{ɚiJ9m8$nW [#a\[*R7r6suZK4nGE!?.SaE2ҀmtͶE-Bb24|k:cJarVk vRX3;5-9WNL X.3J[<b`^p:ge@g`iF6M}*%rS0iwyҠZ W2<uX8U:"OUG7]pW9̧D`DҐh}_eHja ``T.1\79i5 | Ȭ8i|h@I 4l*Cc"$f-C÷vV]LܻqzvE-w̲%NJ@zp qs:-F]4^  -<.Ûr)gr:}SWYΟBA.vJ; ͜KAaxUh*XUg#nqņ-ͤ3;Iw$8^b)5ћ|>;ii|pNލт\}Yx[RTW_Cq%7o:f]4^%vD 6k_\EW؋]FY)z[óZufȫ < #'ZǏlMW1{ yJ:L;ԐggbJl,8rfq6jL)|%/M4Әmhf4.gq2, qW8D-,ZZólykAp΋ǓShrhFk\ƺL4Vip]\ي XuﳊFaėk1&#]\H/'7.*a U035dYHG{O?ZUecv$~-sGĸSO~vA&JT2D 5<~؃U~p:O}mS64EܟmO %xV SRO ,D&U 6Y!? afp?1 -獂y !͙%b U{s#M~aʶ2DsfZXµg;־Ɏ9o?kЪCPph)G(+k6}=æMǿ@QZugDf $|И:tMkYp_" `%(#i~t SvLM׳)`[j~g3 X&~gQtYtshӜsp׎bg5`21qs%/MH ki~讅=rMlۣC!8\#S|i06XXM1mJ %3]' q0cH m~{yxoّN?\ nqSDƲ`21qX1X+DVVR νț속_ a+4Xͩp8 m7P{l2k299Fvk( ןQR4`]=kT6)#Z3 09R˥ BZ$4s?8"Wdլ3$ bwLLXŰn asN/Q)ٰ0~.˟“ʙY}L (YfG2d9_.%Ċb0eD cJn Rr70s/"0H˼r<Hi\?K SD0Cx, 񊭅);qAE70|Wgy<="1J`NCOci8hă4}{ —)9 u ,H L +Tqڶ5*`i`21<S ,׋p0ՌxT9\b{Fø i]H/YS As0Lh!̊CD̝ H SXKs8C-MQr[;5P_ylSl3ŀZ ~:{O q:746+ \;m^Ѐ=JTqdk0B ̥_S75ў'VxXa)wD>,f ÔDrhG0eQ &0)9;6^xn*0 gU*A离vCEnn6p/j "Tv$V N=>ШFDһ1bFY0\v]ד"'Aw/!"]k> |k**tdg׆im]ok҉SRZq,}BRR`< j8 Qm/1- |7ذ4^H6vO9a @at3 t3c"La 9!u<X"WڭaLd L)ԇqMa8I SXKs8r[y4;0̕[U$mx/\!a=0@?}q^"fw~j~ {0b]+ӱ=p {H!"1^k?GI D::t7GzM 4 `,|dsDd "Ô!a {6m2G ka ki~oGMx*e%|xхsqX sFq q0L˜[ÄMha-La->;0?3ej^o-&%Rt/ vs ڠHAD!Pn܃~$]@4r["#sgh%8'Lm)[*ШmnVQn:,”q=aV"XFM*IKȘ¿ qsoLNB &dKQnm'~ۿaZ.:|XFw7nG}r֪ؑq0Lh!ơʨ 쥯pG73v$sEfϽp[捃ah}UZ]:[4s?xTX;(O2_<9C -yu>r/sU %1H ')&yd=  BRXEs8wOf Ⱥ9Ⳏ[i,W0:Qmf[w{$!(̀:Ud p ,.weBOMLuHl&zy\Y!!byךGΎ@8XSXC18@æ: c ɋq3ŰJO17Ôq3ŠEٿ! wNOQI%xq0h _gqɱ!n0d<8$Lؐ 3#q |kZZù\WloQ劅SPƷʨEX7U / iudr0<'a"/6!"y&`Kn 넚醯&vm1#,c)bÔq3pT&SB c-Yxqfsos8cdoFLC$`fòMR:4AaX:&ak0#ÀwMha-L!% Ojb S>aTƧ$1 Lj h o.ѣ9N0jε=UTNdw0+.|(5$%WGoZ كF ֌n SHeő.yYWeᝳ( x{モ}>hGxr酌«ҒV-e$l*L[gXj)b8.oŘQ SaÐV~n~ʍBCsLz\Q ̔JOq0LCdܥH-HoibTm̓Rt\s8?ݯE9P8aǃ(tF FPh ׯh`pa&D& %!4_d(`#ʭW@rTE(7Ȏ!಻1_1$VZêyiq [e7js'ia ki~ͫ"fU%H))Vzʙ)C_0 jfd5-DZM?..T6*"z] fDP6/7`[CdPHxk*Ns"u:OXbvlCՅf0eEAqr\G'ФH-'#n=ysNZjmQ ;La4cDFVn`gvw7ྐྵ`T41+,)R3/25.ߛb]eaʀ0,8 vA.-" ki~Ƚe #SqY qy7)6aɅ1N.!s'0f_ia k-N/ܹˣ77C~[`L)? ys`&pd k)79YUbN"letD=8f)&%pKĂ[|^qhq#D*M'x6NhƭxQB/`GD i[cdka$M8c ;պY[15NHjw%dji?M?FEn"q84͙ީʅUi3̥؈j:(%"^Z|a<$ ;14һжiӷлlRf# FLtHcUH;1WV,sk49U(* eA1L9.^fzR.q+vr0u<+u2.Qę10ArpR eqie_,xL==T~Iܮ+cnub<>AgXJ%Sy \ \k9֯:̏ڲr*ŦUeVAEq1)]V+*~ mt&*<#"8T=+wrHB;럿=Q~V>fm`:k}F}S~f4j#6*1=աC2NdB;h8q0DїHTœ8Q SEj5/:IqML8 N"aNTzDD;Jχ_gH/MTz޸-niWx#~+Zf`}6tQ4"(1IYɑ×,T{%篗Yd GjXO),ucS>%z!|Ic;T9ۦjcTN*$jc;irl'Q7c;؎}|<Zi=M>ܷۇ4qpߜ&n}syO؉w?)p‘nfOL<]N-]+sDvߛ^pD0Vlsgj΋VdBVhEJaK8vrQck )#8Gqs{,!yB0e0'1\,`foV _N,긂k{0|W^Ud$,<7gs ٸE5Ay,Ap Ia܉ sD"l>) 109L9QLcq0<(W[bƃ_9D}n2}ib * N hGG6mja1c{rmpHFE`E0e0bFl ά)8O|c/&"ә91GL[D,`{)Xq0Lxg°o"ALZBJK,7+G=AE>퇃qrEٜɟ j& j$bMVL= }s"ai0 M_84YetfNr(tIEzXrw7`Ty " hc(35XF8u+M`"0L8L,2&]7-L!% ~RkaUab(IDX|7&5|*2QZ0e\A M\o:RaGТQPh^L=k:< 4`xSsì<O IE)M SHI38uBcջt fg0(a~'p67L ۻdPX1Pn3 ѫaW]'Ϣx%Jn]0e` S}#V-qPH/EĪ%Uts'FfόB |@uPlv|AynUH;'1/(edF")er8#_fƄ/$ܖN K{ }\0e3/ARapGڅ8qe 0}Q² 8*)Ch2Zl:MD:wNȌ=&n c4eԖ4un1A&Ô9_!lN@XRA[E7?wB_mpK\ 3*eMLHQp—ṟhu SZH7v2Kp&c|f4p[ =Shu(Wf%?w77\(0r*Nĭ% 7VVΝPX4U#;&ja(<|)Au yL̻5 *4DJ TsFϼ,6Oƌ>9 FFUI`2BGC!EܚeFϊoD!-ùff}?PaٱЈ'`YVsOg[af{gSK<0 Z4 m~轱V@Wkw-+5]VY4nbc`xRv)ެ8z3 x/m})c΋q gqMPݼq0L1&%q(2dI!-ù\ (\1 3y~Ou_Yo ;)2=xd@ApHxR);͡ oZQGi!RneMeka69Y8an=Ŭd)oAU90DB)9$a/!\ŷGq27OFYC)G ]:9=:efpąBJGPYWqRmRi SF0fҙ9-pS;A5s> 4;tdJ)(o6O`1 3U/1/uS=џkt˵lF:wcGlyƓ/E׺U&APUu˯;TbV%x*8&pcҀ}W -pJbIT+i%@PKnn|֞=5?.J<0ڋǩvlL8nMi7Ëf.JI,gϔ1)ia ki~o ֗Ӱ*4XrbUM>s0Lx Cb08) ZZùWZn7@Ę\|,wFs0L˜uEQ,004s?طGt'[ #C4XϢtR ΝМjȯ1sMÊ .գwNqJ:!N̲ÌQ?3<oPq0L0q|982G ka ki~ESt4ܼfnO/ 4SRn]sw&Len XNhaLa ME͎DLm:F8DLq8Z %l(Q|v`5-L!% Wt(cpiL6)!&&x#HZن)Qlc+M`,")9!{3,J!Ί[6ohNtq0LxkL ΪRa5ia ki~'"{C,S."m6a)Yk0eD c䀰ٰ%pIZM?dBn(j13ሔ͓k H/1JGfZKİSK^š)Cl%cY5s[[ cr(f9wat3h! —)@KS?N䀌{S*JYuUO"0b]3.8/1=Ů;3秚S~d`TaV8wL4Eil&_Lt4Ij_a]` [0ÿ -)Roq8}VZ a_kFI),fc' b9]Az#"]k>l(#G` k(\pO7a aFo_"$1c-KuP q0LB`Msyk2cՌc i`Fxֽn<}%fc$p )cC, S=8u06! ci2kUZù4 zBfly *̮o}W9haLmaCxo )w?jax8E_ (_ěcOL{6óafby0=ɘҴ04s?4)\N~0sL RhM׵Xq0Lh!F9xZ`L")97* snX+3g̅{=KMQzDNNS5b۳ޚߙ"f-: Wb5lZs1o:2ET;)0V0^3e w2QHI38u" UΒn:xN&bPsexE (& 3 gc]SaYkG*M'8G,#phv c Z by׃'nn@ɝ$_; HSXEs8wBڋfcx~+j=aNUa ,GGÔ C 4{d5-La-mu4.|5u c11DRS#c9kL9`ڷ]k&P\& ai_RrRX3s8YAϓ.j3!yQװ c8 39C14Ej)7whS£aF3eh|C1 ʂ1>+U8 ̂R0VD;)ðFD; j8{.xúXS%]u7XSjc .w ]kqK'šp:FGabLab`9' H t0)K!1{fZbR)s0<;KEbYġ승 "Z"~(_yi` Y 'r0\ids'(i֥157vRott0VΝt)Xl%Ef =!d}+Z&]Vcx7:)/﫥ao_".R/O<|y8޿>~=c,}rYGr9;~Í|C?qokՈI:Q5Xo᏷]n!?W>~%I%Ol}]VPeCj=՟wc,Ȋӧ/oqOv'd?#lWՔ NO/*r1O?^^~ˎGԑ1o}} ߟ.b\LT|Zq掿AYEU}㼖OH>[`>qHG>lzRgǣ_x;fu4}_ x/sxń%ŎҦȩSMEۗ/B[ߨNIq; _Q<ԯ`?㣚-pz]P#Qu>K}/OxAÎncS̹nO)hc#i)_*vQ7oחO߯zֱ5Tr`(U-C=|sJ2 pˀtrk >XJ|$ww/u֮=_X}8MCƸV>!^֧2 ꐫ~;YO_|tU.>lI|n@}no^;d9/.˜ѯ*5!U-,Jگ۟g^򸿈/Կ}@='N B:<\qׇ9Sq@y؛2y׾~8bONc>c|ƺ6i [~=|571kț&ZBy)uzc%OٟR}g!o-F)֜p}-ۗ?B,~ӗjE]\E}Լ<Or ?~/ˉwU 9MycxcG>Rbaus3fT}Z^Չ5Fn=)e눮>?|l>| &rpTe^s6Eu _Y6N)2h9vűs]% fz6=y-u ٶ 5xN[–=_6#}]{v&)u&č?yz8o?>羄3O # rZm{nmb~}ta^-gzF{sis)3}3mWO#:r~lsA/Mnkj^t: u{x`?[?>RV5cX%,SMuF50*u[ Nr<[P z<}i;./[.Mv6Ǻi[7=mFg{˄[C&bxBIF.x虿vGESza۾QMJ;>O6dld}!L˙q"ov̜?Opܔ,Oo`h&~}k:y6=MUkG],=ɹx %foT256f['/V>ЌicpWňiҥN>k&ֿ炑`xOCC:>:Znv~G9yb'W|z𫾉:ؾ&xSh]E%8ՀYs{HiPX%vڳFl]RNrendstream endobj 479 0 obj << /Filter /FlateDecode /Length 27236 >> stream xKfIrϿ@-F,j*qqAidF L4gWfV5 F]q3DMPx{1O^%znK,}/}?k8T{ۇ?wzc>|{7a%=>=|}ۏWҩi|~~|2?χ!˯ox>ob{7߽{$\mӇ_jpLjoͯ><}ï~RSۚ9f>`%CF(=|_1l8C,?ZOſ c ڹ痏u XTObǐd9,Ei;K2]v!)?we~ -}JGݿ޾|;p^1~P?꧗W l鱔/`Lr6an`;FZ]? fHgx>qt>w8B.1 b&`{^;RԾ犮{BR:Ze}m1>铎{t'9Oc.~  =)5 ò޳;)>/ i4PvOOKywg~y7P/ 6>=}^~yN:8,O?}|?,,_))Xo?~] bi1xAC8Cԁa_)頦j/C֘SWQmϟ80L(zvUK|{> 14PbE>PuK 5}@?_· j Iap4‡//O_F=# Ϝc>|_=~?|/3^?hh}/oOLKhe u\ B8]AWYbPNД**1 Ǘ?Q" 18o͂ ɦƐ+xgEr$5s񧟾| ?K1^vl(|%/U=&{ax H$'ǟ`sovӚןh}yWo`oiBBT"b^^GzI_{wa_`#7F-Pbèȇш_-2J~Tï|{#hS٘ZFl@o^>~߼XYrO8_АϿEj!g /~pzXcZrOf:;hϘF腖 Mq<$!G=FC_ 2Cܿnb]8G-[:Pڑ4 }2&h1Dq(&cK4ض4No%+>ǮvɰUK҇{*q.YE8{N ݶTι c<9*.Ĺ|Y\RHA?9 'Ac:мU3<U:v?p,hŜ)/1][HB0O2ʾ-34[Y|T`RMΖ}K䌕46mϡR2FGV-߿?:;ܧP{wg3}=A~9*ۦY H2F}u'ZqP_#FcBNҖ\2QmUƒY#9X9[ꡖ R(vR=FO&G|L Ymc>Gq5j78M_SFcAb g$;5ru0ckMov~Ee-S_)똬%c{hV`X^ U ]-Ebc>7AІNa`iSe!86UM t`hÊs>lC09>!߇bۃ!С6-oƇ.Wr:2ycdzp"@^/R0xpcLUꙇI|,@QS *UJ<&,cZ~b6?țkO,Q`,TM2jŅJ P@KSOZptl2OU" Z8&-Xh@X"^;-c#r:?˨jg)qg:q*? Ί!-U@; @m6 DvşǟVKŸϒn,?KQicxo-c7!RPKŸe B$)YR4(W~%I[8, vqY,D }ӻ Q?KPp#h]9؛@W|p:G@V(C8ݒnb@- DL1ŸpC-yDj`ǟ D? \qMBŸ6Hk?GYOF*Fǟb b@Ppp:(?@1"br tji@ GD!PLf![!PL) R@6, բ̅@ Wh=?lMYRo䮖p u'tyПO?,g0'99?qѲ!:!()ADP,@D|@=X7@mi#-EHa"P,xSۙ(VՃXRQ b-N-#xAXbL#Zv -sN @QF@=F s  bma-%J"fwZ7:DMPN*eL@V @(#PAqG$xrZ wr Jr}2+4ũ%L9%^Ԋ#\8ٽR7* '1gϤ^|sK-R{5]FAGJ-vє3@#򎼏|Lqgd)(4x83 i"lzkF9k㯋Q2TG{ ql}^ 4z&hipK-׶%_4P f /Kߪ%andwޏa!S GVۚIpy☇^y^ Ot zXzRXS Z岒d*4u5Uw2s>pϔ ʀ$ҫ?րtHDŠOJNKlN0JaZ^&,?˖i*P!]R׍SmOzHux[[SJW4`ӶKB6б mj^^Jpխc .GSTag=%8cnʓ7+r$.=Et'-S8bTs8-)py507& )BtI_gNkΝf+ni>] R 7L_8HN }[^Jp;eq~mxjpk +E(0if/gLd<#Y Oᅔk%g 8)Zqp<֩vja}X] QdHer0%a9pF.!9ʃ Sx)]µT%p77F$ƆD2N6Fa~`>w d \9ݭ"x /KV´Ѵhn7y673G\mX8ӊcnOsN<.F9ӗoιrBE f)&7 }!N3)lC;RM7+ 6Jt3yP~Pq/;ؚp=WH83owユQNNu*tUhrXs;&9~dVo7Xl(MMZbw"ؤp ؎@3hV*o%SmIKBU^8~P~V]-x0}.:ņKի!!r~ͷ<ƌ1]J8 v :̭+0К;1;wU5jϙX =j0v9eЙKEPuÚ< 93+y^vl٦C%]>٦.]=ڍ+')J:pe.;52'P9&S֨FMt"}-`]ըcvR!QC VIsLNDNt6g^aF )>nF^F8[w:MB$8M 20 McG+9g̈́6^b٢5GqoAĨ63zꉠv] %6#ln/p3M%xJ]۾qN5)bBv3&R]cBN6i:$5i!ɛ:m9]&M}52LE4.Q$IquBIqdp< 4kݼHCVO') "7Æ-JlnZLun!5 FFmџmvcjQ6FVzn6Dh35!p8ۍP;v> m5ҳ}"Ulr4y8Ԭ%#w|ؤPؖGhjSh+~C. h3np.u FQѝlQ=pfsP$b1x'KC*aͮiхO+0H jHZ&芍!*،".X@2PTg20Ur24=?aA.IFЂ#LHڒpNH:v"RI)L)\㈴H.DzVgBRh+$2-H&)NY@GDI"unb@!R\EGէD&5284~6i= ; BvXxAԈPQH jt<:fq&m&4hխF>(xhi6Xhx O4ZDP='C,QSј=n:Ő"u8kDB≀Ph# hB@VǢ1(p9CO`2 Huíg zI1¢%$Ģh"9¢8 Bpp,~Ţ]څE{HYX; } 6^lPTg> 0^(_aQp|vD[v\(,(:ͻzDa`ĝBvLl*$ '‘((yRMK)(#7lEg` E-"+(z"H,m[Fľq0 ;(62iFk8@VQ}5(‰bͅcQE1¢vqEJ$,0 7 ]!Ǣ@oNX78J'=qq,U'uw$f=dNyB4[[/PĜEs'8*Ăk@4{ D Dqcԁ(* R u ͮ' X4q(6fHCq4.84{(Cs.؎CѰ~CsV,'ǡ9uw82(.q95w&MIDm DNÀ(D ]gQq  .Cqh>vœBk(q".W<.=>gy0UÛhܛHo>8F9|}v6ޯ)q>$Ƒ)B +< 2` {(2iS7ʱlq}qc!OpoW6Bl,ύ_i#H[m6 #ˌ{vg8>[ϡۣhkͤ>|~*pm/Q|_ P՗]4O)GX']bv$w_'"Iq?֩ɘOVpRmwgY5Ck9pg7܋~K<]pޟ;}t$kݙX d7*5zfikP068M C5.kJ?nDŽr%ǛFaV~y*:\b0>7-ԋ4hb]5YpT/3_dPpwxi;NZN־MzF3̖pR`i|^Jp939ն@<EЫ {)X6Kpy✦nVB)f)%M=n0لOA:'z [ȷ*ixWr4Ήv|Iʃ4Rx /KփF˅& t+)#ҮEeI4~Ix\ mXPYJIxS[+mrhtSH  -Eipt N3|ᜌN]y^ Ot zpL',j|{&'Shckh4SRڒ4Aؽ`iiSx)]µTQUqIi8)a tMU'pz~raUpA-e27pRmau fj}BI.!'iARx /$2 9v Rqr.Zc1)ؿ prH4er`>6VuOEt JbUa-kq jǾh(,F`)0IҋW9v Dff /!\k`}ÎDNE=éBҕVTwIN-=%W~S}Sx]µ쭘`;-PFA1yH@_S N$8< q{r`J8-̂ \4^DZ b+SmŌ8Cpl^Dۼfљ40!ikx[FP?VB^+rX2J~$V^lmOKv zh4FbQ_7N 4yo4{ i)nqN;GYNX[y{ /KփuоndEfQ2ٍmtAx %a8P=Yy[eﳈM%Xģ!l2X/gn@\ʬYh$})p4N>i(>*/ڠhRt.RzC=qEgK<[+EɕSV7 N3mSĔ36>Rk=.о& avޠL1$L (:. C{OBK%h3T%G 3ck DcglȢ]*]S%LY`=V8*lަ?WSm\*UaĬm"=|i}{ld8>\I y!ڐ޸^Jph.쑓_aeG8iڞ@i8MJ i[iOv zbV׍7H"Gzە_o,<[o]EllMU#=?5rN3i\x 9ߣfũvt93y%MT/j§%^7N;q8hcXKmOQL[N3ҋqrzeymFRxz/N"d2]6bF'Ң}gڔ0ifkiq yݭR(R~*TN_7Yy^Bg[,xpO(qv6yy).ZY6e.9bڰA&s3ON2Zdd{K`}7MU>˧`%!ɰ|1>ᎾكnFFvKtNI$GΈqu,RQH?`#=8hcj Ꞣç| TJ씻9V /}f,aO". JLhp*3 қ[C_m<\¤f63 9[AZѰRJ›z&u1VZ:yʖ4 lj ("$8<̎%N6%!٠[y^ Ot zn](nBOPTRm6<N;6_\@7g@U2VrCuc`1^<1O lD űɏML2Ⱦ4G#" *L/", fRIF04O[L1K) oꡝ]8v5,xmDkSC;/. ,.jZK@ĭԎ>bEr_):9I J})X)R F`itqϊafʻ$nҢM8Sd]4󐛄q!5%X}).Zy`IQ:mW6&Ejy)m}SheK[$\Y—UdR<8'' .]Z"Yz-ϩB~QSp"ăH%AG~^Jp@8iսqN5uk#5> Z yKܖIuNDI.!ٶp|+:K).ZG*y.HG H^4RެN۝\-6SvDEC)T<p)TPpupG5EK)=Eg<)i!XL)J>-x)T)ZMd~'p"H>%J]輺3%8< q${sARx /KCz ` C5ӣ'aqpAf0^ D򧖔 - o*!Xt"n`7mt4"˯3E^.ia1 fTb~CT#K1SKCVn^VLim I!X.N2;- LC74s%~750ps Xܣ#O@/=Zja%WʹJ)THp{+`N3hu\ ^D.-Ec ^1sZE]/کmLh).Z/ďQI Pro NzۢPG{'ME'k=7Ggf ϿǗS:%.UīI !& q(;Sb$LYݯ)Aj!Q)TH VbZLX^/A^5$T}/ڔ0ifq['"yYo)pĴkzD)Ӳm^ո[ցhcOmX[Vl݄4| +Ѳl-,$#hi΁.񸍖k[c&/Z:qKagWeItv19Ҧ' )OiC*Rk=T>=Мn|O/i7ꚰ~T>43206(R/'Qow3QTB^8׻o΁:~RG>mwg >Mha89\=WuYܒpDŽf*uqa7RAp3‘̯疢W$A'dO q:RiKA)@r՝W5 DTOᅖ7;Kc0ʢmb'Ί-=ȿmDY11NU?, {f<%\+1vgj9ݞobKNo)ʑ$(|\Sj' D?)p.Z|m=Ds:Ax Do:S0I4Љqr$Ki)sK1K) o=m ទ::2ִ=EnSn ?SuK0tmWu^JpGs[-NV3Զ>ڮn9 IS|j@pL"ow]eߔ|@}bFW1gBq]r8OqKʴ8_8uVwPP3ѷY|K%&0Mٌ“x$U (owJ)o)20iqht5\ŕhR*pU;ȧ?& ./kwS, `U:U,GݹtX(~u]_]]S5ԫގyuuSx]µڶqqY֥mp+E<%YUyҞAʻjf 5 UcsOrWYٱ%fI[$瑦K).ZMk|4u5./|&=y]'ES@ ǝV>IlN#.N+N8!"t>pq3FIQ9G^sS.RMKh2c!\].',oyB+wyb]xH~E[T8&|y7ud4W 1-ƈ`iOqv>3Ƹp`y+҆UOEt JHĭR~u2/*9D9Nkb1S$SK@8A7p]BʃfҚ)c;VWhswː}P e}KIt7;3-PN*EYgp -hKG\fst[OkJo-{,>S]-&eM¦UaNf:~o{(圯20D$E2zK!,5gU‰1.gTfvi1sS "u&iBnρږi3 C"SRt;۹mps3_U]n;W9v{'yJUzxsߜ?:Wsp-CK3sL:6ٔth)  ]&<ĬLrfK/RRFy(w R=9EUjb Eۊg=Jf9gK{+6U Ot zL SGFSAU{hh\ a~?IͿ=*)^gRKʍ3KKc~k91(~tRglmŏ޹>IKHMs _WͧSd@BLi? ӛWjs(ks@ugqy5qj `~== C Xp6&4p눡u5B0Bz^Ȁ}lw|/v\7~=hgq zw+xɞ0 d+^;lP9z~{ЩӉwg:‹_ =s XgDh w I>b_ gfũdo4Y>rdy^Ǝ[Rގߠ9y*I!ޞIzuK9TsRXqO@sBKEͫ_~p?s{wl&4c<1ÿ>}ӻ Sn7Ure_Apqr`d9-Ɩ+MƖ(7{q%-๕i1D=J4+W;u`KVR:[R>[RB[RF[Yg00ƒT0riLm©X|~=p e3}56t%7z#$z*rJ;h-tSG4AVyCO2aipŞAw8O3"/\=,%٣^J Y7A\p/GP PmK*{YHE)RK5[lbO?94gtVc8fgoIlef[yax iM^xXo+8`E d0&dV E^;J1xmwoE{{MbONGbw)n;].8jGY,::jw)O3:8gl֒m" ΉY ])s}ģ[-qSn{DP+h".vLtXs:T 3Ƌ ft4 ")ۃQU\;Y- ؄1)r&垶F< * NS1V/q "c0K+!#gJEø.M ]o*ǂOf _4rl^^p7Qf\YԳ .xtP>9WUG"v{K2bz6CϤtpΘyC9 -Zdpi$//} pʃsxy\Fӄּ.#+ z5dpY76}B`1nO@`jM3Դxeh0$ZS6`80۲ =[,vFɅ#:8K 2Tw(K 2S(K Ԃ17uJl pNr5^6jǐĶo: i\ǟħ'PLt== ŸvCeŸ@UZi>l,V?b#lß}X mv'o:י_ bcMb?; lcێ?1?_qg9@Є{Bxq5wO=ϖ75>1^8\}""Y$b>'t7g=D`B)sk >q:>YsrE(i5>qjƦqYx9ap̆=G, צD& _sqY>Q > *'|c|O>/ioos;=raOS߰'{"p(8C艗H=4B$+gOIgP]]; +Q'/9v]I:GN sn$riܽcNUS/+bXi\\}9#fPsspOBikm| ֡ѿKpX݌v|q3֘VOHj (\vnW9٤8Fc s&VϾ b K> k5ӷh7h6(o já6 fPGL"n G3>Gqv4O_9!$DPo:e)S;8hGLڦjͮAC:s)GQ2MHpǞ' iA!,q؀!˺4 p""n΅]LJ(-Cm /oYvSKt-r Ppmq j m[d_mRSЏͷ!`;T#iMB?`Л/nZ;eI,61uSU.n 2zLs!ʍreQ VGbqd(n;ML819 Q,ĻCM]Wc3Ch,-1uǐ2RvN!xCb#cұcB{l\$;,v$&XgA٘>0m>(BY%DoҷƂ}xܫE3EXj?1vў/b?/l:F ν 5UrMH~},F.ot1r+ ciM6e1v|߽PfT۾S?hr+@be)%rk)!MEV . DgnCDΝL( hBg%Z[FlWt(\zTyM SG&:̬eU`y6OdNmq*;Nv.]O;H,}V;^Jp\|A3NXJ`xɎ֜rߓKϝf|OY9jVs5kiNk[K %[dDo&촢Aen7V ~N$b~Of_;IV-qi}4%7哴J1>Kߔc|xq0m~ú]M:'"ON"NF-i~Wn"x /KVbnzⵁ8|Ԏ9Ri0О",Na\)+ڡ=%\롺1L+vuԓ000uشMRaOO7$iq[(2%y6ůRx /KcW 9Mdx@>{UPNmX)'-<G^c%k `< p,Ia`#ssً` {d$8}MN4NmSx)]µ["$CVM D,A.l#0oܪ=E_8ihi >1O&BSxKUOdG|Ml23YlÞxMӧZL)!f ^Jp6i1G`5h kpL pF#d'p񤅂Q^z^1*.-N p]ʇ~E—!gʡQf9zyJ3K).Z-`A;tqTyZSjE*SA=l>[=%BG*Ү IAH#4C".ZU;tX,T3c8@CNpbp/ݻc;fjqg*`?7"] ߟ] _)fbcA?aA&758;bVuqpLCCC&.ZSr p<4H|p-\Sx)]µs˒e`҉s2?V+"RٱnwH"pn2M\YQ +^&ӕ%AX&SkQPצѐy^&ӕPd&XdteoZ)2sfڵl.h+V3S.R:]u2Iu U<$k['Mk 0.cP2IY.~{-b!,8GbUȅDAHm6pHfo p21bDF7σyAWb5s\yZ s7iP|S`n٬I3Q^i[T Oᥔ7`ߓȺ9sfHو4-{ xnfĩ# 6sy8aq).Z3PeL}C z^骓"u`kВt]tNtq %V\ky'LNum:1vmQG~}i`oW0p)Fo=>>vie=vAl+lJ*!NW3>;L߆|@]P)Gl~yJ><șx%j̱`~+!U{Ҍ5;G獾o~~˻x1^珟V\l?0MX `GLIGam4^#?Y@4V~nMݏG:O_?|YO>_=߾yocy3㮎-O?'›.}#Amro?JŇϟ^5bel6GC}<<ߞ~9Qカ"􇏟z{e# k| p4m}ϯ( j|d/h>0s(0:gBhg}?{@UcbmXPCDfӾ~TggkNKR~ZC泆1>;y2fۼN&O/(ߨ1~5kq!_><}!ec|eߞ>?~.iotɏ/?WBes4߽8㯟kX, 5ڏ R?ౚ[4H}OQmVu шgUR}J+͚0'7NЇ?L_!K dWo~ {c8$Fw"r%;&ޟye挠ֿKIMm9 Q#Hy?n0^|JV6r{rIE=m,ԇOgg%>I҅,9&=? //^ԮRu}ßjKƯj<_j:bƔ3?]n0tjYE[nn r.B $=fXdQ&9376DY9{Q֍P*\\8Bq8t ac~wUyc;D Ǟ'g9Be23sx^fO1ຏY X+%m2,ĖPӟdb(SեnJ!zoTʥb19ezܐU2xhuI!"- Hx[ig\wGv'T? ]KߣTCD4>e!cL;) Oo qK"NVk )qJ9̷˚mUeaTo1f\)y9pq{y̱Aj(@h!ܪd9+w>mAx39uλXrXH>Z4t4>;t;I>K(EԠShWo:-zF^}Xգ奨 U0v#a~VT&,zŌ;PJV蒢UH*N`,7$5l4_6»i3l$ _`ح$Ubeur.} !`&TC_!m@2Og 0[3.X{nr^Q!!"5P lǰ+Ľ~A7`nendstream endobj 480 0 obj << /BBox [ 1297.39 4732.83 2544.04 4822.82 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 97 >> stream xʱ1 \U\ul⇀ 3fgxOYkB#ㆧ5V$vsUqmdp(dcwܫmլ.endstream endobj 481 0 obj << /BBox [ 2539.59 4732.83 3786.23 4822.82 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 98 >> stream xʱ 0 So"%q׉ O`3d )2i1?4e$jnp덣ô}`%) 5Xܨrz'o/ endstream endobj 482 0 obj << /BBox [ 3781.72 4732.83 5028.37 4822.82 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 97 >> stream xʻ@ \U 9* 8cƦ(wٴ9Rk5  6k/i,b9`J Uny{U>X:endstream endobj 483 0 obj << /Filter /FlateDecode /Length 2502 >> stream xX[~_@F͊̐ 8.[E>p5EnHjmF{3jۺ+r8/8o29wx2tlVBy<+GTaݵb)T\˦.boXLYdmXJ!bf5Hf2{4s2 eqL Qk:JG$+B'̔^$\d̴_*Q.ҩj0fP1'UL &[FEx庾<.Yk 7eUI>hv EZY\ș^X n]r5M|e p^#N$:n(]}yoJP2V\IY)(d*kSᙳMsp"Inʺ Zy T:M!fh$dU8kͶM]Y}=[+x(="{୪Í re(ޞivzCE$S7 @2D]CY#ʥLFL$P-uѐLA%"²Y$q$wl[kgpLj[dLZ&L L#!M~O.0L`EJv֋q~\<Y~(-Dc8kb8- /4{YŶ,pUj4#|Յɪf}.pcm΢%I cW1H&]3䠇Vi2Le=JG4RB _}:~s$Ƈ [gC0ixq^JTLzs[doY,SJ9%h?s+<=>-L!tw020cw֫#H]Ayf}zks5P.yNբ27nCӾEhz~5|NDPx{ 8ʾ[/vkp!u pQy~Rg*U`\7춬Q TO6emMT<)\{=⇷k>H+ܕ0^Y(rF'1u GO!7SCQQSdCDbvrg;'X:.s EvKJGTuqF}bڶ %ٯEuF"xS}^%,8C.3t?H!U$ [AHg. YqwP!k1yGZMxdqdc2ɥ`?rkuoPnDߚyYؤ*cmSm%;Jt7s7! !d!xkKD db$G`. }jBM YVZ:{;01̻r{,`!7)c|C򏆇jKcF Cox wxr)oYH`gPO'Agɦ54P eQj=Tn/Ҕhh⦺YY$OKR*ʔNc144X$YLpGvL?Ě 2kvhX;L,:^%6pz%.׃ÏxOqyuG܀jhow5Y1Yn8kL}e %rrq}*֦v͡9v@>r/fC!.MT4hccFJQDϭR Vp;U*&j)n>—4_?aդPm9'"F,;hwTXSNvBp']e>E(m APpɽ(ʇw6xT&hލ]ZKw>1O[&d|"m5MRq-N>mk(PYg9kSg,֦QH4) Y3la-j=jYOxOJ܅7"ў,}lL(}oNj|ւ͚",'^?^IP*-Bjڝm/'iel͊m9N&՛ .!~eo|vnxkN 똍ԯ1 >̃DfE3 ̅?e5Uhendstream endobj 484 0 obj << /Filter /FlateDecode /Length 15183 >> stream x}[Ir;d!\}zywa;o[ΧOW^.ՀNiM۹lwW7tzr W3 5n^}wO|7߽ëzikW?ËWJjޜK*SߑW0r؃EJ#v^H]AU9b9ASv^uE zs#_ƿEqzoWl57E0ֿnmH}VWmux4 M^ʹ6F5B ,2Qry"T(**S1dU-ELk=`ߐVkAVؑ*!Sl,L+5;*b"OȈyvS!{!Al#扡TAZj_ňU31-z7#F fPo9-yiK|#އwLښь*b40xg8'HcCho5z 3;k[xO^[\xÈi뫕Wd"ˠm1mA)B'bcD>`c#fډ(Y޼"6odSyqLj~`K쥼jBmSJ9X*V/fXm1b#x*߭t;X\<|oh]{J-^/A!k`cDumzc;5j^k;W >zy?#vCm"mx|T \Ķ]Sg*[y)rTRKq8XswU/#V*rv9;&ZtW?+buMKԥ4=1AKH7 bz}ͫi+g1f'b"V*X7D/Esq m^* փ3A|Gc.g+b_my) 8S6Od b5R\#~] ͈9(5qYXL֞B\ѳVȈlz1O.R&(Zw6Rq c솑 RRyAt3F|\O<"zHB~s;c9dC:RVȋ{EctX^J?UN#v_[Rna"W.: buZ]}S'bʼn~u;ߘVAxMy /^Yz^$pF8BOuvӠ+Պf_Ixcb6}7dg maYE^C#@1Oόyq> ̯j=,ơ_ &va K|Cրy ^7ÇR1 E n; 7Ea ^\R"Ѡ* ޶|ۏq7 W*31B@ԨǑzY#v68bB ^*/8#{Mt֜/xCn$Jy] RW7{ww- vf|-_3n-XͮLd /vmFc^o(bްU[N`w3FE<ܮ"(bs=Cn XBpOFETߖ Vjsԉx?`nWP̈>3K%au0ɭe+g~=5Tݶm)b"/ \m b1U*EY)E}+VJ<٭n=`-zvc=G[wUKxj|U*p_qtSqgAT"F )b~=oGMn )pK> 9(b+b5J"]-].+bW]g֜ U,Yk%eÞ>Mql!rC݅3;p8-ju{b{A!36P=/c~ΘsFbϯ s؀e^#/``_iVw` ؞|Ey4D @7 oC c?@BQJ :qSҏږ&:5`J!a8!a34xHLH #\f&qbz' Dȏ4'1R5H 79(]w|#k# JF9B"?jFF(@$"Pt|x脄д$Ǒpws@q9D@Q*"d!'DLdԡɉ̄ }ND-qB- Ђ( D)PPwދgGSpH˩37Rr&~xn}Ȁ7.V`^138 Ct9u ^yA@?i >tM}C rBOXC#0g# V|%g<Ͽ?x\ 3 ' MZ{<{`>xB &L:q#"t@ /n1iұ&d๦ic|vq$|vCb㳀 ,.8FLJ FGa0Hl|!n൤`>džHfa1 'l!s,&Hg$/`Iht<A ɹo<E0d<>!:#̄ D*_@ +H&d\ D APRoz|@O|$Hq)F @`o(0,#%14%zmd,iVeh[ZRQR(6$Ti -N U͝܃D[)4("l!,DO\'syQ;7T d (AzlP*D6(*3cCbF&e),U;= U_FXlT1.dZ3:Z$RnIT73N_PemZ@TB/8=bÆK 4]cBJT<8bX3vW7Z%ɯK# @s,(E/ ]/cH0P^Q.9e-I`KySLX 9kpJBYF1H$.T@eYെ;>hr-js$6NQ3-$ r*k 5`"aAVk8kDâyqd8+ZV4¢5 ciO@r;aTg5$5e$ꗴ.ohIq xpA3Ih =sDG!u^vï/3uaYy<_ ioHn7ې̼R@8ru鯧ϯ~z10%O;wRO9_TC*ShSnZ02h> b*$>OZT/R+Zz5efҫ)5{5^t!(3X]#}rwzJθգ3gs-;_{c~yER'PE;|ޥY&yJ)bK bK JM.tk&rFeRd"3.&O"l&Hy4RYd޸k"kq6n_R6ĀiMd}? qv@;bY HiHMdJJJ)bƐֆ!d!BVB(bNL1ze[V: `*a%iJ3뎬=|pj/E:WY8qv{C7 UFAV):n jki` N/UUTYUKުZ:JŃTL`3?\ldmfmKӯJӓ_ǁmMĴU(M4\5{Uý1<ox;X`,pGi*%65h#<-@ bBGC\tӓ}#'jYU X>6[+]֑uvH5'b"mR|CTg'4C62BN6VMYpSșjgUS*A\e][+>/eb /A}&gYv^#f{lj#:̘lq]_M&!aL. !\?~.\pK Ҭ-)b2rXqRgFE\ c1V\Λ`AAޓqs19غxGHG:]_ïc1Rٯo+xDw͕&԰";jפwUUͯ=WQ.-,J^ϲ a{Ce Ѳv[QDL_=V5}q׏b<"vx]"vna fͯ(Alg'bfA0 VPa׎y5ɳּu]_q}qwU~נm1W/pávjD\eDVJ,UJE1Rѭ[Le7Wk >loɅyoap˲~r^_D,1~Sa+13wV:`&j;dV7OG߭C~L7_t6恉vUwa\n 5R*}>ʇWύÝK3o3&ґ6<:O3N/6a>l'yGĕ\AH3 Ys4gE*4gBSLNL hl& ͙94Ra#3͙^!A.,g,G\,,nFXx.>Jsv9֔',4Ѫ ҜAGy<1פ5,IźX°v{q{{RIt~0Vܕw<8Ham%0r-Yd:&xR_H_)ΣoRgQ?x},sS]g "͐qcNqbWe cj^GklVZNK՚p F-`VI.i5g50ކ!N2gG4C|r#rz+Ar[_m- *U*!\lD*@L%-ɅV ְX5rr/ȌLp \]|/H/x_CJAٚ^& &S_JA&Bz 2ֹWpqu@}frR WBj116Yۏ7GB-Fh&hKS`x/Ws;+RJݥvd"5EJȢD~+b|тR5%,"F #]]֊iH Ra2Ƌ~H}пN}ᩤ^RTjUҔJRTҔZRKWǷRWs/{y^߿UZWŷT(^HW-R=WRJޥԫV)`RUNaMu,UH]ʟAymD)NļKMd} .YzոZ5 󆂘6Jk[jd}L 9;*b46d}"_ >QE󍚫)J1mRčc ~Siф VV1[/A&8}U"D8R]bQ%YܑUђ*ybs>4g_)zJA-C楂U<emb"^3>d#Cތ jdcXH;;X~ѝ_muZ^ZR9/e^f:#!FdhxmKޥqӜ5 bbD>Ĉc۰ODlzGV)C\1{AhGۿ @I|[qQ&)F:?gحMRY`JWSRve21Rʼn V;S e.RL0595s bۤC5xgbRdנ/-RH.䥞M1X"^Y 4N \gߣDZصs؉R M\q\+f8dB#EFJjKU}}MyÜs_(Qƚe;G?o։Mì聆1R{N9xN.?M̗7;ّΪk_<੩襲]2;~Yb%qRz5DNz:=De/sDAV)կRX#|nuT73c"W8ma;b5ӯZᎸ߭1Y?*c^x1q$H<đ@E\qR~+V3.\|uV_srD1RjW bmu[om6؏љޯگ͍ЎդKp_*jtyx 5F(KWbqaW4&eǘnk)EֶW>YۊFYZqU-QwĵIG[M0t놊J9{Uvga"jjfS̀??ruv7'bR~+ڭx#FnsGַk?yq!Zg}~ ?=mv0AE5xMÎ./YۙoKWKooMq> y\qYدؤ:f͎"k[!w`mKLلV殾>>+W˕F&bG*v]`"nX)EMl؎6&j4;)YZwDܦSyq|*P?봆ݼ'2o~]!;_p}厉ne"n CLHtȀ3~cՉvi~ܣ|^f|%ZWgNj+}y ­+b4Qnm;U>oF$y$iVyBҮ 2 []Sրj7]JҮg]##ZkT>$CΎ+lҮrLfvk9ai׀ZWҮ!U!kz&[Xڀp]Ca1 I In#ǮzaT6 q~xBsu#$m@;JҮ[i IS9$JwghbǼw!i׭]8uUhMm"BUvRW3GnID8wF]24<4Ӵ ˕L.Ҵ 0M >.c~fUhڅG#BJ.t?iڅCF4B yLkav%UGq s\G"Q%CU ܅Cmb>/&8q'Tk6D+#DZgDXxBld1s!I{Pb2@HYIٕI7̋N}\?EMv֩Q"s)jڢէxz _eJ-8]-q9WFPt3)FGbXs%6pA,& B*.xv[/ (_i.Ğѱy{[r+ HN fץc_&Eʦ{)_h8RX_+4ַ$6JU[x}U_ ~%Xqٴe*/횝 g֮IW)Sԕbu li!Ln6튎*? ~&0rP` zZ%jt_U%l*iW3?~SC 3 ӀsT:  e)4WU|Eh)4WBxUh)2Ni*XBbПN,Hοy1Tx_^CP9Tx_ NCˡI}Ց2n& 뎴Ja:-N++1z gig}s2 #cZ]~ɶv)6PsB|~EcÏgKKs%J޹A@V R/?[@G2d+%xuNpv}5j?S%ĠZ۠?tLjkM֚h |-q S|-* ~m[ͫ F*jᚯ1RF1RֺE#tXW)AL4h(k MeТ+EUSdJeMM)Z5ThzREMShI-!po?ǭ˨2j˨5ks9~9w޼.~ y wte͔Rd5ݎ[;FtKwv|yoW)ɭV'ܵ9Hoϒ..SW Ƈf`lWunzGR-o47 ›x/n>DO'4ŝӏ77wtm+{?;M?}ݼr-|/,7 lt/I!GwO'@l)x`k˦k\a ~@qw|70%@9}xv{QO@}͗!#]_n>_O|y%~W7?=_ΊN-IktoNjGMIo V*{y~e4N$v4n~+=x)]ئ[Kܟ?m>`p6yTxkh}e\p OBn+ty%<FYT9Vh Y97 "}Է &~5Ð w^H{q-4`9|wsF{O?ѐfoB2J"'k88?ek\_n>K=FE4-~o>Z,/7[>=]n<,r!|pOAe_2G-Ee Av2U`PUP~CZZbB+[פVN_>o;E|֨Dbď(Ϙ  ELJm*JMz1oeU3e~o8mm1vDQxp?&XǛϔI(P?ck`×'!ƿ w۶i%OmN8ڼ3~ Bab;o'Gßx:3f ;5*"Tk:4~=HkF9{? *O94{հX%5eWO}]v10Fnfc~=0[6TOfIK~*̓O AV=}x{G59Jn',ag_`w:. .t2ЏRy.d\_Nd0H5ܟg!-#f;Ϲ:VB>˿bg$G& 7fFiKJ{TbG=rI&+)j 5 =ˠ5P ¿r26"g=b%RKtׅ0>+RX^ӟ9+B9]>9aωT єwӐ dݾ_ t[}ۇ/?>`C{jj+`͛6&D)bG~y^C=? V^/t3-mB aESW=6;ٰWxkkq wgkAd xz_yô҃:Gz!/~xxMlѰ| GõG?mӷ<1Rĥ[,!=I/\ݿw_Pytsx~bOi&.36 >cG-袹HHvs؄<"( OS>NOw"Q:Uw7y_UQTϾOkt!x370De0Ηa Dx$c\HëT;endstream endobj 485 0 obj << /BBox [ 1613.84 4707 2683.53 4808.93 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 95 >> stream xʱ 0 Sx'N25P0CHN:at![)Y6^ 7wwPA`D$s_< M"endstream endobj 486 0 obj << /BBox [ 1613.84 5716.88 2683.53 5818.8 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 95 >> stream xʱ 0 SxO@ L鐀%R jN{M\o: Ћ0 zmA*2W7v.`$R8/&z+endstream endobj 487 0 obj << /BBox [ 1613.84 6726.83 2683.53 6828.76 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 94 >> stream x10@ѝSprguD"qv ' J"V*}6\&;m5y,6l**endstream endobj 488 0 obj << /BBox [ 3600.07 4024.07 3652.4 4076.41 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 168 >> stream xݏ;0 D{B'YO@M(8@R Pp}I4yv;\R0G%Q(F&xF&woTm 2tNLx^!Hs$]e RP IWZ0 %5~8>~wvTcendstream endobj 489 0 obj << /BBox [ 4532.93 4588.49 4585.27 4640.83 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 167 >> stream xݏ0 DB83@ fG.> >> /Subtype /Form /Type /XObject /Length 95 >> stream xʱ 0 DSx'(!KK1hvN\l jldԘ%c C~jh endstream endobj 491 0 obj << /BBox [ 3600.07 4950.21 3652.4 5002.54 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 167 >> stream xO10 $$/` ͵bHPkU!J&Q8;NGlƣ$w5;a14$l݇/)Ua D&)<(f0endstream endobj 492 0 obj << /BBox [ 4532.93 4862.31 4585.27 4914.65 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 170 >> stream xݏ 1 D'g 8(`{ 8>/ %p4֛gFOS`5)$0Ə3F*@3W,\m _7!"!1\+6UwѨhM%IXtct̛SBE +|$|B! r~j?}i"endstream endobj 493 0 obj << /BBox [ 3557.82 5716.88 4627.5 5818.8 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 95 >> stream xʱ 0 DSxc؉' &tHABT{sz"Ă+j)¿=W\pHI,A(J *a*endstream endobj 494 0 obj << /BBox [ 3600.07 6335.25 3652.4 6387.59 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 165 >> stream xO9@a  HQxHl%z$ St)̱c#qx$LdFN#h `2BZN+.LK芇jLXM@ˇOs5l>,x6M_ YgpG8 ekendstream endobj 495 0 obj << /BBox [ 4532.93 5858.81 4585.27 5911.14 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 168 >> stream xO;P s $}Irf*eן G`dvCװ'$sP,F(0D1x02rhRxex1a5PM3IB . )؂86GľSE?&´J<9Vǂci)֖kn gvwg8Ehendstream endobj 496 0 obj << /BBox [ 3557.82 6726.83 4627.5 6828.76 ] /Filter /FlateDecode /FormType 1 /Group 215 0 R /Matrix [ 1 0 0 1 0 0 ] /Resources << /ExtGState << /R204 216 0 R >> >> /Subtype /Form /Type /XObject /Length 94 >> stream xʱ 0 DSxcljO@ L鐀% QS sDĈU%+j)ܾ^xDŽ4Yh9x)eVi<)endstream endobj 497 0 obj << /Filter /FlateDecode /Length 6877 >> stream x]oq}X(2t'$~|rXCqm.W]J~9oOUtU%JI&gUulO1ʍ[7NbO2})\7߾ o6qNۋRnظFo{xwye? s%0b:vۇxˋ^_& -n0rTf~Q8m~y҄ԣh*hi8χfiƠ0]7 tl9!,v+:y}sQ;|  GJ:\BUyN#Ἳ޼oowo.x՛0_^HhƉh6` 7_`축H#ƶVJ;KVӾ*eCaW~jFTj*H+eek6B 2&xԥ*tUV|J=ԇfԀy4I4Qd7RqdZ@A&$C/)@٪+S]WԌ,RՋi5R3H/jfdR[Y.C̍PӃğףЃ? A7?@ &Z A_R_R_WٯP׳׳P׳׳TU"uhozt/3Gd@B D y UzXd `=hy" }B"ǐ`z`Ȑq0!O!p(!F9zh"N @(lF.\ꅭ VT1sl*8'beR9?& T`V֕yjW2-`!RZ묡k)'@d odf M] AkЯ,#IC g1zvB>h]% lmJ,2>/TCB`:$-~Z``9 D ;eX17Y"dۄHL U(~FD`, 1`A`[d9(c萯ղ>!OC?1#+Q.B:U1|Q2[Yנ(#yt`]+MF$rO%t_B%t_hȵ۴[$#vZ̮@oΒWV_ne_ދ޸ⰽOs#c%z룰>W"g9zvYa:&n{왵cߞWXg.t c%y>{d> ǶU*H9Šf(S5E)DQ2,o-bUkAukЀ[h\`YU>YzvCP9g'@%] L>hJbl6`(/Vζ DlFH͏Tm4A6bL.{[fs\Zr8@J1P!ܞEU93yNP-߉򢇙:y8ӫI\ridVprDqtc0 ^(b-yfdiIrӦ͉Z%-9тpۗ^K{~//.!x]~~N^ە ٮԭe+{ 뢳(cPzH㭞VȞG;x{^g gTaJm"c@VEZ$OA%Z$[EE[$[Aʴ'On-=A7Hv>"mvdo"-èAJH!"9[$~zhK/4"UdJkL{-A {Hf,"ydoZ$'ɥAJjZ$'nAn_K|I/ %${A=y.13sXAG^H#l;ȻidK}iz~+TV+LR(^O)L/#""+#/% G?%3+sJbRAjջP)^]E+ vp!6UZTUFȈ2 ­#Vd(`ym"d}=+}AvD #$ResX9fJ1gH'TAM*Zcʕd3F7l M0#Կ¨{%(bD&ܢD:i)N!}AE;2ު1#1/1V:?u`FZ)|@T/@܂|1TQ~(ep\.d'XSOk*grܒrCFQ\p37ܯG& `E¾QaRRptzh)^po)+:WKJ=y$dzWd/WJVTQ$TFXFdH}FhG$M$heJE|Eʑ& p/ٲ"! U>P_jZW࿑g ]_ WgrY]Z""[NJ4R՜ղg:qLWԀ٣DEZ+Ld_"q]"폌f{?uu]c|7<\$e63ªV;|E ˫Ȋ3<W)OWS{VBG6}}NgWBwJ1"zz]mk;1yМS٭ Z= B_AN ܦ1p-~tE%4Ԋʔ=yS B-鳉"ܻ7|徂Vԓ V͞e)UYEtE{b,'GhrICPW--3?-[S)+[;/v7]݉ǚ_ hG.=;J%ܩV|EB[\M{g,l"TVȢ+KUuh @ml ;;g/lQk<[K-YD7\" ;.3( T2}. >JžSt%puŜ0//$e4ʸwOR:RBVe!TԼTԼTUjY*.&R7wי~mt6?u>e~7 P*:v%vˠ K~^fnt_lH@jrplf4 y!n0Em< p{ba'P.z΃<։G:ZBQ\#|}]飡QJ}1PeҎ4̓![?)Sc>u~NWThg 'E}^_4 h &cqjnÇK*a{8!*] w?48:ư-C(vothj mB%{_e^pFv퉦KᵛNEDaP%t_SiPCy0~Üeyz&N~IF #,L)Ȥ?wUGRak%ۘ+ˤ ~^wtwY>ܔ\ei ]W"F:Mźx5|J\5UvWa~>hpxFaԠ/"ohݏvgCӶ88|LeHYp~[\-]Nq!p8|$p!|H|^Ox=e^+HQ6BK˛KʢukOQ(KJݞ+@3\`R3IB:|Q]#)Hߣ;]g7U kH:H3ރWx?Ly(FyFɂog( l^⬁;f-#L o}0K"Mh{X ʦ'DW-ָ_01 ~/O ₲vyTVkouHӸM۔p>ged,º)2rII ӏ`Z6u m!m^$zaaO)*LtQ5Bn+ma 1<йQvl,|y}]PX3<3,~_hf=[g?/k{<%ʔs4 C=7 qT #ZcnO%6}wܾ;- 5ShnzJPd"35WD5d6#aYMW-N%W`B/ vňw2%MYB3e}qw`:W*"hm9$ݲ K;֏@t1eROw?˪ T>SI5z#;q"~߶]~%GPuڝjǜwv_~}ńVgqj{U0/N+G,bbv77#Ykhcf:owp9r]v5*:OA!smA~:OǴ/K-|YF6= eð8-~4$X8USu5`ĺ)\"Rc4xGTklSz'mqŠXRԕK1`c%睊J{fdNk48r_ZA2K_rp>-}΢iy鴺'uT9ڲN)e9g7)ҌN_K\B)Iwdo֪HEoZVƯݛlٞUÐ7&]i?}* ^sle ~J\*؊οSH\ +%g/eHe9l#Ow3Tŕ`k, Z(xۗadzRkY2SOм-:aW.1|8N aH"wz2UdbmyyA.F'PPPp^껰Sկvos ϧ:Uk~Ui' k>>LW?՚T1L%eवx ugtޡ/̥r*Z% £q?SUegz-<ɩE8ؿ h3GS^c s/LĮjNVJ 4MC~ejַü%Ïϵmhu>&V$mʕ-Ցp{{x3zxRp _?)J_>ꇼ$L}ۦj ^aۙNsI[XT_l=N/7C(jY>~İpx?ݤĒmSʌ5Fʪ&52Zݻ`|apo5h͛AeE>-cc"aIKcyKWS3 L°͇| i+]ga͎~׮aV'Cџ/dnӉznSV[8Z`uDێpdzSxl /cMo.*x5endstream endobj 498 0 obj << /Filter /FlateDecode /Length 15976 >> stream xOs&9rs፽K{ŸBZInCQN-69";?IÞ]c"$ @Yzӄ_.bJtڮ%-/WΧm:yr;}>r&m-{y;xyw).JV|+{*ӔېW{d?mxTOoo.O*ϺhwWqce__I ͞I_m=_X3K)71\ʿ}{yƿʶ;{ŠXoMj/|:_>GUWoJJv=_lYVEf!xQ\P>|zo[ٲjF?|Ki{^-s@xps^⓬n,j]Wo۶?|sk睟XY'Ơ?o]c__:׶Ay->&?ge9<Z5˻/ϏfcG<m//}swU24hW}̢蛼,7}ģ!.}MKyDrr큧|_Q軡7h[[η66?<>պBB}ՒBTMZ{{/Xv[7~e>{([}>m.~⤷Q7=tUMOo/ٸ}YhJyigPZzn*甇d~$S=Uu./vk&/ӯ%'M^/}"KPQQ~RCP(z5KZżcc77xw›yDcnl}V+n/”Ǜҿ۝I7wwK_/qc2,t+2{x~ux|syt|}h3}_7TT]*[yo]nޱK/oo>>ErNٗc5۠CK?V׿ڕL(x<=|-K<ދ7*j Γe-dTvjRlV)OW;C SаNjiK<O z%u7I<蔡їkXy̋o?\ycAWoj*p>\2x~7`5q^JN%r#vuc"wEv_]]ͦ:*%4|o_>Y?^uPy/^RooW_]}uU[Aɽ~p}>_?MwϷӱ ˷_-??]uo_~X2ϳ-inS^)ܥx9'7XحiK[k[N}m3bءT+o\z|Z'9m^LZ3-nHxTd6]|*bRX ``Px0zs딧vZds30SYK.alu]Nw_M&h:꒽T).J%PKRŶPKR6~ ZC.ڸȱRAOjC)#v(%ɡT$9Z6e,% J}rO0%ғt4pW{Zu~MXF&aQi0^&CZe/TTbtB2ѱ X*F^*$c{ es˧-mKٶ[T6h)ϵs~^i憚ؤ8FoqKqK 㸗㸗q/q/5c1ճs M6MkK;XS]%W־>G_9їR9gV ~bV>=+RcOϊԧgt]k_p/ͺbIvjB-2$6~:[ؽWJV[!vuB5dEu)<//LvIߣjRWMKh$ Gl:U=U&lkC⑐d qй+%+e{Tq𨶲g`kxkfE_Kʲl1Wk$Zdګ=VkcFvƙi+b'($ƌlY'eAbmD>t==euL.DiV+nW V^c-0Il5v=EڼOL%ȊxVθ3hiZ`;oJ&ՐX+5;l6vo ~J^fLP4Qڹ@yٶpakhFZegJOdӮ.g<+/j!a'l.?Ԧh&XV fd"P |-.vѥQ&X]bq6.3d7I:̄lNlԶ^hx0wO\&hH _$nV5%L]x53EvQk&(3olfI֖L5 )HO-ɦsIVjI7 &YP)`B$v>'ٴs0גM2GY{}m=%k$4Kѳy5%ۤmѱ3EMJKs͒1x5&}6!Y+Y` pDEYlowf.X[mtpGhl+%ߋ*7Ě m 6LdT*b͵KMOgkgE]H^6XCg\e:P:A;q_|1 m mQF/UXƲ-lʮ_PUmX:&iBԧƬ*XP]S.F6!5˸jJCOxX % fmuBT%U3XZ:݂Tk"ؽc5E+%R͋6I*=ՂY\ì.`6EWJ6-Ŗ xE#!(4RlYX5:V&̩Z+Z %c/LMcdA3M& Z bJUjVN^ZW ^Śu&WٴXXli4,h#ΙXY#ԂZ"68ٿ55)Rllr"bYfW&YL4k$[7B VLR!Ҭ,Ŵ0+ܬ^iMh@6q3ij\d:xf)mQw6kWZ5@h&IɁW#fa5Spj/QI\v3W[J;fN +,M0E#e6|)s5:e~z(sӁ2W{s@doW2m$(\'HlH6L3VD"Y&ϊ2AmͶ6Ͷri휉3wg6,JlAxc4Pf3yWafk+05)w`f3DHafN^e6(gҡ(RfN9e6i#l86"2Fg``&UٌHV%I8`f3c3[ Hjfbg6,DFf@`)h6b@Xf_*ЄA@*g6l6UEfj'8 l4@LX%2aOy5:@J5`ͦ&U{fyM(wi."Lxgb3\ Xe沮?w\E:8Pԙ@M,'|Á!k.lg&$[,\l3Lk.o#Ś e` /XsYb\lCυ/X(`ͥ.`ͥnW4#l.řhͥ,⽀M|&^Kq\rAl.Y e-Ŗ@NYfhTL, \ⱌ`siw J:bh&7iӮ/xs7)d2%MYxIଶZIκ5p 8+QQYm]pVL>YmΈREL3j"j"Ŝh 畀b*$pVSMJରL'ŜՖ'6*.19+l`j;Ϋ`Z"񰐳`@ZV)`NE+YզT ' OY 8kNz+Aj81nĉsW"}gҳz"Κ& j{Y6 ̶$Bژ:>c'$DHQ' ͝7ʎѩ3W-/d ۱vNHh dQvBF .d9X7s'$Np'$)qg&& ,'DKR|*}'$W'$ls=!%U邃s=!D =G&D6s=s=G s=!aze%=s={K;z z>9N廙g< 9J}t죫g=هvG>;z !2 =w;Tgi=jhz93s逞][t'$X =!= 􄀏 txv4sh 3I=!͜&aխE{Y͜eUy4sDTfn{fNpfNlY9co9`93"3\7sl"v3g DrVN3/VEn,ڱFNL2r4`'(l%FY$A7sp͜&iCsvY&Yﻝ$svNIaŁ9;ԉdAg5@'$II̬@p 8QU LNH&IH=TQ'$3T 3"&`Kʈ:!Qb'`~ vbQwBE܉wfzMPc <փ>Z܉cvtB"3"u u]p`hÿǿu_}aIϸ][pZS968 o [ < Npm??9{@ł;au3ySӆ[x~Έnϻ߻__><}ފ_op;U[Z>`9`yg\_/Ls뾉>mD| ""n]1=apE14g ㌈Au. ˄`/~nޏBd(g$R]2j ꒡V[;wiXPu4t i4 p,]$9ʈ\RJʡ$Rg(8Yء$R ֽC)I> MKdIq貟l]aeqхd}kWc9``(Ӈ^/%cz{bBftH8ƚLPǺOg?%uM0z>zaR}R<<襆yKW>yYgZml [>PNDMԸmʍ'nKnDC+eFUg-gC-yu'@Rgm <ј (o\i^D!<0Ps> gP-p_FI-3`}ojͤBVm@IYqR$iqW ǭ@#%C익I2@&Yh`#*{Tz,RDv$~l9uݏQ@D>1 D{Dƥ2af_aܻx-xh)h=ښ |yxZgGHxy[i_ն{Um\BR&8INMB=)59G)'Idj$ Zc}T'Umff:tΆjd/"2ܻ7Ing6~܏νOk%>޹X7Ή>-OjkSj^e)YlRU-pLi3ZnebM9'FlUࡘc៍Pl!A\8vfQuia*kY5X{xyĽC *2e6xc&1 슥LGY;[AgM#Y]ĉmB[b U7|P$>rS %<'CHc\iɭ=jf*rR){}trމ3*;qbnTgw X E p7]x"L4(yjOo&x5ěPp7&%o&/o&B,o Dxd:7}!!P|B>!Y ǂOHd||l4>!!|B"$|Ln $A"#Ejνafu-miFl kInܭtɳU'O#yFTNKwxP֨w";y"Bg$䉹t$M5;yڶ[N&ijqf'D Lȳ>[uUV'ʉ<Dn\V!1,_ivKg~IwGK'Ѥ[:R-aG-+QY:[(nl --tЙ:^D0u.[ڹ(nv rYn\a;YD͝;'̷$n M͝r kgetn ?qbX;v:y Nx 6g||bгcwt1[ tWz@OllazOLF'Bt@= BOz]2A꒡T T n{ޘ^uo\FGt$8Ft/Gt/4^^jѽTѽ0{>{aDR}DRÈ3kC/y^/y^/yXHLOLԧ'Xhקs3z^-Cro:#|$=#×v33-2~9)5We>WK&唔#—=X01: i17cl%Rl7"?*-gɽHԌ M;2 x}^N8b/c֜iexƴ9 `e/'ECrp(t9\Q ]NF.j#=*PcM9sL"M )dƜ93]NlüI]N:ڃMF2Ӓz4N˘1!YP=]N贇.'d@ZLJIwN)tF=np1+M0c~F`LCWWr1<&hLXߊ\I\N-5\NH4 r<lbDr|j=lCt2yGrq=j9ᘷQ˩Q˩dD-p`۔ї LErI0d99 0;, l*d4@QrZN-l!iŪg,'mc̲-Ec^1imƌYN̹j̿ъ~i(T'MlYijL.5*͵*g'1qcp-\å5"@ՖCZS&:3o,\k6iAGk֡cHx(^f%ٴj5Ue?le&xyA{(%hb|Yr4 M,3IDLf 3;0s5.`#3=#$LO}`f3UvȒQ ۘ~,9ϔF:NLLz̦Ve2= i`LrbLȋa~0f:  Bȇ=RT'!sdbRdh LL wCǘ"Ǖr1 2c.[ddbQ,ȄbRmA&1ANBn6fLp:a`̥ic">1ocnsYbU ĄS1/m mz pQ&FA&LH IʄRHdcnƄ|܄e" )sy2)s/2q15C!5cfUaff.:0f*`Oefט$0m;fNxa&#'Ulę9I8{MĿ#'ɖ]Y4X}uycf$#5 LfzpfY[dojGYmBTj*D,4kY6Ir-BQYJ|7RMG 7ZI,qfwI96|TFQN+Uf ,Kաv:pY‹C[LB;DXN?2ǫI4PPu\p'UwB22ɝNf.!w"(&) 8%N(yL 5aP qf1D%)pZfy2p3,ړA&hi[#LMx 9RptѦ͜c_3'6+pNenWpfN&a5`MPgkf%訉 附 |qBMq Qټmf|3椨4'e |B|1z Lȸn2fk{HW24X|'2f%H9ir-'⯯|hjw'l= D<??G)*k \C 2k/%c)Jd,%OTHZpjCVÐJչD$JIr(>$R+e,%G_eygk B!m^vH:x}re~b>=PR?u|u9)|6? agErE?wu9 >~ I3GܤE+)|-e M RϺo榀Z5:"|6 >uc632|6U>mQalBEUngu>&y*|6y alBEeFa6Z7$VTs$|F5duݒZ+ #hQК@ay@;@PкqaКD@k{-V|iК$E.h0 u1xE25C70nVaBs$|Ff}q 2n3ehQM gg>u>~ usYOTϺbh"1]nP&g0]ϺaVcQY7D?Μg1~6'$ϺՁɊu+(֍ Cꖄuu4f LegݠP&\[=Slu߸gg7aSk(~x?6%c لXF2ЂR!~6wyg݆YلHW@#]yК$@cк: tjS6{]1 Qyu,C0gڄmbhƫd.X<=iY:wS^;@<NR}D OQ|wOWY&P LΝ)_ٹ3ۚ; oN)P۩`X`Z.E*|Af L c'%v";܉]m9'vJ -2B DN`D)%x=BG_Bx"cj("$x!<0 Qߒ <1eg7tĺ6_pK*;x"k7<=E7 Ί{U^:\ҟpً+^bO ["co|l++ol}Ӕ$W]Hprv~yf(3?\8aǻۻ G_دN x'_PǏ ?pQ9m{wWo`V}nzYw=[tzV_wx r׶o zPv_a7~~|¯r~|xyT%^/|~yw8. {F?OEo<>ߢ5{9zXj|{oo0@v:Փh|{/7wwv7Go?錮[4ea3ww 8ʴQj*ݦ ;뺙RK\@]+>Z,wrm=mXxt'xZyϪKn8_(8?>|wg sX]hw(Ѽ W`TKXr⿯p:Lep|Ϧ/ b~PjCi>ض}Q{hkM*+5wWp-Z)s,")40 /T r`"Xд#j5v;[Fo>~. 5?(^{s oQ˼+^N% b9۶x2RX]%ZEptby? %f%L7h}rGX" &IZUn-yGVĚͧ3LO-::zl>(3իA4 T ؿ˅Tګp5o+oo? - fR ;<ŭmrCG=|{.>l \>ㅖno3?w.O^h 5wԉ;_foV?ZW=rJ%ybzDendstream endobj 499 0 obj << /Type /XRef /Length 450 /Filter /FlateDecode /DecodeParms << /Columns 5 /Predictor 12 >> /W [ 1 3 1 ] /Info 3 0 R /Root 2 0 R /Size 500 /ID [] >> stream x+Q{GCc !1,(QV>FQ"jda)+jl(HI,(%VTb")5yF_}{ιHa'D@4)+!xqI O|71&+j ŷix :' ^ť`̎$)%w\-k`Q'X} YO h <-=-Y<f2dh 9g'Г{q\ } '3܃[20PZ!]y^Z7p N ѳUڧѭX18Z-KkҪBZֹO͖|k{=bm#Vp otz}n@-[zzk/8nF1U mKԶ|-ugX^QӊTڞ\%#qd|]/ endstream endobj startxref 728859 %%EOF effects/inst/doc/functions-supported-by-effects.R0000644000176200001440000000267715143645747021652 0ustar liggesusers## ----setopts,echo=FALSE------------------------------------------------------- library("knitr") opts_chunk$set(fig.width=5,fig.height=5,tidy=TRUE, out.width="0.8\\textwidth",echo=TRUE) options(prompt=" ") ## ----echo=FALSE, results='hide', include=FALSE-------------------------------- #options(continue="+ ", prompt="R> ", width=76) options(show.signif.stars=FALSE) options(scipen=3) library(effects) ## ----include=FALSE------------------------------------------------------------ library(knitr) opts_chunk$set( tidy=FALSE,fig.width=5,fig.height=5,cache=FALSE,comment=NA, prompt=TRUE ) render_sweave() ## ----echo=FALSE, results='hide', include=FALSE---------------------------- options(continue=" ", prompt=" ", width=76) options(show.signif.stars=FALSE) options(scipen=3) ## ----fig.height=4,fig.width=8--------------------------------------------- library("effects") Prestige$type <- factor(Prestige$type, c("bc", "wc", "prof")) # reorder levels g1 <- lm(prestige ~ education + type + education:type, data = Prestige) # equivalent to lm(prestige ~ education*type, data = Prestige) plot(predictorEffects(g1), lines=list(multiline=TRUE)) ## ------------------------------------------------------------------------- data(Orthodont, package="nlme") g2 <- lme4::lmer(distance ~ age + Sex + (1 | Subject), data = Orthodont) summary(g2) ## ----fig.height=4,fig.width=8--------------------------------------------- plot(predictorEffects(g2)) effects/inst/doc/functions-supported-by-effects.Rnw0000644000176200001440000004305415132433422022170 0ustar liggesusers%\VignetteEngine{knitr::knitr} %\VignetteIndexEntry{Regression Models Supported by the effects Package} \documentclass[11pt]{article} \usepackage[utf8]{inputenc} \usepackage{graphicx} \usepackage[american]{babel} \newcommand{\R}{{\sf R}} \usepackage{url} \usepackage{hyperref} \usepackage{alltt} \usepackage{fancyvrb} \usepackage{natbib} \usepackage{amsmath} \usepackage[margin=1in]{geometry} \usepackage{ragged2e} \VerbatimFootnotes \bibliographystyle{chicago} \newcommand{\x}{\mathbf{x}} \newcommand{\code}[1]{\normalfont\texttt{\hyphenchar\font45\relax #1}} \newcommand{\E}{\mathrm{E}} \newcommand{\tild}{\symbol{126}} \newcommand{\Rtilde}{\,\raisebox{-.5ex}{\code{\tild{}}}\,} \newcommand{\captilde}{\mbox{\protect\Rtilde}} % use in figure captions. \newcommand{\Rmod}[2]{\code{#1 \raisebox{-.5ex}{\tild{}} #2}} \newcommand{\Rmoda}[2]{\code{#1} &\code{\raisebox{-.5ex}{\tild{}} #2}} \newcommand{\Rmodb}[2]{\code{#1 &\raisebox{-.5ex}{\tild{}}& #2}} \newcommand{\C}{\mathbf{C}} \newcommand{\betahat}{\widehat{\beta}} \newcommand{\bbetahat}{\widehat{\boldsymbol{\beta}}} \newcommand{\bbeta}{\boldsymbol{\beta}} \newcommand{\xbf}{\x_{\backslash{}f}} \newcommand{\hbf}{h_{\backslash{}f}} \newcommand{\xtb}{\x_{2\backslash{}f}} \newcommand{\xbfi}{\x_{\backslash{}f,i}} \newcommand{\inter}[2]{\mbox{$#1$:$#2$}} \newcommand{\cross}[2]{\mbox{$#1$\code{*}$#2$}} \newcommand{\N}{\mathrm{N}} \newcommand{\yx}{\widehat{y}(\x)} \newcommand{\lvn}[1]{\mbox{$\log(\mbox{\texttt{#1}})$}} \newcommand{\fn}[1]{\code{#1()}} \newcommand{\pkg}[1]{\textbf{#1}} \newcommand{\proglang}[1]{\textsf{#1}} \newcommand{\class}[1]{\texttt{"#1"}} \usepackage{xcolor} \newcommand{\Comment}[1]{\textbf{{\color{red}#1}}} \begin{document} \title{Regression Functions Supported by the \textbf{effects} Package\\ And How to Support Other Classes of Regression Models} \author{John Fox and Sanford Weisberg} \date{2022-07-07} \maketitle <>= library("knitr") opts_chunk$set(fig.width=5,fig.height=5,tidy=TRUE, out.width="0.8\\textwidth",echo=TRUE) options(prompt=" ") @ <>= #options(continue="+ ", prompt="R> ", width=76) options(show.signif.stars=FALSE) options(scipen=3) library(effects) @ <>= library(knitr) opts_chunk$set( tidy=FALSE,fig.width=5,fig.height=5,cache=FALSE,comment=NA, prompt=TRUE ) render_sweave() @ <>= options(continue=" ", prompt=" ", width=76) options(show.signif.stars=FALSE) options(scipen=3) @ \section{Introduction} \emph{Effect plots}, as implemented in the \pkg{effects} package, represent the ``effects'' (in the not necessarily causal sense of ``partial relationship'') of one or more predictors on a response variable, in regression models in which the response depends on a \emph{linear predictor}---a linear combination of main effects and interactions among the predictors \citep[Sec.~4.6.3]{FoxWeisberg19}. \fn{Effect} is the basic generic function in the \pkg{effects} package; \fn{Effect} is called directly or indirectly by several other functions in the package, such as \fn{predictorEffects} and \fn{allEffects}. Table~\ref{tab1} provides a list of regression modeling functions in \R{} that can be used with the \pkg{effects} package. This list, which is almost surely incomplete, includes functions that are directly supported by \fn{Effect} methods supplied by the \pkg{effects} package, by \fn{Effect} methods supplied by other CRAN packages, or by the default \fn{Effect} method, which works with many classes of regression models. \begin{table} \caption{\R{} regression functions known to be compatible with the \fn{Effect} function. The name before the double-colon is the package that includes the function; for example \fn{stats::lm} means that \fn{lm} is in the \pkg{stats} package. In some cases, \fn{Effect} may support only a subset of regression models fit by a particular function. Effects for mixed-effects models represent the fixed-effects part of the model.\label{tab1}} \begin{center} \begin{tabular}{|l|p{4.0in}|}\hline Function & Comments \\ \hline \multicolumn{2}{|l|}{\textbf{\code{glm}-type models}}\\ \hline \fn{stats::lm} & Standard linear regression models fit by least-squares or weighted least-squares. A multivariate response, generating a multivariate linear model, is permitted, and in this case effects are computed for each response separately.\\ \fn{stats::glm} & Generalized linear models.\\ \fn{nlme::lme} & Linear mixed-effects models.\\ \fn{nlme::gls} & Linear models fit by generalized least squares.\\ \fn{lmer::lmer} & Linear mixed-effects models.\\ \fn{lmer::glmer} & Generalized linear mixed-effects models.\\ \fn{survey::svyglm} & Generalized linear models for complex survey designs.\\ \fn{MASS::rlm} & Linear regression models estimated by robust M or MM regression.\\ \fn{MASS::glmmPQL} & Generalized linear mixed-effects models via partial quadratic likelihood.\\ \fn{robustlmm::rlmer} & Robust linear mixed-effects models.\\ \fn{betareg::betareg} & Beta regression models for rates and proportions.\\ \fn{ivreg::ivreg} & Linear regression models estimated by instrumental variables (2SLS regression). \\ \fn{glmmTMB::glmmTMB} & Generalized linear mixed-effects regression models (similar to \fn{lmer::glmer} but accommodating a broader selection of models).\\ \hline \multicolumn{2}{|l|}{\textbf{\code{multinom}-type models}}\\ \hline \fn{nnet::multinom} & Multinomial logistic-regression models. If the response has $K$ categories, the response for \fn{nnet::multinom} can be a factor with $K$ levels or a matrix with $K$ columns, which will be interpreted as counts for each of $K$ categories. Effects plots require the response to be a factor, not a matrix.\\ \fn{poLCA::poLCA} & Latent class analysis regression models for polytomous outcomes. Latent class analysis has a similar structure to multinomial regression, except that class membership of observations is unobserved but estimated in the analysis.\\ \hline \multicolumn{2}{|l|}{\textbf{\code{polr}-type models}}\\ \hline \fn{MASS:polr} & Ordinal logistic (proportional-odds) and probit regression models.\\ \fn{ordinal::clm} & Cumulative-link regression models (similar to, but more extensive than, \fn{polr}).\\ \fn{ordinal::clm2}& Updated version of \fn{ordinal::clm}.\\ \fn{ordinal::clmm} & Cumulative-link regression models with random effects.\\ \hline \end{tabular} \end{center} \end{table} The most basic type of model for which \fn{Effect} is appropriate is a standard linear model fit by the \fn{lm} function; for example: <>= library("effects") Prestige$type <- factor(Prestige$type, c("bc", "wc", "prof")) # reorder levels g1 <- lm(prestige ~ education + type + education:type, data = Prestige) # equivalent to lm(prestige ~ education*type, data = Prestige) plot(predictorEffects(g1), lines=list(multiline=TRUE)) @ \noindent In this example the response \code{prestige} is modeled as a linear function of years of \code{education}, the factor \code{type}, with levels blue collar (\code{"bc"}), white collar (\code{"wc"}), and professional (\code{"prof"}), and their interaction. Because of the interaction, the estimated partial relationship of \code{prestige} to \code{education} (depicted in the \emph{predictor effect plot} for \code{education}, at the left) is different for each level of \code{type}, and the partial relationship of \code{prestige} to \code{type} (depicted in the predictor effect plot for \code{type}, at the right) varies with the value \code{education}. A linear mixed-effects model is a more complicated regression model, fit, for example, by the \fn{lmer} function in the \pkg{lme4} package \citep{Bates15}: <<>>= data(Orthodont, package="nlme") g2 <- lme4::lmer(distance ~ age + Sex + (1 | Subject), data = Orthodont) summary(g2) @ This model has a fixed effect part, with response \code{distance} and predictors \code{age} and \code{Sex}. The random intercept (represented by \code{1}) varies by \code{Subject}. Effect plots for mixed-effects models are based only on the estimated fixed-effects in the model: <>= plot(predictorEffects(g2)) @ \section{Basic Types of Regression Models in the effects Package} The \fn{Effects} function supports three basic types of regression models: \begin{itemize} \item The preceding examples that use the \fn{lm} and \fn{lmer} functions are examples of \code{glm}-type models, which express, via a link function, the dependence of a discrete or continuous numeric response or of a binary response on a set of main effects and interactions among fixed-effect predictors comprising a linear predictor. The \fn{glm} function is the prototype for this kind of model. As shown in Table~\ref{tab1}, most of the regression functions currently supported by the \pkg{effects} package are of this type. \item \code{multinom}-type models are multinomial regression models that arise when the response is an unordered multi-category variable, also modeled, via a suitable multivariate link function, as a linear function of fixed-effect main effects and interactions. The prototype for \code{multinom}-type models is the \fn{multinom} function in the \pkg{nnet} package \citep{VenablesRipley02}. \item \code{polr}-type models (i.e., ordinal regression models) are used for an ordered polytomous response variable. The prototype for \code{polr}-type models is the \fn{polr} function in the \pkg{MASS} package \citep{VenablesRipley02}. \end{itemize} \section{Supporting Specific Regression Functions} To support a specific class of regression models, say of class \code{"foo"} produced by the function \fn{foo}, one \emph{could} write a method \fn{Effect.foo} for the \proglang{S3} generic \fn{Effect} function. That approach is generally undesirable, for two reasons: (1) writing an \fn{Effect} method from scratch is a complicated endeavor; (2) the resulting object may not work properly with other functions in the \pkg{effects} package, such as \fn{plot} methods. The \pkg{effects} package defines and exports several methods for the \fn{Effect} function, including a default method, and three specific methods corresponding to the three types of regression models introduced in the preceding section: \fn{Effect.lm} (which is also inherited by models of class \code{"glm"}), \fn{Effect.multinom}, and \fn{Effect.polr}. Moreover, \fn{Effect.default} works by setting up a call to one of the three specific \fn{Effect} methods.\footnote{There are, as well, two additional specific \fn{Effect} methods provided by the \pkg{effects} package: \fn{Effect.merMod} for models produced by the \fn{lmer} and \fn{glmer} functions in the \pkg{lme4} package; and \fn{Effect.svyglm} for models produced by the \fn{svyglm} function in the \pkg{survey} package \citep{Lumley04}. To see the code for these methods, enter the commands \code{getAnywhere("Effect.merMod")} and \code{getAnywhere("Effect.svyglm")}, after loading the \pkg{effects} package.} The three basic \fn{Effect} methods collect information from the regression model of interest via a suitable method for the generic \fn{effects::effSources} function, and then use that information to compute effects and their standard errors. The required information is summarized in Table~\ref{tab2}. \begin{table} \caption{Values supplied by \fn{effSources} methods. In the table, the regression model object is called \code{m}. For functions cited in the \pkg{insight} package see \cite{insight19}.\label{tab2}} \begin{center} \begin{tabular}{|l|p{4.5in}|} \hline Argument & Description \\ \hline \code{type} & The type of the regression model: one of \code{"glm"} (the default if \code{type} isn't supplied), \code{"multinom"}, or \code{"polr"}. \\ \code{call} & The call that created the regression model, which is generally returned by either \verb+m$call+ or \verb+m@call+ or \code{insight::get\_call(m)}. The call is used to find the usual \code{data} and \code{subset} arguments that \fn{Effect} needs to perform the computation. See the discussion of \fn{nlme:::gls} below for an example where the \code{call} must be modified.\\ formula & The formula for the fixed-effects linear predictor, which is often returned by \code{stats::formula(m)} or \code{insight::find\_formula(m)\$conditional}.\\ \code{family} & Many \code{glm}-type models include a family, with an error distribution and a link function. These are often returned by the default \code{stats::family(m)} or \code{insight::get\_family(m)}.\\ \code{coefficients} & The vector of fixed-effect parameter estimates, often returned by \code{coef(m)}. Alternatively \code{b <- insight::get\_parameters(m)} returns the coefficient estimates as a two-column matrix with parameter names in the first column, so \code{stats:setNames(b[,2], b[,1])} returns the estimates as a vector. For a \code{polr}-type model, coefficients should return the regression coefficients excluding the thresholds.\\ \code{vcov} & The estimated covariance matrix of the fixed-effect estimates, often given by \code{stats::vcov(m)} or \code{insight::get\_varcov(m)}. For a \code{polr}-type model, the covariance matrix should include both the regression coefficients and the thresholds, with the regression coefficients \emph{preceding} the thresholds.\\ \hline\\ \code{zeta} & The vector of estimated thresholds for a \code{polr}-type model, one fewer than the number of levels of the response. The default for a \code{polr}-type model is \code{zeta = m\$zeta}.\\ \code{method} & For a \code{polr}-type model, the name of a link supported by the \fn{MASS::polr} function: one of \code{"logistic"}, \code{"probit"}, \code{"loglog"}, \code{"cloglog"}, or \code{"cauchit"}. The default for a \code{polr}-type model is \code{method = "logistic"}.\\ \hline \end{tabular} \end{center} \end{table} The default \fn{effSources} method simply returns \code{NULL}, which corresponds to selecting all of the defaults in Table~\ref{tab2}. If that doesn't work, it usually suffices to provide a suitable \fn{effSources} method. We illustrate by a few examples. \subsection{Examples} The following examples, with the exception of the last, are drawn directly from the \pkg{effects} package. \subsubsection{\texttt{glmmPQL()}} Objects of class \code{"glmmPQL"}, produced by \fn{MASS::glmmPQL} do not respond to the generic \fn{family} function, but the name of the family can be obtained from the call; thus: \begin{alltt} effSources.glmmPQL <- function(mod) \{ list(family = mod$family) \} \end{alltt} \subsubsection{\texttt{gls()}} The \code{weights} argument has different meaning for \fn{gls} in the \pkg{nlme} package \citep{nlme} and for the standard \R{} \fn{glm} function, and consequently the \code{call} must be modified to set \code{weights} to \code{NULL}: \begin{alltt} effSources.gls <- function(mod)\{ cl <- mod$call cl$weights <- NULL list(call = cl) \} \end{alltt} \subsubsection{\texttt{betareg()}} The \code{betareg} function in the \pkg{betareg} package \citep{betareg} fits response data similar to a binomial regression but with beta errors. Adapting these models for use with \fn{Effect} is considerably more complex than the two previous examples: \begin{alltt} effSources.gls <- function(mod)\{ coef <- mod$coefficients$mean vco <- vcov(mod)[1:length(coef), 1:length(coef)] # betareg uses beta errors with mean link given in mod$link$mean. # Construct a family based on the binomial() family fam <- binomial(link=mod$link$mean) # adjust the variance function to account for beta variance fam$variance <- function(mu){ f0 <- function(mu, eta) (1-mu)*mu/(1+eta) do.call("f0", list(mu, mod$coefficient$precision))} # adjust initialize fam$initialize <- expression({mustart <- y}) # collect arguments args <- list( call = mod$call, formula = formula(mod), family=fam, coefficients = coef, vcov = vco) args \} \end{alltt} \subsubsection{\texttt{clm2()}} The \fn{clm2} function in the \pkg{ordinal} package \citep{Christensen15} fits ordinal regression models, and so the aim is to create \code{polr}-type effects: \begin{alltt} effSources.clm2 <- function(mod)\{ if (!requireNamespace("MASS", quietly=TRUE)) stop("MASS package is required") polr.methods <- c("logistic", "probit", "loglog", "cloglog", "cauchit") method <- mod\$link if(!(method %in% polr.methods)) stop("'link' must be a 'method' supported by polr; see help(polr)") if(is.null(mod\$Hessian))\{ message("Re-fitting to get Hessian") mod <- update(mod, Hess=TRUE) \} if(mod\$threshold != "flexible") stop("Effects only supports the flexible threshold") numTheta <- length(mod\$Theta) numBeta <- length(mod\$beta) or <- c( (numTheta+1):(numTheta + numBeta), 1:(numTheta)) list( type = "polr", formula = mod\$call\$location, coefficients = mod\$beta, zeta = mod\$Theta, method=method, vcov = as.matrix(vcov(mod)[or, or])) \} \end{alltt} \subsubsection{\texttt{ivreg::ivreg()}} Sometimes it doesn't suffice to define an appropriate \fn{effSources} method, but it is still possible to avoid writing a detailed \fn{Effect} method. We use the \fn{ivreg} function (for instrumental-variables regression) in the \pkg{ivreg} package \citep{ivreg} as an example; that package defines the following \fn{Effect.ivreg} method: \begin{alltt} Effect.ivreg <- function (focal.predictors, mod, ...) \{ mod\$contrasts <- mod\$contrasts\$regressors NextMethod() \} \end{alltt} \noindent Here it is sufficient to set the \code{contrasts} element of the model object to conform to the way it is defined in \class{lm} objects. That works because \class{ivreg} objects inherit from class \code{lm}, and thus \fn{Effect.lm} is called by \fn{NextMethod}. \bibliography{functions-supported-by-effects} \end{document} effects/inst/doc/functions-supported-by-effects.pdf0000644000176200001440000033366015143646013022204 0ustar liggesusers%PDF-1.5 % 1 0 obj << /Type /ObjStm /Length 3221 /Filter /FlateDecode /N 57 /First 452 >> stream xZks6N' w:qc^MtAh,G EJ츛"AŹ^<L3aʦ2m2Ղyfd)sβN0IaR2(ԔLzaDVz&-SFc{L[)3"1cfJ0㩰dV!S)fS!>u?0 Bx;EJ2olTʼGBA<riRrh*(mn)];L ,ee{,ЎQ,CC "e!z> ҟqx01-jI* %-zm%3 Ai~珓p< Tt2rw|~ʎo&r6w%+Pb|P.rS%d>.W@U@!ܢ5 ЧtNnj͌ǓԱy_s0E]AgO>#5 xK5OQ^>̧E ~*/JҒ9Bdp?;U>}ڔzUUUb׫Y *G#jM8a 9?ttgbp7Uh2{M&C4肍oء,v(bdCYP)8˲F_տkֈ+G\ZS^i 8G3&Q+.l?C?^ǃɰ_F^nS3ANXH!0]->Q(C!^*CԼ ^ ҮW;YTUO.Vot,@ٍL䫬iB*_ \g^vJ]m6 xy8yq}S'O|~y_K>9W/5G|'|2/yy3s^~9C Q`!ocQ1ፕZm@'`o| D0;(ۗD Lu0zwt&.O]&Fk2[bTu1jQ3f' ¬t i>s rU~V",н~Gӝ.cTG:/9i1vcZ1c<6Ƙvb*h]_ N~xq֋aGY&,cގq ZrjԾM/EI7ǫd-6pA5KZ,gP8yK 94.~q!>jYD+ PoG"\Np`b~cI+&{/[z{Y|D֝e#bu;bXۗX.qS._W \h O EQaG"{/ݴ?ȃO}^.^9fp2k`ԿmmQ>-x~.Ί]馶|glmot_֖`2ͷy1Z_&a6atyaX% PB]=D{` {^؍<6tFդ[ AUޯY.ǵ6zj1drW?|yp/7ݑTT=4T4InY9IيΣ|31mve9lĜ1gfL_Ew!^m7 Eێ覝/[/="t(T!AxÖ1 $&cݣ͒^xV#qIi/%>Kagu!_oGLՍ(X~[ bǃ)v$o;۱8ىRS'pH+ˋDF"l!-|v6ZZrɄ4=0^A۲0PU p$*>[ʱ塔Ch|5К xj&yߵH(gH N׻Yc OIBx彄Z;#TQX9`Wьf{L$9*A1kz]&3RLq{̌Z$1v4ISiUIc&3жX{̼HRhTKdNe mdvl)S&¹o+( (sSI>Q .tI uN`Q*yϞkŜR֬}_m2>).o l4M,LN3XɼIPYeHUkTÔ͢uaBYe1t8" u%qp^R8b?iOJrM+r HHs0TͪzusMqPc/jQ+{endstream endobj 59 0 obj << /Subtype /XML /Type /Metadata /Length 1549 >> stream GPL Ghostscript 9.50 2026-02-13T11:06:35-05:00 2026-02-13T11:06:35-05:00 LaTeX with hyperref endstream endobj 60 0 obj << /Type /ObjStm /Length 2639 /Filter /FlateDecode /N 57 /First 464 >> stream xZ[S9}_ǤҭejjI&@H&ӆ CC6[ݒ#}Iqf%:0YʹTfc֢MsOn LpL t0dN1ɵfN3)-e2aa$zϔyΔ2 )'pWLs'hA3tƳeCs˼gF|`ypYaAb>141cX$% ( a*05y,:sq<a+Op +@'"NO3G[rΩ`6 (XAˈY@BF \uƘRdvWf<${ҏ~¤iDA񘝱0[c,|ebgۃy>d]gs6btx [\f,bΎï9jgz_{IATaEbAaX+ZhOnE>`'0{d@aޅgjx ]x /wq򞁌ob2Uѻ޵]ؕ ;C7F=_3i %[Ekd b}EI~F, Uvts2qdg弎f6iwOEu56CQaKIFSNv&v(B78uEU"|Wa Wr $w5ʞ}/ŕHߝqOk6NIdk2ϗ/\f$߸@:׋錜F;'7_q!i9E%1qu-ͨxW\>d_FZh뻄أ(JMYQ{Fj·TJwׯzUҭt'K_(=NOA%iҋ2ӯ8:tޤߞG^Hto<í]B0YQ38e?\e+dz1í¡d9"\A|M5~,筵s#-tRGzjxRf2ϸ/O2&hlHdw1gt2I0 Y'1& Մqdg듂fG?gdQҲp"Z/.^#zk%Dv%'Bو5DlZN(?m&c?`>Dc4E߮/ ,Y#Eϋ]l6m%(!ENv8`-Ǥ9! "tv!'>?[qN(ER$/CcD#کIO{8zk5F=ADS#d@&D!M4<66u,)}Co$E|%5s*[J ˲peYa6{JlUF2\o'H!jJ29 }MTK;AonBB8P,QֶTxUp:+] k>KKXouKi74/?9=}WxGk_o\.].\FζM<ҔZ&>)7IA+lOɳ_β,k`|^Lpi6i4'ҵq5i(|>?>.HjK]cu⇪+uUVbkQ>:O;ִԍ}]OK7MhŇ.X|4EE][zo16+zW/QBV4VkвJ̈&ej8|_] lͬ.^ 5mѢ(ͨhU^aMzKe?35{y"e=5%}`M͛ݷo1z3%Jys%=5ߴkx]FCKvQsu Ss3]d_mo#n t/\Qk~S]~F֮΅?dGGng}Kߵv#<}K͆S3'lI=217EI:YfyF@-9,'E$Vkmz5~TI{ 8Jg&i"PK~2`':HI'> ՈYtH5ߓnQK%-u<< 8=2kxX$'aBğ4!),s $ H2XȈICQt" L$-A9)P\ѺN}!R&td x"Z"h1VYՏ1i! 9՘&p8PM.񢷍)}Z[hܳq5?݃I (jLN%2n>ԓ48nPSa~8қ&epdA2EFW׵?~̼<#QEB ]'6cw!tAx81}RyBp#8j̊M>-IXm2Q?+}{60UZpߩ:F'BtL-_' Qn>e3 cj5:ө Q6endstream endobj 118 0 obj << /Filter /FlateDecode /Length 8842 >> stream x}MsIr'颋P֒ViIszJnIH n]#2"Q&c36x3rt>۽|޿+ǿ~ѻw߽G)գes:Fv?帄ZEWCJ5Rnp?PՓ(J2ebG>.|5Noo>GW>ctq[~K91 ӣ:Z'tӿcϮ>Qy7{gA+K  = M?r\/'M\B*Gs䑔<It }18 bՑTuuPi3oDH[[yCŬLmzxNh21-s/B=W3/]| >¹w{@PqY-k!obZ oZgw"H%u@ 89^ԙ{^ǧCjh05 7wO6;R8TlY|KOнJ_9}<<oV @Bi{[!8GFB++;tL %,ʄ?Y7?p.Ѣ'Yˆ4pDi4GJb2I OWB.o>K;BhΤW/o0;H]z%wrMkOע_KL?`?`5cb=2lSp5m`mǻdܓ_^_==< XDD" dn9)77< 4y)Ła6sDD|'ćn>Wӏ]Xs_踼sHurK:CXHx@*]p2QcTk@gIMryc\k)-/4_yĞh ww;;הZܝum#Md]p"ntcl m ,7}⳺ꛃϫ駾.iܘ:fqb6sM/7|, nJ%c<~͆l{XN^Wz0{ ETGᥙ|"z8BCN8".BXӉF޿#C̤sQP٢K~ZHʮxU3 l>?iR׻gשbj~{l{M5AB#^6\L %Aq{rJ~N%M_)ΜkCw>)s.npY=2d߆4RYH_L0si9J'ȄtJ⬕^&˳\4&AY̙v՗n^@lA!Y"q<ax uTQ 4#w!ގ>⫕\j?a1Sߵ);pgǙcZ-m~$i '^hΏX\;T+ԟn,{)1<4m{vyc)鯹>JGv}=핟N믓.\r*J{?VwQi\v<+o͙N9ocI};So~%fdTSޢLEr u<8/R<G ;1-Ðt=\]v Mo կN/Wvg}p̼A~ΟНP\$ #denvotѮ;nG~^#|?<-Y[o )r}7CS7*a'淬cz=ABŠqn~@[0_u8`m?C̼? [\tyU6isB}K뗵LgϠqF]YqFzy,6[\(dnJrѿڿ Nx x8N!kP)[5 :snbyfl^Li~Xc2;VFܯW!kry%s007Cqzy8GwD> 1 o^WwjmGz`Jj-~p^t$v>-G3ȁOW`+ӻw~CG[͝mrʰ3)21\elְ[F叁+x|lMؿPDqY A"ҥb&p5!.4! SI8A>IV KhP|MڮhYB&su,v..(1^( 1,fqDOAY'EZE{RƷ8EB{ I9z1Ih&%tKtgZ h:H#R/b6 v0eJJlGpKPO>`|+xZ"EaJW>K߲} /VTE!*φ1B"$+. F;ƀ"E,%vh 1L8c )ô (^_zXiTTM©.JFHAuM֦8f!d5j' A Ӡ;5EHHnQWՂʠZ*E_iPB |-'4[|ȷ~oB(hDj F+s+&Z)+ O6 rI8L$ =XFE5Èš`&Ǟ_+|*S)$(*v's&>R7 `y؉(x?r."^/cbBQHn㨅C#ISGF# yů>&&H&2 US67G-.3ozѨ [WS-Ap΃pz)@9]Qtf5t` s:R9JAJBs:A +%tbXI'aKCN'=HúJ:=^e p&ӣ*4TIMN:ySJ: ޚu4$4(m1;3։wBLuӗEN_qLeLgV:}9N|:)?N|<*IX' X'/q>;J;qYRNޮډBu|)NY'Œdpcxy&gQD3Pu)eAQPM(猋&@p>ruZ; QUʉ-Dr荨*匄61a:a1q*\% 1.)#*8- L8D(KPn 6I(bb6L*1Z6k|soȄݤ.ԧM̂D(&LIO]& T NK*)*0*Fn4\tO&(p*tp>]M*&@&&P&OĹ3N+|*ė b'&p6™r#؃N8 Y8N0N8)% #1 &[Űv$poUksJ8uH8QlVV8։qzF9A4rQSN›N9NQNNS߬^W7q:7tٚmIbo6gې7]b:8)SΠr-NAGQ)qN2\8:UJ9I/('P,v(uG 72NtKK8"3-YsN0F88ɱJ81?,LjF8[p&߬%F8ZQ̈́99ZU ''LN)΄TLrD/T'p" I1v̋:2#(CI>7]8 ,}`KթƉAmf쭅*̡sKe|`qX' 6La[L\J8{5™}@8рP# pfbJ\l[g3cͳpW֍p(3ƙk-1\8sV'x*̭̌,V/7YHES '!%ZTY:0Y2Yne( *Ve#`tBs4&9g}%>8'C8'JemqT&1I'Yi!UIgyE'IS҉ҙdeE>bs:qD5-MEN&UYgiV_UNCuV%J9Q]jh% YQVR o qϞ/~篞lO+K?xRE{U~P]*Yb`B*u`'T9BH>M*R7jd>QK%X'œAK%oJ&&yR}6)98 U$I-<6IE(O$O_TJ&YtWg& u&rAk;.DP#%_n˔:Ҁ.SJLc+ 24@˔:Ҁ,䃎_rH6A5xV$0 ^ߛP+45|Yf ~B%_am=^FZ،[ \% 0T\y;b\]M.Z=%x˖vǧ_uhzaK0%|bp˵\V^EhNW@ux^nAzH<JݼA[>W2O13cM:b/rJ^1ъ705B6L S^!3Ҧ;)6fDDo;ڐ{6 ëYƀh[݂ކK0cBtFbtFq z;+`v + }z9n<9{zQ29"aw#QÄPÄZz?k(T60gYʣkr?4z/fi4hOCΦa`5 ^W6~sװ^yKJgTQzq, 4UϴYϾur; +XyW0vgWHc+񒶉5&?ҁwhѯx]CkVZ Sh>896!MQ-lF1A9WFHWG;:CB݃z?@4 fK W  5< (`s`o9vtWVX!]+eԞ{>ay`EϷ&C.Ka6hfPe/+mz?k(^6DuoUچ6KDŽh~GDBekrk\@<7*+FgJm.Pf`]2ؿ"oDȈoj {S1XFi"$O8~~W _tfA~/"Sٟ 3lkmcY6}<ϵz0zK< xѓ,*ﱚc% (KxKbj>І i~yWgԔ9PXf{c:3`ɘ*͕a]Z-̣:CYq؟Zڊ# k?~iĤkXq6:uD(f&v;σ:t?0."h ȄF7hx~Z{ ak[,lq҂Â7 c} :3`A\ D& k'TcX،Js ă&P*(<;<T endstream endobj 119 0 obj << /Filter /FlateDecode /Length 8257 >> stream x\Ko$q/H.*V;K>ـdkg`4>=3HI~GVf9YVuVfFd#[?7yx׋ZmH&_߄77# sH.iӌyv$:!*Q6ӹm$tU6gmYʶDŅXyh,w.t 8CFs8C F@+] VOi QfY\Bhlf$9W E0O!ZDWՃ> (]+ |R}1fK# ,<1]zrtdRg@4@!CBe=#X2Q_Br!xLC'[)ibQr)8L<i1Ob"ɳ@i[>+@UcVgG 2O;_dR\E| Ι'&d*D3 уi=ɣS(=Y!&R`:{@d!qdI#lJMgC""&E +bMڿ'%ГB itq-5m<LCb Mip24eOeDS $BT%!t\b\`3 YdEÊG?tEҴMH9rK(%pI C/$qo~Hg)dZ`ynfiieZ zK3۴l$MdYId7$N !A %VRuB$;r%KS~B7Zz9QJ|T R^ZDZf{be B,RF]r!NR-Zy+2oֺJ'P:Q ^S[चVyQOl bQKyZ-JWHd^HA/K-):}˱DMiglm)-ܲ.MYc@/rU ($|M[%G3'+cr7m&W_9^_g)^y;M?fH +OH{U+4=cɊDQԀuLpNH 4MGem!èF]]?Ja<%F)m2x2-_7!c_7 C2&dMqH?N^7X ^X^@ZJvw+Rg?هi&f'4Ze2`Aؠ&mP'6 @ ,G/~lwB70 !;[JT-`VNQ(nvb W-PJOm{yE>yI@,8˻0qY^M~Mz?#( ;O(BЕ:*O.tDۥpB5%VyC}Dc5E}'pc~Tڀp4hWY 9F\GG_bmmk-cY64=וgOѡ Dtu։Eћ(Ä9_wחWxP=τ`e_҇@b_9?>3JiwG|go|H' We:\^%L7W#w%mMO.,ur2+rM0K]ⴻSreJज़>5` phhOP7K;f %M3 S}{~9M)=|`L@Pբ}|L]G~ 1sM߫D㑶YnMR)xcaA+9xܓ0\2)lMIwe_!Clv hNN Kv|W_*>|Tv$@ vOmXpz~l{paP0^_6^s҂B>:nzfV ԝ9qc_(նՏœNpyg^I!L!KrHPڋYRp=TrJF"yk'S-/M3d#+$`~ϔ/Ϳ`'/[:_mYYt-1S4nH%t2 C[j1W҉k-w}&aHϏ6Yl}'sQL׻gѹ%GG5 KA >-ax 'zDm&'ttO>t%<{wD^mOV)Luzw&mONj0wib* s>>>ULA;U~wbdUF .6>HnU{5g=xݗmgȻF)sjId" e}1v/9]~͂( m?QNw]>ޮ/'ZiA޶&Փ|:?rB(x၂,1cB _An묯Ds/x[ 7)Xz}Bϻ1I/q҉z2Q/iVoN#i|9$dKvH'暅gTA<-A- Ò)KwhKxq2 WC!?UMh~N)1#{ܴnO}A`'9FwqDĔk}P$> 1 qyf)u! gZ[~ gQtj,rXEc Y722n- ;2{4W$FmhW^5hDy n(Pϴ$P 6j1$ Txp8m^ﰹ⎶["\=_>|A3,^B)ו4`H/TIuS!iYz}Պ%< n,yB5R{9uDG@ўA$wG!鵪E]\ 3ǝHOȎd8L-ͬkغTWVu;tjy5^[xPi7le7'Pj@ʘlU]=_Y[Z|tb, /\R3uΔQUyK~sח xx9/csЬŏ[TIQIq2oa9ӵC$t=Zn`FʏVk0V9w(@ S%- P3W_O(/0(Ae;4xυ#% Cq$Z.\#o;0yGd% 7?IQ޵ft37]iD_"q|KtQߺuӟ;PTI(Uv2$)Qlݩbg2LYZ qY۳ۧO&lF&ay5naf-?9m y5tztMڿ r?YQ8o ̹lϐ̩epڝrGWWn! yU_+l=SD!uþ7YN c*g[C?l׫iYK&X^|gtuW R^ʩcݔ@}̽Rd+JL&6Y^w)؍::D2Kl1-Yxzpk0n>J5@3lNlDA}ַR,'e'oroSe\"\K9'hbEdJFE('9ޖHnùʣ2n,e}]W_T1\wcˋ4_^ ?‰p9k"xO 8\Y+{qBK:>j#u}-C7Y:p8Ul, ۩ߤl7}nk;zG-j(l^=@>>4QϟGv ]/k(> stream xZoX\UIyHCrpyWk+>Ik 3CR֒CZ <+Qp>3UU9w.duyەmV>ÓX'gS*OtHxڜz#ƣC[ZÏ}!h_(ѕ&,$YTnOg幎3)jNL<ڗ~_윓-I,nΦ`3<ǽhǖ\XHLJ:UZ[xo Od 4ɕY$(pF\GF$(XGE_͋!b9~EKUX_ˀO$[ݒP%htU-έHCCuh^edߒ:GOcG$ 7#KT.T(ΨA2"Ѯ8JVSMU7Lf8 q?VCqQoy Kd nW0eٖ݂Ych' ߿` fy燣ADO&8SnQ/Uv$)PpU StU::Rˆ=4[@=z!#mʢ~aEA Cb#%>M+JpǪ+i,'=`qOd`/:2F8W]r癯Z6UtV$/؂1B;Dh0ht <$PqY ih"ۀ>1BX\``|sF㦽s&][gQ}g+Tp 4>R̳Q ||AD%(^sߕt{s4TA~Pd9iSF}Qj/k0v5@1i,!OE,%;11vR LQ9>G9տb ,oI2Q l|ݮ1#~B1 iT:ygFA-{?; ީ;TqՉg$E*@^{'$+֓5x|3m͜]m/7q<G.R%M]180tt\$ ,z[ s\刖D"܉cy"N c<ЅLdN@?F+f}'qsB냱#t }nem@ G@y[^:sm-؎~p3Hnd ĆݎCzhn}x8Tʡ h2,fZf(^6uXȣi>YƳl$ \0(D h0vpwfVb tALY 7"kc+2n/֛я,_``,(v>2gwjϯe GaNShGق%@%$Q7} DC/}{Ɨȼ=4 E48P8U>-Qء49ӡy=[㚨F`"YW@\4P̩ʅx[ }iezYš  0џ| ##1 j 6Dǁv2.rN@_H >M_&#JSM $qX| lg&CQn5 Z c1,OǍ屁"0Z̫w?@OJH`?ƏQBDr1*f6023gl'dR2#Xb,pX[7 ƥ0W>jʊr9<ÄP_JAgKӞINr^H7{lxmpCZC-X}7g@2ǀSXБkĵ]+۾p`!fnmDo^J S kHMJ nj& *8`j\zʓCQh3JE~}^ Jq ܢ $eoF6f>,x <R/2(}_&LR6Pj>6 z]OMb4;Lyy@.hmR&vM &R_&b Mi(!NF,ͼ |$^Kx7 .t3,C04 Ui6e>h@Up[fIN}av }o$d-fWvP86Ʒ.-{n|~Qm1xŰpb6\b2@ph)Sm$+*jbPF?69|iN#S @(s <#0qu6sx)𤳷 $ٽFAn 9 RڱÂ46 Je{F0ڕ]qQYD `nk]xW?xE;)ӛƆAw/:{qvEпvpaJ4A#_.qV W ksCUϽTxhrȘM vdӉ(Ci6z,_.D6^ėUhTAGh.%`b1:^z0QflQ}8C? #77qxLH4b:] i<5jF?/7$˚s5t~S$“'Bpj_x(4XK-v:M\wnF=1p>%1T7qw }vHNn7rzp,̥E@7AOIOŽՌ< 2Ţ}ߖlۓZޜ yu{ Y1!E,PWϳ^ĪpUE*R`$tI:'@̩$tbݛ A7e]1 FVja7V(x%-^1}y*.P29Hf1 Rʩ~EpwMb3f220}z7Nvg3J8ծe˙m,Ac)"ĽH JxŴ귿}.2 aRX'0h%Pْso-AӹͰ;)2c'Eflj<V)cwœ˸+SX-ZrH#M]޽G> stream xZKo\l"\V^IX9P3ԈpLrVZ>8A`AM꫞0Mag.ڃpqluxr37M-?>pKa.&&O8?KFXs1?Uh>D&xo4e,p9qӠTq^ʮZd*dUk'HvܽNԲvY9Ud3j2BԢ쇉ǡg۶r݌lj}~!{=J$+5_]Ϻ^\g^I }nf*ד+]~@Oy¹7Ɲ۔@ TASh#td3*N0qkGO&RW6ŚDk8XV,Jw }3nrf}H cHeb8i,Rհc fY ,X F):*,;@5#)x;̞r%%J$q ˳}4ɯwt)٩`=-쓀ʇUQN5jsh_|xH7q, f7iDUX:ٌ%qWpY7ø= q=*)y"riTUd:ϣ{ Sp+j}g=Σ񎘑$,ZD_FsŸ6:;ÏwGD?Cں6,dOC_ c@YW%a$ o@6%~ǀD*W'k22{5W6(Y"rO-P=W\۔3'pUP/#f^.{+XO(gAM {tY#)lz]7%ߙٝRH$|0} 5rHUk"Nl9>g,$WEqr> Gg0X \/fTBqZxKdXoXY #8i ~"'埍>dF%x )WC^ϖ͖Eێ -i v.$f4Y mϥ@RH;$’$sK)EgzF^P,cj0rޏ2{ͮf?6 ٞ'~C RL8ziӄ#$ˌr2RKhص{/q,ՊI̕+a,2OF"e7 8#ne40fIuNn 3İ~ ڽ:(iƁ FSu .uY4~SUu1utOsnG|/0@~S1 :4N\VZ+.DomH%ʑKv]vl1rɆq+݁8B7$u- ]2C2%)gУJ :<@i@rݖk4N/\PƜI^.Kb|AE$(J^+ou=-ڻuֿ;s3f™`v; 9MDuPXDt {^]1g) |<% Zx0{?v 'ef/6A8YA%ɦ}SPhO<޸i@{\RA6I c.fYVW>L 4, ]f/B\{ +&.at0vcA@29\ykGdK}.qIРpyJ9K؇vr LU%=NG<Ο̃rI[asA$hrhIN rWAs1b\hw_s0mG؄frAvR b͗mR,ߛyʇXtAyD~$[U_dRWCȠ! }UK|EX@!DY)XpB"?Ҟ#zudp^mzt*Ut;gF^l6 BE)1} ,D3z>ٛrP C{mx·mA *  HÕ"A/(οѢ Z4o7Ty.ÔsX(XtW2_]{jgpci"Rc( r[[2ga4(7+W}N߸9")ʫg)1¶&h0Nt3B~;e7t&v1q? -UxcQRfNk5ý;hn.pzISy޾еh}B9KG$`a1RVGŒ\3g6L86鯟@@0 > stream xmV TSW>!pJ̀' ڎmj;SmRT`A !dyG;jձ*j3کK2Y;j{:YY+'{x<ބ_-K.]l::}a5s՜&dV;1&Mx77IJ侈Ȉ'EQ} I)k3~Ql;{̢ \ʟHP j3.IPBʇVSK5Z3j)ZOQq%f&RnTCvtkBYSZ1Ə9Ϻ &MtkrSO r1w/}F]@i,֩f^Xw`ۘauP\4Ŋ]FG * -;~}A].I{‘@6|j`0v?f0Y`.L/`; tG&<|N`W矮 -(H*acQ1 %['DG#߇B0dUN FVmKܓ K=Je@C|0ZCxrZ5kN9s0/әgE!_"Lŵ!Ԝ;Yށ㡆t$a"QDu9b_A,0l^cP L fFQ#ec۽gI?n_UA|!0n;0V{*碝(9Pa)" rFqw?k@9;ņ\bͤ>Z:^7tF )'t0-yC- \y.`vw6 voڐϩa䰖=ltbtÿ-#蘲*D)RF/m.p[Uvkul/ռ/4WSE荼,x4)?*;ؿ7**ggwK,/IЉ^ehssC).ɫ9=]UJե:ׇPd\.Jh3LzA`/sYȟ?Vv%|WT&GU戰#Jdez/5J|^GyͱHwq,8 nӄn4+۟ضbGz., lV,[U64A;e,x.0ȥ4[?Ie6&Uq* yklMBۖk'ytTwNV$)ifu fii('‰b=nVkjPΒ5,'6/},ݦkvbYG¼V"aZO`K: uMo*mCP(D+'aI1;r%U"Bf֐uI '̷pzkxon*T^;Nbz3|}4/+Q5-Hjk*kĚSws4n:?`U3w\`VɥUӌr ^&QZ'cRd)T,.3⚼Ggm; u0+O}\)]fzghD*z#f1|1̾zKː5ʋ Z RCw$"vpF {_Q|hAc2Īh.V :K$]L~S"H3Jf~koFTJ5.݁ eZ Mut̂l(PH]žxj KdU‬V^6(lľ4gt^k3>|oin&cӰrL:|0#+),Qj,.`)  BC " e6M 8൓r·y* teͣ#(0;&L|YOݸgk4%ZTuR21G%ڒі^ϚqzSWM'V<۟EY`!b\;B_OqE/R`o j"ۜbnon2.NLd(ЗtGwQw„ߓw fȌi3S0c#1H?pdNӪC8FF_(C#mw aYD SbP kVYL;:~QHC=GD%RW^ZnAQO͢MaJlu={8H"8 'iuL>j;oޕ*N!Ҫ0*?"UMk\Nv0F޿͓3\VEXLʷAدi-(J4~鷙.#z A$vCSè ve%k)Yb>3XHr# LgAvo0~G`sJ27#8Ӵ 9SVd]r",(j)# *JLAbbSL?םv'ts+ûp'vd^"э5}g(*ZcX_T1+@.i3!?1pjZK[Cʷ vۈg8{#V@amQk|7$w1 &%sEFNy*\|Pni=occ"dt{\(t ֞犇{~1~Gl]nXFw 㴱q$I^ (#uO' n˦vfԕ7O##NW TsgmBI*E96-)ĐhwkRtx VVTgͥZ 3&UH eAa ;ddfepbo@&/kQc$_i<'J*"-/_6(O{ `ωym^tsIB`cf[ sL%$(֥+ s1/[ʊȦ$)eWD@5;ފ爭-xh$DW) ْYAi,$#)Fz~*c V}.pƀ-rI4bQbfsJ.JFBWCCN_;y4Ƃ qf"'w6w7EqvX!4i\TXlj[o n䗲;'p% XZ(tWGBݲ$7r\ SaJPGZn+w%wXNœg|L$xnSIK?;xݕcW&mlAF 9FH7(ը,w`@j)Dަm[CaJI4T)JT*tC.M/L$zq#oZꔊ&NŤei( %&)uVXTARlj'P[endstream endobj 123 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 7660 >> stream xy xTș2Lu Eق,}l59g5d¾*nh~m;>L${o'w4^NNΌmZK~(?-sOn#W߃׋-nv gu|lz;yrrFxo e{Vxǖ7Ҹd Y|Ϛҵe/|jc햺_wGRP$a4)䪄87զ`+al{6̀e0=t3] M}+ٳ'&y4z qWǙB6L;"g;a 0`#e=wNsP6tEѡ#Wfƒc'ѦhLP=D{L#nl7Z04 nrѸo l;zwz1l0B,n:Vo RDy\!G,6Q6#ka1Q9o5M :W4HʙZT~Mqr29GrR %Pm艧NnڈbsItz\һ 4xЌdx]<ԁ' 2"5˨W4.OԅH;;E;ypqn'M>@w%aʞa CժW?j:k|O; gRV̢@ z@Oۛ>l/K%R$_}[_FT4j[ZBE/`g'G NG[=YFmjud"vکw8@yA v=$zG"DmuHq3iMyX jB)<.F6O:VAؑՍ:BnFKV' M_>I;a8\.{j6&|.#kea:XϛF; ֨5:Ja%\V︰"9̖Wa~_#Ѕ4BnLIF4)JuC+v6/yBk1 &+ # % lhn P`ד y#AxVT*Z_D`5`6 U+?T[c lĒ(a$2( \-fcY^n(ЌQ=Mxan}yWFΤB.2V׹C4nfGnJCQ ނoI/quKC6I2d )Z1\H+!Kパxcշ\)69<(ro~o s` {LNUKdAમWAl5fvy/GtV=m 7*պܴg`^,뵎e'3/[9豳bYa8;>9O.PD,3$T^mSo04^f.Hգp8!ߐg(- FDb$[W4h~5OLJU͠@1>(w10,=Pb3T$cl%Uvdp_̄\ĭQרjux] <3YuPD?лBw@Fu&,l1ѤXNlEq: X>t'wN96?HhfDa!͝X|{'NiYu<;TVͭ%4uMyc/!8QPMKwE#0 FLDCksSa@h:?'.uL]ӌB uލT:=)WGwN̋1d“jjUc;zɉpVR1ԷCk٢07nlv,;QѺ:EjRԛŪjϿ F sQkf0p<>" 唕Ϩ*jwB-R`M_ɚkKjjIBkR_x]Z lx,mNN|vf6zÝ@p2 ړRzFjy:Bk45,yAD+Eph7ʘT(J+KqBg#H;3&W7 Rq ݌  6;L6 8AؘacGPGy\q-z a#Ag*k 6Qml[+_ avwStZd8uM亭:Zk**!(ю MN}4}+^SkkV7Ώ;rY6fVd~"l% |BEXIzNm-sӸ8'}'.e.5Y -Vd],lPә(]N]Pz^%0'Xх =F~EʵV8&+6l`;; x#Iwb>UL O4-4#3r2qsE<`vUp(7GPi?3~yg>;¬ejFKU`gd;.WckdجY#(P>X/nYæ%lW+*FwDYKb0~9ndֶy~TaG@ |6fyt;a!N {o}3vnpسeHКUʲm[ =u@)ZB3)'o#Y[kꨫ=¼[F͓/Na+Dff!'oԐ+8-@/gw q2RAT =ȽD &Ɯ4BG^n_X^W"ai^-?P˝no `-۳4uucJ˼"|>!SƏ:~ +/+ c GYlmדdWkѯG{΃#X=f#4;9?q]:0ld&6ON/NFr5k6kv{YXϮGvJhdָJQO aDC4J[6}ǿԟS3g-9LH et_K`IKCk%_L CHk,Z+RlYQw c5g㓇Pvb !X!_&\$.tn,k}d0+cb,̷DCz\kV{ ]hY?].zg0o[YRkQfC]U6tC_g1-'_4wS8n~U2fsqCYU(C'dzvFF#Pd Vr!=ރg'v$mRB*^Cʼndj|hVw_d17M-0;Z< [P$LG,Rn"%h؛tF^-ŁBEDgYll4㷇fw&vXr[k 7(;3-wWz:])wa Ӝ#"޹rt}EURRoAfs8*ڎ }R֛yY'f 6sv0ۦlҵ)Ŏ*Y{{N,kjیmHm /a}7 ćMeT%Yr(!u\B*M3tͭ,}}E Gwo~(4]ڭr\kb)o>_ܐ%kZǘ34Y8n fuu"~iV7Iv<wp,Lk.WY1O(?p/|{&ZPddv(λ|Y"rko(ɣؠwq#pG8u$[Cow=Нxlۤן'2ONh^:DThͣt_ŷ]6&X{,2tVuk&0B;kM"gQ9 r:\6USۇߡG~;L'aivY|q5[ PENTk$hu<⪀M͵ginIgY̛pᏋ",)8i߄ qhUIr?Cʩ]Xus-K8K)$:4j>z7+ު==Rj۞t~IT4y-M x6qӖs3Z ܞqx9n ӼnfBk7gvw;O}: \5`MyayKJA#BKVlHyX;21< T]u5 դ6 C *8=2 Ln3DD,In/\#ɆND?A<4&ȏ> d= 1RĴ@ 7gy9\7{?)t<0)jGjDƨCLؗ}Sh\qtY.cq5_ߍMۡ7T0fVD"rͬF87>PݶhX٤o >pPfJU[u]4t?0iqs󞑓&U `š%_?>|0º{> stream xz XS9ǡTN:ZZ G* 02!L(8Z[m[[[momw@m{῟Arr^k]6gZxmĴ`390G`xd tJ=O!γqiEƥ%?6E+~IDS,n](mhIҌe]+2WJc"b#Vů޽gu 7$ml>qoiϾ򌁯̜k/1I&^#Fkhb-1XG% ċFb<@l&-bXHL&Eb11XBL#ˈreb1XIBD3Hb! !)Db F.N "xijLC0b8A{^Do.7 RNO=f{'rrzvu޾> Oߟ6`ҁE]^4sޅgg 1x{pzHiCcmX3FhF8G427)|sK;| ^77FF={43djc_w #=F?lpy#lRi0;eE 4ԑ8&bZR(1:yLO 0DиeX[ _ W۵]RZV-Ekcfn9< ޅPqCȹc4e߯G~*:EQ ПN&L-|IhKIjLFTC+)Ԉm)VY߇G CB I|#x_涷w PbVRNA Tubq.R܌J5 a,s E8 f|ܩCWVŕc=6=7P֯)2,f.)j|OhHnUp+2VRgGΐș~" Lp> wB,>POQo8|3 {CP CE<+qInsB>L /hzkjZ쭀S+O(E%WCtƦ'L "e1(ٵxO2, Ή~ΙoB}s6M\_Bp$p8m)$jF4zڼB~ۙ5W_Êohx](ԍzev2m *OarDY4 hNv^r_eԱwSuTQL>.D_w!~}`YDmGJiވ9EI+ȨŇNl 8%A~oj;-Q&|-[w0(=Kkm=r*xW0=Ah;F\dtI]p4,,"RL樝tkq:gZN6lvPBh̹ ׭V5*`%v ;aKfzϰo}y6 1pz<0 d缭 C!\ @DJąME F]ztd;@yIi})tv $Ww`ٕ@wy(J)W।TRxSTmHʾX6C}?Gep8Nm~txɺbDuk6ʓkr0֘Õ'RX~dmސTcfJ3RJ$] CAyjΝ;/үHF>}I56[0VxaHA^!AY_ibi,ocZ[Bk8؏/wal' d3Gep&=*9@\&u 8Wmk7֫a.Ï(F`lH1a;͌RQ)>4|B=bCϢb܄CqWAkTcqm_C.!bIXa^d>pܯ}h]&4ŦXf8Fͦˬ0^YSRb$^Em(I5:rd,"`_~{$C=dӜKЍ#Q5|N^/(̳1BG}a?0OC㕤5ŖPv.,"PDbN@ 歶f.A4=oA /$PV/.(c9y_=*=G/P%A0{>[KRoj+@ⶳMkDͯpJxURb2?\(UL'$Y E,ϔSm ]l ُ؋ӵ,KP#%:T[!PI%f ^~P&  %:sJ!~,h; ɥš-O3DsiKy[?JJ2s(y(J57h5?~ؽ FW ƗCmѰ"7[^~S:KR%rYi#}(n]H7Ɍj48Jp~^%[d?2'NSRʶ m[ƛLNP*o8[j^6=Z .$U@2Ҍ5ik(T҂*+m<&.S8AHbN\ƶTS&O,C6Ȣ#f۟XI]f2}IFF0YLL)uV-kQ8 %U95,%(+Y+ggϚ_n@UTSQU H|Rmک&sX1L-~4^}?h;p}Te`ONcvӜSMjb,(JSe7 /X]&g)UYΌ\xQaT3޷;`Ð8 { ŖjC_^'b*S3֋6d(4 -y^/RڥwEZk n?&{.Sm9f/  祉S+3%:VNC˕kV7ZV&JgWE3v8H}i-/[pT^Vk ΞuBMaȡ wuF:^ɊF/}T7 1Y+W1i'o'@;mp>jx~8! sO/ Ú:,x^#3E450FA0.b4F ka2}y@n |@somZu*AK\M.1M89rL8g.57WG2B8I`n G@h,mpMODU̬.uyEy⦭\<鲠A|/ʿ e\:nEܭS""k ~xxGfdbGyY C~x+ޭMO~kbUם jvIX ^>1Op#OOI$=XƗVܟ+v:"%|;bԚťR~mV]^wc{y bΨ+FrfmԛRRauyJkiiCSwoNF*j5V$9&xDl{۠CS ι^D Q=J9?|Clh%59eSWS :]kVl-Vt/ElCe%݊ ZOӤ2it j۶n`il=ީX ϸL;ÐtNCRU?눒ivc5ʅ&QX⍼/qjtN@9x͂czJŃI\ô(-GrS왅 xBgd2p9ӘeJ99w.~ӥ9cc6VʇTX!F͇jzҨ%׎- M<Dh5wWǍ9Fվ.QhV xn +aJGʫɄ)%/#ټ\`RI5k72ޤL*e3m,.Z\! %8{('y)Gԅk:?9GO^khnh:k<胤ǭMd-ftjwcXba-YI1de4oJ,^nKf'9OU3,WI!H7?@u8ۑmϹ1:ܢ@-hr1R)!(ys*d{%}TrO~*ҲsoKһ琺|68c#X\5^|BwQ8|}}9c2Ta7һU4T:\&c-@:t"9}@!.d`i>} h )ZčaAU.:L4m IMf$(iJI3wvcw-/*]DfXn57:8=$7-&~#ˆ6[37p+9Exڠ.+ BwTY ]g-3pYgfv}Ȝ~s~cUԵ{$r~(Ҫ}};Fudtf7"}؃Id`*o~>Fw\cZ%;pM>iCp[}qCI}ׂ7kOO-*MJw `2:::J;A8er;эGs3|yB~jbXFξF'(Bch66拼(#'%\\q{ Fꂺo(ӱ}Cnl J&zV[&J#~M ^4-5+.slsqP[ +Q]ch{J7X8Sp?򨻋GOu({ 3m} mS9VgP&xL.F=Yw28Y8AT yڟɷiZWC]]]c頻.םޱ4,WS Հ]1eQ(!Qn]@O4y3 L1Y]lfR|+" %S{vsnƆׇ>wչ㢧%WfxI̯ _DxCO\RId^NFJr3XqoH/Q`n?|XK ,\0^,F\s! IP5~z>ս7dn%jaݐ;?Ϭ̀tTq`ʭ?þyB r.&31:E8c6[,+|YmTZGFe% vPeT/@wF7Zn2u+:m"w./`jlm6XVʺDw|`nx WC~<CT婑QQ7͎9!5L6+BWq qv&ߏ|07c?߸VWl?hZ*OJ/c T5`jr4gZ43W7ֳ4qukqǡ'jClD&c@~f)X"#ڢ3aJaA/y{SY#ȹ ĈʅJ\3o=}(|ٗ-t9m OF^IC[x/Mzi(q}B P2k O 3^2yGc|+||1FmzKh 3*["|&|Aݽ@(g t Rw= ښ^G:O'%#3;*jᕽ+p9dp2}!ݞjN @dl8N~ 0g;J:\t@nr1S=2 R=$6x/;c^ˮ{.`Oqg#_}GoVT~c(.s%я GW <_/=j2j0^,cD1`;ñ:nN/W-V4EhIkQ[R3Mv[}Wk 0Vp[jgRu?+}Jυ\0Z@˴ xO$ W*Iڤ53F.)cps\F1ƨ2tz7'#Gj'd~QRVW) .ox6]+Ĩ~Ii}<_6lGSl!'lhi`/M%Oֺ}jt<H#"ٓL 5^a*]0 Wut˃=Ä{ntݟ'2"S]qJ>iʌ& p伕" J~کk2 խ.ctJӹ8Bu{~oSgK3v6cXg# <O䅆4ʽ(#;UTlu7_Zٺ<Wl4 <4%=යN]hއbo/(]endstream endobj 125 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 3429 >> stream xW pS~1DAre)a $ K 0ox, #۲vJ6o`yöp0;)%$)!R't͛ts|;CQ'0&*"EK_}Y Nb͏L&E5=`A-&`0{<7p#3ӳ$92s2#2%K3OɕHoJH<s(}+ZE͠ޥj"5j-ESWMfjţ/(53 cˠJA ZA\tGv`_ >.Ag'Qܠrű/{bg@ zWY52Qew}Í3^& /9tkI,Gte o7`Zؠl$WAk:|P/1H#ȇ>@/ _1t0W] Y.7?}W c-th~{Ȧ0y0 ѸT+эs7x\񛄤>?! ^yGH=GbM`;PP%إ٧9!.e^ č^՜:7XsH?{fU$R#y]ލحlN2o{P vdH28'tv} ~ʹrw  n^,ͼ!g4A;A÷N HXTߞ!jm9v&mO] &`G9AfP~¿قT/1oc2m*ڻ彦kB}%aTL+ Bb̈J&\uL6)ѻ1uPxddhK7_K_X?+^.nJW+DY${Gʰb(SJ%R5&Md4=#\=!kdx2Pd?Z[2j`o]&v4.4+pSnB f#2bv@UKs4$ZMV3Ωd/HrI{_=]=-mP`/NǨ.0DZfI`g_]Q.5C=>}V]&%X۾oxOt|^.0W W%%S`q`2q@8ĨN.z#3l>u-P~A0*,D0B zb2Ss 0>-|};#D VaIS#~N^?AaF8>Wzښzo@>:M}@z$;F$n"i˱J DJZ"B=ݬ^'GFC(TXQYn}u?zrO0& Si\ /t0NIT;/|Hf~D^bIG_nkZ{}:ku1?>4 ]>C|\(Bגk(PP+tGU4aX7j\|q N2_BРɞnXxnuehSz3 LKbDaC?ZYd h%.2a8Ta-1tsĝ,j(w45F5V#IƺִPotXUu pƕ`M{0i$`UzSa21&Vg!g 윩8ɕܞ vյ*,,"Q|Af5;mܪ+J!$<t1C%y%yiL{fOb>A<uJ3j7d\bg%k;>W/>9ܙ17 &Jk x`6oVpMV^=k{}y^o= nΥTmE(ɩS%z;zz{2=6UH/>λ|#s?W|{;jK5_m|;oMtlZb4m/ߵZ ME52V)78 raVYˋm;0C&$84P{`Ygbfݫ;Ʌ&ar"S)-h^)/WYUe.]t:؏xwӉg^<'堽HY+q7NjM;E:\:=& }:zө@^+8#3wǝݒf}"+Hc+N"%1ɚdp.p]z\d]PV?b62P*4O_!SV/])oB6L  mm܎Ĭ}3sˣ|_ʹ^Wk&TM9isrdev}J6VU8X hjKaFZu:ZUGʫ-e7ir:X7ųX1kn.<ϗ<(na`ï!(?|"xK||pxAOGnGh[YerMu޸gUX(.RHlnn=v1uWX+OZn VT(RĚgF4kd>/ B~wF^(+.b)j:|+֠`e7 ,m4eeL}N8[*(OIendstream endobj 126 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 9628 >> stream xzxPͺΠ *p"E*PI $!m{ݳ^}7PCBflTQի^\}g?lv̜w& dVAFO|t^FF=Xӟà_63rY!#++ok%e|! J7m1@\YX }o`3J_+{|fŬټ9ۢ H6-ܜe7 o[hi_XuFK$#ġsLϯz_xxh"6f\[O<#~<< =Oyb۞Lс!'g?jSMCG >a ]yس}ço4"_|Gw'3-pr*=TwZI=B tT^p|RFh J@s>Es:-(|< M!}~4v/Zyydӟ|A$?$ueŝ+0^Ms9>.k 2|9 2UB_93VV\)4n }bz_i|'` V쩂uc> -#;+`?Q K|E]|~&}{GYBīP׃:K|>h!>]wl|E(6L펒 E/1sTCr~mխ];,\~dhʅ`/>~A0}ɪuSTV0~64s C?~  Fz /BA2 vPM~uʂ81~Ɣc&z|s+KJ=]v H5 P,@˖a|. LfͬF>U+ft?, Fr^rfY7SgXHg/X[_Q?DؚS9wACt?}fEP®T! (Jg =XaA+HWP1A(3#!Up@}N(4N%Rat39'M|~ QM;^)Ú,X4ÅTa)knՅvP ZM Ng̹ 8T~E4{,@_5yMG]H寠9~Ƭ7lnf;e׈E‰ l[D`q ,œK\~9L$h8.\ыa1w2AbI|~*rBܖCꣀ=?ט3;u9)ήrY֜h ω#5rUR0XE2Lfz_ VINq*+ՋXvQNIGMp@PeݦC 8@"XuHOXș<"zQWvPq)X&c ffRߺA |N0AԪD\$C*b6LeAY^& -а򨒕GlSx b_J+oN2"aO@3pI-2ݠgzCtTַhJOdCpoCMGZW{fͦjK6㉀'6fr9݄3s^M8ttg{FR%4Q;d✂~kuAC-8 L5777*k!'z`s8B!>mti7۪ R7 0hEYulo5LB <4%|^2ft"H4j}HZHW]%sK7ٌ6جSx]qqKL9~΢ey#vmz\{gjs.gaE\7I{T[[`0AX/uJ@!XV +h1ّ {bbhZ!- T(0QkBD-'615J $8P̭GƖ?+_GR)t.9 -_>&bDh('_h4@A +}43RG~Aa*16Չ)!JBʃ%~ ]œ6s>jY5Lࡰ6%6 FuKRQF|8ఽWC6؊b98V*Q0%ޒkMkW i RH'͙PI2\EDhğLΧ ^59$ & RgG)'R/ H& %.& ^.>'O'>v/iyg֥vȾ=(U)P( -C:%-{JGrBWi#hG][{jjo[s+5~UBM|=Ыw2 *$M8Kе/zz@ *ҋ1$쁃~fA!:4Ç?=rp\%EIGÌJb# ?~)8@- Fb~yRM)ࡁc=L-" W82ѷ&'LOHlIMK Dk Sy˩Ɉ4 j`'qɂJ((P@86gϺ@(ۿm9'|P4XX!ɈLʖh[mR.wXӻs=[Wot:@$SiqN(SuWrmr7@r=vZTqT-:hK(qם{.ܵuC1}sSûh!2*qwXE 6$>+F/L} :A۾EVʪm>{&QuNQu*)` XM ?۸{yq@@R]ۮ]^u3}G)<ް;}\srLyI5'yQ}6X&`yzl2RiggG>_,+xUB;Q$OGBqvD=)G|`ZJ3'Z)wu bP=c3^-2<@)#lZbZc(y "yt\CEʂ"ei1}j04`ŶukDU 2pfpi0񴐕OM|k&dQrE2Yt+rdOFk%ѽ8Yo4wgީ)=h=0(~k<ɷH-) &Ao&͸2;Em Ů~DsrYbˁWoע[Kn$( OVZo{\xwpS3ə{`rR,,Nsfyh4 ='1HA#trqKaxۇUh5׸8|:&(NHyjQ't@5 .r=;m e(u'G5".,j'AE{ XŔes$b R + s`wv瘇Arx4f=~7CJP"Vѐu\RXGkiε0Yd4Dܓٰ> Sˏxnn,}YpS<~ow6 RR#o/ l *X*Qv+ObRHt1cT=hvu#'.Z1nE%Fb"xEqܫ2Ew/GQ4ZQ;S}Esѵy y#vt،N$%BKD O66P.8A@WLpb\TE^ xmF1yEx|ƶ~O0d) < $Rz"C#p'?xP*'*hgWert-*T#zky~fFw?Z)Elkȇk8GqHۥ8\/@#ƥx͕7W08Q-D| jbaVV82 1BbvB'ʢAǼ ~E7E&4T!QYs *X 8fu`D Ts+k+h#GD5$Jqa Db%A73pD6|=_l l<<8H9?hf0O"L&w)j4ָbqN:׉ؒOΌaZ]ֻ&9 vK5 >`9k;<;_GGjѾAQSHFEW x'Javc̴en9 gM9 Z@r~dkecTy_4sA@v2}f":ӞN0XöN ft1309`gari^R}³$ZYyzYpnFc݃\.+ϊ- lr!OL{ڈʔ@;O~x<=\W#:){Z$*Dݰ*(IEoT-7Bdʨ.Hc:XTFbdުiZ/=>OeZ.}mAs"QQ=`YHac=U&غJeTXJ^|p < M>wkG7j@-G 1k,T5y} y{*K*l: ~oISY!H|2JXٓ7I=s7iꚩ^a$,kX"r"&k2퍥tIo*'U4do1]L$ՕQ)r6d/rLV&M5TqhϞ&x%)-7ٖ7 ?Kp!R"vx!Ýh3ߐL3R3VbksTzs"+E+JHyL>Y Q_.z!UT@E$~ui%1G*Q(DT-.,%:tG9 XR[\vO b{A8 sW{,y_ӧ/fФ7R,O}Ez &&ΖfFj/3nDӃ u"tS6)y)2-C)LGvosZ#1ŹK4`vb{uKqZOUXVU#lv8:s2ݓ}ɍ}d8n2TꑹS\KzQ_\Nl͸Z(3\+q(~`}c)>ג[yLYQRVN\>q R @S57Xqc+}_U @0*}p)r';A;Y |7(!`}^<@m t$bS.G\1.9Sߦ.Gqe& q"bGVNAã؆?i \QDKXBM;~4$eG) 7ɕ* yP !%3><ɣ=l|5a[ᢟM8GA}@+yoфn0iH&USO0}`\c$[d~e|pi;?#`e^I}S)؄dl֎=-J"JjbƎ9d@T4]*y0̓0Ԏ36tNm*R@U4 t׿CHuG$'6q<"_37A=fu%l(inq(RQ:n E |2RE)juJDJ rT D/}ni쌚Šf@F0 65EIK)S,)iQ&2D_,!'+'pH ]$R(Z%U,* E0Pxɸ2(#gZz}y#DhsoG'ENr3GߤUչUE$lRp<*nS(je{KW(n8݋3B>R}ư5Ahendstream endobj 127 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 627 >> stream xh SFSS1095,w`B@f8c   *Computer Modern Sans SerifComputer ModernRS334K4vŊwKJ+Dv\؝˨ȋ#"yzy* ҋ2Ub`[yc|aawwvwyr&G2B ܵ|hIgsrr1-cg*xww-Esw扮6~~@LWFQRZx{ywN¹gRL[SPspsMпuTUF`D:>G^ywx}zfwćcS}}}̩*8F;hMgnzwPj`  ? pendstream endobj 128 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 6498 >> stream xxytUo%"[OChsuQgPEE,ٗN:WT}ߗ쐄aP0TǑquo|.} oygs~srN:~vK%%%7.}j鲙3}ǯ c *U+0wέ۾zǕq7B?4uMB&1%%?0MEM[4޶LݼURSdiF-A3e ZZm F&-[+-~fi {Lvo/NE.b)XN ^"VsU_T){La%(Pj֔-C+eˁ1};d 4Dˀ#hM.eHAOQC˅[rK|P1z?r`.F7e$;Wn_fZm}0X9T. 4 41Dx WUC}-tH>^ԟ/ +i6 lDX1T܋i{Lm"`I&OY^0Ǟז;QUwNAX*FR$ʯ16ҨE.1?{ Wi(Jt$= g/&T eKB?:lS^u+oJgP*b}i\W 0^/FP$*~7a-Nh~ \yo' ns,t$[d~&T͓&4\Tz 9)Ead4*N;$}L![4Kxyz{{6Z}ִ=N$T6r ll[T+ꕲmp+\O~%\ 7'IV[ryX4 Hgkx6ҞS?8&~hFUb[ZۥCԒ6ѓO__*fKpޠTׇv]Wv'#F [;tQoΝ;d;Afmi9,1z&ch?Nn“RȐ*NT!}!`fʫ}*z3C+tK; CG$&B|jqZ+*̒>CҮ+u3L~&p> &)RΨ'Z¸ZKŲ"[flXN-mbW&L)*bӻ ȂS.źO3vl$qTwv\R_ x8aB J|bhe"*FJJ* cO R$%J~ _I.AiQcҚ #$8ɳٻS+VGmp2ii:/y^|>s!M3Y&( @3*a}>^)woFʆR+ca:'z]&™>V9E_/GLM;AJ"L.=I-.,k4ru_{5}Jrdah'#"K嵐d] Bc<ofị=VP5:ɲL7YT9aj[jNg[6CnM:Ey6xY) ""X`JcP`D%q7U|RP6 ),bh9g{ݚm=N/g3~ C$]=؛dfӂ^1*CwV~]*Պ;Ԙ媘!>0 0dA;A\i4TTnlV`z!lʊk%d0G?{H4"EeqZNa#)[ٝPfM \Si=O иÇ2@ HZ]U[`*yԕ&aL*1P[Zua&Mġ9d*+C [~ ?N4UrN~H2Xyԉ-L\L۵b?J(ǎh0E(tgz}0ʥ؀bTꙖ幋!pJc89_n" *fЋOD|}~Z@C8^ĕ s{Y7 Yē/̷IɓhIrr!dzcјpz @_M=D!  0A#4͙d$s/$r!CD{}nUM|2ݽ-PSeT7vC&1`b =j4{fL[uC PU$J%󄱵W- 쬢A3ZŁ] 2*HKWP u;Qk췵Wc0 wAWғr%sh }VmmɃ~a?ϭr#9cPz} PQwZ:O_dzMeC6%TLېZ};LP?cd +7D5Dh=yENm,O v{4x~)G 8m-mP*l:+;)v$\"? ?OzAH CY մ03lft ?^^.~#0Z9ڠ]t P YZ:Tz"M[jk6qMNȫ~ե?NO^dzݮ.rdS~w6CI(m"MY8 3lZOYTռK|+yOn?JK]ZK#kT&ї %3LhZKM#Hv(ܸ+*Y]yq$]m.5UB5FpVGR}|>" gLrJ;EޗΠΫ(8ҭk)/^KH#B## k>$ROv۳$)t*1 fL;k 050-V eBIY;Ys>a:N<*4.u*q#>pu+zPwlT˷A!RPNѸQmu$ꪦ-XFd6S{"]: ֒)NCql@w"NX;HmHDR1sL?1xs8H]› m?>R6(4&.jaUI|dXUYOx{5x38Bj[m}m-f/!9_ DwvdŊl|C#=R3%"^`REvTRW><|☨B|s8ԉMJ-OI-<>HD~¸_jFQN4i&יvP>kǔ)g=!y|f]-Uf/FjHE’a;V5XQ_09wP] H]L5}m7t@ЇLBܶʱu4dpqZ() ,F$^p44EZ#A<ab qI3̫uȍvRQ@ YYTX3\iݦVµY:qPzev4qfδZ8" .v6z $Űkk:7TǍ5ۋ+ +6pKS')̝Ro58m(P%$B1dP\q7Fj K$3RcPiLզm*S9Ę!e&6]oSYVh!ëc8gov7RO!OoF$ }ۛRh3+eERXRQvp: '/UcRUcyD1kFi,DNE"P+6э(UNF[gэSJ{@D m=vtdoK:JCY^z]-SɗgTd<)Fa!d׼oZCI2tP{|S>J<@UNklTgUF9]o'о#)]H225A9brj{~4ԱΨktKM/^4HrI0@ӎ =Wj̼KMlL셁b8H#EA[j:!9}HIۣX{4nv7,zjK3W\5g5N¦嗖_ZqJƑ^iMHx63Qĭ|&g%Z`ZRe2^@:Nua>ț*,8^acUF ]1SQ~]i4^X$pAou spmND!IƯяQJ')Th{ Ș1r8A]w4MݔdzݿõSեRQ} iA%ђE17=!_{Sf7V-vvwjkJ*7-u\]xc07愁}7QcKO ]endstream endobj 129 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 1477 >> stream xTYPW} 3=thwJD1N -YFPPQdWfȈbX5B@- k JME+&% .Q=0ɛ,vy{n3HKJJ2%ď 2'ZeF uhoVʂa#V+jYPy 6hԂy1>>3kRRMl)8)3- y"+)ݘO2"+fJLv?hƴ6~}vBbRrJZtPh-DAhZQ EaH‘F /HA[;3ƗIa8hV9:x"GQtS+Q'Y~k+H$7Uhz-xG߹թkGVEu--02A( L}$GhhD/ _ CDs.tWLȴ/_o)P&GЇBrd`1eC7SF50'XۑrNcϧj=CZ߁Fưᣖ/m{6wRVoGfs{S # r𺋹V^f $N~b'4?:V}WЭx'9K$B;強O -S7D!3"UD}CwgLgt=D!`(5F./dVn)54a%E&.xE*?o\KMvJvƍDo$eǣ7Ÿ^kp^7|ā/˗)LJXPU|Xhm)t;mJ@0+dVKC`RNtJ G0LU+blfd6LEPO$~,,뽪NM-ܱAT㸾jϗe7`{jЩ ?!#Y$k8hGДd0!Ę4K-ǗqMFi0gK1fٟNkv=w6AtԖeUa7q&AӏLj|BU7=u-N/iB?}`c]0!KSPw"ܲܦ)ګc}$1пHvC\XW;ɼ\afou|"NCЖ˛4}%% TBCAçu@um$NGZXf&'.6N aAsճB*|+Nd[`џNEhUԟ|47Twۭg:0lnH֪WP]hdk55O4phKy&|YԾ^'Q^u[x{dtynLHk8 ޠ{xTqŦO촬!wzGocBJٲtū~ܫVX_eendstream endobj 130 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 2735 >> stream xViTW *e v! B]d ;EdSL0.C8AAAP%"(((5 AVT&2j+k23':}uս~%4&Q"hgLRVLFBTT 1)G%M iF'p)HyIy盹lLNKϐ[Y.Gf"wIOK1)> ɑ򀈔mJQe15==#ssĖ(ظds˅V6l)j5KQg* QT0BP9FS'EPޔ5AiS5Y%t)=j65Fi-"UT!٤IbCqACScqsI1Τ{&gm8dɋ&GL約T$?/v:܅W@5õc:j_3 Fc)g鈂ÜY%Cgt fݢ 4(pJ౉!vnJ#&?2ZWNxda pwdcEz N4]XކX0PuL2g' gDs-uy ?Ybi `ڝ2-$ )n'u;F`@ή(2q#&AKTCbX x##9h-ak ة ^'<Xk*Sh,SNI 9<,cZӇ6?C8ljtJp㇔^ճm*RjGiY`ZNV<~/e}s"6nG%= @/Yb;\p7KNmشCʹv3u35;.H1 ̅bHm6W0|J6 ŒW`B2F[Tb|s^)_;-̐G=|2;e?W L&7.{N<콉|6%!֬uo %θ#E4A00=n5Ew8oM[ Ws!>HU gpe.R}eP΀1.&,GK pJL".#TmghpS$f#́C2pgޓ *O;C5j{a{cquʝ -vƎ*9Œ']03_YE+b-ttй&9_5ډF݊D]JR,ς$jP&ciL+!J ?sZ7Iz >vo(s#@ ;`A,ÇgZje *D;K9X[<-кtlQ_W% :ܜGj/b/W h]Ley ^f?ͽh7@쳦 H#> e!O:|垐3[m#)l2G:_U"3'AuQu8TGǜ5Z UէBQmYM+`yZ#ز]R[>@n/kA0%. {Xs, f?$]v{L472pFzDChH, w It^͡SGN])؞k벓w$eɃc%|xb($x1K^b'UDnQ *߈/Sꖚ_thewG}Αă1c=v,{#of |=ws6Ao^4ɴ2Jc_=t'=555RԿ-endstream endobj 131 0 obj << /Filter /FlateDecode /Length 3975 >> stream x\Ksܸ/݂IyApN[MJVNv -q$Ƕx<uA he\7Fp_\|]x#(L_^}0SeI.лxVdR2T]jr OW^C"UX1LZW  bFG}}t{6@W<Q~3~Yi߭&fkz&ծMnA}x(<14nG<&pQ?\y>ֺ- -&4(<|X]=aүn7[yAvn-R0v5-riVfݵP`&S5S^Jt<%z vxNwfE,JiU0BHT1FJ-Qmötr[z3KV¢%Je ڡx*E4yq,EkF5b0@2f`H጖B# 2 #%JLҡR %:b } c54"_ ia2zm@^2LYTR7ch{ѩ(2J"*C:DpS:P}=)Ezq;lRWy<,2ǹf%QjWB/ 4 n}^\ xG;>Lظh \8߻_{-9-6>)@ޙAxL#M{:Yar%?mOt4~&-dNdP`<@5W7-lzQzaDϞpvW~}\ [9Ŕga 0#YY *!{^H:,_? 5SL.@`̚(Tj[={67Muf0H_.#M"R:*I&擿31'c gǀ3-gSquQz=%9 x?؈kc(zM1~s&Iǻ?$:gP( 3#Oy T8qrz:(v{32(3oSG1lHc=V.)??ͧ$e?!ISBEkQUq Hr/Jw̕8d} }JSWy]H?N2A">՛iK3ȕ>1i_E8(q6J><ʦy]Iؖ]D:փԀK'&NC f8A/júu(0Uκm{0m .U] R:OS|}%Vժ9I䭹s TSuU[ п6v W~22KW*T9DTp<dT^Ƈh@(f."u Nf4 b'ܻ 00lR\>K@`gxI9d_"xNƗ0*ϖ=" Mq|'9;O6%Yl 6=h6Q7nO}ڪnuR-KkӶdP1 ⥹lBkSFSbEUQHIjb`X̹.oԋ9e$]Gfe)&<0ͳey` g@[iTf'wm7F|hL -*ZYْA_ȳ;_w1,0 #/v^ H|f-p| ]n͟fJw};T ''N1mPLM% D?͘RZఌ-?} a>0t،~hRme*C S4{nt}}r6]E͝M0 zP]v>V4>;U.>RutB&-rl;LIj<NZd Q܍zf8hv6{<7Y d] 6kfMRjqDcNjIZͻ87 C;f8s~q6B">ݺY V >e`{F ahν3z@ [C[nwm< >]U|\Uip:kj{~i_M{OaoS>4QHS O( "jX™ϻ.1(ߡQ )ؽ&O|M[vsB;y=o1o&V>QQG 3gT*p- Nκ[&U(j j3 M?K?"0ӖB?0foR.f›sL>oާ "v{TS AZlx>\KK'0+o/|endstream endobj 132 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 523 >> stream x%OopuYh& al/11BDKI)vn| &Kf?0~<색-{8{rc p$rw.8Z¼4fm p[7KP IiҾg*'ĤE6ಥ0xBިυB ~< MQ:#`XZS&! AH_E1@ǯXL 03&p)ߧY' 0ǦcBYh/>aLU[kVa/Fe]Ǻ\/zCL'r)biC4W%Xz4=> stream xZKsܸ/*_I< &\![Nٛ5CIrˡl*ߞƋh ɱ\tP4oEN 6g~G89اjsf0 #.49>sKɹyats!{],(su6f}ٷ(<?ʺ_,g^rZkx۾[ni8ԇHMop C6;HQe6L. UY[a*3^R.iveͶvfe9FrnAov[~²uPOABɬR)SZϵaSN2"dI:K")%"WLgF٬XrT/ /K733R]7!V䒒F$H]GzJbJH⢰~o@j`"ծm.l{E9Uӓ^jʏ 0mQ XY͵z˷URm[3Νuphv1UԠ!ixTXGnzɧ)p벃6\sA Pl[HZw |s ;2 ~XX3:^2>ͦ Pa`U7V9,2<ޭ40 z0>jCq@&Id =)enqi4B\TN8f;|g x}E*f+3{ yp-0Vڈt:2?@!SViQ"GUF*g{FeJENG.+"i`a԰2 =%*Ii +])5eʯQXjEӮ;QBZR0m}&L7J2뚛[a.=}^aHgU&z ,旵0֘rer|G6*\Ɏ1o ;ۤMso1Ќf륵!<֮<7ٖ~0F;fhpwgfԾB8l •G6#OzC{ܝxl mf_ ^BqIl4xn3uvk kDw$"+>:/t* j">Or$\JdK9a0kٯыoZ`?6K GFqKNjT Su4 GA5RU~4(hg[D6՜Qh|hv&(%ԀvҟEÔE4s3:.Yw (sg9:P#/hx[-~>Cs'?(< 3 FFq2,ۖ8;`nP6)3#ޏfv d$>w!Q;1Ry##ʈzƙԻrیoe6}Hݙb/FRtTpbECH&2z􉷁]~g~i2Ez}AhwQo^\>(gDS )mPUШRP eH[Q{IiCgyXf qM ~GL[Ǔ9l 6dg2ͷMe~@DG]<4zD;}L\~>XE֭#-l$Y͙rХHI#:BV7#aFwطڙ(y]3tMjF';B,WNAw PwTP/ 9zGe|A=G7@th1CXq:ÞZ@E#0`ř7A$g nM=C981hu(4İp88Qp!B@[Tk4H+OUޣGJ6G}OcG{'JjW30_#5/+N)+$K )~>_q;OLs)+ ^é:̚vݟg u6P3uLxsI$tA%Nߊ =;ޣ g1rJU/CT#H}g%U.bGVu|1 %*:tdBzCgj-o*;}W3 d$ v{6 |>3[9نfKL@e(q,eS4?`=89dAEH+Lh%us597@DP|9[%*9 `bhBcl\ GZe3&='):^pב!qjA+BLx| |a\D(?u@e*F!$2_ǘ);K8Q}Ǩ Gǜ=p`,8c =ٻ3_ :7רyh4֏/yv[I_$Ϟܻ[""Ӌ(lx966yG?e-r5}e"'St?tϔ\j|kȼrLU>2O3B=Xݬni&Ͷj jo ^Y>aR]mW}M.^$7?lR32\#6u&p$BہimOJ hΊxQU+s[FT>,ܶ᎘6p[mxS!Opg*L6Nݶ}xH+z|Xr`_ '^`׷=y-0fSQQnOUԨ5m/e+ԨLqv)q6I0{K>.Ȧ\+` c/2goxVendstream endobj 134 0 obj << /Filter /FlateDecode /Length 3872 >> stream x[mܶ~Fp0 T[xUUMѴhH}80]ݦrYi8:3$őVZ \iH<̐u vWwUq}w㕠jw$UQ+?T\*W^쮾nNUY,Sy!t&_.F? 9z{jZ vӬ}M.Rg% YÇEVUݾJ)Tb J6{,s?,m ,U̺&,ɹM9+e^@Ke|cӶ>FoYhafuvx ͪ T6۴EPΡ٪nao~8VN%J'vViW`-DGJcō~گh/Ju6jӑ.(͞hz (fn4'S<+R7 c@rWe]Djj0055.Yym*aי,Dzx_\}{߃ 3Gm(]ʼtb{c*SN@'6JNf͢й*ʝ&k >6$er"ڸBp6y@AO اc 4"1 zY(86zkvN: +d @-Xp{\!4Zၐ P:bp~QM!;U9qhr܈J*3˝]B./F QI^eXus[]\nmn'PY6=E)6bcw]@A^C m*wTRy/OU/2O(U:揙0UZY~o ت( 03ڀyY1ۭYy;]>$?æxdt%y} Vw_w{lj쬷10{ a d!&{YyW!Uv#9Б0fw;9, VN>|o __,t# \Ev+8y, ?@'8Ml/f[0ˠ`T JϿ@ezfo+J@2+%4CVfMSy;Y|h~BȼԽH"- do)W+;z]VHvaJvjIQwCdT齋y45Dк⡁se]~jK)- S޲Ф.+˅'#SC0U־@i ݴE JGx!8,FPI:Ns>]Y Yf*r;xl3$'.k1d}]+ U6[vn~5KпJ ٫Ia#]޴SDD#2˸sx.n|ʜ|zk߹3=[e LaoƛYe`.wS? ؆]umtұHv'}=ɤIzUی\T NYSǤd@AU + 4Mx'?<_gZf@A$Laqi`QN 3%g~j7kiOԺ: zGϔCL"mQQ]YP…[>GSPd@NU9*MnRޡeXr e8ܙ=1aС/> "2|7i#\E@nw|T5ی7|,a.v[sd FxRNDn iqIY>ƋŃb0܇7 1I 0=qJp 㞎q Iq9̄.3e}@h+ewic|:>E53BS@O6ȕB&j#N=B]aX]J(cުu]5-f <oudް}`s7}D>m|i_Ēm(=ίN[>Ws;?.CY٧TN {̑Q?F R:֖v)8mcQ6FDM\JvJ*Uw(u~{*dvXn’jp?A.90 eݐoxvL SԠ=$\n]4,Ek8R@մDߦwB:Uq/RYLQCORK%D R ~r(V}?z ucԂ(JsX9 <ۓm 3&34>3A΍oDv#Ļ~,CNxdtwTy\A0}H=!܎ύ?`_K/Li͍b ^~Hh#.a}|xp?ÇsmIwQסgyҀCޯh9/@A^8 Ap{Wda_'^9 ~"r='e]PBD#r%xBvC#g,9:LwD{P32wOvŀ(E8:A:3 6ROI"WN#VX=t z#yU5q))+ITY:oA-9Bd5q>A2hC5)2{d\7[}+(΀7/ⴊʁ"*k2B ]a #+p Lؠ;QG~Ų{P TQ Cu d̈́/[- CDFgeO~/J >N#_A4( zi<<W6^̑ȳ \4~K2F?DT3)s 8\Gz'}(.FM}*i`xʽ%`!6CiF8g0=l=] &vƒa[qHUdH'ZJ*!V +@+hY^%mjT( K o&HR) 2[NH :p ~UPdH@KUf 'a%+:+=="ǂK XI)W$˸Xa<o6#^LE1.#{Ie%؜Lmclb4l^ d˾~Ǫxw$$`#|&)=I2&Z ,Ԙ2/Zjvbq{(G]ւ/nyWgn6̯Bz^ڳ f/nJ~_1:pܿՋY\Ǐ<-XQ15g۫+endstream endobj 135 0 obj << /Filter /FlateDecode /Length 2244 >> stream xZIoF/LAaJCz@0nA(F;THW$,#ݘ?jywcc_ׯo?ތލx܍_Վ V+%#s1N|Zݍ޲ϧǞ Rj=$b+}GirV\Rvޒ OĞ=8bkX7XR&lp[GCÄ-``{GoO< -f9aw^4dpeHt<i: +`p3;a*b]!F`u/À銼F 6tU"p62#^nPq}P46:s˸bF0}_|maWY4N+F6 ˷8Ԟ-#&#}gO%ziͽqCh$D(`'lw0 NjנK3tWG0l@W/q"Fqjit|&LQ﶑{Ք;/~w\G ې^HiTc4źV@،4Bk<0[T &VJ=U*ٺ='ʎcl#7'Q ڜ\4SR ^XjX|&EJكx!%|꺃q/!YRQm<ު&yd@ymcV> œ@5u~&`k5z;KBTP< *8fZ-fFv\!_QUH ^8}+S ̿B)=[ߚ5̈́E2O}6Kp/ ;hGA+P╼}k_[R-\'B5O^P_6}"0N|ք: H6Uus6"SA(uʋ2^e"*cNyr:ʢ2h1eSV:&ekD_&*r?n=T1htNWz5k]hժ4E hVդ-O٢lv| ޲?Ty79k}T|gGWyU2d˲f1%J3yqs_*&7hɠv8{&_ L/2כ%VvTߔ#Z '_rOJW X/ۺꬸ~(߁ZRQ{hqG utMƁkxgM–X:g6C6`~eFu .Q]ԃLO5fKu,*Ӆ%huM6Gˡl{ p9Y鮯rw"^Kjw0.Kvǩ% f::gEv6_t & JHsml7@+f!50UzPMzdR/-p2MϠcBKրXC>;kr',&q<b%#O;$s~lb 6J{ I[fSp};Pz9}Lߍ9)ojFV4m|J7DU '<UilvL*z9/>RTwF(_Ł0F;,cWߟ{A2endstream endobj 136 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 3647 >> stream xW{TSW>!}TiV{۷c۱X[W(_C IByAH  voǚN;ێvݬջwz׺kZs}G@P`L꒔g2'njȔT!#F=A_;sr`S~k> bO/**,Vf˧%ee˥R 7Is'ޒ-*/))]Pmڬْ2wkJ^j~EMUT* FSQBjZL͠ަP32j9*H%Q T`@*bf~NXSi4`c~2nm=4P<`#T19G|$Q%\Ca 5ƾ!H` vid_W4+a]) =X-#*V|m# ߈L~ZhX2y~:?~ZZi$!t%q f;4 {# $n PFk@ܹE|ɫlyEB*}H&wd~y+˓Ww7rIʯV ϡHIx'4z0q7Qi!<C p聗|]+oozصv 4KbNFIa:΃׍h[l5=y&|&ix^NjQ 5?"$pNˡf4b'q\0zH՝q_ QMF;+L k]NŹMUu A*caOf`G3)ICFQ KP(eӗ/ZS Db#wy2cļ( yiel}\=O_8~^$*AAr/R۱~ qZr?B)ٔ.,V`p<6$}c+wYU92i x'=?qN'Zs!m,&xkw@l&TBDF%+xSLٗXA==wҧoeK:љsW?`P'i( j+xt>xtBm[\5fG̪BkAt%_*ڪp8R[ ,rמZְrz_s'R,,vz;1D Ȍ5 -d/&XWƕA_0׾^IKXO*~V| p|E,v5VdVY2imkS̵VۗzGR,A 9-ɓgtEgCA{ӰoWppE!rjn]ǜ𜮹*kC͝4Yh`1TiZeF/Np}/ 9}û^悙 TUhL%PIA͊kA8? 7"wҗ5@yc#!΢Uvra]{pbE`&@-eAqcJ+6'-1&QF%l#)ώ!'6?\͎4:͡-{u_h$|bV޳nЧĸF<;o% g F O]LPQ /SFByw80s Gu-D-+2jk&Bzt ͎f}@U]rzG~Ec(ySeQ.3jLzV`q[ sD6kSM.>/.>o}yp_(nnzHE=n[ kUF](hex"4Rȸh͚ŋs(Lơwћ 8%tF|lSlT$ HS; C8 gxF֢%9B!܋|I;&,벛o2n+c{P͢"i8p]< FiiuZiCZolKYe,"hHys !!Ω%sDUtQ{<4(Ȋ?EcXĈh5v3[B[EDy6iM̡mJTx(2Y55a;z̑Jp@6"אUFs`}Uf\ODnL7N=YN{.Ua??wFapy7tC7Wc6WamU40vQ^#mCV+jX`55jʥss VqN>|-nO&R V|$O NΟظ 5UlҁsDK1MJz:n]ώ*RI׈Jaiܒ{&)m* !moVbϡ>BSsZ&B傺WhѓhhH$\}4Fe5'NICW̫S;5A}| .|MiK jK/(ƏI_@2Q^&tldT{.!RZJ^T" H*QX jAE[{cm*k-aV6-ʑ%mII/)7f]y{'k%7WCxiD U E%@\&vLψKWNݜןzl2֝O9NZ5.:kyAC_Y,hfveN?&ȗ.n7~*nPnk۞WSṲ'f`Ttn;ߟs6ZyO;{Y; ˀ[aKZKKKdJ:s_Uoּ"Wy `da=*t4Dx|?3V{3~ EٱNendstream endobj 137 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 875 >> stream x]oLwߵ@RJ/;Ȍnb2MlmN'a2UbF( ^z+H&*(պ8q$N_haq"2șs/Ƀ 0n[W_mel/h!}VWJ*?p3ZX\YoDRd(A0zcukNbgj^QúN#@jr[6`+ǎkJ4gW~_O_GlZi$~älO*k|.yy׿9UCD h R8M$#{~<(6HVxT)\V˜^:^&]t2A2s(  OrL :!ϩ1 ri֙Gu*͕Q?-vvԝ;JNem[EHΝ6?#L3Q/> stream x{PSWo\QMŪΪVkhm>QQ*H$@ '@$ VQAVԭb>ikv'a{SۙN9wNror~#8ΘU ^?o^T.ĩy^4b2~Fq\8.qE3)"yzF8;G/{v8]'z6AK/ y$kwNfٻ/q˜yFbH"6V"XI"Vk+DEL$D 4/9 喅?  @5c\c"_<>v/U_ c 8AEv\.5@~;AF.@>Ii\zcǦM.{ETѯy9lg-ۜ0*ܗ.ՔK1Qpj_pGFPI>TL<3b>yw0Šq=Bc(uOcSS"`0.W߻~_Up Ld Sg aL{5C-1$@qO(䜟-d]"* 2ٔxݎnF+4* IkPA7(<O^҅; (ZbT )CFDI>o DmMGhuLj𔰘Q@r[Lw3BrI  *ح"yg%g[[ZU%r$MR=P{}+;6-.3{!'MA7^T!EnH7+"`0k 6h44~ *5VQF^\n5;!yVRNovInXZ[|i* `2j6T@p'0uq7`ss{w3fbƢjX,+W2Ɂ *'i4tzH#j "P_[TOCk5]9r{tIzْW[4/5r_綄N x+nCYdC4 ɭ%4E (#oӥ2r3eip7%]{ H@cPGi`9uӡoH,u(>$qxi;LhzmD@M Q(𳚑iEI!&>es ?] ^NSq[f3}y¬j zT?€0&{M MQ7y;3UvZi݀;6;K SR}g\B3i԰,v9]veF[ ~FKVe%?tH xkh㚹*h DoYMj?0$1D !! ĐAm #W/O%bc'|n(Ġ_a8vh}W2O%@WIǂ$$K\ⶶWѲ[QTLy<gI,Jc_ʿ ɟFo%DcnfQ4i.~x &=Te> ɚ_]\}¤3­ xua1ָ+ܺE1*.eʤ5+7 ƞ1L-SΤѲ:Zzbb}p0/ pܡ3T`V΍9_ Je ҂"=QA@\S4k&C\-DZ><ۤ1i6XUkǜG>FΡMΞ!?LbTx.` NUN`hlhxa Shc I4U\_pOF.Hjyx\S/L6V#\? Xh}<X/$sz uFԓAw-SLR b֪N89eoE0jwcScILs~Bw;ܻ v5ls]{yNdz'LIlZLOF2`+uZZc0+xuDcj ;Yt wW0bQrop *<cHqc'MCendstream endobj 139 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 229 >> stream xcd`ab`dd v 500qH3aSUA6E>_c7s7B߹g``bdSu-(-I-ROI-SMCd```4d``Ϙ$IXgOrx'ž{9LcNn [mwuWU7GxfN'٧O/oi n +_iޙ~v-<͞ Opendstream endobj 140 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 1556 >> stream xu{PSW%ɽGnZ^*UvƱcmqZܢ J-GB $7M !3#iKWv1ŝN(Zu3=^g_;?s~7P'$Ig?~ݺiqDWҤ ^L?ͦHVA:zU- I$zzriܸ4Xj"A kK+< rUDE$b/$eMI,ɫZR]WqךG(jxeBJՎ`Lbw#>f=젙 Q#o8&^<{4Rֹww,<'o}cZ@wˋ.pz] O"If_xwaVCWc:Spp'2 y9#5ӹA+C=񠡉oMRvs Pu5u\("MGd?q}M㇩Η:7U3 /Ƴ9vYՐo-T̀(V{]FL94[QjΝN !ȧ;uF3/n컪^ɴG'jwDYG6Itm 9634-`8.aN׹X tVg9L2fiG @?T^9RfcuG\>; i*tm6I_ \Mtr BLL{6VJ054s|y[{dn-=p+:<8um\/~h937EW.ӊEfI=rp(ns yipx>SV٬S, HWßIbM[n/ ;xZɤq/4! gν^Z߅h@gviï2qf\}Z=s9Pgp_Nb??7c+;wa xFfY(ryk @AWX7zD4xૻHf}vJ(r%Y΢/= bbvO3Trߧ/ݢ~iEj0[y!Oho3T]4s#4sg)=BAϟk2z+--Ӑh}:`>avRM7!ʊ 6$bxqFVSm 9^xQ@l _hrDY X%}3C{d =)uPX'Φf-ـ{2^7cSx4 ECPxAQ_!jaySe#E1a\1!}yr5 MӐPn2pF̿-B/|O/:݇7//„hx㙍>pal&~Ϧ4vHqb B,`竢[Oeendstream endobj 141 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 258 >> stream xcd`ab`dd v 5030qH3aSUA6E._c7s7˲5B߹g``bdSu-(-I-ROI-SMCd```4d``ϸ`o ~ }_P\xwDtgǟy%99O؅7c&\u3{ywqWY7G|ڄ?jT[YWT#WӬ3fϵ[%1\endstream endobj 142 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 3869 >> stream xW XSg>9Jʨ=ZVb]*^VE $!! B|!vª"KX[Sۙڙqnhg“m~!ƅ'|-q/Z00=$0#XQucDd̊R{)=&qm3fD!T$ Lp8^)rR$3D)-D~$?"D#+KNIM۟-S5cEϽ9OFbJl# ;D X@$b-:Ob=Gl ID$1Mr|Ge$f_qaB B?qpr=p/ Q8;&t6Q˟Q _ZΔ!ݰ9-Q"HOnST豼-8qDݾO7P>aJʂ] 30K8Tg!!y4}dk49Bͬ_{S@X7x^T Uc E cK nnd*/Qx/(bpab4 ,| ya˂jng(e*J P 46<ltXC ks̷ \jzG|#:{]EMCh?`cIlr%,E)lm74oDOD5zC2bA7=蹚s{]mŖj#]Jրil4aD㐭RKIK~Y"\R[ߤV\Tu=7=n/LVW eqM C_s?CPEu@&ɢAC)(Ѫ 꼝ъyowZNu2 ҈[rգwTW(ET浹{+Y "2>}?eʒZR1>l|/DAhvPv蹸KnV͸͵ mاxs5 V3jr- oy[nEvj]lz_;<=tǿ-; CSn&~gݶ'w^>:)厑ߥK3ɒ`/$sNmf$ʎĄbVh0hoL qoB]RU@w;>jo) ^҃a"Rj.)Ҋ@rRVXRho*X o ^M HQ\k K=PNwzv,ˊ "(:w`Vc -pܽ- YbTvf_.)/{9Jds__Oz9Չ FOQ 6Myوn&zl;f VڡLY*F LZC(%;{}gsbsYi Ͻ1Y,?z0h,jCUqAhhk׻f Z5 k]uºl|zJ"7:Ƥd5v\E>}[%rsX/Ap$?z}H;gO;<'nՅN{v%{KDR:77xCwJk+:տɿc@cրN2ZA52ÇdMztg. 3s6PPq&J_?xLôu{'63ϧٖv~`_gr4a8V+mbƔ&Ͽ }ot O2 !m++j(lHJ~'ua춶O|dX4!9kDJ:MRy jx+n1+@2]O\+|MK/v= ݔ}W>X-/A۾bk.0p&F'߆/RuaO[C˂c_* O,a_ a%ʶtWX{|wBZ{O_䮭 )v2 .ĩ( -mzMm:ܷi;q'K2c-bIEu4Ax^-qlu- Lko }BIV3Pms:鱇5\GD( nm LfeQUT}N5 }1`ίJ=w?¹as֋0B &ܯt3g*r(3pvrzvzMt,q%!^AK!Ҋ4Ju37q3Fǫ\߇@9׭ڶq͛jUXhͻR%P-!&I)lNyN> stream xVyp_Ro""@ :9G pl|HZaɖtZ-ٲ- !8 @p4L昧d;>qF3Ҿ >DAAAų,„ rܰ"#/e~W81hKob ,)%}Z ȔEB#!@4jdCU7nDQAV[ LV5V,duoظisE帑O!Bbkb1xXJA,#^!3YlUb1X@ "D?BS'H킙M׋TE_?Z& }뷦K[ K|ήln~V`6#JDҵEH ҝ MHl4YI}gNN0A*hd,]E)tmn7%O5+}Rc=b-HcĔ12sa]?AJʡNeȏOʏoT5,* g΢ 4qz/Z;M x8E}-YwRU+$QC3&/ӆR<\;-BUedJ/{|h ?8^ .\|b&n"Yt6[J![nS7u|pJOEWBT*}t!Qd ? N36p降㦯UW[YTJE;{_ -JJ K.TtIvo`UYem&[l`ATh&hE x̽n[hWz9Niؖ'4*ȰTFɴ?f"eoez(56nL?#Odml:;$ [*dJ k[X:}͒:\RX:va |0y1uJꤲ9mg}^rv梗Q zrn,eQ4C o`yAڽ6[y LExR'cLXWŤG)"7G+D[R9;D0w>2JXͽ,jd6!L^yR^MG*W+YPZMn~,2ajJSQzdPu]Q.ʡn vSG˄вhYdadWR=}DOt'#t\{ڑwL3K'u!1CwaDÁX}3Q8h3ĘKD-'Tp'u8kӄvxmg(Rk|4<'}ƮRa $&@AR ?;U{2:Z rcMZeh ]6ɍ\H|Oh5r< s[{YTgyȎw p ~OÇ;w:6M3ȧӜRdlYqm;ɈɂX|S]V'tQO^qw%PgC!꩹˧M3y<A%ق"4&@A{ ~oG/B&.ANZVB\Ull^vFvwkSZra"p_Ds0ޭ$1Cw=7!,/T hI$bv$]@4k=Bcmbt?mS5ob6|dM6|dgФCݞy4S;z?n\ cQ>xIDCc6 ew:5{]R~~K -+8A{9x*kٳ%Qng@ % RX+l464@3B/q׈&N= hpt b$`WR@:#̇XKFOX|aN :)Uӱr_:g:}/^7 R\e`CaS9V cc}ZEw;mn4dQ)K Ax7lxsE6f1y(7ǹ- m]7ͣh>φ eRP(Px4>K`@48'.<~/7blV3,k=-z @u0"╿Ӑ/}4rF6B9 iHbЀO FkW+Cr}bZD <"o;ڟWVҗ oYendstream endobj 144 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 1592 >> stream xuTPSW$=@\vi]G]-*@h1$JL%Ab&q1?vNv unGnw{3g{w>ɓ0y[WrDX<3)DI٭E=9W"3 /KXV E(aG556뫚4TV5/mU.]ߢ$BhA}U[[P1 ڌTBy=TL ZH!,.e']/O*T\85(-ኁ~*䊹 OB& G\| cP,fC& ԶG)+vPc*p>loOD\Ff҅Q^.47Uj\ 7yuLb~ZhS40ɶ8f5I>fc1bw;mxacXoMgI_ֳ߽_cO㳦AM_ƴ@SS E+n{xaϠmF%)eҗ|Dp+AQyRN@D /ReD墖.I<,~Go W\0ԧHn~qS"N]<\ڝld­ $C TCl<1}wybb0|Qw lSs!u\N~ithWդ[skE 4M+а!@ NjT Z_2Xw$/$Z7:<]^Ňp`,0t_Ƚ{1NP/8;]i vn HDU??SK݅=CX}r۫ܝ3bs^joܪ+ވ%lÒwq={ /4m n߱\; 38 :N;9lK{]^F]bt rdk*+(ͅ O(b,bp+_{cGv$hȇ^s,.+Y=iGyy$± e T͋@VŰ2T0C[D c!.P~}G{> stream xkLSgϡؾ^9E3M23a4L! y#mA˥ vNo=9FˠAԊsâfYF]d!g;-1oOXnvy|aZEEmEOJyp.ͬ^T mX^YVrp| vR[MvmF)^tD d-zcHƪj ہc3a2!={g90j% Ʋ**/}-ZЌA@ƹcL4`‡V۪;@1nOfJw <3C\Cwo|*vhVB gek!ͰԜQQ@R%C?pzuј*. &FbީHf@~G?=`ө 58žS 2_.6j^_ `ͨըmW7'CG*:O!ÁYU;xtIgZ>a< ڴP#_@A׼ ou[<fNU1Z]s@''; BF^>SDB:?>K+LmvW~K*hڀ>r5zs"*vmHݸ4sU>ozq%<1%m̚_l 0z=]j֓:tb$ fQ)a;nLT7dT(]'l־v{ܕUmy5-K >N[$ mglؽh&u"e!"otP(7}dkV?2506IΛp5&,$[G#u|"!pzo&." sQ.ZMDcy[G:}0XGT8kZ'c&Y,8j{f ''B uw%"/ =6孻Nqh^ b0d$ha V(46<Ϩdf? %I6 {iQmxHy3ݤ:qgN9Eioa1|{,AzKj *OOLn#C|_A[֠PʫGLB Aq7MN_:lj7={xVmK C$gHJ:(mRb$ Xtendstream endobj 146 0 obj << /Filter /FlateDecode /Subtype /Type1C /Length 312 >> stream xcd`ab`dd v 444qH3a.g,lDnn7}.]PQ9?$H7?%(O!81X!8(3M!8'1$5Mc0 H;& |?4w{߳1?.%ev*Z٭n徳qb|lݏ9|:pu̵r['Lj42N%9zrs)QkVvt\~q+i8Rmnj8~{I8=glCsbf|endstream endobj 147 0 obj << /Type /XRef /Length 151 /Filter /FlateDecode /DecodeParms << /Columns 5 /Predictor 12 >> /W [ 1 3 1 ] /Info 3 0 R /Root 2 0 R /Size 148 /ID [<55f3196007e20a711bdd635294d540cf>] >> stream xcb&F~0 $8JRufK!L{ a+U\ ~"A7XdTb3R{A$"RudHN>0{XQ"&uŀTeH ,; endstream endobj startxref 112134 %%EOF effects/inst/doc/partial-residuals.R0000644000176200001440000001442515143645763017207 0ustar liggesusers## ----include=FALSE-------------------------------------------------------- library(knitr) opts_chunk$set( tidy=FALSE,fig.width=5,fig.height=5,cache=FALSE ) ## ----echo=FALSE, results='hide', include=FALSE---------------------------- #options(continue="+ ", prompt="R> ", width=76) options(show.signif.stars=FALSE) options(scipen=3) ## ------------------------------------------------------------------------- mvrunif <- function(n, R, min = 0, max = 1){ # method (but not code) from E. Schumann, # "Generating Correlated Uniform Variates" # URL: # # downloaded 2015-05-21 if (!is.matrix(R) || nrow(R) != ncol(R) || max(abs(R - t(R))) > sqrt(.Machine$double.eps)) stop("R must be a square symmetric matrix") if (any(eigen(R, only.values = TRUE)$values <= 0)) stop("R must be positive-definite") if (any(abs(R) - 1 > sqrt(.Machine$double.eps))) stop("R must be a correlation matrix") m <- nrow(R) R <- 2 * sin(pi * R / 6) X <- matrix(rnorm(n * m), n, m) X <- X %*% chol(R) X <- pnorm(X) min + X * (max - min) } gendata <- function(n = 5000, R, min = -2, max = 2, s = 1.5, model = expression(x1 + x2 + x3)){ data <- mvrunif(n = n, min = min, max = max, R = R) colnames(data) <- c("x1", "x2", "x3") data <- as.data.frame(data) data$error <- s * rnorm(n) data$y <- with(data, eval(model) + error) data } R <- function(offdiag = 0, m = 3){ R <- diag(1, m) R[lower.tri(R)] <- R[upper.tri(R)] <- offdiag R } ## ------------------------------------------------------------------------- set.seed(682626) Data.1 <- gendata(R = R(0), model = expression(x1 + x2 * x3)) round(cor(Data.1), 2) summary(mod.1 <- lm(y ~ x1 + x2 + x3, data = Data.1)) ## ----fig-contrived-1a,include=TRUE,fig.width=12,fig.height=4,fig.show='hide'---- library(effects) plot(predictorEffects(mod.1, partial.residuals=TRUE), partial.residual=list(pch=".", col="#FF00FF80"), axes=list(x=list(rotate=45)), rows=1, cols=3) ## ----fig-contrived-1b,include=TRUE, fig.width=12,fig.height=4,fig.show='hide'---- plot(Effect(c("x2", "x3"), mod.1, partial.residuals = TRUE), partial.residual=list(pch=".", col="#FF00FF80"), axes=list(x=list(rotate=45)), lattice=list(layout=c(4, 1))) ## ----fig-contrived-1c,include=TRUE,fig.width=12,fig.height=4,fig.show='hide'---- plot(Effect(c("x1", "x2"), mod.1, partial.residuals = TRUE), partial.residual=list(pch=".", col="#FF00FF80"), axes=list(x=list(rotate=45)), lattice=list(layout=c(4, 1))) ## ------------------------------------------------------------------------- set.seed(682626) Data.2 <- gendata(R = R(0.5), model = expression(x1 + x2 * x3)) mod.2 <- lm(y ~ x1 + x2 + x3, data = Data.2) ## ----fig-contrived-2a,include=TRUE,fig.width=12,fig.height=4,fig.show='hide'---- plot(predictorEffects(mod.2, partial.residuals=TRUE), partial.residual=list(pch=".", col="#FF00FF80",fig.show='hide'), axes=list(x=list(rotate=45)), rows=1, cols=3) ## ----fig-contrived-2b,include=TRUE,fig.width=12,fig.height=4,fig.show='hide'---- plot(Effect(c("x2", "x3"), mod.2, partial.residuals = TRUE), partial.residual=list(pch=".", col="#FF00FF80"), axes=list(x=list(rotate=45)), lattice=list(layout=c(4, 1))) ## ----fig-contrived-2c,include=TRUE,fig.width=12,fig.height=4,fig.show='hide'---- plot(Effect(c("x1", "x2"), mod.2, partial.residuals = TRUE), partial.residual=list(pch=".", col="#FF00FF80",fig.show='hide'), axes=list(x=list(rotate=45)), lattice=list(layout=c(4, 1))) ## ------------------------------------------------------------------------- set.seed(682626) Data.3 <- gendata(R = R(0.5), model = expression(x1^2 + x2 + x3)) mod.3 <- lm(y ~ x1 + x2 + x3, data = Data.3) ## ----fig-contrived-3a,include=TRUE,fig.width=12,fig.height=4,fig.show='hide'---- plot(predictorEffects(mod.3, partial.residuals=TRUE), partial.residual=list(pch=".", col="#FF00FF80"), axes=list(x=list(rotate=45)), rows=1, cols=3) ## ----fig-contrived-3b,include=TRUE,fig.width=12,fig.height=4,fig.show='hide'---- plot(Effect(c("x2", "x3"), mod.3, partial.residuals = TRUE), partial.residual=list(pch=".", col="#FF00FF80"), axes=list(x=list(rotate=45)), lattice=list(layout=c(4, 1))) ## ----fig-contrived-3c,include=TRUE,fig.width=12,fig.height=4,fig.show='hide'---- plot(Effect(c("x1", "x2"), mod.3, partial.residuals = TRUE), partial.residual=list(pch=".", col="#FF00FF80"), axes=list(x=list(rotate=45)), lattice=list(layout=c(4, 1))) ## ------------------------------------------------------------------------- set.seed(682626) Data.4 <- gendata(R = R(0.5), model = expression(x1^2 + x2 * x3)) mod.4 <- lm(y ~ x1 + x2 + x3, data = Data.4) ## ----fig-contrived-4a,include=TRUE,fig.width=12,fig.height=4,fig.show='hide'---- plot(predictorEffects(mod.4, partial.residuals=TRUE), partial.residual=list(pch=".", col="#FF00FF80"), axes=list(x=list(rotate=45)), rows=1, cols=3) ## ----fig-contrived-4b,include=TRUE,fig.width=12,fig.height=4,fig.show='hide'---- plot(Effect(c("x2", "x3"), mod.4, partial.residuals = TRUE), partial.residual=list(pch=".", col="#FF00FF80"), axes=list(x=list(rotate=45)), lattice=list(layout=c(4, 1))) ## ----fig-contrived-4c,include=TRUE,fig.width=12,fig.height=4,fig.show='hide'---- plot(Effect(c("x1", "x2"), mod.4, partial.residuals = TRUE), partial.residual=list(pch=".", col="#FF00FF80"), axes=list(x=list(rotate=45)), lattice=list(layout=c(4, 1))) ## ----fig-contrived-5a,include=TRUE,fig.width=5,fig.height=4,fig.show='hide'---- mod.5 <- lm(y ~ poly(x1, 2) + x2*x3, data=Data.4) plot(Effect("x1", mod.5, partial.residuals=TRUE), partial.residual=list(pch=".", col="#FF00FF80", span=0.2)) ## ----fig-contrived-5b,include=TRUE,fig.width=12,fig.height=4,fig.show='hide'---- plot(Effect(c("x2", "x3"), mod.5, partial.residuals = TRUE), partial.residual=list(pch=".", col="#FF00FF80"), axes=list(x=list(rotate=45)), lattice=list(layout=c(4, 1)), span=0.5) ## ----fig-contrived-5c,include=TRUE,fig.width=12,fig.height=4,fig.show='hide'---- plot(Effect(c("x1", "x2"), mod.5, partial.residuals = TRUE), partial.residual=list(pch=".", col="#FF00FF80", span=0.35), axes=list(x=list(rotate=45)), lattice=list(layout=c(4, 1))) effects/inst/doc/partial-residuals.pdf0000644000176200001440000444706415143645767017600 0ustar liggesusers%PDF-1.5 % 3 0 obj << /Length 2577 /Filter /FlateDecode >> stream xis~63cTLzFX;ut2}oA$\ ca>$GtՏ1p:و J\'y^@XK||r-W,'SA8eBUM?L QQ(ŅSYdO# h Y~(U6GL_R?eR㘰\Wup8$'"F . A(< g)_s5.DYQ6 ;LTsÂ$bSOrLYȈ1#L8[H8D ]8DX  P2|V e!/ 2 ֙%8.bJ9֑^41vhOiIOx!mw!`5Q/wm5J cȑ _g*dZ?/djKiu, Ţm(A22RT Xmt g1u&p!tWܤ$n0ĽD1c#?8@3-Ug W!x3B@ᯈb"-RG:J\,$ /tL|6(U%i:>g!@Ac,6h3LyF`fANU=;F2=lʉ:QM3_i(GqsTǸG,%=&Xʛ+H^*? 6%LMd>GbZYXҼ@W eò”=Z+,2%`eke(w4M*jQDZ`D- ЕlMfq쇈&PV\,˴㬐0}ɽdkLH #C D3!}IteA !HNn&i%V*}![R*@v@m| ^]@ :ca;(%8J jsީ_(9`=64Rf0bݥ@j! Y%;GyN k2ekUEy[@aU8p{~RԢfqvúYg*m.;efk0u3LSViҦ <ykAqv$ M/Y9ػeHp]!/u&I l$F͐9JڒLgQSk5ٺllf^u4un"I(ʨ67Ee@fq.Ul]q k[jid )҉k-wU7^'gGiw#6BB}>GzN0 BfGEݙ-!-_+nuǭ,/ 6V}!;k7:͢V_*\UW毪u(F\2Ҋ&7ɯ4Zq2wJ]Ev Qbo)PLw?4_&~1UI"CjuaD#c_Hz;H<}l\_# D}(NQPbnhK%*68$IH%zjlRVr5( >> ɺDžg4F6%B8.Sb ^9#9'\~?y:=M72Jײ<'Oͽ=O_ 5sr}KUK9MLeY9L]}=~99#ȋ^N=~5y<8 d_w=ExD?c{|)K>xǸǷ7ojQ٠V})$A5kS.qIK7~:* endstream endobj 19 0 obj << /Length 1820 /Filter /FlateDecode >> stream x[o6_!{׈DE7`k ^=}P-9U'K$ Po?$[RrC 6Iwݏy?@K<r((? !E9YFܚd̷#kz()gǧԵSlj1l1d: yAޟK%9JN:No"YekNےtN8K{)wЃ)+eMiM 6BOի=۸W -,?RS>UKFA_\ > oad9y̲0J&۸ ȣJBw+<Q[$eOǧÀB,$R;5&L;uǭ t]4>"1K}Z== U4EKSqzX0C$K` [)grwq]Yߴ4+t_Xu3ը^! O { 2><@|{vi`Dy{G=vqWkM{|f̴n롇/qqeVDm3 mEoڴ6U2c8Ǐ'OMaa؇?jn7oha0]$qF=Ow o N/Q<6mty~ [Ƙ_\<cscG-Gs>{ǧ\Lq] x$$'e# [(Eٯґh)tS7#T}Y{~R/a0xT# +`8 i0 5a*92: _bgP R{(T骮o~]l\යڈ)#|A#R a^j{-"m2رvq 2I_d9sM"}3)';“BSyV|[#AuÒYW6AOdDzL2X8) w  ȳs B2`DDX(`9_)4 ۾sG{vGyZC3vKwCRX=&[)Nš}zU(6ꇢpAT'OV2EP UL٪@FhFEYn\,zB䈑l0.Ek4Y;XjJ*Q5.'Ϳf 46jnjY J {-Z5i2j7n}"^݊l;1Ab:]%oƓ{\F qloxq|+c-ײE<_=^Il]Hq/flףj.ҰvEmVIux,znbl㨈yjku^"szS%Qu+ySn+:q#@X3I_dA:;_Y4Ɠ8Jգ<)xetDY,e+>뚡WUZF$(! <"3TEAB> aΫ$p̫gq Zj$(g R!)w\͓ &O.t=l{ֵ 0{X8N~jsOT4l]I_$<ȣٱoyo9u^e,wRi:TM_{yzTuu(Ϯ> stream x\s_/4Nzvޙ>܌S4,l>o,IǛd;e<H:"ڄ^07K}?b/Uֻ"ER&ouX0ֿ{ uj9w7"]p]bn:k>-wS՜f]U[׿rPQP:VP=Y$H"D(lb& YHаF0eIc - \OXTH=ɤ~h2A 6WU]cWBaoi@!" ]mXB߮bGf$R iL:8N7޴ d-5HEv'Z c{1q -384tdib|ME9$YZrf_ڼ*B0 * :Z;:s,%:Dd#_WPNo&##ҙޱ2sߎsE/ݼ]Ic#x<U3$. ^BFڈnt+2^ޟS ,5xB3c<"Y^i=!Sg*yKʠ-Tg,ˑ/p_VX&$pxV]ղx^m^F[T􎪓BnVOͱ;,m↻Sj;q]FjC" k߸dn0 5}Y÷Р^{h9D#8}T{KE"%O_,#D$NwLҗJ/iXΣrU_K*z[/bYdwYloʬm3'E~Q1n V.'픮`a5]ZrJ*R1qF:IZo\p`e.K#plx !"mf%6+H,D 0~qJ9=*G̵I E`xGHjhu̶۴pm(88 "D<&Ӻ sPa>AmZ8v{a Dt<۽qIci+Tc.̗Ʈ"T_kP{Ӳ)+חN7IAd%}>(!.9PXy*p 4\{A;_us5wh>g]wuλѣA qwfWE.`Tb C3;<(x"T$əS?AєB C)tT/6Sq&Y tE3ܾrĆQL|?w$ՊfelM_~_13裼 EBLDMs^G+K}}4$"=a@/= y S!Ϲ'WBa8=I%S?FL~$:tLtLtf:mf:BEڶ*wEڷO6s'>o iDdVuF5j!o<9,(K`-%  # ZT {8:&7H_܁y}GI2n,z#V|(sM83dN+siuR{lm^Ip,%-@nҭKGOI|Nu' f *9@p|挮1aPC>|(]N3틌5BUS8, 1ZM}/o O zgDD\`c0dBߔ\Dq> /ExtGState << /GS1 31 0 R /GS257 32 0 R /GS258 33 0 R /GS259 34 0 R >>/ColorSpace << /sRGB 35 0 R >>>> /Length 104261 /Filter /FlateDecode >> stream xK5Mr~Y ~Jn@ A+9#ԅ$0?nDiK~֩<f|RzWWWn_/]5?W_?{g|׿/g_K_ʯ?JLߟ^}~q_c_;;ݿ7+oomO\vSrߞYviYZJ.}o.ns9ȶr}r"nˮzi7nI\O׺O_7ߒ1-ŞSÞ]Wߍu-MՇ_eKϾ~e[[Rzl vϫ~K,gs~o^~uj-e:ߺkpI n~]~m~ϖ{]/_m<=Fz~"}]og!%f^]?u}^h~E*~σ.ٯ r<~dî,(> eI~yX|,.>ZoO48<8\7'Yl|RVf[գs]~f~OPh c ~3n~O\9S'Y|.$P~fQ~Ol0\/'Y'N'Y|oy♅J{ï=sQ_u/~]=Z>׾,\>0˖,^>~'YMXythx9#Xh^ckOO3kpϵeo/k?̊bۯ>{SYrjgo/k?,^>OR'ʊ'ZdywV;avIj.'٪dfV`#a{{l~O5N9 -'يtlENfNɖl-w"9N|HHv$'ڑ,|'[J"ٲCd빮JPN,d+}w$[%lwU}~'[돒$[5w;ي-vHZ$oɖludGli|'[E5}dkl}dkFpwdw"Y<֊lߋdk;V#N"zn[/Z;R1t$[9Ir_ɖIN}8 $[*NUOVUNbHtd+ΨwGEU̼I;*ֈd$[#dOwulMŧw5UIw"9N}/dkGrpH$[vN*9S\GR>jKV>BWq'΋oG`WZ<ϴx>E{K5oJ`7%0c%򏓯3/'ˑo|0G )__|'M:~Z(N\S>O~ NN}o3#ߝ|k#p䏧ڏ?ݨ_NrSD#`rCgz ^ <>V c5jo\`J,ʧ~O=#^z3w=zS QF>w#_=Ų1Rtd( yD*u:"YN$SGvH8ف?BvC', ht_FTR90KZDpN-HcSh8QQr`NYkV ߽`Ũcđ۾yUR姖Q/=_^nlWݤ=ζlcj3p)O[;Y|>nUma<剁V*-A;}"{ %z }E?TO`ٖ۟vXV w[tmןZ{a:I#OEΏW-gፔDI˵{K-x(ZE-υy0e%c?jw8<> \sx@x:碥Z,LԗC~ c[$ߟųV2񹐝1N3w-I·my~~ֶʏ~' *;gyQG5 s]tݿϟ&_5*ixgzr ˂eOIX6mv(dO{FW-k/-=@eظ cR I@PAN,Oޟ_{Nvy".tK`o/ i~K{OAy 6;dE3Ωݷf됸>^089 6[JO-w*xJ>NZ)`&rm==MI/mᖭ"exz`d ~#DϨNcM\28xMDUGmA/{eU;0m<,RVi1=o+{nጲ8%ÂZܶ#tXdՓ_y[g@Fk˦uaALG6/D.mϔ)\2rC_bũ-JVg 8^3zB;(''eC7q,Ś~ҡ $)>t0wӮ_jš++Š[i @H,XrKnE:K,.Q7;:}%o}>Z֧`=6![&a٩dCv <˒Vܒ!3.O Q? ` 8e ~` N.4#94? Na2 )񷳂.gl:9iXA\ty*eQin}>N[S:yן> ?xJCZo .m^H{=!7 r2 S8?3}&:8j <7g߾oۇZ7duToh8i~Wo!mpCgJR<_V? z򰈑|9gAd`ZП1ŠghG,*r Am~ϧXM;n9;Pa-z#^reUmoEFnjzU*~S '5,/ja&OUal!'ₕCkgoևcO>ArQ㮲G ;w)j(I0wLl9}#^EYϵ=NuE9XS%} ~E. S zKA55[ R*>Hzi'VMBEA?nݿ>O%7NHl\%Bٍ0BĢ868TJ.Gt"ql]MGo?BzϊD/ /".`Megܙ?<,Y<pDPLT'pQ=> V3)~lM.2 H+ Ԫb[ىdKLx=f-\37Q]J=> ~tg k47!i.2Kvk=  ̦]"keͅVډ}bVLPCXC NƎРںB0vL*]!xռzE&ˑaE(fД*Ư_pYUMbT<(G(hB<P/ ]qⱥ,oCs*+*х)`^XpL K>Io=s$C #Y3#hn<`֮FmBMSVQ ml `P1u9ucE,<01nxPf}+ZaRZsfpFni 1^%j~>"hڄ0׽vL[ܵVqwL靗o@q(P[խMjԮЮUdWԇwZ[t6ҧ7?[͚U>Q  !I恴6$iohbg\b??j[Dr#ѯ`,Z׹I+lO@2ᯌgf>Jٳ6(fE_brOCZ2CUBq}I2}$LGO 5}.uxsPIo햤Bv}>f ?!:%mOK{qRu52gd0c  xS>F9}"UceIcjZK] ~5_*qUpF_|!Cp\~S]&|=L]ѷ= ciEO&{ݤhB]3*nioR+*jGk RA&x gS}?*fVtyQ4(r$m cЏXGL 4Z̏u_hux|\~,2ݛ7g_j];T٫ХgG92HO@Z(}7B;{][}GئoW"FzŚ_V>MgKr,EZof+5(P bYΆP?㽗;i%)Ԕ^di|w]D/f{'#lU,oND⣐3wd^Hjm&KPfsR'|= \ S{N /e>}Ƽga ʑgO>$s V1QNgJB'פ1S8Q?C:عFbQ 9aut_FjQG#NoRO2 }ѝކ#Kج#Ml>.\K2ѷmk! 7|dT4ߍ_2A"|yOh93i/y׍* 8% ma'Ol [jA3tt44z( FWn>.qoxT!yPINkA'+7E>oU6<#Y.S@ aIv+\[>`Kɭ!7Fj$Msrm^Ƒg.|+$͊Et}`f<v-1`֔joDt}cxkPf,4,i&R >0_?ZbKPG&4uEtat܅*Sn܇dM7[ M$D=.5QV%TgPͰ-KvIb1+j/~r}N̮^>v-9#v`< h nhwĶmH˷VUuٞNU@ۚkh91C\&a' #Y׼PK]e!h!9b)Xc=̑\٨6#ZcWEE,u`ޟTo$()":a4+#H΋Pfh'\wt6trB( q馜y`CS!SPi9h7q :=^U*6K;!jdƇmYކ>^{ymG^r{{l/nqV_i|9U]OT%9ò12-vƌDi ը m5oz4/y6׍RJ{E%fTϨx{Oy4TV7h C"RCAVS'䆨TBޑ!m&4^:JD3ȡ~O#aMP63^n1],Ӄ'S4ҤЦN8f*Lj'ٱY1IuVlݔa8)ZM}ƬHKRIhғlҠ8+` 2Hڗl &X $a$f6M> 5KDS%LRQYZqk Ve<0 }_dRՓM9ş8* (+4\L;J:3ϩQt1Ҝu/zuHyk0htC&&C>d2@b`U& H*:8ʲ-Y{PEJǗr (&!C\)Ш8PM (ܘV֨]'bQؚaDJ.QgML"NEO³?TeuP};WѳڈP:DU5w392P7[ZU%! oE)z0?vRw$v6anE>[0TT-M|cxTa#ȁ>7r s *[Zs*,^)bN/C hiuE"w_4{^Ym$n"fQYcR^ilbSH:.$X;#Y=nj/c^ͷd}nX*G:,H}*'7L$$B|hR+O 2ԪNjVFS6QSlG 0VR4VEᰃHK7Ȱ&ov@u~9z vQaW!a+eKЋURDj1cL"pnEx1!+B ytlg%5+OF &WνLVU"ږj#},ΐИe! $٧X9]3 nq-}L7О8H)s['򈇹)t_7 ܨ!!Ovn@co%Z;t(ʶq9>;_![l%V #rf!H ԧlb!M|!SԴ LB$*uAHy ǕNrC[jBj]ј~Tq?Nbe nvT~ŤC (SH=>/T-~1Hi}VQ|ܲ{"z߼7zI~|!) 8}Ԁp2Zqtyss ȩT4~yK8ʒ@@E ߏ;nw"HОa$\.Qǚ7>elyY3/"q05{J[&R_A1bX;J,7&V= 'p ;S& ~!@H2>N"ƬQ:^Mdwc |;q$ n-xlrpѡ3aBe${$q3+?}8x)#0(E꣣E3Ew >LFQ0Ԗc>E`Af]V\i5]aUY 6~UCbrPo2!U&qrK'!q-Ēҝy <8Q9JѶNM͌5Sv<R˯=8YԃHQwPXrUJ~]&FRg3K^vv2agqe 3n5VM81<I .!rGͼO ,hF}T| (G Y'ݛ0썦 ;G>[ wIj`l"ԒXTq'OXR!yƤ]Do@жmKЂ<3.T&ړbwH 骍sxى\" Hy:18/P]mMX4 qJbu8] !2Kvm(ԟRhJ ] @6 ϒG3/YsY13/'Ml!&pקC9*ëpT%bڇq?Ar&rhAΜŦ]nΖG%%NtdklIa&Ȯ\jST2+u;˸<πOl5/49 9* %p8fNM)_Tإٺc*4Bgf"0DиoXSD !"]jJ7PX3D-,yz,B̠YG;KcÃLKl;V&NQv+Ɂ"CvZb׌-o3~ʤ F̏HCO[S WUJ@}P5cͺa?n_6(S(:j<3j"ŨBcqRJ3*.)B d_ eޒ&6pj7`OoZSoSΌNsK2xɎ@/:mѳ:*6}/ l@b2O44#d;HphFl-mvX24wPiAPv'M7 ut"&wvhe-#Y^V?HVNXLhŠ\鳄kTUVzy5].(;Ҁt ID@c)u avkc1}1.;?txJ}x﯂)j֞ޕ kN~ ZzNJC[?V9Ÿd02!i* 3Hԁ&F޼LP;X!0Q~lݻ6\1]|%6_r4kv25/!_̴h@Uq/rN1]ԝ4gɧ~$nhAvp+#A69n˱׈ D%e!XAԄe@ua[`N6QkղŨ^5k~3Z ]!R$ZI 6~ vȈE""Y֯1tkڷʋ.h7gw؅c_6@Vu)0_]ݞxX[ƹ#M*!uL(s a{k{Kg:LtϪZ7{'u eSS6jJRw~1For&/8BuM4O(Ga-W߯!;hn E \b )e~W;߉tol!F` X  }IXt Ts8%=loL3$~:e&pOQDJTPW-ϪA1qxa7)}O ZOZq7UdÛEKgvu&##ҋZ%v,OU䦭g1NV j- E맱nh3”iq謘*m $UOѕZV76SLIJ1mf#nK>TUNQϪXn%Og+`d.ٿlDP&a^T c;m䨵&nZuK,9%%.UsId -M8 aBA8]X}' 6:gb H64[Q.I@nN~_eL76#ꄿ:,$%}Jc%16Y둵+O[sCyjC*3&rS̒(eaa% Z("g%!~;@˙JUAk`6o i@VrA씇ZD}z~4;#uY㦲[y _ i%&Lt\Qnq/ ȴcV}7L_L,`"Ҹo+uQ.JPU-Ɵ XRFy!kFFq-p)԰.ffjsWJjb%(=" /s 8}q:?d2bm72z8!$PaM.|bR_%yj͛3%̬T&1Le&6;-K.$gv#6HVP>;RL-#/ϬfGcA?i]DfH%gGwCֺYwb2'V!IT@$hB-K%j $s5O1ɳ#p83)0 e.5'%+Qb3M%8m0BC30R+܌#XK܋,< 3qxqOwolh 8$X>.Z֬g+񳒞zj)?\EMDƐC1(#gb}硲YNPnHKDZ 3f2'iuq<0<F0Ea\!;xo혽XG2 9갯삕u[bhTFC Y0/jROzӵ5Iz^O bpR o۩FsDk+wX(Y9L0t@^o9 Ԛ4Zښ#ƴ"WY" r*Cs^eʞ#qeWo^@2l?[E/ 鬝ehhL}JQ(uA5fEen~AWUS}sǭ׆Q7 U1OMioo:U ~I#l` a E!Q;([" 8eySRw vLDAQjRĤuFlgZvnz$1S*D'g%ؐ1 (U"vIh#G$ie5WQpl֍񠛞I][һhSo)jfxc,!iohb)z@2JuܷlSCAǴo>>@gAL"L&|S<) .y04LQe)=Fp7Kjq*޴sL4\Lt=7 }%߆1v3ۛ3J','"*G3?u\ح$B >NLGrxr04PS$aClv#eZ@1,\pG"lϴOgcccq]@ءT#!1KƆICHNgA Ь5ԩ"R{Rg=76L  ;Z6o!GnE>dיY&4P(OZL2 cGMw1È!.lχgf~8!*d6GpAGsrgxwJbDpkױqCq\_(uYt*\AXVis\sQ@`MmcrrA׍i@gcJ9ɹvVf)FS7 &|V]-Xi1i e35TVYyhLYF6dq.TM$iTmK1K ;D0G5ΐSYnjr} ʂ>͋p=:Q\Bܹ@nSE#/=EDZ tńlRNC3*Z;Ob\o,C޲ZBu?$7& QcٲP ]"+? cO<`hB)!xضK$!Ja$ _Et/[NíE>I mu. r%%UE ^;LL ㉋vɃ"1▭kWM|Iҗ$qvݲfk8|5v.S7+T qU_X ;|Do]wǙe JVc!kբ=>L"4y|VJzҺ(GXBnũňV2Kc/_3`,r$8;|f8dL`5<|%zK(&y4t]OϓF$ 8zEGI]~3aVwt;-. a65DgF'0Ł(kh6|¶YfMF!bBdxu>"RXN͞LJD;.w1iWY|͑а'^cjgߗX>kndv< btm,PvN.!t/:*#`5 hz"tf_/҅x-P4lTkΪ燔y`JHlsC*c}[2>CzjSyW[;^u"UiH2x.luN挢)Xg&ad!zT^Xm~ dFP8^[P?amqoUը+㰉FI2K=aaX嵰Q;cǣ}r5~]sGű]z|L-VS 7o\fY80ַ<)lʇ|/Sۤ묒@s%ԔDz 3̥m ^]r! . osZZ>lUL/O{N򲆀;G飆4҉L2 dѡb2XC|Y?%<*J{c`Kki0㈾eF?w+ue+$C)a\hk3H=QP"jHq!fETI_hoݘf1Yɍ_`&B?^ 0l6i9 Uܡt.<|gFY ~v9St5M)/ԫ%;&RGP7,zA#ߨ#^ǸI@= )LLkJZAE6&VFdX5ܱfEl.^"yR;֌G,M!LlttI;K4,yVG!?$SgNXT˦xMuV_6jF1BQ硈16;rGR1Oy."Ǻ zzi"msTn8 .K=-I`XP6u)$bKjj/j HY,:!5Ԥ]z8dtvZ]&,UHmF69c5 )f ~.z T'/e:+ޝ :4T2yg֊d-h$iq\sq)*G:3լ;ˊ9a ~yNQj2S 7Ri/Ko)-R |ħ$`DB^㲠 6SŐAKA$a_hR a716$v6#Z/):I*.cM&-I |rd i/ʞPXFj4 듍`5$T(IJQc]al AR_7@'JH'-HzeYJVYIM |4 Z-N+"ϲlCӗ.w)xar.,+6OCooi!>AØ~? aG =YSJ_DWLr2@w$m5ـ'%G q@B R0r%荘4UNeht7VH֐z{a'j, "F ?C68{T5~d-L ŬWNE2(hjpgbKۈ C^m݄h(Cg.Uo)VJf_TW `=US#&Є3%m^}MD*5BX3Eu]qXoűsM2Vc=Hp~K2Csqn `n{[΅YYgu\ [gsI;_d54|6<#jgtb߶<ƴMmY"m|.Hyѯ?=ajzo+\FR ="7 3>Yn5xPmdoڡx[۶ؕ^Wg,r"ϦH0Zߒ"rҺN9JQK%Q#nJZ-'G&Th$[ VvlyT+$O-xȟD'muW`bƸLIPϬ3~m+&Cl<:EYh\T&5~{+_jqvфn4uqRUljZ[^x"\TX`/*tKρ3{tjդ7zX1Ƞ$2iwhkۍc@Wx#fv@*9帐*$h<#c'cIhdp%@:tdV x=A!ĎyP4ғȅkdm*%7ΆjTijdS|W]sR`NBΦqR , LqY>nk]~\Ć3<3φԬˌ'ZG@ *,S.}kk"Zb4+L1; &Bȥ4 n>|H̏ Ր=5$!2LxxXŒ+zB\!;:9]x9yRXR1fgDzt5<-W7¢-Vgc줃Od'bƼDLXm0(&vw=l+UIC(Eﲸܸm)YM6T,Q\  0xX@M,?fR#X%Pd4&ߧ,?iD 7TG8_@-ģ'JZW=Mb8ױ.M: NA ab" {kIVív; I%IES߮Iӝ]* -QR̛Z Up6TT=vyLζnF"*:9hPߥipɒ9FnrS6Ĵ/&fH"t1&&+$rܧ-$j崤h e`.xDaUX bFS& _IMD[o`=Rn#|<Ȧ):`7Xgpm(tuU8лU32'` "YJ)keH<,}]\_[pTf@Ӽ|{x+̯@ؤSu dG!d*c>Ȅ e+:&Rl=GBI&lNYBHP#Œ,XXDaʾI(DN$:7jx^#=c"=FrbkgMl#imOg:bo$ 3'iNHH@яML[, Nk?t*ƴˌYK=Ċ!q}& MQ8^7~'b9f U 6|Mj\xJyMǬ"z!9|2ژm^]K=l'3mѠWe>AsMT:l wi ћE(3ߍj. o<(Y[q ԠOy6>'S]s5PausArɶ)ғʢ)Do#T_qDж]ц8]o-)d7Ã(Yo8p4C#ˑ&d03qmHil/ph#TK8l㤉ʳAds&pcYS4a\65I<+)UO䥯rž=4UճBVU&;F6M@/a!qMG6ڔoQaLsy3͍a$cYBVwo#ƥDXw6`1S Q S~3 Ʀ  b38qnZN2@wEVO[D2hT1o^3nHlJg "ϡ'UT5e ]]Z v8`"U`sZ+OԽbhЗ>8i&M3zxFoj_q/C(*;XM: & sq&.Fg (AJH]~2T !+B刀y8N2؉)j`o9KPgtMN҇ZL]t7᣻!dEzi%-cEfy\ .{/ ѱz<7cdu $LrMTCVdjِf6w)K0W5pp.]U3E* nLyVRae͒im,cd!=J"s|")Y\R6^RU_uB!gh㲃hAޫ0C< 6 5^I>TaݬJ -'loސء|Ŋ\Jd9Io?oQt|[˱KcxP)l7A4) ݂=6GZYʜtFg? CeWU! x]%BChkOoyᩒ o.\_~Xe7/iɂ&D19K[v;'ŮKeph=09ފhi|2KCOŅ6P֩* ζ*bZz2mJG}qI.cj!X;M ,MRkņyMZ8nJ3.(%@}\~fR?6 E ꤖ_1RC? 51XAH9NsаCENk(NUpa$1;@]"1wI^ }Y@{LQx\h9;dine3?1cS(LK[lnEk6waбj}.b| Wh.vw&[7iaGA`%Y]cیD`bab2*>f0)CsywQ|Y͟TᙖKnr{zIiCdF$J;^RJ޴R"鳠iQMvʛܓє&=?H6DpLCbN@sX[Sk7'U88S +/qfUnA/E2IeNMrɶl B'8%Rs`d'j/!HVHZ>QoAFؗP #Um{sˬk\f0yv`%{Y-6nx5z[C]Pa=E4@'Ʌ%U,GH#MeCZ ,KfBmNhE8!=x5b2XtQ9FutXF3r)7hkڐj ?!dhVD`svtˉ>Γ-ԤaJĔ.xEs^n252R ^wܱ;PIj@=SX< 8i4@u]vɤ7uf|tcL.cóe㺴\oQR/+CܼKYǖ;QuK!*w.&Hcpձ@PG.+s=*ȄL$ogO> ˅8Ƃ " d~EjxVSv9L֩9~2x:䥄5G/ay%79>R+4eMpX8*>2ιoSԄ cl$r! 2T I¶:h2w. O&ʄ劅6"a#kzFl4 RH""ޟ=6ԛ+5-d &@G`,;ȎahI*V9Y |ĴCn5؋zx6gAJ}JɌ,aq̹.S{p {+(M< &Z;l)yT:\thM2u-(o:ij'XubP-TYrV+ʒ:51Ԅvu↥8S7|R"Bߢ7Yc2Ha-yN0Sސ-d6qo%h$D2_aFkGm"L|ϼ9~(SiA{ri2 j!Rn%NbPmEE0ԕa*4=:Sa,nEA#qm sǕ%y{gein'G:v:ڇ?S' mX=< ar eς|Y6)µwWZ7vHcBztW8`K qk~㤎L2likas$"j,/յ¦{֯^;[ucMMoc@{u(LHP;cL$=)m7 EaudU/=/S⊥Oz Ssf~tg8J6n <+ןJʹ95,jPPJ:FWx\Deܾ  =r!ї׵J#F0/&1vҁS:g&MI&̠7 U^E;li}]_ *ٝ%60 $!] K?>.rS8Aaڱַh– )iYB#%X}L<6uw>$^ybꑦ#P[MmHvMŻH4*簰5p%]R1 SMD&QSڏ _Y-k;▎2GEy)\K yB5x KV!sҾzU?:h$">cKN&m(nuhOoR Y۱DڧdL(j fdI&ɢZC"IMtQJ3`Ƞ"tL#VQc2MZ7zv+"i+>B,b^ŷ B]5-_J'rXj+Õ]V ]lBX\}.?ilJnm|2IOUnr}Y,&.sXoHyR$puS eR=/U\e@v" w<*pN A8屣%87$ |xJpV*>ZTSg jƔ5FNS{*da}d8XMۯ(2t) !vՀ{I:W>hDs%tD/ެ z8sY'5YpO@ߤId;ȺX6i^7;ǚ(~Qál%S\LB z T̶ )Ƶ˻!\k3x DXWZg_Ɣf FȍTcð>z\ '[b3/UmO^,[u) k[Z7d0&dEt$KIy+of=kRb9QW3e:waBAS4bqndX,|#q\*i.6X4XW&"o͕w҅iviPi|5j ]CEPX< v.C%P\6%x-ɇzZ5$56Ȓ.!Z:CmIKGujKqwqܖxNٮM1],X}%8vS3Q^m"tbi*. e|qjh/U4r[1'2g\su "[`SdAm*]Y~aJ\"X"q̮.ZmM`2Fz X92KV qq"S[ۺU?]r(ME۶ :MfߌHC<1&Y62]rZTUU ?p >H'ZmyCiZ7nDi#읯}S% c- Xȡ$MJM\/I7bQTѠ7G FCa۱VГ]~:ĤD"w_'@1K[Too!q5&͖y96k"5X,ӚzEBbJVZ"E`بѾWAGg,IҰfX%J%U/Wi(:: ]ւKQA[QETj1Q[AVC} 7i;Uj6p,i4 `Ֆls}H, FW%x<Մ0BDcMh8젓B+%L n:㟬/j4 YS٩:czʅ;[Vv a,;er Jts]5 <<(ШH_Ҟ7 W4͌xhՙ8V.@5A0'aWd mAB PYl}?yk&( Q\;Hp6am(>W?Euh!=]i5o,Z*;/7)` ()xb||7:H _{N!ۘ;EUn=ɣDyg|dFy|k"+'+_5qz{9j g9Z$"q;)9{b2exCnQ5uQsF<,rUj*v w;1T:BpEGn29[D(85,tcگ-Atպn8ٔ:NFjM8wJ9.Jj8:RQ CUGO56 DVz*:B1[|"mĬ(0ud-̄eH/HwW;ɝ;S<,' hw,F% xmY!ilI{Bz ƯH447 &Y2KNX@w *L=!NzUBh`ݽZѡ݅ӍlHI6}kE?s⿃Q cvll[ z#$_pEz9 ۊjgA"c,Tq^h퇼X#{@Jшٕr+@3H9̀ 5#uxa::J@?fx]=N4<"}= 6 ]x<ۺ<:G?pW:Us܊a&ɳ@ػ% -U<,xG+/Uf/J=CUgP1ݢ ^ުDŲиgDh\`{ܢ4.!;>ȩP_ޅ9&>1(6Yݘ5lxCحCx9E`eڹUlt1.(tƋU!B"f-^N\j4pfuH8y)Ix;Ծ"c8D* 㔥EmO9+򧧘goA(AW#fV7ldu*x?]եXf@WuY׍S"9cCPi{Q:$cchWVg\;nnkEX?*^$犰KDh@0qec;kz C8vISUa1d9[=c A-"r`gEFgL̈/\4 E,7߼{ ,}FiA )Ǻ d$!.tȍMc"),ZL |Hq{HBmRv/l)Dc4<0l8Ag(g7.ƶ8fsB(>Ieg'oGg+ wvvD.7؎(7oR!NiL fΫMM-+^zؽ ebdIAlG_Ezh#VYs0 Dw6 lI\TDE/9_[ƍRS;fxYzYRM2nT)%dxE2;6bgsPV䍷Ao֡XU;8 {F#tG{ʵrYo5cgR5?# jQ_.n58B̮+az$huӷovpgS$EID-$mr;"M619:X[ ]4Ty1qMv/tI~^a;]p15EЀ(-L7%McfRE+j8Id^4Lq:@VAaYJw pY9ͣ Zt/|BǒЁcXc/s$~wd5 OjP:fd<{+~݇b(0Yϯ-,_uunyP1 `IpgsF01b+Cx394oBw t1g9V:[ Os@P]Mnk(tNqxox#9k"6 _?HQ1@o<~ԛJkY%pC UqI~݊t]m]OgF3I/[Z#Wؓ࿊_IS~Yv T6ݯd}Z&F*֋xaeGaM4qtɿ.3B,\;ayeoq>6*Vz.R;%7VJ 7} }τ$s_ "i_FhZjQNzTLޞ$돿?_CG1ǿw?bz5t:/߿+?d6?Z>)e7oo=~?_տR⃔>[׹rs>Ɵ>?5I_@J]OU<Pšuw?Zgv3<돿}&+g+yZg+]ڮWx}Z=tEϿbixJ3nZԩH΍l%5ٝ?OUNO}snJgO"ɖ|!6 ~_/;!.ӏl^ %qg?g[YPA}3nov?vLϟ}ooJΑ]Ǒ<W>dH_kK5{]iQ%^Sk1kk<{b((ƺ+e{֒A~x<>ڊ]g]{{uHYx`~6}ց xXVE^^K$VYookakA kJ Q95[J>kPkuksjۼGxz~<|8G1c&{^u9p|u:*g-mz{XjY7=kﵚﵔk9.< H{^g-z0T¶.E:&ơԹK~⥯Gz剗Z'^jݞxxZ'^z'^jxuyZ'^j=x9|=x~⥯_扗Z'^j]xu{Z'^jz?;=RK/nOԺ?RK/OuO鉗Z'^j]xu{xZ'^jxg|/OԺ?RK/^OuIO:?RK/OzRK/Oz=RK_K/m'Dr's2G*ƏT,uO*'#RX?NŖw*S-Tl}b?;[JTl)5{R1ob?;G*6ϟbޭHży#M:ީiNow?RX?Nbbÿ; T,O*T,O*6SX?Nbb~R[*6~Ko-bß;Ibb~RX?XT,O*Nbb~RX?XTlR[*Nbb~R1b~R1w*'zb~R1w*Nbb:TL坊Itީ;bTL)S1ŋw*xN<|b>RX?dzTG*#[bO?R1TG*#bq=XO*㓊bq>XܿO*}bq?XO*“uM.T,'|I"_yRgTTG*5zRۓ59#c]_/w+)-q-(}}[j^RTVXZg<<؏x#Vvo#^?ris/\ >1<ͳ(}ٳ=`?ó>C7?gQ; g}g³|?gȳ|YG>k}g_çO>y[:gڳ,֑u:9:['zěSxtX?^įԋz2SoF<}шOg#^?nxq~EQ=C%<~KO?&_)ѿ8o~P?ODJ'NDJ'N(_߅+1iϼt!\[xMՄj};3r9\-/1jEΉEɀ"pڀE"|=*TNB^RǨH.n5HG!n$8mW'0e+::vt6 )^<83jl }eUˍݲ吾:=I;AU#ر@J1H\2َ"ݳ[X8 ջ ̀ضi< ,_hbOc S ho; .;pleulh82d_Q @-^9ڲ#7zߵ.H2t]Yڭ#,KC+aU:`[ZU[~]^{o#޲D|SR1^g- ȟ$& D*.V[<vs')DVuY`3VM,V?6(;fQT"^!%xG%D&:S 8rtcNRȘhkBA/%J v}v~P0 Y;I2>G0E jE%eO2& qV%H񪈽2eܰIJ,{5t!wӪ.MjFj7R= HĪl~XM٦+bS3hBLmF/>U%@t2գoؼo&k?劐Dnr€7sF&+FQGSDZR{7N <ɭκu=tzX4/9ǢZ#ɻenzG -b]*Aܰc0*jLFFVoI`uIw:݌z= Y(dYv/yZv;e]\#=Cfu?(Zd[`vm]-q|٥TZ]r; *zqѠ˪zDMcY؞xB[ؖ TlI1Z_!?(fЊb6Z'̌ݏFxkF. ,lͳ•+^eE$FMM=W{G2+r!^YWrmɲJ${]C٧jhE7tlf1iDC_9*aG%@ߩY`,`Y+_Q>DG۴:TKCX:6ҥ[Ͳ: ,K깭Wt}i?Ot߱z~!2.[ߖ!ql#BEu(|*MtMC_H֥ZG&S "Y27~ox$U1uS^g=Fhojǜ&A 2q :>>K@ZU> _nCyVlvL4œEB`CakMgL:f"[;gU"vp,HQY$jZE Ÿ=X5hiԭ,W Ch=z[tb!Qu#2$ &J[vE? ۗ h*\;eV[ZոXа}9l#crF{cߘ)kc>,[ tC&\ MfڅIv{-N`NaNi]}-<>Y.Se,ݰKs+#Ot˻a7 ц;:4x-Zcnf35ūfQ:(> ;8uf謦 ŜY<%%ǹь@ wyԹYGu=GvvSY/Kzu-!^H1aߜ S< k=Fh`/2+j#w$̕( 9+4C;2ѳ;T$̄1gc3Nc616a!R>#}6!3ְ?#sfOvR| BU7;f_LZ-N.:3:ËzFAU=W~ C5{2|ҵzrC?eS-CV! 9 PE良bRl'J0DJX~i&"p|*g S79 }/7e)V_7<:rU;Аv~ ϻsDU{a*tָuRv݉b!3}ΎO(,XAaVd#tk臬\3\4?IrўkغjB/Ot]ƾͬϴ rϘvʺ2;<4ek22f#3?g2+LFqbRDX'DY:Ε{#l ]0 !2G&֊XSu!07srgK${} h4gHh%W˺L[CrUy:699J$Ki)# fe5BoxwW%ŏ,"0aӔtKu`z-.c6W)6jq`ݽ/ssٲn.1Z5ST9yɬcbuߎ(*t1;hlY7KZD2cz\J^RޞljO}R}~ ձ. NPTgZJΘSB5 z׮xB(>5fTu;N ?4k38Rѕn+>"~/bD쯁#># hb8CGZ#Y䤊WTđB(D ڰUu\W9# ajlI.7j{Sx$MJ"XA fO,|Ȕ2J׾5lz<*VvmK hdv3=0-kP󃈶A4V"K ▿eo;`N$| NMgJk"Q4JdmoD^֔^*=15F4(FaK\ ^WE` A{BptՔ*1&#HBD*#qhP,_!#Q̰Fi6~{T>95:N/LoHGe(2 2Df`.-2;ИN U c! GS[ka&ӺRVxN@H䎼UwVA0% nHRv)B7?VBREu5-1C(E5kqjv=g r)h;>Mv(>WHx5UCBȘwƢ UtYAg`BFWC̗4b@J<2 R. ȷEY6+VnUS M\x[fwܪTZ# NIG`nr$wϐaKQgF';#ooq+}*5]fQM )>,rWᆜHDAԎ8,ue uu9`mRH 'FܮR":ͬM@RS(ā^υYY o" G)z#6M89 %Jۉ 8S:Ku79i fMxcc.r8{aS$0e}vK:*VKDc1ejYg_(#DuJVܒޘ,+pVzi!D+7dWty? D׳uD@}q']zF5TN’]u~zl|G-Tuxg38#8KF nGT6A&D($(3NN)ۤzU*?u钿bQ$؂ XE=D:>4dkoT@y+:HqkHHpa%}釲rӰݾMײg'&v&tGp!A} Rj3Ƶ3sgLز:$I`Hw|PwZb5r%ڥӺh")6mY\VSݸ'U.,y;Na_I>pkcg6@,&UL YL1gY$B:ʫvӥ{Aef {_*l$p_Yd#%.f鎰hXSLD$Q#G'p0=9([f{Cyu(X"vYg&˄Ɠe_G5M/0 ّDI_A\uz[7\ i6`hL04lL0:o.(2gH_`!pυ+@,EUEa /{# mBȚX-B|v^,TQPUClf Y¿U( %=Yh sr:嶀O~;,Xr/X*MqYH;qf9l kϰ5^nF "D?Tnv,YdΟzYVYjBn8]aT?] ڄ"P6x^#"-l㻡<]$ Uǎ. #n~ho sr@R0Ptͺ>fտ[Q[Cbc{ Fa^`"ܿ.'. ac8 (_fFFܡ*U$MD!RR72Gv;4 ~Tބ큽a.+iji Ca=s6ˊUyzA[<6jh:,P^E4h4ZeVhaFʮEha'}Kf)حM6E$yInQ=0zڙh*^_ћ%ӨrGb#FMX涔}\ UZe"=Հl 84ʮ #R!x) :.( ͻv<*8]IBjRK֍Y_LjR1%.;nM. b?٬i8(, ua@a>vEXz7g JOM1#fq_E`s"..PО^Ί \, L/((W4L5u-P4kCzê]B0ˑp2'wK`bsNȰ}HTDٖae(@jF]\M  t++Xhyf[z6 ykX۹mAsX';.*Oq2eC- EX:6M"7|Z{1anv#]څa[Z#hа.I&iE踭H)i2gnvw/V e.yLd$aXOf %U"sqrQnN ?>f$Bo Gg5:(Rϴ;FC3,)Pnn%sۧMJIVf @x1hkPkt>zNA.w28G[ }!iS{aj4W2=rGrg DE@}ТIt [L&놬d ]FU'$ QR6{uf&bq|퍇3Ey]'b,DY\oR!Jp+d#.5؅Yj7PvW7Xx~dEҤ<߻qҢ9[,d|RXr1+#cbqAd4f[-pV`I"a= YFrV١@S<.,.Cu"م/{0N]9dB+ u0PUuT;'IEwXywdܖ:UrqcK3nʵ7ʯMΡN~>d;DÆTԃc$2$ *msXDhQR:uhe2Ƴ޷:7TtUGbG 36(sf"8 m@dҲ\*6َuW0?zTR(Ltw{1?4Y]B;tNūc/e ѴtASKfޗ]xCEuJf5PhFXͰIueVE^v/ҖzVFFR9Q1AjC.NL0︅?)MjFn.N:bNG,vPVML,6it,`jd6PQusIHVLj4-}w1 xvzY#DBdcOwQB_[1Buh7sÇ]+* ceBx%ͭ&@y~Ԃ)|-DgßC0T 5o 2D%@:` "Y=|4l2dN]~'hOу[EYC DS*}P%9;e3CA 2\$wuY'S'b֟]_QLjp`vIWYJ+5S;ro>*6ju+6@iq#>ݚKoK0-3o"3&%jgِ*'"q) 3&(U XFQeLL#'R'+ee`jSYަ n1'qUebX-fY. eT;v(La2BVUy4u=%-l၉oP_ z|Iz̝os*Q1nD^C9ڳꨆ,).#=3'D !T>zߝ.ʴ(۪/CN4c#V0dm)ivS3YFb\""Sdˏh!dFtgf`r?80먈k'~a̧S/-D;djw8J,NTE\PY449&rIC2dP(umf;+w%)?#CMr?kO~ivѾ*tN<#.zYy]t53822Wq~dŋ4da>؎8̪Qĵ]r$yV,sjJFj@tRi]Bs+3_VL9.(أBez2+#Bs'iUxa;yPB&\UK{u;!R,if=bDJ;^zλ,)D%e[sI\(OT 83+J#ȽHg%oul@SN#12*/"t&AUۘb] `(u2!44.#bn"~Qd[ ߶g4! #\FHz owh4/\ҫTm߷wnI uŷX%yTznlwӇ]wk9R؅&niŵ ۳Uk\8D"xwak89vRԫ\Y2e8DuD\r _GY};`QJ~k_bfͼ6W/s׵?hb[]U5ĩ>с_ZrަB(S;{M"ՓAׇg?1X zP$GF;1JY Ԙ/]?s֒S⠛ҮQYATsI>}fǍq;PDwJwNT"7YzR}CƯ.3#22@o1 _{R[u*9-Myh%TMky#WGȑN!s\_blϖlSn6 LLjM5d9::2k<8~B+zR't?S7@@T$ )aM6/+lWW2QExOs6mRQ ͒e#v;ϪY;6\=%kn P3 5ve+󄆙Mj,0/fAq [.e2"Vg:r⥲+ǫ}SpLߊΠG&?M 37pyDaTsZŖXOU&Vbmڕ GS';nDWܦź@P-3/OR6t&9wK ͔QB;znŭ2eONmKQ'pWgGͼH3s C ؏> +l󣣓a_!]ǰЭYB>1ÉCroi)7VT@nNxB}f^|?h _a%#Z1v^ww!2ג*7bzkMtܫaˎ- Dt y4nr3t`ɲen8buҏ : 7v]:}҃Ov>~tBCs$w#kF|-G<\ *{0;~=#R*'FOTP Z=%2{TUe{r0[< R  'w03UY tk,4n~1MQ4;KRH@dUw#2\{xcbG'D*&+꺸>8U $uM”ogtOdLTeHA:A[HL*?vD֨`xW$=)1P8^2}߀v9({7)l׍yIF}ы{tYB-uvb,n]Jne'G!guh&"dxJ.LnHX-PmB r}zѦRlaA r;2Z=tqG©|>4yd<3·t2@؄Y'Mkg8 oUa~!%(%Gcfgi8ŸY '"&A73C?MWl"fgduol3e#r\D`9>hݭ98ó{_vmo9)ʸ uwcc[Š)~8O!xo@]zP®\pLg@V%'7Qe$x+/̮U쉞sqwU[eרaՄdhnM/Yu9̷YBGz n^M?Q`Svb5/YJ +^!-%AQYe'{LdRHqu{G5mnvYL*]黳6yhVܠ؜=$U|E›NcyqrWrGcSEiNv7zX& CcWE{ XՆO^.ήcDPܲ6{yևNS@DhxbgRlt;vS>3uld'gcٻD'Ee|*ș+1&r3qElsUJ-}:6Vte#9$%t3? ~Ѩg t߱/Ik_d=.(R%@hc10tlx*=l.R4ͲOYh.v!t8 5LYRYȳRTsrC}d&,q["A<Hn#Rs=: UgèbÖ-=Ͼ% /Vw!5ZlY [n6nŢK d SD&fIv5a%v4lv(=΂["eדw' jqnwD6WIE;:AQ9vm l (*ٰA: G%3M\osC EoѣzG.%eM6[lnfPT),z,I 86Cxhk4$Ƨ7l&rhTO;Z-8)N)7t4;blReQgl_IŠCUb rn`P-̲iIQ)JڲRԍW1.a# = 9 PTY#2 {=hS#]xHClY`;i4$oO] 4NḒVC5l*ބaמng7-#|18ڱ^j1N=mŀ}.T>eڪ< S9̂{V i'k.(Ks>7`8D9u{¯s[4i@W :0Nn#VBUDhnheom_ f^1P $?܂̉kOA@KU Ħ?PhG|}*qץ|3n4f1HT54yeץIjl8oQ`k]58ĆTJ5pp~]8\c*`t|)X!@R6 (lbjI頻$Eh"[Py X'|.=>QJ =3+ u]yv\kh@r1nlGc.zVVKd1Y1)ʋj]Ps3uCs$CxNMъDU9L+g)cKq#Zg1i\AtH}_0yj؋j5+1;c8+rcd7g7HjX:MpS3P'C=h6QE[hm+̅Id;( gN֠Sa}Ӎ65W,ReϹdώ [%u3ɾIxDx[uJ; SgphDhγʠN%}a_4š.|&J_Ѷ1NV-4/Hpټ:ԾO5gU 5+Oi95Kn@!阹L$8ma.S³y횫l-ݩÜ8^ (ݪ-Cx4DtQR@ S)؆ٵ Ď[c'e fU&$ *zg]3qD^ʪ@0UhNB4:fq_4V7o`LѼh&D@i Ea;`O(h+*t3 "q. '&? tِ|\8%]jh: ?+.S49Ճ[QME~4i,Ba7ɾkBϹQvvgFe4tJtFTPr"st}o5[bEO4c]VbBvGpخrqԣ45! ̍fU)(ût`LB04ilPq"ie0? tBdyN@7kgM TL-脮bI^}|MDHZ6vOh bgߧw{ ƄBcY_1@r UJ"$CY&I8 '{TǥJPՅwzoS|_OSL$o ,WOJVs$$1/*TUw7461;vhrOҿQ=ȶe D_fErPd1R 6T|(T!r"=̽Pub/I 1*ivd1!rxi\иJ`)Rb"U0s^;[̱>Ga֑XloaK: $xJIʾ/F58,es G>eKQ =ޟ?&X;[G3T88.AYhe#a$^G~&)C -3xe"xџ0T|[VoED< - RXej` $d834JvxMI8ʝ aAUZp ?el<-8_(f\02Q綠aNʼ4+!+f`e-@'؀}Ma,aagj88v۽g,["R#@HQ`ifGx ݡ}'Yӌ"-ʬuZjwK5/,06]Y +GVfa=4l2Զ$k.Pzc͎X&w0Lc7j:#Yls$Om"q# xU$o]cY.IH*Nn,-[٧qW%PE&ٷ} ~GS}yHpnɽр.H#=<-P\Gœl\#1THU5~{4WFXZ;7*ܨ׷瑅@Vw3l*fذr76L=ɹYTO<5]x̬ D!p]qtvT !/!',S$Iēe0utiFt$y>LͪܩܦMNޔ]s=r2 ]Sɤ/#oFNG@t3Oɉ'#?e}-Fc>#,P$hǔ{P-O9ȅG &Kdq>~";*BVʷ)AYB!I]&3VHnк:6Κ)uq!H;_W , 1E֏mZ/t5i&H+wŔrVd ? d\Ëzo:S9uf1}-  uw<ֹiObn6."bo=d֒:yLulX\C~ DT%`2$jJ =ozAdI3܎8F7~~zɭda$փ؇<ǢJ馊 " Nכ fFdHfBx:naosc>v1AaNZ؏*Wcf}+jnGl(qhݏtaloHnFH ޾wh ʙoc礅߼Le -W%:;GlI,[y{b|_6TL1'ck|*/HkJ$Ѵ ^m&XD|&Dnĺ1n=F4Et:ST-ĕ~m3z]`jJ{&bFy_~/ ܈!cΧ< L2!hUFʓm.׬xC؏9҆yt?j OX 6>?+/nhKLjo3{N9EYÝN$$2PWm"#saNElb&kbY휋fulڱ&dT2߅p6b@tB*JG. ^Jc'G,7ߡK WRC8P9v.qn{wk8Yq1r$Ak,fh:'nof7U4Y7}0$W[Hh7BtׇU#7R?VR-fl8 v4 CpEŮ}*26f vhƗFw5/ o[5!`!ص ʦ`9}G NZA@ 4o/h$X+Q\*6QNRZfPS%%<WJ #Vha*s.mj:u u?:1(= ~ya]`RVϚl1|\{s ^^M(T:P&D䚊tkh3:͈7Ռa&W?s'\ j+¹]:[Pߎ, 2uI>?NCe' Bc YeCUvlQotR$8=8t7f0ڔ}!r}B:]gb0zfMu0HʾhZc+1#fe` 9 lD=~kf>&h3XcqAVo]Wb4_2cQar |p"fƛ1bAW$b?|Xê o0TYa3$E/kt!pPa9htPeWO>w{&5γz?z@oF[Z.gloXn1hf]Q_!׭:}g|VRҴT7{eRO)pe*] SZܲ++!( hlȐN>b>C~,vISUT.5UZf1]Qŕħpalji`GnZZ6&Hq?tА\AF vgs*Te2;p$} 6z2_0Su\{4Mb1Kmj~;. !c/zȍm%x9GQD@S_-|kx~5N1iZ'֭u IۤgX\5ׄɨoV!&uЇ{IG֪ rڐs|ǹ>,SDJ5IC N)*6c'Ռ1j:˲PGP ak-_'907035S n'e 8k?O &]m*IJ\]D7,8wϲ4O3FH)GeS"_[=Sxh{QNJ:տ)ouU[W(~!V\24RKBvp ŝ*e`5lcpOeq03iҁ`9]r>eh9YamSKL!yCA; ߞF cX vjy7U=cxݮ.IZU( ZZbZE|Vl7+V^a.snL5\/dPHZ҈QGΑ!3x1 ]{\%'k JzfT޲&Jb|EъƎ#t0Xִvy6BqEo)F N;6 )W+iwB#oX&LX^D{gYte Ի4jLY֋BTRi&,K\{Ob] 3;#G٦G5m `rHF#&A`-DJT, gFB&UDZl;gKi)fD*xO!Dq6T5TɺbkU.z*; k}9q[R:F:1KZcnJoxM)Du Z7+Kl`vwܛ(j0Xr l ML 4Ws7:\ 䁚Csq[2QfHWbg@5Q=eqs{?q2̷r z47:n82[jZ5M([`;T-7$o(Ƒ u?)N Jb -rIhb5`!i:w b5%ϘՏp:V3EΝ84Ti5p ԣ <%L ]eU=3GZCvm!.Ȳ Cُo ccY=HJcёрm<- d8oE>_)CL5ucnmri5 Lf?&|t(㫌fQ* R h+b]"1љ 5>,لf]eBYmN%af\u^F5%R{ee\|%Y.>SFb"B_rH :+▶_)v,, Sf6gsa`vCP~+ޡx>\D] M8ֽ!4Oi9 GwODu^ͅǑ9}2Fզv06q?9f{̻T~FP)C݄3N<QrHHu0X9xeTvf_L*ֵjr߁`5 HǑ :NwHA먋QtKjxn% yzpa^dQ [UA]S\H'yrƶCKx10W}+zʔK|}ЃY2ɼ4`)xc-h#nNߗφFOͣ1{E;k?6R?6iWe&u*K FމD߅JhӟNo br$d@DŽg8 i폿w',.VHd5 _K!'`'gL)Zp!m3u7_cb0OԮw0h{{Md"yi=΀]t<%v OXAT4[-}ȆZ69ZB_nVeP/(XN_H;{})b)8Sp`Lr4G1Ll̪oi͈S^<K1s$5w~bv~obt )DZ *>KMzHCY>S+L. M}p)wgvB,W}iSr$q");H@yd2 rGӴ̮+p"nά5{*XHUj$bdG?Ο #NDGڱ~MZ;1O@:>ozL S});Ҵ0[o|W9KW)!SLB_m{ZMcb"*ktXL ԧ!k>ڑM(7|$ԛ;LKv;pg(Dճ+X[l#SmF'hrv{c"VhhH.y]\\5rF篿WE:ri rjc%Pn=5/|pEoe8 TmD{"ZI.3%P5IyVvqliKEV؏`)ou\I̱(.JsUs:3 3'In8D=N&sltt7!^oK6pV?p䄌^xq"ɯ8rQikVoLX[8y =ggLdUv4Ύ~^Uu:lC{.E%ۅPel]HOy Β\HnSӫ3s_\wL )ȸҥ)_dJ'jmTKzF t%<49:]EH.!Q |9BIˮ[1tEP;!TR-Ox/ȁZpŞS!\AX {6&WC£1Bd̟`t|u)H>eHv׹%4.a=)5^Rׁ]#/NuĢ)NSP5~"/̿qnmYYܞ>O!o":k薛h_,'/k] TUiftfHf4Ġ'Ÿ{'IF[\3;?좿y`#!WaX?Z͑-]4g3f4H,ԥ5|ٱZAN;Wi`L1'gzNXU: b~$wo2iCi"ƟnXA>2^\kGI08*;)IL o*o7d\E"lrr$2gus2CBsIM1՝t.4'~7"=b!q%MPbPBX~\S 7nO='1C8g@Uƒ`Mn 2acNkK?N:{tO}-Ca 3CY%:zr([Cƃ}C{&U8`ĝWp1q$K.|bRɄw`ՠav\ wQW~HbCo3蚼VVWsa~hTqũqXaXjJ[ߨ: A}<2kh)q~%Eu;R0}pTLB=Tׅ*J%(lBM` ͢: RޮnDih904,h:b]b8 *sTՏ)bb:>`WJ8js:_y\x(.u*'~ ]%rJVp1gh_xl5POJ_(f"jIn:0Toבyk&,5\x5B ϭv_i%[:&8ÕSjUz>յ\fZǺ$E,{qc)Cߗ;2F*&9VAmVd%Ek059}#6:NҶSu;g`L:dz ^GOn7!E:$8< INj3YCg.إVs;jB5`C1=e^+{'==߷iֆH"1̫G< ) *B?ϗr[qH ވ 'X@&'<%sgX|s:x:ilѨdGS) vF393$^?Ntq&duNYṋq\TKIU*,UP +坬*<0.Oӹd;֬TYm95:A ꝋ$zhWіm"ر8=qWFM̍zeWq%vLyh$\vӟ,&.r4>Ty-!EigJVAQىo̓ `&SuD4y[]-Lw.ZĤkD8RN}cJZ*`Z ʭߥE: zMoQFzXLbM@tA|#2ԛ'{;oŞfZYW(:zhNDUc~j$E{PslUn+`YIH;L5dž3{B_$_00(ںW6~=)P,KMK˯SBhY2UG7r]CEѨի9%5KۂjI@L V0 )Ϳ8:۰#*(̞ðB.kP7Ʌa< prhBZ&dlvs "SjM1NŶM,88}ncS!92E7߲qw1T5d_AXӔ{HO-#a}1+A@f ~%؆&9!3fܭ.Ɛz0 Iz 4 BtS< k- 9>δPͷKc٥(^Fc"sl48?ՌDohffFDNl`Ns+hdD.w|[bmx!E)}>C xN虙h*nz. &;>|!q 4qNɆ qJbϽu"2bƮB fcMKq 4+H"^\rX5H48aĀmg8d08KqWN3B]D0Ǧ%}3j⡎U}Gj (a>J]JZ%l97)< [6َltPdG\C?gQ{ciC`w׉t )\w!WB̝H1w1%G7LN BZcNH t^%qJPqЀyxPNy mfg X_g@og{(PUT8,nh*?}ϾB {PϺȁXD͠?ROyFR)bO~$tWQhKRI757duD46>!!^]2{r\mOSH>1X_Pb, }N.!oRc4o әލ*'"挹N'z61;KŃ"%߸2ZO>JϙZ~:K,%ƔY>c]\06sT{_p@1Q)Kgsd4+=T]XVZY%bKQ}ɬFu&gv)-Q;<ٗCj;I~oiry-q0):7g l583~]jc&1p-)ɝ氉tvwװg}JߘaH3'fp,{GM!6Ey16ڊ&}DUGh8I#F+FmfTyoOSb) r1[aE5''Pm ŬO>erkO)6߽:pn%,|&7t[m+\8@N l;r^jk\B?#CPj}&b,nm([9ɟj[7)~zKi|q{``g۪K\&D#V%zX}; 6%8 n0!;PbS+U2(6Øՙ~͎*uЧW5B$'44y"a3O!,ȑKfw.XkbZ_pku< Y{M̰L V[Vhr0!{R"ݹҸ%b",L@c>M!ҽ|DI4,q<_6%ut?ұ d/ &ޚq>,}~\¾]_R!В\y`an:K&ŏ߆p{4.#)4.Q: [+?8x!8Z HK4n1\e26CP)h84nZ Q-LeV~S \OvIoIznD:\9p{됩Qf{KzoKJ6U]2_JV*sSA7h9'!w5*(fM~#a=vdm*SQY}95<63wNf7b? 4vbeWLRhq؊ )2-3| 򾺃hbѲa"! "p;GXy+e(RPc .˙6ԕ+68awdNh_C 4@R_w$uz_e8543Le`iA&7nԣ ެb !j*bØǞLu5 /KB7 .{j*X+%3h:ۿUSc3%US%bpT)FSzG_w=L̺FGgh8@wʒ$UA;۬ΎM1Xo%jN}.F^?cP< }5f s #[qx.FhO>sj/ \8 lvLa>?ڪ P"fuL%y7G EdO|$ K¦Hgw1^pp /qZ-eH66pF)}XOV ->?f{cjQK;v lsFSrņd*ȆS} W.*<f24@Bcz:2)攌2z[BԵz/ILo Xaӳc"~+4E`h-@Ő<{;y _1 l0Fﳉ*N,G骴?'ĥ4"tzĩ? ^Cn ";jY  x6XGVJݰ0~9F*ˤWDS#å)y@'V&}P폍Ƚw*6Ii(B{ebL#(A-؇(EH9 rg!XP>ELo_"G#eL:C_6oeCXX c(s BE-l3- 9wl̫w#d(/kɛ#% NPmcqI@\jJNڟ'+b4&I>7,]KB=zJ 2ѥw mH~Kp/CXh( a;d'3kSzO Wu5s`G1.1S6Iǿ߼-?|xx|ThS/|"kKגZ[l?Q^.OY؟j^۟/e!TDug~gtS2?Fiyg vWvii%\x7n3աZ\gXc~3V7lA!ong (<}~"}Ndj43ͩytK !|)} k{O=_#Z(5 0BG}}u/ݛ"wپ޷L7zG:Q>P^?oo)SR'T{~׿?YGۿ?_E+_Ϗ[>(ߚ.ښn9fX_?/oo?}܏?gtm=*???/~|v?o~_? $gG?_~_[GFDUvo_*/RNgkoUIi_ʗRk}'+]<!/ z޿_B|//.?Z C;˿-ve;fU߾wY }eIr+,+̿notTC;xF,\o՘p7}]]P;Pͺ\=,P9˺|#.hlfK~sJWĢake:j.F|ޱN 5q>ψz$#>o,>_ۑ&g9>=ϩ:k_Udk hx7#:>o|:>ou|2jpD&SH kI'NMhyf|5_Jx|Lk95-p:>~NOAo,\vZSE6~=7>Nyּz&Ƃ$׊0ײE?5|4㱰nm3>twfB׵ O>K}{'p)kYX{_'_g!*׵S* $b:,f ~1Iv}{̺ߞ7,DOO(ά; _# u~L3Ma߃1 2yszmg|ۃ16鹧&fwʧ` ~gœ4zer؅r'fAϻ4_I~ Lbyl|kD\g8fʧ뼜H ">hk]` q^msrĠӘ{cȸ^s08/y\B\O~u^.Lrպ˕uure*_ϸnr~08/W|K9xu^~V\ 'Ue['ܺK/ crU|\5)=UOſ 5R,n/X޺{ZTRgkqR,[ׯSקtgkvgkk;[K^ϳdi֢Sl-y]֢Rb8[K^Zz%_8n˥b_`^׳u?[K^䵝%Z )rngk+r{=߭EZt֢wJ%ZnkyKz[Jz[Kl{뻵Tk֢n-wk|vl->{]2TJճu?[K^ Zv^gkbbR,ʷ{ߕb[ fo)f*RP[J3fo)f*RT4{K1SibRP?bC)6P?bS[MZo)6UjTbjJ1 _ZRLW)SU*T[*Tb*J1_])6T?b#KS,O)6>b#KS,O)6t>b#KS,}O)6=b#KS,]O)64=b#KS,=O)6KuZ k;PA^%kj|UyUz彶8PI^u;Pޟ>ρjZ((ǁ{]Ԕ@QyJg?x灺z,ہ-ˁt}z(/@y~%{Pu e_ϋsy^*]Guyyvy^W9O~bG<~ˁ\oy^e^;Bo=^gP[Y$3 MNBo=^g[O%4[ XBo[%4?"N=m|A{>?g_Р/m |Adtm?@Q_Щ/hUPz UݪvUo|A澠~~Z._Bӏ~m?/ܷ~ *~*h7ѷ~}٪w ş~&tPk N?^spU~5G#/9J9xB$Qssx3zFQ~tUsu𔚣3ZK0 ~ 6یϔ]VmksxNzj; 0(ͲjLOH'OC?9M:bܸgYGoex'MGDgrY^Qx2s NzTyTx'c5eOa( 9 {ur'e[8 ]n͒> ;WJhߜ\F /xkPoϷl]C0>Q)N#ySu%mQήtl04[Z=NZ]12i,VZ&ߟs,L\,})&zhi~zh^S\BT9$U }*zbcBߍ34_s?[h?^fi yuR',I;ɐ دCH#[2}ўX_ﭼi/EJj|kWFktjٜ?#܄ ٙ9[hQi`k'W$dnzwa±V9Ozw+< 2&Kfpfb ;z}́HKݓ S"s̼v|}͞)pi9yFM6Ω*GMߖ eyMHjoO߷ˑcUx1G>Ӫaƀ9Q,|߳O52+ f}vWڬg|+\WһG;uE޵G2cU|7S=]*o/`~L#T *vOR_hά ߍ1ׅXpy8]8|aN3vO1+`0>Ԑ{hqZ%3}Um*g5'T?/u:O tTbJxNf#U֙qdqN/WEoVM;6fXl&͞[ygӷuc~jiΎ#֯r``F4 * Ήc2%;lJΜ\Ь-փ-fh`z$K{ݓ% 7=Gϗi"Vy&嚗~26]i+<%jdISXI7gf#{EE96,S=ձB<誑҉,kȫ󧟙8< d ҞxlFL`uǩ[ O7¬N Q-٦ߍG?iJw\ jy,c1 h{F66MDJX]<#)v!QX &^<:6uyUO;ga⎴ rZtka%y9;&,{ggiebu{QįH`RcqٍB?'Z8_ T~ف0Ձ΢V&rV cAq70W,+qaghWb7}_bOƟTQ™ZbB[L-r[f甄nut(>(rjX tVW_:ʼ@n㴂lb."SQ.NH񗝛r?l8fSLGxXK[`MѺNcY06"mfC>ߩ)c*/K3 t` #yһ"j|[+ܨMK kԓ[i;ޜ&A߫z5hBȅΰd̚L?;` >OnU;R[ǧ0mJ3cT¼e(3YLT&a;Br;VRm}&HqP' ̲{b|*IiWطڇ{#ɋ!s+ᝬTS6AǠ~5osdM)pT 3א/h1o}gYבÐ.VcHp Hw#ڽ`!:!:\Lt=B9lV_:g?tZ-Ľ.Y&Į'~$Rռy=Rz,c`,A CKRIAAȒ< ).\\ Ku"N9?V]D ^}i$jӷ;)Dz|{'YQ@Er\ CC 1ǿU;uۿ 5ON]t-lʇ(mω8 %QVo$Vu V}vp4sEJU@0~fn32 d?:ˠ~v3GF{GAhבR5Ʒo 죉 X,kT gY@ nimkLrD/'Ɖ?gBdZI;pܽBbD teB0(̰0H喒S485*UtT$(1cԛX&jb^LU"ό" v$g~83;F2@ `?SZ),&WnI !mPʳvy FuSf"Tna'}ޫ2VRϟ3'f" $1ĄƓx qeX:祈ߋdᘵ;_ q t R!#?.jVpwRڜl\O{슏 ߺ)JdE#ṯ60q~gDH'B(E[&=BʁuLc<^eks/Bp#[7c47ix2$OYBBگ&r輨~J̖lUI|DWA& Pqu[*|Ӗ0x.:hRn/8otXRH qOxh aUfUм.w+"7 ]bo]nq&K=WQ B͡ HF%+JlriI|cW^4(K?o;R4pvMBSkUk"d:>'*Y<ټAIow2ml`)!7SzUe5Dka1v׾ycePNYOنj:(\*v@EN Sn P4{oijc~Fi ̟ 2b/$$0c0DkA~ȘOb&R.Yo&a`v=8Ea8ku(Yt7V~U N9*q'Pd.(iVo]2^^UVϊǨ9еžHKwSdޢKddYs:/ Ggs87t/:[ESy[a[q^,R MO󇅕c}\G,Pds3*XgasQnrnoڨ<ٞj675FV@%u#PP<Ov2Dk$Dlf;0:9!),[Gq{_Q;1ـaH}᷽׾fb, u##3ߍ"AsCYGߢZMuBp/d#&ce+~GR}v[Vb"R|r դ„"ND`; qFMF tld҄cox!W&jFJȗQ Y=Dq^e}L/ڑ^!ϋrW/ɵw t*խ#oS9'4>I!H&4~ +;"u*7zefwwFsSa}[4섖*>pFS73fu*u>u[|!E.`^ <'nXo|QZ#7^Rq1`פa 71C`|ҥђ@ۚ.i.h?mor7ִ Ҝ=S ̬ONtS7ƂFPqX%vj4[΍ܭѶ؉❼pM174MK%*;3[}!* yGueszPG 5:avڱl1񌩴T9F{;9k9%]3“);z$w ~NHBkutJ@hϣ``BFtբ_3%O: Dbu5p9 33eR&EIڑV '& $TRGTnS*\fm@G~YvQNتv[|߳0cK0psdPGn~ HB[9& 0™NauUSdƹ\'j$4%kBnDB:r?CǮ\= s8kdφk [估sZX˝A-`CL&kiVj,D”kJWY."’MZ:EJn O8ڟdcrcVf%~v & OhOmȢZsߋ}96GY *JI8Q` .VEA6 Ԃeh^:|T,݄V4c 9.fa v Fy-0F-Q +R<[RJ.eLؑZHY۔z=e7SrB!1dH ڌ)[scbHudee [5! S/+TOjpd8- D G&l"2yMa dΞj"g3VFF1CL1s%TkZL9gOKv~##<6mY14"y;4|owl2 P}Sc|"hܽX nyH-M=ıYΔM+1OU`"-}" jE/'H}hǟUŻ`)9 {v GSۅuZy}3~4#K 0oO6C8t4+ ُDpX!6iӴ g;ȉc5Wxi<~^u:Tqj_MY ˴G!ndAr_..䪮|q'҄5*Rb:Zc3>TU/;E_T}HK(]u!Xo*n 硇|r^c㳶 $ʼnn}}^&o4f򡢽d */&9<8MSn٭v+cyt:/IO d1g6֐# ]սO8Pb *+u| C^mF"j0sbW13'ӕÐ$lZmkްwv|rHcnB ?GXiffE͑1HLXĽSlڿ[g'"jĩ !ڴpxg_%%i-i _{OkP" 3G8 /y:Y27l;cboWs7vj؍j@`p}aLzg_2D$ _;W\]GӜOû40:Ie8at֔ RGag}A;IuPR6a4sz 磓`) 09c4SĂ=#|B&WK4eL*ؚ\<k+PqƓvRd4g>rBxp3]U\2nLu>}0͏X:jЀ̶D&b3z7 נsY&\cЭv2i8Ң ϭ|Gb,w]dM(Qsr5 zr0Zu) z7f8zÐQdG8c0+5v wcԫ `Q7aI&:u2rW5mwdOJ:9?~Bs/'<#C$ {brSAk in)-B 7뎋㐾N$wʈ͑yUWJ1ߘӴ!vU$*2cQ5˲O!v֔{瓃'7*tT#edʞ+MyzFB0U{#M%jH"wt Xf+1(ޙ2eHl ء$o^8x'g^tjYt*Id WS] a[ v~7:G}2wçi8;IBwTIZş쌚~ #C+*G6$ (#^PJB4 ƍK v>,t@U;uH3PJpye%ebϟ/uvy)dHbRظ?;~)-ԘTYU3~ sgvx}5 Kq򷵠v3<zF&>"60ѭB;N(,|-4 pwt>,8kbe:x=Yݐq yj}f:kUno݋u:}Bt4&g͔ד5ЁjL-+]#[iO:nF\+(*%aO7O\W~vϛ=.hɊ|BյqED#'E]aeq5晹e"ǣ8͉NN ΂z'Q;9oV.RajY.ib4LI~N Geh1$pž[>wYW,e0LI{5[߫]5$ Ɉf^a/LqM򾓍}ZH{s*v NG:afe$\El)d%81!)*{ %H^oބPMj-ڵV'Hwx/!T8 _nGw\3nFpҴTJcO[F~PʟZ~& MRgIL+&DPi/J⺃U(4KU`ZM')$ު BoĢ@&*7)1A٢OB[RMOWфw;fcv7ℭ8K /wI`ߨZjX;D{+)Cd2Ռ!Ȱg WܫPLF-|}-D f7)g{%[صIDžKkam6Excwq>])U#Z8siͰ21-\kɲtsn9,118K@Kgbr r8[C&O3_oV#M%N73$3t޿2$ ºyF0S8״PxkQ%;p̋mrޗ+WB϶7;= Re{ S3x%ћVeHCCw"_:Jnq2>}4tJ]'g%'IU/=cыzIk3"32|tS+';4j﶑a5C ߨTuN,.Ʌ>N4mrT|z;b"N }#9Wdl<xQD-m݁jp`=My{lm)8|7U6ݢT>1[^dPw,!Sg*wM t=ǵ ]͵z:{m, #k")[M`L&c ban=raP·6+٭-ꂫ4Mgb)N NQDS<'|qAe`ssh?:་)r(8԰;:ٕbfn\T5fI{_ E>um[;88W{IDԘHBNTKBWrЉL$y}N 2PgaxR9,w?vR.svwW)qcz/4bЋ?1忞urYC#@%T~ e2:NTnsoΪ,}16'Ő$ܬ^9ҫ=S*J?u-!p yDo`I;*}\A C&=xPqp"jkKc,]& >RW-ڬSGﳦK{4)1D!*6O3)MӁWZz f}Sq Nc#OjoybY ̦a}bai1"XW281,y$( 96#w4]wbosKzDJf~*;P;گ9\ˍvMi6!jBkum=/X}6 a~AD4^WBFQk" ua .&4gyG[*_ S"Ac''!3gU *d[5 #5菴b X7e#OxN*}uTt 2Ehб+s[ߍ*o]\TE5nţHҴql"_Db*sjBYbä:ͱ :]CLzI+!r_ڗdut1C Æy]=4 c'_eK]Sv`a_g%s7[Y;I4ӅP8',I5"'] X3#_$z_KVN725{rN|_Tf*җj[o}vrG}Em''X\ IOu3r{t2a0ю0}kJψvu̻. g/|CA"å7Gx&g[NbBz,v>}EbqZ:>Md٣t:Zhʶ=~P]5cP%DsHI'rǗl%|s26X]iK9I_=,rZ[4{iגWOș 7 C;\9&>T&v>:&Ow3PTW|4mvQD.|z(Yb&E +dž=2Hf|Ζ>cF7*gp7ޙn->C87 ~]WyD43Tkb;IXVQV7t@mwmK|~hL"[nrB8[#5p򂂹Go`8ٷgM 7G32gW: - 66?#㸘! 7o`xBЩ#*M" tuIJ )#4q7Jxu˽v\w/!k; 2`R#}4ylv t,e{QzoX6Bh%Dqd(l3Q1֥(V "[0qOVq Lwp3Acv %6F2>686 Ɖ[ٗ-()]ڒ|g,"&M9kj3W[R, ŲHOel611^甦v2KҰi"*[U9dh .kѲ;eי 4lEuTwr,coI0TkWV*mT V4xyw iF( u5 (vm(9o|~vhq9a!޺vŰ*ðNX NvZgc3{J^d2KFG#|i@feEnγ1нJEhZ@i5Ȧ2*j}ުs )[q^]X#gɁCv#>\h hn9:RTi2p/$zbt9q1mdu"t'%vqjB2iBɴIm5HZ 2<&^.ՓV%\xH7.5xx>b L 04|o>/],ݯ3I*@H{0Cu57whY{/`+ ;bdB,B"D| ފ;R;-.[`pg9<c EoSjɕj?^WwT3në+!1Z8L~:/hkCHm?uHq #8bZKѰ_ifl.#VAE̛G]n&*:mԓ%S+Q].Fy,wͪ6qvRC7.4(%-9 O:1m8Enh3s'ci/U#k| K@[H *B7Ґ_Ù0gXb'=Ϗ[j)&1%RfSfs9C'Dl$%3;^GQ\?eZ3ANm[YFEg5nszgɧvɑ[b[ϴhL;c}ŕ|&FB]#e e31OئdS'ŽH.9bdy.&o5=Mݒ2Șɐ]lzs:̻#49mҥ&t7癲u+e~- 3gb("ӂ4u"&^}~s䩨m:m{iK %΅ *vS4%n8?2;8:8bvRT-.Q YۼR |z%ˏo3=;)#ωr+ .h6Y*׀O ~pzo}6ᯮlTzl1G%@FlEbȅ2xTGΨUT T=}y}d_KIXKq]{a̜#1Ȥt7NP ѣ#nl'#F7\NuSٕUu|\h)p\IUXO9V2>t^A)jQb)*pd7O[X%s+:L$:c3ѡͧHPun4 PST*u4]Jy65pNT,m߭[qPgr}yP]G&՛-S+G0CRk9rZՔIMH'N t\u0)\cLoWo's^4(: w  I{U!ӌo awn2-gM _< % vĕqz-o{P:/ !ou%-HV{x߃^ZxtI͉0G&Y8YT W2Cu;<QWNHഫC]59{w IU`(j UmgC3x*#WEOxPjM]DnrG7dE*b)kl`4vy+u/gD,c7}ݱKyᝪzAٗH2 'pW#IUnV38fȾhnKXv$"\\SVTSj8J_rZAXG0"d뱻ACSbg#Eý@;n^9&5e6$?oa|6Yi^vxJk>̐a*lߴٞ~&-bRmW=3MAD x VK 8 #Ƕ[Rp|RǗFW%bB4dYQ CRo}E=9{]7Qfs Ciۿ]Ô: ^38=֧8MU8]j³ & 1LF7l3vՅT$ʁ!]ғ,+ޡ Wů@f"KB|t.YϮf}ʐ8EdТ;cb2)|+8r.=K;&Nʹ,J&*͞D{ р"6Qv)6x6I!*z ͸wZszc<߾ҋ9B! -` k%!wXRMPPkZ1|/L.dyPNXڤ~ άj[3GqevQDe龹$5aNgA*Y`:3=M}(|SB= +nX=ys$MҰzB{4re6Ϝl)!O6n&Wv#9Qhk-&`h]OP]c, Bt¨:8O~)[ t]sh'Sevсpw7{@l@GStƏ=&290F:㰫as{h:U5lvsr!<=MĠe2b"đVudg)/9٩a~ tcFט\o !iohv#KF"|Pr$u׫]/g:o--E s r.1nKmd݃+(Svߨ7 z "te\ UɐT,%WyYUb]Uj=h61=IϊS-5/UdiNt;.b=4b{b"{9{շtn⺲p!(#{eOMy:!?V`ibjuOo$1XY c"voLK#}y#j=|*P~^9# 6R$6"֋M{S]:4RTst9&m݃v2Ss\iaх2{U!"m|VY9g:*h&$=$ՇK }b?9E&U0ï0zIu)I3 <>oB*ږ|hmX4d\.GTQ99E݄hWʔ|mOt DbOyL81jrM9tz4y?~5s¬D6Gʼnۓ6UO>6ݐx?oɌλ5\E:)_[a*b$vܞEhI3 jeq(qwɻfF;M=Ɂ .NGB؃"My9{*GY ahT2 YpIty=upv-J+Fp#i`Y~;kCc9zo<W}fWB7N_Vt5p.fu|d>12n&}hs+(!tM| t¼ 8}7{r vYXMo٣_*tMU'!zu$>y?g1V125+>tjP&K,yJ<+K'B=-Vݩ8+_BʻngRN7/TRGO\bLQ8r+kjvvʚNbSfSs[O⋢7i$bc9js>E::˒{|LH빊'L$c$M7dhWnu"a|>7CÕtvsrtٓK\坅s 63`޴lX={+I35Noj'+LJ=^hQc~ydkɻZ|VΖM W!mH8p@-8igD$zY n3x=ŔH}^U?,c[ T[3M5D5c>pU&yw^H~8/&XP}E(ٳ=.|"? #]WB5ղ3t:T5$_tՐ3HPKkR5Be~LYi8Jub/LΚ &_~U>> 0|I͐rjq`i4|=P;%X QI3>ȅ8sk#pMhy#E)&:/93$xns=ʍ`HcMG9[ Sfb`,b$8qڮ:*}LN̔ku|MI6i8U,)&]y=p-ڃWc#Gx,a}iNdF*X$8 $~rUp}ہϭee $%DUI7ү8L"\TK\k($}u;EF׽"6vItMM8 bpil*r[zop&nci Tb!?ޠߘd3O7YNng"%rtO97_K :P#k:&L'G 7B2ns6Ty#{QKQGS.8WU 1G0ؖ)IR >?ջB*H VuM᫣ߍ[zhDx}Cz4iwqI VVr Z`QeN2zeY˔ OuM| ;M?`A~$j%|q܄sW*z>W9(rTafA2k݈i.L9y@‘,rltM4Î[gja[Fay%oX7eb lʼnP&fգ!jZ>M}9ʘW˙tX8lu$oXix@SQ4=:$0٬GqT#Ui /Lql n<{ro|DړE#2mjHʇKwY/*2;/y]=l!~&"Q樟)l56"KVU FFp+{6zE8QS boYwq#s3h2UDU2}=wfdSXxM=Љ/y]4pL|j:y$: '9o~h]U~ [ֽݮQW M~UJ|ݧl/2>*Eϐ9\n.wJhRMkcnG GҌXԦvٶf5ogס/׼-ff]+ jaJ虅zcra wL-JpPE&fO͈ӹT ?P3SdUtXG~peI$pg508w|/H[q-[Ҭ6Kͮ.:9DB[~QQSOe )Y%aNvxjW~~7J&=I"Og]r ~bRq:R-buhnqAUQ;[eFFڳ4}$MY MΛrG ]ZϨT0Jw^~q;"Ys%Qu@μ꺓̭r #G~|oz7Ik7@F÷/]!: 3umʰBopg'%ܘO2C0#paױ W1x?y+' (H?*fmTidȥ9PQyd!ˀsI#vWg;7D1`wOuO*ѱZ(D[g,ypmNc8baVu0 e"ETQ_W!PvTtщ@!|THtGQ?0Q: eZ8Cܬ4Q]A.ܬx Vm3U|q'7gtߊZ8O /i&]VoKgΐcX:+i]Mh!XjfK]sg~QG )5DR$݋\:"TyUqF Nx6V r<_q`ЂLų+\l^w;\Cf;`mVFM)hF0=HG ;$Uy_QnƟkܿ]V *D:q#t$KeG\Rk$W&\;HۺVL]e-VJ!0'Z&vSé]l_j}dJx/7xBdU2ܹ>2L3NYpA ^~9jQI V&IX>15vt ?=So^{Ûĕ ͘ش8)蜵jpdߍm-v8Z%p- y/=.dgM zهo{gU#nm nϪ@ Hr0VfĦ*Ifbnk_ʝ5tBޠ`X^ЪCfW&d 9>zVW6_ =}bm {')̄${q*h;¼O! =W!9꘦Z eN3Yź6kQ֍ |<  ݐhN-i\cg"Jlnh\ՠ~{^r:HO[xD.q"f~7}d33y9Jq4 0N;htzU[%7&6#EVDݱ%osW6_{0яFϕS>b rJdw4:~ῼAYΦ*?JkEhMNM=c?K{xITϤ0J#XWS=⌢Zq7{DQ'2gC>y $rp&摣ɜgȯ8My0a:NfbV8[eJ=p|gO<ݘ7ۋƤ7WlQX6 S.M}cq(P4= :TĽ@to.ʼ&vYdlV^_% Ѱ *v%5kr1eٳ8}$N3;f崉.SS&<+'k=f&#U9q4EdgiU^h5fJTotC۹uWҖw/4'Aq &ϽS>6PGBcD;:x@̋:.d+׏-3_j@Ƹc67Y\(1L:ji s/%Ԇ2KԸ(i1Ȗ0 6 sN-D0Z4kgP޽_b.?̜ꝝ4Q]L`?.dmOV6z3dXdF &u{!(]r9Uhξ /ИŃ鬓`ϴ]IPvJ>"tHy譎u"[C0FS;0-Qzkb؃Qm^/)Bㄯ 0|6Az!_!k$G?o bh . y}]~_xw{,e| 3L՛xg@#i."P:sq]X{;5/لkk%#+k *r<"ݘ?)MM CC7&„w'" M?bĒIbήĤdGMymBP2dɘݢi}?s2kG4HẌ Yx/$6R ,du!Pʾ2~AMNSg'32f>K͞v|5 R%Q:n*:ϯ'98h3>_21GȖfXEN7t^ 9{+vrUe`F- /Rcԕ#;=aCN$t^(G0?~qb+Ȧp.U &ˆz+ųݱSU@s#Q'R`_a25>ԧPWqjy1`z8 s1x%3%ra&V6NKA{qB`/c*-+#JCdءk*XZCzx 9j13ʍhJƓ}>Q@4j^N:AHȡfpr֔,u VJaԘu[M"ণw/7RK V{ FgG~ C=rE܁E qD;T14!c:Y@`̨ S%uT#v0-97mI)x> .&=4UO묹lzC>No9yVkQ]7ei&cmWL \|ބO>S?ArB>r 9\'cXYJyyw%;MmI՛t{% 2"1 3Sbw==K0(xA+3Wr;L&:m 4N*¯q$>s9'¾>$t蚘DOO)6RѪCئ,]t"DR)mMMBs ;R]i/'ŶW|2Onon?rXZaS5CUtM[PVݔM/"]p"twaG:%eQ.,  R|Mv HvNg{Dt*(L倫L!&RƜ8\"`pia_Tl:>E;#e} jl EM9b[NiL(Rl,۝`c0Mn4e>{pHNֳe⑵C]#1 ܀]'KmwH|O͠i~|݅N|`e"Vu>WE11'L4N3:Pi}҇LF: |'[M=߃4<$м~awA䭰"B"dy޷f-kbTɷshBOk"ƘW7Nթ |I %FW_3Mi+n"ߥ15H%aN)UnX/ #Ö]CZ'= qܞ_!kSgqV_4yCTX1e[3 h}>Š?uM ]odUEp€ý?5L!:뵰B3>zss;Wtb#QxOtL-MX"fkIgnA'4I[x*L3wgp46^)>IUwcY*?^ZEF%ȕ 1K&"}qJg J*X&zda34Ġ2k4Ӱt%>ʸ1qpK?Il[Z`J18uN8 ] s|X9]\T qKIx$;w!'ס`|)0,9lôC;˞HL,\/hJ݅0w&699Z8#=V̹fahkV4KƑl<>QqeLz&S2Lu 8v.<1 "C0ZY5[Ï:-4S6/#ELAa 1|/Tq`Р& FFhD0kkEF<*)Lٮd VTOT&I8n-bJugC2S,QN>skR_L1z|B؄P-$i]ɦ0`4wia@T8C+cYyQVx y?>hPg" =k#-anɁѕO 7spJ(bזxW>DwR-u%;}M.^7+5yʔyCd3 &dZ}̀D -pbW!f!(Ta^lH̔vt":$aL C8RVU37{SZ|;X#7_[ȓMsCɲ"\J ۼUBc:a^sups3gi8;[t>msIwּcrI6707/#c]`aو#UulCp|%#Z9]$qb+03VܧQ#j5퐩[, '-lDD<;߭?u2 endstream endobj 37 0 obj << /Alternate /DeviceRGB /N 3 /Length 2596 /Filter /FlateDecode >> stream xwTSϽ7PkhRH H.*1 J"6DTpDQ2(C"QDqpId߼y͛~kg}ֺLX Xňg` lpBF|،l *?Y"1P\8=W%Oɘ4M0J"Y2Vs,[|e92<se'9`2&ctI@o|N6(.sSdl-c(2-yH_/XZ.$&\SM07#1ؙYrfYym";8980m-m(]v^DW~ emi]P`/u}q|^R,g+\Kk)/C_|Rax8t1C^7nfzDp 柇u$/ED˦L L[B@ٹЖX!@~(* {d+} G͋љς}WL$cGD2QZ4 E@@A(q`1D `'u46ptc48.`R0) @Rt CXCP%CBH@Rf[(t CQhz#0 Zl`O828.p|O×X ?:0FBx$ !i@ڐH[EE1PL ⢖V6QP>U(j MFkt,:.FW8c1L&ӎ9ƌaX: rbl1 {{{;}#tp8_\8"Ey.,X%%Gщ1-9ҀKl.oo/O$&'=JvMޞxǥ{=Vs\x ‰N柜>ucKz=s/ol|ϝ?y ^d]ps~:;/;]7|WpQoH!ɻVsnYs}ҽ~4] =>=:`;cܱ'?e~!ańD#G&}'/?^xI֓?+\wx20;5\ӯ_etWf^Qs-mw3+?~O~ endstream endobj 40 0 obj << /Length 516 /Filter /FlateDecode >> stream xڝTM0+|8޽T+8)@Jj;`MH`<<`.$"gW.cD$o!6[ 6)QƐKQ^o*;<1KRt'ǮC}':6aY"*|eaӹsU<ڷ]#R1 9~D`Rd\y(X@lEdhOR5>J0elAW:BeegөwV@SmSTMmV?QWSj8:U۬ 2-0aH^"'zFJI38e%~E^'cB`ApF[7uG}l:,}8U㰹q@q8:&[e6px ؅uU wK.]G. ->Q:Aj&(r吚O5C .J`D4)ca=?+'nUÔptb _+ff endstream endobj 22 0 obj << /Type /XObject /Subtype /Form /FormType 1 /PTEX.FileName (/private/var/folders/gk/jt8845y90kg8pwsm__hn98vh0000gp/T/RtmpoJjl2K/Rbuild13d86f4fc2f7/effects/vignettes/figure/fig-contrived-1b-1.pdf) /PTEX.PageNumber 1 /PTEX.InfoDict 41 0 R /BBox [0 0 864 288] /Resources << /ProcSet [ /PDF /Text ] /Font << /F2 42 0 R/F3 43 0 R>> /ExtGState << /GS1 44 0 R /GS257 45 0 R /GS258 46 0 R /GS259 47 0 R >>/ColorSpace << /sRGB 48 0 R >>>> /Length 49753 /Filter /FlateDecode >> stream xMmKn8 V|LK=A#}(R]ED\\v˃ȓܱ#E2_ow~_^>?rn_\~)׿??+_w_ۿ~o*nu_>/_cc:=?ybX{z|?7/WǷWz÷iݷ8J|e﫽~^<߸bu|[?.bvͩ~5=աקvoo MDlyY_W~?6ﶾrm6o`l6]]+O4,OlO?~tliO/[{[1J[J!o|o[y}vyO8Υ2/Υ~.zy.qO 8?=0Kp<|K* T^Tϥ.Υe>Mts_{i.ӭ|V^T>ΥR/Υv.5.=4ݚxntk_{ɾ=7E+S|u}.U{= 0A7S8t׹ )rpKƻyoeeA s Fi\Vi^f<^\<ss=/{z=g=|3Zuǵޒ+Zq\7_,g)an \Þݞ- Zo|Z9ۯ? Þk {:v{簧}Z=kW?Z{n~u7o{u= /{tqx.{>x=l;cx\5xzEw7n{>粧8+=ۺ˞m|eOj~n|yן;x_UqϵoaOtaOZo=ox?{\Tn<knaOnOt=׵s^=8{o=>e_|˞_w=G/{>^Zo;x_ph?e_|\˞w=窷=yP0 {T<·:vx{ Þ*(7v{簧}8ZFx]뵈{x_֛aOu==,?xS'.0׈k}=,?xڳe˞?xSXkx[s˞?x/{ y/{vZGd[*d/ꛬrhd>9YzMNV94 䜸yrhdN[JZ'pR$:YȪ7\IV͛R7MV94 tbg'0A7ɪ7Xjrhd.,NV9n:f%fw tMNVNUɪ7FVMMY*FV3&v7C7<'0A7<'YӖgdՁw?US^o+ 7\̈́0q3dUf <ljMVx;YueidU l4\ݞ"EVYYȪyb#fxdU`#;Yu`'p{f% \Þݞ-ɪrb#lj#xU6{nO`'l4ݞ͞CU3'6*UzFVxzߝ ܞ͞3ɪ9x9YȪ[O/'ˉ <žݞ3 žݞ;x9YȪs=' ldՁ;Yx=/*dUuɪs='YɪFVxɪ- Þߝ <Þ8YȪ}t\ɪ%x瑓U[ӱ=k=#s_';Y絓Upq{6{nO'NVnnOFVx~s*t68G'l}dc'anxUG/ {A6;9N62;`8x?ɋSr#]ɰ1ɓn}gv{> ɝ4p$ɣ:p$[r*_@Hn˟P38c#yi8o6{H_Na? 0-9i8#J~柒ݞ?%W3Hv{Gp$w[7k|N1;l8%~iÑl4oÑ/LzƒwG\n# &~ ٳh/6{G.z!BQ4^z7p? 8$S[\ !^ -~1&1Z/9C nOE[d8K^kOqU˞oqVI[[fOQߵο+n04Vx<FEFz K޵HwF84FzxF3 {W(|זh8<ZX]h"4]bG\{,uAB>X&%Mpa1ްÂz84H+0D LpVc-İ.]yC7e/MK)./]pt!n:eV]"䰻锧uySץIom)g3YC=u0OL-L壸2GܒeEr6}Qtu<[>Nf&\m_ap=xj絒)p=vSw8Y3Nb'@!B6'Tldb'kuɕ6c| k:i`gerWŁ{ξޗĎlL3!+<Et=t C J~z$!9yF%C<Kԝk/ 9^Pxxe{.Aބ=g鈟OA9u_^7e#},Ǘz& 3Yg;sd ^ rrk>j VBl7cCĿoej\Ս| InkmI!7 /o?\,R}ӫD‹NI= 6, aC[櫡zI9\ů鋽$Q 4)?ȫ|d!c+[n3Kib`+ U'd"!U{L>3Vr-3UIejJbB_1a~ӗީ/tk4jy\蒡 v<4`=*ʾIóX2b {&\UutIkBbWn#f2n{#*dX[hWH~ vIV|JAUY}XED#ӳHܗx5Dg=y^寏@R&jy WZUbdD-1GhR[y1IP} ,cZd,CB z=SWqf5Xp nsd.JnBmc>ҨtAagzyɭU4$\_)cL3B#KeMoEF#T$9r2S#WFֈbBØGN!IVv5خSQ} '̀G2_/ଞAM"NJV#;5ڋ ̱L$.OK8DK%.taaFٶS'p3J&2r޳LˮmxH8B%G+/ztnP;2L )k`R[0 zN1k H\+, T1ٍ;^o_5'S#%[o'Wv#7Ju榖J˾A6 ji#3Anbȫq?/ ]?1 ȝٶ?89eۦ4!+&% 3FiYQ#񤞍(x36knޙ.Wr+ QqԓW&N c ClQ鮱 [ ͕}~* kMAU7&Q^ȯ f45qu̥7,$W@}uG/tH5UZwS= )2RġdyU 8H!_5Ja;i+8UB(% 9E8Aܳ~q;,T'n&Vٺ>8 .EQ澫E_KMJΚ1gEF[ NR9@!չ.5/Q4,(;}vr+DZChkybφY#c,LnP]JH,?w1!n)aIiBs.,+P%wKwН,]5Kvq(Jvd'~yRLM좖!&gNt=nEx?e3ыZPߖ%+:?7J* &<ۧĖ0MCX/R3o,σݧ Xt+WH] K0GA܇Wóe2fRX4sE 7%H da!ȇ QoP*SA,薊SFX w!)Jd"$6 Rmܸ<>J*vI #Ѡn^̈́jp1QMEBcgm2)焣WXbexgyqBljp=OUB"2ږ^H 'Ns#\:J,!I gH1lhJ->Z;+&*$4\;gy_>*:g ٖO\⛈$QRRxf%fqk2VdFeҒ05tlR6fCS-#*ItQ[oK<C]]\@Ty/NY_ZL(?ΌʁOvlre`&O'bpFxiʁ(U@p6Z?@THe f4Jwl~IgHi)ۘ]᥃afz+<R\JZL5OI1bw*M*xwrT2~0tkSi}hCaq-wS] Zvb aLJeV-Δ;4+xQ%Wt]5M&%+Ep .|rQ=/vTB4YٮE:2Pb\Hm_H8('FG J5q%t}0:툦~*^,5h`2!uC5 ZBBӄpao&E !+Þ̃[h%\ZFf8XP뀖Yd<B!4"aD `QZOK^QK$4VTRa&Jn(QiJbvԜ֏5, ɥNΈ99Tĸ+bB#]\6TrT$,_b5K:%fK2$*A+Z>é8p8a,wT5et"l;8&eړ!-\:- u~=c77ažlG)+j-$9UqGC_:Iv]3]!˶PH}J\wy(UZ]FsiēaH9N Vf5]Z;Om_$V]@H1f5圆斊qTS6|y5}z;$|M{xhggTorH.L}4ScT:&Xcкz=QF%U UӔ  'oB~AJZJ sqIe(Xֽ4ŒQmT0ЗKdƗ&cx%9-c.e*ŖGcC>F_ @Ps%0*& g7 m3M|H!1 4-iZR?*7 h1-o:#TxAcl:m>uI+X+dZ=YZ1g!Fr=AJ^,caK![ֆ 4 UWQ2iyM*s흖=.=^]r>-P!Zi9 .: =iIrO޿N CvdŰ(0&i&eayA#v~9ϊ-ޏȶ([7 Tu= ~$۳##(h$3s3KiݦТ'^N [UHT /]ȭ/zw𺵱mYɦ[Aq r԰E,1! $s #B.\y>t :LYw7%M쥦GӚlbzA5 {RY, e$_h}v2+MRi]˦qcYR|&m~@;])Y{44Y ;VZ*sKOf,X켷&Z?REtJǜPr Sun\C~+<fnkmzznT u hnL\@CWG('rlд{4n)O/ m1_06t(iߒkͯRPar؊N62\A . Xi Ii%6CC hZ&T aYÇڡqrZJ<9gjɥQŋ>LҘMIAʚl%dEVW{;zd3(픫PS֟e՘g-׬; e!E8J({)Kh t'LRO qeҒ&s~bLe:7n˿M+  9omc%SPkTr\0kC"x :;z'YE o '$ZkZ*"?+|* X4&f"Lkހ ' 5\qQbxNFmlŖ{WJCg}ߥKUA-cQ޺ ?{-٩~X դQb\rōI3!h+5hL?SRsHqi4暼~A驽ѣi.ލ >6߸;yژUZB (f}r1iWi7|G40f|VAP̑u&ȜR;%'Uٱ:7i"mJѧ;[.Y~E \r엍0\Yuzfg6z_w{h<)к3. ܭ ctll4!,`e4VPQ>#wc1C;id *C+U}PZ4Azxw^ݮEy:#<̑b@|&F8}]>X)ˌ8 ?LAhQ~C'@۔/s5Ԋ0eD+:DxmR\Pl#+PuW~0љ50kf97l][|P uzdkh}^SU|a򖰝@W{k%2ZVC>a41p5+j#StCJLl2 j4?'l S1|6|̠*OQyS*M Ct?x蹃;|  C744'-δf'mbTcLoO,l2LP!*ꓧ~: YGՊYgfT^~\P Bsy IBZG2hAc{k*?"@nt"l0lF[ڽޝe I5zQ5łp|d#nBf [̵+VKyN޵:󲚆3PʸmfjyڸM, W^*)1k$[`e럴AMRg#l8ufńO>Sw9eUsxH޴O-&DurfURiF⃮kDcވN~_ 4O^Ăf |vpUJnټZ>ZH9ʠ]c$t9 ߎ/Y|er j{i:N^[xfNg 1 [ۢ9PxcBL&&1Pa,̊ %Xݍ񦢡Bc*d!6ӍlZ#Q* W2e0Y?ӇF]JZ{RBl0 [)YY.cF꠹b>DŃL'GlO{h*TixOcgRdeW4S6{!#/lZ\.ۈRqŧ"\ҡ fp^D6okVpW/>*x'6؉K*F]e/s"oP *QQ"YڸbF&izppp\2|rYڐ\ i:zq届ZA֢v3H:%EPŵh1NRKR/ y~9.iCG" O'բD^Bd((k̦̱L مUm!b"Rz_O˩ʥ'pVeԀs@Z@Wdo*F&Ø4}ijTm7?ь^A\Ut&xP,գckM#ejLm11&u6nda ؍} 6N+QfM6D^kkHdŎi1d&\Z #*!|*MAyÇ$oMD5:8Q8EQ*{7![CYNsPێc+蒵@Z]&F݇U -RAC4UA/ōvf&D/AElǙ UٱhsrGkZ%0erighblkڳ r쯝8F\D.6 ]q럦;ϧv>koڄa:y"L5m%DCkoȺSDQ>8 x)((6y: 4*c`&}MZ1&9("\ʧ &~K.:Ob|8RJW`~VQ&4mt(BhotgkTn::l_ĎYw(/&^o \yӮ,4fbD*(e;Yd VnVHFCPevB5A9KMP-+oY~dS1Rg.Zy0(xa^O*+ڐ/?fZDeye`rq4Y&;3)0gqUlڼFNBoƝ>VaĈF;N?IK`gBU4)R5 f RuFj>ÐZSCR OM7Es 4m%SXFFK+:`:u^t惶^9KSּ'ͼrXP20ўw|XV`陟_\A+S:C!1 sOQn/RE@ᥤ&UHTAnd_C"GbDC&k$!"oiM;8 _UVIy:MxR,𫨲_6Fɋ6NnñB,( 7RrGxSd5I(֥^5 SFo!=y`J@>A'?Lb0cT>,5I^o&3V_՝ݦ״~'dI3 -*&<9 H儎c*}Fe*l`XeXoOZgNxИӻ41da҈䇐c\hZk^A@;JAb?T0F}N]q Z+tuSblEƒh 6\!i>3Sϻ%C^/t;L {B6&fia!w5SFSiVC*09 Lˇj bS愄Z*:.̂``Lb^{ vm8M 3oOУC:\6wŷ| Ę: u!±>ςd~$2@10D'; (i'xKIICSoƧ>M%e50jK0c/'5u [|ddƃ 9 ~˧yVV?Ѣβ"C癨U &>!է$oAc7"+F2@_ }6&SF3`hl :(&,TE;ېBym񿠘c?{CaOzwvsaFU%B-5 0Vyi IfY!J Mm0 ItZww\tnX5Lv^V"˙ѳk}v] Bڶ9[3\-z *Z9N!!w@Ubb/*R$ސt354YjFgt 2v/!%glU;D+w7xI] ,)*zKTرNHPAT X6΂wH:ՙ/LegTPf# 3̴#$ݬnU1H`3m)򤊆4]ELIWU$ʋ[.sU]Ix׽4cg΃J:5Z,)Enyϲ7StvdfG:oxe1Y9c, j/MTζ뗿_өthTGG!쩩DAp?ch'.[_C[r4u, /:&^Yڐ$K%{ᇊ;(Ts`36eW_/e~ 'Ҟ:q<:R hB?^`?@0,lSVoCϱfuce.Φ?"] t^lf:1?M^< YjN6"s8OY_^ y.ŘKP++R ja=5a?4{ ]%O:j&Ϣ0~h0_?TeFQLp~iS&]˷<߽oxs[]GǷWz÷*&wߺIFڼih%o/,g_>??OLTG['iV<[cu_镕K/`kS_}2^O^JNzÁmOiSn|3۞ys=&zӰ ؜rQ^zj= <žݞ3 ž׵ކqMn-u}g'ݞG {簧c'p {:^z5 ʀk=NF3_Ǘ=Ǻ9mϱo{tӴ4oo{rsW7ufOAu8vKue8.3ja y~S]͞7?.AupP]spP] l?Q]'kvAu6{ Mu࠺ e8FKue8.Auv{ե:2Tᠺ=R]Au6jpP]1Tᠺ=u?.Auv{x]e8Z/\Mu }TW` e8fOAu6{pP]^P] < TᠺS]͞m7{.Au+8 2TW`'}S]ǹTWu?opP]~|Tᠺ=xS] .Aux.pP]Tᠺ4838._ MuiFu?Tׁs~S]wӱ3_Tׁ͞ʟ:FuTׁL%:~NunOMex=5uTׁ͞S{93:=so@'pL?,{mq3 `ٳ}8ٳ} ܞc N78v>nOaOnOt-鸤k=RSQv{c' {|g|[`^6>|aO|>7:v>|gƗztg|m`ss7p {簧c'p {:v{^|u`u8ϜO z?_?==q{>!pr{6tKo9ٳ_A6{O|Ӂ-|:gسv{ܞs{xf_),aO9z43򙁗t{+_x=3pxBOh.9:́۳]=5_33W{>=]YW xz9Ⳬ&pxWz=+YϘOOxBG<z߲_$pq{33ٳ@ܞW1~",O_5U%:SY/*nO9:_z홷a']4G*z_A{gkt3GrtN_NX+:RhU?w*NZhFQ"|1_x#c;5Fvco Q3}fmAA,[߈p53DGVT.9'bmAڂb56pL4DlԖrqrl$T$VGzMhV9Gee vc=+1v[xx:/x~ (QC Ӟu}5KƕAt9# 腡ʧdudϾ~z5t,Of6K_3'8v?{RG6P">n kneͥYAHXaFmO.:R;So3pE *lџ,prA 0|D8ƙ>߲EȻ0l5"y;khj}Ye!y e\CQ20q_oIg4»@A˭\Nc3x| e/!]hCGtжDw:"nr^md\Wޘ $"<~|=hd 'rqɞR";[sNYtt:gtlDJ1n1'񅆶3\G?BOrԲcBy˪ Bu^g& \>Đ)(+9^ꑛnDZՍsјb8%}});ڔϗ "ev \ɞ\tYyЈ@v[d#g{cS&6h716E%1 6P䔈 Ïw(rf#Q3H`]/L!NY>dx2,> ygNӜTa]3{de(_v ^lȩ2TzA5<(T#_bXRΜN[]YlTЄzйޞܯm3*UNx9X#ѢeXI#js|kJFrӉZd {CwE"MQ$DssΑ즃^Iv;벳yV Ts*U),"3*3c&8F\VY^FO^n*/V2~;9.J66%1QK& gQ Ala3VZ.crPtj6 ltsٔC;&`4*y?]XZ[&<)t ġtҠ+`S]NyD>TΘ|6|)Z_TmWcXC436s$c l0v:StbvH>M3{ fIs u"|Qp24ḩ(GlPˀb5rIPp3k4N{ό` 4fx5˓05v( 1U%v4z^SY5:qP┍rc*$< lfHH9:8 GW+)rٴ=tΔ8dv0r,׆i َ}vNj^AͲ^vSL4ʺP[+&&pV|b琧 _]ԆuyqeJ.pDwQM̵jN*R%]]7hO0ʣ*2aTikʲ݇ܳGlvl"x4U]Z+T0ʢ:Y<(_m`ȠYQtpߘo )4/d2bCɾ:Y`)lVHՔ?RQ?f%y;qeBƺQ6hHϜT}-U1F}HcSyL#,1IEfVVni}?2A}$p" `d^rEZú?1X,O/TK,@i?LmHsr/iJg1r&a[=ν/hp_ơbF49W/(C<ΦT, sB@N4PfTD%;͈%:{H yeϢΩO\/L;H3S^:^vW(Aj[d@R@=lQóAn,fVp4>)Ͳx=,*?C+qcpfyrnA1+c,XTcA+nďM`,FGۙC+gyGXp]=}2ZcgYbLB,De 1Xޗ01pcEKN@8(9cMbX2cEPPe *)2*$0wp%x^'r[m : -DͳiA@Y{'Ԥ4hՐg*a|tjng6o :,yxH/k &/- gQVML 5'¢LZ䕍" f$8=9AM^qS)c+./SiWkK;h*ɑ?bY^gQy%h2sܡۙ<ަ"#ъ*6VE7YN5ժHFyɌҨmEXx*lơE'g d:(A*JgkB_sq'޲j}b%8w&熜q}{+hŴLeጥw+,ɴ b,D6^ڳ|0X(} ]+(h*–ZZo 7_TU4gisП*3'-IgdZܿzbIaα²2~^ݫاw~и6Hr;rٻo{63"|]dr,vc4 ,Ƒąl 9EEyP#JE[F ozn ӫpqV9sfsޛ) AR3Ta hb_r>`0 s!jPյU:Ӕ4<⳺Tv[umC2 AIFT . ; @ٱ; 3D~tκ@G3{˴eR!O9z~-mZH^aQ(Y92z}s{q#:2}llS/WOpL랦e$6 c L83-֨۔ybz>3߫? enBqݸ5U3&8ٛK3κsdzy  XmCs*{ɘ~.CzILM|39ܨ+TGJFanHT7Aya|P (xVK>88=QOFdIV۲J#!3N/˼;uCFh{AOT))On$]WăG;e:AAwβ s@#BL#WB=sAtDZY&b2+뤹rӛDk1 L?dXl8!FP)ہ84nP>)`q>L~`9 YנFWFEbZD-Dh&whz&UA˖A?dy,ɼb+:FHz_켓H} IV&Z?e>Ci1:u,iY3:$0~&tFne'a[Ib V܊Y'}9E&LsixU"ng-q}* k#mI,#Pݓϋ}vKGvK^xd@?4'KkXJgzM v.sۖiMx,0̓*ZbJoey- {SoY2 ]yI,mH;'!ժ [`H,YQʸlyɔ vƩ”0cՂU&͋aAMliwF+@%;%fꎮE*m秌)QiE% ,^\"<"؅>kSB]-u,,i4QIM{9j;X-RhCr5Qe(q*?x}M*Ec&{٪ 7ts>,L˪e7B) r@,kWW+%Mn:ڦgo B=&[&ʁ }'tvWϺ-+4c%Rw|Ҍ4$QcG*AU 'ØjJZ+'a~4iM`z0 YD"M'"FMS:55ѳ.seH޳~aR5p6rVy܀W?;Ӻjv!\ $Ȳ<2IG\hwh4C&V0rV9_Ӻ k3ڶj r/p2LGXU^ϛ`ze)lNbP/#P%pYQ}MєKPm{'I++oz irP>HBt+al⠌jӧXڬ-_:<ȉ0_ o PPX3+*2Z=緽Q+T;Qdtf\]"[{5ώڕu2)k͸/& j9'c~,ƣ;nIpFE3 |ļH¿ЬwD#s4Wos-Yl*bUBG5sN=P.ٹk).0 1>t.MkX32lvkǼGZNYxaYKyt=u~`~c>P|bc5;b0U Ñ4zci;, SVS:?G`sϛgh =1~XT>Z8z_ M''u r"LU2PXy&,2'F$T7cnU+:|) eͭJnhM6$V,Τc_FNSMolAump2U9JZbǪՐ"e/y߼l=Uш$XϓF:Vq>mp>b^jHb}mԽ69%w,X:*N6c!pJGI̊ )tnvUh>(*CzӺcTcy:0["mz"#^V!|BMomomR٪:T3Jn7%F<|=+ڽ0fqYcL|26_l8}r<#!O:djR=beЕWG}:Œ?-/?N'lhiT9/^f3= 3ZFV2-9f{WZۿ%SZP^5_k۠Xx?(QP<}(9 ^m.4FO 1gW=2v\UCMsgU*'9iNˌ e6y;N[͹n֛؜b|䴹ɞ~xV%.wsۜtߧs tH*Mm|C|BA.j0+x?ԟOwzuH\jnв6{1o0qNUhn0W|NY%?+B.c7=)_6VmҨC u eW{HDZgO㴩 6Q)%Ƀ[KxWߣ?^7DҪo^-$^yT4d6#jʟ oo,o%~>o\L>g`?DA~w|)]޾sEFSjOo40ÃcNջGrQO\}Jg5OہOmyZobY`g?x ;zN?>Q<4b)mp'֛0x^m |s۞37.=;> =qp`z*pv{ﰧcž9xtC`=^lkys۞zs۞k鶧dǹކzZt zhY|˞ҭmϽn{}s˞=v=B #wuWn=쩇=a'{ϰc' {:zHʥs=ݞ5 ž=x]<]x\!~}$~zig)==Ki;O<mx_!mwugt۳۞6ė=m۞)o ǵ'^V<=Cmk Þݞ[ {簧uJ3dOn{q۳۞}E޾iz \ok/p9mo{~s۞c0.k*x{}<55\ l4\ݞ3pw{^zixz<x^-'k/J^z+\*=Wmn{Jqy7<0<=o+:ϛ2TWyk Յ e8o+>ߟ7ՅMu بo+Q32TWyoo+>7e8.opP] l 7بAu ɛ2Tᠺ>{S]y?:S]}TNuߩFu6W' +px"xz<_:u`>/KSS]x⢺'.堺>'=՟pP]8_DP]oF<1^E<1_G<^u`'Ⳡϫ%Ni< l倌?|b;uq^|t6{nfs\Ul-<۸1>>sytlp`2G\͟(%m}Sm|c6{ny{pw{ζ=7?zjria9='taOfu[p籥ɱs+ʔ ΈH$@!AgmH?nrQ]OڸcLc֩A...~#jȶ#_v37;m$;vSv[oضW3nv=H|2ś#߼mSeL;)l}l8mGovv7xx͎=c?.xgO}3ہGo;z.n;߰ϴL<~k3YNʎzp\A#2vĿa׌ue=d%zKYJ~zζgێ|"'>3Umg5$a.ϰ⟬q?zݶWa'<>mz>ӟOz[3VvIG=uGzn{YٙOq~ϡz=Gvfg>zvDڙO~}|BkiG/bL|3c>{?p?'D5.~Awz~i'#n==wK9&7; M'_e-mG{S3=|C6fGa?e'_'S| {?vg"8DgƿF-mG7n;?*ϰeSB x_~[hmzjGpǃpXm&Ls:г=C sc߽k{CK$cH/d&@ṛ.dF=mt_φ'A5$E R: JR+ +;%ΘSq8mg 3sI$| FPBb_כ-#Ǔ/:w Z4dE_$ic%AAXDZ0P/ƆcH S4ЍIHD܆g6ECՙ.a0:I\ ŭ-I4* }ߵ~&Bld}$ᨎd-taA;H(ITQ=XU10=%GRcDK~R⡝')K{|mNu'RQ'EB)5s_.uC Q(2c쨸/ս$1q.MaWgBp/~<\sp'ރN_O#85O*AV7O cBax< $ Kqyj)hbcп+&RW g {=d"Ӄ^]88h{óbQaM hoߒ7 !0ؤ9SZrbAGYe;P)Vcyl)qk#Ŵ&1at ]x յ2sW8@*b.ºʵ#K(ku1˭x 8c$| gKeqKE' w'}ڰnڠ5=F礡vM`J#ɾphű44:$'I' T6bw][&3Qqd`RXaw&6'zl8ᦍܡs$kq'& 'PM*:-:hyvj`("n l!pZ]Sl%T/?r 4k1c/tb|#dcC~bR Lv2Xt)'IɺQ/j= fyٌH-x9{ YLf8CYBͨkΕz#2D\ . ~q 1 G0(8N (GvtE}`[¢ 3G7T̶׆g (Ȯ58͜#|[exRi8h5mxwv!j'ƄC5ȘUkF`|U;c#lFۧ|8Ǿ]8P'!̶+˦IS&b/מ=2>H:ȝ]Wqx-[߱>Fl?c֔vt_:c;*y'UGӿ޿"gN>Fg>M`unvgOMT)\q\e>1U++} 0TM#,hjÃ`cK(3ܦpB:slFbo X 0T->tNةsXLST8&YπN;KZ$ ²ʇvΎ5v|f3 {} J\2U3+爢+T8W@ zVjANUs 3S}<_!-]M~DFh =c}ޯd>q- -FԞwO ssuv1{EL 9nlESʭTK uM qd><ٹ自OsY{7œbM6 ePZG'/C&րMu:8s, bE1S˼^GE;lT40ߨUu8dX1UtƱ]ӲۉC7> K`UV,=uGu3Sh. U#vQϩٲK.+ڰ(Vuœ/G5qȡUG/8>'cePcQ59s߱˩ +g Cxze"<ݻ97,k^ZN ZWzM|"7XjޘoPXt걷}&| +WYM^2a阘4lKЧNĐ-&b޾p0"sc#Rkk|-{֝O0.6+0'!6=: r/cx射䫰&:b;3DiS^xl]/q/_oܺf&* +m-L $:8C)b>EP̬Q{GaO[N$Cl5'A&gݥG4ܸ)]d2ϐsԦWy+:ЧS,!V1^V,xNFW&epsoE`Wi.S4[ejNG79k&EYӀǭ[NW+݆^7j gEbA4xNU^;w'ǐOD>oЮ0846y3#Jq:/ad7%hTl%\^?Go |EQǐ1K|S4qp*b^_Pbѝoae}#$ʲJ1Y>.F%q˷13s_C+tzA/_EF ĆtbˀBrتm!&5>X+/+7)q(!ғAUڿˤݍ|XS^֑g 71r~9JZGS+מ*U߷ 0rzSkE   g9bP>UUԑsS&ѭK㔕<5cI+O! ^PSEHӥ&fR*L݅EjϻC}.B?Rkp*Y]xnL-1ڵԥ@:mM\ մu)mJ&Z~^Q4m͊hw)*@UUZ;4SgǞ)~h+g}jZ4(:2NdWZۄPYs]x>[djGAe~`gNu&%IT}@-[Ń"NobT<01rTMkX=<2gl+H~U i1FUM6d^88e y0k8Jۃٱk%S'vTgυ?T%dHybb$\dW zxᾂ3:@C'0PP^-Vg?B YaVqd(U[:^ۉq M%`d^W^(؛nO賞VF[BM0:?Go_QD +"E9;EEUIgM EbǾcKFHsi2ر*$~ݥҐH~GU("*>j%ɓ]0Pwq6$XXJZGa,q0VDY^C1 OT+UM*ڍuVpXkH:%OV#VQ#cZjTj{Y҅xKLc\RELWZƱxnSUT>qNɝ3*I Zpܣ=/50)R/ČdBl(ӔbDj*o$cˏȉڕ W"Z)ހ޻Bs^܊X6t^!h}SKOs׮բ R7Xb!V^k1gO$uq.僆2Qכ2426k.mqd)} cHEPKLӐZRܷhO.G'vvPSzu%W&1WpcE ΡmHw=ሐm).fHʜXC^FA%Gڤ"8!q3Ų 5T$=hwe#T;9麟~]`v: q;2a<ٹ@ԗ`CfaEZ3Dfm]5 Z R^zyt/;-m qz `6iN >n)l,1Q?Gm޿S^1<c@U2PRjB/@=XyD ^|!3kPLxB"uPDUQlTd,t&?NBe|U#3 ԲЉ~|+?[N: @l 3M+V_o?'+ NC ewcB%bA'5 1a#1Mq$g EgNbwԲF*ݹ9'ąh-{=^\Y#|$lXD]K(r~;~n P#ǢńM ۵C$IZ6i9'eS3$fȔH8zx`=xZA^ :gNXfu~&YA29gԧwI41{r}o lQ12&+6cQV𕐄,*v~Awq+uROxV^9dT6b`Xp+NꪉPT]ݲO8'MX:u0թ3nSOqo3IԎ"# n;sjzΗ.>1a|bPRs-O~ɗծot6u?_14ƽ`=DU$㬱'B6*Y]odc$"qڿC7.|+qk :{Bk):rӑs=.gXt3MWyӺɺj^S-8T1J}3P֣UU<V>if.a9EC?y1{* VΥ@dB/C8|Q$PGZ̘QǓ⸾P>Hg=c f'}SV_Θ{IwkqnC=4891ݡ1'zW\ꨧsKzn1{(9g'Fs¯yJ9}(Ri1'gX1WΩV1XMs OW- ͺߪsȭ_t:p۳P9ԮHt~}Ϲ7P?s:U9v),!u똨s{4[Ksm_u҇-a~n?]W>R}?_;*]R7-z()oiWY>]m vS-UE~Fpq!^+ɵpWO}6mCyq/o׿?*~+ 13/K|u_ Ѫ9x~6}?>o~.t<^?*>#vg%_Eћ#k mHj?}~yyFu//++<X]Z{qYYkk+)Au?U ?P~ϿRُ"i"O#oO- |Z|WTg@HUoqmOE.7 -ݾݾRaGvH9n󚔰nz7?e/Ox?G{>94t;=3zy?kfDeǿiue?Nn۟i?eO[x ki}ݟoߴӟvSz7w>xkǿiuϧgOB;'dO;H{<7wz-IrnUv@]N2A]7{PRyC]7{ ug3}$ußa_޾nPW umM_7kum;.A7ku){l<P׶WsO/ofuZ*Rofn vK}?<}&ԵvP;kuEQ|C]i'Ե퀺HvL;)mNf?eϴӟk3EԵ핍CB]7{nv3lv3 Ln{=I ێ!aԵ퀺n Wb JNf?.۟vSv@]7:v@]kmԵ$m?eϴӟOOB$;muyum;=۟i?eOk3k턺ny*P;P׶H{>PN۟gOsSL{>PuP׶~v{3m۟i_P׶g);='Nkuy? uPN۟r)ێWWB]۾2 uml7ݶ?e۟iz׸#߰gƿێWWB]۾?NPWܧvI]ӟ}mOl;{ƿg ;߰Gƿaό<P+ ug%v| ume>=P׶{ƿKB]۞۟i?}=$uӟO u'.;8|Bvvϝ;?ag~&{,'P׶'ΰ3?}LPϱu]2vĿmkmgumL;nP׶gum{e>}e떏ok%_7Ե ?%Ե3ӟOlfG>| um{eɆnvĿlke3;߄}?gA]O=2pR󆺶=3u2f?G7۟{#K~]E~shwl;uKovHizH;ͮ_V zqϰGs/Yto7~vs?ey1byvsϫmyvk<ﺟ>SvrMfrkS+ Hj}Oҟqm;m}6}on[sOoKsO/2OOl; nȶ#^G<㍌wݷ?N>ӟ㏌nv3\m?>rӶk}yo;L<1x.%;s}&q_n?]'m}'^|}'޼yg~%voomo7YzzöWƿn"7ﳬlo]Y[z̶[a'mw.îuGm{mʞ۟i[a۟xCv#Wv]vqw=17r/wr3V|b>O}cv+?g{]?.דzsvϝO<7;h3?S=,}eegig~'i'fG>!InvĿ$a#mG+I)nv>ݴӟ>y|">2v֫m/I>˶gƿ$f?OKo3)>Iunv?>7;K$fG+H򑶽2?\ϰgS|Cm{lxIUS_#Zv; H6DʆZI~%S8kH=yl.;I1>I ޡI IMH\_ynm$@iټ~ ,2e\(55Vl$Zm1ŴhWKR& "?m0$m bp{Ř12#R,Ϸ9@"P*.Hbֱc&ZM {j }&iH~VεfOU#EǖDO)4 u ֘S Rk$u=_p*]xJZa inCzP!Pc|5%]f2l2:ty֗nThi#~~*]ϼ qҥ7P G9vnŕiઉ?cbW 5%ʓwBEw}Ys@HZ[zaG :O { ב>ծmS@lSl%S*-_J.M\V1R 4PϺ9p q.]ȯӾh(ZSi2E*b?jd;Iʇ3R$1[vEi6%ʉ ީǸHIJЙS/yb׻OR8ԞR10v0Hڃݿo;9H6 dW ba_tM&[U(u&,fS'y s,=kx(Oѧpn|ťLYB' 6Wڃ}ZuTb+D{a+Wu:TC%BV߅Y:;ra8h0ـY_*S)뤖c=|Y9]t`g䆸a!Fjve^1?8>Mژܰ7;Ϡjvb( [ 58h^QP2P ܪ (2‘x+N[o2ώi>gNѢ?Ff afSݭᘘN3 ASϠvU~rS '̀ f+r: !Y.eKj|:dB"S屮`/Q8$=Nme3_f:{>9&?R%(W~]b,p[LIJ| `Ht"ڍ#󟞌jD|r誱(xL_e1iNrB-yjDSCW^<̓3/-ƾv$**b|^3zeGwf[gn* ֻZ OuiQwx%wٓQջbwv7* *7*=n8©=Fi8ZlAMfq}eUflߗ"_oco><Khܡ/)%଻tդUb<";~"(fL[[Ss4P&];USZpS"b%j(48 Ϋ96|ҧ2Ff UQx[*evOW`Q!_(<㢑\xNA 46rUJlw qfo|Gv[ #q43dx>313PFMC0>>q?.^N̴ɶ{-9TD9qs  I_]V،rFo_L Y v`uwkb¯[XAUz NgMGWi֢1r=VU]f1= ٛ 9,-n'ncGw譞1RΎ@~)f0={ '΃wE|HNbE>fހ=D4&YW\ijl' 4_dLY"h},̯ `W 􃲉i"Ofƈ΁ȧ)vzAq7,$U [Z1>2oThluI:EU,\ýihS5\ʹƥ;P  +؂0ƾ_^>"$aeٴ&?9@X9vl{(fsl\w*N=sq 6#r{0)KSm`iu]y&FL??3~ 4sّ<MhwK+BP+Ȁ-jڢ229~u-6K\&F 2ub¯ew)pgGFJKUjt2,mi ˑ jU}ߚ|7E}ٮZ|Q&:8qr@ƈVD?RI WyV0u  !9چ}ϷIfDf!>Ym%dbIgbUNKi_"Ձq_zY:$Cܞ!2Гv 앸Gg^jt]Vlx#q=ِ"]~ѫ"Ļs3hjŷG8~j"F^z#H75ee3U;ڵ|;2: mgT.!V8~LEvߨ5[kZS_,9vD:Ofe2:.v:C]S2X힇jR]2ʠ}:L3ifmǵ1D9F'wq6$0~x9A4U۹c†oɏ$Cgl oǺ!rCdOyUC Hxrv ;aIh'fUWM{yjϯ|>[ p~~7QpFZkbE`UNMn"N:1g>u ʼnnc`F_*cyTzStWݩNnq+ Y冨f"&CYQU/Dd0?I{Aq2[TND/UQm T뿦fnl-r+ZWrȭ G g!=q2uK70t)T鍘~wYHj|ocfFCS N~Ezx*nTxφئ¯)H(CT\Z,>b+[yL'tĆjW'PܥD&RR6HL)`4Kci`yЮ2s u .Z[ʠѠ`fYuڨ-66ݮi(FZHH:bdWW7!%i;=Y6/5gB8QhE]_Lg RHΊЈ[ӈ\ybatU+ז,\,l!*/V~uaqjeFLQCs&RCJ/UrQrs€d( sٹ2-jJu5hRoLct|'Mz@0Ѝ~u:U,Q?xAEN = NNROBjMЬI@qnjB^y N3UJ= .(U1>:xQs(4oкd)3`@]EHb2J+*ۃ 1$Nh:FxB";{Wl0Hw&E)]/تu.˺,KR Zqk#+zgap#e"scKak^ !`v1Lu(]UVZ; K" !J?{BA3a\[ 5cI3q`)F(^] }UDE,XJ5!@ѐҋҸI%H?_35ϘҐ9[q>z{a rJۋɕHW9t.Pܸm%M3xU.5"\K{uÊ]-1a*f"Q]PM_t:o9x-nB7Am*i WeA>ʰL)0*템P%nma ֤{=i' F3t^wpJ~jEۙ%yBwDZ\&zj…K`~GwPz:ND\Z O%EjI:ۭGbѨ͗[#HQDy3o:HW70/@]iÐm/5jgMI[HNc`zO` _5D鈹YpK1åfW57o,Ռ9FѠPYS-55; ',mMZ)E"&ƹ0ʉ–}kKqLFC葥1`Gl*M&>"]#՜C^HdnѶ2e1Yǒ+7dD ( "*SI;PI%dk_E1!0m=U'ϞYdgs9 ߿!ۃu ?S}pN["4$,I?^N[<̭%V.jdz**ǽ[,V%OJS*8Si(P_b.3hIFB~ eȺQmU~.E348b}<ӒurZkr`eAJ!{\S,D_$x<>ېxBS]Zu 45M-C$O:RE8Cj2q A!oP 836exy) nd MV{SE쪅tTώwS󫌻OI[.0-,?N$4+.Td}7: ND`g bפZH}t m .59p>`ާ5yQMVɟU{ܢ=V1m%D/](9#$+N|prLIE*vN.Q]h&uw"=8&՘_tߥAwU?F#_ &UQ@魟eԉZ?&b_?##'bDe:ƺub1fX[\Zj<ؿ=`+*ԴBD ,*M1pIaT\b(HCU{,H8d[ȁ[J1¥伺-73rEQځ{-IjiP(|yL(=j#iQbEdg}mZĀ@s.xeNAIad]㹨Q]}Ⱦo^-QmllQnI$Yn(9GlI ]TX eY/phxWY 6`B ֶؔwN;ӳsQv1!9s&0*O_x`aLC ]x"a:7Ep,pՁ2VoBɶvDoz4+kj9pwx9.F`NVy`>xp(禕CUtRX97_bf]T9yޔrGfo\^ђM Ȭdvzx=8y v<ކ}.zT<ͦtW7{KE:?T73WzDF)geIq0c yH.?=fϨҙ#cwt)z蠚8"%o NDm4jL4 @|nZ`%d'ĘU3N`ï R],i&<\=#7?>8WE7ܡԸ]yLr߭Uj=ND!٥cĒ@3p^|"yzpyJ;hZ<d7H߸gCBtcAg KޱSg!贻ϙY*rkrqOKbC/=KP#-z4Cv^_ZO5SUb`[-!evr Cr4ДXg6I! !7%R四%mjEyBkz])sf ~<ėb_n5l8Uzd/1XήP{KK*a0 Bqຮ/p+ )HOw=f#.dBе.$/0}N.:T3VWqF e~ USS0հ=8jPP?II>a9@xU9(avU9ygUmH" "8$ޠFKU6$^"V*ZVX!YpO,GEQmk,Y$%†j#?ʴb(D}Jx{U<\x sCOC9[f.1G>y* .7,5i}ƽE? *p]$o"Fł> 7N٪A $SA7>P H胹SMki7ftŲ.5cNɕEOL4k 1wk+"3wչC LԳ5YabzՉ|TLNϓ93v8]TFwn'ʐDWL]y%S+K tvu89ԧQ/QOSVNj_q+fqmGW8kdT@Sr¢O1.Et[Ih2SتK e&ْ qlD`TwkF6O}3*xH]ꊨCa.dEΟf &T ƓkRO?@Zf>ǰ]=cj\i/Oa7g>5}ߑ1Uog  Fi}rPU7#F9Y'HriUMƹrt=ÍCԉ3fJ]G;=p/P^Rgϕ A{fkRG8hmF274Plw tWP/+PB%šSC*N>ftcXmb/Zqiٙ/zތL&]q@> iE-|Te_õCPSsMbLL%gXlA5Uޅ a[8ps"y[D"q)rs2>)QrE_j,ݪ +^zQzx*PnL8PP-;}P*qESIN$ýUǜƜ+Ƒ隴G#KCp(]"KeTrSYW4bV,Na\*#&:m uahhE{"ݣzʄb3d,,&q%AlќuhF9%ƍ:!0 By'+knX@.5L Lb>7zsO b?D9e:߭( tIb1XN~hSqKO*_/L~/ן?:c' >>6 ۏjq6Z>׋4$Vu[͞uIlA.jKN!AP%V[h81<5Ij :}7 N{N:W 3KӔGSr큂79׏gXrDSoGgE[/O xyMKlV]K{ޅwT;5^s^v@Ι.eFr\ѐj.tn?&m(ϯ_|;?|e†5Tv_X?mM?/hVC>?>o7 jxTo}ןpW?i+o__"w_י endstream endobj 50 0 obj << /Alternate /DeviceRGB /N 3 /Length 2596 /Filter /FlateDecode >> stream xwTSϽ7PkhRH H.*1 J"6DTpDQ2(C"QDqpId߼y͛~kg}ֺLX Xňg` lpBF|،l *?Y"1P\8=W%Oɘ4M0J"Y2Vs,[|e92<se'9`2&ctI@o|N6(.sSdl-c(2-yH_/XZ.$&\SM07#1ؙYrfYym";8980m-m(]v^DW~ emi]P`/u}q|^R,g+\Kk)/C_|Rax8t1C^7nfzDp 柇u$/ED˦L L[B@ٹЖX!@~(* {d+} G͋љς}WL$cGD2QZ4 E@@A(q`1D `'u46ptc48.`R0) @Rt CXCP%CBH@Rf[(t CQhz#0 Zl`O828.p|O×X ?:0FBx$ !i@ڐH[EE1PL ⢖V6QP>U(j MFkt,:.FW8c1L&ӎ9ƌaX: rbl1 {{{;}#tp8_\8"Ey.,X%%Gщ1-9ҀKl.oo/O$&'=JvMޞxǥ{=Vs\x ‰N柜>ucKz=s/ol|ϝ?y ^d]ps~:;/;]7|WpQoH!ɻVsnYs}ҽ~4] =>=:`;cܱ'?e~!ańD#G&}'/?^xI֓?+\wx20;5\ӯ_etWf^Qs-mw3+?~O~ endstream endobj 23 0 obj << /Type /XObject /Subtype /Form /FormType 1 /PTEX.FileName (/private/var/folders/gk/jt8845y90kg8pwsm__hn98vh0000gp/T/RtmpoJjl2K/Rbuild13d86f4fc2f7/effects/vignettes/figure/fig-contrived-1c-1.pdf) /PTEX.PageNumber 1 /PTEX.InfoDict 51 0 R /BBox [0 0 864 288] /Resources << /ProcSet [ /PDF /Text ] /Font << /F2 52 0 R/F3 53 0 R>> /ExtGState << /GS1 54 0 R /GS257 55 0 R /GS258 56 0 R /GS259 57 0 R >>/ColorSpace << /sRGB 58 0 R >>>> /Length 54628 /Filter /FlateDecode >> stream xͮtq$"-  -(-Ψـ4o?wR]C-Ȩ'"_o?׏[H)=ۯ^> :Gݏ2z_G<#_/?s ?|\?V~ecO?4/>qyQct[G֮_y1o~_gGz˷e6m\ |}2?|ఖ G)+b>z{z O/))}q$/~\O/%_uͩ/Ǩ1O O~/ _/_{^}&e]bS/?oHo^ݞݟMYlw_u^ >ço<6Q及eQ/ߚS'GǮ߻Ǫ[weo-ڼ=-u-JϷuӷQ>zoکýmx}붯6vmx:l8ڰ a- ϼ>2ZÉϼ?ujH 0#̗ ,Ňucx݇6V:66fXl8SnQ1՞n:>sÇgy Wa'Η.,]C_b} 7%kC_+aGe3cKW?ͼ pca31GTTgͦ<y`l5ۼpb|З|慥kҵ91\j̗#pݵf޾ l czˇcͼGTgn6 C_6;ہ/}恥؄{b}}Gnؓv Gpbi3k 7&PU|\NqSvkq^[7ഇ/c =}gV'q͆>.e[к'm<0`Y9^.Xmc_mbṉha=Gwexa O]7l:6Θ{b8o;6n>f7Ƕx%z^cߧDƶ]L><.z^5nƲq/O70sp1ӎ7_vC3Ƕ׸`~6va׾gp#1}oc~?c>7~b>~S|ïcW m\7V?o曘b=+=9l#1K׳FX>vS.m/vbY}%bݺxc>7/W;X6^!Kxʘc='LL9acl9ad|/vx| &dVnj¥c56nlӕc66^Mho.s\c_E{3:s\c_M{svfL禽ƫ惽`o|7w]ܶ `o=^.l=156qư7_gyao5`o`o.W'L86Ƴc؛ mc؛rl=155z^c؛ɳư7/J?>zڛUf5g_|7gm7c\cn1{{aog?_J{cPA157 Yiog@_F{sy!\c؛kl!57%eg|noZ`qı}ޔ4Ʊy׸c]{`=썍}=MA_ {S.ssޔ76د;s{S.0c>76^Mޔ쎀]noll5Θ{ksޔ\7}=썍}=M`olaoJ^X {S.baoll5v{S.Тk\`|nol<1ۛr|noz{St6v{cc[k\0Y  ?}=G| /'ˬıM~M1\ 퍍m=Dm=L.m=G)OoT9w_OYm=qkTl<2 M̿@nvޔƾqw3|ƾ &oX {cc'. a c'qk\16÷_r+txCYuXe(MDP8`UDVN9M`U`U`U ` rUVXUpb`U `XUq `UD*RUJU(+% `U XUq|8=V=XվSjjKjF8*h8V1 MU obpsUXVhDjj j j j VMX& ^UYUYUYUDUoU3V! jyj1 jyUsU4Zto VY *6" j3*6xt*n` #U%XOU >X?U X5*bt^    n VEEE5"߇`Ua0|Uؿ7X`8 `8J&`U%x`U~*B`hXո_{`o'VX VX VX VXNU`EU v*k7X%%*;  o p|>VM&OUyU vX5`Z_*V-OU'`bp~Uoo V j38*6666~*WU&a~U=VV` }rUOnj8XEU`VeGUqUX}`UzXUVGU`cU`Uܯ7X*rXUVUGUt]XUyXUy`VaXxX"X"Xx^bULu' IUvVuVuVuV8`U7XU; p>A33*ާ::X5X5X5jj&ZU{?yE&E&yE&E&E>?`}~}W `+U;+ULvV_}3Xe`3Xe`Q{` ` `EqU#$X5MU:`GUX<ʰʰz***g*<VH 9`!b_brULn|XEUXU fXfXEU"Xu!UXXXXX,#X vX X XaOϸrc=cJ4>LSe2&[-Uz}J>hpw}!G8?2gL0?c5b??Ζ_~>/䑝D9o);#s^ >~;v333Q?UYqp>}/Gr!;I$H.,&{"}=^} {2y??H^ͰGg3y'owr=L~=<Оu=1 O-'xGog6 PSr/O<q㏝d%ß? ';9787Ÿ #J<-O_o aSᏟ?ƯƷ/D!9N?#^##$#D<YK䳞x*𷈷Ȇ}",q;A>`/$o>y'r♛|xn rkxr r=-}[nrI~[ ,MAn rb_OA~5% o|nr !' g2 2!3|o뛜;x 9듯HAe># CH8'o/'55QsjWAcØOAȏyzruܧA>doOiӂl~sH5uH&Mڗ72_8#|"דodn<A,6ySȷ_7#OGٖH3b"LW5T#MV]M!$Gr)D!DbwfyeFR7fyaFBa#]_'~A 4BA" A@,cP =eFA e:A u%s=2栁d\Aa@PHXE$ rJ-:AlAI#S0U}&$;AIpH):VSP4db=ElFEҋ 9|$FQGNYWّ5xgGSqe>% Uv;\c"jqq{s_V7h[cV[K :qq$ZJGs?xNǶLX`H. vϝيۘe(b!_'ivz?s KµxY#ɽNGX4-f !uLИ/jbOYtBK)8b$/5 րɭƒo#IMp/^&vx?e+rMdxz7uH‹^] 3k p:Th;=0iE=e敹r7^^[T,u^隞0-,cd_Yg}\Gwzn9;P1[BE aݮGfh{/xB ^\㰽ڭ}vٿ^=`]KtQ9`IS쿘cׅ#Բ<`krus׊ b{j$|o̖!,xkJ@A׻gqrC=?hz"vtQND p' 6^xt[FFˣeRˢҟMȻi69xc2~r_`՝ԭ c+fw_eׁZen)_P_@"J7e/˼%Jpm:~[-183"ڇlګ5vrvu_M EUGH P急v)xE~rV s){fٔ-.%L,9UV@<Ғ!e3*L)*MKݖ<}")Uk(ۇ>y 9k33P2)K~VEr3kHP5Xkq}5ux0(~X S96DTqf0ޔu+~}N}ׇ{sKWg5"`73|}e'"Yj <Q9T(qM$l ˆ6&*gl}TOI@%xwc<9X2INX3ې|x̖&݀z (БWzA@ڒpYEԺ24`bb0S:6eV;v=[%[ SUv$N7p 6`{Q~I&-z61(3xµG?;W[sgDmȤ6 2%){ZT}g ׁqҖLsc?&nUuU5 P@Ѱq$H1haM(TKw&d8`WUTo"_ G\ލ_+v+ (Ϧ@׉Y,fp:A V8/_ !iZ%x1`K8aC]$~W1D&/ _ktsLisvjY%bWF9 jsqǒ.!w6֞'HL<~ f635.\V*#fi=qv tJBnO0+e"]Зt22Hl ~!`N}@(޽ύ՗f!x"ٝet7Fj"8*pB2kdȇrUF4^/1d0t N+}#6p$)_^fk\onǁ ΊuT.݋{2K^>xHVv&# /h*uNͿ΋+EAׅ~lMʼ &3g^US65#s^tArL|4q…H 91Us 4ҋj㙮iL%23JCof%P~3FWM]܊*b>苽~ U^cTEe:ln9,ׯ<~DVhk_GuC%~qҐχOoIx_֛8%I3J=Sɨԛ܏AY(mM.qzNFNPbқ%1k/uV|cb ,Id,14GQ(;/Q(_ݝw_ߚ&VJ =9Hu:҄N]MJ].EB<m)]o(on6Y&}̷O[O* x5x e0"thkʕ +2HUi ]żAyޣ́zuEªRsF Gy!a,rE NV P;A@'R;uHmlq&O5&5 +'*iFCZ U&k;* l8 Y [UxU J>_}:O;l7LTIV (4EtцoY$p-shWdΉ"<~`feAaz\&fQ1(Hʓ[ 6Do2R!J4w3(SBnF][5N_#C%97Kc4wl#0,1yNfKں'0{vJNQ^}J5_@NdRg%O&y "R D"ɖ^ 8/,oEAcMP1yVtlCdV%F[m[SmQtQ+b/ܵ]5{ wE]e  u鳮Bnn+b_% B%neϖ8Ĕ9R4B9 BqGd &ȶ*-c[ud%MWOS7-o ץB2̮7jrҗL/%juZrTI!v8&plޚ. 1%vt|}|;Jl#oX9G(l;!#N^nK %6e M,h/< {Y*ɍ3\;V,R`˃pbTCG]`U UM‚ф!eyt{Gҧr ɲ23c H^2fMy2%\|^w$ǹdi9E=։%5JZ7-+O94z%OdbKYuvB7ҍ+}+xAȨJ~fnKlZ>,lU4z 4|U9fJ/ Ąe)="*FdQƂ^^!;4u! aN vhH xola$$ʔ rǒb Eea_ִυ*< b17'ܴOBJMl>oe~lnREe onu;+/+ʸFݧ yiN5MW/T1T {5Bco_&rKJQbdt0!_M'C;%'4D=w'FTg˩lQ˜}D@ SSZł/FdW>:ɫZ1BZ\2J0Z7k(mԏޔL- UA"] ,cifS=޵W!?Ys+ToB=.TFlaxhzez0F3#2!.jC0xw9;(!CKhU<5.g&:e3 ؤ+VX{2<)ۜQQWQM{"tS}fp#/! 0T͐Mq,VJ"!{ (3t.)!zߖe.v7`hTsx72o= "{⥼Ujϻ\@٤UD#CA*yiJw['g`)TWNqǩM.]9.z]$rneY$\3YQ#:UfʉS78W\t0<h5})dAd !>Rf:dA6az9t1pA3O CXmMXH˶NN|)a۔HB%:tLXÅZ`%*1+J`MpGg$ L6!-Rd|G#yMl**Xœ,묠xZr.cC= jT v:i/}DxڦIi((&& ua}[5}!"vHCB'YBM X(,j]q7Z@TeN됵]TMJ(-n e[IBjGCV9Uyk1R T20ؿuj?Tʲz+#A .,twXpo+sn]ʊ5\V6"M3#0t}ۦ ]JJ_aPQwrANHU8c0•ʽF 5CU'$H(T$X /uu{]S#iukLq)bNeYs_Z^}I6jEꐹIs;]nS*^Z,@x0T|R=e#$0@&e%ӶG4VׂsP[dV6nѡ>StÂĤXw2: ۃkYk25h3 fO]NO~QG,C]Y;5ԻI Ć;U6!j)$] eI_N9 Pj|0hZDݡPQV%ek(4N4I6u)Bo(cXLHW!HnTL< Y$St~ u%zj=vOV|AqJoKEQ!ֈ>/3R 7ETnW6@o:0pl€J'[Ϙ$qޫЕV|l);F nN gfV Ô|)S-:ɮ_m%cO}Z:9 !DAҳJM=mH!=c(h:QQPp%P̱0_*y!_$8G/ZQ{ 9nP~k'| 'd,9,:eF &B>3*k+[:XiyY\ԒeNC)2=O..Ivu[azc N߂BR`uZ5wxFK(HQa:nqRrTy#(Ezٕ{a ڐ(2 Xԙٴ/i &ۤgRKl 7CaJ-C;urD46Pܥ`9EerV&85WO:P! })% a>%VBqjZf?UV{Bs%kpڒ|Ly,@d(Zl"wfΒsĺVd,5!1R6Hz$U(1,[ikV+!U PtާnL Bsjxɿh Sw")QGAxe%NTO.N5]Ć-ixeȱˡ4vS~-LЖ8ce<.$,4'JU{K^:$ +f\թ Hl0+l)ԲpP1.&/ٲ%.TNb*Biq* 7 yaAK&k2T="nE:OiP(~F^oe\17&IKzb~'Q=[Sh Lv"+#NB ;q臻!\K-/YT+9S\5gqtJ$y ) ^˲Xִy ~gW̾(Mw4N2qy^(0} і2tTVW=2t#)UpQ) jPЪZtU6@.$]E*[\k46)9K>mFIoc,pҸoZVTUh5`A,TEAbmi#W!7 NYjFx/Uo:/nAΛ溝U6*&EP ֥u/aK]UR r䷤ UV˨Mۣk}ޚѸ Mgp+-HT.Aɫ< /MMx+YP"%ږ7C 9]?ʗp|y/E *ѐIAp#\ĬL7xU,jڔ[%YVQ{NY+ޢ-qb+oMN*@ZŦ4G7+EӀ2Φg0IRKAIݱC:`808bb1IuWoEc ]&/6Z*Dq @XEdypEeWdO"$oA&x9TeT2qB~{ecF vW64ƥqr2\sErQ،i7kS8 ֯9O_ )Πr ,lEZC!u&FZaqAQYf!;E-! l3Ό`;IXeXYuسw%VoIUGB݋$Mf. G mT! ( ->wȺ(ɒ2T%1$(pg%ڼRgi> t2i $+E_fסy !BVG`2[ aJNj ".S^wNlCR1*5+wթl2e/Zl+v Jػո%Iď~D@li15|}ת%5eVgMW \.A& n:eB$ jp-nS@gR+ށ䡕7Q_)]vfϋ!;C~ٔRϯE7kuvL]sA߳-3Uv4 0>:^B~M(DG޸ 8@Ʃ[oлģew&0*Ƶ2\MԏJZU 9\>SGfO@d6xlص jUVPRZ[7zV5ٌURr{L>%Է@!4%8FdPV]tS@K`rي :ԧj2=K |isIU]NHL3QH E"ZK7 6n,;+2#ޫFZ}ھZUo\\(@j&@ Ҍ޵NTGR7׬DMݢ3ns qVl xnލeou5{A AeRW)wKzU۪45e@޾JmU:"TpdbjcM$s`(I)2poĪ&K:g0*1t5u\gm]-zS7myw-)plw۠t"g]y5No݉B !m{S&߀{_!0)>tx4^g R~L &`BOȘKD߮+4LgzFM@~mOIе>m9Oa FhZ J m{M5iWixe>=R Ү-]'P`C t >M>܀|:j7K|!d>Q}}J&r5wK\:J,߇}`+~OW2\7 \)u>ncݧ|Ip>mOdiy>hu#W4ϰ!"qq>{ӓv|~pC?O}}f[s_}_?}%g(4>ѥ/ꚗ"Y}]?(xoz =G1^t}4_rOWO|>oW[?yq_$^Қ%P'wVGc<#\9o?Oo~joܚ}~ˆ]gsu{+^ 0|~yO/.pޮIӐkY|MAO>6cW6{ ?7&L .U.>FDV=ʼ5xK杣1ƿ '"lj@O(P%q좍ǖ5O16ښamQM:|a<10SPOM]xS>iAz勍kp&f.ۍD=ƾ[aF40tk8o̷0? x% UlAkp^mғ.a; J--l Y[p7ܰ18եm 1t $U=u? 9[` s]6vsh]*wP6{ԠeCz: [:wgt׮6[ Cl AAj> Z1@uN62B71?m;UMnT6F=Zl<|ȔZi7}= a8~3-BqךQVl ';R+RY79`Εmܢ?60^oaK >exN'c~(`h4{ 2V&ZRHؘqM-1R嘍*+o5KS`o*CR3( xH+Mdn 6m<0ۛZ\WoV<q{p8̏|%ژ q썍[)V;`W;Ժqo֗-AT 66^% mk7+ǘ GV31`lV̏ ؛J*g76o`~H{c.`|8 P1?TWxH^㎖ 66aol<1wsxXw{SI&-ipJ6F&-؛Ih L썍7曘RTa~mxBM>%$~5󹽩$lE 7FMlXY2Rհ7fHnތy*11?U5& zm$?l;L@nx{3Qp6nȭdr*uis/7D,֗4/؛^ho&ڛ DEhx1YXhoJ{s ,ސ+w ~*Bi7 Pxo7̱F{]f-gYЙz8O{v03^@iovr7&[]lCg( fh {3faod7k f/x`>7-ˀMK%4Y {cI=>aolݿ>aoZX {c6]_7-썍 vm&޴.O0l V߰7Git {cR=޴(#`L!7썍I1O`6PN76,RiYّ`ofq< T 'H7 fBTşaoZei9#޴䌱Q2 noZ(7`Tgq{Ӫ;ΠU{jA{c4= oQi6$̏樰76v] {i8 QaolYaoeF~ ƾ 5Yz{k4؈@`D`o ؀&Pjn '+ԕ ԕ ԕ ES}.ue~ Ё F0t+J|B]%:@uB+uUB+uU~*O@]'J(!zC_ uŭuF'F'.u>hm;P:O@][@][@]z" }Jok}6>P}u Bu uuv .@76@]ỳ&uєk*8PM&\' u퀶YZZ"uE:PԁP\}znumnumnumnum~um~7e7Pt ?ԅ:g u!.7ԅP2LW4.}|醺k~wPWaPWaPWaPׁuh@]Eh@]mo m@]m@]UE@] u.r7ԅ{C]jܿu5zx$jܿu5B7ᆺPف /7ԅrC]ԅrC] {P;.޿uuPme@S|>uM>& uuPuu"Ե ԵjԵ Ե P u.umumBCumumum7ԅ_o _ uJ'oy*;Pu*;Pua=bj@]92B]Lu1uaP ua=n #PW@uPWܯ7(PPWy T@]"uuZ.@7Ե큺:Ӂ:=A]okE P u퀶 44Oܟ7ԅyC]؟7EhPhPhPSb*@]Lk.@70 ?P6P6.:Pԁk}ԵԵԵ<@]?E P&PumumumuE(@]u NL555ea35'kau퀶Jy:@]Ձ222' d@]d@]d@]PO@]PO@]E*ʁJ@_}*=PSꪄꪄꪄ".ޗ:PS +&B]5zG߇P' !PW~s?I9ܿ1Sz"Kv~y2us֣~*>\>&G@74{9w}!#S}-~>_3S7tK=~y yJ%BqI85q5ρS@_ -;_:r{龹|G}s?S3*Koy'RH,n"@¾Djb}_86Nj={3 E=j"uس ;RR?Kj(g{:{KcRÞzp}}RcRg9qHgJLNP'UN NpSSJԖ?`ku<#?H)A!TS&[&O1'sSwxO;hIJ7 FPɈWojWc~FPwx>x]xSۀ?Է!q%r 1##qI 5|/uxm xn |O1tWոOOqzyS?MPgC/#uHyqMMg~vF>0/ jh'GYgD'PIg>#S'󡃥0/,|8Sz|)M@i]+mywD>7w8O|vg7ݍȇw-GȈyۃOxݞ|=댟JW5_ JqO:7`>*Wܥ;KiO$&(,E EaiU1 KQO>G1ߥMԪ!$47, >JfiQU2K҆Ү<|SF)m#I!'|df '2أ>nQ#AL TߩJ|B) $ ~J Ig1V~*̧JwYʌׅ۫Px(x%EB<)J C UVp^Eh&&4IJ!}nJwd Sk{2'é+-}V0llͤ }}Lâ%E⺯\Q_澫xFyE'^4h=!9ϥ%nO!fr`O=X/Z9y]ι1/ʢ"ǟFQ"Z)V$BY:RTŶ$\nJEJAOHKZ Sc ]+C3pc7KPXVv0!4vqvG.f⺻ sBą]4䗨Co,NJ&3E!o8lᇿ=0T9%kYZ8U*n~]iZ= k*$,oZUj6亘Juky 9{C( %I賽j"n6O+H$֭6n[~nB1l?5][QeVCH3WnM:Zf1u^qaM(^@)GaPY);GU ErI}Ϡn1ɻ=ٲ Bdo@K聺XHj'h^El*|O&P,VkGdӯuFT/2\ŲXٟ@7uMKX"3櫰y6c 9*|)lYo#\C {VG2m)SqY'ݨ"P\=ACR{5c},o|V2d3OVcʶ͎Qu^T<*>p_Nx/Mg7& Հ_ƿu;(;lQb8ŭR)@^W`ߪ-T7xyitkq{W4jSD ޟ2Z6C_9P]t{F{ D~$[knae3HKa}g%rbhβAZl!+v;(ܘ;9xF]vv4 q&r 91߻;/o$׬4;2᛺[G*YKޠ4єɜq8Eê%z7^f7T* ޞD*fϲ({xӉÞ`WBG[}%6b,8VYɨ j%2^u.fQvpiR0U6 E^ruփ$n]C) q3{"Sۯ`b\)Vd>`-P(-Jx F"RzAF;DDO GRw,Y DzŎlqsTd ק NpQk(F ;ʍ6 OV1)qBѤ~oZuġygpٔ}Jo/?l_酑$a'#dYXYe:{7!]Z0*ȶ@n\ݨivݚ.R|zP:O&\mT [Dz $Ý[J')W^"l)!SڦX 9dfE,)V$B {יww&6F(}'J"h]uyI@K8>e&<5#MTb mW2 I/":\+*C#tV]{VSeJ,_TÍ$ {LY[tCjU:JPX*uC0FB-wN@ S\@u #^?v@2y8nU߱)9!+h/m?=J,'ξEy̓P+C|@ңיaېɴpWVd^ӲsMt~%t Q7Nsfq=M*/UE?-6J+p硤:5ή (0$ gj!PcADsRdUy> URGVhһcKZ1ԩ$K΂"+HW 䝡jVESLLhsK/n||+UZ%b5&24]rЍAep1{jIJ T1R/840',${B$aKhsBKUM$*_vd`0,鰁U= lnH u+I,Sє|[VP u ԤGYl2 -j{.3z#IIRK=-ԏ)lRM@V:!F|p_/$F`--NʙCM' ]A_<j%WLOe *lr.hq*UݺNy_Ml]FY۞\:שX4!f›lVÙ5UcT7]%=p4#|A@W|BL$x@D Jp$q:t2CYqE23'=ϭG/UeT1"*O]{zP7T9D죕#EN+L$;H%YCW ^?UVT65R 8U9JLM8HRYIQzbLW5 G.nq$Χj $%Jz'ֹAbn^*6$,誉"UZAm単u&J2uj/~8[gJ V3Ѐzm_ eHq N iJ7? YjRSEkӺ<"W%"Wdݯ+37d-Uj/JZ;ne%GTY)!pq qLҤ  Z(YϨSnpmgJMu](]Y{@9 N}nuUΙ\%/Fa8J Kk- #w85@_u,٪l)9$(Z莖cU' hg5lh.EGRJt'")v2S"/'nPdα[̓eڊm;4jHP7.) hPuN|Ay}`%S\EFZ2o{8"oy{k.o&#>8-OLwݥWezS@RR@7O%rx2XJ>miG^{[)&H|e7QSMw2oDE-|NTHAߛ^t1dF]yCeKqѡ%2R:eLhҽ"4zo,KFY Z+y?7F(OSk!Vү_ӨIJ!EHD %2hB}#_>$<yͫw[]PD!"VQV/2(r&n$J I&ߓ#>u{d_e-vչʦ|Z$(D }契? uv?W֢Hic!*B^H5( eAJk|"f"Nm e.tI*q s&2e %Tl4Ml+sFRvOR4x 6ns]* FEQEv7𠾜}VMST99>C7 ܖ.M $8YLiҐ `]:o#{?ėso,חV2r lWyBkcpz&~7=~#{"'atMm%B| `~|/Z}^?=b ~ O/ŌKbK8~zɨE$O/y5%:#s1j;QlcbP80=c~4u!E p}fMQ_th߹6Ǿ4G,2kޱXߨ(xa>MSzBƔl`ofC߫E4:OW+N1o|f6h3^ko&zƀu瀿H@DŽBU#+GtL_gx>fO_i 'k|Rt Tqi7qǷ`вU8am` U<a\s6F fP=|E!k9NHefyo&cz}aX23eCDfR,Э><<d<7OW87̉",73wIYo&f [x^i(U9; b} HIߘeV ߰SpV'y7J4!a؍foh,tF=:,r ͳ,`~lM|7?;ėo9wrky7ߝf O&67)sl2o͆zcC"栿.>o6kslt栿٘7 Y$Pzb/f:' %Teќ7 礿a42N99k7σ9B@,@<38t::IuzQχ8(?0bƦpu~.W_o܄1 -u|bnKlxX[͔qMt:>7y;ηC[n5Et;8OIϯ,Uc {_+GkխfVK} 1nH,bcVo!VT=z|5u+UPAzCj#5P0]ƞAod!o% <~ZX 5kj畭l7x^k )X1j Yu)v #c $ _>btܬF!Qu77xWhs}꟨]$aA&uAぺ:҅x.ţt..U $EW}J(#J(#J(#Pׅu]Pׅj6 ƫPWëPWI$y<~B]=/B]PRBhPWgjP uP uurԅT=PRP`*P P`*P P @] 偺J?JPW#PW@]R 偺p_ M uuB uuBe }ꂿy 5#5#59 =.A]. u!x.@A u=M+iB]3PoP uP1B],^ uWB]FP1I+Z }Hk}$Ե>bz EP.BQߠ.xVE-9B];9B]PGB]P&@]~ OB]W/up?.u #u #u #7 uZ eMB]Px.+Tr) B]v =]k'LPiꪰWꪄꪄ ꪄ& uw\HEPWKu_N(0.Ҋ/E(B]/E(B]J)< u CB][B][B]Ӆ^k<$5y< u1P uzr׌g~uByX7W~|}~4/~~6~ϓ_h]^_C#Sޟ3ߠm_ڃyyh/ޓdfThCin) "tϓ6I&=g|yJ?OiOVFoVK˷O@_~ZXBi)_JKbcc17ϓzވWd<`,?1-!xLLǒ'~biS:l[xQcxRk7d<Ƕ,U2YdxS:e)Vk4xEƳgdK㍇xO[ixSz4*+"e>p 7a>HyJȇ;4_0I@C̗*̧*KoU'%^P>|ڀp2L<1CI uC(I1RI'_#T0g>>#5eF]iQ[o\xN ?H|$_y=ȯ3E{xIH[O*q-ER@%J1mio|?L>uF-,P;k;I⹬]oGCI$uP+G~xvH;L7C %~~8ǧ}Mz~ևo=[//u֒{^QQed=_\0Z þ?65B'`=~zRu(z_>@|ֆV n+Շ|l ~Zwo=li/#S4_ohO'_ekζ{n=M$f"5['!ߤ&|$_gOkgah//_ih//&[ےs[׹q;/|y _^|3Fgy _\luq+nd<9Bo 'kpʬ 5NM8x5UQ4pW ܸ.)Ű#1o'?ȭ*x2%˺QHQgALG(T)eԖ}É(vO` c]Yx1Yj<׮ ^5D"N{ "9ftӘ|zB~F蔱Yڪ2ǩ 3^G5>>/cׂ  C'sʀ imU[Qa:0%Dj<6d]V/9jGZxXnK \ɥwTblhZ:{UeUOW*(JucD&5;B#@$`b7TmUԷ*"U9͘op"2"?H_\R_w+xSߗ7ԳňuT,s1g0hSݎU oA qn;2ﮔ(R~l,NʀPjIa%'jz5pmT r!#l1CO_PglPT&ޠ鋗tgcu5iE?XFƩ|G `j %No|$psetrdM+7X_~s+3\eSXA+r"?Ge" i2n7Uvsp7$l[.~{wQ1y!*4XQTF@( CPSG}p1d{8rY .[^>UńQUۑ&*+2D ̡%sKguu}#>F@92oU-v1d-T5#&?Wz7&Z W1rbYSqyD/q~pM"6١zΧ w$Y_c+,A^kv %REeʱcιamQyja֌7TR}qSTEQ/"TXI?N:G>8Kb#>bqA&ߥ̱&b|9]*YTNJ)KfmA'}jΤf_av-NNu]ׁ֝ΐahxb'%͓6@츕W )ǭ=Oʳ R@\>DSVٓw tf<4[LWtu9Ny:pQ>"^Y39eqN Eu:UdO[؈dhB̭Ԡ…q%g[霭T L ,jV_M"_q:û|'7XR*!04Z0r.vK{mͣ*)h72pB&v9٭k@cxH>~]IΘr L*9ˡ*5 SV-!2L:O4PX$kT. O-^]T9;Q3}3Lv9{4Hˎ@:<)drGnmJ.ek4tg{# ^.b\\w+zĽJlڵ[NY?݀yEυF_B]ADgԽ :g?rOU'[bΓɏ3N9+A'izb`@ɒ y<$߅$J8nsK?~::'}k2= /l_(/ akKNӮ|[йіd)} o("Iew89_hjjEL>h;HŁfP3ױ |y  }w_}>ӢZ}#+oqd5k" ٪+ǑʣŁ$tK `Xl+Dn8kH"LQ-JDSQd<9b tGT>TTE a>CsxǔWTV6vA o/me(?ϟF74:Q<%qӡwNO}\.Z{?6Rմ.y^VQUgB|=VYM"F8tuxCWhJ~W^A_ʊF/"W]`}#NMAVㄡ  *.q~+ÆAoD-ct׶չyZm8 6U8ң*97WK+N}*1Xʕ^5aR &?FMvc/LlCY^YS Mg1;/XP pK(Y9Β>iN4PgW0uu}X^03_=5[W5M1b!I\܍N af^! ݫJl^W!uArJK};}dhtU]cZ7UtsAJېѦs}#JY _&1tQ^ gq%P쑕A$VOVmY+SA9q7;gZ >pjhh Gf/ýsshQI::P?t2Х$H-~iĜTYR2';~+!bgw,k*3,aA)vof`U!ʳ:+Zzg=@FyakLlXn5 &sQзŠWx>nwk+^R N씏Ud%. gN5!ֶNK}=Qk#;*l1Rs0}I l@0Xiehm' 9#YD`n]AH%9t/|3fOzF8G}_XOɎrȞn}&Ju}aHLp]0Rɪ/%#V=#zSTM@kȶVtt^sB͠ػ.-g Xbϗm$s7xv8RYf,\W @[I?̭18|" RXY ?Jag/\gv64~* 7/ՍKNg (ͩ{w=I.ĹsY#^VKv&L&N}]`9PP=rځ@q}?Q.㆞y;A!-L^k;y&߭iۥ:Sr0|EF]}< +S ݇ I%8MP!jI "z+\-ؖ`7I7N ?CjD^z~BG=E2~wk2^O>V5e9"P \OUY$N26(d|t"FU4.ZM+@D$ƸQpni>>Aj|9Twd \ Sa7ySifx6&݊2+U?QOFrkR_ }7;zdU O~]eo GGdh؂!^L1&؍9Tk7Udt'2 gު|%k0M*mlxL@sC2w\Kl*\Du M)o8CJ _-C:괃1Mj|Y,Yf*K+L4l9#Ia)jԢOU*^* ωɿ+s6&> DqrYe&=5-JMKKb_QInP@}H @+*%t66K#G}ܐPe5ǏwS}-">!K]z Iv[QgޘY19CD1 ,yl9tRY4V.Cu&yѷT23-g)fȔ*oMWfw!]2QHL"́(Kk چ"0J}$ GVåLr5C9]eb:x#Z]IɡMFI){A0 eUJCv0.8$NUxwDMkL SEM9CP6=ՅorсXzrrĠ8Wts'r8N򃼋d(\3y}=&]kw̢׻R#I͑ۜpv+Ԡs=,ʳU5b-lb.oA2%j9]ji̜:.i x#m㠘757C0d#&#{crvI²qճ{H+nrfd3p%NY|?lͷͿ /!ҷ|{?/+|YVø/"m#~yG?lD~?f#BF#?|}:;>od?i'\'G}I㓯?$5Lyk7}ώE\ٿFtp~;7"`oֆ!20@'y; ]hnoVq: fu f>ծpi7ԓ\7^WAנ# $xX7̉ɉT_džY8h󡬁XS}ml@EhZzy B 87Z,$qqo|M_ʔט2c?͢3>!Y޳߬,7ixj)x>tIֳsmx =xUoք~7++ͲfYokW5k-!oA_y5HC3'^G0a9σ ߸6,L9Dz}} ߸7 cfYf7 ޳߬MNfa 7A0F} nX/po:1+Gֹ_|o(@:כA]kfC1}NMIQ¤:SمdP_[o%znFsߜ75ovAin_f8 eױf;Wq}|/<fQ=#Yovȶݨk'Sk]YU,7BX/ }cb;G73<JEVovT۝<%UZl fW4~G::5n`xU5*NXa?;*ov>uM]7^Mɍ79d׆m<Ra ֹҀ O(}ʓ _/l7fWJ]}0zBuB(PCI@]PNB]tꪄ.ꪄ.ꪄ.bs.>LjLjL444F(%F(%F/N/N/N  $oP҅x.ţtAh'. u B; uU_kHE u B uǘuM uM uM u] BM.Dk}VфJB]F(0.#P L]]}."PJP"TP"TP"TP"ԓP"@]& dB]t5/Եj^$ uuu.ԅPסI$uxSKiJBO.D~?P TJk$Ok'B]#}B]#}B]#}B]>r хvB_%U%U%U #U%U #U #U P u!N1N1N1O1N%SoPBB(P]:C/EW~. uu uuBぺu$ԕRB]:P ԑPWJぺ*=PIhHT)>LLL܅'e|? uS' E2}B]PRBjPׅu-Ou- u-ޟzԅ@]k3OB]"E{{.t.u u!. u](jdRS*]0O>P u>P+T)T).PdPdPd Z m4PS uUGB]PWMhn#.A]؏T@]؏Ҿ&ԕ5PWHq?j܏x.^Ӟ%չ uu:YB]%P؅p_ PXB],^k$Fk$F utz.NA]uh$ԒPWB u%PWB u%PWB uMB{PWӄ.DBO.D'e2Bqԅ@]u1~P u-τCq>Z< u-Lk|&Եy>ڴ um6yB]PB]  u]+ uTz.ƫ::.E(B]A]VuYO }B]FP5z&@]j"e%7@]Vz#U e$U e$B]O/Uq?.Uq?.U $U $$EɅ\ԓ uߠ腺XPK"t.BWbPo~ƿrX h?L(5w3>='K$3O{61#'㳓6o/3ačW&3e\CeS:,K?ZB3?,fePs}AXdK-KnsR2)>wW*o377b|rT%U"JԤ*&7$5%;jzB(eugy){>?2~-;0vRIHģ:C6#6KV~<ԞTJb ^ rI#eÏg G|R\jSM^~/2G']j&6]og;IFy}7}VR/iO%⹤_'U6Jx5Nb?on܏ģ#jR/Ż[㡆ߨjiӾ&^_y>Do= Y/C%URkKRqY߁=zE~d=|dОe=d$R/-Szֿvw>vr@)3փ:*Y/ϲO֧.zzzRo=%;yIz_RIehOQQz]R᳞T%>끋.d=q>ECP-+X/]Y?^ `h%@+HK>ԬgXz&_깓ȬN+<ɟzdn֓'Yolzdi`+N~Z=n/@kR˓/A~CIxRoo+hEzgBh?/_ [sOp[w7=#t+KC0>| ƧOA-X| G/_~$~$߃Tɿɿ!?$?|܏ǐ|䳐{.#0#2l|BFm^>zzy.>x>Nr;l]G߁>‚Fk LU|vg!mo5p.BkO_zDm~#BT "O2 -`#Ը)#T)gSbJڃB&g;d!| pMTAtq>?ԻΫߊҭu47NkH ԄqH]>J ?(JnO&8V9w34XR{6 O}Cֈ7hI}QOem9c.X>Y(w  MU pJ'?l0`OTSUlTP 95赨cRSg7˔:Miy;qC0H&'&sPqer‧,~qz F$b#єewC(ͩV7t)〉"OZV9w7&z hIybg".G:!P@R5lY3-GVx0LzQU%v/պuTģf4'jsVT_"wJ XfЭ,\vde¥H\wu*TPbc_rJH>0bKw {sl_NJ3ߊHTȊg&oAHyT%vyɁ?{h~ՈjNbJڢȩ;gKI2"bX0C{{Q)ۺRbz(Ud=ȳLWլ"MwG;,W}*݈S5!؇2b4 .]U9r. HC}&L D M![a*)5ǃ rqƪlߝa2,nr؄c w,nvyCSUH݉d{婓?I9jCÛ `??u嚽PkRAθ b'~b^jS|#p *QA 9I VsA۽e vQ-`;9H^#!mIMGL@.uT8:ԮN{jS^Wjz-Hu"V)X֊z20mC#ڲ'{ZIU~ qAO%zHX~&\83/zf**I2K*Hnx^YQb;Ӵ*4O1J~5Rn:Hwʡx?mRy9Nؙh`=hd-瘣g#Jﶙ ^JF4{:Άײ/\ ݗRt9?lƳqzN햵5٦m)l&VjOw</4)ڠ }p*&f&slﻃZ9&,A*;F٣ i^ KR]W‚L Y>~#Q2(O1wT_x[Mɏ}O%kΤTDAo,Ѣ&8Hdnk35O+MV;*)Ki֒V֎oވ:_\E0f15j0T*]icٛ#2ѧ$v`6e\%G%:d}Տ?z }v19CIKeBrBMP TbD"㔘DaһV<8JXI?sz7M/r ڂ}.N^nAzTՙq:%r^jwd0-Rԁ"fhTP.c*Ar:T`3,(ljih69n(RU nx6dr3GiUr׫ʽʡg@i2 |A8\ΧU.o"r8QT݈h.6ʏKSd i`dO ׉r{sO}C_;F]h?]@\A^v Ŕ* ڲPPTv;/lW@ʹSͺ ൚3a졍_u98(C ٨3I ;Z??s=tsz])3}L@Ė>@r_B.L톻8rn`PFă<[e홾aũhzbUzf)\b7[vsZs$`F:K;KS…n޽dHzV'Lκ}y u&bT 8sKvp<֮ K\Pznzk$GÞ d{hG[#(RaZMio(r|y`;aBkWX&Gi^8]ɉ Lm(dx ̤iX澕!ؔr}.I3 Pb*n %FBx,;ѥ;BMxmW'&EuCecUDSZX>oۯ.2(p/*F_$77`V H׻a"7m uUy$dN ;yFC2.٣.ނ[G?s3 \>}ᫎnli ,)WaKbcmnZۍd:lKu譜kL{I{]p:WɡQv{O9sTͪL]tH.1sdNV̯mrWgNº8WG!ȖB9?Ucd=rEwdH܆DSkCu0T$A18MNY2y´;io(E$Q>ϜBnhROܩ'lphUlf伾йΛuSIAMn*YVjA%͏S,ٴxea%M}Ϝ=Mi&UL!)l &Eݱ/W&}KVkgI1i ŷl з0'uI2_44w-5d JԔ.4 ڴ7H&U:[@dHl\$*J:IfÀjcAHf)GvJcCw,<,r% @Q)#?^An15 qrteyg}_@U84y# МJ^}'e2tڔGZS[#'+^9CAi"Qp\u4*q9M$ZEL# L1])]W}f߲*aLNj6$}c i }2e~.zl6>Ukެ{..T;/W'[6K͔$o>UfYUhhIJʻث R3Yh/+GGD=K0MBRFŹcW5g)R`Gq ۔Gc_(wo6V_bk0!{c"6]C?nj|H9WF`MHN|2+&e~3 /^ye 7X}iWwl6pG\CCoU($!vp!yKc4Ic3I4ͶNCdm4ۿlG%e;-9(QWh)2oݙxbᗖlbAB=5dGre䃽W'*P(j mE1%%uv?.:hȢ$py*<,j 6Q[ ;en-YNJ\!fp T}{hi"~aZoF V][-׋@Cb*1t76F.U9 &]B\8St[H&-P]yIgT3Wo9$Hv;s"H4K.8]ˆHbm奢㔡#Z$Qfۖ,2HYUZuAfTuTAϔA_VId#>U6- p(Ć@[K!" T-2L2Cv+iO5-ÑO7 gJIͷQPٺy)6. $NJOtf"fP=͐zi)0BIlK n+Z /ǵ5y@)R6{A'-}tU_O5Ҷ+Ra0zxҦFouD{ xY{ P}ju:;,gڻ} GJΦY{ dܮ{;PQ[Tha! EWQ GJYB? D{P7뚇@X,(*LMtV0:% C0dJjǢڋ*JE%qtbM4llI bZ%S,@ݲ ??wA^@bB'D+ܞ_+RYD$%4cvSg?IU8tYL"O5l浖>T*Mٍ{Fpcңb4CеE҂2Ʀڜ*k< h Khz JZG0/ hk`(3STVdl6dۤ A"U!TWG#J'vkn<ƆF*`:7gBRƵ{0P &cV-"KBn"&S]И5$ ( U,_ i[+JOkI/5^'l]Ve7Y? 4Z,i:U3iaJSž)!{S;H&|di2:*/%&uٛzY0&DWə)zJ}᪻m)ՖrZ&u!c:T9uA/)# Ec-ئ?yh:ZlZcV9t5ނbm俦;gXI*׋ԅܘֵF Hgtb ^-u]%d?2^>̴*KE;zAB,EڢibE hhl[T 7=tԀ%i`l+[Q^- rq}vU|*ǵ~"^#V51)\bҼj^)o(^YҊn@Iw3cmg6i QF!Y)g)ehЪ$_3umR*q stJGfI+d-_#1R 1i+ƖJЯv|*LɘG9tJloǂb~L-Q$Ҥ(}wQʠNS ⏔C\ mšM'\wt g- 2FDn] Q^WXQGzi[8.I&bG@_Jԣ 2DIu%VKoGVc V A.8wJt7et̯A|hAvIcܱQevHSBLǏB`ļ"Mg4MZgv|F`[,!&/}%2đ]s:{vprmjzjU-v)BtU 6i=‘x|(3|_P^-'A2 ~rv9A tC^<ὐTK[2HEk%rBb5_FݍRT^_qPiھ.8);=d'@}SWPJf^i,i)gug1L "z!LoTgΙ8?yRDXhJ{VRȦ.+B)CPS)(U ,50.5<jN޺b(ˏY++-Mct>:޹FXYf lg*pgIZ\U+~B\_6C^*$g{K S"]6K~䜳H؎>Gsn͢brd%50 j‚ֵ.W ܋6)[$|M—} ! ؎dco;l374c-!Gn ¤I2yڒ-0z jP"2R ӹdgjmxGz*S4 KO0.o3(Tf*~^9"X73_{ra#߃fG6pè(Z΂yUC ~wˁE^rZ9Ĩ4]^gfk4`EV@id!Ux_@]$bd #CѰ%z.mV]t.&ˊR.( (OeT@r&qD]tTKmW8,Ȟ9dG * 5ij(lOŔxk1xw)% ser rP==fAtAE^3iHˑe UnԩdAQ@r+7*1pE7+@SQ2fQ%:C'xMk>m.A&5Jbۧb/Ut*0E}=+\u ꍴbCMx.j0sF#lkvȖq07OK RR[A)3^jt nNWÒ1[AkC)ߴ he&TrKV>z.XGv4}kU#c~l:8!+oZ9aZeJ\%>sf *m0)ݤe4qN a cAQ9zȫлltoAnx H5P'T7fVaSw1ABԮTL7ǚnqoX䶂 MSta8~ rlvrhc`nHLs'ZMeNh%G=c l(Pkَ6mҥ /́``^4 \:1^$eAݪaEP1O.i>̍1YE ^47pE+9**ecvO9UVZ0K+{7Tc0b_HSN1hc<1,T ۿ޾'&+:L&) 4V ҼwTIAk!ah[SWnc>.4܋`%,a=M1n%p}U{r֯!nPEGԵ) 5R+Hup ]3Q`4*W7_QBF5Ya)0ó) ]e-h)[F{u] l_f6̪'`T!kF%9-ˈ#UƄ ft O8Wh54rixG:$A_ٲ`IAhZ Xn:dqSR&ϨʰY^SO16{^K/rƒr (8ZHAhozVd;|a "jXT*a0rdҶ.DT 'uJyڎm--6!m[bS PhTM̀:*MeVrq{y̮>t SwN~SlRMK.L*ݘSsfr6II$9NPPQ2Xe󂺽졋{D,!vA=.P]tH9䠅q6 g3ܥ+s}ʹp] AK(c7)( @lwpPՀRDZ.Bä姪~tEJǮÐkM~zĢF/VbtWфԛ@)x}:Yt4Rmc787wmh )) EXAPʡT ? |փ ʁ˽"a7$4+$<*`AwYH%X8Q`c%mo웃6e9Tnu;. @C༿E2#50OcpMky߂rV[} 63. X|Vn{"r@"Pp@U)SmTFδAٷIgFoV={`sСñJU MF}ސv;]7R)4WnHjVh 1N#p6J[}mROEnkZI)qԘa6}rYBEIͫunT%|Oނd\C@B+4zWoD}/3SG68Tݕp(^bo˩Z˔:}醘jFtj,]zH1) =aDRf2C*yu?*Ό|nȬ/}iCsXj$؃oK2:l%GjxPQ"-ǹ#!To7G(vLZ4er*FTCk0Bӳv؀} S1ȕ3a9=5hWn̔R/-[ َ y03BK w&yl  z6Ip*T| C649+aS&@kL +ZM8OGS9}DRuO1Ά#Gםrv>0Lɫhǧ҃ ߔmIY)pn$v%yJ8*͒nE ud5Ƈn*0UסF!pMVTJqeå%瓎nʏ?@#8_WƪiFxi?)ڱ)^ܰ- JF$`5QSg gXnA[>$qx [}VHcM\z^y=x'ȵ)[ @da[)*5QޒsR&|'?P%/W3}øTVKh|{3> stream xwTSϽ7PkhRH H.*1 J"6DTpDQ2(C"QDqpId߼y͛~kg}ֺLX Xňg` lpBF|،l *?Y"1P\8=W%Oɘ4M0J"Y2Vs,[|e92<se'9`2&ctI@o|N6(.sSdl-c(2-yH_/XZ.$&\SM07#1ؙYrfYym";8980m-m(]v^DW~ emi]P`/u}q|^R,g+\Kk)/C_|Rax8t1C^7nfzDp 柇u$/ED˦L L[B@ٹЖX!@~(* {d+} G͋љς}WL$cGD2QZ4 E@@A(q`1D `'u46ptc48.`R0) @Rt CXCP%CBH@Rf[(t CQhz#0 Zl`O828.p|O×X ?:0FBx$ !i@ڐH[EE1PL ⢖V6QP>U(j MFkt,:.FW8c1L&ӎ9ƌaX: rbl1 {{{;}#tp8_\8"Ey.,X%%Gщ1-9ҀKl.oo/O$&'=JvMޞxǥ{=Vs\x ‰N柜>ucKz=s/ol|ϝ?y ^d]ps~:;/;]7|WpQoH!ɻVsnYs}ҽ~4] =>=:`;cܱ'?e~!ańD#G&}'/?^xI֓?+\wx20;5\ӯ_etWf^Qs-mw3+?~O~ endstream endobj 66 0 obj << /Length 2715 /Filter /FlateDecode >> stream x]Ow۸Sa?$9xצf Yl)RKR}H8L//& `? :ޭNj'?ﯔ8bw$d w=~񯲛M/g< }r&T,mV7:mW@ ,*CP1SuH_ΨMDJC1Ƒ߃;7k=ւ;KW8-B&.~ F)WO+P^ `ڱk(+Oܱ.)V7 cz!9hDy<&*- 3rƠ\-.RWVYGf@ TL$~cDnH \L®#1!j#lU_iٍ<:^[בU ;]`ՙɀ}g'- j " &2|CRU_ȼ˱5^G4U6gmFuʑd7k";SYh'm7ajl{T66-Y壇wa.ݹ~D沤7$pg(8 _c=/'E7 fYUrK=dp.n쭾KV\[d6 7T$&gݰ.^(c)_]w)$: L=`Fyr.QjiS=A-r_qE{ }<-ݜvn9ѱNOK4fp+ DY~y6&ߣ{S +EvCey{ xpsΑ ;]O1 ŀI_HU$>ۍ}^/T{J:_'x9' b}cy)J"WsA?wǞ8M,yvǟ4j?R㣥`JiN)94g:FSBmJM )jy4YCܗlşw̝x@MR, ̦&XLSbMzΉM6%6昉MN)9%6]黚SjyJ-ORSjyZSjyJ-Oǿ> I,eMkFvomm7P8%,EDTQh.iL$xOCPxb"F<ԼJd Iikr]+oevӕ|B(G,7o#f;pf-_6[?l ]*"-+6Tnֶ(<+tReuIʢֿmtʅZI(lAŝn޳vctC)!EUX L,t a[_g,GlCEEpxSk/7A}3GS 7hgIBn0H3*pF׺n,'ӈu|Ñ5\*~kՍTY[;cO_]R_  t\o-dELj] o~sև+ -օ:Fqz 71GF.C-JZ0*XXk2qԯQKڶ%r7R-]m9AN <9衙?j, k\eMJpA6^aHBO$WuXPc>v3D;ڝP`u1+vث8 P4 9Xm -ۍGץ6VaTr?*iioUVѲ)u#?ܭ2?h } v 'T2KQ-X.x B ڸcqW9 h44S xLh[wwH((;B #qU׮"I^SN~>@]D dLVZނNZh#h$uv\lq1d?uv(igZ!,ء@An/q7j`[DH[8,ݼQe몏4/,A젰63Q v&`Ϡ8lb. t4%^ֈܝ CYN6E!B" Pm\kx^PƟ<> /ExtGState << /GS1 70 0 R /GS257 71 0 R /GS258 72 0 R /GS259 73 0 R >>/ColorSpace << /sRGB 74 0 R >>>> /Length 104587 /Filter /FlateDecode >> stream xK.Mr7~2` `v7մML]+=;d4K}*32bZ+_寿~_?W7[R7ۯ~__eݿ?o?ןo+/%zu_yן?_/oW?8?s}7o_gw+}_?߲(?[?|K oG߾\Ə<~۷#or~Oӏ5Q~=.}CIGYoKEXߵ'D5b>bǎMKv߿A 7oТ|.}[?ZQ]Ǐ?SRZyvs[z@g?\eM岛盞c7oϹy|,?Z盞cmt{e\69,n۰Ormcm td{.aH~o|)aypr/Z_R,ӟmW-׾sp~ד_k=?qF]k=l Ǯf9_W'jZyկ0yXOಐ\k=d ǮHfAm'YT83=ٵ,.>f/}zCs4Y"߱W\k=?1s5c,~>~?ky|f!yZO$9r]ZOh(\k=?(hfqz~0 y›Ez.O׾-Wx\z.O|x, _g/fSs׾,^>sys)sy˙,^N v)]'Y|}=;ßy3ϵbkk_o/mةsi׳M/mɖoVdKdKIJlx?d(Ij$?-ɖIZlH6~&[|'NLO|E5"y>ֈgw$["-%':$[bɷdkY0]yI|.~dkx~OF3ي+l[c=LHߒldXlد'٪ d묏ɖӓlIou$[)Iz$3'&%[Cl =oVr֌$[~*}Kf$w'Z$[KlD?V|$[;Hf<'ٲe=ٚQd˒%]G%Gl}HΪOU?>V$[Q|}g=:Ij$s'٪:/>Y':$[MlpN'ld+O5?֌}<|y~_q^sEqp'EoN<['^S\F<-qx[Y=^ps^GWu@|8`9/9?sgy< ( 8Q|g'z'_?!ϴ{'i~O"_ɧN>r`J<ϓϕ_koO>9b+7S'=Q>|EN߁':v?h8<`i3ꝟkQ/ȗO=1" jz$˧^FzG>\$ꡦL^g]GU#>,zF=y`N<9`9O's;z/^Mnz6AԻI7筫ɡbsnVe< pKM:NeN' sEC[]',>F{ wt iJ %Ya&^ṕwR=PVP>Q V @NY[V?`JC 7{ ?_ߞvZ5-_jM/_9>Ѣ;6)(~|}ٶ_m?د7EżMpW}wy}YK' ɿi䦄ׯ9<5;c >Ob0/_lgQYXJ?M=9 Q<&m^0[:?YjقY}QzbF~"WvOz|^{>!~vJZU4"(^gwGfqD}~N؛/.3}/VzݲR2icZX}9jdw<g(Ӝų-jWwgَzG (btzgWn'bHVK@xòPQ|mPR1| Lʛ, Y7hT,?);l1ӮղDέaA]`Qg3I%ع%H"Ǟ/QA?WZhJ򡥼v,y$,{3a]%찿z 7<%JbhݢE{-l9ŚCmzgXZ`adFaaTG: pӠ:p)ޑK}`4ۻST5:2SǟOq*K;u\e1Q IyjǺ).`Y9zH0x%IWc}9bϸ ӧ,cb--anJ÷rSCk'rRgBr$Jg3;+D!d(ok۴ )O]raz^G;!: V948}SOPu8ޙ='e p}_5ax*T]{mOJ'>z Oyi o"5.)M-4aR&}}bbӝ98ű O泣Vp➽DM+(SgL$&dyNh6PY,7k~VWlpPMpWUij-.E^1,`$}^|7G\'ނQ^ʗ?pfɻ<%)w>1 N9Ⱦy1EP*xe*{>ig}^E$&~`b v&FUL LA µc{C.ݬkvIC/8P^w=jk=(rF2&A9ܞS%_4|))Wp;23,(Qb@3UH;c-gWȖFWn$+§MIlLPe ).gfCA>90Wz/ ? }~*m\ s?ʒ]}p([`OԼE5/W[`=om9m5CE1QyI'3ղTK]V;1tpvCԦ3*,% MwoZh`sQbd(0*(†k ]F(5]`O X DVMU\'FTp~ڔo?&bn%tשUi^+b9=!HQm^5LؾVcIiUv$bxP`62"Y2?`7.J\~>dta)nG:>YuqUtSg#b}ff&6KIIr%dGH`n)'2Cğ5D]ŷ[z6I8s,&G&i0bnYx ΤAVYbKr"L157 ΀'("=+r&xq6w@-y/aJ`c0ƀT9D{6% :pR2W+*^%:"!SglM↛4?:SA:|i" *gU~qi3IO'N@aSluKGᲝ%!kLڷUʊ>w, OgL-Yu1m]2ieMnM-ZÄUNE\SL<N,%%b8mWlLYBMdv;5x}ҎJj&SSFXQVSF,u.L%3)(5)L Z*+rquY}"ʧ_<iMpui ,\t`xR^Tշš9Z}q#Jiaj낚IYLY9*Pk~VOjaRғT/`-_WM=9dHQҰiCSB5aqW]-mY $IW̜zsa]Eintb PRJ-~A0 @ʉ,LԙUOGXh\@d;K0*~^]QDSۅZD4C;`,y! ԉ:bm?Ar얡!dp$aw#נԔșQTʴ֊ t.̰-$U@D,b%Ԯ QO"mK : kWeGpĴnO(ǝOD!"9Fף@i&h;[xH9ˢZt[.$ޅ$:7dc}D&fV]JS;M"bnKm8^LL6o$@ l[01{3Τs({cKd?VؿtTSj,sBgIrü~'I;š)}MR؃1q#(^ s-/򧶉Te,d(~`$<<gKyTDvLeH5p,ЋHh7oy#:(iw<ۢQZQdSjq+!Ö0xmd\,)\lJ儒Lض0+&n^ân"bY U\f+`\*E͞%ZU$N|33KNlt.j6k'ԐYhXxcKoR'w*eJ4&jerK{Rzkd\XR,=h'S-TM?i#§,Щ~"h Cngq?SuMreB0j$ f,`I1Eh~E—6ݞC*e*"~|IH2V2\o)P"3浗gMOeaQXь 7Dfҧ0t!. k5\(DOQ{b6$SdkP$)mDٺ$+hdG"sN.[O=8.u֩{X ֱDHI=!̒ӶTk=#ΐ񔨢xo(ut6vr"'RT۽#O9Τ5R#jKpVqkK Hx>vn i>~;Κ":b @^qQM"wACTI}&mx7𺩪x=a!oJJ&';3! LvS/7.x%6NC!''K?n$#Z$1OoMgcg1=B/ul\Jf/snj5 fesLNEթft4f22"m܅:=AE?=>c@tBYUBuY.mWMHXg ]1m.;z߫'FZ-%%IEB>߭{pٟ6EE0AKO\2<)" ~36˝)Jl2ʳn;_&Gi]ֶ˿g1VО͙Q/E{ﲢ?j_vJJݹ9%:[Uo-b%!=!cz$Y==h\lgEJ2HUٖKɮw1V;kˣӞNFxȲcW6IGˢKo:M] ({\%xs#hz* /yqO:Fnn7Eu4;%/;y-oMFpڔ+y{oXfv8'GRwbs(S UC.Ie.ρUpFt4L83vr5މUs=zZ>a>M/_$fc?;Eu nP,!svr QEl~G`Tyk>V0V;z23(O^jV ^kZ"]1-f#rZi I ^_y}u ?tK}ѰcSc؆0]!/W,, m!J4)&M>k2pw$Vu<;*<)yY=6&EiCvL>a,%׍q΁Jܷ5D`oFHtH9eI>ߧPO(NSnAKW KGTg3SitDETHYe;jh4Q虃(IiظC%ܗ~&ʈЍΌS⒟g=֔]lG%~n w?i4˯2pKsnҤ أ ׶(`gTֹ60LYI1*1Z9aTD*C.MkshV)bgLUwOe^YYK8 D' 8talo a>Р -Ѵ hY#{;(a$᧑vn \sEs!I֒IAk*2}cq`0swke8Ixr1[pBFR$*7o]"'6Y'=7-wcΩ\qQOr*3g2X{&~G1keo-@bDatDC^$ӚY<Ȋ*gz6v>^Hs$RR"@vlg̺Q9EP6$Hr-hj}*3~$-% ^+|oQS}OM $EꞐ\:Prr\s5d$ڕv_rfԦ-$dR_ ##-dwFNG#B?ġeU0 ^oyBM!ýA+P̠J8%\CQ͊+[Ҏ)ʼwM$E qhbF!5 gLd8..T b~CLa3i5UOdu1eY >(5偐Mvh}F&j8HbW^^T~q0cF!tXؽ'n]^B6Z66OƱScF<6:(Sh -r|X0[S-lĴx[S,0H]^T^Aubű`f]DRc\@&Z;Xmٌ"Fœ3ptGEk~1-f<Az 9QTV1PޞYN_~o^1 &iDF7-N }dFS(1؞^7AǹQojPm(iz/cU'& gQsYtL8btuG!]0*Q Mms) u Ђ3osT2 ߐފ59{iS\L0v;~ KP^tW.D*;=oi!Y˜D.XT"&i%3z~pD8~V0܏W>ԸT.uI T~UbYz1GFE]D#W@zۯ/i3k4ݶKvs1Rs_%-?4,TDUVYCCaa4=TòWܙHjQ̳j{ˀ g%E}Gw%=8~_ДVI9Y;kyo$ܞkfbe*$ ʫqa"ړue: Yi",[/pԭN-ׇTxgz[̵lU.$[v:CC zOujiF;m yؚ"g$7":$z.6*i) l&|A?w7hӺL{ 3h{.lXĄr{YM)a{ Smmb1z,V4"k B e̦ "c@}Lڧ :@,*%2x`ǒRܷQ?*Yň=}CpEY >IeDxNKQ{8n >h׶cuՌN [HJEE:M-D>g[fn[A,]2m(b+<1ug tRlKw ZV4+)h< -]Mv~mPSָ5t4Q6`%vi8:EDOÉc6\7k0{m(wNw M}Jb]6i0jn  `h<>8i'm*]XܯM^!W6 M*h=Z:=G )eڞt'ט_($c"DaHA`iY/Hy'%*dօ=!EʌH/a#)h1:<*}m\{;h+=nHtae$U&bfVfe,޲zkp$$qi~~SlJjh=U=؈7: +! e ueB\![:Z5NC9NykG+aB!]|`.bC(]g$qʷ}L,)P"zaSaTx ܨ^oJlZGY&} ٥faY+Y̓A2~u JM c6,x4zdh10;PZˬhq%͛A{w s;\?w/H/\U9u Hf 6FyQX=.dR$x&>ϱ`y?e[Eoض3B{9KMLCh`bl MJ +nO<ݢ1dTv[$ʌ5K WZpZPXWI/ lqUlt LP9(͛b$e5m@\sj ݟ<# NHGҗKrWTy45:rnq!0tp6퉽ޢ\G5r歡,d hh&K2Y L+岔g87q:8ZsVA~ J% U)'z Ml[~Ӥ @Y\8bcPjlpi勡Cҙ#s BbAMfTL+JFYsؚc7e!{_&jH)3!˹&41c}хp.:N*0-VvS*5U<͍RRuR'Ԩ/WzZdjuLKx2 \ P:&Aq-2DCE0>ý˧:A*+(- -jͷT[TRy86pƘP:F*nST."4lZ{kvç;C(TۿYw6 !S8987t@"  <}.~1'tUW`}nB$~akwYTJ Gs{#  GJ3Y Iu4yZ=mTPWdk\'r1h{e >ySR|L R|,)l [Бuxrpn1[QM-yJVp:Ԓlt~_qQ7[eԻH0Qquz c}A/Awe5#Dw#dE&0g?q!)ZYƞ*7} m.~+-ׯVxDN5 6(>xQT?>!YӾ*FZkHꛢUER=8#i%ʼnn:;IuJ)ݑ";"?rٟ( \;2>yqE,wkb.YCG)wuw˦EE/ׯገT6ˈ\ǝ-v4W'?Hl뎼/9. ȋ-4f`W~"MƹbUmiVu6 &KF׌:KKp~|GŦnO$-`38 ekc6fU:+l413tSDx|_# `fhf/[E/$[\Kn}&,# _oA)ICԐc"ISP@q^Q$sֳqfI^)ڨ &*vĽi1ۙDGeYƼk CIkKkyiFy2(kҙTZ @O: U֓O-h+ N7{$r*dDž4*H%%6VbQQV:y1ɝ^ C,ƕԸ W0H/1uVqѬgFW8lˋ&lS*u2ܚ,YHs^\UE(8i]gJ%ps f瞷"<Ѣ4K`n̜cƦK榘r<)u1]13g?$x[։jJ~ jY `p/pˆfqWFطE.+#`]wi _CZDq'uV-~))u[nlѣ{Gr@Vn[cQ<L_kӑcfM["^GfW%j;&k]A@fz夰|o 8R8p[S3/ r5*[qNo!e$5J۬ Ũޥb:lR䥛7dlQh i_+z;2+7/ZD}5 35l3J @ {i5 ʦ&@R1&giW%UUOWL`)ZĮ*8ݵy\Ue^u;s? T1[5K,4>qTrxgTKLKsšcҡ²خmu8^nUUHļƣxm`9YINTѧ11u\Ӏ0 NblCيN+a2Xݴ*@ -*.NyɃK,<4<[XCrY1U7bՕ<<,&Ϸ:MTtdKҾ+6%'wV G{F'pNtUwXVPh'dr{'V[X}Ǒ$>ɟl̀7엋d ud6L~UK õ#ёG< @UC6~dXh(H r* 5zmˎùAYP iNfe55]rK#^k¦[Za^ $F.!U73hCj*2βhټI($ؖ!ɲ~Y3o5[ҴE`!wjԡy5Ѭ U(xq[hBQc/v~-=MŨz>P_Ux9R >\wz1)ʫI*`1iM?]RmRIC/ GGԇ!_X0߲g gNA9ٕ/rv RO%j4 SdI=C'y#eӀ$_r&Bݱr麉&%2ao];<˘xbIrJYɍ}Lv -J/VJ'x3ΧkuAoݛME,V*:N6Ey[7% *+:z\tX#,ĸ+<*.cC1/ n+HX$Z9)ӳS8]9ŠlB&܈"G6.C-1ɳ":5Y*ͳ-~+,͆%i6BL*[ČmZoq u?eŲRł=d_\Id<&Dl l$O?tKp fry{ƹVY/ロX  ^r,&Ku-qEL\EOFD#*X8V$^B=eH_[>rOB)_KC;996m#ԂcyST;NAʺdb=.8B5k$ F^k6Li K] 5^T Y+n}A^]j3xDuEP]n4`AQk_S[x-L2K1pXKd OK!|Zc"<+P59Cc`6~/f@ʐ!@ U:MQXWc6pKWR՘eTQPf~XU<+X)m<4M'Ns"XNT#"zng1" n%ɕTODnFE]巄BQϨdzy|\Q$.12\KHG|6Xٹk@ɸq9uC]OJ[t*3&#\p4+wA`ȤΨA Bb5R|1{mp S8;9[4V1Ko2 TĦH"JTDdk #? +Bjv-R{*BNǯ6[E15hGM*2$G\-y%\!눉(fN-$,h.ac4Mcae<. ZoobQ. Y>/la~w7I4ȫKs!nGa.cMj[yj Y{aEW?d_RDʾJi:&c[}_Z b</eyY*‘&H㑘B-iYF#L=0s{qIg LLu0^k*|08 qMq5,XpoG'v5Ԣǿ>h0cS8b%KKMʖ~[ˉ[Ĩ,|Z6x(kIE n ՛vSr`݁L-Eg{s FgZBVEIK9*HoY@rD䈻0fdbE|157Y5#Hnt%˕KZ+ 2Mk0Pc.4*PsmyA3efX۝rk@5 iha{1\^B8OJ;sKR*G1 #2e`| (=i> 8kZhE @G@6ŌlВG&)!+8m^€rsKc*fdOy04Tj #ZnܜKb.lE͕c(La*.8 giRY1hJ?" C&=.6/``J gl|bkFt_VAXgt(SABFT᮪|y8ό]򠰢U .1ҜAnQ*xzB]Ġ/Jґ_ r1A. 9[ht/7-KVFkIgNmRN"#lI"KDcI1 <_ZRRӍB#Ɏ$+iBf5PH޷hPUwk&!X :(KWivo<4'1|LsMDcڶFsG=`q)C[y)tϗ1mE<2c;x9{NKTPQyeŸt`G[{dV˙8q]fCh9ݔ3-rsEVH8r%R[4Lq3ñ1-Z9 hyPppJgr!/{0 p4T)HeS~!uE._Z2fá 5SOy]ƒ X]UI],R4`0i`XiKnkq65Lɥ-.ZRY_)ͽ2yh}Ѿ֫32}RVkaF,dE|.`psG{m7Y!GI4.f8R+4ErgCƔ Ub ۛyzvϮFW=:YJڎj{jFGym 1t% 6j"+ً~EeŁ{nl^8 OZ<` YcHhW|6'CU^<opyG"th&<>u)+B.4b,֦v,TGߎg`Yn`cbIe! '˒MP EnxBu VQ?s) wbdGgǸىt4QSvpD:E)LUPm]c_&'o+Z ;?6$ 1|gsJO5Xu[Z6ZYnA]g?:7D'Y}eIpe^`$`Btpug.Y'SMpD)75M,pJ;;rhLH1!^Wi{E۹No !+ݝOD<ܪLE(cIH/OIi 2DA,'+2HMYu>'E˵? 5~M?;T"˶>;KыZ~uA[_5qȞ|U#J'0٘R. 4NPE>dCʡ OQ䟭jr;qFk 9EcGXu]3,qW)0^}4S<^$T\E2kx  (:E:KW(mܼ PM.yntoifV؇,+GEOIX%YیM(B{+cZ/YCEm-;;c>(|gݑeOY[#v@,V42tF46%!&P؄VD\[:Z+2rаHq,(SE[Gz}s"Bgj6ѶGqcl0^YKcg Y#oNۦgLvZ4\a&kS􋙐>Ջ>6`|su=_a\4ȼal"A,3¢uϰO Ѥ{ ۮ r($ʖBX:5i jE9Op46AR3:X}_ .#e;<,[q3&ln=5A5(rV%lXudld b|fIyŦ֕SUi1=Tj߽GLpU8Xz„ 3Q!Mb?6Ab+hLmx@mn$rFbd%gE(v JQ<&F&2 )ܑlkh "~D/<*t.Eu[AH*n^dy4S*!Re`cG˝R0 ]Dњڰ.2AtOg )YgM+Nl\:v"(ޟ2@5#"M[^ビJ+ƫw /ȅOI)7%{= uI(J%{#Z2Qԁ _ז%vVk Vh!'KwՉM]QvfewBͼ0g(LNPs^1[5庽x@N)%K7ۂ36>e^*ڙKJÉ_o0iR"UvlS,j$ob$oU}fUQ]wпyfk"HM?VEto4L^OB m/vjT.}G_{8䘙[:։IDB)@VE<6ĐUFݰSf^ ZOkNJ)8zl|IFjvH}tVA*pDh(bty` -c D)>cfMMEXQs  O s[[=XN&һ"XōxvOJf@7l}4$(#|ܩi+ffvnʹqI.'H 9CL)SʯfI r,f|t'[YuR EGe:wmMJ<ݴ*Цjh/nx;0D)'&\ouυbDe2uĀ`r}'zRm|ɷ4h/B,3p{ކثMҋ_nqެBU(sX쓧&^ 721cXIۉSEmDĸx'],b=$2vNMv:_J:2,E3h B̽0i`jl:Ғ\048+,Q 1 M3ͦԔޥ\h2l Qd~3UQ[K z% XCT t$k)& GB*U;`~t ͊aHe4\;3Κ%C'K(H/\iՐٽߐ1[x] gzVn%Vj-,$~Nb-;/8nf2t,hT:. :cSn1KoRCB}tY%K4]4O4.n\@јeaiK]SQhG͙NEL0'c[OCJLb.)^uefEf4}ǔA_g~Xcj&p U'\&?Ƌ[KUMSy]K3E"Wuw%JHѝ[ut_Qn PĵUCm2NrB[ )<"u(j[LucbzrfXn>|D!3r4`qLz}؉֕Dd5#,3]6{ێd,lhd+{ >o)Y<՝5 Z3H_I$ngmGd$80&Ǣ9թpJܟpB"䛘o262| Y:CcxCJ"N3H*{$VfAnTU#9% AAGu*n9W_ EYKg_̈́!T{{'`!k>d_- ߑKx=L$~+l+1"a7j{SC}ˡ %Ng[$xm*՞[3s~q4k(tlWGWRu Σ>COSC$6{f/wQi6,]x(`٢s.˸1 kpԆ;=i7օ eW&vkcK-kezKC8ޑLyfnUްK2b<34;iMdnْ_<)7mba+lM/m.@_R?9묔 ka /gIѮ/N>wcnǠXUĄ|z*Y-3ҝrXDz,R'&M "":F4,_:u #:5K[\NΘBl0 wתaAƂs̬?KXh%EW5Ū$8/ʙ ;VrIKi<4 I4> A:ȯ\Dt1jQ#ÐSr fFnV*7ll|~ejYJ3z/3%zlʀ,mƜ͏d2Dg!,<3:1f 40f7SD1qŔܣ)"D[;p 4%ZJtтoFh$u3[?zri`W$Xf[zu*/_IEV\-T1.1]{6meW,lb0Ʈ Bc`ZOat9]Yhi;f>ӻG,31ue q%BR߭l4 ]·:c4~Ƭ{mƭ71i,vx@k ͍(~cc&HIV&ZJv=ȥ klSo fQi䀧 Xī`M {akZ cNiDWјnu;uJS[8v!Pk7!Pn]! Ue/J:\#@!|rE |IlAnlUPdVF;YgyPI)3ҩ_62/fSrșdyJ g8GWJ?paxri JՋ{V=g/{%IjG)#{˒wxY uN0 䧧pۻ3@FV>xR΅|Ʊ[?ܭƠd,} ^3Y#2n`<)߶hb#"eg-5 #h\grc 9pZUXrH2ƭe+jї[ldm"p*7e*7H攖vnB倌ʓJn8عt  \L _l*TđZ yFHɕE-JIP8f w5`wB a2ÎP#%gh/MAƦv T r/Z󴂺:)`GؗCfy b/ w{ꖊdŜ trJ8m"ފ$qU&ڃv+G83pL40xd<"M 'S0DbB?df5bg0-D#D&/<85qqAϮtLMox]%+:akkz"ZCq{N>#}9Йrȟ::OR^]L,/r0?h|{Aqv䈤5O`ym^KBKh "ޱ1[jVMSv;Ov9SG `wxKkH¿H!k[iu[ ǝX%򶪋ʬ)תxr\x<ĐZ쨕 ǭ+:-Ij,y] .啌/Vۘ7IԷ51)YӴ.JaghTWKX"7<;Nl? ;$52Sc4iWREyD8s`|&`': V96m.[vM(jܤ~mqy:q8{T>  i{L;eo3H z qXH2{.%TQQW* ^5`VN(*rf&m)or2um 'F"BRZ,@7\fAMS#UZvCQl'tvvhCLP)đ!ۆ;-r7R.IL s #ipKhqgxܔπ+4C*;.=ҚAXI)8"7n3`j@p1ۇPzH9147J\=ɣJ"W K*F!xDހ]ij =[C4U4Ϡ>򟚘 l[ ~g!v |a'Qwҁ:٭- [Gϗ 1~ݡ~$ c.PSf7rl(ȖB&v\ASfҁͦUc7)8QMW48H ΋RWL8^O93n#FF~F¦4NN829^FE(bА0f`t8`k^w] 7[+gVSeG׋]4ayz*dp+8Oe+'*J$K/o`(ggcW޸#zsNpgJc~"RL|=<QWWn/ zTBSWd[\JYJ-F6(K׈nYEgjb\7HG#NHLpM GWTwtg(Ֆ,7FX6tqN KNۯP3H9,EqY=k+LG'0L;fȿ7ϺS2$-/Ŗ|dz)=?1Ojlc|n+@~I4nɹHUK}aV>#'eb퍃pﴑ}?k=C&iJx1%b_)C b_J;fX"AwúK I de)E9TuVq78iHDr}j]sljt jm7ԋA=᭔ަ>ou_O3ݴ$c`cS;dwp\ӂL'rra˨_L :g4S*,s6>4n8pp9Q2=vhg쌻Dˋً9YeWÓ%danKK+E[/)Y '_~st>`V_pE0׀K& %M s e›1'%н1eA\eR$veZ*J6vRep%`5UT(6xx#Jy2Vy! gEϓ籹 &1B*z5Gǰ҄2MUrՠ;5|AzG17o\f%nFdݥw[m1%.^hi[;kX/@Uך㰮}S8F  y+1ĥȽk7R`%w/f:YWed/fl`@rҎ*AƋ>tpZ[Z`$vl7Ѯg$.l 8h"dim.z_0 3yP?%ǟhyцuQxQP? Y&D^F`axDΐE3&eݢ!]+l(ŪpWQX%t\O&mT1<݅moh]¶0 "\I19b+C*'% `L%My0xqa<_^kziɺdؘ X֪]cIi_P6k͖Ӣa>tJmc'.^_Y2Ӝ)[F1 b/NYybm(Et?dov̆]RgqE nweFk>쇏Qw~8w, k*:vdHҼX5Zdu %'"% /0^+B`3x5|PcF]&T#4 +@KNI:\o\s0D{12JvqV$qcy +&}_z+g--D< w|*3;3 UH9l7ҭM)a/c(#iɄ ^ %9P:1S֗N$#tme` { 4!Q_bT4|IP[)N[1\(PdRm5u KZR(; wf+`I,u1W(T쀚^R>ⳋxP-?}?aPѐ 9a!gL_5)=:m 7#RyUD$4PS9$, i~rnih 1WRaAS/il|o[U͘D;TtaؤVqҴ 9m录?~>9y;0R i͈uӜ uKx` -,~ڳjy_tJĦ?s\/ܜ6cqg`,t8<7to %N ֘D*sB8"c ɰEIfF5ӓ PDJWl'bn]X"yڼޛb@nd}|;7tep"c:EU?_\| !gl,Dc&'5cِ/,I<vE>Ykp:%&oascH tp`i!_;/r9 ֒pwᜨ i6OJ"'' 96kC1:FUI,h)Xސ!Y8dE*^r閂ZFBgts Z2_W5fKavx.a`El Gn8[C {P8"e8Kb8huO_pV#R @,e;w-5q8,XʚTa퐑Y 5mpIU1豎4jč9ڂ^DgѸ5^B9H7ܩED`v}׀qeɭ` +&fp+g4H3KVtE*-:`皅MF U6U0:4Cdjߋ>XB9o$p1( f 9;Zxe;@yLAӑe؇bIxLь,bsy!$apkRG %cGĥt/ȁ'i=/*" Z|}^16=z !^.M#.y9KCxlV( qw=E|qЯHnKvoq: Ǎw]S Mġ9W/')LX2f0Wʑݩ=r6jm4$$; dOSVgS-Ѕz>8y ="PA'*_kB!<аŠ 5΢S}koQIR,GH;wԵU6WC-Jt|wgc@+=#[S 9=GFqǏj<`Vt| w0}@MdV-܎ Mq,x߾*bf4\t;QH;B(Ofr(k&.1bCygǀ73|;1a8CENƇĬ 49kgE:v&lc'y!SOq?FN0{?R<,pxQ]۸T+ *{#>v!>`n gjjR6eJd؍gAr:To7^Ofi`L ]:6]*l\n:=a.zgjvkH:ɛI-#-HTLg"XKn4J0K8ʼ56נ뚮yQ6Gh&ZZG'2?,Phq 5'u`06}p)1E)ڙ5LbVNr DISсBKLbտ?ol?|t4~]d̸ߒv}.=4*?}9|VOG 0ϓg׺fYrz&3HGzџuĵ=րe҄gV4?ʩk9쫢~d*^O3w>1숗3FC4XZ]s!UѮgJSbaSͮih|}^[\ ]gPQ~еQ4(nʌIOԨwqfR΍עX`T`\^gY>,q{B;nv\Z%;׿/?ﮞ_}ǿ7o5lY,ʉ(}~_>oo?~?ݏMyG݂LV ?ۏ_ۿ??/??ſ?:>//~?Kv,ڏ ~G~{~o??-v0N?s硟:}˽1b|s˷{-6,{4y_ץ޹!_#G?kog|d{ bG_}~8Kh?}?>O@ʲ] o_A ɻߐ|= z_~>1[ϞS5I3 ]1pgk#ꤻ͢e=7<1_?}}}ǧs9nyo)j#\Yj;kzŵh_ U;ݤ{kYXw?S$v뺫ςצjmSMֺSk->.Yq^~-m ʯG簐)2:^RȺE"PГ;`Yϵ_+oS}gCX߲ix\i-pZ6:& j9Z׵Pmg]NzEKV׵01qzD5-f_'b3T]P30kMZ>׵ؽXO)f_}Mί4mjt^><}>l"ϻ xG< zywT<M4'T<[R>-K,ܲ4{]/-[Z"wlezlwzmwznr|fwEJ ܿkz9[~>P@ juO `o:8Gbs0n(yf"Cҋ y̶gWy,aLy͗BɈLe"A嵪S߁kBݣޯ?+zn.(oPlE/[~9FV(e@|5ǻѦKhdѾُCg CMLnZ ](C>4K*یg5|K\̀Zv}v'Qk!JO?} -H?Ld0߃d)w-Gx( E%p{ )Hl*䃇7&ۙ); i#c,0 LnEA{Nm6oΗ@HRxdwoH%|x /1-?luciѐI[%Cҷ%E!k$>*.#jp@y#I

;~(ettwY/tPkR'$?CcsWaxo.&S;S ȍ0p@Δ q5t,/ ndh6qIWqbjpS{42znEj·ӪwUl+Z;#b!4CVa<:@NoJWA2֎L>)#M&:[ٍ?&;_PoUٜCl􉞜Ϣ̀hL vsXwYTS&lI.7 4€۫|5썠:n9W[uWF5Ғd0B:^ 3=?uPȘkC ݅& Wl:LcHͨ$gc¸QC3封 " WWeJw_ aLό1FU`Fw4@S.k% #8FrJ=?Z'P|lM*C>"(CdaהRZov 꺊4*'&y>#PM׋kaaxZ5&z\5lҠiuT^d@smӞcCn,3Y8X6 uDðgO4LI~E͏ny6R%a5t3?M=P%(͎H/7ڋOwѵ\4j$4<Ѣ:D>29먧N`Sai9b>%ǠK)3 zc@;*.)bFL2NxgxnY kѮd|wT!nJɖwBkH X~htmߋhIGsvh/ %lbA(_ 9?6΃ق+&Nj P$7*B#Ucbmhۈ*gW<#D6|ud"j)~`]FK/`x2-m!\ "7DKSUa<ᄶ: jf 9& Y-;pW#b0?$w4mԝ n^ ~&t.00)U@el }dox>څJU'0PЅG^&_=bUho\.*r+c]` HzGڭıoH}9ۋbhYU܁CJ6&ƍ:?ß'9vJ`B #4} hdG@LUl} &Qt'˚OKǧz!rgǵ0Q۔2j3i"m71V,ThuFP+p_ǒG޺9R!*b,ؠX*:&ꎳ d+$^L?v˲1؇Zr5;jk "5|D XK0P䪺ٝ6G;+^[~umM@\wKV[JӮW5uX#Μ4HB23XgLqudt-C ٳp-j\OF, 'Jn@^'"D qSs0IdWeN՚d<}bqx/tŤ?][ټρc%@6FKcKQ$ MD^Gt$Q:\Bseg8M"78v$~s|U(uxk1 ƪH|n;3=z@j&y5s餛*ᤊkI"f; Syrh/UPv/.=jH mhPi%|+n?w8qwSUO~A=V{˄xǕ+Ăjf$UiwHz #KQug&si΢Ȭ\d?0kFƼrNx"hL~UEmد)f KF88q/s!R1᫡㐼uh(-aǶ.zOT. ա MM!L->Ti¢ϣ{xCg(Ss$"o*!?YHs:;7vVa+قV](s1^ ix v+@H+::M C-Qv7;"m7<$}1lP"6CXֵc۔&UC:^葦1S l?'MȡC[xq[:bB`% xot2j_ܐi܎u˥[Iz4yMnL :Nz5h/o5n;@#)y}gKHy;3n8F(Ӵ$anOsngRg7h%+@#EmS]3]KLℨ\e,MxUBܦ!3 ʨEx^5u vU3!''5J?X<!NTƞu'R%ޙ*~,g(+}cTO8del|5Ԉ6KX~\Ǔ.1iboAu8t1?@j>83hށ.4_XDsUUiuρxg $޸{)G{kȌn^'"  {UAxnGCox22#] ->-kLs/yw$vŽH1b?N`CGuD6~~31l*V^lwX^/s0* W2͚Y (|" FF`p$ ]-b R^>`*W\c;Iܝ)CAğ'kȿ9R k 5I,k5f`410VaTȲk=t/jVuMo/ H `9^mZQ|nꎇ ;>f5ɞpiŖ;n"f-ϐFokUX́y ߕ >Scp[%ϣ#Loh"1d[W=G=NO#D}a`KM1ycgGN`=7yJ 3+*d{`5wV8tB 7N}xש \yݢ6Dh86 '!(9ف"MQw:N$L:(t} ,,/~h^"xH6 ;툚 Gq8ōP܎:>g\ S }ͻft͇p" Usj- 11aw"8\.w[ةA5|US,$s|MA@q:Eu|Y, X '}߯~8Of c@*DLz5ᦡ@gGjf,<>~VM{8oH::W]HZXz=j$ҍeŏa5؈\՗9c"+ȿB<<ÔVd`'FM=Y2l&gc[%61mزhx(nVa0/Y{XCMlZg0ҝt'5:D0Цj$_8a 4}v q}+Q{ ZλO}xⓄpAi'ôIL][ G]U񌛜D-LK Ӌף*&FzǺ|~VmfVXgŧFJ EFΎjd_aQyVu13fF: Qd]IOJӲvPht1Fl[bS W+*ĖqDu'&1' |3 ` ƽt:vȀ0~DڕsUe*<do2IzGдѳ14'S%ۣ&$$U_Ɔas',M3GЫL&I'x:0d{1c,7n )TUxo]6L;!p޳*QZ[y\|\Pۍœ΀+E7Hӏq`~y zMD%]+mǤ@J fU4Gyj0V;ʗq;>KŤ#ʊ_eC(fGbƆǶEޣiТ'wQl3-X7 ئB]Xԭ4(N=ΞX]f<9 pȬGD :zu9X vXC5AFùIHL>%WA+Ar+wv.aZ-sث` ܅KNq*NL8c*8r 03ΧJfܚ Ճ_陽+^qsVݼ^6? 3SGT f0s>sN',[x4J%i6? ~J1`dDͪC3[+oIX5H9SUK;VUnTA SUxH*9.u"/ƴ\3chD|1QiJOo;Rsw;"rCzI8n Mdݾ98a]U#`sz?"wTl^(aM=;"fxl; v5/SZ;rwDB+C@6dFVI^b@MBoYt;oJO.)a1ui*.6SIl#a4<`|tZY5܆HBxdEghm k"䣉TgEީ<2= ix34@3U9{ǡew󹰥]ݨHg^"xs4E&g"XX에s0\; ]tK10,ruS/i0i?;;hb K7QD\&W(AKcoC Ea$t$ōL4Ĕ0.X'Г#k);'x2pd;r\WK)m"<'ǺWE"KUy6.jdqLrl͍ԇ!jB4wvϔGjS-pOdhB*i^{'mz40U(4:?< fxBJWٌ'w<K +yЭnS(v~"Wً]Gr%Kt,VIgV ϛγ4W0hF,qЀѕik\~9K?^2xeuXb2e>*u~~&7.JB&H5gEdNk[U|H8NffRg`D8s>}ypƔF / I6M'2M drIN7FR8u=jNLhGj~l<˦&5gCQ܇nq ko/$O5dOɐtAjSTs-*qS)Xǐ3/͞tȂ#}cr^ ̚s&Nw-D.tE _yWyIuE4Օ w븮t.},)OW_F屸 M(pWQ1bdO]4F0"+"!s(c7T2TDl\IF ^gDk1fٙ,[e0&lLdʜ{evG'L})'mgP:`(G31N"Mx6HmɠƽWدͷ#דXOL5ҼP{6F{{@ ͱoH^+=&LC^<)94Nw4-aگBtM1sNGؐV>*FhWOU@kWd͑= o9kr`ϒ}(\ՄzOnW @QTv׼X n|n.h2/A3D* UD ,sП^2aS*_tnHJdL?_X/.UL72 4B#45'Z&V/t3`w` q\Fc] ]T utt#a 3ݩnZ*AKyfo{u tnv\r +{W)Bڦ;t4T9v|֑E~K,RCWIg8i2m蕛? n̍a]qVieۑ8j` ͺloH⳦n+PY}y_5΃CL^Q݋Ot|LYYyA;Ep^סyP=k$35*(|)[01VMgG5ּ5 x;7g¤d =ՙs02ZgH]ifYPD~I@((T2Ч15{`4.!W 4+B< xU@vNU"=x&{:tp? Cq7g#ۤ5ٙߖat"8#-SF]DdR Fȕ %pў/K]vqg]EiM&yU)׋*-b$x ϴB$"C+>k)֎Y-3c!^HMNLBbZ6̎&o')ٚ1d;Ӹ;(MiJҌ<~!pRA1?#K|(e_ZEa tq򺎖ܼi^i$u$Q,7S6IzGmc<~XKs+.NW,|(WDg張doZe6c"ۄCX5M%o޹xdk8;[u7R/n\06 H1!8I#5CdL;jIk &~Q~}j7:A7 '%Wxa0#ؓU$J➳4w9[i)hmBja} PBOB"qua^5J;1hhWK/E٪ }(!/wTe5roVS0/qdFzvQnMùK5p$c1-~ϳ;ս5/qn%OM:s&QhԶUnNkjQ8|#bdN{T^RGЅ3ͣi2_壼6{ҳ1)"د~PT}dvQ=kn&E¾2BU4L{mmLؐ _g9; ]qQB*1)}nr* b4ߪ;Ӻ!Og\+ q½c͛m.,&<^'``eni4QdjoAЭclۈ@r9wObSkF&5HEs 8?PU%QQ0rС9)00rX9m1hb>Vv]ʸ`t@)T!c߷ :p؅96mxd|n&HHKh-\}^.[N ]R6k]HZ=úyv~J >&dc=qU&"tX;#)qJ7 1Tx\lu\,pFѓFfG [%zЬT׹47vȰGO̽eTp'!{|6G:+o g:gJƼSNF9"֬8qiGPE1''5FwjPd y!'  D\1._K M:[fܺ9ƒJghUٻ܆\y:F S~DA/?OtȰ^0RՉcP}riK)"\qagߑbxp()G")s!{_c0a#SH[^9MBӉ%o'{Cb<ߙQ?/v[>鰙W;p Ğ\^9U¥v򑈞+]GLt VC޹3eBvCwa,> ?Şz zn nmS$/"O&Ϫ4n/O ١ͪIGG[DAiEY t@at ]4hAK񐴷B<^r *JKORiV+nO6oAwȰ'uEr1|Zv/EiVygؾw)bcYOu]=9-fMs쑓.Se} dU"L&=c_,-ET|tY )%0fY*uz E, wٺpKK%ҔJ9OqN phudzumsjxlOfsvXw"Wide2MvkK {#_빚pNϴ6UfS =XlQ޽9ZZ˿zci;Vg;B;A%d oxO#ƃ̹?2fQsNbCU`yqQǠLZYZeUd*:j9)7v(xE 8^( yw iz$)w8@8 `I:`INÛEU[c4u6Y7 ;R[ʦK٣wprJ Tl[3Bk~.MYA8NpSєeOwet(qK9ù[lzGKfk3>L1Vw/AnR0kL YWe4^hO(; d@HU5?Pd &)96 }e(;#M\$r ,Ep[ôihے(gG3V,IdY3_(@Yk1}$&~"nrp.XQׂ꽵la,dmceSVلW^`RDbizTHW+8@J;l>eD32ۯ[CvqhOZɡ0d5PEw!/AMxʙ,,sd= `f -n@Kg]Vzh`y̫ nsQ}yDeOf!oM=Ƀ?Ac-O$/sNoC[[E%SͩSu<\(a,`yKV#xe[o pTY1 c<ŚxCD/Sb_6/ی &FMdX|r RV֪ 4ű°kpX-v1ed*ӞaA܋pkvɫ͈N* RFZƏ.?%xPKR4t,vo=2Mg18}E?!qS)Z[;|3<69g?jfgb 4^yHYYm m"F6qVQ3w$ꉮntiI'g:|$i[ʃI.fECrgsګ~,7׵[:j:o Ѽ"0KIhD/͛ck@.dvJ_vIOyV:$"uSM☊ ol&Cä xpXoS[*O:Nd%N;Z5=70ߞtnz{IBWC;Kҝ:aU7ԐBkضOʙCHl `])Ӈ{cǧ͐ a]@u}>PR,/Wc":Qeon:GNc)]~Rd0Ή04v;/QÜ:ڈUcr<]ߴHl^n?Ċˌ_?:-8pZ>#0iLJ ?R7MynMԻF~UXo(/:7spҝf*@)@w2tXʰ2=TK9rQ!L5,v/[rIT%Y>| $HM=QdCTY'90TK=Fw~D{hzގtNFJ.И~.iN<;dd7=ƑkFtlL X ab=Jd8-!O==CR+"nX}Dp~I/4X% Ee6\ؒ>Lt.󩨞aH W#UR6۵~p 6N59eNdT3_P"[C rsQ 2o$xD+M7]ݟ 'N ̓r6c3tc;zbziAw]-M,H#-] _tqY-t 4: o"]! 7 l U"4U̗7hI>pDBcc5#WUّOluk/N⯂;ҙqW|by^E!FT#ɨ̠39.sK(DX;>9wrW,Z2zﯫ8^&FvhÚ!?ژʭO4սEn(miipncCbOxv^Rbv9;K>DnB]Ƽ _\?rnG:L6چ{Oԇs5_=j9ydehWi/.;?k2``X a_/jbԗlLaNIVZ~z'Kfa;BU%l;3X+x+qS)v*$h yɢuw{h-Za>+H!;`ﱁQh f^X8vVlv]d3ӛֱOv#V̳ltm!Xzr^)|nLp.dIMu ݢ[T[0R;Vύ MTy8t]NբnGz f4^SHș׮٥dz6Yеv\/Ηm?5ҐWX_EeIijpy /Niu;ք)2ƟӜзԻ˜=V8@pMZސAppniN4gwŎ`jc`t S5Y6LF$n> 6:x +!'#*v|D2br,G}R3b N4?J>/ pYD #*.0pJh+xE# }`g :fNHVۦusi(72dܧJdw&[hu:\MEhVT#i^8J7SjA$"a]3[S!*oޯa̐s"JW &86E S)s%w<0Fyv:pf̱v:]LğKqr%Yp^BѢٿIa/B@>ag}<]rPCgQ {%7q.{Df.''ܮuoȧo Ê-^{CgC`խWG#hDjT]b9~g|]86тh| AMWs ?DU9&STMB#r<-2(!`J zFl9Q*9BqiZZC M.QdV첌ϴ1; jzTy[m#>4g~}Z$r. Yw#kGv91zy;S饵*zPX^NnFPP7Fr՗!2TBJ΁> ]$KEY[F@*>.S 'M P-6&(,8 ZPK(oR&s%ChB>X y{\K l-0"8MA\HFIrزu'+})8_ܟsp];ugҾ1;S.Gyj4ϋ *&=ϱBK kUlGEطr|2'td`jO0֟Ym> !l\:M3r+9+3"0<:jS[Z۝& WcJP+L^QדQ=؊Hf=1?@/7䰼ud,| ֿL$vERE%4`,Uuj:'r 'l􉔱#pfJK;)_H5x U5Vؔcj2PUNaqNXdd|dG!E&b`(#G{,CB:DTQ؊ˀ ۶Xfp7ةj)Kz ž3$;LpnRbz6dA3~9t¶jG 5Q/I#zŝ> U$LԸc `cQHZ׏VQ(5/f&$akœ>$\'GM(5rB\]X 2LIGZqgN=uXvOL5D|et_:/M :Ls h_iˋ$ EG:qڹȶeչE6j]dKv] DFSHc1<'u'3"k9w0,;E٦OUL鰺T-1,A:w Lh6$uZg'Z ڳaﻙ g._0ԔОR; rpVng "*0B#pwL.V=\' 5Z ,|. (]*zd5!$%A<>Ȟ;S`PEEF'44S<:C&R6P돚d2o?b+'ʡ&XowAD6.h)oFIپK"טβ$ PH l:>MT1^R=9籍ǚ_묬OAڶ=E w6y@/ޙbA~tgjj߷a2<fqsp7=&#M勾d 3ξѤU(D#@xPH$w!IpbV e^]oddmC^⨨-Q4"1%(Ka7!H^_q"k6~~ঢi^+n%I%Pš-紿̎`dy-2ǺB*LNy\:" )hLEDI,ſZ%7;/'M ::t0j$O <1Q,郦{q Sf S<:̆Hl 逭 D"j ' }1vڍ2 1=E,~TJK}8[;2x gwS-R JE#l䉛Ϩ1_ S-2؎aZqd3K+5zp oVSYH˻eFͳ  1fPl \4,mF*OCm3b|йX[#Z6 IT8hۓ@z9.GdໝA!m9@RAeJ~6aTI_ߨPFq "ڍ]>;!-e 88V[q=<PZt f CD*^ٸlz\-0t>jDl6^&`/S{}DŒR@̈LfZ*c2 ̒C4%K[ŸzhќO,)[EnG=t[T$AEF!ˆNT\albFשdӶ09v͙hŢ~fOجr Z\ ;aedt̻g`hcNY7'R|`ӭ5}sjs~GEv@Xlq>de+D,uKjVQc/E0Yi!kgU*ǧNj;z* ]>?SMq%gbb<..=EHA]lCom͟i3z[(*k:Z M+<WTԙӅ(f;6նct IbY%Z<#" -XyM}b{hʓ@w6>+-Q)! 9Am fY4xf:2\,Z\*{6o{T8ѲA^jfy7r WX*jUJOQ^aɍo"@UeZ8$λh΅'ޕ"L(}tSb/l(>`x[?sD9kO/9'e+/څ?E&dC7u !P[BZnG[Hewft&mk-_φBvWA[ș!_YQ Cl]1_i> [ɵ:1ƃEU!TvpYU[Ps^ /<E(KjY*D$U͹./e:3bM%! s2tc9ۭ|:p9l$ZH$;k@Ldy=fŐ6.F]ke,P&F42USgST K[~t&Tr#lG aҬ[@Y`Cez"UqFL:J{Z 8pUlf̩A4 =Sn&".akhNYKQIY`Li'], ü_AH (7!D1c(t2`8-tD#4淘 zj!Gf"Sc% [Q*RѷkX&rXn" Ru~{&cF 4G=ZҩFK=bU 8rqكv!v sm hG[. IBJ|~m-;E]/ [y$."N)D OgS|V {|1Vt٢Q7Kֆ^r(Dٿ+| ȃSKogaXx`)n,';ُ_'n_YEJSuªQc_:LHꫳ~8M5»]LGqof vF$kxJd˜mX]XAo[01nn*cɒԘ[*ۡ $Qˆc!U䜚&\8ܑohS!lw%)642wy_+a2!whù . vC|I_QDRfC+'̛<$EdU%hTq[;ݣ%v>UCG;y<t[ƤˣK¤آJd$cتmDဣ`M05n5F, BaIQ22֤ig{J})5ݩRW6 cj@6'hPR7!+[2wEcqgD C_epR糽!2NYhKTY?bՒ&+aOnDF<<(TH2Q6ךQv`\-jwV42kkF!jqK|̞ uI0rT+JCUOTJLW[PUtȱ"[VHr -b:&i:.F2k`h \4|1'*8{]IG9҂NM gd*ޙSЇDSpHDʦ85ǯ''Ki8¾:dCf tLo]fM U43\k#%FfQY]| AGoWCl1^ Aaac] †L[q`EDz6&X4s(6g^^`l -[Ϡ/~Qثkݾ#RE eۣsR3A%h@umC< p[hqު\9wj_VvmfT#8&Pxf%$oqixO*&,أF|I6m灳0ܒ+|FHOP.`o`ݔ_qԓ|zc6f(L4BUxGd) K:9'A/6QlAu=ǎ"㰛(h+ wR.֑r]/R!$'ۙNQ. j>Gn)y'ZG4$]aBI-(DY$`Z#A/ǔ!l8rR &\; u@o'I|&MvΛW"2T(D%#$J[P$4TIBc'5^Y.F&5\&NuLh[E{rD>HK?.ʍ~ G-K`KٶPUW+,W%j+P2bE2#<۟' a]tAƖhe.CՄpSsfjԮB#$V@;jBT_vhS萣 X@⮲EZq#BgQ0 9#8IG0ϩ'_u X.0m݊usv}Z1((/Zآ{(̄{kp +rpL%s|3 Ag9E4Fslt@/ȣc'Td968-Ů>: ᱲ]ɋq5% Хo~a(,jL~]aU*fHd[yXHt䨞<#GmP|s'ifiXjqth`2oqqyrv:8C3"@i<D!)lv5퀁 "$fbtq1e1ܗ|k1N$Ɛb~ekp~'I&dE1s\b=Q;eAT;vnHjӻԊHn'xSM]J:®sޅ1@[wvڟE*]\Q*eue_mu#=N 3 όߑn2*X7b,~1E1;|rQGvƂv- A#aҔk$}*GRQq;,gGlAf|:'/KcbHECӉ_%dyNt5!BK:#˧ʄ7jac+68m|u4:#LCƒԉ$VT u=G3փ\l>=w3sXȈjN h-,VfD;`;+4Zb-=H}Qى4ACƆq&<[23fSpx\;jqemֱ3;~Ov86%Fc' ɆDS()>csTfp6X`~5x:E&{6C[6M4ۯ*hlHVA{ :XhxVrtnRbv6< iRMJّh[u|p5ip7f-x<Ѯ)Ӷ?z %*lK\6kV2y6'fW9TۻF̸l*:^0)"ݝ&s9HT6OYȒrvGWvZ4瞛UzAJ#GxV [{L ĨLR^ƒE HZ쫓5 H bmsBD:WDmuI$Vec` L)p:eP[=Fp^j6[opCkIQMCmJˆ(;Bۼ6!r@7+&up1m8YTPa+ViVgsM_a$U%О_ȥ.a%4+3cc$cH_ú$l„ŇaTxؾ1mz$fmQ5}"R)@c}לI<$ӻG3VT#8 ',:4k}*:w; hq8 f.7Cv{ѦX-J<S3WOfF}hG&#=ȥerNuҐn|-'IOlG [!KqI>X¬z!f`A{ v8~O4 Cew5q}/UOOdo? /iqkdFT1m2˖$F,FX+4Ӣx$k9{, 9m@Y ^;WX35Hqtp{M@d~,iI R~5zG86M&V^TUˈnC52, Z+ZsQkw;DB1qN۸`^t9!tl`|A$̞1s3)إ.p&O73ϛ[k$=U.*f6[jd`j)c%iAE׿GD,nsiiwbnDxWtq Ny8 (<G#1GޠY(H:-ezUt mu2ӌCY.IDXy*5hjA.lt|ϨiuQǕ/cPMV HzlEtk(C4 t F=sd3c1R&Ia_3QDׯx(9.|;fœke'viHβNXk$~:$F܆B bFic^>V.M u^e"@&L1`oBQ+= :4WN[bzUJ]3 F}:y QDPU.- >@46nmy򢉐P8$ Od&VN#2jfQ8`Bi"Uo.s#o`@+5;IХB4Efΰ;c8#l{; `#3Tud V\)IfO]-IB$U=JC^Z2t&Iz(/([ =lrT]r^/ Ǔ Ks̲#d jF*"TVfrEOz96|0IK~::CvQZD27MjדA,c P$-s.f-l qoL[o?mZ^..{ 8.Ū'ILEh eZ\ DװA0p(kJ4 KːĀ3P">>BHB.$]ې%3|ÖcWZg x _ru]yjS}|׭d pC'"bzd\T?PCQwX2j^Ί~s$.-Ƃ>'4XdYo aUqE1ƼU-mv&nV0ɭa;$H_.3fΪ&0[he^= e }_csҸ|D(⧢v6b.u6Uۂfٸ*|AfP@$!Id]o$[#SS͆x'&ɫ B/trd(n(D<:Kpo}ʣB_żϣ]!JݵqggaOv*Njzh'#aU?NNܔId}q{Swj.$Y۶AmaG'$=[3!k\` Kߤ#p:Q0YsFs7ag:c'F4yӥB}=2MKL=q۔Xp,E2FyaOKd9XmFKㅭR{dž'7 Ez*aDXzLW$u6''#cG-hZ)/Ɓ>et]iKHBK^!G:1S J灑nߗqIW.P\G[z c}5DgP|#fA Y` <Sc|<ڑ'/,\b{#;m`GJإ V71*a]񄠶LsllgDQ,DjSE6Q@1`5on]+U+܂9IQC{|7'-)a XђEcŐ˥%pfi׮ f~G1=GGs!y]?7O_ǟ7O_o>~R⃔>O?;}]GZ^[}P:ߞܧal4zfz/'S?y^' '?YٟyO/*K}o/xX_?OH\hџٻ+ۼ7H�E?>'R y }_A<}˯@?'x+Y;g~K GߝGsaߝN]$ҳ_cg=ƿ<1oiD2U~6_)g\-:ˣ4E囝]R>{=dԫIIu{<]\kH.d:B[^]_kث1)C-V⯥zU;dv,::lE~w`Я3)ygZVWZ|SO{DpuQ;j#U~Kݝu>azTc5YTcЫd*(^ˬи\{jEN%pP\0{-gjg1^ZwG&ZO$O]+vjfk5Ҵ }WvfogGwZ?3GFH1UgQoZ?3~KyZ#޴~fRD " 7Y(^zY0#|߿Qߛ,3KO4>YЛϬAnZ?3bH{d`i̪$ { Mg6zM>i&1{3>{ڛϴV =\oZ?ly|^h܇{gɲX?K s`jɫX?+'L?쵼fz)gPacX?{I-lZ?ly|,^Yr{YIJ޵~V ᗏ fk1cjZ?+\ |,@Z?++Vw5z]gee޵~Vh+J9U4R]g/{YELk&ˡ۩#s'V⟅UO)/Xrb=󺞭jgkl-zE)Şl-z}J1R=ZTRy=RUͳu>XlO).gkG)Şl-*N)gkQtJb>R=ZjgkQ9WK)^'N6J(|R=)ŞQ5!O)Ni7B9^G)'R,{^G)ք>XmO)ք>XuO)Rb(<|)xJ&d)QyJ@6R;G)ŚJѧ;G)ŚkBb:Z?KR)t~b:j?KR)Ŧg)YMrO)T=RLGg)S)Ym^O)Uz=RLGg)sR_J.d)ź;G){J)Q{JsԞR'_JISbq>Xbq>XO)GSuO)GSuק)h|Jbq>X}O)>XuO)5yJ)brb=SxN)֣,|}bR,J(Fyx^sqR>ovoy_g=/80z}^S{L;=>P@OSO[}>X@OV.OSըO=X8bUԓ>f@O=PSV'O=[~9n@O=\՟=r@_MAyЧOhT't*ZU jf?~>]rF Q释_:O鷊ϧ+z~}J@ /?EC>&Pn4P_;j%_O?\~eD?]~}+N?^(%rF//gx@ JP>xC0{<>xE31*;xHV=%Y҃d7ޒj^ (COA9ьb.jϤ#AO;+Ό8c sLꦛ(!6N,-v v469<!`-ηgkwYcmi["O%qq߾TU&a.F5Q\-@<[;(]/3T3쉞XkL1WMA9C+*uE#f :Qx-J<ِC7@Mnθ/sAap5tQ<v,[dЈ.6&]Ȧ2g`!9KX[mAWg{&oYOeh?вƾ!_ފth fw5:8fl[;t)](T3IYyW2p'rD6|8'TZ+ѧJoCI2L:;8^Gi_J$ lJٰsH$j(#/""&iޜ5 vN6h.xf:Ztfp޷[|Iy(fdJǑ#{bWC2 ?¡Ix (6g V4W4,>l'v/i`8gUGzk(G8Wv+''JaťjOcgnu%R{1F3ܳjæm+n3(t js̉2,rAV.qt-̊zFP;&]Ton˞* aMn hN+'m+*xloR7wBC{5^oi}|ߡ޵5zr.x \FS#jݏ']ɪkձYߗ` ~s5²#r˫Yʾ66^vD8 <%isK tj+Y7̉ykVH5B $[\mW3*xmj]1О+׮>E Sp|V4g}Q1@&1~:bZu\ip8aa*0ɸFуiroVYY P4 .bQ.AQlBسYhG'|&MF/b\͕Iz]'kv!ώQNgp֍=9sWXUCE?7sqA'T@eU>a0eHQC} Lu)Vry{UV{ɡUAk'lU-:1`'*~J>V>OI J8132LJڵBNw٭+*7ֵ|Amo%[FCx +pI+\!O=F;$|rQ6eE L =vxB3_<Ϥsz]a`.8VN vT69aUt t 7B[NlUAs,.FQ&Pot _,R[c7oX(VnBPTKۉavt{cfBFké4> _v$m`3+ 젫yf7A4"PST,pD[kif4YT֨Fk*TipQԏE6M==KA<_-q`|b;цxy+clMiHp5O"1lX3 Z W GY(i a2MԊ,F3ɗ=Mp4t{[covۑLwxbb˲Mdv3dI#k*L<;a64+nfinmT5StզfDxGa6l"m,ըho_">N!C Sr"݈\ˆ2_څU_*'3 fk6+nfkO˰40C;=1'˘fc-{\7ѠJ ]\$}F.q`15щlˌ|U,F%E]Du4ΌeqV32u8_vPv٤8fm$1˧=0C.H6vF'x҆vSŕbR= TeEGuROO{N0&Cyc5.z׵E2j'$U<26L`:0M̪)iށ |gVxZUQ7E;aB[ >fHYZ(m$쎛UV S`t 3~>D RA] Юxj$_[:/`" agQ",y*+4$AF3G`ޮH;p vlRX.LVɟ̛,4^/ mv5um4r0J({1`VEU}z5MK~lQfG=_d=.ZE( @nGg].Jo򄥦q]ӱB٨wInY J@AIAPIs)hpG \ . :4UMROԹX!s= 6(ӓcv̖ g kEZȑrC-jEłk̀-\P+D*ĸj|ii&ʙggУS` ݣZ\'FŪ#ՓstG}#ItiNNtj4HQ}XgJ$2Y~WV0Άq%\o3On `q 0V? _¦ʜDI"TTOw?βf~໽]#|#rf+)N d7_p"A]#ׯhugtn>"G}Z6C-Дcr?M%ut#6t" )-JbYzGjT^qg7Nt.D&3[W5n֖g־$Pzd 6OYFE̼RbF;O) NnMVd G^+V1ιWM%8!j+f#þH\y`.Ss@3> G(.x ֛g%Y'J=Ń,AC6LdԐijClu21e8j42Y0|{{_Js[J|y[7ZPbax>VUt$tѥZ(07W:a|_ZQĝ*My(I\l`㲬#mI)vElGPPc^HHW =z٩$X! Bde T7r'Kg }#+-PN(8mr<"ȥT)#p4lfV3W &&#ܰb" @XtLƨN%idI|!V'!b z2:g:O+_acɄ[tL]&bh:#;gHRAB }&]c_ w:xE'H 44~HygIJ%5 Gwv5>UCѹ_T9tV&)dn`l1Bdie"]:PfGnGקI7+[5_KnEro$!_4w!_TbFZEw?hh3Cxb2؆uNm# @핧!Ʋgĉ V#YEQnHDS-bZBy >g(fK[ <ޙmydbNUϬ24`:~dEc84*)k(. |fLԭ.wύn)ZRK,LJA;W8噇Gu8ekhAbyyi7,v86顳- f0pc`iM<펍Po*HNO֝.fyhi7yCLVQ8 CIaiЂ}GHM8Yɍ*;"uv:&ޮZ?WgUT}t@hRam]<:pX1%pzc̛jC7/%nHӆv\Ϻо/5|`C y*5ֈ4pT/x s: 4儼: C( V+W$lAG|__e%]1LTq7q3=2Ps1-40wM++FyyPZҍ}%s;s0yv*ϝU@]G\߼TuHvstc8 zT+iOAxUSqkԮ&u5{1221D-a}܂rl#t-ȖF!u|BxcjYٲoW܁mRsQ;Ox9[I#?[ceRq0%a틍 vH8>u%YK,sc2'DGjiD' TjiZ/ % {7 FkBg ]S;ؔ2e1BH-}Pyͣ&C)T7P떉RZ)HgV 71Y& jVYߨ'#SMt عO+Bw0߮݋4v>n2}!b#j{0%/x5VhkV#9l%Wvw6́*RI]H?YGb} 8"T6oT%+HDgt-' _W!kϹuI2:݅j-7 ] ݯ#,CNC ghNvWrMÀca2UU=߽LP.ǥIѰF2W(m]&]wZуL#bO`F{Iw3tWmreC tM5*Hܳ1Ka*9B*яP6NB R5xLb U&u G(FU,XIul\|dQCvIfD NTŒ?m: :=4pI;aCNUCwP; i;a 4-HP[e$@V łn#+[c9؆x-nu -Aa'GB!ULw7}H2u]M\>ٳ>STd4vV 9d'n =Cn_GX'4pnzT͞44sD$OA_!M.=()λ¸ZY3``lh{aIp&euEXJ5V$".U0"J1g{"Eݟ+8ǍNIõ(nrs8??¥. ӟf,ս8OgwXtVwO)"Vjf|IdA0b,`iU>$)FX~'~qU#!l B΅;a`!{ U+ٳXmDBpUYe*9kvpooTDlpF Xk6X)('gE)tf`$eկ;)Q׸$"~UL94(+Iʑ~僆XZΕ"(Y9Qbؤ=;TԄH B/i37fw,2ɛ(S _W N1:`#]–5|#V9,:]GTAoﻏ}('CT_"z4`IŲO%p,Q""Q\N ghxHGJx,هFzE5h%_1}.?<1Jz!9_ZYr1X8+rsl\殈hyɄ[ҼtV@)i GҰ㨺>5_oj+;PⱆPK.E7. =H23t<s=e8,n\f"jt\1 9o4,{0JVGҵqEDE p>az%ǽ£^d _TJn%u I[N4Nd"0ۼ@l+yrݞ. :wؙΔ j/q$cԭ.1j&zťw_.=ZE'6.8>Nʸ?ORkf6_+ONz=~3O5X%́dh-&d|}dss s EQ1헌efjç*=Ҝڜj4Qyq|  14%.Y{6[gOidCk뭡#L*mㅞ6&\{ۧZ#Y1WN4)SBHv)r7dE H5u([t~006͹Y րQ/O20e,<ћ~Pv,`޷r`bC ڤ!|- O{&VzTO'mIyH@bhs?)`eC:y75q6%-C{$,E kgmZcֱ%[Vv=1:gMM5m8{0^ȢFrX6:u%狦1"Qb%b (rQWd!#n֫rjbanRh ؒR^U%*elFam $(3<<:[Rwc7`sS %.xyu@^ؤ]a3WiVC}ѱ\,O8\"9ԌQְr0S<ύH7Y|t[Hv:'yK頍Yܾ 溱\U@;R88dvRQ#$~+錓hiٰ+F bqlcmE%n^+=t&"fCaa3Fq×UM͠"~e;g]T[lp,"7O4[:ɓl|%?17A_rFhe/ʻu#d sҺeA6Fie 8"Ϧ3t"#!:iMUP$bd]7|uk"({޳LVQ(3C.*l8vLaZ4Yl8[(?קV,QT75NF V+;gKnȦk=Nފ%.H}$&*?.͂7T1*JY6.Mv滾gH> 3B_F+^^B})M/3y{S^Л̫haтC"HDࢉpM$FfGqr9V?eÐиC\0c>~4 uSv%W_:{bz%xhG2Ve. Z 5 P5Ȟ(ԲgIO祇J}fJzeLEB'zmڛ$/̎vZCf9#kLYYǐ[TJԉmLuD&: k:oN'.6C=v;9ej:دّ^1Ucv3A캬_epJfAg=XKL7R+.nCT%!b0!6pҠb{l[ ./'y%[LpqN itv,n5dk)?c_Q2$MD!e'ͺ,u⩤OUDGZ* J8Y)tDX 0E{들+:[BӌQZ4 " d}æ$@>ޠr71I̧eQ`0cHnT!w?vbjchͲoNJ)&s1Q-^xtf[yݫ`j6I1?Y|疗Ȣ)1 sFE>u@,nDFׇkʜlܥ+ݢu7~aOh94!46ox1KX8Fh|Xe4-fX4aLOΈ 7dFKRs)(|}UuĀ\[0 1-7фH*f%@]A9M[xdx0_b]HL%3|<d=/;c[bڟ?PEۊƋSs+S@t3[G'%MEAϭ}b`}f4lVhHzGcgb"c}5t hz ƟMyJ34TEEGu)h5Uu+Jw vSS.,ؾDbi=vhbMg5r$=[ȍv,v>^=mcZviE92-LqDvg'ci6 H^UǺ%-aW8K\?:yi ǭvYyВ8I[;ݼtH? 'R,Ӝzq-d~x܊* g7dh8nv <3 8yL&f9 wJ]:Fޢ6@&K21 l.FתH9.@85pjjތ q> }UیPeېȪS hj,'0pcQl7S/E?ւLCj%oTuur~ cd+HDS'@P2z}yqItWp!bd"+-\{5_gp>ret`UP4KZq 5CYg/kQ--b{'9$HʢR-A9Ce G(IO4,7 '71GaGv}3ݥT+hAL#ƹ99[+}mw*f`rJ͗zpvkA4)FL $WBQoZh34"[5٠ [*O(\ gHh?11T p+z h N꧌iPˈRe)  hJC6W-Ō0?/W|h0p(Wjl9+5+o2S\֐wjwrБl?YJ [tsx$d`>.(L.H &A0*^|$N MjeruOOCl;a3tj)"' C&EUql4N^2L:K۸\Lj~uokEC,"x2).14o6d?_GaGL xL=I:& xUIm ?(ƒ k}<8& nĵQyj Hf$% V}EIMkme*C%(\ےOY+sCC>n&F(G1.ZY Wb\v@Ȏo +hݰR'%h%ihC^^!S<kNB_̻uzN\"0dQc~fghW4C.K^F!N$,AT!hݱ?wQqeoalE $p.SqZ$67*=߼ɨ'I #h+buU%9Ě`=Χy>94fWa ֝2OX! =Ɏˆlh/յiOXJu/j#RSMBsӭ|#?ev‘&5|2^~"5 OPaF='4! 0ylet3N/80L:.4f[Dt k ;7b}#{g-:0+RI,QF V/j~bU$尴?Q`oؗUNıkJRV[Uq֖cD o2䆊!,tkRѓogŹLZ-ǃ'u6{XTtN44vyTm/:Ml]$> K.da2 jlxVB}^7 \@u4|~w~w/fe@=FCh-&`8?rqWǹ޾ړOh&4eV,\K&תSJ-GHZuO9[IiD:I4ڼ-xv޼x hPMYON3YO>:"s<+(N2~au^N~=F)T} Lxz_U󜌴N$\[2l^5݋Ož+ Bƶ`Uʀ(c!E>v9Ky L?vIRG0$HOMXJi0ybHaӺXd pq3ZTΡ_'dFcC̫ )cJu9tkHttXtuyjG<-uKT}]43(= <trtqօR>:A?9S5Td<'Nd&i)s0B>xdOz9?l_ABhZl[yw0%O]TZ-=}uSk< YH8ק\QܻfRvvYJ3yG|7֔޾}jG޳4?h8^՛Ml-Fqh a¡`K]t#)ڇf-^a,2zO*9s Ĕd^6N /IȒBzyeN' EADDgktXޑ1I8*sW4oj@ӖtNzg?^1[Xέ>ꎩ*jOF oQP~pBԨr sRxVA$HO.RJ' '; qsNSC~R@2YxM3}.P,[%-e:L8EL$6`ۗn+8=8GhURp^Aϴ( eO[bT]K;|)N DbGٲi)ỷ,@Aw>tKv<~vۖ H=X]m\iD~mZe>9uTWf}ZwN o@"*Þ bٓL#3&R#@ee)¦J@pq³dY*G ِDlޞ*tݽ[!h\ypnFM'!lv̻`RHMIta}&¶[S]iFp>'K#|*~ C1RRuf6ҞaIO 0^J:WMR\bؤo6YE `cϺ)>}o 4æWm`#̡A`띔ʭG $]ÄLŲkO=>? +u-9*5*46 c4 ,滲N(]O!NBϭ04-G0g@/CIGNx:߻&JjY}nb&oSNT Ph*p&Ḏ)+o:5&5J)u{'M ȔX:>Ivm9T$ ~塖[aP"935ԯ{5d~?ٿ'?T&)| UC"gtl̺)g.uoWmR`Iۂlo0> +҅KOŕTCƫΒD< ¹#]66ɳ-`w}`hQ ]6Cx;O̡fl*(Ω*g|1p+wN ] 9E4:yƪ!ÝuyV.yĠk|"TbޏivڈԤZ<;n2Yv4x_5myL0n%6yP%9Ix m}Z7 -ͻP/$'yݝea&-ʪ#7h/@-4]{?oD/? ݃G#vCI34%r?bʫҔ ûI82Ι>_3: A#zs;P vс0IHfYj1v)-"2Ztc D;҆/- 'Y9W,Vԕmsd~#;9r-uUTc͝;֌`5)l`fH&0Zn);eٹm&|dDCDLP8n(')+]E0zM&&[`>i"VpwABG Ҳ$Hz{%D5F.zgDS#f[+;:N]GOd5?gs1zɕI_l"!ٜY׿ֆH,20eoCrKe ~)۔35L,=X',Q0Rkd^PfWlZUhb)&~т9cٕIaqGB;:fJ.I)%Y S,}sIN9R52^isBtʹ [l P4ƙyv o2JwM4+ÊNRٴ&v)EQEny?kkAf88c1GU$Vg'y▤?^;-I\w`+t?ĻMN#U} );QDj\)gԸ(39҅z'L0"tKaK֓J&zeqr[+!ږa,ԥ=unvI+H2Qx>fW.Z$} Y1@E`Nv; 6Ul((6S KX.Ji ԥll  د5+=0QhB,]lQ65:L2H(ƴdiF0f\c_LVlS U2x]fF7ZpvNM")zة-1Dk}tW{RE!{o?2ݨ?QGY ӓ{6->QD\&d'JxGTD ̳7q.Dm b#*ZH7N\DsQAF$!ֻ0gJ6]iz:8[tK+&9JݓŃ^?PURX>| Qd~[<¨Tb7/#6gڮ:rƵDi2inh}y0CD5E^<֠XW4[%'%d q #^f`U%O;XYes} >5Ũ7^ZOf^pHni=*[H79i7tlx͌͐bsVN6،$~ry]yn4<DƺSy'jS70ȉ])eGcoʫ j5dxwVwHjD}~iB~!~$4HѢލ^G~zH1հ "PU@]jUc]D fLj~ׁ7=Ķa#&\3$ mV83"CioH902h 2qJr8iyLꔡ=eB~a82Pу Ӹbs`ƏJxT|е^k_2HmmlcyX )0 !/ĉlP&VSj0/Fh-$8pڟ]9{%ݜl_dE19L*["Q;f^>SFQ ;nx0jHtnNkiJۚ, {!KQI:r3fgT 'F;^NN];ίͱ uvx%\ rt2bM% N7~x;sbn_<Eɮ4=|4!$k]gvSH6 KKS4Pr"GGFۺ4c_0/v0Oj+`/v%4YdCԺ"GS7"G䘎`N'yQG)Xz_6 l&&^>J,'erY|F7e\c,W),6 s 71[+mY,Y:T,f8k 4p [9ם\c![raE}\022 \b6M7w&!m`OfCYє?8}UE2Oȩg 8*|eQH) כBXR!L 19U39FdpOlemَG6^ 'RAIҹy *ā}Ȗ%T=0?AX( peiDHvZ=4sbOiUATئ rBX)O|p1SUG%pJ YQfNICC2]k9j첎+'fML4zVR<"Nko*%l렕Zԃ[4ãplCW@TnpoNI)ݣ'l.I9"w}T?om:հ*/go諴c]3i;m\*xYV Apء u.1!A>i>hvr")<;&hfUnؐ_ ޑLT6)G0$˕UzY:+꘍]h96STMqZ%vl\?5E) }&9נhpޘ8Bzo 0Q2k^e A?4eQ9L H!/x䦴r ` [^tϰ,zGwyj<4 ?7|Wm9_tU-<<\Jo;{s)+Fs6MSp(2tGθ_HcOS ;\k!#nMu@ KT"Gڼo3H2(|4k9:l%V)5^ )-X1XpOa)wZJ6[Ğ-u"LLsxކoU2<%ia/0'L.픆v.ۺC.ˉ lIh[f7[Tmv>+d_u@6Шڥf!b.-MHy& "">uG!C"Me4ǂbJZwwQ7߃%%L*#,[yRrOb'U8] uCvcw ͆2WoleTDJy1ؿu;.A^X-USD0Q |4,T}_ã]8L2"|PӳJhGSj<*MA*Pw~=+voc3{XQe!  ǮQ*^[.9G)"_1*3YLsr Y#bւy3s0vae0&tg ")M Hdbp~oT{N2Z /-{US/ۗA"1P ;IGDc.6~5-v 1͇ sM_/Etxd˻ؼwʝjTg5P|3)e)&( ^5Aj}Rc+]-tfhCV"MH/ێyh-3MS~o{*sBsNVf>EZ7hN'(H1PZHi ~ܒ.v 9Q #bt_+oN**﷛R%keWԜ:b-CAq8$hlܜyL|V }D_[PdM="jEy?ym4|4c,9};R̆+X1 K [F^ͧpG'I0 ֩Y?裴u}klc0ͧWbQ#;=5&rL*XUhk֮M9Uu5(wtWOꡣ[ߝcS+c_=!q ɡ /_uP{⪖;Y8Uv5, 8 \G?_eC&cpbcf]2{0Y'P}/TNv;⦲0Dj~ HԜ.(|5lMsۊ+-PBv)GV.7Lh+tz7k!O˶.g99e#AbMKW273ջhåu/&{ݼE*urC <,~iq29RǁKv,QM~G"5155&t 2|/^X,e_lwne+W b :Xj{P:Y7޿2Z鍂$ Hg1gcyI˗kD76$(Rj˒ĥS#+qYnԃ~u\g+:UX"B א}!_(UEsFϓ F(29/ O4&(XMv }HtƎy(2#ϩo(|p)}7FJQl~3d>؆d+!FV:0H_硆Xg'S]s/<*7UMY1-^ ^o"ꢵr`E5aJ0?n>'F\9M 4<.9"ml4)ݡ|n{3!ѳZhB'0=jJ$xkۿ\̤S.B7=?UKGKfIz]`ɯQZU~v7qmeM՗*VO;JH}a3_ȧ<v@(DoqYlU1Dsu-+wLaiMn?bw@*ޓ`E@xVG%S)5_,O67LvaN(xFʉhmC~p2Tkv9x,@tu16btM^/ ~cR 62^Ao4>ɝTf=iVـY]8D 4&tҝ(ُy) T&,v2I3PٰRvY[Yg.gŦ֊NTqlt4D{k r;ҹY*ykȍ?ٱa/#e{d8MYy|٣f!QEܰ#&D/%߬k"#o6Fw\?vsGp4zx.W4$6gի= \ {y2 u H_?yx^6uF}GDdugOr l>6݃+Vj!K#ONcZўkcJASZ8nEdN%c*-A&4l'`)ݐҎvJl2Jtm}]΄sY[XC‚Gyd9)Lސo:T=R5mM7!>&rwLܱ]M3G>MR]Fߛ͖_B> c8vkE0RUڤS`} ~X|"m𦱐Gŵ N { +*[:'M8ɦ 97קbԳRҪ1[){\_jqMvb+:z͎&dŠ \(F +ۭ%nց(P^o sqiLLУ̺ Qk! `K79M}pV|ɓ2 ^ O;%I~l!5m܍9hT>oiV O87R#ZЊNLHS9toeb)G(ۤianm9U'HBo" \^rr(ϻ9SsJ>d[; я\ ezfJqNUhmm>R:NرǂU1]RYwtA肊s) |49j@񘥦O4:HuUߚ-$i ^Vْj:I905FޑiVmx`hy?(&G6_-ڽ)թdگ,OXۗ ns ۸,u]~ Tz4骜|׽چ&-z!u׉-B==$Q[jD*3}(u+{]6D) &9QEZrLYf;*A^Yؤůϫt--iA9НB* }>"wYbƀ0V쫴E݃n=4r܉b?r.x zo\Zn lW sL [V,JGmzSh@㺮۳jO`cpH׸8hROq$B&)N34Z% G% \ɠ=xnT4AJ^WѬ^D‡3v=,L]:%& CXۅ2u$y47=)aՌK+"}(tBw6ޖ Y٦7H$ƥ? ur|v%uJ5GH<[ziHuۜ%9[;If;~ț`9oaR?}V9c;fR6J`y v3t,Ap.0uU7%I+s DT;sn[U-RDP8=[oo5UL3YU0b%e(iIxW&]N:>"2n*4C GԏL+߱b` .Ѡ(ɩBnz*P#o$Q;گ5c;ȚH*.6XGBSD]v͝I]庄of,i6E'>w NXN-]&Tt̥CñFmfޱuڥH>*7 w(Pcz>CY'.!(yॗ׵uq#_ZST?@䦖5\fÁg(Hu_kzVB':n X`jD@`m#Ɂ@?Ka4qr4dU4{1^r@A {{S{ƺ)` RYÖ}Ŏ?9H-Dɽ>|,4@l5+b)np̻r *ơiW)= EtpX\HQjGCǒۓ-<Zcn3*͌ݦg ]b3BУU)WK +ta5C`L>s~0380=n+jb߶Ѝs[CD!%fu_EUaiǡlX^g>V[6G "b:DFh61aiMG6ja7obx $ X6@ c!h0#Y^tn|VŨe|kH\m'mS߻84` KDJ#fQHӒRB?+4m+n$9hs0we>%~hp$FNŢ[:7|ҝR2I[Nwh#=)ᾰ+G%޾T&N3];؆^cQ0h뗍X-#ba  \M =8wKL7ќ)㚌-%O5F}Z>YH:HA5v3 J!m̏+SKOu YFl44kqlSqߓ6+BÈcRS, Ȏ+h>.8~w"K%ݗ[G`[N\{1:)w|Z$WP6.Ct= VYePdI02ٲ֥&2n=A7qYIDؕq٘2ۉ};X&Up8ǰ=8^L&L MVnT!}R c~kヒvϣSea}yK"[#q:ҬtP9pf:-eD6{fgϿ\U> stream xwTSϽ7PkhRH H.*1 J"6DTpDQ2(C"QDqpId߼y͛~kg}ֺLX Xňg` lpBF|،l *?Y"1P\8=W%Oɘ4M0J"Y2Vs,[|e92<se'9`2&ctI@o|N6(.sSdl-c(2-yH_/XZ.$&\SM07#1ؙYrfYym";8980m-m(]v^DW~ emi]P`/u}q|^R,g+\Kk)/C_|Rax8t1C^7nfzDp 柇u$/ED˦L L[B@ٹЖX!@~(* {d+} G͋љς}WL$cGD2QZ4 E@@A(q`1D `'u46ptc48.`R0) @Rt CXCP%CBH@Rf[(t CQhz#0 Zl`O828.p|O×X ?:0FBx$ !i@ڐH[EE1PL ⢖V6QP>U(j MFkt,:.FW8c1L&ӎ9ƌaX: rbl1 {{{;}#tp8_\8"Ey.,X%%Gщ1-9ҀKl.oo/O$&'=JvMޞxǥ{=Vs\x ‰N柜>ucKz=s/ol|ϝ?y ^d]ps~:;/;]7|WpQoH!ɻVsnYs}ҽ~4] =>=:`;cܱ'?e~!ańD#G&}'/?^xI֓?+\wx20;5\ӯ_etWf^Qs-mw3+?~O~ endstream endobj 79 0 obj << /Length 516 /Filter /FlateDecode >> stream xڝTM0+|8޽T+8)@Jj;`MH`<<`.$"gW.cD$o!6[ 6)QƐKQ^o*;J0elAW:BeegөwV@SmSTMmV?QWSj8:U۬ 2-0aH^"'zFJI38e%~E^'cB`ApF[7uG}l:,}8U㰹q@q8:&[e6px ؅uU wK.]G. ->Q:Aj&(r吚OD .J`SD4)ca=?+'nUÔptj _;fp endstream endobj 62 0 obj << /Type /XObject /Subtype /Form /FormType 1 /PTEX.FileName (/private/var/folders/gk/jt8845y90kg8pwsm__hn98vh0000gp/T/RtmpoJjl2K/Rbuild13d86f4fc2f7/effects/vignettes/figure/fig-contrived-2b-1.pdf) /PTEX.PageNumber 1 /PTEX.InfoDict 80 0 R /BBox [0 0 864 288] /Resources << /ProcSet [ /PDF /Text ] /Font << /F2 81 0 R/F3 82 0 R>> /ExtGState << /GS1 83 0 R /GS257 84 0 R /GS258 85 0 R /GS259 86 0 R >>/ColorSpace << /sRGB 87 0 R >>>> /Length 50995 /Filter /FlateDecode >> stream x}Mlm\Z:?ll-Bfl `ϿKYyܞ}ne2Fd~뷿}ǿ/RzwUw>_ue?_GQ/>?<~'b|[+?p<*c\?QGZ?>?jz.vȻ}ǿ'}˿7HoY?_cG)#Ǐ||<~p} ӝ?bJq|r>~#o WzՐ s\#o돕XW"?G=}H_cfr; [Zl5w`c?`ToG֮0_)qnG~~'sn~:Ȏ-_v~mvmKe'Ԗs}6G?*g8?=~Q \&p~|k8QU^_5༾z,G)/: Ȳ+u5N8GG%e=x=t\nVhn:f%k0閬u(>`(Y=rD*5ZML8tp NN 8u QF~r 4MYttM'ܷ=ttM7eu8ax_o=پN|}{^6aO5=a'p{:6{v]4{n~U׽_]HxOgg`ݰ%*'v뒳Uc?.:{:v{Ožݞ~m==5]+z2牫l_מ=o6{nOنa ll~}= _xӞ7N%tzÞwteN\Þ~[tal <ž3 zbg͞p {nOt>'p EUr̷5<ݹ lm?so= og@g`,Ӱpq{!aBc= kx؜ݢw9fOYt.Xrg`gQÞ-^0\<`(Yq!;%6pwp{mix= /g^͞33p!y(.67wfO홛 l4<ݞ6{^nOc\ [0|Ml_f]t{cgA lL~?h lDA' |&]37pq{ni= 7gj͞33]M~ loAc'p{]ӱž-7O'OO߾?:|RYBY4 JD GU-0JXȪ{Ȫ 6J|#*IJxYdUKMFV ldUK FV <*? %UdՆ՝0U`Ꜭ`㜬ƷYȪmUU$U4UཛྷlY2 =$+Ypn:NMLU,Uqwp{8Ȫ3 žg:{:}dUCN\5\qU Þ#9Yx==Wx{,Q ;Y8xKU6p {c Yx=_Ȫ /' o'ɪ9_fO W ll 3ٳU=* x_oNV Þ%9Y=K<dAVx'g/ݞ7 [y>wa.Þe{ _cXρx8{ ~0_~c? ؏Nq wO͞y1@y2@y3y4y5@.y6=y7Ty8@dyy`y;@y<@y=y>@y?@}0}qr7`G\bWTcgLdwDe܇d/l94riuϧ~O#l´dӒ oLKV?2-ʴd3V{NK?4-yҴSӒGoMK>?f8dVsɰ&iN$_<3?nN$_HN?{`%C,5yzZy}_??5==>ܞLnfOK7%-ƗxiK?o nOQ >iNj3'w'7Gu8 xw_=E1xfb'O/'Sl|4W{~_+y';r`gSl/|4=;iEO;iU6{"|WD>mbM\yj/?YO l\tg`4\=ؒ 7=o16{{>gŸ|ρݞ3 <ž=8|V`w[y9 žݞ?c'+ <Þs;[>yj0a ˱]ఄ)pt¹ 1r)og@0|4.0qtqjt9rXx)"X./zO^^\LN6#6.v{TR gKG}@Mբ1K%qY [7|9bهX6e0A\m\wێڠIh׿vX OqsUq38ղL\)Cڦ}_Qe?0Hj% 'ב ',{aB’?[?wtC5~U$)9hލAlZ!|75%.da/ˉV6PCcW qsMnbs *ؼ^Cbb0_mKgfĬ|鬅YJ˽߷D2Q{ {d fT 8z+}.R5F4BE϶/޸4׾`*✯53[ۡJAob> Pu{tBFz}R _^mI>uT!M뢸9'v99B^m'޵Shvv 7(A" ]JɋIx._e]` 0p5_X,WR (ރI#xW $4|t Iɖp0on~_B.G{.]MZ.QYP7/D\3KxP5g[fVљl if{^$gwh_RE!ưdMү1;9.;mRA`Ry[h^XT94O);Kbj?u4dˈƪ$2iMS;^-E9lvL_u4.ǚW~ 1@[1@Z ley ms'me^qs"ᲾǑk4ڿY 8EͯIʟYB9Du{' -!{TUּ؃ENtP7S/6<jlA4*%yݡҵ<<7aQuf$nU5k& "Sn*^0-e}j Fe[aٍkzAHBrAgK- (4jh v-(.")F_G߂!_Z38:yg&,1UYܽU!fb!mBU] {c$\'62Xz.Kͤa7__g!e0O%l'i.\ܫjA2B%(c8Hɜϭ]DĆ삽˩ړsSuH"U)-n|P _⋆Aˎػ+g$IE|ܥAS2vm3pHJNȾV{ +52~U|f$YޡRZ]orǞ6m Eπyu@hrO6ALtnK7z^\G #yfoPS--P;3-. 9tS5AAb䯟 h1 湄m)Jr` Q)4M0 %^.^h"@py9tU_jf׃FU_rl$K/_mX4apFcb73fV>J y|o$~Q,i-DU7~b9jdTZeQ7ĩ?#"K^aIg! KL7+Fc$HN6p{jACZ" bc|Ts&Ga  ~4Vr}!ctA5:={ bի7\‡"s$\;cV\+ȈHLN&\R$}x&/}Rm.d H[]FcUDa[je] 4MU M>Pz,/3yrke|jnwzФ3(AAS݋O,3oq7O\TF6*n<ǫcK+o_jAkqFR\3S5xnoLQ+h KS0Ҁi3d$ёw u v%ԚdCnTT !)7XTnZC"I.U 4-iJ#a-l m"H"80 zwDˈZV=|cFRjWyq;MJWȓIG;\U c/unTqA>Oza@%hDIe!s1'oTR`栯-qp p^fJʗʯ}/EۺeJy'hx$d! |ifj7qdI uMD4ZDBc`IRaVmBzX3)/-YQ2?}m6^Vx-*2Z3`zIU% ,7=f g'@rQ!UbqL<;ŞwчƐZir4W^xV3RP Y $h^zҥEǞ>}cp7s jЪ r2hhiP 8o~q|Sf`wrYVQc~.&"Q+g jbjcn;1Y 㫉^;c5B n,־jVAmhwV1$m.AՅѓ*FfkCHM6CzZ! [t#>MƲVtZV?]d̽}{>~ށnZ KIEIq++=ʉbbnu'$˨ZVj>y(c7u8i4+ P-{`W$s.hj*t䌼,RsZ٭ba5u,)jv̇<2W_m(ER:6Fn\ ہf h4$(V jCnDsgr?Mhdq Y/! d/fݲ\zUFЛ)8++TDs JY4x j .-"7#)c.hAݚLA* )@q6c{'&ыzZ_#M R'ZXz1֟ Z2/:lD$|`m^%3 =2z^hd%[$:e14! wcY0w<x5C v=k?AݩP̏Aj_KƴNSш;2z t1 *^iYHѶQ*']A-|ڲMdzv1Qubifwu'Hth6 ~u46+ũݑgpZ<޼"fg{gŻN;,I/r86%&?z_$ : 1U] 4ؐWR t,pa^+"\ BVjb˾&| [tn#tb/t6 $m`1Gz;oYǺZiW"iCb$rՐPdn@#BEK1OH[Za^[̜Lb6rڊrLy{0tꭁ+ '@-TT~YY" N OgN(&F8(8+VŻϮcJDYFA|Z}i u❺hj j :j%ʤ$J <}l u$rKjBLh ` J>(6Ďc4Eebh+%vejPwV=k*M 17Q7M,+UGxkk<@EVZ$'ƇLiB]ͅk4_p6gQ3I &(`0hEd(& 'aի ipP{OwYd K"/- . uVQG,cS ~MqSn*poM&{N@qh-RuϒE'Ɨ8TG[n%c]ȅN5ּ,$sWK_j!r 4FRKh17'*zv\pA R&{$ˇO%pm&1PՠX)v C҂_rEf2Ynv`-+1'/|3<߼?a3jL͸rbܼ R-%.t'3(TKYTײswglz/4Z{7g̴zS_a"э>q ؄I/qa#jcҍb i-5zoܹӴC‚ݤ 7KtZr7mnh}6$M# X|Z81lVeݸ 4kBJJnHikҖ! +mхa6X2N64'f#>Tdκq`*oyoHwvLmT?),uxwpdIFRLi8='$mp!FLk25MbO:mtMGI ezv1Bőٸ u{oJrIzBYJ-7D@ԑitX5o(hy{EEwrDMpF?٨7Z# 64%Zb ʉafh7tDiC>1w>얼n6CG0ұ"aDd'IË,!Ι*+C dlv҆QK%PK {fGU.M{jJnϢFGƻC:Ce4ڞ1^GrFw! 8`'/ymVd}$~{ae,&5)ln=x# -$.d~)C)¹X:[ 췯1xx_iŀ-zƨ>`PzP- }-78iڂYv)7=u3@KBkL]@PF٘vTep:MumH&U q`IJ)!oI§J-D:v*yǤn5:ͳ-ݛZh-*YQqSK 6(e0Ӛ딞8"h}fBs?G5(o71ʮGvC4=\@F)2=JM.B8N+c/Aq8&HL=`h8٦(Ç$e}<$fS qMFNA6"2󇙤zltH- [У@B7hSA i&Ӕ5(7f *M,*h=̄W;mչ+iVLi<l_#mT{ٲ!<l(3é`Ƀ;.%m6b\(-\ћWо5*M꩚eZ@M~!Z'6gB@茭]}{5YStVTx+Rw::qM^.T+H~XiVSǸ-ߖI:G-"S s*ZЋ\tIӪ9um꺠Ş|]+|7@ 4d+kQHx< D]VhiߠtLՍvް6͞СP X ߂OH_9brmM`C<,=J75 ҮݼoĊ.FR%ҷD [w:TR1W]ͦSmCgjH9ox.]˜ɷ%ȼ3 _/;goqtxɊ덬 ṧZgJd+jU~!/H[]ȡh IO dgHNsedJg8 P#!:c~2^zڲ K3%Z]( 5vث,pf:H%tb Ŵ,|MQJ+n_tlR[=[I` ފdrx FtWE<$PdeQx 9UI?xBOPob /`CN&=I[G[;; wo*6I")>rqJ 874@<+v_60gLRa2Q'UI#XVӛwԿiegBBu)mގ &Z Y-7d$Fp3fN^?R+jez9NGAxk!k[*'&.WvpOG`U}wSD:p߹m #ĒGL}6QnMƋ|lz} }&% HɛԔ%ɰ_s+vDB39BxK]͛0 7STIܡ*QjGʁio}D1%Z黭?iC=+hqPJBz3:"mmxTCM2TGN@Tlkl]x#+T:XТ$0c).ͻ Fƈ'T1t-B ɿFOiȨNaWRXAe2+ڨ &>>f](Q(ޱ}l p3 3ؼU>NQ6B#ܨpT$ 2_tG%j'(aTIt:bn{RE{=ۡ}p:6F::=t5sd\7fZE3g-|ckZ;N 4:ot$7r2AQӦyKV ?P#(8ڣchu%7VLƵr&XjQ^x5M-.杄MH1RGˆʓbY̌épj_?0XwTe:FmqR6ASkIž+:&UhXQh1Tu"kpAx `D^.QByX;rdM[<љi,r1{A 7EKY.>QyrS(tNZ & 6ĤO7Qnn+a_啴}L6ogFpI Fko {T !ʎ6bڸDYnFi©[a i]b{΋:@6Gz70>ߺ] zˮ܈i*ZݶMc-R4w[.Zk1ET5 VTnO5 _VwZu7+u3'٩;bӷ&SMݛz1Q*[RдP1/CԻZ"U`OQDMY^n-j _$ٰlPr !m>uЖmk%x€8 }4t@ѠS O/t/\nB"\D`v:hjBtG^ۺK H3|p"v_Nkt%5}꯮ky毁XG۴!,8Vxt>4 e:D^N|Q)66 YTN JRm*+5S|ӊJVSN%:ism54,=LN?H;&s8 \PL`3t =eOz |@,l'Y[)okpIbV G%-PЅwXxh;dMʻVw'>Y+rk7Jg2dE{.1lTՆ(Q>Qf5,= {xc4 y0fPQIzaz 7L>FSR.sR7cl3NwN; xP"=DөM\u'm'㿷8hw2y1 uMotMؿ&/^yH./=h ~έC۟RllURhPN w?DWe?]J~g$.Sxfj13ҘZ{O%Hd+nϘ~*.䱯cSy;0PW%{xۧ v,rձUE߇߻4J~"G!Џl|ATL;TBuUHuþl?M4h[c(d.' [UG]+KK>^Y|\T5ZWa[/겭?z)FgEB\DUjQ*:O* FdoW<~/7oyoGzJ@rDJc˵'/n}?S?FGM.ǧyVz)Ӌdz÷s~> w*R:??{oݙek$Jצ©_o܏(-|\&=G?Ҵ%G ?UǏ4ȘG?"v0<yRձy?:9_G鿼5qOM ߱csu\0xvRG.0xOnm.s}MM6k |]Z6J W=1f('xg$ol/Wxrh`Nlչ)'^I֪u>l'nϺ u Q#k tP ps{6{Xfw{nfϪg#MjRul>L",4=a'p {g2aO,L'FubRt=qr/{ .'nfOu.nfO\i֪8'3LZ'P'4v{ pnϬ8=Kӱ3)aO`$[N<< ,t9sM{9Nܞy6{nOܞy6{nO홻O\}fhmku˞W =wSׯc'pv/8'(P5]#9홖a lL~e= /g`g+h _=OׯByO\u?ps{&]ݞ͞Gسv{ϰ'0j{NĨ?5(OlI/tܺ~ =v w>q=Y9nn+sӱ=tnad ܝ7<O,g?1r5'V!]/#=uJr{nfO%[)nfOuJW:1f_ׅCn[kO%k= /,ݞk {:v{Y^<]AO<xyMk}Żx=%Nl4ܞM 6{DN)K;)$„u mTWKغNu#}R]IuTWK:Nu5[9y5Z:6$a)j KTWKX I|R]-NuS9,T`|^P]-9%@uTv{UfdTQ]-R]-R]AUzbP]Zr꩹=jjnOPGFudԐQ]-cTWKFՅZ2jƨ.?Z1+Q]H>*1%Jj3%PNu©,gTWKB'uiՅO%Nuީ;BsZoP]B >.zO ܓ lTB'ՅIu!zR]TW`fk} =.:O+Q]mTB'ՅIu ȓB ՅIu!txR] TW`f <.O+ WIuR]k~k|S[f1 = 5aᠺ=.umpP]TRP] lTUTᠺ5=.Au}~P]͞zTW`ᠺ?FuuPyAu6 pP]=OTW lT"= wAuxGFum'Au6˞Ǩ9 \ž͞== xHÞTׁw9Q]:ةٜ2{ii=S[9bl/TׁFzgz=Wx==;u}>ϩ%x<Ϩ-Rzzs <Þ>NuxTc9DTׁ=u"uÞ8x=9x== oO;uy>ϩ.?? \K$5='1zM5|Nt_&OR )?u nOK%E/~_M{?>}7p"r"4ݷAB|D|EFG H|Jƿ2qf4iKV4~M__?7ro4~i|6{st?4)Ӥ$R+_Cؤc |YH uCؤm ҸfO nfOنN<ўᓈ#|S:񵁫- [ž9 ž<-|maxKj=- \ž͞O<8=v`W^j\y>y#87g|OjO.u0\ |UR||Z҅eإ -]\C:\^/ _o#_y`' {ϰc'{"_Þݞͥ/M^J|҇pvS`BNaOwس=ҍ+yOD~|=tpwiҧ&K[6)[{)(Jk';gz<O<]zN=ʼnqFQo` WM?Rݞ3%bMKlKˉKk)nnO[nO|);O@/{K= 3\V>J7sT/EalZ+t\[)=z{61G|YDۀIlI)dڧDo37⺿I@D3{utQ'. [NVD{%2&Q2yAQu]w9M-Tk +ފF`/7zy_zO-7+Q߈tS6S7Y RzͷD#(ߞܯ&y52wgW0zB4ցNg]Jtjo84YMe[Oíh"IH.dkзR6OE^n\ )qsʢB˜7*fׯ[5rk:JH@P(108lvK)z Al}۬ e 517G6(3Tމb#Ce}O`L2 X.`ׅGsɕwPIGZӉKBʭ2 b*r2WT.IzvĬ9AO]7ܐM aHouJ|]_MMI:j ch/Zrn @7ud#~UayG:u*;E(PcR|~|Lj=])W[GnjDtm*psSF`Ӭ3wkV1roPtඒYtf+ amb|*m:XU!A&I+icI, a3NwN6MF*^o+ 3H&mIZz*Ԫi߈6gW>*1/Ht?R"Ȑ>Mn=I0!.y%ah7"wAFkMrHEߔz7s/Ι0LB:Lc,@5Sgs)7pIlf@aqB)7-;(VxGږX ; 1̽Lև_ ~vAK°Bk2#\e}ΤJ]KR!U$ 'LzŦRNX ԕ ٩S?/'ͿbO-[Ѹǘ3M VN",N3 Š>ٺS%ܐ=mU4oFGot(gӜ͞iugaF4u:.P{S*>mLDr:SjQ(ɢ J[qvxkPZ;c_@ʣhOȒܑ r&{Ov@:J aWP PrWFΉt=hZD);IrI'rOM4ME._m$W,|ńЩѽiǢ;1~c&93O.tNUَ\w3>[b<<|B'i9loĄnq!AS0_߅vkFh^` 0394ʔg;c 쉱ZW1c٪\bl[6/<38 IlovQnf`˒LVٓG,\wkmrĒ sx@彬|݅xtw)a %YMO+H;#:eDhȇM[^V8mp &*mmDBͣf`Fd.:9j貪B3Jy zKAK.eET+L@8 =o7qF4KN=bcKFl@)CT'%MWܡpi^IjC؍ Ĉ DwfF("u#m҄o;t,-ayjىi}5]AaLWPn$ɞI@긦%sJ^# `B#W.Pصlow]qr73CdZ2U}9/ŇE=F>Oa,>P")SHYIu4*B}r3g.󢙇i%>[(/72Y%pTRݓ4NOTeQGuʛ=nѿ;AUsB/oV(ފg6CԜ(ad4 fjCYYilשW.2.wѼ >`.hQU]XܳErx_]ۣ6VQ߸XãLO!XҖNg,b UzӨ_'+Ȋ,,W!RE1d_]UKlr6#!FPeqJι7-cwȵcgg\˩p-h2ɯ<` [f 1KZIUܒQ# I70ϋkЊ {A'/D0;!Mv-*vNjE齏V_th5UGOqWZ*фȢi{mH{ĵs3j2[_,e aM6RV IJ 7z?ihiIƓd^E֘"H PdN,V]">ي16m{$c1H ^נB2*ΩGz6 Y NeQLŇ-F@|A ;1RjRo>vCs_iW`Z|U !4ޭb^8l8p/5ʍHV썹PYy & Cbm*_e^4)֞,;sxf }ܐܠJCy=3DuO{!ړ8߮| 5WXVsT{ xT4Zar%h߾qߩPyMmqڐ'* %L,czg7!*=xPSY6Xwj\2eO+.ͼw)TQ7òl5]F+C@Ș\BPuBF#>pnty+Rp/L5Jbk"Y=ڋ {UߍHV[@m ^ΜT Jѭ)ﹳ&h@3A+m9NF '$s>n-f4wDCƪHf)[++JLUWZwͷc.ztz"FXO‚|.0q;UiTܳNtS "J2wJw.1ůS/1/YVX _4{杒pdL|EGDmUӬhKh4M|;b2{UHEѩOt[Qim- {csV8;SᾆjA7 '䲍7"ݸN6tg:m<&f'LVeq:8Q*r^Uݨ#A䍚4^K`Yl~s8s]J}797zW'FUR fʌlkLp;椆};4nh^w_STL#Ћt2EjypE5T.x͜{֨jj.ZofmUA3(AфX5[teۚhy愛*P8VY)#'V233եxcy MpRoH+I=pT8`}=9tMa3CTs^P/P p3wVc BU-w e2y}ua&+C'k1/o$D]8mjʹH4p͚P,NQk#C-wd} ׌\vLnlۈXʅH j%H4 htMْ\,VH҆%֘$̍m/vN87YQiSPTZDq+]o b`iqt YB˜}ر! g6'm6΃☃dWEc*&շNJ*(&(H աgn&A36*pl k.dH}i{0m NP쨑+ {Sl[sxĦȼn)۷A嫼 [ \xbJu.#ӧ0Q<& j\cI95z4+ <8ۍL\YAAJ[ A4aB<譑)R}@ -€Ã돐fAyUyS h`W o55ǰO]':vuxַ2JfHh>1 Y'mU SIxѭ&a5؊֔Kn-u/ N߻[ᰗNNPfU:6 Ngm2My͙ͤIwȅFi X>ıNo#lk0C4ڰ_B!J+SEd.yA6w_T 8j#n ̗K8,"VMEjz;om-;yyg l7a=C+F)v:D,MOCŚXNVDҳ M3__!PKòbFi4˳]Vޝ#۬-lP1 E[m{_֒B*ޣ s; ob5&b+qUeu^ᴏmU6O7]*^MwNSO8DUazT *AAS$@vK`APQ)ǜdZ67Yvo/3.#X^uF2b}lAHb@ٹS鴠IAN˫]}XͮhVXYYTNZΦcXY)n lF(k2e(E4,E"<*؍comهZ1ш@e!"c{wUg]&aA7w %S[)91PA|S0;cF!W k$̐Oe8ntZozC?ލ>>M :tLؙ+,.>{欴4A̍Co.aк^$A*"%w"w>^#]߽7b:?j3Us\0fHjc'llQ/+_W l,(Z1Jccnlc'$w{>67PT{*N)ꒆV$?m𡗌M)+F,lHU-={fs^wMwSS=뾪c!y3yԩք1R;ZF7@{0}[6SOQ-龚b$J$gm曓!"eKwe/rr]n]n"Rl5rpˮ_?}ǿ/^^7HoYBzݲNFAt/^NoV_+:[n~G+jGq޿)]t[˝÷{~J/`R??{oeip?y?[VE?>qm־~1|HoJhď8>d#Uۅď8>~naĉ?`|<~@3{}_J6vpɶym4wJ?w{V=.H?wKwT}8~|yKwu K}F*?] n`+:Ƹf F%aU1'nTW5<{xyKB(=M)則=OYs'*}ǥw6{nnO=vbkkuBAaz 1Qs`LaOt% \Þ͞SoFd]O1swn dOlac6|6|= oւ͞+= g'|-3N\ܞ=Oo=P˞ggsO{ߚaOnOucž~;=[_譆kR'Ϗ*/Olcl~{= Og`'|ܞl~=A`wb*hq*ئB׮== g1aŎݞ+r_0>&V9^g+F(ŧl6{== 7g3p{ P0RhӉMqؔe <lj3Sc^pu{v{aOӞW?:'.~Ŕ^uRi-pbص[T.@00<1ATU*rbA'^<]:}a}`Wl}ݞ͞KSx7) x}Z2[ߪ7[ӱSoc'p{]1ݞ͞l\Pxo5ܩo͞ps{*)i=~ nOO]<loZk8=uV {:v{װg2naOTRy6r7Yoܞ͞Yogg`̺~== 7'+{< #T^*-;)x̆ݞ9G7GO(;d0xxix=Tܞ͞3 fOܞ3uO.Of_jneHǸt 'v{_aOOֶn$c+60Mn\>MixO˞WPvrb.=BZ 2ZluPWKXuPWKXZuAOZ%Z«%B1m,Z$u7$(%0ズZ"G%Byn_8B]-jGP*!#E(;ej)E%BMMrQ**O@?Z"C%B7̞_B]-Z %@'u7ßǦ?2uau2)EԅZP/uh e^B]f   uIJ1^φϿßu}uTPWKLU uZuԒPWKL uA@]=ŸH uTPWKLu]i}9 15#S/B]-1"el;urZb*D 3u=ԆPWKL]uԄP|'Zb*A؄iuԀP4Tu%PA u]v "t'CsB] %愺Z}Peꂸ.PWKOj i@]ßiҦ?}ĄRM߀ۋsl&u]Pױ/k :Pױ u~hE@]~ߠ.}.nPum@u:6.ڕ6.E@]oܠ.:6u{}.WnPױßu'uysM¾.:6@]^nM>PױOu}.:?ϻu'u>Pױßuu>PױuucK7vyuѮ. }cGV@[y:z{ށ/w* : }c.: :~{ށh uoԎԵOPR }.:lw@]H/hOpA]>PױßԵ&Ե\Pױ u>Pױ׾tsA]>Pױß]PuPu:Pױ uhҮnıOОO#u+ ; @Mn3#Mwn3?Kw+6 3A3?~p |@kÁ&M77o9yÉ@'ΫM|"͛Xȇ}?fӟoh!?B~3}p/8pS]>^'^3>_;_C"8v?xboxcxdxeωx،w񟈇񢈗񤈧񦈷ŸrDHxm'[Dv NP_vؙhKCNRzzϠ{3&56OPgovF)y%cӟ|ZG"e}G{lƿݞ֘ß[]#86yC|>Cz`GӚtuvo3'~Y.>e'h'֮ciֱcc?O)ufӟOkf>A|bҎ|v;z#|"lvB s[h>me:eMTS;u0&C&K$մnE!Eq˸e>e<,߰u UNG R)eMD>,qSWdW"jt}rPOO(Eb8Q*oAvd)3}&gLJN5B;B!>Ũ~ +>۟K޹ҳsulz( VZbl(jBR&[4D<`rRrœ)^|t@av*d@Ąm&21D*Kؘ"٥CAl96SuC|EA #6BԖZ@o*4ûSsMm vBT[R+R14`<;$~(#-r6M՚ %h+g0ܯ vP\t:蕥dQ\WAMP̅1xvΖ'3Z!E]8%ƖmF rt,Xu77 EW4G;6|m^kod 41OkZ!w֫kt,:&(&=E<^ fJ " h~#CtlSz`P1GΠؿkb69comQ`Y2OzPkr.}LUs Gd wyeC ZĨ]QZbmɈ蕃`&b>L|E2.GlytžAĪ3(~*9rMIt_LJ6xrMO'34+o|$ë׵@ah1%)E^-k TXujLJG7/wРurI.[ 㥡&Ou%lՉXU#YA cѰФʙk셤,'.#t6#{aA*P-25O-2PMNYdJ]=i$'aue%h PL2>z˱Vk/=$X?|1`bٸsS#)Ӱ{M D耱cPP9_HPe9nV։so1\Έl˥Pxz7)d6S^QJ}|h +uQnPzg!e:=Q$ՑvqH^_O#;ߕ, 8[z]>e{<=2؋-K~۔ Ar՟-QY<᱈5;69gS簈a U .!D F&^o%^N}* ^+PYQXtU1(#VB']EHt&,O(ui`H{Crx@)UĀt[%]?]WR1BTV䤢X'F/B:*J[aڅST_v&g^0:c6xRírUӿ-HIE]ZX5HI6Y)aa~eԴL vY3AՃٶ1ɬio_08EZ?uN8N@dԵj1D%~ڛOِ4mY]& @U,IdoaNQF#J𻸳%+Ϋ"*ݙu.A"eY9+<; 3xː-6< cfY9*&$RFc1] 9uo[?̻D(R HʂʜE5l,"AK!2^1](Ŝ#n HC=]&Fر*2vEH&;b5[{ڛB=@I*iqGxé layo6,vh.``}5XK%e<~NQ4g &$mys`"XW'iB2, CEȇ*:i[[W66fDsd*BCQ ov9 9"1Sܚ:U* Ri>NZtݱP5[F3>E [q`J.zk E']蘿"TgNaR^e|U4*B\߅MPf cLw eʖ޲unVIx^sb>dTh-@ @gO@_I޿ѦMV'?$o؁4'pU4ܼ~* h,P[Y\|])E fxmE$"U'tn b;)X4KV&6QFi֗|-4qTwC"MUp$ y"0?($e^~& [7&*'zfB9X#jmhΐk\})Zi!aLJ#r4RU rߵvK@˔WQPUs}dgHXW[20d[zH|('pL>޸K(heK[("9Ȝ[4SKQT!Q7 F$@Ji2fXu"ɓ ȥjv3җɏ6?^!nџzh\kגjh~/t9v1(5x7l[K]"Ztv&2LUQW~-@IH] ]K>+~Z$UsE?WUiT%gZt@PeBc(]yѕ`dn`GO9dhB'YY$]J{L !|SX@Sm*#U-ܚߑjl2\], G:w0mVq[}Dsr &m-x\֎ξd43U>anw-%WmQRML,]ZդrXjfPt|Gsjí>̤{mȱwy t=hlnovmsS:O _%Mӹ'R$c#sؖ i04)ц+41wMV U.#Hճ#RQtlX-#@}#2.hrmב ym-*(=w ƽa[D˓bItUnl6٣gUXNW|NI _g+IG`e.{?7ۈ}ET e9''Ȓdf_%U%i+Uyj ̏!;92+^9ADhH?3-RџUl 9:U5Ax! K8$2_6,`"F5%9u (||#ԬC?rړf +(&Z)-ӅpW*5ԛ3@4-lybQP4;XnYזRxΩ<Օ@MK>}Gl*I_9,U9P(Et~M&yCj>pD=avY먾?mfy47UɻVuO;BdS{QiJ]_\ A1 A0g:ȣףdƞg^/>M;e5dyD8ԓS!B^TdRn=%닳>(q>=Y ud-˖Tװ̫.ɉE8`CVF2up#!Sh4uJZ*U""՚\1lRz5 It5ubbxyz=j[*M)9#[m*/ʔ gU6DUEmWNYHl 5A=N.3,hF$rC(IrNvC{-KߠIiR1 NA7ܐ 4':2 cFU(ψ1id!t5lC*"hL % D%IRnP@nr|  Ԋl?l}vv~v<m^IEHy1pIj|v7* E-cN ٓho*0]|'? C~orw3Ryϵ (y'Ui4όPtM1)N  I 2)D7Pue _˸|a=F:-d d{=EɌFV ]}[됋̜N[l@., T$`>yk5fBM =1pM"7Nh78!:R ]6Y޼A77xE ;DC.p, `P5zb:} |QҐm~rq4 EXTҒ:h rkZ ʙ+I}۬5zWMYLy ],h*mZ#㗊d@YR%)ECޛz%MʻjA!Ԙ4E N-Z/]4UkR9?OhD[dbm ": AP1U^u8u$'C@[U8Zucd2_3ءKMX@jgt~CcR$SLK".WF=x ⬱p)dbkmI6da b"R"MxI7+T}f4,+TlHqPyc&uROݺc¶z2uSyjgܨi(!Nd}mNQP(d^9q/$s ~ǃ*{.nٵ*oŷ3P}P˒ G(tlLhCPZ CWY.zMZ,? BJNPYyˤNY2}VkhWU&5\mSfR5vDX ~7\de䢱-R.8[d&!S]ءQ$@5VMA|j;%P7$-i.eE0(1iψsL.Eta=.2P23I,V=n)yKt& *LdU=<@=4QŨ[98=)[a5K-z"'ɓJ-vf9l7 X&؊- ~Pty6Shz)QAE)f{!BIC 2tc2o0*ĶXGF&$m_*bՑFmOlR=;DJ>[y}I2$$6ind&2%DE{ЙO$U_ Rt Dҵ}kgVp(إةe"bPFAgNSg$[ N@v(9m\Oewaܫ5ٌ㒢J R;&$pCg-oMG:Ϝ%.Z0КUn8jjb{Ƀڡ iSVQ }f JLIqL mR`@̶?#([ odȶ'=l UKU3ڵ$y9h^*V=NaU^pn"'%y sZ|`S`[+Rur(KgEz$oiD tܞDŽYv dLaPG~I:D`mZ#&Jm혘 Wkf2Vl0%FP{Rk#4}%WCt˗5~wFu[( *'&֜K q_Ga\m26TQȜL/Nn Ѭs]@$ni-qw㭟8i<c˓7f ';0)|Zp19COgh+hH50oTmteԂɽ>n% 8m3[+'w Z`Duÿ }S5'Q,lo9'<= E!&^j~%9LicyՂ,63;߇ -uG9P$ ^Gt/?b/?k*Y(?~,_c'0zv+<9_|^mth?? i|6{{~{8)_xЁ=߼ׯ*y:z __\BlwQZ|tc{|ڷ2wI|lOhɪN9$?\>]B篮w4,)ՅU_;_ͥNo_^_s?//7VY\!:p%?yXG4XA90Wy2=0 l't}{5+-w^^%׽G\H.=^w۠[=2{λc m𧛏6=F^x^]nBn#t&zŸǦ?ig8aO9qٻmS/d +Tl.qeuB{=?g uvv퉮 껽.uvd1n}h.$ ßG 'ŸGMn˳[@zz'pw{]?/Oǟa?aD{׻ ˆĉ+o戣cg Kͦ?iOϻ'5]v vve4{ثm> Kl6дMf3gO9IOv;̴Gg%ǑY!w{yδB>'~Rnӟs3MK'mb_~¦Xmp/G]8W\6{nO+ylIıK ;w{ S>`^ݞn=>_nw ^z8vMZ=sl򠶿?ӄ*w ݞ|NOUr8ɤxv j/Ǟnqc_vz`Tx5ڠ_v=LßgJ3pcODž&BԛMf>_)nq;q-fg'\6I?i㆓-ßQ4nr7ﯯã ]=<#ǟa?rvv :.7G { qJB㰍`U:tlLcӟ<}K7jxٔ(٣F=lȶ56$+ŗ ػ?3'}6nvv>}Xc&IϻoAJ&w'sP/{?M:< ßNczA8{mh^6=W[5Hǟa?y {1=,R }?L/P.ʀԕ+z;PWvc'$TF+Ffr}A]'+tE+ueBUueBQu倚R'$tTŸJ6L((L'cʄv. ucsA]Z.\P }.@%Եhkuڸ(ズV@[] hPeE@%B .;GB] %BZ"4@uD(Pe'RB]wDOW=S ؄ZbNnS:ˮO愺.?DMnӟH u]6oSkB]C؜ԚPej4.cӟH u]v D*MuԙPe,"u&u;Jf6FJU@]w; H#&uv; {yzY/#JgzR/^;yl㿀6I;?iOctNGy#JgzM^6I{?az@ ovߘtM.\y ]thu/8ͦ?[5UK ovmE5n :_B7$Ÿ_:? }WuA*l>ofiaE邥x.n69>l8h}T({DK(,Q C|!JK7D$JW7D~|(JcaGl1.|[in1ݱY[/Fi-|3J7D|6JOQمCw!YZ]̿zlf(.Q=v  QZ>v gݱ3<#JNь<$JaGf'>c'({?Dfӟ:psۤ,GAMمC~o|5E86E86xE}!uxE-}'5E]}-&U/3&Tuڇ|"ڇztlRhӋt'C]uOWzulRhV]w=PhX|}gǦ?iCm;vy{ޡ;ݟwQhݱyuE;6{gS /?M.O3q;|"{>|^'.{fOv? ;i? Q^>?ȷ|q-F#RF| X?EA,K"(7IIwXdΉBJ6ت0ՑO U 1>Nk9i %؈aKpOm%yӆ3Sc6f)(b9LD/ "f-k)gwd蟹p.,oSo#3Rdp1?!o(e]M#,['KQ. -r>z6@ul_f0羕}!;JW:D9E)o,Rwruj.ʡ1[EZ^&REAE {Ahm37Z %) _=g/TE:B{J+?͋'QRsIݡ,PA;!G[4ۡBinI:v}K=ٓNE2$ 9JLAŧ2@fBʯ_vbߒEޕ8*/l9H "9_v1s5,fc6QM vR߶ $)BbUP3_<g7|*1SWS{_I.t9xjSPBYn`0_XX`A>cVnuqZ6:TWɑ3 68(ktc`~Ej] vj[v>(F0hNb ռbeb4T*d>.iY֡-yǴ'6z]2$,H4{~qB5^q9LZUv МFuV]`u~LRZR1[5{AeQwr*l3K.i+0򕅢 wL t Uc?6. bYf^T~bI}(2hBKF{o#U[NR (R\*xz϶zQI!>2|Vk쎁 Y` Lf7^D$RYYbmLbEb`O!,~~n&J9vUӥx&A!oI^}*[uW%dFQ=x"7y .r$،8Cyeg6sH]sKQ25|3 lD82,ט4h#s op4Icwk\ò⍁fS v[Ywbl Mg>9۾+7 S1e9IPL I[MXV}VQ+z9UP@-S-# M*J;l]Ndr}e-R7/+}WNMp s-QoaJ0dsh?,$z0Oy9O,}9 -)rE?BA搊&JxNtiO=к$PT5)Ui!gEU* +fS6ɧ!C~9R'ɏXLNdM_) SjAFSHE>lxJB[Fq,^NAS}>5KΖ3mdIw*1W֥0wH" )9YPM''gi6_IjF`.+O阔R޷>躮 2S2<r\lD :|u ʤjaBcvKQ]cyS֫L9Hܦbb掼l:1N,(b_1xe D?3] L:54S-oۏD[i߈s$lBɚnn>_[%pܺ{Q@#'Ӎn_riu͍$bctvA6|T݂[*y*!y=嬽E{0(ߦtV A@{q[.n`2F/!+Ur:$l|r ]ޖ',h=i20."7}Y*P1N$c> %ڑ,ڲr)[w3X-:f$s<"jGΦ!ݢ. _+ZoSFQYyr| J jDy$ ,j닩}41` ]rfuHk?;ɀ:?C^_%}+E4lu'XO1hnekY$J)ЬwJy}IrfMBXre0G*z'@6tʶ2)&Ⱥ Hf~} ͒5`{@= ڡ(l5\*ld,]\9* ԡawGT[nݝ4FNA%\V!,6'$ԪT$@Ԭ{9=.u2g 4{zJ0e5U1N4SONEsrx)iL T=IpN3G 3rҷdWe3]$p$QOM`58}_V^HŴ-|N P'BCAVdMq4` SI˸En;mb骺!G}@ڛˊk9-ƁYq)ZPt]a#E졜wVlF V.\klF"~e1YtVa>`rc$Kz,}j_f*})8A4io}I۩յw"Q}[PFd :6$LËG!Y3$qƖLz5@U@ dt&sZ}%r؉"~TzUrrF+ΒQ\1[a]S OVwQ'WV_(n,KfKEF~FWrGjch.W2#}d}M)3Lzҙ&̺TQ* {CH{t  Ta06ys69kTbƒÍe6a r pZљ+T,`fޤyL WNZ|f 'x5.| G|o9pe bPlehy޵RK2w*2uhC.^V@Py *ik>f0=&T?GN54`"T.P24c?r[Qu̻6 Es| * '|ߴ4s{' {#p6ON`ǔ9gB ^ JDnj3Qdh1DJꌥ4B2>)(SS9]oo @I*z $o 8(Do :t]*zp); kK:M4K %6,X :QR0d$_+:+8)gaUYM؞n $T!.TGS "~GBoB[JX$w9Fޮ[P$;<2$q(r';to]r5;偈$|4تw 7jlS-8H$7C>u\Hbr.5T]Zd$jw<ѐ/M%LYzO ( Ok,dG*hZz?Ѫ %v 7Im?{-[N EQWB 7N+bӡ %@%|jdL6Y֡uP ݘRO\.PJfɴkB=#_j(Ө[V^O2$oEK FfUoR֍ ˋAJ`Fd%T)-,馤RkAh*` $ S6Fѱh`k?K_e;%%R Nvg/?hxC:} \ T'x0n'NjLN'jĩaF|w_WޠT/iS%n$/ȷsoa2tqsMFkoI\B1v=B'>sZ!C]ﲅO/Jt_A9>vQv/6]a*u"&J eXmJ ݕdkPڿ$"X]cf3`"'jͽJJ+CvQPDϋ(KdU2I}#Mm9Y[-BΠ@zd F[$RJ\hЩ}vS$WAwp<l[]HKQ}45E6:~j8[d=-˪CX BTj :-*q!'7_2&4(HT!Y,8TMKHJ} UNPdod{V5I/Y*My^^ <֨@dD0UjC5 F} (D:4gzk_V{D-ֳD Qx"Gݵf0YU|U+lYc8 ׃ h%a24:iIhz@]hL)yfJƍibOY9e 'v%$C)q!-ZwE b> gxRL3hib6jm6yAZIH'.嬒~ѸvnM]zWK@Hb*2 :,46+$t,{i2I4EqA c|gԣ%-\NR78K.cʘ \zG RBZ9AKM EWbV~l.(:Փ_GUJR|B̳D`{Ч>hQXʑSPAV]+VvY!#h[SJ$,&5, <4nGQׂmȁ*ChH!//(Ƞ7M1Ǹ5$c x nL H:Bwbj`}ē;&AL,u ݹ%9|Y5KC 9j[CQ(2!ߪCOaو9E$RI!t7p25/6A:&= %>z6U\2(fIC.Eg d615u)U4I=Ȍ4e'~{AWAi<`|9; RCK&j)ck4#P5. u[>W?-XEweOZӜxPFղe`Ӱ4/~I q.{J!a ƭ݂Fѩ. =Iyݺ`8Np&*)QSm8,NGl~,ڸ WxPz:Pòz[v |(g+NDܹ :)`"{+Չ>с0\BuVҐ*@{_OtbOQr[( h SJLA"<\YjEnU27E9!Pֆ'҃*Ub'4c֕]Elڽ?I%6xCݬ')5WR*|GcR皫!0F؈uycuUӶrb4Eg%2OO:T+5h|DL21AL~~rY XؿR޲ܞVs t3.]yJzsJ1 ]v$ڌ];E3{0iݫL:wQi1kJEO1E "QZe"1&1=meov(Y)" }cm *B1s8[ҜS%e}> @0: rQ1&NNC βKZxܔg+L :UUn]f~W)9rCUOi{Q.`>:v-ķQr%^_d~.BKДx\ByZbWӳQWwd]ύ.]Ѥά6ջTw=2122Ex(* SUMEJd%T䢫dKD.kGX딋}@140ILIir!Nrc/-IH!.Cr!i"#4^3!F5H*~O"'- IDsz+j]eV456:"S\V^'`49,8MN} r*HW9j~*%ӊYqy c2yy2^STYqS9@6a bw'\dUVh^S@AVq[FQ*ۻeǽlDUB>[xrhRJ?32bGi2;*RwI?@:Uߵ*jN?$V}Z RhS͎ ?Ujd7X7S gg'Ƞj\qISvLRu;Ta_iw(! Ǐ MY_. 72V-Pm%P٪ylS,E]l;D} vJP/'wM6=ܜU6BpȺa[+nk@lҐhR;t ':>r9%or"I8p;RS! B;'1i ܥ o9trr0vhBX!,Gi]ɊA͙_H{GZ !`k[*S:G#$„w˹bv UMTmWd^m0)w[l]G(bD#W*9@lrF/IDчfֱt*kI 氁reZnJO!Hf݈R D[mؾ2@]PնUQ Er@CFf"TPߓYi< FyI!8Q IR?ӫUeQy&U!_to!x =AJZ܄@= grޫ0 Pl,adԓ1WɼY29٢$jަЩdҀmmSe?ҳ΍,JOZ]t~!;|0۷UGYɐAri~M΀uI_uYz\1:x;7y¢bUtU1AO>+3X %gl@koߠAo' u1fofՉ1I2YLPVgU}%7ɯ5{9zڔEAe^VHmfoԱCYі*:z =$h$Wm-k|]ZΧqhĔ>lF9(ɷBUvot9걻Ƭh VJ]R7 '%€"2GQ;J$}a\xً ԮZ[D M@[7ۨ Fz&Pƒ.i+!EUH@Aa]0kŪ {Sf.gVYaܗvqLU~莥n,]ag4]";C» ON'ctMS'HHaHs$XAGT|RӲu/KHm "x EZa* J#TɂAI9~_HTОbWG5RT-+g'TKRrW\F$ Z5F3J8d5!Ź]-oqԥ_ْx @"( l!-xͨ]֛-M"I,UZU){U ADxPQEY~.E}`Y#]=D^(HU%VJ6ũ"l)F%I&OrhK^t6$}tB>U8RbxU&v]~ȨN{ / ڷVFRS]b$R;FGN0@9H2S]OiiɛuޜBMjɍ@~ :b$(! &Y;!ztӗujYrLm̎I"J&e 2$ENK>fddf׳yh@{zrLZޖdG-м{,%D?!#?:!29pbm$YGO{X%p E89WyP{FWϷZXsȞlR"(@LF0v)Kx_;B7Н%zY2Q=@U0Mf8|ƈ 6;5? @f T̙e;AymsY1iE31K7*θJW"@ļ{hӻv?Qg{޾5J4<>siDaS FAխk`϶޾Snr%geM|{E[b#r I;؇f2XԪ Ȕ&L3^|;}7(jԐקv ^v͸>+HٟU轠}d ~W⍦ǯ}?w&m(o׿_kySh,o?~7}ek^x_~;zr;z7K endstream endobj 89 0 obj << /Alternate /DeviceRGB /N 3 /Length 2596 /Filter /FlateDecode >> stream xwTSϽ7PkhRH H.*1 J"6DTpDQ2(C"QDqpId߼y͛~kg}ֺLX Xňg` lpBF|،l *?Y"1P\8=W%Oɘ4M0J"Y2Vs,[|e92<se'9`2&ctI@o|N6(.sSdl-c(2-yH_/XZ.$&\SM07#1ؙYrfYym";8980m-m(]v^DW~ emi]P`/u}q|^R,g+\Kk)/C_|Rax8t1C^7nfzDp 柇u$/ED˦L L[B@ٹЖX!@~(* {d+} G͋љς}WL$cGD2QZ4 E@@A(q`1D `'u46ptc48.`R0) @Rt CXCP%CBH@Rf[(t CQhz#0 Zl`O828.p|O×X ?:0FBx$ !i@ڐH[EE1PL ⢖V6QP>U(j MFkt,:.FW8c1L&ӎ9ƌaX: rbl1 {{{;}#tp8_\8"Ey.,X%%Gщ1-9ҀKl.oo/O$&'=JvMޞxǥ{=Vs\x ‰N柜>ucKz=s/ol|ϝ?y ^d]ps~:;/;]7|WpQoH!ɻVsnYs}ҽ~4] =>=:`;cܱ'?e~!ańD#G&}'/?^xI֓?+\wx20;5\ӯ_etWf^Qs-mw3+?~O~ endstream endobj 63 0 obj << /Type /XObject /Subtype /Form /FormType 1 /PTEX.FileName (/private/var/folders/gk/jt8845y90kg8pwsm__hn98vh0000gp/T/RtmpoJjl2K/Rbuild13d86f4fc2f7/effects/vignettes/figure/fig-contrived-2c-1.pdf) /PTEX.PageNumber 1 /PTEX.InfoDict 90 0 R /BBox [0 0 864 288] /Resources << /ProcSet [ /PDF /Text ] /Font << /F2 91 0 R/F3 92 0 R>> /ExtGState << /GS1 93 0 R /GS257 94 0 R /GS258 95 0 R /GS259 96 0 R >>/ColorSpace << /sRGB 97 0 R >>>> /Length 54464 /Filter /FlateDecode >> stream xݎtq$x=E^ ?$$$@t!g@TsW}=f_N,unFWU8߿_W?}K)??~#QǟW,W>yǟ/qcG^6{=0ˤ|yVI:>GMmnv/~_u|yǿ~ˏo?}_̏<?=8c룔oWzW8~_\_._W"뺆}ğ=ʑ??S:?H /ބ~շ/{c6gܿοfÖ,m9u~×_ඊ_/` /Z{(G+j?~/yoXosWmcvmKk^fr/Rע?WGѻ}~l pna6}xk?MU$ptfa/ֆe`O5mm}1(NL5}Q66ռT xe mXmY>afkņ}a816lS]W7VnS]-yZASM,5\XU3 jC;6\oᶥ[K/-/ҍkpan, ÅMkm?M5_>Ç٦v[>, Ý||=vVhM5X&tu ڸt{bˇtSS-,^waNL5m|ኹVxc}|VeMqKv+XmG +qmK?XÍSoc_čcU >xxɷk:6o z{x`>?2U|~sl.06 yk7|=q||nr6v;4 `.crY1ȗ˛1[z gAq|Yaܞ WװFM &6v'ae5X?n|cgmƴXn|cLy}_s̗s0_zv"5jq|nY_p<0|sp0\'ֳR亰!ۊ|Pƾ"0rx 惽 ^b ic؋H6ߤc5xB|ݼF^s`ma=5\mc=5\f^5"`/|Bo{ѫ--3c؋ki/.s^ܴ}`=7EDDۦxc>؋|=[kc1H1m {qp{115^bAm{qu-^\c[Ofz=9ư7a/.߮`>؋k0|5`/_dma/>} {qͅ6;6|<_B{1 ֳ^\^g:_J{q}=+zVڋkYi/.W'^\^|xb> j0Zo{q{жF{q9|z6ڋlh/g`/Vz6ڋgAAآk {q~^c؋3Fx`>؋+zv36XA{q9b'砽\@_A{q}={=4p8^b.{qy~Z86W^lwr5ٽư{b=' zNڋk9i/.}O}=셍}=EA_{acۋr0\c%cfs<1|k6^f9a>l1zn zn؋&s^ܰ6ܰ+[w=\ׂۋr>\c6(?h]##k^8^@ 6뾞=^kiply 曾׸%m=q|׳g؋r|n/Z4qv^"^cŢcB9,Ţֳ^׳^c6c'q| 1x|n/  (gumʱg0@׳^8@};z}Mױ m7<Ѳq){+[׸/s{Q1X>v{ac_N{2砽ƾx|=EkXA{|!s`/|4r{`/`8moZw et`U1 V,D*`!Uf"j/ VU' :}JT`UyU 3*^V."XՈN V1 aPU "C`UǙHXE(*DVuO<Xaf {1*n0V m'X5XK<*VMlQ}U{j~V1 OU`IU}Z8 V-'X Ј`UFX`Zx VmxVm613Um/ VmVmVm:SO *_*>*/*/|#*8V'xJ`U`U?VE`U?Ve`K` ܧ|UUU`B0`UGVx`U=`U&=`U**'X V|=#1'XոV5GU`Uz<*iziziU<`1j}w`aVg?`VVV ߁U}'X5|U}> qI`Aj}w`qVx?`VVV` = =`&X`&XvS$ <|#~%58U. Xu'X`UGV`V`Ufp`Ufp`Ufpp<*'V19`V19`V19`U |>^9Ry>6XU XU <X`*eU1`UV`UV`U'`U'`U'`U^Xi:`OV CU1X`U vX5x_X5nX5Ua `U<`s<VMa*\j V-sUeUeU"Xu!UwUwUwU/XEU`|>**|U=Vu&#)![z2p`hXE{x*Ve>?X`PU%O Vx>'XUJ<`U|UV1xXU*`Ujj|U-O V`U?Vx>'X:`V_<`U`U`UbUj Vx>'X(U#OjX5jVM>?XEU`hUjDj Vj Vj91}y^p/29s֣9z6hjl}t9Pg?9W{CݱGͱW9qڻdF dHSc%y:}I>/ &}c%g}cs}}u?Nrx徽$k"y#@;ɧE=S`|$O1Z {ɳLU&<3%"y%bǟ"y-";Ο}?o#ٹۋ$!o>jg<,>p'/t/ow>zxaE|x~;D<1O4so?Hc8dr3x͉<R "0ު$DXGW=E>%EOrp [ #_'F>琝9dhYCf>) J$F>+,4CCR9<qʦb>DD>0ҟ/,;'Bf|o~{9C'y^?e[^>`/#_;#Kn${܎TD 6E$'ʧ^"VS H_G۬7V868T8r #`:d~!wC:i$tVb@C'0Bé jCá }ʠE4\IAh$/RA}.H:F= \&ːȂD(,GsBB~ML &AN&]œL^r sIdnt{qNsȓܠdzAbIPXe"ڵѬ(&%\rA\J|.iM%){Kqe>%\o_ gןvxH﷟Zo3O:/tv jʀ}},0Ž?+S~WdN_cyoəCë9̝O_g"(y_ '# O=p^߱QB|f?5ˈ?] ^L&Ly_~vK@-Ŗ%P?Mܦ #b_CY7k\Xhb\w/`T8M^Q*]RAS^r:LnNnK&vܰ"[ 8e `w]Qx_IW>=8Zʼnkʳ|W)B jG>ǐʈ[~}޷##m|]y[)R\5 J^6@ziv{z}- uru3sřݮ8yiۼ 5;{?tݭLDo q_p e la]_C[\YP򁠙Uq/L @ϓ{ŒK(<ChhmO=P"։`wGC:]kt$u~(ūOmLjS {R.KMmbVyCٮHӐ[:I VYk[֪zr̚AL}]%A-EHpY*rUo v8aN6_<+svdۖe^kXN`vC9 n,C92_PQ9ÓHr; -=lPsc"= #H,V=w3MʮY |Zmۼ[m .j$K[FvK|nSgB~8uv)"ڬn2_y=q]YzJJ }S;;q"Y b){ ¾XĞ5ؑlv"4CmًJKb:*ankc}\ڗxԓTmw4)UJ t#NCLkO}UXtZgc1֢%K",jd9 6!#6*D_[,bw] . (Iۍ=n@j#ݎ aI*xy)i9a&rj2Vx_ŷF&V!eg3=GYY߱++i8L퐡9=aGp/`YPI@OTBSNseD걮wźb0Ro[j$o[sAa"Cٝ5\]"+!ꂤ zrK)vj^TNxuV]J6y&W@lBRE$|4BpZS zgx-p7Vy#~m},IU_-dasJNX|m oLP ߱E ({wF2(]E9Nw ul}OYHl۪p$%UYGI Zp FXNqO b-&B%‡9;"uT@2 ^JU ZXa,J͔CSK*|%y{`yMDEKR۱Pa<'mpep{^RK™!y~&u=Rp%A ЪM2(1 `Ilu–okQga“;~V[q!aSe7+<[@[ɫ18K)#ᒤq3 SdQ0_k<Լ؀y1N<-S 17t CrT|P)DݑjT]BR옝ܷ4,HxZ*qo Ů_WDݙtU2A,0Vy`d$렒Nyr3.IrGuR  ߬ӣ$y"*ˀsiu@k,YX꘮WdFjȜץ?Uo\ KYBeiˈ̅e@-0ے;˲ D(`aB0Ԛ2OJ@eUj9 s66  J+^@Y ǝ 0jIbZ)J0tʧ[r*7+EK)2U!]<lnrٳ[N LPw[U'dę[ &HY'>ip*!~$wɃz0ېV @K=hI u,FkAdHǠF=*@ps2b92hqmQ?Ӑh1񨱡 |!KP3Jq F{<%X[ln L`a*D,x|>" BSW0Z7OE>|VIF]"R+@Ho"7ZGşS -JfN_t~E+(E酊1.H$*]aYxeYmnYo4Nt [QFҖP۸4w}%hn#E Ef]&QZv1>(ͪ<$\+S@8aHBTUէy=5TU!Gƻ7.v+~)'1(kf>&nke3`ff2R؊LIl,ʊ\2;:y[+ۖPrXld~%yPsύ@A]1k\~Z *K$aTy07PjD'# XdHHƒ`7]2=rBH!ˉ`ro \KZveY嫳) jL;QEaȃIҲ@rtR,Pۛx)%7AJnq\XӸ2Ғo/AMGTPZ:ːP{qcUvG]ub2gOUh(MILݮ!57nɼ3#/:̑ӰRB oY.:lvx%ٙ*Ng:ڡx:  \VB ݆ B`eTh~`suwﲬ~zK̚/&5W?eB/^R ./90MYCHغdkmdD@Չ|4ai3IHPUw,S52+nij6oJ2t h ͭu\~-YF),aQAՖ顋Wd&UDL$ 6xx{B-RZg n鲰D!v#Z*GS*||HɛN5qz?(8`lئ%bnKA ^?tx"]2;̠UV)D { \V,aB)*Tt6ĀWZ|&e]3?Sv!C-]Us.\#Qx82vkP=E G3]\D;JS۳ LEJ`?!+2t) h_T] 5l]k32z;Gk`L[, -{*6A JV(=o-I $nVSv{gHFm.q|!>0kHKIBLP(7Ef%Yc=Z7>4ӽC+k;޵GH&ˀt4뻾ZP/$/ZOjԩN/$?Ez͎M1YiO3`KrAahM v^YY!gV ,,kHk]}KJIAV>tT]Η!>kVG-3E7b@+OUn_a?V-ke[BG67W?c1'@V^3) Gg%ep6Yf!%%Q6+"%ҁ޿*Do 2*ta: XQ.b7mEb`k* nӯznA]Y妈7/G$ HubG?m'YR4'_?Ld8Zf_Ng3_N9+Dq,jI k+h~X)yi=p ;K4]z|yJ/LH|-UvS4j}W?̪M$Y9ٗFMKڸ N?]WWKRzNPVkt6nuj MՋZǺ[/ >##͘uq%Z`[%PZj m3fS|D4  = 3A>j) *l,ߎK;&j5o.QH l0I <: 2q7dUfM Z|!5Y|cFs3{%Ⱦ]k_bǤ93微;E"hzlbxP)4aT 4|T&6Rؗmpd6lke .;Sa/<xQYW%%-cA,C65 ;kH٘kSFIs\;E׺O@uÂJ]!^l{ ! *C6qϡ *,*!LlĸGxیGߓW[gRtC$ք7Udۘ#"GyN*4)lGe4*P420م\ V*AhQ/SD ?3˲9DPlSץK!9[ QK.*hWd4 ْe7h?IfNJхIjER; 9SweV}re1CQ. AJBq (&F;IjM\Oh;u9JHZx]2_ÞY2#6E%4FB =ndSTX( PI|A!ƔC#Qe`[S[fY;|o Dõ^-jRN@ХbN?BUYd"<% V΀.I$n2NZ )4 'V$}hߠX.V;e7)Zxv]@;& m`"h9 H6Z<]!l MGYKtgVl{!Ț:dZҚLg)5 KxCv·Ƹ\%K_2Cj][% qAʺiE-(z03xFKBt%Wp]Ff~H/k(Q갗xy5)/hz׷Ä䊯]md+@m-x,ŔrYJ=9SVsK~hRTr(*eJgj,2 FHaU6u,# zmpU`DIR'ϔ&#ߝM7j+1 l4^lKq0"nu;mkfQ\uB?pJ׋RĦZoR4}4CҴu!~M'DU׍c``|Pē `%@~/j hNO' -6?G 7M~e[*׻OPC%~ށ\h%w/B՟GtgEL׆qZ팊y}rVO_ҽG5|BLkjU|>&OZ [OWdL{\ 7mv2wow__o~O;ENQo/o-}.RGM%v }>,}>[Od_~2oz76}_|!\9;*=^~7?xJ?=?/?__(ˍ|ُV *O?=bq}<<:_+ _W2~Wb+R'޾G_>5Ny[Gqܺ;Ǐx'7$_mW.l泹ˡ_;}t~×_._~ɻ]v-e>Y@Vr6~YeXXo9<:%2+Qqe|NJ~#pf|\u<6p[<)7 }<#Yu| 90_:|#RM|>+ŲBSƣ]P/tNm0\)$oB ! *N1ˠ4i|, pNB`Q,xQ S$# wxId22tťm :itFhk,'}= 1z|P7 3Z@C0ޘFf,2e`Bj| F_c؋^e^l gBn/lL=x5e熽0>n/lT{QrW5^7x*S@)T`/l1|Md7^ؘDƞͰ5X3E(Ьn1f {QX3셍gW(ĵ^ ؋\b0|(f{Q˫fޭ6 n|=+E-)|Uҭj19j1칽 ADmQl)60@e%V6^3Ak|xp{Qm#a19ޘE~Q1}On/jmQVֱ tC6^N|@m :`/j'E;ګ±yO؋JnPepZZ'ECaX\eEkm gE{ѐFQ64O뢽(O{AzI] ^H`<f^AӨnڋ(`^\nS%u^ts^b lcd[ _ޣ'+E'1^!yJ h/I}E؋Np%^67dڋDv *L{1L{A}ua02PzxL(B{1vF^ (mJ{a6^L^jbmz1ڵ9bm t$[F{1{ya/&zӳ10h/Z8`/&[+4`/&*ҺlY~օ~>hn^:c]#c|GbH<^,(>f A*b5^bw`ci_#rt7a/!^lmbSPs^vD|1DMۤ=DYa/6m^lۢE{-ڋk<1ņZzF}~k }ڂh6EK9=^x&EKPhچ| a/l^c=7EKB_Y%H{Ѩ셍ݬc>H{aM7/'H-%؋Ƌ&49vVh9v2}ϰ6P$'1^ob>h  ^4U{( 셍N EY`/l ۋV51\-dǾ1 {_ ݧl^a/ZAI曘ugWc6ޘ׋|?}a5_.nuqk`)<сxW*6uՀuՀu14:PW%PCuUuUuZ ˱+_PSz.Sū@];_bt.JbtA/끺'=PW@Mu Bu B=Puy 5 ū@]5 E5"5.7mbt.NZZZ+@O3o.7-/Po@]h@]P\@]7P ksEWZ}%U US@a;j]ꪞPW~yk}vxJJ>P C C ( u!xB]%ꪰwb@]51B]51B]Z=.VO u! +B]8PW ~Pu/P|?uuGr1'EɁ:C'5"ԅ u-@A\ uhoEhB=.zO 5kr=ܯuMG@]񄺰O "4Dkq=Z\uy'Ե?P =.zuѾk3 kԵy^P={B]EhP:| =&?@]-~4􄺰?Pg@]#PWӀž"Tw.O ړcPW!PWPyL*BPu/P h*PWπ~UPhP'(&PW ^#;Pua?>.ǀ =PW}PW}+e@]Ɓ:R/P Pu C@]!E:Pԁu k 聺iOk uMǀ>>.'ԅ灺'ԕr@]3N=I(3BYL͜ېJ;Aׁ.b[x-DPch8K%txo~TL K<>ZPxB9[b=Ʉ0?(3xgo{aa/3E{*P}H}/IzMl⾄hk)RKRyԊTSW+KHE8/RNjl?:GNo`SgNpFL4?5>S_GZ_ß==R?pr3#U,]A ;G xKꙩ퓚WAU'^ho#h3h;㧓g|uRx2>xT/z7-ReO6͑|sg<g>x/|擣TYZ3="|5͓>{pRWNԖOQ*rJKXJ҃?-|>=O>@!/x)Gh|~|ߡ8GK$)Ǩkg !UIj<|R૔(UBT]X*q0>)!gD[R8u2!|}H;|'_QR;H>|%ڿgJ߉J|~XsVw3\Y+nS%k>ŠTTň_:= ?EY餙#5 3 S!G $f!S8{ήnei*wv&$[UoKq j #I>UBG*Ql4$D=S)BɠԛX )Do]23J_Fa¢>-TP~yy#S fT({9Q5L왋?2 F mVsv=z/إ:ݙ7S0TEx{Կm8B@zY^J6i0%-@둤d7-0 Nڵd-/%vkH)NV^+C~C3Yuwu5K 4wvP݀ٓe6+-!Y)YԌܔ6 -pͅƠHԈ0 Rq ,O(w%RY9ؘH%+!M VhT9ugjQ+i!ѷyo? V]BSswHHf bfCoeDL*]V^ӵ2 ],wߴqȤX;_NQ֛!qʡcٍVpj53e$[:(<$5@%eu7 e?|ٽe#sBR}Fv fjE^!:\)2~Gz^ ـ9lu6K罇45_񃢞dl<;#aӄ[ucM$m &sW'M)Lچ3 e+|>y*7,X|xUF JYʫ$f!. bDZQT뀩S;lv|]')HdUwVKt.i ;$BƞtL캌PzP{o܃НX-8 F6IOpQYZW 28o~ y^~-.jP$# >f\znZyY BRёXH(`Zk9d ci7u5vOkWo.(I61r<ýIT Wя㖡vȥjg#Dzfrl:TBW/Rd8xek䳷E7i73R໊ ߳UU*'#l2g`#R,вat2`/BІ<;2U$P,Qd@\1#΅Q-?AžÁq2E ?&a%o5+6tgY <U C:rnTU:_u=$+t,(^oQ0z^ʪcxTB@Td Z(iqUG#&.R9G@|IF WA#=;mCv6"1oKF\x*z~!k&a*! ȼ'~;٬ܬd+Fۍ-U$`[V[}Iߖ K׍J3y!4:Fn I\y ]ogl|ϋ*D[9c U pZ(ܨ(BX?c^TH¨$np #[¶D5i RK 2Bɻ <op iM(NէJ45qIz25Xف"s4OjVirQ޹32i Sp@YvI*eO~VtT⏺o z5٥hLeIqt'PpS?-)'mX rdgԤP=*IN._H.+u2 ꪗA99 ]yv7+*{רBy\`\Q` CGAF/ Mǂnqg$;B$bs+_2uD^з`u"fwj,'UrZl:2k|# \YVXȻ<3HݷjNmB5W>lVI'HaR@@7OM%*b%1+}KO/7oG|ۯ_2`v(?ExO'mMό琍ٝݖ H7ROg[aCfOBa |.uZ|Ņβ(#E6(a,=:3ICȄ~mw;JcθzQ5O@jX+EЬRU*N,KUIZ97uݠ5?!Q FTIQ:$B9\IBcUھrlCFK2Br_j|?*|puhldaZ V(jԨo_OF)Y5[֠H(h eokejey*ZV٬ (-ҳҲ] ͻhqe!DŖ$"{Jmڔ6k5k/Pw=H+6;̰N ]T(#zt:Hau: dzɋ]*mDpLŞ5qcNS_Szެ+Efí(-me.i$;j=/j 0d.S1[7.244H?SՅ].)3F"eDY 0S4׈`#+X." E?ټYp {"4o! <J,T_C((r٦t[k- 8!+2UpRPeM%0ɪI[cS \H S*wߚ| hP^t,F- ֤;Pkڐ*?R%~N .(&J% ܺ~DWh2#?>2%7QSuI(hHӾ9ϰ:ˬg\ B'mC9}^xT*4K98#Ϫ@njӜ; uh^gfo†S^3Eoe ÝLj%Sd^M߁*k0u@>ȗ pssuMY9"/M6 1'54'ȧ7)!y1VUoˎ7m0&숶CګYCW`j QA,TSDe1T\TPJMW`KhY¤TF%K`,mpzqUYȢH ½mk:iE |!iD ẬhUUB2mdvSY0ScID.Wy ك: \k;2]'vcq<65U*iU,PV#[4ۛ DjڒF:3WF*)ttrZNJU^7ЂW~J5f[NSk*gfIp }kb#M5PJ %L;bq^Ƭ-9:*I2ҔcWJFֱOlVX؉s4Y mݨղ[O!["^29}lceoo'D.(TWOí%:yHtQ']T"DL_>8L ~r˭3VgJbs_e6Ll-m(Og< owlW ^(+v$M$I[4%XcRèV%MsL VA1ttg\Ԑ9efoΕ8.TnC_$;֊}vx:jk\Ѩ[tܴpT}t"RpR rVof>M+I4㖝jOAAѬR艜e uM\6sxnzLL]|k ,+ʳGYAGG睲K9@J*ˤ_`KӉ}06L څHh՞dH]\ EV䰋[4A*MtNx6NSPSK,etVR. 㭊7IcHX2UpFҏ+z諹l2 ehO7F y+Za?K*/haVjWLLHho{>Qɦ7^]Ғ)rM!1uzMpeT͸SLM kE:jA)KQg%I |퐼Wb]iJ-¨UGQH%&qJlR"cTԭ)Fu9TecSG*[ȍHh}TQT<,Dfy[EdȤdd@@DGY6E$y5lA ʌ%ZAQ#Td,zJu9)b]^)2/j(.%5R)YŹ5m>_jSͤW z63:)sU '2ZtZ(bMaIU;R8_П`=j!i>E۴͍[uu-PkӍ˄Qo3 BXhwA3Sm &,Qmo.̐9dϲ>kT] I,lqʒYf׮+xTn,|*s4 U0Td5+:XCp>I`SS%qozߺf32*/QW%#6G T%P`TL{jlTB*e3QO\jȠj,(>zIg'sj`Uf鲄R)Bs[ 2 7)M2:GT(k;$) \rőMRa1bZ y=zz֪-[ ~'uθn5fTgĄ1 P05]֝b1+$їu]`M<)ȡS`e~@Q+Rڀy60Q:8RVk6]%D$ߠwV)鶬Ȋ~al7:Jyo 2ȷU,8sIU$fKorGZpᙩ=F{;Fy*J9Yj/UFbɮhEzfˤ yM"k1s7`:)(vL9HjLFr4"bwnnhVE1xf2:2<® XѴ,/;("v/V̱2 uk4v"%nO6 EB, @,=HTw[^eEN Pn 7k< @c\@z`;u W![k3_51no|\DHG=Q׬_{~]'Nϼѽ,_4+Ho,= |B!ǬQv<Ǭ+ ϫlj9uyx$߳Zfy+٨ O0\߿d]>[r!~?|ǿO_?~7ځJ-?eeڽFyNi|?;?ix5LV2ⳙGi/~ .. tGۯz?tqŖ)Ǐ?=?/?__whHu7O>]~˯"Wb+˛A>_1_˯`t_W//۞_]8|ʃU|:y=hcH?oSw^?wT?/CwX;~6s?]c*xzUuWulLwSǬ [LGa1oh#`0isP;WhcP 1>7R0|{y-^`a>Æd{CHK[( VchL8_ρ1-5MpIs:l oec_߭Mh+N1J/i_a>ԥ#xcze\M*cM VB f$" 9ǧ{G֒pcZ2Ŭċ8/o ^*lh iq?l-&ngc9<ޔ|s"^Fx!S D--ou֊~Z|'9_~l#^^r% /&|1pr'BU04KRoFkwop>̵qa mx_~op~lċ9n zx1ZFhbic/$0^ Z4Ƌ޳ 5a$ SbpP7&9nM 3 ńTcƋr(EƋQ//h?8Q/&dRű biT Σb8bB?*4Cp xa5'J"^F1C0cxa1^/ .3^3/\l /%@&p>ċ߂1/^~L`XbQbac[q?׸z7 |0dXĺ&01/3xAͮF87/:w 0[(Z ak,5//54 ρx1qy ^]7a fq8@0Rs ^ a?xN4y!4ys"^Xp>Ήxac!8~ N G/ݥA6 8i|㸟xaކ/|/rI 9yXߠA]\jnjn oP uu, uu, uuPK uEF ,PGq %.HkP慺FBkh uqkP uM, u7U! Eх&h u5 %e2 u]hPHe$e겄uYBmNB]NB]/ԕ4_B]1#Ե~oPK uTP"P&P&PFhPׅu%ԔPP Ե>.Boߧߧߧ_[ߧhoPׅ6,>,,.7I+' /A]F\ uUB uU. uP uU uUfo BPS u5B u5 u,G1M\PWLuzC](PR/Y'{ EP.oPWoP,eLL  ,PJ7Եq uB]L .B]\k"\k$5P uzC]x> u uOB]YZ%e|> uB|PWGZ.u)B]"u)B] 2oPޟ7Եp u턾uIB]bPFr Y7 u~C]X uڿP uڿPAvp?Pڀ.uJ PlM.5 K=B]p}.7EhB].EhP녺**ߗ*ߗ*ߗ7ԅxwylpQ'ԕ~B] 'ԕBPLy$ԕ4 uuB! uuB!o"( u!~%5]kpI+JkxC]Ե~/\ uM2~&ԕ3.Vߠ.@1o PP%4F#e "z.R" z|C]X u-DŽ}J(?P7Ե/PPPWBQ umƧ6P7ԅ+C6C6PP1S>o ufa~Ck>3I>I>YpoPמ?u$U u$u'B]zDy}B]5O/u]jy}B]PKB]-O u1^ u5^ u'B]/EB]O u>׿PO+F^Py}B]\k uߠEjB]6/B]/5/5f^P겼>..2b~.#ԗP uQ rs'ԵVObPbǔAߟgH%>7T X_~pk BߔuqP>~~|?;(Ҫ:\o]PtWJzf~s{czzOzwzZg t3 jB݌W5p371xI)̍獷3n<.I50^"I5x_@oj?A~7xNGoURAnBRC^HK=K]/=d@;3Rc7|de>|%g2|x͇̗7uXɷ.u|R׌xEsr=#ޑ|2)K+W'g'w'̇'̗)uF}S-hRϨ2_w3~{T5끔"eR'RGozdXC'륎S7i Wz@)Õ&Pp /#r'E3l o4n_ݚ'rMiiR&Mz~+ƀ\| H;?PzC|JsZJy(`}x f|]\?vגs#~}3EO>r&? ?ɯ~)߈GWoɇm `+@M~/_=o&_|.|0o o>h듯֐䳳u$nm kx\?xeGP_@RǫS/ >#Oԇ\}#cbVS~I ZkRykPzu=ozEU*'՛L}ZMR6giy}]ZZQ8ROSd[qX_NSSw׆ꅈ^=Qx#>Jă) w"|P%LKlšNU%?a^?G ZoD9Eq,+>^+LyacL/ > 1"ɂS%X>xBZuw ppCRЏ2K(<! 8(4P YQ$}=Nl^|~f#QaiMA)*'>sm8LT+ o[H5 Y- ;蛦\g&u_+r1TZzy!#>?Sy'zg&MIk[Ψ=mͷhӝ!|ۼk,OO! ,;LͣO~~f,i9h¼o+0WֶwN5|^$!-7G[S&k߁A))Ma<2$%Q-$?4=ބljϟjKeҤ=9jZUɑ"FkW;k[F΋6݆~" Ԁם]4:V4wLT1ԡauתY͸1p3UZc:?+qӨ".KI4{UXpkC[H0v$f4yp8sAtGA %~/ d'`.DCأag.2q\:y1mMa G> U]:?Qгo0YeVgv t`dkʔ/0KNa#ao~fڱ "Z92Ll=7,ən%ޔJp{'A ](dTrf_r{UKz>(>TЕvkuMJ 2KE*t_F6(A)Cmor}O~9(F9>/}#ӓrVSM XO{Bb [ׇ)oԻ!A0^K>ȦmAx- eal -=7V$ fE e,O}LRX}3r<ݑ*_\^ K~F7Y9PX8s 4~THK"ddլR1=He4 5tnsJmF¾rDg.Q#RL$tNѴ|}!0ɤBr@a)*ZΉ+.4 ЀY7E`:=|cr@JCVSL9D7SB VÝ)p o5Eyl8#J61fmYLXQHqz,$]gW@(G\ pUF$jnI,9J3+v#71ETIdmP3izꃯuD)bY"h Br#1rurENImV'fyy{V>WLz=|9 as4#1 l!(D32BW-G{޶Ey[eSinjAMC}m{$,0)8\90TPcgWEBAԊ ^tV1N%f alNUBK&qh/w 1qH Y?U Á_!CfPȪYg #Ll#ĎLb-flYMR|k5cdr^04 .HzW7v[e*$*iz,*bٱDz"dV9 |ȑJNH~y5 2bϖrE.MŞ^ǿ Ӻ] ßj-N z\eKJ'P(}Řx+j] Tm`a?]iثDQD9\8.QwJ@dt9um>hiWأ* S c9kDzauŀ?߲$#-=d&.hE+ ׳]#.otPM53حqz ql&?2g#W9tr8"! z $dr9bHL\9 @Rҋ~/.kVQk.5創\d|DP8x]ݯiJgLHQ!,ِCrCwQP2?!}H}o*‚j)K/*z'ŃYؿ Fn*jv*R SӮ }f/3z}RmWn&O8; ٢鉤 ɐ2Y R }].`*yi`I| +~XjAz5%.+ONU[d<5r bGo}CmKö"Uޫ MQ®B1f*lTm QASԜjiH ]I1@ҡ}ɂԴ0(M&2=zrs^2}.!!_%u PJrhAg*]sVlkg$#HNl" vϲk~DBaZ 4YMfo)Y53q_}Z˷ y*6fQ6Z#AZ塷߉roaʿlـsU̡ϨA%K XtEpKXNRV VH{8FL<1lf$5P75gf7"[UEpjPNߩD뷻 =bG4}*~Iv+ 5`y2n^nI+gK!f#9KUwj Lm9hPXO l=5P5@5Fhvqu@[n=cR % `֟tU=o(i8KD3:3]IƚD=[M[(`+VTE.S..3~uS G%뮁t9Q[B:Gc0/p['IgDmRq5v1Ul6L[dd歠K$o43쑽NB&tgQ6qnw b%HCy*{m,0̙ڱ>dsXQa[=Z6I?;Lz;RK*.>GM{OQ0? aO‹*aR3"#2иD++QI򴰹 Rw$TR7bڴ/MEKukT.y#'{F^Sbc⾈;ضga  c+3`UD.-Bjp P .%ejҵW;Дfȱ|Bood<\raM9pZpP- .LՈ&ch8SůXnsSqJS΀j{+& \Vq~= $oZd*Ah9AlR 6S[yKA X3Ϛ%( &Q+$!MB򪭡/@W'Xŭ[‘,֯nMZڕIrykԉN^W޵9Go  9տ>XM2ˢ>xE-r|2Z((f8pZLR1dʇX$H&#uݎ, !ݴ#ؚ=kK#jioHBV=|&P* x#]^oW;1{RR]խ34 >ۇhн;6DSjWm5lC3]*n~[EW [{Ѫv<b7C7)^w#kĤ8F@vU:fR/$Js;1"h{%R-IMwT#E%Cë- }kb]uك"<0.<Q䜢:Z%oȴDCHqWU~9\8%|\+18Hs~iH覰";/ ek-dh_%xy -x1ɩ1 L-舨j3,UVt-oP8Vr |¦ 28O2whc4ۂVI Zut*" ƾ%Jb|tF=d4z ٢@ ^yl&5,!`zE^_2ٯ% TqSfwl|08<3n=o``1 ݑ!l1!5tFV;;}i1zNftRH]sEJҕDB< F֠X2w*5%pglmjJթhʼno`A%?*Ŕp;bEwn=^yS$1M=s`ڶ)EBm@smU&ǾpSM b VQ7RMl>!@[Y_&qǠ)75ZtHlM(NlCR)q7D̐zx2uFbCl>?mu?^}|ZoWvDdϭgNQiJ#]}Ū3L;TFK9 +>}n;XpU@l:LUv\AǦb@хU^,2p:p=4&AwHǰIaUs$~TERcr-ҰReK*nh(?}2 sOږSZNLS7ǐq(7e#G ם}W +G֋2Rm3!5V]`dZ_ Wj^}f]~7zN Ү11:71ȢHYsUAݚ3S9aX9Pd A% U* U$f?U@@? 7?K$f ?፯p&NtşH)f l@ӱbHٜKj0ՙ醆L=#6r w~S9h˚95Xc)LXG7sMN S ?G586g89S; A H4*N]Fs1##Wh# J@bJ(R/iC'Tqp}Y?țM߳`(.ql }Xi?koWic&Y|oh98?o|~B_X|;u?ǟ?8 "/?mǿ3z<6B?ПlDZg~>~ey}R߿WxW+WۯSUX.|AکZ >kGQh(oYov`+_bua1kWR~ AhzB8o_Yaǯ/4;n}_cԷa~̛ѐ>jOgȃmg=&*IM}p`,4惾'q萪3~\6"-wF`q(ܑq|#gGXCaBn1g0?>*·Ҫo7ds#'Ҵ@^F0#ı|1֙9#\31y9 ,Dwo|e|[86o|Dx-8gNx~F㸟n@e<>8_y( :IU8!>ϣ|.`]q yvT?>8zZ(3OtZ|fn?F^ Ui"pTXxk糸m!cw<;9<>+דn8想8p> UŰ % 8܌{e+>IDċyq?_fAŁƋq1t (u'xnB8@'q_~:ň!xq GAB4X`N_?V~WċEle N7q"^Fo`dlo~lhl8ȑx(j˭pxpm~|Wq>x*=((o6^8IpDX|/x|/zGc@Xκq:71/V blMn:/6·a} ^1烡l0k0bƆEXl7bqS7ċ0/bvp? b|t| I;wqOCXxif:a ?6/VW׃qLxzAx|/Vэx2ۈmw#^, qs#^xs#^NGʍx 8Il$/{P V,HO"qOJ.q? 8 b{V҃Ǣ7(HQc*ηGHx10o82^LhFe>T/&Ge FT8># ZoT !x1۸G9sLŤwicth}1^8{\:Oxĉ/8ht 3^<ق㸟a= p/ sGgH// 6c0^s e x`/&ba0 hzk5`LƋҲ bMbܗ51/8mxJ cL(u0ƋM7~ ۰a)SwKjÏ%8gb7b1L#ʘ'·xbÌe,Ƌ #/6ӱ/6c3^lzol b+wl q>ċS9w`Y6Ł88|vƋq/w8F&z oxq 7~ 8xGF8gA ^|/K,,oE@KoTxlϊx ZFp>А"^Ba@EEnK x^Ox0qȊŮ%,D/xAbbW84Ύx+:gG؜ 3.?svċM#/vk#F1$#^bcQϺrN ?>px+^s ^F9/xx[L<9/!5#^a0g t61D0+cNċ(vp _/o("^4ċ0cqA/6ݧ!^ @@sB]ԾA].$$ŭB]!+uuP Ubs.:bsRj\/ u5^ u5B; u5j uqP u5 uuH .oPWJ uePWJ uePWgj'5_. u]Pׅu * uQ"pR%R%R%.B "T-P%"ߠ e|> uqP uqP$E ʅ }mׅ}),). u1^+KoA](,ڐ ]kcPF|Pׅ =]ӅO uׄkB]5C#C#x :JJ #@]~]kB]}B]}B]}B])1u~. uUޏ*GB]J>J uPGB]]II1%$$հ|/P%wꐰ]CuN'N'. \ uIkIkIkIkI+iB]OJ u#ԕ}B] 'ԕ}B] '5<|o #.H<2>mB]F#.#ԑP!um@eBHkH+gB]?J) =Z(%/ԵPCB]!PzHk3^%ԵڌW um7ԅPyC_(6%\Ґ uQr.JC.~oPㅺ: u޿PWxB]7/|B]NB]/EhB]Ok PyxpxpJh)'5 %B]\R uM^?.겄uڊI*B]'ey}Iռ>.C}x'Ե/\k uNNZ:8_Qb~G<~s/{?Xϑߗ{<'TYϻz쮗Nh0뻻:Yzb %s\3%TSK[KhcC|kC33?/o<\Oo(-&xU3^]r`l~ٍ?n<.3^?JVr?gror?wrqr~soy}?RCXRG}RKROORSQRWjRPu01E*m_{RmWV#+{/+K)|*o$1#_|Έ?dg''75#K2߼T.K2_T0K3߽T2K5_jT_ӃT`o>#o#s#wM#zS% oYJzg}zgzg}ut[O`w-̀q?K/l\Y/?tV~e=ZeZf=[d[;K˕[:--A}x!uzaz0~d_?(/(?O(O\i ~#^OOw‰ʉ҉"oה&%ҥҦz$OJJ6ē6ﷴG]m'w~Kk%~E&C){(u|0/*|O*goJ>.B9|&F)d]RI~l&x3;v|];y(ϔ~M~z>ķ~Nl;+]ր䛓O]y5?.V֊ko~x_7-pͷ|m ٗO:uᔺ\|&>S/z2kMI=DHyy<`~᤾1gנ!%~%n+zקk>sޣI=NEڻԛP{(OJSRyԻPeX_=MSoS'[RSa~x@%OWOT޾z+^)L5N5P5R5T5V?G!Zo31<e2QO͎~h߶xEHVa0W\j)mpLٓEI@Ix32zgCG0GprBL݀߻m?hD89D[ođP(OEO&, k(-ïKج.x*t}y._MC9'9ou5oTZ\~#XYSd*5NǾ =H̙ ¤ލLUmj? Ds0K,|Mnb*ԕtW~OO7ƶvT49 %n9_`B{IxAD?U,6SiN4Bo>0`gEv 1\20VOL7T~ !;.jırno5q狁 scU6lաx[x!έ<=n?[Ucd6yT='ٷ<[1졨it>G0j n. 6[QR` xayPYyDŽU@Hz2̸_SꎟnU[NQAr|, 2KQĢrN2#T9.#ZeAsr|0ft6g(_chTzx?\&ٸ R7N\Qqc5YflnmwcA;YT,oA_FDBZ^lUg&_.="ª|!g|TIcT^2 T3f;iLo4MD&G8BCG:UX'XEQB flY'dfE7pQ_` $0eʁ :hRVͧgR)Є 2jń%'l j=k*CZztoDXql==" ІFk>;7YVpAc!۔D&^4狐PL@KTVػb߾vE \ut:4r6fn*);FAenU12j ;INϻQQK@K@q9Pb #94a3=&(Sw:wDzeN/֣#/p^F~'(_tUl7CoTdhW,p;wٗr\yȁ٧%cU1!:[a 2`GC*SU]uUbW֠T1n`ZK1ꈇ?!)#:-_ q!kIդ |DD>e^D;ѢbV i8BlG(`/P'YxEZUr:P;)E#}dzQsU;AS5OXl0BrۛB]qd '|!ݚ:ڭI-aTsɮ%Eѳ_qTB_*=Cl,K+0WyhGyL|b)ī]O) @-X>~:&3Mb{|1Y;Ȼwv~tf*jLjOOXċ#ǡb-qJeWR|\Rj0+awqR ]M*ѪUY3R:ߗ٤ܜHo G ' ⣏1fŖBN㯓ڎ@8Pn!bvz7~~fl8Άq LF…$T9_Umݱ D 5y|-AEN/bNz,ڣ=4o)]H3,9b0bBĆCejS,uW9ን0D1z^XtoD!ӶDݍU$ g,TgAT5 X;f}o GvʠK6t3a1܎zI-:b=XR-N="/:ZP߅}.#M.G՝2kߑ)nB)Rʡ'mVO0KiYULK˄bow0Zn,p\! @d3S@n1钖@gݑ:ްC*N6z/ V[J 7к,>Όz}krC!}fx2Jb,znA;RS G%Jy:q vK%9l|٥ N̷C:wtg\ha Wj]'ܦ6--G[RySQ"`&=rZtQ|Qvar#h^' R-tJU}FRR 0?oMCob$G c ܘ_^DegY< _ m,(~<}|ߡ+j6PCU&ŒU b)Uލ)6oĻ W %TA OXN\SUU7(}{}X$~gHRQ~~5~UwȾkU 90M ZE{-=XFy9L #PO{/OzdrA%ۂ=4)ɣ%i HvNj*X?zb  5T2Y8G>_X VG_ <[jﯖT>[(zt}&5~S64jKƜŧ,&ulJ૆gsXl;A>Kq0i&vɕcXMLTd =43ƪ7 g^egb6aS=Q}#ۅz{ӭ _^U-LFUbNGKm)‡i*AiIdK6fላ5ؒ,q?Nbu$c>$K&Hs5- T%K47+EMbȞթS"lDod@[ec #ԙz@ ĢzoZeKP:$֫Df uHV.TLh]u0vO M%Χ1E*76!iSTx "U1&Pp |FU7Ԩ&;Kw,MkɲzÊRNx j]u8.+uTȶF@5tCi |Tǰ?8Mͭ?HTE оcCt21uJD3! |y1O$؎S+4)HL6# ux:H`^Ղ /ep^=2 L7״*\\9h/RC }I}eue[5&1vuC˖"ܵs`.  4 rm-FN |6p+ C4ZtxU]*iNE螺,w4E!]8<:ɇ ĥռBr/U ؽ{.oK Tńk}#ecǻ'1k6܏?U#zM?FӍ&,F[Moz'U.j#xVyR!:$3;N*Kj3sN.slӏ(1<o5 $>H yi hWq׺r/ jqܐC6&'r@pl48gTw ۺ B (Ą֐h2-֦SktWm-6i_89ޣ fdaEoF-;U:2h#!kZ vt[\oBՒ7ڨP{R(6)ݮA@M7twhݳ8UR;{)a E?ZQv{;)K,U*.8/#~R9ug\k:._P`Es* .E`ǶU$ tG gѴQF>+j+Ʒ64*ZpR̾[IAV̹ Dt տяu65[U@<3*||B-R"ӐN@x{U#FTwlS)/ݥzrדo1EEf鴫Bx{L0]ț`ЁӺl>PHVJ=tЃ*Xrɨ}1|գB3^SU45ijp* rpKP/ۮV`Bq̪x)36JtO'Wqχ: ݨeywպVtXS)b{+kG5]Who=1k[bmXz%V;r6*0];Mn"Stߺ/ޙoB g u n]dK0&^Izr:u}-I5ޢڵ&ʆg#&T:/)Y(]pAi׵a| ǜUY ȩc ma?C.0]s*_<9\ Z>jI[Na(PM5=5LOssHO TJQ!4v}ym2jՁt4}-Y u&kfktNXi/$ZV`HC.| SnT5-NdӦYW?̈ ~ʉ#SYu;h_V}laf.gq:b|Q&nxbѩaz$I,r;zŘT-yL3AY:_6&P =e``G0ehJJlRF˩PƦYcjjg9TC}n:(^1Mz:MX%^_J"/9Wl ^ dC/چbR6B{0w)ԋS:d&hm1v֧5taA? p4K'yJ9>ɃxJbu*麫y4Kh]alaCc8H%4)؆U[Zax!քC1٫&ҀVHo>0azum};.I9bFa[ϹY囍$0_n(ۦm?0sҀ8Lsk?2 ֢ ?ϴ ݢZqhd@lJgj6J8ףy!(um 6&Ti:h8c[Rd G!׽):C€4m39t%ثT)0rO@R/"dx9)Rkkڦ*K--9S\rD1 6H^.jqԟ!aU M3CaZX( a֥",O,s=Y!∃LAl_! xD8O[ ۑ%BƸI('qOØ|l=~SN:w*BnҐwQ<snAM;{E*yN9TJ h''i2e;2{>!Fyӧ"= U{"]yK >h U`̵Y}*VA9K6m" //-MҭTIi~ v*̖ qh `?ҟ6`Y*hXXS:GRI^kVG XPέUh^P[F޳+j'6vi CAr%RVv;UΆ&WA(wgJ4A/m5 )EyT0?A'شGӣW/:a(i㩳Gv{CD{aOzk?vBVµ[:=īo%M8vj&9k4m=}:GiܒNB b3*2cۥ!FDR\I=P*x!鿁a n; \\&, ?iV{r\9 -[/M]75FTx|'sBاu֬0ĮҌ}hm)xzѭ={$4a"Y% ]1* NEOZ@S/|G~F;TVcAkDeCmih' KF%.Kc%C[͚ԜqK!rs}4*knM:L';L&#yz v͞174Ϳuhga c}jsӒ0ۆ_#$~ypۯ0yk[k$ԯp+,G{\)/H!;8)BGHFp _j-D9㘱+XX|h]G(4`~r,w6hz} eVӏp&R78phqң?w㰙C_xOcǭ%5K'w|$~;?O?}P!??Y~~Ԑmޙ6 x[Wk-kCįP>7ƮlSG㷏Ϳ }_vN?~aQpke?_?yFO7g~?t endstream endobj 99 0 obj << /Alternate /DeviceRGB /N 3 /Length 2596 /Filter /FlateDecode >> stream xwTSϽ7PkhRH H.*1 J"6DTpDQ2(C"QDqpId߼y͛~kg}ֺLX Xňg` lpBF|،l *?Y"1P\8=W%Oɘ4M0J"Y2Vs,[|e92<se'9`2&ctI@o|N6(.sSdl-c(2-yH_/XZ.$&\SM07#1ؙYrfYym";8980m-m(]v^DW~ emi]P`/u}q|^R,g+\Kk)/C_|Rax8t1C^7nfzDp 柇u$/ED˦L L[B@ٹЖX!@~(* {d+} G͋љς}WL$cGD2QZ4 E@@A(q`1D `'u46ptc48.`R0) @Rt CXCP%CBH@Rf[(t CQhz#0 Zl`O828.p|O×X ?:0FBx$ !i@ڐH[EE1PL ⢖V6QP>U(j MFkt,:.FW8c1L&ӎ9ƌaX: rbl1 {{{;}#tp8_\8"Ey.,X%%Gщ1-9ҀKl.oo/O$&'=JvMޞxǥ{=Vs\x ‰N柜>ucKz=s/ol|ϝ?y ^d]ps~:;/;]7|WpQoH!ɻVsnYs}ҽ~4] =>=:`;cܱ'?e~!ańD#G&}'/?^xI֓?+\wx20;5\ӯ_etWf^Qs-mw3+?~O~ endstream endobj 105 0 obj << /Length 2449 /Filter /FlateDecode >> stream x\ݓF߿򽠊5/rݫ!s$W%P}ߞhq,ZrZAO_ ?ƈí}'_ͫ;)Bz''0C(o~mO,dePċd^%ǿ`yeII C)T+;*RK.2YlcK+Md7b6wiD0(β/DJ09*M *L2^eT!b=i"zDSb?=3)4%{)Ad#3*̼)Ei~5Tk1=ճ bUl#ħT X{*ET,>"E71Ys8rͫ$,/8} T ʛtej@"7p@tǡr@3OOl,&gxWPaB7[v@卍 턷לpl#RoCe3dX3hhq"UNgBj^]6]犡!2f9Mr}G~Rѡ]4p8Yt0ߤyZ8..'7P.[XI_ny3 p!fǑ]hj(@L4`R>F2$XCD+EVy "?pDsœVy (`v{h­+aouE08BW6D!E#Gf#zJO2hG! Y` ~XPKVV?a6aksvA\$]рXY m !`$Ic1拒/nR[%wˡbFh/~~0 >{C4D$.esY9!wҤWe{`jv5I%Y/Ћ!::;$~q%vq9VTv?勼jE|o̞ ݣk_Ž \N7 ҈>+adv^ ye@H'aRк'S>6^aI\n=ɻ`$c',(Wr i>T рCR= _ *@/5`~qL&ٺرgxp'QvL03ߎߎߎ/MJ)!VWk5|_f4˃601Bڤ Qm~"Iڤ#9BCBpf8B#9B#9Bc:m_µp'75m0 Iؒh*-Խ lᨺѩi\-AM?ͯPmF3Uh c5=+dӳ.@mKlDwoO/i25JS(8ŽkIu'Usu;>A;_M> љX Ў 1&}< )- ]Cg=MZ cKR&1~T YEU@s|=Li:^<0MhO/`x~4GxZ.ሃߗ0)^@JAw}giiOl2 B$u3ydmLa5@ endstream endobj 100 0 obj << /Type /XObject /Subtype /Form /FormType 1 /PTEX.FileName (/private/var/folders/gk/jt8845y90kg8pwsm__hn98vh0000gp/T/RtmpoJjl2K/Rbuild13d86f4fc2f7/effects/vignettes/figure/fig-contrived-3a-1.pdf) /PTEX.PageNumber 1 /PTEX.InfoDict 107 0 R /BBox [0 0 864 288] /Resources << /ProcSet [ /PDF /Text ] /Font << /F2 108 0 R/F3 109 0 R>> /ExtGState << /GS1 110 0 R /GS257 111 0 R /GS258 112 0 R /GS259 113 0 R >>/ColorSpace << /sRGB 114 0 R >>>> /Length 103756 /Filter /FlateDecode >> stream xK4r߯=p{/SX#1@c Ɉ;'6xp.VwWUޱ#V"W˯~KN)}?^?ۿ;^z߻w~_9}Ͼ~߽Ļ׹ݯ7ï^%}o~o^}V+?}D7~_}K?KO~;_ݾ\Cۏۏ׏4|}#}##"Xu֯wĨqs߽ܯt1KUZw_?O_~q}]Wg\e9\lrhϵ/aJ{_-z\|Xd3"^ﶾZU_ͩ~EW߻5[Re-=Y|}o2m}?po|~l#o{9~#?wkﱗ/lssWاZvymv9x\r^uy׶x]Vt9~vupaq/]^~]5^+mo{ַ+7uyv9Gzk2u?.,vYSl]^Oov9w~bzܾwҞQNWZWT'~}=~a]_5>e+z:gu~~O~}=~-мyrlq xn~unaz|~,?z=vݮޯyٚ%:oNNyޯsf]_Gϳ;x߮ޯYهo"yyd :ju|uxv}=~}=o} c_os=^yEޯ}m#P`"㲏i[\_mkUvoUE)<]qDzy_/Ez+D.&"Fu9A2뉒ş"L8q2 ş"RuYʸ'V˸'Zu?f'^<2՞_ƈqOre~N~e\/kue\/um\|˸'^u;'^<2׉u>RW|x˺x˸'^V~uxK]_,egdz.'^u=Y˸'^dkJWw5d+dk{%[q}'[ӿ+ي;ٚ}_V\llMd+dkx%[q}'[q}'[++ي;ي;ي;ي;~_V\V\ɖ_lᅭ#?#?#?#ٚ?-=W5$[zޯdKׯdKli}-WJ_ɖ+y%[odKlli-WJ֏dkH;ZJdC[-8ly}K<ʾ%[ߒ-oV2V;يN08kd+;يsNԻ8d+;*dkN;*&dkXN;Jdk+Nv$'ڑdkGyIv$''Ydkd,}HI"ڑܜdk;J<,%[[[Hdkm|K}ͷdsz~=o=788g>w>gF~nj׌y}s:{F2{ÌwˌwӴ0f<ϳg<ϳ^X6}Ì}+oi?8-}w<}b9d9Ƴطxt_GN<f}pz/[<;Nkּ:c-OZo`:N:/9Of 缹AGT9zW<nu}zW9~@nSr '7G|egwȇȗ=}}y'_#G<끈w'"Fīxv+z&]D<롈w"~V8_z/Ο<8z3ǻWg6zw*96zlSH)rSOΧHN ?*;TZx)0@SIr;L8wWuoiD#*@%CR@ D3g.8Pq*@CCEj+ 8t_ZX6qx-~[-yW-rKw#?|ղ &)rζd |+8ڭxߤ(x^1΀+tsת_0Noϯ.\ mA>!X N W0_-mr^(~X Օtw-lsr;dxƻ޷},Hz3~>Z+|Xϊu(UX۟ϵ ;+_I|F"fQn9;/<+l]y~ Km_]g',+jz\lާqB5ǝ角Tscu_gӃ!F%Qˡ[Uv+['s% m[ & 1+ ]Uz)`7r,{?!\5hje5vgގGۇeuЪ*ږMu"ʈSĶ>*W*_ί T߅z?Kb2°q+\e\<_ʋߕYX27=D( %0׷]L rZ 2})]E-֩w-G8 쐱߽WrgNX4+<-Hlkio*Otx>TՁ !'١ʒ ,,|䪰wx.'E^ãn,=$:Uڴua-jEG7D@-jjPb`͠} s&^?sV +lKkI4K?"xvxS d ɃKy@>k6}䫼=͇-҄_k~WDsT;>lAۿ!VcvQj# z|,l*)ZQߥmgJ+E1[N;C(*7B2) ~)nᜭY\ZSU o[=dNɘaGvLe', VS]lSĶKaE^'ʼnOWJq5Uyb:=՟k}>),(9Y2+֘QI\%eĘjz3"'|PBx@Saz>a\(xBufaOpPz , y{Ɩ)P?8\\fP`:7P=V:*Vje*9Duvje;9Ci!PՔe̶/еBNҫYݕԀbQ&d*ptC8 {KiƵ:&mu}vx\Q+ReI#M)e>6orl ;T\wyfPF1pk۟5wDW g*{[@ZON u'-_ ҁk Fy5>XveŔJb\P/vU^yZWOP&yX\-$PlJL)s =w|Ll. ETRЍTѓ_% Ad#mٟ쓞 {}Ǝf_KZJli]y+U<3-U3uRcw'vJ`[Bk4UP',VXDBO8>9ՕW PP_k*n2va 1O9;-IvUXĕL[h 6ė ӈ<g~E:j=$)< V)#jA(m1ZIݳڱt/5m )[e?݆EuȒfC{s Gv6=5A=B@BX%n-\RLf F\/) ͗݊k [qtيHk):분sϭh)x eQg0p/RSce_)dpv&ݪOˮ?}q\bČFuvکS5h{C_5ƨRƑtz&̵oMG M@SveJ8YMŎD?=B%I|ZF%+ TswQY"[iF)pJ\؏ۆ]=D:3*EHGB@dW%"ͺAֺPx_FG.XX ·qv[$(R|~⤦`=8*qy iO ZG*vi2V GۘDIZ(V11:ZxZ@dKitQV%S^O{>'*ON:/k p }2t8R^gR;b3$I#hЍ"XۄM1 䇺Y@ &8TS 5NWVҹ3p! c*Myi-=]O+Ѝz\w2s2S6u'LՖ0⟑ͺU%ipY/Ht(%r8Ƣْ)$3:QyөH&qBz^GhQL񟂷@-oK"JGjk YNm~eBcbXV$#74EI RpDWZێMb lE HJ-" Uе⨝^ubg8)bCgMPH"%PTyQ%NJP7cfG "/eYA[${ceF3(dÎM;ω됨N<j>B-jd$ Bs7=d \ؿ4D;M 'jz0Ky OGj5,d|Mi f4I1 >]Z#FHܨD-sb>Էu;/lgv䭘˓j5NI#Q{f̉~NauY1Sil8Q(:\&j+1ISKEP̎]7)t D[4kԺW.`O F02*DiԾU "1G֜fKrac|1i({ex/X&6c`] *t|4dٝTחUİ՝ A,n7A Q\@YHANwjd*$j uML%LK- NHNPR[Q%nC*tnb ~ 4㚔 +@Zig&R*ĬU(O%"0)iWX.l`?$27,߶hjoGƆizFoޭ"3+9_*&Q@|6gj :ĨnfQ(st0WOnM<ĪяrdD -s \TFnSP2l"{A.xNXebAxKr\ah_28p%3o~[yLQ\BIHLtp޲8Opi*A^J}jbM 6A8L%a|Ә$o 6[]}VK@r\Y:&߄m\5P 4rVX+"|E0TGL>򴷞IC R8uGb#i|0fX[ez88ʒAfyV%P/:-=uF¦;Rq*ܧvOEO ӥgxQ2aa,PUO2:Cj *(է3"-NBcu)D,aUuhU ;"Y4:3#% 33w,j*LE!ґ l*V.@4oU~"YSIR,L+%iTz:A[ldpg@Eek5y!+}֎h Q,i&>ZK~wE"ґݼEg5|Id(bƥIH޲ _d <-s:|H wPZs FR-ju3YGf1t( He`q |1I&VBǢC_@>ak0O`R.mLJ? &aY--HSSDwVk5χ ]zhm!JE.GL01V63s_a)Qu7W6 3dWڌS)ޘB< ojs"=~` .mRFӸ\lRGVzgUR$m!=n6:*hI5F~g{ҁ[IԠʤkvr+/ uq@ IxtP11@QAj3N%E1aR]J\N{T qoH}^7Jdh2GЋ?,|[Q*:xRRQE&UxQ9yprIiȾfj.CO=rꭋ:o!v@8 wBFpؘ'(ybnQ<Ģa/JQ5]&PeVUp]lu{z!;OZa9р>-0^a;bȚy ) -qɿ R'u Cj#t#:gB@F8fŌ1D|L8õ')K޸^A{2}3v5c:L "Y|e1$ 1(+J_13V᭵ᮉ$V'q4[6Jc@T!^15 ;^#M4Q`iT@=# ` < ni9n0dokOul$ɣ?ɒ)|]z3"$`~+q[ȍPwx/o38 P0+uk>hbRPu 7: {1cQV~mm;ĬgSB@ђkG3Io=1%'^Js0Ub,p.X?@gIOB $ۘE3)I@×C"6յ }qlHx8=^9JV}O0L߇:K\&dz\VnEe a*bQF!ElĠ ~!իH)hDtVVc1J2~> mmG`fɸ;S̄n"ȅ"}\a0ʦK]ɴ$lym[Khuah~f`}&td 利а]tPn1% M5¯><A9'm@i=9nOg' } kFp!bc&}R6 iPN a15 crGparl c„8+ w!aHUmG1/\&yIKZx,Y<,dIOa V{Yi[㫪 0FtnG.ERhC mNVC[)n \IϧAQ rOe \Ed;_ImBRIQTՁŬ務t(|#$赤8oGi)w{%}fS]˃ϵnCEsH[3=KlPY*S*Q-w>/`¯>STJЇ2q5yIR$+T9X , ,M(djv_;2Bv$)܊xaC1ͥ(23qGD鸘wT ns @` m[< ^T"-0'ŏ֌ 7.\G} MB؈u +;:kddy@|?^#p\U(6%ZW=͇lf3-ȊN3RӷövDO,tA}ay4L -,(1n`7)Uǒ5;m e`Qz?.D$:$Sܡ)鰕p)}J̤7K]`u8!.9CЉb͎H(G̙Azu;-,iQ&~T4ηpB$M*TqAYZDĤ U:bd+n6B2ɝ"+hCVD!׈Κ!\X̶~ _EPB}&nh:+ a &}=<~% AJBO튬󘛮<-1]U@ɖLmp QO4*yrò8!>;f y/&ӠSŹIDb|c}MNO֍.CGk.ܳ^#2V[ƃӲ4/fpbϐJ*a.榲RUFOpFzɮ cFz߻?I >ЌBnkx* 4v)FEr+ɾ%B0;B*aW]M.CCİզ~6zg.BR#߸2IrBbBxM"pD,aKԪ'r gvpL-nhQ94lq`?LZ{2/dFzOK4.9(%#2JbB%̑e A =UY 7^j{zZ5 BFE'פvxp`e$^B~t\F4pâdSE>F*Pq0dfiU" +1ah)e0 d=zFeƮ ь{1$]dlMԼ90 AazЁR>Q,,Bo Z"*XbFR\qԁe]; q"\dt5Y {KXS &j{TwȪ-4I*!3g)OzF^hƜn`|;Qz^w5M!D73ۗa@*uG={Syȵc&^ra6DuA;M*bo}?Yǘq~#T"aa3q}:PS&Ίǥq}R{TF:. 4 6㞜Dā:ϾԶ u֦X#2 ^7q@W AXLhu7j氎*<<@&p̗t>B Rۯh-7t uM3QtZ_>;]{h0v{z!W *\!AS&kMR v2nDdC=wNWZ'ڜt!\$o$:ɊEbYs%Hr1md?y GWJ:cLmʓ6Ehf+"gVGHq=mz!dna(Q amYdymOsmeg].zU`Ú1vƍm)V(S*A#z띤c&ůniC:qSg鱎f},53G#O10t :T\ظΕEiS('`jܔqQ}X8$Pδh +i Ȁd=k XF&WH^QDB3'j55æ+c}uPEu^@9 yP&+,z3[VW=EQį&~*i[gAP{VeYb> OԐiCyo 3a`#XeO r [È-~e" rڱ $_,؝z4:(Ӹ`0Kkl؂7#5/FNwFWI8֔qhǑG^yo̜`YR6?Wn1 ]wN6&GIM_jCJ,Usx9W'*ڱtIzIjx(uX)߫jbĬ[ٞ%fwVFg_7(ǵYnhr1R&571q {>a;C'X7v[\R@ϼxQ Q>9VPHuΦ '] Sx[% JQ 0!0vi޾dTzwW 4oJj[kSB~nnd>aHPDԭG gHDKAb<%9$HǤ.nI 1M-#GPI%rn$DYonϜف, t*@NˏM J`D>1?jh'j|4BIB: DBc[-EvLRgt$ ;_;yjy652[dZ-YSQc(f@#h3h/7V" &u_gCΘۄ攑ǓhއgʶbV]  ODŽ#ܩ2IP۾̒ܣ/';՞ZdP`Ktˊw]{Ȭ Uœʏ($%)&W^DX5\@I LpB`y,,)=zI)(!Ȉȴm:4?SX;:V/pxs=F [E .ɗE끍rcex kdpɺ({ATА`\}PΑwc{H])]q{; Ko9&Tx#F\ddft*_lU#G.*F_J&C9U1R)Eg8ЁC A?UKR(gfsc\M;,ߣh)[jm(CY+[fSNK VG:5ގӄ&UG.KfGg~ip̀(a  pc+mYA-#StY!˨R<Cj?*@4`  -FMy!F^} eM|Ee ~Ȯ5 = *(gRNd֣iQc5",QqHB&֔\.9 axTb%Y6rlXt=$ m0pN}ܥ0¬QWHT{ȘD*;946*cMxj ;|m ѯucNYwjSJВAnAY/04KI&$R9+ Ӗj2ϡeLLs:UVb\OPR:vd5u։o-Éw~l8+%v(ĕO2&H?yGR,d{VQR*]r)Bh~>@WfBq%@g6NC=e͎ +Z[7ca4nz?{dEފRPaɰI`bP8_^[z҂t <54+7< Tjkc"r r ?YTPJ1*#~ O`OLrF, 0qRUy ]2Ч&nXjS063r݌x|WMJ0_Un~r"#GCe 9BA i.γ(_5vRΆ]c/ tȖmԅm ]JEqq"ؤ% Kn26\ Pwb|jdBR!,_ge%S2G@!pY ,1E0vmV@۟bLԖQDEYgMZ0`io }3+Q%Vņ[V4)g>)6T.~,yh8$)TNNP,n_Sv"sߖ6̾72l !Eq3gxcWS0GLTStk^SV^PM`g]%H-Z80r^/yw Anrq9魲Y礼'9),eMc.It) ;`"896\撗<1N\ÓVEM&Nd?*|4Ŭ'6鐽 ;8GWKQZJmB-)Uz0t)1u"#h ৑Hp̕KEMID$&8s3M7i*nN͌2_=fAKTƎyaWЫΩ&g=88uRZ.R򳛥;uoKMJ\S>7( 'X,-p(ֶ[5E8qٛU0bC}}S;4 50`n>,P<3箂PCtEk%f}^뺼;vŋZ`6%N 6v^.01ܽ|@KyeS MiDܲhD~p6N4UR Էd֩y[q:w Zi|PJ:ɉf[G3Ǐ;)OYdKJCW"eY'/QP~e&s (nc`> '1f];(蓢5RZabaCS51ۀ^R".#!'=i1C4։2We&I UJ E-0Xޖ10J6h}0 ,4楣!ű-njDqu H^:c\<>5{ɗ`+[tljT /qF7y]i Te]ݠ9:/ v&UX.5&oc} @@-U*cnbhMSS$;7!U gXхaB+޶C:< :3}aΪƗE2*uVv݆ǃiRV(_ Zbvre8b>L)tф9D8,@%%@m/ 2&-33A١L+_HQҒXL.R}$ߌ.w -t S5Ǣp)}y;(1PᵷRN ƒ%CT׶ R,* 1]×/gmNY8,I9aCpe{3lj*#!)8 g Kgo$UVOf& < .o&#[Rg2.O/0Hn Tf(zO:Mu"J> ejMpxЃCT,`d3Q{PU 4]/Ɋ'gJO9#Kw],c|`57%=kje;>ȇO$2n?uH8P u(D)P&DT(G}[ k^6[&KVi?Y:41m%aaca'DCC*eF-U9ΘFZ{? aZpUs)Z,8յpe8j! U\ݘ1:uA$S4-GN* >Ƽ3| 6IBpEwj"f—~Д5BY/1Sm|hS/$z:,:o?p%WLWOW)h'6&A f$Uai} ?&%o-×0ۏ©] Zʤ#7ZqGPZPQpƑ5ckt{Iز)C'?g4mۏ0cHg7էl0:yRW|22t`$LLJOvE| hm'BR!1D;.U6hhlrvhE2l;%mLpe^dPnPz3zhONB2rǢJǥ#gʰ JRd4{.c 4j;'%D[%6XAIT.'X?noڕFP`,ԨCWXJ$[䖄y $ZG&Nws J1?Öq `]NV^cNv#y0ڷDOW"wy3)ȫV`t\^m«l qF 9f}ajl>ytQSu.ݪ.2f7mp>|Ljta4=ׁ(cKUXvCԻs l*:KIf㖰Ԓp8>f#cl̵ R"R)s &ut ٗe#m?)~a(gO0iĬxG71SbDu"u r0 ~BCI,leHO㳎hGo5GW; ! ߢ. {uF;m,t4fy$I;PF[>k||ɐd GYD + _؂F)v)=U+Od_l)Z@cXvK(oD!^;DfV'_كS)1p:_V{UT,)je7LL6W99<@9U 76k@OA+Cԝ[N )z#T%YSص:h4bàT.ƪQֳ4a bi,'#I+lL'LyZgi.#6l CޗvXv}Nj(N2NJbrbʲ}?u:#/j,S|Ƌ;h ]<% NjpϿ'۲@% u5{.T_1(V1g&=1-H[˰ S;3oA3Kdqi&1ff#v#Jy3tw`bP0Bf*.тKR.<2\uulVQec[ʰ|xxacyXo+~յXb?uby ;3|t -db= C uP{יeJN'D0g Y>O$Mf7s\X9O,*E#&@.} 5fKScOmHJaICͱI\hW*;3cJDº(?80g a[vgg UJ6Lq ~6BIUōm#7,?hK{%Wd=ϫތh hl0jALjjoVyUFcK?_:3I_Clj݅0O,j/*V4ÂwiPUlv4E7 P(g^ZTv8M D2ND,@%Oܘ<(bkK 'Bk1iihsv\.tE d~z6$jagN|Уs(kYE%$![ibP6U1N<,HjI7k0V IN]^4Zv%Րnפs8'gn(pNRLt⎌Qm]O=)66u*9RWT&w :!tu|0M\^x G hl1Ή̓,cYM1KVq𴇓# VLT1hN91uE)%tG4Ua_Æa 5Up G̰Ale-(7H/D $C2ΖCI͕^٤䏀©{P&RZ0&9lyVDLnQ]b#+\4~BP#tZAv8xUQ2lcc,w_N~j ]#gg3B]"w#3طrzwbly2*D}1ʲnB|&Om3/waa:6sgklV(VwsStplxo1}S\R&у߸ͤWT:LMRnT APAJ(μEz "r=Bb.k>IFismHL@QSYG8tιO&M.֬|ѵ'z` tSmW8 ,bb:cGhWWVԀ)ӖOeˑGCȞB8PKB)(z+z's*||yE%Y]rZnڏ%8-km6v8k1li@Z@ԅީa6{j'U6 ɴZH%ޑc! Zqw>dЀcРlۍVy% OoO|Dd!iehvu(@KRIM):";׎";;t&3p-ajڴԱo69r$N-'+RG--NuE韛Ez4-#AżśOr6V-cxKF c5>IܙV4b3,UTڰW4eXĝ^KTeS~؂Z֍ ]đPV'ED+26z\&zT̮Q@wgw-i+)̛Cdf[Tu2r[@Su]W8Q}Sa$m-[$86IZVIn4y:MHLޢB| f[e`̰k ZCǾ3YF=1Ov E7^ƌ媶 N^2Is!JLq[@:Q>0(ej (f -ৰ٦4J g<7 ZawTU1m6=>FE˄$(E-L%xlHwk#,b]V|a{['rQ84n0q9qŖ擭 ]DWE]ܩ>C)NVd9P.wFk/ iDk;G/!TCDd.4Q19@H,D;H8cC>>0!vhf8<^I P Ek{BY[FHQdD-`:}cI%bR%A9e͍AF z 3:z&ery@Cs\0F&j}K`l V}%j^b*S>pC0"% >J\ΪD2rxφ- ,sO"Xd,4-bVl68e_1۩s{lܺɥ~,rb, tdZ`X.DkLZs{:`Ж5|=g o,, 3c-Ռ I _ѭB]X6ʈ(s=Rޘ?`H j #'xz͇SP˲2,ԅ=<3ҾQS9<79Y*q Y~?iSzR2jVQXݨbJ&`ZR l.*COD5w*6ٷ-hX$|p:.SͽzDD#q- ,qV`6Q(P acx5>YӐ**։Cco^acIŕp&Y(\f6~hh#5;w[F%y__gC0ܜ"sHaECȦeN}*E@IXL7S)T0 ?gZ^ϗdU84[:ضcK,}k*IڏRXm sC~r!eBkɘ:C`G^ģ>*GK.upyS0"ΰleRUG.*%P9>gMa%n11ުm7xs'6ry>Ыݗ\XPJ+U3F)Stnj4{\٥I!Νؘ.}DO9zlotSHg,6&z@sdِ e$1!2TML,}HxR6#_`&5w'Ԏ"!OeKӆhx#aLmST5z=CH_%& h2ǒʙ}>yq{.t0i@ؚ=:}{xs?VtW߷2Vm*%J0@9m($Щ"8Bzjfk3!Qʦ:4I$_v0VtI o+lJ,2dtD[2Ђ5=a {j` [C 5B'jFf \)uw ?rֽli޶e3D6 ׅ66ʹQOȲ*I& sEe-_+wPeg&<24sDܤesy6LӈÂ3Ņ!f5X&OLBUGM]"؆{;!] ]7-MŸjCBP]=?"b窰[q #riĵ Se&f{LKTvf6Vk[c,5ZfT1dyz՗@=Zn +\ZT56=^)/)++=vDӈNG8ChGd|Ѥ-jCq椢a j%%+9P5Ű.nn; ! iPh䭣+IZ%$&|%w:EKtzlmkm0=ڿ0Y1PrMYx*PR\,nvy1* O\jNd^ɕHG[BAcgn 1ǩXUA*ʯ0E[ b)TՕ%[A LD ̊&rnYuB~0c[N6>TV\y,O;B4_EhǮveAR5oL(s05䡽_gNL8lEhW-KkTƇuG-Ew1nQONR09PƦi8z3]A8Lek|Y'—E2c>FQ(e)ѩ܅ݓBY 埒2&Ia(+>y.c }!bwV}b TV׫v@fz;hr2:? 71~3sHnW?1,M4asq![2> PI7#gi+~w} &R}Tl];!6,) ;"X&f ~hG9t#dk$⟁9EUBy4ꆐ) 2-x]J8~קlDJO f [tlHeK<25Uu#ՖS\jHX {=)QݢS*yؕMF"[-FCRV>),(c;Ξhm91 `naP;k##ߞeVy]xVkUyOP=>063PZ;{:Xt&8adֱ}* &{c,48X/GUS ȎH٘qB0De+?j|覨D'V& |F ?犒#f=>i/ͽOd0z\ON4|,6"ݤ3˦JQkvSy)ZC t#Ck>F"PsU艮SvjFEv 5[\|!(g҇iRo`BiOA~*Rh3_H]1.cm 4xpz~bvQM:H20}T ʘ 4;@Ӗk}Af*!+WGSh}I>Qmsr w2cr~]9G$rX4s^-l<:{KV t`G"|3O*MCr0(EZTIriΤWf9W=}35$$^bFt煮7r:5ԷO]V̈7 #`ucAOĘȜ~[ڥ&6Uh7n~-p6F"7pZ])$/\5a^Wr(f=lh|txyGjr%6"Rɮ;KJWL81??o2D>"չ~P(nBfNƴ{YFYyold[X AY YGn1R<&Q [0.QfY}TҤi0M}X[ F@p鷮._2}!C =됖h[ਐ%zMhIv .gQv!`8hHamPmlfv> YD#|̳&Jsp83ڹLUfl%N| J dHp~{?e1xTKB $4xBcRMCUe|kX'rNPlt zԂyfu7EOcV35>LP04p+sfvi&MLf"3- H3؍lS~WAf= :aC*ɤl``47[,Հ,^g*چ.8 FYK%A\63GFZp#4P1!nJvjOu0 , .Lh㎱K R Vםï[PJdMm#ƺHxjQ=|9<:zw{[ pv3\eJ2:,EupiΗrcHtHc#JkJȡ q{ȐQ7pb,ӼȊ!iSU3ٖk7 =e@Sֆ^f΃7u`.AԂ'B%划ֹ{u RyCnR|HZm+Su4xVl6ҕJYߎ+$8;'u-͌@@:ξpMMY/D{Q vʱbotG02VnPHUi:{VD$;dD˨ jrۆ_M#bmMocY[33SHn2K4gEfNF2M8E~Ҷ)c0?a'? w֠ZO8}ԅ|mիǝ.h[. NAo7zV 8sxf̐ z4J_0 2:l i!% &F`F˵WF c&-i ! M- \P91T$ َj"13Ec|zdp5Dσ 2Ȅ@s-bAGر--[ |frvXH\ jY%σÅ >bh_6m{ ant 94g#Q@`pᒽ8Kܞ 8i$LR7ӗߋuƒ*ީ]_V?Б .C63N5}{rkV\Q(1|Y̾8Ǵqtc%CMw_؎T5`1ioT,O.(TM!kF*zK\*m!\pY]'P% Q h{4{KcD4֖L$[h2 ׵ ٶ%=Ղq&@WFojLm&1&d[W³[!d#\,F^rkPw;S)9b)绑$nCHC. mK2O7N}@j͛KEDi92 pP&0X MV:ۀvaPbڋ_4Q Zq:/֢)]YY|ضZrVM%j (,/kf @nE0aZ_"K<'RB .yֻM5DlXl=uLj@ l0}Xb)~$i.2]ȗ9Vh#e .:{ f!uho'^ʒhg 684ʚU棙|9%`C9VC~5ISkbRem΅ܠM+K(Y(6Ffsw&#V~+еvbAyѭV&!L~.&C2 ցM qtCN5j`Ou$Z.8XӅ}cM%˼Y,dH mܾ=8J2ZNUd(ުVc$_ 4bẔEC[ۈJgB.KD285{yf>WAst%UɍN>J5cB<ɍ~ yطPtL:2CRx=XQjO>ޟ< Hd4 2]5m5<`UB2| O7:A72lOX8D17xL0# `3zӝGkl E/x%~F[}i0=VW٧h4/ށ͛́&EgzU=+<*9؅X*ˮ=q&N+:IK}͹P6Ut[QS&fb}aժ|-[R^8q'l=^i!a^%4[d>.Iku!Ս22$, e]92*6:]!oF7WO}ts @5Hr>,LXQe_d:],fp F,[m0obPBjG9v,:kZ=?h/+g_X%uG”:?}q6tv`:=l63tpZ=}}4a A-ۊ J4j7՞qDȔ1:Λ@Ŏ8hJGya|.YaP@|OYx%f%ȹTz_;$A:->UC.XkZuvv_p>3Y .7ZI0,%M AL>lh2-"ªI?Պ79rl'>>Y> +{yJl f&E?nb-NU[ܕ+GsϟKg9t7נ[F-YE'IQ/z𔇽6z-N??f "ļd'CfG?hx]}v1]e|JR\׆7y":Iԧ-~v1Ȓ^8ˉ?Uc_zW7 [OWo׿/Joz}OҚ1~'ۇR'yY?Ԋx}/Y륾yxU'R}I򏸪kBp[iR{)MbUvش?ׇs {V|w|?@zbi/?hE,+6/n+|A){[Rn uy_?矜>?yuɷWzb^-yO%Nz-Ξz]N ܊ FBYz\y( -{-DTo$M 9ZS-!g-K.eÆ/yk߄tŢUuTWqE?˹~itf^yxEFI":X-c5WVg]\q?#JXr,3o<~xZ:uޯᅜܽ_S[hnU-p:խԎ*Q:7CK- uÊ쵠ak3.u y0@CewJxmBzն^z؊VѵҴM[;k]-ZU؄aty=LZC"#v=̪XK(C&ˇ6f?9ڌyKy8r8[g>.GH u cm]Ô]XcEJ^OEuLLCm#|4oݝRh ɓ{>_~q{9 *mp/~K}=NٜM{U8b[?v-޿\4[[I{ɔԨR : {- {-^wjxVsidu뱦=e67c1{Ln߶L[Fr^8o'>W$L!KYt{tZ# Y\fZ55_V[EQEQ.C/᚜~@hts+ga#^|dSUy .5y UBftmbÙE6zᘧSkTO,ֿ 5+O)V}.jңbY)=XWJ1HbnVps[)4ƷRoXb5J$bZ8X]O)t>XeooO)ֵ>Xl%O)(bRlh)R,S S)~*ŪcbqS))ŚS5ݏkoT5׶O)U*?XWVT.TRlDxJJ(R,J(fz{JbRlR-JzJK)*ŞR+JzJK)KRKXOK1}RLb9>)rߥw)wJSRߥw)wJ>,ߥ?O)S5O)vw)6*zSuoX])FX}Jh%Rl>؈}JbSPSM=O)6|o|Us=ίzUo~.QzQq?Ksg=DkYOYų:yc@+zMg}zNگZXߑ];Z-7OT=ҰR~V//T+U=шVW#ί(,?=_짧>n}}})g??ޱ?yE~'5ֿ~Ϋz9ϊPyXt?28i/oЇohD9OyS~C/jϨh"#hR}|_OWhgWh:Z~~b?~Oy8l =}C^>ҩkܿoSr=AZ?Ь/w?y_oh8WӧI:oߠg=?дg_; V ~z[㻟[Cu|CE~qO>W~ѡWxXoohkxMC{ʎxPq/R7T׃7 .=0(_y}(:?V{'a^N~Zln},栁&¶e=`<9Zɢ=% Ii UVv/>hAEPpKk`s2N"#[tn[ܪ.gp55 \r8B ުF 24Nj`O[ǯtI*{:9qCu ο4b4"Ɉ*(Vg) IVd{1 ,hٛjT j'jAMQڨ AD땦!Г !93zB=gR؞8US3"8U@^&7Vmup[ i&IbJ-ŒvM d*&?Џ&Hܻ0 F?5`H(/Z I[jy]TeĪȠl]acQ4!pv Z.ɴ^4?ACNZ&Jx:}&UmF)8V̘Dn'{vo;CMQV#N<urSz؀"jriIkzNGOT^h }! IIݪS=ԅخS,t jb7xfJhpHnyaʪ̒IKmt=mRpNe%֏w>o24ȥhZn\-}L~BY ̀A;i󕔍5۠Ոlا ֔`"_3 Ckb](<9cm*ḛ4 U;8`3u(lx|>)JShJ`jpKD"KˮGݖ|jۨ[Wd-5`+=G-yl*~5[B]v!-obWᵱ }fOu˛!}N=ɰ_ҝM=;g.@ah'@A׹tagFi2ZP]mZ9#p $6%mTdH i0~簋{?B'zxR P5H;\B! ɥA^- v[`1-Ѻz*{{Ockv$+\NjSF=/ U<]k1hr+o jy'N m4e'9ټ!q6`ia2ЙȪ༳X>PCOTҰtrv-H淣;GisRhSX?!PH@0K. T&]y!muBEVԹ~>u#.2Q/#tmqiUrhpΈH9:C@ߩө& jlc0EiϓBJfAb @tw0r.F$_s[ZųwEiRB):ԉV[EDO>Nv d+´lk!#amfp+ˍlǑ.jo;JɓvB LX! ֊J4bjÆ = (Q6$TĐby ^k}%R+|V-Q2H7R! Fp8gc÷%[e8*C1d vn9@nNCQ &MaG^G,mu,: .6\%̓H$I2L5!rUNX%K$߀FzkXDS{L7[Z**|B0ahKP~BU5#2 8[茉OWDU^g!)a̙pG5KJԨ F^{ş|_9s|f >#D ^b˞ CY綶Y!wNY$)VNj?I!n>;mLb[¤zA JX=cjaxs D3pEmWqi#MRp`M>Suzp"jGL2I[+=eZ DiծwNxh|_8FLw9ɍ= XЬTk) ӟm*̊; [OݹPX6]6ӲYI2SOJ9ͪ d If@TTuHp%4ZJ (HU@hĦ {x 6_UX{ʝ5M5"(C^GhTDekV4_2$ 9k$aK)OkcEa%{Kfy->lR7usY`Iv<̚vKui; [{ݐv{}o +Dl !0uǚ ǘ3EX6,7ky%UPKjKhjt[/WwBJr@l p-掎tЩ1IՆk݋qd*Ѽlk8CEʚĨ-h^f},8싖ݧܕw57{ a"M(b `*G QI3ԀX|-CCO1z8!Xr`gɌKWOh7WF=3JG6 47*;ąS h\i7ăhc}C dtVBյ ^ ᧦cBec]SBԇb^/S&ĵ?h~&yUB Cy~i} h|vFg "*jg}lcV&*B0zi;~t)"''N5-^'s2l^F} &Xd_]UҸMK}lA&jsFeVx&PSeC: 0[!f ǎN|6ѬLKd=@cfݍ3S.4~$GT2< ن}ܥv"G i>sɎ,P ¸#Ѵ3!d*kW13Oe[IfY5W=6ׁ;6_(RZlq>TLl爫 -u6h^-e|ҧ[Ri ɈmH`Mh|Ψ1];IRֲޘĩӞbX:Uf3#_?nQC͂)l8w'ֽ*#6 dȫl(Ƈhh;I[_5^:+$cKYÊPfOY|ދ)l*tnJPMFcè`އ; IOgJFe <̚޸Bі4 Q剗I<6U3 aT;YV9'њZ jt-q#axt0bQQh2Y9,&3p* S@apw#A+bm ysKa#C8oV `}-H㧺yr@oOr2n)'qO̻bn]"=ܱi7ykZ91846vؖR`ب#5}Oún>?ĘyYETm5ڱdf8"C^]06ŒrfKY=nMO%&I ̹ tK9$j)k`ߐm=K[MJnMuKƫ -bct{@G0ƣ..X݇jNJEc0[1['I0> R"|^ 1HwTF!Ue6b\T7kEA;BlRk$(}e*d"}JVZ#8!]>jmIe.]ċyo$ @h ` ͨ5dцa[B"-Z[D[Vq"xqxx1U|_ԅ\({wGh@4iaێfɘe4 KK;s˺Za7uV$?uM-7C(͟#$0jHRKtHL&oimM§'˰.T$sȎFy1 3V]L#=5‰dᾩ)yf}U0tq>2oFn2 ZFO'G,v8 뼮ӄ}HٮVP%&k?cA(Jĕ=O#"EqGyⰤF-R 4yAZ"v$ DH@?ǑOPaNy?3 5*:ՋAmS hߨW[7V¶ʌulT24%-O]/&(+#Sql?7{6y4䊹]svHn\h*GmUF뎪VDz 4 {Ip@A9{9> |]jÇ~pmf ׺zes$ݧ]ulcRnls?9>#2- *iFC )◥.oQ _;""KRl)9!Tpu'LB2DMRm 7yfHb11uZ}~Oa}XhX=lTf) ›\sFb42#2בb![Tn3W+3pZ2_qf(CQ4xooLt ݯ!y1BBC/mmtƉgNwa31 90;Q~.@NcJu3bP(QcȚqQU0wΞ#CDHjTüdW Y!IMԖhj!{SH<}*Vq6%(+|KF3[SCET҄gjlLU};2TOұ.38$'ώ`e"&BV*tVY0ikhʩ[T%0Ks2D m$̠vW* Hpը'|d/}m=Rk2&S16%?ӅR%\1I&REe՘ed' V!&k\Qn0C>Je2c &"ۮ܍w Z^;:.IGQK6 uH 'Nͺ 5ձ5j4z;yK쪳h=|*/i*ouD5:/5pl=ۡ]8uiÆ]4QT*YpT,0Mw7gEU3Pw i1rKVD8 WNP1ei{d{?eclU?BJq1({{?H"7B.W95WҕBg+,^׊rCkml#~#>Ja-FMLX5BvOf}#:b]]~==\*dȶuM #)&,SIlY_eMQxꫛ\5}`5.09*2MFΕkÞ*Wx 8o$4ObL|{tj=Y9Uv~ZQ-\ǚ{J$dֈhPnj.skE-̽**loT#ż QĤo͆#n{Ivuf {4cdpg]DRbRX7vX6h_AHFg7`8Q"{}_‘Te1N(_F?I2T9| Ҏnʌ%>X3olM7ߊVcQFv^INW]h@ݷyRU|+I̍&#t,ЭUßVo ĄLʜ YjSݘSmm+U댵g*oL5WR 6B,&yzvj-).jƊzg5P;F'-)i{U.~9yz*[݌33!02k옶"/GRt_빋>_-ª&mc+*ygW4 l/r4y~j$dSO7é\6y'v0ądEOY59BDL}hasz"Jl|)-aP[zu{8 ]e0ՂNAKQԱkK)OoևlLW=} ($emT_ʿz :54)97%,epM{G.bl [h|J*gr_5T}K l4 Mx5zV7욘Z~SӞ/#mJ׉,j.PHR+Cv A >o.ەMB1e "7WK-Zgk`Z 4y U!Ȩ=#!7ZYCod?>ba8UOp1Ҟ0Mq`Ƿ6Oд]Ric.y1q<^O4KFH*RXh|54 g O&Gr{:"фo`emVlW4h2"Rt*پ"ADe%'W q,1I1|1 D삾T-( r+y:wvQcL5O_@-U%:C#xi`bDvaiBb.iD@~ΏF"^꺦EH8XXl`Ҳf #0엿#ʞвo͇(ae=Gnݽ9m}cªk 4GGI VLtY5,b2dP%Nr +<{G,Pl41e)i ׶,q<,a:GK#u&waڦ$#B..Ʊ/x S *]窓VUzGoWɉ#7)R!rQYZf-qbkZLp V9S4F ˪rkqQyPZWQfA*Z]@{Ѝ|mvWhK[Re=DCTٴ{u*aK6#dӀ иs8ܤ#;nإx`,m9FۛL: {H {$0cҋkSd?%=U?DNqŰ%m7#* .͍i&G1;v1hڥɚaϢ1fsMҳ(=<5wxQk8Z>C87 VO403?ʪޘ%ibW@PG&YBe&OBym#Dl&< (QUGpY饨[c c͑G-f H|k!_GG0֜|Ϡwvj`a;DѴNO̎QKramcgu~f³;>g+ZCUG ЄPgGR`oeg~xjNcPR%<:rb߄K6f%_2WW7H=cDu[f\IG2]C;|ɟ_L{q:_9s7hXV9洞WpE7mgYѕ,\c&\p4Z?r?\O5%B ԎΉKos]9= wkt6t3͆ԏ6ɑ+r8x2WEXT~h4Q/eC*1]٥Ƭ$us97ZOWhkcrTٕ}e]Ώ멾ԐT :Gq`lZ:xTZ5v8l!hbBx_8J7!ѻC.Bzł7Nytynj B(<)Z16+GF&KgW-_L`8w`Z$CCXglb,R2b Ib@5LWhʒY`70kA :guMLIUjP#Pqֱb^5wG*Unol^4@PdډMVUvUi.aJd8-7-6Ѳ8TnSLy@Y7nCCE~`cr}7^;3&Zs%Ԝ:n׮KVaR;Ҳ؉P8w4ْC;јAcd߲hqvc)g&dG61̋J`sN&4 < tN${WЫ@h·E^n94Ë`?jT//Jv;acv-ηKv&"}KQP2]N8$:1 C@G&]!q*ڙo$Sɉ֦*lg`je0N(EhiA?Nآ8C䁻d6|,FRŗ%9v5VeBv˳E/>KiJ$ Gگ*]HdZu Β$fM03Z׭ V+C6! gm^*:OIMMP9wFOR 1p|IySS.9}2i,YlB'X%͇\ -@[lB))\U}k{: j;:|pgb6ӵڌJYZYI~ 2Py5Ѭ^g^#.(L#di `F&ǎL.I{ӵJ2YxfyM6Y]OΝisОn*أHzQX62kWp+/h]} 3fc_Kˀh84cYނ$ؿWR9!)7E;[Vo]( ;e7 zӆ-tN*rͩ,,\t6 AX!1bTLQ MCn\ ͬG09{ kqtYP ɄU1<.RPcZGSI+G|n.V/վFg#ڀ =<0tk@c77! [G *K}#0P,#ZOA =KAۘ.uTP;đYbQzEܢVro'*F%8vk2?&ae, "}M% ) nȨ|N)cigV,$pn^mb 6lʝ"U:CԢs<T|,{2VRq.hF*d[nC("f$]Gzf@d-4oW=b^[!gu:M370`S./W>r씚4et ܅w-m,;*"P.HmU t9hV#XjPja.'%87$YQ؜EYk1l7K'\uZ3SQ)a#CzXvܷ5XɑI/T 7)g#96zp fFE@R77+3#2 [pci}$^';#;jH3n'r;gVX+SF-]HApe,؊5n~ mF{; 1mUhtvZչ0Wamf, R"ļa4$̳~MbVrlf`m:YiW97ZK圉,w(=K^B .$c/ʼnl¶Eς]IJE^[]ẮiM~BWdfjnlQ;),eϢߔ”vȠ7l[Dn_"NWk0ʩ0CʎnF)-%JUeFM%\wfIwO)h `]7=MJFɌU_.zŚ4N? U25ȱbc‡{kx. o:<uaWn 44Z ABWZ$s:x"d: S&&*.VA]z(K&t:/UOM>{F]5ɭ=p{윸IUF M")Ы\>aM1<N9b=%) dEpA]uE=]FHDtĄG_/W\ȧj3ZWRaYmSGld? Kb^LKo7[w+{$dύi%칱1YcA(ugpo:أ HϩStI M6a_RDXh|}hH)ye~mOw9Gea0{* Y{-&#捵LM$ tOr# t.N,Wvn(O0Li=69BF!c] [}ݐf"Z `t6 vECk3sr ȉ穏n[f=TX>%Z|AA r<J Ri뽏 a)Ҿ0-q#0tZ$=yW,M<u~"}Gf$P#ցӥQb1 ?R\WJ,8&i:I(4tz=`DԥTQ28_g2܎|FCv+65Et>̬qc"u3qp׋Lywdu95}דּ9b,paE)k4 Eşۤ"\{~}vmC-CYr{ϲ|C{4ߛ!M&6TtF;_My.\$8tVF]\rx2؎4QD5U#T1߰:v h/'vYSf@ (W73'i.dl3OL)#(+sMlPCl V6]u,f!t_T_qUoG6kϴ% ڨbtK27W~v3Uno|j`pQ_Nr1x3AM=o6l,GUAX 2]O;w쎭֧,'|']Ff+۾TG.) /C+STv5Z~Eد0{Xbusą)h`܋ "WI\UcN ᱓mRw<!rz -)n$ZFZ06bvn +PeL6[ =6Ϊ`na}MNļ1Imngu@'.>aT2KF=PSCʰЋ#^v$7䮼ӫ>>.z:^}߲ }axQ4ڊƓR/2b]5odkj#L1DotDm7ԣ^lZW˟:&4nmFG]Nyo_8 I`P 7r" 2uyDYw!]ٳhBưi Orѽێ{^ hbd{۴^hU?¾ h,dZjPV7u{>x,묗T$(? oe\cd$$Ts:7s(zuv$4$`a6ѐWޅmc$Dݯ!6o.[$ko|Hb8w3dt8v[1uN:`+y.hH#TCx*iҠk2+H'la5~P $z~ Z*Ržs_p8FϤ!IOdrtP٢apjG~ޙ3|)69QF/f̰7Kx ͽWXU2GؙBe /rIiF}1F+}ۦHL=~3.[" Eb"ʦ32짛ɶ.i_&$ "R, TFVzhDb2ojqo< #ǾúN+uqdF:C x%ka:W;`Jedl 3q(Uz{F&p*NǠ{48F|gKcuIGitp`'rd"ج?j^!" ]󚊲IDѢK% .uY?)Xgt5Tigm6 m=8۪sp(*<_wo߲q;9KMF4 +GQdAd䢣1ɭAAGN 6cgىͶdY ߬_rz0ga9e;rPk;[-obox -lB_ќEV[EBjv~:a`9#LhFI Wv%kʎή=a6k̼z1,F9c[fO.į2a/=eV )j䕰o4j`ۭ({l N Э!`#YJcw D2v`ڙH$y~E.A-  Z\5)A${1Uԋ&/+2#nv g*V֥|kCmu)Ly$qnG{+6^?٩䴒u;kp:G[|q^Be&qNHc?.FQaʴnZ=>lg~<W6^oh .УA5U#|d塩}>ֹYP(N@`c1ݖySAfsb4Lڗ-vŦ5aKX@*MAb"qIM$XF:&LJ iMXQ94E528hʺ`N[GQp{ ,uE-U(,Ꮧf?f=:m^ҭ'O#5z$ iƓX!ug2 Z[xQve9\.x."M V$;oW .)t?P yͪ h(iT$sTR vd}JCOO u85RT%NgQ[X*Ն ^k[d+ph%5vE-l]d2_*Fj k߸$y!M^OAKBl"csfP}&PNXyw]xhlWd&շ1EA} !ӴM~`s$W+\3wӄE5'Jb}aNEnV>! ՜Hpf)e6Y5ehmЇ=P&Jg΍a=aF_ϡ2[ȅmLub0%bȊP7BG 9?BjhBɥVjϽetķO;b½m ~c9 +paXP}&y8=zGH|9n'!+qY(HD6_2!@R%D`ѩ;8 7 7l^E$|%b\fV5ӗ:h\Iؐ!a:a*a 7"0_7v͝Wb=.l<Ԩzr6x 1ZL65E#yclZ=aT1І*VW2ϫ˂ѿ6\&p\iڨ8"%,:8L4o0LĚNjđm U23#(tl/`8sIj=dMS=Oe3:6C]Ytxf.U5tN &0#‘zSG SR+F+HXHuE}nߜ;H=F<&t8>XkB݃(Ĝ!.aQBd0Б?űa#%HlC35?ol`4Dq&QwFyβ14 iKhvT.ĀXeB7p>N,z/E6Yͩ*`u$-8[jxfIR;9W1>Ml{]]+ȏ$u[w%Faa"UU*ni;a&쏬IDL1"T-ǏhcLIeHG8p76 Fp)O5, 4*aij.)o;c .v]Yȴ܇ގ5m*g'RTKUx]^4FqIF8! +c3lK*j&SUZ3lb%.Iؗn)Rf#,:D /^7'<, qok/ ]ȋIoTb1 ځ;3Fzɗ=E=؋Nx8p10P!4EM?C) EUhGig8Șv3֥=]ѱRIݢ#bTĺ~uv2?_Ԍ@S1s+ LdfuS8J|1|I#EƐ*d1^%m&4@F -ɳr7E4 7+)>AYoJiTQ]v7X]R$g;p h@+LQP-&e+o,)e/+ȘϢ_uײekVb8qĞ]%kSb,܎h#pfmpdXqa4]L9|%7Ğy]̪4#d@~}R&N尽emC 8<{6S@6&ՅS_9^]]ؠof"UESg(v|Gf-5HEr/,_1*מXW봛*rA篨F9䧿hh nd! qoz+SE%sQx6 ^h_BS@bԩurKer: %9lǍF%Mϖ5v" {m:}dӈ >4lbVT8R.MyڇFE_0(Zι!@wFh[#$cP}щD.XOWHsp E`{ŧnHg3QYc9 Rcnf$,KX`L:Vn'ȉ!dEe9X^.H*nC풾 kfMĀ]`{zUG.4@RǓx=9ȲS6rRqf de>&I@VEd\..DgvfD.~SzJKq'@ZD)2<oL7LУEq rl)*%C^m4*ka m4i@OrX.`Iu8 3k\ P 4mfЫ{\gP#;ɆLvb/<Օ8B7.;P]c3E 4>/tN * ĒDBnab9odQZF % R=O6Si;a{"H,|K VM?-Q$Oh!GCO'AِeACV4/07%/9+7 >1~AsUZpJe 0/")rZM56,#yCqv?.\$*Zc'עYďp~!1(xrUSܴG0ljS v;i#/[`GyK}7΅]j"nMEG|j_x[U&l/TéڻfL bYtvjdeTf挌*6qh%M%:/T=\AsH3]ĶRN,Bhc\X<GRg=* Rz8bȿg0lMWRGͷϸPIwH2;k ڥw"v7 l>P5R%sMbfh]cw«x0 ul`˟Xb+9m g34 ;m&vڧQMg<,s_GblkvYjӾ ϒ5k!KqU=o?.؄j (;5qn>L\3z^^FU]:'<9;JTn> '% TAxC[KU uY&fsL :v1{Nx 6u/5MkE[7acxNWLpgM F{vyuO\i#w`l2dHϤJ.5LD숸65!fB]YFc쓘)ҹr)Gq¢=2U8 NXEPqOha)ۮblv"&&vMyh;i6f^^nD󚨤 ]H`cוDr:5?V}s xŧHLtyFٔy 43fAn Q I3Ŵb6lQMdH!e7jOxjYX}ɰ-a2cl<[н@͞B ZɢEɜ>{j7P{d> |K .c+au;}*rF]U Mzt [O8(=(^O)IQ66XhU (O<<9 ʷ[dN\.} į" z`Er?)(i;XJ!jvDR-Yք"݄ |ưcT /)ɂ)g}J̺39{bIcg&T~/UI@LѾ<8=ݤ̬HAjD}(Hz׳i' 8^=i[E:B 2VM5=W]1E#ΪIz)^ tYdfnYszvD\MfeOGj5d|z+D3kp$zH1XB|#i"Ϋ %r-:a37Y-= h:?FOarх?K3{ط0iCuCC#25V|~/4Ni6t.h GkB<in,Es )װ)ξD5ЦmrMC"3>P(Β6xD/ dGzBnXS`T&QNsn4R\fvwԴY4Q%XKϋ:0퓚 Z 3i8CC2ۼ24O" yuIoN2Um-жOPwwPoq4,|ʼn&ؓKgE4ECkުX6$J-yb`hM "4 !_I+zjZ(az-eÊb塺0.̅8Rq5*i"Ǟu3wf]Q 1nAKU}z lq{PfxM }\̌(Rl'*lT1O(q|C\uF1tإoXNqᶤ@ ,cٺy9c7dr1 1{hR^e61L[vYKRI`#Qmf+gR656))#Q­`$tTT\oE4 s+kbذ E^f~d5@nTe)\|ޒEBcW{$YE\J''hL#hs?y~EER:/!2#'5ֈ2G* MLz<6bOTB~LZ5["89JJm Js5L\z}zoV8\#Zs*8~j{c6.uH%H CUo[h>$!oba5V9*dNgF'}ۼ# ,ihcM,[Aޏ+yҵaׅ6}*_"ݱ%bFiQ0MHxJjVy«nv{ƒ𛸒V7;bb;hFb.F`7@ uO!jhfhfowEq&[OyIw=y)Nwah`s2Ri1`K}yZ)#{0سjK7QnJO{A7#N~naF{a El>Қm{$k_]wy[*Eta$? :pzLCd$}9I AA3ZX4dzb^ LNڞQ䥠a~[d281&%UOe,LwzCkFbuHb9yƺ.[-lYTAUb"o9Υ2wep3nqWa =t3(ǵ[zxqK(u bI #,]&Ff(N<&ܶKŠPutXo &'L2]{fWk6W&"26B^@2׷& :j;WkY/2GG6EFs:c zse~:P/e?D17*8<32zڇ}C>Y?W&C€KNjOdRP{X{m 7t,؉Tԇ]/KGAOvVZ?_eyi\\qW~ Ǽ} @6]*9&/R&Ʈ#]v3U`): QV\{@ML-'vo#>>l܃nPG{< *.dpjjgՊ6Ak6k"uvx|On8dW2a4bдP3vݶoOKTi"K[*u+`8d& Yѣ[h)G##1/h=2jkWn0+:;TLQю yq+Ete|fHb7;*U = .vbdbi{&Uzh'FDC'ނ'6#YÍH '-j'U8.myр!^-r])v5,A .sN%;ruq3kXBMb6]Y;0=X K|"S ϮU- \!ORz؁~ kiv td8PU?N8rT4:>䂠ZHur%MkCÉ*-m&W-I#N5 BUx,O'J2n% s-.g,;Ȅ,EޠһkXIo K) IIM"Mfsƌi}V"[ɔ F:ӿU _̤R>.IPEli:7{5v:΄?67q/ X2VvdUS- "Wd'3% o8h84%]is*:~A}V@g dwFij-=T6ge})M ̤'|DvLC"2`GإRvaGH.ְlrm(K; y>ѣAͱWf7,6U9h)υkF 9eҧv>ߴ-$Sidx%)FJ]+꺫,K;E$ 0b۳eAHby\ 70rlj.7Q H]!ftIȒg?0U6x-o>Al31(<5^ sѾ<љkGg*PJZ2.IagC*Uq`"yp ~ck[$ܙMaE5ևXnEzTM5R["@m ȡM fhfɺ )Y-dfV\aݒ¢4]l7iu2|*TK9v(铨I +' 6e3ў㒧)9 2AB R:9Ll*/~?w?Y{]>L>_;|mL,y}|~_uo>r6_~4JoH-pCWMRC8}]o~zFNdjIKkX}+?7٨qK7ch D4̓zaz7G#tTy7k4oF/8qALqo>gI# o+~_xIȞu7ǹ~>SC}s)xJk$#~U|}R#pòoiwS2$vUŚ{~(*3ʡ8=O}oYGI_G_w?eOU[4V_?xy-wO}ۏ 4=GGsy.?o_7?ͯO?O)A_"֖߆x}?C˯/oto>q`n|ir(Y^v}aփ?9?ɔO_>yOVuOןR/Wq*^I'_I)xT˅=I?ͯbu"ػ?ҿݚ-;yV#%~\$G^+y⻛|}_A<˯@?Gx/;OW@)/NN9?({N_w_|Uz`˂,_'ge?y| __W`GMG޽1s/[%hb;ZU"3(IF%7|&< $^a_k[մׂ٪R#M[ kZ !Spq7c UkZg&gf{-Ŀ:^nL#@JPnu(z8HLQbbe,<{-w* P : zh]ֻOK3֓A,g,R<k%VDaUgrm2-7\ m$Dkq3kp?^ey2_[V 6R_v{a&iE-Ld}4e&8k1Z[zYp Z/3Oz!UzњzYiL#7ZL\͒fpyYQ-Y3hՆ֋ΞD>^f% uy| d&mZΩ2-Z";Q]Ӽ^f'ˬXZ/3";zUYmkzMVCok=i&rz8IFW{=^5M.gZ/Kp=\^.kEEev)({z]^^f||.ވy˪2&21 yz2Izks&IN z2e416n!$jy^-D403˒gV^V;X/6DbhX^?~?Z䙯[}zb4 b*Ez-clۍe+_dy1G5Yet}e%-GzYIʣmg# DlRR-}e8J}٭,cU!C:x MeYA"?oVhZ/++FZZ/ȳYN{ ) k5k@z TO,? 5+O)V}k,jҥ:XMqG)V |J1Rys/X;+QʜRD)tJ)ŞR*J1|)XZbUhSb7R(%O)֢=XRbKC)+zSu/JSE+b#)FJSMM'R,/bRl:؊>RltRlyJSx)(F3JRlIʗR<_QR̷J1+:_R,Zǧ+z>bR}Jb})ŶJ(ŚS5ǧkO)}RRO)RlJbQ?}Jb1{JؿR,Zŧ[Q>>uߋ||ަ>-J}ףEi}W\ϧ4q?)~˗Y[ui~qZuZ5zՋd>}yZ5T+wy|s^ڟ~٣^9iV=Xg<>}<_Zsw{Yߧ_Q?~xI!!O91g=xMQF9e QJAe b3~N})>_yO(:?i{:ُ uKtߛXqw5.B_L܄dM,ӱZ;=f @bTH t_^D2^PYiA> B}%9 N+si6aPْ@{ i 4a[Y ǔвZד T+dO บLR~r :)$}NGm=T?ubE0嘑]2oc׌3DR -rzmHE8 Ͷf %dRI|0O˂6y6#n;Vږ`~PǧΎ,75VL9&Vz Π lq$k׋r h* b UAƄ=JkM:(?fEuaG66fy CK(f{#7j>A>*v̀v`;: U:U.f[ Պ.n3щʞI{ :r*LAB&IJ$8a,Nk?,T̎}["; fX4-rC;ZI! ZW' \!ݓvB+F(ᴊRc—&tK+H>R0sZI$<N:5Ś4:`ЧRROxR:"Yk0ӵi]Gk<vοzLik&Zr}SU`;paa֮BUԱl1Yod͎ } QfY\ksDChg-I~(N zMГێTUQ@jw iU5<΅FӘ;*I7joZ?(zOcGgDv ARl0~E, `V1oԺ'tJgRT#7Xhpʘsj@_L`ě/LM{T5Tod#%4‘Io` W:C%{# kT]+ԇ@RU/IŽT0UVS#+Xi˩zbaZQ}ߤS}턍>t_v`Z .u1fHSSɯ\pXR0[6y5.8!fFЅҖרUT]; MoWC;EmM#x-IJڴvglw!G0RDmkC *iU%:T> ?ע;TX3g7eYH:MTvoةDG^-.julz t!zHN<~$>uqe*:>+$s#Ű~Ŗlfg3{ iQU|7kjBG5PGItF0CLdD(\-[IEQ!A^[7bl EͬkoUrQ.w0FI>c;ӹS{Ջ%p5jlH^ iQu 8D *X%j DxF-^M.\l;M6BcEpEd$6J4ƃ9pW#ڢzbuMPDTQ0x1 Ijhe]-vFp%c{ c 2pV1?4 ~o?}sCqR=:NYU0|F`n]R-rYF4`T2-VS"5 Lm# |*6# &g1//VȸLu4[=a85YZ{+/MxKOְAy_00 p;)`<[HSaF9$1)d$f=~X;Ho2BxZRbb|T. HzC!"*`moHUFHAZm"G`Qݘ8mr(ɘ",3BSb٠ӵ S%!+4"ikҵ2pP^1sUL31H8;E3z3!$~Y-y9Y0B,{{_S!Qp1M̂{@yiԭS&& fBӃyHB9\S=1p'yjѾхbg\paa*Áyl%zr䴜HJ$"db5`dsr ^ngޚ%R63mFIC^8W(r#HV|ӒIEXt/X@~y45O#Šzs&H*a}rsTyJIbg\]=|lII?8 _JɋB[*SۣXMx=I<02HVPFVҗ-AE &ƎҔ& NXD-(V@=Cb :6CUAZȒ 7_}#I##oϜJ*շH17C0O!Qb"_6 ׶AzGjٚX]]@gN:UP3ضeX]*6J4q#t0IFKg:L;SY1ӭm /*KERbdUGyXtiI5;M}%y/Ϝdj'PmBvSK#3okƌSX!SCBO\39E8}g{lRguNg'bӾ5"d$Lk]'V+E%&ShbG|q썐/odf|L%OUGmo_8,F}&郩ȓĒz ޫl%C9nq{D 6Oc1,P(Li4 ;S$Xd ;9$tXIچ;WP HQcDoMC.X~s#EvIaXP'ɂfY5Fj@О J8o|Pio\Dh<֧"f֜Utީ{s$ŦE$ibGD.*Ţ(c}z8*dLЀ~hƣ3NXi ̭-Z8=91Cz(WyiX|nM[b#0Żز 8$B\/6pBFjA˞Xet3& IxCy 4 ^MX_nU,؁o*X'=>u DR"jZa?c!j;|Q-VQ6mbJYV5v[JFe@;C}r5 0Y?JԎXP#mJEӅdpZsv{Փn+%Ԇb37#ޕj3U7L4=$)ƌBiCǒ:0\7}lduza 9T*sM&즚iݢqybD)oޑFPl"E"|ɪvT ], ۲s;˙Kئ DpW/NŶ6C]!NlCnJPJLXj&Jtg [gd% Q *9DqeOUWc$kx[bG؏zJr.t)qSbCDg@ӯ7D^^,{svO=-*I1H5D "rqk2lB1/ &K& 6gZg˭|,Mpnj/eNLxcYȵq:ihY ii.\>WCpB65By[i5_gkp}t|Hs1ڶi ƭy7wv*s *Rʸ7TsyfvaZpw"6K:M zP$Q.,#l2vbf 71ft)86>Q9H>0ap N$#'ٿ뼋v6KGHE0jK.Z$=dSSc5|gyyK`eXʜm@ӏyl9Qx!IɳDh6rHEӔ,K\HQ L AhDʛL;[Efl_ 1MGmc(fdܐSnU% _w*dXAg+p| 7OcQCxEzh;2ńod)q3|7%$Ы@wb%6:0b:{!i3xɆ n8 HR[#dنa8.2_Е={22kcZu38m֋mBS7\fPx-0vpGc%0&@L6# >?vdJ@̦!w,b"⤠g3#-iڀF"@t>XW]g#QO" "tCh%=IUu[{hJ*́MyLC2ܼ0S(4߼&Y(h?{Jy ښl*Q62=fL02 ֕lMhhhg fQ*S B Ij{}mqf 2N*@*Mũ̎0`+P?EK%u=*emut^4UK|%W<0j4`.bc1 U5͹㡢ƹ1W@$TxqָܘG&&n1wد+ا7PW+`4G$/~so<йAò *6*PɆ;''8vpFw{πMg1=DvLF1~MQqd~=ufHq?;}aKἯl {_mĞ푴wbr1 o m fm9-c8qKru,MF69#K#j;hBsљR~VQ'?IAl߀qSp;V#"9:#)m1Ҟh0hFՠk^ePL&G`l3k"Qۖ޿؅͐XZ{.gN732գ^:ðyȓaYE$}*=9k\eMpk~!zILO'] :7_V_BmϽ\:m1Nf|3OQ}pr/a##%|f&JQcbڐa27ErGYtVdѦ>C~ 2|"uF8f@mlW:5p*%^qlau\#Ԉ:+ɯ&eP)P 6Dи`©@5F"PoPnTޙgKU}(%qs6|>@ U轓ㆷEQ J.}!3: Z7-LڛoV#"0Ie8兠l+ƺZ>4 FFv>O (kCgQ,A FH!ØXXh0Dur*؃MptCZkS'H,B,)D/4,cxʆ[cʒED0uzŲm {nNKz!ͨ 1cC` v+J+զ BJMlÊ[+[txo? qB.&aK5fyMJ4(d[/LItʟ?m306B>Er }.dzV92pPK0hӕxQwEfdލ0CM0 G8d78T}|mjd_ܹ.DgPW6KFڋ;븖*#1$d|=OU"ԌF W}6ހs N4a;XUF9; 2:g8ƶ(CEB煹|h*%w y Fۊ2::KĐ<2}g6WQYIc? z+̸ї&1x_*F] z~&_CA1Mk_$Ӌk=4߆BuIhAz6tj4Xڑ.` E8a nK4ԡhAh{U6VPv}dJg` Ӆ8G3Ra$UGMNNEphapP?.Z]lm %"ecɈM%#mhٯKns.o ݊ V&M&թd4?+pcK0I ұf%=yd~=7߲^\\IT%tINl!GA-$>u8Y|I :gGe7<]nŽ<uoj6$S5oWg 4n=o0LIl>.Ɔcz7M8V~5rŚ,9:d6\DNp[[\~־q`}Ջ慱<ݎPIb+=ĺ]ˁ4뻨pp$G]AxGK3X_TĮ| pmt*B{7;kʻY{`_U6oG,cq%Bvu a"mȘW$. / PTmcY8jY۟ B-@Ov{6A%Z=hlEi<}A6_|#C\pf]n8wM0)B16Y~t|ޘm4q:5͈U*[YwRSIQupzڄCϯ"1xcb̞=ջF&ul)Ut;ɱq"75٦odp}UiwCl:=t[[9pSVIH|#$>axd˩Pf_iR6>5WV |'@[,smW.eCT,) V3L1I؞I~x&UgGgYWTJZŐ7!aOrp߰!9+Hseniǁ/p:L:uS$9}m5"%Em\k/Kv6#cp16rUs{]K7Ck"".5)hiZ2.CÍľ^"Ui[3v1Y鬑E ;۳b :l3IOP:>b[NhE`5p8QfmwJ=nWqhوι}i5.!SQCv/눴\m9X](Le4X[:لtp, $%Nj͌ŒJ8UO4iKE}}C‰b5UӫkdFݹjj B,To&:6MYT% 0hjYL?iz_>kVFNs^\XfqJkO32z a[Baw)~ˠ\(ODUAnC?xӛTH* ױm_Xd1Jg?td1Piek:o^3zOtX%ډ |[g۲a%DLCw*ݻw ry Ҙuk7z${&Qn0uY =,[2f Dmx ˑ%x&W=tMh/ў"ڑ+h5f δ KI-X|%Ulu3%fܑL^;,sq 7mk$ۛ]%!I>>tb5!ەƴ(7w=O6p7DKn&Z Ў $M_mH.%T# A)؎flܒ*VKEtG*_ ]GQYkxDG"DW:4?XUZe/;V+V*4HD-<΍iAF9E@+FEK_%3Sx"U2h`T@ӝ=;Z~r,lg"e(K<ǖ1Nz蝍$ȪA9zk/w_}`e/RH4b7¨Rl̜- sL^#%UAdOd.Yщ ?VxdO5dBϤ[L #*+: Ƥ8wROMYe2Dң)npbl~qwx9jp0`:w$khXW!A}nT84 `Af .dpP‚RqG{N'-ur჋1ֵΉPf]kz ': A9+Y:UM*&\L=$u25: ̟ 9V<"p[  -)"֚ uaTҭML py[C{ aqi@owV@c ȭ% G6YtQ94ɴnvfhzhڍ] `LGFu ^34A>IIvy%2D]W"w~i":/(#Ezv=оȮF p4@ ]9oW2hƛbtQcc~r%F80~8FXyFy * ݜ"-L:O[H 7Yt|}Ě\Q퓶õ& ޴jN?Ų)wQLYzb+ֱ"ܠVʮ'|-tQ5I(кsLg 6B{NXQ:WKZ߰I2=DWف[6 fDNĹ4/CX Lhy_Ȏ%ڽuNnَ9Y~DllGrG&uy2@ 6Oq;Wg.9TJ5M[l55_@B]j&.%`P炚uOÂeNnI>1}H%CYGCHi4>C\P4- zB79G %",>]a@κ>ih@W?DLԄ5m'! ms!y/BFJ.=stWaY\-Wߦi]Dr4䊓)rN'5%)L 2{dp]:}f,g)q?©aJ3@#ΘYÎTumGb17ﶁ'Nbץ;.6\!dz"a\%mi8 >ᵵ@jS&JgGJONՈ줳C{2 aiyxp;+kZ !i|YPi5v1TxŸ>UQEw1\ }W^5?̞.-GfN-8lML.юua} A4C(04I2&2*#<J.VdU]oГc ]yH+% #eI2Pt?4aGN #%.CCE_+`Q߱k4A3(XC/aŰ&{<7<ٍ9ౄ, \nIfC. 87Ɂf"j;K>0hh Ux ?BA>3klȣXa V{%Zq-2VkEoWMP ֘z& #QBnv^꜈}Ge7+3"ׅuԫ[ulTX̎6b+1v"Jn$ 9dlDdNem#E4b\S:qb~) {} OWhOQm!6 A3J^7v1[T{+#*:u;DTOn)0'c2U5Ch^d7, mX\powR%#^vF s8*( 2'8Ƙ>ïkW/=jwRԅȑg˽ӈ8i @2bh2\Fl ghXm ,f^љS$̟.#E;h~a\:Xve^6%߿0Չk$G0hDi7 }Ymhճf*Mŗ7bWnm̕ŲE03JŢ!R1?y2w vu K Wt>$}4,6-܂ .@bh ުh5m6y 4xpo"aHw}xAҠ;@߬XtqpGT*_eZQ1t'RhFpIEHdQ=q>GG"K;!!%'!@-_޲ӵ %ACjɡtt8IDV(Q3QժBK#zRm*p, j9@ᐛWHTԣP@TC}.f{paohꛅ>1Nixih-׼.N…r+J}&Ѣ̡rlHQOrKHFSӨhQҙxqX"٠tx +5c?y%GQPVCWN 92, (|FꨩM!Z"YvTe`lk>1-t; K5Eߓ}ţx>Wb8&ݟÑ\g*3)* n`h)z /;QEQg*nJL`A)t TfleZq4aLT{7 [~C ߾D%v`QuP +Gĵ0<'eV˧(@qCHi*[ѤC\\?UpeT3<~ؔ q=]>x^Ls1VPwhD3qM GODb!˹~:+&}є,趲}Mp=:ld݈T+CtAewPV7ń(S!/ p]Qզ0Uf2yUlP$q.y45i Rsc] Sjc*9q$ &RM2|\VE ~A}l0ɱ [Pw؎ȃ0Ш\ŗ`m"߭JyкC|Gēɘ!8ʳKΘ&,seєe )ֆFǔN)7Aj`FuLY=v?]?JovCMw0욥^+A͸8Zk8AYEUewG zd$4 vIGT1~a^]V‚{7NԀDoE+TSǑHT{UL\ՇY2lL{5-25a"k]2xiRX23gecw0V50VP &jVpd ̫=St*d‚]KE® c!IzAk%';$*ARָ+E[­&یmɎ)Tp#'=TYMdDd3&7N~nz.]QL$;X~jT|d^Al"GD#ו>[TrB(G:Nf_18`O^8lpC%2ϒ颌=v' '1 Rh53$llrc2w& C=zԢKF[*5Rs4uC7dRyMM|E yW>+J1, ZԁSAc(WlPi+/V_rᜌn΋]t<)DTm 8_׾T QQh Ky2QԾ́Q1JY8+dM΀h/`ZU\O6{wX=j}k2s:a+*Ưg|3N]&^ǒ@)xVf?n ڃYٹE8Vz%1 }@*e.Kvf8]g|~Yc)W| ) pRK4\Q$:Ç}^;WA9d+c0n18)l.%f-ڃƭKu{Iq yծ PbmʱC͹yYO"]s:Uَ2ܔ[g~-Cӓe!P+`=T0sX hɠ2&i ˳r!! LxzJK4HG[@k~NaJuЮ:/2UxRC"+Z"vI>-*9f*)[iUV4NWߍ5Y =,-CdW8B'٪3pq^_-Lj}>rQ`Z='=|6'gD@FCk .rBc>X#wf婩6{a(:hN-c)Ln^Xbnh^NBl\φzN!<]be~Ÿ3Ke8ר=|֐5pWIg{:w:+VJ~ +!]h^(͚r@{WIoES&Vc&Ck[>wF#M*]*w&6itzOMɲ bT>yfQ6jw_K64>.횭RԞ(BkեB fɂsm'i|EK*~yvixne:70ܰZNG1ֲQ3㡈r~XdW=K@MCBM}P(.S5ȧ-7BFEł;,A)gp*12`p;ǂAݕ 20!|㰒kK9hԃJ${aA;E9mb:ug{zw˳rFjyY9FNQT 0k-<+B2D눺8렪Gqg]DL Y/3?a$ʜTUdxym܋2Ѯm 1^1$噝3Ǖ=þr+ jp؛fӻ3v:40!Bwَ"a!k QN4ݯ ,؝V sB>KxHnC&?| RHTaؔAx$ ַfjLr [}O1Kr߼Lz Hvk:ѕR$Y]X1fG}lSbx]]<vň@ bz9043=eiTΞ=%բyv{,u5W.9|#:kJ*ΤTPRn!3rXj*Nk-_@BO cy MG/ۭGS0F Ar/(#R*luM.sL }iW^}ÏQ̘Թn5.L2HB.:N,W<Q(Ca" g~ڈ_Z^')b'[beө27@2t .ۃ#%N2lps"?ˤ>G<9RCV—K3'ћU!XĚ%c]@j:?&fO֙C6') /ݿN{묧Y >htwJ>et3 dQ *F52}adqm 8BԤwy҈a]lG[\^"ֳō^?GWX~Dd#a`ECt?cw?) LIwxz09->2l 0}tT-ޱ4KJuPk=;(4*1aA$Q00ױGb,ۣkPkK "IR)g]S·FB&>" ؁ `MMCJMv "DG !JzS9ʌ$t4N󽻰_aeODJN)Rq{xb/:?D#``éQ#5{;hPN^Ɔ_Ej`1JIGo;`E -J«6B7,Q&hArquJf-Td`f75ző"mԾ|V9cp]<+MC 1uuaÌ܂2U(MɼҘ'ҹhjB@.ِ;%pлTy" DAͅ=^3cMS` `<5^'3 O؅c!5^ׅ'Z:NC[9}bɀ|2T}_ܻPq\}4bOl=#10*a 0^ Z|T:ì{h7g#[z76| Ĭvm B(ݻ[ y'F`4shWdFƱ__Kb\V+kuv^RWZ]i<'Z}hwعKٯ͟4Q歮q#psTR u"mcmnG8z)?':ՠTMڈSb#UadhJJmRR|C:+IVU1!xjOk<0D*H;3C@+w#%u\y_ ܕ>Ü_O1H״H`/q#k5q} E(GQD\2O8#:l5ƺG,q2]SܭV@푖Pr?(_*n"_UD E5%c˹+i:8l i ]ĦRw o7X/*6rQ1q>[NB4Ғcv&5U>L(2/Xu_|2O\~{g{XNڦ=(gMl 1]"SNk bĪ7k߮)h3F4V2-izwN8jF3G=n+DFS%HnC!糊uZϕĈwiJWP`vɱH˔|$77pA?K)TDBvV]WN4HnVWkR+RgJsGjcACEYRB5Zx甘`t,+<=wtu"&XkT#?TS!sKSxWGŁDx7S=Qc2$.U6ՁSĭ=ҍ*RgL\zHxɷ\] Jz/bq\wH8PaZ*bah ,ގQZ: V=2X* j8?hRR/wo:WFuAA>%%#x}u/7ioa#UQvx4Ahs A:U((Wlhb8@j`4M,4ȲʛqAq0OA#ӳT3n =m2aw&oh4P9E}Zm[H: ˮl&ØRBc,oͥYq_r |AO`cS315<9ōkC 41?3}X6.ܻ)/+1-3y4TaD"T`Oѿe-9 Bu%`]IPty/σQKqA2h$_H'AyCP1&:8U AP%CIq-T Vz8)whLG*ygf7)k&{EpТS 8cp;Pu):q_&kɄ у͞vZmV%S[ܡASugNRh&ԤVNCL?RKGhvC]8 ,Tzbn(e>ފjZVa`M;) tᬓ-nk g\u/LYю-BJGL nTh~BGբݞZvyC #wF-JLa㨵5ѢF1]^ă!U)h:5/Ub uE~E[s:6ޠE{ZF%;$Φ)sRL5'J.1^ޜX#'\cst]3i,֠b7,P$5i;/.HP钬}SɲNk^o7j*^(zxjU-Ն)QYqzv3Uk41R3_+^|s}Q~"}W8fE;% s"B40#+ \96Ғɭ4C:c M}=`pƎvqyJY V0u@]TY+'"6YN 6hFYze| 9N%e,fϼ^&_Gv7ʒ۸[HID}5Y|^fV OJD<Ω7LUiMO'j#S*|TUCSv#%[j,YK+Fٚ:6dqr S  Bv5t>=Y#Yb⪣qp; -U*`[e{IV:ʥ4XX}u9#5k*F؎1#Ki:]//?%a/`SB c]J?TOƹ7^ tS̮Fp1Bʌ`s]zLK.`P3xE+-;Ғ]^s *&-9rw9ݒ d1 +Oj Y㧄4ƥh6Ҍ#r vJk,Ћ54_9nHk2U5[pRbpvHy"RGwOojSZ8qa;%'<.8)4fM!z|CY[rV1Uƹ_`х @ZaYyJ@mY;*f\8T?:T`:0$웆#~Lq4LY/u"T[7[-ZWSM nEcBK0)IWJ4pLYBJAc4DhhwƃE?csn6q*B,x B qiE):t;Q$cu @*7[H|G_qM,lKHѷEZ*ܶ*ǵe ݫ0Q 陔Kc8֠=d<-n;Ogl*z+fC]^gMx]P-uVEh;TccYTd3P#~iDқE=[Ls?nv#5V}zAyf;#,AJ"]iwQ q{\0ɡA5aOryxj|V9.U_^?TzE1=Op͔"唎n͇ P80WA9;$ ,rrb&4 BAQ rdKJyTcwM4rՖȢ*PiPll ;͇VG)af&ynG)`oC! G i *PC wp]>jQ6tUr !b0i^c`2eg3 n]a :)Gl.ڵ?~&V83 1AC7]=5XB'0E5{zX/o>`$X4,۟CokaMCPwX$lTG^ȕct' %2תyҁ1j+7𜻐87r%& ƹxW.R(!iq~#<'5W.#G~g-ǂ3X0FT }/W)?9b/}*2+lsun7%H2ye3׍#F']pi=!Mx"RIIaWJҪ1A5jCG#l6-OoʱUH3z Ets_yo\9H3t?wHD =bC壼TI2㊙iƓ?p±vZUm%?J{:k&;εl5OR3aݝI`adgO57'"~ml)JW"sbO&3PB],1QKf}aeyJ|~:IGla5&fKKYɟ+#4Y$_vVP4b!^͙pL\K t6=vIa1ٖrɾ"LIL yſw~qU6fZ&tA4)Yw\%`|bvq[Wo^؀W&ٞtps<ҍ ʀ=3丙nO?w_$z@B IZ{]%ky =4<]r)v4 spl4ULժruf,_sbXlZe\k- Ќ-Hјfɇd`BrT*U#ӽ~*wD{h_ʈX!yyѕϫ-.íKY/D4Spp7\`(:>+_ua 1bp E>YUKվ7h!qإ$5A?77{hh\?pL뼑 KPPWGaSU}A&w0ji>$mhY1 3f@LqҚs޲5bkjl:ZS)q%̝ *T^t-A3&3LU>EtQ/y9_ Peew~l{h8]HN$o#P ڢ}:uQrb }o-FriJ: ' UMQ_m|F I D/Y~4t@3|tGo?#SC<%3 RØE* ]&oIeN_? "AM K>Uwf"&a0 T%MqlevStYS0MG]H,vlRΖ; 7g {Zo1.wg0c]o'BӝȤ-h2?7m c86 uVqXmn:>3]e!NWshtxc"b3eSYu:y&ٳ8[v.W~*ɨ+DX{XIkEOdѪ7pwIry ̣%A#,ǻTM*wxk 浊T;rk:|(nI͖*9tD Ė. ߂|UFB\[|Ҷ$?AjtFg< ʍEnk.MWғ/Ж%FO]Q?<*q256Az 1<Kuֹ1^W.SH֯< .##DuM8\I!ETi96~"_9\Jsi6$!;Nd pqWg) ¿W4 I;}bF0ކxtpXZaua bC`M歁V )F{g=;cn?-z0„$j;z$JXgg.K^&519zo(fqUP"n~gH%lr!MBϙrb{t^#qÎ8E1^sɁYV7NtOX( BsɼZ]nd!&o/ˢr0SED/Z|LtnQa8s+;7{[}1NN4^Xu9E;F׏Dw΍uF`ئ)aB+V3]]Ѣn3 sn gI__Gj+Uϋ$RI%;e೏L:_i}^DHv _y]i4*-;@JWQY/5 3 Dô  ~=OPze,pT0=35^!7 KoʺQ _z-땏P 6%ZMy*fti~}"!q}!5$vb&譋֤|6fB=B*ZޓCǣ SI!oRKh ~WDHhӯJ+Ĺv۬OM72+1k# 38`5FDImyEW,]w> 4Cx@ڲخ+Egl& t%67qѤ n9ꫝ~eFKR]ѽos2U%Ʃfr"1t0I7i\|0pcN'R0"9r9,Yn`gV'8MXPl&Ƴս_;?;$fK(, ΁4++c1dcm\EԱ'm([;ƟV ';+r7#B[7k?%i0-(E׍aUIg=P@b᫢ :\O蕮H 86Ly FXu?s"B$ӔGs>`?ODaL1fbW8o R;8@*B`*Zu=W<*E OߗO3شQY,"9Tz<-9p5tv 9k-$`*i$ap6G*:T8wٿRaڬDtr]v? M 9v"[B@ÍC#a1V9VƊL?|M>n%aaVa6o6d1 G"t/ $#oi!H9Pyz#仆KE^jzo"ŭlIGz͐Ļ`l\T@4q奚ȷOf8' ߛ:+'FB'?6*׍C}wwlSf6$֤^Мy1QsgiY 5}hz X;qJ)3c[xLW<ܖzr!d)l8'}+ݧ4|ŤƸLF33lqЩ'+gs(l.WzG##Rt;4e+,WUk}s%gtR@ʟ}7s#!B`lshXʍQ3)o܃>c]ÞlwKUG\zSMś]#pa J,ۏ{Pb :Ҁw#O>3pET~8[`_tр+ˆ@ mښfdbRObQG8xK.Tgq ݕ.]Bft=|$Gu~ XW5Utţ:kh=|N f4/P ǒɘV;);ǰv3КT<ꬥěl9BVc|0! dR?zc@k5lj^/'0'(E@c4j|QF [n-_4!; zd*b_yhoWqV'Q&ĠxUT}z'F>PO(CDݫFwEL0 (RctaQ ϪorEQQQb9]G ,{c{-i?{GsznRt3t770::cns衣Πy`wBUd7K[[d&ړ o<%o$6fHLZ2)iG%r̜V)OU+0C@" }/oHQ) GYy^~Ou 5K cf;EWNr NJ%VQ:َ|gMG1k=#׳FJа/k*+qXZ"J(wչƹk}+[rd:ӌgCy!_Frxdœ>ӫrepo `}𑣵Œޘ%hJ/=b_:b4@ѾۣQ:5.?*[y3^ԔUx9> gZ*9X!{a^k#$=#N_u?Hp0Hم, -yY;+c43+ y0o;sU.)i`طCQTkyEѰ(,ɌrK-Pޯ.k/PZ6M7 J^" . hլK=lC'lflm2vkA$9RKOMbsl/') 㼦t0qvkJ`Mp[NL]sxoTh8Dsq3f?Ԍb.kבTE`*dr#OIQ˷A7hBZ63?Iۄ5O[ɗFd̰=ՙwdE(m@$~÷h z[iƅ#{i wz"\4±@mg|ӭ!qrUPU}( 8H`N2ThV45DRpt>ۻ\Yg*< qYjY/!^g?=.?GZD"\?q3Q+?ُ,]O-aVB>ʏ\w1n $v&-jM_&c=ΟޥD5nA}ZPkPT#q|=S#E1z'@YM'!^dvOE.A{}I BRY5,t?qB}ZΦh?y}\׹ኯoՠDWpzu' u9D#4(!kknss_,-Q-,*(Gz,W{xwӿ&ofoO?Vj v LYȭי~?o- endstream endobj 116 0 obj << /Alternate /DeviceRGB /N 3 /Length 2596 /Filter /FlateDecode >> stream xwTSϽ7PkhRH H.*1 J"6DTpDQ2(C"QDqpId߼y͛~kg}ֺLX Xňg` lpBF|،l *?Y"1P\8=W%Oɘ4M0J"Y2Vs,[|e92<se'9`2&ctI@o|N6(.sSdl-c(2-yH_/XZ.$&\SM07#1ؙYrfYym";8980m-m(]v^DW~ emi]P`/u}q|^R,g+\Kk)/C_|Rax8t1C^7nfzDp 柇u$/ED˦L L[B@ٹЖX!@~(* {d+} G͋љς}WL$cGD2QZ4 E@@A(q`1D `'u46ptc48.`R0) @Rt CXCP%CBH@Rf[(t CQhz#0 Zl`O828.p|O×X ?:0FBx$ !i@ڐH[EE1PL ⢖V6QP>U(j MFkt,:.FW8c1L&ӎ9ƌaX: rbl1 {{{;}#tp8_\8"Ey.,X%%Gщ1-9ҀKl.oo/O$&'=JvMޞxǥ{=Vs\x ‰N柜>ucKz=s/ol|ϝ?y ^d]ps~:;/;]7|WpQoH!ɻVsnYs}ҽ~4] =>=:`;cܱ'?e~!ańD#G&}'/?^xI֓?+\wx20;5\ӯ_etWf^Qs-mw3+?~O~ endstream endobj 119 0 obj << /Length 444 /Filter /FlateDecode >> stream xڝTn0>)xlc7٪U怀%vaeZl0sN>%>noeV MQ |{׾ M ?ZEj6)69`SqVX_8:c /qF!}* LjNb3 Y gD3 }Ŵ$&}@"srO3pVbC-a1+0bQ^vߌ@?mAl۠;|+Fa͸aJAf9JϮ њTOO I܄JEֱE6* e5M7W:w{#1ۦG׵+<ҺKT$EB ? g9Nɏ)-WélvO|쓯@`مX ^ {\ȑ)n @Dotʟ7} endstream endobj 101 0 obj << /Type /XObject /Subtype /Form /FormType 1 /PTEX.FileName (/private/var/folders/gk/jt8845y90kg8pwsm__hn98vh0000gp/T/RtmpoJjl2K/Rbuild13d86f4fc2f7/effects/vignettes/figure/fig-contrived-3c-1.pdf) /PTEX.PageNumber 1 /PTEX.InfoDict 120 0 R /BBox [0 0 864 288] /Resources << /ProcSet [ /PDF /Text ] /Font << /F2 121 0 R/F3 122 0 R>> /ExtGState << /GS1 123 0 R /GS257 124 0 R /GS258 125 0 R /GS259 126 0 R >>/ColorSpace << /sRGB 127 0 R >>>> /Length 49708 /Filter /FlateDecode >> stream x,[R%8?OCh)Oi"@B j%PI, ͖/g]aWa}oe^׿~ۯwo-}O)Qϯܾ:_e~O'~O_}sKק\诎*^Q^}~5!]ok׿{K~"?_g۷WzqVe~Zztp}/ KzKJJx}_ +Sz>! 9}|%e߫2IٯFUE$߼Kț_?~=o|rѥ9}] K便r[w l l //mW2_-70ӷk}7ksY3{|_|/r+ˊKywK2JKJ&+߮w?*; /ؿzpȍ=:/5ogT{7xԀ3FY^{Ԭrh)3}w;`npa!p 0A7t sΠn ,p^g@>`^ R{;/5ttK t)\a:;LgpI{Km1x#w:`nML8tMLt{78Kkvlx_OqunnfB/݆͈[t3-ټq^VUq0c'p {:v{6- Þݞ{'SqDq7󉷸jo|9Թ߱8=Kӱs(aOnO~y^ݮ7_?ݱx=taOnϥ=k'nzԾu;]']o^3 žݞ;'pv{dxqG|r:qC|p}^Qm== O l4ݞ͞KUk׉x_g^}^ױ墺=Gӱx=V:z\O'Nrǣ:jS˭s{:v{c'{ϰuut4x_^wl.>tܞ- ÞzC<_]oKT Þ% =kӱ=z}ۭsؼ[fO |9ffϭ== Bu^pwO7[4_79r{6{aO=a'p{:xpp!]㻛a| ww} c' {c'{vnOŗ?hуC`  Wo`'p{c' {:v{N+ =lZ4a8x׻Z߽װ'p {:v{'{:Ͱ6lD`/׻Xj `:y}@:mk {б+0c / S)8dՁy='0獬3Ǜ:={]obxxܮgdՁzFV9vnO.aOnOtnkaOKyU޷YȪdc'|Uv{w*p {:FV6v=#nכd?ONVaO| Þy='|pcȪrb#lo sx=WӱS{'TdU`#@*UFVdՁW9q{AVnfOGtUNV;dՁG;UzY= 7go͞3ٳȪodkAV6| ;Yu}AV.aOnONVnnϑ = wȆ͞ ldUG7ȪYMYxC l4ݞ fOMgYu` =(˰Et6yFVnO$Ӝ:/'lDrɪ#$ H^& h`'Hk`'p$o Gr7Op`KK93I^6{䷞Gr-o8C{ -;p= p#8C\Ca8z!Pv{"qI`qJ"^7 p_qL`d! l!1nOv{x-. ICޮvOqUr8p-~zoqZt^-n7>v~[\y;q.x-. \ʼn|>oq?v{x28ėwy3p9˷x4p:˷4=u~[ 58ij8/Jk ps<{{p x[\ q2xp?x?Ӂo bg6wf/Cn8鋸<}/ES6ۉCo8)61v#F<\<>S;򩁳gG>=k'{&4;#0衄ړ{NP;lF<2O};,;m0rw~_z -[gߡ ,uCX=ZLQK7r.pt8aK caKq\ R.e N`8n:]~f:e]fy^*(nżaKV5]nSAr)9BMԾLU\^䰹4+Ҥ7v)ɡ*2"L-L壸2GeFAe?}-gE׿vxY34_*_œk!1>_?ֈ. A|^~'W,֑{9b |Jr],[&]N^,0io]@yaSy|.bVLnk4[H)14\-AS.YvhNxTRxJ`ϳxgz- j~-F)حki/]Iز07E,Xӧ>dN8Dot˙c4͕؎)7Q{bHnmKwY`3kjRKCOCM"Fl[,'WWّ9ݡ6z Ύr)g]WtV>/pZk6uMF)yHS-,+S4\rF8 Yv- F$$NCZlCj}n='w,izPu|9YNY%+H2t}|H 3a}p?0.D7y6[kW`!k\8D$t$$BW}NI`㱫 +jN5YjaDvfe]G]6Xi8uș$)i{rs$ڞN|WDryLfYF]l?B1^p'?iQvbDǪ@ = _b/.aYvZ,CJVYԝ{g.uKOߥFH,& kSWoUua\KYڨ-OןZ0VOM`"KrkcgN, otKȒZKmdCnrוZ,J:K]=[7" 2;qKJ| OjA@ꁻgٵJm'gY3qgMGtU*J@ས\2Meuy#k0a BbjrPSq}|%Z#3Ns|X@zCiإ.}By_9\?$՛mFn<zeg4>rDX2iF|b䅸4)!ȔKN2}j7N q,%Mv +_c&Γw {SYqm~Lr^p=1M;Mxr4RD @JeT5*?ETCӦ{hw N bs%t-̳ R[:ij)(cDŦ,OJe@gNlB]NN뿮lYL340qكW)e6 ^x)*J*R2puy8>7]_IԛHIA=6,TՀ`PEٶse0z`z#r,Paň3Yt<$*&Ym&—+KPeK/DȢJIYͿGr 'p>oeNVNaH2R"PdL}*I+RnAh Ju_r7ʭ|M3J seΞ: 7X^5x&w9h&S,,~4FGԒuLc*w.lr&Qd FeKxTڷY0+IЎo;{WG@rGsZЏҾ>P)؉b$ܐ$r49^( Zh1'gR\":ťm&Ne:SB;ଋMySjSs YmEfKpD` 8$Pc~HuMDQd, ۸:r<!K7kWOTcPh3KqnKue!.l;b ;mp_4MjclD (/32jY/3uҒhS,ˌx=SղI0#rW HG_r៊L]c{+p\ lxҵ3&c%{+56o+TeZO,ZqYM6O&쳩&v<-iơJcyh3G9&.Fdkl.p#G6 I!\{e'JflLjN :Q"('p6[$ѨC۪«ROj n,Z>biJQ%{tW]F-bǝ3!}"ZBTl9w)DgkJ̵ Z W^˽AQ{] 렱PCAiWqu7 ʸzZc=N.t#.7;VSN.X^$ҍ8_=b ^TD4*cۛFq n#&b0;4k%1GVs;fD%UiE/X_pZhbUB&YueX|K^0\!R93_ L&oMb#nHmv.M -%R%Iai-nX84W \eD@Ouh"7-̧z(NIP1bh*%Pzl:-RfyC50/^/:-& ِ)?9yi.-#H1%}pfxC^&zRð񴳢"+L8۲xg*Z-m%ǮT6Uv *LRL8:u]\挈}ft:>?̆ f<(*thFsc;JRЖUUJ]M6olǝE4vۥ ˔\ |!-A_қRFBXB 7y6YOdD l2C;89R!Zџz^M #3ه.X2eE.iN%3Uwg,K?ĴdyV>nu@sc6|f(NA*=5+n_&0*O$6 aa%yȂX()i$FUt8[X?65B T)Xc }+$g(+s{ۄNKiy-6Y8 =Xu2'92vfNl,P%?VZhm7bA BtA'YDgv}m;e{f6eED[&aΩcL6}wSYL$lᚧW$pIl;tkAdJ ^JԎ蕟k Ѳ+ \okfʹn 9B3)2jX"kh c1´>t(,5| EẲi3+Z/_a{>7$68^EJl|ijRhmqӺ%/S6pnEۚ޿;H-f?yg sӏۓ02A{dv_.")izୡv$G<5:gIc:=N=ɝZlfjuLSay#Q`IZOlSvO #Iv$:{Un-$ ӣ(όݒ FJsuܭƄDRf}cmL B9]Kĕ+\EdlRr,Se34xBe޻DL=0J] >|[N0\:dIќln1L[p_?b xA3l I2]O|'Jfn~x%Z30>eW7{C|v,Ȅ2u(N]j#Ӂ(?NôD'|׏yu̺]h@u4HX-~47|͔Ɓm;e l{oy \רISTܽE'qTGK$MڅNUEe@xhZo}^*k (OїLt)J\ZxH|֙ ʼwFm,8ۧG?^Thu,IyiS ϒhV=P,i3 ef;6ӈ #A:B[Ox,DŢIŀBU bDJAb݌Vwhj{ɨUk^XCQ(eۺHiLϋy6+&`Kl& Doͻ@H$D3-zk|,bF-mpPbt5yNfrGO$.^xvC,`O4 + $K-~nif$1Krt~KF:J[>-Y[e>ҠMقmxO^Me6ny[@Ɲ5)b}нmlN VA \ 8X}NCZLU9l mѻ8Shje1ttޗ?:"VTR:wP;;1ˊ&j$ wbQ z q`ޮЁs[؀:ѸdpNI",@cBxTEk@[TlR>h+]iUicJn1iz!/(L9\jIu8衝il97|節iсyv܋&K"rg,[Щ7q*/#Ohwxh8/S (mK+͒l F!?O7 TU+C'CIL'1-n]f2i7* [* D*mk$_l)m2oooBh<91e$XN=#3Î3<ֱM'ΕrTjiʨ`4^OatrE=:`U/˴廇YO%QVJDdN1Lm^o^cmS*YÚk+ !eH ABȠnfGi,{[g(DE:2$עKFΤ?XXf|jucCm6`P@Mk޸Bg _GWOwK+Qz@hCk2>%S/O*O!!= ÙJy*̏R<4gu/%Tޖ@ʵ^I'Zh{o*4۴Di2-* FoD9\ 1fA tGyY Thbߵ1/WH;i B˼MsJAhIGDjĤGir,įuǴ] ;$DdhU0D Ce`԰ OT(mDP7wC7o2s>-?tR9LRޒն 7r𒭅2}҆4ى)-(xLY*Qn{܂1|V EY<R NGWK2SDxzyӹT[cv8mH9`yW>gbs?;ȁCZh)YggUXC{{*l U9hAF&%$:.3|HT&9[%F.HDQ  ;r%hEhenܩpXGBO 휏\HZ1uUʬEܶLすzlhT x_TQ.Γ*,Tx x!˥C=PlskD#!>վS.TTtt @#F';Ox4$`Eg0u)> ŀUT!:1Ec:${i}oE'8AwL-QrͽG䉉gNZ͙} m awOYVQ͛/HF3b4-ɠlhI |L7E$ %Kh*m9&饄 ,tM1~Tp@>tE޹z6-p)>h |Ȑ K- aVtM$d4^s j15:uMm۶_6nÌ "Wj]fL&@U2zhƒCdVr8)6Q*p?'|ܷ Ȧ77fQ/ CN6sF0觉oD/@ҏ?bPT3-m&ܙ6 qe(I`jѵ-|4Ək Y22UOLIk6tUqoѾ,C]hqAܹN{Ss}IoM dO.%f)$wE;#,Hs2jiTنVlqYa-W w:fl3-IВ'_k6Уnb|#k!TNBK(h#'B=Kٚ.=ٺ jƜ֝lJT6O,Ӓ!EB:V,qW*ƄESlÂʞI dB+00 X%̄&U' +=kTaӦUI>J2cMt$9/vwRln#ȳdX2..m3^Hv\كNx,q}P3JPF [Dc9}r5`l4J!TDžVEϴ5ft󌝭 u(d> d>rl˟L|,/ KBO7r[+.^RQq d!K3ڽQZ5 ?$:q?nlU#u:y䃶5Ԯ?(⁦Z{ U_֠”S]:?X[駫X$Yrb$`%Us~@o↡rT8MQC=:)hRAjz) cKבCQ<}@M>&1qXʾЈu7?~h +:&*uC]lۨ>k>ab- :%9e̥sQb=+F-δ}y?ݤBwmǔnb?J<5(Jô%U'Įǵ_qyJ`yl[Vǵ]ן{Ͽ?Wܠ'3nЫȳ[뿽?bOďjҊx%MH/1|K /iPK/V0]<~uk*_?}s 97'o~_}u7OnM?bU-XIXG'&2$>D&<Ӻ\"+ aO É1(OlC뉋m Ɖz9i vb4=6z766v^]:q!TW;126{梸== w 2T2Tᠺ5c8|Tᠺy|S]ݞ.Auv{ՅMu6jpP]Tᠺ 2TW`o+8.7o+<γ lԌᠺ= յP]͞ յP] յ@%xAuK2TOe8.AuvP]R եAu^zP]R եAuK lܠ҂2TBu/TBuiNuǛ:gjzjU @Tᠺ Au6@TS \}pnί ܞ TWwP]*HMU:+ay˱S]ؠ RAu.nOMmu`*H بT^P]OשU Tc R?Auf \bczTWAj#Fu" lTWA *?FuPAuPAun:_U@-u`'ߚݞf:@:UtӮשbTS]TS]ũ4ܞFm*_qP]++Nv} :?/}j.9=L1lm~.vz^\z\ov5͞}Á͞۳y;sk`{\ziݎx=G>=G9=m?~{`n|mlABAFxwG3s <žݞ4.|669= gg`'Ϛܞӹ:_Ƈ|5y||4\ݞ8\ܞ8O=_8= -+|Ɓ7/ <:wg`C \ݞ͞oE>fO"8y<1n(Ǟ22Y=|ZT:qSO X"p|Ox#xRt? <#>k#_xȷ^k-|n%36_x7/GG;t{[%_ ݞsvIzǮWIBxyv]2uGH|lkȴewi)58U}>ZVe7:'B;X6UwA'~yGzT5d I(@WEcvM>++F~ʤ}hs B"-#\ c'$ד|!~pB? Mv%}tYF}+t|]e1eզ5ھORKI-'y\\UY3ifcu$¾he`'kW~+ԁ nB~PA ):y%~?b"%<7Iz|YoX^ L@CC6mwxt6ݖvmVeC[^ߞFH0(OH5PvT{sbtltMַ_|֨7VMJ1\}6ffFA)dbM*ȑ%qӕɉigPqu ;ʔFA#J0:.!6,t^' Yn7_.N:4C6rX٠ON2)LYcbX';~h$ȮHTJ]:YYk{% (:9SF3F[*Wssa]$tO^O*eҕ0'o#ΰ`I6lr semEKB-?wHe򋬥i-;:׃t۰!{3Vz!Dlf>/Њd/IoSLH;)+SaW,wP{)ީN.d$a(Õtś523;-zAZ`~8%lZ+o lAG0'Uǒz"f+AA:{ ǢF+E J ǏY6Be#(GYM椈я4W*e7-g4={fёϠ > FZsitoH\{ +3x%iA6J>\ s C9 &|L!g 6Jlrs$l]KZKwVXYY kH$ otr }y8쫮BGN,a` \kEdf'euY2:s2A?=';viKl6ܵbIyu6z]e+g )D/MFIaƊbc37֔'9he6섌ᨍt )jl -ZrPb-[>Gv莄ӊ𞺛E5tt燰U! mue...vGt :_?hW*z6+ff?,4|4s%>\`^2Su[tQm>^ii%LԛH![ù~AAM9…wCgF6?%Jǿl051Ibˉ4Dzb`ƿ1=c␰"beV>9-FvIt_p*<Ζ[aYMApsQWD$!;d(҆VTg1ϢoPF Y\yf6ZLTi0ݔ~&\LSr_hc$9P!x,鄼U7aI-hZi-esW6  Fc&VLe eH˜#sp=žl l[uO,@w'zc/.4,良Gq!MY 2Adm <ե{Cj X{n|=b t=|QupA c9H^ 9W݆cƯ.#:u-pZI1mQ6M%]3K[#JnMD[t(`yPZ\N7K/cyrZ"!h0-1턈M,h_MИUL 3 AϾ]& 3 &'P hª|tO5!5Cy nCiR--jhi"w%1 s9ʉJViMX>\;مd?Q 2+;gӝ(^L4,԰P,~]ZO-ʝı ϝN"j IZz3Ӣ[meZ@ DA3(sQ5I I!rZcƁppпnecg̟A?>)􅵄%[7ciaTNObwJm%HPE:?OSeK 'Lżly*rE5[Hl A¸YI 9 v,:ƚӊGоEDR+G+> Not(SIo1[ƒ:y<[BD|,'P29o5]橀B? [8',ŒB36$)V6H쌾{Soe3B)l/4:iI.$ڙRe&arͽ16΃=ӛ_ѥ)SGU:y<\Ɔh ؇&@)#,A Z}|+)urCAB|.Qcdv3=#QW2_SKlpT&@;ZbepP3O:YX‹QR)%B7A²T Vj(q{@FKlT' ډd6N:b,gj$d',QPcs1YlE7Pq)CF$)&әDK5F4Z-RJ*MbɯyX3F'H2,l-Q~} [%5\c eUsA0ⰰ;|3Q@imH7fLߋ$XWlnhcxךjX"}!Ϛ5?5GK}o95-(#/Y}JZ-b0F ;0UAngT& ypFiU7i?4jNrfAs5LXY,5A)N^$~Eb]ȣg/y8VietEIhB1(uc.)'3D9כ ^sY n,AMt룰Qqxmr䛩=;T8}QOOmzktؗEH6~ԘwZj9\}NR]ezeQKlV<8&a+MjW;˰fs`<(^Z-nlw,/&LYh-h@,ނĊ;.HAX*™SoQ ,2z%K3&FoR#in92V ς:_Zv}X#Qᷱ\x 9#\ʠJR&n|->(LKUHjyUw|9ؙ ?ֻ3Z³C =b@ òʖ<&Lm! ,hA3LŴH7T%v*NyTZ!I*ֆ5QxZ E+Y7r5ME!:+BnͅlA :4h!$f2κ-G3AԦ~4ZW4 uePQڿҺAp8{ڔIe/RB6F"AxWFȀNA3[M9nB\O<ɿiaH>ABW X:P/ʴVʶZN3?~v Oix&-٠YY7G'Jo=C)0uz,읐[۲rzzvk/ě]OVjwjm,RRT#I Vl`sEC.Y e*=swRj3;D ԁQx`2nYV2W^;sy4&rp2K0[c Sn/6d@9lr^kuoXI&'UT]Ɂ.TCy%mEۢCZ]˨m9=j vV%nZh`'SQr 'Evbg?mD<-BDPLێpNkD}Qcn*H6e;cԀ5ڨ:7?n(M6`vL:7 <ߛ ˴U 'ь3y$3&#Fo4-Fa>K;m#*WPPTcB#2smߤ„𶽗_-X|YLޣ{i-ٳkRd]`tڌ7y=`_4A%FѶeb*XL3?jT_4Etʫb5x:>D#jiL uc77^ѣ;}@;%E_DgwyWQ~ R($AC>([23[OTɔ*5=a;pս0ǣQuVedr.*afFõ 4j|۽W+'S6RQ3x,춓U"zYO6yY7BN KM`38lXǢ[_0b C{ %Wn|if9FǕi7w0#)h&(k('e$s;`"f!{f XFNb]*(j# W&郎2Q/g%]+-WGo C\nL[Xh9UlІun;{{ei2+=,Q7U{ڕFGph !馃v g>3[SQ}<%54?:-|Cތa.d`52$E͖L% ^cð>t\$. `y*o4r t$Shj-Cc{k/2sYm$M^s;({4*R 6b.vޠ1}Ғ:lxNqa.k` sڵ47j9{y9S:^;يA]1Gz=)pIW=e`JYB U :]g\28!seV '`~RwPR%h[KI EzUlW(oȩB1mRjz AY׋$W@PZ)T<=S^R-a *zU f)QhJ$%j?4C܁]F礋hӛ Řiu-\H߾Uѯwן _y4o^믮[ָM fi}}喿?__ N'_~W+5Wu>-]7P\ۯHVprO}Kѓ!n՚VonXv6qd?^׷k[K /MMKn>^2Ί8>^rlagix k /_WծWm4V/WχWHv750tGJK;{玪ޯ/xZN!@.4) ~a$はBrVqg<6Ze g=1'l`kru^0z Nߠ/b+p,M \oDP][gj/ǩ[rP]ZHյ +p{j*5TgP]6{VPmix=k}TBj/_بTYP] 7ZH x=5uTɪ:SS!Au6k!UTB*!o^oّm;4ޏ) [ <%9뽞ßǦ?~ ;es:~<6eW>osm&_e?Σau^h;8y^K_y_vy~l&}_?MzGM.Oڼse'>WH=ß㾿'~9xv= yo̱\vxi0^x*숷?æ?Gy.;=x±ۻ?xűq|xJ؁\vxMsM /:v?Վ?.~ ßoxW(;N ;8;ox_u?MOρ7?i c<6и/=6N= |{o7e'>TM&^.zrfK;?=:x{؁3:xeӟv6їMM7w_6VDk_W=)zrٌZ[VĿ-]c'ڌ/'8vVZg?F>;D>Q?u)"k^8 ַ֨Iß>`+HU]#@kJ][cs/ZuO3:|˦?|<6I O4Ÿf>Z7/#xo|c 'T>?j(_#_ Z 0b.!R Ӡ$&`h%=2]-J$ CQVwa!1 r0jkEi*q;ʡ*Y2<"ei$'sBo!/r:BU9ouhH(S|J fM z T3!ϵa8Qb3* !^ҸԆjG7>MY.'HL%cqւ|9`ʱυ1DĖy,?PF臉=2rf{fϖ\7O uI:7MDM eA>?3F5j')'lK4ޫed Ǽ7F ET鼏Ytu%%:'+զ!yӿPG٣F$'N1ai ~+ͮfLr=sfy;O"gtN;OKrn )wH(RʤP5\wYUj.QXN`]O4 ~[5k*i{wA~_hkWx ,Ib` /gdz}TbJvAI0Agy1'kٚx9E +T4p`%XmMΖQt؋ÌHJV BO GoX$S}zL>rNy^cN]>:D TP4|XXb]'yf" YCP@: c)\e2ڰkWKFH4ULX1q\k{9>VQ;ŢeBwʠzקJȳ%m fM'֯d 2r2/U<VNUث+btbTxÁԺɾbд2=QݰI ٱh缑"aBۿ, kq#˷`qk $ȴKh,O0Ij0f_F[2aq+gbhoNo^p\% E)}ۍ㰨|GN8TV@k#KOw,}<=@YC ٛYC'6*6nhr8PLW kcҍWL&0^ء̶-ia_9rHG# 6҄r|ݒ.GX: 1DIt#oz͎_ 3(wc)k(Y `09?*:_<5T ۪5h;pt9"m.T~d#TEnv/,9"uݖ([ɚcr(ӧ'bE 'bUGF((bTvlOVs ^F/+eHְac՚2fHj2,!vN$>{_"E3rx}_J1"~Gʒ1H?!Uy$?ZSRB{J^EtS7梣>%oƜ%!VQ'aid&/ȡRc/YUv{_Q*ȷ-9+y# X4IFZNEԊaڰzV8fV1rַ+D-jYuZPGHN4} $T+bY`F GX=%zm>J=41c6;tq|F&j"jt_ 1cB9IpnuU",7=0ՁPu^_hSrI$N`[E:S-ϜHXC,;;ĠO9ܾ/$񻸖|Vi^3[*@*j`cir#3@[FS?uy ndw3 $`,NqXeJpk=57צ1NIz;_B274b̊ɗԦgE&*SLj +ېu;ڱQt=«!ëP -KUPN\"@Fokيb^$Ό7u2XP)Fhb(7ؐ5a$7arjE<~f]ژ%;2;z, +NM2:>VJ2K47^z6*x&!g85ǒUɡiV.ÜSJq2Pw*jo1#զ.у_d) S^1ެj< "fa*inel(_ ~OKm=Z9}22jF-Ѫd$r _Jq䝲Q.+ʾ} vpSժ\ A=toO7R 9]>9ct}S2ΏFPnsJǭ˳}`6*h[2ﲈ7ruΣP2%EޕK;e ОE6 tޖw+2*sٹCs0*UӪ,i.Zu,Y;4zIFnD~$ ^{/c{"0KlӔmvLU;t#_cڦ$K<5 >$d"g*a vD]#KBB{oFC;!K^VcNw*% R~vID ILH1K˪7>.̑:k== >NJ{deZ}P{@œUs8Vgգ#q~ 8p%\t,ˬ-fLFڣB5`*5WSgPMլwLT&a۪Uzc`hH<ȜCE,5dȐG0SXuBE:[hdJԈU2}ۘi{$}<'h hԦYvIaX(ӧlk"d%ﺳM% 'm4֫-'42nvwQ(ڬh EU mɐ5AN`}?0(xu 1BNXI-f`z_-dX|z3AdΰPgk,֭^}@U6;E23NGQLēEevJT%!sdX )|>؄Lds?A%so ]+RNQ$_Y bRui! *5NrMZmbCAaJ!u7V4^rZh+W01Mu 6Qq([M"EޛFlS3W\H=qUGPLH`;ʺ2ӈu*T%+k1GA߰[U]KΜњ&yTw3Ľ088cȌdt莌4@U@^QqI@lTG$YY:N72&vwHvadMKU)a șj=Zih"YvDzC,O?cIB ;_RŰMgV-{ 6K1\1GU.6ΫtDmexyMwa1[ ;<8*T<ףi,h~(RP3u)fqIVL,?ȞdH]+cqҐDWdw2Mdple*iHgge7p,pJFW-{REۃDt]to &dk#'Ir9iZB7@ nkHmW\r N,ZZ!EJ {>/1;KzX*^P!T3P&)a<-P7HjT[ ägA7AjW_àqgTVw 1n7aIP2;*blw6hG,`vdm`4. x *ɾI`d*9VU!Fr܆JpMKw"Pi]r8@047=$CNڵW׆q ӷTCxME*5c 2Bbz*15Ҽu4iqt_].d`MmxGVYQfpu (T7ba`u_P~w;nns^|;7ZoDeQ}CIPfhϿ%V/Cgp%8WAr'fGZɽ<'.>a$N&s8C%2'% mڝq#4&Or58IY999M8z$t+3&ւIጮ{ ܽ_c<)p OB8~Fw|'g[Gsm5DN4B} P<>?:? e JᓃkM涺=1I~@y%L:v4cZڶcуI4=^֍8AkOx?pȂӃN$ˏG?lmCy׏^Gk.v3˹vƿX^Mr6JY| 6N|6~}o~ [X_ׯ+t vGh_7Q?/'G\(OЯo?h~?} ϯק۷?}Y] оɲ8}{jw`(a.Gaoۿ׎#_/3B_J/D~ ?Vb>0?y4.\f(vsbA׺ |Oh?πǷ^/tl/;\:On2.dmt qeCvO!|9o=1tk1rciseϷ睖\iy'?ǟntvC?so{=Mh=mϰß'uv> ;iܘ)FAWm6*=ޞYO8 ; {^ǟa?=Z[mվzjǟa?aO3y!cxs_n׷',6I?iO=y1ncCggJc?av9 ; nǟau6V\e~]'# n?v9 ; "uߞqD˴n/=ßǦ?k?MW4{?a<%{%Ů/v =?y'uv|ersĿfKDKݎ?ǟ=#"86 ;cyjN6;G{'r ݎ?.'ıOОO{=oEK{G{lƿ^X%ǟa?aϰß'6 = y+_/孲ßǦ?at`Sb@aru5bU@]<(؄<uPWC(x؄Bu]]jbpmB] M7I@]^gTgR ;˦?uٛ4F؄.{y~:6|.; { ßwH@]aulB]Pױ7u}oޞw.oޏPױ.;_uPױ u]ϣ.{[@]&u>/lpu}C@]='}PױgO5 ܗu]yX~_#_3c?}u{>PerGAu]6 5WĿۉߠˎ bxWu{~R'hOtڑO.'PeG=ylu]vPױ`9Pu;Gہ])Yuّ:k' ;7#Yޠc'<>Pe+?Pe+?PױsĿ%Á.{\Ɓ.t<@]Ox)@]ǞOx@]^V@y;c3Ru]6Yߠ˦?lmџ-]Pױ{%:{Fh6c'u'΀~kϿ/`e<>lǦ?\eyKo7ҽŽr{O#9ʽޏpl.|^er%mis?~?v ŽO+9}{͉cy^^6'y{ٙϛy}|vse?}{MeHڼ+ӸmާǮǟa?}_{MNcӟ#86."^)V\̱?[to˦?ir6/o^vmxß'~vv; ;=f~y|'.;ϋ|ݟ{3~gSߞ|.w^?/e?aO3r=$tȗ|#?6ˮye< .Qq^qM}^^)]mԾ;?mWOZo{}ycR냗xe+>8xevv>̴˺tv⡃7x$㫃Wx汉w2;x{/z<6sß<ċ/;y^'#=O[hӟGv?|ӏݎ?ϰ|xeu۬PN]o8S8 N=Ÿ-'g{Rar'@͉zͱKE9_P^tٌ+e;ylŸgջ=Ÿ<6 wOOx|u.c?zatF=17 #Ÿ卺'Ql D=fk]ŸG9zԋŸG~c'Q>|#}oZSoZWJK<6w Aa};+\6_ԧp/tU|˦?Q?>ƱksчqLo|c'[kU(^LogFK|z|zddt>\v_e7+f=;~~.;QտoM>?Vپ|5ӯk9ݩSjz Ԟ<]C?6E,IPHR6Lhz 3ù&_~E鮐T֔4TZˆYػ r)E,lR!(dTP)p !]Ld3d1U^=y ߨU)`ѱ&tQudYU4 hǥ"[,S月߀en,$^x K*ħYZoҩ&lф X!TQ=gzz玈a>\T-fK) U1roۺR1'4P^8#Ч:cِCSY޻RJ 4?n?y+2̜"'fu9v2=٧p˨`qr C̏7).l7(bf:;*~@C}𐻻cdinr>kþǖRQ>HR!떯_ZSΆj/hs M\SIf.1hIwMϾ`Ppw4f:{CNNJj9[Φ*OѽCQMPTCޝj[Vj< 0rUJy{t-'M ;Bm+o㑪s+AMB^S-cw0tAq̪74Hh[r}B|R\M`EN!.9)NØ~6cR1KmiIiZr^ɞPU+N3Pr A\ 2TC/YFHY5*ݘդ>Ձ[I&AmV0zTԷ*t. Ed[Wg68_og Imi ~(rBAh,jMg^ 6>_W˖|L>AZE*OUd'0ȸY;)k,!`dŬ{M@IR>ڰN'RtFoŐelf5Q;Pޯ->U*Q K[%=*gw&Mަ).wr&mq"[f"c.Sy U9]ǹ*TLx{]dQCѳ,B^@m,Ng-GB j Y:cSYCZr)2/Sm.W .'Sn2*+!-[b# uU>fe$jAlVD 3fv9>sE&WD{bqjOr㤚W .s 1K=u 2ռ/ݮL-Mmr"_;E/`u*q34^wp`1N~Fʬ[ ReO L*0)X>8~T116D2+^l->Bfm&"8gKq0FdB:^4c xȭXOuNqXA>/V9j!'[PQfhaŪʘY C Eu;7k'Iy RX}¾ϺWM s1 ι ]GPdmSL_EP97ϐ؍^O_ CtUK.8O{vDN:2(*9gvPT\/ ػcEAlq r.Cg\Ebl]9S NNkYXű$hĈk ?ΙF4P-)~:9UCb_4|_10V>YVy&wo<9x:d&KOVRĜo W0:^1@ Kz4icQX]H9n}*q pݪP¬*3L'EUiV9Ó( 91XTI6!ǖ9 ռ3VQ{OVJW@Ǧڰ{Av=70MaP`:EgZtcL0+UŴ:K]1,[SngDDkJUu&gVYWG>W^;[v>d &Gwj|^~*k/7z̽ Hr,1N>5KMb]܋[.98'KD^%8Z+WLZn*5G D2D3.k"iI.#Kz[r$%v3Yno mO:  CYr/_d~bW'ê8%^UFnQqÂl-8-SԪ|ӌ{5Tv9$8V3a*AͭOO5dsF|X#ГIgo![ U-Չٱ9uaj"[r ! ȶX"sۿnUԽ,cGz##łeOc]ahhۃHE 'b &^>8]FnVG;hs7T-u"kU2 #93\0@PCv#lB8Ouc̜;t%1<7jKRyOC.]52nKAq-aQtفb'">>3lY_:ͮ" VC܎VG!\nO3\؅( ~Zrb6V#΢߷/y/X-]jmp/CP;G`}ᡇQ2[.)f:mfˆ]8E3%5x#Egָj{.o壣OtH,׸=ԙS]c½7:ڐ8GfG{Pw69>50(%ӡ|0F{ۂ 9Mb5 I--"U/IYEnup!-i}h^x+_ЌB+ʱn?Y/{ZE[UFmti Edo[gWVj_3Mͯؿ6^3(@Mڥ֊9*Nn 5n}qd׎9QR%B+Ob]3&Q5QS Iwdzht.[%O_*:%zd w: ;jd2QAu1\xhB^0Z~GVX ;T^E2Q~IbRRi(@DN‚~XL#R\~U#TmqA. ;}j| lPXXJ6ZaUxE#2@YWRCIKʓ8tMT.d_C QT3{הqj!֤uSqj]mTn=c/)3/Ov%:'S]gcX"К!6u`2vv7jǚnQqPd,ڡzWh9ŠUƗ!wtm(HՀFLDnﻢгG=% ȮH=vIa_ E*L֟1uA9dԤ3z=T}aˀD~? pk,5LSQՎZd¯0/k1PAPgaNY^Wl T6VϮpt0%;Mu-?"6Jڽ>ƲhCUV-DI=LV,Ȁ0;duvt5}h(o|Vwvِ]ot( |`H24PH_z:c#q%Q$uK|B@)NqN:Y%: ,I޹wڵYPYwU4M g3(uOAAF %Y.{CݢN gWݎ) FP]7R:ͨ$dMr]1&!+WLTx:63"[?UbB=V( wE50ĩFTOɼ,nbnb!cQ]kx"J*v~R\LիO1*ɀu R'0{m~yvb۠:FiͲ S8۔ONa3:O;Μ:3BXu?6+ 'f8OZ_2\ꇬ%m|Mu2 B9SZ#Rcn _ݲ,E6R@>N= hB_QR=V+R4KEQ"+S2z*O3yFyQu?p9 I1I+)(=TiN}jlR|N >UHg>{_wk,b&I+H vT-(SneɄZ"4c{-甾,I7vj* l#XB(Ϊk龦 :y>n} n&gK^$$4 h\n?ϲ\uڪBESJe]@uB34Y lV.+TTdrSܛ,o{hD *o}{X6|ȗ3-yryY}c$x w.CbުŪrafMR/3t+AM"}4?a~郐lwteGcj=܄lPm>2] X<6r?+8H}OPZa0mpρK+W7MkwX3l|*62^ce"Y7n*;} f%iUXW۪糝 T6D3T}Gʕ)0tա]8<ֱ5 EO6Yα+ nĸjMBpiJuo[v,spսgL|*+I ݅98g! e`ȁ`>ř!צf]C-kIC'^]R/gPA jZb p,+aLRHz- UO@ɇ/jAsMwjaM<fB0hlB̒m#r6}߁RUY\iWkGY2lXYϜTFÜ0p+XtcRIYDLZ3˺ݽt䆙TbQs 2`QP&SZT5}H zM2Tu\1jhNR)OqM.&m w.e9'/86rĈ3E[݃m\{zɹS(1Vehys(=i;(aCJA/߂hfg}&;L2a\pY 2@YPI]#)T ^,t/H3v[x 6=LOo`Xa4MVYz ~:%mz;4P u`jgLMgF]*qHJ|iJƓНk<UgT5jUvj-Zb#aQP|Ʃ0qʹ =t@MWC팵2K\ؚfdOyh*g ,M$6'CTU؇c१iܙSemxq+b|W!۱ 529vcMdw)tS;IWɐw^z@fdjiDۡ؇}~9̮3! D5\o*H+Uun ,*H`#^;SJ"vy&b/bFEP6hEì`MC߫ (_$V0)Q*|^ d¹=h]]O*&̠IvK:c) EgLbT7;T07;Nf,_% %9+Eԧ swP 2gFb0C_2kJ!߄4 H1ꓖe=joDzW5Դw݁pނZ|"<OJy@.ɹ7URpJ"{ $AN\C-&ˢjYe7e"} GUk3y YZTȚTVPsR5$=fHטQ25'dmW*Xq&=(Ǒ_-x>k \T՝ 6jmwPOQg;'Ů Qpv o&WiԠӔdLD=g`撟fhIb_0X.F!ճGefmT2:7!k5?&sػDq#O-@ִ*TFĦ.}giB`;4ܩ]eklIy՚ ~}PX`b|r6""U\Tk3 jSW2nR* M60>RUNVTXJUvٺ3,]jpwW91C _E+ dU_kHʻ9yTZ3Y =Y_Ug߷˕jP7nJ~=PZc,JkfELHJ=A<=5q;9a /ɠG >MU3tBeTolU' Ĕ*|,c`wUZ7 Uan!oE!Qj G8HD& QES0aNW<UM_mOPPG;yP u.D 53;z8+4 ]d"UvN؍Y-v1HaP|iz6@xpB%K.&l>{fH >hVgU'lS{y18g,LC֞2tXu &4ޤ2z[uizzR/b3]%N*5\9Z^*5_@r+xLW r>p@$seHFh"V 9 ?BdKOJ^+OA3 5 uCfWYҡ;#^ 6طg_-[n!y1*Xu7Vy^?Lh|\vZc`^?|x'th6]'9/O0G̙zs#lӹgxGt5F'9 PD"X>1ӟ>Lv뀃siz?Q9l?BN} z(bUϤluO0I~Xqm2p'~b߂ퟧ(6?mMb-|ò'P11T5Xq5y10m[{c/?=~mxۿ_OLɭ8y7Nt dOGsvhWF]؃oؕԚ8{L!c{?~_w~Mtm(P__?^,Twk-/_gShM,|~ShZs ~*_7Q?/'G(L endstream endobj 129 0 obj << /Alternate /DeviceRGB /N 3 /Length 2596 /Filter /FlateDecode >> stream xwTSϽ7PkhRH H.*1 J"6DTpDQ2(C"QDqpId߼y͛~kg}ֺLX Xňg` lpBF|،l *?Y"1P\8=W%Oɘ4M0J"Y2Vs,[|e92<se'9`2&ctI@o|N6(.sSdl-c(2-yH_/XZ.$&\SM07#1ؙYrfYym";8980m-m(]v^DW~ emi]P`/u}q|^R,g+\Kk)/C_|Rax8t1C^7nfzDp 柇u$/ED˦L L[B@ٹЖX!@~(* {d+} G͋љς}WL$cGD2QZ4 E@@A(q`1D `'u46ptc48.`R0) @Rt CXCP%CBH@Rf[(t CQhz#0 Zl`O828.p|O×X ?:0FBx$ !i@ڐH[EE1PL ⢖V6QP>U(j MFkt,:.FW8c1L&ӎ9ƌaX: rbl1 {{{;}#tp8_\8"Ey.,X%%Gщ1-9ҀKl.oo/O$&'=JvMޞxǥ{=Vs\x ‰N柜>ucKz=s/ol|ϝ?y ^d]ps~:;/;]7|WpQoH!ɻVsnYs}ҽ~4] =>=:`;cܱ'?e~!ańD#G&}'/?^xI֓?+\wx20;5\ӯ_etWf^Qs-mw3+?~O~ endstream endobj 102 0 obj << /Type /XObject /Subtype /Form /FormType 1 /PTEX.FileName (/private/var/folders/gk/jt8845y90kg8pwsm__hn98vh0000gp/T/RtmpoJjl2K/Rbuild13d86f4fc2f7/effects/vignettes/figure/fig-contrived-3b-1.pdf) /PTEX.PageNumber 1 /PTEX.InfoDict 130 0 R /BBox [0 0 864 288] /Resources << /ProcSet [ /PDF /Text ] /Font << /F2 131 0 R/F3 132 0 R>> /ExtGState << /GS1 133 0 R /GS257 134 0 R /GS258 135 0 R /GS259 136 0 R >>/ColorSpace << /sRGB 137 0 R >>>> /Length 54012 /Filter /FlateDecode >> stream xM,q$?lǖDHZZQ &h8Kw3eŹG-x%?ݕnnnyo?[H)=/^}:Gݏ2>w#_o~?g7ǟw nwnuˌ^gqo1ߨ#-yv}]_eѯ~wï-?~s߲~cG)#4kXxp_w+~+a?r~OX>zJR?F:? |u̧_()m/_K%)G)~c٥{ .5i.\j]٥mXk͉5 tվen,]5o¥|\n1sW.lA/ӗLs'7,nV{˕/urٱt͞tK9tF9t͂;7}7Ğ^XBsf7=|9Znao\me{y͞a/\oXn +8.`:p 8>Zr{`@N8̞ބl/}öS4O en6vr^X9|VGؾ.t}?&\o|!ƻ%1ݮ-6ho\vfoW@qw%c=C.f/Kvzn\~[a3l_'z%Q' ?}=/}E[ض%[}=w޸ބ]|=/{ip6?jKWHۥ9kXS-uq|= em=/{޾m[O{n, x|= ܇٫ ъݘrz=\?Z/fֳl?zVf6ֳ\?o p=+ȸ{.ϻ{a6G݆͆l_Fqu4ھ#Fqپ5|=;Mv {.?F3 p=+WX9?.sc=z9?.{zWtp{r7Me\!Ű 1 ŝvl]c6l_I1;s̎\B?\܆0 h޸^==6c%l_E2s`=7ǪXO2aznWq?ЯzWp?[saz^6{{V`v ?ֳ&޸\ öf˹Wgnmne7q5\Ѡe\gWU `Ug *ñX`v`U. XU*pyVx  ޏ ^ ގ#>  Ј`UF6XŬ! `~xBXejV5IU w`U]XpW7XwuU,w`U]XqWVuUUw`U]+Uwu*pW``0`mj0x GxDGxt6*$ VE`U$ V͸?U3`U$ VM VpxjM eU+-U o/d&d`a;XX|#Xj3 j3 j3 j36*7Xö,33 C *`޸BuU3lU `LLLLLLn V!ٺ6*V&[V&[V5VVV7X>``U~ 2 rXUoVUKO` ` V9p`U-7U-7U gU*'VUVUVUVV^O` !;`bU,u'j&X::::X__*V >X5:` 0(*bqU,jXb&fg&_U33U _U VSVS6 * ŀVmyVp*XpUğ?V5RjDuj'x>`UK(Xu VmjbW _ 8g b87 x7~s?k)=3nפ9c?yدl~9`l6c?w+g?/}`- Npy;x_0-/Oÿؿ:wN8Y >?l%i?oY> MF-9}L9Ojo=o8*缪|<>λJa̎?y\.,y~a+' H8OűFqod_"Qlc#agۧ8x ;1/Ab_,uY>mY^Qfq|E|E2DQ_#b|p|.9 E>7yM_䃓E>9yoF>}'p7"M|W?fxtM"2JzoIBNIA ȕ'2 gѹg r6&xG%cks>EWăʛ<&?I <2? O <xW%x󽃗1,/,78BrMᕅxMy&祰}=3KY:8ψg;ȵ-v\/s=ªzCw}\v rnoD')Qx7yM.xQ!Aq>DhҿE=Ʃ7MGM\ &__x?6~FlYDygFYAgn ?A|&ꁃMnO{#GTmw8A;O3!~MG)ēN=6ȩQ%\Qe6`]Q(&qy;"s 5(PW(_W,S+vU+(W(WQT8!\_D1RAD¾ tD@DP i$ vҤNV >0'Z{4΢T($\O0Jf0h3I$2: Џn<) 8+ A݅{ܼ q"2cmf@I/nX~&2S_O]gԓfpl`5FIt-} DzKt%>:DeǚNz@ZFO͕X:|_\%i`O 2B~!!~1E0}[ĿQz$?~t_ //t-ȶЗeܾ,.by2B ָCY_L~[bT~Amvl+,zE_E "|JAF\~}ow/3!_v"lVkX|KrU]yn|$U#OY3M޶`yX+}iiwю4}^x 7py׿鰠G5{݄eDb&g:!nO _>z%<^y]`'*n:C7T)6Lq&#KK-IyZY}?5/0*ܿMا^4>+".q^e8nQmPW;z25M*ڢ0=_uHy]LM'^" q[ Q~"G>ChNK)_[aw.ܖuu6\nnˮyBķXt 8j} (j#I/dYsDAA럵bZF_ր/",? xq<=ȑPNn.އV (&gj{i?|Wv]"ќ 1*9E1ohvBƼՑ1J ,@ g^hjء%Y 05cw׵h~wyJw&}[L.C쉧 MlEf [lf{Bw+Xb &_f:,(HXmxiriyTl$4(P3˰"[C!%֫PbrZ$}v% {kE<<L鴢KҶw**9Dp|S+ ^e dT/ީ<+:Il򥦢=UAPG:M5;K-HH*tӂq,g,$prԈU7ݪU⚬Er hm]Wi z//mMaxdW 2$x'tzv.ǿԮk҃ v {f[dzwض/`WnX(WPբvxTARN M; .r z:Lc_x6Fӂp(HO:L׭PRa|wJ2 H y 8j#s+v۲mNFV'96F,!dK1:M&7Ʊ*Q+cG4JJI| _9"$$PSau7L9t:GVaGYj CMHŗ^UB 9hWPf)ajEN:l; ,Qؠ B";vlCB؞im#\բwy MP=Z诋;.6NW`1Xe|_UNQh|8Z%K-@Y9&h !8MWCޅ˅)-lQrvdҕ|圊13IAn Cpf%:M;I'͜*wUrX< ܲ:"SFN뮖BאXpf蒉$4i^wL2xSFvl!&^D^ҍUNG6 UW<à2%P!e9R~c- 64({f1'HsSՉܬh>kξn$ E$)jЕy?wWހָl䰎\m6'x9^}B\"vOvīG[,]8C],dYU1f Snz{HNPۋ ,=C@]xVCb|{=yKwM^5U{_O/]2k9d)q6,04IK[wK$ AH;:&-E`0|[EBbkXRv3*< VeezFXLǂ*5,` ,bA##%Z!"j Dg'$7i"%TGD0T*rmRT)xqv}V{lyUK:]Z; Ectg P^-"[e( FdQؒ  d q=@Ir p蠕2BEu~w&PpqhK4Vn:0X#JUiOYnߔc£Lju (XP&$*Eg.{[kK6mK44̓go~)RviK }abVEdqlOWG H\ o"4 UvRh'GD|Hܗx6|/Ҙ1H>ߑ۟TYLkrXBYb$5窜M*B`zZ< C3)VEp+"A>E֫PN6͡ta" ͤd_xWDJd9/mhFt T>3KRՋ1V$mt]Vbh6oz69E7QLnIFppg[x Bq (m]m 7 0uS QۗK+pi^(&MM,2IR݇ϱBA:/X;(sԱ D0BF ×Ϋw(}Qz8Š#Lड़=\)xn*2厙3˒熆FOăP*my.lC Y6m)D?A* w_e* En.e@ W+ߔaL߫L4j+DTΒ@u,@*#kb1GS!QS:Un0vS5<fBaT4PDՄf2IKH-`_b] AA-yV|M5E,|ʨ{'T"]&#,vS51u;U5OITIP`W+(O|@ELDMj -4ѴFWUt4ΐGFrtɤw_l |#*&do;9}SrLfQВUYW^ `ǗGr>.+Gy P6 +av=CّT5Y:K!e#7>8=O$3^[jҲJgEz̏V ́f=e T9]$ Vo 5tCȊpErC=P(鐥,)#p,]07.K{8('S*js\m0\oX JuTX;vYL.;d̓5Of "%>)Vbj(=I n?{WF\:xE"  'JV+huB:y~Ū(:tnF{-$DY_2_YjRlܳ*4:^nM7RVKexJC'&I&=T۬# &V%)wLksLl;\\k>B}U>CPH<9깜~d4bH9{oN6<&dz?U[U}OYN&ўӽfR"*{(+!QƅĜZ%I1)򆩞PT]&*9ݣ [)!۬tUTM@e FG8-%)u6`l '")߮M0U * /`כp"Lk'%wTE57MIr+H[d8r@KPxH@dT ULWtXƉx;5iFMJ:*--yOܣ4 U=Lڒ@P HR.px=7E*^j-m>Y*6 כ:[ԉ$ݖoi삐uzI[ρ"uڃ)4a_ڦzcN='zyj~U(Jn*iqa <$$lt^'Y4PNRlc8;jV1<ҪK yS?tţ!ǓRxW‹ QWY'p$܁vx,G -+zZ @rAןReُGVg$\6dЇc !&[5C Ru79+8Z6@~e_Ru]\.jgQ U7Ci Ck9_=!(΁LJSO,>@ wal'2TϘюq{;;;}^DXKѡ&uhW 5g-L7@JƤ!`0y?7 TÀW*0G|f>==ʹf>=EuO{)z7YuO ԧ٥6H:ڶ',^N;>'q>BAv'(?6[ ._lcvYN?_̿ұmv9hF>԰AxW\ӳ|JHfk k"LO#8/t'>[}85:lPiw|bF]'$/He&T>ع~uԽ}}-)3:,>[wxJ[tl=fC8J`6Ao?|ǿş׿|oxskoQ߿??_oA[f [#ykk?[q]?ξO3%fOwoBu':=]?~\qy*~2|K4_Jwi6.>UIϯ+Pl߿BWZ~rDa/g0yuk?Oz}f bwa3ݛ>Ͽt~/`_ E 4~᧿yoפ]ik?p{vؕ>Cm;{E,&i^=NaoFNKu5RF„^ gYZi➰ V=CFƃ2PF,u,7Ae);G0.a/nzm &v؇#| k^z '=h6#[CfP٘e}؋?( D&;?UdZ&:e6)%1cc5 7C&UiO\FUBw77y/9}a/@K| Yp dw$`Ը7/̮Hg'^ItDLLőCQH+, 1JArQ6tz ׳T)`;l_Q9bsX?%g5H.*lZJ0{zR?޸ބR~~k uJ X7GK@}=7GKhagK-fa/j;lpgmsvq-=q{Zv!eL\nQe'84NRfQeȤ {h1{>\ZZ0{B=F74K43a پ|l+l6fzVfpFU-h(\v G[`\oraz6V0k5VHkfSGhuؘRGo Qϯo۰[ KaO04sė-mUe[Gq؀!v}=YSkXTk##K {z?Z0`P/(^8;%{aˡ'+:u18P'kuh#EM?A]PI@][@]u@]u@]\@]P uʹ`ZLZXuPW@MuP«}Eh↺kuj q$vYԵ ԵUԵUԵ Ե;PC$B;PWIx:k@]7놞uӁP6.@uh9PWhPWhl7 6 WtL(Pa@Ib@]Q **Z Z @]xok EPԁ*瀺"ǴxC]H-oԁf؄xT$HET$w6P P3B]33B]33R 7.'OP u u;PRSޏu-u-7ԅP PRBjP׆9Pf*PfjP&P׆{z؄k3E(PWPWPWPWuu u!.?6.rueԕԕ ԕ;Pއ"t.~.췀 [@]-.yqyC]=lB]x75&ԅyC]Z|uUB-usJ%J冺P׀}.BgZa"tF+·πʸ_. u/P)B]"u)B]uhPW*n 놺pP uE@],]k_5#5POPBi熺>5 5>5*#5>k>Pum@Y k@Q4Pע +J7ԅ~C]o um6{@] PW.<B%ZbjK  uPWK*uP =kM."ԕ RāX>PKWʄvn P u @]E~@]%0B]uuB7h↺5Uq+*up @],=uUB97@]\@]\@] @]Pk@] } \o&nP2@KC>Pa@]). PH??P(P(P5@]_P~ Y9\H 8z[x> }XFh>+Sg#}y4B*o7g?0?>%O~;P/c_ MA%^/5ާB+>?6qo)3{L(#>;*<;Ni/|KKi!}Wz 5#1=s09s8x$/w%w^Ҷ C;.(5|yj|:oRuJS%lV`4#>/Q:[Q ciT+Y3]pr, "xjFxk2x,ox.ш&'4 <.YZEw^YezJgOinP"f}ˬxzDY>gOi:5;zz_w#옧|wJܥ6K:DԘD>H|EZ7uw 5LCHa{ɾ/ՠE>w:xS?p75wSGJؤ rvՅT%&KPQjLZCPoJؤ`x_!~^/Ԣ G;&K9RwxP (ѿ?"ޔJ75 nհIB>}S,IE lR_Ǖ73&Lm#woȟoj\ 9ox j!E|&%?==x-qแ/;"o$Maz fyv&UԟGxi>>HTPnj VRQO= @%zCvchۛ:uSS^A5gXϪw}0>QA}+oj9̛z3uG=/u G=1MYتqSwL~@;OSIE=zݚVu黵~zr.)ZX?D>ݺ/z ޞwQ7skϭ+yzsZ_7ui!u[sVغA௞Z[rl-B}׃|9|Af6/2Q8||Z^h5l?c仜2a|">6>~iMCMyH:|Vu_Iݠ>FGJ3u|(_[53 eZ7-$RT7޸YhԈp6+F_X,VJ'@a!"c%K7?Y!Z՚҂i#cR J ld(.%fgt-9mtf(VkY{$Mf]50Q+W-]J}cDnJCi'"ǝʤKSixez%(gڔ /P@.sܶF)*Ԥ7,^\n>b%0hg` U=~65leqw^m\6aاZ!>[d8K h5&rla dC#/ 1?>+ Mʧ3$OR9$׶Uy}pqEr^Ԗ\`k|,!mUQ,UEGd:cD(gI <{W x 'U9՞/ivE*/L’"@XdGKS7$ 9,i^-++&(oźj5vUky+v,k%+^Or!ڥR4qԩ[7 fq7V~<ֶz EM 9o+ ԋWHYA@!q1nb CU;"rUN2&hen[}#*SKV/v C}FVμ3ߵIG6(|w)Ĺ܈ˇD9}ȩ"VC햆~ftHS"wE pCSZ`ԛ*tzyrBUPyI)[ŒJ2jG}o%nl"5+-Gc̒ZU:~Һ GDYE;Fu6X`ު|)F-2l_DS34ggr E`ʹ>`aac,,`3)Ɋd=WF4A, Yow1}R]Œ,Ofb[C%G^_M <12:#qT:0QPYTt:2*qRIwp8_߄ bWrGE TbQ-C* usx  XFԀ s]4F;y)dnMuv#U1ɨi0_U)p\d":NғѤxSJ@ ?'jo_^Oa,_̡C*4Ss1ł*ҐZV=Qj[Y`Y25 Ҁ$+nUD02s5*fw>(jԤD:jx .&JʧL0QUѧH,k ~58WPPP~}ݒ{bS*anķ 7S*Ti$'ǯlֿ>^0RV2֪qxWke}T/_ t"iޢ2@MVO`n m^NaKހ@]5F :5@}gJEqh64` ~:;b z+o YEeߐT̹p1X-|$x iwCpGzW˨>gOHU"wx>^,"IÀruڎr(OOScGM>O0GG8̩LnTHy;d}|zʖMd^SM֢~PU](k[LEUHq#؇$ а@9 )n`\X$?wjHC T*(rs,Etc-' SInQCP/`8=[>|zUW%:C;]{q$Ke )ҽ|.#_Q"'$lKxh8!' _^ةI 4<D cG[ zAR˓tOT>v4c &' L0#Yaڑ B:%9JӡgÐS-f$6X1j͸jlUMj9/]m ~QcZPafϺ~K貪@t ͋c5c `'Ơ`+EkvM}AaKc4(4l!Mŭ2Q/nܤ^YY-Sי5nzёsRj<J0Sf~PƊ=j8ei%BrɣQ[uP1Hd5$vi폂ˡ_Nͮ˝h3rWx-y@wVr"TwUyF6%]FbuQYq#ҊEf;Hrjlh#jW&Wrh)(M$ XWm(?Q"E.c G*uMʔ6򃝂IW:(e˷i%5?g}jxMgF=6+.#6,jt,QyC(JM2aݥ˖=0TU/Ut6$,CX^ذkE)DsjF_G$jM)3¥A-jtUV]5#Im.*E2myX WɛKH"_CK;d=9m:_Cb݅8TO̺]E*VQS_Ō$aIdIKsDk&oz_ҔaQJJJ/ޮd᧥SOT* dɔuN`D P(Km++ۖ]vV5{UcZtzYƚ=Ty$:u3FG KEy Uprd;9DYm sJx@?7!mA;gDT'v:"9 W +5f(uR|Vu./<}W*`DL}͍mJ*3ʽ% ! r`/;[LS<ʟr m/[Hk]t aޤ)BB 7J$:Oi7"`CC*+Tj] S_~Zۓ70An/^5̡u^7`7]2WŢIB0XY$M9Abڜd.1Qu%Tֲ2 aGbS[ȶ2$|i't Hm[>@2oq|Û 0GO ʖ_w`ʋ:ᥙ46&, TIz*XMʤ[(2QP4*06uwTwB*ٴ@cȚViP(R%;) T1dF 0"L澀x1 zbw\gXf'[5'É%~AK=vUg٠jWEFv,*kH⚾6jVvw$6fî6lz*Zuy(!qoݓv,u>mOv) I%t>ouUi~Y`'*>ޡ /%e0po5rLW}Y+tB@FQmNQj2oEB1M-Ah}3VI.vUpPQͩaUS Se~DW&|:Qd"XRہm~:иw* LZ>@_~0miחuUuƻ3jwT. X5\W1'.xٱFEk VR+L&b|Ձ]xݲ24]Ro_,)!(SRЋۤІ6ޔVNk aY e7vAQG,)P2JAgO!';G=-O}cn<%O7$䙁qɭa0% Gk Pp'14/[4]4eba]p UB\+d2 "\N43 LZ"{H\bYAY5LS~$R)g$3]לsǗlrbG* 7 l]xy/4& {5wk/%uv M$Zɿrܑ$վ|#*`c7}Zz9,' ]AuS5ucYչ3KOz ȚeTk񗑔6R=F))Q QY$$#P'v;SVމΑu?;-L_m6az߹~᳹\(*d'cg 1y^6Cwvi|# |酖ݼy /6 LyiǼۃj1gOJ$L܉v}}{x}veSyl凍<IO?YW{7k{7xRo?XNm} J>'ԜO60>t+}:S|qۙ, >io֙ۜwj14'Tڍy&IãOP:?/c޵s>"c޶Lyhdyai=?/W?|K_{mOHosy"b:חpeIm_modtĽӰ[~#w\O~7{G!6UTUa?ǿ5+R<#l]q]~d޿BWzse9O2cW~^,Y+p~//|| 0~5~/~V|qb{۬P͉^b?4ۛ>g; #./>}Qk^]ڗo4om߮بug n#' w4d6l 1κܣ $*<}F h$9ll+$C؜`cktlCJE,fgE8'F=̊=ZT7;5^f\nOr-No  5n!%ťao\o)q {zu&b6_c}=fҎ A JXŎRXE@,l6{7l7Qb]6kX>ly=q7h۰7rfĞ a%p[HA¦=#6)nj؜`*> l`el=q= X {i+'bb{Pi {[c3ǟ1b=q== vob ~Xo|zS=*G/9=~tm:m'kE}}B&"~Xl!~t6 Ԇak!iPc[CZ⇭=Oa?l=е9B?zvď^A7AD3c}#~ ?l=yk0Dm'sz6: ְE,kݠ{;g!~4Pu0~#۱&8X+@h@d@XO|RBxQ $rďca-8u1~t7>^.Ə.?:duꦒFGx\:VX[7GU݌ww`-u3~ 0u3~s+ cL91~?'Əй?Fsض}-1~ 9[bMDGd'h%ÎKyˌa&*?SXo|T OPOpzCZ0~Lx̶12Va K[1!vj mNT=<ďO[*`B* [7@FzCgs_ncSUƏcdz1~,#`XacX'n X>cq`Mchicua3~lx' :džħuƏ kagk3~l̩l_V7>AK#~lXaXwOdl iHۈ? bP(60?>c UEۈ^<?0kc&=!~ 0.XC(dgO"?U6Xa%QLX/;e-#~SxzBcT7&Wgψ֘JX,:V05~? π / uyut8PKut8PWuoPWEh9PW%4PW%4PWe)PWe)PW (ntPWërR?j,:-:ҙ ).oPuu Z }JJؚr.kŚP^u ::P )uoPùùuMBauMB'uMB'umPQw傺\PߗߗߗߗBz + ꚱgԵ&R@];Bcv@c6Rum2oP׌5./P/&ʀjB &BńЋy=_P Z&E(Pׁu(_BQ2RueQuX"TvkB]kB]Q@]4 4 * &ԅ킺P]P׊5.@?uUěuUu8Pux:uX"4u"x}uE)PW"uE)PW]P@]#քx}kzALPW ɁxA]=ք|/ V ua5ߏߏK {A]#քkŚPJ&K&ˁ&K&K&ԅRF u.oP׎C3\@]\@]WIEW/G>XOGX)CJkR.6:!1.q}̗#|̷ [P% U~U!͊z#[Q+wkRC4 ǚ/z,^;#9';>>=҈kJ'.iE5Q?֫xkԳxlԻue=\7Kimh?ߥ'x/iJVϧX{''^G?8ҚkJoP\ut IiB%ߒ>`5 |1%KOJ.iuz^M|%uIwt#H_xD7.ї|%ͧH; >tJtI>uߙbXyz0_{Z!N[%Nk)=|q'S{5VG5FWOk߫=Co'?t=+ =@g+>ja|wN =G@C4/B/A)VZ}B1*4רo:zÄы0?zRԛГf=zGR=L^P/z.M~ =[^[A}Ϗȇ=1=+hͣr蝨"sR珞[Q_0j(_|D-Go@)el|,vW"*u)W!Cn-p:nhs7x)txk4ejbwz7۰zcA_%CtU#p:Vƨ4d}>y@& |q051 LC"ʲqcl,Vu;AkLʎ'rD5nv͖lxg49Ǽsz\.л=~_7C,vi~iu1g1 6Sch#56s / o:9ڡ2WI9z[hd辭`W͙if&o;# x;aDhcL*XPKm+xA[MK J Nͽqyip ^ϓp8inĝT[roX$$AkdvcH8ZiU%cH$mҴ9&iJ]34*:kvutM]%V84؉!FHԮ3h<z9 O$WY윅EO}n$r&8=Pmtf% MCk-{K͔0,S;/^ c+/Åi%^ id58I^_岔|`l#pl8#`68zQVv0OT}rKU͡ENP&fͩvο&۽R/{A_Jڍ`ԨIG`f,cHg/^d#Ԗh W)=\5lv(ݻcWzǵdCKTjRc8YdaULx@oy >u.XxA,F/t-T1%36QY+ u;i \rhGa)gܨDexߡKW(%(R3DCo4;,ܴ;h[I 02eOTjHA1̓3q#y38X,;[ + 5HTAԷ-],`Xxi ̐c! VGd߅תaET4>Bu@S<əv9'aqdH#s{(Ce#_*B3^HԂpÊ )aG YdPL-A.1CN4hT: 0W]jZ clYTV5¤CI>&SNz5Y)ҏHhp|Io1[lv1I>9MKd*&z,ݩ4uc~ @tUy2p&1.'աQh=θMz 5'y0Nfԧ9PV%ІJ,Uƨ`JcrCjFQQXJ8ƔU GjU&MO6rЎ!'!8@MRM.51,&ur⏱ W ,4+rU-TxAajsmMt:-.p1*[fZpJƖhL x -9 ƿASSxCy'Cm HtwtE- M'\[@Bi7ϯJ_)hQᘋ?UAnI T";Y<3S~H kjH!3TnGYUI*Qk2l*tQX!,za'rѰqhȲ_Zr8" [;%`RBOsIVO%9ECu I(rh7e1!#\ 걢ɸa YdsIg'N:|\1Y71EhY))8R}[T*,Q9` &FH~QaЫ90Wb8ot)ޫ68 ڪRbmJvG^RD9|}ߕC,q=bI,q"y`KrHa2s߱`3fy`NTϲ܇E+Շ{sBT~50qi 8ɡr* nk%$g4ԐrAQ޷I1K؉6ׁ{zS(&c4{_jFD8 6Ew.6%]U ̔RqUSlMf_݆lLEusߛIDY,^ei(l~*L YW7Rx1)f s.ɲrr fKMjD%fyL82ڬE  %ߚIUmŦPvM +hHV;w4Ha,^X8<3JM0ʹ.IZ>i֫<6rZg8jF6]H`=JJ bI=G˹݀^ -G^:C›k$yզ\ڥJ}a@›5Q,rÌHݫs_"TFL"zYq3dhEGT)'!gO uZs'۩? {V;3 mKKYM-x)<(p*EP5y:wO/+o `]oqK 鵌q>}l~ Y5D4ZA I=Tv[ĕQ5le_ L B*Bz3ֹ$I.ONT$^54IK5;5IN$ISꗓU?B~U P+$7~'K,B ̋Dt61قX1"ʎC iM$p XRhŠ\h=O2yWoyc{OHU' |H8 F< U-K&~?Sc2N-ury# {.w]ېVsL˽1(,FCI-{*Om0E8 Rg=KXR\6ECsd5pHnR{Ψ&mI7jLT (!ah4nXc ܿ;ݼ +{H]ӽG+KM*a)# T-uZ ck]Rg$I̸_`.ܢ[` /Y =wV9'ُ+NP)oUcMESoBlώA4I/Zľ4PʢuCU˜koSjĸu6N^!LעG|B#_F*zL5Ka$Q~;W~sفVmFbә^կe}aI nNjC;Oi>Ȧn9nOF'TZU0`6OV<#b*n9we -p0qH fJ/ӿr5Rh9UMD3ˆӂ!aL31uCUڎ2O5%ls&Ay+a-3K[5B{nJYR0kLڹF> q\ %-.ŧ\۽R@Ν\W7 Ht 7 9T)!p;N|wc/N xwM2Zh:vՐЗv,!^ Cտ[ӛ'n8RT1k}K f&z6KgלaNDžxMUj&_yʷ&b$9ҩJp!SI3X4И q0^u뮦ZQd *oڵՄeWn+Lӱqԍ|@ں_#\![SȗcPodl[P7Z vQF#zKǜ*!Q~ iWV0OR̥NX^ԩ`IYк Qd{,ɖ٧^}8庻W53a^_{$1 ݇7*S;m+n*i'%)>CGmh N""-`Lە QeUأ 5I7NUv0 }kڔ>PVʊt֊jpnWKW zS~NA^ޚ]֛n P|͔zB@ HtSH$ϊ4I&C:iBjMzhwMrua}VjG6HGG,?'Үv3(NʃAFTj - k0v<(胓R`8Q_8 &1}H#rڎI]s٭* ˖0ȖFf啞5}YZyԣ26coZPI,bNr΃,YC*nku!^"K 0EMW+\aN5Oܓ98Qi$wW;6KU`6(#ƉL,AlhFaS%zCAE!ZK,bD˃ܤ6iZUl8Jgvo}ZQPj֪à e㬪ۙ|,fC:8[L \ ꘩>٭%`c/66dPB(cy̑F<6=Hj^c3lZG9F誕5 Ͼ3EnVU٧f׸}#X䡛25Ω͐Ȑ ;T9)ugMM ׆V*.NwlG#Qn1qVRC{@`HQJFhC*Nm1h (9D3 @E{ c/KNZ4ݞc3܍\b*4ѧi<  9 QTtAȘd@1%K_ 0աitl8>68j 3|φuW)!QӬ]L AM V*d{\7aN2DHT;019/YYM:ZbԘSUlE`R+k9 Y` C&1ԇ"V eKjIdp¢j7J5,ܐ6ٖn*̔.\Ni+ĐRH߫gUĻ)2,ҐsE20w?gjnxKM?ְoɻ( ܐ0:xq0 לlgR^tƨ<7ѕ:h=Fq}=;Go+Fg/ (l 4:/%}a|1?`jdC}~Dk/g_#}ۏÏfVks__,Kfqiٟ}i%CafO.7osW s~<}o~߽/z(N򧏿yFO73q<@?{K NMw/o9ٿby4$?pst HO~'?ɟN{=美^{:5OLO^0BQc[=Q %)32ɏZJCjZT7mHElMnKm]xzh&+5&-1ȷ05`}nt,Ydk +3dS"^Mk=_kHX7f%D.0 (&`\nkN~ck48Wzl=BcL8i2+lKzbM.!|';s R1iVt>o][WXoVflZL%lAxnkJ+֘:eQkNTkkNV2r]~3wXkX/HuW:czkCjlXMWR٭`uYkZvBŹWp<ďb<ǂeĝC?l4N , +u0~^: s2cylA ߱<ď TѺ*%x,9c!`knm6Nď@ԉakʙXCKV'LN~?LDׅl& l W]^<N?l=y?f"?lQ*&1ךf u#~z֘^7%JO5ᱍa&#GX%[$D%ďIevK=hi ֜L7єcUrF kb4g[F*?lyk(m >ozIoV?fȠďYgc ~L3lcA#ZclUfzKi zlXK&X1+Tt8v^9m/}V'>oc!jv18akNCym hdk?h?y3~ Euh?͔:]hZgh@P[g耾ZgUٚ?z #kנC?ov8i5?:5mV6?: 1m2~tATXCۆw=Z&&1>c\m3~mƏ#l7&Psی|0z'ms?&,lz?&zbDŽ6 []'Ə9:Dp,φ?^ G !~ж'#ǂBJ=3~,`83Y6fXO|^4k ?"0^[7gauBݶfaaRzSr5l,{a r kL?6QFze= ~lՕc`[b3[}ބQb=W 5aBcM ?l"hGd?V*ajڱOow&ʠkgGX +{ְ^ +);J4m"l=vPT?lyNcetakcen5,4@ρ2X/|~ďŦ>?l=y?+zO[[IE >LO[ &uR1dωakcEakc㭄uq9>LhXְc-֣Ga)\>oa !ymc[$(~g`SbfXy6^u48PKj ( PWQPWM,E u/ Sn.&ljV z ꪉ2X*lPẄ́fxԕYԕYԕYQ@]]ʋiR oJ@[~me|^uB!uB!uuuՀuՀuUuUB5uUuUBuUBuUBuUuUu(PKut8PKu5Bu8PWuoPW#4PW#4rA]F`q     }}.u Bu BuPWu8PKu8PKu п@] 5"5/܀ZꚄZꚄZꚌ7uMƛr8P h@];,ƛRu>B]T@]{@]E@]uj:P&B]j"ԵE@]QZE@]QZԵuuoP/|IPf} NjG%^x}0@]-.kŚPPW#ԕu>B]9PW#@]wA] Z&ԅ TāHE: )w.^߁x}ڱ R#(5R#J3@]5uX"4vkv 46{zXj,j,j,.kƚPJ B)PW'PWG|>PWgPWgPW'PWGu.ԵbM w@]w@]#;B]#;B]#;B]w@]uXZX w@]]@]ˁ&K&K&&uM5cMka}.BwV@w׀׀k}k}. ~. ~ ksԵ Ե Ե Ե#Ե;Puy^P׎I'>OB]=yϓPWO|z"B'> B|.ķ BƁ2[@]#PW&4PW&4PWyA]ԵA] UuUHUuE⁺X_ԅA]ԅPWuPWPuUޯ+kB]_ԅPu5Bu>PW *uu5ޯ u:PW:PW'tPUb?P ;Pu/Px@]ぺT65o@Mt5>@]P.R"p.RꚨE*@]5 5A];֛^0u1Ե_kak;P׺ hj}k k k kc*u8Pujxė2kPa@c7>o>o?s@^ }{Fޏ)s?)u8{xǴߟ׈XyP[g? _Owqʌ:pA~}xKċx:x>xvB>>=@߄4b]3^1ސ=TW *(-:txglP )<Fq}5q5;U5-^"_8T2C19TC2o^ *_F /THW"Jo#Kq}R\|R7Ě(ꭋ:E=|X3G|mRg&|m֋̇f=|u\bMjE='K?;֬PH <O=F?^;ˋϱ&u;vɜzx੗zx⩷fg&&Kp?JzpT E )Aԓ#O֛#S֣{ԫ#[ֳ)zI?^ҐS_S:|W5֔f!]-ķ Ga#R/i%`JHňǕpC$vkێ-ǚҷ/́g#]ϤtGJx4R#Txk |ˑ65RKڌ2_zI_#4:^ೃYzM>p1q_Gԝ|a>Hi}cF[_I<𙧕`Vr5gtsOKkks+_5S?_\|r!օ+_zK /#0֛"g 7Ǜ!>aG C&zD<//g =ɣ y_=7=HZISyM У&*W+ }[͠wZѠ)lMLٗf-m RӚFii][ֶel}[z8ֹEB-.ޣ5o~kݛNk7Jz)EGO5 ({_&|u'<3Xp w<_{aX5GpwsAB8Yf<+;nb IO6vr/S.%)CF5ݝA`/ ^k5+ rk*j_*|R `VN|d^c~S/ƹ1Vu&V '2ɜFvdzBeϻglrklvOein0tH_(Db;'?+P °bÿI`P\& UGuKʘ덦$ I E^c(;t2a lɁ2nV;šiÕVwXt6PQ= Hqɧ@ee et@t*} dgP{Baeeݤ"G!L:EFVFUs 1B޲DX+] Β"-vlDz0C=c YcRVv|#qwWly嫣NnjpjVolѕ7HfmAYİś4H j+wc vn33|pto8c&s!#K~.2݀WgCR+`A0$v%u>To@ɿWi>1N7W&EtC,7~Yŝ42u;֨5'GNT9i4dr4DU&|4htR 󖥦) 5衟`h-ި 44JؾhjO ?(; b]"#FDSg}ϣ˽1Uo‰goG%IBFVVİOYNPeJᳰs0]ꐣL]XIB W=({ΩLM!VhT#O'KavEdnWy@0wRg%Pʲ59v]F퍞0:MubLu%|.d|FetlMےF٫LdeYg~۸=>a' n|Ո ˟ I9w;cа]:`wIG= IbVe^/ȑm&EeP&&IG$ΓCf;&"Gr KaZnaQ=G-U8=@qBFng92(;TqÄY$ iZn>e⧆$dRX F/w!|2թ; QwlV[s˨̥vlqp9>Wonrd7aqU&h%TtuȐGF{V[Idk;gx ʑO+zKْG6a=}<$T#Ʈ;,0)#AEFG9pSCL+ETC sy(fB$7(IM.5pk0ӯiB #4VD8$V9%:ylYo2 (*5-`Yue"ҞYCg&Ϟ#Ib7! Z kߨ!2!5~n#$rUJ ]C .~wq](ޡh֧7Dd 6;d޾8˽Q YS9mG#xU9ϛpZ)~ lH2F jG+h3xg\[FbۉJX-)x¾2 vܾ&ZV VYT-IeWA &ⵤ`cn"G*?h^'hgWe ]F:3OS"j!W 3λM .ZkȟF57y,@6bq)R8!*UlUd)ց$dH$"? Te*>?W$)M"V).d-Zr7~D?gxK(nרȠHKYzS2hȘE=#SDd캠+鈄vHu PX ] 23eh#gm[.ΘPn ȫ( Gr(X*G-W`|N=1.~X'Mnf-XfUI墶ҊWY|®NNj7hۤ;N Y,hTЀRdmu=Y'jn2޴ uZDC\WU|椄U,7ȜaE?#yhSBBiwMQkm#D;lOyŷt4^,PC5TI~0G(aN;U^zgt9|[*Qn,2@wq^JÌDTY~UaP5KɑrY!ۥ(WaV=wͱPڨ%)T!#Za8|PXb–z*%2aCd0A Q: .fKl73'{cXEosLܐ+SU6O%bmL\(0Y==)t`aRsƐU!'0|5TN3) K姪f9ˎH^-_ rk56c: 7 ΏfՎ]Hf*BܘHݔⓝ!J6YrعFϰL(:7C 2ʂ̈46)E[fвtϡ->/:z98ߐ*t*C-Wh,%生&ųf|4P"a&>DIkIHY6bZr*xk󦊉Qk XUfEv[<3W~O ZϺɀU"֥|߾K4Ј9.(۲sm3/ 8!*RЃTQ% tRf4 z*@Qe)7I3dEh,M< ,iS58\ 9]#2h(+~4 |Y_7ƓvPVw/GíVhbiRjFzAVQ3&w3ZB[PO.~ȿkH͙$ sImW]{n>8~'kTF'3f.1dJkV,Їq$Xj7moh~-[,ֹr`ɸ1kI>ЧaUC$]khmƦVziUc w-K@1(LRWUvͶD(g<9eSaAi[pMmܲU4>tCVq~UcV4~2if[*VR ~>7|ET9L\l)4SĹˌMPV*gQ4U˒hjCwoNA~@Z WpOnK=e$$ IhCvnJN3kLҪll[G4|d.ޱ`,U<"( 5͸Xh4HW,uٺd1'JrN vUvL;0=KJsv" DnIn77Ƞn3#9 Qݕ?nPla.tWӵIߜ-ڍh3ރ46pƩ] Β:(xro@8Iu~UIP笧a֥JC/Sfz[yUGo ,@ rJ,6)(Kg̜V߷}ʎK+`YP*K]7DnTD>e7϶;%mfZW`å&*Z9P&R?6JGQYɉng%_ =Tamɞ4YJέmٔrv#'^v/[ȁD?L5,$̔;ViW3( –K*ΫzvN 0Uk fj nr`d#mXMggfաߐ#,VMX@A6Zmay7%dW+I^cŘe9l0U-y>ۓܱb[ 6)4 P߈a%mˬ^vfX(oW\aR5?0Lɸ-*W4cD>O}۴"%̿8MRe}Yf}Oh?K4oqP#^vGDfJcnx78HhՒy>w -rh0-iӆQЃo}"Z;itqCk-,gJ7 ݈Tey'7)?ٰJEY7`.ȵOX#Cd vX\ =vct317\;F6IܬD7ni!bxhZ k,{nG284֗O'}t4R">Ac3>0t2Ѹshގ'c65YV=ɟ*nW:z.VT]Z1B!' `C>}T2NQ7%seH;O1 vnO1t m4U G1R=ڿIֵ#i/"gHɞbEsǰrǶl(ȡV[ᓺgj"ҭWη$ `^d$L%e_e|$o\TK?:u V&Nms閩qf3NaIy辞r% *.T/ R5">b0$]HZIWМ moO׀O4mCpr{hǏO]3Ҝ$0e)qvZTxWp*+_շ |& c[{N0|'|= r2&~N7.%lf!>Kޤ)jД*zfR:3ڱ"HIoK?NAu?5bzYhaK Nڭnn*"v97g$ضS_8-ӀtSISOIiKg W4~AΰA;ܬvgC>2E;Z3]Sq|Xz}($׽Avؖts!,-eЍސan{~v3oTZ fqLr$ng>B"=2CV6H'y91)!#T!7_O݃>}w.6t;z4h6݁!p҃\Y`:Lj" "B71жВvSn*>/04Wr &1 t}=ɮQ$?闚%GK2gV_J9tQ zpZ')3A$[d~ X><:bltP ٙzjZJ/C!;KLԣpS7Ѱi{l@ߥ;AIu=uòY}(딡_Nƕf8Ѩp#O.e CZ LXN.xU9r{B\b{.?j) B 2ùɂolO9&( Q27dOnݮtְ+t͖gT'5 cP5H޾,~fA}]:8l.0ckmؾ! b0' ~kqOL`|u~ thӒN?͕-a4Qo^-zr;|[|^wYOoGPԐ-| Oc>!UL&d&rW_ay xsӟ%>}X<4[.װAg"Nk;Rg> 7kFᵮ ,S?~OO~۟%z_{<~䏿dO 9#6 Om^.Kz;ϾB6~v9o~Z>yO{%eR //gt#>/ε  endstream endobj 139 0 obj << /Alternate /DeviceRGB /N 3 /Length 2596 /Filter /FlateDecode >> stream xwTSϽ7PkhRH H.*1 J"6DTpDQ2(C"QDqpId߼y͛~kg}ֺLX Xňg` lpBF|،l *?Y"1P\8=W%Oɘ4M0J"Y2Vs,[|e92<se'9`2&ctI@o|N6(.sSdl-c(2-yH_/XZ.$&\SM07#1ؙYrfYym";8980m-m(]v^DW~ emi]P`/u}q|^R,g+\Kk)/C_|Rax8t1C^7nfzDp 柇u$/ED˦L L[B@ٹЖX!@~(* {d+} G͋љς}WL$cGD2QZ4 E@@A(q`1D `'u46ptc48.`R0) @Rt CXCP%CBH@Rf[(t CQhz#0 Zl`O828.p|O×X ?:0FBx$ !i@ڐH[EE1PL ⢖V6QP>U(j MFkt,:.FW8c1L&ӎ9ƌaX: rbl1 {{{;}#tp8_\8"Ey.,X%%Gщ1-9ҀKl.oo/O$&'=JvMޞxǥ{=Vs\x ‰N柜>ucKz=s/ol|ϝ?y ^d]ps~:;/;]7|WpQoH!ɻVsnYs}ҽ~4] =>=:`;cܱ'?e~!ańD#G&}'/?^xI֓?+\wx20;5\ӯ_etWf^Qs-mw3+?~O~ endstream endobj 145 0 obj << /Length 2771 /Filter /FlateDecode >> stream x]KsW 5gy8!voq)C6I†"\K@%d1FJ44X4zu ,: >2HΓ"oeOʛy2Oge]%c-D*R{EX-㈈22"mL Ј Z gڙt5R oɔp,{d ʈ&S'IE0Ɋ1-S0 M>Qԣ:MN&Kq"Y%y\&sDF6WxvY4y#g4"F0*-3ٙ .*Zmv't J]9MG *bmSŘmǂR5ON+t[F_$V5Z[7v6Gw773S!Awyspub, [ "N 2^D)oNO?dRSLiau/İsc{g 6rV(;" 11"W:>YQ ("x ڞVU[!&@$Zn.C$wfy/|;d/RumY':> h 91w3yhMf@`G y% 96EUp4H [8Bq@]Ip2#d9||Cpj[!­DXďU]\[0*hIImsaqGn_4rժ%bp#`õOM<~I``/6WHV| s!b·WmVڌ;h)lOwGY̻!͒?~V.M?.p,ۡ=lm}9bEr|ؾ0p}bEvRS!)ǿ8MWEowts,Ӣ[NkuVX]/8oQ)nFHDQ8%CVХzܽ2]Μ SYj, B`՘Ԯ%:IC7UbTeVqՖ*=sc9@3{7o^9m>%nz@Ir ^ [L:c;ʫn1 5]`&6> /ExtGState << /GS1 149 0 R /GS257 150 0 R /GS258 151 0 R /GS259 152 0 R >>/ColorSpace << /sRGB 153 0 R >>>> /Length 104560 /Filter /FlateDecode >> stream xK,ϒܷ^rӌcKB"@@WI_! +#O/.gD.#OuwUeFxg_>?;^z߻woϿo/r'?__?%޽~{^+/xyӿѿ^%}oW_y޿o>?+D_gW+}?׿|oi?Fn{u.!#??믟xH_߹sGJyǏ9׿~7}{]1j\{\wqf.@)y]|5,"}>x?9~Ŗ~)֏rNKY便g/y=.hВ}@?~w WUw/ ~՜wO?7׾Hj{?fwKzD-=*-e1~w#OGV>?c/Ǐ9~nݞx+;=Ǩ-}e?.wvC߫r<~ůʏ=ct:尸.o~\ude~.]_On#s=c$kYcؽleNTnn]~]v?n;\Ecؽι)OT?wO ?~]y\~lqw?wϓq~=nuݿ>O>~^?Y+ͯlζg}uy`kտȏt߿,~w|>-ٺq<<~Vf7ޮ߿zi~Ĩ6'H߿'ZkO*~0}B|iYy]NT~?"b\߿'E`u"c7 ~Zo㺞X=1-c\zY~u"d\"'ErdqN~hq2 "RuyYʲ:X˲h˸'^˸'^9#^u>t.'^u;4'^8T^'^>+%x˒x˸'^ORIbP2&[d+l oM"~P&[od+ћlEzgo5TVĿ7*~d+lE<}o5TV7ي&[ClEbMxbM|ybM7يM7>d+ο7Xdkykܯj܏yy}~}~q?j|sj|s?k|syTY_ϻ*xCUzjazcUM?s]~jzJ^w)-{Kc?5 +?[mc?6E}s-/Z/'(Ni'E"?>B{7㛏ȿO_|潎|E~&͗ɧZ'z#{#_k||n|\||||||||\||Oבoבu:sO^G=pϩ<{y9+u3g=z笷Sxꥳ^O=^/O=vo?kzS/xɳ_O٢;ߧ^=Գ-SF8pq{6`t \Nޔ)>)SG<@SvXh!M,"@)1΀=4 _2J/>}!ObmC^?^s<ϿlΓ=>e>Q6ǫy2=C=nߘZ5]$mݟ?|>vFq/U|} 'm|>ųOF`y7,?'нH['J{)pRjzWK79iZ]8瓧[;x5 aweoϙvU75 v">%ńe6{<(y{lh喰dP, Ik55|<h8m4:>TS,# 9}sjHߌxJ, >Qhi=kO剎ŰlҾ)-/_SB}mA`ڪg0J3x ;[5E! 55e_S{"/8'|_h`egXVhՉ72'p*c9(n*vQd]ڛS߿P0fDχ $B&^lAVԓgϠ/e%7Qyv)[vsXMRܔ6I|/DvsDg ў`o1˳< -/a֩~abt?K O-?|)< {AgT|ى?ǫS Nq3l'vZ_''30ف~IkS'ZX|~$+՜{^jҪٞy>w/x/rS)XÇj6A9љl{{y!TgߨY+=~X(+,fXSS_"嫹6xk(~8eN*)CL~8\bPᤷkZTxş<@Nȋ1.{{2&Xzެx5X6!ekT ko В/>I3϶=ZJ\t# Ck!;KH~SZ-y.&֙T: g(:]ɲVBpuSbL%e'fߵYUBmXf~^_ kao'5Ŝit-`;_hWU=g#?<4F>z6*'۳OՎ7#t.([kQyhм}:MZ1q#t"zR `$!618!%-uʷ':,bXv#!TOie.x Bcgy7_ݾ*2)fp\X< jX 7( ]chWl//?-z2ݺp Yz.ƊI-cӮ3}N0=-F=jA̦`p݄;LIyi:T11;+n^7CTAU4¿t~jŒQoTuM'@mȰI,f̞ uOLSs =l߅.=&>UL<X1]܋'NDh]獷..!Pu5jMkrZqlycd~,w, B'ϖY`G$T"'m۪ sgXqevz+يJԒ>eA_ҡ6XCɥ~]ʸC1:cMg_!yPWp)QC|L|գE3J!K3}xْ5,*V zS6+p*Ըf8՛ZIo+'WRvA7QNPMQ_SG5(RgU$),U9ѸT6\DʬȪFnD6m S"iBAl ïgzSsb0>P{G*B9j~>.D65:k]ӴǓD߳*@<+v[+ cDfߙdHOxG ZG =7Ş mᦁ⛀B >-bGkP_CܥcGPNG,/HvQ*$#lת^HJXڇRC{Wx-pZR=zMo/B6A#"ѣ*۫>ԘWP'wlDײtlkl dlF9^xA>x0#۹}vg^N:HkJJ縛ӈ4E}Y I$ }tǣw5 5Kv*7ŠytRBfFVOwg$+/=tBR}T>^wGeS,%5uW4ߞ;佽LHJg"',LwcQH̕s]щ4"R LId }>TV{7+6tmjwjTQ;< :fzna˭bT:ު*)lqW۳56VOB3BHym:OSjt"c,OǜK 7is)X<7(*Lםp #":`g< 2ѪY1tخ2>(]T4QN-FotfKpA@б?!DqC;)[ϯAs?c--%YBq*ʨ}H!3JF*'^hB6InˡۃQlu0GnNY<+_ّ6TG~H[ {v7H.. }:#ٴNr$n*7)x ΖdH4ieXgD )f̋B:=̍A$Jez%J }hUmԽ7k "ύmznqԔ_Qܬ'4_ zi=z/Pqg4^wE"UV&vt _m,;=!M1G'v}\ +vc6CC\8 6 $:҂b%})uTPE? qΧ4 65uS]@ =̰_xv-`c’]}q3wb.t]uOIO@­Ck+Zuǁ햧F5tTeS'"m%zu̗wdžoitC[ U:#[:ђAlw^}Eܓ645 Tq[?QP=gi" AXbBL77h}Gx;.?T-x[l&&OK:j9]Q2#=ԧ`'5L:sO")uI{=bMT5Ъʎ.Wr݌0?GZxI$FN["X\69-1#"|!mP-=uD =62>{ʍfъN=3! 8ntaîZ~ FFUu%oX!'-TA dفEb'-4k2\.$,s=9`ؼuE~Z,\2N+QVllY6 ]K`_Wnn> k6ݼVVvv~Iy|b >` tIG8LQ[gjY4iTy]:k$!L8ncɩjf^YU>E=",,W/-PJjoCOH㠠su:HHP׮s u (+gu':rglw}Bǁ@C*BjxMe2n"2Lo(O!Yj}&?P`* $swc_4I/Ɇ7l-lTL;d1 qNOW(VzbPn8%X ۋ[SlR">\E:b\0e5xR;HdSp(b9/Ca!ڱPjՊTU~清l"C-X!v4ms# :oQ}-(Blºu9x"FKr  aCi ;{[DR "F;0D6m<]ʉd*"]sPcc-WIгNxYV~M`2 8`zM-! 2_,ؕ,tCin:DMgUX׿K5$,&0NY'$p*v"(<+"~篘 Dž壃ϰN4r#k^ 68r{h#m+qɺcOaiF8GX[90%10-:ǵh)\ecge4H:MvUiJvw)/vSTn ~;[ݩyml[6弎£v 1MuB>5A\Bȯ5MFd&ly|T6ޞH,Lg>I4V|y@5K ;h>c {B7r)Q4`jv@^>I8Uƣ r6vA*w25U,7[ݗ#j}*Zg4i~Nj1x"Fx4v ո3WMMZ$ܵJyb#\'!6oF#8eMLX KM /%;3d:ꉒ`?>`??kfyKKhg65Uާ||yj/6:9[l~| ]CȨ#qKG+H$gftͰ|h)r/CU1`ª!ψ>LKFwpȒu[d9Ph6jkQrDVt1ĶΆC8?QX'!9$EE)54l~ty-`߼4AoPƼmy1[E {k\U mnCwcZ#~ApvQkwYa[, JG}^84!u3=ig"upo;onGGi]EgEj'\4aeөq"c*քAj U3D2;mX3$ =]l%O/up֜"j5q*}Hr3ZM΀s r1XsA87|H>Y.ݫ )oFA|3294 e,!BWv*{xb:̒eCFO D gܜ,?% 6{8aqq WoKC &4 7Жߗ8/N1d*?7!Y$Q:: _Cێo̽|шbF4 1j^yLc\ICӮq@N Y !Md?KMnbĞ6>lM1RSC׽HGcvi*+Oc^PQ foWJdUPhϝ)GX"Ȳ&;xvJGm<-wǴQcՔLrg3:onhx…J42U:Gݰm W<ČI. [ԦLK kuK!:Fh(bhM'ˆRVDFH73"#L^Ys:/%!ey.[%eA> r_xc#Lt|SC_2ҫMܤW&á@51 IŰ-uVMPJ8'gCs_HsҢ aʞ`=nEHlz[ıUJrۻhz %ܕzKa+ ^g3^=b'ZdΚ: .RP{<4;{]Є%>b ؤWlskۻ!3@63lOE,Vse2Hrj?XT㎫.4ҏo$Q |*} a}NëS*>P_ SO&F6ݬ`ylN&Ԭ)l{2V@#Up$B]25nɭ S8|I~АA&CR8`@->VÈb8Jopbw&BuGM݂2xU4_.:eH֑lAݾQK3W4':/~2l}%P[x(e_k*;ByT3a{h~(ĘX_YS٤-BЉ 1ٗ496kì%FqC?5-4 Y0P4s$D2%@mդ4f|사n[:Hώd" rK8 S?}{umjQҸwlkV],tްA6b!=#TO6N16%Tԙ) .6N8>;ZtX!Nf=aj$o&3gZFMY{o!_S@LqD~t"k$L @-ΆZw^;Q<6W2R8T"xyN=F(YgrGn2D mAP37OvSwQd"rމ0ֳt`4 _j5t;XZMy66y 23N&_ݘK3S((L. !&ncg,e\h$ ȉ0.н8bMRvkSDG$z%&{ ck ̨>vfCrT(LDء +7Iފ@2bGe-E d lR!և.(~Ԫ$D [MoGE;V\VYy #3Vmi)SSqL',{9}#y'^Qc4M u?!J8Bzf9Ӊ0I> T( ڳy5<̇SMA9gk益dH'9 aǪ_ZquEr;&a#ȱuf\^?'FNF:GƂd*g dBb!t$.C ^ǦdFC]6'e"ᯈȽK!ʭ?6e{iٌlMB{:VP!O:j 3C~#p"Ucg'_v0]c:1O[v~Xc*y|[Ǟn,_Iqs^4t>D‚]m_I<^DZmhehp7T\e]8܈*~;\/m2&?kGJ`z;@2ʟ1g\ϫ/b7gGpٜ5/; >pjl>buEtZngogqZC]M,}}eJXvIȄI?+~<_EoNQ A`mW|G25C7`. |jz_8D/,bBP[UrkpgJɁr CۃW`kznXFqLZV)4tpNlC(rt(~\bKP%`}eY-rZH+zu<cQ(:EszhN6u3 v&v5]Ďl\w,iqlb5)\B˞!(&++EKyzhuAa=d9VXb%}q,һ$vgHۂ6"'ud?YTGњsqmDp,d D^ jIUfI<"i*Lؙ܎1b2me*X/稯Np<6u,tVi{euta; GKEr@[0s+#b4bFtU[XlKX,?* Nq:Z3GQ2Yq̢5@q'l> 9M;yΙPt.h|Q!F58::zoY89z2IOA3%RїJ}Y5Sd\*VT d.z47%tq*FRY]fg.6aP!k\58nr=LVtgLO|hV(! y9$= ӌ&u kr> CIyؗ=zdI7ՌYª&SB^MSCEE=(71D#*_  7#] |k쩂;(: &Kx3Z[Pdǂ.+3DвpK/(qp3э%7#1RP)p&UsXRYk4̩E;l3:7 ߨ*[:*|7C:X{˃xÔab4T(_xKp,jz ^g=߼BY&s41|&Vy0A1%{:'InK 4PQwÍ+I, i3G m]6;; y8pd2u I(UVYͷH 3mxTJDCUg,wZƖrI{mV= A)Ev؟,Χ0_rsMI seF7W;<*|o:k~YLq<G:;/}∀$I3ޓDRSƲGS72>vvVo4(γeIȚl|2>q)Sj ЪZjjq>*zYS geAȐpm3/ZQ[nG#a\qjfŴ; >q;}tVT4M`htդCImQQ-+Bd\=jX{c J +eC.3NR"Dfh OKMBƳ5av|$iK"΂j1dτI!'!Qzev_ ["̫PCDrAE/9<`hGڅ'jߟ5h {.vwU? VիO ZR5Y{F  1/ӽ Y%7UtԸr&jgcU4TOY@1d]Mbqj.Zt#3OĿPM#UQ uV4o"ַ:yoHXyI0v 1&` dbYHPNAp(T(ב1zw@fUщ4|(& 3W"2+QZWWnL 5f,sD;%eܮR yݗkjSj 6g@vNQp@f!O!{njl Z_AR@]%4kvq{na;*F=.29)$bIMVYYVj TmpɕK-/"̉9[E1vq<>-9br|c*RԼxǝ;Jv8:mVq dSS,)"|/|Ub6M1={"j&r$dymK/0 C&8%hPBryY6m ;/~`:^CŮ [IDMΰǸ7>JxT4O̭YrZG7?^q!\YwU:41F2lCJ82zwَ;~ONL{:#E/ȾfVx kdj\1Uu_qzgLYB#*δR؛}Mu\ؿ$f+2sF\%w^ ]"LW*PON*"ޛkBv+kX8Ğ'!:1$A[s/IME6M>>{zQ+m<}9c9uJ^v \$M"Froĩj >CFD5I;W;ϤĊ_]mR9]!U~hRu [ ^f1"=ʉzo[ta\8̓2j<+L#YD]XV7<VnbDL6t†u1aa`٥;<#(s* 6zUBH4RpXweFD]4b%4pAFq=qJ84j" EΈy'Co6e\jlg?:vl +nJ\Y]4oѴ#ޑFp:6iم2zk;Gf}LBmSjvKv]q$D\@>fgrZ 6EyuEn"XD)4^r;‘ec e6^> Vpx3\[2&S9S*71Gpv*OR/]ڤ=3gWO! 7.ǓRomeTdЫ)CX{m,xfؙBUd;WK"(fzf&"Np,Dv.^3^ZBIG=Y֎kF0h$c0Qz-5̤u$>̇XY31d>yR&fdzb.,w'3ϐ| º.eԊEgԐE$' M++Wڱ'$crC-EVߕ!llh 4MvpsEa7X O2Sy:1Lil L9uJ7?)DG]H"@z~QqjXyG'NӊʨqgSrq;ӻcLB!Wᣝn&Mi9,)Z:/䐥U:gt{GE,6n+I5%na_m](#ԎUt#ceԥJ|t3M}%*~O0OVD)n p1$]Pz=!^w 1ȊD~׾dgOހ5lN<z{ʇJHf`e Ei4bc=Ge̢V˴ YKWV_. +'~\VVЀ, 3?4U B$*c/lIvDc)Af$XA ;y}@,-eIZHGZ0,OYr u,Ӯ<`k)پkGa;pH(K㽭WSa2Pl%䒠Ljd?3E25|/[('rIrIi+#ML[BK50ӅTQOZK-PI>6by, UسX)-efQJa v6>KpDtYhynu&y|$&ܰPYbr[HV'(ƪ&(3cGACI?a&dcT_å]ŚNޜѪfG $ڲYvlbWbX̳꫈& &l3% Al qr-ǻndIL'n),3֦dqIW/ny(.}8GIN2j V=4;]Eۿȓ[Q6$ܐ)sIDCU'16eN#^j>*tFWu&ZXW=&ѭ:í63œd/xl.,tAc! knaC*rK T|ͳ_Z5 "h =^{|JumY~JM-$D"ux:aӯˤc#'Y0dAa{g!i+FD&N!Ft ɠDAyQvgSԎ :` NjS,K8Wcڏ_+G3bmnC{u^TvoAkΙ.w%v ς J7cu`[wyJ{Μ^>Ve#'b`maLjt*pCdov(ޝQ>0 j9E5d$KXdT4,?j)</1YR~Ej@AGCmK ^ j)b|NsÏ$ ^s9EhUFSVFJKgȫt5ѸcmS-xx $K?#"hY#TnG .t±x>%6t+ԎW ZS L׃|H,dVث [,كIl$`%+7_>JdYYno|ݰSbXNf\g8I]Jt+C@%&2!vm)E[3IS5,s\3 1i8k}{?ztHRJHyLU:Q1V,F%G !#)15yB3h t1$b&r c"i#.Ls}+F4;:E ?UTS켽%}/ĭ"UM]4鸵RbQ(5^3uq#9D`v?+fzrCͧ2Vlg*b\jEi/,da-8"в_\4ʖm 4R\i\OCUL ˀX+-hM1w,Ki5×Lgr( ' q7R݁t,lmBɝMaݒ"0mb}y1\jg 5%Ju$O@ A:cM} eURk \lg46D aLuFY’jSSƑBk9 *g0cW.?m_wZ7Вzٸ50^,`u=-{ܤrYPycg8H$ ei.)U6\4ΐXId-+JV.hӪgh;ġܱ*(ua`\x#Eo[Gb&ynK5CW-6}]If@CaO:tD1c9rq7Çt\$p=h=WFawz;$c}>MJm#58`3D-sy<^k"1M>eT.b,AXrd2O1~Lz*1D}20(QM84ϤHL1%iRJ-M.Qó9"[d`MBXGIlv>Z| FL6gC$9eMqp̣\;XFf'0y<:p\5*b@O~~c.П)]>9-,&#AO%NٙP.ya7CZCǮt dnu1,6V[MIK  /񘨪R,OO~*" MQ&v)m: (KRgVr,M+lB{$6?>wN."9jgZR蔌%c͡ <ˇ,&xJG`Ђ1Go"u],x j Q]m>}s2SD*S!ϸ#z,`Ց{ahQ9;*x7aO4r z6'܋K$l4L2iø6RpO,q Tm$/$Mg_?/hۖLN]|{~lK[Ya Gƈyxa)Y1q{^TXqHj&6C(w2\ X][lьrMT68vpv ZQݪT+FO4qQ4rzwgkDq470%vr8R,UT;c@k/4r#ZFUIHCX9 5]\r ]qbU N(tX3wh[PIbƱN^.z=q,bHm&0CdA61ykS/;}3RwMy1pܠ GO Hl#zg-5qL#bV.aY.F^óAR14m_J"O}+R'쒦 =Gj{(dP9P$ϾtLJ+D)ua; X/sYQ 66OR+V˹!8z]JDŽ#{\=BqrB-' ļR&F F2T3!,pgaRBZFkijݬ.32uT//\Mzvat MhFt+ l{7|au34ԪTam'ϣ)j3 W; 3z;2ݰis %;DJ%?R.Hv Gq&2<,>\w.Q׉gf$MDAQ"1ŒKe_HE/ XXZTS3]y=K.T"m1صL,b}|Hh8,@;k<x*dT0Jmë1z3P@:WՁ *LJxTe 1%&rGyJ}éR"ԙFM N{vE$gp{i Yv'(T`]-h<.] %N%iӡcdN.P`)Fjq!)l U}ƙ[C9c@&dKj ]ȹH9PQ. ag_u-5-y#:]/vetqbaMU G &GFJfl?q7JsE|bQpo=p"4=ް.}(P]mZtOFײ=ANJydEuwm1ir *&Y爺rT1ԉ4ڈ8A~dCRiCmx С=+V86R!s-#cs1Ժvr=r4xlIW﨓+*/,p6 )Ѓ;:XL3 8;YOt%́e Y*9O<Ȳ6VTYǛ{[5l^X)}ZeV||,8~HA+y{̾򘓀.]rZ0 –C˜";X_ `Ρ 6흒ћHQD `F)dFu5DUFZ9H]~lw2jAy©V>i,As)`lmF9w}[8pxo4|[Wk/M+҄=R,X8%La ^DҦSW5AN?>sxяI8mKߤ$t1 ڱ1ie\Fkaׇ/d,ᕃ<@GDbf\ဇSdjdVr PH]B50p5r":U[p%V}٢6R$Qf1fԐئ͙Ԓ*|tv6fu$EM@'V3̍XM.ZE l%!MaN]ɳ6y[3pE= n}Il<, [@QUO, 96@ Ɠ.drXt|Wk94uZhgd1[a}Oс::]qdȚ YGyS}J31o%B!=]cqp[ /BCݰ)D\SלXPjf6 ɖM݄*R%I긭YtŢ K&C ޠ\u5u& {dj%(ͬBV'0|rSOYGdT@E~jLj貑4j)ұw5y $UVq1K&gTYʚS7릖 LjQàٴblؒu>_%kG#ף?}<!Rj@#6%OCP442k3IM\"$("$Pۍ~5%?~WcZb>AA*Y8{).x{3o9"-u.C{%JX ,r' ]inVɃP-āu/mY :;x|-o"3 l/4#3H j]hQTQr@H~VdJmKHS]0_u*5\tiuLLEUZ)ה r3I?2Uxp)N56&Y %vFf~}[VV\NO@Ǒ#cӇ_`97]S,QpS,\^>7VKDQXSanC]p(mrnWa`QYXƇg;j CK5g@V 犙*4bᅳXk\T!uglzX;^[*ϯXMܰG ! -?k<%S#>g~ip*+3bxFmV< 7j-6%mYyZ6KUeJwqټCU9>%O֯ec8jwhdNHNTWZ\ .(r44r1!r /dT*6'qpw3R5mAtp‰k٦l4V0_&02hd[gZ5i>rIE{oHF7/Ih\w!Ґ'ԗP W.F U wuNS c]!p1!` 슾SVh%r9+bi %ZAa 9`tϭQz; d`ã!⥝˾ Qh=&NEN8:״CCY.84# J>d0ߴ1G<$''a5QzsbSu7~u-Swɶ9: n } elvµԶc摝pEi= x>w)}#VtbStp"0)ju" u]52G,b')BKi_>@ס&ڕ ڏOr,Pz9ƒ_(AU;4Q $,m(gL%TL--J7}4X[/\!cM;yz٭YEo'p쐑Df}Ι"=Ch~0V3JLn*oOmɬ7|"bUjNJҩW> sxe_\>F}by;&M};fL.-+j/Uv+=A],h<ҷ( 6_4"h7H|2o 2@ռFvИ9 "USPhsd^_4tp#,IXV1܉wd2-cw4*KD b~()uv\JLJH@-dJX>$OY$ɤ#Yj t!-ܘtvƀ ]Dny]CM9{ܢ/TL|vV4/#_"\54qPW&ywZ#K|"HCp(7UsZt; XΠl3~'L9RƭlHHq7gtS-]dmL]4Fw{5D+=!)w'/xUTkB+Kb-l35k;kR#ym($Ot~*ldHƖQ$oꥭLC] .xoG5GEM sL[] Ɖ遺v6߱;[1z&2.n& Q1BhV9AKҌ?Vz&}i+gY9#yV/Ch\p*6âcUԎ-qZ=C?%f0pp^}9.Y ' _UD9oc7 M7龤€8xlaS≹B13jԢh{sލ>Kp:'&Y1nv ~a~z9;R44 1yJ"q !I!뉰޸jr Y-Es̡H"l: )]C^"ZM2„GGF&Y9&tNc߈#>-7Q'#<+CԉE+Gaҡ^&3}kXP8m7Mu*/6j bq8#ȷPYL&Τ$Yт=dyȽCr\ݕ0cczUE l[֋-:A69X&5fh 杛D&Z);w֩NyUcgv1 ZpI\4Őse'aiS5A55bCwm8|lwi1z.tuBk+Ḣ:^% B,~1f3 BNhNG4+Yd 6Wa h{8qx!g8r8 'Xlm~۝mt2/`OS܍Vb:D" P ۆ0&5(Z13̩D~{ϖ{(K :`wPTkx&@$<ۋ9!lqhD{r1 C'S#`S- bHx0zh֛i 5no&Gi1."J:FEÈ4枖p7vqK b="#= i;^|bghl]/|qN!i##abؒtɸ.,xR$h<#hu峃d ~Lrd`+H }?>R$X!.Θ$xx+}߂Y&iW/.pw(0tqj};[5b2oϔy"a[r"4sq6O4q%A1h߿s6)T`dpC K:v&"HuATU M!o'LXC=sqšgfo1b+^503u +,."1T1fIυ,fzKAZXX7jE(ܙ"j:{wh5 61;?ڈ ͪ@)=~I'CYv22 #n}WЦ ؄Ij ݣ_iZ4ʋ{oC]f bc,1K-5:c L3-5;S30W?tUN17 6ɺbf qow𚬇(&bXˉϰ^rJ>0\,y~LSơU4iS=:,{M_f' R_iOŨGˆOFV nwg6^6SAƩKwYN1_ʯhsOƷMN]&K0:}گHZ:.~+Nv[A7鷿˶l S*Ua^RbxAWBe?2߱z|$WmU|{.^heV|{eO[u:fҙ};:y}#!:.oͥ}\v8%ӹmąg˿ÿ?_5+}/<_KwyM~~wy/]B/g߾/AJ|׭oß~k5BBEU?﫶~<_yC^U~׎|=n9+_i_y+ߦ\+yY_ӭ%%q]/Q_Q͏Jϸ h+ma?K~?ħ:J?=N#?o_%7]O?///hqA?X/OiE8Mh-_ mW0R ?}{B{] }oŸr^W~z㯼/|_n]Df/|sǖ|ίiU\5Ru PVNIx|*%idbr st,PS6TюWuǵ,vx:w-vퟯ#vOYjYfZTPaի_m׳_<\Dv~Wϯ/j{ϯ/꩜ϯ/qK?zD[8ݚίQMs-3t~t~,s:9۵8$Y6 k JZՋt^u#W`؈b#S8O)6h>؈b#S8O)6(>؈b#S8O)[Eb:Xo)^G)[:O)^Ӻ>{]NG[m]u=UW[Ebm]u]W{=U[b>M]R콎R콎R܏SQQ{J:Js}JN)^ZWb7Y/{/g*/Jr˸g*/z2g*/z2g̿*zˬҭ׷{/<{KxR,{/}xK^{=~YTz_fEQ:eQ~/UjwU)[ o)^_~bP}^xx߫qqq?y:_~WW󨪷UUϳ||wUz]/UໞwUza^w=Wիz*F)}ޗyj}QFpyk*}ڜzOZwi/(imcl5V:ُ[gnQ/E}q9Z' r:OZ@i(yբ:Yzw-sy::i 霷-sy:y AxZ@s[ooO=^izE}|㩇K-SOE[ucjZo=[SFk֋{O+u9p\*_ջ|[qAmu~ʿ{]^(@ z]u @q]@!qT~=sz(&jtO^uk7\ c{f}/tK_o^ϳ_ 8{~95gCN?K^'4A/^_ _9xE/^__Z1/Sbz:s^ws__<s؏_<t"Ew ݊L4TV;<|pB*_(ڭ1j;#v uDpm|/aW vlCWV'[XuNz6V.-̈́)l1VDo+lS,EDm ɀĖnc;>si*+El#Cu5 j3W D i۠<.v&P,$XL6sMhNJEAS!uJ}f{cahb]mДA U)M9Ff^;ݷ9=ls*mGrݥ߫%ɫ*fгIN?1/^9c~f%t+2ɢd^ޢhk֊ogG78[NevJNXj ?#3=_T:Jy+KKE- J)< zgٍn}m-ķ-gʱsiu_x} oY*:pjxk1jH?+2qZ(~|ױ& D?:W*fXB jSIX{tVVtL=]$v(/Pĩ/s;xWnuccywAH[}Nc}A %CM;9t󭘜lB@kȳb D#cCݪ.-niL2vmSԜwDyQ(( N3AyGQVزjhjgGSkDT؈TpTOxY%ӭikoRhhy ᮼ*V htu] ?k%C(oO掅LMr lS؁Ȕ J8ghƕlˤ6clFnB |.0 4bwCH?poT +~Kǯ 'x)Hxz؁} ?2lp#:./Ortapk'?scnQJ[8s+l{0и.0һ% 6ר,6 V}maYQأ,lLY.Bxƒ}њa $~=oZ{pCrg@rdDPi7<\o߰Q li9f*kY <p}#7%;i fjQkPi 'Hr#gZVm0l#ψhFбЦ gnH0 L){$4ՁGۭP/L'xw kG;[,qq*^J.mroNŧ(<*{_/}-YTTut2 ,l K:F;fU"Nc HښQˆhAa&~`?x h }AZK3{ljzUNgyZVph9͂ Gur/ mᬍϓiu;j6EqR=Q}tQp[.Vl؇q8!vKkx[ېk9kt;}2>Z0uוoBvTGӎ.&bĵz{ ݺmp:FCq6?M:X{!Un)hK[qHJpXaԢDHxr[>nzj[49GejǖhkMb@K- ]Ip2XY6pLAIolRvOЪ1q ¬ہф,x`aYn_w yXp"W;w1Fm0]]s˰mϭ2'zK ضG1pZR"6yE_P[C$~̉ÑckrSV]vҟ@A\xQ3c۳pj a(0 LyY# js}Kj>gmU#o` Bn%Xۖh഍1wȈN FMi/`Ƿ&CSFDN#:Ś`JcP\B8Ύ8+>b\k@@U }布RW^ff/7d/LH@)8ayý:{Exly.9j41X{dH.JcV,Zafx ؍ @4}(q"{E&yf1Ή^KAG'oD&)Rە>.d0J!٥,&,'])bq~0=w}ьVERԖQOe˫l+fư|iz;(j'R-7A=ԉ9V.nt_"2trs4*T: Xޙpm/+*jDʥZ+(k(& Dj,|vPv3j"sǶlI7\0FF)@~?9N{4AL Ld93Dc0נeл*ŲQtƯ̌Q;b[֠QeHB"q%Qz]n/aSG[Iu&64 lYI-?1)PM3Z_upsHV2[JHX6}1`Q :YcP| $cQwNܘZ1JdG ꁿ׭ (z&î?Y=&s"^wH C{@JF!|tS>]U72?Yjoo06 Mé ΛiI"V lB9"7Yp;hKQ"ue bxgUԳNX $E/i9[$+$t% v&ۨ -Ki--Bq"veqְ P`f;&ȶ&S{ j.lgz̖7 R{\UN> uZ%VTn-Arof./UXa)pPk8܋jZyٝe\,{sVLZ]݃q % Bv,v g mlҸq|hdaz_1t%i <- d \u\GvvvYTc?>_XbA"۞*g6ѰWd2]|qF>QnZٛ`\Es%57S$I1 |tn",rxƽ.:̺"Eɭ$jgVd`6%-Ɗ2k%[h(AN4( *ϕNTE֚E[;Xgc[,8w*BJ 'c傴!g'Z ڄnH! qvXdAɝlV7'6/(hbkyqFY`Q2˚c<ʪφGn9cȶ%Ϟ9p5烅&ҚhJR9D#9T&l>Y#u1]xI2(kѠ܃.eV6voğ<@MN5[.&1|/[>/c1 XT~r)W$3{lܵEU{a7rVlBW8dU 1.Y(SV,bjbGê}au\\BµNK;JnixPV)=&TDfCe.H̗$B~om=@0D_̉4'΍:#u=KqC|*= .vm3',o6A"[.Noȋi3;4Yo*g{uJRz< M%fSދZ UTqkwoF[vF ) 7uR[R dXj6׫azRd"Uf\NyW;D;L)}Amd}-:+z!īk^An3N sٌm + )E[BfՒM fK >Lÿ%aK>p*텪7xcGPVu3*Eb)X`Tu{8FP[*&l%D؈xRY>0K![Wuŏ;\Bh. CRiwےޞ)F7j6pa)Ў22+F 83 GX.D֥{8JX3p?jJu,\ avN=x nSWܖ@`xEB(lp gMO9[ڏHW_F9٧bFvޘܑ*}8z}}47&+?TPMٝnjxv `lnI?OˆB]Tޮ)y-f U辉G WƜcUJA%1FHV2]{*ʚ¡K)#wB$G"|k|Z3+ef_hoZ#=JqqLկ(WsW-Tw nɷHM+ eYp_P#==E( AM e瓇eU>Vg8;*Wxjg#Td'mJFU3lrD0c .6Bp=;Fy{l1|^5>ȰҎl "׉٥PSP;;ppW6d8x*+gqſtUtϨ qs.SY#SHy!W&2@f7FG:mub7UB.~Il XwDz ~&p ]wu'񌵫yhX#f'4*JbѰpXl +}=Oz E.k-; 6K䡈ܔo.H İ]4쐾*^aaiU@`h ^"ޙ[{MVlT:3T2 ur.&?fVp'Ҕq"ބ7-(kke7t Eh/ɿk*V9U4"RgJd M 3+MoL >>GƖG,qC{NwbHIWg{{zS$znBZESRYGi5ٯvVͰň>5)xeʼefNbmc܇b8b̚bv{trLS⼖z*$0/KXfrrr@Fkђ٨76 <^0gUM焅ΈϽ*O:sj-a`{6a蔃%OAǺɢUNmX$G\$ǎ®*1%DKG\(+UPC^ m,;sJCŢ!@)+H]JLn`eR{U pը8gq 4JN'lyq/[Q *HKr]f.`})3oQ*:(ޣļcZHJJ/_{Hȑx ekQn0 FF j83;k90Nv38] h| ʋ%8ϣ+ $eWDUٟ+~$#Ԕsa6)LoYYEyI22yX0/W$cB=W,6rBf@>0|%L]Й>6ȌAHbʼnCzYFꦝPNFs}CPkEU3Eؙ1UZ6۫L{NXM9"ΉCʟ<ѐ'D xӱU0N6\bU 7%[=MT.qdd& `q;LhiLV. ,!_jrĖS9CB`% `H2IwyU%RS-{)Kf7h`%YdZI#30I (J̍*(&;LUlbTY~,/L\pƮڮNj,uFs S8<(G䘫|+]lj*oE= I&R :w@y#J#2a mȭ`dХB6%z//Z1ܟBaн3Nl! Gfʷ2.94K!uLHHq.ĬO3NV&ݦJ֦x|SֱaK)n\C 0 r#V}74oJBa~i4cc]c74#!c|1^RrMuUXvAbG2MqHlV辌n?Cr5VZYRxpHrk"Ьf6PC*y8~|_9#M)QTxl(K,a92]ߪף~Ha"_3M~ty*3I?wVP Gd}ZY]sNWJۏWNwC"lwkQNfivxUegՋbfGF2Uy߂ʧza(o_w4EL53E6MD0h^RH:vNa d0 }bd)-, 5TXI/MFtzȮ JK{voX0)03ƾZ\H>6nj.mv~V r_!)RdDj{}CvrlhSÁLקQ" Bupہi/5m8Lyds, 16<''&wRhT$cYz$@|9e[upZ5G)<I2JHs7d^PD_Z$lL٧d%aRw<"{ ZlZQpYnT@@t.L4 rK71zB6TS'Tn7n^d ^p\j^o` r7\(^2[/&h9hFwç=SDZlB&2mi:\|&#.x1'au "*}RA×e?y 'p3yfBq8bzW]T.$j,2J_ߓ90) K(MP::&[>b=T/Qa-ٝv] # O 'T+s}sU0žQd y!uT;lMFw#nbG132nܯL3mmf@utXm 9ݘ3e0ыֆNV Ǚ&/!'NqA%pjF޾є:;aW巶g4?uxNY .KdF,zw߯^=[LE5TW;jB10z{tl"-\?ݝ@:uq%Ry)Fb hq%ړΪT/'lsA FGÉ"_RtWena VN4cD0FXBͱMRobNIS~l4ZeUwh$3S&MK₎E:FuQ &6~&E"jikFdƸ DzN8FBlg'Erh0!ϢV0LԖBvTD M3,s?}*ln [7韆%g&qp/[K{q(\Y0M\)+뚜B7DpCᖶ'Dk.M6魕{LgD'P- ds|qf96|(bψ/$bN%)S)*d@3d jj:NEXx8fe7>C`[]' aܡ9[Gz{QX1h')4li5y'M%LlrO<9{G UC(ǚcbE´ML*ts# I`g4H %R|P1f*h4%_H_)S1ōNѡğovM5琪[ȆJUm ZvK."Tlx'[i=֑VZԓK7U{K,d0qhϖC fMِ5i zzqCTܙt%NZLw4v}_]E}` bg[R-$ԫL-Wl"q oQ@\Qg[ƽsREPmِ(uu>@_^BtfX*nUtɱ*@>v ?u4FA үq[D X1/3"LE/VK݇9.n4/D gT$mIK0ezmp@kR ׎)Σ-~ gk!;5?L]0ljeu ˢ8]f)H] YbSQ%PeLob UtuHsbdu>k *c~V9%ܶ7RnjJۘgcȖU-oA'G bmQȖ%wtjB9%MR5DM* PmP#Kȹ懓\lr_j]|U)k['s{]e2o|0br܇ǰ>o~?E<;`z0c3T!v}5NPDkEiۆBy~~#5&nx2Ru8mM?R71f3D%bG֏liDsAc,,tq[2Z1*oѱO t@$r~H>#K4.x :楢(fI3 ]JƒC/갴[TQ( %X%KXؕ{ ..ʹR'ktOZE*LbL01lOj-;$K=ֳm>;`XRwa&M4sɀXY vX*;{nLp]W*QЍz6ɩMgva^mMdF{Yϗslv,P%zBfqv.vϭ:'VN`*DobʃG쮴 v(;TPl@oʳPűwM3G'hw]Cv'pk\8%wp*>|c Kwm`(EqY ú档Eι [ mMlaqEy \DŽjRuoC?5R'*>s]NU!%MlXtյrw>{4" ei1JHuׅPmU;ĉjḞ}f@5xìҨ@ȁ'9>?NLO XH5.DB7kR'P%송2cNY ^rT]& \B-K8yLVYcWd~R@^r%=?Y?M!ôj<8?Rrnra֤"_n)hd kH1cK]@"W\w+10Ж y^UCYn&]>DN*r1HU^+$VT**Kl8uJ#tV(YT]y@9G*6/l$. N'{ENPغl04>ffOܔWCďyvtpN|_zFH̆E̯99WLPr|]*–< /py0v-:69Extv'(̹@ G̉[HUgY" NyK/.]$=v 6IjS>np_P6hEG@'jkzGt)IZV 'Iմo|.S6OmݹlQ?5"d`nc?F+[]8cj\9opjVi1ƭD ĭ@*1 l\`]Z؁OЪ 2)ǚ㋽N~7VF8 9hPAZ2 OĹV4(/io̊)',緡U6{~4xl:Nk2=4=(9C =P# I;n%({aQۨ[&$6;I@Ox N[qC5]/9} w+hJw3-Y<3&1m`5 [ } >1B{wRli"}T(s]_9~^%: M Aw2aMɌ^=paF.wY:)EgŹsqn]U@=p܅KfNj-nI^# (7AֺV ґ<\rH^Ǟ'>MvwD_[o 8|vDt)>}v~$g'ĉZkoS8vB^mlѼc3BHd.rE<iNHr,{b"[d$YMK|7FHb]ޓ3Yzs94Ҭ~F4cIȵj*x|FCEF}Z%i4:L:#S{clǿpɂY'?FHQmsrC+⸶&ĝ+1sysB&BeBbcd:9J7jEm Z;]@SrINwh6 U^UtgjڌڃpP݌O szP#T&.&@됡Dg@H͘ EK4wHئXi>NQL%*djqvk^ή7rk5l p9 o$%nvFC1'[~nrSKŬRM̚YBdYwRĊܛ";S  ׎W&<D}m0>'GC ;acW`x8Xw|j?.Sy8uV[8/N0({FTI;p6PVnnf%N@2eu澶}ʼn;99t2-hicU2n߷lP0? %MNcӫЗt*{MORV|TEG7+QV9kmJul i250l)G%*pxM9,fj3ͻ@˧GjDk^6g)ronG)gh >EIRCmYCzTXG5EV3x/@ZWӈJ-Yp`ӪN&է%rIDXȪk!dmFd6\$V *P&j^AG8l [L} !.ZSJ Fws{QO;K!e^`:ۙ דKAQxi(M6 -mAuɾ#mQj@[ϱ\}ԡkz7ŗıDUH'Σb-T% xIp %BEPpBrhch|D51Zr&^Y_*>bbj;Vl%)XfusrR$2a)eUv+1}~F(\32_NJ]%%:>Ghэi rWin$c CXm܆#ڡrn;CaR_ 5YlZEXF"{g1]-fNDw;TqձR d_ut"N'(6" %Xj[VCj6v5l5>lfOLQ6gө1yi}G¶Ľlvi0"P2X=ۈ+BV^eً? :0Z5.r?3! Pg%EAGGFD #ϩ"fX|IU֐Jћ!ÄӦNdSI} QDM!>GfjTIYbIz9%a`Bv} &,ZBB wX%;H[+B +Bd>\?'OZZgz UB~kM>#v&UiBYˆBm|8*7eW0jP76YTPT f Fְ [J(Aupk×xS ey6qB⩒78%)4׏X#Q ZcxKQbZ<1_aD7#kD-Dr3gn:qVHeͩ AC9;jIc&Ed iJTl@-:E)gd^pm?arF)he72n¹OUdtPRХ wR :rޅN~^NGK&!MѺߋWō8Sv,qK2xgxu5aF> D 㤁f@5NgåYcZFeC\YRK*Z‚+7WʡcHuO.gfc,[H}f{F \ˤtf"Ž_;.#F'KI =c`)ĶKR\nP8lKc/5Q`$&JRY`’alǡ Wo[ i}Ř5-o&0B<uqoᾜ14OV7X d!ڳs&/8 oQD֥5t#Ynv]ЇêTȋgeYWp,/ia`a(k_nzQb(.OKْcuzaDa8 ȇLC6c"%~KU;OS Y`ΰԛ x Tޡ|~1 WDl=U.@Gծ0}{j/>TR\,2 qK&JtZN-J=]CYL8$g -yT8C%,^pw<4e#{6KJk.v 8I<Ƹ{ayTs\*NIb+\PmIٔ@p!%"}ޒ?Қj$.oY'R`)E좪(vؾG|ꊳCiD2{^4?%IrR\4%! R7Us 6Io0;Yu?oOp7;v\34|Ԥr%(uYR%[=}V<`x+H A] 0lP%XXA]"nC,ٺ =¤.ogp>ݩ<C0Oa a)N L4){QM*M@ \JUS54ղ]cgB`ݷ858ZVnhx0ā ?X$ )^Jéi,ȍ%)'YJț;8V3M@?ԋ,S:`oBE0 D.24@P ?1+l,KR9u5I1+؄t{%jDmNGޜEdO+YcD9Sܸ)gQHǭZ^3Yw61fK; arXDc"^+`%Pfw"N\_Jj ӄugK1*XWɡb RQoXµYٗePpcs42Ɗ{E{v̟FD!lR8cI1ut GftD&{Eh];G!O<9En:b"tL mO!I+kH*X6kQ4#9 HtU;X'Ձ;+6=)$zwt4MahW;= !'WDT|sRXCNd/cݶ% Z_8_S\ ]SPT2Q#5 faqw{U=sps{Ǿ2#z)y2VX9$%=+TهߠuoW= *mMnPz#_\#P{+bm/nS cȋVi(sH+k%Ug#.: b⿘D6Z z7 rp ot:@%2^$%}xi:}:j:8yyn9nBSm;GhѹӐ* Lxc&mC\:pn65fC kOBWoiM=!S[/aj;uFΪ.vxNz@=*oы 'x>5ӧaus|N O1 +~lTI$>_H9mݨ^gY e,#Y&>ׅpbjhB;Ջ-hnP}Ouvbߙ;oGg-2qvkݾpu80nqC2 #@= o]c/[jךSIdj`8TdFpn;G!|bé-78TFv*d]U}Hvxg-qOf({AzFT 2CYUnwлUsK3م:r+#E*a*=vvD ͦnbRIU;]Ivvj:p+@#lUGgg+9r`M$Wͨi1T K;VFq4S*Q^b=_8|¥02)n.,eLj&/clK[zkj5R7j'쮻EkqK[KP$#xuLԕ,-jDֳ|Bxڙ2~7眊sغ&4NJU9,ĩ`yd' )c8=cq$cq{Y.XH+>7stEZUۢc$a t,ːqRpnRx|P5L{)cy<49d08t˘K&8Y2 F'kR/q$,횢e7h 2T/VQsrAߐS4iVd"]0UBJelf<aĻ&PdAc*ԇJI8G{U*q`mW-2y@W d1MċFуlv*E_5S9-.sbРv:CPE(,elzrR6*S:6;3%f!P#FȎ뒻!;$[""gmZٍAICC xqGBrW̯[d\i.F1Gs)`=f .ؓH03 -"Ye97 --i\'v BerCk>0",HE2('Jިl"G7:̈́ͯȂ]G7Mh+FBF_x.,C nl4Y弑颐M!Т{flZtg֩H,C\Du˶&Z+Ҙf`(TX761!cay :ʶN+[Ĕ41ID7#nG t˙o ns@.zOɒ5ajr ʲ*s%%s?g*x7eC3.G:DEyHE|^86/ lk'Ze;@M:a6mu{4mcjGo)6~-j,L1Ґ.x,P')~w(Az[;M)NHRE>(y$#cSQ+_ZԤ/"Nƻc9LvْnLTRmzG\2 d/*j ҋv$c|D%K0^JJ/Do ,N%1[%NY7pdMjx i;B57WeH!àm2 l|i#S+h{hn/ݢ%c(GIs zWyUKxiش [IاPsX;3礍]v'?{)VPnh_NdrUEHr\(޽{]/4X[ly4E;r35_U\K8Da3WJҚ_1]2!=uZd~p=3hh8<&pMktdw1<ԁYQAx{m-}0;"Ov:A=,gDEgS \2Ո3^D4CIKAjom )b->A541?^c`5qk,4:)*qkŲYC r $FR`jg&Ce7) Ò }5g'R5ndL*99mg,h$rvF;B=Ad;!2{hOS>Yw+f{*BCY*a:N*Y.EK U^Ѵt”tG݆':EQ"4'E!ncJ큨M'x!Uɪ;wΚ3)ǃ`uછjoX,rr֤|xX7dD||k!?UeTE_I'ɞ6ζA!emK[mIh]|u^6:(XYDDjDŐ.BZ&Hx~ŖmHNʶjY9y[Q8=m˩jl@,8DXQ(Ɔ(_M;vELxT!р9Tp<Ur Ւ~tpfxC?O<./u)X9qC^f@s=!A콗qyF,lHOoJk;1y͢-pKzwaW>x6JTPlINk.c#ޑcp,SQ?UmR/htܙEK7P4k2l􀨑6CcZhlfLRd-=$miq#@M6J`[kq]DbۯG @,Z4tctO!;x+9v5]6+!!1Ꮘ +WAQjg0k(AOg`Drޛ56PvOq>7p!gˆNx^dC;[VlTR;EߝyPE$I鲞;Q -kdz]Y,|v,w.iuD"9E w$VMd&Zt_Œ,Xi,KQm(.aMKc[X+'mv!e6,  -3l`ەA r7Xn +3ȝg,$!2:c,^ |xSBYLzF&/;HlGi9 UQ7D|LnSd5:0)D e -oϔ%c4w_ʯzXMlv o:[ L;ӈPҐ0a`ʙy?tQyQieNXupdvF4t78:Kޛ.,ќ]* WbSߒh$6<0TGS򢠩 3öx%F'",s2ر?Xrcs{>ny36rnjJ>;hs`cqBJ2(Xs(]# q́Fv6:oˈ-r*Z u#)hs'Qh,7DS]g^o-뉓F8'Vc0X/NUj0c&DM|f6О'3}/nhcSO-Ia1CsOR6=VΘ~6RmbDϯW 3F7#!]8Q>˕p\GiY**v<1q>3^'Zz}IAOՆVî,bAz`4#r"?ǹ eEƴgQIȚ&3K|3 I-s8w fD{O.!7.z6.m6 , + Wճɮ|1jkЊTRkȻj+󇟧lt&dɠ w~9' w>o_Į"Mςoc]8Co1PX/U4vw̡2m>Bfiqiuɲ(hY\t}ϫHrf}Qelۻ=ш+OH?u}'$IρFs"ȻbwBsBdԛoFyfGRg:Z a賀ɚ\tNrl[Fr crs4fXi/'*/z'!xcm^2VG+.]O׌j9,>߄jp5j#>>KA_NxicCV-{miɘu1gQ¦]3پmH{@)#*TO;6,5< RDK;J$0mM>(>{9AP%2U"<4״&SFڍ#itzOrjٳv)L2Ml5%3ufT<.reu?]cW79^dIDq-dLcי74r~5EWKft4n!.ɏU|3c/[edpsq{ֈd3M.тI22ɢL˜5ȋ}~ԓQol(5bU|K J܋آ;ɦ nqB\H+|CU"E6dږspjnDÏA6ŏTgyMqr+mV]9ޞ91XાśfYUDos:6֑`뺀xw?LWtlU2q-z ;lW.GGN SE 󒨸t2sלg*A4كɘU_!XEc¡ѡMUg$,4BJlL0̢>5 %|UW/~sB zNj#k$]yԌ`0N>1˻W듕Ch,SS鎣#v@DGL#iĞ[ CtKtb-oT8߫r}>#{/O7:[UJ쌌&vX95G!B"j?.QK%B2CJVq\8T F}Y꺆%9 H%7.@?]G1s. 6)B15BjjFeUdp "Zz]>t- oO 7ɂ(n@-_/QAMͯQ:&Rs~?{%__w??_???}7OUdcnoK왟xywۿ}毾]yܓןS/o/8_o )B/^_Oax^|oW?վP2Oר~{!s#)<{~~4}zX[o/~[[oY&K߿-?j/{_ ;7qoQ[t㷔-q︪Grt_3?layaNҿOkvrt)n2h?/%'] byoA] 7oZjk_}C(cU?kN*gN3]]GQ_7||Ǐo၏oyn]O`mɻ@[^"='KQy1Z>=%鈬TR֏8%MshDҜYoךʠܮٵkI[|Zcs]KsmD#b1k9oU#v-FdׯHnk*9ѮMђ[S?1n w]Kݴth|:Vs^rF]-X4ص&K]j=ZvoIԺJܱ۵Ajs.Gz^R-Ws])ҮV6Zl~wfu3ɇu@3uvݏKD3WMYZ-Nsʮem.x, guxv`3k.u] k}\l2#Q)odiNEefS[4*Z8Ps]3*m:R__x믯j"ghH-ZY5el]-3b}UՒ*UZ-rZv{[صQNuS ѯuӴ>z=__S`R.pԮKO3͹]-TQv=_z] xήAևg{ @7" zjqЌusL]4^s;3]m]Ŝ9+ڮ59®ˮb>Gb_"*zcӺ +^sݺ΋/kϋo_y1:s_y1Aϋ/ϋ/{ϋ/{ϋ/X)ϋg_yR;+4 +Iqfٯˡbyr++ +,a__m +CʊkCʑq3t^,ȩ >?/VQV:/VT ن ^ӆ΋U_&6S_XX/ԬXK1wR콎Rl(xK-(ņ:zRlhzKs}J-ņ{:Rl|K:JR,>ڷ{[bqR콎R,n[ŭKs}JX*o)^G)K-(b){VSRK:JqJ(()((Q|K:J:JxR콎R콎R,{VvJ[϶{ǻz[{Z⺜%Z⺟%gkugkI*Z:%ZJ(~DIWb^R,[S|KXo)-yyKxR,-yKR,-bzKR,-FʧQRlDi|J)FQRlDi{J)FQRlDizJ)FJ)FQ:RlDxJ)FQRln2J}Kj4+gҫ2J~KVQ:RlDtJR-ņJ*mR,wo)6y=،b3Sx>N)68،RbS-Ŧ׷:RljTkbS[Mjo)6>RlzKbS-ŦZZo)6RlyK-Ŧ[Mj5RlxKbS[Mz(]/u޻XMXC@^MX?>u<>A@~^~~{]S+yz(/ߝn*z9w??g eϋPh h=B\^?{@q"x^PK-OOT~k.yvy/ݷ׳_j4pӏ3~(5F߭1:9pQkjN?]cs`GxkN?_ctuU 'T/P^_x_DKvtU:[6?YLɉAg2> U]i54VAuk1-fTډ5kiR ыx8oN_C9d82ɝlrNf{|Zn¬rEhkm4QT^J_"ݽPh-Yf۶MQ͉!e@Z2#;3E=ˣEDUI ̃h |]*{M_*/&>S&3s jqZlo;pMfD7 )LPg=]ȭ1T99,pӱ Bo K\zCQk\(b-$k0v4>Є{Ko_kcekC[Ε*)J]P"w@7mc w9ɗ Yr 5*`|EmpX`s@z=7iϡd;SbbI[m|o<6N5fj^X~Arvo.v܆ y/d!P K h]8p--/ }jr}OV{IgOUHoWXP;8ɢ#\/NgҷTlfYoʓ֩98gS q $D5gWn<Ȭ2Ίh(Yc97 B_ᘾ1=ɨ]}" 0Bm{)yזvDZgT'uC"4 ςԾP"upm]u4-_C"@3nJ680haYcS!O+JDM|PT*K}V^#H$@S_ꉩlkhls;8T`|>8,$W>g8%l ,;?ZAzO# 0ԡڹ^)s9˾Ժj_Rpftb{U#몏v-muc5i;#+e9TikKj6BGxʚMYRL+OzDt*@چ'JT/f&p ֆך.0g}%SSCX-=`N;^7q.5oWCh?$To^8f<wczQ(jB9StayevE7wD$BDQ[9,C%!nCY1zZq7mctt8&f lo{WqF`v%IU5#WӉ]&=mu)\U O ,xmqȍJ4 nEPTXxǹ7p@#;yuCK'oEgކ|`Fq"&8l0NT0Ŧ~'EZ'xnL !3Do?O*rL z͜v¿|5}к,`}uIBY/sE)XwqD6iiHq.ja٧$i(<PE:‹Ā‰T&6FAI_mNVO3vژ! .!"|+ƿDW)87XY!d :Е3sS'rp$#(Ed=,/l5 Z֔\f}ǨH}YZc+!V/u@< Fؒ̍I]ru3#D>Ig,\^@O|BGȱGFДfdgMMɽ`X`>CŎ-K3X2K,},ZL,-l0 qBzڙs.• o&sӻ;bz&d9DFCB|aWڇʽ юzfpX:ʱ&AӒnZ$! `C˟:S&wj^1`WA팿8 R&Bv:G4YDT1vKwv2Mz?^.N RnҬ2@\ґRP[!A6͞ϼÅ {YF ]`KN8C:ODCç:QP>ZzG2}ߐ`c2'Td?}A!@n[6:H~F5GɭqSnW9Ǝ$fjX+m,0KFP~yk3N,|m;|7W~!bq_r4C rM3b"z  V.w+嚬K5&ѲiۼrHCJ'yUMO(5q zCYOc];1t76+bZnd(_ d @*7|>}ϡ|+j~'uE !Rg} l3 Zܚyibj= ztX'r0^xd(,zp)FS/Ƶc)Zi;uUfYɐB]nMf9hj'v 3Ƴ̏qWO4Ww$rQ뵩:uOwDE;7Y/> q pZ8'aHNgs;JvP7P|qq}zHǕظ/ >dU ypߑc{w Pnl Xa" fCȫ`c@yb(km1gU'eBNg͒a9WlWd[HC >ɓADC.Z'G/:^ iEaGVH8y)LFez#|2ZYՄR{VN\#F<ۢۡ!9dߖNTǃ|bW(|n/Nˏx<+#ٞDMQ v'Z8Z1C֤=U WG+rl?@@qH;$JI ?I*VH#֊=x-v:mm]F:o4b :OڂKNNV$=(1/kn!:xulM&f[;[iÚ*4CЮ;)]m@A'Y;b{uӃґ2z=GC s/bUe-GxKEFjuWdU dSUA&vgƴfbcB J:cx\˹+#dtj:V8‘#fŠta륊: F;a½nrXbbx ƾNq:KF߷d׸YIF<yh/ T+֗YքǼ'ȃ$5%3kƞE\ns4Y|f?,x8X3P)wZ4q$\5uj8pֺؔ{'K8[fV[jntp}l)> A"7M۳Fd\;|K C^3]Rɥ-S7C+(|_"[6rh 3|&mcѣ6T8< yjk ③ۓ2zUIelG+'li*ژp:Z.#86O[C "s>ɤCAC;FGKC*U)mj. 20er710)5s^U^]. cKv@bXWz#2bnЁ]24 +n,V2\Y-@g@~U;HBK@6HSVm Owogdū Px^A~M13ze]j8?oBCzD*Kl{)Y ݜF(;aаAI.c{hFohg95L2ilB }odi_c;de2 *,݌&tĶI)k|jM|F2tꔚ44@E6Cg:B("at p#Դ;ځ[d'qmm:_ RUuAFIUXj}5pj({ڜiDڭZ8_M~J\j" s&zp܉:" .0ϜC `l0 "ˇr,,'d }MԆ5=DXMV 9< ǵHę-Re/+*sJU09sM~UrTrOReψ|L2V:"n&e.1n2Wk%bɭ#.ܥƹ 8y({\E:-DIlmQ.oI n^%flJ!us5SK֙ppm 6zn:AdEZ2iS坵Kܗcr+ k?"%5(JGe"")o)p+OA4d8eZɗ'-01 F|OtWN=h2yi.԰ QCj!k":dVnx~[j muigG&gnA#҆kd{8aQxlPjze~uM*)>KUJnbd` ?զUV)T?KvOO(YeE3g ĭʚ(ugx]9UPLP:4FeMQTtr56V .H-[6ڷ~ G*(FpZkG~= 39Zqw+cylwPf[lwu&XM40ARUA)hTx6[#,,1!p)>>I|u+y򒯂ZYv(Dk ?ˏ%)F5l%2aqo8")UIo[iXz# & ݭHH! b2,Tc]iR6#;3^<ۯ$Cmn3\"{H:ݫ+l1DQM(J|2\f\,S|MZWU{ɋt2h˴ F\?<Ǜ.1wCUA4+9hե|چ.ú^K۞pղ >X+'{vԖH.t,ALmtL*U܉˘4S l=gft -'dF9 hotuI`p)(_,&Vu!%6Lv 85ec!d4W52ٗ^\ojxzk̔"I7(heĜoc6' F2G:I|?0s͡6[hݲn{74assM/Khav$;kV@Kct)\S8pcLtN2~6asVe<gu+Y#tp8$<94Hm`Oo Rv熃f74irdɀER1E]hghTPQpZ5h.vx~x gq[QGm|) @mv†h*V$.!yek6릮&ZyDkh!KrBp&X9at*72$E U TR$ĺ2O?TLk$7L_3Ru1Պ,ǔ \ gY*[]5fX|n kr~ĈR|_.TiY髦unP\8>4#!gLHAucÎd] RA#"?Ocj'{૤.RqA(0!f_hktG.VEnYxY0?~UP#y'TkR㛎! Z՗?wuْ zG# P+ܺpr_.s8pgĵ^ 'ܖ`>{Ed%ATm.=;Ҭ:fY v34KˊqDP:0.g`}.E8㢂ޢ71oH#cIN4^XNXՁAVD(бa6=Jɨ8#&܌ӣ"Ag;ҥ }Et :_ 3_[S)f++E%`ǜ"ғ#sxW~aG^k?F{O6fki;g`(A&UXfWW@8)F4{G%T0sD ML+ \V(u,5p>p,夋\e}dngg2+s9GEeL.D$:Cj|$8ʂgBCAA@ɲi ^0F |!S(<ʇlYֈfjN a|I" j3ZV%'cZIBlǃvH6fh$;'dBʤ `Vv+:uN.bn e=kڎ&Ǫ} qL힙Kt1=2R$lBCQ>K`ڜ('ٰ$E A 4p# (/2 "AMDHXo,m9P3Aנ#/ ,w n;ڵDAMl&z`&FVYV2U*FVDwNc+IhEذᩒ*"/i2㺬hQ|V7244@,NK8gD_10!%T}X^$ vRhK:R9} x Vcn%N6]J!WHYcqU%!E+=E{{guEKs0R,J?X9,>6!IӁ9&" ?{ͲȃJ̭KP;tB8&";mJhwq8RHxg21*F&.5 O{Au,2mAMD(鸋y'Aᎁ<o^tRF $0ی3>)W>?d%gCL[n/6۪+.Q:Y-5X@9[ ['DNv`6朡aͬxẃ d 4Z093@G83S P_}ѯ5R)^KXqO@yCux䰲q9i0Kle"/Ĺ kؒs1 dG ECPc`<*n] r)O݇<Q>zөx͈P NeGYp24Ys vxl= Pf_Mm&64("30DJn4j1y̘l1Je8]Zi_lT",[y/N-!*D\%(zȺK# Ol#L4UT4WBz׊k@pC ~갨|rw7Exk؋_F=eK==([**DWx/bY0Eup 6ArQ3:Av$X>ãPt!}կcrA4tjTDy\B'kB>w7${X :cbqxVOpNjѣU4kHwPwVwUf9UVKQgSn' z#32|Lj`)ݖ@Č4vy8HASSYe(;0!R:mF)At%S1LjiI{F*e}Eb3FJ' W$ʼnEHrR$N%[8O2f?EǤP, Hk-!i$'I.nC { lelxv#ު-'@B$!_Y}kJfQ9!B܅&!1h[e~ʵ͋"D6 u{)IdrT C3Jy#'rQ.QE!ƗU,&ggɺo&L]i1JŐakʳX:3 ܫv3( %+IgsH?qx&nȌN\(4$ȣq%r?@J&^S{E;Vl㿫|Gwݴk=Ā(tw$sdJUF, ID|VS=9jI;'iZvONWAuc3ke3h@{dySs ~v$\g 9N]E(()#lx͒}m_5#aq +ڣo*qxZCڥ tr/2BP^UѲSѨt8^2\, eKAn%+^u{$B*4ml$"ٳͱ6/*c+ƣ6 Ϻiƿ% LX > K?[PL";Rf+yt1;9&k ?8p=~e2Q N4_'CU; | .C,v3p\l0"ɪ)lv3%rO Z#! ,ۆdZӳ n HU ^2ksrM$Ξ$WffEO'C)uֳE+1ۂyMgpȰ_Zn ⾜]!hKrY2ٖH5XdTSD@A6njH I<=EPw{tbo+!VwwN"zC 4Si;^|H;d+"~q=;܎QN76nv˯ۯa)@}mMr~!rrE   ^_'bEg}F]];khgQ01ʇKA"_L);u.ItzMca5zP.%J8:oD(7#hC3z#tdt.𿶬J,7r꼰4B@:*Y Y1QۅjELh#)>є[+CO JK3}9%a%&S]DE6²4_mi~u u 3#IZrApNEL-06_(aq_e&Q%! x3͢5ⓑil'{歁17\"u LMtbN׀ILiYvuL 3*.LVXRŨ@_Hw[ܖ1KDqMQ@qGT4U%D\nl̳ATZ\$o9l'ArGJqN)XBOW5+i~W}tt^IIy69nhVtoY]j9Y~eU$AJuJx΍J(=+a]Rc 3m j=4D(2guxǻu0)t$0wd?~L[gf.?aȍ.];D lFhMk\=5aH|$ŢCEo)G8sUd,Yn ̏/j§Ob ~@:&6A8|DGe>`k:Yd7f5MzTv FxK ]TlO&\KΤ}$L6r_D% <얌mƷ`-SҚqկ S{l!} mGΎq.&j^L)MP죿%O L)Yt7Wɫr1I%&kԗL$VUcՈd{41!YP\n8b5n` QJm21tq|G#w=JGt6<&qmsʺ>9eI܅:GN %)^[O)8^ HKWpˮ{_ ˊl>Uov4]~-~9OZXIj;*.Au7fSr޻xop#4c$cr0^8_E8*S.%c{N.>%X7=8-S8F8^JIe:0= WX_; 'uc $9؃ըB!EU"*BvA3 ]ѵx^Š~ޙ̜{"-seH7{a4m=fR{/vwyĊE dAD_lckٸ2,vcf&#Mwi0 [d&i84sA% 8~pӲqH:}P[IEM {vSkkФ%u%}&Pi:!ZphY1Cb?ZT,A(3VN31'3,p*`-a&Gp hƂ:D:xB1W”#aCpͣIq( jk88rjȽbtN#Ab):qw1bF9$L܆aYj'Y4\RSUNd&3iG<CmwX+[#i^1UfUR*E_*,Z`眖)yn|tzYˍ=Rg<δw/t\$`VUb~!ޯu9vSLCNJ XhbGG}&\,#CtBőa?{kv oa@I^d rzċ|NG,)K51giԻuhnU,2&]BX: SȴZvU2{ 눠QQg{HC"ak!56A;(312 m1T+BN65:%| oںB+l15U uSJXW[>)rD:f= cSt[("g7XCk ?BQb}7 0b>RJܘ2ڭ`?+zM۶~oE>ht^evx+|ULubmZuw1 M 2OgaNWnCd@W댛BZ:)N&O*χS敀l:ظBn%3MhYDe.k/s Ĥ:&`LjF=X( @D%42\ѓ4MHu&Mh?(}4#6aLB&a?t>1@{ GN3Z>%^hwjؚ |&oh@S1+oA_AC1G n~./E4H2u(Y)ΆW?ϟEaIu#&!>J{6R8A}xb6ʟG {5&'ZHڲhW_ aw& 2D)F|2s~@-?GYG2s 4캛>D)tm8dcNB$sGm7CES_AAPfs c"C"ކMD횬 tc`)I&(L .dH'jsg^OJz~=a9U)F)b?w QQ4?0T Y@m8DmTd@@mTF 2'b ' "{@䶠DĢD* Z 1]T}<GA  ߯sh2{E$Fޑ}'"d=;JHB^shb"2會*A+`Ѷi0lP}CٰFN#SWP]I~̈$rY7:ssf8 M:gSFƴ ԅL*V U,~u\؏!_*%oW&-nnCӓ b#DBRۍh{&}Ww~Ds](qkJ0Aٕ:_9o3X 8mz+9AAd-@"7sZL D 7(xǦLlޙ3aAZ pV!ˮr2T[L"lUEw%H|72-%iHW6tu*mՕRrQy=_"j^rd"]\QTr;dFQ1zƢ (x2gd:qn\so߾_ˑӄQN= G(Wjr7!#-o "G, N-)~}i&.׉/% WBt ߏi awKd퇥K yʤ{ %bj9#eo1T'} #HTJ?UME~jG!~[~T4š{Iv3oV |m1\b? 3e -$*2(a|T@d`KPCAy8?|4P,");^<#9kgk"cn4Xb3 všh7L8EFn'[Py B5C^>'yE>2oH`͊usOIC SتvMLkň֓ Dh ;'7YQ ґ2npքn8)O]2شn[&Xa%DɵoHE[ID[|FSd1?tY_>j 2%%}>]s Vƫ)cNdPe,frv[9i0/+i9M{Fа_g5ڂVxIYsRa%v>u]r穓i߼q!疍WgC#O WYb)R.JF`V4gγ -hS~MKtTzMyo ٢ONac9et I5ڧ9-V*=Foao0b->/ZgrH~j.+m\X!`0m)"WXgLlP6Z4g UIh 1ܩ ;&Ly.l%`vnK>?-7-v0 ˢݖO"a?oL.,hIsD^'c gJQyWSc_]ZmOE_}A $XhP q8|}׫t2K{%= ^Y9QF!fHGJIrhD8!D~g>;j)|(f!g;k/GۨقMP/ tJNV* "NucE*1*1F8)ٳJSEFck._nUL_6ļVZ6JhԊ8J6Ӌ4)*y<9ZKJ zdfomvcCOi=WˆA@I˽I'v&^*Jo}9hN &2SE}ok:MYo 5p/KxVC*Z/Yp-tVg ~g#?fYP<"ɺn/8QjcQނ?xntM 9Tp"Dyψ8*'t]d9E1i^0qH81=w U@|p|MGOO1;6t  $9$Ă.?^iߖ+x%X!2Bk+TL ĺ BVYa%T3=FNyE#bhNFEv<+C|uE7HoECe՞a%V "^=P^bpBS0O_c0)KVƈFfh_#>*۔btV!AYTi^:Z+cδX4R;jќLTk5?iOV۴b[|q=uE>ȸpX=zBǤ={*z8?U;j ]3rf͵S4$dtL/S]039/AO!^srZ:tD2b WW Uh¸YBU_u16#ʰKq?P 2Nΐ9G'4ds$o8 ^{ ʼ;rwcQ iU+[Gþ%ur$f"llR%-1"NDYOr[b^%$/g߉<Ka0JTfPd{im4$WxKUh6*^ٛr9Љobr%ׯOjqE@3/|e{9$۩p;% w pȥΗHXnd6tw$m'VzXw*[]~"l]9`dh4&HrJY78w?EGMD-|HLʧR'(LhH(3|24TvE1B-:FCBf$٩)BqN8WAͣLLd0iIQJ$q& sVQ QUe۫vyXvdd^ǝ>R0FE.i6KM4 w $:cQXKӛ.W8j0RЪwJ8nT5BF9;i#{b-|}itnɥACӪ.'U"Y~/W?ybRa$}g#BV'2 Fbs3DZ26ꪔ՛w>itgLnL wGTz`اWWd"ܘkho95r]OA;NѕED?-#k*L5.}jFZ85@.ioôWDǷɳ}S+ޕI3,kU " <:5)>iB(S3dVձ(nAqY+H>ųIy0\1 C67mP9o"RMR2FK`uaWT{&7-:+%P'5PK+'I/\ 6\\LC{0-ù N+3K٩Ѱ42T 7tz8 V-֠q9$CofL{`A,-zG[}9< 04)F/elX& 7Xt4r<>.dj`lzVCV^Jyfdj* crAg]\[ J|= 3Gԑ79٧%؊GbS ^5;-w$Ec)؉PD R˦ReuZTHX1#`F寉RYW gfe~tȥ`h3+Qs6mՐ1%O^d-:+!pPhr(*3ފ$uCOBsYQ=&%Nmۙ!B__1{-xXtCnG"\2xD|n|8X t8|.Zt< QytL RFm' -T2R8ĩt$|4e ^YhRuUiHf1(ue4lXWх&bԫOcU-u\ \;4 DNӁ iBY9|}!thHR K g@/qyqcD~$EgU ;ý mO=>qۍ!c.j(gΉUzBߦ?Z&y\ ,b;EEoֈ1i|s1<\K2%:24ϦYE?H}V9ܮ;PcܮdaEvOEG*sG?acV3'۵ ?\l\6,YXB,Zw+?mx {+O(q̃yK$ϺU'a U{\ 4ۇYNr6@7B[ų}C(bkb05y%VߡHZ16Wr1螱d5Sqz &>ҩ(J #旃,> ~*zu%gB5sn#inO:HMKNCN>&_s_pƊΡ1|rf2!bj0W|4# 3g":/$m-5PyGメ Xq)UOu\Ηz}OP s\o|r/q+njM%9EGaւ>%z *U7gG"ZW NMGOgHs9[tc;. _{T ߹tpP3;[D.y,Ȩs ņ[-4r^Zj3oaQ70ԟA 1Doc+9U taKW G阴#y q Hm,%Oי\-(ce`%Aٸ"Dte,vxD/np$קv%4yVI='jjmf'2DRXauζ%vlP22y^'\Mc34%<˩z2Ž(^x3'}I*6*1tب@o촲XLmgHZk"yض1*Rb<(H]Ĝ)Yq/ W8RUsf=I [ '?는h8R1Z֯A?O6C o ?L%{2S!|b&7nkJ톭R4بIz/2 r&8selZ& x=L^)"tTc!,V~fnTf8&' aYR$*ii?AyOp*q4({K띗߄\yu*SeW8GZgⲩɔy !y]+uN뺐5E0Қ]-?v gͭ\zVS !~C]8}G\`TiN_Q$IH?5QtWy>wHڑ+Pm4}>1^ s7!8RTB;I?⽢˻d"#p|'p4}* Xf9MkzVE0Mֿ-)txQd#DJWG^lg{kL<_? sJOCk(s~[v5v:.+GNP_َ!ge2`=]Luh'!TL&-Eb% P ,Dy "+`]HZM;& nhabP_=sOa@ݗ/{lJ팪4 h]OK[цs נ10&S9Ho$ßUճBQK vD+lƃ6>:;{၈Q64ʴ}nOrgƥhi4ŁDWRyT"xAsTC= Ae#} ejyS XFQ9qcG*`_W/ĕjd55 G#.[vpE~i3}u(HcEcSsϡ>|FlgڣhPaD:+8=vqg8VPvtҥ֯X0U•hGl/jDE7 5K'"}3SlVU9ƫ* q<&ïk/2IǃU)—Q' }XƬlA:I 7ZH;1"yi @ïXT+dATkDh!yJ$ z%-FCWU)n+JkCxYv\<ʦMS$_aQ\dTh?ʈ[4ScCMW)?yӮ(z` @/:BWQ}S!ρφ~j$`.3炳hNwʟWc`џ;hyn)&ESΙҵ1GPǑJd!]u_"t0cS2uZp{\s&2ujhqLrtg8ͦ&A+fgEr}yQ4D251y6$r[7Zasv_hj&FoAw˜ɭ9DאbHW7^G3GOSQ:mbs|Mxmą>Wg MaVNZYp7t{Ì^oη %G,tVu^vc+}; Z,wɈG}RffzxCUS;=s~mABM ԅ/v/o<ց^OPk!60]GmqUwx$oEStO#zQbI(&qJ^tar&cj0-5w{CL#S.^qnrpN9.dE}mHқA~* Y@@"kG0SgbH橐gU4`88\@uLZڵ;B4)o!7GtٔY{4oH_+C4l}P.%r4HwRoLB[-\pf6b%Bv(">sc|8yT^kM)ɼLklg5F=6KC*e as9t'&0 R=0$AVLPZ?Ue 7ohe(|y/N4X:''UiiX4k5W|,rRGN.+*b1S}9_l- RK}oC+\e|6˸HwJԐya 47f'UЧ:n5^lRRrK~qUL~XHZi0eyQ&/_ZpAPWn>3f BBRIHsxZ)8S1681Y4#ESNp5u-]i$Zq&|$G'_S\T$M#F;+FAaD/H>6-& z8Ɛt:|>SRxo IW0rdb xi(ۈ*?tUæ9]/BL"c֪nOG/Ps7E{Sp-<'VT1s!X8Zt|hǼX9pn\sq'3!/n:ք1ɥSEuUApЮ Pbt.vΪ;5d(]cs\\߷1GVBQ,|sxz3~ . u*C*]~szC'L]|eˆAh|6yf|4Ɖ3K+3_Ƀf:],sz4mh9 Ad`>U'aqS^URrO?~G֮`XSD`>C_ R+rԫ&NC1eRCӗQMvsέ.O3Zddb|=GԐ4>td2G@DJ1cTŪ5L7]>\ ]`8֔;V1]f(֒M7Mȣ;y-E0"-oUvqb>"U;:r2? T(v%-rɛȹ?F46;bՃt\̿MBw'[x~8~ݴ&ZW1;8ͧqVa7Pݶ?p}91ьٯ-G=/K`H'ʍT;$'b>?b"RLo(sfʎYwBU4yWw8bzg@+O2 8#4)gȌ[,W9:;2"x'}L1)YyK[A@\p@ir#^SlCX8pp/1 _68pS+,"-''Rh6,QھƗcF$Тxol)4On!/i'{ !yT_~}dQlNlblDVRhPGŹ")k?%H7щ/]Ju;6.YX]XNɽ.OTQw2w3iNVm;:.k ga;/g>u](ݔix3tgઈEάn!w&MoYG0 ;^ޙE1[}*۽N%򄻑M]4+Żo*}Yp eV -N5Kق<x;r0DpMƹZkٰp(28ś"pDRm[LX٫]]yBlc4XQQhQC5pJ 4J&վn6(ܻc2?UEwi|~,LT͐dTz=ʖyߑ,}6T@_6QfL)2aiHng0+z0^s*OKM ˾3-tK^S~3$05,r"bEQC Za(Wn2'y:5[,6ET+'DnzMyVkBUӡ&W]^?xz6i\y_֪|@5 ?zMA֯ah2B"VN⺩,P)3Gc㓽h׃L*<,w+zpR y^qYn63p}so2Zt]˝v౱>+m&b~\eن>یho CkgF:oL:85m]2cb@]DD9j\C$w_EhCHשּh=*BC gzSY~SW mn|tt]?$Gߟ߬06o9V ~{]+n*dZTZP5]9woh ۩姓ahr|ߤLWf #S3VQ qu|$fnj*LOChg)XPN oњd<7,r0YcrBA`Y"Չc"(00ՒN2r&U'nO}QdD q׏(N*o!Ժ80GR }VԵWFG 'n. #c[[:YADQv=~1Ï24`sck'-)!r-~t'MQODr:Ȧ?1שz?z[)if{?8p ?ooI/DP]0uߺ}ߙS>B!#-F>?'s?7m?oO`*Ks$)|o) endstream endobj 15 0 obj << /Type /ObjStm /N 100 /First 816 /Length 1284 /Filter /FlateDecode >> stream xYMO#Gϯc8J ,=$DBqNb{=^Wfl0U]A$E "iI2d}"yE:$Ea}a %`Di2RTdHJIڒړILOE@Vrɒ5|d1/xSXgXp O a?IzrI!K ibIB@Nr F0. N)5!4#Z?P`4Q`0H Qx@4x'@" *h@rA u|P!z (arov~bSdV $NJ؁x[3s+q%ZP3 C FB)c3JK$X'$o X(fܱB̗`|@ #>+xC(bIPPe03]<٣Dp,8FaY+ +˛}Wӿ3/U.AosA"8ѠCdոܩ$:< `{7|oG#܄'M )aڄ&MĤ r jv *3m#nD(ˠNrKgyxD4ߴt>r!~+10,ι/LP3@ rMl3pK`H-/5N붋c8(Ր>Q3FUyvZ w3[E;ɝ=Ӆ/y̾9w嶮B|WM_>B?7p~|X_^f> gkԴ/[>YD߲(QEUQﲛoD[w;Yj cLʪDz(vMɗbE5v]QzrԊ? *gT9Clm]\ݺ {L~&63Ѧd"/NL\*̰Dac#Li_3bYzU2e#[K-r({nQv4x^& s|!Dq-&bLۚl"Dqc#̴iLi[=&sj2O~LI7O]H:[ENmeʌ=Z-OǴ$^-h0kҦ8mm-bHM4^VU5oVpv/ endstream endobj 156 0 obj << /Alternate /DeviceRGB /N 3 /Length 2596 /Filter /FlateDecode >> stream xwTSϽ7PkhRH H.*1 J"6DTpDQ2(C"QDqpId߼y͛~kg}ֺLX Xňg` lpBF|،l *?Y"1P\8=W%Oɘ4M0J"Y2Vs,[|e92<se'9`2&ctI@o|N6(.sSdl-c(2-yH_/XZ.$&\SM07#1ؙYrfYym";8980m-m(]v^DW~ emi]P`/u}q|^R,g+\Kk)/C_|Rax8t1C^7nfzDp 柇u$/ED˦L L[B@ٹЖX!@~(* {d+} G͋љς}WL$cGD2QZ4 E@@A(q`1D `'u46ptc48.`R0) @Rt CXCP%CBH@Rf[(t CQhz#0 Zl`O828.p|O×X ?:0FBx$ !i@ڐH[EE1PL ⢖V6QP>U(j MFkt,:.FW8c1L&ӎ9ƌaX: rbl1 {{{;}#tp8_\8"Ey.,X%%Gщ1-9ҀKl.oo/O$&'=JvMޞxǥ{=Vs\x ‰N柜>ucKz=s/ol|ϝ?y ^d]ps~:;/;]7|WpQoH!ɻVsnYs}ҽ~4] =>=:`;cܱ'?e~!ańD#G&}'/?^xI֓?+\wx20;5\ӯ_etWf^Qs-mw3+?~O~ endstream endobj 159 0 obj << /Length 503 /Filter /FlateDecode >> stream xڝA ~ T(54nVdԩD[gfޏ5}Ѿˣ^!Mt2d(M0߫W7P 8Iy6Ix]0R|*b1<{ b8Pz*Nnbh]S@Y+p~Dђ+?L DlEdDo]f2J GcDkdJ-?ҔH&s'ų]h` l7 F|WR}q``{ӕF덐JB@t)c&1t~px]5Qn8٠&W(-(8Fȋ4Қ "~"Tէoέɴ*lAч> /ExtGState << /GS1 163 0 R /GS257 164 0 R /GS258 165 0 R /GS259 166 0 R >>/ColorSpace << /sRGB 167 0 R >>>> /Length 51393 /Filter /FlateDecode >> stream xMdKr_q]&$$@zЂ"%49#9f7n%4C-V7d8o>?۷~_-}O)}ӷ;׹Qfǯۿsǿ/}7ͯs ?[Wϧǯp뢿>yE_{Mn>~藿Ͽ?}-?~mݷQǟ>kǏ_y"|%KJJW|I%Ϗz _ Sz>*s^;ί/{^/J1+6_C뱈{,Zq2|kN{{ooO}aazo&V||YRc/_RQҿO}?}{ǷQ홿|L, G^x K%ʭ_o8/k?apqÙ.ؾW^jvna78t eL t~oaO#\ {ye~Rp 2;/p Zf5ti:[ \aev^;Ls?;ʽ9GKٟ+/aUi:[f=ti:uLgfs2;g+ض|q L鸇 GXq3xeׅ7Ҿ5n7^:.a΃iO;\ÞӞ3;ǞÞnLK\͉/q 7mbړ=G3-bړx==ߏ=wi3~AF9ԉS#K\Þ-Qaړ=Gô'<Č'W; ~A?|nσ @8o\aσL ~xx" 02<__~_wq=.g%`yp=tvxw 5n<<&P|_R ?RTQAVU{>ɪ=*0݇888t8S8B8!888΂888{8j8I H bbOb bbb b; b 0Ȫ2Ȫ0Ȫ/Ȫ-Ȫ},Ȫm*Ȫ](ȪM'Ȫ#L[LU;JUFUAUUOwUAV m< ,|Puޖ ~)?ym\7|'9A\x=$zs!žkӞ O\ž /ąe'^sk??W6 _?@1I=dzZ_M`q?@7>pE| '_?|} O$'HO8=)HaO?Rk~a8%$^I?[Ra'ϐoH!!q0bV'KS.L{ >&j==`AcEeIN.L{o _|9 7D~8%L/>`vθ#naOg\Þ==znL>61|+>|%E>" Ӟg}aړ{ǞÞ+_H#?|}^G'ϰ'{L{" Ӟ-|T;.d;qdLH# Ӟ9x{{"4==DZgž_UK/ SlA\Bq08{{"==ױ'30#=/c>3<Ѓ˱g'p>NǞÞ(ǜZ,Fn杂ןb/6yłr/0_%RgTBD }~LkU!`9e|dB4 0\ )'LץB­ D"0_MLc:0zL>>-K9"CPCrn! t1qLGD0L9י9%v~6̾=ﶘ6ls }}})] {Wr~~kq=c;z}Uwzt4[?u ~I،^NMAms^G/Ej`$lQ_}%7X> |O|VPӗ)(X%mi?_Ӓ`V\w7z}jiwf2*/_w,pW375Wv:r?h/f#ޗZvDVd0?3ןcب߿5fKjm,J|1.Gg#З_x x3",~ luXN/Y>a#-j?Ǝd\? [?kϚ h0Z ^r;i+eopc_5G"|}?N?קã&Z"*H 7~dc ҖCϐH)iNȼOm:UdLw{~~ Zތ#+ G Z.|#ّyGq߉Qbosj g38٧WTwz>u{9yzߍuNY[ (H1Os󞟱1S߶- _%gMؙҰpNp~3{Q+b#Y҂[=: ̚j2?MSdz/(T܋=[閻=NxOܹrR^oSթds(J-.4ϫ\얕q,;UyFDdO#d6YЅF' ' yޅAls\YAd%BPC_0[{vyo}(U Fv#4i0|WxMuey :6Ͻ.S*qFy>ij=ο8}NJ/l,w ^ME+Rq[!Ȳ?޲8&确C;Z ?uuldZ."X'XQ)Oa,V(/vER:uj`#QƱԱq⴪,ck.} 'W=p؞3M{*$#9M0jm:zUY8`!XȞT7\֨ eE+<[^dB 10 "ڥ%H%:rxgH,)|ZT*Ulj˂[ ]g JnAaw?]zŮSsܘ TU DU3% f@xQYgՄ^yq.wZ2(2KT[ݭReB2Q:(߇LP":_`Jԃ0I]6n! ;v+vbh&zuKfMԞhÛ.x~@<=༅i[@z#Kڻs~U؞h&<0XکHdh_HHdZ4%A:yWMOh@-1-)r{U[0t^joo u@HcU(_Ue:>qL!ZF V4U.J6$V'U?ﷷ0yKeΦ5i|HkW*#SeD?#:ByRf 埽ʹejy$\&Ğhjpܨ"'iTDn$>[YNUvpou=ig~zO mMnTGȂ_cZbYE6B[K7(ϡi: _"#7MEŋBe[DP8GUAzV٬J6Bԥ%s-loZ~`7YVaW|N|M!$(E/1t)3 ig0d [X; EIFER Od6EZ[໘NHhYu Z&Wd4Th!o҇ Gl'uGeo'Ix[%6 )焚^+$Yo}=_7ڽ-8jsr!^o,Ue bRM0]]I-Džf#!^Jo(oBPCreBGSvlJ 0!A6kj &9,znt'5zV"jZњh~ro+2~$YW+Uݥ^ fuh|$Y2;2e.x؛X_$ 9`ci- wn ҒB-y}V4T|'c5qw,g\i]Z2V]"z5y̧9q<ߣX6⺈4zVĦVl!2LsћO;A,T7}!ZĝUmRH*7cSXHU(YW%Fdh~,+J&JmnNUKS+2JLy!EQ`kݠEhM*bVE*D.9VV@]ueV;wG<7k (U&wVgbfIN{Ͻ/G\Ve|t.2nʸw]TvCB\ܔ8h)l&|@V$>Δhr1RK6ڄ=rԜeSF-NҝҞZ WQZ+C,h'x't[8/U!g:e60\UK 6kD2kkcgӒ#_B 6 Eo7-f3+"Ku*Z2OR{VUV"L!َƼI%=+Њn4bp'ZVbauy֡-{)b5iػ˕]Ҿtm5&LؒlRgID7DXVϪx4)0Q|]ڙ]o}+Z5F{U4~GěJV""Y$e^22A2+϶błŸ*K Hp@M=.ȧ /l+1RPAp#z=& !X20do8oH;P u5C G3v) swcoΠ}KBɅ&][-8 ɯ!(}O{Ьh *P&y#-&zZ-^"SB7k-j-~8ƺZ.Pd OKM/;k05)7q!~x.Z 2dµjYlb =&g):,زzmfdKwsg`$wZ>ɥLP.fteI=挾R6ڒ顺dXyK)gCJ{A U^?X[hxW ZnuM>5$U-;ON'MY&Yއ!VhZ8vLA`BKz3BVn`^BR$Vfڨm>C|vc{D{hޤ*ɧN%]~ FWr -׷lĩm]rDnI6)jwFTkFR8cmiV;79D\`{C-#f޺j dNZ!}Ju$/оzҹOi-2W݄ʷ %;GɎ6h&+V~vfCz D2r`{Iݳ<' odB +?>qU0XhLg*[@*|#b ^uɸ|Mj m!Q6&eVPM:nm'6]+l}3 YEEQZZ*(S_Yw'*+ey '-C(E@P"t6IS3grVlrxơK6Zk[Vqj4/iw!lDMvh9| }.&"ˎ ܋5YFիJe M}8$TJPБ倢oOr$3yel(8ee!2D"[ 5T(QҵG=JF2 $l/eƁ#?P1BВObkۂڽeIX23i52GIV8x?wS' B&mpTq4`J@37 c,"gv~6GRў HV뜨/AUj)9EY8 4!Xt4Z0 MwZ WgNۧmQgI>)$}oW,s,ҍÂ\`:bvgXZ[fiGh[|ㅵtvTK mdr~ ]m2ݩmC|FR(͗t2ܭ4s& &2( r?q($++)\`}YXӗ폨Q'{BJ[;j-'@TUfBdM6AV5dQa=옆|G\7ތ2=sG/хR9e׻b‚=]#R9FB%un3,<,GLr`%Ÿhs+T|M5gd o+͒Al%*T~y RXk6؁.)MFǺ*;,hԎ3|DFVE-2׆A$mLڱ""lx#Vt#8@9eBo(rD%/2)ESt Ҵcf>C29޵4e;Y66)b"Y1 ad_wo}dVHC3Jv{ihnѤ[)I9" >|ƚ7?cd܈TKO}$.Q΄2*I=W9jd}ި.b1e(oo݃IqlkYU1tG+2e$ gZ_0B%?jѿg!3-}OU숺}E8IeEzUJZ<Ϡt+F>P2UN= f}W(WhVgɝn%ts !Nisw;dC$&r>ڢm⨶nrToo;vT+eݦ.4gf5i "Kpc)k>1,]W톞e5אÝlYnJ[ 0Hl;}2{krdB%%Bej j1m}[i[x dTOl .Vs6I9"[ ` SkMNM: JZ19հ؈EZbHJD&kFk} GTK )(J)4J^Plm]3\eϔM3ɮV _Rñ=:w!i,Uڐ|^RaߌWvM7ƄR-"J)bR$aɖ(=߰Mַc7։g2e?y,(xφ!AvRV4jr8F\eC2LMe|=bc.3RS!VU TݵڦvA2ӈ%+.6>8VFO}z 9Z"]nľ&'ӷ7%(,o˴Mr$F#ep:<:-XW[tSG}v!I|(+X[7\ɡuyvd ֹDg=|\hV-(rb՛;N9, G]qB,hPmv)˝`L6$ 7S}FsG4zT=XkGp.Y=P:868ǝK"{߽e7ю%3Awˬ2z)&Ҷ H&RC]:{qܹ!&g~Kse}ۄjɓWN G($i,Ms>s­ڨv sHw@z4e|n&VL但mrCไ+괴5o1̺P|S sb-+e%;uáCu7GG XRt)jC ،Y&ݥ@0tHa;Q̈́z1+RUUҭГ8{N77=r@1Ɛb&5Q)COMcX  g ^ Bp TN B$7<ӄ Cleb̨NNc"iv7%˂ MsL$\Nmre<ZL}sbnLzť U)*8|X}g>~^t?O?"~C/+?ܫEMXGl js^u_76~زwG$/)|*nrr qX?7!Z+t՛ ]_੫.Q~2_{H;ݞ.4)}ēs~@b:~}i:gcw;g;;TmQ듽^W~8 RMr wc Mᮊ,rdžkK'ħ#RwS5k+?|7_<<?|/ȵG}??o~7hHjf4f﾿JF:_ï~o?Y`ODXO/?~ _nGO :nzxXG  ~&1ܗůMz=_ȱk = C}Uo-~=x7~t>1/VUo"|oZ[N^h7Fe|-pV {Oiv}왉D&bxn :zӞ-1IÞ ܘ$aO83ٻѝI7^ MnE>³߸=\$a_-y0I܏=~qxznƻdS-p 87^;EA D+='q {s[v {L{zP6SÝ( (9 b}+3 L{3^…iO|ca{3r`߃ʩH7vAÃc< #~cz`n{%65#=>/];F&Ɠk+]xLjx=h-7>aO&W\_qx{(30%G [~? A7^۟}>q{L{.e==gs(+y0-)jv62={caOu{=u=~"mc%p6( /^Jؓ==ߏžӞzؓx=WĨMQohgధߏ^=Ӟou<~?:,FML?Ǻvo^Af|b19~$aшiO<~?F {Rz/VYo č7u[|ᰧߏ=wسobxg1sؓ=&Y~pJ'ԙAƨ~$aވiO.O8_`qx|Ac':_`/{ϰ-&žÞӞ-=/0x8G<0S2D1Uq.PTBO 'ՅZ_P< o\xP]00t0400g'B۠ C٠ Cՠ CӠ CϠ&UjUZU:U*uaaP]_P]^P]* * ݂* Ղ05͂* ł:TWaTWahT#*)WSP]QP]* :Tu * u:TWaT-& Ӟe0P&IuQtIu TWz jCu\ÞӞTY {L{gU6žycR]..W´'pP]ougP[aϠžET;y0ٿP]fҝ0* _q]!#-J{`JK R#m:ҧёFLTH?WiSJD|[9SD|_~^Ұ)#>Ҳ בLiZHH2#;\KZ);$>ҽ<)$>ƒS&fGxpHsaM 9)$>̓),໏HCGZzpr#M%>ՃiO#}=$>򓴶dbJoOt6tH{i2qjOis{~J%>J\l#>~)'>Hip= r#N!H⓯pHCWؓx==ߎ|=y0IBr01ȏGҚ)e"!u:R(#8yc.61Bt0Q_җR6|8cOg2o=|eD D:'4Qz9QӞ+;ײUkQ2n0QuZ2nto+}+XT>Is+cYui4$˿DoaɁ6YUwSz Z5DNӄvVX?e;O[rjue$J\c a_m6*;[thj.q;{шs9–痐\zNh~0&Dj}څbEviI;n5jKѝU;_Fx:>U_-G+U 0"9Hogk{hVْ_Ov]Ro*]2oͽZ٢k[K͜.8ն)iķ"SeYԶVՔK;lۓJX:^uW6JLeCcdLC},ߪӢCo+YnՙϹwYv4egE-1p|FXL JL2v,="Ig=D#Y@G=Ѩ.͑P,۝{ -S%IVfl9hStmʝ2i l XGLrKnمί0bQn*ϐgsg&ՊGVzW,mЀXv9̘?i{U*_-zZ*le"o8y1G䱤%V#pC~aMje4fɞۯnO0>#.#iă E8f/8"4*"WNYt+'Z;f꽘/w9W-x{Ob2j㦿M,SĨSRTwbU_xS2 ݕ}4y!&ʘ9zeU?L"l#j2C߅U&;3CD[A͌%)'BŻdSIh6Q. ͗EHJ≢"_OV~&)y~EW\ wQU5ip.`UZcgwݢ*?5T8F{`wxmmAlq'kcS{nlóRLT5ťaڹ&k)  MdxH-y5QJݢQ$!rk3|RPEH7\:g_#'>wQ1Aw9;5Pond[ ա)|N@,'1_\62fCs_dޛ1XK{\&N|l_0,[Bl<- "0Y̨$Yr"uE[6sOKQotb5#S,wfY0ͷ"_PxE9DG cٴЗ((opY6 GPji$rUx"$]Bb=zi(Ȏge+'.J5rU9e Iiٶ0}6IgngŇeX=jo}v~L^;[ ]5 Ugn*jC]&nx!-V'_>e'C-I ~=ʐ Ak n[)3bע&::[F#mSa^@ɓmVGՄ.+YI=VIK39[WG'Ĺ"Mie&>'b* ǘWŤ_yTb֕NCRmF˕#JF`*flA0ۄBzZOD++H$njW$4׻ܤD'F{Hyx$8OzY=p ݵ9JVWȎnQREPua[NCͦ67t#ԁ9v FA]l77{ t&GtIZu. LGSzg)T"Uئj7{Fk䢸#2ՀT(aBHEbI81ȸb:PmhMiY[W޾k80ױ Cv$>O0j%zI.lGI'lQ$9:$!訙Hɰ*oڒZ+&VAm1¦6~j[MX]gL%k2jTOP%oQЖ4OLS˛sHVNC/Pz;uN>\9F1xwi'6 lNnTIZ$m&7j{ RCq~o.^QA7-Ɇf<)vܱ GScmy= BB|H>X5c mWd]\*3ېy^?]cк^઻pj!a:βY%;R`^JjsJ*t$|BSt~4z%Ŕ7B.TM'YhJwxgݧ&Ds)}rŰw6jUe$tvx嬗\Ϝ/,pUV 8q,9FU)_Co.3%F|,TnAg:OG2[ EMu}AL.RO,U.N 2l8d 7d $ x>qov;_liow~?SwvP~{+2;3zdJc-Cf " K';x\eiCiWࢌ-5A? (BMSG1w^+r*T)w=-Y1wOPWBIƞQa%-y̠dscK/} ݽb$ODOz(^ʗdUg5.QPϵ]wMxCoa4!Ye0m>Zz3htÌ.jqT^u Kz铮l?d%9k2r[lѲ_hFEj=IB o^ t[R4zkI ^]Av7iQmfGҭmdMV,Zgll@u`͗LE7jl9)[3(k*g gD 0Ъcǘełf Deѐ^LUR. 1/J%H1٢B#LU=.oGlRFYg-/ u6ts.kMb|N'vEwRC|U-QOJ kxw]'#˒f Ii0gH=  Q&6``ögN*#jToC`ۊgw2Kͩ+mi1;tY֫ TlS)j7_}T_Ɍ, #8: |Щ\G4SNW v9N&_ (ҥ7x'`,S~>Rl['[IȐ"^i3f16@]icV0x*۹,9NIuR@ҖR['' -{RVj } 9t^@ĽsuaKG=btrShASUKzȐȽa@ݒ$]/,gͲ7M.]'N9㞵͛ MĻEN/O/ e-XΦ 502bQ2<+k}#]Bf(bzzv1ibJ^$ȃl`!5k֫FA4p5>6u:L0('ేcV@okÒZyŀLUwMlЭ+ ky> Qmѓ@*vr~3{s5Mj+ֺ+'nnM^Fߊ&jiU놻F=jtՆ幼:BH]R̡̚A>]'k 8qo/!eAPnÂg0dޖ8',(wY!S j *+e!@q]etma/B;s:8`%hT4 oT%sIn]Lt$xrwV 7i=ĖMSe1a37n`F_r XHE$y\5ԉYj|iH66O8[X2YQ-0o%$eRgm裕|),ER`;7tbΫlQobf"by[TPL9NB7Q< fYe0釬C+sM^xRy.iHN[nre;],vŲ!x@gjVV7-?8HK<![ $)TjwkjR0A)$O*RoXXrLӱƄࢃmk*?o~Lxsi9M! pC^M׳/aFq:gshSbZ`9Kѕ7(!PW.Vס/٦eV>gW;Yp3F02'Bjh 1ywNf#np0:A33'kOXg7s+q8˓'=&'m<jl\RÑR!Oz/ҕ>'s+pMA ߧ՘wHK,cM[vϐS~?HUT5n>հų??76S 2:b_=j"tb(~<#. 8Fz$oK s.?o{Q@}WN?*ڭm- y e,0,/s?ǿ_ _{o#}oo[Πy\:0p#nފĞO'>.g?mQJF+ j/wqy8\ï~o?{5sJb?}?׿ͯ[;C|Gyu[RxOk~|<߮mo%K/Y.=| Q1yI%j׶L~L(yx+X>5?*+lIJ^#755 {G]%?w IrBk)bI ՏBC%Ӄq6_un<+:yc=Pp+o<{T/Ɣ*0437^Ƙ0P]jo7$³x*`Ѻ0!7=[سY>zn<׺1t&)_1Np iO=3{{cO{{CV Bʴꁰgw6Ӟ?6& r`ړ=5׍VFiѿj7ǵIѲƓsy8 =k{{: B9yڅ׾qJWnEg'=Ӟ#YAG{L{'|ÞӞ:ܘ`R bΙ7^^v\C={{&3px=v<ÞӞOe{ժ@/^o8HoL{==[c[7=?'1z8ޘ&ߏw15>Txzn==Kc^j`39Q7F½ν@z )y0d9y08/\ÞӞwˍJ/^ϴ'fW Og+l vcnuV^Gk5y=ѥƓlmoLvs9=b}~t4DG!nxzGaO3q-bړx==۟>{L{. >qƬ npLFƋ1Xyp {JL{rxu<8cO f;ubʞ~?N Ӟuuh}$aσiOaObHlj7jx/޼ߏ~wn\žΥ5yp=g"yD|ՀU^;}&-mWxٻm4 kma:^`6I{?ifӟwOٽmtJfw2 `qm+ß{HO3xmrK PwޠP,βI@]RB]PB]e:B:B:B:B:B:B:B::::ꄺ:Ruu\ ulPWUPWUPWUPWՖPWՕPWՔPWUPWUPWՒPWՑPWՐPWUPWg-=875420N4N4N(4N3Nh3N2N2N(2N1Nh1N-/Nh/N(/N.Nh.P*K:Bc'I ~B]=$TUßuuuuu@E uu@C uu@? uu@; uu@9 uu@5 uu@3 uu@/ uu@+ uuJB>62*"b?gPC@]B@]A@]@@]P@@]BjB&ԅT u!~C]HPR7ԅ u!}C]HePWڄf.o B&4T u!|C]HPR7ԕ6T u_.vo JPR7ԅ uM Bj. u! u!uzC]B􆺐. u!5zC]B*􆺐꼡. u! ++T'.kSnOً:@en1B]iٛl?i9iӟOu]ß~?'ԕ6}JP>|=@e3 {?B; ?a_ϰOJP^n(}nԄϴO36I{?i7 uM+mB]7{P;zJe7' h+u=ӟPW+ {G^9k3JPJ{D1;}w@]q>uJjG@[}'n9w?i(oeB]7^3JWz%ԕN>ϰßm?? ~x$ԕv9޴>KfK{?aA]igO'V ;. ulƿ[Ŀi3TPW#6 5W3msϴO'J+-W@_,f3x,[Ŀiӟ%ԕHP~Z~A>W _[O)7鏂|5E| M< |^u>ς;7i׹ \/}?[>?Z/z.r /xGB2[!Z~.^cA!E!4I!M!4Q ? '$^ßy^8oAyޖ_JD%J)+R t3Ÿ)q׸ {[w]އ_ޗbާdܷgDžiׅknps uwy#|+~3x@;7yKoxxxψxxxm8+/f!^h!j!l!>n!~p% ]:.-zgKӴt ]>.}?{ƁK紳^>J]/f)xM ~S ?z ؛ٛ@;#߼٤^:fjnM~M ~SK@%|SON߇7j xNL%5iӟ TNNhӟ6ف/$uZ+mRh'5)mR~Qh')mʔ)IJ6I;]';cԲI=vN> ++'6ʛ]?^xgC+K&z˸فǦ}ҟaZ~޴W3z37M<:m7}^6gO|3?6ipyG="힥yGf?aG=f?QҟgO;izQ3=KuIӟ[3'U5 ?~n6oF=/ԉIUB{Ѩ7=ҟa?a'-vvMh-c/ i^ޛML7=Ÿiӟ{wlRhנMjRM*QϿ'ŸG =ҟWH5,mRP>D5gizKĿf?ag=П5#'L䫤݃vŗɇI;ojmn6 ;:wsO;~n6 3i3="ob[v7'O5 ?jh[5l[ X9gBHöy!f;Rb~I`ːWJ׹zM%g39wtf)=Y%wB &*B"l)\WngC[ČwlI)ro_(R.׎1X4؆ҝo:EGx>kS@< /GvwP@I#_˥3$ؤn+J\!gMF%D=PTR +޷B>Hu`e_3AȆљªDgK R}bPBPSN#wRF;!#A9Qö|(YWߝjh+u9WN&u/9Y̎ABku6ըqUmB^}wW2t^BsHiNLRiR1Pyo‘ !<)ݧ/cpOnuH37팍DZԁKR-؞ SJ EFk ^KIYxJmopf5)jЬIR }2V^mlPǥʬ!Txc6$X=bnR3 f!DgSS6Lt%!j=?$PH= tUάXJ#+BpNY*2{{Wv$jձ *1a@B[r5]r R-+>ZA<@+I2j*J官鉖͟ \YQTXˮ ([p"pK^ κȶrյbD,OVy56E&g%%am>QWDrg1V?Tt5,Iy!Ô<}iբj{jz9zӣ_κ+2仨x0-ؐ"]{jbMeR>([k)`NL:u;1ɩn( 0!~?j|#u-45Wڹߞ<!: XLgm_'eUK]NpqEp}/}KPQ|F>v)byELcR_\C!f94,Vr>RbBQlWϦR`>zvU K*yITkS+PB16ql8' sA] Ӗ-t\ޮ؉y5B%V|P=˧VIjQg"EH,Lɓu*F="\yeߨO4\rl|ϪL;=Jg4; lb8ط]dk;b@ͥ+s{k)q\Ib] NVѯ]s]mIRݚAݍtДc,ekrr>A<|%_A'>\d%{ԇB_@^9M)7G4 QrxxDb}#kXQfM/+PYZ78Sq7ƽ攃;[jrqejAѭiQeȑsQ)[*`Q%j ONvU[q y/J7b=_ ֦`+xh.6$6XYOךTq"ȮpURc?^.dYP0vWEwL1kw 2[%j/ hZ(NϬAʿM䙓 -P [r*:9@´W~~:쯙n"zNv00>%׮^姪`a!N| W0TzSi.q h!2l+UH]E?^c2$3Uz=]ղ ֌DV W8ASO_pͷZaFcxlg spAPkp) DZE骭UC 6:KJKVXDkCHX!y@٫:'BU+'MV:~% 2"S3K"FNrdjeUMhGk׈i8 Ce@h9 T*цRo<.h;~k\h_K-}!sP"T2] tAØex̲QT 8RncP/8t<ݪ,-Z, H}}JXbL&wcۨ#szw+{|dP٨ H*%pF&ꦪ28thnD!2 K_shZn\:J^t"|I,{Q*B(*~5SI:^ SCk~Ax>A/x~%N,|P_|I0N鶥nVxt2B@OvYB桋ȧG7(FRp)Yi6\:QW ͊ ,x9CPIrvlFC3u4MglW[d3ȈZE+?>xߡ63vup)g0?oAݡdDI]awel??I4e);i-#sߒnOOѽkɵqmK\>2]r.c1;XT{n* u@s^]ӆN>db]P+ Au_ר" rv?Vػnm;D$*YYN|8⺊Y9B?M3 8O0f=ؒbı[n, =x#R.lk yPe˶lm\`#2Nj*M7-%fTR; U!ƌkjJ2E9Nv#CB.bo>*"&_uوb0!/(2"y+}*M*mk5֔lϪS Uq9yҺ XuGѮЩV9aK%B+otE4"r ׻awXWn`;o@/ɶS]AD݊W}cKIq?ѕYÍ((&WCW?v9אԥ2H=C]o,[IO >Es6SSOQ4pxv9T&).)jяN +Tj终;C@G9'Jm>(۰5b+} ~D-@4DLH/[rhO`|LYOe+V"/PIrIH FsIn6@^ɷ#R5 ayd(+hZPx0K/) `wUKr [ ymRMcpBW첗e5LK*E~/[ [Fb իPtZ#^P!Uo$ #eAnK+d.b^Whf)rIvÉU-rjz0jWTg(~K!(/efUIJjT:*ASD YlѶ{V! C..BݠP|mчB?&:5\C.:vʉCα5;)4,{X~uA=վɪ,l+`1[,_(ɼ.uP'`\>bt 2ȶ֢M5 -|"񳓷=dXuZmH ) VPdWtF[Ȣ΁@ؖ/[*a${)B&$aL, 4|u-و~T4{'+ bJJ((Ԣ#G\OKPz2NoM [:}lz^`i4+#MkVЇ5P7>P/Mc lz|c2-\gd?5TnN0͔P_Q]}z ak ڤ~V ڪ ;D?nAhNZ|2L4&N+pH>:srN8s0 `AHֱn^H0C)2S,FʯpzEjNttpAr^*HĨυX-STXCwOlz$w a*BjeJYl@4VhCڗKlEA}o?4_hz 1n54c'"!d =s㉇w!<$'$gP^JIe^#R,)ןQ C}$]ZgxL|PARyuveψ6@A]™OT5(ԊL.n }:V1(D(Y\K޴$ $8fW>ll 7,/t`D)nr1\K4W?Aj@\G),|0)2 l]W]M&U„nnRR2↵/+9znPAҥRc=q4-~dLFQՊФ7jĴ("-!]&U2<i8]C'2ьsb$<žMR V^rpE%}EKnm:dQ1KWn]% Gv#<fmlq񕫨k4=lozJݎQdrvZy4@k'Cԩ1jH+%.\(26Gv~P;qQw0Uy7T:Tj9mG ^ )zs£gYdxzzh<`^ZcwL=3 3fUkO{9/nGO2&p/-Ǔ7bmq`Tup4avqA?[ڟ*f1/ފYwj̞|ϺA Y._q6lM~g/D{sst=̂ςȘ5O5Z0{ìɅaڢ~=|o UaOu{,߸%tMοu># hAir1!7 3dޘMlWN_c79@ǒ e,_xXM̟NGA̿O IB k|qb}ZԼYЦ=HMJ;-̥=i@EU)n_ &6o}~7@tgF=Rnn| O=70f~ Ni|6{z|8?Sh.ˣw?}߿?C{h׿?_Ͽ?Eѓ#>ׂ~_lkx-W}trWh~eC.%y ۯobOU-b|I7747-}?t7~|\;<%Vs.Bk+h(h~|> ç¼.?~e_πǧ3^žzϧWG`q;vu/ 6I6*ؖӾKlo,nઇNa~{}z~UOL} ҧjxݾzmBiga^Oث?z`i_|=f*q n6!p {Ÿiӟ˟O'6bCݦ?mׄ>|= ozɐ ݾݞO+vӟO'Yh?aenSr8~P^?F3ݦt=ŸiӟӟǙO+驕'L8hnzې j6I?ࠦ=ҟvLMz*.h4jxo0i@ۺhmo ms,kv IßGs kmuA\~۠$vfyOhn_O)`v]ӟ[_OT~WRFQwT)w̘MB߆O'X۷}?a6I?Ӿz<~o㮻@ay y4{׻ҟvN>OOͦ?i_O׺Tvn_OUҟa~ 5wrTn=m2?Ӧ??e?Ӧ?igu{?Ȑ y^S0;nvEWcßiӟ:ŸiӟgF{Bw:wz^p0>ftXjOkϰß{ӟGϰ7^CۆH^x= ۅ6D*C%M:^pyw`[bo ̰7k0u k0U k0 k0 k0 k0 k UKk Jk Jk UJk 5Jk Ik Ik Ik UIk 5IURRRR]t|+*[@]|B]zB]yB]wB]uB]tB]rB]nB]lB]UBӄBфB̈́BɄBDŽBÄBBBBBBu R u N u F u > u : uu2 uu. uu& uu uu uu uu uJPWTU.F8:8754*s@]WaB]y@]Py@]Px@]w@]v@]u@]Pu@]Pt@]Ps@]7PW'PW'tPW'4PW'PW'PWPWtPW4PW-msJOVRJB>JPWԙPWPY uu/ uu/ uls~@]MB]d$  ԕ6N(0N/Nh/NLOBw'Ih? ]OuuBouuBkuuBiuMtF4FF+mB] }m/PWC['ҾŸJ8Y׺ۄz@Oz@K&Z"Z"uO@GuuBCulPP@]i':nC+mB]N@]irnJ{?ԕ  fӟfJPL@]i_PWuuB/ulv z +Pͦ?ԕ6zu싯(PWڄnJ?kϰß&E;.@1ovB]JP7E; u~C]jP턺h'ԕ6. uyC]iꢝPWڄh( f?agOWPRIvO5 E7ҟg3' ; {?ag(_J^n(}nQ?PWß uy'ԕJtNDς|&wA R/z*ȧr_o69}=sU R?~*/s䟹 ܯkMv? (㾠I~MQB>w>'<(Ӵ{񣼏KzZd?i'KU%RWi3(,E߿K,fvVY+KYM1K{F|˕V7Pkx]Gϧ]C;c7H`>QF&Wn6|9g V["?|+bʴUϥ]cfX7D>yO' "՛M|fyg?|fW]i3_ٝ|ͦ?i'*yeiӟHxͮn/īOm17@jO5vvIoҟa??]M<+bT6񲴉' ; ?/wO%6I|xc}SNϬ7 &U=Ÿ{3mv Үϴ/z7}v^7; {?agOةnK?GesԞ\NĬs~2pS]\kh*RI/[}fea9]MIdlcJ82ʝS2L!?_fpm- C)XrS2g[e7dl=!piLT}("?V6 {}ɕQ!ԧ;eЮmy)qvM-lFewJǾhU^gv}X6=ʇUMpd8[ζ,݅0FSg\t;4:Y^SZ6&y #~,}`O[sALȃlnrm,(nY-eĺ4$Lqm)dlPJRPR}tzOozUȢ 뙱xJvYku=wӲjWI.J1Wr&OC0\*jaJ+H:b5})?WL Ӄ Wht%mw39HK\)v^M:qz~{ֽՔJNr#7W:U\CNR*V(N_ų @7J\8:bV }E^mGmM(S{Av9vhcy셩6NKjd_ZjɎ(K~ Lڷx\iu5[jBGBxSәCmT2Vl5iٝ=?aȷeT s,A~8kQC&ZQ^s~ZV1U yNښw0jII% >HN\9JƮ Tm Q2V149W׮o:bڐ~=B[1s˫sPϖΪ?錡f=p7nUJaS+.X/#$t4k@hP-+dv-5r xWώWA&/I 'f_#vWY[*Fzd9Ç3T"V@lԔյ`ؘiu[8`qaxi7֨(nAY(D>5#1gn5B*(Wح`5sX; KRZ.*'2:n%kƤ1lM9!&_e4IS3 &K7T X"]u8ئ.u qltyl9e)!VF:8?UT%n*B|1<_oÕ"}tӸW/A.X7'g|Tu?W\󠗌$4i,Bz&`+8,r iםrܤC"ulNİy oBDŁ}2܁.VjKP- $QQ[φ}q9.}?3ÖrU}.Ui]Rsɻ`^Ҕ']0 nF+^sL2.-St-Kޠ8ߒs㌡临Ķ˟^x u! J2rLۡb3 O:yV)FR{# pk RuKB[:G- r$jcZfU #'AWۓ*I ۑW['`kF틞;_1E TU,bX/tj`]ȹP! +P._"tmh#/^UɒHԕbT \1Kv l"ǰ]GT9Jm1-(IMː.GYiоiDYq Yj`dbzj=B$|UlAU%0?d6'WXqY)O)p͒Ё^]G9J&%f;lDԵ$pPCr.xy1k´f N ᨳ,dGy-^r`"vBs D2UQ{}:`G.YD3!W$I\yV&w”$cW8g0o]]wFWaH~80QTf`' + b@"1` Rd'C\YZTm&n.ӷE9/9 ۟kNy+/=DuI(Z'VœACmx_ ZQk[vTTtsGxb18g}K eRʛFo n&K89 |O<$0&祱Vr}{zK^}C%VI~'8裮ĉ]t iy%0xgXؠt_AjPǴPkُ;~|f > vfk ܬE^ ^3d"i=:[չac(YvJNy7w"rܨGL-kU:[L$㡉lXi"?#H‘KmФ R kNNz5qt8!z{/ږqgOPf4KeaN[t2u8Y[bl>\|ÏYe1Ai2oXã:Kg1'@t$E%y/UpBĕsL@Ƀkp{-"XCeVl]4Nk2#-_Tf4b:V|,; ŰSoY]}| ֻLV".Py֫,wb +[3W :{4lmrld 8Béqy|5N~Bg58U݇ ֺ zyeNI'o*(h{QU;(Sեz /6=Ws}7Jq~>«6y^#.2oU W콕}ILئi^["2Ӣ%{9URsR -E)1$nVdj^Jg f_^S H@JN90E!q YxSl.nX񖔮MB{ݨ-$~2Xd cqwEҩ Yumo-耐]FZ꬜ֳu,UUrc]ݎz "'ꇟ/_S35Ļ-rY(SWg]"l~zV "8} Gt8{"ZdQ֯is&s]&[xIlʢ sÎqM pI_y\E|,)W>H,M]8jKչ}ΎCxSnqCRHdL>EH#hm*Eϐr*:(hAmP[K~}.2س(GM:N] z-  МC;R >1@0^;*Kz';p V]9X2UP9PhWE *\2j_WU sP6H VV:&aڀZWOߙßT-,+>/UŒ:TArX@:$90p{5pHSu${MBG* й+^ M涞鎼b`EiK^xNY:b6(9HW娣ءD"[p^,-:oD:h2`yn6ײ:-P/+~K]nضH }!RT\jTw@T3]!g`~7ɩ RAT\HlAyY!=;:8T+ *INNv,pz~D2YC7!PҼ8pOQjӾ_@xfUqb)4@hC4+CgRG z# MhF2G= 2]PvX=}bs`аǐ[IuB_{{o8UCM8WᴾɮP Tdf]u[n+E@MVs@O/G.]!["*W>Ovp]&r<\F.JYd z>ڑwD4s NJʣ/*i}yJ%li8M&(O%!$i kOi;RzTnF:5Zԭ7P.nW[:On|*t\2-% M#EsB0\]fu ;h!عZ8e>7 ؓܽЅN*f&.2T{AH$rshg '%KӦLd'ͩD[~ u;lPLUݾlK *3!Hi x[z:6H0Jt*{D[mWAE^q;MNSoPP*zL\Dܾׅm~ 7.D Tyb,pb8T<`%Q+gBdvɎ1PBWaq V o/VW SkaMU61]R\M}/'77b*I.zףP$Uģtaȝ2!Z3~ k`mKku-:t=XKF?[&oGd.##k;:ZRRbgMY6]L;˕J }tS rWBFŔ[p\_0_%Pc@JIpn<$ Sh$rz @f>U4) [T37z- )T?ݰA.p7n jE[5 ViOԼ1/H(ݜ?d+Z^P6%BqHS !ҢVNA Emw;_뿛gyG ]w|J$uX\!Rgyބ؜qcpuj aJsL2z<9~L&7!n8˰ͤNSUVA]N[H;gX9K&kEg&e%JkLiW$~߲P6я1<YpCmHmI.h GD&1+*h>e<7Bfny&*շ~,vYeQcztϩ,Ӧ`,c@lCv+#4ԇf*q 6{u؄+Cr^Q"–TɋhE NY` "s|r!U۲XRʫanS<]W~=I{ y{";8xx,,\ .T2x6,BRk1KU *zÁ Qn1P kI1^~g@"-s,|5UF#գJ2eB\HG eRk,94 j!Am1t9>4uv(x1bKn.(=c+.Ԩh?X]*{WIT#4u&N7}V)tЙL5v{f|e`ν>MM._O[H)i=Y tgӝs1jmIC]@" g,&h{!ZVεQoV(D<=ɂWILtEݯ򠊋|>bQHF>zCjYߴɢی90x;p|U0%?\ВD Bs JSJqL+fqsZ$3w}7LܗVd0$fR Qw䩱d&ڣ!=,\C.v% 消@QM[>%`!qOT/\zlEtvϦEGw͎)>ON!h`+k2Z~<5"׫RcFͶ"Ir.{%jJtfaƣ i慷VFӎN!96e١P#:ؽt58s1~l~bS4< 5icA˳W$>N@Ҫg_5ؙWa;NV3rCWxtxzYWqXx ֤+MNY9MȞ]QMPZnCiAZ[Hk5 [^ Λsnr Q7MSG& }E\25=2,[8l15䎬zSFՎY^W- JR𑧜{iٗ6oOҴ8z`UOYU|єr>gГ,(= TI99d^}|zLz|m@Z]bֽ _كqV*ա}0>k?:LdY j"I<=˧*p\V@&/mNp%W`C|V 2=ՌrPPz+UA6[yIv HS Az{[A}Σ6$VZP}B?.tِ`k~$7RE'kyws`Olj+(Q#]@ =d )~ў<8ekMdPP1Σb] :څFK8 8җxЧ*Z!6 ~Ztşm׳9eYl,N"Y8Rh)OFd(C=\Z#W^l#^>B 6)0߯Jn|m9>|%&)KvqLxti-_CAg8Y!&#Ov'\Ӥ;xMy_W@Z:zeS #:;2gAÝrƲ&5Hk~~sy5J~hSO+_i#sS7J)fT>^(h@W:\ZpbUꇆv(A6vh4{lI]>{Wu}]UqHl1ԊUYƣQGqxE2S Ħ0nn}_O6ItDU;8V'4]A?Ӽg ^,˻mþfY4K"W~F~D'@9. i!NuRTaa^@|S&PLz(Q6 sMN(SqeZXzGu5b#}v=]zZn$qh(,eydU7=0FܭE&IR}SkܞHO$mg†h b6?UUy3tO:h{ApPcvњBy`u2#z4gF`T9.2 ̦@(Aޏ揜 *$kl{9Dv8҂N8Рzߔۂ#6 ymɲ@GrM6(0/-j$VgtN֞DCTQV í9+ɾ(]aHեӠ;/%,t> oYYQoρIJ}|5Z@%!F/ SIZ#L#Q fgwƲjm]O4pbʑY99BFq;*Ek8e4oK*T6nBҰ) կRR9;ʖ>FP:K&a*a~BOFh2:iƱLO5*u &ǟOˎGg`l__\Ÿ=ol=gq"\q 00SJvNn_c#]uB|fY̦"z}>wp/J~봘~> 諴6[K1U* mB͑oT$pXm}oO!7C %n.6J}AH7Bw4B^|aKvHwu{s2%ƛz|-7tp~F?H\oaǎ #,nC|mߨ[ڰ1{&Lo bͱs:obw=t'o߿U_ߪ|c-QYwl/_{?G(͒9h})_"<ۋ^l vW?ǿ3zr3o?9 endstream endobj 169 0 obj << /Alternate /DeviceRGB /N 3 /Length 2596 /Filter /FlateDecode >> stream xwTSϽ7PkhRH H.*1 J"6DTpDQ2(C"QDqpId߼y͛~kg}ֺLX Xňg` lpBF|،l *?Y"1P\8=W%Oɘ4M0J"Y2Vs,[|e92<se'9`2&ctI@o|N6(.sSdl-c(2-yH_/XZ.$&\SM07#1ؙYrfYym";8980m-m(]v^DW~ emi]P`/u}q|^R,g+\Kk)/C_|Rax8t1C^7nfzDp 柇u$/ED˦L L[B@ٹЖX!@~(* {d+} G͋љς}WL$cGD2QZ4 E@@A(q`1D `'u46ptc48.`R0) @Rt CXCP%CBH@Rf[(t CQhz#0 Zl`O828.p|O×X ?:0FBx$ !i@ڐH[EE1PL ⢖V6QP>U(j MFkt,:.FW8c1L&ӎ9ƌaX: rbl1 {{{;}#tp8_\8"Ey.,X%%Gщ1-9ҀKl.oo/O$&'=JvMޞxǥ{=Vs\x ‰N柜>ucKz=s/ol|ϝ?y ^d]ps~:;/;]7|WpQoH!ɻVsnYs}ҽ~4] =>=:`;cܱ'?e~!ańD#G&}'/?^xI֓?+\wx20;5\ӯ_etWf^Qs-mw3+?~O~ endstream endobj 142 0 obj << /Type /XObject /Subtype /Form /FormType 1 /PTEX.FileName (/private/var/folders/gk/jt8845y90kg8pwsm__hn98vh0000gp/T/RtmpoJjl2K/Rbuild13d86f4fc2f7/effects/vignettes/figure/fig-contrived-4c-1.pdf) /PTEX.PageNumber 1 /PTEX.InfoDict 170 0 R /BBox [0 0 864 288] /Resources << /ProcSet [ /PDF /Text ] /Font << /F2 171 0 R/F3 172 0 R>> /ExtGState << /GS1 173 0 R /GS257 174 0 R /GS258 175 0 R /GS259 176 0 R >>/ColorSpace << /sRGB 177 0 R >>>> /Length 50641 /Filter /FlateDecode >> stream x}Ktm5~?ll<0<m%9"Yni'[Z}NU7Hǿ~_?oou^}/:Gݏ2~|/=/~z~O~~ٟ[s˗UXcO??\诎*c\#-}^GMyv]m=~|cQϗKJJk<_|>^bx_î~~}Jse /5 H ߫2Iُq]UE$qd/?^#\t_KyN}sN__`),/ n|mx-ZX;>ƿ~ZG񅙟5GO=>V=?\|obےjm^{钺~zI]rzm~~Uyp^_&G?p}) xTm^?=0Cpk}BV96>jyqRp03StM'p03SX>]*}1G/pvO8t Mp 0B38^47t94.7],~3?a6Z_'y"{nx0 p :va3FaEft<ljTqU=(^'βY).Kӱ==[3+aOnO!Gx% _u ݞe+.nfOi=R|g98Wl4ݞ5==ݞ͞pu{v=]Q׹_'^z {+ Þݞ[ {UN'ҁCnaߚz']cqVWӱx==u_Z'Ng=nd/x\(8_pw{nfϬߢ= /xt$䁯N /˫3{nnfOu_x=z%ׁ5|îrj~.aOnO]naOnOtz=xyx;٬̡>c'p{g2aOnOmآ}[ӝ^6{&]g@g` lL/'izBc=4 kx؜]ix=a'{ ÞͰ  G 5 loGӱx=Wسv{ﰧcp!e?.6ps7%nOaOnO {f1#3=o`z?z'.+Yy`g{8=5;x!Ox_`OJ \žݞ5ݞݞ= <O'y^ o cݞŰ8=Kӱ=ut<ʉ;qWOP鉿o/ߩ'%ԡUA?ɪ*ߓ=ɪ*}UUzKMy)<* dU=ɪ'v)YNNVU9dUIV94*dU$zUU'Y*udU$t{UORʊM7PfkIV9nqU,=*M7IVC$;OʡUU'YדrhdU$xOJ$LוB[n?a"'~UO8pfT1uʡUU̥UNH'7NVUpNV9\n:ziRɪ -ȪFVUjAVxzʔYUjnfWfW~!OFV69dՁ]dU^v=;FVU#[:pu{Lq*ps{qfONV6YdU`#NV6ʱU'g''l4\ݞ  žFVU  ldU`ɪFV6Z0dUvfONVi= Yu9OldU`#NV6kx= /g~! Yɪ9BV6*UFVx\Ȫ#BVaOtaO뼞U:qA l~KAVxww} fO\U?dՁ͞22Ȫ_ *p Yu`AVnO <ݞYx{,Q_*NVYdՁx"* 7 \ݞYu`:AVAV9LdUa Y* ꂬ:fjO'ڳְ'ps{jdUp5Ȫ v::iYu`AV.nOレ \ݞYu`'4O(dUx!x};~^~'aI_M=nd~#+3~;~!%~ծ7lly!ˁ͞xyKny]ndٳɞG/=${|I|~*Yadσֿ﷎}?N}N}?O}O s{z/|SjOWn.0\]L\#p:׏c'; ž38Ϗx>z6,aOnONaOnOM0A v8]8t5yawz쓞mԓkQa 43frVtw\ hB;{\&DO`sshn:=4]f:%MpavXáI90٥Ta2#LO St8aSb>^( 9sI*tg.qttIs8t)Daw9L#Ճ| pa`Q\2 SKY8o׻L0cv7/_.,^E|Œ'[/B<1sp~*x[Z ,/ЄyFewAдڶd˱a#o[Vp|_xp""n|k_NY"8v+e%mLCoo01x*uT„~o$zo.Jjmܱ+?4L7|_$0RW7o ´;e:SV8.z_]_ovc*%2%εrml^;C%wgf._(axĈNFa'WYBi5<d\j^p,{d+{ݝ9^~lײJ ;2hjhf?6Ѷ߿յ>tduRdAZx+@L'?g`Tpd3pj@v&M%m&r\, ,*p>{Xv{ j#}+qx2䠜F.S qiZz+[NFOg *Oٛמ@n~B$!;7CI\/^0@]9MFV^gv2Y2WQ$NlJ{+,}~ |ZЗVI6*؃5Ur~;2`3~ ݸJndKM &oELqm~*'ˢ^0qw#wg&(jEұ`7,Kex3̎|ׯѹ~&xVWF$N|9䄕k:F[7/EOb͞ɩytͲeZ8gЀv9Ͷ6 q%)'v4Aԟc?cFN.HN̵ k/;r4}3o#~+,a;@J;A7 ğ"+ )JOqwW+Qu_!e3\&3@5f!94~iF 8&%<09^Ȇ9R¸ͼofSW(GSpƞI"`Qq?98[m-4,ֹ„^^Wc|bɃ믅8sS3u׏aC!0{p.'ِr޷5 Wfِi e6 8fI0PW[bۖc`Inhv֩D]Tg lWCձKQRY18Y]]Új hV DDTM'T#1iWlLs@B|,.ϴ TJ޿"$" u'dPGޯ;D ȲU!DcW;UƧ`-FD6 &Xy6w"1Vg[ĠJ'KlApnPywTFꢘPO2To 6ih-v+Qnpz5͑ZUB*#$/[OLImހ"8ɶT'* R- )tŐaxL 5?7jN۬KQ\& 1LOցYX#jCڠX}YLzxdbCBӜ y q :~[KnpI\0"Yh>#\j& m#L"%^ A&jd\^QfZVX0KNU4ͅG LiC{=d+fv`NNT^ɗʜ:#\!2 z%iO?Nx`$Y F Jl1ek8r.緱t6!)e=cq^mm; vY2}!-&k#MŤmI\'m2COF&w4)(ON+C~$)=:mWܴfEXqD.Ɨ{.d4OydlK;k{Q?FRp}DPBUe&ʣ!ӤLDb=l“7y*A'#Y?_()K2{g (%@$Y[VѴx D;G$hTsJ[Bb_a&*G%q֓퉹WJI٥,Ov y'&Ym#BجuL12!^^I 8A>WKaUaY:se\ނx2"QҠwlW\ nIU'T9T.͘kS!ewI5!@T,*P£ ;79XdSL? "LCʭgKYÔrrOxoOvX4jΉr@Z,=]B,a55;)N\2c5`|(l v{!mȸP̲S.M*+Q4iԛkNd_n|P *yvX\=OVgCWhLt(⁕wPϏ¿1NmI-A C~n_FUfz Hf'hT\Pi\,!9G%E=plKqMBeO,Њjo\tInڄۄFʖ("vPCy>KT/\e F(e"5@Ēox*Cnt]tHXI2e$@ &pZ? phqW%(;I[A3wdh:Kt6cA6RW7{TIZi&v5ȼ$U/ٛq2wM֫qNg+SH;#Ũi91\ K&M,g fL^_y[J+5U 6~b*g2}/+|!uM2i")$ăZk[ϰDk&vBBd_QGIr hD| =rd'f_ 5s:(N*N61Fq0@}R!4X3!4 2l4*3im ;]A6*ʢeHX.ڨX l SfD۽Sgў e%Pʐ1h Z[0zW5pRPאm\Y^^idǤlWH^ 8NqY;u8.5Hw΄ [kƘĴZƔթL \2M{{3̠JL,)θ-AYuS8J57~̚8;MRn+J17FdϜ[=XG7=;X87lD?~YP+,>UޗFΗ<,~|`a*_ bRi K 5:CME7LLǎV{ҚW2{0C|sCxh]Q- ѴEDHN$-QVhܖnp$c e5Lh:0#ҧ'ALN(FHA2>Ba`z۵ܨs'mQhʹ+U5Ãbq%tÛ3ě[ME7f#QLi,GYYewU ȨJwZi;9#Ym΢= j$h;:i>OZt^)nSvwM7Di5"HiTkVspu8zWϔqVfa?lے,IKe'F:t|I$FXl`(mӖmk&66 ӶЪufi_ mDA\6^6o)+wo =che^ J׶i`!J%U}@xMB ]8,GKW"emk,@+-')aO4\dA m7e07V+}d)d"xk2CIi׋\9'^I \$FiO㭪TA̒R=Fق m(C={Q:`ǚ8#9M-tu#O,ީzOکdhF|GW}X#l:Oe"MY7d>K-w/v6ǫ^+l_j؂>0;7W~)Rxϡ4*L{UhPsG ABh_"DƥR^K$\Bqn-E SW}" etܽ +a3m#KB1{ƛ٪豃nGҭٙ0#~Zɩ6= [ie"O%S_il]:'qkk馭C'$.*A#f Kʒym,Y9OR"Y#v. 4)NȨOoU'T4hT'u-#;LI'n681<;"tU'h1%r׎OI]{^;՛' oeSo.ΐaI„鸺vЁ(oι > t6|6Y!Q DFC][Kk߿ĤBi9ȥE8s#I%LعLZ}SM]f_1qvjt(֜OKcC FaT *<阺\8G79Ctϓ($jJw6P4t'JCkte= eŮm/['JYYs5 a3 NjȄC) B,ϐ62 NpJZTαV9|ǭ*ZWh.t ݴi!+y L?­m| L$kaRl I VI MdT)oVC!+CH }X-6(܍>YV-d\I\iy$DLΌC-p{TU>S/Diy|b5,D LhVF3]l9Yr=]eG6/DUj.T[1΅gAdϏ51^Nj=޻]k:H)ͮ(S\׌%UM*>[AOg#X35iNWޛPco6z(f$ˬ"٪jPdٚdo4Ѭ.rqCY)o)+N=^&4tK %`AkL1nmI6^ԡmhd;s#&/4mi/qؑu!q۴t:ۡ:Igi`6Re zH{3T4`{ %]hP#LӨ3鷑P˖D c}N(k͂`L**' yTNg&;U̢8I F85%|>?d?tͭ&rlIh gehHKAMPJ>,g't3ZrTkG'Wl|{BBrfj+0u#-uȵa.ꛉ,bDj*h3-xOwW6O(|kqitz"MycC scrJnl(6Ԉ֞}\nn57$%7k0i r+tf`ESU֗x|+ʠt ( .=pswN]N'fwȗ<7-]i4um!aGӖh!u($Y(Y\W#C5O,my>53_Dk)k޴YzU`wupOvٟN!CyQm6(F& Bu-1z=\L4jCMfM/`LCg%FJed2ҖKii*߶0/sAR6x(D1VLVXJګ sz72֍*$_3&jʤ.>ldHshا6Q\yC6}0Mhi#+eN&ȴzؑ%MDhU%V7]]QDDho{Τ!B12BV; W4.Sv"u]ZQ]]Z[NLJX\F0QZY? Ґ9Ktز7Q(vhmlQ,O MY|3 0L烲R2?,h->SaEBwN"o&;vЃìb.r~F˚t!XJeehs~2څ*6l /|SJhl),ks 1јNL݂iUݰ(5sm.z={0sR| :l3͞t<ݶϠo %*nyK7D Ei31z;C[q8kЊSzM41iy6XS-nIYIVeݤ6 OSx` P &~ n݆Y :4EY @͒|LB9k k ũ +#ԹG2dFa/ 7T:~߮z! ?(YO D0t,M=k:qZ* Jz?%ІҧNP=Om4 ħXU_]1o>7jI'z,7b}BO#2U6@^LoK}j%q+o2 4O]`}?աR}~'!NJY1ZDHZKg]ןmmv8EUğz(ƫ+jV|ǜѱmH{{xђחdcޯ`^#^.`>uwƑPS+2~l/ٗbu`gL+z|jگ( +dD0\.t{w9-O*g?#=[~߲[o]ҶTRI<,ב{}p';~3p7_Mn|_w_[DCkoqJ;QYYvÏ_{?~3nН^nУt~ҵHLJc<|\߮&5%ϗ4-y$/1|Elw_cׯt*_?}s_ޜ6v8H?[ۈo0|ۂX]X̱uk_`|VR|Qx"?ɻI)Yϥ6Ѿ]?mG\"{:>]Yp61Q'vx nzs{&%!O~Z'&ʆ> @'^^xﰧ}^Owī#xbg+l4ݞ3Sbxya@O'^v=qʲ <3Sj=={x=OeMۉ!zbHOz7z1rbKF՞{V{i{xO&S=”_^F[y`4tKHznOtaOݞ=p(i3_w91=1ȕ=/ݞ% \ÞOzdŁ< 간͞v{6{TrJpv{.nVk5 zN<ډ1kx=9ݞ͞3{_)xȾxt/ >'F+'aOnOfӱx==ѣvak~N:qKF=[==utaO`qM]`:pxk=R\ݞ͞3pw{Ωx=vep8 Ũ79nh'p {:v{cgSOF*0zԛ*wӱSqIaOt,Kӱ=1FĦW2kUx='FnϤx=wӱSqMaOfϡfaN+(6/0t'ix==k ,]Opc߃}aե+⠺`եZ^ǩ.wP]y/TpP]{>^.O ޓBh ՅPIu!TzR]B<2TBuR]pݟTW`?.O++5Iu|R]ꂫԵ;.AuMPmAu6{NPgAu/Tᠺk~&&5A%ب.upP]zTᠺ>.AuQ|P]͞zTRAu+Q]*9.Auji= w8 <ܞ#6{nOFux@u=TW7Iux˰ps{6{nO٧9O< a<ꉍ::TWmIui== װ'p {:^/3+Q]/3zFu6nONuaOnOjOװ'Q]qzSz^ ž;ԖTWt<ǩ.:8G۩ix=88;S] OTxҩ._:{snO]Nu =uĩ[pT/'O|sfO9_=q:u`y(|R]9{ eBP]z[ר4GjnOJu/TWq*m=[\/O6WlwAunU= l\/Tׁ͞ TZԹs <] U9u`ܞsAu.OP]kK<TAuOAuj|TWx(# fBuY|Tׁ{je`P]1]7:ǻjemP]umS{8'~"_%}c: |K# {%5af'G+/'Nb=$Q^XO |V+c?5?|`g{yx^xxxx^xxzOo؏د/w(~~~~>ܞIFy*Y*ϳd?i絝g;oӗ8}IM%?oڱՁ>p>|xzSZSv{c'p{K>±+/OTz</ <ݰg?\ًK6=o2ОẌQJV|&m{oRI$nHzeuA{u8$}+Su]b,dUd&2Ab‰ru0AɚT mt ^/zUFufz.OF~o "Q@GwGa OuN{F<{ Jzo"}^fs9dW޸t6XM֕0HF{ze;*ޛFo}a ᥽\dxQ ǗI}ytЦ #` $ OLSp$Ѿ6Kؓh8!tGb<ϕ4/"=$<) O+6W>J׆di c=Y8BX[Y(k:ԇFRwi[8( vf,jɄĄl9fϕuMT~yZ6&itcƔ!rBf ftvbFzfy@I;sM*x@u YWHѩbrR1뤺Dl5141v][HTi=Ā3ݸ o:Ilyowf)WJ#es4` ְY}'k,aG,? >@V6Ņ#Y9lXȓi1ԉ{DVl/kYNIs);aW#$ ;ag; KJOUzwYuY"ueNo`.A*÷ 64Oڊ \a43Syݵky,{^f,miǮL7~5sgԗ`D+ i`M:.JI)Y>(TKZ X- A j FQ3啉LAJ  r2?jbm9fJnaz1UÔ?Y7KɉlVUG_QՐYIܵpnbߥmt" $V`wt8(Sn*{gٶ18o* 1b3u(K,}+NG6Wmp a(epz(0X"Nƈ(rD62O u81ې0gu]:/ YJW,)a|Eu$ce&sYT ERD_g:KrHeV9l:fsՙꘑ+# &sS%C]1:Ʒ\.;ah(Θ9QnGJs'DkN>jC73:$@3Cbt%\E!5iU07qvtDb1hd6̅G YmY˺6X }D)ѹdd5.^tAYPO-Q&V@vB (I-)љkpMHsz!'$$-e'kcM)NYnҸT ҭ irDhs%TH'_ ni:PDjD(ͩ(e{كN/R[6q#;MKLH\BzS"D6e@;gpl%Pc|\[& 6M 6:DGJp#{'h^(;D^5A\$䷩Ph:yp:HP,MJ¢S=cTpDɖ %C Tɽ궞`8:S딘x'[D1go.ۜѮ7)Zs4dML.aLێ ,I{* %F]S o:*];Jg?x!MP:Lh JMtR _6-wwz ڇVl'5Lӣb &S<&xS,z(3'd`.\t,L['CM$Ϯ^Ȗ!)kw%e{{?& !x[F0B5&eml1wLfC.b9dˆF2U;QvOO,*K,Ia^eIvfʠrSZmKёܛYNJ.tlhu|L`oWv@$#7ل&tD WMš,"[ ?e 3yBRKJ$Aׂy[zP#(6ɕ%3dHf0^لbdGJGwYÆkŒ=V,9ѕL/4>$CfuQ΢W3&n>)nN O9N ]p6<~ lpHLF;Qe&zÄPBN9LiSXʖtY o2+Q 'U51bhΝ_*SY*@;Iu[D"K=IvӇNhUxp'72MM`E+Y+%/rPg@2+4onζn*qۛ!E SAj0TTLs`xRl݃烑$3reSUJ(MԒ$i 7[M!BGn+n.'hFr V] 1-`M=5;] G4`lk"_9 ?x*daӢuCfZ?,dF+Q]O9X ȝ3bҪy-.EnNTst,PԬZVhV%٨d[ѸlVi\P癹\,yWt.:.\J|4;SՌwW^G'.&{\9tTplQ%;x]BVyvt6)#kSCg]xl@fޔ><[CNAxU3(t4Uܰx }q`ym"MV]4ҢkH6ܼ郲!*(FkEdhˁ^rSsmD\/)~4m#1''m3 *Ulo =P{d ݦH94TIR0lurZX(S VN ߞC $QiZm|[¦U,CNAzR1mjJ Bcʶ,mu.8«1qt2친¥MJ&~(Յ1+noqhPstPK]gV&OWHڦab>s /i(b?h&}LF"gzΓt61J&9k.wYe 'p5&N^ߍYnR e`CO."gWor(:M>ۣy2MCKTƞ:ڍhSgQ+b\x4,NgLaV ͅWjޜWl cC!K5A,o4]M bzNJ@Yc}0r bZd^F_^)Ѻ&SF=kcHyݻ! 4zʼeDX}7G{rX:/PgsћTO,PA)ĞV[Vb͉!]T}y bm#yɓ(B5 &QʦIeM4(ZL c1ۚDô̫X0A%0IPM Ӫ2v@VOi64i©َ:JHߠy:D.i$o[r EJw FNAФ&Weَc{Ď㮾I[.0MpknREJ),F7vc8_6ӕD(IVa1m )! +I1*0c]wDN)T7mO#U(|TSȅ:H02xSjj`<5?iVSx1CE53Sz1r'mL N]սvmީ)Yɒ1׳W Z.+WmQdR *|Gȁ9镐H!J\QZ-R52 7bg} 316$J+dY1L}R}Ot֏]w#"`fLU0MNlיe0zL$U AO#7] 4y=Y PqADq0^En§RTINyuHs^m\#]6SZPBr](Z hZg^t~qu]@qVJ0Ы][gGvmrNAdeHX;|4,u$4d$9_6"=“k"npXg>~8r )ڏ m7! ߎP/o\t]QBiTj uR˭xwavE f\s6lMv%!"/ۨZ"腼i~GOF42ײxV@i74f=`i͒BmzreؒԆXV]Kn j' Fl3zt^ ܣ%ڿS=NEh2ZV7ͤ|4 3r>°krVwr!LZ攗?yEOj>=כ6~mSn69*_nW ;,1i64R[k~>hS."NԘͥ(7hU7ڴiBb,ŒD<$9%͓7rB͉%h5 }]XMELq7C`JAiE+hlXTV !T)D7 ahW)ِ貃ۆ46 ^TskDztTPƨh2^ f*~Eߪ}x ,EoS2\^OďIt'a'm$LFfiSm(d/TVmӉ)مm DN&@mS% S͵C`h*>1)):`#))U^Air)*AQ f}BnXQׯe(:U]s+b?m??uBvPQ''`~f)|JB,)? 8?czi{1eZBxRi*>o[&'3V\4TwZ`Såf w8toSs0Gi=ĤZՁ2njt}sݟ~oxc?#=[~H,斵J>?>ɟ{}E'_~W+M6Y:.(q:.}=~##_Z h ?>~嗏~OGwxG4so~u{,Ep,ō]D?_bxIoZ/q|dKFiKL&z//0x6^x~Y/|T,_Ų?^!0۫#}ޥޟ~c3ۅ֮S[j\.4m mϗo:YIϢn<6/>|O=O'.^6 D}=aOnO+=sӱS*aO{a/O<|bN<Þݞt li8=[}HLxPOfOi8:6{.]{= fO=Y7=eWFj+*cgSÞݞ# <ÞݞU {:c Re+Q,Ņ ݞ5'p{:v{'0bI',;:%i$J gg`4\ݞ͞s)nnOx$zStѰ%&͞3pq{an O'ή qb}jLnOtoqOÞݞ% 5 <扑N9'z뉡:xϰ' {:v{g2TS8=rbmqW:<1?1''^ix=2l4<ݞ͞v{*MxX dd[O6~VԀ࠺4tP]<.KU6 KT% lTf"mTKեf<.KեAuiꪖs"mTׁ͞YS]~tAuUK9Uc<.p"MTWEZ44hP]R]Au$T|P]5KZѩ.m\tP]3AuU]F:UuTW1ԩFu>*F]:UjtUTW1ϩT<'gPoNuYZ?*_TQ]*N-U,TrEOj Xة㠺 }* 2TWߩbS]BozB_Nu =:S]B?nNu^nObNu * 9u`WǩbS]6{XhTWTW1ܩbS]**;Uuۮ߷hةW41= fj= wgۆq{qS۷ضWP|gNa  R_#!6`@|o2HVc =}мU\ `vN+P?vv@A%nOJۡ?˞z柀.GX|PWu]⇄. ;"vZPWu]3u٧ܶC]ih~%WLŝgOJ?v6lC]i;uFLßW3'}ҟaJۡ˞uZzϰßG3'ҟas+Peu~>u]vvKA]|.; {?a(cԕC]}PW췀.{1ksҟa?a/u]SܞAEyPe~;5ޠ8 ;v ݟ8J?v>+m.{~ =u{E*v7턺. ( vz+m.{<K@]iψԕ ßJ?ߡ OB]n/Ā._J{?-K+x1wsA]ŧ u]"x6kƿ낺nl u=ß'ԕ 7+Dw>PeG>a +/ u2?3uّm }>'/F~W'}vI !y |(_ rIWzuWYp_zYc? o(*_r? !σyCqވqq^9?39λv:T{R_J ?҅D{R |B! |]|_435K̗.y@e8ϴݟԉt9^^ڞ /۩O_Ԋz!ojIݐ|i;:ZSO )n'u%mQ_vjIzEI۩"n'5r; ;?i?a'u7HN=r;Ii;u6ԧßSn'*'f-o.vy{|N[OIK[^/wn'5/zIs;i|SӖySNjbOIm_X_H:S+NInNN꨼aSONjjO#ښvvRcN,ΛojIu; uW~-yM v;i?QIIMN'|']ǿnqD*mg}.}vٞO~|Ql[0oyO[v z}?t["X^Ԩ^ǿF߲ޜv[sGv]"@}6iKĿF=#EſY8iZ_ \g'Җ+O>D%u)Җ'8O\o|v.9Vggx|ˎ5+.i׈'+%ߴ=썏buYvŸ|LZnO Z} Q|"mS-O7? ZMTc0SPumG[<lZ9T[DsLI39F^Q2Z5 43uK:Q#WhpU"MԘ"$'z+4,4BRPȋ!`D#J42*p~J/g>VD45}Epg3 UWL!^+)_S$5{FV>^>^[ =emqŚ"|׀4i!ĚXң"io3"gi@*UvsiX \cJtkh("̩Bl^=&Ty ys&Y7-&ixz*qQ:_Me25*C">h)j.Z5 Q PjmJs&#WZfzCE AVqS{0Q(]1]8V:2gxyk "5g/ȈPawƔipRB',D$p:+ nӑiak] (YX0уoUQP]tXvP u]͓|~;;%1υIPK6b,{:Xa`27O_Ȃ'4ܟ :n@u%޳tb+z% OХXCO }SxLs ~艳1'ݫǃh_?UӍ5,gThLn8a}ا1gzl`+, m>6U?]l./Q]EF;&PicpMi>4ǴY͎XI>죾b#ٿV:*]_j>T TW0]E/_t)ɮfdP?envSTA 4&m9T7~#HJh압fbЇEFg$``>h Ƿ0;Euħ⠳c#=,V׊a7]e$L'Ѕkc`\a\91X].P`נ>(l돘ȂXT s.lxUXБJI[/ iѯĿYY'3B m4pcex( #f8)ouD:عAi + -d҈F>}, ֓Ht#;uIGэPC = boPf'?HepC#&OjI.{\Qzfw(FIm;[C+3 ̍dwM:jX7}ës A~:N1si#%`5U f} o7NEҩXJQi5Ǥ|Z6U0٦ Zb+HBO>#d%9D'H _?٢Ӑ<Γ#vII|0ͮRWz.ˢ0P1 (a~Lp^qd nFG* }*p^g5 rG0i KRkAJ'1X,,Бx ڮT3aT)7z0Q[B5cRs5Jf^ϗ,SSuPJVo/?YSoycft#TT}Z;du ؑS^PcD Xm D@bGus\E@H](s (ewf*;QmGakF&o5e(QLrDm>Ss6ؚi'2T::2T=h@}W6vV*6 9VU&h,BG84H@Y 7ʡT׶z\u|_z]I c{;нQ*:{h4N=ިMu7T~Y`>,;=6R@V7 ]iu`-g@3(n-@1m}_Eedʼ^z)Ma>mVouib|xg|% ,g@ ԕ8++ꤝNe_Q#u;w](X!fiszO-UNe%B)T D:({9;S% {vkMQ[AfPU!qx"GKTWw)SchV!gwG 6N eNkIm嗯 XFY1 F7q0*Omw7\XF(8YuOXQASm.+8w 9;h sg"}<' 4ܨJl"@Hq C؆F؅袘V8gw;TQ>|Cj^Qzذ뚣 m8 ;U٦GͯU}EN eHF1Uۅ7@x٭0J;:7.bTUB ,<^l`bOhPrmwEX>2˷i%X-Lސ;S=aĠt+c! 6tj$'lRZ2EBWhkꥻKʈ1kIخBкO0UnA?e`Fp`P8]( }F֨VlKRIsUlr( SڞSE(~XiT'燺Xaw˒ ٯgd]< \ ʹr36rXI%Z T)eR"'` WP/t[s`wˑMFj;=a O(ި9$-5/r4ARb2 r\ z#y>4ݢ7{eeeT!`]5F30?L3 H) < ߲_| jҭA95' N4a-IQ9 T_K!eۨX_i.FRx@=݉vn֋_*<  R+q8MZtQ$d ebv+8 &ztJ0_ψ:5g r  :O2 8݂%Y(ّJW `1; T])5P-9>tѾ$C렦7ihi%d T*Bu5@ªd5aefE;ͥ T,҃ {X+9FoAUVGV!#zXsh~ hWA5(P:SC Yuzl8|54/Pa7+*fWvhQo՛#v/ Vm!*Hv+!FӇ4 NKؙ5YwllyjIЭpKxѸl9^YH=Ei~&>9hbT>$dUNm>z7Cbn.i#L-WLWϢz K>Rw"y+5ǚ&P !~(Dcߣ0QZ puɫ Vʉ+oSư Tr2`6ÆOuԷXm;j^giN݀˩T O"4j֬܅*>TAwm:aI-؄BL4 i1_| &`> u ѼS/ `6,*W6~4&4Sԓs0r`Y' 1vDLu>*f:.‡X4ζ\Jw>uC&ǬNuu'8UzB1`@=}`޷qSGCp맶Jjx[Ш@pV}̛ ?>3NG;!9QҥbhY&{=Tv40p*qr Jtb{S{dJ| 7jN9XV0ݯg@`$7> 6}cׇΣ6 i@R>( OoDQ|l-n9(4njb`zϫ<؀en| ,cǑT}0(b;lg0VZ e7aZGqۍ՟kiu:(h&}2EΉZ[a\Ĕxh/PՊR/4kiD4h8V{"ٞvEP<;aLJt,/?b7`ꆲUǗ|o_GG/Dt~c}=|MrNH&_?Z-`gӣL?﯏O b_/~UWS?=9}M4߿6Z!1}jvm毄} _qL"%WELO<;1r6Чؔ_ǫ_wZ?X 9װi_y7_:_y7~4W1) `¼pWF,]orl_πǧ_V5k=7>W_kدC^顎sOf`O B׺휝6hH=m%t[Fmn[lS FmgO'igw; ?>Rv jn}=7^|۳LVßWN}ҟ 鷍Rmv)ݢ >yn=:'=ßt{?ϴݟncR3)/[WmVmn=D(g3m+i m׹ţoDƞvvMvß[vO=ҟ'l;m༷mh< o{?.bvMҟ{3'fC}:۠W} ė^jPݟn'lOyOKslk3mېof@|[nܢovit?aW  ۮhI^7Gmh*=ӟa?ag3{?>O׳JŇnymM{o94'=ӟa?mӟa?a@}z,VA*]no?vv[= i?Og3mA!%vf۠ ׳? hmdݟngO[?agO# ;\ǿn>ReOI.ϰßk3ҟ{3Uo"}l+ߴ=u{GIO?.O5َkv|DڞOtԸ֌oOw3mgNgOKAj{>vKְ=uGȎǿn' ; {?O'i ˻%|-ߴ:ӟG=ӟa?a',n?a'"O%_+M5_[3'҂OGL|nwi{>7mab[3m=i ݟn3=p{E>a=u{G7maonK3' ; ?=n'ܞO=^oEk=u{GI4IÂł0ł2u5 *%$ռPWCPWCPW՞PW՜PWu5\ u5\ u5\u u5\M u5p5$p'ԕvɴ7MhLhKhJ˫ u5 u]Ÿjؚ u5lFB] K;PeOܟ|]PWC9.k󸠮*kB]iTY_e u5Tj^U +muA]v_PWW=uO'1^P5_Peu_>@]v"_PG\PWCU>vMc'*tB]+xA]֏|A]i;U:H PU怺vR.˫ uu]D{ PEԕC]UPJWJۡ..cA]P^PWuU/U'uOꪀꪀJ? ON+m*鄺*儺^1~kA]nB]~'9I3m4TŸu&uO.g7Pb@]U ݟgONPY@]t諄?>zoPWE9Uj@OuUJ{?ԕ  ݟ^ ;PJ@]i;,v+}ԕC]աO@u]B@]igO@u]PWuh z߀nϰݟHl#ޠvŸ lWPloPeo7+m.ޠu@]ig{.T:lWjoPesz*Peuu]ҟoPW5uUOJ?ߠz3v }ҟa?ßKvM^ϡzu]~{vPe37ԕC]Jۡ> +m.{L^O@]u_ 5>+o+ {Q@]}-w3uuyPe~%ߴu'ԕvK hr=Ÿng/_ԕ|o u}"M\cB]~&uOk넺.vuA]i3u"낺}"낺+<_ԕv ZPW-vZ}A~߷orz毷Y|ނ|?׃rٶxB7ސQGzM׳.;r?Żr? o%c5 ,or <ŽBy"lMy^ <.<[y^^v{;oYigRPoiKr/w>򮅼L7}'#>l;}v D?.O/Ҕ?=xB~7қR(y<;L|(⩴[Uci'.O^vx2"B>hϦ=ßn'列OoŸn{]Aϧ8esّO oӟWxE3i# #{3m/oXڞ]v{.[=_ ;Iq'ʹws嫗o8pڞ/es۞Y_vke?Oq7Nڎw\vy{=Kv<9sz5 ?–' ݯxezgxe׷9i.͟3~gw6ygi;y^?gxez}}vOn7V~sjB}L.9mǣ/Eٗ-yxx#vϣ| <ßϿl˨ˮ8qϷze?q_D=$LO[~zL^I9qE'/Ө'v>W3zYK{?nW|/QϻlQze?aKѓ ; {g<+|^n'[_f6L >Bԃ/ ~BԓÎze?_ze{>>CԻӞ^7Ÿ?D=?"t[ŸopٞO8bg~vgSݞ:bFxϒov5I2?]3?d~vg/ohQ|WĿoە?'ݟw'#P% ?Ot|wNk *_$T4|C7|/Q&Ғ:) UŠHY:YLT)AB6>k1sg%/\!PT.M3M5h6>PV/:VIoeZbٿ6RP~RB0;6zea{3»>ChQ/otpBV Sj; kH:= R&/Hw`Mg5WAwQ&4gn`gY^2#p<-H3pKvtәMアcAFiW&R+k4 |P VS.#F#od="ΨRbEfg*ҩjXZ6 YPJoy[)Y.tT @3QhT T-:GawzJU) D \ !+2 hA&}!ckVH2ќ<ۜZ-j T%U}QȠDMHd\쐜aznEgx+D[{`.t>^E'JΦ` !O40 49Y[fb ̖icB Em%J ya[U~ʱԇaA&bM`7bJqtّW6t@@cmY2׀ @C}O+SfcWוy")8p6xXStue\LJs}ZIc6A*@ne$3.dW`vhXikOM}6{A?Rk?w*mj )AYiQ_m?'{xA鿣x>JN&1OÄ&7#)1^( vI ֐۝;8D<4Pʾ`4e&7A~S\(5"vEKiԲ}RE_z[9>Sb'/hXdEG0ҠcM48B.m7H-bэC/ W[cto#mqՅ#݆xm+ŖMqc5݀YM|5UeNl\mQf>Ta6U7>џjBzHv:ij'`:|('19 6asYs&͛Efu2B(@# CYHggڇ!7,F g|ij-rmř9Z@?kc/Ί~E~W+A6vJK5Clz/Ećhy AzRH1dԬ4Sm:Q zlZ VZUh8zN O;jB,XhtzB:$;pa)*èE6i >^P7mL&nF1xwNZK\oFW^:3*t"'T׷+-')`4tJ[ ZZk`ULSdxX]N~jd$6A:zHj(77iOAqٴUq_͠}"旂{Rgz1 ;`q\ !tE.x=!Ū$k{Px^w>\eA0lj-bgςζAG'+`ŌvHFj'GsR/K3=oxqöi4ᕵP}!#a{UʉJ\_@pxQͲCb&m8atmUJVP7 Z0jv ݟG(Lעj ȇo|iNcmZǦãD>"Bg./bk/0Ţ.'kqR,F Z)DCd²*T [bO۷J0 Y} W.[:U1/sQO1bŰ~mFw=b\Vh].Bc⍙tE `픗c5b*9QF Eg:jƍF}i@+Fxe<0 Q2>{ -FZ<_Th l<3XحPp=Ab[Nݾv 69 [nd;Yv[x@뾡+IJY{OLY;&-,@ g-I*:r(k1J,)uRpz߬iڃJA_hV~cKC&9^z8h JJB3dw! 76OamXy1tk0~~M:\~rր_SiLCW>|somR𒡀X7+Z?>")>6v5uh xը81hV DMJ0`P]ZnX*'&G;m(}BRv{C_4IBASBh`FO{[xnj0R#G}eޟcDhJ6y"3JDCnm' 5lCS*eru;4z-d5#iuP4 Tk`TQhq8_Ў7>{PO(SZ] "-PpFǑv96$d!Mcr6lݻ8cÕx[u!=!V:hNlCb`Xh,)ڏM,.S!v ½ ~{YPvkQlQ6X)$JsCu#kD^$Ohp_ , рR -COv9b lZs6E gA iVi#=goԂ@H)U;ݾ pKEOLQEݙv2X@[Os_J2AȚ4PGT-nCʢZ,!k6R~Z%/"(Na [VΗV5܃q6Hqv)2dC\s'>dmj!ge8pޢٔis CK_& Xb@x$<t[i5coSpAcU+:cTm8Uh8.hݘ_Z U0xQH pO~4.U=*^@$BI z/dA3X3J%Plκ!υJc_OYFn/)bJ55- R3Wy?gl\bS*p htvAQ/ q?Ў]catsyh4&P R U(<Z\+Ք‘gP ި4B=W}Sxϩ9@Z5C~FpFtCB qͺ^}um[(n.v{TPJ6gf}1#'폑 XZm|fÏO5OgE4}Q{ӊk޳g;>kWtgfyfOY@8/%^Ww*TNi-*YB&Wm-.v od``btiB'M`X<9 ^ڝib&MF0Pz鉙XvCyΤ|6*uxߊyq:<8qxE \fzj]Re@ܮקr COzlWk&({ɺU .9T Cz>NPvІk8;jÑU\^*Hpatc t`Pr4LXyN ÊxJ*BI )yғw!-5(s-.?ڎQyPL¬R3AE@C08Qf0 zlMOxЎix{dT)OP\k|VX+Ett/ttAIkv;xwAyDP'k"~#q'GdrgWJMU22 U,Sf F 'W@&yIwݼW dT`!wG!>֎b9V(;2ⴹDA dh7N537rRdX'a DlօJLԹ'M4u:`(r@4DY`H5X9$rirfT lt -Pv$;T`싳={iwf\[ J3osq(BW PVx@,.<) Ӆi9 an>MRr/jQ\(mc91qQ ;;<{$A3?ؤrl9} OК hf@|ڱPtΥ/3Q043֌ѐYhobF_l6inDޙ?d]ê[UOSA*v*xepκj`EBـLH &e ! 9\kw˨_o"!̈5<ގ(YPrn>Q -=^kV%¶PmQcs>\Yhb ū'0ҳۄ2nՒ_W:\6Ӣ$P\xTP._ 9mR90Q1uDzqަ?8-(Ig/.oyAҨHҰ 416e~5 )?8=+Q|`Q9\8rOAckUA>8H8 ʑCW`T)0k?ۙXC ]Z!d]uT3gM\{I+GWc xۇ>с99$:%jww20e#h x^1R N%|zStAF|,#|XF]}},#e,\V4r]J[.VV4=ޞ_|Vxν4lA27 )啨M DBy *ȱ\@B) [X|XlGr{l~v ZąC4}WJW}+"4P' !md^^*>Tiw:VO ,yO笡!@y<٨>*"~(PKFz~'iuB }#*`U9Wg=Wl#Mm؈O 7),w:ni!& K^:| 44$R$F`L[+ōReM7].ܸ1U>`J4XThwJt2+ГD'rhSL}w? e) 1xoTLg aK}`hv O F 7KyEzǒ&NXQc.Wl}v&?wڞZCS{H-;." <ڴC7ՙy Ѕ"V8 VGG@mn? Brxm S76@Q[T*S*\ɍ YL]N 1t i['fS]֍w>fii6)fMn օϭǸ.*cRq7'ji[\EL ɀt=@1>їٿ҄X.l %mLB6 {z<{r:r9gl:D5 Sxʍ)IohiXӘ&J ?47*,nsAg~N@x( D! & CᲕhJ~FyH/#Cw7<447KHAS/& '}0z32jl5LPd3Zg eЮcmf4z mzHXq#΍(VH =q9ao:3T;P{}f'je XziN+(Zt%hγ1)]I"l~U b\8o.kT[ TЅqQ g B t`yϵOD\X91B:B !-h6Iih AFa:Pǫ#x".LL as#&Qn·,!*iP':c_XP s|5؛q@>a}ZC*&qA)M[L̓LM}j ] R.  ᛧNkc?PٍҒK+?gO/ywQ+DR%h|77$|Z|1_>O̍Dګs_E ~Kaq%=Ĭ^2` D!:}Mh8hUĤ(t'6O- p@UzAefO&~\S)+z~:L+ixR}?bO4x#ri!Qp什q36'*n${vP4,'FKLFO`[3;B ?* dlg[=,?iinԟF?b7`2!OKb\{m7'>ڶn=6kYh_Ѫge~٭]/C^_{o,l ^+i_~gg endstream endobj 179 0 obj << /Alternate /DeviceRGB /N 3 /Length 2596 /Filter /FlateDecode >> stream xwTSϽ7PkhRH H.*1 J"6DTpDQ2(C"QDqpId߼y͛~kg}ֺLX Xňg` lpBF|،l *?Y"1P\8=W%Oɘ4M0J"Y2Vs,[|e92<se'9`2&ctI@o|N6(.sSdl-c(2-yH_/XZ.$&\SM07#1ؙYrfYym";8980m-m(]v^DW~ emi]P`/u}q|^R,g+\Kk)/C_|Rax8t1C^7nfzDp 柇u$/ED˦L L[B@ٹЖX!@~(* {d+} G͋љς}WL$cGD2QZ4 E@@A(q`1D `'u46ptc48.`R0) @Rt CXCP%CBH@Rf[(t CQhz#0 Zl`O828.p|O×X ?:0FBx$ !i@ڐH[EE1PL ⢖V6QP>U(j MFkt,:.FW8c1L&ӎ9ƌaX: rbl1 {{{;}#tp8_\8"Ey.,X%%Gщ1-9ҀKl.oo/O$&'=JvMޞxǥ{=Vs\x ‰N柜>ucKz=s/ol|ϝ?y ^d]ps~:;/;]7|WpQoH!ɻVsnYs}ҽ~4] =>=:`;cܱ'?e~!ańD#G&}'/?^xI֓?+\wx20;5\ӯ_etWf^Qs-mw3+?~O~ endstream endobj 185 0 obj << /Length 1851 /Filter /FlateDecode >> stream x]o6ݿB&o1#(E7AD,8۰߾;RNUnnu<-lc]XׇQR+ W)R~:V, N5]\Xl0ܷ\ny2P`ͱ=WJ]+uJ^fv~ߊOLNiWm0'áv0C|2sLAf W?`wzI U&$LF}o^:i:7*ؒ/)gtçI{rdi" GS)}}g_loi,QreOd1=0Hz>>}B9a~nwhlǞ*(S~.+=@4AkRA=Ho pHZJ߆SU"д=IȫR{Npŗ&|(UDu{r4'ފnm<=D_EnYL3+Kf y6ki4ڼrWn2 O FۼrWnm^8Dqd6f۬~o;Y6YK,/ޛ &=ŊWKeE8,z'Ү; 4YRW2eY ͗Ƅqcłi2_z3o\ugD&ēW/Pco5dYИw9#ݗdU"|P u0C55/P*fۥb*>#ݞ]Ht%q㏮&%}@gI $'مP aa0C5c-%(S55B]J];kq  Jƅ ӡ`j^5|Zuw)*kTUJ-ջ-},(|cBڧBD$S:,VK0PNt6!ؗ & ̡>v'rm k]Y+Ǘ$qL.<&X-_`N ]$,<['!x3yf? 癕~gUOHi@KDR{ 7C 'Wy<{J \])IQɍP!VEYk8VrOTAΨ}Yq+| f,bdnκByJƏ|J]@0+,`R[ĥTCryEPM( roѤ8&4Đ}ab=0~#쥊G tss񷋺a]  |.Bɠ?bX endstream endobj 188 0 obj << /Length 623 /Filter /FlateDecode >> stream xڭUM0+|uq:mqW;-Uu&O˟*_/D!+a\EF$*mMބj.HPp Rxzw(RِΗ$Q|(f_ n.u/j5hմ8CbCٕSU=Oܹs Ɔː7PʺlrJ Fzx ƃ“]W: }hꪦݐw!TĐ"E:~9>R ռG"}E[sCbcvD7MBzD_^Cl3FDZ;)A3+C(N24 w)9aa_& endstream endobj 180 0 obj << /Type /XObject /Subtype /Form /FormType 1 /PTEX.FileName (/private/var/folders/gk/jt8845y90kg8pwsm__hn98vh0000gp/T/RtmpoJjl2K/Rbuild13d86f4fc2f7/effects/vignettes/figure/fig-contrived-5a-1.pdf) /PTEX.PageNumber 1 /PTEX.InfoDict 189 0 R /BBox [0 0 360 288] /Resources << /ProcSet [ /PDF /Text ] /Font << /F2 190 0 R/F3 191 0 R>> /ExtGState << /GS1 192 0 R /GS257 193 0 R /GS258 194 0 R >>/ColorSpace << /sRGB 195 0 R >>>> /Length 37628 /Filter /FlateDecode >> stream xM-r7EŁ1` `6/M HYϩ(^K{_޽̈X֊W_?O?|?SJ_??}~Ow@\_eݿ__?o+?_?ݟoZMooy[ןG*{\wϿ_}~wiMc_}/ۿOuGGO?1_ݾ\e}ǯ_9ן_)}r_~=Wϯ7ƺ㺯zG+8_iq'RtJv+/ĥ*l{V;,"=r߭ҟv]_s_Jn_kRֆ9+>Y/h޿_E{~\~~!s'_u'_??kβ)ٝ?kvε\1pW~l{GǯC[k) =+|]j\?>?1w~]^;]Wd/Se3_Kzr~]]]yݮ덮/w-zh^z#[o}]VS}{>ި}]np5^{EFŎc%{]6+ntkWlVv]eo\͖]&n(muyn1덮05O]Ͼe^<ޯ=ҿNz6<.,~eK2/W;8s>}x/m]w_; U=.}m ~}!]xW)-k9e_J-wk˯/뺤ԒAN͗Swu~T]W~N߾gۥuiqmN':~^|]]Y?,~Ѯ{nG]gW,uڏ%mu.myզe~\S[~]]VXZ%vGk캮ut|]wݗu:/]Vu[/Z:鯷?TZ׾Ez~uv>u<%۶o v]맯cO_Bv]w_Wk׾lznm]׾}t6r֏A{f[uqmh[ovu=}81VjEm׹_VS,>umZ:@m]Izzr[ouO_o0†:ێF_s Iۯ|xFhW|Vj+z~Wܳv]]׻_ JxEB[o׶zv]9T%\Z_7j2뭞sK[ofcUc*eC[6ka2{כiz? ׵TP#0*cV>vG[o5ʿ=*SBU/Xڧޮk+^6y7[ۮ=u ׵kk\u犗l[k[x>\X_y/ 6]<qm뭝0h_z>Wt^/ /[m3]g_o׵mٶ⣭ZuUXym ⥭Zw{ji/m6{*[y_ꅶtصoRnu_Imת5zzOmȧz H(|zf ׵_M=u<~?W`i:֧zK[o}⣭g  Wv]{؇CCV կ~Z"iߢzaDn~-C7UXU`S14e!}%p@t+ `M`M=` `  :9մՔG+Ҋ`UX+r`e93TՓ<)XKΚ`M dXSnƯVC9VjՔ)c?VݸJ*o+T@N<V `EqX;`x`(>Zg75,iX# գ X*jQ, +k`XU+ VN`ES~, K/,Kx) YwX[Xv0},KVqX+ ["{XS%X#F<`P50t>zV`7%X-Zj:V ` XHj`U%D7Uc?@z_u `i?},ݏ%X%Ώ`\ `UP>V9RXHH(>VQ|X%?K`i}%t,K 7` ` `oK`,k 0,k @,ߏ?߿+: D n)MU9뭧Vć `-p0*j NA>V^7jq<V XX- +9VT~,5t8WX#>nKX3`M7uR7~X+`~k+o(nkXڿ`)X`ՠc++t`?4 KjvZ:Xg=~,`X?f`oKz9֊tk+_X-~ @r,: `E}XE `XUk`E=pXP<V4o+gnkw@k k*~:YXAokk}#`D,K{ڸz*_n+:nn X75OT5~XKΫڊ7Xױ8^bmֈ `eŋ* ܯ`z^?)~Ɩ?>ϡK݀[n@no~}߯w~xuy KìY?xR4'zwr' ŏ_%J~'ߺ󷻡XRgg|`1wwSiȟOOU'|wFz? hG>="<O4y> i5NO@rWiz$^i̩Nb?}AZ:ݩ&Lz!z/ HDXzç GKSa!CC~:^OO}iRo8oO=#!wNyq^x_:vT0<xW/<3?{?|}7Ÿ!Px0v^"/UxoV}qȧo<? Xބ `ބK}ÃrA` ߄RG>S_c}O? \wBlQ 7m <3hAz~O8[Ncp,⇐\uS'~ш!D9|Lӏ:ӯA`!h' ~Mz!\#mwӯ3<~^:tLPC!:ȳ> !7NKN?_OG/ Om:"tOy~> h\ߏz!߻AGN?>!A:$ h~!ht?GВ~dŻC'v!-!X+Puk!ܡ@s$r]!WtEC3yhHc>xMSL҂.TPR{4TX$(.94AzS-䙸ZS&z)!|(=]!yz@C~zD3s ѭ_HJ=lAaRvm?0Q_'b2bUͷZ2!׆0;~Ֆ >j(>uE9X6U0l{~V!+PTϨݡw{3?8*VyedǛZ 1>,_<u2lN'%0L rmgܕzd|4dj]d0JÝkE~z^C"KJ!ȘiU4nrl8oVQ 2by R#;7J ١{>%Ǧ5CL0'Tuҩ(w$T^Ea B^ JWsj$x߭tfJ Gs9Oם%*lkgmYlAYթtÉ%XXӳ97&@ڮOr0n>D'fςhXxOSCVVK9q&ec=n—9]JI!WgjƊŚPW'I5QR0 YQ|wk٭Q l)䠨X0 TvT#>f4nxڈ#̫6.lzgDGE:(EWC}ˎʆ!owk %::[&\:B/~>ATʵ|mV+*GJUKr|1n /V."P%9R"5 %vۀs= 6~^ZtwZ6PȇfxQ6Tv8 sahєC,%q?U1Ϋhe4aEsLATo!!M6w[.I%e.F#^@Pvչ|ui3[v蓫żxo&d5?r^T`SD?z*Yx}Y#ؚuwulR{h×+,OrؕB6fg ĪZr|~[mβ(M觺i ^p]Zzۭ1 4_!X Egufrėqr'2|rIZ (3S0kc)B TioXpXjL(;zT\JXw2 HX>(-ejK㚻M0c~ 2#Lm`Q<|-#3T]]b94'跰w>9l?UuY\E0~7J`J#̽Tƙ; ZU{ތ[ץ>!"ԼN)grڙUVU= 1HxN{=n=wyH68'JJ-4Eb nTg`rP:kWJ{L*ZD5=I*B Irz~q[$W&1ݗg@ [fu5Nc3:g4(pL KBqHɜ .o'%gd i'"7S;sl}uR%T6[ˠ JA ߵ+;3yӄB65L7# YE)q'|$n,iVC tt(877Ӯ **-0:uPd03>okxlw^3 Ya_|3 !BF 01ԈБ X{zAbCVq:Mۻl>Z`nVn ԰#aR-#d)KSuQ30GIќ*Hvlo|j 9->1 d\!|?qv`̍ cP]TQa24[(!'nYP8E90wB~v yҡpcH!~UlV%KJ/,'ǖP6<yGAMG~aGd[c皾bZ>W?6CҜVcZļAcA%tv gC/x.)IDnI Jn'&WGr~8- lgV:R@?=ѽKj:T*㠩³FlE^^/z:h U!+'܆Qp F%S _K8Dz= zNYg_sR1Z&;z5^00ϷLQrഝ@XX@ޛ4|`*?cS;9/h{?_B@f22D)~G 31nZ_#;SNFF(m>ܤ!BNBG?dάQDN;eY4D썭ӂ)sDzŠulAa(4+Muxb`H̃ˋO|eED3Zq//"BѲj\񈁐eRC8J )gLBb0K[3&sW3GCݔXwbdiVخo>w!x13Ȋ㞼6oQE 3#&EVcE⽄Ku_jr 2ަr:Kr{,XNbסhXJF4POv.e/+@j.m*B^/6{)Y&eӐcgK*v̨hJC28OkW#~ts.~>b+ΟMp0% ǒRDkne&IX;ʮ8ȊF FۂsC#=j3^!~hFsAa!%Ã3+Z(+rFcSc#ٛoklfuJ=/9ސDO\H"RQ%l\13=V[MA5>p+YE_/<Mڤ{8Y^DM n$TUJu>Mez99JNUnƱo"3Ā*j'3otc&C-*=uEX 8N~+O3#?.>1[Hb̒6jWUT1t i|-qVM9P_c—z pf֍a7 =/\zDY {s}du`!^@J%jEg/g >^ӓ}ƻí垝)h2u'{l%/#lWD~Z%`<_.p:Y ꗴ5~FQFZA3ٸt{X][5w p OnmskG^@p:,hdixˌ!vu{vڿt t.B%D4^^)nyyX[G<)'yb]o}$#_G!pYDY04G8yō(&0(VOrih%iReG&Ec;.kg*&:7jJ|y |D J9$--ًSt.I9%1B5]Btd:Wd;gbSuOlZ 4E$;cS<|gD!Z<5!YX}1vL3g,KHBN{z^Lap,E)1k֬ZCR $H7(Aej IJ j;]2(vSH)Wfgn_('svS {"ag.}c`JM-g424o.8A8 '=3fb>JT ='EH\lY0fdQ^:C%L{05;5 ?l3G]= ugG67ɗBIv(%QE 3 ɹZVI$FZܲL*p_OfdqlXy7THO`Ai?tiV]}/V .؉m*NFCxXVhj)hm6u'NYgt)\:<&gc234l|+,CH]и{Qa\NՂ}$a]5!~ё>\b(c )xҎ+{J6E\P7䗤y1P&8od憭mkzhV6cPQE*LHޤlZdg֢ x,72oyH*J8>Tݮ"SLhGm60}d9ŧ,@ÁĻdAz;IMS \Xff61[Irn ǻGMƗ۰C۬ ۇl]MqUAsX?TzF*kG&.|p2eCVAo/{Ž34w2 :B@/*>7i\1Q47=pģ[ {hM:|^V33m.Bi#vuц$pV8vTGQ֔IRCc)5ɢ_w68 /"]G.M}5]ETmaaw>łАth!vbG{RZSU$H:;Bg_F93_C?!QlWTeo FV.%ypO)hN_&$H̋1-%#\ng 0VM@>rWo3NXc&VgyD eLC텩T۩ɡNOwX61$w[FKGBwfmXϼ+E/a9?*;`lI͙tQ =TD?s CJD/2>37·& <tGx@LbrZ[ncܫ*I偦nZ9ZBǮ\.\& A*{e\4'X,sy.3pfgt6ޖKg[FNΌ,%r`yI2Q0{6,mCW8_]Ԫ0wj|OEr˚] & E0ᴑ ,1m(Uv#NNGN ,Ƌ-C!Rb': hP߂5S`f=jzvVB[m;<(r9 6h(`ˁ\O^V.$K_ #F! IM~ ՄXk,Zы';bgV+Xv=r,9jFW/8z foo) InF<2f5s8,eYi<owQ -݊^[Y$˅JUi+P*r~`.+&&mh Uzo cETX1ȎSlD>X^wN:Hؽ_a}RR<4`1{ M%b,Oqr~%|&$+ ;T̳ ¥9A6CT"B{Z YaziRJxt8dk $%렾N尼\tc o1`S9cL9Y&aC)!+UbH`6Y_E'$>:9aB,l{l&~lNH'[`sԍCߩ]9>3N3oz'Ekۼx(F`M))eoM&ëCc #koزQX$qXg2$X+Tg)2WxIՖ" 3Vqe@eb^3rmVg( 'W&fw k+0ٍbhmYMʸYC#t*10a;Ш2F~pJ^`7S3j"z'{0'­K͊?M*_JQ7j ' %v{TDn´y>pmZT6c;&Aq9^wm//WO|[.}ℊ::5%XiocܵL3F.s(;۹%Y;ƒVOsxa+mQl9eBu.*q@(oR-Ռh9"^M[o4ӭ,,`q緍kftH-T&pIIY(IT0tJCA5=St&tZ\Uk6 /Rhrl2CoyPL*`*Vl;gXdK "|bHŕ1m!:׻Khmh9Ɖ-.tDRfa._WdȼUcRTC27]Uևg`sIQ, su6j-W>LJdžoB{EHKuGsf%QU*cZpFrK&Zu\BSJ#og|m16*|bO0ڰrp:»=1Mp?O!idf!Ms%m <2JyS֯ro-f7O ,lc axkH$M#}2Ĥl2*y'󀕔aCM#jjG=ZAdkf4D+;yTiJTa/v1yDl9U$\3ΞCZ)2!k12VbvK-hDp^dE3A=0Us;4}|t fQki+oH CB $_4Ƿx~*K~ Z`/8ѷn7bޡ*QܾNq(2:4!f%g?,'j/?`Tc47KT-۴eVAә_uV`Nb_CrLۦ@@.eC[ kM(#]*q kLwm|>]X^w)RʱƃS1̙[57 wUIw(M˕>IZ=؏RA'8me*k[/^S\F-R T-؞B/O'a Qkg[et|JVƤx=]LaMKH18#iF{s`6[U-S^71fĶs-v*WB]ײÖT-cO1[A&X:3Är(wȣ27r7=+p$;tǩ4@0y#̹pHsĚ@es mkW̻D7HuV+(5'Io]<Шb VsЄSNdYV%zǾ쥳7uӠCBnCHdq ٦۸.VD樹 zN! Fr9&UE@{2jB|3PHU=\FA^mLw@rK*yev6:h7'B臂ag>)tE-J|ڸ4x+7!->˪J_\B N0H|fB΄*ᗰ9U (NfͰ4*ճZ%[ $-wLj,=a+E:P>:$!U7(vȷrvK7d͝U"fvUԠͻ`?jl3n(? {oVK)#O5\-A{f"x`,7%x,_+7N1z W`Ma/#҉d)AM4c`P.]BMfOT ILg"$ 3>Վy=L^^<3|rܜQ=1B:xg?kFmY '9vM-1=!*U .o[7;aɁ$R&a[D0**/luŧ0JK\|ʆN:/A윻T,d]Q UNXgSOd n. ꞯhu2WKeqeUpwM>;[\DaK3ylcN2{ `g4lѴ֡i:#*]%|Y<̨PAѶ6"M( d۽rr&v6m4fD%U/[v>@qv33YcRCEp@PrkYvⲳe$~Tc4B fW9$T[wńۓcɉtlB/gjĆ/KZ@ÈR[o*Ħq>S` }`/sJfkN3nMcܘi)t4 δS.1!:'ǃ{ y7'6)4K{hEٿQ$rPQUJ2$60/2e?R8LEZ0a3D|P$S%̃,z-WV5MJ8Jtp+;`I'*|䢉[<~ y2Q8W!h) oVVUa&*:NvA`$?ݳ PFm"nFtNM^JO<:`X|h՘hHP`reYÕ`TcA#T ˘+XqB f5pNc!Shm\@\ _=㯖׺Yπa"װnn<rڰ`-R*H<_<#qL_fݫ* !hgHbPO %dQ6#11Nˤ- nN%f^/E/lW)-sFg|+Ѽ1FeJA!}NAϴ֍"c.vcN] Z.)O\T@"mØGl1RZIE7>75q7:YkxJ5\MmruJc [\U$.R9TDRפ1c1Wh2OT̅L? /iq5mچepi3rZbpcLlƌRK}(KvlkbFM,UKcӨi!N-Q_˿%ܥ9e7 꼒5rȢߚB.zx1yy[jf:buhX.~NyfSbnSq渏NnE[>m,ؗBy m98_$ojhR"}4O"nv3nPrwXPFH$=yk/u%ƀ2QT˼ ۲ŔI滂ք-K2SaWIBb2vP&^T6SO[vgYZKJeA'[V\@ٿ&L*. ܳ5L]/&LAfpDuTqA$\| s!d%c^3ŶG9$v(z]~/j436?3gk*ޠa"QyH`ZfbMc7Ϝ.s<0tM((;@٤?G=+M0(5wUV|4V$0 uäc׋6=-Qh0e*R1sjS~(J3DkqQ"-a Xe$3 gvDhW=ސ~=]6E[Fڴq&BL7о ֍M;3^odYp 8&#W׊7jߍ5FN1jjU^p :򌿼i4T`M&-^PVF}C뙞0ȸogA:Uڰ]72DUC'uS$kz#W_F\k:0ۀ yLO;$C3ZE3e*ېwp+ nvx$=1?ʱ]6U"E`x8ΠyOr<2$L߯g#!`RBGMIVb6QJa5O4=t\4<5+޷p9n~F;PD [/=fјn2>j$Y8d*2jf*vEz/  o+hGkyE5lveGf GUr >9"B 1bHӆ4be LQb(r lG튘8O1mmCz=e hZfy̯{jP<ЬB;+q6O - um:_r9Tw5+bYN4h2a*Lj22s5q){ HYY&)Pګ`0wz"єSP'6GE8dpKJv*;D`gc`7<<0ߤ2KubI0 D" `b䉽ɥW%.LR VYSlb C0\t6E8rdjM}5X0nm&V-h"m«ۋ}~zYZ$v};53*z ^eo-m1]Lˆlj f{{E|$ۢq\gm޳;/g1V+ 'Ƿ:28Lk J딆!m#Յis?V:[]\$QK@[#o\N I"QplNCMQQ^tς0, o-a7E#z% i'7ª^b}z*hX̢ ϶0 sWe^2]5xb$W5ztys;yLHQaA20yNc* Bl'-IӒTvlkvqK/[aC!~vFU.'@/uPR%LlfS!"edޘW d73#^!CK1*K n!iy|ۙBAՉmLbň{TA JEaa|8uXKfYB ѮhEڗ>wLA $B2(7|+IGZ^ mU~:yZF!kd\]ܷ0#p5$TOB:}n]Ϛ6 >ұEql_wem!X<&gG r>sgtQc9d4[&dfC0cq4Ӆiӥ3DM–ũ6xSO06 eH$ +Վg ZJBZ]r(g+8bʏN0&(|zn1͸A l1#^ D4lY]mFAcHlx`z: ΂Zºbb8 ۼu9  d~nȘ<,5#ck2z P,cFeXnf>TzB0lU$5p8 _RKBs8 7竳+o0bfʘx⬑ EYq驚rO : Q'܄F;wjxhg!CFtcq5ۻ󜶤@|F,v],ݞF^7YN껆bh!'f[7lؖFL.{ XTU۟y^OVR8q)%Q{3T6nPyL"4{5FgY˜*a"a,5\ @p}&QBkj4ErU&>DU,2) W='Ify0 Ie!<)D Yν&o&#({릆ny]2Tk(䕍 `gQRaUTL=zߡܽuKŘynf:2n$] vR*-HA3BM| F,6ゴWфx1vm-ln;ev]\iCm})-#lf.TZmg!frʋ ͨyj4ғZR.Zz=CG:o"4lq OV]uAע$~AG&inRۥI%om̧F :[m)S h^{hq U!`Z. f?¾Z5G D,cEuM$ wUTC7#%N;jmݸuWqb_}f&']rg$|'aҵa`SD\zFaHQjO5ɀ Qߨ"l!P-Y:{ ]GΝ# =7i0zl@ȮU.DH 5SÂ\gT)Y$5XE I:Ng09, 3aSbP/$ߺ NJ2i[̭Y֤̖yQ̴uG0,u='L"-EFڮP+6xWzaȄpY߸`j*,;l;TMe PsbuƮVJpQ3)Ϲd6N|$'Dğ!/Y 0*) ]*IďoWUeS絈l^C6ؑrUy+4Hы [UǮ9Kx"U 7iE4c2o2lr-L\jOkbfS< !XK: ݊|3K)qd@AANAIyY?s+$􏟆-2JJBs:KFl_Ґ㿧:vA^uaLl/mqBDϾps٦<'*Kjr"+@CЬKTDGl@GZ('bwLnp}V@BU0251y/z%6CU 1 >.Yxe>~l1z>;tɏ,xjJ (bgɘ-<ѭ F}UN2%fsUP+8+gɃbѺMM'R*_IZ#d)AE\f :z,E-.,[ "9DSz37N? aOtx~egUc[MCȺ/-5HP W&eeAFW,0*w5YuB-dN+lVy96+#<~+ ԏ6 d<R+IW '~uя²| ?ʈ5GVE !ľѝ?xTE.M 3>]cq-Յ`ϗ\'VT,$WCц A/U!OsU)1p_rc*a!UwSTq9x [4k<;nt[g2>߰r Fp RqI Bư`蚹Hz wcTsP'V&T N- [-r}g+h dDŽi~yQ S?E] 8I;?>eNMzHͱ_ijPY䋨cE 70K= TPFM~I#lT3i'fcM;]-p:ĤsXGvȽ| f&UmaN'yxZ9=^D0BgAOHJ gb+hޖ]\G_cA `b@3ꠠOg.}14ggפ7g dzKotQitȀh.,06Hהřդ)EffW== )IwzPՎoSiJgr=ju q{u4htјl)'ap82*\/TΆtہ] I>[ tg uE56~ԆeCCOs^q(\pEeCK銇f%#RD\}ԡ9PBMCK*rg6gT|[6fsq tΞ: 3")kisf ;F:dEH!څCd~,sL]{9OۊvHM4㴍RCg.))+{V-!E<MNZwf`,Կ y{D$'ϕj_\CS@4AlӚcL}'zv+PPll!9BUVodNhC(~jiBUawo4%6#䛪|,|6GVXOKhxCs5i^t$ԨqЦ,bHɍTI1r> *ϧӲ?8v?9K'o61n=*r0 7%7Ud [*jT'Chh >,t6sz6sM=Y:|:.Ř<*[HUphUjh#! Y}mgw*= ckQo?;Jd2՟٬ZbpfzMUDB^M*X\^=(ihuaoG:N}:r0|-DԳMآ@YPZv4pdiR*2p/%'c!a>2u10㵠W7KB}*|W2\ rY^>'^=9W(D+7h12>3Nvr<ɭ4^\{~+| )Z-$Y.K퇋iĶ<kbBU*I^PX8b"qXв7 ?!sa6ⓁhfHE;.ڈdTQO}rq)|!#Ï<&i=|j#L: |6ы0-J d<48oJ$(҈BMUۏS;{W3PG/,Sn~ިxƴ{A bT|7iF:c1$y˙pxDY9B H',ILwAnbN6fax{XN.U:0=`j19FH\pXEE "4qVdXK#Hr#eV|cO,E@]_x疰lTL uՋOLK.y)4na>9RKb]q.? 92ƒô@-DPq MY}|gUď f*.sy5WSZ9i*zJ+K[$F+ E"fwu^r4Wcdjw؂*ؙ`WЛ2 k]ā l q@+:攮D_ڂІ>[!Gz6f$QR.*.CEX?swS/ySP٥TL P]TB;Rwȟ #ava$NY.`b:gMv^aP*z#p'9vDs\Of|&Pޘ[>tWٕ }ΐV Y<|IJ)C)a1WyM4(|޸g ƻL$ hAcUjߦk{, _'CAo 4}+Zl&҈Ic*2*! j eԖl94UIIo6K 8;l^hl*>VC3GY=G%`Op*-a,7ta@2m6riӌ =kvD~\h$DɸI=(gtbhyVv.A!QVdGn~}K Iݼo\ $际dAn֫ɎaI@Ab,z!:1!f^m ߻T~z2 >f?$4$ynFC!ycn; I GC] V +05_47ѳV*us*h_aDCr?oAEViL)X|n6z(Ƞcϟ3ۊٱ0Q,٠UUkxTTv:nrOI)LR21C8:JTwý|X'B[aė("5' (г-@GΑFg:Uq3^qGVns]\7[Gؠ!M,V[زN!!v]rgH;ii^?>Gikr S$\F$Rb܄2Fq(Z98,LO9Z`I OTW+ .b<7Wz8/Qݬ-‘R-!BNТŧh=(a+A~ d;t握g]W1b̾?7V ~t!(c@)aqL ίi$  DДn58NNfߢReɺ-}N)Ѳ?j;GէM׀8+`EP^+( <*t4{LxRnڋ{6~OQaan"8ƽz݅H}v70Sh7p84ѧh {p:ڏ`| yqr8D! 8:ly!BFT"p/||k'`Wx5j woGfu&޲^=.BHgŊ>H4lr>Z:*袄T4+%Rn Og)%angdU0j L+DSXT@V@U"eS/^DJ N cYϨh 3Hĥk8D?݅^D\b{IܰM DDZkF%ߎ-X+87pME> UTJWΑ hQ-~Ve/GWW(3Ln*[xWTVLZpNy3]' ״xeoEqF~.Eʼn_8zz 죔cDW'BTmwڐ|t n˦uQ)EEB;Ef&Y㎊Dn^ZRvT?I  NAKG 2x/HGkֆ-ま 0lt7&ea}ɯ,1T~*j+ GV4C*Ԝ k]Bv n=C!A+2Ԩ]N+ ]|i[·b,њ[ ;%$&.Cnhԓ<iDd!ap݈ݳ) {IM>(q||qG"zH'S=*g;te dvj|0sk?RąTMqg|xRyYHG@OQ|T0d1|H'] )kGf !FyIh# hF8+6]/UьqyJ @<5O?\JReDKZQCz4\ɸJ *Oҿg[E,(|ڐU8O_^2wkPhc4n$TLF_r9==%]Kνݱ#r' [,oD <d[@A G|0lh߃9BAI3`(;xC7q={M66֏E3sYe7Q5(}޻u$ )3BY?dQ`Mhj9X,M/(z4q]5 UIݰI?2rxޟV4r%?"`~TͶMl!K#\@h.!7ّROgx́LNGG'lm4WX8Y'0f&[HqЌh)%^˒vrI`몔[̲s:qx~}p%G r1MMWٰ)heP+B#7xѺ?Z;sb{$xŴӅL[,.ђV1ϓiRf4i_,, S([a0Wdh-p4݌*u MdkcJ"A[¦SlXMA'!x6oeo7F(jkS:kc.rWBk:WԎmW*]hm5JwkEhPPI1m.iY@Q!GZjׇa`;<_qrdz22TMZ\b~<>1 2*dΗw9ZчoCx ULhsq^Cխ>KTGT/gwu3:8bf ܞ,r,10,ݮuI3*u6xh F#hØxlu!k=ϻ}Ϋёb2/BT)}+)c\UXilJ]e-4m!AA ^Oa.8:Kņ{tJCq_ ؽ24 멃sK³gOxDb&ɑv ):?gAּ; pQeAz jFC ^I.e淴|&W;羖1vyڋd) BrKvE3.wÝAu-eg-!,ּzE(Ob)0HJjv]U9:WΓ]JFc$"1W5[LMlGr얷" .=2tDb:tH I%D/bD:%d.0e[)o}׭"0]a}9$1-% :[NKjCUeߋ:1[OvD&ָ'Ί@w kf[j6x [|`BR?Zܾc: ҈HUETTI1;ESf MIJl#244PXJ f2H.Uh Ψt3ieO> [ܦ͏Z: U0,֮*myӻ 4ZU\NMH hhzhmhљ`֣]fʋ{咧B~>rWFC#+jKԠmfNϑ.cB}wGzU Si[Ed#GR™AAY음R(̩ZyU!Ãh8M0vZetŲHdoxcI=۩y@@>݉{ VU=XS΋hn}pGF UkH֌Q^)am*Ad |V_؊3)+iǗKC]G^Gҁ]Jh"/#ʤpSUSPOb* S }ݛqee瞎O[S$עq]V˒Ҕ+P Aby;ծ}leTVTvwEخDi٭"g瞑oNrbn,OFՅ8tK%x#}Wۅg{Wu<^CzTCq\Eʛ1O`Swe8&O=@욙&,+ǎRՀ4 ='ď#7 Cur. u)ΓѿW%cҬhն-df3֫V\% _1=aRi`ͅTv ]db8?Tt 5dҘ*uP FEOCqMMϰ qUPf!b@IERltn&)QepDmI׸iBUeX* mq֎Ŷ|ƓwtS,Xt:Mvty؈ީ/{3ol +9#/-/Z|a "e|y > stream xwTSϽ7PkhRH H.*1 J"6DTpDQ2(C"QDqpId߼y͛~kg}ֺLX Xňg` lpBF|،l *?Y"1P\8=W%Oɘ4M0J"Y2Vs,[|e92<se'9`2&ctI@o|N6(.sSdl-c(2-yH_/XZ.$&\SM07#1ؙYrfYym";8980m-m(]v^DW~ emi]P`/u}q|^R,g+\Kk)/C_|Rax8t1C^7nfzDp 柇u$/ED˦L L[B@ٹЖX!@~(* {d+} G͋љς}WL$cGD2QZ4 E@@A(q`1D `'u46ptc48.`R0) @Rt CXCP%CBH@Rf[(t CQhz#0 Zl`O828.p|O×X ?:0FBx$ !i@ڐH[EE1PL ⢖V6QP>U(j MFkt,:.FW8c1L&ӎ9ƌaX: rbl1 {{{;}#tp8_\8"Ey.,X%%Gщ1-9ҀKl.oo/O$&'=JvMޞxǥ{=Vs\x ‰N柜>ucKz=s/ol|ϝ?y ^d]ps~:;/;]7|WpQoH!ɻVsnYs}ҽ~4] =>=:`;cܱ'?e~!ańD#G&}'/?^xI֓?+\wx20;5\ӯ_etWf^Qs-mw3+?~O~ endstream endobj 181 0 obj << /Type /XObject /Subtype /Form /FormType 1 /PTEX.FileName (/private/var/folders/gk/jt8845y90kg8pwsm__hn98vh0000gp/T/RtmpoJjl2K/Rbuild13d86f4fc2f7/effects/vignettes/figure/fig-contrived-5b-1.pdf) /PTEX.PageNumber 1 /PTEX.InfoDict 198 0 R /BBox [0 0 864 288] /Resources << /ProcSet [ /PDF /Text ] /Font << /F2 199 0 R/F3 200 0 R>> /ExtGState << /GS1 201 0 R /GS257 202 0 R /GS258 203 0 R /GS259 204 0 R >>/ColorSpace << /sRGB 205 0 R >>>> /Length 54112 /Filter /FlateDecode >> stream xM,m$:߿V:ZS 6` x`x$[ڭ_\YgW<еyvUf%s-.2$7>/ş׿|O[J?z}=r??\~(?_=rzտ?Ϗ?޷|˭o+?2uן=~.{m\[Z~O{覇۷v}]_0~ѯ~_?o?F֣-k?ү_O))}[H.秏P~_䉡Y~ݥoR{9oeS|@ >`oW饒b5.n@?~/g\|_KyNrN__`)cJ,-;`ٞ@|m|d >}?2쏖Պ_Wsxn[[g֌[o]fˊ?[ɗ%ڼ;%u)%%u9۲Ϗ?|w'wqn~׏.i~b¥J8pߊ]} .^ 緞]kV{8S_VAlף_^*^k). &{Y쵛 [8q◺KqRmǷ\aJ.v{9~{.[܏brU|~e%f.kvuaX+čK%=ºl iaua .rsUU]]EWݵlؗ]uMu8v-p.& qRv}rRV%V[_&qm\ V .}=žKL:?r]Gئ8./#\˵P޸X^._;WKbf?a K ;Ln6U8s6ٕ8sb7Kb sxl&>vysgdr>pȮjKq]/1]nx_2&Dyz+s9ٮW츇˯W2Yq}lyCq]?)Ʈg7yNʳ'N ]2A[=ds }gj ?r'؃˗e؃Kӫ)sy%eg/h>%>A[nV >-sp˛θ^'{0P3[ ˰7ßp k\ֹ>+%> g=dg/Yx\< _nq#ͬ\.\^.hṙ͙>3%>3>lg=dg˘g>ϓKv}&'q=؃˸%O\zױegK^2Γ3}^2Γ?d؃3}^2>혭M1c>gZp M6}^2Γ8O.ς;\_`.gϜ4Flޭx%3˒'_L8OJ^gyṞ.Bق`X4A1 sYFV媩ӂ{epn LiKҟ/]^bf{&T¥)r/#&^ V;}]St=QV^)ŕ~)?BE~)?A k0|R`⥿=D. g*T'G_.:/wa{pl_b#.,/gFi~\"%:w|?:GMu!NӢ4F^o][3cӻ\8:Lt_r!*nj`E=E=E=5kBTEK  uP:@m TBI FB5(@=վ T T T]"UqUy#P7: &&+QP7 FB(@MuP~2oD7@ʼAwP@J TG-BՄ2xk<Uq (@(ƛBm(@ڼABu@(PAZX B-_@5454545 5 BHVP4=  EP}B}BuyBS T8uBѩ; TgPpP j j2j2j2j2T A&PTU JUUU B@j:Aj:Ajj b b bEEo B!e֠< jTUXP%%e @ hg܏7qP7 jq^Z\B-zA(&OP'@ jr B ` ` TZBP  w BP |BA(؟߁P eP @F{ T ' Bd"Ud"Ud"U :Ud"U~o AP J>  T Ї T P}BeBe7@L/@L/@ TA(%AYP9%aBojp^ {P!@M Ԧ}j>u@B"zzZB1< Ptrjr5 (@O\OBMDB aP0@AP/@H59 n'= Tg PO}: BЋ B5B5"B5j1UP TBU B1: BB\p@( UBB|B_: B>oP TЍ ABe>oP8JP  @ >ߠ >ߡŰ@QL|^QK0jv@F:-(:NF1`cb*0EL0j F->"(F0j FM> :$P-(FjFM> P(`RQIF > H (2f >.U"Íjh55HFJ [ixh;UFmTpK8u| >_wЉrtb\H( E8FX#Vp2.orKbz[cčqfV3(6α% ˤu`b 3fұZN!F@  Z~P=mlw )ȷ4<{ xo߉?{uҳn-!{ {3i|x9K܏A y#q?5GԸAGnHz"IEғY? ǿ#[>%)y?=G~o{$ay?Nf_A ;H"/If/I=H"G0~/f܏$^Ɍ$:&⃈:IcE$$K.D<ܼ㿴?0>L.?Kۖ!I 51>61~71^819<@I D|DIR>3?3 | pH,{LOEo~G7IM>Jু })9N%&!!>IJ$S i}GJ"tHKħ!=:C"tHZğ>m>I _IfnH?⭁/ڷ>&a$;?'cAj trJ`Hsn!w J">$E&AoIX?7vw|a"Rh"?Sq? IsHrF/O+N~x_U7[wNIIoZΙ#Z֙kcDBI #؉'F~1u|^'~;{G7 (xiOE~O_DrنH2qWQf@' C$e x"R讦pi]O)rìXX?Q㱰|]O/%R L$ XlwKz"D;@g;GR,tdv1jXe $CG7ɾ~u R *B/Ox(8>}Z$¸8!Ş#)e}ʫ:?.|KdCѫ% V&\K#^,3o4/i⻨vxc3@2 5i@VEg)lGGX"A*Kp삈yGpFKAI'8.$%1T]퍇fk/o5tRW|/ɐa!6P<4vLn2H_{B0q3g g_ #4Ha|,۠ ~V6,\ϱ>N,?4Zl*I]N*0odz^o*6=_/ S{Sަ+cVKQ_ΎުH0Lȫ[:i Q¹֢dRxbf,F و{PjO}8/uVr8~C.2~Oȅ?uyqfCVN"q*7b㸩7J (O':L%Y=$3u6 $Ֆ]QDf^nTeo @jI GŪ!|D;-rG9&HJ3UbCrZk LV^x b95թDB80f/_v@`cΕM`|ݓ8JG¿,\-Kq-݈Nl ύg\nT l!.|EV<󐫴;濇r.7"iKɞA5>I&uLCҼ*nD=8D>qSU ?B M&,β%! vSi83&4Q@jxVX[:\xXY@%/J@2LS*[e5E"\JxWf/pez&t-w3Թ+kC/$HZĽ,Rׯ:ٵ$p= 3y3M9TI=2B<'$8l4&Ƅ34|ްJ +0V:H'wERBo+xCR~|iK5KVQht䖸B XeX.ELy=LM:\k<G>ZySBT)GKg ;5GSQvyӧ @IDHXpG`!W'dKL@ֲ^'_=G*Q@2}N# .DB6w>U׬*ѲR@x%_k[A7 .ʩ6@1>{Hd'>hGJ5l+5*+=u|gZRizIuGED. UmjIpQI&yBó Y 5後l>͖V ( 0+0йޖ"'؋]}x^}Ż1KT)w7jUidFW ;赹60qWY2^6ъ:[$Q؎%[d"U@0*LGmctDeI֦xV^FV$ AJޛc뀳$.7WeC6ੌ֗-QGt_p{"OkRhZSa62>,jV@3u3,V RmӃ_z>G 7awz@ɢoT0hda:~3gX" 7qzڕ৿q',upTwtʬm`-D[x=EfIJcU9 ez ?%\Xj/C[d72t&kS_:77OZS,snC I Y="LeQQՔ!|FoҨͪ [Hk3iu}]{zԾ.3/C-^ڭ]y2yw͜vE5 (rc/@,=#'߸WW.N8霣Տ00Ghp\lA.S& HȮ~UӎRD >1B&cdr:8O 0D0B&/*2 Vh]z7 lȺaI+?)ZoNM-vJB*NdVk!j-Xa_k.Uj@$gZ+R1ޛg]%^54ѧP>q USvS7`[LR +}$896MDYzGHP\%l[6Z167;&st{kiȞssJpRQJӔ],9g$I/]܀V$!oY"76Ypim"/aCXթ]'d`XѰ1klTQ YA3* IK DU!jݠ[i#q)]E {J4#TV͖}ymTSV1@>E~p,ZE7{ʼXhPtXTvy\7M4[h1` UY<2f4MZ PV)"J.!n[ EijUIaa~Xĩ>;}T-] `.Dd+k͍Ъ+^ }1NYQۛTh3lPn>IZm2 %DSe?M*Uwʦ%(foNc xd#6 $[X$*'~l w9h'|HJ]ӐN9R,2XEUvu7wqYMRS$;髎jk,ដ1$F9.A,HTP+l5Q=)bW.1Uo?QYFvRq˒];S}x\fPILj譤^;$S=AwN] &' HՈeKǫk%I)(JMh\$iWC3. fVr 81;M5uKXe4,MLɩ-STR>[~G*,x}5+!#IA B!yM`,4ىNf H{,2(lHTܕ)pim$DILm|dyԱ`bIovovEw$c̠©ũYWTNt<>AfuwYڝ:"O4Plmy)btBO_$%/E#,(.2'.z:F}ͮ&zDyC u0 "Do2j5X{600m!< J?{b@vy6fȧĪ !ڢRA>m]c$5elYkRNfTWՆ#84>NikjɖXت"3B!egXߪ.t! ;,/I8L[̄zũ.WTTgd˙iԅ`y96H(a. XU6 ՊBi:fNѫR5*a1,;s$uVpt3N)ES;ƬRWdP,J̾bϓ1] rzR붳6*ɪ(BР.2\ʔm<[wD}pWq/&esT9A!tKT#&;E=GXKӞUs4m2iel]ޤ!U ٻ[@'21 [Y IEys'05~e~ :z dSc$\U>Q8*ύn)10uFTL55oN9{|*0E[RY|[97I,05Kz[  McsMU wMkuઽӊqX|4@!p5zoM43ZAP޾l*9 t Y3@M/6ޘxcUU&x6nzxYѺTD7/LBd0ᚺ6q&YXMոzgs 6myTuNm[Kg+).[Ԉt O`w%OGd9Z2XՊYKnMlEG/nR,W[8u&% /u4mEn2QR HMj~ikm$r&-8>GEF5tgQ%u8 tgzy?_ 6x]r:Q_@((roD@)†cK63Z hmRjsdswZä֡4MAs+܅)ptOn=0%yy=/LLZ-ɒ9K7pYױXyݮkѥx#XUOM ].Q5kpU)T` Nogy$Y;K}w$MdYwyoZZK!qޘj.DDҷ}CF=k*DeJQک ֝3$%۷c字A(@߉!jMY07]޲M6Rk#n]@\|,Ŗب، sr*J2"D \^b"E e@IV_ɽvT7ůqz=yu FS2't:s~Fޅs^턓m%+ȋWad[,p2&}ۘ%S|?>b d?ԃS*Ȏn1ZwrƊΔ7q)+YAPͦ$Dorf}ĶuQ--@C? MgEiāWȞ0 ^8 9I-f0)-qJ,N`2 j`=O-0Q=_VYzt Vi;XJ9h2Qy8&''Jr,l7%[$7Fs,4@'50EH4eفhs“n<׿b2JYQ`$Ee'3D<΍~Te fќGV9ieE]e,-kƠg`o$Ѕ<_i Tw@U wDE@.1I|8p f CUKMƚ!{$?=;J,{vOKv= ~+Y7 3.S*T,ٙ@^дyPHP zPÂ%Llv$Y›I{PM~0"MrsKi.f&=r`CtUL,ٿo%^MÄ7AKF;,muXԞ嚌F&'IإP Ӣ>і:BJluC 2Y[h1HK'f|(go7hsM_0wh TtJl`ϣ#i6i[kY%m-{Z.[(U;Ui:n Xbx[҅7dgΤ֭ Wt}IK2k-|N.7U/:$E44jd)LУ $\DPWn=M,a&}~GC4Un67Ͳ_R2gLS*7r4XRz-x`8PQ=0WؚK2ɮՔt畨C}' Uw57mbzbzq*̒a7f'U.dE,]ůȏ8n_o^juӝea^BPdi#q)^铙q_kwk7zvH[.;[> qoeb  >xŋœzWDzͯϼ%|z:D]~Ic\FQf~o>(WL\٫=3lb6ȀޟNohݒ~2zYFMc{Ht O Adk 'i=ܓ^}OgDO?yRP;Tw{V.z^xZ7Z;5\mL6]ڜ핯|\?_>gkǗ??_>7~ۏ@FasH}3ް\e]?}OeD?|Oe|5#V3 xuny/\{GvR:]uG?N ߽Gvoҽ^#B?ׯ@#!?(#?=k{G{joߣYR}xKG~&'D?9/EG_n=ܚ<|] ,ym(>+| >}(>@?}Ii:؟ ݮYPcT84 BtH%;6H eoʁ9fN82 :g%m(X4*nכ{G1b89B  T1yV&j*~b8kB^ e&ߣj~' aG&AU2˒ F<C.(%@'g2_+F藣< 2yzC$7K<ض<(Z~GM+$wqGg&W3m. /&fC^`fkA (/S .\HA&?\Y2[@m_vj_tw[6]Y]-wglySbrKww}Ժ gO̜mqkvdNpFG ~+{(\(nw (Jsd'Î5.#br+;Ssyw`d?JNt+)2R\\UJȕ(\-,3Ww6T;eg?V/Y߹.yPe+H*9RL rk.*kбdTmg&{P }|r?VŹPT$K,"Y f75 F~7Ȓ y9Pss?V7te!c31\߻[0?;_.WʮLnL_LC#MbfoE2 }.c3Ӣ~o6-cbLdZo?#.귡OF? {.=A]j@]K@]um@]PW@]%+B]%+B]PWokEkEU U 'ԕI?@ 6(ʉ'ԕԕO+'؛@TJ::P!/ʤvԕI+'PWN?x 7tPW@um?.R=@]Ե62y߯Go">=g>;ߞ_ww?B:$5@+} r:tOk]_Ze;5ݩ#;(<ΫHEy'λTE%s:m89ω>R;;B'"uFݎTpOܩ%ߩE|c<s9!Su_${I_H2KfR͌_NĿRˈ73㓚N]#{SHDF|A7J_G ㅈW gx'㈇ coZwԄա./oR75:AVqjyS7H%aSÕL˕@ӕxRWW3J}F_" "^5)8@75MAa|^U} Ҹ>i\>xNxPP/ |"C=Jϓ?YA"ԱT#RVP@_Ļ5,U1eZFbRԦ@s"/D>(‘/\ϑO q&s&s&s&EXzaNlI{s1}vC75M^HROr1LS'xC}b|bM,,4aE +,m`|uJO<,8w wiwwiG~·G4r|B໐/qSϥE(KXtJr7X~]ڄ|A| xᛤkO*)2;Jw]o>L1e)4Q|( >!^w<O9ȗ P".KQJG~)#KXG>SKV}*U >×"^zTSߊ eJ7-5^TXjb񆏪CLl7x׊׻ݲ⁃U4 ڿ׿p .qK9L@dgd#n{ eDaQUN3ʦAmMi5%!(jQۄrER^siTᗏ3ōߋ7tiBW Thhggibl0C9k8+crHMOz:O^Y"6 fGbCb)j-`m<¤׿z-=Jɪ B,{YNtpm^XB^dy]&8NNFFxZ=(Mmbij1hkÇS*N/~* Vu\-z+sSX,fQL#ז޽yGO~^X2C߮s˦lq\z k?_Gt;(deRq.nR(SepLB$ϒ[ #lyG;(%,-˱gY|wapU_{Sheˌ^iR|u5y52-0}ѣkQ9oy] їgn?v8֩f>} EVMgg8eR[Rx70L!%5k*h] 4T-+ZF|T"R~MI`Yvv$>sH=ٲdP9^?`r"f׿Ւ j|(CCle,Җ=] m-_.9İIb[T ϣrb SН v-B'#V*\ZLFTG(y*L;W$gBA 7Vdm͏AX|C32V|>)c~g xX@metY 10W[x Jц-g#D߬b:62nPR+ ub-UGXfNWGv-KI7WvS!BTUotcAucQ''gk+1Q##(U R |$'@{;D{/;tH9c޴9k5~el\}M^!,|*Kd41^+{vpRUm(|1Unn[M#JUݝ]R$LCScMf2V* 3mDԔ\8|jӧ[L/U +}^Y2 -z&=}%-1Ą&g`ׁRͦ*C0we%.VB`~-v vet 1Snِ~$`ʹIQ0-:'9BJɜأҘ(\V}Ո'#kmpճngLw>Fer ^aI[Fd]0 34DkǢ)ƍ !Tec{Eebx%gم7u"|`婏23_]bt'SX&EXw^o&r< EFQ.W;ſ+mK栿.Q3ɐw4_l`IɪٿY ~X5T9;˕NϒC^e^%+M. GoPOSӽ]*1բ?Jmb#́]j _\!|45&zB0c$uɤ(ybjlt*d4K= V,A>||uĹ]a+N4 *$m K\TfV<@2 F!˗k^F)@uD~Oo~]_*r8m?KE&n%H{/ƶ9n"GY"(P ]1zfW9Qtlbk2IQSt?Qe6, UQGd"F_ !u5L-MgsL^SEuYU>ktf\pSIȬx-Ro\9*s<8Җ=KFCj w2@j͐ژ,PPY‚+4$ۥauH0KN4DQP aijYbfyz[2I ƅ˿%uɀPe#@e^h:WF!K f8tW(J v}0Ԗ-fرBگJYbK.O eob,㲧3iltsReYm@ՐGř=$ZH2h/j!͢} Z-j1X Ċ$4G/58;)cꜲUȠJ?V$U R7TT/o2OO7X44Gi,8^;M*W2l9:O3΋٣[m1]C1MS@Y:HFVhp%kd IeNQa/Ʊl3Ѭ9=E1X΅UwF ׄ$qEzdH-b@1RQJ@[N(\6gSJdySXJgbe6_d"N YdCpj V%OGLXeC!ɯWDQ7 4>N %.H+Renel +Y(MƀV r"*XNv_7ؿ"mN7T1YAez2̷ִTr*tkH4 :A7u(+nY5TǍT+h+2ShWU Sz)~UCK;j5fJ,AT!BtS,%ѽW<{:sSI搬y݊PXNr>R 2 }36B|/  InĈJv,YPbxMDi&'VԍJr,Rfv{G֤fJʗhh*F|U @yH< o¯ à(r]Ei1dy(FS(Y /FWlq]_++0XE"7T n6PzYԓ( C*3 R ZVԟq93թrƬ0VPQBE $Zչ]8^%履r(+w259mc:eh,#`h*. 2N4W$ҏGdzy3b x]^LWVsT(MG/"J$WUi$cUix>]}*ev5,1ʄJ$mԪ|*_G(7I{1h|ж$ ߕ'rH ZLjb?)vt+:K^* -B-*4~W㝘X[WYE49Z" c' zĐ/CZ 쪮g)cl(ZW/f5qA6߲D1$aBUt+?&Rmtb *4op6K\VWt\lΎ~A[77XoOWR~ 8 UFrBtk bJ_T)<`$g/(% E*d]{XxˬK3Z#J`h 's:v FL3&ZX0uH9PBnTrS(.lD&WIFqG]Fbipـ`\ *OYY2zTYio_ɥn.,v!GcI$D#yY~nn]F1GE<}<KLPk:wPe3M?ІDs̿@X1ez5k ?iwF1n6 :PHҒi:9A0  hRY1Q !H.0nKxGJn1Xf8DȐ[(XDfË:_/ڑa+"B-}z%/YoiYaͮlAc+V. i\r_ו&FlR%7#?}u?a$9,,Ŗ<3Hd!aAq,{{ǰ7͘j#ITM0nҶv*$ݲegԚ95ËѥU5#I<}t8;_๤ 60Y_5W*R]tѐdmKvHPP侢ZE2hhf~qA*|&yWu/sĻ/Gy^TPuf *U60,5;iu!Hřyo2t_n&O5Ihȕs}HCt1$nP%yf%dkSLnq@MkF4agɓQ1ܲ#oZ˺")^mN@L`y;}] 1nR%5*ct&K[KsP^EЪ6i5أE[n,O4:-s <]YBNI(R/BM? RQ\ 2l7=Uy}LS9uwaڣ$2^NC*Dx<[`v4UT%ߴIH %.I2 %ƲG5ٵ0ANP(grUcm-C{ztM'o!Aaۿ">YR}_GJ^O{+֔m*YвTyELy)0tqZagmr;dg?>ѐYcdy]KREJ`[RխHU 8ma E(Von GYЍ>c2+BI4tWN\If}I -J+it@(&VȦ*5٧7"af 7m?0d դ>[hHCSObdi:Q/'jԇT',rK];֭S>LmkOh3=,N9d唆Xk?oIf-9C3\X'aޛr{Dm],pΪ\p"_-\W UHkUYψPVS?|UШJ#Λ&T|q:9-7(5i~_OȲwŶWRA/r䆷凛(EP=PZDecFp~lbAt,Eo5L%!tFñc.|̚c| E-ql1bK`-70cVU(G2 N/MeJ̧vpn#tEĕ`E>^YЪ ti=J՟ YQ5>@H7 WLoǹt wII7(]VP+WS9HWƥI vgz7q(ʻy|:Cҏ;NO6t1hdVA +-kH}?ïD % OHȏ\9ݲ=@7HyۭxW[_-~׏Voa?O?ɟ֋iqyT1<]?~o=~52{9g?w=Z~|/ZR>/+ty͟׵#>қGB~r姏-?GB~jK*?*@xO(>O{>|ŧzVWnX<~~y [?/7v2wOnNh~^wwyb?zIw˗m6ۅ֮W5Pc/ߨuM{ vau x?;[4y'䅳}>m3S^Ʃj7q?$҆ ݘS\&_HO~ia!oX,xTa>-aooi2v{}uLj_IyWL=;WmtD}33LFdќokPAV4Fq={HN1 О-M{As [{WD5Jg6dt1yQZ0 ^wGB9!:'B^#g{h8}/ 9#0y ?(g2';>oA;GEBh B}ov.7{/nvsI7B}[% =+7ф .r|*1埍]mBے'@n“]3q-rA0>Nظ|bk|WHsG+[l<90A$XF|G+w1:aY?n蠞]a[ #Yw/a-niGo@;a;j|#$1b>1 5gyp/wcDŽ,w4ʃݡcbAſOA^Bhzq {?w؜Rƃ|w\̃GP(o(ȃMk(ò}X<8ߖϐYu>o1G$*%.{sSb+ '{ 5O`p 7l.qLIly3$1cx=$ #6ސ M;0Y-{G| 56FUab.I)c>1ߦa'j ͔|[%Ibjg%; 6YEɋӼ -{cq|/T^p ʋ}Ym;|1s` Kva7U=kpVXyswG>k|{Cm5|81+70ߠ/|C1|A=Zhʸ1*y>6$||bcm5yl״a <;h̒06: _0ߖ&ȬqM6!0wnşkp)>676!|[Մ*1>b>q|f7Wژ+2DtxmRɜGCPeB.lN9v%s+"F <20@J}ϫ;[1ηy%<'1h )! 32u킺Yԕ^]@][%̭PWV =Q/8C@1C+ h4()h>.+'Uu儫8.du "v.Ba*|uH}U>*|u@]3-B3xԅqA]xԅqA]xuU*G@]#PWPρj@k;@=uUuUuUuUuUu?PWehPWe(PWe({A]H.Pہf@_:\P Pu퀶u1()4%f昍2>Zo@mj?PP@]PP@] ǁPЁ7k~7kZ:Pתs>>@]PցL5IcB3H-l@]PWՙZu!B]"u!B] P@]PW_PF@_05"ԅ.@Ե|.<@] kp5\uy 5?k@ft́d>}5x5x5x\PWhP5"5DŽ&ua_Pu퀶uaW_ @]PyP|59uQukr<ꚜ&uM{+ԅ}A]#-B]cpL / /k~A]>ZZZ:PhP\@] P@] P@]PE@] ԵZO/ / / ua~/ ua~/ G@]P5x +67̀f̀fp^PP@]E@]PyP/Pua^Pua^P .@Em4Cm4Cm4PW@?uu!p>2؀ uJ *_* Pf@]0lZk͌oPuoPԵA]<@]?'@]ҁuQ:pz. h'v h'.by@] RuQ*p.ʄ*/k:P sA]?/ >;PW@]Ҁu1/ yA]EhGE61B]c 1d|Pځ~{r<@{/1J8|&B16Wx y YĻz!vވUWqg=;=~ <hHu?S*m|:w*/E|P <P<h]|<ycqy)݋8SuMynx9w{A} uRQ+RQ3xuqQ;xqQCxA-ƟA-EӊԊ"VPyA}BPOD<Fċwj#Y#YO<(AGu|?]#5P|>\('xsʌxt=dd~x9G~1PÓvӑDP/E>DCZ?SG |kp#"|n|/#?|1'#|3G|u|g__-_\tk=i|>KڒW  # "3:{?T%=xK_tw5%]t%}|_ҨxR7oxTWoxVwoxXxZ-/ q}׸k<l\߁6'676Jl.i#^qI>J|Rzwi!GzH)&/b >/\ρ'{HUe^]y~]9wWxy^9Rz{Kڊ??X%/^[5Xg:|G >|pRR~)9RRpHAHE>u8.5·Kn?W.7KH32? /=|`fE#Rgf3zQ*q/|)8=&4*]^*m =d)9|27!(M :E)(m ;#): ,;Jy~ >?Q|| |UZJoϠ^! (QRyRA>Vq)}C:Zs(Ϡ8zǥHoC6ԋ$⿡'ICovC)e~Ez]zt~QrJRgtlq>lq>SFi)]cwJ3JV4ns+B,c~wJ3JGҽҾ&8NA.¨</ZζŸ"VPamxI]yNtHXDxOXX;XPxEY b !1|ה-iis쭜ٛnˣu"|-qT})Kd7)8]ya(FC *gYN/n}Lҡn񆈑nwNa(b&ڍrN|D̀;s2X`-ġd7;K(%X -5k?/RTN-aciBK^zy_SΝ=lSG`]5vPWDڕCb'ÿ`wͰ& !gjݗptXqs(-}Жɣ=w$nt+kGOOݹq+*ɫs`Ԥp5Kg]iC\-7)3NO&= 6{ ֥Jذi*{&%:0qW{h͟.YEd4+k:FW_5:*OŐF@ey`fJӷʥ1"| =t/IDn쿤>y@"f OZuG)qbq~&rpP0P9q\Y8(i*~{-j=Z  ζl_ e\ϕ9ZCƪm4؈[TTXSbUOў w`E< G+m"; DBv9qF=]JqMYn"꓉)Ҙ&r񮃡ˢSGELb[hZvGѧ+,xG`NyPEƍ,*x5& VSw&*֍M:^AlM O\S*5ilG+}?'V qdӮJdLJDn1s:W<ZLU7UA6nAu%Ct4`4sI.Y8uݩ5g7uKBeY<5tO%geSWQsiQu0_\x Ji! @7TeKꂚZ5氣EH\Ullnڀ-!,Pc7[˲eG;:%u@D5\pKK ݥZ{LH DS++aJSO[RP7rt9 8Iӵx3:ZRWAH&}u l,y@,יZ1fs,N3Bo9j;h{ 4F#_EL 4-:ڼlM.5Ir!B6%J%TP۲PAi 7 HTQDR @*Iv.ɰ;C "K['(.[.D%/uMhSx𷻧z~!֒2ȫܮIɷGجhpzT8/6%Jܑfl/z_IV+3(t MkL)QB//aR|gWC7TTK"edҕUNZP\kr$g5C~/2C ee_Y4v " 6CF@wF+Ƃ`\ynFnGsfIl^(U{EC2l®EkWjAj[Ψr*=ԕ05hJޥCm{t' iٌd(JqT+NJRQ Y舚4d4ЀyZ%|IRVWK-&r,ONPE).=Tj.T0N$EZ0=ULQXD iD*%e+>5I2ݖrcλ0HU cH RGTԿ&Dt;^)nh\Pe+k:B&OUְ&U,UcqRW)Ԯ[cEi:RTdMv(COY]5Ro*}ԡkJ>N{%&gzT5߉3c/0T2ݓ*#ϲnKr&&?`,%w¨XR̻$;J܋c( c`Ӎ붛i/Sk.l廁yalyl+"Q( `-[^賱D:˷HqbH.MąaWB Sˏ^w[edTQRz>j>KzP z /kj<,FlWtRkai(h*rިMV]P7Bn+E>[GۙukKe$yZO՝Cij6z;ܱ\ ko//*J;U^`oU̦_<Ƿ`zJ dI4STDu XɜSU@d4|uV՗PJ,eTxNv ]L05 eG<'֤S tʜP)` (v&\n7ٝ?W'ayr-JbŹ$M5_Mmf7J^71K*ע4slQr(:6 )I9촷$YN>a˗ֆYAԙj%Z:G w&xTXOGBOEsL!wSX,ݥJ)Rb6PuvO"CWEl4+ˋܧV z5c%WeqrzuKa@դPjS[m4iq $:4P#ە48a%J/fXw$7H|LK4UjeXH%[>;\ I*B{I5BsTNm_<3̩J(uKKKSrfeH"dO`ʚJX|9>@|Y> tCZjDUVFn*C$"&Xf57л_fh`N{*ǂM7H൸-TeԞUӁ&ZT6pS̰!waW,,GsS@-KMdԺfN[fPro]Qd0Fj z8ɻ@=,\ K/{JTLux)禖83[tC!v۷J6tZ^Fti@.S>(FJTq =mWM02hwaK镣["vy#q)̊5L8*fI[ͣ 2[q=(멫XZM_!*,:#4Ҩo)28HӀum!h mѥV˩-!]EF*U)jn@`i;J r;+oHS̃6fRV;w~o˺N|sRifd%~W[*,Kﺁ{ݸ !jQ*>w!Tg `8hlmO|6GYd'fq0SKQ&$ ҐVl_CP̲SJ.,1S6PbR^Rn/wN-VH|&9|4DpJsSF݈ JS&63>L%N$kVq=*ub2Ľ.E[χ. J@(Z9l) \qcf$JLJ|ΦJy>Y6(VlEZA*|,tIAuN ݛ"|/IsHe o{dZU$`Yf]Q&meaIn٦yU݇LO7IyӤ8[lCR{k=dڎpOeF)Y[B5Fa\HIC!PZ.ڲ$DL/iq\UXKչNH[6 o޾:M4UD>ua|"BkíY'+0Z;# TJ>7%OB5"+XbV|cqx*$0cU3`Yʻo5PR$U3A}Ou.^)7hZumqj'6`Jȟ{z;Epy^X:X6KNse սZt֝jb%EZӛZ )L?$@["gJY[$v Q([twTh}C0sAc\Β[krlb^6T>hoc@6?il^O36=oQnlWW_2vI_'U]rI_U׿\h.p/f/7%ѿazy67'}G\˿ɫ:K.,泸:u/+) _WQ: ~%q K/d;r3狵gq0Ͼg k^%]`CW~=cQoC޿ C6y?=yhp:jhtu̶Q uݫwQcCur8+:?`Bwvrx :y'B l"P->h`/>hx}ڰx=ۿг`ن?KexN ªB>u;w6t DI)+[ 01LSeպ)qkJ|j'=wfƔ?dev)\Vσ%'=jD'x1(󀿧'jax9/H(IO[9ڜ%/xO [pJ3i̱ϧ6ܧưM-g&1vW&%cypH-M>ߞx@CAti|R6 ͞1Pyl,8y94 !tð:ytslTX\9x^ɣ6 k! :6FԴyЬ% c9sҎ-A\97˜L'qӲqXyD8Ǝ}a=&=i gG`mL)qal础 >56A{<|L3sƾv BsCR?I1+\r**9m 1On-f`%xdϻ"8<.1x;@&'&11@I1<Uy/2/|FO|^#h3VC5ٯ17@?@ϣiϜ :xahc.|JH2;A-l9yy%o>M:~hC.|xZxtSд0'#X0+`/|2_Zde2.*%|2_ZuMZzeq_.r/-O[>Q[< ̗]t >!-ge*EYedcXVK6d ]* *%O|%p/0 `Y `Y LL\` Bp`Va`/* ~*|f1X{&fX_6bv`Y*fU/` ,x`V#`V#`V p`V p`V#uYX?E+†>:S  ZK//̢Y`f!,$f9`ϟfM0 dl?), 0ks?̊07^`QYaY%yYp<`Varfyfx - r/8o*|^Y%w,>Y|Qz 0fU*fy_,* " "t, "D0O=ff`VpY` `~0kpKYq\` ^92yYnvYn_` `y`y`"9`"9`pY${ڼڼ̊x&g$.0 ,4<`YpO7'j}K0 u̪fhIB`f Zl""f1~9`V~;`V~;`V?`f0k*fUfQyxxYTY;( EY$xYWՐ0#>:`VG|}Y̗RY\"տYYY#A.`0f ^0kr}EY̏Y&GY# ޟ߯ϘO~>q^ӹv{;3O|1~=%9<:q}l}Sb=z9`+S z?}z/~(O~do$~$YvktsF<~{ >:EqΓMΣ ||O_γ9s&yD09D"y^^ ?r$ O⾸'%퉏a]Ӈlf}hE>#iƳƻ/bkEo{B9ϟ9R&T&q7qA">H;"Kw#K#L/&Kq'?.qռ?f fgr/ۗ8$G~Mx'1~.q w/x%I/!GL>/1KS{#Zy[iq">#N*K)}?O?xRo|GuK|UYoae#^văyxmyxn R_^%x3G;xu xv <4N_ĝ%$ <=*JoOO! ^B B:[ ǖG?|nS|L:|6fGf|r| G~{~#po/X'=:||zD~|ޤA/6N {\;]P59`Nh=XC#}9pwRQG$|cf;!`2d#!2琜 n\ R@B:.CR(!5ڲ~"QyNKxsRXDOh(h()* PTR(e|):UjD(!tHCy?_J:󩞵;xQ_ػX~GX;ǍeL0Xn=+7C,Մy4FY5}!N3T5{zKhA'Q%lӶ%[Z$YNBVPm/c&8({iSQҲhLMUٺ~E${jY]R+}j&T+9q8~.LA KDKj3<5U+$tbYIՁ$bRNȥaP%`uvRP"L~@A6 jzJ [\5]nfXl ujPe!ڣ'I;~+8ϡy̤hتemi;4aqfm+1:Wj֢Fo$ℵu%רQS. .Dh#5a]9&)'W_{ө}Τ{V7@*;zуzG QߞKO5n}ì ෻P]jV-+l_-lpkŕ:}奱.a $d-ʲ=֢[R\ l %*XrJ"Pg@K?Go 0US5N+[qv/,AqZt '&'Ez]v\}k`9㨢}8V֦*1&W d4k4 s@'A-TOYӺ"$PS$ 4(xl5: )?y(g]7 \]Qڂ )5$*R`W]n!Ou)`%V76JQdtlE^v';*n\ƑB6~H"I{G)2N9$XՉcSÁGnen8@4}QƶgŪOF-S*@tAΑO귐\;y\ߋ[Aγ jo As. ,YbqzͰ44ЈuZ ;?dK[fDC#T1b 맢E'*r6@$]y(0"-zfkKP](f٫sB’9uv{d!GU}EFl57XzBYuTdBGL<*zmo}XFUv&"*Gu٦n\ m'L &ٺbұWkEeXPQr:usNTJ2VQC!@03&i-3ԐGkp#S4ٷm۳[A#ڦ(v`rtāk^sht&.4:etlrRk&zDk'l"J`'vA.}Lj#uiml.5!>^:?) rlgd+z 5IAI);n.*)/~]$7\@ C-DW8S?]5bʶEw wB qMV@]6MfFZCiZ4iV`ib' PЊZ \LQː@S2 rF1/ϝ~4Avm&ԽmZ m\6W~קܨ˓dmk| ;wy.4_IӪDj9$vTɼIhy+N,l}-`H8ꮛ&>+=̡Nj& n\2ZoD2[]zz& (  {RO8`mQ]RWK@ H2F%fp*UKhKu o"ejXZQĮjG?AZ66s8y.,mU鱴ln" VWڊh"4Ih5D[h7wq$:Jy2"8"lʱ,M/sA&[z:)[]7Mvl]Hbe;\N*)5fPZ^=9LE$5 Y=`.'0MG =dD^k(]yiIɵjd WMuFwbSicPV62UKE&!wTc;nya4ȾkY/ )XL`Zku~ _TE mnT%*gF,Ns5YOS6Z4ة M67cxFMO+jSG(\4%K1)rXXi弍GjEEJQϮ8tҗ_,Ù_%y ߮t/ 3HfE CN$¹xK%Gw=I-=Ul@7L򨞭I68']_PPT]$4d:HTSBUu( 2Y67t}A9;4h]U%7ThǂƢ6*"P:j pZ{8q ZSXDM3RGf;c|P$F=uۻ/M~3u"(S#+{^5Kn+$zsS-%ЊNX e .&T}}z#Ne(],Ȩ;$L`Vq"V]C:NI,L>շ|D`*CӦjNvjTHmnd:m)}PqլL^7ft*+edU\gZV^M0ǐՐn͓~K#%r5/*kPq)Ց2P_$E3oag Y'0dJZtRTsGWiM^̀uПHz|lcs 94?P]Ek# U#揮Qj $^D,hʶeY49%]^W!{UG:0T"L JUK 8TӼ@;']\~UpdϴEhZԊ½]ZjpSZ,T(Zj?wKA˂ XRh,M$LChjܻ+#bu=oK.D~Syb#楱!U_Vsn**9ӱi^)a'e*45SG5:CB,\n伭PnDK(K Fq+SsU!亀],NRY4I?=$1MNDHW&ᨅ*r --y"Uk3YTVy£ȡd\ϡ0-_W{#u˩L&Cak]DJ:5mRdg)ߴe[X%)ՠLաYGnMܠcߙ=WՒuŋt5(oyZRt0[4@iy@HUpk} yu* (p(7t8ʗ`Y%,-$%zJ8K(tɚ@ DU8tx^jkYP[߸6,}Kk!iEbMDNɩ+$#={ABRB͖NNf < (4փ_5eaa"_IՖ5YYK~#ƯY.JP;Z){t *x%\ڢ#z HS*fq*sIrvr\˪HcXeUmgqU%hZM|/ܘ^49պ ?%I8) x%C7$ x%뉃*V"Iz ɘ,@AAHFs oќ 2+Ҋ6ڹr/B#<ь1KE#T\_o!<=f['pN~[*U}*O =eW?HH>W&tfhS^58D];#ue(Sё}U Cs N% }94{@Io_2-jΤ[т_JrtH knXХr;5([cT/b݈2:Be4&K")h\,T,G?Ul-]熚&%5oڭ$ـVwTªX%YaBo9pW-+x,ygGE,bNoeѓB|R߹#kdІ8EǢܺNiJ8ķӕ~.J1;Mʴ~yZ*X n7Y)` `T&00I]nZoXtt?5qat gO)MHJsvzE"*;ew$vS%X)XaVV]nAߦG(3[{F^[hV,1I郝We5$s :ͨI4E@=-QAtYf "y lUI_ tVKgI{>MZFy}'>8%Uj4l֍hJ4@ZdԮ59V_j٬ӊKR5ScQ[|,Wf]}J(!4Ricߪ;J=iyXv. ,d\&tU+~jGwZ NnC>0TZZ4QQ!&LOY.ރTJ9"pRxբMz]t/8Z_V76J%^UCU뻭ずF,l+!L!([L1= NJMm];t(nTjSA?z lڢ 6ۻ(5אPpEM%-7=~2x׎' xnEN'U ta0r#ZNJ:)e =٤oc#j+MC֭$UT74-)l\+î}YIYULINl,MnX*@\(:f]I^em*A#4,ލU@h}"WizIz`"IqZk!I3M=14[Ps6ɭ j6)p"Zf,z$͎";&MЂ2OErV9n7itZl9uD#N04IΆ6A :MNfSo,՗64A,c+$_l[LLB1Sw Z2XtT83]h+ҒDPWEv [ºl;l&J^lp+h2m*~d(˵cN}'T\HIf Ewnj ";ZnpVruW%A&4-49fhXb}Tw;e4KBv3*Wd_:@`0UxᏤ0Ew7KA ,0eqܘֽivzȪ$C\uŢn:ف,p4=Ȯ3Idc(;Z.YZ)X^uYjK,H )VU]:Y u+${Y: Jd):O(z'+Թ9ӔPnrM/+6JFZ0QdX[:&i]7}n%/>s+SGݦ5ks`}&U= TJInekik$W]ldduӛn FL[YOߥt/M.VpfiH ՓEV&}sh];8kf4)I)f"V@.]2XW{tZ?AT_BYb]`;>1c.M:[~ 2b|Q %,*3TQU~׉*a 6Y*]C++5f{@dy4Ȳ %ґ2IߘAm4$29U}R5^]H/ɲm'UiXAP6aݦS_` GDD11vyKnъƪ(rTam{ ?]u]u_܋7lg?jwnн>]<z=viن-?!i찘I>\(ק;fr}$8wGR@N&ss#Mv!o^]'Hiyr+,#}<{1Q;uCh/Rg`77&*C|;|7- d w?-n8c' j0)O}sbyDuOq&aOX$wx0;ϯƯ^?=/v|l|=?$ђ};:V8azXsq߾W~W+f}__-,Hb_>ǟ?~?02*c'ܣ_?oxm endstream endobj 207 0 obj << /Alternate /DeviceRGB /N 3 /Length 2596 /Filter /FlateDecode >> stream xwTSϽ7PkhRH H.*1 J"6DTpDQ2(C"QDqpId߼y͛~kg}ֺLX Xňg` lpBF|،l *?Y"1P\8=W%Oɘ4M0J"Y2Vs,[|e92<se'9`2&ctI@o|N6(.sSdl-c(2-yH_/XZ.$&\SM07#1ؙYrfYym";8980m-m(]v^DW~ emi]P`/u}q|^R,g+\Kk)/C_|Rax8t1C^7nfzDp 柇u$/ED˦L L[B@ٹЖX!@~(* {d+} G͋љς}WL$cGD2QZ4 E@@A(q`1D `'u46ptc48.`R0) @Rt CXCP%CBH@Rf[(t CQhz#0 Zl`O828.p|O×X ?:0FBx$ !i@ڐH[EE1PL ⢖V6QP>U(j MFkt,:.FW8c1L&ӎ9ƌaX: rbl1 {{{;}#tp8_\8"Ey.,X%%Gщ1-9ҀKl.oo/O$&'=JvMޞxǥ{=Vs\x ‰N柜>ucKz=s/ol|ϝ?y ^d]ps~:;/;]7|WpQoH!ɻVsnYs}ҽ~4] =>=:`;cܱ'?e~!ańD#G&}'/?^xI֓?+\wx20;5\ӯ_etWf^Qs-mw3+?~O~ endstream endobj 182 0 obj << /Type /XObject /Subtype /Form /FormType 1 /PTEX.FileName (/private/var/folders/gk/jt8845y90kg8pwsm__hn98vh0000gp/T/RtmpoJjl2K/Rbuild13d86f4fc2f7/effects/vignettes/figure/fig-contrived-5c-1.pdf) /PTEX.PageNumber 1 /PTEX.InfoDict 208 0 R /BBox [0 0 864 288] /Resources << /ProcSet [ /PDF /Text ] /Font << /F2 209 0 R/F3 210 0 R>> /ExtGState << /GS1 211 0 R /GS257 212 0 R /GS258 213 0 R /GS259 214 0 R >>/ColorSpace << /sRGB 215 0 R >>>> /Length 54062 /Filter /FlateDecode >> stream xK4q$~E-1ޏ-  -(q!h8tMw3sʊӚK-ISss#?~oO_>~o{J?~7{ ׹(3Wǿw?{~Ϗ?_w˗u}G^&\?{?Oo}\{ZyyZz}ø_ __gGz˷e6y>XRO޾O))}_H.紐P~_䉱~Jι/:o@ޥגDvw=Jܴ=ě_ƿ~~~mh{xE-jN{?=}Rw3{Fw>nw˗֒/[y{[ZuvremBjgĶ b&^7sY6l_b%Av}wX뀸Rn&N[~{5q}\ Nm0&ףV8||ף'9Ctm6_jmX.-R wu3ygOhSע\bއ/5墯%Ru}s]bXturіx]bm.6\ʾt7ytZ[N^.f{UT{f?hbWwsN\{qKw^tt&]J/t/}t|ɏ%و\mpy_\. q'~?d&].KW%]Źt-%6+}_-]KwxmcoKdK/%\Zwi.t7]ɩN695߯7_Kh-%r5, d[K*6I&O,c3y\}oXj YK.~KU油./hm9r +ֳdz f3&zfV]v \DL/{Q&7yg]qM O>p!h2_1+d-lsy ߮oLh<eԆorEJliul=e};e?<~ӯM\(zf7)&_*d7&א'\>/p;̃]^.OzKzKqymFsd3Ge ze|؅\_v3z/^~~_^^^~]qd_I;;s|]4/a|~']xZӇ>/P_vʾs|r|=UȾuy}.zǗgAًL٢K.(7tڠlm覙옙xmxL!kȑz^r0%Pq0CbPHsɶ[W~oOZC"%[\fr/~CV:,7X`!DUZ6I8`!*>bU\Xաj!U ?J`U BXUX2mUf0Kj N8K*߂VmxV j_ jAX&laU"*FJV "7Xv$*:`1\Dp7X XE!5 *CX"pU~N VՄ0`Y`~6*`ՆGpUؕU )6+U6rqU V!*8kV VL }UtFX Xx|XXXEd Bp|Up p+n .n V7GQ ؏g ` V/X5 Xu"UtX5VMX5 XuVA?` `|j 0)`*: Z+o V~ڴV1>` K6CU;V:`*3[;VYXUo * *Xyt*CXUh?*OV"V7U9*< V!X|XX?UnX"Xo^O`XErbU3OjbUZЗZj"Xu'UdOBOr?XeQ!W*|?V<`U p(k 8 *' `UXՠo*~`UG|*&OX5~n_`;Z|V-VmVmU>,VeVe2V1~=`UVU$sXUz*V8`V<9`V V`V-K"ULnɋ#|s>d^=&+tø9 }Q~^ٜ,|ޅ׋qFF}>+?g$'* lmO+ess^&9O#R7<8=qN4{N}h<OZ|"^zVǟ==W?Kw;$Gzd-L{#y~ӌG^"}L~3 q⍈"Y:No?2^"\1d2' <6 \P>sD7"^dC&~;>#o顟o&I.%Oށ 25E>䃓o}gs'H|F "#!a_'ȿ{an05fA>'o| AyϿS>)|SQ :>G#_i#79& < el~SInzF>|c%HsO?"ٸ^ }v|jȷy|l;e#idlU 92u)W3R?iI$vbP2'PfPI" b@^"^i&hRA4$ k0[T&K$%BFD I>X ""9P.'rnHlUXR A8AgA0_A)S>y*tE|*B UDAjP$A ""aA>jR sAk"'";Sqe>%n$i~O˶r_wa " |%r)V_bgi(H`_]@2-3,LMկ-xzno0I^_`*I?K؋U*y e9;jzņmaj, MP?n*`<ۻ嫗C۠i0I}n@z̔>sZ[Bu"*! PU@ x"6+QrKZTlt*6wvnBGĖ JXwv{vZ}B[MhOPХ:LrWOyӈD鍼ܓ>nZ{E8]H=B[Vꬦ_řI^<-M]ƴ)g8uC1ekYQD"ddy=C9pD3iBfx ^ˬd[5| *ʨHNocҗ!:9zïVݱ7A3:bC?W ýūr3 4a`au^/̶}j*BVobImx4L xR5L琵dzy;YJLbX<p.C+aip=_߭-%uJ7YNK:\ p㕎\*-Fګ%@UӺwr^>CeqYE`R迦j=xW%f\Fju闦qc9?.=TmD2jY0_XbJ4y#TaG# PsK5Y As}2l jzy DhnS;G(_A 8#M`޲A55  PV Y0 (fp(njz- 5"J4ԋ((g-يK{xW Pp$I\O-k Ы:{Uٲ ]7A},FXޕEoVד&(D("PNE_x5#k \gPY!˹(UI]9vl<l%(PpIې@\KrHT.*-kuS4?WXITWQ,@%fMN3eHdɂ\OE0>)з$T & Vu xeQLW[4AԦ'U I,0$/h?3o8HcVJ"OnWThЛ2QRJ ]2Ullr)C2|kE^jDu29)Iv7S jd=739<|&YTaxOPSWEL |ld'nh2U:q{oUU䑣XCSuN}=}cqRX寧DCF]0a~UJL(qk+Jƛ K2v`Bx52x)3'8tMM{anM:u^KmnָDn邎~p8sAMX %6r##<,Q3xt{aB:k?!44QH6Wl" t(lC'lLplJ(<(G|.cA~gIZ 4& ԞVVTeN.-̖i1BbAbo峢uZPw͂da =3`m3W$+ K V%i lO"Z._*R5F(4,'82I&Y˒ Z {BBɭzc/k*O:A5h7w\-#V1x֯j̬Tif JKO 4/ eY{5nz]lX^SSoVqahF//|`Ht2(F89+jJRŴG' = &^tgQa hߝFA+äHjL[I$. T >v :2\=gTwEj2Œ]A $7%2s L=vk&y.+xk#z<Ӈ/ٲ"M]ak*#x7*D[rnOO)YsD ULT' &=IHHnoN8x.[ m\~ܕ-L#cd{˗}P߶Tl7$[Д t]K\&5b/vq }+vP݆ckDP48O'YFa 5x ֬~w rzI:x֗r7*kY d0}m"h4>}h(x+Ⱥv z9'z,ߐ%K$STwius) V0_3-)OEE$MܒPwZ&doJQFO?MgM]!㒼R8MyXf7Ho5PdENsSUuh5vj"T"MgMBDQ}VD)&Kݲ E:"j`j[jfɰ'׫<恚^4Y7U𘵋T-ӈ"Ml6XEwnBǞA׍D|-fRbvFdxX _`B'C L<2Df[#Euj^=j DEÙE]xy{swsTJ%f6^DK*-L@kd6lijK!jgy WH$J),BlN1OP%&2z^XEc(e^ -uӫ~z@48s6w+lee`e;@yTV)GSF9Iam7So*Rc$.;dqZe6^{.MOu +Ӧu\a$+VΆPn]x&Ƴ7z=0 U6w"aW J茨+h:9I%NCLp::Wr}˽J)#l)@}ʻ*}n%5n {5jp0\ڦ`W"~G:MB3U,}2KT}X7m{`J1{M5:Y~\8!jB_2=;HPQ/0U**;q-Ze b=ЗEj.uw :97ɤ0Zy33u"n׈O$ GzBm~]`L;V2 Ͽ!ĔF;r;eh7Zp+26=TXfoK{:ԡvųQimMd*Z5K? FWߎ2Vl;ݓ}}Fմ!ja{ Z> oF)Q&jJ0MR^ 'nYʗ )a1/eCKPwԆFӢ=uTLe`uU\薪 ʷ'{՝ĪKXiTStZSc'1](+,[ױVcaIױnx@xVzLKx M'ʐ d jUvibve.YEve#Cwp:{#${)$aR'!Mv&Ũ05Vt]R!cQ.`uu@ moM[ `ir lƧrxiU"kP'Cv 0#Q wigMd(%40h;^$.39ȉD]f$\%eؿE?_,I&94+|T*`dYyͬ~ӗkghFէU(S-B8iJ&fY=EoDIE^0 ޼1,0\Eعk#I2Q'mUt,V8\vBƵ6$6F/)o)ly%|AŐ^ e.p @&  z:|h4Sֿ@T oKW]Xbk0Z dz!:J?%`DS&dɲG@w3#cHe>IqvfHzOreh$Y3 4%Pd^r<T Mc=w Wmԍ1:X3DB)X2(UNF!/;:9Om2P(e " R|\U=G#KWtwD7 YJeU٥hרT^.kOpݔ!FTM^['֜ 1E͛r2ͩ<\~,N+E'=3ZT=,aõ>e+ RObХY)o)XPsNr%K#*,whTy8(Z,.IjrǬe80Nb>E쀖tfԢ]2=^il(:aqcYoEyo'J:Ze\\<<%SzdHhB'M3&{L`q|M{[b*Wr*OvJ#SfY_7#\]9WHjk sUp{߀;0B\B[Q,]S% $P34@ vfH75?^lJ odAj:ML9%ߑNJ,C^㘎.!oE܏,73c뮃JwCAQue7RIhH=IlӠn7*7| 6/I޶ Ξz"|Ս]*Mkgbe9HF4 mgTkju$e(SaU&`qkJ(B:Y}:%fzv?HVޠӰ Lhr%Kl";ЦKTrgoT?f]?{e~Ϣ3"nu=D%T`~2X5̺# d`B7 ^.e; Q%^:HME3Rh #XՔ'I"8fIg{ dM[cIZ{L$or $ov}@ $ā~K͘mt5#-Axm*3oyhoǒ.8gLV&qvaBYʭ"Ѹr`.74ylF1BZ~SVR4#EN!?]:vga?̲{+Rc|s ̎5mMbU4}x(HTCaaEeԗL` ~zZ(].PPq"0༭F Dي Ʃ?Ècrr$'h&W`yPz`>09bn*vuϜl#꟟@W}#6o-&.s.]1aKB2dfqsqõ^_e4*NLݤ}&)16vDQV %7*׷4'>ş׿|o89S䄅OHߺOqn7u ?X.%{~~p?ξ~ޙK;ݼ>MUAwh^ӵ_s$wq(?{o z ^У٭oZ^_n,#'q]M; #uG?B# $󑐟>b/U`y/.άy[G~&ӿܽˏӿ=xOfI _^8?t>G>]~ޮIěx5mܯ)07y DM4d>st.y>ޛ2Kh^j2)M 4A&oƭiw.Oh8C^*~ 7M>hlæMMc;V[^D²n8WŊтz(3D\9'ȻF=oRpMpd'&TgΔl`<&JghV^̉]pJ? z {!72wLFcJgx\-v\|$#21\>-,w~g=w^we ]I^&3:- =y0a23? F}#0ҹ_7zSdgM(2]LGJ5%rb~L ɫ eoQ*,@e:L< :&%S bDa.f5h|SG5c.Y">ێ2 79pc1Hԅr>J᜺1(wC̡ :2jA3 e%*/Zg7 %*~h\ϧŋ~~j"@2qʱzcM}r lgVoVt׈aGn+ 44iL^#&ޱϔ(OG6lC?"8/mN& :TbbCA !y#=H%y2ՌELg.`ʟ~w49O(ue`z>zZuR.z-ӗds eoѣDyz8_}E;Y߱nio%wg{0<)~ˌq& x/\xt9\Ig2B,>yh^y0׿ `ɛ~‌v\ H̞Vl_:ŗ eؚ"PG}P }06dޔ' f޷?4y%N J}Nllk"Q`(A?oA6z*F!hhї wcZŒx8_-!U:r2K `r;;%r-(LJ-ȋ-Av0YK {Q,_clC+ZhB1; F׌cgq-߮Dy`X/3S`Ccd:Lވ&z L1t0hQTu}od]TVP8^VZ$󢛦 g 8Ҧ.gk9_M  {l#HxBA]'5 y' PWPMԅ +u5Zu| i P؀ \uց2s@]PW&{C]3dV6+LuW VԵZ"Eh P@] @]ᆺ7OP (Pu.*kw.지:]:BC]p5"zS.pmo u! h4 uu.uuPWwC]B(PWhPWf(PWO "4v.BW*4uǁJ}PB|C]p}\6_@]PUPՁZ Z Z\uѵ}7ԅ翡.ρ>o PG@]7PTITxuMJ k* uZ;P uPBBuC]|>B]te5`59P׀=Pt.ڣu Ɂ+ $}x.uP +92u +'߀y +#Xb=k0 +W@];Z h)ApC]Ч75zb?P u}.:S@]=@] Ե>A]x@]#uk uEPz|M񦣯7}F8KcˀCrm&t:f~y"6a̾'{QvBRPjVRZ* 5i= ?cQO:SēO<Ԛx@g<xA'(3O75~.w,ȇ,?/Yg7u|Ǥ*#_|NwMM}N"5NÞE䃘J|b|D_Ї˴/cri9{ZC&Fn0)GvSs |{j>gFM;m̧ߥ(u|*ɷF]lcIz*M(|PqF _dROԑ OiJ'"t?~|ya|tL"TZ|]zR#}(e9-( >@1/IBQJsPa߁TҟR!%Z-ȧh,KLjүkt賧%c1~jcX߻4*}("$QҬnKRa0;T&?|Ï1y>*M#5y2[} b UUURx+;|&[9PKjb3\1V~*̧J SD;]# :Az6NU]ꠌ[@Rj!AoM}jr>6XʶY63,R 8!1e+W7׬ʛ]/~g3{= lVe[U3N{pޕBΖe.2ja`$ [8NVQRyoh78HJﺉɉI )v]:tBb BRapYZ[u6zK:鮰 | vACs#0kt+m:]#f ^w;pfE'`9\IVȮe6h76CH )"[Y r|[] Z06W*AWخrkJ,`--|87֡<` eS(FE,Tٌv2FǢ{ȇ 3hdClo@3Um\Svn7S{֦FJ+77mߔMS xE‚Vd0=Qvd̟TB7 IPu~9 VXA[ xCL0zKkĆE0ۋ mb9fN4G5rn2[ M|jxŔqNQWۊ!DV@i<0gMSr % h ܐO3p9r |ӻ-1׊M]eMSH~*1X!l{IbK6V4G{?.zlT.n )aV:Xҡ4Us[ kfxe, C 껛}oQuǛ}R ^ W@(Vw8cg?vY 2C"(RW$DLarUI Yj&z`J4j6f VU >R !Sc(-eŶrjeSm'z>nX_ѮCWKU($cNR.@8t*vi m#;kɨINгJըVoDH,j$Nu2㌲$3A r&+3$ Ʋvb&S e'2,!qƤppU.GQp+f[nՎ]]:}IZB,]y%)P-Ɂ! 'ې ޴NwKORSd5c_A{Q#4w`yWFbLKmc{YI 惭:w+5 6ߔ$hoK>Ђ#h>-<[kX-ha`:껼e=.қt$x";X$!F{oiPwvJZj"5"-zaV [(*,- h k>bCt2lnBĈ$,(a|'S9t5幢7P1H̫%זq!2u˛%h< X8~;blqL oh' kcm9Ŭ66gf*8F%H#bdj8BT[*+ɱ(.`Gp4d^(1X/ 7$%PK{u$~tr-MED硌C5 d*(YT ntR‚brʜL[6|6[dl2=Cra(IV;9;S ؜,AKG~w`ZZ*#b;a7ʎ*[Qkn^'a:iwEE 5zzstYhh.;{`rnduWurgKVy./#lbs%Sh8EBc=R`@ _.FŠ[oINN]wMERX%߂]V@I:-^ ȷ`D{s]f}_MogT&%; ̧BYmFߛx"1ھK7Tl;k9el@["EUt|a 2MB,v_!\E)g*N1G["SVXi2A7j|" kјMnpn!we'ߵl*7]gt7$@UWJLQD:ةLIB-%G7) V69!Tnꑖ TP7͛@s!<`!Q0Lc_7d2óMSPMө_ڨlr<* -)*]cMoĬIΩ۱7-[e}qz]oo u:ed09iѶ^ , J ap!DWtz9bojOkmEO =:)D'j۱*A %rq 8HS*q֞@Vy0iA'X'%b i<|yLqea߼뵿 A F d:wԌ9X(SxUj*lwc>SPXj MzQd:k[Q6ܲ ȺX.ݔ.l"  A#gV&BF$jRoH`֤ӽsp}t  k f nDzQӛdl4F]в[ކCɃyT&hh|.-)@fjjr2΂r|‹߳ a}+*Db M5$ìHlyg+wP0ƈejNE.ɯoMdco!Zk4$IuL99I 7DR{u&i`*#HȲ5OCg06.7o߷ a1JNHa> l=I`S; $K)!.Ti9ѽe/"̯CYct'}IB)] ȾjHfoJUkR [7U$VX=J*2VCsw[۔Vp]1]Ρ05o)#IZ/%; @ Q>1^P7Qdh@rgIS#,H&[iƠ{4럔:Tekriu1C A:VĊ+BMpԔ ͐Df']Օ 7x*%鱲#iCѨ[&~ۊ/uDFad鈪e4 8Gl .TemJDO.;.*Cɺ|A$ >DԕLgFGT CN雭hsyen} q2K5uP$"W~>[Wb}sh;I2[a}6 C$tI̵X܈,$mȘmC2XLt߀$ʐQ3UPcrtV!IJB7Je^C}Tm~H`[$jh+[u%u-2t Fɜ {CdVVV}ӄ{0/p^y-D1G{1 *cp|qbո3zK:ff M*SW#ļ NH92rQ>S?\+Jmr0\]SU|P{~7i3:*ʮqՔ̤ft,Sӷ2T֖jLjMq7%PLx+@Q4$W/i׬ʠtIi ;:}ve #UW|fMK3:* v1E5TS]aP^$kA**(IЬeG T)*d4eɇaAt-M+8a:l$qGvN=/_!,ٕGGh,I2lG]y H*KO/:4omݪF*cjW}&oL$i[ASw=+0̫)ŒZY7V&FZznƚ0XYUUnNֱdbz`2AӼRۯ-p-a"c(#8~MO~wd=_ɆO !"L{3bv1"U5F,*ZgH\Hg}YI lAKzxPJI5Q-kFkڡkMh(S;5dmr0Ruw u8 9PMˈjGͲI)_+"S{ߒ«+3t/)4yo^߂ۛdsy3vKvLQan@gU޵I  ;@Ÿ -|if淝X)6]5e5uLu&(H( f9t 3iĀgfZ[HXs'} x;5 iʹD^9s1{9bPp9{@qν=/|<&[;E,^ ɢds=(cie*f~ }3Ar-*<1o=3>7fdhHpzmVs Pa&ÐzpfF %y|.g/jA/LhᅈNxߞaQl0oL|߂f=O#S} ⇗ M~[úMu95 SB2ocQ4G~o7'/W?|!z(υGz˷eo!q^86޿_\7: ־~'Zhfd˧y}⍀Ǟ.o{G#ο WTPˏx=~[Oњn/?euWx0Gfm?G(?}7}>GO?B#z|$䧏<`t(8>o|>gP|gu| Pgּ'mm|hwcO?z3 ֱ>Orݟqcۍ.gĊ\o4o7ڊҊ?\26D|Mڢ"Eg&#m> mZo:&4ӄl^s%BLޠgXS^C^_o; VK<@rߩ Li@Jli&(+̓S}j LrdsL&ȿ<I:>cwz +مv1X;S(-{ g.k/k@AGA,1he4T.[䍦&OP2g2˙v =ZW&b]mBv6:'-@b|claI8]=HF!Xar=fwbYn&gVy^7{z S&shezlZb$7|BFDž-MFt)&GY"ebw}=3ֻ'F)zRtd/蓞5Xrw͋ϗھך(zr}lKH .+#k$|NfDV{;z\s]] ^i 0?=tCƓ_x_Xf=[Rczڸa>+QL,Ɠ2c7C@*\=cX-g{H6}UJ1ϊ΢/ZMtD[~2 b1ۘwG&^g`4 wg*db3gd7?/zCmIwQ'؆ q"Ex:k|p y|~ۊzn+sv'SmvSO*1xp<`;{4K8{Gu#q e?;%Wq/=l3bMYM>v cr|TAzp<'m2t$m|YQأ {lq?7w '>fT: d21tKлL/߱"g2"/ڇ*F4b1VyqNe'K`󹸟'o艞7ɄL<__`{;uGysӆ %q=Mԕxơ=a/ʙ%V󽐽7,g,sAޯ *2b?Vl Y07*`5 R!EaԸ?bǕ}s}HZxm`b a/v|vF 2W6њP)m#X:;AaϨW{r}kz^*߰“G7=zGæ_`4AO$Z~Yeֆ7~Q쇍Q~#>밇#g<%ғl<#mMyks[<0ǚ",~hlύRB룰y; ZYR{( rAYq ZyرePҽU֒rkAS>k 7r "@ JX;*5 &OOG6y.W}6Lǁ:PW]   %.6p 1PWqpx̴T@]сW Mq 겥VFGLف&ŀf@mʀĹ*A]π ]P+F(t@+Ե@]PW@*PW!PWPkr~\uѿ:PC7 Pu.@ԵbL 9PW@u-ϧ "w.u.@eumڛ6[@]P. 9^<w@]V@]%~\PWu< 5 wA]Xԅ pUb* 1&ԅTA@]?;PWhP ~q{A]|?uhp5x=H\Pלg_ԅPu-oP4u8_E5uؽ_ޠ6Ƅ+cA] 'Up>ڹ?ޠPP Pu:"E@]-u::ԅ  ぺA]πk9P)"u@]eԗqA]Pu/PW&PɁ ?||PWZ@]~b@]E@]?O\'Ը_yx^R1|T3]b=}2/g&xAx?^zI&VI͉XhvWz_r?0vK@Tُ~b2U~3Sgw*w4ǞWRARI"R/&'s^aW꘩ZFS=⏓O_RN`O<T+5"aԕzRO4#~a!EKbOɧlP}'1P"|:;bWL<9hy=p?ߩo5:i7%!|UyyQ^nȇe{/<"o!|^|$} +5F~q"eKE~i;[ [iJ7"[鯞|,o G>ԝxJ"LO~?>/3滯)H!oD>=ȷGVzR"?_|>㡷ҐxΠt#>BaIJg z@>×hQZC>÷h|1:?| Rd >H4]g!$^M;&>N N1ϓɿ >yB >xoT >Wjq=ÇRK+O5D~5?oF(P;wU](m5Oĕ-Tмf@mL(w")%:%mRl[U"شX#-Mݕr̂jDomRU 5@Tq )Ph_N-Jjq 5 ]EG`V-Z tPWvGM_(يܰ"ڇ% Uugbvȼ[al[`Р(q*Q Q/ØxpNiuZnn%MT=L#i[ju~Z5fV"WJ 3|M7,5 H͢ky杄]eVU'&,C*/+EFK6ڮ(<ݲa'}3$ojy@&4fguDq)]N$ăH&ק/߶ip<:Pjx L%^E `-T %J[)F*ns5h `oj(~#彇<7$Fpn Љ4&6 lٰw\yNaݖ[7U)bߐKx54NQQ!lj&4b8*yj9Wt{Z&K{N>Zj~*`*A\wYE5t$TfCf*"!jپ]IJ CohCoHX)? m)+uW${{Z1,ZuGh!(Z;*%R ~0J@`rݢd ۯ&s(/q“")l&t&Bnv!m@ㅁ5ҫh`/S3d o*9щvD6ޖ3h!-Wn̬C&!_\GH(ۃcu'8 LgR:[fw)y{E#NI,RQoH"%;n0EԺp7ZԮ<\߾pم *U8ׂjK' B'ݜ LeW}".8d0g mlAjHv/}ƤS7hE-(E}&@K< $\~Ea ΞHHQ6Nڣg{մ _I{]pDuK6Sz.e3KTzު줻f\=HQ/OEhJݢE .)T[\ES=g,#vCfJ#=jyO!O+;𫃽8$5Mꈚl$Khk&O s Zvd't$uﭭ(Zuv.Wy[-ڔȈT41{ Ս(k7i82HK`BG J2-*PkrFsc*>?"8j7[`M 'n5bI}+GMK o^ʲ\h-jD2 U@m"_\ҔNC\ݾjS< %(\W^́GV nXTKmn*5u8딋WYwL3֭* 7k:e3vOm#ɕjBdlbOg-e &0ulo}-Ob:Ep2 4栦, lߤ@źid\GU95ʔE G/"jQD6[Xnjm`h*mEoț'*; @AbHIC#bd2W^]y;#.lsΩHI)8@OSEJU2S4":CRNeXٱR%i #Wm|b@vVҙ34r ZTفӌ抄[Xh[$dbʻ3Jp–9E60%~jQYv dŠ/,+^QTzуF5Ct+)ST2j`8:/תNuK D kTCb 6mC2p P VNG[dl!Rq13$3HL|.MFvzRI"Ie~RAA3vʈJEP ~%_MM(r?iEg0GPxЭ/ǹ {?RÔ{d$b۞}=W1ÊTE U/u qu,VX F^qT*Yf[ "M1m›CN#wwռcR9#Yͥ)&zeFX}fsb6qy zUAQ-Db Z4θjeʹm,b_`yO[)72l!+hbXֱIĸtYk5Rp,_@^֥(lV{&kz7E}1R4MBNIdVϐ*sRȧճ{)>P6lXOǚE-5$\%h{,Iz0,Z^o՘3Z+ϴ%4&A ,/Ft%37˲.6<2cWH!NnUAykrdMg'0P\ȗS̡pNlX)e$V|)`N%X>k&NsYT줸f1ȑijݯ\v],׹Ƅ%aayP2}o'Rs#~5V]P"qץ%9Qg!)Pa@}T4W@aLp@m8VQOɡC Iqޖ,{WB±LE0peY3 h5=7 oSZrEVb,6e= zŁ\L7W!KjF?.K')RWh~bu9x@rd 8ڃkD kPh ]}xTyEz}Z*p؁&+L&?C 5]70IsiAa]v Q!4p_TُImKBɂ[Eg T27fk5-TA 7f;IeGx*d< ' ms X嵋f e}Q9M%dSUDnDoυ(^G H*f)`戍K0Cg El]bO+3P|@ӜNFCNˠ3Hu0d결١z\,`HjbJob18rՅJ+_+ S,vɷa4?HPp MP} C \S ^C2d3R~"kF8n˒^t}E;ۦқJ9+ B*BrMYǢ-RzkS0S{8}f]PZt2bTmy[UPuY]9muhJ!475eEUbͽB֒A?M|3rSU$}-(NIK+kHZ $)odnuv:>3@:.Rf4#ӄ@v34ρiQpTҔKryξ?CҨ#.-:MPT{%d{֖$N@ɨ)Ka)sJaT$Nk-)u vWٲ'A {oCN4 ݨAz|w+9ү@IV ^wRvD=89n:it <1IttwM@*W7fb5l6g&%eJ)wugosaq,niM&? .KB^d) EJ|EՕQP]dw_;Lgszpb]|^;/Y3y;LjRhaV(! u^ܠ  n<Ë 9 4hoZVeUV܆WUz귫3` I^1`}(Hfy /5!R=w+6%u+vk5IpR% SwLr٭e$1E Dso~+r7:wT!Α]'͡p;RYM5!_hQ%#F0ړ sU,U_eUP lZZ@ki)dW-<ϫAXtyWY]qP '/$i\HW22z0 ò$IPQ߄_떩 O.=Đeϲ[%gFDS֞W,7Me1i&s t59ߘ *e`M#Dd˖EFC)|A[lq"(eEkd?IF.20i]!809w?gkj_0ϿG{R0u.vfh6HhǻGcYnzn8ctP v.6]5H=F )nҗ+ۧ' 'vFC0Wۛ7g4!=ڵl ١Q ~?ѐjo/^YZ[=oqG+9{3|Ϗ+ D2 D>=Z 2Đm׳t@ۅ[~V~:[sM?>хv׃`~O}?~? !H#5״l[_/׻?{įGc񭕌7;e~z߅[XyO߽~@ot؜dp˟>_;z/cX|x?htG# G8~Ȭ(|$p}㷏,#1~U77XkO׎/4߿//W~_˫:HۊX]Xgqu0|WR|``_>}R^hl\Gz,]~/\?ۀǷ^/boǥ~8H悴գ.wm^xqذFWĶ;G< y;ƣZ!;zԼB8:cp c',p]#]62\O:ZtbqsmL ]Wxop} v Hڛjر籎nvxHcթ+W x•qWl Q$W ,W]% -4*oyk5pkԊ˪aNi1P]1?c`܂!c ]N)Qm ׹xA,871^P6r|X]9rpEDK*g ƛ5>6=B(Th3\ w<@?HC@W8K_zx`xCU/{\9R٩c>7*^fqP57 ;| C&PjxA}"Wؘ󽉒eطBh[:΄\Ix3|j㹯Pt&$l icvݘOTc cyؘc`a&Aּ&[dgx Pi]G56Z'6^5>Hxh</>>`8ap nxz͟bf\ϟmE@V"c072~U'1Pߟˆbq=?&{D1/Aecf|5<`fAai&̈́RfO1!g~RvZk\ѽ2_1, 3l{_йz10b}Wr!'̬3gڿaO'F;* ]oC±qcڙ1O؇6b>WǸ?Țm};lc}C}K\ng/xwƛ"| У{85*<E?f%>_7>O^6&t6!098 c@d~5ryr?G@>G ~y>P5>o_ׁԹ dp~=;1`o'{vm$t'2!O %h'U^ݴ1GoR2~Njg< ؟ 71ʟ*x4 zTAU*ƃתU՛C~ 6D QϿ50 Hj>BZ!bxcxݏ 񤿊SՌз-(#_~]N,;)뉬lnlxPP1 /J[j[V )俷jnR5#5?^ ՕTσ%6ꬰW6^5Ml<5Jh+lg=>mkg2+3uȞ5/rx ~@waBPw$y6CՀ"4+*G@]4]ruulu5^@]#u1B]#UjUU:UuԕU +%BZL߁jks~bx k1+ʀ&&Ȁjk5"  #Nh N(1F3}UUy?uuPWԕ +c+s>/kxhP8: h @]P\@]i@]邺|uy7kjԵ@]F|P׈k u1:PWhPWh@]b[FB[؀Z@Q PW|Uq4J ԅPW!tPW 7 e@]h@]tUE(@]u.> y.4O\oz@R_:C(c}!zI'c=Ս2[o\uKhvt.ha<>MNpT2SǘۇjEᯟx|&U-]y}I-<0 ~~EJ׈_J#xh2xi2ވxj~xlP7BFm爯A-x1'7cEwE uP;JI5ꢆтxUg;zx^5 ^>O_ow C ޾=9R7jEE Tks9GWATx<1 1<1 ꌉg1q'v~x[oq!:RoH%o)CRW\9P5.jSߨwj^F+_N0P/W>xk~ <6v6aTZx$V/xtPGsP`as,wG;~x5颮b"3#0Daިߩ_A|Ǣ= `V}j1zωS9ZZ|TnD*a|V|ܡv#G,ȗG-J.9򥑯+q= +ߓ*Ӌ5H*7g2"|hyuQT+'JcOTГM14|'g3LgOi_'_DiGxq z_-ғ4%gO'/pJ]'|( >B_x3( "ߡ^5/<%Z;ȧ|u-NPxsR$=>Ȉ'_:OrJ7R( Nf|9TگT1|$ېZz8/CNV} Dǘ|BA*7|#5_)WS'(Pçb>HFל?[i>ۙڇRNgx`ЃPUJBvrdّ9FzMjSkw#%&Z  NLU]6.4Pez]l$e:n}d[iZJ}]a>1u+ ZSxVYz>>zM,)CG[2KgrQgkfCAHȬ \: N:@- eRAY Zڅ N__dI{-A/g@ND(f%7d*TBfnjŸVtDF(H @$g>eVh P gÄRUQ&:𤮎HGhw(x$L%Mdm/Ҧ:e2kh6ͼZrY-~QwG[`IUzn>e<,[4Ic ĚO@+VOdf;t2EGWUY:*ԥ^"٘ݘyl8HmziLAS%3u%!*M{ɜ`./o 4}qu*%y1ϛlr-A܌XW YtU9v跈{vv>h3ZVO*=^ȧ0tWo jk%T@K>npt"gPECPeG#S _lN%,^6G:K.G[wZ\fɗY.|/+' =_fr Oe ce6x8WŚuaj6,RU#"l:n22Q09q^_w~&SaK8{]RWԨÌL͈,hOt#Pl9{ۥ˗XO wS(;Ej@U05`X8|DJꔙ*kVIPz9֓3鐬`F5 )Δ57wC곤0*df"*ҤM`*:"ej7胲b`c i{t|0XmWh ~NEnBuLϚH Paه-䲰j#0a6}.TS&عO $gBFcI!g-ʼ2߲ o臚t$Uc=a [ (S  dh@֕eJc(%݇z脿855kJ*D&\%s@'<MT\BB&}V*5ȳӵ l5f(m_RЬjk7K,mVh T]A~ЏSad]$5e1$ܣ~V)|whH(2{fUpײ.!ҋZG;\(uwTGmXBO[cmԩLeYݯoчlwBdYJ}"4!%b5#e:# oGB٩1UV.,B1.Ś,m Y(Obߘ~{^+CD!gdP<ii!bz ` j $uskۧS%I׎N.63*`3|P|*8ʝRfYAgّGUVMAkLD ('g8#@`"R35!ebz.۵Ko) 3|pD֩lSgI3eF _h+]B`Urdk|t ۠@OF ɴH*q:2Ҽp,7MCf,x.{2 GQYz͹ & #)3hBKuW\"`sB$f1؀gk~  ;ȪtXxBd{H6T(Yb5+Gfq_8EC:Cm*H tȝ5Av`XKu%%0s" Y_Fv5WaP,d)θ*`T*e}kݞ:]iOpy@+פ밓T1 #c_d\<%»QMpf7c9@uՖ+f0\1SxVO!$o0kўRuEEWį&Q'_ Йr]2m(гx΅OI q*삫$޴\ LđDkP8t hvnG*}}<Dj,OK†}w/ PWghE.SƅԝV \FcY\W{ڝf]g[$B!?C%&Ɛ.A.󨠠+ q:ը8􅐂`@Ujy!`G j=o[ZtxelR#ٜuS^QǦ"M!|0krS5:eJ@Ƅзb=-#IsRXo5?YUV}U * m$L_?ki?Ha_qT7,&T+,!V5Q<:x"jw]T1H s>* )JjZ2k;XJk%IJި0k7frV6) +ZV˻®FC0r+ TM5@C)B2q-+^{l>wM#@պbKWnl* wdH ֈߕ5eEOYDPYs.*}M/KfIEjMF3 ͒3\(H@/E[@Q.a@ɗHQQ~RlL [my3M*[ґ 2PnԸrz쿠Uݶ-Q,8hVXW5k#HRpyyس8Wq`J7Yjji{Mâ6p6S{7Kְ,H0B&X@޵*4,S @62Gm7̹vawzb@8ai /(kD%=O݋a.%VlKU!Ldx4ĎUjD[lS Kw= ,[mo(rbV(-9ϓ}=H0T{]ՉÌ-=ĖnNFe>2ݯ 1O-|-+%j6ב!Hϩ=-+o Po W{ܵI:f- sc\))K*ʅ4hB A´yZh$A ;m˔.ZRdnȅOǔfsXk 9 HfO1ҳEZ^n>OE'lY;QgTPY[ &[ț>ײʵRdbz\ITXGQ^O4 I >A63s]:I1I.[w&j6KZ!`hCALu-WP }dLZD#%MYW~bDk4U%#|Tޠ$m &̪.J }Fd+ʐ/0k 4Yce%kJDoB9&@,&DJߵk 7?T#f~v%'XЙATA^Bҫ4}lUgjxx,> -,߶qطj.P^u_Dž,IBe>P~pȸ?Yp,l _JEIm൵]XA:{ۜͱ.BrY~Pi;LZZ̝͇y$~ӧmc~lU! gQ5m2G7HkUIl: zTW(:@4 StjcS-T*.i!L辰K˒Fژ $UI0g-QMn24mIUY@V|"TV5ll,myeF^Pg(E 宑>TЬu[ ZZEhd^B_8 "?4*@ ,:.ၻRCXW$t֐|6-d15>f׫:UP4a7X aQW5%YEV-ń-4l(\,C\&(*:`)g2\/~ւj؇;2^U 5XfFM}֬;%0mm(–@ }wU1ۣ4B{ ͳjs# SF, cgחEXD>ռ)[R'ș[GIS{"(P %i?4ݖbXBcLjW"I( {bbd!8C-r{U{Y;fN'+eQ(z媋sjP:Hl`a,T@u$1]cU2Zh5s‘ImM5pZЯmtϤ 46Y1OZ RZ.4xdG@N WjmVo6vO-fYWMɴ@Bg/u'.OJMR$XFB_誝nҍ-qV$ Syaedbǭ^F{<ʶd+/TH^XNO;نoZapQ A1euS>Td;"Ik?5j6ﮪ>m/>nR D=I&&I"L6] P PsbV&ޑ9 UKS vQFG>,{֛|QT -Xym(؝vA,e'ǘU:tuO8C _duxe˖L8T9$\&VdGuY2J:5UuӖvA_(Z8xpU-j")\E Ij&@eamW~8o̦ŝruj5 ʪ۝Y`UŜ{[DAeO ~@?Iu_Q.ԃ u!Vg^Nmu#YZ6RpZEt somШVafqkZܭ5&[B$<$ Q:udz R8uW"%,n-%~PJ/ܠ7β󇒀fWWwRNKW)ܞ*Jvv?Ч)6$К`xi) /-CA|ߥVfPiA,k:2u/ٵY\xg! Ewez *<4õ;X#eb^ьttًH˔[К(k j5TSJ6<T.+G4eo}&Q_Ao ;Ldx,tŘ=MÝ)Ȩ餭I3l?lZp#r``eʆB6/i;(o~MtD-:##P]#5*E+tu%uIunQ~cX݀fy.eLH=u)j YJ'8BNtM&9;CHT1?SYX8kQT*YxM7XruaAte5^u:JZ}Nm|dRue:י< +%}w%P ^>b!P+R3cꇾ^VMqXm( /L~c0aoh#$_OK~a˯Uϭ>vk6x/Ӹ1tE)sHKӃ a c/ЙG̨q_-g:ʲdsV*BD QO܃1p9>kx~saA$A找OǴ&~o~:WuɞsFm}m Y {>6.Ԇ>ym=@K!OE)~  zM>gzvaMְ>m÷ ~}^+}=> $in?>7۟`kǿG_쌍xmdc&7MQa5byM2n[+d{mhܟ.,xy(]_~^˿A~b;ZY%;]?}?w4_ї_beq endstream endobj 217 0 obj << /Alternate /DeviceRGB /N 3 /Length 2596 /Filter /FlateDecode >> stream xwTSϽ7PkhRH H.*1 J"6DTpDQ2(C"QDqpId߼y͛~kg}ֺLX Xňg` lpBF|،l *?Y"1P\8=W%Oɘ4M0J"Y2Vs,[|e92<se'9`2&ctI@o|N6(.sSdl-c(2-yH_/XZ.$&\SM07#1ؙYrfYym";8980m-m(]v^DW~ emi]P`/u}q|^R,g+\Kk)/C_|Rax8t1C^7nfzDp 柇u$/ED˦L L[B@ٹЖX!@~(* {d+} G͋љς}WL$cGD2QZ4 E@@A(q`1D `'u46ptc48.`R0) @Rt CXCP%CBH@Rf[(t CQhz#0 Zl`O828.p|O×X ?:0FBx$ !i@ڐH[EE1PL ⢖V6QP>U(j MFkt,:.FW8c1L&ӎ9ƌaX: rbl1 {{{;}#tp8_\8"Ey.,X%%Gщ1-9ҀKl.oo/O$&'=JvMޞxǥ{=Vs\x ‰N柜>ucKz=s/ol|ϝ?y ^d]ps~:;/;]7|WpQoH!ɻVsnYs}ҽ~4] =>=:`;cܱ'?e~!ańD#G&}'/?^xI֓?+\wx20;5\ӯ_etWf^Qs-mw3+?~O~ endstream endobj 232 0 obj << /Length1 1370 /Length2 6122 /Length3 0 /Length 7057 /Filter /FlateDecode >> stream xڍt4\6ѣAlFD 1h#BDD$DD.Z5$os{[֞u羮Ƭgȫ"h^>$h&@ !>HA@((.%$ؔh P4=a *) &  @RP{A>@ٔH3SWÞ(AP{0!n``BоH!FK{{{P|,' E;q~ F#dG7 0GaB<$jh!x? +ݟ_`{{; ;P͇A`/ B`^`( ln *`̄C#h 5#4kV;(! p4WP$s Gx>9Bpt7C=#V$jsO 3.\o[D@C,%w s`7(\O4F: 5%]E}h0F p'ؿR@h{`P8D 0w|>PNvA0gI=1#`_B̒1'O#Go|p` H_>lkDb{KNM T?n9T]c[5MB5%3O&V*D.JFyc-C ?eӲ@2sQ~:<ɤM#|A0t\ .9-Cv?g4~Ee&Ş}~ܕ8eBG|\+Fy=> 319&d1@N/Y Ͱvi1nO:vHr5+P)xDM7 [y*?y|y]BY~"<ӫ]Ov-޹ע:țU"by-x%T/1 oY4ATn(ca3mfncYJfw(A c"݃l2CVw% Ʒ= -ҭ?fׂ&S`oٙLyk%(;<jw* ۵BUy\Wc36^k% U3U4ϟK/nUzkkrی໌.xiM3Xzk{J$j(L<|Ǿ jT5Oaiy>4C*[Y´X넜,Ki,^o)Q*ʙ@nAml%B~Koy g]s{ߞm!HqNJb:DU[oPk$!F Qd¦-b w9U 4_8Y6ľ Ys<Цq!gEx?7m$aRB۟g|j)ޔe+3z'NvDD!e.Rr0nRN'8Cr/;RF(y Wn j?/cWMgi[m8Tr\c(xfղg僻-CU"Y{D SXԮX*u1nJX~ūp>^&ךJ)xAdo)+4X|gO["ʮCZ:ɰ(}*=;_=J4\*ؓ5#yhpJ;Hzֳ~tw;%άհYӧk}o]pN\GNm_Smk UI$lZQ띨y<0Ck*a1u(E܀ gYW eBi҅OO9SɃGv=1] Ӳ"$5ؖPMZ$_6ZvB"ctx ./~~{N]lA]WPΜWx +[/wg"LT-]i dיn_TW㶾W0O'BH8'r漝lһNOpLj,yh' Z&xKkdRRApben )_Z"IeEjm ' >VLzo ",({"tB12L[>7])"0xX%+C$ pHC\˼jCXщQ!b7q,G9XDfl,L yj dq oXnN-#+&'ػ{ 22C'Cd:kr\CƲ*b}xpDNq ( iQĹ+sω:'IK9TX\ukw,+wm1o;# %Q_df37W:SgVX(~ff̐ٲNY n[G, id&w[--:/脯bo4'=I:2Kh|YOYzdNM[Uh~!X>pD⠍\)0~:5ns9GT*c#ÔXO8#,[姝B64#}Km#9 17~{ 3(J͙kmlyӰ8fG+ SM#׵F %vgM]q#XwI\+50$Z B#^Ͷ8TI'z"ٝ4=o=XLъRy E'V/^ީ>wW|bxKΈFLl@j3u>8.:Օ镨BsE~'kxȏpIApF&O <1 :U$.1 !$b֮{I#qS݂wIߍ mA"q8g Q|>JS=9ڌR,5VoG h4艳%fhox?nw=f13 9{['a[.@M5J̮f,7 `*%f*umYXQvZ@ҹJZln@3͌2wh3pUܹԵKo zB˴i0K{QrPe,9 t8ƓL2ޡr 3ͯ ;;ud>R_nFd窯r߉gStۨ&m\p n;RmCkMEd;d7 F?fT&Wʴ},Wy7>;a548IF{ZԎgfh%Esbj[t2 8ɷib6{}!k@E%yAF+*y$&L+Ww϶DUrloNXǷOtdN3GhPۏGJM;(ZpV9  _Ωcv0NInA'`JbGӺooRvx< TgWl+/UFKj`fP+rh9} 1?%Xea҂$4ycS&\D^w(Yqʺ6oѴiݥvJneBΈ@?_IS54]n=+ Q|6yv;&*Vv[샆e% t4No:#ӷFs;S1%=KuPȓ:ںZ"ۜU66fw (Kf]B*X])eQcz57S@Z+!]= c57tXFiu*UB *Չhe后g6q殥D!>9+݉h*}@Cdfw9ibъnK^QƱdN@{c[:.A9R6ii"Wk3W.ez G_^m?Ap]ʥ0}*(0]\]~9#MK`V#l 1;;"qdݴi.K>ݪ{'9o 1_p* L`MHdU8  Ǝ56{!1xHo鱸Q<r^6ܞG@םsSl ?m"s5^Jq8*p1C#mfWi2L븖2}}&ǪtxZuaF![Š5;鉝$~gxh#BEaǕaVwIG%猳 &OGtZ?_FE=-5-F7b mDȃ8su5jZ+^Ъ}ȥ"E;7@Kn`Cݡ5cgEAQbfc2UT$w]zi$0̬G&E~4K>HTi$mx-.βeŞZ1dӰV{w͕4zeG8>& c֗q N: V);dځ}7q.) F&zmp3ny&=vۘtrIJJ|{nID쵈>bɰ5hX1'c5[Dw(;'G^@ PT<ߦ 0DCG)Ԏ-t߶6mbQs{ `jwNxeDIQ1XπʦRo|՜olPMxn>dr;+ֳ^|Thم8ORO+"FzrםzR%)d+e*O  W}/򸴔=]s?4?o|p#dˬ:*oƽ9+rF/eh !p{T҇+3|ynأI .<ar[;$5ޕr[i&[8v'Gqˌ\%]/-P+ejTVw٨nrks򼁥QBk֬'n=8{;>"ct _MG=x)^d1hEm4̠Za&yÕæުN˻W '):lҝ{R?pm6?jƌs[AhL7nͿ='??K.1`M<j9IG6>^b7~᫅e]T*3vA _(i> stream xڍP..ťC$P+ZݽP( KbsLuyޏVKSj RB8yxr/y<<\<<|z`7G +  t{ݞ ա#+$+,!&z\((umܞ/Ŋ+**;@ [!u) ܼ+7'ɕ dx: Wd 2@5. FO.`+b t ȟjppy :9!`-h*qyq߆@GW?vZ>Q:( >uWV0++wܿ5 P'Ss( FܲE a~?H7p,uAn0p[~m/  >% FPwؿOO: >r> > l^9 )) OuqyB4 ߓi=iӪx@A /Vғsk a:+"j*kMvR&uoySBzw5=Y|7>_a7Ą-\ա$=m8aP5$+w.7_yli!̍v̕2El^NRA%3@H"Zh!SPlf RW>p2TO(NMlkD )F5i}KiM5XGzWE' ĉ7T,&a;ov{Q9(Zm׎qĴ;0G>Dq ޑ%3BZ.5z?bg0|ε[gݪ}U+$~zUlh;H@wkOejLL-xnke;!B:EdZp^`@9r !m K,Zg*q-x& /Ӟ5Vg-:ΎQj┤rLmUkm`Q.Ee4AubD1cqOPE |ݩڱJMp4.߶+NUSeQз=asK١FZx6/_ӌu$V=ӻhNodS<,{_Bq|Rug| ?8ppw͕A6g̝A;.Y-%h\xܩ ʷrL{rұ 40INON_ Ve3DTqC2TJiI=^Y:.2->&aYf+b6%E";ɟ3wpK*'*&N4T*Bd 杂EP4}]'vB2VW=pЦ٢\e=Qb? -Iօܼ 4g0i2ߨ|grMwR6l^{_F <-#<$|)vx4t\2/i iv? ptg~/,%!xZZxfTM'=xtq=bE[{v/ÂY?|v*C*9QN`}f;yҎǨ~=1: P;oyF|] 'ڱs`6J%fw&&YwHTQ5@2)^r0 ޮbq/xO| +AY)Ъ˺3\|dd弘JJk%=ZU^;# h])5 >de$U[P]Xh6'p6`oܱt*ڼ98H3׿8Z Lauug'rl.дSfLrb,\1NqF0J:FV||fFqD n,7>fL!fzbE\ÝxcDWi\Ec sY`Qgq_4ja#j̜V1WJEz;̙K^a3Iy<άVՠenOuMyWQm_}]z-|kqg݌Kvoξ2P}S2w;'tW݋w58y qYR*u,ΪxW]q9iۏ(2j5buXT; }[(P#~{&\-W|ʹIRml? (c&00'P\=^ī?b-P0&("=.Vh A[S9 5^nfU]xue ~\uq!nhf|ïz:s9jLSU7e!XZ M% aK_"wtEWQ,)4SA{fCƞE /8 CwK8TH3Ma{̑"˂V5ez +2 os ݬ)D$x{\yed͛:ʀ"Q -&>v~KC󴈃7#ΈؚΕՙӅfϝio{G"ƀ*OeX9\hd\@, ~y|!cL[fbgDB' ضq0^(@sx.)Q}ꁆul8 G]8B4ȥl\P+7Z>hz[zN΅w0J35uڊ 6K\ҼMd?a1r"$ FGzqe'|,^ 0GCTls"K<[2)2cxTmC.wEDyrh 4;ܩ^/ ]Dܩ76ZЖàv3ft#!sv GG2wtU"}0\#皿G'E/]mRu1әc`UQ[71 >ad /-- U G:Pn֮ȗ;5Cx e(˶R;AB /.Ii~6ilh Pv-v[nغ8e:mnTҊMx ±fQQr,QGj|S#ҟyNZZN/Z{YAR /2\Zo- 6t#A:iB72EDi5pe6c0!k1+]܄?5aa'XꢞTU U{^h)| <9? 1D;eLCyqa;pJFu(29;#0rlž~OeA'wʀI}QnfaD/2;lTOvfr!1U,~p7Nv xqS[4; PS+r:=7* 6*\%}FFT̢HFX.>%vzwnݍJ5wFxM#ݢ-%l곻aG MDqm/÷A?rQҰ$E ٌ;#ć FUm3qИ,&7bQTu-~EsKY56e`"@OSS+sbCӡN!gQ`&EݾkRҝQVe9C)im3`/qrOk>C8W%i?"M~AckfzQ()M4xK 4‹Gݵ&0dP)UP>dm BRWmi1#NLU+j篊!InѲE%^h/7T-7 ]( tV&ㆳeHm4q!g\1UF,6顧Qj6(^^u~tbT<)^is$.ߐ)S[N^c"9RS v3+nF@u5bҐ_|!vh5\ HM-=`]6}(w5g79uN纰kRa rκeJt劝#˪fnfH9)|?ח#7tQȘ,)ͺn۩gf2N?[Ǧ5mD ؆ζNjyLpU>#ϚIR'1ѝ>vf*K}kBr_\R~ lmȑ`R׺悇,i1Yr"pnxeØ-E{-I0ޣ~Z3]?FNzA3XGij]7-:,}kI h>QUOgv}v f'hJz3-=lR;s88UMo;e%`uA7N`̕N5Ҩɢ`:C$~)!{/JZ`[/CBiќ}jK^SKZ.rp,=w$x!)4J\oOmK];^ {EZN:`z~ors¤qq' E,\9B7ڇ*.?eh_YvlEdKZ2nezhjY6 e k='a'MclJcH)9Wi7Q 6:t?X~DX1ILR8-5l~KPN{e/{ ,hම\dn̼  '֨. ʞi}.~>j-_ų*ۭZM4{)qO{~tWͅzK%"QL]}_rAc,ez!-vzfIevl̓lfǛl wޥzU'{NVEgJʴDp&׋]!dd5fo]=_Q3_'d$sv_M{n yV٤3(8LAewDlr/֊5kT(:ǥek$W#66*#}v=H74w5X.s="[ $K' l2!ugJwl>49ޘ@3AU v +|;S'WmNFNE2 m˹t@S6W5Sۘ?1{#N)(pwUשiC`h9;D*1<lPep&gë-}B[.;(2/@\x_J/6@dG >p6CP]Vt>=/u%t7Ϝeۚ` 1o^>6XF'.2= :`9f`O$٭ ^t6nP_e*%vt(3⍂&W>#40pU|B!M(,#U}K8F /[}\_..Q.ݵ0f?$g%ѐb+^r*CѩvbpQ*v|Vvnw{mY?^སt-^%P(Ǩ4zXT(,(ymgo_ӎ1lo7zAq kʹ8|^Q di˜YOԥ}RKfRa9eTsyŲs趄` 7/"*54Ϊ'AfT߻_37k7w{盛V'r9Vre-&*l3<<֐#YBg뎽ۀ׭LG_ubtht-{ERFBq>p!iL{^=>57 xWS?뢎u.%“6d]Z;|7]CkeON:$ztd4Dץ!wU;Õ"C]:Bez(Niq;(s4:UiG͠vwwIt&\\|%u^nUsQ( o5|cC,ʋSP=xNy4*h'֛IR !^yU 2/<+30\kJ7fGN?r!lY}zQ Mg>EQm (95( (| ^KZǜqs{r"qm)/+V3b57iMW7^Hidmeoc|LA6ӕue{ZxmECg*<ؙɈhq+.~D"HaL*}jhueƪ`RI-P977>=ܚ0Y+&}grQ,c3;}r0, [i]l|"E]AXJ{ma)(˺^$q5Tu&aHs QZ AEkkV5]Q_U| cSgV\v,$wQDZ6u!>[%D=]zIbz.i@(@>> jt}M_'jJh-IZXdb?T.p_-PRfYU.2*W?Wޕ+H'mMyƀYs.;5%e{G aLe0yW]*Dw]pDDۅ> ,;ChX|Cn4Sl~,<؎c#ܒ{yYz.|7-лKr5U?GW?xE[/O͂pAdUF[@]yͷe؞;v/mn}A!K2u}yc/p{KI-WGbCjQC6ҵV,2转{gZn.|)x oK^s|_83[q}ufaҒ7]jMJi}ˇ!^*0Ѻ0IZЩ2' nZ`K[=૥ז=oг- t?[y oU )a^"\0ʰi<42c1o,VY o4*=ұ}SW 7d*&$[8No n PyrQ>A+'KhN+qEޅ s%.QHZ gVÃ8~ÔaAC܅s= -^Ƣ!7`#|bNi΄sL*2; XGUf{'R80d(wq>.Jb 07$,뺗xĝ'de8j$a Bx~4:$Ma c/립 Bk9^X/8:o"BZx UTu#0MZ+M:{P*8sZbdd\]J?\7;G:D%=~լݨd$6U6[ھ)BS:\{2z&>:75g:՞PLOl_ׂ^U< endstream endobj 236 0 obj << /Length1 2075 /Length2 8105 /Length3 0 /Length 9356 /Filter /FlateDecode >> stream xڍTTm6Lww;twJJw 00HIt7H#!R҈ ! 7>}k:s׾3-yxܼ8`_!B0pLGXj@!Uw'OXOD+!&PzmU(,uDlD8A0 @Έ6@' {'" tvr+Bl  W} `xo [_Dl]x `Wwc";=\ /_)]@|~.PlB=@8` A`]tdF 0EL ߷'!B2"?>z"r b.;(@jmbyo,M(bvAQ7A<ߜ-I3oEM@p b! KvS{lp39! m%pblb4@-oZE ׺ 01QBBG-0x!P8p~G/$Qx0G_$ѽC;$1C?"x"ͿH:!DPWxlA@DvwEځ=#$w.rܙ r:U`a@ r~"֗."4<л!_?".wjDH}q|KňrAl'C [k?r Q+ADܜn ߥAL3Dt`y2ظ࿯-Ħ@ / F"黐*9ZO!Na[{8N(ToisND2+P5PChE<pc AQᮑbzI**)kS޻GeԄYZ~D/J@n᪅APW1P2xWK_GcUipX VUS3GBc8wִ&oE[?_:ɶ"qDfqMgbޢ.ֈk,^EM~r|MOxdf.vCBv%,7gDjs_Ԏx6WS7;ip$]D'FA<'ЛD@"*-b9T$l)U80͛Kzޥ,cz-\f6 (L1ax~ĊǼ"+kQ]OYK]ᇹ?FnrSLb8:R S;ؖzVxM>(~r/Q,gX;5AqW?Ł֜"q&9׀7o$%\x %7mosfŃ޸%z SphXXU LOρH*VٳU^C(9^ ܫIȟZY ,0~nrp yQ9I.Q4O3i<cV|IjV\#S߲ʨJ\r@ϤBQi91f"C Qi8K\X@OE"iC>&$<Te;bVв"QOGD&Қ:A'Kw~ά`D95Yp?zcQ6sZk(eb-_mrdZrg`"+WӱBNh96Qz8 Ӹ)XVQ#̡x+L t[S!T~0rO4mbw;4{}ٹTI2aRyKcgq蓃փU+2N|>7f drJ;˔#+Ы}&E s:dP}r^ѝ8\ImlO>}Sz,>J<܉ M.céǕ5Eyj.UcivHos.dO„hQ=P˰QRlAviơj<-Jd6xU?hIgLqt/9 Nϛr6Ha81'AU d_7]w0Ezx熙TK{r?>;Uj4q5gT1ēHCgGUn sxl7+!,|ge|SREV<UȄFLgpO[s9ګۣpUӽYľdmM$.fUEGT{.ZQLɏ>$QA?oLC0q^acƿey]xS2$݌o@,]┃ֹMcRoXu9A,C3 bQltzKVrĵlFhSӱ)ҕD鑣ձt<՟dtl`WuOY:VۉjCN.h1 7 tgXӘ^E' {top|]$H#T&&qm ks^ltBf+tklaFX`Kn0zs_0@tѻs2$Kʙ\+:$'0 +Ҥ%QR:UС{4Yk C!XQ8bG6 }] Z!2E9;9RFyK{lX݋ut4B)E)&'i;S&i )b5ZOAMRܷv"cb>8ZBo- Vt)]]{ ?Ujf}vF(w{ͣr4伡:Ix_#9 8-}9 Y☽QsL̒`U M`Th͓i皥~Ys)&!ŵҜL ~[-lBܒEy:,mIYA\\[ƶjYvO:%ϛj|O˅#`>YZpmaN`6g1TϽCm2$7%!3J /0Z2h ~ܢ]"IUk$BR ^;>Tijhw5f.tfZR5k{_+o M :O$6EkO΍}'iO iBøIޑu`$"je!]fMt,Kĉ9ns%P|{\HYNihjnpǠK+(U:η33T& tۼi̒?>aU v'.5ՈV* eJ?QU̷?2_e܌ZNKf{㰗Ѥa %~\QlN::0-YIQw#!|!y6䁗O}_朙2R{19Zy:*Z(YW?J=um݆^^&뜤yn^Y& H[5E9,վm+ưfkچ_9&|[ҍT(*aHg)] !NcFj<: C`3z)?FS BR2~]T ],]e@,;DngTElidd>EH:W-h urD%=5>!}6`[ Lrf<ۯ#2+eB58|^qjV _j02i̧8AQ,J8d:MfDodJTfP/@=d`\"|i%aes3@$̧>^K0>_x#!ϕJdE%@F{rk!Sΰ}H{F&jA#ę[5oeIP,Bfc8v=9QgȓbĬJ#BWjfi$=d'n&좲f{*)Ud)_fȠ6#1c7\qKz_;̴kh2N\]rg,Jǭ)ee+iz 70>0a͗s[UL&nЕubn05! 1<\ROI"#{g= \+OW'^DF=)(r쬎!?rПY 日mZ;QfISC~L>CT,,*Bq1MRגs &lW-! {Q{UX%4X[llcsD=Pf6 > ?8Op&!tTjQaLލZ83W-sb7<,s+#fJdjG=;TQr./~P^=g%U^ =xg ϗ\̤DEV6M||דLlN"bAL F 8Opr%ɫDZfۚ4ji:FO ogb-V'H)! Kr9Y \Sn6ZntLX-82 !\'Z Ӹ6 9ތ,}h@"? [ P<ez$e.zd'ܢY'&crLC/Ίg OO޺oi c h25$,oҘzjh0:eA:ZKQ^qC 9>qyï0IhNgΝ~\@Ƴ1[D;ύ¤?[yl>kjwX{nad4ϑ?97$KWd.*PYN2<ƒ"P=,)u#q∷IVS.W|Ш#Us GJ-9% ߴGq2}֥$2i3+;< Zwp=r=XvEݨ\; '0,b\elo@ Qy9͡i_ff/m}%oۃ)ی]06 nq:4G=Rp> ;?2 #GbWFf*g.g̊x+@$hkg ߣ^8{jOj(%^ N3q G\HmUb{}6swԊJ ELx4v>(\h?PZL>Dw,X2 )/ #waqa]* tt3dإدdg[ -|U5pC%25|Cb7`q2*_&H]դe mjG}kK=jJ1`BnO>ylѼ.nFiѴM[kXzs2_FdV7'v\ԏRL:z4ı]uokL²Nݲ4OWcJClĤmXL9 uF6=G"BںmCU麜!i*`Cj(G]("E3ZWk=ho YmFl}{Y2rV6'B$ްƒ5g+ ;LR!ZVdYAx5|X z7U…ۯe!!܍6SHFі\Zx9Z\ d (bJ5Kk&=_, (JJΏIT54KhH4#C'!&9a{BԞ0J2Fib ]{Tm/'Bz0Oy{ 3apSVnmXO:z16}WW#R_CRzEQKJyuV |YO@m?ǛSPj۹WKKZb? 5gvM1gIH#L ~T(^nPBtˤ9xDud=G!XaGgRm-ڌ9F9ҵ1Ѻ&^"j\? endstream endobj 238 0 obj << /Length1 1529 /Length2 7529 /Length3 0 /Length 8559 /Filter /FlateDecode >> stream xڍTk6( Ƞ 5!Ht!RJ 4Ht =}k֚׾ 5wFsy@"Y55e0@D,,0#oED"e!BLO\`>XP,$xA‘"9xwXdO$%͊~X;@ YAj Aў &fF#D@www`vm( tZ~ P8ACеRm$aVPg`v(4P翌U29p9vXYgO-h(=\/C# A`K!i-SPVHAsֲp''3E+?9j9wO:8ݝl`6ʰvEa.Pe?6Pk]O 덀#620(qHW+-k` 9Cm1G<& ЯVfYÝ=1b!矒{xܼ / ,|G*;sPl&`p un Ya|G_QLߌ\2!N0G?꺢1c @]55hfm1a(Z6z Մ`?:̔Y9` (ȡ7 տw[>^Axa`̘ZC=~q1.L;8W% v`brð GpV@D`Z+"xb<&Uz9'}nۭb%ۇ|tM-d{l7x{!+"dn҈cJgٵovRz\IHh`&+(v뷺jqEmme{sRE]t3FV& ĽC,!S[v4:X#Ƕl& D=t^ PZl/$O!}i2!:/P|#11\O, ă2[wg/zd7 re86jMtڧkG9/WV(驤s+^Ü,%&QkWywD(ZpNrzܻiUIE_pZ ϛUHY%?ĉm47٫\gvhr{W%^\7򶻾+ 2,)䴴-Ѣ}7󛺳Wi_.^KsdX؎jVTi1",7>Hvb=n*E >=+FbE|Kmm1?I6fA`0{8 4w`8~€jU#}R~l!=C aOjl{˾8eZ㹮}ؕgF7T,;c1cTy5̩W&&*~KՇc*QJd.lTql#Ი@IT[\I Xr>cPyiT `_=#F-ԳݙJ%[gt\J!j6s&64j|,?J*H\J+4:Lhgo?"RbGj3h =ӥTJ 8PkҸ {H'땞9d\}lŚ''id#'aVq|hЕ%%ɼ?Ԩ00tE9 jZ+2sCKrQ?jJ'm'yOLl&Iqs% ~2lpIc$ &'z<ٞ/hAeՋ%AIS$5AyK8vF@Ö{:ymԝ*Mm^?ߑygCI?< T|S|7e7+;u'Դ_}{pFR7(8YkčHKݬz]G\PV( \=g2}-+Kyr=8`J*[MRg%AvI*9GCUCtjDó=  2mz=xؒ9LOffKGFKP$]Sс_yU8MJq6,jK^AVZc.)%VFĮ4P&?+e ]Af($jJ"=do{ /ިܯp7ϗ~ӸeYJ4!g:37WNo8 SIkh=׺]]J5h|q;b8^bm9U/|D*7 vJ/LYXۋkc Y8L4Ȭ-%Llj ljF1#p_wnw9a'ٍ6=ԆQK}+"wh%٭gӀDrK70h4rt[#?}xXU:^䅱QN?%H~ʸ `A )S,_ž@5χW^^e82X<~ʦ?\7~:*ɠx2/[0BaS)SSk;'!Ƒ+(tg[?p1CvigQ6uy_LjεgCk oB-w#d+\XC~VHE4{6nԂBHLTTf|_]2lw8p8/H6eB!)lӀף4F>z? bz>hm4iö+B,|HrlmR`ݐ ȻXAg,8)n*M1F|DDO4[~v58F\JeceobDَ _W{st؏>Y@yCkqR-EXN\|F- }}TV&w)rB|;jOl#MJeؑ,CO~?NݿMqBOQ\eZRlM.# <iKl9 1kj%" (9&~'@nџ;:YJ9kq jE9gLJzTRM5EE_7a0RTvB^} +{Rފ8!K\h3IDCvmXnBQi-rJ4[9S~lz͔O n-4Ry])]| /k\ { Dv,dܕj˫Xq,gq:CP r* skh;$=Zrx8s/{P—+qMORN0y,?g7{_7?MjLePV;^J1T5v<ƋCv{/fy|h9:8I̳g^¤B:HkH seHػd*5PCʯӈoUCGA)a>#[\>*$ 5r=j Zz"I_'Lx";DҔx.qezxob:^ jL/ KKὉƊ7yq)8qɠae$:ǝLb.Eq XΓ^TZ; V]UVAud9߽Ȱ3TiC& ^+rwDU/Dtl7p = }:N^cMO[ݓ·죯-W9(}Qt\Vc cnU~;Vyx,%#cM~ wqL3/@`lYu9._{O6H?-OXz.Mϧ,, F 5cUh] =~ fxu/N hrmU)̿j&^{C0>|V}֎I]\KnysA־jQDwkZ`ٶ4^Z"*<[f':"/(n.IγLh[^LãS7$"IS 5J > .8AiOͦ!Fu7YWopkIp  ٵn(;|n$EKa uRӢj 0E  j$]Wl_l!:mqzw㾩toy6t60wI= d2^$=Ыܼ+xu94j3c*{ dyZ.یڑufBלH;RMLr"XdX,7) j ?Kҿ&8  y#+4[9ypQbG/jTB@ *ߒ>s6JI@y1W44wp_;hscv'Mۆ,\ymn@n˩;#78v+r+NNMX {XC;&.]x*"N:>Rul9&{f:fQŷ~is h}'K yVy&64Ir6w*gN39\~jv-cK\+XA^ADIkxNq6[I~uNg/T3SҀ0u\jBy:&9ANhPXA3]d7bkm:ruK4X+%\"8`[ܭD]9nZoY_SWF:cY]1/'rnZLHFdc-6 Sd\Ύ U:x}tM X':n/[ 8 ǛUރӝċ2kEVӲ}Bϫ&O8VS-ɶ9i&dT IҋwH\K´M9O7N9weHLB,o`~(0h3WnxDFx% [WLWd@@W4/s@%A`[XOPL`b,l.9#{>>iY}C @ A{C0yڈ|XLT^b{!f*B!+?.Pgn[ դ4אH,5wHx!P&!pMҧg_K.q8p!PӀ<0j"KE6VO~mu-!T߾j(Vztt:͝77jmk_ȵ~!Pa@=Y H|f8yڕB7ANOQY~':y$K#&}XTdErZD%kzg.8%f^"[:~y`%~ܤ`6"D +r@ksIq*{U~ 𽙊Q18V'h' Yz!|NboȖ!-J荂@{I¬ҩn+9jZaV|k)޻cX Uw(ʊּr7Tmu)s%'AUJYHT+n^g3Z_B"( +>5pHtfiɻʱqdSNTgS*F?9OD͈RG }H@Y z'ͣ9%&:RVSUT<g"*kE&i7n 1q,^;:l6R@)Kl>76]Qˑ`Q4ۥCbi~(Rg>D<ɟɩFIYTy0rʾ6Vz\,]scjD~:0a}}$d^l 0BxLUVr\z3@DE⫧&/V299`wCb#yLrtsm{(c4zK(s2C5E5ۈ+,<0dSk|AOO]1w8l_O 9s킕j?~O--8ѐD0StMZc@-c*$d-8e֜wծaAWK?*R`Y1oI.*{A$+(E sSBs,ˀ.\d48mQj1~4 ]C/7PA%U8t1Nj%y_S>VpN] endstream endobj 240 0 obj << /Length1 1346 /Length2 6029 /Length3 0 /Length 6947 /Filter /FlateDecode >> stream xڍwuTTm>]* ApaA )$F@JB)nAѧu:{_}?2 = Y@UOO[ @ 1aH鉂m1c=@Tp'N!0h `IY,@21XY@ ⍄zm Aq"Wo< 8/4 pm] @v0pz Dv@W7vH0 h/ C!H];P6 lEyz{ Qwh*U .O1>hE Cj&rtk ©(9= (wP'_)L࿍_j\n7kDq 7zo `H'wD)S8 `5@0}ő AͿz۪%)!߁ !? _m4HQ/O$ccp$^3+N.I  Hߟ}\t_Zה/?.s%L0AZZ2AxrVskco=jHX.G.3ol\q9Px.ɤswԮpzoR1yG0Fǰ~] IR=%7ntKŜh[~ Z ~)-CSsE< ue<;u;vt(ďk ^2Do0v'*H/ }vm~-j`v A vbIg{?E}T*4(L("̋T@r@H"۰Bit;JD,M:;޳gIk竴v6C&zO>Jk `{)Z˔^W`b. \qKLfuȬw< `ZMuF!%^>{d]v?kU9JDi' ! )6*2ω%za+xw.P6uiW y5k7j%h!iߙ~z;^Nn`$Fg&Ċnl7w-kA+Ɯt%oI_'؉W.K  5 SGV<ƾ=upgCuO=҈֓WW9=j0D!;GvlDL>Qn &sؚ@t QO(&A\]L曭3,/OidlnZc_L'7:nPkJ }7ƏƏדU&YVVj/͌-eg)lm;`+ ͮ0.r$bYbgGVYswYVNUoAŚy #t?2%gV5ڻ&B͌vo$8yv}aE(/`H;UZ 4?6o4v8љ~Nd6V^}i^'Ǖ0HR4vs!BL3RQe׫DDQk _FD[HŠ&rmsX뷭cW)ϰ&7ZV\SjM+B5A8ZuXcc)Q+,62EE||i|6A)e|hdAY'pǏ )I3zClN,:݃?H|O݌4Y;ؓqݦ%ᥤS_pk|γ:aa1Ij- y婄 =9"y@'d7TX+~DyۜnоQg;}]Ř" K-ȴvF/MhLVβˉ)'zmHzC.VP/wpfrvO=pb!ym$]D$[-L?mV zmж?I},II4)ܻX-6vDŽǘ/x:F-JrSlߧ|5&xjDW\A$u:m՘(Pf_:%YLbؽG%.i:~qC56_+CP6{3-O($|2}]|u=Bf`8> [Uiev-9e x;uBޒa}uc ͝Ypeܰpeprn *X`|z\8ei~sӠ'^h)hke1 yg^8(!Mi2B#ZX䍈[Iׯ?y1\ (aSuw]9`4 3w j1]sغ [^zͧԧ|2|kPFgS"=~G3 n?gh`jzg^%БS7w#YAҘb 'VBJpa ^ V5eW̫lZhң Ύyxq&UP:&DTϺa`=o=l3 |Ć5}|<۟4+f-XeYSW E[iXpOFUmwfSYy)::7R X-d>kW[oV}v=ƺ^32ֹ>ik~|nLc5.' ݹ1j>'!6,AGYj\.AZ3%w\^w$^<̢9ޠܽrq5Q3/:Qf/4Sn5LD[ KMs+n=c:ѕ:g48.9T% v~ӨWGBm~X叜Ea\s`9z|Ӎ^=fijiUTNSA7zÙ6s HG^ f1̛j?xnMI+Xņ-fh)\ *ڴ, :X֮9%ܛlZ%1ٚʮq0<ؤdP)b:(fwCdAŌGnngş9p/0/6/ x\]d9$ 1Ym('Z6 90~)y- ~VS6j)OVm<7a"$RJRI497 J9:? Jȧhחj[b3I oߡP#wae\]1.z/&;vhRŜ>iOjjkηd ߵn[ o^3Q/IfP;y()נlndƺFX=kbәx7gG ?+f7'ԿFPBe9/Gi8흎PͧNrGR{*r:%.ObCwW9wJbsȸ\1EՇ Rt1u_Q'ܴ/(h4#61)zqT\dGx#:L8MZ]woxdfaJ5bmC[[S-JF #o&cV>^Ω:2zEa Rsmb6 [b ;G?P;d*J2̘ljü1[.U~QjvY)?&bCx5iH5Wy^֊8"nSUI&uYp>YّyBc@) <(Ta핽2Z|`5!L%W~fO8g)xZ KC^g$JU;ج\mQl-o>ҏג ީ\9z[|96=9<,hiDŽF@{k,\5 muVZUN:' H2u(͂gd")O_Zr8U|rs[%Qlylnwk@ٞK,b9QjhasOLXV9Rt؋f qeIK@]dÚj›:SzO$`bƱ&3ȓH@C^"p";V5']ÂQfT?P6>M1*AQN$;QHm, |.L#T\#;Ӊ.ɁWZD/߹mD%T9QsP{'tG!*;'oNntx UijE[镟2+N Wf>Pq,~$=7ȑX36Da)y;*Vkx;ù\icJFo۷K5'FT(KJϘ4K7>PVtP^U%*>:fl(u67KcI82F'@{ΌKm|91)&^u@S)x^p3*aLXQ 5s~_22p9f_9Rc;z#ݜj~QȐk[Fu6/^H؁ ^|BsM+4zT j˕R02s"ٚX\kVQl=[t&Os8lea}/|6@ZkTHV?%-:;&N+#/G_w7h_R%=6F>1ִagyh170ZB7up45ܔKbsTU8g*u'-QH󵇞JJ&i8Ȁ2rX\TZ//W@/ :Y FV-ZYPhm…~@, n{OCwQow H]W|aq5ō !rnj8Iϫw(Dk& LBc7Dgyg5|9z<ԽuͯD'+U3_cZ'f_/Ze;IȻ3f6:D"L?m\}aZ31OBYTՑGښeoDo`Zl=!ri@]hJ CE[5nN4Gq⍋1Q‹}JFdѴ[1,z VU*-ߔt?^%%gUק;Oy ?6"c*nk9lAp.#kS@5d' N,s$|G' U 0#yv/)Qbd׍Yg0_H a I6[džbйa^D6NUŪhdͱizkk)9ekԳw _f5bUfw2-L;vS6v3NԎv>qnrHsQ/:% *Wʬ#GAq÷n,>t畊ۚz! endstream endobj 242 0 obj << /Length1 2502 /Length2 21033 /Length3 0 /Length 22473 /Filter /FlateDecode >> stream xڌP\-w@.ݝڸ6.-4Hp  n]^ɹWWTAicZ :)P `e`feeGҰvGHX;:a e&`;EG `geCG?@ st R;:y-\4@kF`a jY8M\`F3;5B Z:xxx0ػ0;,֮V5 4U0@OëT +k& ,6:=́ .Pv:c#?1?v`am(K)0z2L24sqXۙ  % 0\@N..vWp%.'a dm=|,-*͉E (+ bee@O3+kx9V%W  7ϟFllsk3W)wthd c?eЖfubb&NV;+%0*&I_Y G?ق?ghstZ r?.WےVMc^Z7W(:j9ZEʺA6ZHY{U]ٖͬ]P <-^ɿU@7_' 0LC#.́/1p!5Qn._7E7F߈o"Vo`8,'E7F`v̮ٕE`>߈#0o|ZO_F&7g 21f '_{߄L 80q=|'; S!7 _ֿn?M,2~s{mdt,{nM#wp~G:=8ɀK . tyrGg~r9'Nvn.K`zg7Gc忧dw . w/]q,M ?7 oZS c]=ppGgހ=^@p' C_O237ծk?o@' q~L [hWQ"wTڟ|Anp骳WA7:ї6%iEH}"~$6?>%o7#΍~9y@̤!d S*ٍU%Σ[ڳlq(|f[u[l)V3F?x*4{֕-<='$WRDDXB5i vvJ]טC>b{rx>%KsMQӖЙ3բj܇ضr?BizkJ@8FX5{mb-7Z6i |):^w ~=ĖlVzQKo`\ڵ y`L}6tApU֟)May`p+L;;B`!iN)!o%FU~*lYԋT!ikSVk{j J?枯DR9@l(ix>_,$|o㦼\gQ#Rl n]'4CZvtih.Sc 1w2x4mwEOeT4=s]_Ep?\7kU@B_Y0jh:!#R׸˧^蚝$5IcW_IK& ̸\}Gbո!Z@\9 \=z#F-4r$RJPȀ:c-@E `X;vHU H''Uy~.kel%7tr?LcKC\$\m*lo/߹@,p75934!`3pd\+Ox̼P:éNit+#imNY4! E{:C>ܫ)3w](g rw):Ktx҃>&b9$oiQi»ؕY'ҪeU()*w}CT)rCn+nISE(=(|?GJV SpޮY~v.݌zt8hMi5Wo2|33*RIL`>QIxŦ/Nᘌ5C'~/:cY*YX^,=*\9|imp JI(u)iw4I[C-OVJu3>[ʘOl f80EG" _*LX??gu%&X\we۵RHhҩ)paf TjG1A 6>D(ڜcFG햑K"d6 qb+ז+w`yna뭉k)2aK69iw/M34E1e=hޣ1RverBU7sZbb~Zt o NVO0qq [bZUZތz޽)7ywy[z{dLrzY X%?4&'3UogD,9eVULǽ 4q~-g#/ŬWd3u Y.BTkDERfVYfl-! 9 NݚڃԝF68;Z;˪Ӊeƽ_&lx_|ZC$C|LTxʂ/3 9qge w%hEi>JYd9Ku;n/9x) AyC/q+vԻw:۳u4# c!A k 7NqD޾noQ^zMˮlneNzs) f/'J@B|+boH=d$[ B)"Ӧ ~5XYG^~u6tX~fdSS$Ʃҏ|+OX {؝Jo]3ME|fI}t9 :Y|2d׿ʤVt ٷ?wy;;HW{71WS-P-׳]!M x #.F[z̓!lK!x}JsٯHF Mv'ckJ F^^}8)\5ы S =~X&F"⚿|ڹ[',׃cKI?6R+sbk{wa>nI{Uꉣʈ*W;,OFgM`UEg]O>oy]Э&fVMgQN67.7;'اQpXq͕hD%,6_zVSN%˶fT7Qʬ ~lAf!>s)]9,u£)?m*0)8F -Zb' |;.X9vX"NlDJٳNX0I=%VNٰ\gym$-EUgҾ[ tg"- W;qa4Dn 1o6quv.:0G\`G;zJxm{'%.yHg`/]܊ILjnd5[ϞݮXlM8ٯTGdSS:% %H3߉ò(.'`X驆+X0m^L*:ҥc$|ob ޔ@Fp&-"e% !ew4 HDop=Rw;fFmӪS)w2^,Ʒ37e DeS_aZN x7j8z.M*EɼZ6's <`RMG_f>Xqf*$.MŨܥPt"}tSШ]k85Ke3G&v, ?0Gjt=Z`/E@\{ % Dy2Eq+ tPuǿv$Wg#dT2aE9jC)^ )gt|l9|V}X!ۮ{ʻTvºޗ1wyIƩ O卅u%TƩ'?\ʄj5@3:^djưҶH;_=~iy`9lV';.؅kb ꁾS=AggLp~Eaǘ['K¤1#/2 9P?J*Ey}$Y]{]md_%YfCo>?2`<*NEg>X'k"[TAm_!'ރ9YDyK=1/'PsuR6%7uB U i#'™47G]RxZ 3 .8/_ YK @ZUTxJ s132?)Ή j[o)D ׎$}~x7^,CT'E>"3I1ۀ*uK|k8 I @ "6<&[T1T}xU.Eh0O$-Hk%klz@{h.6tݼ1)tF%,(% 1va c9S]W$8ˬ5tVk3AMR VsPt0L$a~όHJ8cWշH:Hj0zΩ3 }s//:\xRF!К94"BE4gйeICwneYp'}pO94{ܶ,濄] I&D?if=xUYbEq_3(l^‰sC*jqqDajIB$U){^xt+LשcEZM۷wrϜ#w#Hѫ5oK~_%$5;Z|Gf6ޛ) z©jz!sd'D )S5NoiEP=?Ea3c%1u.𻐎ZزZ=-CRxEo؊=:0Cl%2Pew`a85(M@\VȘ%2m9*K~8H`vYP}[%zJL&{vlbH}nLFXgK{bAF؇ϔTM;;V$CG_ (|̋9Ghl5{9P6T/2&QzbبYU>fxCfOLuNK`Lw];`aQ#ϳ[(gmjhRwGC u$;)ވa_PQҩ; yn|úq͔UO}yZ_aӚr뮞;V"ƀڵ ENE;7Np!p'Ҋ ^Fܡ傶n~>iƴNd;ydc;$CѽŒJI}Y!m>к={NP& ~M:mMR>L$ ~K;%~d͊EY73u0bYh\ }G7%<"%}rPLuq [2 h 3壈e#ӘՉ:1$Kkeaθ~4w>ˤGXJ99h D?% Woa:Z2\%_9dsp.8.T~9 ֗.},D > !*6i ܛ6vdqPܖeM URB<"~߳WP"M¢TO}JDQg['`GN|TPOBxkǷ T'C$Zeo},[n mQd|0;f2Nš<`j\2Fcg@YR{v+'M2)Q6ζ[21XMH2754fRI}1u/^oVZU CB=+8#Gh41X&6AyWemaxc?}\M=3KӶ 3手^CT l>aB{vnr84!Y/?i;89f<5Ĥӌ=)rD}NBDb ,a7k-?ЩYFؽq &ɹ(d+3RyOOTXR1sv[WQd{u\m;:kEax$ [ t.tǥg ]M8뺴Apt3xSZ:Kc'#_UM+)<7#Yż7C8{؄2mI*wlX+soHGc4sG}S9mxTyrްY2ƹ[QڅF[m)!@Ack3PJtE;OMR@ m0}nQMbW2N٪}')V28Δ ˊ0̦_Ϝă~ٯ8w_ά8r_Ϥe2l֏"uohlDTOc5Ö XǸpr\ԡG}I ;T_GzZF7nmXW#mSJCeiIaoSwXH﹦(Dct? X`A}C{[._ܤ+VDhfiD-61+7+!m5%Cw-{SMĻ.vﺾraYwMhG -j;w]{6YnES^7S,CYr*q>{9|3vЍXugTDihxLG 7mT-qx ~Q\hS-h4..fdf "pZ.[|ZاUHڤUgi>!zJ|uL֢7tڝ!6[ˠ⃾ϝ23Ƨ&h$9>/֖f_}C`ya9(\%#'y`u5u8nntn1@ryc-@HY`_fˆ%!k=Owzҁ¢q1W7ep{gޭ*LvZojX[uqs9`O>Gt0Yu9e2l~'CXad׽`o`viH̔z1~.IԤZ]zS;M9Fwl9,2FĀ?{WyOH'է\k4}DWp;S}e?=ψ<1lXi^Qbu1nQ eڿHR62gJ~BrgfU-P"Ɋ9u8ke%@D.1h@6*_^ݢ"ڳB"yZI+܊ol7LC)sA?Йj{jU/TqD~臤g!v{&CդՂS*UA&8EE5gmaE2R3kѓ@_EBM1 C,#^QkѸ/[ ~G-ƻZ+ u hH1(Y')v슷VGdeIif&{hm}슆M! LpLܣЏtbD䱢7 23)P&·bQ7ēm84L*{$^6&"N^1 iJs6Z{c *w$Q{'GGwr_v/FK2ҫ%Sq8k&ߤ  BE*˜E$HAP[BHlA%1ik3XZ!д=^ՋmOۣ:} {~}:H%C^S L2d5jf匒^nXRrWCi؟=W#P6N#՝{ApNEj+}+-m>s[NKҳ1*w4ry;:7@*៩hN;)˱ꯑ]TwKD(W{51CV-i D؊3I&`#:` )2kiTdߎo}q,ׄ2=4ƭ5߿cucy,6nv9QP1꩖ZbqONby_UPW8B'Hx3Lm_~8>|Li|:wX)ڨ&H5"F/ G¬~I#k-|ENC 59h:z1(݄B )\ekAMiSU*7$׉9VgK.ƕh%Yw(ȣB: tc W.~B7@iLAC#BH[1j?%`[FO^Q3\V'bJiyumF{3vL\c U^Q7MNHk"Ap\7\BeuY(E|_XB1-pU, -N 1 ipEQU@M"EܰL?f>[D1ƛ2dNs.1A ؼµ= ߛ>B< *6 ^,ʃn%-6%.ꓙr8/%Y]׀j||/do-!iJ9NMPU(㠅Wө\rN>G1?=I yns9;q aOb﬌i6<߆b=&YDM4LM2j"s xrUz׽:^C1lcpoD3t1}^[)c 3^;Obw~+K &I{W^]=N"C_+u\2VZKu '4;=2[fCsI_:WKiP1V~~(>M:(ra[Fp4fƕ//#a?M!; (OkEe&oP@]Y3!k=FhO.Gtq汯?:[vp_O<5u#D ˊJ%\Z&-*$ILaP"mf|~=.^wh|*041t"u\m>D NFwÝN㛹(TY DûJe 2&(C"r" 39.7#oiK轖Bٗ>PO/8YOVutY(aUj7;w-da,־5- ؾpq}]j]?=džz۳0F$_y2t" kYV7HhBRoe{X=KJ42N+W5m$A>;A_yk%'ż hKƆ Yd2SjL_Lʻ޵iLvKՆR 1_RP+)W/)b&**w^Po:yiMH2M,:Txڍ(] :-e?P`[~R1~Xs;iB}(~ J!8 O"%y+ADG<:<-n#Pt-t6q_SfB/5^A{gEC;Ć| }A(u!7dʔoެ5ixL5[\0,0vOҚ}ڌ?L KA0ZrAÔ~;wk nmCBu,U-d3b;q&cYv׳"K%27xOy@`f^a $ K(+gƹ&S&X;5SN7߲;~b 8q \x ڢOE~la< 0"*bESfDUfpR/3ZekT&trY&~e5qUn[ǻ"_3pX1ydW̤3e_fE[߀?RY9"(k`(5kz-a~g;|(Ƿ݁[;Fz &<*=E͘>v6WcRMCR'%7aCEۊ"sϢ}8ֆD!2,^ƅfBwhu}AHfD2@q1`1Z+@cw#h͕rDs=dPg<乓N[A4kqcӮ4rc^Tݣa674ks ks${hTwf_ߗ %IJ[_+}Ù!򔟙k,/@AY @и,X㫧 HjĦ?5B7lln!_j3 aK1bWnRTDl(YD{Ԝ,I ɯm J*#,&0H@ o}N}b t}"^ޛ1?Ҳ$`p۹kv_:.`E񢄕iWIv9QBA5v6L=BDžc| \חꒊ兺DHüSķ5I'*s fr_#Rmua uz׻*[HߎfR.v'xr)Ћ\JӅ7=?ǵ\%ı)~Q֪)N] _= q}cOg%Q5mI$ϖ\SmX A 1bvL~=y۪! aKaI&yVr[f͋[q,rab=Ƭ@bj;Id̑e1'"ygIƠTi#,8(4t>yL1InϓywnNvӦng ?xP8gU"z Ӗ-,N8J'} &3U:譭QE2&V/ Z-JE3ss\VRD^a:fa AFxs~t5./i%/I|.K=Zu2Q.*(%R4vhEDdRQdЯ/S~E2tb(LK$~ؙ `jzOqE_23EQWw=6Evמ|Ax_UTKN2ڶUz1fjظэ:PhE?{v[vsėQxK!*'O4ѷpLbd{<` lOiCΟEPr(օ@}o`L**#,560;x:}}ZC3~c":^VAix›嚉$wt? "3)hIb=lO*6PLDc)s `bZB/>L6H1—2Dn Oi3 2$GC );,šC̡gmBTٔ)94)TtAVdpp N yl+toKߪe:Gm"A^m ~vu"/iu= # Fy9qN&)§jߴ{hQĸ%y774\Dr,ࢅLtڃ Y5tԡ2;OUñ^$=[yl-OkRZr *_~ebnv6jOެ]/He.9 ջ) ;^Ap]ԙ/$ёԾ}ՌrNvT4QL*W}7zy} &8U\& Px;j<%.0UqO%D|r ?|.ZނSZ-:Bt^rE(r w-!-9eY7h*UUilgwfTE>EJd;-SRȰ廹EyD笡 Cm Ҿъ'21c k˲Np6q 2ŅR~Y! ܶII{ $MkmHY`*" Ɉqe^L R2gNa?lV'`a /7 DWe{:GteP7>c^V^`mL'Nv3";G 8˃҂?C7C `QaQTː8*D|]?ŹK & m uk-J`./i)}O\r8}|`?%W|9ś "Ce1"0pM2J認L21YN@G<ºڈ0t\4Orߝză]#BЦ<䛑znz|H31gn炒c͝qɝ2{ΫyتOr5U %=I '5X/@BӲ@1>Rc[-u-#:Cf?Mrמjk>+dn%"`yZ0/me}n%ؕ5g!i(NkMT5O5*t0#؎pkRg>\7@M` e} +G]av^I+V{ڞǞh6~y.Ǜׇo;I0{/]ܓ\ibI[ 7R̤EuyMXom0du >cHEl;Hb8$≈|thl .;V ĶEC05rmAZNj7b^.-W R!X^w [UӲJ*SJnb0r]sȲI¦1g_~-`͏(FUkxRo PTɝf@OBcGiG/kDޅꐕU'n @/nrfeg,In/gew+HSyN9˫&=ֲGYO|,'d452Wo!'K.UA9zSy$^Lݮ軁 CMH4^Oze/F@B\ꖶF:_϶×2Al`rCe S:oWXӋvm^m@;SX4 m !rZ% VfqћLJ1p2w9Pڠp5J!3GB]ȶTȦkVln'@~==nVxl79ցpSۜ&_: J{eq%\M5>6h`X#Yߏ8@B%KC/epzeLm^c'ah7_gNL'[p7ԟAD8z? HpQ(т" @S:g=Znsatz»tL y@DHzALsef-O1,oJ綀 m7x5 EH1~ˢk|W/ӽR[M>&W-JӂU9YVB!g4)4GhY Bb|X{V7SYVoQ۪[ֻ,t!+gǀMh֛EZ'::E׵\ao_8ϨAXZD@UZCU8>2S/P6yE!- f:Ey?6+fBdl~3`#X;n_B&dsU/{bCAP 3oV=A͡ 8NQ+s 3`1o8&5=a5r@x+b<{<錓Ef"$<,d`Rhĵ!֠}ŭs: Y=1UV e:טE`m'̔aR PXS#fLjS/p/ȞА_m*' \Oeܼ uƫӉ[ԒNug!#슑4:lL?C(4w BAݦ HȬG>ta+#(!aq\4k I95wFE{ys'ztYeg=>< CeJ unҨcRh 8KSۑT{"[ywKK0UpZ]Wǀy&h3G%͒C7~ ,ytd6$3)2͌|>&"6uvNx~?ΘLSuQVP.ԡÎYs8njIƆ![I9:M_{2[L=}V$r&WXRhѲ8[ܻ7Mo#,¢kuVM%'2U؈ق@Rl{>)$l' /){.'4+ĆJ@bEe,WzjQu.$u +y%kZҟ̚G_ $eQ|t^<;[ݦk@ 9}S; h 6 R6E!c,^aJ+H6+%h`>cvKW tg' :+^`zOb ЙcB=tV7_ syq.*ZafS_(XPs͖ 83Gdr- QYp=GKThEYY) km "yeޘWB2Dy+9=GRB`8QQD8/Ur>fB$>uB.CGN}99}S#פj;n\bW6_3I&{_)F;SCD7Fa*d&^|)'wE{ rkN|U(6L`'Xc˯x6eJ1"Id oFZ.uBuy 95͸Q[1ڒng8`oӸ2\|{ZwP!:ck8ԯ%::톌HЕbe1tLZݛ SARIO]lsif=ssXBg> stream xڍTk6L 2tݍtt 00 5tJ# 4Hw)) %9=}Ykڽ}{ #.Hȩ@>. QKh] 2,ev.#(#$ x@D`:@rbszvi `fqq֖=1@ r,PQnn///.Kg7.$+ n` Π?;bكغ{Y@Gq{؀`]5&XO_g;_޿!8[Z[8C-!`h*q9߆Nn.`'KG?*(h,=7kv"0sqvAݰ~'ݛ:B\ [0w6Pn}"ɣ D Wnm;7_ `l z|aYz0xx6`kw 'd'~> ~2} ?mPώʺ|N^0@H(Z࿪uY)`Ͽn;#iA8nZ??3?Gm vWwy jU-@b1pO)dN`H Vp{,kǛ푑@) .67W@` Yzc+ y\E ...0Dnտ0[$~7yD aw6<nп /_1ݿc C~G x<}-nE_yc ~#習=;?xx?X{`78?AZs u fyw=:+x v!2teK\z[kzD[v/[Dɝv$d18w\ [;U\=q ˣs;ڻՂϱo˧8ccLJfYeϒѡsRcf/ r'hTٱ]|u"g 7"F>'dKU%--Z͒|p~ⳣs?1cbe!'F&Ry֦\BƟ}W9jrL?h: `t졳E@z"sp# vocIWM|!jlPniUEvx>2s3鹿Dttf2й;fLn,WӖ+N>B">%+#Q {ܴn6kf^{UdQ~Luep~!2z|u3RƘ QU ȸ{=cOpŹtep4h&~'@i&Kt/Z "Vpoo`)"|NciaM 8=$**G`weKv;"?;Ж2G~IҬ]%^L+)utJC3_ 4/${WTsberYs߾0Dk ʠ֏ꕸCK&pN }sԢrB4h+%LfN\,&LtWy0lЮ )"P6@8_.ETX1kGE'Lv5*Պ\$j`E$d阙Sv*VaK X%E̤gcUk{åN3ɂSƘks{el:uh1 :ͿϦ& `ZAr6Ԝ`.);.`W'8?V!g$M6-^A=4"p-o]%Qm #[i!~l~$. 1){fh;C#df6*"6zXŔm/FkR%[il; W *s'4,) |Do$Pc[ E&فFᒅh|6eD%LgtfD0Xy)na(E-L}gGx/ցmSֲ49F{qz%Vn5#EKsfA )\9jr}<;Q}#ťtbaX8G޿Q&ƔI h!?_CK'~(>-j#1U!dayfx2+ ^RU "`>FjirSZ3sASToV,pXLszt8Y*˨򹉢dV FqPˇ4&c?sq-_KDDNdIjwF0R«v@vF;ʕغ\L trAg{ e纰sp2ʃ=w-r_<^fTLp{XӮȥ>KV!!X%UIygWMت&dc+Aۛw9Q 9sNF8 cz!3S۟)5:CgFZygDk֏Kr޶vp3!+۪J;3E'A5'Te3;$JDkh--0G4r0 v8YiU>za~(5_j ,&8BOWk0-*WTs?}- ~g7VŘ9LY;6.P6ќ+X|-ИpNHab~;J)}cQԀ44o/JpMSS I 'NvJsVQ\f7,-qKZ ^'iBߍ [Ym3*^ʰ3'Ef`PTH)@6,]MY?/R]5{͜kр;!9kФSevB4 $@ D*Z ]/%;үWyIuC{7ƒ{6Ihy}6:ߢ[-)Srx>|_}w1TLAK45& +۟ydkOЫn!6uPCIIc"q0UBFjt)g*aWW\es>ID6Tt|E)hე4: 52QhnVbvb9D\rW,UB -R1D>ߜ m[$t3)( I5Y?%Ý"‘[NL\d@T\C?> crǩ4LD'{oAXBm\f\h.Kþq^YK5Y\=A Y1ށk^d&W/+]6~Yt ^#¹["ҧcVְ4'ˉ/(xpd LCmbzAk@9Plw;-5VГ\DzJn94꒳Œޓlf4R8Zq-h?_R8r8zIe0z~݄e@ܙQpt.a,uT.zև~U[FSv+H3'@M J`8qrpVrGoAS5ËAoHt<\|orpv ˥]9"%~c?`F)O{\ׂe#=D1;zƮ#:*g]t.;~=6DC>x3RHhv=)uo{ni99!ӷ$}1P|jJUm7w[f/򵟙9 ZM?޸dbs @>s%KW)2Ku$oLmd=ZX3fT~|ԍ\:1ϥ5|#z{i[ݷ:w<{'4HO/z}(046b(_լly/({1Jq ](\S^wr;ބ_z(Nh<ָUHaۉ%m)|~)Qc&džz)CCogۖ!Y2|R q\:OseqPwP'4OJ[`Q U)3Gf01) #I_$%BVO ժ |g{Ϝ ljI̞T|Fb蚓2u^n QҋB225X76ksWΎr_F Cß<уIǛᇌ 恅yR B4He1~Z2vJ9Pv\|O2W0T6=4d#ő('5er]yeg,D~vm-C@=#Z6X;ҤTD!5iY=e+o=ET"@HUx~AP,$SkPvkG֔1^=( ugɶC}\nF#tDsj "51sߑ2 'd} @zȵ6Ѫf b8W#::;`[BUwp8d>`6,?+H7}T CtIߤiWՋwEEb$/i,X(LgSm=$¾Ś) 2^"k ʉ&~lȇyqS3iծZUJT@5NьucUwa*LyttU3?O=`X<*o,+<>pwaѰ\o1AuhF Lnh!Qr>CƳ&:=KHfvmg5!_\H#_D^鴞U'w2͛ >[o*F_,Nl(#Dgp쉊!S&Ft?} y PȪ*eq#2,N)(&a2"'Q2+,C=6?t+|^5uVO6iNPJ"1'n-JڍQ53xӖ7wӂCתv%&#o- Χt%;q<& ƾ5)M:gP_r]TCBPoJF:uhq@TY1 wi4dH#ЬC[^R}t8g 6?4p=ois{S3h xA #kŭ=Z}%{` S%U^HBb'}YI]ښ̈́,__~d84US p6iw4Y,6xU|͐`JL W'I_|Ӹ=̓|5ˣRȃW>s@M2~:d$ԜJ8St{c--%>%w1" &( :Q(-UemmVNbaA8cA#&!C kWQxfB6*RYV"FC dl#كSk!O'NzTF_RyE;Ǩx362*C1 dTJ>*;X)x.>|<IJo:.5wJP(GY`GvsYčt~LvB5VVXg߭|=:T$\BZ<#C7˩-n)y7y9:>n{a9+͛x<A\RƎ^1eĤ  _R\@ho]˾& 5J4=#-6[lT7ETw2It&R-DǟÓ1B0X{GЅHv'l c# QBc@8"q1Z:u39gI I(jg0XeKɉ3@k,]ϛ PA&[Nl)܇CJf ʨd/$2_Ϸa9vw9K;*oPe%vJiTnJz=.~4Q 1.cdqQEwZW^gt_3 'w fs-5niMe?w#NG1W5JQd=Vwl2u >,1]B$uZBg+oDibIՌ|i HWɹ@EWfhE&jJ`]A :ZNF/Ŵ`>׎1C^2oAhq0@> ~^&Dwp^yV3q+0\?]KEuޣ >as:},d3gZKk`$n h}eFK. xI-68Uuf-Ġ)tV۹&T~oG |ԠTV|2=4~XUWP5!ϪAFP6R.Ho%F:ZG1-@3uFl,Yk87N Ey[lm^<Aa_Wd Ϛ_)CQ1ľڤuyj^G L3wInm [aj8]h4&mqShy AS;Ķ8\ĝa(+i[ӾXh-ЧSlٮiٺW'5.}vmU[7/VQHӃ3>0rJFy}Zۖ*NK_١)? [o?NL#Ps쎵ַ^FǢvQjmK0Zsm .C"f?kfed\<1q ؔ/L@i- PL1*,@;_N/QA"@\MD&_; jtVQj$'@pxSPl1,b '7& ÌD+-ʠ -AROyǒLDQYY&Ry}i9W^ [liN񕭀+L}YwL!1}v"o6C$Vd0]Cu_1j,X[}+(OW0|kK(2)ukE}DB57n!oCu9*Sa/ra-!8(o|QV]0ˢ^@> stream xڍPضCqwwwN4ڸ!\N\w瑙grWW]E|.4-́2`7fv6;/Z fGL r a 4s{I); {;'GW ?.)3w%@"SK::ym^O=/wda(^2Z4-@@7 A'd$bb-B4@w%w3ߝ Sl@5<\=v}-.My%LpxlfadV { @UFӍ `mhfon731r3:sp9;)K-%`7WI\/ځ=>li K6 Kc"BWf tps Z^N/89:^/_>f@  ` pA`V廀<l/`/t{kJk*1tfNN37(jf`UlؗSv߱T_w ٸ,^?O_.;mwA2{t?j3?/3 q{eǗ-oS; AVe9F hr{Xk^2{ e,^^חK|YN) pa<33/dA%^\/](M|V*cKVi/DdVdZ\V?ҋR_/2D.K"?t_p_9^_ - ../_k2@'yaB0Զ.Fȃy{Lxz['gr:+xJPҦ4ݥ"٣ϯ }L5&ې#yE̬%mg/ y>4^YgV(xjMe8"vg4ĐElh's8JuG=hSZ3!=˯g k8O"dz{;ؔ UĻɜw!vG) u?ɲ8^LVEfpbR#4}ZA}ì2G{^^δ# gT7=UR7pU9\Oo͚|4,3vanF2=P_=o\9N`d !+<=/EvL^":(j%`glF}mQ>Uڤ)O[·e}lBT6ћv.J p_fkު16nbψfRhgQ&W1ML/xcۭ>LTszXVr򙼟RWBAg՝b2.:^T\J |^\T۷㑭u@{&nހ?ަy/$ tYVAuljmL' j,fNT~n~8[^ņ !Su Pdr#6a&+DŽCYXF1-sBőTFqZVQerA#&HQN/:,FۏVNw-8FNBV%d\mAXaB#K_Y/WOyyj;!jrbj? 7ij2$Hcӿ7#eHN6rbuX[S?#SoPXa0޼-yв^ \@Nl9C%A/Ч\,{ӭNdq?\7)оJK4{ldSНysѸZXLO9(^xR#[ȩں 8&cqͽ٠t5Z1bCLff;78>|{ 9Yܺ,vٖmDSO6ԿrlKrPE.94w*m|,F/#|1RMJ(2K*C$&M3o-<GmGu#@ xdG!ͻVHPkI]v~s(50ک٩q2}43t0܄zyR_wgQ^smnM-eĮCQ]"Ф4O5*Vbi%1[?.B9v0^^>%Gl!ó&uP(N:n*VriDܧ& X$ޙTd ܂ ApI6E]xx9T 7\U|CRۆj揜jM*0+4kS޴^LM8NnɈѩoDUơtjx*#Z6-)qF$xhZMڮ᠟E@Wxt*tY>PSf%z%!5P?wTݷ)^« 3UaZס Эbu'86>:75,=jD-?JўotjgP*@mD'Mh)#$ԯ{ێ«2),} .=}Z%yxzYV2Ͼ0W3=ۈ(R|L Ǵ;#eVhԍuosR9jKI?`pB9╡PSN}ߊS4½%}Dy1ZRlȲxz753sufa&M MccrWs V i }.D\U|P܃fjROf+K&TW$ɌxMo-*T鸊hu4{Y_76q1;Iu_~R 1Pa0}gm+ӉH b\f`KR ld`mj^WpӖ፝dzȲ3fp.ӦjFOM/l]?lQ+C"CJnl#.Z[#qj$+SRoP R=9 .(5>xtD*xxBEZ֟@<(?pϔCo.h6E{IH[ qimfzܧDvX!$\I7Hb%s[U8Ż-'#O"4Xw Ϥ'^Z=w <=zXUi)d/7& SRY V̪I-fٻyAK@'٧K 1"C=ȭކ~9 [ g2ó3u{Dw• ˙,ٶ"spV/3qתτ@C۞R VeN)2?Zn+(haI>vZ=::GF5ԁr`L8C$3мcD5)&_j ~َ#ͧ;+ cyk'0̛ђܝ'=*qe*X|c^.Ld放u5P*RTyך'A{Y[3T:Ff9B42ލX^T\__Q$1i"RbKC5oƈ#h:L 4⦈ytv_؎#^9PmjO QO㒈ϩv&W=vs Vk난\*,{W' &Yʏ@f_+ģMfCR;ErڂGi<]iOf$`+OD-Ƚl,Uҟ#\o1-""kvR,OjnuT)Cxx݀z#NOQ[()`GJ$ւ, R/p'lsԩ|xiNI g:5iYbOaj8HpFM +>ųOݯ#fፄ_'](}s1ɪA 9'W62O?ӹ]+? Kw{k*heQRLkU6X%`_|0V|u֫%D\)/P#QщQwph/ҹ .fbj8O T1A}O=Zk 92+Ն4#ʉYķ^)@g'IꢠRA#r 0ݲkltm"4b9:7|&ZKVFW~ؗ՝oJ)h+[ڱ<߹s]ϵ~)cGxƘAȍ :GgPU?T'ՎT5! d,ͷ۬ofl=#؟{u=S6$Ktf%yu$}?l RR1q[蘨W}rߚt6˵2}.:u=PEmɈBP$Zһó!+Gp53[P)a0@KE1hSs/'Z|MF8VL%ۖVgT*8Xt5F# WYY*fZʲ+3=1ZNrZc G6%8a.?pBi֜+_IsaQo\20r?5KJقWvW-eǝ bۆqt(Q.?>t(P`ҕOn rfBMgU3NS2F=܆gI(R߹" vʌ*zC菀^쇷x\o!DYoP&`*;i;bp+Y../@( ݫH5NW[D =:e~ "C;|i3 Q1c2MU⽫cD^ӂ *x흒 V vOCNBqZ؟>`X&b3oG&x_ZT.Q\8?"6!UG8k@>KaZE%/:DZ2[Ͻ@6g-!a*06F=D/3 Ey?u> ;d6n8IlE_2eh -' L#;Cxݗ4| LZb6h\B1CzCj=V q}9ak6k\wX-_~,}UIGvinM0OM@2H\j&PpRӞ)Є/VM{?gN=ɜdj+?v3˦\2ŵquJXIcv~ ꬂPuIۗ.? bA˱MΕP!v.B$}SPZQaN OrBGw6{rT m1c'Kaje;e$3,u;ۨدl A?CWhѷhnG?Q?a_ ʪQ"5G'3rS`^+]wCxYK?!L-/B} iVc` >P%cac'gJnx֒`=Ⱦ#ڗWlHDO(8 W(Dl(8$!weBZ e+O_C1v(U"㫖5^Qb^2WA"?s {ve?WJ9GiF},(#胡9@HU yR5ꃈAMcyV9ު/R䓎l`*K;d{ϧ}ER}0z߃Ki}_=HiVL}7W{<=v Ƙ'Y]x'L-{ =3Q0mH\$'J"$({Ff{zX,R@肿#2' YU~{\y6H6ƅ7zUZ9A+h}talqS,RJT{{)ɵՀY6Cr<J5]p\KkU6|ҙ#O/C\>)̺hئ$cPL{U;(şlUw)),V&&_`mj}7l`Ďċ/'- 7N$ fauBb)>gÛ+|τpS<!uń^dB<8*QG67Cn_\YBj6!ʪ .f NgkKJ O4?'qqİ: 'I#W2'jYS.l{* -᫩]H5{x0di'%Rx~K~-o4](.zfB4J7bt?It\统 QG1 )1ɇ!q[h y 6֤W™pM~xDjak>]o[rd 4"S!~ģ޹rom`"|/XHt!s,BRyKu ZZFS$"߉D "\!aXSvwI6zz;zo-n_k_=j BA%&OIu_)u0f M( >"+ՈԏH1+FvR {[iN.mj^,Brk:Y~΋9ͫoQ*f<#Q1v MgngVeu' f_A,amAYN86sDmw 12ʯJ: +漍Gx$ԅ6i$2()żϽMu ̅6 jk298lh88ٶ-bVhݖp4;CuDTI͇TJNg̫kزk|'nM'rXI CYH~h[sKJ񄈧ZS?'vf^UKL-笜)!)3K8ȶ`H`/23H|~W&{"{9W҄B$Y滘^Iޥl(!sx~r_Y(JETI#2`L+pVNԸXK\/c|hLXrf&/s0 HY uP0Gm$Ư Ve he`/2/}u!* s3P"Y"?Et+dY?r˥(!Ꮄ<1% #mx:H#Nߟ;d@Mc }e rR&huEHc^k𓲋>;zL4>EAEu+h_An9U't~E)r8ϱ > stream xڍvTl7CIal#;0`DPJ@x($C) TR$?ywu44QrB;(D, T3`Ap7_z cP,Ljx!@,DZ 22DcdP_POF*h _G ?LTB1ԃb]H0 CDHoQ4E^@p/ \> ](h~P <08rc&Z@O8ꏱa߭BD!@og( FzBQ b@(!BPGġ@u%# _y0O7W_aMVC9H8 *=VwsvF 2C!|Z[!08( e@s n <ў@g| `3yC}@,ߊJ脀ap xGO}}s L4,UU~o2IPgC(,B92w_ =}CXh>Dx6YW=Z-,J(7᭎;"0?TZ0 nFzP"0t o<j(vIJ 41^ 5tf0$Bc.@|y@g4k2@Ya]1߲m (#\'/p`j 7ǕJl~"rODpS>Ԥ)21GJ)}9/p5MIFgA#̀^n*Uw g1U\ 2NxU76a.ñ_uẇUWR:%Ebm8g" ;<NoʼnOgLżXxXoSHf+ʟ)F`2D.}7xJ⏭V~FTt˵ kì;%uZ_J<$}UN/sxڗS~S%fӈJZ&`A<争(nJ2Sv睓;% kە>bc! 31~d#߯rw-%t3xk|pҚB?`\I(q$̤ǜ m7 ;SbR;AOL(RRjIÂHWW-]-;+^;#n½[*h$sO|=54Y->pOlpp[qhKmW+5@|أpSw~>ng;ITjϳGՉ1bR<ވ(M9Gr#ȿciq~DϬX$ǥEiQFy^IUg!xx/2ѣO0wR{36`=-[4-4]9?D;84\pl_N۸z3|fu&?s|x·|jStT ĴVX'%|L+z 3ok`hha}cw 6rŹ*=qa.Tyrb{0@I*΁Ir!/ Joh%[ۖZJ}-j^OtnJ'Dy8ٕ?Ot0"!,f9LdZjO{WNV-]D毶94zB8b01!0NH_6[~(*O.A}{'C '*2[, B?S;v$8/ xu"I畃/7vSk#eJXj <7 lWaSɘ;I.AJu5  4%Zm 㜵(ob:M:$Ѱ^>?ʷv[%Ok*2V<,g%uSRd}d\s|N)$WB{!6IOgfX5fmz%e^? FxBHϲC޷m3G)\AvV[m"cRN[d | "gpϝO0c lG5e`.3wXt-%naLPb*2xb@CB0EyAfYYY/7a:f&AXJ~/$?{Z7?qԵ)*bS|_J VVV7QJٍg Qt- cK?#Cz8X5kfmF  '{vy=%gGoȟ B^՛>+Mh=eV}s"As׊97is=!{{tiM5:A̽ot;oHǔ, 6. du*$eV.]x/V6DJ=GsEqZ)*J-*بlh8Rd=wME&KRn ravS[cޕ Y')*{Z]K0s5緘9I}jagn"Z}J}K0f.*$;y8@Gz F!crC+t=V<(YasF/dw ܒ,ˎK3i7m$ee,Fn1.ܶ^ E͡Q*D/6v26_q ,<% $HY/I~Kcp\:˓YUйSzݲdͣXmS,"֖t:Y4C7sǩD^i7,RsԃKZ(Zȏx ϋe> S(F:}Gr\iXt[$yZA[z?I(!zkJV8\Nޛv.(J@}pH/Q a(TB2DA0<'3e$dV@Xt:Mpѝf;UvJ?])Rk w=^na8Nɞ%oY atw>XIa 9ُ̌&$"/b')\g !Z}pUTD ]ވuO̪ 3f[ph(8ɕfqƏH #P/' Xt#Km3mlgK *`cOh>_~o f[p|7Q,9?=w lUj iUƾ'߹W_δ `bTɇj6*΄&oHh6AnM5ČPE+!!sfޙby[hnѶFZ;5r /͸ZovY2/ srx콬܋†kV9b c^s\3h,J1#AXZ$|gI鳽 =#[*.V =ROx!OPkN4-;5J= Xa(>Pˈa o0t8]˚7dIEC}*{JW[O 4w]"w;>_hmIcj3G|sh;B<'ѷ(Zd/qҦwu,& 3ms] oL ? >{eiT9=`4Uv 1:} bW[iDU@bI\Y|YLOС0r@Be{mrϦTXRA*v!:s/?YLPOJc7=7g,HX7} ɬ} lnQИ(wrCuwqӵ떑C 7Ey^ufYy7@35g]3C0w_bI5_+VLO^ u]aZw3/;D@KDXloBD*S3uǽ0=/0AXi9r` H4{ MENc=B>'4=|]B2uN}Ht8ֻxQ$FTmrnnoSg\k:IT޽)oqp\s׳M؏)o3rEU*#疷}F5]&-kWwHk48{@p 틷Ҩ^i,h1ORvkJN{2PscŰɿRrtgSkȁ-u"1Sݯ,M..:X\cC^gT!`,T)UFٛ%Z8UPQsFoZ1]Ϲ5TwP" μd#@ٓ۞a"4 r5߻U+'HgGd==dϪp]W3nˎW%qjQ .97k陋0Ktޘ& IXN3>Z&{ ԹW[pO{ rt:Gf *CO!Dq)H1{SqWkߊ|o5{fceBRYW7?g'?-cVM%9ݿ:1y<:<:P (Ыm.QoxuLwZCel`v}Q痝ۅ˩xS 94ewB ("}=A>z8wn%4sv6oRf"a rN\L)MhΙvPMu aizNYy@YkszJBϮ)l0'ea=bM.NYH=w=Π|X-J`OD/._6jW%T@f% + &a"99t PRkRX~rV]3z_]OX JaT~"3X%i*H8. XJr!X"W*Fr;I_zAgs|QUg{;A endstream endobj 250 0 obj << /Length1 1493 /Length2 6618 /Length3 0 /Length 7629 /Filter /FlateDecode >> stream xڍxT> "]JHww7]0004HJI4-!%- %4 {}Ykw>gf 3!y$Zf|>>A>>\ffC e6C0`($D Zp/MI;1veVA<?@~qqQyG 2#A0!ؤW ^^///;A A8`7OWm Oi<CG_=  (#]<`v`72;@] Es8~+]\0`:*<oEBH'"  r"y!_5 0?W+Y8bF~=8? \ ;:F Cʏ'K0Ͽ[̫X^O2*(~nq>??@TT8@ȟ}:ks{˞4g@ G* `П ogvWU#(/c@>Hz SG쿩&FW lpo:yRB<|Bw7N9p_pwȯ_6䐁;RM` 32 5l"kJǏJ;o1xy`p1`wXA/Y3_8?pP=?`?_@`&x]@C<ܐߢC-{A3pd۰yj/ՎHa+?GMLɧ 6v^ΕOSs^z?@Q]W8~Lgr}N-QÂ5dhV7[{@C5"V>c*b QE- HܥB[ wu}/O 4E*I)|3%S'f?~¢ |XHYβn#c5_УA[1γF:tn Fw^MIQ\5/P.ӿU B1(XuwZSK3MgV_^f& XJCVхҹٛ,HHIuѵV=q'ζ> vEi'L3zvߩ _|"6PAj;sr1t[;T% g 5PҵI<"" u>,Z~%$*lqUIo?v^wL[#^+sGbmH^ͶdrO@kҒgOcĝo5|34FtN[m7I?Κp}qDj;*V-onQ\#2j5u 7}㷸vn쩂uzV^q >p!D`ƃh߈X(س`zM\wztMDRKt^"SW^S>g{[&OB"̈́VOÛ ⧇ Lu4o֭W6RpxOR vyP.Mi3SN2~CU(j;WѩUpF@,E]l8a4PNZ{uPYr$aU~W2 O0281ozxO1e"9|! 1\L:uU^PpSq*QAff"_U&Yǰ`<_e,^rѳ%w?I.^2%Vz WXzqy&0=S 1q) 䬹r) ۝I(bm[WVheu^EvjlKP tFu~#TG̪x=?ďY7kdɗP O&Ze{zh13qѨXKnOv5ٕc&Lԓ`.{*a$a#(:1p^QDh{X=~IfT\'&=="Vr|&Q:;po>]UgyƺjJD'\ }JU#FYGr#@Rg(ג.\h28Dq[,0`_^۞zo ezyzbI,Mx7am͊=p'Zq8?^Jn/zab+/|! MX [0\ǩ̈kc|>qYJjɋ597 7&Bz[ 맾Lk|sdv^s @i]~CYa1 ,ʹ<ۖC;8ECDt"=w V z>$P_6\},3Ow!hPKqR]$;QgKYV,e*22 kFDb ukk>hnЎ{ /u/8. b:f<7T=bccAC cpy,MO-Nsϱr.|R{GZ PqIcnmHnYϲj/J%odjM1HBB\:k4?PVKq[^?`[c&Cw kE%܁§> QmW'/xғ||&'E׍ux9/D8oLXdZj]BH7n= M؇44fr+MaJхF^sypR`y5Aj*Өw{Rf߰6ϙ*Dtzk m#O!I*%tFao'C9M%;d2%8F5iFbɻœXIN~|k48vM5Y}Oi/Mwg$,judjj3CV~gxJ1^ƃŻ/&7?".׭͢2w鵌)GT(qXQm*GDL)lm|` naI{/OQ74v}aO$T-Qe+FwfiX,i8D wR+o^^vMPԐΗq*Ke2Xw-oig[L!@-ydYO;4y+;t$}O +Zg@iz~Z v=W~I䃅/)W3yȍWLLB{G jVE 49/]zկfDaخ󺞢61L~ڡ2!asZ8G E#ΏWRj3+d":)͟Sɺ`Ll&]fVn SW՘u{]oф>hsdH(\f0^hn2(Av+ p:K'΃qNAjZg͹:ǡI*"F<5|2[Xhg5('wB-WgnDtx^! ׆J8+ UT3rɬ)I6̋QQusX3!fx_,uIlcN,.~~5 Dq xv|e9j٫6l\"U Oʣ{RNd i$#x/@OxV`hMb_+{<|K H!8mjjG.Ω,Z{a#kyҜAy(u6ЎʓZ8YOz/+NCrn,X.I%cd蜘yø3I+xd B=`LVvu?m>ҧ3_ ')Ԫ}؝i@#w@.=wӺ[n+ 5q5ljA*ˮ|TG Vz>a+4| U3D (}Z@;UO "%ߩ,۟a n^fcZ y\Xԙ|g#@l'(\ޣgjR*s#E>GqZp461''@}]tg/͜: L"JGxEw#̫zBxzOKx%RxX5cL.{m˹A'rZUd]"Q6,69/K"㌡.g{1*w=+dyNV4 z^o6-_/>BKfW,:O ӗ߷a}. c"y!sX#h_ j #)[R(w|\iħo8vOPFо2^z3, ૏}j*!t;k"zB{8z8g^ kmYe,ۣ _tu'ʳv\JauY޿LMvF! .0o_-Ͽ/c|( N왯q/6?a!m.>OeJ{HD!ZZ{CD,?:lfBykl,0I,NNo$ѼDdFN=W:B:?Zx@MNr3ssc{$)f3/>r WTSyeo3V-<[o [ w#҆tT_]VtN<햴=l\J9Yd]%]۞#>46;&p ;ɠ*F\96ĵWg0/,6Ξآ)OPRxW$wVƨ'Jd(J5;$Zw!3,j@V3]MpnUSϩkǓ1 ik{ ?yL 6)~FVY^vn`gS+ [|AT06$USPMdpiGveOɖmBnq̍Fiqb۩֍QƟr&NZ2ao|: :3$-)k VfC2ޣUy;$s8~yqPa<ξŐQ:j+?e67CL!\Ca/inRayA2FEi[3VRg&B4%p穡%*qq$)-5 ~GT핫2)+:EŮZ%K踍eAӦ9YG_8ak1LcD)/=5dAWm(&M,w˺V9_] L, %‘bXbXs*QfJMBֽ6Io%p oҬqr!wy5$*]J. D+t*cY.=P3κ[! lxDr*7N AC[yTK.J_  endstream endobj 252 0 obj << /Length1 1913 /Length2 14369 /Length3 0 /Length 15550 /Filter /FlateDecode >> stream xڍP\րN%;4и''KpnC-}^1)IELL,1uV ; %:9&`/ 1gLP f `er~ea n2(0d.b^ K+2:L &V@f&53B[:23{xx0ع098[ 2<@VU he֘(V j&@dwywq7:޳dJ@2`}8V&@ ?MM@ -$)07dkbng&I{b rtuar#aޏY\hG} g{1rm<}C {s?0wsdְ9ey!#8YXXٸ@'̊^?{qtpXY|\L܁Wg7ϿKs+h G'hg'@}X,|d>a^EudnJQQO#;'qM@/_{ _徟Jv{h^ZRtx\ Agd1{b<?HO=_?z; `Mf2& bo>ьL,A. O2ꯩKǾق.?nw/{_23[}4TwJ؛9ll\gg/wN4z9f&{w{~ g?^,G,%KY̒+Yb0Cf=?SCf ש_y`L|f?N_|_fտL-slh~wc. ߫g/|/ f8d.w9 Kqx'ϼ9;_^ =f f|uD<'8/$T bD~j:n̈́1͎!Q-Z+2;)Cr)LAx0K+&=4e\M/GfoRr/NFղEzh r Rl3WOSC>.)ERK3C똾׎$f1ea6)],Θń8ǃD;vTCZ/OjJ#RF_<krMKƟ۩[1jOsXb"zԚ ˓9@=2[4E^m SMG 滠π,f_Zw " B!"k޲Rmsεˆ4j-+ „+S|"Ǹz6eպo(AduJ$_5U]VTsMaԹԵWtՒO(Z0b\W~hC"Ej>.7G&GR@<`"XO\%w_ >. ἶ:Xceejx+W EL&$~pB*dxH"voX?mg"[UU?ɸg`w:DQUo+zyw~YEx&l+ZUESDWoG;^#%0_j7f+}C5b?ՌIFOA9˔zwo$W9DB4ωN`2+*wb,g$[W?̙!* X^?EQn&Oiф`qlR0//Za`yFrazyXZqF?P馬UˡՖY.jDٌiǏV)SSyHPbĖ9sUU_W{/S _2jf ^dsTDo+;b6L5E3A/oNf䖳X;ּˬc KmIˉ5Z~ȫ- NTiJv޹ ,WIwyT:p7b~WՃ&k -~oI4l._?'}$y(:ffrrPuK踦w]puR̛fRπL}!pٯ95 iOu,@J8 _S|Pa "+W %*:uYnl"vVܘ  K\ܛxPe~e*; d1OBJd yv58z/v̓>UY̍cM ]kA [/t[#o6Zl RTq6VeF%KMn/Pfޭ=Q||.l"0e$"^tWѧ&Or\5a4#f$wR܀cS SS9z,6 tPch(2_XqptZ&uEّQMOD()ɨl T@GNׂHėУN:@j>!z(l|'׻*\~rt8h؟5)`CMõݦv&ά0"h s]T Yc&\1|P-E7K-I6|cT wy/hK\܉2Fl*- w`Pn?h6x$!1Ph[On6^zC#z l.q Sq>Y!ec6y}S[E /AT?J e`oh=jv=4D4 f)on,}Q'[h19Ʒ͇k2{-]Ľs\.K_8{:;yEՙ[FVC<*_~+n-™:A$ xߘ=HSr?"LlaH/Kf3Siǐ>Lrҙ@<+@5P4!,|| 8`}l+f&IM`3^4F9eV::Lno O/_GB*\w2|R픲3Ɇ_m}"|l9m+]0j#W5pp; N`9ix{n+ΌEq᝗lJ-a28$P7i|Sz{=pOg6)?흈Ӡ#+D [W=cgMd*86wdK o_f!xÇmZ_ل"3NUueZCE%e;uMqF) ;I W_4*4eLBܰ]"dkFXѧq*|rJZX+Jޣ31; Fv|^7)'9qZ </(ҳGf+b  CЦH] nd9]+T;;)G/sF|m܈p]wrs:^-=L }ߞ 3G$]Wr|sq?p8~p YiĶVD16q$z`٭ $x*bf2Oc֨n >pDc 6Tk(Pѐh"gX %ī.!WX>Vam|F !yqC-# \K!@F7Iay_ltBޜRܳCDW\ tnGVgɳJhYI;p0 ?e0{MpӺdJB6doϋ@~^g. Tㅦ,VQdGriDw6{+ --rm\,CRڐ{@o{Z!Si2VU2OR;Ą4@ol)\g \P (yg([\k҅zɋL j6?/?ޙKo :eM>@2 rq+hOط.t15R`#Gd솕QG_:FA|5p1 5  +BTݬ^MGA{O}4,ԗ7Ԙ{kZ0n= j!$NRom1gyڑmZ0x3$q{sC$3шɈ̅9:WLMv~`sK#!}_at"hmΞj5;% `MuZ m'RZ)H&6)]% P1g#XIؼ[rt)#]OꞠ@Ճɕ\ѱ֝e|9gݝöMPkZ,)]ر=}I~!E6 /Mβ-ktz8enijͧ _ERJڭc Od\59~RTɊyQ,z[= g#6`yfc~͹L9;#Uu)@:~aؓ/| TX٣)~糣ED30 cW[>azS+=i&b!VjVO9J筛&RrlxmxZ93 䶠LePW0! 5wJUL9蕉Jϴz`1m֛hka#ZD9g:{ jKf<~*Iυ}~ը?nH*ío&qbtЛct U[>Vp^HH4_:" -(aC yb_Kr]ҡƮ\SӑA6tYAm޷ {wO4ZY&y&sjG=QEw*S t‰Q'œiPp7R3`TH(6\Ud\c#ƛʹEä;2>MC48is' ڣ9m DDe6~TV' aeLzdꇀ/K67un]3Gx{P2m"nnUMDt'*pLDpĤ^}l+&ʏ4Dž-kxG@> &*C9hQ0ϡrGC>`PiRB~88#ZhEMsK `cd޴&~98Wq=2\~FU kw1oF=}?Б1b"*DzܵƜ7F.ӤvyMDM&tuhEqK6(Z+.I!Β 4G!\imoe:q3;rKvigڜG9%s (S}}꟥DyR~a}m>>ϺB휭e܉)(W ?ͣ+B-Y:{N2V?[0lD5v.h WʼnDM}i=XA/X<[}jjcR߳:[N| ͡Ae9]ڶY'Acp·y- o Ύean(]ŹmX .<(e"3ABStFZH\ f^Qn\>KA?1 %cB')P(U OmB%K4'ur5c%-Of(ɶߍW̯!ο*"11/Nvn3jNycŜn͇^&DGjXʺRF=xden/af1|FۋK%pYzq0Tڸ&r_RGFLtӖ# (8zf* _}rN@/z ۯ!D ~^``+0q,wi+)cTJY_㷄_}cCk]:jKWcWS{>RWJƸ[ =2H M1*LZJh MCוEqtğ?p_|>̻ 7Fa3xB-s~F뉁=Q$x{F٠_i}v[1ܢoTzB Ś qc9(ie 3*r3ʱXc=8\~~㜱tKKx4e}3TX)AZ%[`q>dlNf(LgcJhUkoZ_4./H9vh"~!_Yނ"%wsV#U=ڌJl =r!!R,!P=o -,O'e/ہ\& SOGvPc)W>8u DuSQhIDWmt,YۚfMK1Ias#T 54N'zon'} 7hڦY KIlJhUtR M G :C]&3pb>ȴi^/ۅS@Ø_Ί#!f ԩˋR(ӵA CR/%!›Vs,sre_̞O9/zoUiv&Iaȅ-.dcB2',`{3#I; <)L!kw^TDž$]!k76j+]?&Pt{lw:Q^z%u./+hby%} <9\~y%N$~Z'RP|+ c+bbG,Wd+|iZ %4H@d5cF=錟PnJ7A,mB5 POeAVs >OWMl[E) @;dD| bǥ$ލkA[D=c}q(eR!"iT2qz|sj8&Md%3!Y ߺLNy _|;U$,{2>svMW5y1M_)CPMR7 =jV)9Ft`x)!m#I+l[)V NSGMK۷>0qFAW[,p±L%d'mWGͻtxoNjs.41vhfqAT "C SX-ֹW;"<łCme>Y |PQ)!(-I*I2uN\O12َ<(Z]f`J)^7ԇ@|8KZXb4pjgO! p˳ ubRIlQ&Xȧo8F +(p`7E~VDEjm2?)W\:Jsvha6 {FR露T&΁xBvmɢBǾLD(o{TBTѫLU$Pܝ QzGQ+tN므|wʔA<2xV sA܍>E2xA.I%{ԥ[쩍:p2 V0͂Py\s&[0F[JI']oB9~Jƚļ䣁-x]0I8컀%:tmQl cJz H:,Թ78Ca>] ou݇xb-lCzˮ([ʴ3_#A: I`6e|ʉx8z=y[Q7]5ƫ-H]2={m4C>.Ƥ)gU;VۅZ (R;gϯc0 BOkL|kX3Jv6bnS}\KCTc;7WؕNWhF/p udr ipԝۀvQ$ד|_U,}=?q8J#f=(= ]M&Z!e!hըq'T9f":iV)'+7N#甴`A&U#.[$9jr|?gikɅSߐA]I^B)&VOvlTAgLح23v>J5d?OI*&("wf2XoY_o4\M6džU2L PALBsW:!`F;AÓ{XFArCFW3§_c'-Z^;6_@̚%~*JLfoШ yd@8zr8X )d4@`њ-r+K&$,H,/4ƺrgwFkA~l=4Ωx:oQYj 6܌t SAYSua*c31 phMX;veWB ]glWG בUi:z}O,]04TQ!@e,9QܔVWK0ztKǧv8:)18P8cH}E22 YzYYy!Ui·ĽMtc5z\?ÊDeoܚ 2aKܽh ԕtX0Mdn~5/x(s UKT-'d;re?WUr,/*:x^UjHW}Rg)Jjj@R UhWysɯ틧DUSy|wNW oD6FenjÌ#c#OX yiBFiᎉ O|W0'y&JeEdݧAU_(*\~eiaSJ$rI|{R-O͙1ds^uhC L( sě`V.$"QHTyuc% !dFtw#AAo41bR"AVR%H:{hq>Zc&Ta}z.$a.@?ʫeDEae%򍥊+?ڊS!ҁ%}'ֈ6݌̭H*dvga>Hjx#S~Jδ|&AoӱK;.Et^^WAC)[a"ṋ8#;]<1uBd QhM־pI˜55mS5G 1 ܠ9T_aLi~ewf9&G7 /G;_a/yPo 7;~< /xJ]ҦniObqWU\18~.JMNmqV12F t5A=l`ÃSTS C:F>!'6\OTV[1믓KW-2u(UfF} Ύ%ك*lB+wݷ3PjհȺH= endstream endobj 254 0 obj << /Length1 2562 /Length2 17933 /Length3 0 /Length 19440 /Filter /FlateDecode >> stream xڌT ݍԀtwww7 0twwJ4Rҍt7 *pg]ݿ\UI (Pdcr0#QQi#Qi]\AHHM4IS7@`ggeWх i(1HTN. +k7~КxV]@%S7k=أ@tnnN,,̦̎.VtO5@ tZJlj'5f$*5? GK7OS L\*@;@CNt2r[`*Ҋn^nSM\ ;S3ߡ  +G̀,`!hotpsE+>I \wok_d r+ w'-;PN0 7 bee`@/skhz;fEY|]M=7wEHll  hr@mLZǏ Ͽ f`[HH0LqqG//'US?Q)`O*7`&-eG+9a[ߌeuoDvvi#7y#[w7(97J@ ʹwAB\A^@ U߳_{fr:,&6V/-zGo;Q%cz#' F C `avpt,]j)7E/E7HF|+E7F`+J"^o`Q,؊o `qjFtE|`X2KgcKd n8?T6L]~Yo:ǿ pE\`v_{i5 ,Bpvv,?N;_+`gGYX[ya/n"VVy?EXN;ko'k`\Ip cN惫GFؖx~+fGH;hM?:f}8N?'?>8]o@{ ._86w5 K6pֿ-st , ~r &!N|Yܬ] &n(mm+ǎ`޿]c nQ_W hh.fyW'Ft0%4GuI >6'dXh*ٳY[|d{ZǣߓqA tX "1߳v-tdT<5(||kp&z,|3i5C8F'FKeuOPa0r0Hj`| ^xj>\::ekAuUtz§FDA9Ր= U%B7)+uo2'zǼFj"뇃u% N (;UgMom Veɚ7N<FZ?/dL2`W%:YJqV vYM0ߕl)C2ZY%m-l/=f{%InSF7B(GB^D (&غң*Z 81Pn}C]Ρ͠Ԓ{%YGDqҝ ӧ'/搲Y ? Q=;e4p::1)G:+Y ePI %@5%<;?"O~Z߇>YWbK6a[dUepM d j)fKu}#dqz>#}RƖ&5uHu(cH:SnZU_3^Qc={O!'KiAgnwu<>k>l'tѭY?~JyѴTܞrEI 9t~Y[49NdC82˗3̉~brilec9US LSB8gơ0Wr|h}zПV:H|q.=&7~i>+MZbutftNHݴFNCҘlsmk#>MJh~K&X3~-mhIh`*UFhuV 0^Yqјm83b *+;\;O/*Bu]Z=[@C1;^|IiB8ݍ7#}kwDR8M+fUiDaHc"=d1 ϖo&f66α:Ghyc񓄃?pHo ~+TEL͎{'ߪ#s$KHN nzF_%RH%cx#c"~B/<%#݉_%u'QW4S󔿢I=ޮhNWBдBD:|VFɚbpT9T_򪽎)Su3[vek <'glQ8կ\G0TU?Hl~[#+L$Hb 7 u^'ER+&;x>gSZ ,'>U1)ނ-(ޠ£.Ơ'~RXBW ԰H~|Q>&i#S괐L9z&4JϴcJؕbo,4),(`D/e]RgȆA0("t,SYa* BB|aۢm b9p=Svq!G= 5Վ7.Ii4'YSk߳m![<ņ9&7)je O%8]1bD$;7%מxtw(HC;pQ[^dSp8l"۸;mxnoIDfoӬb4>-kshps0nDQPADWІK1*)Vaj0&B0*Ʃ5p%~oiwX3r5^?mdS,izwW3@eP;9wW\ V x1%Odr;ִF4lVɦhK=pL.}NcI-* c \}hGMuĚ*9 JܷI5Sdp!yvZ>cL>3w= 乽~W}:Ou-*jL]S'^a;fjED\vMun!$BY%v*@ڶKŦ;˛C&xOJ tw?{+//dzy{z,+`+5`S fMj4owiR,he=#KVaZ(XI48kAu;fwj=vVxj?00v? ]L}mVa4o7$%Q ,˻&O{4o|| ̚KmU!X J'}P5C?ǪWP1CSKe6f ?)!zjsf,0lJ#Lˆz JID=>킛Z3z#% Ƿs#UN5͚1>`sh5}#,k"T?H +ni>1B>N/u7n>}錬"aJñ0gӤ+j<~W|*xRz % 8L]>ewC\ LRbIq{kThxqGF*kHG""ri쎈~SNi~MP#JtMYem)m2*uF3K9 ȋah:eLDfh`WIK 3pVY+@LK?ݲb(Sb\ _O^ ~0kV,-HVG 8u$mJ%*YuD/M_wȓT#( "N/?RuQW7%SMM\:9RD -*2zSqSΤJ-ڻ4`⏼wyiܤ1hj R=3 Rݜ'{ OJ#bCa-Yw|8)fA3su'ݕ7HqG C@Sv$$I pNy"RJ̒b?BRB<6lw KA,;)SwBCSffЍ"9(6,UQ"O/H`F[(: 4^{Bk$`I畒QTTA( SQvk"9Z׶LG+pY)IŻjT\ +樸fk¼ 𸹐 QÎүt{ ĬZTcQ``%gImfH6M\R>IT_)(q~y og:Ry2}d߄ &As0EY[KX&Lb9P'oǍ=V<̛@2bVz}ѡS 3ƓŞvz[&!lzr5 l#mb1[5.*I2o2p:@{\[fʷ d4}X 6i':JSfmԌ 5-2!)T{>7Qa|z=+N Ѣg>P>/6yx^œj%'"눯ʱ3->ʦ``3 [1}ubgGS >`@0\)NLS O+*F (8L{uAЈ`(q"|rCM3g&)i@WIFI%%MFI*Plj="+vܳa2xrkMS/p9xT<E^*gNr-WJN?2xؼc;'$P';SJs=uѬ˅!#wg.1*P[4$E!DaI]r(xLδSbs&b5&ښ= #}F*L\ uHK/$[NSP\ F4Ōc$soKYt-]קIĈaJ'q>oiz<^ċhw0LeR *'j{ !XStel+%1,{ 1Mf:m8 JmbʢlJ9(7IwޓM0wmU P|io9vnWP̓or<<[{oJ>>5xt{vf%rKuXL=e|ի:mk|.X_=xl|zW"aSf7tP%-0ixo2NYOP5 ܺN~luOgSNG~JhTJi!oe!.Kc'!>*5<)UeԿ\M*5AnDg>}#ᖉDYeBPxÀ<ʣc(9ƞjh:ݟ cBbdeኣ'HJD.oPm3Yĥt{RPAIjǣ[bdNX6g bL@穇lrh-AO+5X&BVh"yfxSЈ  "<,4y#2,]󑐂dn'+y-Mnު)&4Hr2DӻPOݡCr{kO߯4-0F3s_thoDX}Yy|BV%Sz-;cJ ؃ "M%2if72CzuMk.޵:sS pEn H\sNjz Lu |hF]+Vv6 ujæRÈ($Y 9 9z>$'v\${^yӰ=y{ծtŸy‡@-ѮzA5YᅼaJUlQ9}J'ᅺ=2!!=l \C't*|D(XR,)#4LQu;sHo6?sܤ!a3ML)-K6I & $}(sZ'bba&^Ύy~Aނz'xɓ7\,Lk%Y\.\%;:Uc[VstȾUSeb>2wğvzY9T_K"nTy =ϥ}?N3~^Pc6Pw 3LcTCB15rV.k\Z|Lq {eξΟڤȔo/Hs0Qmz#<%UEj.d>Mf]A :yAg@3G^a!;c[ױdvRvxyE z)~*nuo:b<[ڭq:`fb+ic~@IXn{,++}f5&b XE6UTΥ9 f0kQ`v3|x-7' 5:Wn?sϞ9Kdؠ郧Ƽyb(  ljcغz}ͅMHe&Fz.ZޜΝP~mk(^,$H%{D%FR}A`"@I_Ӛdޔ $f6L9 T ġKQ-R7 ­I',+J"Bӈ,R;E$0(Ma%^-bJb :tl«H(~cc˔@ c|)!{_U&\{kc=2׊(3+V5TkuK'r{wy)?Q6u2]כp1B$e;E"ιl&H]=#0VFQz`D 1N+^K}HwG$Vxrj՗CD8:_N-/_` !%y!lz}5y#o, ΅JVB!h2?^E <m+Z/6 ۩NOjS%Zfn=Vy a٥ ж7<ަ_~在1VF#4?GKd[Ⱦx`Ku'dDZb(fmsfH0'{ ѵi jt@oϋb(__I{ob0tA٪íQ uRSN^Ii@ScIF(zwO$v;fsBinY*Q:v}㞺FzXж#:.g$N_Oս\95njLev ,^ì~=>Nǒ\osݻh,uJJBdT(jDdMg6q1>(DC3ŗoՄ'V훓01^ԕ7>8Gi_nng殧7_t( PiI_p߫=Adw}qsy&zeVb^Ue0z O1; |?1$K<\캫^7RZTc94<(S::zK@M碁~2̻벑چ'Hܯ]r7LȪjDmp>L|߁,eЕ+0oM(AV }R7BFU{q1CnRLF/әU֚()!$۬;Jmza&X+W"\\ikDCKlX[ح s8yfÞ!#cHe(cEn*_jǁ3+p0̧A:@thyo'`8k7}wC9AR ƟEin?4x0nMQEu+j7@w@ /6-T; قfBFyUȾgL2* oG/C!E}xzWd͸U*YÜE ,\[V\Ky[T1&%H{Eū}/%_o 塡g[螴_<̭+ _%>U : _4+"B(%dƀܭKgh_rn08 YsZH]`/+K`юҦek c EH{mrn,i6<6k7 €osO6t $Gt,^(c'L1q)n(9W7nqbcW/nd7"y 5y?..EG() Ps=z#999_~ѫk 1 ?+ >N_5V60 q `2t̸x?iEDi 1p0igyEC[\^׋JEXN?h2 @ﱁ,HY)PĎO\RuMd&I%4 $==w`>XٙAv,C3VP 9s[4g٣\k/ hwj㵈;lGl99~U?P.V %ȞlLeBƹ$h%Щvk$UCJkA˝I~WH6&1StA?A7tE3"*uR2)+QjPL{kh@ ]|bX*Mk lBw6>269Xf c*B!]@2Q+ *.ߢs֮{UL6ʏ9a¸臹-?)xy)~~Pj<Fw'W^ǜgMŒ&q1Ӛx0lYV~ng Kʄu|F.$D }!]}Dm:n $%>'2W0k-ܕmd3f}{gw>.> ] âmŒYWz. aS]Lܠ2KW"=s:x˴QJo3ţ0L 3-jp}(#pƅƂEH,ꂅq1O?j+fKxֵϘy¸&anhVӤvc)i/ U;[2Ih.p;D2њVq #U"6,+I/]oեW)èyS]&?~-%Dka=5L.$JVȷA*RM4?ߣv> ]Rb814"Uˮ)#[c r @}rۏ$oaܮe=\_b{b Sbt_~$a,C"Zbzf&:g ™ czC+cu/'8.W%z/U?`fnAkJBu䯜[\>1Ϫ:,0j9]^PZJP=x*Ȝڕ|a5I:lk)}ي/vi69-aܕӥʮ_ ۉ3?e#έ)2ܶS+_dѦ^DV`9gAcH`TB%`_$V`DmrD޷3{i |zPT)˔FHg#l:]pP0V#i+ʖra@ZH(:{IV!OVzTt Q o4ύ.G[KFd kYK3trޯMa(cЩ܌B"c8ugiJ XwxU4 .8/m4v4I2BS0q]`tݪ뚤+Qݧ[  ua U)&nŬŋَ)5cA]Ps(V`d$IJIAn9aFS/JKxOhhSe;=Cnr6ޖP8.N(%KͲ+_*iA;4mۙ*EwQ6E`,2.r#`}XDdwq27⃶d]:D֌V&t85`m@K '>4ޞ}IݞXL{eu1 %p4W-5]vgN@)t[ FYऴf+n+VqwLzQ񳞽a;ݯK[gcI=*}]~p-]mÿޜCq̿p%S]BÊЮ*c]ݼ㘗5euA;b_"}l>̪9;ӱ˟,9[>ѓ(=_cǒkFzILK;;zE`L~e0MDꅍ-R 4Þe(V}sQBNO2>9ak/Ow>b|T!MoPhs <n|(L ;P Tu`{}R[ e7ay!״ OFT18~}|4p3c-ufuZ{(34#ju!#ˡRJ[K5T7i}G=|٤E=tܬ=rP_p˽pj[Snó3g1J2vWYTޡ,ɵ]nOji(Ý?eB}b޴d:zJruFE3F4h 􈔞 K:,uc7ÝmYAO>jYC?Ǫ T.[ MP:˷@>tD 쨶ٛ0Ofmʒ!|/ůjw9D$ G@Teg6"kLGT }]_ONP_G%'{%hNΡH /Dz( u_ *K1Q7bI76tD)LRGŅ/*|Ivn\iSpy4^(ǻHB#ARE+HȟoDdW6e0n{FS/ÈY{͙sP?R2$ٽߕHLDe"lDlZk8gT̓Yےr~ 4m-">BD.Xy}Z@`vWxݍꪳpMpwH*GeaUdwѵ}no Y{ o ^FF@6XZ'!kdS{hH͜lN FUgD}ڹDt;gb#V/)ICG|ߝSjNR"ן&$OHZǠ|X1{j<UBCT a$SKfw\0Ѧ0:rhLߋtpGR7٭g_/, ڡ]$M (OnYՒ!޴\AبzwZE.7`~i"_)w&lՇ6}> eEQ"B%&E\|Bb԰6ߓOnƠlkוGx 9c'-Ǽ]W,w߈(kGE_%AkB>+xײn hN`jdW~ٹi%£/kl/Eo+%w}n? cf` άf{)dB5h ؇0`nH0^J[e{=o:c4i ם > (69B lດޣzPTDkt=,kY0(8K^I&je؇aQuE37Eb\U[4lc0h`D-/ j2wi,Jlmѳ=B]wNEݛpQХQLcj ! JpoЂu ɟSNS4p ^KbLгwf,d=IWQ `ٺ%H~ (`&XF@0!$*k8o]uMJnV5xB;%EmnLD1]ٗ$1Ā-4of5!6@GIߘ J\(Up :؅%%0^2JF@+b.MLHL> nY xweXm[0y;15O-9>K?XDeZTدc+lEzV۾_3!lO _9B' ͖F_=T14Gk4  A l}=w`I|]\P6<9*!ujp6܀>au{}\|o9W~VxP#qlzה#@h蠹HMcqbkܶ%yf!q-Y{ p\PhQ:r ʨE6wd~5L'qB.b[DpqԮ~.?kpnc/M=tsrn OQh1)(c?a(@$Evl*;H P\ fx֋J-IMQ}ʕ l]>'9{y} L N v߮Ui&T*TYv9:FPהџqU#W_JMyFPezpE&՝@m?⾊>Djv4;ȦY]IJ}ɶ}Hbєw6kH=.R=\Z!i XIX>lu Sl jej)I hP܃`fЋ8ʸ ? t;z>:5_lK\,}ErE:LIl?ԇ(FWȗG/;yM oKψѪp-@y#e#2&R.3r6,%\P(~!EP)4`JMrkfd#?1Ƙ[V3_Pw@VW%9W%Ōh‹诟Gwt||Ǡ ?[з O*u[)?=Rp^ )YTef"{t)S0~ 6%֐#D؀P-4 sQkzH8[KI,6-Mj+_ĮAIyIMZ0BU= +%>EYTq\Вcuernk h |_M uԓb)w[Vn/TdEЋ̪!ǃط+ LS?lD77s.ȡ0I 17x VU"j igIL8xwb  0tZ[ƹ :@VJu'[valm!=:WD=6/7W7"@򌜂"|JIy AV+*{4^A.?[!qcUQ r -_G:8Q$\'E/DL[zL\}AˍLZp0=f $&9@:.ٻ4ҕ yt<(ˈspHRݧCy=ࡍ~;>@.'kSxhʗZiM .t VƔ8LV֙6KCkpKJ]5j笆$6ډ2(i~;Rg> ݉$NXP{r~5r~&cc b'9 A.ښ"?$^ֵƌ;]ZãRZp\9m endstream endobj 256 0 obj << /Length1 721 /Length2 4672 /Length3 0 /Length 5264 /Filter /FlateDecode >> stream xmrg4ju :ѣ D%.E13 3ѣN"D'щ5DF^7]Zz>쳟˥A!0HDT`n `P<V2`pb 2^ `@D!c ȹ*➋`+\7"=`tBTʹ @F`N6NH@ CqA- p'0h8oM8?Ю,Z-A t4x5â>_//u'!p$ A!dM m<?wt-w p f?wrCQ t1p 0YP_z9 $N醀#VB- ]O?ڏcN;z?<50 ⯽bP? \""X7Oa#i|žc4׻9$ #d |r o Y {igKX /(lok} (V{"B-XOΞuZjuӘ'OM{$ަ,}'OίmE3;1|KyzI!TB3`eda0$3;6/3?=KqrytnEGu2rHtn%MbԈpsڧ BJ ;`e`FX(8WD"Q/]*\ұaRƨoV@~CM…bԙe3'3'>]}TJT!{QyŦr؞{ } 2%.Evpz#J, Jc9u}-*;\pf4ѫ&wϯ,3o;!@ LGl** 7$WWpYQ5Ϛ5# o9-ͰEq?sHf =R=]q'b."_{88  8ixxs=e26R>-MԜy$l$Hr*ReK\w:(_``M:ǦBԲmhR@NP >ѝU%' 13atLjgt4O ")<u@VoYA38IG 4_?)o~[u.ᅬpLw$,ttQ[ \6Qb})Ŏ72K@w>T8~5,N乁c-Tlv#$I2<-fJLZ摳lru^Pd<=.m1MMf+km(=[3/71,(m}!\.·ڔe=D{ωM^ E2 !w/3+H6= M4A'Z,Dƞi*s\F. ONޜՍ 6 ۹,W!#%Xfo߷90 )!Us*@>i}ޟ|Gv-z C-d9Du1N,tA po%ǞMݩvIeʾ&Ĵ6flVk;;v^-YlM.#&l^D3 KYOhlu9ZM:IQtf\jwwŶLaG|-;+qm@٧ N4 8$ZTcg3-KVn*?CmY;S^cyס8'"R\R.E(/^,j&Ny[뙧}x0Q;>vdJKo7f>!ʏs5hr\TesnX͈S)lY,W%!%?b:I9;D>b60*/꘤p&8y\/+5D 8ǒܚsϩRXKIHdݢxN m& V}ih6{͎Q z|yń'<3reh;Xy3E ="A`.jbZ_+2f%vI^ف7Ҥz3q|Po_-g畈 eWGߚ&PJ/$/32pDqDwu&:`O#4) =lp7X\~\m+r-]hQ"eG>xTh "#Ud5i\*!' xAE@}oU4gnş5Y,tl:/IZo8io'"v){gdXߟ;ٺE+u7{</&Uiѝ*v|0l (kN1S#k>w?{Y9Ay|'?8*Yf dW(jP ]~:e!=0iټ౱]PEf-|ѝ6%~R)'ryhz`v,z5bphѵ1[$1ʪ{Jb~Կ s;_<9|9t*ʝX|Jy~>M۩^L(ݡ ֣KHڪzԴDjt³ޘy&m=t9+r[lS3΄QDgy+3f^x_hiޠdd357hm Oڻ;=F!}7;\+9n"jqK5T灁?"(l ,A]Dn,,fhaP)Feɻ3o52i@{;H8dg%lo VUÜ{#gZ#K 2f}{UZIݴzEW1M;7I^_w󱛍^1cŐ=!m endstream endobj 155 0 obj << /Type /ObjStm /N 100 /First 890 /Length 3731 /Filter /FlateDecode >> stream x[[s~ׯP)<)*UĀ6P~XKA8g$c\EBgBL E ʤљT_L\3` 'ȼp-aUY@Lp0ABÕBzBAShz!kv IBG`N w8%6pxN[3%^ eTpjC&p\iP 2iAfҁ".GS@ 2DбDr)a!Ap&iJA(@:eBGa:' 5"2"$Ni8 .tg H^xh<(+A1[Փ်"340@xMgV#dYt(@‘`h+~ޠXdA BWhb% iF 5Z d+U4d?*j7uva+P^x:Ad1Ȝoo‚ πM:dڙy]G@8"u?rڹ4:{:ɯ/~ 5 -%48`Q[]Ft[_ᅫ^hÿ l}#t8t_!*[Tkupa7/xuʷ:R:7X@},~Yoq~87#i{2?ɿ1ɿ-)9)mm &|U1^mݑ&+J/m!RWm3B2#Ė6I[gjKe9alɬ0j39p)+zaے %7dҙV6JjC@:ĩABT8-*ζcO"ϕBϦP♴E4݂KX~{o]#MZw]RR]Z9-mQjV#RMXT+Z)c-fCA,q*)69d xJ }gI+G*A# VfLHqHb?bDj8#`6 >Ho)KH=rm@5ߥv"bK rQCdW(ol\bY"-!Pq Vj+M o`ւYSLe)k452q]g\(ԭ30fX@x0UNd!K)y*8I!\+tECAc2<87Tiw$rhxRHGt"OG"娽j>/XEU7IkfzenWXԧqOⳬ/9>&Eb^i=46{(=1 Nr'(/.C68P~ŰȀQ]\Ϫz h\|yy?\,u,'{,r, eT:Vm^rgVx:a%+6bc6MXjV_Nٔ/> hUB3 x9AJCTeD¦@(ÞE菇WW S.>/&]y}Y>&FӫbR-~OI9'ʃ!\ &??_dý':+ĵѩی.ɵ`uޠZ\W%b| 5`L.k\~5 NbaY"1xZGC$U''vD %wp7v.8>{ƞ@$9$:&:!':EM/{bh_>͇ps(,]>y9\ NvWN+{8A>W\8U HWMICod-(yy&@<<:4k`6 oO^ Fk[ _P-t/dU,{؏/g1;x8G鮸Yoj%'}z"bJDВ| f__<;8h>^SyJpkma!bD&pXԋew"Bن]>i?.@E?8IUaTӫrP_V{;~ޘv.؋_w]JEH{"uهe׊o6gtx^nξswel{bJ:puN>#{x%6Xv/Y sޜwJp7K6pM͹w.w$#t .%{}*=X6> endobj 259 0 obj << /Type /ObjStm /N 2 /First 13 /Length 87 /Filter /FlateDecode >> stream x32P0P023P05ⲱ,HUHLO-w/+Q04L)V64*R04ӱ\vvHzKsӹ &  endstream endobj 262 0 obj << /Type /XRef /Index [0 263] /Size 263 /W [1 3 1] /Root 260 0 R /Info 261 0 R /ID [<49E9DC76C319D62A02FC9AF822208DAA> <49E9DC76C319D62A02FC9AF822208DAA>] /Length 693 /Filter /FlateDecode >> stream x%;LSaﴴr{(ED(CP@QDtC"CLQzbj\4.t3ꠉarq/s<', i8pNyط;{l˿DV: ܻg^#S!C:D L~i'Ma l ,~  CBKpfIpIA}v(܀ePvB%P%v %Tak ZA=4Hh}N4BC @?:v1nC,٫z:tBtCBD[1CpaNI1n'Ɓ>= library("knitr") opts_chunk$set(fig.width=5,fig.height=5,#tidy=TRUE, out.width="0.8\\textwidth",echo=TRUE) #options(prompt=" ") options(continue="+ ", prompt="R> ", width=70) options(show.signif.stars=FALSE, scipen=3) @ <>= library(car) library(effects) render_sweave() options(width=80, digits=5, str=list(strict.width="cut")) strOptions(strict.width="cut") @ \section{Introduction}\label{sec:intro} Predictor effect plots \citep{fw19b} provide graphical summaries for fitted regression models with linear predictors, including linear models, generalized linear models, linear and generalized linear mixed models, and many others. These graphs are an alternative to tables of fitted coefficients, which can be much harder to interpret than predictor effect plots. Predictor effect plots are implemented in \R{} in the \pkg{effects} package, documented in \citet{fw19}. This vignette provides many examples of variations on the graphical displays that can be obtained with the \pkg{effects} package. Many of the details, and more complete descriptions of the data sets used as examples, are provided in the references cited at the end of the vignette. \subsection{Effects and Predictor Effect Plots}\label{sec:intro2} We begin with an example of a multiple linear regression, using the \code{Prestige} data set in the \pkg{carData} package: <<>>= library("car") # also loads the carData package Prestige$type <- factor(Prestige$type, levels=c("bc", "wc", "prof")) lm1 <- lm(prestige ~ education + poly(women, 2) + log(income)*type, data=Prestige) @ The data, collected circa 1970, pertain to 102 Canadian occupations. The model \code{lm1} is a linear model with response \vn{prestige}, continuous predictors \vn{income}, \vn{education}, and \vn{women}, and the factor predictor \vn{type}, which has three levels. Before fitting the model, we reorder the levels of \vn{type} as \level{bc} (blue-collar), \level{wc} (white-collar), and \level{prof} (professional and managerial). The predictor \vn{education} represents itself in the linear model, and so it is both a predictor and a \emph{regressor}, as defined in \citet[Sec.~4.1]{fw19}. The predictor \vn{income} is represented by the regressor \lcode{income}. The variable \vn{women}, a percentage between 0 and 100, is represented by regressors that define a polynomial of degree 2 using \fn{poly}'s default orthogonal polynomials. The variable \vn{type} is a factor with three levels, so it is represented by two dummy regressors defined by the default contrast-generating function in \R{}, \fn{contr.treatment}. Finally, the formula includes an interaction between \vn{income} and \vn{type}, defined by multiplying the regressor for \vn{income} (\lcode{income}) by each of the regressors that represent \vn{type}. The usual numeric summary of the fit of \code{lm1} is a table of estimated coefficients, which we obtain via the \fn{S} function in the \pkg{car} package that is similar to, but somewhat more flexible than, the standard \R{} \fn{summary} function: <<>>= S(lm1) @ \begin{itemize} \item Interpretation of the regression coefficients is straightforward only for the predictor \vn{education}, where an increase of one year of \vn{education}, holding other predictors fixed, corresponds to an estimated expected increase in the response of \Sexpr{round(coef(lm1)[2], 3)} units. \item Even ignoring the interaction, the log transformation complicates the interpretation of the effect of \vn{income}. \item The predictor \vn{women} is represented by two regressors, so the effect of \vn{women} requires examining two coefficient estimates that are interpretable only by those knowledgeable about polynomial regression analysis. Even if raw rather than orthogonal polynomial regressors were used, via \code{poly(women, 2, raw=TRUE)} in place of \code{poly(women, 2)}, interpretation of the effect of \vn{women} is complicated. \item Understanding the coefficients for the main effect of \vn{type} depends on the contrasts used to define the effect. The contrasts can be changed by the user, and the default contrasts in \R{} are different from the default contrasts used by \proglang{SAS} or other programs, so the coefficients cannot be reliably interpreted without information not present in the regression summary. \item Finally, the interaction further complicates the interpretation of the effect of either \vn{income} or \vn{type}, because the interaction coefficients need to be interpreted jointly with the main effect coefficients. \end{itemize} \noindent Summarization of the effects of predictors using tables of coefficient estimates is often incomplete. Effects, and particularly plots of effects, can in many instances reveal the relationship of the response to the predictors more clearly. This conclusion is especially true for models with linear predictors that include interactions and multiple-coefficient terms such as regression splines and polynomials, as illustrated in this vignette. A predictor effect plot summarizes the role of a selected \emph{focal} predictor in a fitted regression model. The \fn{predictorEffect} function is used to compute the appropriate summary of the regression, and then the \fn{plot} function may be used to graph the resulting object, as in the following example: <>= library("effects") e1.lm1 <- predictorEffect("education", lm1) plot(e1.lm1) @ \centerline{\includegraphics[width=4in]{figure/fig11-1.pdf}} \noindent This graph visualizes the partial slope for \vn{education}, that for each year increase in \vn{education}, the fitted \vn{prestige} increases by \Sexpr{round(coef(lm1)[2], 3)} points, when the other predictors are held fixed. The intercept of the line, which is outside the range of \vn{education} on the graph, affects only the height of the line, and is determined by the choices made for averaging over the fixed predictors, but for any choice of averaging method, the slope of the line would be the same. The shaded area is a pointwise confidence band for the fitted values, based on standard errors computed from the covariance matrix of the fitted regression coefficients. The rug plot at the bottom of the graph shows the location of the \vn{education} values. The information that is needed to draw the plot is computed by the \fn{predictorEffect} function. The minimal arguments for \fn{predictorEffect} are the quoted name of a predictor in the model followed by the fitted model object. The essential purpose of this function is to compute fitted values from the model with \vn{education} varying and all other predictors fixed at typical values \citep[Sec.~4.3]{fw19}. The command below displays the values of the regressors for which fitted values are computed, including a column of 1s for the intercept: <<>>= brief(e1.lm1$model.matrix) @ The focal predictor \vn{education} was evaluated by default at 50 points covering the observed range of values of \vn{education}. We use the \fn{brief} function in the \pkg{car} package to show only a few of the 50 rows of the matrix. For each value of \vn{education} the remaining regressors have the same fixed values for each fitted value. The fixed value for \lvn{income} is the logarithm of the sample mean \vn{income}, the fixed values for the regressors for \vn{women} are computed at the mean of \vn{women} in the data, and the fixed values for the regressors for \vn{type} effectively take a weighted average of the fitted values at the three levels of \vn{type}, with weights proportional to the number of cases in each level of the factor. Differences in the fitted values are due to \vn{education} alone because all the other predictors, and their corresponding regressors, are fixed. Thus the output gives the partial effect of \vn{education} with all other predictors fixed. The computed fitted values can be viewed by printing the \class{eff} object returned by \fn{predictorEffect}, by summarizing the object, or by converting it to a data frame. To make the printouts more compact, we recompute the predictor effect of \vn{education} with fewer values of the focal predictor by specifying the \code{focal.levels} argument (see Section~\ref{sec-focal.levels-xlevels}): <<>>= e1a.lm1 <- predictorEffect("education", lm1, focal.levels=5) e1a.lm1 summary(e1a.lm1) as.data.frame(e1a.lm1) @ The values in the column \vn{education} are the values the focal predictor. The remaining columns are the fitted values, their standard errors, and lower and upper end points of 95\% confidence intervals for the fitted values. The \emph{predictor effect plot} is simply a graph of the fitted values on the vertical axis versus the focal predictor on the horizontal axis. For a continuous focal predictor such as \vn{education}, a line, in this case, a straight line, is drawn connecting the fitted values. We turn next to the predictor effect plot for \vn{income}. According to the regression model, the effect of \vn{income} may depend on \vn{type} due to the interaction between the two predictors, so simply averaging over \vn{type} would be misleading. Rather, we should allow both \vn{income} and \vn{type} to vary, fixing the other predictors at their means or other typical values. By default, this computation would require evaluating the model at $50 \times 3 = 150$ combinations of the predictors, but to save space we will only evaluate \vn{income} at five values, again using the \ar{focal.levels} argument, thus computing only $5 \times 3 = 15$ fitted values: <<>>= e2.lm1 <- predictorEffect("income", lm1, focal.levels=5) as.data.frame(e2.lm1) @ To draw the predictor effects plot we recalculate the fitted values using the default \code{focal.levels=50} to get more accurately plotted regression curves: <>= plot(predictorEffect("income", lm1), lines=list(multiline=TRUE)) @ Here we use both the \fn{predictorEffect} and \fn{plot} functions in the same command. \centerline{\includegraphics[width=4in]{figure/fig12-1.pdf}} \noindent The focal predictor \vn{income} is displayed on the horizontal axis. There is a separate line shown for the fitted values at each level of \vn{type}. The lines are curved rather than straight because \vn{income} appears in the model in log-scale but is displayed in the predictor effect plot in arithmetic (i.e., dollar) scale. The lines in the graph are not parallel because of the interaction between \lvn{income} and \vn{type}. For $\vn{type} = \level{prof}$, the fitted values of \vn{prestige} are relatively high for lower values of \vn{income}, and are relatively less affected by increasing values of \vn{income}. The predictor effect plot for \vn{type} uses essentially the same fitted values as the plot for \vn{income}, but we now get five lines, one for each of the five (not 50) values of \vn{income} selected by the \fn{predictorEffect} function in this context: <>= plot(predictorEffect("type", lm1), lines=list(multiline=TRUE)) @ \centerline{\includegraphics[width=4in]{figure/fig13-1.pdf}} \noindent Because the horizontal axis is now a factor, the fitted values are displayed explicitly as points, and the lines that join the points are merely a visual aid representing \emph{profiles} of fitted values. Fitted \vn{prestige} increases with \vn{income} for all levels of \vn{type}, but, as we found before, when $\vn{type}=\level{prof}$, fitted \vn{prestige} is relatively high for lower \vn{income}. These initial examples use only default arguments for \fn{predictorEffect} and \fn{plot}, apart from the \code{multiline} argument to \fn{plot} to put all the fitted lines in the same graph. We explain how to customize predictor effect plots in subsequent sections of this vignette. \subsection{General Outline for Constructing Predictor Effect Plots} Using the \pkg{effects} package to draw plots usually entails the following steps: \begin{enumerate} \item Fit a regression model with a linear predictor. The package supports models created by \fn{lm}, \fn{glm}, \fn{lmer} and \fn{glmer} in the \pkg{lme4} package, \fn{lme} in the \pkg{nlme} package, and many other regression-modeling functions (see \code{?Effect}). \item The regression model created in the first step is then used as input to either \fn{predictorEffect}, to get the effects for one predictor, or \vn{predictorEffects}, to get effects for one or more predictors. These functions do the averaging needed to get fitted values that will ultimately be plotted. There are many arguments for customizing the computation of the effects. The two predictor effect functions call the more basic \fn{Effect} function, and almost all of the material in this vignette applies to \fn{Effect} as well. \item Use the generic \fn{plot} function to draw a graph or graphs based on the object created in Step 2. \end{enumerate} \subsection{How \fn{predictorEffect} Chooses Conditioning Predictors}\label{sec:eff} Suppose that you select a \emph{focal predictor} for which you want to draw a predictor effect plot. The \fn{predictorEffect} function divides the predictors in a model formula into three groups: \begin{enumerate} \item The focal predictor. \item The \emph{conditioning group}, consisting of all predictors with at least one interaction in common with the focal predictor. \item The \emph{fixed group}, consisting of all other predictors, that is, those with no interactions in common with the focal predictor. \end{enumerate} \noindent For simplicity, let's assume for the moment that all of the fixed predictors are numeric. The predictors in the fixed group are all evaluated at \emph{typical values}, usually their means, effectively averaging out the influence of these predictors on the fitted value. Fitted values are computed for all combinations of levels of the focal predictor and the predictors in the conditioning group, with each numeric predictor in the conditioning group replaced by a few discrete values spanning the range of the predictor, for example, replacing years of \vn{education} by a discrete variable with the values 8, 12, and 16 years. Suppose that we fit a model with \R{} formula \begin{equation} \Rmod{y}{x1 + x2 + x3 + x4 + x2:x3 + x2:x4}\label{eq1} \end{equation} or, equivalently, \begin{equation*} \Rmod{y}{x1 + x2*x3 + x2*x4} \end{equation*} There are four predictor effect plots for this model, one for each predictor selected in turn as the focal predictor: \begin{center} \begin{tabular}{ccc}\hline Focal & Conditioning & Fixed\\ Predictor & Group & Group\\ \hline \vn{x1} & none& \vn{x2}, \vn{x3}, \vn{x4} \\ \vn{x2} & \vn{x3}, \vn{x4} & \vn{x1} \\ \vn{x3} & \vn{x2} & \vn{x1}, \vn{x4} \\ \vn{x4} & \vn{x2}& \vn{x1} \vn{x3} \\ \hline \end{tabular} \end{center} \noindent The predictor \vn{x1} does not interact with any of the other predictors, so its conditioning set is empty and all the remaining predictors are averaged over; \vn{x2} interacts with both \vn{x3} and \vn{x4}; \vn{x3} interacts only with \vn{x2}; and \vn{x4} interacts with \code{x2}. \subsection{The \fn{Effect} Function}\label{sec:Effect} Until recently, the primary function in \pkg{effects} for computing and displaying effects was the \fn{Effect} function.\footnote{The \pkg{effects} package also includes the older \fn{allEffects} function, which computes effects for each high-order term in a model with a linear predictor. As we explain in \citet{fw19b}, we prefer predictor effects to high-order term effects, and so, although its use is similar to \fn{predictorEffects}, we won't describe \fn{allEffects} in this vignette. There is also an older \fn{effect} function (with a lowercase ``\code{e}''), which is a less flexible version of \fn{Effect}, and which calls \fn{Effect} to perform computations; \fn{effect} is retained only for backwards comparability.} Whereas the \fn{predictorEffect} function automatically determines the conditioning group and the fixed group of predictors, the \fn{Effect} function puts that burden on the user. The \fn{Effect} function doesn't distinguish between between a focal predictor and conditioning predictors, but rather only between varying (that is, focal \emph{and} conditioning) and fixed predictors. Each call to \fn{predictorEffect} is equivalent to a specific call to the \fn{Effect} function as follows. Suppose that \vn{m} is the fitted model produced by the formula in (\ref{eq1}); then, except for the ways in which the default levels for predictors are determined: \begin{description} \item[] \code{predictorEffect("x1", m)} is equivalent to \code{Effect("x1", m)}; \item[] \code{predictorEffect("x2", m)} is equivalent to \code{Effect(c("x2", "x3", "x4"), m)}; \item[] \code{predictorEffect("x3", m)} is equivalent to \code{Effect(c("x3", "x2"), m)}; and \item[] \code{predictorEffect("x4", m)} is equivalent to \code{Effect(c("x4", "x2"), m)}. \end{description} The \fn{predictorEffect} function determines the correct call to \fn{Effect} based on the choice of focal predictor and on the structure of main effects and interactions in the linear predictor for the model. It then uses the \fn{Effect} function to do the computing. As a result, most of the arguments to \fn{predictorEffect} are documented in \code{help("Effect")} rather than in \code{help("predictorEffect")}. \subsection{The \fn{predictorEffects} Function} This function, whose name ends with the plural ``\code{effects}", computes the values needed for one or more predictor effect plots, and by default for \emph{all} of the predictors in the model. For example, the following command produces all of the predictor effect plots for the model we fit to the \code{Prestige} data: <>= eall.lm1 <- predictorEffects(lm1) plot(eall.lm1) @ \centerline{\includegraphics[width=0.95\textwidth]{figure/fig14-1.pdf}} \noindent The predictor effect plots for this model are displayed in an array of graphs. The plots for \vn{income} and \vn{type} have a separate panel for each level of the conditioning variable because the default argument \ar{lines=list(multiline=FALSE)} was implicitly used. Confidence bounds are shown by default when \ar{multiline=FALSE}. The resulting object \code{eall.lm1} is a list with four elements, where \code{eall.lm1[[1]]} is the summary for the first predictor effect plot, \code{eall.lm1[[2]]} for the second plot, and so on. The following equivalent commands draw the same array of predictor effect plots: <>= plot(eall.lm1) plot(predictorEffects(lm1)) plot(predictorEffects(lm1, ~ income + education + women + type)) @ If you want only the predictor effect plots for \vn{type} and \vn{education}, in that order, you could enter <>= plot(predictorEffects(lm1, ~ type + education)) @ Similarly, the commands <>= plot(predictorEffects(lm1, ~ women)) plot(predictorEffects(lm1)[[2]]) plot(predictorEffect("women", lm1)) @ all produce the same graph, the predictor effect plot for \vn{women}. Predictor effect plots in an array can be a useful shortcut for drawing many graphs quickly, but can lead to problems with the displayed graphs. For example, the horizontal axis labels for the plot for \vn{income} are overprinted, and the labels at the top of the panels for \vn{type} with conditioning variable \vn{income} are larger than the available space. These problems can often be fixed using optional arguments described later in this vignette or by plotting predictor effects individually. \section{Optional Arguments for the \fn{predictorEffect} and \fn{Effect} Functions}\label{sec:peopts} This section comprises a catalog of the arguments available to modify the behavior of the \fn{predictorEffect} and \fn{Effect} functions. These arguments may also be specified to the \fn{predictorEffects} function. The information provided by \code{help("Effect")} is somewhat more comprehensive, if terser, explaining for example exceptions applying to \class{svyglm} objects or for plotting residuals. \subsection{\ar{focal.levels} and \ar{xlevels}: Options for the Values of the Focal Predictor and Predictors in the Conditioning Group}\label{sec-focal.levels-xlevels} Numeric predictors in the conditioning group need to be discretized to draw a predictor effect plot. For example the predictor effect plot for \vn{type} in model \code{lm1} consists of a separate line, or a separate panel, for each discrete value of \vn{income}: <>= e3.lm1 <- predictorEffect("type", lm1) plot(e3.lm1, lines=list(multiline=TRUE)) @ \centerline{\includegraphics[width=4in]{figure/fig21a-1.pdf}} <>= plot(e3.lm1, lines=list(multiline=FALSE)) # the default @ \centerline{\includegraphics[width=4in]{figure/fig21b-1.pdf}} \noindent The numeric conditioning predictor \vn{income} is evaluated by default at five equally spaced values, when are then rounded to ``nice" numbers. Using the three values of 5000, 15000, 25000 for the conditioning predictor \vn{income} in this example produces a simpler graph: <>= e3.lm1 <- predictorEffect("type", lm1, xlevels=list(income=c(5000, 15000, 25000))) plot(e3.lm1, lines=list(multiline=TRUE), confint=list(style="bars")) @ \centerline{\includegraphics[width=4in]{figure/fig22a-1.pdf}} <>= plot(e3.lm1, lines=list(multiline=FALSE), # the default lattice=list(layout=c(3, 1))) @ \centerline{\includegraphics[width=4in]{figure/fig22b-1.pdf}} \noindent The argument \ar{xlevels} is a list of sub-arguments that control how numeric predictors are discretized when used in the conditioning group. For example, \code{xlevels=list(x1=c(2, 4, 7), x2=6)} would use the values 2, 4, and 7 for the levels of the predictor \code{x1}, use 6 equally spaced values for the predictor \code{x2}, and use the default of 5 values for any other numeric conditioning predictors. Numeric predictors in the \emph{fixed} group are not affected by the \ar{xlevels} argument. We use the \ar{layout} sub-argument of the \ar{lattice} argument group to arrange the panels of the second graph in 3 columns and 1 row (see Section~\ref{sec:layout}). See \code{help("plot.eff")} for information on the \ar{quantiles} argument, which provides an alternative method of setting \ar{xlevels} when partial residuals are displayed, as discussed in Section~\ref{sec:res}. The points at which a numeric focal predictor is evaluated is controlled by the \ar{focal.levels} argument. The default of \vn{focal.levels=50} is recommended for drawing graphs, but if the goal is to produce a table of fitted values a smaller value such as \code{focal.levels=5} produces more compact output. The focal predictor can also be set to a vector of particular values, as in \code{focal.levels=c(30, 50, 70)}. Used with the \code{predictorEffects} function, the \ar{focal.levels} argument can be set separately for each focal predictor, similarly to the \ar{xlevels} argument; see \code{help("predictorEffects")}. \subsection{\ar{fixed.predictors}: Options for Predictors in the Fixed Group} Predictors in the fixed group are replaced by ``typical" values of the predictors. Fitted values are then computed using these typical values for the fixed group, varying the values of predictors in the conditioning group and of the focal predictor. The user can control how the fixed values are determined by specifying the \ar{fixed.predictors} argument. This argument takes a list of sub-arguments that allow for controlling each predictor in the fixed group individually, with different rules for factors and numeric predictors. \subsubsection{Factor Predictors}\label{sec:facpred} Imagine computing the fitted values evaluating a fixed factor at each of its levels. The fitted value that is used in the predictor effects plot is a weighed average of these within-level fitted values, with weights proportional to the number of observations at each level of the factor. This is the default approach, and is an appropriate notion of ``typical" for a factor if the data at hand are viewed as a random sample from a population, and so the sample fraction at each level estimates the population fraction. A second approach is to average the level-specific fitted values with equal weights at each level. This may be appropriate, for example, in designed experiments in which the levels of a factor are assigned by an investigator. The latter method is invoked by setting \code{fixed.predictors= list(given.values="equal")}. You can construct other weighting schemes for averaging over the levels of a factor, as described on the help page for the \fn{Effect} function. \subsubsection{Numeric Predictors} For a numeric predictor in the fixed group the default method of selecting a typical value is to apply the \fn{mean} function to the data for the predictor. The specification \code{fixed.predictors= list(typical=median)} would instead use the \fn{median} function; in general, \ar{typical} can be any function that takes a numeric vector as its argument and returns a single number. Other sub-arguments to \ar{fixed.predictors} apply to the use of offsets, and to the \pkg{survey} package; see the help page for the \fn{Effect} function. \subsection{\ar{se} and \ar{vcov.}: Standard Errors and Confidence Intervals}\label{sec:se} Standard errors and confidence intervals for fitted values are computed by default, which corresponds to setting the argument \code{se=list(compute=TRUE, type="pointwise", level=.95)}. Setting \code{se=FALSE} omits standard errors, \ar{type="scheffe"} uses wider Scheff\'{e} intervals that adjust for simultaneous inference, and \code{level=.8}, for example, produces 80\% intervals. Standard errors are based by default on the ``usual" sample covariance matrix of the estimated regression coefficients. You can replace the default coefficient covariance matrix with some other estimate, such as one obtained from the bootstrap or a sandwich coefficient covariance matrix estimator, by setting the \ar{vcov.}~argument either to a function that returns a coefficient covariance matrix, such as \fn{hccm} in the \pkg{car} package for linear models, or to a matrix of the correct size; for example: <>= e4.lm1 <- predictorEffect("education", lm1, se=list(type="scheffe", level=.99), vcov.=hccm) plot(e4.lm1) @ \centerline{\includegraphics[width=4in]{figure/fig23-1.pdf}} \noindent This plot displays 99\% Scheff\'{e} intervals based on a robust coefficient covariance matrix computed by the sandwich method; see \code{help("hccm")}. \subsection{\ar{residuals}: Computing Residuals for Partial Residual Plots} The argument \ar{residuals=TRUE} computes and saves residuals, providing the basis for adding partial residuals to subsequent effect plots, a topic that we discuss in Section~\ref{sec:res}. \section{Arguments for Plotting Predictor Effects}\label{sec:plot} The arguments described in Section~\ref{sec:peopts} are for the \fn{predictorEffect} function or the \fn{Effect} function. Those arguments modify the computations that are performed, such as methods for averaging and fixing predictors, and for computing standard errors. Arguments to the \fn{plot} methods for the predictor effect and effect objects produced by the \fn{predictorEffect} and \fn{Effect} functions are described in this section, and these change the appearance of a predictor effect plot or modify the quantities that are plotted. These optional arguments are described in more detail in \code{help("plot.eff")}. In 2018, we reorganized the \fn{plot} method for effect objects by combining arguments into five major groups of related sub-arguments, with the goal of simplifying the specification of effect plots. For example, the \ar{lines} argument group is a list of sub-arguments for determining line type, color, and width, whether or not multiple lines should be drawn on the same graph, and whether plotted lines should be smoothed. The defaults for these sub-arguments are the choices we generally find the most useful, but they will not be the best choices in all circumstances. The cost of reorganizing the arguments in this manner is the necessity of specifying arguments as lists, some of whose elements are themselves lists, requiring the user to make sure that parentheses specifying the possibly nested lists are properly balanced. In addition to the five argument groups that we describe below, the \fn{plot} method for effect objects accepts the arguments \ar{main} for the main title of the graph and \ar{id} for identifying points in effect plots that include residuals, as discussed in Section~\ref{sec:res}. Finally, the \fn{plot} method for effect objects retains a number of ``legacy" arguments shown in \code{help("plot.eff")}. These arguments have been kept so existing scripts using the \pkg{effects} package would not break, but they are all duplicated as sub-arguments of the five argument groups. The legacy arguments work but they may not be supported forever, so we encourage you to use the newer argument groups and sub-arguments. \subsection{The \ar{axes} Group: Specify Axis Characteristics} The \ar{axes} argument group has two major sub-arguments, \ar{x} for the horizontal axis, \ar{y} for the vertical axis, and two minor sub-arguments, the \ar{grid} argument, which adds a background grid to the plot, and the \ar{alternating} argument, for changing the placement of axis-tick labels in multi-panel plots. \subsubsection{\ar{x}: Horizontal Axis Specification} We introduce another linear model fit to the \code{Prestige} data set to serve as an example: <<>>= lm2 <- lm(log(prestige) ~ log(income) + education + type, Prestige) @ The default predictor effect plot for \vn{income} is <>= plot(predictorEffects(lm2, ~ income)) @ \centerline{\includegraphics[width=4in]{figure/fig30-1.pdf}} \noindent The plot is curved because the predictor \vn{income} is represented by its logarithm in the model formula, but the default predictor effect plot uses the predictor \vn{income}, not the regressor \lvn{income}, on the horizontal axis. The \ar{x} sub-argument can be used transform the horizontal axis, for example to replace \code{income} by \lcode{income}: <>= plot(predictorEffects(lm2, ~ income), axes=list( x=list(income=list(transform=list(trans=log, inverse=exp))) )) @ \centerline{\includegraphics[width=4in]{figure/fig31-1.pdf}} \noindent The transformation changes the scale on the horizontal axis to log-scale, but leaves the tick labels in arithmetic scale, and the graph is now a straight line because of the change to log-scale. This plot has several obviously undesirable features with regard to the range of the horizontal axis and over-printing of tick marks. We show next that additional arguments to \fn{plot} can correct these defects. A more elaborate version of the graph illustrates all the sub-arguments to \ar{x} in \ar{axis} argument group: <>= plot(predictorEffects(lm2, ~ income), main="Transformed Plot", axes=list( grid=TRUE, x=list(rotate=30, rug=FALSE, income=list(transform=list(trans=log, inverse=exp), lab="income, log-scale", ticks=list(at=c(2000, 5000, 10000, 20000)), lim=c(1900, 21000)) ))) @ \centerline{\includegraphics[width=4in]{figure/fig32-1.pdf}} \noindent We use the top-level argument \code{main="Transformed Plot"} to set the title of the plot. The \ar{axes} argument is a list with two sub-arguments, \ar{grid} to turn on the background grid, and \ar{x} to modify the horizontal axis. The \ar{x} sub-argument is itself a list with three elements: The sub-arguments \code{rotate} and \ar{rug} set the rotation angle for the tick labels and suppress the rug plot, respectively. The additional sub-argument is a list called \ar{income}, the name of the focal predictor. If you were drawing many predictor effect plots you would supply one list named for each of the focal predictors. All of the sub-arguments for \ar{income} are displayed in the example code above. The sub-argument \code{transform=list(trans=log, inverse=exp)} specifies how to transform the $x$-axis. The \code{ticks} and \code{lim} sub-arguments set the tick marks and range for the horizontal axis. This is admittedly a complex command, but it allows you to fine-tune the graph to look the way you want. In specifying nested argument lists, you may encounter problems getting the parentheses in the right places. Be careful, indent your code to clarify the structure of the command, and be patient! \subsubsection{\ar{x}: Horizontal Axis Specification for Date Variables} The functions in the \pkg{effects} package, such as \fn{Effect} and \fn{predictorEffect}, support models with numeric, factor, character, and logical predictors. Date predictors must be converted to numeric for these functions to work. We supply the generic function \fn{levels2dates}, with methods for \class{eff} and \class{effpoly} objects, which can be used to properly label the horizontal axes of effect and predictor effect plots by translating numeric dates back to dates for the axis tick-mark labels. \fn{levels2dates} takes several arguments: \begin{description} \item[\ar{effect}] An \class{eff} or \class{effpoly} object, created, e.g., by \fn{Effect} or \fn{predictorEffect}. \item[\ar{predictor}] The quoted name of the numeric version of the date predictor. \item[\ar{origin}] A quoted string giving the origin date (see the examples below). \item[\ar{evenly.spaced}] If \code{TRUE} (the default), the tick marks on the horizontal axis are evenly spaced; if \code{FALSE} the tick marks are taken from the levels of the numeric date predictor in the \class{eff} or \class{effpoly} object. \item[\ar{n}] The number of tick marks; if missing, the number of levels of the predictor in the \class{eff} or \class{effpoly} object. \end{description} Here are some examples: <>= data("airquality", package="datasets") airquality$Date <- with(airquality, as.Date(paste("1973", Month, Day, sep="-"), format="%Y-%m-%d")) airquality$Date.num <- as.numeric(airquality$Date) m1.date <- lm(Ozone ~ Date.num + Solar.R + Wind + Temp, data=airquality) eff.date.1 <- Effect("Date.num", m1.date) plot(eff.date.1, axes=list(x=list(Date.num=list(lab="Date", ticks=list(at=levels2dates(eff.date.1, "Date.num", "1970-01-01"))), rotate=45)), main="Date Effect") @ \centerline{\includegraphics[width=4in]{figure/figdates1-1.pdf}} <>= plot(eff.date.1, axes=list(x=list(Date.num=list(lab="Date", ticks=list(at=levels2dates(eff.date.1, "Date.num", "1970-01-01", n=4))))), main="Date Effect") @ \centerline{\includegraphics[width=4in]{figure/figdates2-1.pdf}} <<>>= eff.date.df <- as.data.frame(eff.date.1) eff.date.df$Date <- as.Date(eff.date.df$Date.num, origin="1970-01-01") eff.date.df @ <>= m2.date <- lm(Ozone ~ Date.num*Temp + Solar.R + Wind, data=airquality) eff.date.2 <- Effect(c("Date.num", "Temp"), m2.date, xlevels=6) plot(eff.date.2, axes=list(x=list(Date.num=list(lab="Date", ticks=list(at=levels2dates(eff.date.2, "Date.num", "1970-01-01", n=3))), rotate=45)), main="Date Effect by Temperature") @ \centerline{\includegraphics[width=6in]{figure/figdates3-1.pdf}} \subsubsection{\ar{y}: Vertical Axis Specification for Linear Models} The model \code{lm2} has a transformed response \lcode{prestige}, and ``untransforming" the response to arithmetic scale may be desirable. This can be accomplished with the \ar{y} sub-argument, which has two sub-arguments named \vn{transform} and \vn{type} that together control the scale and labeling of the vertical axis. There are three options for drawing the predictor effect plot for a numeric response like\linebreak \lvn{prestige}: <>= # default: plot(predictorEffects(lm2, ~ education), main="Default log(prestige)") # Change only tick-mark labels to arithmetic scale: plot(predictorEffects(lm2, ~ education), main="log(prestige), Arithmetic Ticks", axes=list(y=list(transform=list(trans=log, inverse=exp), lab="prestige", type="rescale"))) # Replace log(presige) by prestige: plot(predictorEffects(lm2, ~ education), main="Prestige in Arithmethic Scale", axes=list(y=list(transform=exp, lab="prestige"))) @ \includegraphics[width=.33\textwidth]{figure/fig33-1.pdf} \includegraphics[width=.33\textwidth]{figure/fig33-2.pdf} \includegraphics[width=.33\textwidth]{figure/fig33-3.pdf} \noindent The first plot is the default, with a log-response. In the second plot, the \ar{transform} sub-argument specifies the transformation of the response and its inverse, and the sub-argument \code{type="rescale"} changes the tick marks on the vertical axis to arithmetic scale. In the third version, with \code{transform=exp, lab="prestige"}, the vertical axis now is in arithmetic scale, not log scale, although that may not be completely obvious in the example because $\log(x)$ is nearly linear: Look closely to see that the axis ticks marks in the second graph are unequally spaced, while those in the third graph are equally spaced and the plotted line in the latter is slightly curved. The help page \code{?plot.eff} provides a somewhat more detailed explanation of these options. As a second example we will reconstruct Figure~7.10 in \citet[Sec.~7.2]{fw19}. In that section, we fit a linear mixed-effects model to data from the \code{Blackmore} data frame in the \pkg{carData} package. \code{Blackmore} includes longitudinal data on amount of exercise for girls hospitalized for eating disorders and for similar control subjects who were not hospitalized. We transformed the response variable in the model, hours of \vn{exercise}, using a transformation in a modified Box-Cox power family that allows zero or negative responses, explained briefly by \citet[Sec.~3.4]{fw19} and more thoroughly by \citet{HawkinsWeisberg2017}. The fitted model is <<>>= library("lme4") # for lmer() Blackmore$tran.exercise <- bcnPower(Blackmore$exercise, lambda=0.25, gamma=0.1) mm1 <- lmer(tran.exercise ~ I(age - 8)*group + (I(age - 8) | subject), data=Blackmore) @ This model, with numeric predictor \vn{age} and factor predictor \vn{group}, is a linear mixed model with random intercepts and slopes for \vn{age} that vary by \vn{subject}. The response variable is a transformation of \vn{exercise} similar to the fourth root with adjustment for zero values; see \code{help("bcnPower")}. The predictor effect plot for the fixed effect of \vn{age} is <>= e1.mm1 <- predictorEffect("age", mm1) plot(e1.mm1, lines=list(multiline=TRUE), confint=list(style="auto")) @ \centerline{\includegraphics[width=4in]{figure/fig33a-1.pdf}} \noindent The plot clearly shows the difference in the average \vn{age} trajectory between the \level{control} and \level{patient} groups, with the fitted response for the latter having a larger slope. The graph is hard to decode, however, because the vertical axis is approximately in the scale of the fourth-root of hours of exercise, so untransforming the response may produce a more informative plot. Because the \fn{bcnPower} transformation is complex, the \pkg{car} package includes the function \fn{bcnPowerInverse} to reverse the transformation: <>= f.trans <- function(x) bcnPower(x, lambda=0.25, gamma=0.1) f.inverse <- function(x) bcnPowerInverse(x, lambda=0.25, gamma=0.1) plot(e1.mm1, lines=list(multiline=TRUE), confint=list(style="auto"), axes=list(x=list(age=list(lab="Age (years)")), y=list(transform=list(trans=f.trans, inverse=f.inverse), type="response", lab="Exercise (hours/week)")), lattice=list(key.args=list(x=.20, y=.75, corner=c(0, 0), padding.text=1.25)), main="" ) @ \centerline{\includegraphics[width=4in]{figure/fig33b-1.pdf}}\label{corner} \noindent The response scale is now in hours per week, and we see that hours of exercise increase more quickly on average in the patient group for older subjects. We use additional arguments in this plot to match \citet[Fig.~7.10]{fw19}, including moving the key inside of the graph (see Section~\ref{sec:key}), changing the axis labels, and removing the main title to the plot.\footnote{The code shown for this graph in \cite{fw19} uses ``legacy'' arguments, and is therefore somewhat different from the code given here. Both commands produce the same plot, however.} \subsubsection{\ar{y}: Vertical Axis Specification for Generalized Linear Models} Transforming the vertical axis for generalized linear models also uses the \ar{y} sub-argument to the \ar{axes} argument. You typically do not need to specify the \ar{transform} sub-argument because \fn{plot} obtains the right functions from the regression model's \ar{family} component. The \ar{type} sub-argument has the same three possible values as for linear models, but their interpretation is somewhat different: \begin{enumerate} \item Predictor effect plots in \code{type="link"} scale have a predictor on the horizontal axis and the vertical axis is in the scale of the linear predictor. For logistic regression, for example, the vertical axis is in log-odds (logit) scale. For Poisson regression with the log-link, the vertical axis is in log-mean (log-count) scale. \item Predictor effect plots in \code{type="response"} or mean scale are obtained by ``untransforming" the $y$ axis using the inverse of the link function. For the log-link, this corresponds to transforming the $y$ axis and plotting $\exp(y)$. For logistic regression, $y = \log[p/(1-p)]$ and, solving for $p$, $p=\exp(y)/[1+\exp(y)] = 1/[1 + \exp(-y)]$, so the plot in mean scale uses $1/[1+\exp(-y)]$ on the vertical axis. \item We also provide a third option, \code{type="rescale"}, which plots in linear predictor (e.g., logit) scale, but labels the tick marks on the vertical axis in mean (e.g., probability) scale. This third option, which retains the linear structure of the model but labels the vertical axis on the usually more familiar mean scale, is the default. \end{enumerate} We use the \code{Blowdown} data from the \pkg{alr4} package to provide examples. These data concern the probability of \emph{blowdown} \vn{y}, a tree being uprooted as the result of a major straight-line wind storm in the Boundary Waters Canoe Area Wilderness in 1999, modeled as a function of the diameter \code{d} of the tree, the local severity \code{s} of the storm, and the species \code{spp} of the tree. We fit a main-effects model and then display all three predictor effect plots: <<>>= data("Blowdown", package="alr4") gm1 <- glm(y ~ log(d) + s + spp, family=binomial, data=Blowdown) @ <>= plot(predictorEffects(gm1), axes=list(grid=TRUE, x=list(rug=FALSE, rotate=35))) @ \centerline{\includegraphics[width=.9\textwidth]{figure/fig34-1.pdf}} \noindent The \ar{rug=FALSE} sub-argument to \ar{x} suppresses the rug plot that appears by default at the bottom of graphs for numeric predictors, and the \ar{grid} sub-argument to \ar{axes} adds background grids. The \ar{rotate} sub-argument prints the horizontal tick labels at an angle to avoid overprinting. Interpretation of GLM predictor effect plots in link scale is similar to predictor effect plots for linear models, and all the modifications previously described can be used for these plots. Because the default is \code{type="rescale"}, the vertical axis is in linear predictor scale, which is the log-odds or logit for this logistic regression example, but the vertical axis labels are in mean (probability) scale, so the tick-marks are not equally spaced. The next three graphs illustrate the possible values of the argument \ar{type}: <>= e1.gm1 <- predictorEffect("spp", gm1) plot(e1.gm1, main="type='rescale'", axes=list(y=list(type="rescale", lab="logit scale, probability labels"), x=list(rotate=30), grid=TRUE)) plot(e1.gm1, main="type='link'", axes=list(y=list(type="link", lab="logit scale, logit labels"), x=list(rotate=30), grid=TRUE)) plot(e1.gm1, main="type='response'", axes=list(y=list(type="response", grid=TRUE, lab="probabilty scale, probability labels"), x=list(rotate=30), grid=TRUE)) @ \includegraphics[width=.33\textwidth]{figure/fig35-1.pdf} \includegraphics[width=.33\textwidth]{figure/fig35-2.pdf} \includegraphics[width=.33\textwidth]{figure/fig35-3.pdf} \noindent The first two graphs show the same plot, but in the first the tick-marks on the vertical axis are unequally spaced and are in probability scale, while in the second the tick-marks are equally spaced and are in log-odds scale. In the third graph, the vertical axis has been transformed to probability scale, and the corresponding tick-marks are now equally spaced. The predictor effects plot for species would be easier to understand if the levels of the factor were ordered according to the estimated log-odds of blowdown. First, we need to recover the fitted values in link scale, which are log-odds of blowdown for a logistic model. The fitted log-odds are stored in \code{as.data.frame(e1.gm1)\$fit} using the \code{e1.gm1} object previously computed: <>= or <- order(as.data.frame(e1.gm1)$fit) # order smallest to largest Blowdown$spp1 <- factor(Blowdown$spp, # reorder levels of spp levels=levels(Blowdown$spp)[or]) gm2 <- update(gm1, ~ . - spp + spp1) # refit model plot(predictorEffects(gm2, ~ spp1), main="type='response', ordered", axes=list(y=list(type="response", lab="probabilty scale, probability labels"), x=list(rotate=30, spp=list(lab="Species")), grid=TRUE)) @ \centerline{\includegraphics[width=.55\textwidth]{figure/fig36-1.pdf}} \noindent The separation of species into two groups of lower and higher probability species is reasonably clear after ordering, with paper birch more susceptible to blowdown than the other species and possibly in a group by itself. \subsection{The \ar{lines} Group: Specifying Plotted Lines} The \ar{lines} argument group allows the user to specify the color, type, thickness, and smoothness of lines. This can be useful, for example, if the colors used by \pkg{effects} by default are for some reason unacceptable, such as for publications in which only black or gray-scale lines are permitted. The most common use of this argument group is to allow more than one line to be plotted on the same graph or panel via the \ar{multiline} sub-argument. \subsubsection{\ar{multiline} and \ar{z.var}: Multiple Lines in a Plot} Default predictor effect plots with conditioning predictors generate a separate plot for each level of the conditioning variable, or for each combination of levels if there is more than one conditioning variable. For an example, we add the \code{log(d):s} interaction to the model \code{gm1}, and generate the predictor effect plots for \vn{s} and for \vn{d}: <>= gm3 <- update(gm2, ~ . + s:log(d)) # add an interaction plot(predictorEffects(gm3, ~ s + d), axes=list(x=list(rug=FALSE, rotate=90), y=list(type="response", lab="Blowdown Probability")), lattice=list(layout=c(1, 5))) @ \centerline{\includegraphics[width=0.75\textwidth]{figure/fig37-1.pdf}} \noindent Setting the sub-argument \code{type="response"} for the \ar{y} axis plots the response on the probability scale. Setting \code{layout=c(1, 5)} arranges each predictor effect plot in 1 column of 5 rows. See the description of the \ar{lattice} argument in Section~\ref{sec:lattice}. The predictor effect plot for \vn{s} conditions on the level of \vn{d}, and displays the plot of the fitted values for \vn{y} versus \vn{s} in a separate panel for each value of \vn{d}. Similarly, the predictor effect plot for \vn{d} displays a separate panel for each conditioning level of \vn{s}. Confidence bands are displayed by default around each fitted line. These two graphs are based on essentially the same fitted values, with the values of the interacting predictors \vn{s} and \vn{d} varying, and fixing the factor predictor \vn{spp} to its distribution in the data, as described in Section~\ref{sec:facpred}. Concentrating on the graph at the right for the focal predictor \vn{d}, when \vn{s} is very small the probability of blowdown is estimated to be in the range of about .05 to .3 for any value of \vn{d}, but for larger values of \vn{s}, the probability of blowdown increases rapidly with \vn{d}. Similar comments can be made concerning the predictor effect plot for \vn{s}. Setting \code{multiline=TRUE} superimposes the lines for all the conditioning values in a single graph. In the example below, we reduce the number of levels of the conditioning variable for each predictor effect plot to three explicit values each to produce simpler graphs, although this is not required. The \ar{xlevels} argument changes the number of levels for the conditioning predictors, but does not affect the number of levels for the focal predictor. This latter quantity could be changed with the \ar{focal.levels} argument, but the default value of 50 evaluations is appropriate for graphing effects. <>= plot(predictorEffects(gm3, ~ s + d, xlevels=list(d=c(5, 40, 80), s=c(0.1, 0.5, 0.9))), axes=list(grid=TRUE, x=list(rug=FALSE), y=list(type="response", lab="Blowdown probability")), lines=list(multiline=TRUE)) @ \centerline{\includegraphics[width=\textwidth]{figure/fig38-1.pdf}} \noindent In each graph, we kept, more or less, the lowest, middle, and highest values of the conditional predictor for the interaction. We also added a grid to each graph. Multiline plots by default omit confidence bands or intervals, but these can be included using the \ar{confint} argument discussed in Section~\ref{sec:confint}. By default, different values of the conditioning predictor are distinguished by color, and a key is provided. The placement and appearance of the key are controlled by the \ar{key.args} sub-argument in the \ar{lattice} group discussed in Section~\ref{sec:key}. When the conditioning group includes two or more predictors, and certainly when it includes three or more predictors, multiline plots are almost always helpful because otherwise the resulting array of panels becomes too complicated. Suppose that we add the \code{spp:log(d)} interaction to the illustrative model. The predictor effect plot for \vn{d} now includes both \vn{s} and \vn{spp} in the conditioning set because \vn{d} interacts with both of these predictors: <>= gm4 <- update(gm3, ~ . + spp:log(d)) plot(predictorEffects(gm4, ~ d, xlevels=list(s=c(0.1, 0.5, 0.9))), axes=list(grid=TRUE, y=list(type="response"), x=list(rug=FALSE)), lines=list(multiline=TRUE)) @ \centerline{\includegraphics[width=\textwidth]{figure/fig39-1.pdf}} \noindent This plot now displays the lines for all conditioning values of \vn{s} within the panel for each level of the conditioning factor \vn{spp}. Compare this graph to the much more confusing plot in which different lines are drawn for the nine levels of the conditioning factor \vn{spp}, obtained by using the \ar{z.var} sub-argument in the \ar{lines} group: <>= plot(predictorEffects(gm4, ~ d, xlevels=list(s=c(0.1, 0.5, 0.9))), axes=list(grid=TRUE, y=list(type="response"), x=list(rug=FALSE)), lines=list(multiline=TRUE, z.var="spp", lty=1:9), lattice=list(layout=c(3, 1))) @ \centerline{\includegraphics[width=.7\textwidth]{figure/fig310-1.pdf}} \noindent The \ar{z.var} sub-argument for \ar{lines} selects the predictor that determines the lines within a panel and the remaining predictors, here just \vn{s}, distinguish the panels. The default choice of \ar{z.var} is usually, but not always, appropriate. We also use the \ar{lattice} argument to display the array of panels in 3 columns and 1 row, and differentiate the lines by line type and color using arguments discussed next. \subsubsection{\ar{col}, \ar{lty}, \ar{lwd}, \ar{spline}: Line Color, Type, Width, Smoothness}\label{sec:line.color.etc} Different lines in the same plot are differentiated by default using color. This can be modified by the sub-arguments \ar{lty}, \ar{lwd} and \ar{col} to set line types, widths, and colors, respectively. For example, in the last graph shown you can get all black lines of different line types using \code{lines=list(multiline=TRUE, col="black", lty=1:9)}, or using a gray scale, \code{lines=}\linebreak \code{list(multiline=TRUE, col=gray((1:9)/10))}. The \fn{plot} method for effect objects by default uses smoothing splines to interpolate between plotted points. Smoothing can be turned off with \code{splines=FALSE} in the \ar{lines} argument, but we rarely expect this to be a good idea. The number of values at which the focal predictor is evaluated is set with the \ar{focal.levels} argument, and it defaults to 50. In any case, more than three evaluations, and possibly many more, should be used for a reasonable spline approximation. \subsection{The \ar{confint} Group: Specifying Confidence Interval Inclusion and Style}\label{sec:confint} The \ar{confint} argument group controls the inclusion and appearance of confidence intervals and regions. This argument has three sub-arguments. The \ar{style} sub-argument is either \code{"bars"}, for confidence bars, typically around the estimated adjusted mean for a factor level; \code{"bands"}, for shaded confidence bands, typically for numeric focal predictors; \code{"auto"}, to let the program automatically choose between \code{"bars"} and \code{"bands"}; \code{"lines"}, to draw only the edges of confidence bands with no shading; or \code{"none"}, to suppress confidence intervals. The default is \code{"auto"} when \code{multiline=FALSE} and \code{"none"} when \code{multiline=TRUE}. Setting \code{confint="auto"} produces bars for factors and bands for numeric predictors. For example: <>= plot(predictorEffects(gm3, ~ d, xlevels=list(s=c(0.1, 0.5, 0.9))), axes=list(grid=TRUE, x=list(rug=FALSE), y=list(type="response")), lines=list(multiline=TRUE), confint=list(style="auto")) @ \centerline{\includegraphics[width=.5\textwidth]{figure/fig311-1.pdf}} \noindent In this example the confidence bands are well separated, so including them in a multiline graph isn't problematic; in other cases, overlapping confidence bands produce an artistic but uninterpretable mess. With a factor focal predictor, we get: <>= gm5 <- update(gm2, ~ . + spp:s) plot(predictorEffects(gm5, ~ spp, xlevels=list(s=c(0.1, 0.5, 0.9))), axes=list(grid=TRUE, y=list(type="response"), x=list(rug=FALSE, rotate=30)), lines=list(multiline=TRUE), confint=list(style="auto")) @ \centerline{\includegraphics[width=.75\textwidth]{figure/fig312-1.pdf}} \noindent The error bars for the various levels of \vn{s} are slightly staggered to reduce over-plotting. Two additional arguments, \vn{col} and \vn{alpha}, control respectively the color of confidence bars and regions and the transparency of confidence regions. Users are unlikely to need these options. Finally, the type of confidence interval shown, either pointwise or Scheff\'{e} corrected for multiple comparisons, is controlled by the \ar{se} argument to the \fn{predictorEffect} or \fn{Effect} function (see Section~\ref{sec:se}). \subsection{The \ar{lattice} Group: Specifying Standard \textbf{lattice} Package Arguments}\label{sec:lattice} The \fn{plot} methods defined in the \pkg{effects} package use functions in the \pkg{lattice} package \citep{sarkar08}, such as \fn{xyplot}, to draw effect plots, which often comprise rectangular arrays of panels. In particular, the \fn{plot} method for the \class{eff} objects returned by the \fn{Effect} function are \class{trellis} objects, which can be manipulated in the normal manner. ``Printing'' a returned effect-plot object displays the plot in the current \R{} graphics device. The \ar{lattice} group of arguments to the \fn{plot} method for effect objects may be used to specify various standard arguments for \pkg{lattice} graphics functions such as \fn{xyplot}. In particular, you can control the number of rows and columns when panels are displayed in an array, modify the key (legend) for the graph, and specify the contents of the ``strip" displayed in the shaded region of text above each panel in a \pkg{lattice} array. In addition, the \ar{array} sub-argument, for advanced users, controls the layout of multiple predictor effect plots produced by the \fn{predictorEffects} function. \subsubsection{\ar{key.args}: Modifying the Key}\label{sec:key} A user can modify the placement and appearance of the key with the \ar{key.args} sub-argument, which is itself a list. For example: <>= plot(predictorEffects(gm5, ~ spp, xlevels=list(s=c(0.1, 0.5, 0.9))), rug=FALSE, axes=list(grid=TRUE, y=list(type="response"), x=list(rotate=30)), lines=list(multiline=TRUE), confint=list(style="auto"), lattice=list(key.args=list(space="right", columns=1, border=TRUE, fontfamily="serif", cex=1.25, cex.title=1.5))) @ \centerline{\includegraphics[width=.99\textwidth]{figure/fig314-1.pdf}} \noindent The sub-argument \code{space="right"} moves the key to the right of the graph, overriding the default \code{space="top"}. Alternatively the key can be placed inside the graph using the \ar{x}, \ar{y}, and \ar{corner} sub-arguments, as illustrated in the graph on page~\pageref{corner}. The choices for \ar{fontfamily} are \code{"sans"} and \code{"serif"}, and affect only the key; the rest of the plot uses \code{"sans"}. The sub-arguments \ar{cex} and \ar{cex.title} control the relative sizes of the key entries and the key title, respectively. Finally, any argument documented in \code{help("xyplot")} in the \code{key} section can be set with this argument. If you use the default \code{space="top"} for placement of the key, you may wish to adjust the number of columns in the key, particularly if the level names are long. \subsubsection{\ar{layout}: Controlling Panel Placement}\label{sec:layout} The \ar{layout} sub-argument to the \ar{lattice} argument allows a user to customize the layout of multiple panels in a predictor effect plot; for example: <>= plot(predictorEffects(gm3, ~ s + d, xlevels=list(s=6, d=6)), axes=list(x=list(rug=FALSE, rotate=90), y=list(ticks=list(at=c(.999, .99, .95, .8, .5, .2, .05)))), lattice=list(layout=c(3, 2))) @ \centerline{\includegraphics[width=\textwidth]{figure/fig313-1.pdf}} \noindent Here, the \ar{layout} sub-argument specifies an array of 3 columns and 2 rows for each of the predictor effect plots. \subsubsection{\ar{array}: Multiple Predictor Effect Plots}\label{sec:array} If you create several predictor effect objects with the \fn{predictorEffects} function, the \fn{plot} method for the resulting \class{predictorefflist} object divides the \pkg{lattice} graphics device into a rectangular array of sub-plots, so that the individual predictor effect plots, each potentially with several panels, are drawn without overlapping. An alternative is for the user to generate the predictor effect plots separately, subsequently supplying the \ar{array} sub-argument to \fn{plot} directly to create a custom meta-array of predictor effect plots; this argument is ignored, however, for \class{predictorefflist} objects produced by \fn{predictorEffects}. Suppose, for example, that we want to arrange the two predictor effect plots for the previous example vertically rather than horizontally. One way to do that is to save the object produced by \fn{predictorEffects} and to plot each of its two components individually, specifying the \ar{position} or \ar{split} and \ar{more} arguments to the \fn{print} method for \class{trellis} objects: see \code{help("print.trellis")}. Another approach is to generate the plots individually using \fn{predictorEffect} and to specify the \ar{array} sub-argument to \fn{plot}, as follows: <>= plot(predictorEffect("s", gm3, xlevels=list(d=6)), axes=list(x=list(rug=FALSE, rotate=90), y=list(ticks=list(at=c(.999, .99, .95, .8, .5, .2, .05)))), lattice=list(layout=c(3, 2), array=list(row=1, col=1, nrow=2, ncol=1, more=TRUE))) plot(predictorEffect("d", gm3, xlevels=list(s=6)), axes=list(x=list(rug=FALSE, rotate=90), y=list(ticks=list(at=c(.999, .99, .95, .8, .5, .2, .05)))), lattice=list(layout=c(3, 2), array=list(row=2, col=1, nrow=2, ncol=1, more=FALSE))) @ \centerline{\includegraphics[width=.65\textwidth]{figure/fig313b-1.pdf}} \noindent In each case, the \ar{row} and \ar{col} sub-arguments indicate the position of the current graph in the meta-array; \ar{nrow} and \ar{ncol} give the dimensions of the meta-array, here 2 rows and 1 column; and \ar{more} indicates whether there are more elements of the meta-array after the current graph. \subsubsection{\ar{strip}: Modifying the Text at the Tops of Panels}\label{sec:strip} Lattice graphics with more than one panel typically provide a text label at the top of each panel in an area called the \emph{strip}. The default strip text contains the name of the conditioning predictor and the value to which it is set in the panel; if there are more than one conditioning predictor, then all of their names and corresponding values are shown. For example: <>= plot(predictorEffects(gm4, ~ d, xlevels=list(s=c(0.1, 0.5, 0.9))), axes=list(grid=TRUE, x=list(rug=FALSE), y=list(type="response")), lines=list(multiline=TRUE, z.var="spp", lty=1:9), lattice=list(layout=c(3, 1), strip=list(factor.names=TRUE, values=TRUE, cex=1.5))) @ \centerline{\includegraphics[width=.85\textwidth]{figure/fig316-1.pdf}} \noindent Setting \code{factor.names=FALSE} (the default is \code{TRUE}) displays only the value, and not the name, of the conditioning predictor in each strip; usually, this is desirable only if the name is too long to fit, in which case you may prefer to rename the predictor. Setting \code{values=FALSE} replaces the conditioning value with a line in the strip that represents the value: The line is at the left of the strip for the smallest conditioning value, at the right for the largest value, and in a proportional intermediate position in between the two extremes. The most generally useful sub-argument is \ar{cex}, which allows you to reduce or expand the relative size of the text in the strip, in this case increasing the size to 150\% of standard size. \subsection{\ar{symbols}: Plotting symbols} Symbols are used to represent adjusted means when the focal predictor is a factor. You can control the symbols used and their relative size: <>= gm5 <- update(gm2, ~ . + spp:s) plot(predictorEffects(gm5, ~ spp, xlevels=list(s=c(0.1, 0.5, 0.9))), symbols=list(pch=15:17, cex=1.5), axes=list(grid=TRUE, y=list(type="response"), x=list(rotate=30)), lines=list(multiline=TRUE), confint=list(style="auto"), lattice=list(key.args=list(cex=1.5, cex.title=1.5))) @ \centerline{\includegraphics[width=.95\textwidth]{figure/fig315-1.pdf}} \noindent We use the \ar{pch} sub-argument to set the symbol number for plotted symbols; you can enter the commands \code{plot(1:25, pch=1:25)} and \code{lines(1:25, lty=2, type="h")} to see the 25 plotting symbols in \R{}. The sub-argument \ar{pch} can also be a character vector, such as \code{letters[1:10]}. In this example, we set \code{cex=1.5} to increase the symbol size by the factor 1.5. Because only one value is given, it is recycled and used for all of the symbols. We need to change the size of the symbols in the key separately, as we do here via the \ar{key.args} sub-argument to the \ar{lattice} argument (see Section~\ref{sec:key}). \section{Displaying Residuals in Predictor Effect Plots}\label{sec:res} \citet{fw19b} introduce methodology for adding partial residuals to a predictor effect or effect plot. This can be desirable to display variation in data around a fitted partial regression surface or to diagnose possible lack of fit, as the resulting plots are similar to traditional component-plus-residual plots \citep[Sec.~8.4]{fw19}. The predictor effect plot for a numeric focal predictor that does not interact with other predictors is equivalent to a standard component-plus-residual plot; for example: <>= lm5 <- lm(prestige ~ log(income) + education + women + type, Prestige) plot(predictorEffects(lm5, residuals=TRUE), axes=list(grid=TRUE, x=list(rotate=30)), partial.residuals=list(smooth=TRUE, span=0.75, lty="dashed")) @ \centerline{\includegraphics[width=.99\textwidth]{figure/fig51-1.pdf}} \noindent The partial residuals to be plotted are computed using the \ar{residuals} argument to the \fn{predictorEffect}, \fn{predictorEffects}, or \fn{Effect} function. For the numeric predictors \vn{income}, \vn{education}, and \vn{women}, the plotted points are each equal to a point on the fitted blue line, representing the partial fit, plus the corresponding residual. For \vn{income}, the fitted partial-regression line in curved because of the log transformation of the predictor, but the partial-regression function is a straight line for the other two numeric predictors. The dashed line produced by \code{lty="dashed"} in the same magenta color as the plotted points on the graph, is a loess nonparametric-regression smooth of the points. The sub-argument \code{smooth=TRUE} is the default if residuals are present in the effect object to be plotted. The sub-argument \code{span=0.75} adjusts the span of the loess smoother from the default of \code{2/3}---an unnecessary adjustment here specified simply to illustrate how to set the span. If the model adequately represents the data, then the dashed magenta line should approximately match the solid blue partial-regression line, which represents the fitted model. For the factor \vn{type}, the points are jittered horizontally to separate them visually, because the only possible horizontal coordinates are at the three distinct factor levels. Smooths are not fit to factors and instead the conditional means of the partial residuals are plotted as solid magenta dots; in the current model, the magenta dots and the blue dots representing the fitted adjusted means of the response at the levels of \vn{name} necessarily match. The \fn{plot} method for effect objects has a \ar{partial.residuals} argument, with several sub-arguments that control how partial residuals are displayed. In the command above, we used the sub-argument \vn{smooth=TRUE} to add the smoother, which is the default when residuals are included in the effect object, and \ar{lty="dashed"} to change the line type for the smooth from the default solid line to a dashed line. All the \vn{smooth} sub-arguments are described in \code{help("plot.eff")}. For a second example, we fit a linear model with an interaction to the \code{UN} data set in the \pkg{carData} package, modelling national \vn{infantMortality} rate (infant deaths per 1000 live births) as a function of \vn{ppgdp}, per person GDP (in U.S.~dollars), and country \vn{group} (OECD nations, African nations, and other nations). The data are for roughly 200 nations of the world and are from approximately 2009 to 2011: <>= options(scipen=10) # suppress scientific notation lm6 <- lm(infantMortality ~ group*ppgdp, data=UN) plot(predictorEffects(lm6, ~ ppgdp, partial.residuals=TRUE), axes=list(x=list(rotate=25), y=list(lim=c(0, 150))), id=list(n=1), lattice=list(layout=c(3, 1))) @ \centerline{\includegraphics[width=.99\textwidth]{figure/fig52-1.pdf}} \noindent The predictor effect plot for \vn{ppgdp} conditions on the factor \ar{group} because of the interaction between these two predictors. Several problems are apparent in this plot: The \ar{id} argument is used to identify the most unusual point in each panel, as described in detail in \code{help("plot.eff")}. Turkey has higher than predicted infant mortality for the \level{oecd} group; Afghanistan, in the \level{other} group, has infant mortality much higher than predicted; and Equatorial Guinea is clearly unusual for the \level{africa} group. In addition, the smooths through the points do not match the fitted lines in the \level{other} and \level{africa} groups. We use the command \code{options(scipen=10)} to suppress annoying scientific notation in the tick-mark labels on the horizontal axis, and instead rotate these labels so that they fit without over-plotting. Log-transforming both the predictor \vn{ppgdp} and the response \vn{infantMortality} produces a better fit to the data: <>= lm7 <- lm(log(infantMortality) ~ group*log(ppgdp), data=UN) plot(predictorEffects(lm7, ~ ppgdp, partial.residuals=TRUE), axes=list(x=list(rotate=25)), id=list(n=1), lattice=list(layout=c(3, 1))) @ \centerline{\includegraphics[width=.99\textwidth]{figure/fig53-1.pdf}} \noindent Equatorial Guinea is still anomalous, however. Rescaling the vertical axis to arithmetic scale produces a slightly different, but possibly useful, picture: <>= plot(predictorEffects(lm7, ~ ppgdp, partial.residuals=TRUE), axes=list(x=list(rotate=25), y=list(transform=list(trans=log, inverse=exp), type="response", lab="Infant Mortality")), id=list(n=1), lattice=list(layout=c(3, 1))) @ \centerline{\includegraphics[width=.99\textwidth]{figure/fig54-1.pdf}} Partial residuals can be added to effect plots for linear or generalized linear models in the default link scale, and to effect plots for linear or generalized linear mixed models. \subsection{Using the \fn{Effect} Function With Partial Residuals} In most instances, predictor effect plots produced by \fn{predictorEffect} or \fn{predictorEffects} visualize a fitted model in the most natural manner, but sometimes in looking for lack of fit, we want to plot against arbitrary combinations of predictors. The more general \fn{Effect} function is capable of doing that. Recall, for example, the additive model \code{lm2} fit to the \code{Prestige} data: <<>>= S(lm2) @ Plotting partial residuals for the predictors \vn{income} and \vn{type} simultaneously reveals an unmodeled $\vn{income} \times \vn{type}$ interaction: <>= plot(Effect(c("income", "type"), lm2, residuals=TRUE), axes=list(x=list(rotate=30)), partial.residuals=list(span=0.9), layout=c(3, 1)) @ \centerline{\includegraphics[width=0.85\textwidth]{figure/fig55-1.pdf}} \section{Polytomous Categorical Responses} The \pkg{effects} package produces special graphs for ordered and unordered polytomous categorical response variables. In an ordinal regression, the response is an ordered categorical variable with three or more levels. For example, in a study of women's labor force participation that we introduce below, the response is not working outside the home, working part time, or working full time. The proportional-odds model \citep[Sec.~6.9]{fw19} estimates the probability of a response in each of these three categories given a linear combination of regressors defined by a set of predictors, assuming a logit link function. We illustrate the proportional-odds model with the \code{Womenlf} data set in the \pkg{carData} package, for young married Canadian women's labor-force participation, using the \fn{polr} function in the \pkg{MASS} package to fit the model: <<>>= library("MASS") # for polr() Womenlf$partic <- factor(Womenlf$partic, levels=c("not.work", "parttime", "fulltime")) # order response levels or1 <- polr(partic ~ log(hincome) + children, data=Womenlf) S(or1) @ The response variable \code{partic} initially has its levels in alphabetical order, which does not correspond to their natural ordering. We therefore start by reordering the levels to increase from \level{not.work}, to \level{parttime} work, to \level{fulltime} work. The predictors are the numeric variable \vn{hincome} (husband's income), which enters the model in log-scale, and the dichotomous factor \vn{children}, presence of children in the household. The model summary is relatively complex, and is explained in \citet[Sec.~6.9]{fw19}. Predictor effect plots greatly simplify interpretation of the fitted model: <>= plot(predictorEffects(or1), axes=list(grid=TRUE), lattice=list(key.args=list(columns=1))) @ \centerline{\includegraphics[width=.9\textwidth]{figure/fig41-1.pdf}} \noindent Unlike predictor effect plots for generalized linear models, the default scaling for the vertical axis is the probability scale, equivalent to \code{axes=list(y=list(type="response"))} for a GLM, and the alternative is \code{axes=list(y=list(type="logit"))}, which is analogous to \code{type="link"} for a GLM.\footnote{The logits plotted, however, correspond to the individual-level probabilities and are not the ordered logits in the definition of the proportional-odds model.} Confidence bands are present by default, unless turned off with the argument \code{confint=list(style="none")}. Numeric focal predictors are by default evaluated at 50 points. The plot for \vn{hincome} suggests high probability of full-time work if husband's income is low, with the probability of full-time work sharply decreasing to about \$15,000 and then nearly leveling off at about .1 to .2. The probability of not working rapidly increases with husband's income, while the probability of working part time is fairly flat. A similar pattern is apparent for children present in the home, with full-time work much less prevalent and not working much more prevalent when children are present than when they are absent. \emph{Stacked area plots} are sometimes more useful for examining polytomous response models; for example: <>= plot(predictorEffects(or1), axes=list(grid=TRUE, y=list(style="stacked")), lattice=list(key.args=list(columns=1))) @ \centerline{\includegraphics[width=.95\textwidth]{figure/fig62-1.pdf}} \noindent For each fixed value on the horizontal axis, the vertical axis ``stacks" the probabilities in the three response categories. For example, with children absent from the household and \vn{hincome} set to its mean, nearly 30\% of women did not work outside the home, about 20\% worked part time, and the remaining approximate 50\% worked full time. Some ordinal-response models produced by the functions \fn{clm}, \fn{clm2}, and \fn{clmm} in the \pkg{ordinal} package can be used with the \pkg{effects} package. To work with model objects produced by these functions, you must also load the \pkg{MASS} package. The \pkg{effects} package can also draw similar graphs for the more general multinomial logit model, in which the polytomous categorical response has unordered levels \citep[see][Sec.~6.7]{fw19}. The details of the model, its parameters, and its assumptions are different from those of the proportional-odds model and other ordered-response models, but predictor effect plots for these models are similar. As an example, we use the \code{BEPS} data set in the \pkg{carData} package, consisting of about 1,500 observations from the 1997-2001 British Election Panel Study. The response variable, \vn{vote}, is party choice, one of \level{Liberal Democrat}, \level{Labour}, or \level{Conservative}. There are numerous predictors of \vn{vote} in the data set, and we fit the model <<>>= library("nnet") # for multinom() mr1 <- multinom(vote ~ age + gender + economic.cond.national + economic.cond.household + Blair + Hague + Kennedy + Europe*political.knowledge, data=BEPS) @ There are nine predictors, seven of which are scales with values between 0 and 5 concerning respondents' attitudes; these predictors enter the model as main effects. The remaining two predictors are scales between 0 and 3 for \code{political.knowledge} and between 1 and 11 for \code{Europe} (attitude toward European integration of the UK in the European Union, with high values representing ``Euroscepticism'', a \emph{negative} attitude toward Europe); these predictors enter the model with a two-factor interaction. Drawing all nine predictor effect plots simultaneously is not a good idea because the plots won't fit reasonably in a single display. We therefore draw only a few of the plots at a time: <>= plot(predictorEffects(mr1, ~ age + Blair + Hague + Kennedy), axes=list(grid=TRUE, x=list(rug=FALSE)), lattice=list(key.args=list(columns=1)), lines=list(multiline=TRUE, col=c("blue", "red", "orange"))) @ \centerline{\includegraphics[width=.9\textwidth]{figure/fig42-1.pdf}} \noindent We use optional arguments to get a multiline plot, with a grid and no rug plot, and to modify the key. The color specification for the lines represents the traditional colors of the three parties. Interpreting these plots is challenging: For example, the probability of voting Labour decreases with age, increases with attitude toward the Labour leader Blair, strongly decreases with attitude toward the Conservative leader Hague, and is relatively unaffected by attitude toward the Liberal Democrat leader Kennedy. In general, a positive attitude toward a party leader increases the probability of voting for that leader's party, as one would expect. Of course, the causal direction of these relationships is unclear. We next turn to the interaction between \vn{Europe} and \vn{political.knowledge}, this time drawing stacked area displays: <>= plot(predictorEffects(mr1, ~ Europe + political.knowledge, xlevels=list(political.knowledge=0:3, Europe=c(1, 6, 11))), axes=list(grid=TRUE, x=list(rug=FALSE, Europe=list(ticks=list(at=c(1, 6, 11))), political.knowledge=list(ticks=list(at=0:3))), y=list(style="stacked")), lines=list(col=c("blue", "red", "orange")), lattice=list(key.args=list(columns=1), strip=list(factor.names=FALSE))) @ \centerline{\includegraphics[width=\textwidth]{figure/fig43-1.pdf}} \noindent The \ar{lines} argument is used to specify the colors for the stacked areas representing the parties. Both effect plots are of nearly the same fitted values,\footnote{Not exactly the same because in each plot the focal predictor takes on 50 values and the conditioning predictor 3 or 4 values.} in the first graph with \code{Europe} varying and conditioning on \code{political.knowledge}, and in the second with \code{political.knowledge} varying and conditioning on \code{Europe}. Setting \code{strip=} \code{list(factor.names=FALSE)} suppresses the names of the conditioning predictor in each effect plot; these names are too long for the strips at the tops of the panels. From the first graph, preference for the Conservative Party increases with \vn{Europe} for respondents with high political knowledge, but not for those with low political knowledge. More generally, voters with high political knowledge are more likely to align their votes with the positions of the parties, Eurosceptic for the Convervatives, pro-Europe for Labour and the Liberal Democrats, than are voters with low political knowledge. \section{The Lattice Theme for the effects Package} The \pkg{effects} package uses the \fn{xyplot} and \fn{barchart} functions in the standard \pkg{lattice} package \citep{sarkar08} to draw effect plots. The \pkg{lattice} package has many options for customizing the appearance of graphs that are collected into a \emph{lattice theme}. We created a custom theme for use with the \pkg{effects} package that automatically supersedes the default Lattice theme when the \pkg{effects} package is loaded, \emph{unless the} \pkg{lattice} \emph{package has been previously loaded}. You can invoke the \pkg{effects} package theme directly by the command <>= effectsTheme() @ You can also customize the \pkg{effects} package Lattice theme; see \code{help("effectsTheme")}. Finally, because \fn{plot} methods in the \pkg{effects} package return lattice objects, these objects can be edited and manipulated in the normal manner, for example by functions in the \pkg{latticeExtra} package \citep{SarkarAndrews2016}. \bibliography{predictor-effects-gallery} \end{document} effects/build/0000755000176200001440000000000015143646012012772 5ustar liggesuserseffects/build/vignette.rds0000644000176200001440000000052015143646012015326 0ustar liggesusersRK0κv O"޺C7"kּn؆$?K^'рCTS#iv klb>j7@]셭U{7MQ5n0'F[Iѹkwڈ -NCi|LKŤ6{BUh[T> 3\W= e dԁ'{%CS].;~m3$3wN8lkG`> effects/build/partial.rdb0000644000176200001440000000007515143645733015132 0ustar liggesusersb```b`aed`b1 H020piּb C" 7effects/man/0000755000176200001440000000000015132433422012443 5ustar liggesuserseffects/man/effCoef.Rd0000644000176200001440000000354715140645420014302 0ustar liggesusers\name{effCoef} \alias{effCoef} \alias{effCoef.default} %- Also NEED an '\alias' for EACH other topic documented here. \title{ Function to get coefficient estimates from regression models for use in the effects package. } \description{ This function uses the \code{\link[insight]{get_parameters}} function in the \code{insight} package to get a vector of regression coefficients for use in the effects package. It converts the two-column \code{data.frame} returned by \code{get_parameters} to a vector of named elements. } \usage{ effCoef(mod, ...) \method{effCoef}{default}(mod, ...) } %- maybe also 'usage' for other objects documented here. \arguments{ \item{mod}{ A model object with a linear predictor representing fixed effects. } \item{...}{Additional parameter passed to \code{\link[insight]{get_parameters}}.} } \details{ The \code{\link[insight]{get_parameters}} function can be used to retrieve the coefficient estimates corresponding to a linear predictor for many regression models, and return them as a two column \code{data.frame}, with regressor names in the first column and estimates in the second column. This function converts this output to a named vector as is expected by the \code{effects} package. } \value{ A vector of coefficient estimates %\references{ %% ~put references to the literature/web site here ~ } \author{Sanford Weisberg \email{sandy@umn.edu}} \seealso{\code{\link[insight]{get_parameters}}, and vignette \href{https://CRAN.R-project.org/package=effects/vignettes/functions-supported-by-effects.pdf}{Regression Models Supported by the effects Package}.} %% ~Make other sections like Warning with \section{Warning }{....} ~ \examples{ m1 <- lm(prestige ~ type + income + education, Duncan) effCoef(m1) } % Add one or more standard keywords, see file 'KEYWORDS' in the % R documentation directory (show via RShowDoc("KEYWORDS")): \keyword{models} effects/man/effSources.Rd0000644000176200001440000000373215140657210015045 0ustar liggesusers\name{EffectMethods} \alias{effSources} \alias{effSources.default} \alias{effSources.gls} \alias{effSources.glmmPQL} \alias{effSources.rlmerMod} \alias{effSources.clm} \alias{effSources.clm2} \alias{effSources.clmm} \alias{effSources.betareg} \title{Functions For Constructing Effect Displays for Many Modeling Paradigms} \description{The \pkg{effects} package can be used with many different classes of regression models beyond the basic models described in the \code{\link{Effect}} help page. The \code{effSources} function is used to tell an \code{Effect} method where to find the information to compute effects. Details are given in the vignette \href{https://CRAN.R-project.org/package=effects/vignettes/functions-supported-by-effects.pdf}{Regression Models Supported by the effects Package}. Unless you are trying to extend \pkg{effects} to a different class of regression model, you will have no use for this function. } \usage{ \method{effSources}{default}(mod) \method{effSources}{gls}(mod) \method{effSources}{glmmPQL}(mod) \method{effSources}{rlmerMod}(mod) \method{effSources}{clm}(mod) \method{effSources}{clm2}(mod) \method{effSources}{clmm}(mod) \method{effSources}{betareg}(mod) } \arguments{ \item{mod}{a fitted model object of the appropriate class. The default method works for many regression models for which there is no specific method.} } \details{ \code{Effect} function methods by default expect regression objects to provide certain quantities, including a model formula, coefficient estimates, and the variance matrix of the estimates, in standard places. \code{effSources} methods return a list of the necessary quantities if they are not in standard places.} \value{See the vignette \href{https://CRAN.R-project.org/package=effects/vignettes/functions-supported-by-effects.pdf}{Regression Models Supported by the effects Package}.} \author{John Fox \email{jfox@mcmaster.ca}, Sanford Weisberg \email{sandy@umn.edu}} %\examples{ %} \keyword{internal} effects/man/plot.effect.Rd0000644000176200001440000007233615132433422015156 0ustar liggesusers\name{plot.effects} \alias{plot.effect} \alias{plot.effects} \alias{plot.predictoreff} \alias{plot.predictorefflist} \alias{plot.eff} \alias{plot.effpoly} \alias{plot.efflist} \alias{plot.mlm.efflist} \alias{[.efflist} \alias{levels2dates} \alias{levels2dates.eff} \alias{levels2dates.effpoly} \title{Plots of Effects and Predictor Effects} \description{ \code{plot} methods for \code{predictoreff}, \code{predictorefflist}, \code{eff}, \code{efflist} and \code{effpoly} objects created by calls other methods in the \code{effects} package. The plot arguments were substantially changed in mid-2017. For more details and many examples, see the \href{../doc/predictor-effects-gallery.pdf}{Predictor Effects Graphics Gallery} vignette. } \usage{ \method{plot}{eff}(x, x.var, main=paste(effect, "effect plot"), symbols=TRUE, lines=TRUE, axes, confint, partial.residuals, id, lattice, ..., # legacy arguments: multiline, z.var, rug, xlab, ylab, colors, cex, lty, lwd, ylim, xlim, factor.names, ci.style, band.transparency, band.colors, type, ticks, alternating, rotx, roty, grid, layout, rescale.axis, transform.x, ticks.x, show.strip.values, key.args, use.splines, residuals.color, residuals.pch, residuals.cex, smooth.residuals, residuals.smooth.color, show.fitted, span) \method{plot}{efflist}(x, selection, rows, cols, ask=FALSE, graphics=TRUE, lattice, ...) \method{plot}{predictoreff}(x, x.var, main = paste(names(x$variables)[1], "predictor effect plot"), ...) \method{plot}{predictorefflist}(x, selection, rows, cols, ask = FALSE, graphics = TRUE, lattice, ...) \method{plot}{effpoly}(x, x.var=which.max(levels), main=paste(effect, "effect plot"), symbols=TRUE, lines=TRUE, axes, confint, lattice, ..., # legacy arguments: type, multiline, rug, xlab, ylab, colors, cex, lty, lwd, factor.names, show.strip.values, ci.style, band.colors, band.transparency, style, transform.x, ticks.x, xlim, ticks, ylim, rotx, roty, alternating, grid, layout, key.args, use.splines) \method{plot}{mlm.efflist}(x, ...) levels2dates(effect, ...) \method{levels2dates}{eff}(effect, predictor, origin, evenly.spaced=TRUE, n, ...) \method{levels2dates}{effpoly}(effect, predictor, origin, evenly.spaced=TRUE, n, ...) } \arguments{ \item{x}{an object of class \code{"predictoreff"}, \code{"predictorefflist"}, \code{"eff"}, \code{"effpoly"}, \code{"efflist"}, \code{"mlm.efflist"}, or \code{"summary.eff"}, as appropriate.} \item{x.var}{the index (number) or quoted name of the covariate or factor to place on the horizontal axis of each panel of the effect plot. The default is the predictor with the largest number of levels or values. This argument is ignored with \code{predictoreff} objects.} \item{main}{the title for the plot, printed at the top; the default title is constructed from the name of the effect.} \item{symbols}{\code{TRUE}, \code{FALSE}, or an optional list of specifications for plotting symbols; if not given, symbol properties are taken from \code{superpose.symbol} in the lattice theme. See Detailed Argument Descriptions under Details for more information.} \item{lines}{\code{TRUE}, \code{FALSE}, or an optional list of specifications for plotting lines (and possibly areas); if not given, line properties are taken from \code{superpose.line} in the lattice theme. See Detailed Argument Descriptions under Details for more information.} \item{axes}{an optional list of specifications for the x and y axes; if not given, axis properties take generally reasonable default values. See Details for more information.} \item{confint}{an optional list of specifications for plotting confidence regions and intervals; if not given, generally reasonable default values are used. See Detailed Argument Descriptions under Details for more information.} \item{partial.residuals}{an optional list of specifications for plotting partial residuals for linear and generalized linear models; if not given, generally reasonable default values are used. See Detailed Argument Descriptions under Details for more information, along with the \href{../doc/partial-residuals.pdf}{Effect Displays with Partial Residuals} vignette.} \item{id}{an optional list of specifications for identifying points when partial residuals are plotted; if not specified, no points are labelled. See Detailed Argument Descriptions under Details for more information.} \item{lattice}{an optional list of specifications for various lattice properties, such as legend placement; if not given, generally reasonable default values are used. See Detailed Argument Descriptions under Details for more information.} \item{selection}{the optional index (number) or quoted name of the effect in an efflist object to be plotted; if not supplied, a menu of high-order terms is presented or all effects are plotted.} \item{rows, cols}{Number of rows and columns in the ``meta-array'' of plots produced for an \code{efflist} object; if either argument is missing, then the meta-layout will be computed by the \code{plot} method.} \item{ask}{if \code{selection} is not supplied and \code{ask} is \code{TRUE}, a menu of high-order terms is presented; if \code{ask} is \code{FALSE} (the default), effects for all high-order terms are plotted in an array.} \item{graphics}{if \code{TRUE} (the default), then the menu of terms to plot is presented in a dialog box rather than as a text menu.} \item{...}{arguments to be passed down. For \code{"predictoreff"} or \code{"predictorefflist"} objects, the arguments passed down can include all the arguments for \code{"eff"}.} \item{effect}{An object of class \code{"eff"} or \code{"effpoly"}.} \item{predictor}{The quoted name of the date variable in the effect.} \item{origin}{The date origin for the date variable: see Details} \item{evenly.spaced}{Should the dates be evenly spaced? \code{TRUE} (the default) or \code{FALSE}: see Details.} \item{n}{Number of tick marks for the date axis: see Details.} \item{multiline, z.var, rug, xlab, ylab, colors, cex, lty, lwd, ylim, xlim, factor.names, ci.style, band.transparency, band.colors, ticks, alternating, rotx, roty, grid, layout, rescale.axis, transform.x, ticks.x, show.strip.values, key.args, use.splines, type, residuals.color, residuals.pch, residuals.cex, smooth.residuals, residuals.smooth.color, show.fitted, span, style}{legacy arguments retained for backwards compatibility; if specified, these will take precedence over the newer list-style arguments described above. See \code{\link{LegacyArguments}} for details.} } \details{ Effects plots and predictor effects plots are produced by these methods. The plots are highly customizable using the optional arguments described here. For example, effects in a GLM are plotted on the scale of the linear predictor, but the vertical axis is labelled on the response scale. This preserves the linear structure of the model while permitting interpretation on what is usually a more familiar scale. This approach may also be used with linear models, for example to display effects on the scale of the response even if the data are analyzed on a transformed scale, such as log or square-root. See the \code{axes} argument details below to change the scale to response scale, or to linear predictor scale with tick marks labeled in response scale. When a factor is on the x-axis, the \code{plot} method for \code{eff} objects connects the points representing the effect by line segments, creating a response ``profile.'' If you wish to suppress these lines, add \code{lty=0} to the \code{lines} argument to the call to \code{plot} (see below and the examples). In a polytomous multinomial or proportional-odds logit model, by default effects are plotted on the probability scale; they may alternatively be plotted on the scale of the individual-level logits. All of the arguments to plot objects created by \code{Effect} or \code{allEffects} can also be used with objects created by \code{predictorEffect} or \code{predictorEffects}. \bold{Detailed Argument Descriptions} For more information about these arguments and many examples, see the \href{../doc/predictor-effects-gallery.pdf}{Predictor Effects Graphics Gallery} vignette. Maximizing the flexibility of these plot commands requires inclusion of a myriad of options. In an attempt to simplify the use of these options, they have been organized into just a few arguments that each accept a list of specifications as an argument. In a few cases the named entries in the list are themselves lists. Each of the following arguments takes an optional list of specifications; any specification absent from the list assumes its default value. Some of the list elements are themselves lists, so in complex cases, the argument can take the form of nested lists. All of these arguments can also be used on objects created with \code{\link{predictorEffects}}. \describe{ \item{\code{symbols}}{\code{TRUE}, \code{FALSE}, or a list of options that controls the plotting symbols and their sizes for use with factors; if \code{FALSE} symbols are suppressed; if \code{TRUE} default values are used: \describe{ \item{\code{pch}}{ploting symbols, a vector of plotting characters, with the default taken from \code{trellis.par.get("superpose.symbol")$pch}, typically a vector of 1s (circles).} \item{\code{cex}}{plotting character sizes, a vector of values, with the default taken from \code{trellis.par.get("superpose.symbol")$cex}, typically a vector of 0.8s.} } } \item{\code{lines}}{\code{TRUE}, \code{FALSE}, or a list that controls the characteristics of lines drawn on a plot, and also whether or not multiple lines should be drawn in the same panel in the plot; if \code{FALSE} lines are suppressed; if \code{TRUE} default values are used: \describe{ \item{\code{multiline}}{display a multiline plot in each panel; the default is \code{TRUE} if there are no standard errors in the \code{"eff"} object, \code{FALSE} otherwise. For an \code{"effpoly"} object \code{multline=TRUE} causes all of the response levels to be shown in the same panel rather than in separate panels.} \item{z.var}{for linear, generalized linear or mixed models, the index (number) or quoted name of the covariate or factor for which individual lines are to be drawn in each panel of the effect plot. The default is the predictor with the smallest number of levels or values. This argument is only used for multipline plots.} \item{\code{lty}}{vector of line types, with the default taken from \code{trellis.par.get("superpose.line")$lty}, typically a vector of 1s (solid lines).} \item{\code{lwd}}{vector of line widths, with the default taken from \code{trellis.par.get("superpose.line")$lwd}, typically a vector with 2 in the first position followed by 1s.} \item{\code{col}}{a vector of line colors, with the default taken from from \code{trellis.par.get("superpose.line")$col}, used both for lines and for areas in stacked area plots for \code{"effpoly"} objects; in the latter case, the default colors for an ordered response are instead generated by \code{\link[colorspace]{sequential_hcl}} in the \pkg{colorspace} package.} \item{\code{splines}}{use splines to smooth plotted effect lines; the default is \code{TRUE}.} } } \item{\code{axes}}{a list with elements \code{x}, \code{y}, \code{alternating}, and \code{grid} that control axis limits, ticks, and labels. The \code{x} and \code{y} elements may themselves be lists. The \code{x} entry is a list with elements named for predictors, with each predictor element itself a list with the following elements: \describe{ \item{\code{lab}}{axis label, defaults to the name of the predictor; may either be a text string or a list with the text label (optionally named \code{label}) as its first element and the named element \code{cex} as its second element.} \item{\code{lim}}{a two-element vector giving the axis limits, with the default determined from the data.} \item{\code{ticks}}{a list with either element \code{at}, a vector specifying locations for the ticks marks, or \code{n}, the number of tick marks.} \item{\code{transform}}{transformations to be applied to the horizontal axis of a numeric predictor, in the form of a list of two functions, with element names \code{trans} and \code{inverse}. The \code{trans} function is applied to the values of the predictor, and \code{inverse} is used for computing proper axis tick labels. The default is not to transform the predictor axis.} } Two additional elements may appear in the \code{x} list, and apply to all predictors: \describe{ \item{\code{rotate}}{angle in degrees to rotate tick labels; the default is 0.} \item{\code{rug}}{display a rug plot showing the marginal distribution of a numeric predictor; the default is \code{TRUE}.} } The \code{y} list contains \code{lab}, \code{lim}, \code{ticks}, and \code{rotate} elements (similar to those specified for individual predictors in the \code{x} list), along with the additional \code{type}, \code{transform}, and \code{style} elements: \describe{ \item{\code{type}}{for plotting linear or generalized linear models, \code{"rescale"} (the default) plots the vertical axis on the link scale (e.g., the logit scale for a logit model) but labels the axis on the response scale (e.g., the probability scale for a logit model); \code{"response"} plots and labels the vertical axis on the scale of the response (e.g., the probability scale for a logit model); and \code{"link"} plots and labels the vertical axis on the scale of the link (e.g., the logit scale for a logit model). For polytomous logit models, this element is either \code{"probability"} or \code{"logit"}, with the former as the default.} \item{\code{transform}}{primarily for linear or linear mixed models, this argument is used to apply an arbitrary transformation to the vertical axis. For example, if fitting a linear model with response \code{log(y)}, then setting \code{transform=exp} would plot \code{exp(log(y)) = y} on the vertical axis. If the response were \code{1/y}, then use \code{transform=function(yt) 1/yt}, since the reciprocal is its own inverse. The \code{transform} argument can also be a list of two functions. For example with a response \code{log(y)}, the specification \code{transform=list(trans=log, inverse=log), type="rescale"} will plot in log-scale, but will label tick marks in arithmetic scale; see the example below. The specification \code{transform=list(trans=log, inverse=exp), type="response"} is equivalent to \code{transform=exp}. When \code{type="response"} the \code{lab} argument will geneally be used to get a label for the axis that matches the untransformed response. If this argument is used with a generalized linear model or another model with a non-identity link function, the function is applied to the linear predictor, and will probably not be of interest.} \item{\code{style}}{for polytomous logit models, this element can take on the value \code{"lines"} (the default) or \code{"stacked"} for line plots or stacked-area plots, respectively.} } Other elements: \describe{ \item{\code{alternating}}{if \code{TRUE} (the default), the tick labels alternate by panels in multi-panel displays from left to right and top to bottom; if \code{FALSE}, tick labels appear at the bottom and on the left.} \item{\code{grid}}{if \code{TRUE} (the default is \code{FALSE}), add grid lines to the plot.} } } \item{\code{confint}}{specifications to add/remove confidence intervals or regions from a plot, and to set the nominal confidence level. \describe{ \item{\code{style}}{one of \code{"auto"}, \code{"bars"}, \code{"lines"}, \code{"bands"}, and \code{"none"}; the default is \code{"bars"} for factors, \code{"bands"} for numeric predictors, and \code{"none"} for multiline plots; \code{"auto"} also produces \code{"bars"} for factors and \code{"bands"} for numeric predictors, even in multiline plots.} \item{\code{alpha}}{transparency of confidence bands; the default is 0.15.} \item{\code{col}}{colors; the default is taken from the line colors.} } } \item{\code{partial.residuals}}{specifications concerning the addition of partial residuals to the plot. \describe{ \item{\code{plot}}{display the partial residuals; the default is \code{TRUE} if residuals are present in the \code{"eff"} object, \code{FALSE} otherwise.} \item{\code{fitted}}{show fitted values as well as residuals; the default is \code{FALSE}.} \item{\code{col}}{color for partial residuals; the default is the second line color.} \item{\code{pch}}{plotting symbols for partial residuals; the default is 1, a circle.} \item{\code{cex}}{size of symbols for partial residuals; the default is 1.} \item{\code{smooth}}{draw a loess smooth of the partial residuals; the default is \code{TRUE}.} \item{\code{span}}{span for the loess smooth; the default is 2/3.} \item{\code{smooth.col}}{color for the loess smooth; the default is the second line color.} \item{\code{lty}}{line type for the loess smooth; the default is the first line type, normally 1 (a solid line).} \item{\code{lwd}}{line width for the loess smooth; the default is the first line width, normally 2.} } } \item{\code{id}}{specifications for optional point identification when partial residuals are plotted. \describe{ \item{\code{n}}{number of points to identify; default is \code{2} if \code{id=TRUE} and \code{0} if \code{id=FALSE}. Points are selected based on the Mahalanobis distances of the pairs of x-values and partial residuals from their centroid.} \item{\code{col}}{color for the point labels; default is the same as the color of the partial residuals.} \item{\code{cex}}{relative size of text for point labels; default is \code{0.75}.} \item{\code{labels}}{vector of point labels; the default is the names of the residual vector, which is typically the row names of the data frame to which the model is fit.} } } \item{\code{lattice}}{the plots are drawn with the \pkg{\link[lattice]{lattice}} package, generally by the \code{\link[lattice]{xyplot}} function. These specifications are passed as arguments to the functions that actually draw the plots. \describe{ \item{\code{layout}}{the \code{layout} argument to the \pkg{lattice} function \code{\link[lattice]{xyplot}} (or, in some cases \code{\link[lattice]{densityplot}}), which is used to draw the effect display; if not specified, the plot will be formatted so that it appears on a single page.} \item{\code{key.args}}{a key, or legend, is added to the plot if \code{multiline=TRUE}. This argument is a list with components that determine the the placement and other characteristics of the key. The default if not set by the user is \code{key.args = list(space="top", columns=2, border=FALSE, fontfamily="serif", cex.title=.80, cex=0.75)}. If there are more than 6 groups in the plot, \code{columns} is set to 3. For stacked-area plots, the default is a one-column key. In addition to the arguments shown explicitly below, any of the arguments listed in the \code{\link[lattice]{xyplot}} documentation in the \code{key} section can be used. \describe{ \item{\code{space}}{determines the placement of the key outside the plotting area, with default \code{space="above"} for above the plot and below its title. Setting \code{space="right"} uses space to the right of the plot for the key.} \item{\code{x, y, corner}}{used to put the key on the graph itself. For example, \code{x=.05, y=.95, corner=c(0,1)} will locate the upper-left corner of the key at (.05, .95), thinking of the graph as a unit square.} \item{\code{columns}}{number of columns in the key. If \code{space="top"}, columns should be 2, 3 or 4; if \code{space="right"}, set \code{columns=1}.} \item{\code{border}}{if \code{TRUE} draw a border around the key; omit the border if \code{FALSE}.} \item{\code{fontfamily}}{the default is \code{"sans"} for the sans-serif font used in the rest of the plot; the alternative is \code{"serif"} for a serif font.} \item{\code{cex, cex.title}}{the default relative size of the font for labels and the title, respectively. To save space set these to be smaller than 1.} } } \item{\code{strip}}{a list with three elements: \code{factor.names}, which if \code{TRUE}, the default, shows conditioning variable names in the panel headers; \code{values}, which if \code{TRUE}, the default unless partial residuals are plotted, displays conditioning variable values in the panel headers, and \code{cex}, the relative size of the text displayed in the strip.} \item{\code{array}}{a list with elements \code{row}, \code{col}, \code{nrow}, \code{ncol}, and \code{more}, used to graph an effect as part of an array of plots; \code{row}, \code{col}, \code{nrow}, and \code{ncol} are used to compose the \code{split} argument and \code{more} the \code{more} argument to \code{\link[lattice]{print.trellis}}. The \code{array} argument is automatically set by \code{plot.efflist} and will be ignored if used with that function.} } } } The \code{levels2dates} function is provided to partially accommodate \code{"Date"} variables in effect plots, as long as the date variable is on the horizontal axis of the plot. The date variable must be converted to numeric in the fitted model. The purpose of \code{levels2dates} is to reconvert the numeric version of the date variable to dates to label axis tick marks in the graph. If the argument \code{evenly.spaced} is \code{TRUE} (which is the default), then the tick marks along the horizontal axis are evenly spaced between the minimum and maximum dates of the date variable in the effect; otherwise, the levels for the variable in the effect object are used. The number of tick marks is given by the \code{n} argument; if \code{n} isn't supplied (and \code{evenly.spaced=TRUE}), then the number of tick marks is taken from the number of levels for the variable in the effect object. } \value{ The \code{summary} method for \code{"eff"} objects returns a \code{"summary.eff"} object with the following components (those pertaining to confidence limits need not be present): \item{header}{a character string to label the effect.} \item{effect}{an array containing the estimated effect.} \item{lower.header}{a character string to label the lower confidence limits.} \item{lower}{an array containing the lower confidence limits.} \item{upper.header}{a character string to label the upper confidence limits.} \item{upper}{an array containing the upper confidence limits.} The \code{plot} method for \code{"eff"} objects returns a \code{"plot.eff"} object (an enhanced \code{"trellis"} object); the provided \code{\link{print}} method plots the object. The \code{[} method for \code{"efflist"} objects is used to subset an \code{"efflist"} object and returns an object of the same class. } \author{John Fox \email{jfox@mcmaster.ca} and Jangman Hong.} \seealso{\code{\link{LegacyArguments}}, \code{\link{effect}}, \code{\link{allEffects}}, \code{\link{effectsTheme}}, \code{\link[lattice]{xyplot}}, \code{\link[lattice]{densityplot}}, \code{\link[lattice]{print.trellis}}, \code{\link[stats]{loess}}, \code{\link[colorspace]{sequential_hcl}}, and the \href{../doc/predictor-effects-gallery.pdf}{Predictor Effects Graphics Gallery} and \href{../doc/partial-residuals.pdf}{Effect Displays with Partial Residuals} vignettes. } \examples{ # also see examples in ?effect # plot predictorEffects mod <- lm(prestige ~ education + log(income)*type + women, Prestige) plot(predictorEffects(mod, ~ income), axes=list(grid=TRUE)) plot(predictorEffects(mod, ~ income), lines=list(multiline=TRUE), axes=list(grid=TRUE)) plot(predictorEffects(mod, ~ type), lines=list(multiline=TRUE), axes=list(grid=TRUE), confint=list(style="bars")) mod.cowles <- glm(volunteer ~ sex + neuroticism*extraversion, data=Cowles, family=binomial) eff.cowles <- allEffects(mod.cowles, xlevels=list(extraversion=seq(0, 24, 6))) eff.cowles as.data.frame(eff.cowles[[2]]) # neuroticism*extraversion interaction plot(eff.cowles, 'sex', axes=list(grid=TRUE, y=list(lab="Prob(Volunteer)"), x=list(rotate=90)), lines=list(lty=0)) plot(eff.cowles, 'neuroticism:extraversion', axes=list(y=list(lab="Prob(Volunteer)", ticks=list(at=c(.1,.25,.5,.75,.9))))) plot(Effect(c("neuroticism", "extraversion"), mod.cowles, se=list(type="Scheffe"), xlevels=list(extraversion=seq(0, 24, 6))), axes=list(y=list(lab="Prob(Volunteer)", ticks=list(at=c(.1,.25,.5,.75,.9))))) \donttest{ # change color of the confidence bands to 'black' with .15 transparency plot(eff.cowles, 'neuroticism:extraversion', axes=list(y=list(lab="Prob(Volunteer)", ticks=list(at=c(.1,.25,.5,.75,.9)))), confint=list(col="red", alpha=.3)) plot(eff.cowles, 'neuroticism:extraversion', lines=list(multiline=TRUE), axes=list(y=list(lab="Prob(Volunteer)")), lattice=list(key.args = list(x = 0.65, y = 0.99, corner = c(0, 1)))) # use probability scale in place of logit scale, all lines are black. plot(eff.cowles, 'neuroticism:extraversion', lines=list(multiline=TRUE, lty=1:8, col="black"), axes=list(y=list(type="response", lab="Prob(Volunteer)")), lattice=list(key.args = list(x = 0.65, y = 0.99, corner = c(0, 1))), confint=list(style="bands")) plot(effect('sex:neuroticism:extraversion', mod.cowles, xlevels=list(extraversion=seq(0, 24, 6))), lines=list(multiline=TRUE)) plot(effect('sex:neuroticism:extraversion', mod.cowles, xlevels=list(extraversion=seq(0, 24, 6))), lines=list(multiline=TRUE), axes=list(y=list(type="response")), confint=list(style="bands"), lattice=list(key.args = list(x=0.75, y=0.75, corner=c(0, 0)))) } if (require(nnet)){ mod.beps <- multinom(vote ~ age + gender + economic.cond.national + economic.cond.household + Blair + Hague + Kennedy + Europe*political.knowledge, data=BEPS) \donttest{ plot(effect("Europe*political.knowledge", mod.beps, xlevels=list(political.knowledge=0:3))) } plot(effect("Europe*political.knowledge", mod.beps, xlevels=list(political.knowledge=0:3), fixed.predictors=list(given.values=c(gendermale=0.5))), axes=list(y=list(style="stacked"), x=list(rug=FALSE), grid=TRUE), lines=list(col=c("blue", "red", "orange"))) } if (require(MASS)){ mod.wvs <- polr(poverty ~ gender + religion + degree + country*poly(age,3), data=WVS) plot(effect("country*poly(age, 3)", mod.wvs)) \donttest{ plot(effect("country*poly(age, 3)", mod.wvs), lines=list(multiline=TRUE)) plot(effect("country*poly(age, 3)", mod.wvs), axes=list(y=list(style="stacked")), lines=list(col=c("gray75", "gray50", "gray25"))) plot(effect("country*poly(age, 3)", latent=TRUE, mod.wvs)) } } mod.pres <- lm(prestige ~ log(income, 10) + poly(education, 3) + poly(women, 2), data=Prestige) eff.pres <- allEffects(mod.pres) \donttest{ plot(eff.pres) plot(eff.pres[1:2]) } plot(eff.pres[1], axes=list(x=list(income=list(transform=list( trans=log10, inverse=function(x) 10^x), ticks=list(at=c(1000, 2000, 5000, 10000, 20000)))))) mod <- lm(log(prestige) ~ income:type + education, data=Prestige) p1 <- predictorEffects(mod, ~ income) # log-scale for response plot(p1, lines=list(multiline=TRUE)) # log-scale, with arithmetic tick marks plot(p1, lines=list(multiline=TRUE), axes=list(y=list(transform=list(trans=log, inverse = exp), lab="prestige", type="rescale"))) # arithmetic scale and tick marks, with other arguments plot(p1, lines=list(multiline=TRUE), grid=TRUE, lattice=list(key.args=list(space="right", border=TRUE)), axes=list(y=list(transform=exp, lab="prestige"))) # plotting an effect with a date variable data("airquality", package="datasets") airquality$Date <- with(airquality, as.Date(paste("1973", Month, Day, sep="-"), format="\%Y-\%m-\%d")) airquality$Date.num <- as.numeric(airquality$Date) m1.date <- lm(Ozone ~ Date.num + Solar.R + Wind + Temp, data=airquality) eff.date.1 <- Effect("Date.num", m1.date) plot(eff.date.1, axes=list(x=list(Date.num=list(lab="Date", ticks=list(at=levels2dates(eff.date.1, "Date.num", "1970-01-01"))), rotate=45)), main="Date Effect") plot(eff.date.1, axes=list(x=list(Date.num=list(lab="Date", ticks=list(at=levels2dates(eff.date.1, "Date.num", "1970-01-01", n=4))))), main="Date Effect") eff.date.df <- as.data.frame(eff.date.1) eff.date.df$Date <- as.Date(eff.date.df$Date.num, origin="1970-01-01") eff.date.df m2.date <- lm(Ozone ~ Date.num*Temp + Solar.R + Wind, data=airquality) eff.date.2 <- Effect(c("Date.num", "Temp"), m2.date, xlevels=6) plot(eff.date.2, axes=list(x=list(Date.num=list(lab="Date", ticks=list(at=levels2dates(eff.date.2, "Date.num", "1970-01-01", n=3))), rotate=45)), main="Date Effect by Temperature") } \keyword{hplot} \keyword{models} effects/man/predictorEffects.Rd0000644000176200001440000001643515140663403016241 0ustar liggesusers\name{predictorEffects} \alias{predictorEffect} \alias{predictorEffect.poLCA} \alias{predictorEffect.svyglm} \alias{predictorEffect.default} \alias{predictorEffects} \alias{predictorEffects.poLCA} \alias{predictorEffects.default} \title{ Functions For Computing Predictor Effects } \description{ Alternatives to the \code{Effect} and \code{allEffects} functions that use a different paradigm for conditioning in an effect display. The user specifies one predictor, either numeric or a factor (where character and logical variables are treated as factors), for the horizontal axis of a plot, and the function determines the appropriate plot to display (which is drawn by \code{plot}). See the vignette \href{https://CRAN.R-project.org/package=effects/vignettes/predictor-effects-gallery.pdf}{Predictor Effects Graphics Gallery} for details and examples. } \usage{ predictorEffect(predictor, mod, focal.levels=50, xlevels=5, ...) \method{predictorEffect}{poLCA}(predictor, mod, focal.levels=50, xlevels=5, ...) \method{predictorEffect}{svyglm}(predictor, mod, focal.levels=50, xlevels=5, ...) \method{predictorEffect}{default}(predictor, mod, focal.levels=50, xlevels=5, ..., sources) predictorEffects(mod, predictors, focal.levels=50, xlevels=5, ...) \method{predictorEffects}{poLCA}(mod, predictors = ~ ., focal.levels=50, xlevels=5, ...) \method{predictorEffects}{default}(mod, predictors = ~ ., focal.levels=50, xlevels=5, ..., sources) } \arguments{ \item{mod}{A model object. Supported models include all those described on the help page for \code{\link{Effect}}.} \item{predictor}{quoted name of the focal predictor.} \item{predictors}{If the default, \code{~ .}, a predictor effect plot is drawn for each predictor (not regressor) in a model. Otherwise, this is a one-sided formula specifying the first-order predictors for which predictor effect plots are to be drawn. } \item{focal.levels}{for \code{predictorEffect}, the number of evenly-spaced values (the default is 50) for the numeric focal predictor or a vector of values for the focal predictor. For \code{predictorEffects}, the number of evenly-spaced values (default 50) to use for each numeric focal predictor in turn, or a named list, similar to \code{xlevels}, giving the number of values or the values themselves for each predictor individually, to be used when that predictor is the focal predictor; if a numeric focal predictor doesn't appear in the list, the default of 50 values is used.} \item{xlevels}{this argument is used to set the levels of conditioning predictors; it may either be a single number specifying the number of evenly-spaced values (the default is 5) to which each conditioning predictor is to be set, or it may be a list with elements named for the predictors giving the number of values or a vector of values to which each conditioning predictor is to be set, as explained in the help for \code{\link{Effect}}. If the focal predictor is included in the \code{xlevels} list, it is disregarded; if any conditioning predictor is omitted from the list, its number of values is set to 5. The default behavior of \code{xlevels} is different when \code{residuals=TRUE}; in that case, it behaves as in \code{\link{Effect.lm}}, and is effectively set by default to the 0.2, 0.4, 0.6, and 0.8 quantiles of conditioning predictors. The \code{xlevels} argument works similarly for \code{predictorEffect} and \code{predictorEffects}.} \item{\dots}{ Additional arguments passed to \code{\link{Effect}}.} \item{sources}{Provides a mechanism for applying \code{predictorEffect} methods to a variety of regression models; see the vignette \href{https://CRAN.R-project.org/package=effects/vignettes/functions-supported-by-effects.pdf}{Regression Models Supported by the effects Package} for an explanation.} } \details{ Effect plots view a fitted regression function E(Y|X) in (sequences of) two-dimensional plots using conditioning and slicing. The functions described here use a different method of determining the conditioning and slicing than \code{allEffects} uses. The predictor effect of a focal predictor, say \code{x1}, is the usual effect for the generalized interaction of \code{x1} with all the other predictors in a model. When a predictor effect object is plotted, the focal predictor is by default plotted on the horizontal axis. For example, in the model \code{mod} with formula \code{y ~ x1 + x2 + x3}, the predictor effect \code{p1 <- predictorEffects(mod, ~ x1)} is essentially equilavent to \code{p2 <- Effect("x1", mod)}. When plotted, these objects may produce different graphs because \code{plot(p1)} will always put \code{x1} on the horizontal axis, while \code{plot(p2)} uses a rule to determine the horizontal axis based on the characteristics of all the predictors, e.g., preferring numeric predictors over factors. If \code{mod} has the formula \code{y ~ x1 + x2 + x3 + x1:x2}, then \code{p1 <- predictorEffects(mod, ~ x1)} is essentially equivalent to \code{p2 <- Effect(c("x1", "x2"), mod)}. As in the last example, the plotted versions of these objects may differ because of different rules used to determine the predictor on the horizontal axis. If \code{mod} has the formula \code{y ~ x1 + x2 + x3 + x1:x2 + x1:x3}, then \code{p1 <- predictorEffects(mod, ~ x1)} is essentially equilavent to \code{p2 <- Effect(c("x1", "x2", "x3"), mod)}. Again, the plotted versions of these objects may differ because of the rules used to determine the horizontal axis. } \value{ \code{predictorEffect} returns an object of class \code{c("predictoreff", "eff")}. The components of the object are described in the help for \code{\link{Effect}}; \code{predictorEffects} returns an object of class \code{"predictorefflist"}, which is a list whose elements are of class \code{c("predictoreff", "eff")}. } \references{ See \code{\link{Effect}}. } \author{ S. Weisberg \email{sandy@umn.edu} and J. Fox } \seealso{ \code{\link{Effect}}, \code{\link{plot.predictoreff}}, the \href{https://CRAN.R-project.org/package=effects/vignettes/predictor-effects-gallery.pdf}{Predictor Effects Graphics Gallery} vignette, and the \href{https://CRAN.R-project.org/package=effects/vignettes/partial-residuals.pdf}{Effect Displays with Partial Residuals} vignette. } \examples{ mod <- lm(prestige ~ type*(education + income) + women, Prestige) plot(predictorEffect("income", mod)) plot(predictorEffects(mod, ~ education + income + women)) mod.cowles <- glm(volunteer ~ sex + neuroticism*extraversion, data=Cowles, family=binomial) plot(predictorEffects(mod.cowles, xlevels=4)) plot(predictorEffect("neuroticism", mod.cowles, xlevels=list(extraversion=seq(5, 20, by=5))), axes=list(grid=TRUE, x=list(rug=FALSE), y=list(lab="Probability of Vounteering")), lines=list(multiline=TRUE), type="response") predictorEffects(mod.cowles, focal.levels=4, xlevels=4) # svyglm() example (adapting an example from the survey package) \donttest{ if (require(survey)){ data(api) dstrat<-svydesign(id=~1, strata=~stype, weights=~pw, data=apistrat, fpc=~fpc) mod <- svyglm(sch.wide ~ ell + meals + mobility, design=dstrat, family=quasibinomial()) plot(predictorEffects(mod), axes=list(y=list(lim=log(c(0.4, 0.99)/c(0.6, 0.01)), ticks=list(at=c(0.4, 0.75, 0.9, 0.95, 0.99))))) } } } \keyword{hplot} \keyword{models} effects/man/effectsTheme.Rd0000644000176200001440000000451115132433422015335 0ustar liggesusers\name{effectsTheme} \alias{effectsTheme} \title{Set the lattice Theme for Effect Plots} \description{ Set the \pkg{lattice} theme (see \code{\link[lattice]{trellis.device}}) appropriately for effect plots. This function is invoked automatically when the \pkg{effects} package is loaded \emph{if} the \pkg{lattice} package hasn't previously been loaded. A typical call is \code{lattice::trellis.par.set(effectsTheme())}. } \usage{ effectsTheme(strip.background = list(col = gray(seq(0.95, 0.5, length = 3))), strip.shingle = list(col = "black"), clip = list(strip = "off"), superpose.line = list(lwd = c(2, rep(1, 6))), col) } \arguments{ \item{strip.background}{colors for the background of conditioning strips at the top of each panel; the default uses shades of gray and makes allowance for up to three conditioning variables.} \item{strip.shingle}{when lines rather than numeric values are used to indicate the values of conditioning variables, the default sets the color of the lines to black.} \item{clip}{the default allows lines showing values of conditioning variables to extend slightly beyond the boundaries of the strips---making the lines more visible at the extremes.} \item{superpose.line}{the default sets the line width of the first (of seven) lines to 2.} \item{col}{an optional argument specifying the colors to use for lines and symbolst: if \code{col = "car"}, then the color palette for the \pkg{car} package is used (see \code{\link[car]{carPalette}}); \code{col = "R"}, then the current R palette (ignoring the first entry which is \code{"black"} in the standard R palette) is used (see \code{\link[grDevices]{palette}}); if \code{col = "colorblind"}, then a colorblind-friendly palette (from \url{https://jfly.uni-koeln.de/color/} but ignoring black) is used; if a vector of color specifications, then these are used. If \code{col} isn't specified then the current \pkg{lattice} colors are used.} } \value{ a list suitable as an argument for \code{\link[lattice]{trellis.par.set}}; current values of modified parameters are supplied as an attribute. } \author{John Fox \email{jfox@mcmaster.ca}} \seealso{\code{\link[lattice]{trellis.device}}, \code{\link[lattice]{trellis.par.set}}} \examples{ \dontrun{ lattice::trellis.par.set(effectsTheme()) } } \keyword{utilities} \keyword{device} effects/man/effectsHexsticker.Rd0000644000176200001440000000072315132433422016405 0ustar liggesusers\name{effectsHexsticker} \alias{effectsHexsticker} \title{ View the Official Hex Sticker for the effects Package} \description{ Open the official hex sticker for the effects package in your browser} \usage{ effectsHexsticker() } \value{ Used for its side effect of openning the hex sticker for the effects package in your browser. } \author{ John Fox \email{jfox@mcmaster.ca} } \examples{ \dontrun{ effectsHexsticker() } } \keyword{misc} effects/man/effects-package.Rd0000644000176200001440000000632215132433422015745 0ustar liggesusers\name{effects-package} \Rdversion{1.1} \alias{effects-package} \alias{effects} \docType{package} \title{ Effect Displays for Linear, Generalized Linear, and Other Models } \description{ Graphical and tabular effect displays, e.g., of interactions, for various statistical models with linear predictors. } \details{ \tabular{ll}{ Package: \tab effects\cr Version: \tab 4.2-2\cr Date: \tab 2022-02-16\cr Depends: \tab R (>= 3.5.0), carData\cr Suggests: \tab pbkrtest (>= 0.4-4), nlme, MASS, poLCA, heplots, splines, ordinal, car, knitr, betareg, alr4, robustlmm\cr Imports: \tab lme4, nnet, lattice, grid, colorspace, graphics, grDevices, stats, survey, utils, estimability, insight\cr LazyLoad: \tab yes\cr License: \tab GPL (>= 2)\cr URL: \tab https://www.r-project.org, https://socialsciences.mcmaster.ca/jfox/\cr } This package creates effect displays for various kinds of models, as partly explained in the references. Typical usage is \code{plot(allEffects(model))} or \code{plot(predictorEffects(model))}, where \code{model} is an appropriate fitted-model object. Additional arguments to \code{\link{allEffects}}, \code{\link{predictorEffects}} and \code{\link[graphics]{plot}} can be used to customize the resulting displays. The function \code{\link{effect}} can be employed to produce an effect display for a particular term in the model, or to which terms in the model are marginal. The function \code{\link{predictorEffect}} can be used to construct an effect display for a particularly predictor. The function \code{\link{Effect}} may similarly be used to produce an effect display for any combination of predictors. In any of the cases, use \code{plot} to graph the resulting effect object. For linear and generalized linear models it is also possible to plot partial residuals to obtain (multidimensional) component+residual plots. See \code{?effect}, \code{?Effect}, \code{?predictorEffect}, and \code{?plot.eff} for details. } \author{ John Fox, Sanford Weisberg, Brad Price, Michael Friendly, Jangman Hong, Robert Anderson, David Firth, Steve Taylor, and the R Core Team. Maintainer: John Fox } \references{ Fox, J. and S. Weisberg (2019) \emph{An R Companion to Applied Regression, Third Edition} Sage Publications. Fox, J. (1987) Effect displays for generalized linear models. \emph{Sociological Methodology} \bold{17}, 347--361. Fox, J. (2003) Effect displays in R for generalised linear models. \emph{Journal of Statistical Software} \bold{8:15}, 1--27, \doi{10.18637/jss.v008.i15}. Fox, J. and R. Andersen (2006) Effect displays for multinomial and proportional-odds logit models. \emph{Sociological Methodology} \bold{36}, 225--255. Fox, J. and J. Hong (2009). Effect displays in R for multinomial and proportional-odds logit models: Extensions to the effects package. \emph{Journal of Statistical Software} \bold{32:1}, 1--24, \doi{10.18637/jss.v032.i01}. Fox, J. and S. Weisberg (2018). Visualizing Fit and Lack of Fit in Complex Regression Models: Effect Plots with Partial Residuals. \emph{Journal of Statistical Software} \bold{87:9}, 1--27, \doi{10.18637/jss.v087.i09}. } \keyword{ package } effects/man/effect.Rd0000644000176200001440000010132715140663362014201 0ustar liggesusers\name{effect} \alias{effect} \alias{effect.default} \alias{Effect} \alias{Effect.default} \alias{Effect.lm} \alias{Effect.multinom} \alias{Effect.merMod} \alias{Effect.mlm} \alias{Effect.poLCA} \alias{Effect.polr} \alias{Effect.svyglm} \alias{allEffects} \alias{allEffects.default} \title{Functions For Constructing Effect Displays} \description{ \code{Effect} and \code{effect} construct an \code{"eff"} object for a term (usually a high-order term) in a regression that models a response as a linear function of main effects and interactions of factors and covariates. These models include, among others, linear models (fit by \code{\link[stats]{lm}} and \code{\link[nlme]{gls}}), and generalized linear models (fit by \code{\link[stats]{glm}}), for which an \code{"eff"} object is created, and multinomial and proportional-odds logit models (fit respectively by \code{\link[nnet]{multinom}} and \code{\link[MASS]{polr}}), for which an \code{"effpoly"} object is created. The computed effect absorbs the lower-order terms marginal to the term in question, and averages over other terms in the model. For multivariate linear models (of class \code{"mlm"}, fit by \code{\link[stats]{lm}}), the functions construct a list of \code{"eff"} objects, separately for the various response variables in the model. \code{effect} builds the required object by specifying explicitly a focal term like \code{"a:b"} for an \code{a} by \code{b} interaction. \code{Effect} in contrast specifies the predictors in a term, for example \code{c("a", "b")}, rather than the term itself. \code{Effect} is consequently more flexible and robust than \code{effect}, and will succeed with some models for which \code{effect} fails. The \code{effect} function works by constructing a call to \code{Effect} and continues to be included in \pkg{effects} so older code that uses it will not break. The \code{Effect} and \code{effect} functions can also be used with many other models; see \code{\link{Effect.default}} and the \href{https://CRAN.R-project.org/package=effects/vignettes/functions-supported-by-effects.pdf}{Regression Models Supported by the effects Package} vignette. \code{allEffects} identifies all of the high-order terms in a model and returns a list of \code{"eff"} or \code{"effpoly"} objects (i.e., an object of class \code{"efflist"}). For information on computing and displaying \emph{predictor effects}, see \code{\link{predictorEffect}} and \code{\link{plot.predictoreff}}. For further information about plotting effects, see \code{\link{plot.eff}}. } \usage{ effect(term, mod, vcov.=vcov, ...) \method{effect}{default}(term, mod, vcov.=vcov, ...) Effect(focal.predictors, mod, ...) \method{Effect}{lm}(focal.predictors, mod, xlevels=list(), fixed.predictors, vcov. = vcov, se=TRUE, residuals=FALSE, quantiles=seq(0.2, 0.8, by=0.2), x.var=NULL, transformation, ..., #legacy arguments: given.values, typical, offset, confint, confidence.level, partial.residuals) \method{Effect}{multinom}(focal.predictors, mod, xlevels=list(), fixed.predictors, vcov. = vcov, se=TRUE, ..., #legacy arguments: confint, confidence.level, given.values, typical) \method{Effect}{polr}(focal.predictors, mod, xlevels=list(), fixed.predictors, vcov.=vcov, se=TRUE, latent=FALSE, ..., #legacy arguments: confint, confidence.level, given.values, typical) \method{Effect}{svyglm}(focal.predictors, mod, fixed.predictors, ...) \method{Effect}{merMod}(focal.predictors, mod, ..., KR=FALSE) \method{Effect}{poLCA}(focal.predictors, mod, ...) \method{Effect}{mlm}(focal.predictors, mod, response, ...) allEffects(mod, ...) \method{allEffects}{default}(mod, ...) } \arguments{ \item{term}{the quoted name of a term, usually, but not necessarily, a high-order term in the model. The term must be given exactly as it appears in the printed model, although either colons (\code{:}) or asterisks (\code{*}) may be used for interactions. If \code{term} is NULL, the function returns the formula for the linear predictor.} \item{focal.predictors}{a character vector of one or more predictors in the model in any order.} \item{mod}{a regression model object. If no specific method exists for the class of \code{mod}, \code{Effect.default} will be called.} \item{xlevels}{this argument is used to set the number of levels for any focal numeric predictor (that is predictors that are not factors, character variables, or logical variables, all of which are treated as factors). If \code{xlevels=NULL}, then each numeric predictor is represented by five values over its range, equally spaced and then rounded to 'nice' numbers. If \code{xlevels=n} is an integer, then each numeric predictor is represented by \code{n} equally spaced values rounded to 'nice' numbers. More generally, \code{xlevels} can be a named list of values at which to set each numeric predictor. For example, \code{xlevels=list(x1=c(2, 4.5, 7), x2=4)} would use the values 2, 4.5, and 7 for \code{x1}, use 4 equally spaced values for \code{x2}, and use the default for any other numeric predictors. If partial residuals are computed, then the focal predictor that is to appear on the horizontal axis of an effect plot is evaluated at 100 equally spaced values along its full range, and, by default, other numeric predictors are evaluated at the quantiles specified in the \code{quantiles} argument, unless their values are given explicitly in \code{xlevels}.} \item{fixed.predictors}{an optional list of specifications affecting the values at which fixed predictors for an effect are set, potentially including: \describe{ \item{given.values}{\code{given.values="default"} (which is, naturally, the default) specifies averaging over levels of a non-focal factor, weighting levels of the factor in proportion to sample size. \code{given.values="equal"} computes unweighted averages over the levels of non-focal factors. For finer control, the user can also provide a named numeric vector of weights for particular columns of the model matrix that correspond to the regressors for the factor. Character and logical predictors are treated as factors. For example, for a factor \code{X} with three levels \code{a}, \code{b} and \code{c}, the regressors generated using the default \code{\link[stats]{contr.treatment}} parameterization for a factor will be named \code{Xb} and \code{Xc}, as the regressor for level \code{a} is excluded as the baseline level. The specification \code{given.values=c(Xb=1/2, Xc=1/4)} would average over the levels of \code{X} with weight 1/2 for level \code{b}, 1/4 for \code{c}, and weight 1 = 1/2 - 1/4 = 1/4 for the baseline level \code{a}. Setting \code{given.values=c(Xb=1)} would fix \code{X} at level \code{b}. } \item{typical}{a function to be applied to the columns of the model matrix over which the effect is "averaged"; with the exception of the \code{"svyglm"} method, the default is \code{\link{mean}}. For\code{"svyglm"} objects, the default is to use the survey-design weighted mean.} \item{apply.typical.to.factors}{It generally doesn't make sense to apply typical values that aren't means (e.g., medians) to the columns of the model-matrix representing contrasts for factors. This value generally defaults to \code{FALSE} except for \code{"svyglm"} objects, for which the default is \code{TRUE}, using the the survey-design weighted mean.} \item{offset}{a function to be applied to the offset values (if there is an offset) in a linear or generalized linear model, or a mixed-effects model fit by \code{\link[lme4]{lmer}} or \code{\link[lme4]{glmer}}; or a numeric value, to which the offset will be set. The default is the \code{\link{mean}} function, and thus the offset will be set to its mean; in the case of \code{"svyglm"} objects, the default is to use the survey-design weighted mean. \emph{Note:} Only offsets defined by the \code{offset} argument to \code{\link[stats]{lm}}, \code{\link[stats]{glm}}, \code{\link[survey]{svyglm}}, \code{\link[lme4]{lmer}}, or \code{\link[lme4]{glmer}} will be handled correctly; use of the \code{offset} function in the model formula is not supported.} } } \item{vcov.}{Effect methods generally use the matrix returned by \code{vcov(mod)} to compute standard errors and confidence bounds. Alternatively, the user may specify the name of a function that returns a matrix of the same dimension and structure as the matrix returned by \code{vcov(mod)}. For example, \code{vcov. = hccm} uses the \code{\link[car]{hccm}} function from the \pkg{car} package to use a heteroscedasticity corrected covariance matrix for a linear model in place of the standard covariance estimate. This argument can be set to equal matrix of the same size and structure as the matrix returned by \code{vcov(mod)}. For example, using \code{vcov. = vcov(Boot(mod))} uses \code{\link[car]{Boot}} from the \pkg{car} package to get a bootstrap estimate of the covariance matrix for linear, generalized linear, and possibly other modeling frameworks.} \item{se}{\code{TRUE} (the default), \code{FALSE}, or a list with any or all of the following elements, controlling whether and how standard errors and confidence limits are computed for the effects: \describe{ \item{compute}{(default \code{TRUE}) whether or not to compute standard errors and confidence limits.} \item{level}{(default \code{0.95}) confidence level for confidence limits.} \item{type}{one of \code{"pointwise"} (the default), \code{"Scheffe"}, or \code{"scheffe"}, whether to compute confidence limits with specified coverage at each point for an effect or to compute limits for a Scheffe-type confidence envelope. For \code{mer}, \code{merMod}, and \code{lme} objects, the normal distribution is used to get confidence limits.} } } \item{residuals}{if \code{TRUE}, residuals for a linear or generalized linear model will be computed and saved; if \code{FALSE} (the default), residuals are suppressed. If residuals are saved, partial residuals are computed when the effect is plotted: see \code{\link{plot.eff}} and the vignette \href{https://CRAN.R-project.org/package=effects/vignettes/partial-residuals.pdf}{Effect Displays with Partial Residuals}. This argument may also be used for mixed-effects and some other models.} \item{quantiles}{quantiles at which to evaluate numeric focal predictors \emph{not} on the horizontal axis, used only when partial residuals are displayed; superseded if the \code{xlevels} argument gives specific values for a predictor.} \item{x.var}{the (quoted) name or index of the numeric predictor to define the horizontal axis of an effect plot for a linear or generalized linear model; the default is \code{NULL}, in which case the first numeric predictor in the effect will be used \emph{if} partial residuals are to be computed. This argument is intended to be used when \code{residuals} is \code{TRUE}; otherwise, the variable on the horizontal axis can be chosen when the effect object is plotted: see \code{\link{plot.eff}}.} \item{transformation}{for the \code{Effect.lm} method, an optional two-element list with \code{link} and \code{inverse} elements to transform the response (see examples); an alternative to use for graphs is to set the argument \code{axes = list(y = list(transformation = list(link = link-function, inverse = mean-function)))} (see \code{\link{plot.eff})}; the argument must be used for transforming the response in printed or summary output.} \item{latent}{if \code{TRUE}, effects in a proportional-odds logit model are computed on the scale of the latent response; if \code{FALSE} (the default) effects are computed as individual-level probabilities and logits.} \item{x}{an object of class \code{"eff"}, \code{"effpoly"}, or \code{"efflatent"}.} \item{KR}{if \code{TRUE} and the \pkg{pbkrtest} package is installed, use the Kenward-Roger coefficient covariance matrix to compute effect standard errors for linear mixed models fit with \code{\link[lme4]{lmer}}; the default is \code{FALSE} because the computation can be time-consuming.} \item{response}{for an \code{"mlm"} object, a vector containing the (quoted) name(s) or indices of one or more response variable(s). The default is to use all responses in the model.} \item{...}{arguments to be passed down.} \item{confint, confidence.level, given.values, typical, offset, partial.residuals}{legacy arguments retained for backwards compatibility; if present, these arguments take precedence over the \code{level} element of the \code{confint} list argument and the \code{given.values}, \code{typical}, and \code{offset} elements of the \code{fixed.predictors} list argument; \code{confint} may be used in place of the \code{se} argument; \code{partial.residuals} may be used in place of the \code{residuals} argument. See \code{\link{LegacyArguments}} for details.} } \details{ Normally, the functions to be used directly are \code{allEffects}, to return a list of high-order effects, and the generic \code{plot} function to plot the effects (see \code{\link{plot.efflist}}, \code{\link{plot.eff}}, and \code{\link{plot.effpoly}}). Alternatively, \code{Effect} can be used to vary a subset of predictors over their ranges, while other predictors are held to typical values. Plotting methods for effect objects call the \code{\link[lattice]{xyplot}} (or in some cases, the \code{\link[lattice]{densityplot}}) function in the \pkg{lattice} package. Effects may also be printed (implicitly or explicitly via \code{print}) or summarized (using \code{summary}) (see \code{\link{print.efflist}}, \code{\link{summary.efflist}}, \code{\link{print.eff}}, \code{\link{summary.eff}}, \code{\link{print.effpoly}}, and \code{\link{summary.effpoly}}). If asked, the \code{effect} function will compute effects for terms that have higher-order relatives in the model, averaging over those terms (which rarely makes sense), or for terms that do not appear in the model but are higher-order relatives of terms that do. For example, for the model \code{Y ~ A*B + A*C + B*C}, one could compute the effect corresponding to the absent term \code{A:B:C}, which absorbs the constant, the \code{A}, \code{B}, and \code{C} main effects, and the three two-way interactions. In either of these cases, a warning is printed. See \code{\link{predictorEffects}} for an alternative paradigm for defining effects. } \value{ For \code{"lm"}, \code{"glm"}, \code{"svyglm"}, \code{"lmerMod"}, \code{"glmerMod"}, and \code{"lme"}, model objects, \code{effect} and \code{Effect} return an \code{"eff"} object, and for \code{"multinom"}, \code{"polr"}, \code{"clm"}, \code{"clmm"}, and \code{"clm2"} models, an \code{"effpoly"} object, with the components listed below. For an \code{"mlm"} object with one response specified, an \code{"eff"} object is returned, otherwise an \code{"efflist"} object is returned, containing one \code{"eff"} object for each \code{response}. \item{term}{the term to which the effect pertains.} \item{formula}{the complete model formula.} \item{response}{a character string giving the name of the response variable.} \item{y.levels}{(for \code{"effpoly"} objects) levels of the polytomous response variable.} \item{variables}{a list with information about each predictor, including its name, whether it is a factor, and its levels or values.} \item{fit}{(for \code{"eff"} objects) a one-column matrix of fitted values, representing the effect on the scale of the linear predictor; this is a raveled table, representing all combinations of predictor values.} \item{prob}{(for \code{"effpoly"} objects) a matrix giving fitted probabilities for the effect for the various levels of the the response (columns) and combinations of the focal predictors (rows).} \item{logit}{(for \code{"effpoly"} objects) a matrix giving fitted logits for the effect for the various levels of the the response (columns) and combinations of the focal predictors (rows).} \item{x}{a data frame, the columns of which are the predictors in the effect, and the rows of which give all combinations of values of these predictors.} \item{model.matrix}{the model matrix from which the effect was calculated.} \item{data}{a data frame with the data on which the fitted model was based.} \item{discrepancy}{the percentage discrepancy for the `safe' predictions of the original fit; should be very close to 0. Note: except for \code{gls} models, this is now necessarily 0.} \item{offset}{value to which the offset is fixed; \code{0} if there is no offset.} \item{model}{(for \code{"effpoly"} objects) \code{"multinom"} or \code{"polr"}, as appropriate.} \item{vcov}{(for \code{"eff"} objects) a covariance matrix for the effect, on the scale of the linear predictor.} \item{se}{(for \code{"eff"} objects) a vector of standard errors for the effect, on the scale of the linear predictor.} \item{se.prob, se.logit}{(for \code{"effpoly"} objects) matrices of standard errors for the effect, on the probability and logit scales.} \item{lower, upper}{(for \code{"eff"} objects) one-column matrices of confidence limits, on the scale of the linear predictor.} \item{lower.prob, upper.prob, lower.logit, upper.logit}{(for \code{"effpoly"} objects) matrices of confidence limits for the fitted logits and probabilities; the latter are computed by transforming the former.} \item{confidence.level}{for the confidence limits.} \item{transformation}{(for \code{"eff"} objects) a two-element list, with element \code{link} giving the link function, and element \code{inverse} giving the inverse-link (mean) function; may be set directly via the \code{transformation} argument to \code{Effect.lm} or inferred from the model.} \item{residuals}{(working) residuals for linear or generalized linear models (and some similar models), to be used by \code{\link{plot.eff}} to compute and plot partial residuals.} \item{x.var}{the name of the predictor to appear on the horizontal axis of an effect plot made from the returned object; will usually be \code{NULL} if partial residuals aren't computed.} \item{family}{for a \code{"glm"} model, the name of the distributional family of the model; for an \code{"lm"} model, this is \code{"gaussian"}; otherwise \code{NULL}. The \code{family} controls how partial residuals are smoothed in plots.} \item{link}{the value returned by \code{family(mod)}. Down-stream methods may need the link, inverse link and derivative functions.} \code{allEffects} returns an \code{"efflist"} object, a list of \code{"eff"} or \code{"effpoly"} objects corresponding to the high-order terms of the model. If \code{mod} is of class \code{"poLCA"} (from the \pkg{poLCA} package), representing a polytomous latent class model, effects are computed for the predictors given the estimated latent classes. The result is of class \code{"eff"} if the latent class model has 2 categories and of class \code{"effpoly"} with more than 2 categories. } \section{Warnings and Limitations}{ The \code{Effect} function handles factors and covariates differently, and is likely to be confused if one is changed to the other in a model formula. Consequently, formulas that include calls to \code{as.factor}, \code{factor}, or \code{numeric} (as, e.g., in \code{y ~ as.factor(income)}) will cause errors. Instead, create the modified variables outside of the model formula (e.g., \code{fincome <- as.factor(income)}) and use these in the model formula. The \code{effect} function doesn't work with factors that have colons in level names (e.g., \code{"level:A"}); the \code{effect} function will confuse the colons with interactions; rename levels to remove or replace the colons (e.g., \code{"level.A"}). Level names with colons are perfectly fine for use with \code{Effect}. The functions in the \pkg{effects} package work properly with predictors that are numeric variables, factors, character variables, or logical variables; consequently, e.g., convert dates to numeric. Character predictors and logical predictors are treated as factors, the latter with "levels" \code{"FALSE"} and \code{"TRUE"}. Empty cells in crossed-factors are now permitted for \code{"lm"}, \code{"glm"}, and \code{"multinom"} models. For \code{"multinom"} models with two or more crossed factors with an empty cell, stacked area plots apparently do not work because of a bug in the \code{\link[lattice]{barchart}} function in the \pkg{lattice} package. However, the default line plots do work. Offsets in linear and generalized linear models are supported, as are offsets in mixed models fit by \code{lmer} or \code{glmer}, but must be supplied through the \code{offset} argument to \code{lm}, \code{glm}, \code{lmer} or \code{glmer}; offsets supplied via calls to the \code{offset} function on the right-hand side of the model formula are not supported. Fitting ordinal mixed models using \code{\link[ordinal]{clmm}} or \code{\link[ordinal:clmmOld]{clmm2}} permits many options, including a variety of link functions, scale functions, nominal regressors, and various methods for setting thresholds. Effects are currently generated only for the default values of the arguments \code{scale}, \code{nominal}, \code{link}, and \code{threshold}, which is equivalent to fitting an ordinal-response mixed-effects model with a logit link. \code{Effect} can also be used with objects created by \code{\link[ordinal]{clm}} or \code{\link[ordinal:clmOld]{clm2}}, fitting ordinal response models with the same links permitted by \code{\link[MASS]{polr}} in the \pkg{MASS} package, with no random effects, and with results similar to those from \code{\link[MASS]{polr}}. Calling any of these functions from within a user-written function may result in errors due to R's scoping rules. See the vignette \code{embedding.pdf} in the \pkg{car} package for a solution to this problem. } \references{ Fox, J. (1987). Effect displays for generalized linear models. \emph{Sociological Methodology} \bold{17}, 347--361. Fox, J. (2003) Effect displays in R for generalised linear models. \emph{Journal of Statistical Software} \bold{8:15}, 1--27, \doi{10.18637/jss.v008.i15}. Fox, J. and R. Andersen (2006). Effect displays for multinomial and proportional-odds logit models. \emph{Sociological Methodology} \bold{36}, 225--255. Fox, J. and J. Hong (2009). Effect displays in R for multinomial and proportional-odds logit models:? Extensions to the effects package. \emph{Journal of Statistical Software} \bold{32:1}, 1--24, \doi{10.18637/jss.v032.i01}. Fox, J. and S. Weisberg (2019). \emph{An R Companion to Applied Regression, third edition}, Thousand Oaks: Sage. Fox, J. and S. Weisberg (2018). Visualizing Fit and Lack of Fit in Complex Regression Models with Predictor Effect Plots with Partial Residuals. \emph{Journal of Statistical Software} \bold{87:9}, 1--27, \doi{10.18637/jss.v087.i09}. Hastie, T. J. (1992). Generalized additive models. In Chambers, J. M., and Hastie, T. J. (eds.) \emph{Statistical Models in S}, Wadsworth. Weisberg, S. (2014). \emph{Applied Linear Regression}, 4th edition, Wiley, \url{http://z.umn.edu/alr4ed}. } \author{John Fox \email{jfox@mcmaster.ca}, Sanford Weisberg \email{sandy@umn.edu} and Jangman Hong.} \seealso{\code{\link{LegacyArguments}}. For information on printing, summarizing, and plotting effects: \code{\link{print.eff}}, \code{\link{summary.eff}}, \code{\link{plot.eff}}, \code{\link{print.summary.eff}}, \code{\link{print.effpoly}}, \code{\link{summary.effpoly}}, \code{\link{plot.effpoly}}, \code{\link{print.efflist}}, \code{\link{summary.efflist}}, \code{\link{plot.efflist}}, \code{\link[lattice]{xyplot}}, \code{\link[lattice]{densityplot}}, and the \href{https://CRAN.R-project.org/package=effects/vignettes/predictor-effects-gallery.pdf}{Predictor Effects Graphics Gallery} and \href{https://CRAN.R-project.org/package=effects/vignettes/functions-supported-by-effects.pdf}{Regression Models Supported by the effects Package} vignettes.} \examples{ mod.cowles <- glm(volunteer ~ sex + neuroticism*extraversion, data=Cowles, family=binomial) eff.cowles <- allEffects(mod.cowles, xlevels=list(extraversion=seq(0, 24, 6)), fixed.predictors=list(given.values=c(sexmale=0.5))) eff.cowles as.data.frame(eff.cowles[[2]]) \donttest{ # the following are equivalent: eff.ne <- effect("neuroticism*extraversion", mod.cowles) Eff.ne <- Effect(c("neuroticism", "extraversion"), mod.cowles) all.equal(eff.ne$fit, Eff.ne$fit) plot(eff.cowles, 'sex', axes=list(y=list(lab="Prob(Volunteer)"))) plot(eff.cowles, 'neuroticism:extraversion', axes=list(y=list(lab="Prob(Volunteer)", ticks=list(at=c(.1,.25,.5,.75,.9))))) plot(Effect(c("neuroticism", "extraversion"), mod.cowles, se=list(type="Scheffe"), xlevels=list(extraversion=seq(0, 24, 6)), fixed.predictors=list(given.values=c(sexmale=0.5))), axes=list(y=list(lab="Prob(Volunteer)", ticks=list(at=c(.1,.25,.5,.75,.9))))) plot(eff.cowles, 'neuroticism:extraversion', lines=list(multiline=TRUE), axes=list(y=list(lab="Prob(Volunteer)"))) plot(effect('sex:neuroticism:extraversion', mod.cowles, xlevels=list(extraversion=seq(0, 24, 6))), lines=list(multiline=TRUE)) } # a nested model: mod <- lm(log(prestige) ~ income:type + education, data=Prestige) plot(Effect(c("income", "type"), mod, transformation=list(link=log, inverse=exp)), axes=list(y=list(lab="prestige"))) if (require(nnet)){ mod.beps <- multinom(vote ~ age + gender + economic.cond.national + economic.cond.household + Blair + Hague + Kennedy + Europe*political.knowledge, data=BEPS) \donttest{ plot(effect("Europe*political.knowledge", mod.beps, xlevels=list(political.knowledge=0:3))) } plot(Effect(c("Europe", "political.knowledge"), mod.beps, xlevels=list(Europe=1:11, political.knowledge=0:3), fixed.predictors=list(given.values=c(gendermale=0.5))), lines=list(col=c("blue", "red", "orange")), axes=list(x=list(rug=FALSE), y=list(style="stacked"))) \donttest{ plot(effect("Europe*political.knowledge", mod.beps, # equivalent xlevels=list(Europe=1:11, political.knowledge=0:3), fixed.predictors=list(given.values=c(gendermale=0.5))), lines=list(col=c("blue", "red", "orange")), axes=list(x=list(rug=FALSE), y=list(style="stacked"))) } } if (require(MASS)){ mod.wvs <- polr(poverty ~ gender + religion + degree + country*poly(age,3), data=WVS) \donttest{ plot(effect("country*poly(age, 3)", mod.wvs)) } plot(Effect(c("country", "age"), mod.wvs), axes=list(y=list(style="stacked"))) \donttest{ plot(effect("country*poly(age, 3)", mod.wvs), axes=list(y=list(style="stacked"))) # equivalent plot(effect("country*poly(age, 3)", latent=TRUE, mod.wvs)) plot(effect("country*poly(age, 3)", latent=TRUE, mod.wvs, se=list(type="scheffe"))) # Scheffe-type confidence envelopes } } mod.pres <- lm(prestige ~ log(income, 10) + poly(education, 3) + poly(women, 2), data=Prestige) eff.pres <- allEffects(mod.pres, xlevels=50) plot(eff.pres) plot(eff.pres[1], axes=list(x=list(income=list( transform=list(trans=log10, inverse=function(x) 10^x), ticks=list(at=c(1000, 2000, 5000, 10000, 20000)) )))) \donttest{ # linear model with log-response and log-predictor # to illustrate transforming axes and setting tick labels mod.pres1 <- lm(log(prestige) ~ log(income) + poly(education, 3) + poly(women, 2), data=Prestige) # effect of the log-predictor eff.log <- Effect("income", mod.pres1) # effect of the log-predictor transformed to the arithmetic scale eff.trans <- Effect("income", mod.pres1, transformation=list(link=log, inverse=exp)) #variations: # y-axis: scale is log, tick labels are log # x-axis: scale is arithmetic, tick labels are arithmetic plot(eff.log) # y-axis: scale is log, tick labels are log # x-axis: scale is log, tick labels are arithmetic plot(eff.log, axes=list(x=list(income=list( transform=list(trans=log, inverse=exp), ticks=list(at=c(5000, 10000, 20000)), lab="income, log-scale")))) # y-axis: scale is log, tick labels are arithmetic # x-axis: scale is arithmetic, tick labels are arithmetic plot(eff.trans, axes=list(y=list(lab="prestige"))) # y-axis: scale is arithmetic, tick labels are arithmetic # x-axis: scale is arithmetic, tick labels are arithmetic plot(eff.trans, axes=list(y=list(type="response", lab="prestige"))) # y-axis: scale is log, tick labels are arithmetic # x-axis: scale is log, tick labels are arithmetic plot(eff.trans, axes=list( x=list(income=list( transform=list(trans=log, inverse=exp), ticks=list(at=c(1000, 2000, 5000, 10000, 20000)), lab="income, log-scale")), y=list(lab="prestige, log-scale")), main="Both response and X in log-scale") # y-axis: scale is arithmetic, tick labels are arithmetic # x-axis: scale is log, tick labels are arithmetic plot(eff.trans, axes=list( x=list( income=list(transform=list(trans=log, inverse=exp), ticks=list(at=c(1000, 2000, 5000, 10000, 20000)), lab="income, log-scale")), y=list(type="response", lab="prestige"))) } if (require(nlme)){ # for gls() mod.hart <- gls(fconvict ~ mconvict + tfr + partic + degrees, data=Hartnagel, correlation=corARMA(p=2, q=0), method="ML") plot(allEffects(mod.hart)) detach(package:nlme) } if (require(lme4)){ data(cake, package="lme4") fm1 <- lmer(angle ~ recipe * temperature + (1|recipe:replicate), cake, REML = FALSE) plot(Effect(c("recipe", "temperature"), fm1)) \donttest{ plot(effect("recipe:temperature", fm1), axes=list(grid=TRUE)) # equivalent (plus grid) } if (any(grepl("pbkrtest", search()))) detach(package:pbkrtest) detach(package:lme4) } \donttest{ if (require(nlme) && length(find.package("lme4", quiet=TRUE)) > 0){ data(cake, package="lme4") cake$rep <- with(cake, paste( as.character(recipe), as.character(replicate), sep="")) fm2 <- lme(angle ~ recipe * temperature, data=cake, random = ~ 1 | rep, method="ML") plot(Effect(c("recipe", "temperature"), fm2)) plot(effect("recipe:temperature", fm2), axes=list(grid=TRUE)) # equivalent (plus grid) } detach(package:nlme) } \donttest{ if (require(poLCA)){ data(election) f2a <- cbind(MORALG,CARESG,KNOWG,LEADG,DISHONG,INTELG, MORALB,CARESB,KNOWB,LEADB,DISHONB,INTELB)~PARTY*AGE nes2a <- poLCA(f2a,election,nclass=3,nrep=5) plot(Effect(c("PARTY", "AGE"), nes2a), axes=list(y=list(style="stacked"))) } } # mlm example if (require(heplots)) { data(NLSY, package="heplots") mod <- lm(cbind(read,math) ~ income+educ, data=NLSY) eff.inc <- Effect("income", mod) plot(eff.inc) eff.edu <- Effect("educ", mod) plot(eff.edu, axes=list(x=list(rug=FALSE), grid=TRUE)) \donttest{ plot(Effect("educ", mod, response="read")) } detach(package:heplots) } # svyglm() example (adapting an example from the survey package) \donttest{ if (require(survey)){ data("api") dstrat<-svydesign(id=~1, strata=~stype, weights=~pw, data=apistrat, fpc=~fpc) mod <- svyglm(sch.wide ~ ell + meals + mobility, design=dstrat, family=quasibinomial()) plot(allEffects(mod), axes=list(y=list(lim=log(c(0.4, 0.99)/c(0.6, 0.01)), ticks=list(at=c(0.4, 0.75, 0.9, 0.95, 0.99))))) } } # component + residual plot examples \donttest{ Prestige$type <- factor(Prestige$type, levels=c("bc", "wc", "prof")) mod.prestige.1 <- lm(prestige ~ income + education, data=Prestige) plot(allEffects(mod.prestige.1, residuals=TRUE)) # standard C+R plots plot(allEffects(mod.prestige.1, residuals=TRUE, se=list(type="scheffe"))) # with Scheffe-type confidence bands mod.prestige.2 <- lm(prestige ~ type*(income + education), data=Prestige) plot(allEffects(mod.prestige.2, residuals=TRUE)) mod.prestige.3 <- lm(prestige ~ type + income*education, data=Prestige) plot(Effect(c("income", "education"), mod.prestige.3, residuals=TRUE), partial.residuals=list(span=1)) } # artificial data set.seed(12345) x1 <- runif(500, -75, 100) x2 <- runif(500, -75, 100) y <- 10 + 5*x1 + 5*x2 + x1^2 + x2^2 + x1*x2 + rnorm(500, 0, 1e3) Data <- data.frame(y, x1, x2) mod.1 <- lm(y ~ poly(x1, x2, degree=2, raw=TRUE), data=Data) # raw=TRUE necessary for safe prediction mod.2 <- lm(y ~ x1*x2, data=Data) mod.3 <- lm(y ~ x1 + x2, data=Data) plot(Effect(c("x1", "x2"), mod.1, residuals=TRUE)) # correct model plot(Effect(c("x1", "x2"), mod.2, residuals=TRUE)) # wrong model plot(Effect(c("x1", "x2"), mod.3, residuals=TRUE)) # wrong model } \keyword{hplot} \keyword{models} effects/man/summary.effect.Rd0000644000176200001440000000576415132433422015676 0ustar liggesusers\name{summary.eff} \alias{print.eff} \alias{print.effpoly} \alias{print.efflatent} \alias{print.efflist} \alias{print.mlm.efflist} \alias{print.summary.eff} \alias{summary.eff} \alias{summary.effpoly} \alias{summary.efflatent} \alias{summary.efflist} \alias{summary.mlm.efflist} \alias{as.data.frame.eff} \alias{as.data.frame.effpoly} \alias{as.data.frame.efflatent} \alias{as.data.frame.efflist} \alias{vcov.eff} \title{Summarizing and Printing Effects} \description{ \code{summary}, \code{print}, and \code{as.data.frame} methods for objects created using the effects package. } \usage{ \method{print}{eff}(x, type=c("response", "link"), ...) \method{print}{effpoly}(x, type=c("probability", "logits"), ...) \method{print}{efflatent}(x, ...) \method{print}{efflist}(x, ...) \method{print}{mlm.efflist}(x, ...) \method{print}{summary.eff}(x, ...) \method{summary}{eff}(object, type=c("response", "link"), ...) \method{summary}{effpoly}(object, type=c("probability", "logits"), ...) \method{summary}{efflatent}(object, ...) \method{summary}{efflist}(object, ...) \method{summary}{mlm.efflist}(object, ...) \method{as.data.frame}{eff}(x, row.names=NULL, optional=TRUE, type=c("response", "link"), ...) \method{as.data.frame}{efflist}(x, row.names=NULL, optional=TRUE, type, ...) \method{as.data.frame}{effpoly}(x, row.names=NULL, optional=TRUE, ...) \method{as.data.frame}{efflatent}(x, row.names=NULL, optional=TRUE, ...) \method{vcov}{eff}(object, ...) } \arguments{ \item{x, object}{an object consisting of fitted values and other information needed to draw effects plots that is produced by functions in the \code{effects} package.} \item{type}{fitted values are by default printed by these functions in the \code{"response"} scale. For models with a link function like a GLM, fitted values in the linear predictor scale are obtained by setting \code{type="link"}. For polytomous response models setting \code{type="logits"} returns fitted values in the logit scale.} \item{row.names, optional}{arguments to \code{as.data.frame} not used by these methods.} \item{...}{other arguments passed on} } \value{ The \code{print} methods return the fitted values in tables. The \code{summary} methods return the fitted values and 95 percent condifence intervals, also in tables. The \code{as.data.frame} method returns fitted values, standard errors, and 95 percent confidence intervals as a data frame, or as a list of data frames for the \code{efflist} method. The \code{vcov} method returns the covariance matrix of the fitted values. } \author{John Fox \email{jfox@mcmaster.ca} and Jangman Hong.} \examples{ mod.cowles <- glm(volunteer ~ sex + neuroticism*extraversion, data=Cowles, family=binomial) eff.cowles <- predictorEffects(mod.cowles) print(eff.cowles) print(eff.cowles[["neuroticism"]], type="link") summary(eff.cowles[["neuroticism"]], type="link") as.data.frame(eff.cowles) # covariance matrix of fitted values in linear predictor scale vcov(eff.cowles[[1]]) } \keyword{hplot} \keyword{models} effects/man/LegacyArguments.Rd0000644000176200001440000001174115132433422016030 0ustar liggesusers\name{LegacyArguments} \alias{LegacyArguments} \alias{Legacy Arguments} \title{Legacy Arguments for \code{plot} and \code{Effect} Methods} \description{ Prior to verson 4.0-0 of the \pkg{effects} package, there were many (literally dozens) of arguments to the \code{plot} methods for \code{"eff"} and \code{"effpoly"} objects. In version 4.0-0 of the package, we have consolidated these arguments into a much smaller number of arguments (e.g., \code{lines}, \code{points}, \code{axes}) that take lists of specifications. We have similarly consolidated some of the arguments to \code{Effect} methods into the \code{confint} and \code{fixed.predictors} arguments. For backwards compatibility, we have to the extent possible retained the older arguments. If specified, these legacy arguments take precedence over the newer list-style arguments. } \details{ Here is the correspondence between the old and new arguments. For \code{plot} methods: \describe{ \item{\code{multiline=TRUE/FALSE}}{\code{lines=list(multiline=TRUE/FALSE)}} \item{\code{type=c("rescale", "link", "response")}}{For models with a link function, \code{"link"} plots in linear predictor scale, \code{"response"} plots in the response scale, and the default \code{"rescale"} plots in linear predictor scale but labels tick-marks in response scale.} \item{\code{z.var=which.min(levels)}}{\code{lines=list(z.var=which.min(levels))} relevant only when \code{lines=list(multiline=TRUE)}} \item{\code{colors={vector of colors}}}{\code{lines=list(col={vector of colors})}} \item{\code{lty={vector of line types}}}{\code{lines=list(lty={vector of line types})}} \item{\code{lwd={vector of line widths}}}{\code{lines=list(lwd={vector of line widths})}} \item{\code{use.splines=TRUE/FALSE}}{\code{lines=list(splines=TRUE/FALSE)}} \item{\code{cex={number}}}{\code{points=list(cex={number})}} \item{\code{rug=TRUE/FALSE}}{\code{axes=list(x=list(rug=TRUE/FALSE)}} \item{\code{xlab={"axis title"}}}{\code{axes=list(x=list(lab={"axis title"}))}} \item{\code{xlim={c(min, max)}}}{\code{axes=list(x=list(lim={c(min, max)}))}} \item{\code{rotx={degrees}}}{\code{axes=list(x=list(rot={degrees}))}} \item{\code{ticks.x=list({tick specifications})}}{\code{axes=list(x=list(ticks=list({tick specifications})))}} \item{\code{transform.x=list(link={function}, inverse={function})}}{\code{axes=list(x=list(transform=list({lists of transformations by predictors})))}} \item{\code{ylab={"axis title"}}}{\code{axes=list(y=list(lab={"axis title"}))}} \item{\code{ylim={c(min, max)}}}{\code{axes=list(y=list(lim={c(min, max)}))}} \item{\code{roty={degrees}}}{\code{axes=list(y=list(rot={degrees}))}} \item{\code{ticks=list({tick specifications})}}{\code{axes=list(y=list(ticks=list({tick specifications})))}} \item{\code{alternating=TRUE/FALSE}}{\code{axes=list(alternating=TRUE/FALSE)}} \item{\code{grid=TRUE/FALSE}}{\code{axes=list(grid=TRUE/FALSE)}} \item{\code{ci.style="bands"/"lines"/"bars"/"none"}}{\code{confint=list(style="bands"/"lines"/"bars"/"none"})} \item{\code{band.transparency={number}}}{\code{confint=list(alpha={number})}} \item{\code{band.colors={vector of colors}}}{\code{confint=list(col={vector of colors})}} \item{\code{residuals.color={color}}}{\code{partial.residuals=list(col={color})}} \item{\code{residuals.pch={plotting character}}}{\code{partial.residuals=list(pch={plotting character})}} \item{\code{residuals.cex={number}}}{\code{partial.residuals=list(cex={number})}} \item{\code{smooth.residuals=TRUE/FALSE}}{\code{partial.residuals=list(smooth=TRUE/FALSE)}} \item{\code{residuals.smooth.color={color}}}{\code{partial.residuals=list(smooth.col={color})}} \item{\code{span={number}}}{\code{partial.residuals=list(span={number})}} \item{\code{show.fitted=TRUE/FALSE}}{\code{partial.residuals=list(fitted=TRUE/FALSE)}} \item{\code{factor.names=TRUE/FALSE}}{\code{lattice=list(strip=list(factor.names=TRUE/FALSE))}} \item{\code{show.strip.values=TRUE/FALSE}}{\code{lattice=list(strip=list(values=TRUE/FALSE))}} \item{\code{layout={lattice layout}}}{\code{lattice=list(layout={lattice layout})}} \item{\code{key.args={lattice key args}}}{\code{lattice=list(key.args={lattice key args})}} \item{\code{style="lines"/"stacked"}}{for \code{plot.effpoly}, \code{axes=list(y=list(style="lines"/"stacked"))}} \item{\code{rescale.axis=TRUE/FALSE}}{\code{type="rescale"/"response"/"link"}} } For \code{Effect} methods: \describe{ \item{\code{confint=TRUE/FALSE} or a list}{may be substituted for the \code{se} argument.} \item{\code{confidence.level={number}}}{\code{se=list(level={number})}} \item{\code{given.values={named vector}}}{\code{fixed.predictors=list(given.values={named vector})}} \item{\code{typical={function}}}{\code{fixed.predictors=list(typical={function})}} \item{\code{offset={function}}}{\code{fixed.predictors=list(offset={function})}} \item{\code{partial.residuals=TRUE/FALSE}}{\code{residuals=TRUE/FALSE}} }} \author{John Fox \email{jfox@mcmaster.ca}} \seealso{ \code{\link{Effect}}, \code{\link{plot.eff}}, \code{\link{plot.effpoly}} } \keyword{hplot} effects/DESCRIPTION0000644000176200001440000000315015145003163013374 0ustar liggesusersPackage: effects Version: 4.2-5 Date: 2026-01-28 Title: Effect Displays for Linear, Generalized Linear, and Other Models Authors@R: c(person("John", "Fox", role = "aut", email = "jfox@mcmaster.ca"), person("Sanford", "Weisberg", role = "aut", email = "sandy@umn.edu"), person("Brad", "Price", role = c("aut", "cre"), email = "brad.price@mail.wvu.edu"), person("Michael", "Friendly", role = "aut", email = "friendly@yorku.ca"), person("Jangman", "Hong", role = "aut"), person("Robert", "Andersen", role = "ctb"), person("David", "Firth", role = "ctb"), person("Steve", "Taylor", role = "ctb"), person("R Core Team", role="ctb")) Depends: R (>= 3.5.0), carData, datasets Suggests: pbkrtest (>= 0.4-4), nlme, MASS, poLCA, heplots, splines, ordinal, car, knitr, betareg, alr4, robustlmm Imports: lme4, nnet, lattice, grid, colorspace, graphics, grDevices, stats, survey, utils, estimability (>= 1.4.1), insight Description: Graphical and tabular effect displays, e.g., of interactions, for various statistical models with linear predictors. License: GPL (>= 2) URL: https://cran.r-project.org/package=effects, https://www.john-fox.ca/, https://github.com/bprice2652/effects_repo VignetteBuilder: knitr NeedsCompilation: no Packaged: 2026-02-13 16:06:40 UTC; user Author: John Fox [aut], Sanford Weisberg [aut], Brad Price [aut, cre], Michael Friendly [aut], Jangman Hong [aut], Robert Andersen [ctb], David Firth [ctb], Steve Taylor [ctb], R Core Team [ctb] Maintainer: Brad Price Repository: CRAN Date/Publication: 2026-02-17 06:10:59 UTC