dichromat/0000755000175400001440000000000012100160061012402 5ustar zeileisusersdichromat/MD50000644000175400001440000000067012100160061012715 0ustar zeileisusersdbf473f31a22485b3bf03dc0596c6232 *DESCRIPTION 3a203d1ba247dfb1546216f4f41d76f7 *NAMESPACE 8e1336dcde2270de6c4f2e963fab372c *R/colorschemes.R e2857daeba6287b727fd4245e75288f0 *R/dichromat.R 7cd52ff9a48bcb98efc42bd78857a191 *R/sysdata.rda 7db156e40620666ca3d65f3e8d2325cc *data/dalton.rda 9609f11ec440006eed5e53c6f209275a *man/colorschemes.Rd d721ccfd73497b2fbfa3e9b028a2ba3f *man/dalton.Rd b34cf079b10c4484d6d18e3bf884db65 *man/dichromat.Rd dichromat/NAMESPACE0000644000175400001440000000003712077677467013665 0ustar zeileisusersexport(dichromat,colorschemes) dichromat/DESCRIPTION0000644000175400001440000000172612100160061014116 0ustar zeileisusersPackage: dichromat Version: 2.0-0 Date: 2013-01-23 Title: Color Schemes for Dichromats Authors@R: c(person(given = "Thomas", family = "Lumley", role = c("aut", "cre"), email = "tlumley@u.washington.edu"), person(given = "Ken", family = "Knoblauch", role = "ctb", email = "ken.knoblauch@inserm.fr"), person(given = "Scott", family = "Waichler", role = "ctb", email = "scott.waichler@pnl.gov"), person(given = "Achim", family = "Zeileis", role = "ctb", email = "Achim.Zeileis@R-project.org")) Description: Collapse red-green or green-blue distinctions to simulate the effects of different types of color-blindness. Depends: R (>= 2.10), stats License: GPL-2 LazyLoad: Yes Packaged: 2013-01-23 06:25:04 UTC; zeileis Author: Thomas Lumley [aut, cre], Ken Knoblauch [ctb], Scott Waichler [ctb], Achim Zeileis [ctb] Maintainer: Thomas Lumley Repository: CRAN Date/Publication: 2013-01-24 08:18:09 dichromat/data/0000755000175400001440000000000012077701100013323 5ustar zeileisusersdichromat/data/dalton.rda0000644000175400001440000002062412077701100015300 0ustar zeileisusers7zXZi"6!X!V])TW"nRʟXg%>e@GaL\jISGٸ9F.\Dޑ$]ǃ+[eY-So |>}3I])gJ[0Ta[ȶ-PnN /ӽb;*P1 ;tƢwpG9^"4t %@ܘH뀸#9oP ^Iv,QH }KX܍zm¤˺2X'k3ރ2/n_O< @\+wR q=C*VhRH.؎fOo JKGM.o R^'3\/{&:jُP;b'Q_ Rė2Bz/'Q $DNдgd|}r^ <9?,w #[/)/m ~ţlLN*ƃTY7xytPr)[HHU]]u!Q"'Ɋ D3ФaFb2P:ayA[& N`^*J*0Y,h WsK94yA踇f̶7 tQj~mk5-wγ !ry0&T2H1f:C#"8uz%nf}n=,^D/#+-1mCI15%kv7Ck2zKrGl@,*8^KfʋYQ}CԦ,8GҵItΥai[&-$wT1ϸ[iXSW_/:dt]TmRymRH9И`ŐZE%%i3Cіfūbb% w0Kh00Kty q^v N{[eO~t6G)ZDg OXg$hiݦPc}e|x֭J19V4ۨ怹ՌyC,_r4+>D4  .NpCiR@㾂؆$R8]K*)"NM(c@ Ô!}nFъ]15㮫`Zܥ8)N'*Ix?D0G?fDGt}@IFiWu}5%mp3 b.S8(]l7Nl`.OvMqooFX+6WG?ٛ-Yx֟h7oXa-S߷o%05d')l٦R/9)RaB'{43_R<870T}NKEis<5<|70N46ahF?D L–V n\nlf[P>&- *ӭC7jm%3'3m}y]%xK#bZmyk.Wtߘ? %S ێGPk'tuA_;8G͖3`-*C9`:q׵* f53 yd‡ gk2! lf.72oUM]TҷRfp1 B5uA4]#rŜ4 (х 㡷M %HFj6-9JW Js^]dR~tq  ie I^D|L뚎̼ 3&-єeLbZ(9<K,߽n9 ȅ\*n[k]sL(# <yYHQ2[ _D@ZԁG`3ZVO~ņ۲O rxeQzjq5jJ]\mi?%T>dTmPi}ZE'?M׆ u ּD+w(Y<7h^nKee+a>~PM&;",7:<?̹l_k#C㣯6p9D4zZ޼ͽd4< V l~\T m G^{b#Ay M'li:H.ҏ|, uhb53~[`b2=DPQ@H~ ɲ^7I9bWpblEe*F+FDDp>'\wSH?iKrEXL#sTeUɽ{AxkV:\g0чCKtqXQFı=! p%E_ Ӷ%r<)qGα9y:^8Zʐ]N>-r@0aP!>8ΨA|d~l}lLIB*PP TEFe>ɦ+Ma>#z ?afuEd`I@fo- @a݁HJesƙh ^kV!YobMDe!O("XUl;qnd샨&`~ m#%hH(p'hx4ezI7sJ2ӔLqĵHs1X Mkk]L9gC윔_6zLxv46rd0[@#琒5/8ʅ[~gTMo 8 zfG4|g, tUDvzIH(nt}I9Nn0?&=Vi$UmkKbNO.A-޹?Ƭ/`k/zCz)>~:T⦻6ۓp2-qͣ^?l:q V.7}8VqRMna  XÁ!h+sf|8vjq'y5HDrK5^fD#1gpcLRtk /b3[v(F^ h42/hѼ)QwiO(> b@&7aʇsm8RCHGhC 1'jVGҊ EzzY-GS~L4kOTte{լξ_il=<VX q=Z x$<w^X?jF F1TK\%MS"6e|Ƚ$K*Y,*c 4(:ɕ/Q@G4@g,mo67˧Ap%ÝbuZ8zt8 HmZTS|gשx?5ӱN}Ylع-莐i&7RTՎm3JrvD eg@^ݜBʼKR6Z$+IzTSfDan7YP PClcWY0Ly@50JޛN# 魳w?6g6˓v Q 9wAj+A TKI9Kf.bi7)굜lPq\눲 ;Ļe1ڽ^몚9Ov&ȋSPcet 5zkJ_)E(?{9n)+3&cL|?b=ZHrv#SDgxK!-e`s2l=,Pp{|iA,ܡ-Г%(GNTZx2;|/^,[<=6n[s e0 'E`lb,buw|Sp;-C%COɁ!qQ+;A;1gM(6%S]oLhF#Il eМ*1=oNx0lQQΡmwex% {tu[C{Lܭ󭙀{K *^N<,~/>v7ė E_a3Wx{%Zb OW_' I"jxa.'uw7܇|{hbbJ+6_qاW+LSz͌'0ye:ۗN$e'Oteސ3")9V1CNa Q(OM"LfpQ Cx,6cI7_' 1q!V"FX8 uyr)X "MDi(Ewp1ӳ5h%o+EIe; NJzC,'N#y 6f T4bʴh)p9Đƪli@b#}`7M<ֵ&{3>dzԝ_(sSwwgS( GeFxOyr:dy+%h_ȅc i./$Osj ΑcH_NTc{b #0 Q?ZH (>sYz`BDE.%(MbvRjY0 kDкγu^UGT .($WVTYj(!ra0a-UtYM̍]4JɪA<1Q+RMχdUa8F]HՔwD^=lYE)a+M>Cy'AQ^Ծ?@:wžCp?h0ŘbZ4c/Y-33B(ϢdUCʚtzL3;]!h=іL8 B|>0 YZdichromat/man/0000755000175400001440000000000012077701100013165 5ustar zeileisusersdichromat/man/dalton.Rd0000644000175400001440000000511112077677465014765 0ustar zeileisusers\name{dalton} \alias{dalton} \alias{dalton.colors} \encoding{latin1} \title{Effects of Daltonism (Red-Green Color Blindness)} \description{ A 256-color palette as it would appear with normal vision, and with two types of red-green color blindness: protanopia and deuteronopia. Furthermore, a color palette for a type of green-blue color blindness (tritanopia) is available. } \usage{data("dalton")} \format{ \code{dalton} A 256 x 3 x 4 array. The columns index the red, green and blue color values, the layers index the vision type. \code{dalton.colors}: A list of colors, with names \code{normal}, \code{protan}, \code{deutan}, \code{tritan}. } \details{ The \code{dalton} array lists a grid of 256 colors in RGB coordinates for \code{"normal"} vision as well as corresponding RGB coordinates in which certain red-green (\code{"deutan"} and \code{"protan"}) or green-blue contrasts (\code{"tritan"}) are collapsed. The formulas for mapping the RGB coordinates to the collapsed coordinates have been developed in a series of papers by Brettel, Mollon, and Vinot. The protan/deutan mapping is provided in Table 2 of Vinot et al. (1999) while the tritan case is discussed in Brettel at al. (1997). The \code{dalton.colors} list contains the sRGB colors (as R color strings) as computed with \code{\link[grDevices]{rgb}} from \code{dalton}. For an automatic mapping of a given color vector to its dichromatic counterpart, see \code{\link{dichromat}}. } \source{ The data were kindly provided by Franoise Vinot. The deutan/protan data (rounded to integers) is also available in Table 2 of Vinot et al. (1999). See also \url{http://tsi.enst.fr/~brettel/CRA24/table2.html}. } \references{ Brettel H, Vinot F, Mollon, JD (1997). Computerized Simulation of Color Appearance for Dichromats. \emph{Journal of the Optical Society of America A}, \bold{14}, 2647--2655. Vinot F, Brettel H, Ott L, M'Barek AB, Mollon JD (1995). What Do Colour-Blind People See? \emph{Nature}, \bold{376}, 127--128. Vinot F, Brettel H, Mollon JD (1999). Digital Video Colourmaps for Checking the Legibility of Displays by Dichromats. \emph{Color Research and Application}, \bold{24}(4), 243--252. } \seealso{\code{\link{dichromat}}, \code{\link[grDevices]{rgb}}} \examples{ data("dalton", package = "dichromat") par(mfrow = c(4, 1)) image(matrix(1:256, 128), col = dalton.colors$normal) image(matrix(1:256, 128), col = dalton.colors$deutan) image(matrix(1:256, 128), col = dalton.colors$protan) image(matrix(1:256, 128), col = dalton.colors$tritan) } \keyword{datasets} dichromat/man/colorschemes.Rd0000644000175400001440000000330412077677465016174 0ustar zeileisusers\name{colorschemes} \alias{colorschemes} \title{Color Schemes} \description{ 17 color schemes suitable for people with deficient or anomalous red-green vision. } \usage{colorschemes} \format{ \itemize{ \item BrowntoBlue.10 \item BrowntoBlue.12 \item BluetoDarkOrange.12 \item BluetoDarkOrange.18 \item DarkRedtoBlue.12 \item DarkRedtoBlue.18 \item BluetoGreen.14 \item BluetoGray.8 \item BluetoOrangeRed.14 \item BluetoOrange.10 \item BluetoOrange.12 \item BluetoOrange.8 \item LightBluetoDarkBlue.10 \item LightBluetoDarkBlue.7 \item Categorical.12 \item GreentoMagenta.16 \item SteppedSequential.5 } } \author{Scott Waichler } \source{ \url{http://geography.uoregon.edu/datagraphics/color_scales.htm} } \references{ Light A, Bartlein PJ (2004). The End of the Rainbow? Color Schemes for Improved Data Graphics. \emph{EOS Transactions of the American Geophysical Union}, \bold{85}(40), 385. } \examples{ pal <- function(col, ...) image(seq_along(col), 1, matrix(seq_along(col), ncol = 1), col = col, axes = FALSE, ...) opar <- par(mar = c(1, 2, 1, 1)) layout(matrix(1:6, ncol = 1)) pal(colorschemes$BrowntoBlue.10, main = "Brown to Blue (10)") pal(colorRampPalette(colorschemes$BrowntoBlue.10, space = "Lab")(100), main = "Brown to Blue Ramp") pal(dichromat(colorschemes$BrowntoBlue.10), main = "Brown to Blue (10) -- deuteranopia") pal(colorschemes$Categorical.12, main = "Categorical (12)") pal(dichromat(colorschemes$Categorical.12), main = "Categorical (12) -- deuteranopia") pal(dichromat(colorschemes$Categorical.12, "protan"), main = "Categorical (12) -- protanopia") par(opar) } \keyword{datasets} dichromat/man/dichromat.Rd0000644000175400001440000001055312077677464015463 0ustar zeileisusers\name{dichromat} \alias{dichromat} \encoding{latin1} \title{Remove Red-Green or Green-Blue Contrasts from Colors} \description{ Collapses red-green or green-blue color distinctions to approximate the effect of the three forms of dichromacy: protanopia and deuteranopia (red-green color blindness), and tritanopia (green-blue color blindness). deuteranopia. } \usage{ dichromat(colours, type = c("deutan", "protan", "tritan")) } \arguments{ \item{colours}{A vector of R colors, either color names or color hex strings.} \item{type}{Type of color-blindness to simulate,} } \details{ Someone with the specified form of color blindness will find that the transformation has little effect on the appearance of colors. Colors that are indistinguishable after transformation were likely indistinguishable to them before transformation. About 10\% of men (and almost no women) have some degree of red-green color blindness. Tritanopia is much less common but occurs in both males and females. The mapping from the original color vector to the dichromatic counterpart is based on a sequence of papers by Brettel, Mollon, and Vinot. For more details, see the references and also the underlying data set \code{\link{dalton}}. } \value{ A vector of R colors. } \author{Thomas Lumley} \references{ Brettel H, Vinot F, Mollon, JD (1997). Computerized Simulation of Color Appearance for Dichromats. \emph{Journal of the Optical Society of America A}, \bold{14}, 2647--2655. Lumley T (2006). Color-Coding and Color Blindness in Statistical Graphics. \emph{ASA Statistical Computing & Graphics Newsletter}, \bold{17}(2), 4--7. \url{http://www.amstat-online.org/sections/graphics/newsletter/Volumes/v172.pdf} Vinot F, Brettel H, Ott L, M'Barek AB, Mollon JD (1995). What Do Colour-Blind People See? \emph{Nature}, \bold{376}, 127--128. Vinot F, Brettel H, Mollon JD (1999). Digital Video Colourmaps for Checking the Legibility of Displays by Dichromats. \emph{Color Research and Application}, \bold{24}(4), 243--252. Wikipedia (2013). \emph{Color Blindness -- Wikipedia, The Free Encyclopedia}. \url{http://en.wikipedia.org/wiki/Color_blindness}, accessed 2013-01-16. Wikipedia (2013). \emph{Dichromacy -- Wikipedia, The Free Encyclopedia}. \url{http://en.wikipedia.org/wiki/Dichromacy}, accessed 2013-01-16. } \seealso{\code{\link{dalton}}, \code{\link[grDevices]{rgb}}} \examples{ ## from example(pie) par(mfrow = c(2, 2)) pie.sales <- c(0.12, 0.3, 0.26, 0.16, 0.04, 0.12) names(pie.sales) <- c("Blueberry", "Cherry", "Apple", "Boston Cream", "Other", "Vanilla Cream") pie(pie.sales, # default colors col = c("white", "lightblue", "mistyrose", "lightcyan", "lavender", "cornsilk")) pie(pie.sales, col = c("purple", "violetred1", "green3", "cornsilk", "cyan", "white")) pie(pie.sales, col = dichromat( c("white", "lightblue", "mistyrose", "lightcyan", "lavender", "cornsilk"))) pie(pie.sales, col = dichromat( c("purple", "violetred1", "green3", "cornsilk", "cyan", "white"))) ## standard color schemes pie(rep(1,10), col = heat.colors(10)) pie(rep(1,10), col = dichromat(heat.colors(10))) pie(rep(1,8), col = palette()) pie(rep(1,8), col = dichromat(palette())) pie(rep(1,15), col = topo.colors(15)) pie(rep(1,15), col = dichromat(topo.colors(15))) pie(rep(1,15), col = terrain.colors(15)) pie(rep(1,15), col = dichromat(terrain.colors(15))) pie(rep(1,15), col = cm.colors(15)) pie(rep(1,15), col = dichromat(cm.colors(15))) ## color ramp schemes bluescale <- colorRampPalette(c("#FFFFCC", "#C7E9B4", "#7FCDBB", "#40B6C4", "#2C7FB8" , "#253494")) redgreen <- colorRampPalette(c("red", "green3")) pie(rep(1,15), col = bluescale(15)) pie(rep(1,15), col = dichromat(bluescale(15))) par(mfrow = c(2, 4)) x <- matrix(rnorm(10 * 10), 10) image(1:10, 1:10, x, col = bluescale(10), main = "blue-yellow scale") image(1:10, 1:10, x, col = dichromat(bluescale(10), "deutan"), main = "deutan") image(1:10, 1:10, x, col = dichromat(bluescale(10), "protan"), main = "protan") image(1:10, 1:10, x, col = dichromat(bluescale(10), "tritan"), main = "tritan") image(1:10, 1:10, x, col = redgreen(10), main = "red-green scale") image(1:10, 1:10, x, col = dichromat(redgreen(10), "deutan"), main = "deutan") image(1:10, 1:10, x, col = dichromat(redgreen(10), "protan"), main = "protan") image(1:10, 1:10, x, col = dichromat(redgreen(10), "tritan"), main = "tritan") } \keyword{color} dichromat/R/0000755000175400001440000000000012077701100012613 5ustar zeileisusersdichromat/R/dichromat.R0000644000175400001440000000175312077677464014747 0ustar zeileisusersdichromat <- function(colours, type = c("deutan", "protan", "tritan")) { ## transform colors to RGB coordinates colours <- t(col2rgb(colours)) colnames(colours) <- c("r", "g", "b") ## compute predicted new dichromat RGB coordinates type <- match.arg(type) if(type == "deutan") { nred <- predict(redd, newdata = colours) ngreen <- predict(greend, newdata = colours) nblue <- predict(blued, newdata = colours) } else if(type=="protan") { nred <- predict(redp, newdata = colours) ngreen <- predict(greenp, newdata = colours) nblue <- predict(bluep, newdata = colours) } else if(type=="tritan") { nred <- predict(redt, newdata = colours) ngreen <- predict(greent, newdata = colours) nblue <- predict(bluet, newdata = colours) } ## map to unit interval nred <- pmax(0, pmin(1, nred /255)) ngreen <- pmax(0, pmin(1, ngreen/255)) nblue <- pmax(0, pmin(1, nblue /255)) ## return color codes rgb(nred, ngreen, nblue) } dichromat/R/sysdata.rda0000644000175400001440000020673412077701100014767 0ustar zeileisusers7zXZi"6!Xk!])TW"nRʟXg%>e@Ek Mczd8#CEfhY8?7Vy)->cJ25顗kQ.yJA_!|#, /^ މ#;gH0vSI~K^#a'76U;Yq/:ogq ml&!m/KQU4KZtFؘS{>dH_]ªmXHY@n!!j5o oqݔ$d'G7뢌HP%C,ZMژUbwO6MUՉ:Ԯ~11ȱhzxѰe\/jDb$s;`P);\ lwWmF"o“5bAJ*/tf6T9VlrsxHeq5m?ug;QƬx×ɳ-]ݔ,G hyc( }g|'Ҭ \hj˶No1rSZ9:6wX:Ǻ$tM*wH/Hkpl# _jWYTNc1*&(Arq}HTnv7j I[KxyAI鲧[u(+< ΪqU$ԣL#36 'c0TwZTGYI?|qQْyQL`j#'wK9A9hd)'6e $wH ,@Y%)as][s Ȗks-ޙM Aʵ=WIR$NjQQTb!*~\RZpr,ʶ8E@gՑFp+@ LU.d,ԥDb̮r} wlY[o*굣_<٭<׮cq5+a@nWqb gz Vj=\ڋI0tB|w>ر=XMod0`sNʬSKN#:gjXh"yE|ŰCiCAJޘ5zvL)s[h/ki겻unvRMKaQM NJ0@->IJdwDEAzTZ ޥxZ'Vrڲ0ͳՑu2aF mQ\5 ,ڰ|$.2qW.{<aԮ3D'ϩҮ(bmi@}glS['($eZ/ecovM枣"^GUV7<iBلf}W 쯍ȡ0Qt+0I3gnf}Xi{1>l}$7?zTT*4P \%k7\?YY?,ή:qTJ]I&H!c$ovhb`kODvhյb81 cխS".'SzrSt?sc,V̨q9oWSVOU֊ހsқFpn Na#6UuSbz'La# SwbrcUS]Fb0\_D2)p `:=1+XwI'tbrNQ$\}G4^#Z2K_yGjh?.GīAU@hF$ Xbe=JDҽw$Q7ߜ-|fh JA夼ٽj|(_Gz[΍+l9o'/.MtdO>|cGg=b>:ИR?).^- aY`| ^k2+/̆`:&:)ρ:}orX/od/nǷƏT8ďYaQuY3zq(;7̉.?Foܗ'.gbT,=_HBN:Hq̇(ַheMU\#Ki-W9IF%XK%Tse|R]PĮ|!G%?{ n-dJ@ҷ:,-4A`[t˨T+8* Ԣ-Bې[l10Kg<*$ԫ e.1nvo: -A(l@+\?1; ܩl~epd_f]67a2&>7f~Ȳܘ˶f'^B)Į.⸵v/\")VU6󜺭t $z'k_gN ض_kU3ƬCn˷ zoqf-r01Lүv7MOiw(0T*VUg~鵜5;KVXR*|ww)3xXwdRs!rВ#4k8laZa#[ab^>ʜ HXfI^|e.ZBE J}dKawo 36,H]NN-Eٹ|v2t[%ߏt2z!e yk$eZ0X0 R>leP?jB,t(iRXO̧cwyLv3$3gV!5Ź`yŒ(0v}HoL=}6!º9`Ms{z Dadŕ˜f5@]0ETFy7 ~3<3tUA}Ap3iK1Ԭ4C|}y5)pxdr>— NQ LΏYMA+NOo-~~vMt}vusȚٲ 0[)GuOH9{o2\[kLc,pRvzv:ej􆉕ĆY] d4#ևXl@GxܣbUZݻߗLbӈU@Y}8 DVGbAڮ`'D"S&&}N ~r'2Pvn/|f~׶K%W8BpSB)* KCQIL `Gbޙ՘I9}o+v~b%K9:wհ\ض@*Ff&q>nh?Ec*+~f8 1f(rgN/q}#.Jl|ze{b" 2; @Tˬb]"YƥGO@NoaЭD3Z,Zvcd\&cgT'0irtWM1&nB#;]) ʧ3.~-u©>Ig]9GBpYNqYئ (Gz82=@8VhVB>*Xpj ʋfE R EH P6bZ }`i˲=w'20Q$W:Y#cn( tؘ;/i@I'锽A/V>ʹ- .GY ӛ$֏!Vok)Y+䳭dk3 _8(O~a{j,}^jM=s3QB-CK{?Vf>} YjЬ=⨩J}"4Y,} zeˊ~7X#p>ρ D-W84/NSI,`iյ݂$7(U@{{J_Z}ekwJ^Xќɬ.@رM w,Gps^RX`` gCҏzB`rR:}v|!2&x " OsD ɞcy0L= v!G惑F.`[C%8KHV?3?le:&qm/z2}" bYe%3~{0:fB0ZG/MI(OuTTzIYp4"N /J*0-:rNA)ʋmduF=.Q_Eb Sa AǧIS#x,C:~Saw&T㽡;oЅ# 0vX ݺL p?|vHq0hnʉ1N!wMqFwΛȢ 1m89М$=!OM_&񱎺)/ޯX`ߚU0QHRV3R}]=q/е̚;ZB<$19vW4,ԋH}K'nE˷~?8+6 | l55qlN=2$wz;@GQ WR-݄1 ԸBylSl4eŻ\}D㦧Xk>WCkk ygG䭯bwUSYDx8\`ڰz*9 yi4/Gw~H͠ix_[\ >Li. <\I\$+SƢ0 BOFn ~W>}Z%$Q,(B'7X2+*3S M^'k=xD*Q?í Um$Xo8XweB V$ٕ}u\VQ{86\g U䨆q1*\>{I&x9wXw'~ P1f 4:PPO*'FNϑ4҃] Jc1- $ulL {\ [(|j\ F^Dդ7W.W/<)\+vL[DWfJGVC)zN}mK,p9{ϣh\KWK3v~1zi4@a6%{ -q炷jz6y]iDs @ -$-M384!WC9ܞJ. bciBNEl?4YFԲ2ݗzZn  T(G7:JbSVjfhdqňI:a?RK8kfBV<-VYBY WQGF%$@M4g "Hh=n͍ONt^_67 ŴNЊTs5Uփ 72G<7v{Vxq'*BWV슮[`,{q 8@U~' ^^8 hTBB:WTC/+]&D|uEvO`r}ͥ@;_~JiTa!pK? B6&Ω}]"Bf}c:(Qe]KawBa+qט ^7W*=.mL Ghhf͖Wpwn)#>UIkBRe,}*N2EZD-j`Zg^$o/өms^=WO>4 7-HU}}r4 +N7z mT&auMF:0;\Ka`ax3, ?|$s6%㣖2 qj Qg({k^W^'OqLIe^X5E˦Ar~tA 6D堬A[GʨjmSRڔq*]~0@48-J>(HU-ʴwjxqECpɂV#lHT<[Q+&=*j|2a.VbC?a&ς'Cc[dn"=(PX$07!BkhSR}Gk|Z @^B4|׿Ӝ࿴]qqn*j>UIs![7"eQ J)~ϛ6gT*DXAUY{[R3a~fU`0TSWi%$&g<wQ[:4AQڕe0 QZT< 4s9Po{ʈ^"uvL= '#*j:MNs핆F5Wu)ysXF`!/pw G4XB0)0A{wi>ķ9O݌$1Z9ݐuAm{k(3^kT*mQߩHEb-ql(9ewd;j\+RU/j<.~Ofrq۽]*٭ɱbX,sڑ/fBn|6#W4J|>ҡywsſUP0g?v2ο <9L@-FeȎُaa)W΍;&{^gYHrµ-z>QRk'gVa= F,ziZ%; ἘS;cTׄ\'d œj\ ]N@-XNe""s|:N~%=C$J|%a7G1*ݬcb[x)0Uݖ{fkӏIH]}RiWɵȎKw}Bl(HUVS-!ǿmvF~>;޺vXN\=P0deb9Ft?F5^vl~QiYR96GnWsj@τx0QA(2S`;wp`5D'5ph4r}yK )ɠɇ_,"~l|4_\phE߄wV*TOBQgTBHx<^#ɻc&^Cn _y%EU,̆! Kf:(7ō1'ZN|a&NI(>/-AK̲;~En[or7pY@;Tgcktˋrіܡv4\Xi]%@1HxZ]b_/g#mLB R_^ma`Z>1ueG3}F >KGLևr0ujߨ2Ĺ"n>p 2:\@:`H~I/Ycd8]X|OIMk7]Y 8b{:f'sTz$N~RSы'W*R} XB邠<-v5m#_.雧?klfqG?ЄBdxeOeYЯf/:s 5bb7<? p}x9%swG pq]bJ5eQb`hv M?} Ǫ՞sOT:C}P-_nu;/l(.cLCǸTuraX+axbHZR*!hY٣ܳhBt|"d@}ߕ> Ќ;ދW&X$iRꎠG T QuKqڕ8͸ jbsN4Jl}9!d0l'P)':{+}`-)Z(++a !Yϑt& <[HHp׍{6>>S0 ڕB/цqsb%\hCLk\C%~,`k=_U]Lzj' ;̴C2^X0G⩞$F1m=jb:W^\_$UT}Z#ݦ 0+#M56)q! jzr ~;X_c9KӋM#ٵ>|E0a eXtıT:Mv^RkRwb1 hJ)!&SϦ&')cz$M3[V(9Kg%c} ǢvB ʟW qV7ꨎ"Q<2&e싳x:dqu=La\J7CǕ㉚մ-9eg$r֚KK^yѤw*g4LE`ws$~ (!z8"FQn;u)Y7݀ݐl֟{ Fro1/)kFcS!1~t@sMuYoN* rbhI8c]L I>@GCz2?̡:`+ZtɄT#nҽfp,)#y :j Ltw[tMsٹJ5#9+MFc9,t#NMHX&c@>(:lDY(;iog5.ߎi^Tj Q}^12rlqucP'Y)٫z h <$v*nüN?g|j%mUhX$xa14C^$ 1hw]ky؀@h۩Y햲M> ;ٙإ|Z7gZdz9!zYPNJ^okY~cle N3 .5g/ e"]rP; e`6]*'|dM+Ǝ5އVlV%ef)Vm$?A 4v}J#WO(Xuy!qŚ:&#n +IE O{㉹&>+7<|ܬ*xK2Qz4U u`W}=(WEPey 6M`Ro&eZ na5.j-! 7_6$3[dZ;JTBEۊ q++B7wcBM\9BFhuP^Մe:&/NhE怵K Ʋzӄ*JXt| Э|;9mZ}d`*U}@~G! $mW' 0Q_ݕYâ@5u!:W" B#Ù[T{ #. fģ-[sSrXN>iAIeOlI΋o<}Ľ4D>(MO[oz8 cWMFja)ޒ]yq?xEI)zS82u $ZE_- $LQE||@NBECM(PN%g^!uH%k`s+;VCA6|ݤlWgH"&FcmKңϠ>d3GDCrZP p<$uNL>In7Lx:R6I*{)-dMVBYPoj>T SH*W`,ijRx4;Dé !d%.\s BQJ^rO 쬠f OhBJ $"_<4lފUrs fy3[ CQUM/ԥAE;:suň]!glF'NJZyIƋȿLlZϊ־rbѺ zP,^T|gw+r'͵HH 02}B2&cP(P-?qB==ҭWav:<rEoleX7XlZ\y%هx@!E?eYE^]DT*zumlly?B%pH+ᕊﺥ!8L 27-b e 2xw@ 9 wϪ $,\,ϑt g9CbRFLBHXBV)(pjbolV5ٷ,ר,AbG.&ëccN~X.}VGDOMtۋMrtu|."6@T/LR}ć9TSXwtcwdz•awa3Z'(ՙ;{o d_$ Ze/d\> gv9Ӆ9&xx_ 1YU\(5W>k(ʀ|"x!=SR }3*[#~vI'uѤ5nP:^U.`u_&,S]y3;_(sR)KG.-G<^Ȗ.^J; MAtFƠxߋjEEWύHIҰV>W_WshIM4 >X\j<wrI׭;I`Vo5̌Ċ,~w=k7mkĆS!k !<|`;kl5X{K6xy8Q01Z rSV7dP97IIiڤL l/V؁bdOP8yL(#jsK]6 &WYE.3IsdE_D8isC $=؂^SS3ǫ .֩ޮ1oW qyR1șeݡo8ynv!Tz^+ԛ6  xC^bqOΗQVm>Q݂Bz9C4@6ut+O`9/ͽ-"Hgȃpa֔FQ9 Ҕr?gz&ǫ,PNpȼ8,,_O >kH|~q"]^>-<%Dbf,׋tݯc>CCp]|u^K0E l3v3w%@XsźY3OEf5]D؞HJ~$F|tubn/ة+mU#Iz7(mjZ5c>s~*eͬ:GpOUTx0Ep[-hx},,1iaD6!AmBw;-=>x[^1 晨&wQ 1 kiѡ8Q麨|adfD^L(>vJTp‹'kt?$uJL2"E84aO&@c.N"_K< '~/g#12äq>Pc/b:Yyt"׬ 5ŖFh)v$>*v~t^>HpIqxO+$G>EƻtXL8Y';.+Ez2~ F~':"P|ƈ?ҿIZjaq0\ЉB ֻ>52Y@k":3jQlBcYO[ᔤH=, '+IHRCp=AUICŠM4X@E%I[drR9 ~m$BvG_7fZswEZ^Gp 'Y@:7_W!Zz+;ZR";=믯q30}6k2=e㐵.2w*j8KzT_PS7Ïsxl_ 7trޛhAL: *eeȆTxr>S5i Y"s5BMEzL5A;fwAP:.P]n˾jVaNQML~e͉gYhmҜc3.AD1;4m pܹpg91,xʧ;MYwa!PL v)*0:_G#s Iośީ[*Wӟ!` 'Z/ t/V"[LrV؊_Ox7+Cɦ&x+T&i/r[Hc)DN-S Z i; yvUrdEBM$ߪntu<|Ulv|dcpT&UPoRF&l-ԡ㢺~,guc@ܮ× b@N:-^M_; J%fħnZT4\pݰ`t_ȥ1 o TIXM 7lhE:c`'~NEQ)x"ycʻ5r)5눘8 t`X% `t]|xX=Rve!)R;w^NЃm8sPhVy.7yn;;˾L[p/4d|E4RM6ж0f001l=2M<6Seu5%# U <@LH8GM$` `z..P ԓs\0^lQā,FΓG7ט6> pw X]ɚx_op2GۇX;&r!+L9$SlgX)@oޗ+cۘ}Ѻ:] (Qʹn99dͣEJ'Q0W^0JAA$ 019gzk' Z))[=I >Pb,(Nxh߸k\lLl3^ TrA7%L-jw/Enw*ɇYNJMhn(W0&%8juH= u٭@Rda<hΕu~G-pnC8?}jF)8]q!1*_6Ecץf'5$ޗJ ua0H" *,l}-ę9xu6B6 >KK>.S7MES5riEd5ۙO/N3W5=G%<;ps%yKi)9/?Zkjt羆jj* F=4*^삾OG[ sL^ F~Wͨ$ Zl~PP_Jb|ud%@ cف?qm=9% B\tWY. aLpm?xX.%_d$|, 8b9×$u̬){h7,WCQ/F*Zz}[Cc,(wW~SN5Q"qen}XCn_ob>Ȇi6h fʔkC# Q(ѿ|F*ҐBHڛqL`nrl D]7+yj2(se!/Ľnw :»"NFK^--1ǩ(jǴ!Q '2W{@a7OM!&_d۶7M5`&[(LaQv؄_lTg@8zp"գ&:V($k?E %Q{ԟF̷P.@e6q|Ct;<)pPRr<M_ȥ)ǀ`R4hi{[=?uFA}!N˪ Kelvd"mْܠF' H:`iȑ%WL( 8(ĭk0 R 9| #;esMw=lV+ϔo:\_ !R)/FN!ٜ zsw!MYDQM.Q1=ڰ OEs}cѥW0l}7c"ZlLa2rTJK!f̾]-b$٨ ×-q X]{,p{)d\f^eyۡY`-Hs@!'\N(yߠyD <0"6u^8@Ժ!Զ@[;}TQ'p .9%>>s@>2AE0t+hvk .z87Qo>s᭸TT ShZHw34`S'{ }zP[n$|Cl#t3'>togk@,3GTm5 JPp9_R7SK c!vFCVqziJA lr$|B+|_mA(d6zj*)/\SVy1H3d7(ͺ6>JTౕ\\B3eնqg*ʊVK oJ!H4mv$a7]pUJ.e-X:>aqK'zkqqg ˚Oy!:LN ?e)o+. S݀J+ӥL0l}?1^[/Rjñ sP^}[]zrvYŠ4ËA"u Cՙ)BYI+u<*S[qdC+!}lc˄Q&36C2"봂44`fa"څ&̈́Qa.ýVx~hO-ÏlC',KSn|,>2smkCv뱏Em=1Yq~) KUo46de d#B ۗݜб*a,M u硩EXX/O VlTWoF6]ln5H8ֆd#j ew/Yֱ@i}Ѭ $0k'lK#B ;ɯe:?G&bdP|ȬiyS:AH?X%8B-E;Hl#nt>$o k G&u:VJA'VZ,KmêSLyt}GU/8VSK{1U|T&"POT*Jcs3}W}I3I\4Ӈ(Qprr@|J[O2.>7RL?3s9A_^gBtQ1qRU'~/Ƌux9@ T8I\Q57Z©Q[VvU,OU EԷD?UQ]BpH}d<"jPSG`w$U$YQFhRJ#q\=!6!fp$~^LƝ. ‰[]ko˩ ɼXGzKgzG/5rMbJEJ9Dtd,9A+Wgzb齁}@1xRҥ8n*<^Ԝ%Y\"X o"/ @qsѦc 趗&u*R}xS᷵WSxaձ FT4QS3aN' 7yE wYK*eX6GWz ?ux@S쏨qD,W: eR-̚. IxXZ 89&&$λT9#ЫH@ Y 6))RUw,gqvwOYB ~#i8ZD/|HH_fԼ씎B2wYL[\m[&v M%oXeh*8+D5 謿QZH;{ㇵ7蒤{ ׋"*Zm[7WnA*nǚЅP$wp#Ec]~Lnm42Q =ATt{7Lesg%y8?MT1凵"nsFdVY@j bV\wu4!ѡ-$`#eR7]U&[5o 5<ʀD4h4zX1庙WEHB %s2I:)j ʨEQ' _-U v$CբQ_5yoVM|> 8=Wr3pcϿ.f|Emè %xZu^g18L&@ڤӦrϾ"v]v"IuPG <Xf=_A& qSPgWg ~[ $X{'4_M˜ L]$,nc20͑i;6RU5/qPXE3uQY;Pϝ2}+z%{;Ypuf>O+=8qׅ"JAlfI]ɶPH`2(~>sBD;{'WxA6EE䍼 \i`f}uش+I,W^<5͘Yh0cŔW?$nP ԆC4@Xc?5v8QQ휄do&#‚SeD|Mڙ!dZ<&G H'HOCxo7;icwY~&Ǔ1m s;ajЛמg8_=igT@ 7[I3WE٪D/v7ା)*g^ڌ~_#m/'`9Rl㉇.fKAD\>JUk[Ÿ@5iqvgRۘ}'/Ѻ;]>x&1T͗}_5L%yfhɱS`P"&K}ئhW=+i_цMunMwON'-v]'مlUuH' nvQzWXƈ}x*ŸiXrwtP짐P=VJۋ# Ns'pcT"0sgȺǮDRq$S9lE'K)c?5K7eWVwi5^~go^bnzY"KGDK.v#;MGigI$bpddE8Z%v3]PM 994H vc`jDb91n2~jn.8-a>;zqbl vzIO͉Y]*  {Pp=85`X |92tKײ=npʴI1v\Vk -I=!`RUOxU:TM(tPqQ [=<{wՎ] BuOu.S/{4$vXqu$=bcN >zҪDb^1=9 3+j0N"~?,r[/|`Vl | (0~z@,@8#3i( aؕO=_cT$u,4 ҫ^{;/ޒ eO'hG &:3L\b$N0w׎ 嘘0PcF>n 8t5|hD;fMǼu!q#$Q&QQ@ӱT:!?ż3$H(4($:eSŊ7@P]:>5娏,ltE_k+"hwR5*3>Ia,DL2!ĩ O/E//a1`m޴BʳO8P%{{A?.AhLb]g8? ˤxH⍒$`g\K4*emU7Ll=xR@])#=b~ȚN8b&i+Z*Qʡw^'ғ  ]N|f #@ ❔F)-H/5 XxƊ#cDQ!klfYxUYbF߬jpa9lLMUqm2 >Z_#JL;y"eLq_uz_n;{zY]gR-6:@eo@{7݊7wG9}\rY5,!o+ r˻-(Q擽Će w7 e 'rZ{hbU(pV=|>AQ"i:(FPznJ^ jxVf,1< 0 RZ壢Ƅuqbp/#ksBʤ<ps]0 B {ȥsD.Lo);kovxL)-Y>6N,C b^:-S{6kޮO: <28b@ U4=;AX[~sPDc/ ,(C d|$d@arDf~u L7vKg pWč^НaГr!vu=2$>;$-##}>m8d8e$p$MϢ`dTr(M$bъy&PIZPu7*6+6V 晖sv]blƊ[+.pf!V\̭yѴ^1 K v6ro-|c'o 硢 ,Jz%c! .hУbMIm#hm_AP)`YʸSƟNԪ-XU捛HDA6sx8ȿ(4GXя9\6YZ [g5wj_FvjfݔjgE ֏ȉkV#Z}بpYn;ԡYrp޹)lg+(X$,4ҝj9S VEm*?SVwguBDޅ !xC9P3ΝcPUmP$?H n.@9ДtW{8{z*S47c֕oG+l/5 *`4{ԅ,@/''SqX,zE(c[[AQ_1܅\Q?*kJH?xN׵;9ɻ;ցԥ[ YM81ҢN& ~6+ ?su v#t]91Q2%sd kmL|q7+g`HRN MSM5Oi㲘(4rC"|sنҡhk_zрKcZYc/a00Og`2c2=^=7CҒu(&.n'(J0^:kZ W^h/ɗD[1qΆ M6Ocn *t"0@`U@6p?*CGE([{H3W9~Ľ(L7܉-O)qKyBVEÛgg>b!Ij= ^;0ZhWZ+W2&]3hSBX8hgj&xb ˖b{o |M;/v sfEaY3r|f$~O=ZJ(7%ٰ#@_5ga[j+f# uJoe1: 3s@ur7{IF%H6FZj+~$Z =oF&Q;0ZR%khr4?ҏHߊ+ 38ưzY o 2wx'ی/|9մAV#ɭ $B2 Vo}G礈yɴO^j}M&Wm/OSuYL:f30ى8{*@L}V 䉋 jxQ6fq~-yG^[e)JZeQ5,iಠmzj3P/*ՁJ2HgQ\_:4'+Q$) ?6fk7%*A1,i9:{\Ut>I_+IӴBgkѽ0{A$Ѱv% Kһ(E R*|@هT—RknSxˣdy!5X4kW >"r?Jv8gvc43:rco]~eA!!2]J@HcE +8"D)2׶OH⨇{ ΧesY!ͳYZmZQGܽ-`Fjmi/o^c <[xVU$_WwtA`;_b_=ջԵ$so$3rɲclϫ"GQd& >~"}WU@맼M7'{h}톍sy>>[+ySɦc-0㭿r)N  .MW{qd͑R0|$)jZLgW j9/#ИNqIQ9O7 iTʼ^͏-̭9irjyi_T'Jz/NnΑ &BE`Y=ȍ]H{H ]-,wi =uOe {A=کۋ>|fMH TڷKR_c^Fvx8 )%c"!rj!\iNm ?ap"DQ"זfzv(dAx}%`[L3ةw wEWYe:<\?3S'4āရRReڎ$X`*UTIniж(!q@?xX}c-ڄ( 1MI-/<:dbqZJB.l15n\ f }DZ 3#+=Z?QT6 瑱3bc8~8:2vv^,Vgn5V Z d8`E*|*%zMk%قOxu$Cث~[6fө\H By2ʺXбP߀=T fm BfAAuIqLhBIft(8P_g˳6/Zb* yJpijt0$#VRp`ke $׶Q:1+{V$vޟ_{"쌄) P۷&9r7]8:(iOr'*aAOgKPƬo:+;fpbpyOV!$܂&i-ldGivJyo4-),NGm̖kU"yy8_ٕn#7j x~3fHp8¶✎U~g"[ywJ疎#e .""VkҰ i`\ů7c|bղ&^!.唄Cߠzhp #,GwQb俶.^lAYEn'-"bd)*=}H)G3y(N婼@oddJ3#8[9PKO&ʟZكbpU}f1w~p-h|5y} ]QAŠFbs.t"М"_cgR!vU=@f"|O' \Ėgn/>jz}]!d D==rmDJ?}03FC8&b5{$SBx*K|I4up~OGf*$Zb-ײ7S9@3OC '<9'j:SF@PbnHV_KN|Nm/?z}IF4͛*qZO*ԅ|ftjՆe[`U&'q+h5Z|Zڠc'{^؀YUO uH](+g"4ygܜɾxUA <%1&yUZ$Y!bwJzu&(kA^u5RennuGP2 32q7ٽS9naxx!&։W+C{kf.>U y9ENo ic$bzJH!Njw9|pj'؋$wW41vؑmK"1`~niE?'Z%f+ :ס#-?#)4{| |$ EFMW-Rl!e|P<)a 7b=i&cʛiD򊞬eBB;XyK?c䜞7EIf`?m5ndnKw) (o:,+h,6sP W #H`C:H|dz#9AވԇI>}lp9wF>M}ZNkљY 1vBj\=p@Fb$ Clk ,Aq%P7BGǀ UaMĶA2 7JFU}sN9IUucXǵVi} md"%m ,{RhdYC%)Q4 LJqW_䲴/ۡ=`~Y lr؃iC/vQW77~﷠f%B1T,\T8C_a=p''jk<}bݶ.W,#VKtXے9W|ޞ$aK}5"D|ؐF*CM7KiaDtTS!],"iLR_ǹ/=k_(\l(b} <%4A qd(FjKupJDGy>[ijl4y([}kQ䄍-h'6RdzE~!SIXB^/MUN,sѩ$TCQKhjx޳~AHQ PV$KAT+,868ϱ蔳z!J)i>JhScN[/69OzjT0/c3?Yw#G]1Cx/c<+n #92aز- @<# d n೨mBEw7Lw1v$:;GT@FZ3x/Q1szr'C"YnU)w<9 Y5ˣJ>ZUl͜S+dh?{˅ oU d.]9D,O`}_6u!c{(]VԺ!{߻ vM9Q)n.t ya@WpBaӁL0Y©~ (/xw4)?&-!용26135r(mh(i:pʋ" 4+[oۄsua\pK݃r{/^ibqQKDuށ#t{.ca" r r Úկej%S\z ` _4B@n?>E;0ʝ[p9r-2eF+-@9q8~]$m_y7i[jux $po ͷ| PK[A:[ŠgwfH1M!H4x2& @oc9=Q",靠n6L[V2 X}8RkHXأR2nd $ƦDvdA6aӫ=3^s!vR.~TBJ2@Fqs:T9aӥn_0 'Em3LtIIdG;hKLfov )_aʕ+ B.nz垸je*^Ir .P?տ6q|[ح esL?W穣 Ikꚕ2 a#H#;W0Iy{%!JX 8 3M&(+ mju<x:Lw#;oEͥ<9aj>97Ox\u`zЏXݤ#'#=ׇ='ə!$<{A݈"XR3}P+*U7@H:+>RdumIs4e/셂8UA-]?#S?U!]we9VuaO2vk?ʴ8eҀΡ CM= ػVپ1'v7ru-4 5&lLf^}3.>WrG19%iAku2b[,6ini7?Ɗu5xǐkD̓,aU2D!NxgvSCl(Cſwx2i봆+ƸธLz_裈V]y.w=0Y'Y?CMbX|Fa`#& aO :~\NC #卷~/w{brg)BuHl:zj91gEd%;T7ǩۉ1,dMģW'2-MOªlJz;*x'bƝ @ٴiV4gTŖ ϡ\se 33#A?iv@l$ɍC3G YT1i8Ueϭ#>/f|\v-"8D^Uy߻ilBZl8Mw#Wi } Hḉ%-(it>6"uUs2T/$o;cT5иuE's>Nr :!TMn{ 𞩎&uV5ԿZ} dGecP^ku5Sl6N kX!+HK)h~x}dڙ#_7j䑠{[NR==pGTːLUC0d$i9g$~Yn@[ϖa$̈lX،Gz !g'=&{)֫3eBHrp2 Z uUU@W2͕nuknRn={NKDNB=2smt<\[zv?}2$v>-1+ו9іGZn/YL[N$!qCCc7%}@2]!,fR2 bN:)6h ^k tR?a5oQGLQk`Ȯ&V}L);й1|4=SHa\:tȮn˻.^Z8` Yg!N xoOv?`97сLѥؒ{xF($tz024HT bZagų$ʖP%˟p.5`BT:(͘h3` f7v5k9ɺGQ"tlse){?qճX+@McAWTԄITEb BhK1E:jN\WjΞ <"M?+(gW(#-Nt`@FdcHX-jO::( B prKΡ 1DӇ*>ͺ`P'$ ?Dkja‰ol0[WN؍繾'Exy@Xu0C?ָsէT׽.Qk1=~k]5 5B`lî#+>:u\U/:E_֣u5kUSbf]:/tSB#}J`SMcY>s ^BLxi=xB] @/VR|nZt |;TQ{Yni)B,gZ{+-pw8swzhD >ӪZ*H2 yPi觓`k91 $^ۡ8Q^4(_x՚_٦LXmJׯ.l3s/OPΕ' p 1Im_*ctUѶ1`7n-9k/u;z11hT " 0)T@@>j蜌(A}88Č7FgoDcRٴ<'MGSI8`7A#ᅲU 3[Mm2ts[ Қ!xEٵ>)IkFCSָVRA{MnG~qJj,qDOa1k!nVk]Bu!׋ ȠQX':;~!R]uȥ?4ñGv{SƮW=XqetΧQuL '%c- ]+uȘېDPB;vXyѼ}cRɸ?g69ڎvsdFOE{5{PT[+ 8FmRݫa^/YxOtf8! *ȡ@YEP|t]4~béim/h+* G/Il8[i]=W0]ƨ @DD% ϩkҘCF! \]>8r1WPEGwx(Chn: gH`دpaI 㚾M#ĨKZ( G$k@@$!WaNb:H&rS~#BV<4s#URn>=^87I1I_\󃝩᳂V\G3(1?D$,a1O4JoljJs*u?,?H ͱ7|o3rPsm%y )(mL1-{7͔:wP8&,|,n?%3Ns U\lNH ф$P6[$g&{|Al 9v:cv>JvBV45,MnDS=BN eUӟU)}FJaWoJʼnFw/n]_a?cS rxVX&~G;f"ʖG~,lE5ޯ8I]½h:_ yUIy1E3|!FAAiHr+p1{:Ԡ40T?U|!a&knUwA{We_ OHmE7c8K:b[r\M&9hcf`+vx =Ė푯GA6Um ]. J `N(P!WK{FsQC)A[@JZ?U̻GbϏ>;L3!oBX%kf\hL=b hs&ŋCKх}T8I\u*F uys˅OM#>% 1>(_-o5dc3v~K? NFULrYLYH# 3;^FQ=▮bIW-{ 8{V7lhӃo6 ,NL|W&ܐcj$ zRQ`&JgjGN&Y}c۱6%ixavD'_3 ܚ@l26I''e?[Ba`V'@m^e%\6cMr>ٳ.*A?#SBؿv~p#jâe$ ey` OӚORrqѷ{6[rtwB HD*eHE1@`x_yw< yͻpZ?g/|JS`.,ˋOsKkךϯ, DgUW_p6KɴA#J!&2o0f2gl?庉ݽ IXfe`UdT5= . -|8{+A?%+Z-ؘ42M;22xvx>|YA7Igot(:<3Z*+%9c.˥o٬ HqSSeDKQĺWyjZXHD t!9Fgml;/8 _Ӱsw8#Hi$ȶ#LHK:Ou7&D\sqj3ڱVGIh7X[Gv f9?SS,~"uW8cQS:_j(C7ԦyG-A /&ՠ9EP6%(YP BPAᵨ`QW^`=io(f2x#o&.Ȋ|Cr թ:f]7*.s%0!vhVb x :NfH{2IVwӿJC760PReO,ި5!e@Rڶ7S`lӻ:|c0^TΧǝNi7{ڮ̦d: 2\yZISʃFZF!풻ijϱauӝNhZ ?xZ~ 1woH.p_`Mk٤n (RIb8ђQ)뀲:r^%B$(h9-5T`#[H;0N9[@G7. E ꧱ǣ>"[] ';I/Mb^fȞ%;㪨wծb)#|S~Ψ^Ry1~<[{E۽.CxZt3!CkJ&F$ARϿ@5gA_p7(TV';0\ 7<Fv2_E+'H=[ԥci lٓɭUZ|h][U磃lOŒm~UN5hH "ixp-H]'&HJآz2V̇Q%<; UޏALɃ&(^-3\cvf5K{"~֘d- Btd}N8QYNOe}1 15A| &֕+)9i.w&>`?Faԙ2O )˻l3.GW'oPB}6/y\ik43M|°|"E)R~^.Q^/d mJt(CXMx_p2KHji;Q{%N>q+~B1>"߆U+ôA?&+s2įCL; AރXIO#[T ,]"Q,Y2p.uVUDz#bJ#–OmIʦۉlᱤ,}WuoڊqZ^WڹK8TE8γ]\5 Qjqǧd10ݫCU(v,dC渼'zg'zQ+J#e`%&[6;@Ta S>?"Vs(Jߺ4x?? x 7ĭO}[rr -t;q9"4֙E6R1v:phкVU:ׁjHw16Г_$&8eR2@y{]o \peJ<_vpOn+ Q*0I"/V4Ӈ&Դ#6oZ:7jC|&ꁒ`]8-l>gMsP\fҋ FUlXkiv驸 }3jSL;cҁLU6ḧ́k+2ᢹ n8ͷInCd9jMvlN_ &?? :K _3+vdRu@HL5֘TɛYjJvj~l9lj]&8*=-1G'9p(_N {&qy\~-j 3]`o;|iwjj00k[e,耇o챗YLan/ 8ݍ*Lܴ}S p/*Rc@^dvq (Uy 5 Gb>OE+v"YN+RhG&q=]W:Wx/#<\ROڮ?Pw ~0Pjt]PSiHlLx5PA,gʸK!Tm:67{$O܈sFah3ޫ`@uzb@ZX|dY9d/{ %?gMT\5 4Ӂ&DځUK|8,!<HNY?Z70X!~9D+Y*e䘘hXspq}[BCQvRArHu91Y:i| Dk -?$O AҰHkDr{ۡ?R?a'<]x170*s dbȇ8iXf4ވ5$yA[x;ΜisU:旺Jl3 rck,EbR hv/9,LEԈ6dΞg?\[:pvV|.+]ӹqY1nRKN:|,^:Jl$QRf惨6Xh쬼,े.%߈Esq(3jlXBLUٌoc-`ю_6¤|ALs;<+SEiDr,ɖe+>&?iHhQ_5zs!kOEc\a~UE@l‰SHC(xNIJF ̉84]89A_- ,"9L<Ǝwh0GvƚQ.8n–*X.hf!5O x !3|wGct[+7P <3Yi[ tqb8WCԲKlrGv;c߬ʔ >+q25 _ڟj@NymjGz " McѺ4.L 4 ?cL./ufZa0L@l_#?}yowoD7DG%v%CZ=;G{dRC[(6#K +coMQ=EM}؇'WM9eH-@pIcD`9j\i։QZ)T=,#t[Q_̈1ù0"0R"\mHӾ[Kyk9Y4ܓJIMx<vx6D β$G&>X&E$\ΆD<9tP4_}v!GC.kk|.{oT-LvԢoR1tikU:瑋Q=u_J*[Zt]Q ~]>VIl5=Rslgl&RƛI61Y@bq6vQ8N~NwaKU1MiVJFx '9(0n5c_&OfErob M EL 1!߆xLK =x%zr؆9p2]j2V_K-7YeQҞl2ǓH ?>`P#PJZ$'|yudnA݊ЦjE<7Y\ٓ-A56e.u9_Ƀ^r^7D s$A2*L!pÏ uT9w%֐K }c]ݲysN=%D0ο%ķ˭[SLM %$7foHBU^/@e_TR  ?x}]~C5c@=p0v$ݒ꓏۟E {VFp`_"6ae~!ܸF{g+Q.Y7I$hjj)qM6=t I${~DgXI²[Im`/xJ%$yD{rvdL]iFP[Ovldqh+dp^%K -VtW]?Ur{cw -"6>VR@ gSĵ^WꃋZ$hpB{"Ȯ?ɸܴƱܴ{+JJ~ծ#zċղsgp W{I {I *-#zoaG*\Bi9^;&xAW.\FY#7Ĝ+1|y1s!/COV&'f.W _cሑ<`$tRNxKS}27Z*n'gkw!I5GeW(UI]@ JÔn,fh_ *={46; )xM8d濽'WjLf诙#`&ƸS D`JMu4V:v9HgX%?:@q`IХ<=Z ץ "wUF'ߋh1*7ՠaͩc!`$Vļ@Kvz",y#jK+H r8:..(g00`C҈B)>T5eOCNpBGO湣SGAJ o67Tv>ײpyMV@\b΄"ߧ+]T)@S ~_.IoCbI趑|As^U[Z.|.$Y߫'FLXv]U`Z cԷyqWܺv:jܥY//<J2JT=TqLS-"=|&FX ,YsDŠBX7+:mq>D"z&2vJ:F`S_zsK?i>޾_\Vk9!XWFOtՐǞ2rK'LM9Gҝ&A@M+7(oFc9Ah{lHFʻzRߋ5d- CSQTJ% 8B| 0Lc\f+4ˉw.e:K.1^{'x=J ;M_Sψ*  pAm oLE=Qr^mPbe C-!cEh ZvIT)~IvB&^Œ_)m2ЫD~6 &mdÚc1yMrvvO?ӳ滹8 j¬]f@[p(=6OKUmI7ESܟـgˣ:cg,hU/Χ$*1-H O]*{ɭ(3qX?q̀;>0H>{?Q1Z){5@ǣ3#e_\vK;*g?YGBDadNu\rwwhLNC[׊oU!2.qKN8Lɵ64_Dze&[ʴU,"#KIYK3ڧY pÂkmw.VOME6-A7E@ꗮٙIJBG!P%sJ'%\Yu`;1ݍ*gC*{=d@,E) x%gPD:ʓʲЕ"/Πr#",E7'jV1Hn>ܸUC|;#[5=Qy:ۺSf_ҧO]U^Z#f-*[AG 55rIU$H7HpYљ1@*CK t~,b6C^zſ7-7QIDR?@~lH[fI`ϯbOW9T}^ Lv}z@',M_(5U{LÉdq7;memXgUW7j3%իZnӠ+e}=ﰖY4JN(FAp SӮG^徯K MxK_uho>|_[ bFȝ3{0;ur2vǵ.#KX +Q"x^ H|2|t ( +81w RpY죊@H2錣QM۽'2u $Ec]F>(רbH^o/.{HGq[0CsȜ4Ier5F9H&wM_WU}ru`Nhő1oDw:k'cg|)#վi=u2G|+xfb9 ˿ nV[#[M*㗾|m]#0ۍ̅K rΣTp]l'Nw8p+ A@5ֳw8KD2Vi%Xy)?@#0Xp1:p-$67M,L7pU8s[g}|]25S`(qZ@eg F-.t ig q{H~.?SbB2j/i,@Z./kTr$g*A_'xEt)YWq `:u=8il>UT6(Nfvp,Zma;sGdD|tǽ# eXQm7&5)ﭤCZUΒ ~<0jyѐǖImxK_r= 6%u0uTHiɜY,JxdVzk!PtS`s>{ $@,+:ӂD֍A̸dl .r~!xFnq [0YTZmR35:8?x~b `Hx;ч7<ӞQ0 |᰾ё$A,awbs VUp 8,9Iu4P1! JO4/2ZIxԳc Z4^OUz7o[iuG 3݊rprP¦VZϢCs8 OOϋyRA +A"61s]TL)!1{̓פ/rݪu7snXx3] $@9v/=`p:;U][%o #$məxwEk4[\? qB!"\eӨ o^Bʵ~ɸ&2UM݈yv PGV:(vc"ə8}/;TtZ b5t!}nѓmW vxb@mlO,;Uz 4QfBT2tC+ F_ ʧ`4.A'%zGgK vE9LkOuIRQRנmO#,&8&$K~%:gw''Sehə+> -ZVOޤǻ,ls@@Ҟi埪(9uوOkݚ:*yq4XqZwŴW%B!;d̷kԚ`w8c&R]NM~ˆ)V} sN#TA!;:Xdk oN@|.sCV`LMCԆ?EbG^-=*#L)i`[0.d*: e_k#*^x.Hړ*lODIkU3 wp>.Z={(lzCV^ik .|5x/,$TiT՚ !u4^z eKi yk¦ '5c w>\da'&0,egkփK"Equ +plxT>|6dx~{l}R_v vVivypwnܦᆦ::uta>_}KJ05y yZ_Ntr$XR ǿ_ x8n'cW9C-m~ﴀ:(ՙ%"ӡ|#\OӘu1npG ©$<17Ŕb&u j S|$' s KHӠA DY¥9ڂkܨ |S>CQ"gx(Xp3=02iY͙@z,Jq&,L [8|j0 ȏ;gdjB1WrLjw ')X{]4-_o"9h>V֡^dgCbݕ?r]v/r_D}^}&;~ 'NSWL`);8fj%j_w  #iMY`guKk8'6iۿ}1/7 76ne32m#Yud%Ro JV=ӗn&|1ލXPD:t&A$bAoW},eW'&b"瀳=  $`̎z=R" 4*j̅oÝ &uwܸcX?P@+oMPߺ`GLDM8S=cUnC0k4ƻ-PQ3 o9P'.c019!R8kK=_fȀIv=$}sxIlJ3sGtQj2[Eg0onXrsf¨FAIxNcF{|j‹=A]٣CңL>>$Ⱥ>|=M&"4) YMa.[)+VLNqLMa-dž5CckV˹ lao;G>@l==AylgH0Xt'W<]*!(gy.߭7tQ7D:S qOl l4+8v ױ˼A-chqf! bz֛i48 ]ߠy6Mٮ;+ɞ.cSgZk?T;/ ǽ]oQbE(CACivdϩDCcE+fy<r 1c6zL!P[dMp.c2IgS8-fP9ZuM܌ra8{l$riьFLZ Q&k _x: `\v>̂i-FxI-ZB6~3vm27\-Ռ[%ĎeY)P6zddRy0c$%ZU)l-Kryl.տYk\ɛYݒ ~Qf F,q'ÎϪ>76`gm&=+m`I .Z -ct|=iمjUױiWI(2T5-Gk =TWyZTy?a w@zts5&*MOH lrќ  Wq (ӭRvp[گUTf7\zneMaKJ;RE` !#NHVeTFXә6YT'_l Y~{2n< }B*/5isMz'h&D0)-4r7F~e#cѯtF$egBӴ=)=yя!-qq2@C)GѿcՆV MJ3R?ND\!P> 4qtbfڃ(TN-MC g#S񐋜`n+u9jZD}%M~^:OlzZ9\sVݝR^];0jx7|(Ev`UiP0)x|u*+p.h\Y'RY淰3=46"$o\ceLcQkIcx\Fe;\䥮eagQ*X$z 8 gU:UZ7]uiw+'M+-/dm%k% .NlWS c=飄e\[5P'ЍkK $К "NqDE)X!p0AP[wr 7\feN)#+;К^^T%wφzעSYX% vDM8fsGͦ׳eːi1QS3qy/ cI_1^NtX CǼG v> zE'Moנ{;ne>/tm,_Un6rBANG p 3u۝#AĪ$  Vnm.wLe-qR=Pp=4Ii-)I O?Uh,Ra9D9`"e^Wu٨ob9k} >@KutvGFA۴cjYeߝV79Aٍ~3WOZhoP?o)^Q'Vt~+h1yLssM |\0bTRhĘl?rVcU&,EAB* Fz!*+W+;?הH $AZvr}{?'i|s`yGyۚk8VXDT͉,lO)cuIMFl ]eph!qac;^[Bu=o*%Sn4?Tn,ῷBKjuI͌{\mLqwkdи(i"6$rn` K)`Y+C Qeg Pwʯhr{L/tOKf?gu1g[BGR7X @bK'S?EBb@ [+m6r+uy^ʡUZ;Z;T@0?΋%sğXd&H1&dH(<*,x)juKV{.@a ^:H'ĹqG6"9SԑS|72Xm}?, ayXTq'EDxN^hd1(Rwf"2$_?kc&ř;rstRr(C UhzT~}]IV 5/*j\-d߃κ#(ߚk# , n2;D/[w~dC?'`w$nݾQ8$UzOU\vC >%]D<0τeY㍈BD폛[sʌ 3@wsM!ifBԼqB6Cz& VY> @ro2ͣm 4Z뜽X?~bKYOS~2՞SS=IwC/ ݪC {O{VXag`gW!L.Mwء-nzNr[<Q()J㤖¹{P`(ry;3yNݒkU?x : 굲DQ\bMBsmxZ꺢?_@[V5N-3L? B'(x Z*QMk|Ռ1$x5p/ kl`r4pӮFmz hѬ/W@^WfXo^E<}OnWdP'pmz_-yqvKHlI~c9{zۨ3Hnѿ/5MV܌yySJiFؘFm9,:߳+1r%PVj}SKmXcm1r99*oӡǬ|5 wgIe8|=кRzE*o)ΕaHM ?jY{s YgV' -*(1g𮧐▇9!+BU?mXkV%XrײJD1_UNR'ǾU#kl迺1IsӫQN w%G62x)0[Myy60 O^Xx Zk[JV Sh Q ppWtѳϺ9 !j4rfྩIH$OLIN6`dO;(֫_)<ˍTِb/[ Gɣ؟A0 Wys.hG,jcoJn,]5EW4y(*oLU~HF g#%ۼٸu;m#z𳩱̓D쳂/ia#Y6m[n|$t8[tˎmriwTT,ᇽBV.o`xjB77ei*qEyԴbIddT0l͘s+`V[P^0?vR3 ),4P|=yR} 1y]Φ̿R\.1m<&zm)k}6LQ^XC"h^ecE4weEcԋ%tD_<+( klFaŠ-gbCṠ~r02&!ZvsOH؂5axKVՑTͷgF >;mל2Āg]KXev{&0,o|P DzbOOnY !_‹3e#z@qS:ǐ.y''ZgbHn#~a&o"q/̬5*lE/T)4-B#7R}ןmEtєDŰ|//#Kr+T+ځ;Y=!r. (@)X}XdꆰGoH,u&uNV{JAՠVBȖ2xUTx\9ӁF)ɴ7R[Dyq= Rl C)b>s2򑺔nlQ@{!T(y@,pB ZKTp V}[{h6S-l7&& 2$B 09iToVF Xȃ !FV^'8 +9SLdxi a鈚?9 WBH(G71zoD}f'D Y"0(Jլ-q0w1"CѐV^2f,l~$VAՏqB3Ay$Q{{WEsmGeʃ,tq40@~"7*7YS@uAVB{6BƊQAtK"\'r5zH]V#yKpkȐp3_ }Ju$WgU ~m2P3=h\yq:>#sjq@gaoU7JGY; >4U/o&rQN<^20ΕT->NJ b_ײVHD2ǯ ndׅaR:9Sej㐹tQojگc(\ Ycai@8H)' :zi9'氃=-,R 0u#"_Юc$I* ң)TtBoك<ދq>$mzBl֟sqG wacTl@>zA#/h'L|=+JxjYYT>ttcfT"X|%HpAOys+wIua7^ w}-TؼӬ Wk Q ]  4> {JzJ_9lS!@{­*}:pPEͲ5C>>&qa`+-Uk"RhOtE4sR7Vh5bά\<~I> &zx_&1гRӅӁ Y:^Ӷg{@d]!;mpk=zSg`]cdNj>Uf DY0ǚt65bNvӶ )z[vu4fōDUK ut3,:VFrdJ;dADCOfwW%r*rӆ4A} N W7E*CBLRzL&zK(42ıy P"Cɷg7,RmTnԛj3DěJ5`V…HÜE! AR~db.f\-wŸ-pN&yfDv(bd r\\j8sGչSh?3'ؚpt= |{/Ģj(%!55_-Aɣ///rk0R7*V5a_ ?̃ "sD-iӅz*q`Kdo,n̻mB{7mQ~X(]B:}ZU9H4?N>>t~|٭cNɬ4:>g~x"c7m<Ӄ%DjxJlK,L=?!׼H1RrN^Zڥ&by?UVi1%F9s6R nYl# aF DMmWgۭ&ЪJ#vh]W#x~a m&.dyg@3Ew A!:&P7 XQȝ|#ٖABzҪM]{;9uwnoJGf,"4{ !XbcFlN"QDCTaǛqce;*)ŎOųMTwjD4@:B%Ba>pUpK%ox!CwywߗK52lPx@ %aԅ[l3ƌx$nϐQ!,O{[**i0S,"gn3/e\7]fN XNQysY ._ /X`%T.*}Bh\%YkV\CƝ̬dRҜ"-s^}vd$w[ET Y x"$llUuZ*w>ahSÀKy L'w<*HkF2`fE۷P;7cTU}E|88A> !DUYOԅ*ԀVjzns;1XCi*aw妭Y$ϔ\0ϨEmRHE?,8"0|C9|KT۬ Mx&'L:6l,r@rfyF/]Ai=f9F}I8<ˠLBj萷fbrg> kqЛ#g܆x2CuPЦݫóNaT%;Tn/$upV/ nr|p}ݥ1 Q2bzO6)J?8]bIvDhA69uAZ#Y:o(ȥ 7PjՇy( #R_um4y؁@GgfIJEY#O*<"2|;.u?SX5vĦa,ҵsib;VPxB ߠSII0 YZdichromat/R/colorschemes.R0000644000175400001440000000724612077677463015465 0ustar zeileisuserscolorschemes<-list( BrowntoBlue.10 = c("#663000", "#996136", "#CC9B7A", "#D9AF98", "#F2DACE", "#CCFDFF", "#99F8FF", "#66F0FF", "#33E4FF", "#00AACC"), BrowntoBlue.12 = c("#331A00", "#663000", "#996136", "#CC9B7A", "#D9AF98", "#F2DACE", "#CCFDFF", "#99F8FF", "#66F0FF", "#33E4FF", "#00AACC", "#007A99"), BluetoDarkOrange.12 = c("#1F8F99", "#52C4CC", "#99FAFF", "#B2FCFF", "#CCFEFF", "#E6FFFF", "#FFE6CC", "#FFCA99", "#FFAD66", "#FF8F33", "#CC5800", "#994000"), BluetoDarkOrange.18 = c("#006666", "#009999", "#00CCCC", "#00FFFF", "#33FFFF", "#66FFFF", "#99FFFF", "#B2FFFF", "#CCFFFF", "#E6FFFF", "#FFE6CC", "#FFCA99", "#FFAD66", "#FF8F33", "#FF6E00", "#CC5500", "#993D00", "#662700"), DarkRedtoBlue.12 = c("#2A0BD9", "#264EFF", "#40A1FF", "#73DAFF", "#ABF8FF", "#E0FFFF", "#FFFFBF", "#FFE099", "#FFAD73", "#F76E5E", "#D92632", "#A60021"), DarkRedtoBlue.18 = c("#2400D9", "#191DF7", "#2957FF", "#3D87FF", "#57B0FF", "#75D3FF", "#99EBFF", "#BDF9FF", "#EBFFFF", "#FFFFEB", "#FFF2BD", "#FFD699", "#FFAC75", "#FF7857", "#FF3D3D", "#F72836", "#D91630", "#A60021"), BluetoGreen.14 = c("#0000FF", "#3333FF", "#6666FF", "#9999FF", "#B2B2FF", "#CCCCFF", "#E6E6FF", "#E6FFE6", "#CCFFCC", "#B2FFB2", "#99FF99", "#66FF66", "#33FF33", "#00FF00"), BluetoGray.8 = c("#0099CC", "#66E6FF", "#99FFFF", "#CCFFFF", "#E6E6E6", "#999999", "#666666", "#333333"), BluetoOrangeRed.14 = c("#085AFF", "#3377FF", "#5991FF", "#8CB2FF", "#BFD4FF", "#E6EEFF", "#F7FAFF", "#FFFFCC", "#FFFF99", "#FFFF00", "#FFCC00", "#FF9900", "#FF6600", "#FF0000"), BluetoOrange.10 = c("#0055FF", "#3399FF", "#66CCFF", "#99EEFF", "#CCFFFF", "#FFFFCC", "#FFEE99", "#FFCC66", "#FF9933", "#FF5500"), BluetoOrange.12 = c("#002BFF", "#1A66FF", "#3399FF", "#66CCFF", "#99EEFF", "#CCFFFF", "#FFFFCC", "#FFEE99", "#FFCC66", "#FF9933", "#FF661A", "#FF2B00"), BluetoOrange.8 = c("#0080FF", "#4CC4FF", "#99EEFF", "#CCFFFF", "#FFFFCC", "#FFEE99", "#FFC44C", "#FF8000"), LightBluetoDarkBlue.10 = c("#E6FFFF", "#CCFBFF", "#B2F2FF", "#99E6FF", "#80D4FF", "#66BFFF", "#4CA6FF", "#3388FF", "#1A66FF", "#0040FF"), LightBluetoDarkBlue.7 = c("#FFFFFF", "#CCFDFF", "#99F8FF", "#66F0FF", "#33E4FF", "#00AACC", "#007A99"), Categorical.12 = c("#FFBF80", "#FF8000", "#FFFF99", "#FFFF33", "#B2FF8C", "#33FF00", "#A6EDFF", "#1AB2FF", "#CCBFFF", "#664CFF", "#FF99BF", "#E61A33"), GreentoMagenta.16 = c("#005100", "#008600", "#00BC00", "#00F100", "#51FF51", "#86FF86", "#BCFFBC", "#FFFFFF", "#FFF1FF", "#FFBCFF", "#FF86FF", "#FF51FF", "#F100F1", "#BC00BC", "#860086", "#510051"), SteppedSequential.5 = c("#990F0F", "#B22D2D", "#CC5252", "#E67E7E", "#FFB2B2", "#99700F", "#B28B2D", "#CCA852", "#E6C77E", "#FFE8B2", "#1F990F", "#3CB22D", "#60CC52", "#8AE67E", "#BCFFB2", "#710F99", "#8B2DB2", "#A852CC", "#C77EE6", "#E9B2FF", "#990F20", "#B22D3C", "#CC5260", "#E67E8A", "#FFB2BC") )