ggthemes/0000755000176200001440000000000013466232153012062 5ustar liggesusersggthemes/inst/0000755000176200001440000000000013305327300013026 5ustar liggesusersggthemes/inst/examples/0000755000176200001440000000000013466077407014666 5ustar liggesusersggthemes/inst/examples/ex-circlefill_shape_pal.R0000644000176200001440000000034113306022432021522 0ustar liggesuserslibrary("ggplot2") p <- ggplot(mtcars, aes(x = mpg, y = hp, shape = factor(cyl))) + geom_point() p + scale_shape_tremmel() p + scale_shape_circlefill() p + scale_shape_cleveland() p + scale_shape_cleveland(overlap = TRUE) ggthemes/inst/examples/ex-theme_few.R0000644000176200001440000000054513304446325017360 0ustar liggesuserslibrary("ggplot2") p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, colour = factor(gear))) + facet_wrap(~am) p + theme_few() + scale_colour_few() p + theme_few() + scale_colour_few("Light") p + theme_few() + scale_colour_few("Dark") ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, shape = factor(gear))) + theme_few() + scale_shape_few() ggthemes/inst/examples/ex-tableau_seq_gradient_pal.R0000644000176200001440000000047613304721201022403 0ustar liggesuserslibrary("scales") x <- seq(0, 1, length = 25) r <- sqrt(outer(x ^ 2, x ^ 2, "+")) palettes <- ggthemes_data[["tableau"]][["color-palettes"]][["ordered-sequential"]] for (palname in names(palettes)) { col <- tableau_seq_gradient_pal(palname)(seq(0, 1, length = 12)) image(r, col = col) title(main = palname) } ggthemes/inst/examples/ex-scale_colour_ptol.R0000644000176200001440000000047713300346645021131 0ustar liggesuserslibrary("ggplot2") p2 <- ggplot(mtcars, aes(x = wt, y = mpg, colour = factor(gear))) + geom_point() + geom_smooth(method = "lm", se = FALSE) + scale_color_ptol("cyl") + theme_minimal() + ggtitle("Cars") ggplot(diamonds, aes(x = clarity, fill = cut)) + geom_bar() + scale_fill_ptol() + theme_minimal() ggthemes/inst/examples/ex-bank_slopes.R0000644000176200001440000000064613273732341017720 0ustar liggesuserslibrary("ggplot2") # Use the classic sunspot data from Cleveland's original paper x <- seq_along(sunspot.year) y <- as.numeric(sunspot.year) # Without banking m <- ggplot(data.frame(x = x, y = y), aes(x = x, y = y)) + geom_line() m ## Using the default method, Median Absolute Slope ratio <- bank_slopes(x, y) m + coord_fixed(ratio = ratio) ## Using culling ## Average Absolute Slope bank_slopes(x, y, method = "as") ggthemes/inst/examples/ex-tableau_color_pal.R0000644000176200001440000000036113304720554021057 0ustar liggesuserslibrary("scales") palettes <- ggthemes_data[["tableau"]][["color-palettes"]][["regular"]] for (palname in names(palettes)) { pal <- tableau_color_pal(palname) max_n <- attr(pal, "max_n") show_col(pal(max_n)) title(main = palname) } ggthemes/inst/examples/ex-tableau_div_gradient_pal.R0000644000176200001440000000045613304721167022406 0ustar liggesusersx <- seq(-1, 1, length = 100) r <- sqrt(outer(x ^ 2, x ^ 2, "+")) palettes <- ggthemes_data[["tableau"]][["color-palettes"]][["ordered-diverging"]] for (palname in names(palettes)) { col <- tableau_div_gradient_pal(palname)(seq(0, 1, length = 12)) image(r, col = col) title(main = palname) } ggthemes/inst/examples/ex-calc_pal.R0000644000176200001440000000005413273732357017156 0ustar liggesuserslibrary("scales") show_col(calc_pal()(12)) ggthemes/inst/examples/ex-theme_hc.R0000644000176200001440000000257313305113422017162 0ustar liggesuserslibrary("ggplot2") p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, colour = factor(gear))) + facet_wrap(~am) p + theme_hc() + scale_colour_hc() p + theme_hc(bgcolor = "darkunica") + scale_colour_hc("darkunica") dtemp <- data.frame(months = factor(rep(substr(month.name, 1, 3), 4), levels = substr(month.name, 1, 3)), city = rep(c("Tokyo", "New York", "Berlin", "London"), each = 12), temp = c(7.0, 6.9, 9.5, 14.5, 18.2, 21.5, 25.2, 26.5, 23.3, 18.3, 13.9, 9.6, -0.2, 0.8, 5.7, 11.3, 17.0, 22.0, 24.8, 24.1, 20.1, 14.1, 8.6, 2.5, -0.9, 0.6, 3.5, 8.4, 13.5, 17.0, 18.6, 17.9, 14.3, 9.0, 3.9, 1.0, 3.9, 4.2, 5.7, 8.5, 11.9, 15.2, 17.0, 16.6, 14.2, 10.3, 6.6, 4.8)) ggplot(dtemp, aes(x = months, y = temp, group = city, color = city)) + geom_line() + geom_point(size = 1.1) + ggtitle("Monthly Average Temperature") + theme_hc() + scale_colour_hc() ggplot(dtemp, aes(x = months, y = temp, group = city, color = city)) + geom_line() + geom_point(size = 1.1) + ggtitle("Monthly Average Temperature") + theme_hc(bgcolor = "darkunica") + scale_fill_hc("darkunica") ggthemes/inst/examples/ex-few_shape_pal.R0000644000176200001440000000013713306022432020176 0ustar liggesusers\dontrun{ # need to set a font containing unicode values show_shapes(few_shape_pal()(5)) } ggthemes/inst/examples/ex-solarized_pal.R0000644000176200001440000000015713273733055020250 0ustar liggesuserslibrary("scales") show_col(solarized_pal()(2)) show_col(solarized_pal()(3)) show_col(solarized_pal("red")(4)) ggthemes/inst/examples/ex-theme_stata.R0000644000176200001440000000107713314735234017715 0ustar liggesuserslibrary("ggplot2") p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, colour = factor(gear))) + facet_wrap(~ am) + labs(title = "Graphs by car type", x = "Weight (lbs.)", y = "MPG") # s2color p + theme_stata() + scale_colour_stata("s2color") # s2mono p + theme_stata(scheme = "s2mono") + scale_colour_stata("mono") # s1color p + theme_stata(scheme = "s2color") + scale_colour_stata("s1color") # s1rcolor p + theme_stata(scheme = "s1rcolor") + scale_colour_stata("s1rcolor") # s1mono p + theme_stata(scheme = "s1mono") + scale_colour_stata("mono") ggthemes/inst/examples/ex-theme_excel_new.R0000644000176200001440000000025713323451512020543 0ustar liggesuserslibrary("ggplot2") p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, colour = factor(gear))) + facet_wrap(~am) p + theme_excel_new() + scale_colour_excel_new() ggthemes/inst/examples/ex-scale_color_tableau.R0000644000176200001440000000063113466077407021405 0ustar liggesuserslibrary("ggplot2") p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, colour = factor(gear))) + facet_wrap(~am) + theme_igray() palettes <- ggthemes_data[["tableau"]][["color-palettes"]][["regular"]] for (palette in head(names(palettes), 3L)) { print(p + scale_colour_tableau(palette) + ggtitle(palette)) } # the order of colour can be reversed p + scale_color_tableau(direction = -1) ggthemes/inst/examples/ex-theme_igray.R0000644000176200001440000000021613273733350017707 0ustar liggesuserslibrary("ggplot2") p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, colour = factor(gear))) + facet_wrap(~am) p + theme_igray() ggthemes/inst/examples/ex-scale_shape_tremmel.R0000644000176200001440000000031313304727505021404 0ustar liggesuserslibrary("ggplot2") p <- ggplot(mtcars, aes(x = mpg, y = hp, shape = factor(cyl))) + geom_point() p + scale_shape_tremmel() p + scale_shape_tremmel(alt = TRUE) p + scale_shape_tremmel(overlap = TRUE) ggthemes/inst/examples/ex-geom_tufteboxplot.R0000644000176200001440000000121613300341373021150 0ustar liggesuserslibrary("ggplot2") p <- ggplot(mtcars, aes(factor(cyl), mpg)) # with a point for the median and lines for whiskers p + geom_tufteboxplot() # with a line for the interquartile range and points for whiskers p + geom_tufteboxplot(median.type = "line", whisker.type = "point", hoffset = 0) # with a wide line for the interquartile range and lines for whiskers p + geom_tufteboxplot(median.type = "line", hoffset = 0, width = 3) # with an offset line for the interquartile range and lines for whiskers p + geom_tufteboxplot(median.type = "line") # combined with theme_tufte p + geom_tufteboxplot() + theme_tufte() + theme(axis.ticks.x = element_blank()) ggthemes/inst/examples/ex-show_shapes.R0000644000176200001440000000013213273733044017732 0ustar liggesuserslibrary("scales") show_shapes(shape_pal()(5)) show_shapes(shape_pal()(3), labels = TRUE) ggthemes/inst/examples/ex-excel_pal.R0000644000176200001440000000012113323450341017331 0ustar liggesuserslibrary("scales") show_col(excel_pal()(7)) show_col(excel_pal(line = FALSE)(7)) ggthemes/inst/examples/ex-canva_pal.R0000644000176200001440000000162713466111604017341 0ustar liggesusersrequire("ggplot2") require("tibble") if (require("purrr") && require("scales") && require("dplyr")) { canva_df <- map2_df( canva_palettes, names(canva_palettes), ~ tibble( colors = .x, .id = seq_along(colors), palette = .y ) ) ggplot(canva_df, aes( y = palette, x = .id, fill = colors )) + geom_raster() + scale_fill_identity(guide = FALSE) + theme_minimal() + theme(panel.grid = element_blank(), axis.text.x = element_blank()) + labs(x = "", y = "") show_col(canva_pal("Fresh and bright")(4)) show_col(canva_pal("Cool blues")(4)) show_col(canva_pal("Modern and crisp")(4)) } ggthemes/inst/examples/ex-theme_wsj.R0000644000176200001440000000046113273735213017401 0ustar liggesuserslibrary("ggplot2") p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, colour = factor(gear))) + facet_wrap(~am) + ggtitle("Diamond Prices") p + scale_colour_wsj("colors6", "") + theme_wsj() # Use a gray background instead p + scale_colour_wsj("colors6", "") + theme_wsj(color = "gray") ggthemes/inst/examples/ex-palette_pander.R0000644000176200001440000000004313273734250020377 0ustar liggesusers\dontrun{ palette_pander(TRUE) } ggthemes/inst/examples/ex-few_pal.R0000644000176200001440000000014513304437011017016 0ustar liggesuserslibrary("scales") show_col(few_pal()(7)) show_col(few_pal("Dark")(7)) show_col(few_pal("Light")(7)) ggthemes/inst/examples/ex-scale_shape_stata.R0000644000176200001440000000024513273732745021066 0ustar liggesuserslibrary("ggplot2") p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, shape = factor(gear))) + facet_wrap(~am) p + theme_stata() + scale_shape_stata() ggthemes/inst/examples/ex-scale_solarized.R0000644000176200001440000000026113300347224020545 0ustar liggesuserslibrary("ggplot2") p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, colour = factor(gear))) + facet_wrap(~am) p + theme_solarized() + scale_colour_solarized() ggthemes/inst/examples/ex-scale_colour_gradient_tableau.R0000644000176200001440000000063513317752667023456 0ustar liggesuserslibrary("ggplot2") df <- data.frame( x = runif(100), y = runif(100), z1 = rnorm(100), z2 = abs(rnorm(100)) ) p <- ggplot(df, aes(x, y)) + geom_point(aes(colour = z2)) + theme_igray() palettes <- ggthemes_data[["tableau"]][["color-palettes"]][["ordered-sequential"]] for (palette in head(names(palettes))) { print(p + scale_colour_gradient_tableau(palette) + ggtitle(palette)) } ggthemes/inst/examples/ex-economist_pal.R0000644000176200001440000000015013304557033020240 0ustar liggesuserslibrary("scales") show_col(economist_pal()(6)) ## fill palette show_col(economist_pal(fill = TRUE)(6)) ggthemes/inst/examples/ex-theme_pander.R0000644000176200001440000000065413466111463020052 0ustar liggesusersrequire("ggplot2") if (require("pander")) { p <- ggplot(mtcars, aes(x = mpg, y = wt)) + geom_point() p + theme_pander() panderOptions("graph.grid.color", "red") p + theme_pander() p <- ggplot(mtcars, aes(wt, mpg, colour = factor(cyl))) + geom_point() p + theme_pander() + scale_color_pander() ggplot(mpg, aes(x = class, fill = drv)) + geom_bar() + scale_fill_pander() + theme_pander() } ggthemes/inst/examples/ex-theme_clean.R0000644000176200001440000000027013453127565017663 0ustar liggesuserslibrary("ggplot2") p <- ggplot(mtcars, aes(x = wt, y = mpg, colour = factor(gear))) + geom_point() + facet_wrap(~am) + geom_smooth(method = "lm", se = FALSE) + theme_clean() p ggthemes/inst/examples/ex-excel_new_pal.R0000644000176200001440000000017013323450553020213 0ustar liggesuserslibrary("scales") for (i in names(ggthemes::ggthemes_data$excel$palettes)) { show_col(excel_new_pal(theme = i))(6) } ggthemes/inst/examples/ex-theme_solid.R0000644000176200001440000000027613301722550017704 0ustar liggesuserslibrary("ggplot2") ggplot(mtcars, aes(wt, mpg)) + geom_point() + theme_solid(fill = "white") ggplot(mtcars, aes(wt, mpg)) + geom_point(color = "white") + theme_solid(fill = "black") ggthemes/inst/examples/ex-show_linetypes.R0000644000176200001440000000014613273735043020471 0ustar liggesuserslibrary("scales") show_linetypes(linetype_pal()(3)) show_linetypes(linetype_pal()(3), labels = TRUE) ggthemes/inst/examples/ex-scale_linetype_stata.R0000644000176200001440000000054213466112332021603 0ustar liggesusersrequire("ggplot2") if (require("tidyr") && require("dplyr")) { rescale01 <- function(x) { (x - min(x)) / diff(range(x)) } gather(economics, variable, value, -date) %>% group_by(variable) %>% mutate(value = rescale01(value)) %>% ggplot(aes(x = date, y = value, linetype = variable)) + geom_line() + scale_linetype_stata() } ggthemes/inst/examples/ex-calc_shape_pal.R0000644000176200001440000000010413306334760020323 0ustar liggesuserslibrary("ggplot2") \dontrun{ show_shapes(calc_shape_pal()(13)) } ggthemes/inst/examples/ex-stata_pal.R0000644000176200001440000000023513273733063017364 0ustar liggesuserslibrary("scales") show_col(stata_pal("s2color")(15)) show_col(stata_pal("s1rcolor")(15)) show_col(stata_pal("s1color")(15)) show_col(stata_pal("mono")(15)) ggthemes/inst/examples/ex-cleveland_shape_pal.R0000644000176200001440000000044713273732414021371 0ustar liggesusers### (discrete). library("ggplot2") p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, shape = factor(gear))) + facet_wrap(~am) + theme_bw() # overlapping symbol palette p + scale_shape_cleveland() # non-overlapping symbol palette p + scale_shape_cleveland(overlap = FALSE) ggthemes/inst/examples/ex-theme_par.R0000644000176200001440000000040313304701726017351 0ustar liggesuserslibrary("ggplot2") p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, colour = factor(gear))) + facet_wrap(~am) p + theme_par() # theme changes with respect to values of par par(font = 2, col.lab = "red", fg = "white", bg = "black") p + theme_par() ggthemes/inst/examples/ex-scale_colour_excel_new.R0000644000176200001440000000025013323450410022100 0ustar liggesuserslibrary("ggplot2") ggplot(mtcars, aes(x = wt, y = mpg, colour = factor(gear))) + geom_point() + ggtitle("Cars") + theme_excel_new() + scale_colour_excel_new() ggthemes/inst/examples/ex-geom_rangeframe.R0000644000176200001440000000014713273732530020532 0ustar liggesuserslibrary("ggplot2") ggplot(mtcars, aes(wt, mpg)) + geom_point() + geom_rangeframe() + theme_tufte() ggthemes/inst/examples/ex-theme_calc.R0000644000176200001440000000047013273733177017507 0ustar liggesuserslibrary("ggplot2") p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, colour = factor(gear))) + facet_wrap(~am) + theme_calc() p + scale_color_calc() q <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, shape = factor(gear))) + facet_wrap(~am) + theme_calc() q + scale_shape_calc() ggthemes/inst/examples/ex-theme_excel.R0000644000176200001440000000050513323450261017666 0ustar liggesuserslibrary("ggplot2") # Line and scatter plot colors p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, colour = factor(gear))) + facet_wrap(~am) p + theme_excel() + scale_colour_excel() # Bar plot (area/fill) colors ggplot(mpg, aes(x = class, fill = drv)) + geom_bar() + scale_fill_excel() + theme_excel() ggthemes/inst/examples/ex-theme_tufte.R0000644000176200001440000000050313300341106017703 0ustar liggesuserslibrary("ggplot2") p <- ggplot(mtcars, aes(x = wt, y = mpg)) + geom_point() + scale_x_continuous(breaks = extended_range_breaks()(mtcars$wt)) + scale_y_continuous(breaks = extended_range_breaks()(mtcars$mpg)) + ggtitle("Cars") p + geom_rangeframe() + theme_tufte() p + geom_rug() + theme_tufte(ticks = FALSE) ggthemes/inst/examples/ex-tableau_shape_pal.R0000644000176200001440000000014113306022432021025 0ustar liggesusers\dontrun{ # need to set a font containing these values show_shapes(tableau_shape_pal()(5)) } ggthemes/inst/examples/ex-gdocs_pal.R0000644000176200001440000000005513273732514017347 0ustar liggesuserslibrary("scales") show_col(gdocs_pal()(20)) ggthemes/inst/examples/ex-theme_gdocs.R0000644000176200001440000000024013273733263017673 0ustar liggesuserslibrary("ggplot2") p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, colour = factor(gear))) + facet_wrap(~am) p + theme_gdocs() + scale_color_gdocs() ggthemes/inst/examples/ex-theme_solarized.R0000644000176200001440000000074613304675267020607 0ustar liggesuserslibrary("ggplot2") p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, colour = factor(gear))) # Light version with different main accent colors for (accent in names(ggthemes::ggthemes_data[["solarized"]][["accents"]])) { print(p + theme_solarized() + scale_colour_solarized(accent)) } # Dark version p + theme_solarized(light = FALSE) + scale_colour_solarized("blue") # Alternative theme p + theme_solarized_2(light = FALSE) + scale_colour_solarized("blue") ggthemes/inst/examples/ex-theme_fivethirtyeight.R0000644000176200001440000000034413273732051022011 0ustar liggesuserslibrary("ggplot2") p <- ggplot(mtcars, aes(x = wt, y = mpg, colour = factor(gear))) + geom_point() + facet_wrap(~am) + geom_smooth(method = "lm", se = FALSE) + scale_color_fivethirtyeight() + theme_fivethirtyeight() p ggthemes/inst/examples/ex-colorblind.R0000644000176200001440000000032713273734624017551 0ustar liggesuserslibrary("ggplot2") library("scales") show_col(colorblind_pal()(8)) p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, colour = factor(gear))) + facet_wrap(~am) p + theme_igray() + scale_colour_colorblind() ggthemes/inst/examples/ex-scale_colour_excel_classic.R0000644000176200001440000000041013323450424022733 0ustar liggesuserslibrary("ggplot2") ggplot(mtcars, aes(x = wt, y = mpg, colour = factor(gear))) + geom_point() + ggtitle("Cars") + theme_excel() + scale_colour_excel() ggplot(diamonds, aes(x = clarity, fill = cut)) + geom_bar() + scale_fill_excel() + theme_excel() ggthemes/inst/examples/ex-ptol_pal.R0000644000176200001440000000013413273732615017226 0ustar liggesuserslibrary("scales") show_col(ptol_pal()(6)) show_col(ptol_pal()(4)) show_col(ptol_pal()(12)) ggthemes/inst/examples/ex-scale_shape_tableau.R0000644000176200001440000000022713273732752021365 0ustar liggesuserslibrary("ggplot2") p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, shape = factor(gear))) + facet_wrap(~am) p + scale_shape_tableau() ggthemes/inst/examples/ex-theme_map.R0000644000176200001440000000051413300345265017345 0ustar liggesuserslibrary("maps") library("ggplot2") us <- fortify(map_data("state"), region = "region") gg <- ggplot() + geom_map(data = us, map = us, aes(x = long, y = lat, map_id = region, group = group), fill = "white", color = "black", size = 0.25) + coord_map("albers", lat0 = 39, lat1 = 45) + theme_map() gg ggthemes/inst/examples/ex-scale_colour_gradient2_tableau.R0000644000176200001440000000076013432557044023525 0ustar liggesuserslibrary("ggplot2") df <- data.frame( x = runif(100), y = runif(100), z1 = rnorm(100), z2 = abs(rnorm(100)) ) p <- ggplot(df, aes(x, y)) + geom_point(aes(colour = z2)) palettes <- ggthemes_data[["tableau"]][["color-palettes"]][["ordered-diverging"]] for (palette in head(names(palettes))) { print(p + scale_colour_gradient2_tableau(palette) + ggtitle(palette)) } # If you need to reverse a palette, use a transformation p + scale_colour_gradient2_tableau(trans = "reverse") ggthemes/inst/examples/ex-theme_base.R0000644000176200001440000000035713300343463017505 0ustar liggesuserslibrary("ggplot2") p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, colour = factor(gear))) + facet_wrap(~am) p + theme_base() # Change values of par par(fg = "blue", bg = "gray", col.lab = "red", font.lab = 3) p + theme_base() ggthemes/inst/examples/ex-theme_economist.R0000644000176200001440000000157213304445627020604 0ustar liggesuserslibrary("ggplot2") p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, colour = factor(gear))) + facet_wrap(~am) + # Economist puts x-axis labels on the right-hand side scale_y_continuous(position = "right") ## Standard p + theme_economist() + scale_colour_economist() # Change axis lines to vertical p + theme_economist(horizontal = FALSE) + scale_colour_economist() + coord_flip() ## White panel/light gray background p + theme_economist_white() + scale_colour_economist() ## All white variant p + theme_economist_white(gray_bg = FALSE) + scale_colour_economist() \dontrun{ ## The Economist uses ITC Officina Sans library("extrafont") p + theme_economist(base_family="ITC Officina Sans") + scale_colour_economist() ## Verdana is a widely available substitute p + theme_economist(base_family="Verdana") + scale_colour_economist() } ggthemes/inst/examples/ex-fivethirtyeight_pal.R0000644000176200001440000000006613273732507021472 0ustar liggesuserslibrary("scales") show_col(fivethirtyeight_pal()(3)) ggthemes/inst/WORDLIST0000644000176200001440000000144113432645712014233 0ustar liggesusersACM Agrawala al Analytics AppVeyor Argwala Banff Beamer behaviour Bembo blosxom bowerth bugfix Bugfix calc Calc canva Canva cgi charactger CMD colores colour Colour continous cran daroczig de devtools et extrafont fivethirtyeight Fivethirtyeight gdocs geoms Geoms ggplot github Hanrahan hc Heer hexa Highcharts http https impactful Impactful InfoVis ITC jbkunst JS Kliever Lewandowsky LibreOffic lifecycle linepattern linetype Linetype linetypes Lothar lty Maneesh McGill nd Officina paletas paul Pinterest pkgdown PolicyViz ptoche ptol quartile rcolor rstudio Saenz SandyMuspratt Schoonover's Schwabish sj solarized Solarized Spiekerblog SRON stata Stata Stribley Tabaleau Tableu Tejeda thatn tol Tol Tol's tradeblotter Tremmel tufte Tufte Tufte's unica unicode Verdana weitzner wordpress WS wsj WSJ ggthemes/tests/0000755000176200001440000000000013306122611013212 5ustar liggesusersggthemes/tests/spelling.R0000644000176200001440000000024113432645712015163 0ustar liggesusersif(requireNamespace('spelling', quietly = TRUE)) spelling::spell_check_test(vignettes = TRUE, error = FALSE, skip_on_cran = TRUE) ggthemes/tests/figs/0000755000176200001440000000000013333323213014143 5ustar liggesusersggthemes/tests/figs/few/0000755000176200001440000000000013432646160014735 5ustar liggesusersggthemes/tests/figs/few/theme-few.svg0000644000176200001440000002035213432646160017341 0ustar liggesusers 1 1.0 1.5 2.0 2.5 3.0 1.0 1.5 2.0 2.5 3.0 x y z a b theme_few ggthemes/tests/figs/deps.txt0000644000176200001440000000010313432646160015642 0ustar liggesusers- vdiffr-svg-engine: 1.0 - vdiffr: 0.3.0 - freetypeharfbuzz: 0.2.5 ggthemes/tests/testthat.R0000644000176200001440000000007413300177253015204 0ustar liggesuserslibrary(testthat) library(ggthemes) test_check("ggthemes") ggthemes/tests/testthat/0000755000176200001440000000000013466232153015064 5ustar liggesusersggthemes/tests/testthat/test-igray.R0000644000176200001440000000023213314473314017272 0ustar liggesuserscontext("igray") test_that("theme_igray works", { thm <- theme_igray() expect_is(thm, "theme") expect_equal(thm$plot.background$fill, "gray90") }) ggthemes/tests/testthat/test-fivethirtyeight.R0000644000176200001440000000100013314516705021371 0ustar liggesuserscontext("fivethirtyeight") test_that("theme_fivethirtyeight works", { expect_is(theme_fivethirtyeight(), "theme") }) test_that("scale_fill_fivethirtyeight works", { expect_is(scale_fill_fivethirtyeight(), "ScaleDiscrete") }) test_that("scale_colour_fivethirtyeight works", { expect_is(scale_colour_fivethirtyeight(), "ScaleDiscrete") }) test_that("fivethirtyeight_pal works", { p <- fivethirtyeight_pal() expect_is(p, "function") expect_is(attr(p, "max_n"), "integer") expect_hexcolor(p(3)) }) ggthemes/tests/testthat/test-theme_map.R0000644000176200001440000000023513314473423020122 0ustar liggesuserscontext("theme_map") test_that("theme_map works", { thm <- theme_map() expect_is(thm, "theme") expect_equal(thm$panel.background, element_blank()) }) ggthemes/tests/testthat/test-colorblind.R0000644000176200001440000000112713314333676020320 0ustar liggesuserscontext("colorblind") test_that("colorblind_pal works", { p <- colorblind_pal() expect_is(p, "function") expect_hexcolor(p(4)) expect_is(attr(p, "max_n"), "integer") }) test_that("colorblind_pal raises warning with to large n", { expect_warning(colorblind_pal()(20)) }) test_that("scale_colour_colorblind works", { expect_is(scale_colour_colorblind(), "ScaleDiscrete") }) test_that("scale_color_canva works", { expect_equal(scale_color_colorblind(), scale_colour_colorblind()) }) test_that("scale_fill_colorblind works", { expect_is(scale_fill_colorblind(), "ScaleDiscrete") }) ggthemes/tests/testthat/test-stat_fivenumber.R0000644000176200001440000000016413314517755021370 0ustar liggesuserscontext("stat-fivenumber") test_that("stat_fivenumber works", { expect_is(stat_fivenumber(), "LayerInstance") }) ggthemes/tests/testthat/test-gdocs.R0000644000176200001440000000104513314476022017260 0ustar liggesuserscontext("gdocs") test_that("gdocs_pal works", { pal <- gdocs_pal() expect_is(pal, "function") n <- 3 vals <- pal(n) expect_is(vals, "character") expect_equal(length(vals), n) }) test_that("scale_fill_gdocs works", { expect_is(scale_fill_gdocs(), "ScaleDiscrete") }) test_that("scale_colour_gdocs works", { expect_is(scale_fill_gdocs(), "ScaleDiscrete") }) test_that("scale_color_gdocs works", { expect_equal(scale_color_gdocs(), scale_colour_gdocs()) }) test_that("theme_gdocs works", { expect_is(theme_gdocs(), "theme") }) ggthemes/tests/testthat/test-banking.R0000644000176200001440000000125313314735174017601 0ustar liggesuserscontext("banking") test_that("bank_slopes runs", { x <- 1:5 y <- runif(length(x)) out <- bank_slopes(x, y) expect_equal(length(out), 1L) expect_is(out, "numeric") }) test_that("bank_slopes with method=\"as\" runs", { x <- 1:5 y <- runif(length(x)) out <- bank_slopes(x, y, method = "as") expect_equal(length(out), 1L) expect_is(out, "numeric") }) test_that("bank_slopes with invalid method throws error", { expect_error(bank_slopes(1:5, 1:5, method = "aor")) }) test_that("bank_slopes works with cull = TRUE", { x <- c(1, 1, 2) y <- runif(length(x)) out <- bank_slopes(x, y, cull = TRUE) expect_equal(length(out), 1L) expect_is(out, "numeric") }) ggthemes/tests/testthat/test-canva.R0000644000176200001440000000133313314333407017250 0ustar liggesuserscontext("canva") test_that("canva_pal works", { p <- canva_pal() expect_is(p, "function") expect_hexcolor(p(4)) }) test_that("canva_pal works with alt palette", { expect_hexcolor(canva_pal("Pop art")(4)) }) test_that("canva_pal raises warning with to large n", { expect_warning(canva_pal()(10)) }) test_that("canva_pal raises error with invalid palette", { expect_error(canva_pal("adsffafd"), regexp = "not a valid name") }) test_that("scale_colour_canva works", { expect_is(scale_colour_canva(), "ScaleDiscrete") }) test_that("scale_color_canva works", { expect_equal(scale_color_canva(), scale_colour_canva()) }) test_that("scale_colour_canva works", { expect_is(scale_fill_canva(), "ScaleDiscrete") }) ggthemes/tests/testthat/test-few.R0000644000176200001440000000312013432651614016741 0ustar liggesuserscontext("few") library("ggplot2") test_that("few_shape_pal works", { out <- few_shape_pal() expect_is(out, "function") expect_true(!is.null(attr(out, "max_n"))) pal0 <- out(0) expect_identical(length(pal0), 0L) pal3 <- out(3) expect_identical(length(pal3), 3L) expect_warning(out(10)) }) test_that("few_shape_pal works", { out <- scale_shape_few() expect_is(out, c("ScaleDiscrete", "Scale", "ggproto")) }) test_that("few_pal runs", { p <- few_pal("Medium") expect_is(p, "function") expect_is(attr(p, "max_n"), "integer") out <- p(5) expect_is(out, "character") expect_equal(length(out), 5L) # should use the first accent color expect_equal(out[[1]], ggthemes::ggthemes_data$few$colors$Medium$value[[2]]) expect_warning(p(10)) }) test_that("few_pal works with n = 1", { out <- few_pal("Medium")(1) expect_equal(out, ggthemes::ggthemes_data$few$colors$Medium$value[[1]]) }) test_that("few_pal raises error with bad palette", { expect_error(few_pal("Foo")) }) test_that("scale_colour_few works", { expect_is(scale_colour_few(), "ScaleDiscrete") }) test_that("scale_color_few works", { expect_equal(scale_color_few(), scale_colour_few()) }) test_that("scale_fill_few works", { expect_is(scale_fill_few(), "ScaleDiscrete") }) test_that("theme_few works", { expect_is(theme_few(), "theme") }) test_that("theme_few draws correctly", { df <- data.frame(x = 1:3, y = 1:3, z = c("a", "b", "a"), a = 1) plot <- ggplot(df, aes(x, y, colour = z)) + geom_point() + facet_wrap(~ a) expect_doppelganger("theme_few", plot + theme_few()) }) ggthemes/tests/testthat/test-ptol.R0000644000176200001440000000052713314512522017137 0ustar liggesuserscontext("ptol") test_that("ptol_pal works", { p <- ptol_pal() expect_is(p, "function") expect_is(attr(p, "max_n"), "integer") expect_hexcolor(p(11)) }) test_that("scale_colour_ptol works", { expect_is(scale_colour_ptol(), "ScaleDiscrete") }) test_that("scale_fill_ptol works", { expect_is(scale_fill_ptol(), "ScaleDiscrete") }) ggthemes/tests/testthat/test-tufte.R0000644000176200001440000000041513314523107017305 0ustar liggesuserscontext("tufte") test_that("theme_tufte works", { thm <- theme_tufte() expect_is(thm, "theme") }) test_that("theme_tufte works with ticks = FALSE", { thm <- theme_tufte(ticks = FALSE) expect_is(thm, "theme") expect_equal(thm$axis.ticks, element_blank()) }) ggthemes/tests/testthat/test-excel.R0000644000176200001440000000266313432664025017273 0ustar liggesuserscontext("excel") test_that("excel_clasic_pal works", { pal <- excel_pal() n <- 5L values <- pal(n) expect_is(values, "character") expect_equal(length(values), n) }) test_that("excel_clasic_pal with line = TRUE works", { pal <- excel_pal(line = TRUE) n <- 5L values <- pal(n) expect_is(values, "character") expect_equal(length(values), n) }) test_that("calc_shape_pal raises warning for large n", { expect_warning(excel_pal()(8)) }) test_that("excel_new_pal works", { pal <- excel_new_pal() n <- 5L vals <- pal(n) expect_is(vals, "character") expect_equal(length(vals), n) }) test_that("excel_new_pal raises error for bad n", { expect_warning(excel_new_pal()(7)) }) test_that("theme_excel works", { expect_is(theme_excel(), "theme") }) test_that("excel_new_pal raises error with bad theme name", { expect_error(excel_new_pal("adfaasdfa"), regexp = "`theme` must be one of") }) test_that("scale_fill_excel works", { expect_is(scale_fill_excel(), "ScaleDiscrete") }) test_that("scale_colour_excel works", { expect_is(scale_colour_excel(), "ScaleDiscrete") }) test_that("scale_colour_excel works", { expect_is(scale_fill_excel_new(), "ScaleDiscrete") }) test_that("scale_fill_excel works", { expect_is(scale_colour_excel_new(), "ScaleDiscrete") }) test_that("theme_excel with horizontal = FALSE works", { thm <- theme_excel(horizontal = FALSE) expect_equal(thm$panel.grid.major.y, element_blank()) }) ggthemes/tests/testthat/test-show.R0000644000176200001440000000064513314517131017143 0ustar liggesuserscontext("shapes") test_that("show_shapes works", { # creates plot using base plotting system, so just run code --- any # errors / warnings will be caught. x <- 1:10 expect_equal(show_shapes(x), x) }) test_that("show_linetypes works", { x <- 1:5 expect_equal(show_linetypes(x), x) }) test_that("show_linetypes works with labels = FALSE", { x <- 1:5 expect_equal(show_linetypes(x, labels = FALSE), x) }) ggthemes/tests/testthat/test-theme_solid.R0000644000176200001440000000023613314473742020464 0ustar liggesuserscontext("theme_solid") test_that("theme_solid works", { thm <- theme_solid(fill = "red") expect_is(thm, "theme") expect_equal(thm$rect$fill, "red") }) ggthemes/tests/testthat/test-solarized.R0000644000176200001440000000143713314516616020166 0ustar liggesuserscontext("solarized") test_that("theme_solarized_works", { expect_is(theme_solarized(), "theme") expect_is(theme_solarized(light = FALSE), "theme") }) test_that("theme_solarized_2_works", { expect_is(theme_solarized_2(), "theme") expect_is(theme_solarized_2(light = FALSE), "theme") }) test_that("scale_colour_solarized works", { expect_is(scale_colour_solarized(), "ScaleDiscrete") }) test_that("scale_color_solarized works", { expect_equal(scale_colour_solarized(), scale_color_solarized()) }) test_that("scale_fill_solarized works", { expect_is(scale_fill_solarized(), "ScaleDiscrete") }) test_that("solarized_pal works", { pal <- solarized_pal() expect_is(pal, "function") n <- 5L values <- pal(n) expect_is(values, "character") expect_equal(length(values), n) }) ggthemes/tests/testthat/test-tableau.R0000644000176200001440000000660213466077407017616 0ustar liggesuserscontext("tableau") test_that("tableau_color_pal works", { pal <- tableau_color_pal() expect_is(pal, "function") expect_is(attr(pal, "max_n"), "integer") n <- 3 vals <- pal(n) expect_is(vals, "character") expect_equal(length(vals), n) }) test_that("tableau_color_pal direction = -1 works", { n <- 4L expect_true(all(tableau_color_pal(direction = -1)(n) == rev(tableau_color_pal()(n)))) }) test_that("tableau_color_pal works with diverging palette", { n <- 3L pal <- tableau_color_pal("Orange-Blue Diverging", type = "ordered-diverging")(n) expect_is(pal, "character") expect_equal(length(pal), n) }) test_that("tableau_color_pal raises error with invalid palette", { expect_error(tableau_color_pal("dsaga")) }) test_that("tableau_shape_pal raises error with bad palette", { expect_error(tableau_shape_pal(palette = "gender")) }) test_that("tableau_shape_pal works", { n <- 3 pal <- tableau_shape_pal()(n) expect_is(pal, "integer") expect_is(attr(tableau_shape_pal(), "max_n"), "integer") # all unicode expect_true(all(pal < 0)) expect_equal(length(pal), n) }) test_that("scale_shape_tableau works", { expect_is(scale_shape_tableau(), "ScaleDiscrete") }) test_that("scale_colour_tableau works", { expect_is(scale_colour_tableau(), "ScaleDiscrete") }) test_that("scale_colour_tableau works with diverging scales", { expect_is(scale_colour_tableau(type = "ordered-diverging", palette = "Orange-Blue Diverging"), "ScaleDiscrete") }) test_that("scale_colour_tableau works with sequential scales", { expect_is(scale_colour_tableau(type = "ordered-sequential", palette = "Blue-Green Sequential"), "ScaleDiscrete") }) test_that("scale_fill_tableau works", { expect_is(scale_fill_tableau(), "ScaleDiscrete") }) test_that("scale_fill_tableau works with diverging scales", { expect_is(scale_fill_tableau(type = "ordered-diverging", palette = "Orange-Blue Diverging"), "ScaleDiscrete") }) test_that("scale_fill_tableau works with sequential scales", { expect_is(scale_fill_tableau(type = "ordered-sequential", palette = "Blue-Green Sequential"), "ScaleDiscrete") }) test_that("tableau_gradient_pal works", { p <- tableau_gradient_pal() expect_is(p, "function") expect_hexcolor(p(seq(0, 1, by = 0.1))) }) test_that("tableau_seq_gradient_pal works", { p <- tableau_seq_gradient_pal() expect_is(p, "function") expect_hexcolor(p(seq(0, 1, by = 0.1))) }) test_that("tableau_div_gradient_pal works", { p <- tableau_seq_gradient_pal() expect_is(p, "function") expect_hexcolor(p(seq(0, 1, by = 0.1))) }) test_that("scale_colour_gradient_tableau works", { expect_is(scale_colour_gradient_tableau(), "ScaleContinuous") }) test_that("scale_fill_gradient_tableau works", { expect_is(scale_fill_gradient_tableau(), "ScaleContinuous") }) test_that("scale_colour_gradient_tableau works", { expect_is(scale_colour_gradient2_tableau(), "ScaleContinuous") }) test_that("scale_fill_gradient_tableau works", { expect_is(scale_fill_gradient2_tableau(), "ScaleContinuous") }) test_that("classic colors are in the correct order", { # Issue #96 pal <- tableau_color_pal("Classic 20")(20) expect_equal(pal[[1]], "#1f77b4") expect_equal(pal[[20]], "#9edae5") }) ggthemes/tests/testthat/test-hc.R0000644000176200001440000000150413314735200016547 0ustar liggesuserscontext("hc") test_that("hc_pal works", { pal <- hc_pal() expect_is(pal, "function") n <- 5 values <- pal(n) expect_is(values, "character") expect_equal(length(values), n) }) test_that("hc_pal raises error with invalid palette", { expect_error(hc_pal(palette = "asdgasdgasdgas"), regexp = "not valid") }) test_that("scale_colour_hc works", { expect_is(scale_colour_hc(), "ScaleDiscrete") }) test_that("scale_color_hc works", { expect_equal(scale_colour_hc(), scale_color_hc()) }) test_that("scale_fill_hc works", { expect_is(scale_fill_hc(), "ScaleDiscrete") }) test_that("theme_hc works", { expect_is(theme_hc(), "theme") expect_is(theme_hc(style = "darkunica"), "theme") }) test_that("bgcolor raises warning", { expect_warning(theme_hc(bgcolor = "darkunica"), regexp = "deprecated") }) ggthemes/tests/testthat/test-calc.R0000644000176200001440000000165113314513336017066 0ustar liggesuserscontext("calc") test_that("calc_shape_pal works", { pal <- calc_shape_pal() expect_is(pal, "function") expect_is(attr(pal, "max_n"), "integer") n <- 5L shapes <- pal(n) expect_is(shapes, "integer") expect_true(all(shapes < 0)) expect_equal(length(shapes), n) }) test_that("calc_pal works", { pal <- calc_pal() expect_is(pal, "function") expect_is(attr(pal, "max_n"), "integer") n <- 5L expect_hexcolor(pal(n)) expect_warning(pal(100)) expect_error(pal(-1)) }) test_that("calc_shape_pal raises warning for large n", { expect_warning(calc_shape_pal()(100)) }) test_that("theme_calc works", { expect_is(theme_calc(), "theme") }) test_that("scale_colour_calc works", { expect_is(scale_colour_calc(), "ScaleDiscrete") }) test_that("scale_fill_calc works", { expect_is(scale_fill_calc(), "ScaleDiscrete") }) test_that("scale_shape_calc works", { expect_is(scale_shape_calc(), "ScaleDiscrete") }) ggthemes/tests/testthat/helper-vdiffr.R0000644000176200001440000000132613306127410017736 0ustar liggesusersenable_vdiffr <- TRUE # if (!requireNamespace("vdiffr", quietly = TRUE) || # utils::packageVersion("vdiffr") < "0.2.3.9000") { # enable_vdiffr <- FALSE # } expect_doppelganger <- function(title, fig, path = NULL, ..., user_fonts = NULL, verbose = FALSE) { if (!enable_vdiffr) { # expect_error(regexp = NA, ggplot_build(fig)) return(invisible(NULL)) } vdiffr::expect_doppelganger(title, fig, path = path, ..., user_fonts = user_fonts, verbose = verbose) } ggthemes/tests/testthat/test-base.R0000644000176200001440000000236413305113520017067 0ustar liggesuserscontext("base") test_that("theme_base runs", { expect_is(theme_base(), "theme") }) test_that("theme_par runs", { expect_is(theme_par(), "theme") }) test_that("theme_par recognizes las", { withr::with_par(list(las = 1), { thm <- theme_par() expect_equal(thm$axis.title.x$angle, 0) expect_equal(thm$axis.title.y$angle, 0) }) withr::with_par(list(las = 2), { thm <- theme_par() expect_equal(thm$axis.title.x$angle, 90) expect_equal(thm$axis.title.y$angle, 0) }) withr::with_par(list(las = 3), { thm <- theme_par() expect_equal(thm$axis.title.x$angle, 90) expect_equal(thm$axis.title.y$angle, 90) }) }) test_that("theme_par recognizes tck", { withr::with_par(list(tck = 1), { expect_equal(theme_par()$axis.ticks.length, grid::unit(-1, "snpc")) }) }) test_that("theme_par recognizes xaxt", { withr::with_par(list(xaxt = "n"), { thm <- theme_par() for (i in c("axis.line.x", "axis.text.x", "axis.ticks.x")) { expect_equal(thm[[i]], element_blank()) } }) }) test_that("theme_par recognizes yaxt", { withr::with_par(list(yaxt = "n"), { thm <- theme_par() for (i in c("axis.line.y", "axis.text.y", "axis.ticks.y")) { expect_equal(thm[[i]], element_blank()) } }) }) ggthemes/tests/testthat/test-pander.R0000644000176200001440000000162213314475016017435 0ustar liggesuserscontext("pander") test_that("scale_colour_pander works", { expect_is(scale_colour_pander(), "ScaleDiscrete") }) test_that("scale_fill_pander works", { expect_is(scale_fill_pander(), "ScaleDiscrete") }) test_that("palette_pander works", { colors <- palette_pander(5) expect_hexcolor(colors) }) test_that("palette_pander random_order=TRUE works", { colors <- palette_pander(5, random_order = TRUE) expect_hexcolor(colors) }) test_that("theme_pander works", { expect_is(theme_pander(), "theme") }) test_that("theme_pander works with gm = FALSE", { thm <- theme_pander(gM = FALSE) expect_is(thm, "theme") expect_equal(thm$panel.grid, element_blank()) }) test_that("theme_pander warns about ff argument", { expect_warning(theme_pander(ff = ""), regexp = "deprecated") }) test_that("theme_pander warns about fs argument", { expect_warning(theme_pander(fs = 1), regexp = "deprecated") }) ggthemes/tests/testthat/test-geom-rangeframe.R0000644000176200001440000000016413314517541021220 0ustar liggesuserscontext("geom-rangeframe") test_that("geom_rangeframe works", { expect_is(geom_rangeframe(), "LayerInstance") }) ggthemes/tests/testthat/helper-utils.R0000644000176200001440000000066113337655631017636 0ustar liggesusersis_hexcolor <- function(x) { pattern <- stringr::regex("^#[a-f0-9]{6}$", ignore_case = TRUE) out <- stringr::str_detect(x, pattern) out[is.na(out)] <- FALSE out } expect_hexcolor <- function(object) { # capture object and label act <- quasi_label(rlang::enquo(object)) valid <- is_hexcolor(act$val) expect( all(valid), glue::glue("Not all elements of {act$lab} are hex colors.") ) invisible(act$val) } ggthemes/tests/testthat/test-scales_tufte.R0000644000176200001440000000002213314735224020636 0ustar liggesuserscontext("scales") ggthemes/tests/testthat/test-economist.R0000644000176200001440000000357613314471633020177 0ustar liggesuserscontext("economist") test_that("economist_pal fill=FALSE works", { p <- economist_pal(fill = FALSE) expect_is(p, "function") for (i in 1:9) { expect_hexcolor(p(i)) } }) test_that("economist_pal fill=TRUE works", { p <- economist_pal(fill = TRUE) expect_is(p, "function") for (i in 1:9) { expect_hexcolor(p(i)) } }) test_that("economist_pal raises warning with large number", { expect_warning(economist_pal()(10)) }) test_that("scale_colour_economist equals scale_color_economist", { expect_equal(scale_color_economist(), scale_colour_economist()) }) test_that("scale_colour_economist works", { expect_is(scale_color_economist(), "ScaleDiscrete") }) test_that("scale_fill_economist works", { expect_is(scale_fill_economist(), "ScaleDiscrete") }) test_that("theme economist works", { expect_is(theme_economist(), "theme") }) test_that("theme economist with horizontal=FALSE works", { thm <- theme_economist(horizontal = FALSE) expect_is(thm, "theme") expect_equal(thm$panel.grid.major.y, element_blank()) }) test_that("theme economist with dark panel works", { thm <- theme_economist(dkpanel = TRUE) expect_is(thm, "theme") expect_equal(thm$strip.background$fill, purrr::pluck(dplyr::filter(ggthemes_data$economist$bg, name == "dark blue-gray"), "value")) }) test_that("theme economist_white works", { thm <- theme_economist_white(gray_bg = FALSE) expect_is(thm, "theme") expect_equal(thm$panel.background$fill, "white") expect_equal(thm$plot.background$fill, "white") }) test_that("theme economist_white with gray background works", { thm <- theme_economist_white(gray_bg = TRUE) expect_is(thm, "theme") expect_equal(thm$plot.background$fill, purrr::pluck(dplyr::filter(ggthemes_data$economist$bg, name == "light gray"), "value")) }) ggthemes/tests/testthat/test-wsj_pal.R0000644000176200001440000000112513314476611017623 0ustar liggesuserscontext("wsj") test_that("theme_wsj works", { expect_is(theme_wsj(), "theme") }) test_that("wsj_pal works", { p <- wsj_pal() expect_is(p, "function") expect_is(attr(p, "max_n"), "integer") expect_hexcolor(p(3)) }) test_that("theme_wsj works", { expect_is(theme_wsj(), "theme") }) test_that("theme_wsj raises error with invalid palette", { expect_error(wsj_pal("asdgasa"), regexp = "valid palette") }) test_that("scale_colour_wsj works", { expect_is(scale_colour_wsj(), "ScaleDiscrete") }) test_that("scale_fill_wsj works", { expect_is(scale_fill_wsj(), "ScaleDiscrete") }) ggthemes/tests/testthat/test-stata.R0000644000176200001440000000274013314477072017306 0ustar liggesuserscontext("stata") test_that("stata_pal works", { p <- stata_pal() expect_is(p, "function") expect_is(attr(p, "max_n"), "integer") n <- 5 vals <- p(n) expect_hexcolor(vals) expect_length(vals, n) expect_warning(stata_pal()(100)) }) test_that("scale_colour_stata works", { expect_is(scale_colour_stata(), "ScaleDiscrete") }) test_that("scale_color_stata works", { expect_equal(scale_colour_stata(), scale_color_stata()) }) test_that("scale_fill_stata works", { expect_is(scale_fill_stata(), "ScaleDiscrete") }) test_that("scale_shape_stata works", { expect_is(scale_shape_stata(), "ScaleDiscrete") }) test_that("theme_stata works", { expect_is(theme_stata(), "theme") for (i in c("s2mono", "s1mono", "s2manual", "s1rcolor", "s1color")) { expect_is(theme_stata(scheme = i), "theme") } }) test_that("theme_state raises error with invallid scheme", { expect_error(theme_stata(scheme = "dsagasagdadgaga"), regexp = "`scheme` must be one of") }) test_that("stata_shape_pal works", { p <- stata_shape_pal() expect_is(p, "function") n <- 5L vals <- p(n) expect_is(vals, "integer") expect_length(vals, n) expect_true(all(vals < 0)) expect_warning(p(100)) }) test_that("stata_linetype_pal works", { p <- stata_linetype_pal() expect_is(p, "function") n <- 5L vals <- p(n) expect_equal(vals, c("solid", "84", "23", "F414", "F4")) }) test_that("scale_linetype_stata works", { expect_is(scale_linetype_stata(), "ScaleDiscrete") }) ggthemes/tests/testthat/test-shapes.R0000644000176200001440000000324413314735230017446 0ustar liggesuserscontext("shapes") test_that("circlefill_pal works", { pal <- circlefill_shape_pal() expect_is(pal, "function") expect_equal(attr(pal, "max_n"), 5L) n <- 4L values <- pal(n) expect_is(values, "integer") expect_equal(length(values), n) }) test_that("scale_shape_circlefill works", { expect_is(scale_shape_circlefill(), "ScaleDiscrete") }) test_that("tremmel_shape_pal works", { pal <- tremmel_shape_pal() expect_is(pal, "function") expect_equal(attr(pal, "max_n"), 3L) n <- 3L values <- pal(n) expect_is(values, "integer") expect_equal(length(values), n) }) test_that("tremmel_shape_pal works for all values", { for (i in 1:3L) { expect_equal(length(tremmel_shape_pal()(i)), i) expect_equal(length(tremmel_shape_pal(alt = TRUE)(i)), i) expect_equal(length(tremmel_shape_pal(overlap = TRUE)(i)), i) } }) test_that("scale_shape_tremmel works", { expect_is(scale_shape_tremmel(), "ScaleDiscrete") }) test_that("cleveland_shape_pal works", { pal <- cleveland_shape_pal() expect_is(pal, "function") expect_equal(attr(pal, "max_n"), 4) n <- 3 vals <- pal(n) expect_equal(length(vals), n) }) test_that("tremmel_pal arg n3alt is deprected", { expect_warning(tremmel_shape_pal(n3alt = FALSE)) expect_warning(tremmel_shape_pal(n3alt = TRUE)) }) test_that("cleveland_shape_pal works with overlap = FALSE", { pal <- cleveland_shape_pal(overlap = FALSE) expect_is(pal, "function") expect_equal(attr(pal, "max_n"), 5) n <- 3 vals <- pal(n) expect_equal(length(vals), n) expect_is(vals, "integer") expect_true(all(vals < 0)) }) test_that("scale_shape_cleveland works", { expect_is(scale_shape_cleveland(), "ScaleDiscrete") }) ggthemes/tests/testthat/test-tufteboxplot.R0000644000176200001440000000017213314517607020725 0ustar liggesuserscontext("geom-tufteboxplot") test_that("geom_tufteboxplot works", { expect_is(geom_tufteboxplot(), "LayerInstance") }) ggthemes/NAMESPACE0000644000176200001440000001073013466154051013302 0ustar liggesusers# Generated by roxygen2: do not edit by hand export(GeomRangeFrame) export(GeomTufteboxplot) export(StatFivenumber) export(bank_slopes) export(calc_pal) export(calc_shape_pal) export(canva_pal) export(circlefill_shape_pal) export(cleveland_shape_pal) export(colorblind_pal) export(economist_pal) export(excel_new_pal) export(excel_pal) export(extended_range_breaks) export(extended_range_breaks_) export(few_pal) export(few_shape_pal) export(fivethirtyeight_pal) export(gdocs_pal) export(geom_rangeframe) export(geom_tufteboxplot) export(hc_pal) export(palette_pander) export(ptol_pal) export(scale_color_calc) export(scale_color_canva) export(scale_color_colorblind) export(scale_color_continuous_tableau) export(scale_color_economist) export(scale_color_excel) export(scale_color_excel_new) export(scale_color_few) export(scale_color_fivethirtyeight) export(scale_color_gdocs) export(scale_color_gradient2_tableau) export(scale_color_gradient_tableau) export(scale_color_hc) export(scale_color_pander) export(scale_color_ptol) export(scale_color_solarized) export(scale_color_stata) export(scale_color_tableau) export(scale_color_wsj) export(scale_colour_calc) export(scale_colour_canva) export(scale_colour_colorblind) export(scale_colour_economist) export(scale_colour_excel) export(scale_colour_excel_new) export(scale_colour_few) export(scale_colour_fivethirtyeight) export(scale_colour_gdocs) export(scale_colour_gradient2_tableau) export(scale_colour_gradient_tableau) export(scale_colour_hc) export(scale_colour_pander) export(scale_colour_ptol) export(scale_colour_solarized) export(scale_colour_stata) export(scale_colour_tableau) export(scale_colour_wsj) export(scale_fill_calc) export(scale_fill_canva) export(scale_fill_colorblind) export(scale_fill_continuous_tableau) export(scale_fill_economist) export(scale_fill_excel) export(scale_fill_excel_new) export(scale_fill_few) export(scale_fill_fivethirtyeight) export(scale_fill_gdocs) export(scale_fill_gradient2_tableau) export(scale_fill_gradient_tableau) export(scale_fill_hc) export(scale_fill_pander) export(scale_fill_ptol) export(scale_fill_solarized) export(scale_fill_stata) export(scale_fill_tableau) export(scale_fill_wsj) export(scale_linetype_stata) export(scale_shape_calc) export(scale_shape_circlefill) export(scale_shape_cleveland) export(scale_shape_few) export(scale_shape_stata) export(scale_shape_tableau) export(scale_shape_tremmel) export(show_linetypes) export(show_shapes) export(smart_digits) export(smart_digits_format) export(solarized_pal) export(stat_fivenumber) export(stata_linetype_pal) export(stata_pal) export(stata_shape_pal) export(tableau_color_pal) export(tableau_div_gradient_pal) export(tableau_gradient_pal) export(tableau_seq_gradient_pal) export(tableau_shape_pal) export(theme_base) export(theme_calc) export(theme_clean) export(theme_economist) export(theme_economist_white) export(theme_excel) export(theme_excel_new) export(theme_few) export(theme_fivethirtyeight) export(theme_foundation) export(theme_gdocs) export(theme_hc) export(theme_igray) export(theme_map) export(theme_pander) export(theme_par) export(theme_solarized) export(theme_solarized_2) export(theme_solid) export(theme_stata) export(theme_tufte) export(theme_wsj) export(tremmel_shape_pal) export(wsj_pal) importFrom(ggplot2,"%+replace%") importFrom(ggplot2,Geom) importFrom(ggplot2,aes) importFrom(ggplot2,continuous_scale) importFrom(ggplot2,discrete_scale) importFrom(ggplot2,draw_key_path) importFrom(ggplot2,draw_key_pointrange) importFrom(ggplot2,element_blank) importFrom(ggplot2,element_line) importFrom(ggplot2,element_rect) importFrom(ggplot2,element_text) importFrom(ggplot2,ggplot) importFrom(ggplot2,ggproto) importFrom(ggplot2,layer) importFrom(ggplot2,margin) importFrom(ggplot2,rel) importFrom(ggplot2,theme) importFrom(ggplot2,theme_bw) importFrom(ggplot2,theme_gray) importFrom(ggplot2,theme_grey) importFrom(graphics,abline) importFrom(graphics,axis) importFrom(graphics,par) importFrom(graphics,plot) importFrom(graphics,points) importFrom(graphics,text) importFrom(grid,gList) importFrom(grid,gTree) importFrom(grid,gpar) importFrom(grid,grobName) importFrom(grid,grobTree) importFrom(grid,segmentsGrob) importFrom(grid,unit) importFrom(methods,as) importFrom(methods,hasArg) importFrom(purrr,map) importFrom(purrr,map_dfr) importFrom(scales,alpha) importFrom(scales,div_gradient_pal) importFrom(scales,manual_pal) importFrom(scales,seq_gradient_pal) importFrom(stringr,str_c) importFrom(stringr,str_replace) importFrom(tibble,as_tibble) importFrom(tibble,deframe) ggthemes/NEWS.md0000644000176200001440000002202713466105426013165 0ustar liggesusers# ggthemes 4.2.0 - Add `theme_clean()` (Thanks @konradzdeb, #105) - Add `direction` argument to `scale_color_tableau()` and `scale_fill_tableau()` (Thanks @vadimus202, #112) # ggthemes 4.1.1 - Fix bugs in `geom_rangeframe` and `geom_tufteboxplot` caused by failing to import `alpha`. (Thanks @flying-sheep, #110) # ggthemes 4.1.0 - Add `type` argument to `scale_color_tableau` so that sequential and diverging palettes can be used in discrete scales. (Thanks @onesandzeroes, #108) - Fix colors in "Purple" and "Blue-Teal" palettes in `tableau_color_pal()`. (Thanks @leonawicz, #109) # ggthemes 4.0.1 - Fix bugs in `tableau_color_pal()`. Wrong colors in "Tableau 20" theme (Thanks @friskin, #95), and incorrect order of classic color palettes (Thanks @luca-scr, #96). - Fix fatal bug in `theme_solarized()` and `solarized_rebase()`. (Thanks @mdodrill-usgs, #97) # ggthemes 4.0.0 - Added palettes and based on current versions of Excel: `excel_pal_new()`, `scale_colour_excel_new()`, and `scale_fill_excel_new()`. Excel '97 based scales keep the same names. - Added `theme_excel_new()` which is based on the chart defaults of current versions of Excel. - Added Tableau 10 palettes and renamed old palettes in `tableau_color_pal()`, `scale_color_tableau()`, `scale_fill_tableau()`, and others. The continuous sequential and diverging palettes are improved by including more intermediate steps. - Updated `theme_gdocs()` to current look. - Updated `scale_color_gdocs()` and `fill_color_gdocs()` to current color. - Added `scale_shapes_few()` and `few_shape_pal()` with a shape scale and palette from Stephen Few's "Show Me the Numbers". - Removed `stata` argument from `scale_*_economist()` and `theme_economist()`. - Changed the format of the `ggthemes_data` object. - Changed behavior of `few_pal()`. If `n = 1`, use gray. If `n > 1` use non-gray colors. - Changed `tremmel_shape_scale()` to use `alt = TRUE` by default - Deprecated `tremmel_shape_scale()` argument `n3alt`. Use the `alt` argument instead. - Added a pkgdown site. - Removed vignette. Move all examples to man pages. - Bugfix: Fix `theme_few()` (#91) - Bugfix: Update themes to be consistent with `ggplot>=3.2.0` # ggthemes 3.5.0 - Bugfix: Fix RGB colors in `scale_color_few()`, `scale_fill_few()`, and `few_pal()` (#89, @bpbraun) - Update documentation to include mentions of the maximum number of values that discrete scales support (#85) # ggthemes 3.4.2 - Bugfix: Fix example code in `theme_economist()`. Thanks @carlganz #81. - Remove suggests dependencies: `reshape2`, `plyr`, `tidyverse` # ggthemes 3.4.1 - Bugfix: Resolve duplicate palette names in `canva_palettes()`. Thanks @Eluvias (#78) # ggthemes 3.4.0 - Add color palettes from canva.com: `canva_palettes()`, `canva_pal()`, `scale_colour_canva()`. - Use `NEWS.md` instead of `NEWS` - Update Economist examples to put y-axis on the right side. # ggthemes 3.3.0 - Update themes to changes in ggplot 2.1.0.9000. Thanks @juliasilge (#71) - `tufte_boxplot()` uses `position="dodge"` by default. Thanks @jgellar (#68) - Bugfix: Fix errors in `geom_rangeframe()` in new version of ggplot2. Thanks @coulmont (#70) # ggthemes 3.2.0 - Bugfix: In function `bank_slopes()`, remove methods `ao`, `gor`, and `lor`. These methods were not producing reliable results, and should not produce results much different than `ms` or `as`. If used, they will produce a warning, and `ms` will be used instead. (#68) # ggthemes 3.1.0 - Add `ptol_pal()`, `scale_colour_ptol()`, and `scale_file_ptol()` based on Paul Tol's qualitative color palettes. Thanks @jmlondon. (#65) # ggthemes 3.0.4 - Fix panel.grid.major.y colors for `theme_hc()`. Thanks @flying-sheep! (#64) # ggthemes 3.0.3 - Bugfix: remove `lintr` tests that broke with new `testthat`. # ggthemes 3.0.2 - Bugfix: export `ggthemes_data()` # ggthemes 3.0.1 - Bugfix: Remove border around legends in `theme_gdocs()`. Thanks SandyMuspratt! Pull request #53. - Bugfix: Remove border around legends in `theme_calc()`. - Bugfix: Add colour and fill values to `theme_foundation()`. This restores its behavior to version 2.2.1. Fixes Issue #56. # ggthemes 3.0.0 - For `geom_tufteboxplot()` and `GeomTufteboxplot`, option `median.type` supports only `line` and `point` options. Added option `whisker.type` which allows for whiskers to be specified by lines or points. - Changed default stat for `geom_tufteboxplot()` to `stat_fivenumber()`. - Added `theme_base()` and `theme_par()` - Removed `scale_(x|y)_tufte()`. See issue #49 - `theme_foundation()` rewritten. Removed `use_sizes` argument. - Import rather than depend on `ggplot2` - Update geoms, scales, and themes to ggplot >= 2.0.0 # ggthemes 2.2.1 - bugfix: fix R CMD check notes due to change in how it handles non-base default packages: - bugfix: fix bad URLs # ggthemes 2.2.0 - Added `theme_map()` from @hrbrmstr # ggthemes 2.1.1 - bugfix: use title case in package title; refer to ggplot2 in title - bugfix: fix non-escaped URLs in colorblind.R - bugfix: fix broken URL in few.R - bugfix: remove non-ascii characters in shapes.R - bugfix: use `requireNamespace()` instead of `require()` # ggthemes 2.1.0 - New theme and scale based on Highcharts JS: `scale_*_hc()`, `theme_hc()`. Thanks jbkunst! # ggthemes 2.0.0 - New options for `geom_tufteboxplot()`. `median.type` takes values "point", "box", or "line". Option `usebox` is no longer supported, and equivalent to `median.type="box"`. Thanks weitzner! Issue #13, PR #19. - All theme functions have `base_size` and `base_family` as first two arguments. This affects `theme_economist_white()`, `theme_excel()`, `theme_pander()`, `theme_solid()`, and `theme_tufte()`. Thanks ptoche! Issue #25. - `theme_pander()`: Options `ff` and `fs` are deprecated; use `base_family` and `base_size` options instead, respectively. # ggthemes 1.9.0 - added vignette - added themes / scales based on factory defaults of pander package: `pander_palette()`, `scale_color_pander()`, `scale_fill_pander()`, `theme_pander()`. Thanks daroczig. - added additional fill and gradient color scales: `scale_fill_fivethirtyeight()`, `scale_colour_gradient_tableau()`, `scale_fill_gradient_tableau()`, `scale_fill_continuous_tableau()`, `scale_colour_gradient2_tableau()`, `scale_fill_gradient2_tableau()`. Thanks bowerth. # ggthemes 1.8.0 - added themes and color scale from fivethirtyeight.com: `theme_fivethirtyeight()`, `fivethirtyeight_pal()`, `scale_color_fivethirtyeight()` # ggthemes 1.7.0 - added a new breaks algorithm: `scales_extended_range_breaks()`, `extended_range_breaks()` - added scales which implement the breaks algorithm: `scale_x_tufte()`, `scale_y_tufte()` - added new label format: `smart_digits()`, `smart_digits_format()` # ggthemes 1.6.1 - fix bug in `theme_wsj()` (issue #17) # ggthemes 1.6.0 - added `theme_solid()` # ggthemes 1.5.1 - fix failures in R CMD check # ggthemes 1.5.0 - added alternative Solarized theme: `theme_solarized_2()` - `theme_solarized()`: adjusted the colors - added LibreOffic Calc themes and palettes: `theme_calc()`, `calc_pal()`, `scale_fill_calc()`, `scale_colour_calc()`, `cacl_shape_pal()`, `scale_shape_calc()` - added Google Docs themes and palettes: `theme_gdocs()`, `gdocs_pal()`, `scale_fill_gdocs()`, `scale_colour_gdocs()` - fixed some examples # ggthemes 1.4.0 - fix bug in default palettes of `scale_colour_excel()` and `scale_fill_excel()`. # ggthemes 1.3.4 - added Tableau sequential colour palettes: `tableau_seq_gradient_pal()`, `scale_colour_gradient_tableau()`, `scale_fill_gradient_tableau()`. - added Tableau diverging colour palettes: `tableau_div_gradient_pal()`, `scale_colour_gradient2_tableau()`, `scale_fill_gradient2_tableau()`. - `tableau_colour_pal()`: added palette "cyclical # ggthemes 1.3.3 - fix issue #11: error with fonts and `theme_wsj()` in Windows # ggthemes 1.3.1 - `bank_slopes()` returns y/x aspect ratio to be compatible with `coord_fixed()` - improved documentation # ggthemes 1.3.0 - renamed `theme_excel2003()` to `theme_excel()` - replace `scale_fill_excel2003()` and `scale_fill_excel10()` with `scale_fill_excel()` - replaced `scale_colour_excel2003()` and `scale_colour_excel10()` with `scale_colour_excel()` - replaced `excel2003_pal()` and `excel10_pal()` with `excel_pal()` - renamed `theme_base()` to `theme_foundation()` # ggthemes 1.2.0 - added colorblind scales: `colorblind_pal()`, `scale_*_colorblind()`. # ggthemes 1.1.0 - added Wall Street Journal themes, palettes, scales: `theme_wsj()`, `wsj_pal()`, `scale_colour_wsj()`, and `scale_fill_wsj()`. - added function `bank_slopes()` : methods for determining the optimal slope ratio. - added `theme-foundation()`: a theme designed to be easy to extend into new themes. - added NEWS file ggthemes/data/0000755000176200001440000000000013432642576013002 5ustar liggesusersggthemes/data/canva_palettes.rda0000644000176200001440000001107513273732051016456 0ustar liggesusers‹uZk¯Çqe$‚IñqII¶‚8YÄߘ~w)Yv É„®dù[ÐOÞ ÷q½R×?Ä?7È™ÙéÚÛ# HqöÑ]]uêÔ©šýþË¿ò‡}øàÁƒ|øá>øÿüÕøëŸüêÁ¯ñÿ'ÑoÞùÿ¹õ«|8ä=>ø¯þžõ=ê£ßg­Öõ¶HÞåéÖv!9rë’W®YÃu¾D5Ý ¡ƒ5Ó-÷‚ >Ý-4×ÍRsÆüt«H"M·Á+%ª•^ Ë»f Õ)¦»º†µœïsHÂÖ;Ë…lÖè:dÝ©3ʨP—Ô^ùjV”©äö,¦.¶þÈÁzY­-.E^oe0RÖ5lHÿcZpAH'I® éÝ‘4NÓ¶]£(®d=KñÚ˜ ¹R’–5÷]ˆÝL¾ð |ÊÚtÕŽØ)ÛÕ%Spªk±®:Á8AÒ”,™eö¶ByÁ ?¤µäS&zÏ9iJ“´`¶ÅGa¡#ü1üW­Œ–ÆŽ:Íb¬ãNT;XÖJ;X±Â¶hîgòõ"™J1á"i ‚r„ Z›·Ž$¶*dÊAÀp¨µ!ax—œQ– ±ÖIE` òŒ@ÎÑæmpÉEÂþ '¦Ál$1§Ö,ƒ>jô¸ZUHÀÔV§Ÿnkv1ˆ ·É…Ná*Èçu׿‹g!ÏgžŠ¯k8î}¬GË •”7kHëLªžG’BäHÁ¬HÔ¬ïT‹ub"gÑšgFjTH1ÄYthÖ@±e‰l\bôô6GB’4­2ŠB‘˜PÔÅÙoÈÁµå-ŸïA¼äÖR*(^vDK•\Dn}ZdŽºff±NÎF”®bÌ3Vº–ǰ4d 9±3’P’¾ $pš­O‹1º«kÔN²qQ:pÁkÏb S¼fUÒÌR.L>w5³“½óš¼õ€fÍ—¤¢ðÕ` MpfÁvmÞr}‘ÚB:PÒIÙ2â­)Û|AÅ%ìoxdDzwHA§]à¡ÅX4‰ª6ã½%õ¥Ígô ŸŠŽN”0Gñ$aBÉæú)EåÛ¸ « µ#›@ަ4pÙ÷X%[;¨NT,u§> Gu!¸°Å© `dcTš·ÆS1f”‚mÖHV^$t!÷x½¨è]˧}T¨ó"&_BÍNDž%MëS¤TàDKõMða‹"ª1§`gê Ë™©ºŽ —„`õ¤PöI¶8-.xÂ2PRÙ^ØÁ2iE Ú»¶Vvè# ŠD'qU³‚ét]#ºÄâL\¸d¤ëëe¢ N AY"ñ¬òr¦c>µÞfîœ M–h:´ e¦Þ¢ùJŒ[N@¥¸S¤o.ÊØâCu:ŒqÏé=@ã!U;€u-çxÍ"IøˆZÔ¨HJ'º×rŒžà=„Ð$÷¹4ÄÅ>†dÚ¸0ÍiÎÒHÊ^.AuÅ4ÇZí`•¾î„ØeÙLÚ™”<·­:¢‡®·Â† #zÍR™dJ¹6ïÁ·õ–'щ™> †ÒICƽÞu:ZžmnuEµ%Ú!¢êÓÚçª<£œãä(=9‹¦3õÖfètD"gt!”t9h¾DªGcL)ȇºÓ–ÇRw Ó„?’Ž:Ô|q&ØØâÔ1§ ¢ŽyAa[< “ò LËAÜu„©²‚ßê÷ú¨l¤áí,‡CŠzâ¤xí—p*¼b3q1J÷-Ú´†O¨KõKJDÚe›ÄÌl‹yN ½/,Íßk©ÒQ£ oùú³É"â #D¨fIhè™>‰HY7føžë­>¸ºÅ*¥ S4°nT;šÕ¾cif~š”’’Ì àv¸ê ´²­O¥LŽéU¦FR|¨^&6|j;”vR ú«ZÙ O²ƒCamÏ¢ŠÓ¶: ” ½æNYeÉÁ£ ­þpšö‹ÅÍÞ…> ðÖ IgI\ºÐâBÆ•Toáï¨[|p D¾$€":0E©¨èÑLu²‹E£H„`L!“Ú ÓI!GæpŠþІŽ<y护ì³âŒ†)!&I:G¤·«ÄU¤É\Ûúªk×(7E\Õ,!L ª€¡ÝUmîwýب"ÀfãÈX·ô™PÍbAÕæœe€I2ï3‘4(ŽŠ°\–Ãtµ±CC ÖO•â¢3ä ™| Û'W“·¨¯¤30¢ ¡,èÜΑ¾å1tŸØrÙ {Ñ¥ÆVc‘ØúÃK§QÓµ’ oúŽ¥ú4;gffã1'€H%ITÞeReµkøpÑÀ¡„“ò[L0´ú€ò¬þÈÄ0*Ôì:c >xß„¶>íÛoÛtš\SN.uIaú«Y# ÃI0±¯uôYRpÐZöÞ´ú£Ë] CÏÑ“ùºa†Ä6xdæYaÖt2h‚ê»sdl‡ŠŽ«µ£»UZ#ó D¤UÌ̵£Ït°Þõ‰Ê-ñÇ©r4ùbb&SE¥û«Â¶ @ÆT+¶Í9£4t&-)¿ÙEKÜcQ°l{fg4o/?8ÛÏ%ê’>jÓæ ›¥â)e$ÅÐG)ýS´œœ9'2páâYA@ëN¥·-®­“š‘z+7´FÉ”#i3mÎy&÷¥•d’E‡«~ÉE:-* §Åi¬ Ï‘¹‘è1«k@™™¹·:y2ÉOJGÂA ƒ&'E÷ïÚºAÇhÃ∞%NG€3µá2_К](ûVÌ-4uËAÆDG†2èÄ,†& ºBSù6_t0žä~ÑQ—‰BÇh|‹SÔ[Mô‡ÎÚ{ TÒGKýÕú´ôcÖÛN2EF‚IòÈÏæþa}{–,4é,FÆ2«ZôW³FŸd³‹KZc>ÑpÉ^ÏðGPZ(ZÉ.Ê/ldŽ R‡Njí°,P1©b&#Y)bGx=Wž™ó˘2y&î%š*y¡ÎH»+™›yæéÐz%Bä6„D¥fvé¯ö,@å$LQ^<ÒÊÈä\£Ëjûàxú Ì3:nš>›Ú³™ßxèNÑ@´ÐV$9’s1Æ0£ùDGK6æè”ê­/Ò‰×ë½™YNÉZ"žÒ–€» çˆç9¥ÖQH0•àd~Z\ÈdìßñØO‹šœK^"Ý˯D6šþÒ ¦Ìüu+Á¡ûÞŒTJWŸfŽn9H:™ ù9k ¡$gU&S<æ8Ÿáõ{ºÐ¹˜ 5f:âq!Çf~cÄú‹ ZØŠöt~ aafê~ TKeÑs‰?X@ò·73©‰0î‚ÐQy\wà–ƒ˜BA!l‡:B®'¿éàèõfž$ic!ÓMHò3Œ 2¯wVt|æYÉ…¯þMMº×ÛBçÄ^nÞ-ÈŽÑœä/Òí㟖›!aõ„γŸ qð5P[˜éðônû~ZàêœØ«»ðÆOyñøÕöï'¿ÇyÆÿ²Ü®Ùý€Üó‹Ÿ]ùïÏÆ<Áù³—ùn;ÔOßyƒóŒE‡€ßàà÷ ÷xÊçˆ9÷§ 8û°[žye%¢¦ì¦üç¹Þl[Îiq"Ù5îíóðu_‚oQ¯Ç°_ ‚EëŒX¯–q$Êÿa•g£÷¯¯!€µAœ9Ñ#tT\}3•˜ÍE]ïý¶ïïæ$³¯‘±¹ ýÕ¤5nð×~»ž óCŽ7Pã›;œ ö§Í¦·k阪ïír3ÖÁϾúyÛÃpXæ.–ë[Çp>yÙ‡•sojT>!µóÖÌ8åÐǧ¼^-ßUØ=fNuûÅÛå!Þä >×ëíÛ»Åíq‡`í§³ ô¤“_Ö=Š/³÷“±þÜçï!p‚ýa‹˜/7ûÛe­0NìAKÀE^åi‹ß õcøä‰ÃÒ·'ÐùIR6Z/7b«ÄQœ8g5äòÙëÞw“i‡o\Xv=lÙäÛǃv|·§…âÉëAÌ! ´Ò>Hÿö¸‰“,}úBu:Ýïéõ-ð3覾ÀŽ©÷Õ©N¼°½í]‹’_-uÆ=_ÿ¦IŒ‹SüÇIGõôp2å$Y‰kF»þíä¶7}Z峃ι¨#Ï/}ßSÕˆoŽ?wËíqßZñâÇM_CNß½¼­`ýÝžüÑóIX"§p¢I9(öÞѯ¾8•¦T}éö˜Ò¤û@Úä)•žVÜPùù«ÞªþĽèߨÊò¾JŠíÉPh뼯„Ý¿:—êÝóëÿþÇž ömõ'¯1˜?µ:àßoûz³Fë/Šâbl—Ÿ Æýo#É]#q×w‹›ÚOÈù·+ qé§JòìzÙ“|cö“ÎÊôbñèJxñRF>cF?ÿx {iüô¼e€ÇÉË/^mw·(?‡Ü ð9õùOLB:žÑ; éA ß‹ÝG¯·àƒÝÿü¿þÏÿ˜Ñ(ä6ggthemes/data/ggthemes_data.rda0000644000176200001440000003113213432642576016266 0ustar liggesusersBZh91AY&SY¾^.„„dÿÿÿÿÿë¯ÿôÿÿÿèÿÿÿð{ùÿõóü_ÿPÿð~ïÿà7½à=¤+}¦_—É{¾î½³ë[劥ÛQ4z ðè14|u¢” 4 E@e*T@ ´¥Jì<ìzß9Î3}Ù×u>”£@gUîõ÷ßîîûd¼]t³‰lWnéõóïHw•ÖËJJJ­š<†¦!)äÐÒi‚d O$Èš¡ 4 ƒ@ÈišÕ£ SMPz5 Ð ™Ñ¦!ê L ‰ˆÑ“# Ð Èd@DjF¦2z§¨ÓÔ2C 2&@ F‚4ÕOi ú£Ò=#ÔõÐÓ@z€ @€ 2hz›SõAˆ@MM0ƒSÒySô¦Á4j~‘©¦hžFI´SjÚë¹ZÏÁøvŸKÒx¾7ÍØæŽh|™ñJ+¤iñsÑ•Sg;.Æ›xIƒ@د‚`¶´úï[Q1F‹ëÖaÇÁðû¸¥3O\b_y­^¥à«3b–fóÔ8s±{›HFÃZëò7ø^Ê×íÜû¹«È¡ûÉöÇvÄ-í*±9î6*G§³ç79ÆP•a\úƒh5 ø`Ð+Eΰ½Rƒy}W BòÇqÙä4$»I/_–=™ï4‡e¡ëzJK_-úìK¼†Kó¬ ^ý™Ó]+›ñþ“ÕöhnôÑÙÂ<¯°tíáOYTY»Ã|ØhÒ¥#ÈbJ~ɬgÁCÃ[²K0(Æš7pÜWvÞ¼“¼njõxÖG½/d Ççù0w>ˆx½m/Îx ð<ÝB¿‚©ä˜Plßö|)¼Zzêž6[_tû veZ3£1- [^.…Ùü ˜ñaéÔ á¹Ž=Ëb$bÁbݺZæ!JP”D%&‚RÜÏšþíÞËF1éˆÚ€]Óè¿A€—~%ÿL–8z¿Goöu÷lâÏ+m>dG5O³~JÏg—ð$¸Rl—ww6/F]…ÍÝùÑÕåVW×dS¯ªmÙMjvNt^®ÏÞ›¼øQT{ ÖÁ¦Ò™Â ÕEXª…í༘urØàƒ!Ë…bÙ)J#º Õ(¡$ÀH= øaÇ™½|X¢­yd{ÞIdšc´k²P[(óg²aòœPNac8{UËYÒ’Øâ$w‹â¾ÁjÀ2z· ‰Ío𨭾+èl_ÁÔUÜl„okþ5–S¼bK·(Êu…NSWâ6™¹î>޳0¶ñËói*ì|÷Ãï?mû~÷›°ÑÈ ù_Ó¿øçC¬¸ó6T˜†¦–Ó¤±U9ä‡ÌëwYÿ~‰»Æ â=Rþ%ü?þÉã³EXÙ:,²­+ñgd÷hhÉÃ]©^*iyy\Ï bòÃ] ¼hä’ÑIx’ˆ*€Ÿ³¾î¼3ןñg/y?âí]§7/›OÏ‹Éòõ—ÈÙ|7öt{9?ŽH½ÇIwÑ)=Ô“öÍW»‚ìkocò=¨ÎÒ>ïßIO‡;+ïpwš5(édñ5ßvÔÅŠ<4Iñ ‚¶…£¢â:_…{'‹‡Æéa̽¹êA^íëͦÖÄAES¼ám0âÕòó¾/Y«Éî¶ž>¯;ï{+yß—Èù}"ÞïÚ²Ñ%¢;Üó„#á8Ø”"Pgx…ʰ ƬfëßýK~Š=‡¼¾Ð÷íFθ;taaï†ÛiöL™‡zRa]¬ÿX %‹ÿ h¾üHµ×Ï=$¨ïö8aù‘ÅÛbÛO!VPyk 'ž˜*E CdjÈDE^opÁ¥|Æ!ô&çågÓ×Ñoëç©ûg™h}Ï\ù&Å8œ1@k¢”C;¦Í\ºë "xç¬F™2Zžaª0ЛN ·?Áî^‘”j¤ƒI(älŽýSÒjÎÛ5Í¥Yk'j—2à5ÁUhÖJ–þ¢ÄÙ~¨×l²YbŒ‘I$"FH¸1]—yðóS²xØ+îûW‚œ£#&ÿ‰ÑDP4P§Z_ ;tóòæ9M9O¬Û0CpjùK>Æóu¤7œèâ|O·¾^hšÓ…É*á[Äȇ6Öòˆ¤fÃúÔ£/ÅͲ8_>M·óÜÎ[ïåV,ó óp:ù€”¯öÿ0> 1+<ŠAôwÃû¦–æÅñf7I›päÒ(.)ØGÊ0˾þVí=ÖÁ$¨¶v°b8yu+×ÚK‘ž6±C¬ñžåè™ ¹íZÈqÇ \,¨MIÉ\hÎdöµÝ¿oìOÌçFX ³!_ŬO“©žÐb„€w[Ä}€mës{½þ.^Ÿ#U¿º6ãOÆ]´jÜû;§5uQÃ" €mÆÉc<žšeáó=.Ü2Ñ[§nå&2á]áÁˆÍ‰²GŽ)ž%ðŸ¾ß:ð}v¸QC»ë1XõÔêúW¸ÌNW”§w–G6Ah½ hHÒ’=PC¨<ÕîÁ‰åC`Cv­W.‰ÒJì´1ʆ)xBi~ú2×b ÔZ•Eg~˜°o&Z Ö-+ôÕ½6üúØ ƒ&‹i•êÊÛf³6¹Ò ­sßÅya²çÊüGìÞo7zŠA}_Ž~8ûÝouNÅTímÁÓ÷îpœuÒ¼ãC¦JDy¡Å[j'…ºŠ¥P`‰s.CKǯ¨¨¦¨]hf¤•°;"àiþ÷ËÄ)¼œHƒšØö÷(ì<\Á™˜`LyucË–ý穎)HG9ܘÅU~'°Å‚2’ÈêziQûò$ð”Yg’_…ïáÖ„4Êód‡ZÙ+ÄvÅz:ï¥X‹Øœ rvzmÙô‹¯ë¶o;á7á=懬Sžù´îù aM[¸Û¢¶Ø1¡° \wxø¸øí–÷Íüw¶æ­•Z£ ¤Á)w›8À¿MË;De>²ZF½ƒÁéš=Ù/‹×qÑâ)k2ñâs·ŽœyÂê¹\Þ·ç‰ðòl4a~Rèa #×ÀqçÇCÓ;Nž5§ßájrŒñ¼#wø"Üÿ2ÞyØôšÚ=ô~±îóÜ<ªÅ®•=ÎX ãZD•c¯ïC¯Vª@‹«íàiÞ‡ ‡:u­Ae¥›¬,/åàHŒŽ$‡í€;¡Ý0%ú ¥g¡Ý<轡:é €u‡. iíÑôЀ S+·…@E(cª]×XdÚmFÌŠ¥ë—#½Ê³šÔõ1uHº4{ÙdÝz憎7;ºVœxûn˜•7e¼c@@Ý:ºÝ»Å£g&ùŽ~Ji!⇾aDkäÁRHßlO÷Ÿwœï?…¯Ä¤…(7gˆDü—+ª§¦Ê%[2T^¾çÉ‹Šv-y\Ñ6Wà§ÝGÎ9—3u;«yŒ¬‰çÅø¶Ê2pŽ^‚‘÷OÊÃ;Cyз9A<Ì£¶øÃÛ˹ĵ¢éi=½|šIòEGâ‰U¥™é JY0œ{Ï·¿oº›2ô0,<{®[ƺ‚iz^åâb–J0pï³'S¢©CCø'|óßw;ER<×<^.ïÚú¶×Ë×»ZÞMÐ\ $ÞÔA joÃì‰y®o†•óQdMZì²Æª²Øäq†""$ëÃÔüöþ|;¾ââMïzòåhŠÌx½|æ–‹R~‰Ð3rôŒ¤ƒ #zŠ¢²Ž €»ˆH(( Š¥bˆ  Š§0¢5P`+ Œ ¤e¡"@TÅ1èœ=ÃC3K¦­¶ÙVÉlJKÖ6¯k5a@Lç …ÖL¶ý£q`"ÞP[ê’è¯Úµ`Ûcclòd°‰„âCÅP½æòv´RŪ`›i´ÆÀ~ù1¤ï´Hר™D¢ÔÂì÷¬ŠÚI5ç­|O)ŒùÒ`7[•˳¸Ïœ›·ï¼à[tï¹ÇŽo‹K0²ÀÚåüã–;Í6ãAe•6–HW-Æ3¢ ÄÔ-ò/à.ç8m%PÒ1 ÇÕŽžï¹ô0`cm¶ïãV-”˜úàWöoˆ×f†‹ 6é8  coûØ>J¢p§S™‘¶;­Ä'8„âqrG(Û†1œeÖŸB86œCˆtÒÌ\pŠ­PHg[…Õ²%“I,ÑÜemÑ¥É]hACKKE/ÛÖÊüž—¦S‡ËvV •˜ð†;«0üÙ=3?Ÿmù¯ç¸ïO¨c¦• aïvš-xK6ÒFðgñ€W´œr1z%>n“…æÀ 4 u»(èK¾V$78µ›éÚN3qÓvʃÀ“Û¤s`‘U\'L2ÎЛòQÓ#æ\¤‘Úå”.ª€2™@@x˜Qמþs…@ûƒHI†ÿ—4b£´C1´)iÀaÙÂL–P–y™ã»FáaÓœ]È[*ZŒìÒ‘IÝ©‘’äg%­fí…sµ6†hÏm;r³Ë€àÅɉ™ï$¼U!¦Õ‚XLÀs· ªR1&uç;—Œiœq² ‚,zmÌÎ8 ¼`ÌÁÞ÷@%›%Ÿ¹¡àV†f-ÊâXJúYêÓg_’¼KUEœÂ*0Bg¦áXÝÑš˜©Âq®”Øæd5@"#ÃÀ8“‹aÿ«íÈ,ÕŒŠ8èۙ˟ˆÄ`G9üø2vXºaÂÆ¦K^¸ƒˆçÐuݯɧ¢ö’=gPdJ½Ç`P„B",M‡§.3¥¥®“TwËfHà}UÄéÇ–YÎÁ¡› ½ÀÌ…¸¯³Ès¸k|GOŽ•GG[0®Ô¯G++º«¬Á„RÆ.ê{€™¦ca¸qMùõƒ3û.ýÕÜ—hòÂMV”l \FdD÷õj,üINV# SѾtE—˜#2!èl—Äû·¨¶h®jÞœ^&`Â+U*ÐZ*Inسޥ` ¡:s““<^_Ñ){O­Ñv>ùÆ6ן4o·÷Úgaï ÝôkÔÆ^&<û°Þo«œ½ÞüpŽ$9„n€|©]‚‰w}¾@x"!ñ]·£L$äÓÑ&sfÇ”!Îî|<ÈqeëžÁuJòUøœ«ÀÖÈ!‚+‚¯ºoÌûÞåê §ˆ0BF —yãà×xÆ—«LÁ ƒx•ì¼c‡`Ú !:\ðQ¹ôœ,ZÚgÔ8ÐwŽàüx»ÔS§k1çbUg]Åã£>ü@Äiˆ˜œ ¼â**Dá4’ …„Ý Ñ<›ålYïz÷TÕâ]›wÐ1)v$WvI@ ;ñY(~à* «8æ“( ˆ’¢ƒßK b3‰ ÊmiF DC39:o$ï’ãX­—¡¼¬dö˜ˆ3µâÉ]…bä_Ì"ž8ÛÃ….­)ÍݨAܦBGoD1iK—D Vè©aTÆlˆ.=¬ß ~“ŽK5 ¹+`yû †Ï='zt3£¦ÔÁ§BGa ÑÂݶ3oí§‚ñò•ÇÇÅ|vó1Q‡'¹)8¿¨Èy¦·ÔîZ:û ‡Í <_¢ï´h¤3Åžp@í†èy¾3{¾\SÒÓ[¼ÍÎBƒ>Zʺî%€L”Mf”ödÂOæC†62i§3Ãs "}Û›1ÁôcKC…xpn‘¬8)‡O=q„¶¦­-›q‡Çµy䌦øæZĈ1"3¥ŽS0‰Õ©–ÛÒ£œ:͈vÓ¤¸Ž HáÌyëïÝñ35yµ$NR\˜nb y@Ç(TÇ"«Pá嬗žÖKžc{&(F6‹¡sêjáάÏRl^<ÔF¯ÁèÇ«‹¤-ã¼–H‹³ÐÔøW„‹q¿Ìvêów*b™¨­:¨-Ž,R#\ÆÎˆ›h¦ãE…Në_[æëÎQC$hyBNþ«VÙT^4C˜»íŠTrí8êÐw—âbšÂ© ò;¢9¡Å4¼é7^U »sœÊ'tøÍ0”@ÆD¤FENd”g!‘¡ÁB*Äùê†Rq°£¢?ÃβÌ1Š*ÒùvD(¥:5¬.“VD|VÀÖüì}Pç‡E¬í±æiV;(|ÂU†QÓ§€žx³£Í,µaÃàÓ†îN~ $Ò"x½zîÁ¤ê Á„F`Ž" €Í# FGšÉD1rSÉÕ]ÑóƇk®Äͤ¡Zl°Bì ÀD¸C@á¼XÝä6ñ‹Y¬Ù´¤úÖ8ª8Ê#—šà•Êì£È&ïžó¿¬dÎZ[x ‚F.6°«1plcž–ìön;ÍGGÚ=†UÐÙ7.jp±ˆT‘MôY&‚™æÏ`ד¥’ˆóCÐñ™AŒòcÁ\øo c©Äji²CÐñ–Ž ©;‘ï#ž-§0ˆ ²9Ð2’®‰s±DtEÂÞ@rŒ9½ÇqÐ;.g[b±áñè̉M«aS ~b“¨L–άWdcy6u(c>³L3„9ˆÅDÖÐEµ«‚Ò«Æ1)×Í¡ÐÐ¥èGÞÄÓÊ_,ùDN›нeÅ“n@"íTæèõ×y‘ÁéÕé c1YãŒjR»Zᆙَð×jä:1Y¥ nBn#£KgÌ@".áP Éó`™u±¦ÑëJ"°‘ÜÐŽ&O­beÏe^E'ÝžãŸ] æg41:¨yZÛ:â]Úqs¡(D1ÂσU%#ËO3‰Š×rñÉg*ï Z×y‹© òéàvíJ-К¢ž ž#ÝEz̬¢Â'Z¹ZZ<)Zõë“ÅXvp>–Ÿb±¹† gÄ1'$w-:çžÒí8xÎ\ðU2úƒŽ”š…8µîMúud)^ ÉœnÁC!_Â^ŽÊr’Xæ¯)R {–M­:ωg9 ðáwÀFÀgâà_2ÄjÛp?D-›EszØô<¹RÔÄDUÁšŒC$ûyÚרḋ¯a˜ÖzŸjª˜8ìñ×8»I½•;r°fD, ôƒù1w‡ÀºŽ…˜5^ôaMÐFûYrm QNBœ›Ü *ƒŒiCî¶¡C-t,éfÊ †®ü×V¥†g>ßÂC”àûd”­ŠqnÐ$ÄÕè6ìK’ã I@xã0eÝoÙ„w¸´ÚiEç))Çl ÍrºY:bóíLM ¡Á©ž_HÖÔÃY£B¼w¤¬"Em ¶üG7C9¡²‘´CO5$‚po/° Öa³…ëÀÕÀñ4÷ïÛ¹ô¥>|‰ò< ÖP .À¢Wo,Hµ:1 ´Ò8t¸Bñ¸y"¸ #JE•åõOŠÎ<(nIr£Ç¨—ðªâÞTw9¥Žƒ>?!á‰âIvãÍ8—ž)Á±ÀÊËPøò€s:惿³JH5¦„žçCj9§Œpâ!ÅC^Ôh@6OV¸nô*1Q\â¬ÕñЛÕõÌxW‡Ì˜q Àl­>x£ÃQ–ÂVR®£m9–ÚqHÜs:ÔÆ¥5<'f\!]“pâ%"ÍN·1ä€AG§×{›£0ðGdª‹C)J¤©Ê"%'Õ¤÷œAü]’#O½ ƒ ¿ î¦Õj#EÆÀºMÏKc¸%çåø&} ûÕ`Ó¤^—Q5Z\g«s¾ú]âTCPäü³‰àûD 6¢,ý™ÐPd²ÖSáL)ŽQ6˜ˆ)}ò´¨ ŠأAPÔ†j×p²‹ÊS°¹€ ˆ $௾ ºÏ/wŸ•Ú„ë…RùðÖ8n#Ú¡ÈDÀàh½V¹©²£,¸Ûx˜¤Rþ/Ü*Ùb’$eF4k½9î=è€Íº³ïòAÞ%çNô0 ÉS©°ŸyuŸOôA걡ãÒyB Àæ\µ£8¼%s§šÈò#5#Ìbྎ31Í‚âÚAQ"”ˆ)SQÚn3¿ ë7¯¯æ·JuMxuî^}#7»¶Ì¸ îü ’szÔ9&ëš8OD€Ë™ƒüJC6ÌK@ËÒP Ø ÛX÷}ÍMZ2Û€Ü5lŽC˜ÐgÄb~²†ôg,O>ú`ëœ N‚ ÂË[{ÍÞÆXõjZ噉§`¨ä™‚ 'í 5Tj¡Ã¶ÕEJ1Pbî—*M„^†ô©£î“5º‡ sË™˜84ÄI€3Àöîêµc²Uﲡ†e™0j=åA2PB:rÅë4h(L0Ò±ÖWD¹ñ ¸Ë¡qj¢—cÚF]¦û -“[Érªjp{dºi«³v¿‡ó ó[>’n<;¬_ŽvX:ñT‹áé•vðïG pƒ.¡½‰!°i ƒCÏ@oŽ$Ød5~\¸a¼žRÞ*Íð@U0èƒÜ.J\æÛ¤Ú³”ëJ¸P–:5%Ámš¤Ù·3…J‹ÔUÐÇ&ÆÆ[>¡]ÅW‘ãÌ€‡ Ň Ä4ÔšðiÓ­ÕtBöë3Ã=·j÷‘‚n¤' r2ë[ ,oŠ:¦ãqÉÊlÀ@ȹ精)»,KN%Ø+g¨‚«¾!À–©€[‡°(¤Èh¨@ˆXÐÁVøN<åD²øÎXÉÄ ä9ªƒÞ÷„šÕ$]šìEæîÚ9ŠHÏgÜÂŽ*1 F…†á¥õž,ÖÁ “€œ]Mz%Æ•ëƒÎn7èß®¦ê:0˜s©H°sNˆÀ¼CÀ¶Ï½u¥ä%´ÐyÖã¥rÄãœÚÈh‹9˜QÁŸ(S@æXpˆÃ™Í£7ê¦Gð"óñ¡wÕq¦Ö=>DXaI9ƒA§ÜÇ…¼¢›hý Ñ4ÔL-3îêVãdï6+,ßÐÜpdVÒq3„HècuˆC¢ ɵY$îÎØ› )q{ß)kJÊ»êŠ^8¶Q†‘’ØBÔ‚h’gÍÆâ^°1·g+ 7¨™êDz¡PìÁqPW;¶žJcï+] 㯛¬Æ@_÷‚"sRVVPaQ]x¢?P‰Ö"À¾•!¯¯L‰Ör†)¡A®­a=\÷ømä˜á‹·\C¾‚“Á6¨‘éQ ³£òŠÍÍ„Bˆc"+X¤œ-O¢1Œ¼£ÜFôiyª½0É8”1gô•ªá'bœr›ËÎ+VC”I´A°+í4ÙÙ qŒ4ž-Ëï#±q|ÚxÅÃÒ×<°!ÂöuÎíx¨Ö+”aĪ›Ô±±BFI„!„’HBZøÜWòô’¹"µ(„„Ú"RâåÕªZ‰lÕ@=M”ù£Ò ó*“Ùoäó†$ŒT¢ÈÉž<‰t:ÝŽ÷f™-ÈmÅçÎ…»s€Û™§Våˆ2y}¡ćM:8!FÇŽmå¬ÜCXË–Þ¬êá®®‡’o“£80R´¸õLE`8ùo”È„¡ : ©*xPâ3#£‰{È€ÆD*Öí›Nœb30Sý×6ŒGÌ´’ÂÄâ·«£U&ͽrˆ•ò§íîžÊzs§pËm J÷Z¶ýÿL»¼qÄNLdÛÅÌ·|m íÍ>q4îóOmÐ8Èbád,Š<Öº¹º#¢R'âþZÌþ\ æò΄1{k7Ó˜Äqiè41ÃÞ'Šâs¨ vp QBÝ)˜ –U¨½2ÎÁË—€¤ÕT07Ì$cÅg”ŒæùÈmL  aµ¦eìÒŠ˜0A…@óýC_t °W@;rªZè[Ep‹A½{½,Ý)BZ;Þ¯t¶’ ä;äö†®2ë!MZôL£fttë²r²ånÒFa‰«qžJ¶Ð1¯?“SB“Cx±’Ùƒ!z‚ùÄò`p ÊôPåÓ˜·`’yNÍFA°n”€ê—øÍ§LDð”T(P+‡H)4 ¹Ë<òTª±ŠL`&ÕÒ–}XžL Û€ö‹I!l½«qn ÃåG~KVº¬¦ ¿À¢@Ö›­©$Xˆº;NµW7|ÃC`×®¶[téÝâÛËŽñ—ƒ¬ËMU6´jŠ]3²Y8ˆ‘vµžÞ\Yªv\$j<²ôfÜÀƒšZ(Hþ‹„‡SMòÖwçÈžÍê|xó/`¢S$40Ѝôa¸Ì¢HcS7N„|†XM”8Ž<ÝØ‡Ëê‚É.y J !ƒÙ <¤VþHX³:ž,ýA ùÀ!a“ XPHW€…|££IÛ9’â€D o:} ï캛 m‰4“—La Þs)&8bâCˆhi¶ ‡ /y=>ý:â¿sÒ‘@÷ÏDð‘ߣØOÝ¥~ÖKÞ†þÑìÂÁߣªüèT5NY²¶K &ðRý3 î W™I‹W‘¾õ¹8Âån %}NÌF‹¼.š§Ã¥É1´Æ²8Ð4ÚÌ, Å•¥¢&e¾ íÍë}‚Z…í@Ò0H´Ë(ÐBB‚7Ä¡!€Ò‘mì«‚õÔUÍ.F|ð†¸2V@~í»æ*Dyim‹š‡Ý'“§{!e½%îx“Hˆ›aP%[ %Ù” ¬TÁ€wÚ:"šÆåd0©Î"•ˆÐÚ[<=vè]­ý+k„ÀlCi!¶Ói¥¨ž©nøºflÖ…®YÑœ>[fqrmZB+±ów1:¹lÛi:áM±´†6ÁÎÆÄÑ¿r†µ%NàÙzº‚êmްE‰V©R$Ýš'G}$4 ¾g#Ð鎞ïÀ¿2—*`(ªHûf;ñðFa¥%¾˜kÓSÉ&FIøgÉ’x5éQÁ—¯&»Çh9¤ùÛyFCd÷²ŒIGtÛ53köÞî{†‘Ü~ "Ò–RA”iŽÔ8íçS4…"I0@´ŒÄOág;FnèôZöøí$™r ´Tr—ÞÖ`ÇÁ،׷»ßïkÇ‹©"«Çœì÷QO•ð"À›ƒ‰"þ î6ÀÍÙ]µé ò˜t¶¡~!!Ÿ¬+½ÇîW·åN׌ƒÜÀèôçù#Üroðø†Чªí©q~¶Ct.õxp|bD ½~\¹kZÈæåzøÖö(=aU}7ˆ½…Ž4Oì-8RKl(xã}aq2É,áêøÔ0M<…ÀÁºc¶!mÕHÒY±A êØT ºTñXDz–‹Á“!Áñkfl¶”8¾¨ئŠgv2¹ÞyÀgefi`y³dÆ"ôJ8o7Cy5z—Ãl>×`Îñ€—dELœ;f-vò%¯É­ D” S©Ì(!…¼?à ÷ny""DC×cÎ0;ÌðÂM /Uîó7p+±Š¶ª¶–}Ü­{[ ôs…wž}/Yáôa‡Ô1´†À¤/ÑœÀö5äu>R Þ°uCóUÛtp¢$‰ èqP_ù/9ÈH™ô¸E>ªÚBáœoØ Û=°D/c€«›\âÉ™DFdz¸ihª‡–vwàyp×nTD2Ï›\‘lÐçž^ËR( ¡‰ šÒ”ƒLf gˆ‰óXU ,“–i@­b!‘¬éÞðªúÍ[ŽSyK¹ê_Ú7b†lª‹TÛ›©œ‰Ðâ•Hèc|>Í€"›b-ÀÉš¼ë2gŠeW°k¬RŒ‰º ·Jh RKOk˜9×ðö\¦­§$]š¡–M9 Î´×bˆœj¶Ò0+™Ia³¾±˜~$‘’Ù 0g¿_ê@2~4rff u¶Ãm‡1Ö šÓ¸Þ„ð×ëW™²$C8*êL±:Pƒ' ©»hó::“CWD¸X2Ê©†‚“-ÙD±yú®FpK u]Yý:›­Æ[ê¢åD¨cɽâ€òD³µ†#¼iD÷5p^Cmç-‰«;­dæ2[ÍJ©ÃÝ)¬½ÿGÈ2ç1 E*É0^ü‡8(€ø!pL‚ªØ?1«CÍ»Iâ;C3QFKOSÀaq$fñ).æ%“H1k{SY+7HÉUJÆöÆœ¶q¦gt¨€™HÆ(øÌb˜¬â¡Êw¿8 瓹˜¶ª"fwðìv §¢ÖHØÌ¶Î¤am°$¥Áí®wkÂÙèIJ¾]pp Âº¶wxÁŠžX©œ –˱ „/±³ýß%ðw @ ÞüP^N))£iׄ´ú©¡&Í…îø fÐŽ‚ÎôÖA¿r¶ QâöK2u@‡VÚ’]ë¯zR0» ®Û®² ®}BFÁ#+åÕä|WÁlñc¿d‘»eþ2Ýൾ[X-H¼$=¡v%«Qµí¿æª¤Üh9Al.X[‡jSrãЧ*ªŸ7ÒŸ ›°lù¸óAåý-•œÌèJÁ‹:ÂöÎ92è ˆiÄ(ˆ }% X]î÷ 2øëk4d‰êt ‰ €›FŽ6Ú‹=;)VU#Tƒ%©c39Læ¢s’ñ˜‚N ƒ%6tìI³7š'­iG0“‡E«4öQ„ݘx9¶œ´|‘Î눢UÌ–©å™ÌI›¿,,|+…S¥ %™ÖÇšLÅÛÖ7rCb6»ß)¢9˜¤9¹Ýï¿ããúäKqùç¯]hß&¸ãº£…‘Ñ–iÝóMÖiwÙ‡;Nšæ˜PaX5˨ÚAjtZ‚f]"BÄÎÞPI.Ö±\¸°â#+xò÷y0½en©.Ê„ :G¨§¹–ž~)õÈdg¿ØÄ ˜0yÕqÁÀ6=â6RŽêÛ] "&1 `4ÀLhi®‘3rl{P‰lÝLn’¯Ä=óU¦D6“1dA@'ŠX™!ƒ„š iÙM“0výrä-¼˜{Û¤ŽÁQòeœY~A¢ÇÌüùUfª*BFk±½t]Ë@LH1òH 0œ(¬CÊOIA2‰„í)p2jã»jÃ(’­<"¤¶Ù„“ KLk¦T×”Ûôµ$ÇJóéC¸0/>"¬":9PB¾‡˜iyaK!™ Cé 0r«±°ÞV ©™HM²ÓÔw-ÁØNjÒešÞ¶¼d£"xéupl¨&3k„Þ²¶B¬2Œi Xƒ‰ÐËΫÈÅÌÙ/Ñx3weì$†4o¼PŸŒÚjüüÕLò¥&†ÂßÑz^,‹~îXÃnWŽ Q8#i Oäín<2Àðû )yuôÇ’oçç‹°@š€?º:à$ ¦P_µríNw\U2wé²~@êç¤åªîgpÚïUÇIx@•ã~j¤!DW}qtl³Êu÷.o“CuÕíøôå†È b%›!uXÕÉ ›m€‚úÖ+ û¨õu’kÕðtæÄЛCÃÁ9™¢jTPD@]¿ÏujµP­Bæ‘™‘ßE ­"Í@r…$(›: Y‹óïÓ?`ˆqŽ)JS7´žû€v;°5qir…×>Œ0Jm„drÊa÷ôÊ!A¯qÎ2i| +îXî´ /4Î © ôà´d¢¥ 5ߤâÆÁÜѼ"ï\¹aRìä¡ÐÉ(ÜËvBÚ«•T šº1¤ã;Žbxlžg…yçâVÞf€3Ê®R‹—Ê©¾/´@5 m:^7¨uReºñ;h„-±¡›ÈÑÃTÎL66*#V¥¢TØ"ñiFÏ["mpÚLÈóhyüqˆ I5TZ VÂMˆ¡ŠlD (JƒÎvPj»8½¶Î¡õé[Ã\]«€Ó¨»8li5©ƒƒb*Þ´rÛ‹©ÙjîwÔ±”²¥*c[ :~a ¿8ž’Ä&Ø\öŽÞÔ‚­^OÅüEþºëd,ÓAMð>†¦­R´Þúu3ijÀÍE\à êÑ ËmcÂ6µ‹Ç‡g,$p)Ì„‘ÁQ@zZYN ^Q4*‘Éizv¦%0,;ÀiÆÒm ¤›ÙaÇÔ–¶ñðìljü»xqÂ"ÝÃ+¢¼‡RZ9w‡]è×Ò^"ÐHÒl$ÄC ±DF«lß ÍrÕÇç;UkÃBR¸ÉA²ÂˆMÈ*ÐhÐrˆõò$­³‚¼ É-Êå7ÛKP#Y_¨ä1¢†‰ÉÅÚ‚MWÉÞYµÕ™Tç'ª^¨ó-éÈž¾§Ê-ز±†Ã.VQÁbÁ È ªƒ¥MvèA€Ut'£Þaì¬&·0‚ƒ(ÀX1i4  AHM6ކ|óxx$Ë$wùׂž@¬I%Œiu¸sP1¹Yv[ÌjSVŒEH¸š«^km¦Ú!•• K„!¤ˆn&XÑ ¢YCní(NXˆM±9Ê“œ¡’LaÚ „€êôyK“ü­«yÄP\ –†jÐ PEj£ s¡1{¨„!rWO]üÛ8¨åIôgG6j9½vÛXQ3/:º Vº—üEËrð2\eD° £"ÑD÷j;2>U°a‘KØ÷›Ä‘UaÍä‚hBBBB0€’(1êYÚžƒ_;qÜZo¨H«šš‡›š&Ñ—œ/ â®:gàÑÕNîá¬W/Ä0JBF”) íE#©c]UÓzÕ¼ÂHDBFAHÛvÚ@‘„A„‹c´ ƒ`ÆJ«à{iFó=Ørð-Ñ›ºáXPÞeR‰"¤H°„LÒm!´ƒŠº®_à€ cW÷cèÄ*3t{—š…k8NõÄÚÚi"è µÀ ­bD<ô©¡¢S+çº Qf:Iòä‚§cáIgæ‚«`O7!j™áWp°9¯x) ÷\‹­À‚A‡›?ÏQ9îÝÚ«x¶cÑk§ÑyP‚“[fÝÕw³ïMõñY07¶‘˜æÄ nSssa°x„Ek|Ö$\4ÝY—®\ÐT®¥\ÛHé8Ðì¾$:y®-ë[m˜+¼éÇE™­ÑV·‹6·¯ ëÉat½d¤¿¥+à_Á¹àY”µ×¹x7zÔN³J×?•¿|F@L†  èºŒ{Ø’`ƒÒM)¥ HF PìhŽº6”B"ïcJ @ ÔQ×Õ)c4‡ƒ-äY†O9Õ*Ì\`’_{ïþò=À„þ2?Ìe aP ‚÷jöLÿ¡O±†ÿI˜c÷P³¡ã”|"8©‚¢$"Þ¡B0°22tÄð\dO6Ýdþ3/.¾2–ߤªŸ^ƒÐ‹Š?ÏØ—Ù— GÖšj@Û#Ø‚Ø „n‘ÐÐH ÂØò˯°‰˜pVÿçáá ª»X.ea BHØ"¬aR‚7(®DA/(¬PJ‘ˆŠÿyÛq8·®ß@æw·VD=ìƒêíç ñÄñü{/ûx½ uu<§î}SÀÿ}9¼ÖˆèÔ–Ï#êâgMÞbËÚ|¯{Þ½«ÔÛNï7}²õ  ê³«r7¡öÞw‹›½ômO4Ø7CªCãŽÿ>áéPd?ø»’)„…òñt ggthemes/R/0000755000176200001440000000000013466077407012274 5ustar liggesusersggthemes/R/canva.R0000644000176200001440000000502613453027176013504 0ustar liggesusers#' 150 Color Palettes from Canva #' #' 150 four-color palettes by the #' \href{https://designschool.canva.com}{canva.com} design school. #' These palettes were derived from photos and "impactful websites". #' #' @format A named \code{list} of character vector. #' The names are the palette names. The values of the character vectors #' are hex colors, e.g. \code{"#f98866"}. #' #' @references #' \itemize{ #' \item{Janie Kliever, \href{https://designschool.canva.com/blog/100-color-combinations/}{100 Brilliant Color Combinations and How to Apply Them to Your Designs}, #' \emph{Canva.com}, June 20, 2015.} #' \item{Mary Stribley, \href{https://designschool.canva.com/blog/website-color-schemes/}{Website Color Schemes: The Palettes of 50 Visually Impactful Websites to Inspire You}, #' \emph{Canva.com}, January 26, 2016.} #' \item{Pablo Saenz de Tejeda, #' \href{http://makeadifferencewithdata.com/2017/01/150-paletas-colores-tableau/}{150 paletas de colores para Tableau}, #' January 1, 2017.} #' \item{Schwabish, Jonathan. #' \href{https://policyviz.com/2017/01/12/150-color-palettes-for-excel/}{150+ Color Palettes for Excel}, #' \emph{PolicyViz}, January 12, 2017.} #' } #' @source #' \url{http://makeadifferencewithdata.com/wp-content/uploads/2016/12/color-palettes.txt} #' @example inst/examples/ex-canva_pal.R "canva_palettes" #' Canva.com color palettes #' #' 150+ color palettes from canva.com. See \code{\link{canva_palettes}()}. #' #' @param palette Palette name. See the names of \code{\link{canva_palettes}()} #' for valid names. #' @return A function that takes a single value, the number of colors to use. #' @export #' @example inst/examples/ex-canva_pal.R canva_pal <- function(palette = "Fresh and bright") { if (!palette %in% names(ggthemes::canva_palettes)) { stop("Palette ", sQuote(palette), " not a valid name.", call. = FALSE) } manual_pal(unname(ggthemes::canva_palettes[[palette]])) } #' Discrete color scale using canva.com color palettes #' #' Color scale for canva.com color palettes described in #' \code{\link{canva_palettes}()}. #' #' @param ... Arguments passed to \code{\link{discrete_scale}()}. #' @inheritParams canva_pal #' @export scale_colour_canva <- function(..., palette = "Fresh and bright") { discrete_scale("colour", "canva", canva_pal(palette), ...) } #' @export #' @rdname scale_colour_canva scale_color_canva <- scale_colour_canva #' @export #' @rdname scale_colour_canva scale_fill_canva <- function(..., palette = "Fresh and bright") { discrete_scale("fill", "canva", canva_pal(palette), ...) } ggthemes/R/fivethirtyeight.R0000644000176200001440000000500213432650271015617 0ustar liggesusers#' Theme inspired by fivethirtyeight.com plots #' #' Theme inspired by the plots on #' \href{fivethirtyeight.com}{http://fivethirtyeight.com}. #' #' @inheritParams ggplot2::theme_grey #' @family themes fivethirtyeight #' @export #' @example inst/examples/ex-theme_fivethirtyeight.R #' @importFrom grid unit theme_fivethirtyeight <- function(base_size = 12, base_family = "sans") { colors <- deframe(ggthemes::ggthemes_data[["fivethirtyeight"]]) (theme_foundation(base_size = base_size, base_family = base_family) + theme( line = element_line(colour = "black"), rect = element_rect(fill = colors["Light Gray"], linetype = 0, colour = NA), text = element_text(colour = colors["Dark Gray"]), axis.title = element_blank(), axis.text = element_text(), axis.ticks = element_blank(), axis.line = element_blank(), legend.background = element_rect(), legend.position = "bottom", legend.direction = "horizontal", legend.box = "vertical", panel.grid = element_line(colour = NULL), panel.grid.major = element_line(colour = colors["Medium Gray"]), panel.grid.minor = element_blank(), # unfortunately, can't mimic subtitles TODO! plot.title = element_text(hjust = 0, size = rel(1.5), face = "bold"), plot.margin = unit(c(1, 1, 1, 1), "lines"), strip.background = element_rect())) } #' fivethirtyeight.com color palette #' #' The standard three-color fivethirtyeight.com palette for line plots comprises #' blue, red, and green. #' #' @family colour fivethirtyeight #' @export #' @example inst/examples/ex-fivethirtyeight_pal.R fivethirtyeight_pal <- function() { colors <- deframe(ggthemes::ggthemes_data[["fivethirtyeight"]]) values <- unname(colors[c("Blue", "Red", "Green")]) max_n <- length(values) f <- manual_pal(values) attr(f, "max_n") <- max_n f } #' fivethirtyeight.com color scales #' #' Color scales using the colors in the fivethirtyeight graphics. #' #' @inheritParams ggplot2::scale_colour_hue #' @family colour fivethirtyeight #' @rdname scale_fivethirtyeight #' @seealso \code{\link{theme_fivethirtyeight}()} for examples. #' @export scale_colour_fivethirtyeight <- function(...) { discrete_scale("colour", "economist", fivethirtyeight_pal(), ...) } #' @rdname scale_fivethirtyeight #' @export scale_color_fivethirtyeight <- scale_colour_fivethirtyeight #' @rdname scale_fivethirtyeight #' @export scale_fill_fivethirtyeight <- function(...) { discrete_scale("fill", "economist", fivethirtyeight_pal(), ...) } ggthemes/R/utils.R0000644000176200001440000000175413325413240013545 0ustar liggesusers#' Magic Number: Points to Millimeters #' @noRd PT_TO_MM <- 0.352778 charopts <- function(x) { paste(sprintf("\\code{\"%s\"}", x), collapse = ", ") } # copied from ggplot2 "%||%" <- function(a, b) { if (!is.null(a)) a else b } # copied from ggplot2 ggname <- function(prefix, grob) { grob$name <- grid::grobName(grob, prefix) grob } rd_optlist <- function(x) { paste0("\\code{\"", as.character(x), "\"}", collapse = ", ") } check_pal_n <- function(n, max_n) { if (n > max_n) { warning("This palette can handle a maximum of ", max_n, " values.", "You have supplied ", n, ".") } else if (n < 0) { stop("`n` must be a non-negative integer.") } } #' Extract colors from ggthemes data #' #' @param path A character vector of the path in \code{ggthemes_data}. #' @param colors A character vector of color names. #' @noRd get_colors <- function(path, colors) { x <- dplyr::filter(ggthemes::ggthemes_data[[path]], .data$name %in% colors) x <- unname(x[["value"]]) } ggthemes/R/theme-map.R0000644000176200001440000000150013432651224014254 0ustar liggesusers#' Clean theme for maps #' #' A clean theme that is good for displaying maps from #' \code{\link[ggplot2]{geom_map}()}. #' #' @inheritParams ggplot2::theme_grey #' @example inst/examples/ex-theme_map.R #' @export #' @importFrom ggplot2 %+replace% theme_map <- function(base_size = 9, base_family = "") { theme_bw(base_size = base_size, base_family = base_family) %+replace% theme(axis.line = element_blank(), axis.text = element_blank(), axis.ticks = element_blank(), axis.title = element_blank(), panel.background = element_blank(), panel.border = element_blank(), panel.grid = element_blank(), panel.spacing = unit(0, "lines"), plot.background = element_blank(), legend.justification = c(0, 0), legend.position = c(0, 0)) } ggthemes/R/theme-foundation.R0000644000176200001440000000301213432651176015653 0ustar liggesusers#' Foundation Theme #' #' This theme is designed to be a foundation from which to build new #' themes, and not meant to be used directly. \code{theme_foundation()} #' is a complete theme with only minimal number of elements defined. #' It is easier to create new themes by extending this one rather #' than \code{\link[ggplot2]{theme_gray}()} or \code{\link[ggplot2]{theme_bw}()}, #' because those themes define elements deep in the hierarchy. #' #' This theme takes \code{\link[ggplot2]{theme_gray}()} and sets all #' \code{colour} and \code{fill} values to \code{NULL}, except for the top-level #' elements (\code{line}, \code{rect}, and \code{title}), which have #' \code{colour = "black"}, and \code{fill = "white"}. This leaves the spacing #' and-non colour defaults of the default \pkg{ggplot2} themes in place. #' #' @inheritParams ggplot2::theme_grey #' #' @family themes #' @export #' @importFrom ggplot2 theme_grey theme_foundation <- function(base_size=12, base_family="") { thm <- theme_grey(base_size = base_size, base_family = base_family) for (i in names(thm)) { if ("colour" %in% names(thm[[i]])) { thm[[i]]["colour"] <- list(NULL) } if ("fill" %in% names(thm[[i]])) { thm[[i]]["fill"] <- list(NULL) } } thm + theme(panel.border = element_rect(fill = NA), legend.background = element_rect(colour = NA), line = element_line(colour = "black"), rect = element_rect(fill = "white", colour = "black"), text = element_text(colour = "black")) } ggthemes/R/geom-rangeframe.R0000644000176200001440000000660013453014207015436 0ustar liggesusers#' Range Frames #' #' Axis lines which extend to the maximum and minimum of the plotted data. #' #' @section Aesthetics: #' \itemize{ #' \item colour #' \item size #' \item linetype #' \item alpha #' } #' #' @inheritParams ggplot2::geom_point #' @param sides A string that controls which sides of the plot the frames appear on. #' It can be set to a string containing any of \code{'trbl'}, for top, right, #' bottom, and left. #' @export #' #' @references Tufte, Edward R. (2001) The Visual Display of #' Quantitative Information, Chapter 6. #' #' @family geom tufte #' @importFrom ggplot2 layer #' @example inst/examples/ex-geom_rangeframe.R geom_rangeframe <- function(mapping = NULL, data = NULL, stat = "identity", position = "identity", ..., sides = "bl", na.rm = FALSE, show.legend = NA, inherit.aes = TRUE) { layer( data = data, mapping = mapping, stat = stat, geom = GeomRangeFrame, position = position, show.legend = show.legend, inherit.aes = inherit.aes, params = list( sides = sides, na.rm = na.rm, ... ) ) } #' @rdname geom_rangeframe #' @usage NULL #' @format NULL #' @export #' @importFrom ggplot2 Geom #' @importFrom scales alpha GeomRangeFrame <- ggplot2::ggproto("GeomRangeFrame", ggplot2::Geom, optional_aes = c("x", "y"), draw_panel = function(data, panel_scales, coord, sides = "bl") { rugs <- list() data <- coord[["transform"]](data, panel_scales) gp <- gpar(col = alpha(data[["colour"]], data[["alpha"]]), lty = data[["linetype"]], lwd = data[["size"]] * ggplot2::.pt) if (!is.null(data[["x"]])) { if (grepl("b", sides)) { rugs[["x_b"]] <- ggname("range_x_b", segmentsGrob(x0 = unit(min(data[["x"]]), "native"), x1 = unit(max(data[["x"]]), "native"), y0 = unit(0, "npc"), y1 = unit(0, "npc"), gp = gp)) } if (grepl("t", sides)) { rugs[["x_t"]] <- ggname("range_x_t", segmentsGrob(x0 = unit(min(data[["x"]]), "native"), x1 = unit(max(data[["x"]]), "native"), y0 = unit(1, "npc"), y1 = unit(1, "npc"), gp = gp)) } } if (!is.null(data[["y"]])) { if (grepl("l", sides)) { rugs[["y_l"]] <- ggname("range_y_l", segmentsGrob(y0 = unit(min(data[["y"]]), "native"), y1 = unit(max(data[["y"]]), "native"), x0 = unit(0, "npc"), x1 = unit(0, "npc"), gp = gp)) } if (grepl("r", sides)) { rugs[["y_r"]] <- ggname("range_y_r", segmentsGrob(y0 = unit(min(data[["y"]]), "native"), y1 = unit(max(data[["y"]]), "native"), x0 = unit(1, "npc"), x1 = unit(1, "npc"), gp = gp)) } } ggname("geom_rangeframe", gTree(children = do.call("gList", rugs))) }, default_aes = ggplot2::aes(colour = "black", size = 0.5, linetype = 1, alpha = NA), draw_key = ggplot2::draw_key_path ) ggthemes/R/geom-tufteboxplot.R0000644000176200001440000002040313453014207016063 0ustar liggesusers#' Tufte's Box Plot #' #' Edward Tufte's revisions of the box plot as described in #' \emph{The Visual Display of Quantitative Information}. #' This functions provides several box plot variants: #' \itemize{ #' \item{A point indicating the median, a gap indicating the #' interquartile range, and lines for whiskers.} #' \item{An offset line indicating the interquartile range #' and a gap indicating the median.} #' \item{A line indicating the interquartile range, #' a gap indicating the median, and points indicating #' the minimum and maximum values} #' \item{A wide line indicating the interquartile range, #' a gap indicating the median, and lines indicating the minimum and #' maximum.} #' } #' #' @section Aesthetics: #' \itemize{ #' \item x [required] #' \item y [required] #' \item colour #' \item size #' \item linetype #' \item shape #' \item fill #' \item alpha #' } #' #' @references Tufte, Edward R. (2001) The Visual Display of #' Quantitative Information, Chapter 6. #' #' McGill, R., Tukey, J. W. and Larsen, W. A. (1978) Variations of #' box plots. The American Statistician 32, 12-16. #' #' @seealso \code{\link{geom_boxplot}()} #' @inheritParams ggplot2::geom_point #' @param outlier.colour colour for outlying points #' @param outlier.shape shape of outlying points #' @param outlier.size size of outlying points #' @param outlier.stroke stroke for outlying points #' @param median.type If \code{'point'}, then the median is represented by a #' point, and the interquartile range by a gap in the line. If #' \code{median.type='line'}, then the interquartile range is represented by #' a line, possibly offset, and the median by a gap in the line. #' @param whisker.type If \code{'line'}, then whiskers are represented by lines. #' If \code{'point'}, then whiskers are represented by points at #' \code{ymin} and \code{ymax}. #' @param voffset controls the size of the gap in the line representing the #' median when \code{median.type = 'line'}. This is a fraction of the range #' of \code{y}. #' @param hoffset controls how much the interquartile line is offset from the #' whiskers when \code{median.type = 'line'}. This is a fraction of the #' range of \code{x}. #' @family geom tufte #' @export #' #' @example inst/examples/ex-geom_tufteboxplot.R geom_tufteboxplot <- function(mapping = NULL, data = NULL, stat = "fivenumber", position = "dodge", outlier.colour = "black", outlier.shape = 19, outlier.size = 1.5, outlier.stroke = 0.5, voffset = 0.01, hoffset = 0.005, na.rm = FALSE, show.legend = NA, inherit.aes = TRUE, median.type = "point", whisker.type = "line", ...) { layer( data = data, mapping = mapping, stat = stat, geom = GeomTufteboxplot, position = position, show.legend = show.legend, inherit.aes = inherit.aes, params = list( outlier.colour = outlier.colour, outlier.shape = outlier.shape, outlier.size = outlier.size, outlier.stroke = outlier.stroke, voffset = voffset, hoffset = hoffset, median.type = median.type, whisker.type = whisker.type, na.rm = na.rm, ... ) ) } #' @rdname geom_tufteboxplot #' @usage NULL #' @format NULL #' @export #' @importFrom ggplot2 draw_key_pointrange #' @importFrom scales alpha GeomTufteboxplot <- ggplot2::ggproto("GeomTufteboxplot", ggplot2::GeomBoxplot, setup_data = function(self, data, params) { data <- ggproto_parent(GeomBoxplot, self)$setup_data(data, params) x_range <- diff(range(data$x)) y_range <- max(data$ymax) - min(data$ymin) data$hoffset <- params$hoffset * x_range data$voffset <- params$voffset * y_range data }, draw_group = function(data, panel_scales, coord, fatten = 2, outlier.colour = "black", outlier.shape = 19, outlier.size = 1.5, outlier.stroke = 0.5, varwidth = FALSE, median.type = c("point", "line"), whisker.type = c("line", "point"), hoffset = 0.01, voffset = 0.01 ) { median.type <- match.arg(median.type) whisker.type <- match.arg(whisker.type) common <- data.frame( colour = data$colour, linetype = data$linetype, fill = alpha(data$fill, data$alpha), stroke = data$stroke, shape = data$shape, group = data$group, stringsAsFactors = FALSE ) if (whisker.type == "line") { whiskers <- data.frame( x = data$x, xend = data$x, y = c(data$upper, data$lower), yend = c(data$ymax, data$ymin), size = data$size, alpha = data$alpha, common, stringsAsFactors = FALSE ) whiskers_grob <- GeomSegment$draw_panel(whiskers, panel_scales, coord) } else if (whisker.type == "point") { whiskers <- data.frame( x = data$x, y = c(data$ymin, data$ymax), size = data$size, alpha = data$alpha, common, stringsAsFactors = FALSE ) whiskers_grob <- GeomPoint$draw_panel(whiskers, panel_scales, coord) } if (median.type == "point") { middata <- data.frame( x = data$x, y = data$middle, size = data$size * data$width, alpha = data$alpha, common, stringsAsFactors = FALSE ) middle_grob <- GeomPoint$draw_panel(middata, panel_scales, coord) } else if (median.type == "line") { middata <- data.frame( y = c(data$upper, data$middle) + c(0, - data$voffset / 2), yend = c(data$middle, data$lower) + c(data$voffset / 2, 0), x = data$x + data$hoffset, xend = data$x + data$hoffset, size = data$size * data$width, alpha = data$alpha, common, stringsAsFactors = FALSE ) middle_grob <- GeomSegment$draw_panel(middata, panel_scales, coord) } if (!is.null(data$outliers) && length(data$outliers[[1]] >= 1)) { outliers <- data.frame( y = data$outliers[[1]], x = data$x[1], colour = outlier.colour %||% data$colour[1], shape = outlier.shape %||% data$shape[1], size = outlier.size %||% data$size[1], stroke = outlier.stroke %||% data$stroke[1], fill = NA, alpha = NA, stringsAsFactors = FALSE ) outliers_grob <- GeomPoint$draw_panel(outliers, panel_scales, coord) } else { outliers_grob <- NULL } ggname("geom_tufteboxplot", grobTree( outliers_grob, whiskers_grob, middle_grob )) }, draw_legend = ggplot2::draw_key_pointrange, default_aes = ggplot2::aes(weight = 1, colour = "black", fill = "grey20", size = 0.5, alpha = NA, shape = 19, stroke = 0.5, width = 1, linetype = "solid", outlier.colour = "black", outlier.shape = 19, outlier.size = 1.5, outlier.stroke = 0.5) ) ggthemes/R/theme-solid.R0000644000176200001440000000126413340064070014613 0ustar liggesusers#' Theme with nothing other than a background color #' #' Theme that removes all non-geom elements (lines, text, etc), #' This theme is when only the geometric objects are desired. #' #' @param base_size Base font size. #' @param base_family Ignored, kept for consistency with \code{\link{theme}()}. #' @param fill Background color of the plot. #' @family themes #' @example inst/examples/ex-theme_solid.R #' @export theme_solid <- function(base_size = 12, base_family = "", fill = NA) { theme_foundation() + theme(line = element_blank(), text = element_blank(), rect = element_rect(fill = fill, size = base_size, colour = NA, linetype = 0)) } ggthemes/R/ggthemes-package.R0000644000176200001440000000107113432652025015576 0ustar liggesusers#' ggthemes #' #' This package contains extra themes, scales, and geoms, and #' functions for and related to \pkg{ggplot2}. See #' \url{https://jrnold.github.io/ggthemes/} for documentation. #' #' @name ggthemes #' @docType package #' @importFrom ggplot2 ggplot theme ggproto aes draw_key_path #' @importFrom grid grobTree grobName gTree gList segmentsGrob gpar #' @importFrom scales manual_pal div_gradient_pal seq_gradient_pal #' @importFrom graphics abline axis text points #' @importFrom methods hasArg as #' @importFrom graphics par NULL globalVariables(".data") ggthemes/R/clean.R0000644000176200001440000000473113453130202013461 0ustar liggesusers#' @title Clean ggplot theme #' #' @description Clean ggplot theme with no panel background, black axis lines #' and grey fill colour for chart elements. #' #' @author Konrad Zdeb \email{name.surname@@me.com} #' #' @param base_size Base font size. #' @param base_family Base font family. #' #' @family themes #' @export #' #' @example inst/examples/ex-theme_clean.R theme_clean <- function(base_size = 12, base_family = "sans") { ( theme_foundation(base_size = base_size, base_family = base_family) + theme( axis.line.x = element_line( colour = "black", size = 0.5, linetype = "solid" ), axis.line.y = element_line( colour = "black", size = 0.5, linetype = "solid" ), axis.text = element_text(size = ceiling(base_size * 0.7), colour = "black"), axis.title = element_text(size = ceiling(base_size * 0.8)), panel.grid.minor = element_blank(), panel.grid.major.y = element_line(colour = "gray", linetype = "dotted"), panel.grid.major.x = element_blank(), panel.background = element_blank(), panel.border = element_blank(), strip.background = element_rect(linetype = 0), strip.text = element_text(), strip.text.x = element_text(vjust = 0.5), strip.text.y = element_text(angle = -90), legend.text = element_text(size = ceiling(base_size * 0.9), family = "sans"), legend.title = element_text( size = base_size, face = "bold", family = "sans" ), legend.position = "right", legend.key = element_rect(fill = "white", colour = NA), legend.background = element_rect(colour = "black"), plot.background = element_rect(colour = "black"), plot.title = element_text(size = ceiling(base_size * 1.1), face = "bold"), plot.subtitle = element_text(size = ceiling(base_size * 1.05)) ) ) } ggthemes/R/gdocs.R0000644000176200001440000000722113340063161013477 0ustar liggesusers#' Theme with Google Docs Chart defaults #' #' Theme similar to the default look of charts in Google Docs. #' #' @inheritParams ggplot2::theme_grey #' @export #' @family themes gdocs #' @example inst/examples/ex-theme_gdocs.R theme_gdocs <- function(base_size = 12, base_family="sans") { ltgray <- "#cccccc" dkgray <- "#757575" dkgray2 <- "#666666" theme_foundation(base_size = base_size, base_family = base_family) + theme(rect = element_rect(colour = "black", fill = "white"), line = element_line(colour = "black"), text = element_text(colour = dkgray), # title is aligned left, 20 point Roboto Font, plain plot.title = element_text(face = "plain", size = rel(20 / 12), hjust = 0, colour = dkgray), # No subtitle or captions, so treat like other text plot.subtitle = element_text(hjust = 0, size = rel(1), face = "plain", colour = dkgray), plot.caption = element_text(hjust = 0, size = rel(1), face = "plain", colour = dkgray), panel.background = element_rect(fill = NA, colour = NA), panel.border = element_rect(fill = NA, colour = NA), # no strips in gdocs, so make similar to axis titles strip.text = element_text(hjust = 0, size = rel(1), colour = dkgray2, face = "plain"), strip.background = element_rect(colour = NA, fill = NA), # axis titles: Roboto 12pt, plain. axis.title = element_text(face = "plain", colour = dkgray2, size = rel(1)), # axis text: Roboto 12pt, plain axis.text = element_text(face = "plain", colour = dkgray, size = rel(1)), # only axis line on the x-axis. black. axis.line = element_line(colour = "black"), axis.line.y = element_blank(), # no axis ticks axis.ticks = element_blank(), # grid lines on both x and y axes. light gray. no minor gridlines panel.grid.major = element_line(colour = ltgray), panel.grid.minor = element_blank(), # legend has no border legend.background = element_rect(colour = NA), # legend labels: Roboto 12, dark gray legend.text = element_text(size = rel(1), colour = dkgray), # no legend title - use same as legend text legend.title = element_text(size = rel(1), colour = dkgray2, face = "plain"), legend.key = element_rect(colour = NA), legend.position = "right", legend.direction = "vertical" ) } #' Google Docs color palette (discrete) #' #' Color palettes from Google Docs. #' This palette includes 20 colors. #' #' @family colour gdocs #' @export #' @example inst/examples/ex-gdocs_pal.R gdocs_pal <- function() { values <- ggthemes::ggthemes_data$gdocs$colors$value f <- manual_pal(values) attr(f, "max_n") <- length(values) f } #' Google Docs color scales #' #' Color scales from Google Docs. #' #' @inheritParams ggplot2::scale_colour_hue #' @family colour gdocs #' @rdname scale_gdocs #' @export #' @seealso See \code{\link{theme_gdocs}()} for examples. scale_fill_gdocs <- function(...) { discrete_scale("fill", "gdocs", gdocs_pal(), ...) } #' @export #' @rdname scale_gdocs scale_colour_gdocs <- function(...) { discrete_scale("colour", "gdocs", gdocs_pal(), ...) } #' @export #' @rdname scale_gdocs scale_color_gdocs <- scale_colour_gdocs ggthemes/R/tableau.R0000644000176200001440000002452013466077407014037 0ustar liggesusers#' Tableau Color Palettes (discrete) #' #' Color palettes used in \href{http://www.tableausoftware.com/}{Tableau}. #' #' @details Tableau provides three types of color palettes: #' \code{"regular"} (discrete, qualitative categories), #' \code{"ordered-sequential"}, and \code{"ordered-diverging"}. #' #' \itemize{ #' \item{\code{"regular"}}{\Sexpr[results=rd]{ggthemes:::rd_optlist(names(ggthemes::ggthemes_data$tableau[["color-palettes"]][["regular"]]))}} #' \item{\code{"ordered-diverging"}}{\Sexpr[results=rd]{ggthemes:::rd_optlist(names(ggthemes::ggthemes_data$tableau[["color-palettes"]][["ordered-diverging"]]))}} #' \item{\code{"ordered-sequential"}}{\Sexpr[results=rd]{ggthemes:::rd_optlist(names(ggthemes::ggthemes_data$tableau[["color-palettes"]][["ordered-sequential"]]))}} #' } #' #' @export #' @param palette Palette name. See Details for available palettes. #' @param type Type of palette. One of \code{"regular"}, \code{"ordered-diverging"}, or \code{"ordered-sequential"}. #' @param direction If 1, the default, then use the original order of #' colors. If -1, then reverse the order. #' #' @references #' \url{http://vis.stanford.edu/color-names/analyzer/} #' #' Maureen Stone, 'Designing Colors for Data' (slides), at the #' International Symposium on Computational Aesthetics in Graphics, #' Visualization, and Imaging, Banff, AB, Canada, June 22, 2007 #' \url{http://www.stonesc.com/slides/CompAe\%202007.pdf}. #' #' Heer, Jeffrey and Maureen Stone, 2012 'Color Naming Models for #' Color Selection, Image Editing and Palette Design', ACM Human #' Factors in Computing Systems (CHI) #' \url{http://vis.stanford.edu/files/2012-ColorNameModels-CHI.pdf}. #' #' @family colour tableau #' @example inst/examples/ex-tableau_color_pal.R tableau_color_pal <- function(palette = "Tableau 10", type = c("regular", "ordered-sequential", "ordered-diverging"), direction = 1) { type <- match.arg(type) palettes <- ggthemes::ggthemes_data[["tableau"]][["color-palettes"]][[type]] if (!palette %in% names(palettes)) { stop("`palette` must be one of ", paste(names(palettes), collapse = ", "), ".") } values <- palettes[[palette]][["value"]] max_n <- length(values) f <- function(n) { check_pal_n(n, max_n) values <- values[seq_len(n)] if (direction < 0) { values <- rev(values) } values } attr(f, "max_n") <- length(values) f } #' Tableau color scales (discrete) #' #' Categorical (qualitative) color scales used in Tableau. #' Use the function \funclink{scale_colour_gradient_tableau} for the sequential #' and \funclink{scale_colour_gradient2_tableau} for the diverging continuous #' color scales from Tableu. #' #' @param palette Palette name. See \funclink{tableau_color_pal} #' for available palettes. #' @param type Palette type. One of \code{"regular"}, \code{"sequential"}, #' or \code{"diverging"}. See \funclink{tableau_color_pal}. #' @inheritParams tableau_color_pal #' @param ... Other arguments passed on to \funclink{discrete_scale}. #' @family colour tableau #' @rdname scale_color_tableau #' @export #' @seealso \code{\link{tableau_color_pal}()} for references. #' @example inst/examples/ex-scale_color_tableau.R scale_colour_tableau <- function(palette = "Tableau 10", type = "regular", direction = 1, ...) { discrete_scale("colour", "tableau", tableau_color_pal(palette, type, direction), ...) } #' @export #' @rdname scale_color_tableau scale_fill_tableau <- function(palette = "Tableau 10", type = "regular", direction = 1, ...) { discrete_scale("fill", "tableau", tableau_color_pal(palette, type, direction), ...) } #' @export #' @rdname scale_color_tableau scale_color_tableau <- scale_colour_tableau #' Tableau Shape Palettes (discrete) #' #' Shape palettes used by #' \href{http://www.tableausoftware.com/}{Tableau}. #' #' Not all shape palettes in Tableau are supported. Additionally, these #' palettes are not exact, and use the best unicode character for the shape #' palette. #' #' Since these palettes use unicode characters, their look may depend on the #' font being used, and not all characters may be available. #' #' Shape palettes in Tableau are used to expose images for use a markers in #' charts, and thus are sometimes groupings of closely related symbols. #' #' @export #' @param palette Palette name. #' @family shape tableau #' @example inst/examples/ex-tableau_shape_pal.R tableau_shape_pal <- function(palette = c("default", "filled", "proportions")) { palette <- match.arg(palette) shapes <- ggthemes::ggthemes_data$tableau[["shape-palettes"]][[palette]] f <- manual_pal(shapes[["pch"]]) attr(f, "max_n") <- nrow(shapes) f } #' Tableau shape scales #' #' See \code{\link{tableau_shape_pal}()} for details. #' #' @export #' @inheritParams tableau_shape_pal #' @inheritParams ggplot2::scale_x_discrete #' @family shape tableau #' @example inst/examples/ex-scale_shape_tableau.R scale_shape_tableau <- function(palette = "default", ...) { discrete_scale("shape", "tableau", tableau_shape_pal(palette), ...) } #' Tableau colour gradient palettes (continuous) #' #' Gradient color palettes using the diverging and sequential continous color #' palettes in Tableau. See \funclink{tableau_color_pal} for discrete color #' palettes. #' #' @param palette Palette name. #' \itemize{ #' \item{\code{"ordered-sequential"}}{\Sexpr[results=rd]{ggthemes:::rd_optlist(names(ggthemes::ggthemes_data$tableau[["color-palettes"]][["ordered-sequential"]]))}} #' \item{\code{"ordered-diverging"}}{\Sexpr[results=rd]{ggthemes:::rd_optlist(names(ggthemes::ggthemes_data$tableau[["color-palettes"]][["ordered-diverging"]]))}} #' } #' @param type Palette type, either \code{"ordered-sequential"} or #' \code{"ordered-diverging"}. #' @param ... Arguments passed to \code{tableau_gradient_pal}. #' @family colour tableau #' #' @export #' @example inst/examples/ex-tableau_seq_gradient_pal.R tableau_gradient_pal <- function(palette = "Blue", type = "ordered-sequential") { type <- match.arg(type, c("ordered-sequential", "ordered-diverging")) pal <- ggthemes::ggthemes_data[[c("tableau", "color-palettes", type, palette)]] scales::gradient_n_pal(colours = pal[["value"]]) } #' @export #' @rdname tableau_gradient_pal tableau_seq_gradient_pal <- function(palette = "Blue", ...) { tableau_gradient_pal(palette = palette, type = "ordered-sequential", ...) } #' @export #' @rdname tableau_gradient_pal tableau_div_gradient_pal <- function(palette = "Orange-Blue Diverging", ...) { tableau_gradient_pal(palette = palette, type = "ordered-diverging", ...) } #' Tableau sequential colour scales (continuous) #' #' Continuous color scales using the sequential color palettes in Tableau. #' See \funclink{scale_colour_tableau} for Tableau discrete color scales, #' and \funclink{scale_colour_gradient2_tableau} for diverging color #' scales. #' #' @export #' @inheritParams tableau_seq_gradient_pal #' @inheritParams ggplot2::scale_colour_hue #' @param guide Type of legend. Use \code{'colourbar'} for continuous #' colour bar, or \code{'legend'} for discrete colour legend. #' @family colour tableau #' @rdname scale_colour_gradient_tableau #' @example inst/examples/ex-scale_colour_gradient_tableau.R #' @importFrom ggplot2 continuous_scale scale_colour_gradient_tableau <- function(palette = "Blue", ..., na.value = "grey50", guide = "colourbar") { continuous_scale("colour", "tableau", tableau_seq_gradient_pal(palette), na.value = na.value, guide = guide, ...) } #' @export #' @rdname scale_colour_gradient_tableau scale_fill_gradient_tableau <- function(palette = "Blue", ..., na.value = "grey50", guide = "colourbar") { continuous_scale("fill", "tableau", tableau_seq_gradient_pal(palette), na.value = na.value, guide = guide, ...) } #' @export #' @rdname scale_colour_gradient_tableau scale_color_gradient_tableau <- scale_colour_gradient_tableau #' @export #' @rdname scale_colour_gradient_tableau scale_color_continuous_tableau <- scale_colour_gradient_tableau #' @export #' @rdname scale_colour_gradient_tableau scale_fill_continuous_tableau <- scale_fill_gradient_tableau #' Tableau diverging colour scales (continuous) #' #' Continuous color scales using the diverging color scales in Tableau. #' See \funclink{scale_colour_tableau} for Tabaleau discrete color scales, #' and \funclink{scale_colour_gradient_tableau} for sequential color scales. #' #' @inheritParams tableau_div_gradient_pal #' @inheritParams ggplot2::scale_colour_hue #' @param guide Type of legend. Use \code{'colourbar'} for continuous #' colour bar, or \code{'legend'} for discrete colour legend. #' @family colour tableau #' @export #' @rdname scale_colour_gradient2_tableau #' @example inst/examples/ex-scale_colour_gradient2_tableau.R scale_colour_gradient2_tableau <- function(palette = "Orange-Blue Diverging", ..., na.value = "grey50", guide = "colourbar") { continuous_scale("colour", "tableau2", tableau_div_gradient_pal(palette), na.value = na.value, guide = guide, ...) } #' @export #' @rdname scale_colour_gradient2_tableau scale_fill_gradient2_tableau <- function(palette = "Orange-Blue Diverging", ..., na.value = "grey50", guide = "colourbar") { continuous_scale("fill", "tableau2", tableau_div_gradient_pal(palette), na.value = na.value, guide = guide, ...) } #' @export #' @rdname scale_colour_gradient2_tableau scale_color_gradient2_tableau <- scale_colour_gradient2_tableau ggthemes/R/igray.R0000644000176200001440000000231013432651310013506 0ustar liggesusers#' Inverse gray theme #' #' Theme with white panel and gray background. #' #' @section Details: #' #' This theme inverts the colors in the \code{\link[ggplot2]{theme_gray}()}, a #' white panel and a light gray area around it. This keeps a white #' background for the color scales like \code{\link[ggplot2]{theme_bw}()}. But #' by using a gray background, the plot is closer to the #' typographical color of the document, which is the motivation for #' using a gray panel in \code{\link[ggplot2]{theme_gray}()}. This is #' similar to the style of plots in Stata and Tableau. #' #' @inheritParams ggplot2::theme_grey #' @export #' @family themes #' @seealso \code{\link[ggplot2]{theme_gray}()}, #' \code{\link[ggplot2]{theme_bw}()} #' @example inst/examples/ex-theme_igray.R #' @importFrom ggplot2 theme_gray theme_igray <- function(base_size = 12, base_family = "") { (theme_gray(base_size = base_size, base_family = base_family) + theme(rect = element_rect(fill = "gray90"), legend.key = element_rect(fill = "white"), panel.background = element_rect(fill = "white"), panel.grid.major = element_line(colour = "gray90"), plot.background = element_rect(fill = "gray90"))) } ggthemes/R/excel.R0000644000176200001440000001356713416026214013514 0ustar liggesusers#' Excel 97 ugly color palettes (discrete) #' #' The color palettes used in Microsoft Excel 97 (and up until Excel 2007). #' Use this for that classic ugly look and feel. For ironic purposes only. #' 3D bars and pies not included. Please never use this color palette. #' #' @param line If \code{TRUE}, use the palette for lines and points. Otherwise, #' use the palette for area. #' @family colour excel #' @export #' @example inst/examples/ex-excel_pal.R excel_pal <- function(line = TRUE) { if (line[[1]]) { manual_pal(ggthemes::ggthemes_data$excel$classic$line) } else { manual_pal(ggthemes::ggthemes_data$excel$classic$fill) } } #' Excel (current versions) color palettes (discrete) #' #' Color palettes used by current versions of Microsoft Office and Excel. #' #' @param theme The name of the Office theme or color theme #' (not to be confused with ggplot2 themes) from which to derive the color #' palette. Available themes include: #' \Sexpr[results=rd]{ggthemes:::rd_optlist(names(ggthemes::ggthemes_data$excel$themes))} #' @family colour excel #' @example inst/examples/ex-excel_new_pal.R #' @export excel_new_pal <- function(theme = "Office Theme") { allthemes <- ggthemes::ggthemes_data$excel$themes if (!theme %in% names(allthemes)) { stop("`theme` must be one of ", paste0(names(allthemes), collapse = ", ")) } values <- unname(allthemes[[theme]][["accents"]]) f <- manual_pal(values) attr(f, "max_n") <- length(values) f } #' Excel 97 ugly color scales #' #' The classic "ugly" color scales from Excel 97. #' #' @inheritParams excel_pal #' @inheritParams ggplot2::scale_colour_hue #' @family colour excel #' @rdname scale_excel #' @export #' @example inst/examples/ex-theme_excel.R scale_fill_excel <- function(...) { discrete_scale("fill", "excel", excel_pal(line = FALSE), ...) } #' @export #' @rdname scale_excel scale_colour_excel <- function(...) { discrete_scale("colour", "excel", excel_pal(line = TRUE), ...) } #' @export #' @rdname scale_excel scale_color_excel <- scale_colour_excel #' Excel (current versions) color scales #' #' Discrete color scales used in current versions of Microsoft Office and Excel. #' #' @inheritParams excel_new_pal #' @inheritParams ggplot2::scale_colour_hue #' @family colour excel #' @rdname scale_excel_new #' @example inst/examples/ex-theme_excel_new.R #' @export scale_colour_excel_new <- function(theme = "Office Theme", ...) { discrete_scale("colour", "excel_new", excel_new_pal(theme), ...) } #' @export #' @rdname scale_excel_new scale_color_excel_new <- scale_colour_excel_new #' @export #' @rdname scale_excel_new scale_fill_excel_new <- function(theme = "Office Theme", ...) { discrete_scale("fill", "excel_new", excel_new_pal(theme), ...) } #' ggplot theme based on old Excel plots #' #' Theme to replicate the ugly monstrosity that was the old #' gray-background Excel chart. Please never use this. #' This theme should be combined with the \code{\link{scale_colour_excel}()} #' color scale. #' #' @inheritParams ggplot2::theme_grey #' @param horizontal \code{logical}. Horizontal axis lines? #' @return An object of class \code{\link[ggplot2]{theme}()}. #' @export #' @family themes excel #' @example inst/examples/ex-theme_excel.R theme_excel <- function(base_size = 12, base_family = "", horizontal = TRUE) { gray <- "#C0C0C0" ret <- (theme_bw() + theme(panel.background = element_rect(fill = gray), panel.border = element_rect(colour = "black", linetype = 1), panel.grid.major = element_line(colour = "black"), panel.grid.minor = element_blank(), legend.key = element_rect(colour = NA), legend.background = element_rect(colour = "black", linetype = 1), strip.background = element_rect(fill = "white", colour = NA, linetype = 0))) if (horizontal) { ret <- ret + theme(panel.grid.major.x = element_blank()) } else { ret <- ret + theme(panel.grid.major.y = element_blank()) } ret } #' ggplot theme similar to current Excel plot defaults #' #' Theme for ggplot2 that is similar to the default style of charts in #' current versions of Microsoft Excel. #' #' @inheritParams ggplot2::theme_grey #' @return An object of class \code{\link[ggplot2]{theme}()}. #' @export #' @family themes excel #' @example inst/examples/ex-theme_excel_new.R #' theme_excel_new <- function(base_size = 9, base_family = "sans") { colorlist <- list(lt_gray = "#D9D9D9", gray = "#BFBFBF", dk_gray = "#595959") theme_bw(base_family = base_family, base_size = base_size) + theme( text = element_text( colour = colorlist$dk_gray, size = base_size ), line = element_line( linetype = "solid", colour = colorlist$gray ), rect = element_rect( linetype = 0, colour = "white" ), panel.grid.major = element_line( linetype = "solid", colour = colorlist$gray, size = 0.75 * PT_TO_MM ), panel.grid.minor = element_blank(), axis.title = element_blank(), axis.text = element_text( colour = colorlist$dk_gray, size = 9 ), strip.background = element_rect( fill = NA ), strip.text = element_text( colour = colorlist$dk_gray, size = 9 ), axis.ticks = element_blank(), panel.background = element_blank(), panel.border = element_rect(colour = NA), title = element_text( face = "plain", hjust = 0.5 ), plot.title = element_text( size = 14, hjust = 0.5 ), plot.subtitle = element_blank(), legend.position = "bottom", legend.text = element_text( size = 9, colour = colorlist$dk_gray ), legend.title = element_blank(), ) } ggthemes/R/hc.R0000644000176200001440000000712013340063110012762 0ustar liggesusers#' Highcharts Theme #' #' Theme based on the plots in \url{Highcharts JS}. #' #' @references #' #' \url{http://www.highcharts.com/demo/line-basic} #' #' \url{https://github.com/highslide-software/highcharts.com/tree/master/js/themes} #' #' @inheritParams ggplot2::theme_bw #' @param style The Highcharts theme to use \code{'default'}, #' \code{'darkunica'}. #' @param bgcolor Deprecated #' @example inst/examples/ex-theme_hc.R #' @family themes hc #' @export theme_hc <- function(base_size = 12, base_family = "sans", style = c("default", "darkunica"), bgcolor = NULL) { if (!is.null(bgcolor)) { warning("`bgcolor` is deprecated. Use `style` instead.") style <- bgcolor } style <- match.arg(style) bgcolor <- switch(style, default = "#FFFFFF", "darkunica" = "#2a2a2b") ret <- theme(rect = element_rect(fill = bgcolor, linetype = 0, colour = NA), text = element_text(size = base_size, family = base_family), title = element_text(hjust = 0.5), axis.title.x = element_text(hjust = 0.5), axis.title.y = element_text(hjust = 0.5), panel.grid.major.y = element_line(colour = "#D8D8D8"), panel.grid.minor.y = element_blank(), panel.grid.major.x = element_blank(), panel.grid.minor.x = element_blank(), panel.border = element_blank(), panel.background = element_blank(), legend.position = "bottom", legend.key = element_rect(fill = "#FFFFFF00")) if (style == "darkunica") { ret <- (ret + theme(rect = element_rect(fill = bgcolor), text = element_text(colour = "#A0A0A3"), title = element_text(colour = "#FFFFFF"), axis.title.x = element_text(colour = "#A0A0A3"), axis.title.y = element_text(colour = "#A0A0A3"), panel.grid.major.y = element_line(colour = "#707073"), legend.title = element_text(colour = "#A0A0A3"))) } ret } #' Highcharts JS color palette (discrete) #' #' The Highcharts JS uses many different color palettes in its #' plots. This collects a few of them. #' #' @section Palettes: #' #' The following palettes are defined, #' #' \itemize{ #' \item{\href{http://www.highcharts.com/demo}{default}} #' \item{\href{http://www.highcharts.com/demo/line-basic/dark-unica}{dark-unica}} #' } #' #' @param palette \code{character} The name of the Highcharts theme to use. #' #' @family colour hc #' @export hc_pal <- function(palette = "default") { if (palette %in% names(ggthemes::ggthemes_data$hc)) { manual_pal(unname(ggthemes::ggthemes_data$hc[[palette]])) } else { stop("Palette `", palette, "` not valid. Must be one of ", stringr::str_c("`", names(ggthemes::ggthemes_data$hc), "`", collapse = ", "), call. = FALSE) } } #' Highcharts color and fill scales #' #' Colour and fill scales which use the palettes in #' \code{\link{hc_pal}()} and are meant for use with #' \code{\link{theme_hc}()}. #' #' @inheritParams ggplot2::scale_colour_hue #' @inheritParams hc_pal #' @family colour hc #' @rdname scale_hc #' @export scale_colour_hc <- function(palette = "default", ...) { discrete_scale("colour", "hc", hc_pal(palette), ...) } #' @rdname scale_hc #' @export scale_color_hc <- scale_colour_hc #' @rdname scale_hc #' @export scale_fill_hc <- function(palette = "default", ...) { discrete_scale("fill", "hc", hc_pal(palette), ...) } ggthemes/R/ggthemes_data.R0000644000176200001440000000033013325413240015166 0ustar liggesusers#' Palette and theme data #' #' The \code{ggthemes} environment contains various values used in #' themes and palettes. This is undocumented and subject to change. #' #' @format A \code{list} object. "ggthemes_data" ggthemes/R/colorblind.R0000644000176200001440000000216013453025021014522 0ustar liggesusers#' Colorblind Color Palette (Discrete) and Scales #' #' An eight-color colorblind safe qualitative discrete palette. #' #' @rdname colorblind #' @references #' Chang, W. "\href{http://www.cookbook-r.com/Graphs/Colors_(ggplot2)/#a-colorblind-friendly-palette}{Cookbook for R}" #' #' \verb{http://jfly.iam.u-tokyo.ac.jp/color} #' #' @export #' @inheritParams ggplot2::scale_colour_hue #' @family colour #' @seealso The \pkg{dichromat} package, \code{\link[scales]{dichromat_pal}()}, #' and \code{\link{scale_color_tableau}()} for other colorblind palettes. #' @example inst/examples/ex-colorblind.R colorblind_pal <- function() { values <- unname(ggthemes::ggthemes_data[["colorblind"]][["value"]]) f <- manual_pal(values) attr(f, "max_n") <- length(values) f } #' @rdname colorblind #' @export scale_colour_colorblind <- function(...) { discrete_scale("colour", "colorblind", colorblind_pal(), ...) } #' @rdname colorblind #' @export scale_color_colorblind <- scale_colour_colorblind #' @rdname colorblind #' @export scale_fill_colorblind <- function(...) { discrete_scale("fill", "colorblind", colorblind_pal(), ...) } ggthemes/R/solarized.R0000644000176200001440000001401113340064450014371 0ustar liggesusers#' Base colors for Solarized light and dark themes #' #' @param light \code{logical} Light theme? #' #' Creates the base colors for a light or dark solarized theme. See #' \url{http://ethanschoonover.com/solarized}. This function is a port #' of the CSS style example. #' #' @keywords internal solarized_rebase <- function(light = TRUE) { basecolors <- deframe(ggthemes::ggthemes_data$solarized$Base) rebase <- if (light) { basecolors[c(paste0("base", 3:0), paste0("base0", 0:3))] } else { basecolors[c(paste0("base0", 3:0), paste0("base", 0:3))] } names(rebase) <- paste0("rebase", c(paste0("0", 3:0), 0:3)) rebase } solarized_accent_list <- function() { paste0("\\code{\"", names(ggthemes::ggthemes_data$solarized$Accents), "\"}", collapse = ",") } #' Solarized color palette (discrete) #' #' Qualitative color palate based on the Ethan Schoonover's Solarized #' palette, \url{http://ethanschoonover.com/solarized}. This palette supports #' up to seven values. #' #' @note #' #' For a given starting color and number of colors in the palette, #' the other colors are the combination of colors that maximizes the #' total Euclidean distance between colors in L*a*b space. #' #' @param accent \code{character} Starting color. #' @export #' @family solarized colour #' @example inst/examples/ex-solarized_pal.R solarized_pal <- function(accent = "blue") { palettes <- ggthemes::ggthemes_data[["solarized"]][["palettes"]][[accent]] max_n <- length(palettes) f <- function(n) { check_pal_n(n, max_n) palettes[[n]] } attr(f, "max_n") <- f f } #' Solarized color scales #' #' See \code{\link{solarized_pal}()} for details. #' #' @inheritParams ggplot2::scale_colour_hue #' @inheritParams solarized_pal #' @family colour scales #' @rdname scale_solarized #' @family solarized colour #' @export #' @example inst/examples/ex-scale_solarized.R scale_fill_solarized <- function(accent = "blue", ...) { discrete_scale("fill", "solarized", solarized_pal(accent), ...) } #' @export #' @rdname scale_solarized scale_colour_solarized <- function(accent = "blue", ...) { discrete_scale("colour", "solarized", solarized_pal(accent), ...) } #' @export #' @rdname scale_solarized scale_color_solarized <- scale_colour_solarized #' ggplot color themes based on the Solarized palette #' #' See \url{http://ethanschoonover.com/solarized} for a #' description of the Solarized palette. #' #' Plots made with this theme integrate seamlessly with the Solarized #' Beamer color theme. #' \url{https://github.com/jrnold/beamercolorthemesolarized}. #' There are two variations: \code{theme_solarized} is similar to #' to \code{\link[ggplot2]{theme_bw}()}, while \code{theme_solarized_2()} is #' similar to \code{\link[ggplot2]{theme_gray}()}. #' #' @rdname theme_solarized #' @inheritParams ggplot2::theme_grey #' @param light \code{logical}. Light or dark theme? #' @export #' @family themes solarized #' @example inst/examples/ex-theme_solarized.R theme_solarized <- function(base_size = 12, base_family = "", light = TRUE) { rebase <- solarized_rebase(light) ret <- (theme_bw(base_size = base_size, base_family = base_family) + theme(text = element_text(colour = rebase["rebase01"]), title = element_text(color = rebase["rebase0"]), line = element_line(color = rebase["rebase01"]), rect = element_rect(fill = rebase["rebase03"], color = rebase["rebase01"]), axis.ticks = element_line(color = rebase["rebase01"]), axis.line = element_line(color = rebase["rebase01"], linetype = 1), legend.background = element_rect(fill = NULL, color = NA), legend.key = element_rect(fill = NULL, colour = NULL, linetype = 0), panel.background = element_rect(fill = rebase["rebase03"], colour = rebase["rebase01"]), panel.border = element_blank(), panel.grid = element_line(color = rebase["rebase02"]), panel.grid.major = element_line(color = rebase["rebase02"]), panel.grid.minor = element_line(color = rebase["rebase02"]), plot.background = element_rect(fill = NULL, colour = NA, linetype = 0))) ret } #' @rdname theme_solarized #' @export theme_solarized_2 <- function(base_size = 12, base_family = "", light = TRUE) { rebase <- solarized_rebase(light) ret <- (theme_foundation(base_size = base_size, base_family = base_family) + theme(text = element_text(color = rebase["rebase01"]), title = element_text(color = rebase["rebase0"]), line = element_line(color = rebase["rebase01"]), rect = element_rect(fill = rebase["rebase03"], color = NA), axis.ticks = element_line(color = rebase["rebase01"]), axis.line = element_line(color = rebase["reabase01"], linetype = 1), axis.title.y = element_text(angle = 90), legend.background = element_rect(fill = NULL, color = NA), legend.key = element_rect(fill = NULL, colour = NULL, linetype = 0), panel.background = element_rect(fill = rebase["rebase02"], colour = NA), panel.border = element_blank(), panel.grid = element_line(color = rebase["rebase03"]), panel.grid.major = element_line(color = rebase["rebase03"]), panel.grid.minor = element_line(color = rebase["rebase03"], size = 0.25), plot.background = element_rect(fill = NULL, colour = NULL, linetype = 0))) ret } ggthemes/R/ptol.R0000644000176200001440000000256513340063377013375 0ustar liggesusers#' Color Palettes from Paul Tol's "Colour Schemes" #' #' Qualitative color palettes from Paul Tol, #' \href{https://personal.sron.nl/~pault/}{"Colour Schemes"}. #' #' Incorporation of the palette into an R package was originally inspired by #' Peter Carl's [Paul Tol 21 Gun Salute](https://tradeblotter.wordpress.com/2013/02/28/the-paul-tol-21-color-salute/) #' #' @export #' @family colour ptol #' @references #' Paul Tol. 2012. "Colour Schemes." SRON Technical Note, SRON/EPS/TN/09-002. #' \url{https://personal.sron.nl/~pault/data/colourschemes.pdf} #' @example inst/examples/ex-ptol_pal.R ptol_pal <- function() { colors <- ggthemes::ggthemes_data[["ptol"]][["qualitative"]] max_n <- length(colors) f <- function(n) { check_pal_n(n, max_n) colors[[n]] } attr(f, "max_n") <- max_n f } #' Color Scales from Paul Tol's "Colour Schemes #' #' See \code{\link{ptol_pal}()}. These palettes support up to 12 values. #' #' @inheritParams ggplot2::scale_colour_hue #' @inheritParams ptol_pal #' @family colour ptol #' @rdname scale_ptol #' @export #' @example inst/examples/ex-scale_colour_ptol.R scale_colour_ptol <- function(...) { discrete_scale("colour", "ptol", ptol_pal(), ...) } #' @export #' @rdname scale_ptol scale_color_ptol <- scale_colour_ptol #' @export #' @rdname scale_ptol scale_fill_ptol <- function(...) { discrete_scale("fill", "ptol", ptol_pal(), ...) } ggthemes/R/show.R0000644000176200001440000000371613340063260013365 0ustar liggesusers#' Show shapes #' #' A quick and dirty way to show shapes. #' #' @export #' @param shapes A numeric or character vector of shapes. See #' \code{\link[graphics]{par}()}. #' @param labels Include the plotting character value of the symbol. #' @seealso \code{\link[scales]{show_col}()}, \code{\link{show_linetypes}()} #' @return This function called for the side effect of creating a plot. #' It returns \code{shapes}. #' @example inst/examples/ex-show_shapes.R show_shapes <- function(shapes, labels = TRUE) { n <- length(shapes) ncol <- ceiling(sqrt(n)) nrow <- ceiling(n / ncol) x <- c(shapes, rep(NA, nrow * ncol - length(shapes))) x <- matrix(x, ncol = ncol, byrow = TRUE) x <- x[nrow(x):1, ] plot(0, 0, xlim = c(1, ncol(x)), ylim = c(1, nrow(x)), type = "n", xlab = "", ylab = "", axes = FALSE) for (i in seq_len(ncol(x))) { for (j in seq_len(nrow(x))) { points(i, j, pch = x[j, i]) if (labels) { text(i, j, x[j, i], pos = 1, col = "gray70") } } } invisible(shapes) } #' Show linetypes #' #' A quick and dirty way to show linetypes. #' #' @export #' @param linetypes A character vector of linetypes. See #' \code{\link{par}()}. #' @param labels Label each line with its linetype (lty) value. #' #' @seealso \code{\link[scales]{show_col}()}, \code{\link{show_linetypes}()} #' #' @example inst/examples/ex-show_linetypes.R #' @return This function called for the side effect of creating a plot. #' It returns \code{linetypes}. #' @importFrom graphics plot show_linetypes <- function(linetypes, labels = TRUE) { n <- length(linetypes) plot(0, 0, xlim = c(0, 1), ylim = c(n, 1), type = "n", xlab = "", ylab = "", axes = FALSE) for (i in seq_along(linetypes)) { abline(h = i, lty = linetypes[i]) } if (labels) { axis(side = 2, at = seq_len(n), tick = FALSE, labels = linetypes, las = 2) } else { axis(side = 2, at = seq_len(n), tick = FALSE, labels = seq_len(n), las = 2) } invisible(linetypes) } ggthemes/R/calc.R0000644000176200001440000001041113340063363013301 0ustar liggesusers#' Theme Calc #' #' Theme similar to the default settings of LibreOffice Calc charts. #' #' @inheritParams ggplot2::theme_grey #' @export #' @family themes calc #' @example inst/examples/ex-theme_calc.R theme_calc <- function(base_size = 10, base_family = "sans") { (theme_foundation(base_family = base_family, base_size = base_size) + theme(rect = element_rect(colour = "black", fill = "white"), text = element_text(colour = "black"), line = element_line(colour = "gray70"), # 13 pt plot.title = element_text(size = rel(1.3)), legend.title = element_text(size = rel(1)), legend.text = element_text(size = rel(1)), axis.title = element_text(size = rel(1)), axis.line = element_blank(), panel.border = element_rect(fill = NA, colour = "gray70"), panel.grid.minor = element_blank(), panel.grid.major.x = element_blank(), legend.position = "right", legend.direction = "vertical", legend.background = element_rect(colour = NA), legend.key = element_rect(colour = NA))) } #' Calc color palette (discrete) #' #' Color palettes from LibreOffice Calc. #' This palette has 12 values. #' #' @family colour calc #' @export #' @example inst/examples/ex-calc_pal.R calc_pal <- function() { values <- unname(ggthemes::ggthemes_data$calc$colors[["value"]]) max_n <- length(values) f <- manual_pal(values) attr(f, "max_n") <- max_n f } #' LibreOffice Calc color scales #' #' Color scales from LibreOffice Calc. #' #' @inheritParams ggplot2::scale_colour_hue #' @family colour calc #' @rdname scale_calc #' @export #' @seealso See \code{\link{theme_calc}()} for examples. scale_fill_calc <- function(...) { discrete_scale("fill", "calc", calc_pal(), ...) } #' @export #' @rdname scale_calc scale_colour_calc <- function(...) { discrete_scale("colour", "calc", calc_pal(), ...) } #' @export #' @rdname scale_calc scale_color_calc <- scale_colour_calc #' Calc shape palette (discrete) #' #' Shape palette based on the shapes used in LibreOffice Calc. #' #' @export #' @family shapes calc #' @example inst/examples/ex-calc_shape_pal.R calc_shape_pal <- function() { values <- ggthemes::ggthemes_data$calc$shapes[["pch"]] f <- manual_pal(unname(values)) attr(f, "max_n") <- length(values) f } #' Calc shape scale #' #' See \code{\link{calc_shape_pal}()} for details. #' #' @inheritParams ggplot2::scale_x_discrete #' @family shapes calc #' @export #' @seealso \code{\link{theme_calc}()} for examples. scale_shape_calc <- function (...) { discrete_scale("shape", "calc", calc_shape_pal(), ...) } # PT_TO_MM <- 0.352778 # # # Default font is Liberation Sans # theme_libre <- function(base_size = 10, # base_family = "sans") { # colorlist <- list(gray = "#B3B3B3") # theme_bw(base_family = base_family, # base_size = base_size) + # theme( # text = element_text(colour = "black"), # line = element_line( # linetype = "solid", # colour = colorlist$gray, # size = 0.5 * PT_TO_MM # ), # rect = element_rect( # fill = "white", # linetype = "solid", # colour = colorlist$gray, # size = 0.5 * PT_TO_MM # ), # panel.grid.major = element_line( # linetype = "solid", # colour = colorlist$gray, # size = 0.5 * PT_TO_MM # ), # axis.title = element_text( # size = 9 # ), # axis.text = element_text( # size = 10 # ), # axis.ticks = element_line( # colour = colorlist$gray # ), # panel.background = element_rect( # colour = colorlist$gray, # size = 0.5 * PT_TO_MM # ), # title = element_text( # face = "plain", # hjust = 0.5 # ), # plot.title = element_text( # size = 13, # hjust = 0.5 # ), # plot.subtitle = element_text( # size = 11, # hjust = 0.5 # ), # panel.grid.major.x = element_blank(), # panel.grid.minor = element_blank(), # legend.position = "right", # strip.background = element_blank(), # strip.text = element_text(size = 9), # legend.title = element_text( # size = 9 # ) # ) # } ggthemes/R/wsj.R0000644000176200001440000001067613432650537013226 0ustar liggesusers#' Wall Street Journal theme #' #' Theme based on the plots in \emph{The Wall Street Journal}. #' #' This theme should be used with \code{\link{scale_color_wsj}()}. #' #' @references #' #' \url{https://twitter.com/WSJGraphics} #' #' \url{https://pinterest.com/wsjgraphics/wsj-graphics/} #' #' @inheritParams ggplot2::theme_grey #' @param color The background color of plot. One of \code{'brown', #' 'gray', 'green', 'blue'}. #' @param title_family Plot title font family. #' @family themes wsj #' @example inst/examples/ex-theme_wsj.R #' @export #' @importFrom ggplot2 element_line element_rect element_text element_blank rel theme_wsj <- function(base_size = 12, color = "brown", base_family = "sans", title_family = "mono") { colorhex <- ggthemes::ggthemes_data$wsj$bg[color] theme_foundation(base_size = base_size, base_family = base_family) + theme(line = element_line(linetype = 1, colour = "black"), rect = element_rect(fill = colorhex, linetype = 0, colour = NA), text = element_text(colour = "black"), title = element_text(family = title_family, size = rel(2)), axis.title = element_blank(), axis.text = element_text(face = "bold", size = rel(1)), axis.text.x = element_text(colour = NULL), axis.text.y = element_text(colour = NULL), axis.ticks = element_line(colour = NULL), axis.ticks.y = element_blank(), axis.ticks.x = element_line(colour = NULL), axis.line = element_line(), axis.line.y = element_blank(), legend.background = element_rect(), legend.position = "top", legend.direction = "horizontal", legend.box = "vertical", panel.grid = element_line(colour = NULL, linetype = 3), panel.grid.major = element_line(colour = "black"), panel.grid.major.x = element_blank(), panel.grid.minor = element_blank(), plot.title = element_text(hjust = 0, face = "bold"), plot.margin = unit(c(1, 1, 1, 1), "lines"), strip.background = element_rect()) } #' Wall Street Journal color palette (discrete) #' #' The Wall Street Journal uses many different color palettes in its #' plots. This collects a few of them, but is by no means exhaustive. #' Collections of these plots can be found on the WSJ Graphics #' \href{https://twitter.com/WSJGraphics}{Twitter} feed and #' \href{https://pinterest.com/wsjgraphics/wsj-graphics/}{Pinterest}. #' #' @section Palettes: #' #' The following palettes are defined, #' #' \describe{ #' \item{rgby}{Red/Green/Blue/Yellow theme. #' Examples: \url{https://twitpic.com/b2e3v2}. Up to four values.} #' \item{red_green}{Green/red two-color scale for good/bad. Examples: #' \url{https://twitpic.com/b1avj6}, \url{http://twitpic.com/a4kxcl}.} #' \item{green_black}{Black-green 4-color scale for 'Very negative', #' 'Somewhat negative', 'somewhat positive', 'very positive'. #' Examples: \url{https://twitpic.com/awbua0}.} #' \item{dem_rep}{Democrat/Republican/Undecided blue/red/gray scale. #' Examples: \url{https://twitpic.com/awbua0}.} #' \item{colors6}{Red, blue, gold, green, orange, and black palette. #' Examples: \url{https://twitpic.com/9gfg5q}.} #' } #' #' @param palette \code{character} The color palette to use: . #' \Sexpr[results=rd]{ggthemes:::rd_optlist(names(ggthemes::ggthemes_data$wsj$palettes))} #' #' @family colour wsj #' @export wsj_pal <- function(palette = "colors6") { palettes <- ggthemes::ggthemes_data[["wsj"]][["palettes"]] if (palette %in% names(palettes)) { colors <- palettes[[palette]][["value"]] max_n <- length(colors) f <- manual_pal(unname(colors)) attr(f, "max_n") <- max_n f } else { stop(sprintf("palette %s not a valid palette.", palette)) } } #' Wall Street Journal color and fill scales #' #' Colour and fill scales which use the palettes in \code{\link{wsj_pal}()}. #' These scales should be used with \code{\link{theme_wsj}()}. #' #' @inheritParams ggplot2::scale_colour_hue #' @inheritParams wsj_pal #' @family colour wsj #' @rdname scale_wsj #' @export scale_colour_wsj <- function(palette = "colors6", ...) { discrete_scale("colour", "wsj", wsj_pal(palette), ...) } #' @rdname scale_wsj #' @export scale_color_wsj <- scale_colour_wsj #' @rdname scale_wsj #' @export scale_fill_wsj <- function(palette = "colors6", ...) { discrete_scale("fill", "wsj", wsj_pal(palette), ...) } ggthemes/R/pander.R0000644000176200001440000002261613453023650013662 0ustar liggesusers#' A ggplot theme originated from the pander package #' #' The \pkg{pander} ships with a default theme when the 'unify plots' option is #' enabled via \code{panderOptions}, which is now also available outside of \pkg{pander} internals, like \code{evals}, \code{eval.msgs} or \code{Pandoc.brew}. #' @inheritParams ggplot2::theme_bw #' @param nomargin suppress the white space around the plot (boolean) #' @param ff font family, like \code{sans}. Deprecated: use \code{base_family} instead. #' @param fc font color (name or hexa code) #' @param fs font size (integer). Deprecated: use \code{base_size} instead. #' @param gM major grid (boolean) #' @param gm minor grid (boolean) #' @param gc grid color (name or hexa code) #' @param gl grid line type (\code{lty}) #' @param boxes to render a border around the plot or not #' @param bc background color (name or hexa code) #' @param pc panel background color (name or hexa code) #' @param lp legend position #' @param axis axis angle as defined in \code{par(les)} #' @export #' @example inst/examples/ex-theme_pander.R theme_pander <- function(base_size = 12, base_family = "sans", nomargin = TRUE, ff = NULL, fc = "black", fs = NULL, gM = TRUE, gm = TRUE, gc = "grey", gl = "dashed", boxes = FALSE, bc = "white", pc = "transparent", lp = "right", axis = 1) { if (hasArg(ff)) { base_family <- ff warning("Argument `ff` deprecated. Use `base_family` instead.") } if (hasArg(fs)) { base_size <- fs warning("Argument `fs` deprecated. Use `base_size` instead.") } if (requireNamespace("pander", quietly = TRUE)) { if (missing(nomargin)) nomargin <- pander::panderOptions("graph.nomargin") if (missing(base_family)) base_family <- pander::panderOptions("graph.fontfamily") if (missing(fc)) fc <- pander::panderOptions("graph.fontcolor") if (missing(base_size)) base_size <- pander::panderOptions("graph.fontsize") if (missing(gM)) gM <- pander::panderOptions("graph.grid") if (missing(gm)) gm <- pander::panderOptions("graph.grid.minor") if (missing(gc)) gc <- pander::panderOptions("graph.grid.color") if (missing(gl)) gl <- pander::panderOptions("graph.grid.lty") if (missing(boxes)) boxes <- pander::panderOptions("graph.boxes") if (missing(bc)) bc <- pander::panderOptions("graph.background") if (missing(pc)) pc <- pander::panderOptions("graph.panel.background") if (missing(lp)) lp <- pander::panderOptions("graph.legend.position") if (missing(axis)) axis <- pander::panderOptions("graph.axis.angle") } ## DRY tc <- ifelse(pc == "transparent", bc, pc) # 'transparent' color ## default colors, font and legend position res <- theme(text = element_text(family = base_family), plot.background = element_rect(fill = bc, colour = NA), panel.grid = element_line(colour = gc, size = 0.2, linetype = gl), panel.grid.minor = element_line(size = 0.1), axis.ticks = element_line(colour = gc, size = 0.2), plot.title = element_text(colour = fc, face = "bold", size = base_size * 1.2), axis.text = element_text(colour = fc, face = "plain", size = base_size * 0.8), legend.text = element_text(colour = fc, face = "plain", size = base_size * 0.8), legend.title = element_text(colour = fc, face = "italic", size = base_size), axis.title.x = element_text(colour = fc, face = "plain", size = base_size), strip.text.x = element_text(colour = fc, face = "plain", size = base_size), axis.title.y = element_text(colour = fc, face = "plain", size = base_size, angle = 90), strip.text.y = element_text(colour = fc, face = "plain", size = base_size, angle = -90), legend.key = element_rect(colour = gc, fill = "transparent"), strip.background = element_rect(colour = gc, fill = "transparent"), panel.border = element_rect(fill = NA, colour = gc), panel.background = element_rect(fill = pc, colour = gc), legend.position = lp) ## disable box(es) around the plot if (!isTRUE(boxes)) { res <- res + theme(legend.key = element_rect(colour = "transparent", fill = "transparent"), strip.background = element_rect(colour = "transparent", fill = "transparent"), panel.border = element_rect(fill = NA, colour = tc), panel.background = element_rect(fill = pc, colour = tc)) } ## disable grid if (!isTRUE(gM)) { res <- res + theme(panel.grid = element_blank(), panel.grid.major = element_blank(), panel.grid.minor = element_blank()) } ## disable minor grid if (!isTRUE(gm)) res <- res + theme(panel.grid.minor = element_blank()) ## margin if (nomargin) res <- res + theme(plot.margin = unit(c(0.1, 0.1, 0.1, 0), "lines")) ## axis angle (TODO: DRY with ifelse in the default color etc. section) if (axis == 0) res <- res + theme(axis.text.y = element_text(colour = fc, family = base_family, face = "plain", size = base_size * 0.8, angle = 90)) if (axis == 2) res <- res + theme(axis.text.x = element_text(colour = fc, family = base_family, face = "plain", size = base_size * 0.8, angle = 90, hjust = 1)) if (axis == 3) res <- res + theme(axis.text.y = element_text(colour = fc, family = base_family, face = "plain", size = base_size * 0.8, angle = 90), axis.text.x = element_text(colour = fc, family = base_family, face = "plain", size = base_size * 0.8, angle = 90, hjust = 1)) res } #' Color palette from the pander package #' #' The \pkg{pander} ships with a default colorblind and printer-friendly #' color palette borrowed from \verb{http://jfly.iam.u-tokyo.ac.jp/color/}. #' #' @param n number of colors. This palette supports up to eight colors. #' @param random_order if the palette should be reordered randomly before #' rendering each plot to get colorful images #' @export #' @family colour pander #' @example inst/examples/ex-palette_pander.R palette_pander <- function(n, random_order = FALSE) { ## default (colorblind and printer-friendly) colors cols <- c("#56B4E9", "#009E73", "#F0E442", "#0072B2", "#D55E00", "#CC79A7", "#999999", "#E69F00") if (requireNamespace("pander", quietly = TRUE)) { cols <- pander::panderOptions("graph.colors") } if (isTRUE(random_order)) cols <- sample(cols) if (length(cols) < n) cols <- rep(cols, length.out = n) cols[1:n] } #' Color scale from the pander package #' #' The \pkg{pander} ships with a default colorblind and printer-friendly color #' palette borrowed from \verb{http://jfly.iam.u-tokyo.ac.jp/color/}. #' @inheritParams ggplot2::scale_colour_hue #' @inheritParams palette_pander #' @family colour pander #' @rdname scale_pander #' @seealso \code{\link{theme_pander}()} #' @export scale_color_pander <- function(...) { discrete_scale("colour", "pander", palette_pander, ...) } #' @rdname scale_pander #' @export scale_colour_pander <- scale_color_pander #' @rdname scale_pander #' @export scale_fill_pander <- function(...) { discrete_scale("fill", "pander", palette_pander, ...) } ggthemes/R/few.R0000644000176200001440000001123413340063344013163 0ustar liggesusers#' Color Palettes Few "Show Me the Numbers" #' #' Qualitative color palettes from Stephen Few (2012) #' \emph{Show Me the Numbers}. There are three palettes: #' Light, Medium, and Dark. Each palette comprises nine colors: #' gray, blue, orange, green, pink, brown, purple, yellow, red. #' For \code{n = 1}, gray is used. For \code{n > 1}, the eight non-gray #' colors are used. #' #' #' Use the light palette for filled areas, such as bar charts. #' Use the medium palette for points and lines. #' Use the dark palette for highlighting specific points #' or for small and thin lines and points. #' #' @references #' Few, S. (2012) \emph{Show Me the Numbers: Designing Tables and Graphs to Enlighten}. #' 2nd edition. Analytics Press. #' #' \href{http://www.perceptualedge.com/articles/visual_business_intelligence/rules_for_using_color.pdf}{"Practical Rules for Using Color in Charts"}. #' #' @export #' @param palette One of \Sexpr[results=rd]{names(ggthemes:::rd_optlist(ggthemes::ggthemes_data$few$colors))} #' @family colour few #' @example inst/examples/ex-few_pal.R few_pal <- function(palette = "Medium") { palette <- ggthemes::ggthemes_data$few$colors[[palette]] if (is.null(palette)) { stop("palette must be one of: ", paste0("\"", names(ggthemes::ggthemes_data$few$colors), "\"", collapse = ", "), call. = FALSE) } ## The first value, gray, is used for non-data parts. values <- palette[["value"]] max_n <- length(values) - 1L f <- function(n) { check_pal_n(n, max_n) if (n == 1L) { values[[1L]] } else { unname(values[2L:(n + 1L)]) } } attr(f, "max_n") <- length(values) - 1L f } #' Color scales from Few's "Practical Rules for Using Color in Charts" #' #' See \code{\link{few_pal}()}. #' #' @inheritParams ggplot2::scale_colour_hue #' @inheritParams few_pal #' @family colour few #' @rdname scale_few #' @export scale_colour_few <- function(palette = "Medium", ...) { discrete_scale("colour", "few", few_pal(palette), ...) } #' @export #' @rdname scale_few scale_color_few <- scale_colour_few #' @export #' @rdname scale_few scale_fill_few <- function(palette = "Light", ...) { discrete_scale("fill", "few", few_pal(palette), ...) } #' Theme based on Few's "Practical Rules for Using Color in Charts" #' #' Theme based on the rules and examples from Stephen Few's #' \emph{Show Me the Numbers} and "Practical Rules for Using Color in Charts". #' #' @references #' Few, S. (2012) \emph{Show Me the Numbers: Designing Tables and Graphs to Enlighten}. #' 2nd edition. Analytics Press. #' #' Stephen Few, "Practical Rules for Using Color in Charts", #' \url{http://www.perceptualedge.com/articles/visual_business_intelligence/rules_for_using_color.pdf}. #' #' @inheritParams ggplot2::theme_bw #' @family themes few #' @export #' @example inst/examples/ex-theme_few.R theme_few <- function(base_size = 12, base_family="") { gray <- "#4D4D4D" black <- "#000000" theme_bw(base_size = base_size, base_family = base_family) + theme( line = element_line(colour = gray), rect = element_rect(fill = "white", colour = NA), text = element_text(colour = black), axis.ticks = element_line(colour = gray), legend.key = element_rect(colour = NA), ## Examples do not use grid lines panel.border = element_rect(colour = gray), panel.grid = element_blank(), strip.background = element_rect(fill = "white", colour = NA) ) } #' Shape palette from "Show Me the Numbers" (discrete) #' #' Shape palette from Stephen Few's, "Show Me the Numbers". #' The shape palette consists of five shapes: circle, square, triangle, plus, #' times. #' #' @references Few, S. (2012) #' \emph{Show Me the Numbers: Designing Tables and Graphs to Enlighten}, #' Analytics Press, p. 208. #' #' @export few_shape_pal <- function() { shapes <- ggthemes::ggthemes_data[["few"]][["shapes"]] max_n <- nrow(shapes) f <- function(n) { check_pal_n(n, max_n) shapes[["pch"]][seq_len(n)] } attr(f, "max_n") <- max_n f } #' Scales for shapes from "Show Me the Numbers" #' #' \code{scale_shape_few()} maps discrete variables to up to five easily #' discernible shapes. It is based on the shape palette suggested in #' Few (2012). #' #' @param ... Common \code{\link[ggplot2]{discrete_scale}()} parameters. #' @references Few, S. (2012) #' \emph{Show Me the Numbers: Designing Tables and Graphs to Enlighten}, #' Analytics Press, p. 208. #' @seealso \code{\link{scale_shape_few}()} for the shape palette that this #' scale uses. #' @export scale_shape_few <- function(...) { discrete_scale("shape", "few", few_shape_pal(), ...) } ggthemes/R/base.R0000644000176200001440000003131613340064006013313 0ustar liggesusers#' Theme Base #' #' Theme similar to the default settings of the \sQuote{base} R graphics. #' #' @inheritParams ggplot2::theme_bw #' @export #' @family themes #' @example inst/examples/ex-theme_base.R theme_base <- function(base_size = 16, base_family = "") { theme_foundation() + theme(line = element_line(colour = "black", lineend = "round", linetype = "solid"), rect = element_rect(fill = "white", colour = "black", linetype = "solid"), text = element_text(colour = "black", face = "plain", family = base_family, size = base_size, vjust = 0.5, hjust = 0.5, lineheight = 1), panel.grid = element_blank(), strip.background = element_rect(colour = NA), legend.key = element_rect(colour = NA), title = element_text(size = rel(1)), plot.title = element_text(size = rel(1.2), face = "bold"), strip.text = element_text(), axis.ticks.length = unit(0.5, "lines") ) # TODO: get margins right } # Notes for generating a theme that uses par() for its values. # # $xlog # [1] TRUE # # $ylog # [1] TRUE # # Justification of strings in text, mtext, and title # # text = element_text(vjust = par()$adj, hjust = par$adj()) # $adj # [1] 0.5 # # $ann # [1] TRUE # # $ask # [1] FALSE # # Background. rect = element_rect(fill = par()$bg) # $bg # [1] "white" # # # Type of box drawn around the plot # # Which sides of the box to draw # $bty # [1] "o" # # # magnification of text and symbols relative to the default. ggplot uses base_size instead. # $cex # [1] 1 # # # mag of axis relative to current setting of cex # # axis.text = element_text(size = rel(par()$cex.axis)) # $cex.axis # [1] 1 # # mag of axis relative to current setting of cex # # axis.title = element_text(size = rel(par()$cex.lab)) # $cex.lab # [1] 1 # # # magnification of plot title relative to cex # # plot.title = element_text(size = rel(par()$cex.main)) # $cex.main # [1] 1.2 # # # ggplot does not have subtitles # # magnification of subtitle relative to cex # # strip.title = element_text(size = rel(par()$cex.sub)) # $cex.sub # [1] 1 # # $cin # # character size in inches # [1] 0.2000000 0.2666667 # # # default plotting color - not part of theme in gggplot # $col # [1] "black" # # # color for axis annotation # # # $col.axis # [1] "black" # # color for x and y labels # # axis.text = element_text(colour = par()$col.axis) # # # color for x and y labels # # axis.title = element_text(colour = par()$col.lab) # $col.lab # [1] "black" # # # color for main titles # # plot.title = element_text(colour = par()$col.main) # $col.main # [1] "black" # # # color for subtitles # # strip.title = element_text(colour = par()$col.sub) # $col.sub # [1] "black" # # # size of default character # $cra # [1] 14.4 19.2 # # # numerical values for how single characters rotated. Nothing similar in ggplot # $crt # [1] 0 # # # size of default characters in inches # # Is this base size? # $csi # [1] 0.2666667 # # # size of default character in user coord # # not relevant # $cxy # [1] 0.1859782 0.3665854 # # # device dimensions. not relevant # $din # [1] 11.236111 8.847222 # # # error reporting. not relevant # $err # [1] 0 # # # default font family # # base_family = par()$family # $family # [1] "" # # # color of foreground in plots. Used in axes and boxes around plots. # line = element_line(colour = par()$fg) # rect = element_rect(colour = par()$fg) # text = = element_text(colour = par()$fg) # $fg # [1] "black" # # # gives NDC coordinates of figure region in display device # $fig # [1] 0 1 0 1 # # # figure region dimensions in inches # # TODO: use for aspect ratio? # $fin # [1] 11.236111 8.847222 # # # which font to use for text. # # 1 = "plain" # # 2 = "bold" # # 3 = "italic" # # 4 = "bold.italic" # text = element_text(face = c("plain", "bold", "italic", "bold.italic")[par()$font]) # $font # [1] 1 # # # font to use for axis # axis.text = element_text(face = c("plain", "bold", "italic", "bold.italic")[par()$font]) # $font.axis # [1] 1 # # axis.title = element_text(face = c("plain", "bold", "italic", "bold.italic")[par()$font]) # $font.lab # [1] 1 # # axis.title = element_text(face = c("plain", "bold", "italic", "bold.italic")[par()$font]) # $font.main # [1] 2 # # strip.title = element_text(face = c("plain", "bold", "italic", "bold.italic")[par()$font]) # $font.sub # [1] 1 # # # default number of tick-marks in x and y, and label lenghth. # Not sure how that can be used # $lab # [1] 5 5 7 # # # style of axis labels. # # TODO: code that sets axis.text.x and axis.text.y angle according to its values. # $las # [1] 0 # # # line end style # line = element_line(lineend = par()$lend) # $lend # [1] "round" # # # line height # text = element_text(lineheight = par()$lheight * par()$??) # $lheight # [1] 1 # # # Line join style # # not sure how this is used in ggplot # $ljoin # [1] "round" # # # line mitre imit. Not used in ggplot2. # $lmitre # [1] 10 # # # Line type # # line = element_line(linetype = par()$lty) # $lty # [1] "solid" # # # Line width? # # Does this set size? ?? # # Maybe: line = element_line(size = par()$lwd) # $lwd # [1] 1 # # # margin size in inches # plot.margin = par()$mai # $mai # [1] 1.360000 1.093333 1.093333 0.560000 # # # Number of lines of margin. How is this different than mai? # $mar # [1] 5.1 4.1 4.1 2.1 # # $mex # [1] 1 # # # changes layout. ggplot uses facets. # $mfcol # [1] 1 1 # # # used for layout # $mfg # [1] 1 1 1 1 # # # changes layout. ggplot uses facets. # $mfrow # [1] 1 1 # # # margine line in mex units for axis title, axis labels, and axis.line # $mgp # [1] 3 1 0 # # # ignored in R # $mkh # [1] 0.001 # # # irrelevant to ggplot # $new # [1] FALSE # # # size of outer margins in lines of text # # TODO: what is this in ggplot # $oma # [1] 0 0 0 0 # # # regions inside out margins in NDC # # TODO: ? # $omd # [1] 0 1 0 1 # # # size of outer margins in inches # # TODO??? # $omi # [1] 0 0 0 0 # # # irrelevant # $page # [1] TRUE # # # dfault plotting symbol. not in themes. # $pch # [1] 1 # # # Plot dimensions in inches. # $pin # [1] 9.582778 6.393889 # # # Plot region as fractions of current figure region. # $plt # [1] 0.09730532 0.95016069 0.15372057 0.87642072 # # # point size of text (not symbols) # base_size = par()$ps # $ps # [1] 16 # # # type of region to be drawn. s = square. m = maximal. # # not sure how this maps to ggplot # $pty # [1] "m" # # # not used # $smo # [1] 1 # # # string rotation in degrees # # this is for text() plots not titles and labels # $srt # [1] 0 # # # length of tick marks # # use this to set axis.ticks.length # $tck # [1] NA # # # length of tick marks # $tcl # [1] -0.5 # # # extremes of user coord of plotting regsion # $usr # [1] -0.0381697 0.9924122 0.2730712 1.0279588 # # # used for generating ticks # $xaxp # [1] 1 10 3 # # # used to generate axis # $xaxs # [1] "r" # # # any values other than "n" implies plotting x axis. # $xaxt # [1] "s" # # $xpd # [1] FALSE # # $yaxp # [1] 2 10 -4 # # $yaxs # [1] "r" # # # any value other than "n" implies plotting y axis. # $yaxt # [1] "s" # # # positioning of text in margins by axis and mtext. # $ylbias # [1] 0.2 # #' Theme Par #' #' Theme which uses the current \sQuote{base} graphics parameter values #' from \code{\link[graphics]{par}()}. #' Not all \code{par()} parameters, are supported, and not all are relevant to #' \pkg{ggplot2} themes. #' #' Currently this theme uses the values of the parameters: #' \code{"code"}, "\code{"ps"}", \code{"code"} \code{"family"}, \code{"fg"}, #' \code{"bg"}, \code{"adj"}, \code{"font"}, \code{"cex.axis"}, #' \code{"cex.lab"}, \code{"cex.main"}, \code{"cex.sub"}, \code{"col.axis"}, #' \code{"col.lab"}, \code{"col.main"}, \code{"col.sub"}, \code{"font"}, #' \code{"font.axis"}, \code{"font.lab"}, \code{"font.main"}, #' \code{"font.sub"}, \code{"las"}, \code{"lend"}, #' \code{"lheight"}, \code{"lty"}, \code{"mar"}, \code{"ps"}, \code{"tcl"}, #' \code{"tck"}, \code{"xaxt"}, \code{"yaxt"}. #' #' This theme does not translate the base graphics perfectly, so the graphs #' produced by it will not be identical to those produced by base graphics, #' most notably in the spacing of the margins. #' #' @inheritParams ggplot2::theme_bw #' @export #' @family themes #' @example inst/examples/ex-theme_par.R theme_par <- function(base_size = par()$ps, base_family = par()$family) { faces <- c("plain", "bold", "italic", "bold.italic") half_line <- base_size / 2 thm <- theme_foundation() %+replace% theme(line = element_line(colour = par()$fg, size = 0.5, lineend = par()$lend, linetype = par()$lty), rect = element_rect(fill = par()$bg, colour = par()$fg, size = 0.5, linetype = par()$lty), text = element_text(colour = par()$fg, face = faces[par()$font], family = base_family, size = base_size, angle = 0, margin = margin(), vjust = par()$adj, hjust = par()$adj, lineheight = par()$lheight, debug = FALSE), axis.title = element_text(size = rel(par()$cex.lab), colour = par()$col.lab, face = faces[par()$font.lab]), axis.text = element_text(size = rel(par()$cex.axis), colour = par()$col.axis, face = faces[par()$font.axis]), axis.text.x = element_text(margin = margin(t = 0.8 * half_line / 2, b = 0.8 * half_line / 2)), axis.text.y = element_text(margin = margin(r = 0.8 * half_line / 2, l = 0.8 * half_line / 2)), axis.ticks = element_line(colour = par()$fg), legend.title = element_text(colour = par()$fg), legend.text = element_text(colour = par()$fg), legend.spacing = unit(0.2, "cm"), legend.key = element_rect(colour = NA), panel.spacing = unit(half_line, "pt"), panel.spacing.x = NULL, panel.spacing.y = NULL, panel.background = element_rect(fill = NA, colour = par()$col), panel.grid = element_blank(), plot.background = element_rect(colour = NA), plot.margin = unit(par()$mar, "lines"), plot.title = element_text(size = rel(par()$cex.main), face = faces[par()$font.main], colour = par()$col.main, margin = margin(b = half_line * 1.2)), strip.text = element_text(size = rel(par()$cex.sub), face = faces[par()$font.sub], colour = par()$col.sub), strip.text.x = element_text(margin = margin(t = half_line, b = half_line)), strip.text.y = element_text(margin = margin(l = half_line, r = half_line)), strip.background = element_rect(colour = NA) ) las <- par()$las if (las == 0) { # parallel to axis thm <- thm + theme(axis.title.x = element_text(angle = 0), axis.title.y = element_text(angle = 90)) } else if (las == 1) { # horizontal thm <- thm + theme(axis.title.x = element_text(angle = 0), axis.title.y = element_text(angle = 0)) } else if (las == 2) { # perpendicular thm <- thm + theme(axis.title.x = element_text(angle = 90), axis.title.y = element_text(angle = 0)) } else if (las == 3) { # vertical thm <- thm + theme(axis.title.x = element_text(angle = 90), axis.title.y = element_text(angle = 90)) } # ticks if (! is.na(par()$tck)) { thm <- thm + theme(axis.ticks.length = unit(- par()$tck, "snpc")) } else { thm <- thm + theme(axis.ticks.length = unit(- par()$tcl, "lines")) } # plot x or y axis if (par()$xaxt == "n") { thm <- thm + theme(axis.line.x = element_blank(), axis.text.x = element_blank(), axis.ticks.x = element_blank()) } if (par()$yaxt == "n") { thm <- thm + theme(axis.line.y = element_blank(), axis.text.y = element_blank(), axis.ticks.y = element_blank()) } thm # TODO: get margins right } ggthemes/R/stata.R0000644000176200001440000003216613432650751013533 0ustar liggesusers#' Stata color palettes (discrete) #' #' Stata color palettes. See Stata documentation for a description of #' the schemes, \url{http://www.stata.com/help.cgi?schemes}. #' #' All these palettes support up to 15 values. #' #' @param scheme \code{character}. One of \code{"s2color"}, #' \code{"s1rcolor"}, \code{"s1color"}, or \code{"mono"}. #' #' @export #' @family stata colour #' @example inst/examples/ex-stata_pal.R stata_pal <- function(scheme="s2color") { colors <- ggthemes::ggthemes_data[["stata"]][["colors"]][["schemes"]][[scheme]] max_n <- length(colors) f <- manual_pal(colors[["value"]]) attr(f, "max_n") <- max_n f } #' Stata color scales #' #' See \code{\link{stata_pal}()} for details. #' #' @inheritParams stata_pal #' @inheritParams ggplot2::scale_colour_hue #' @family colour stata #' @rdname scale_stata #' @export scale_colour_stata <- function(scheme="s2color", ...) { discrete_scale("colour", "stata", stata_pal(scheme), ...) } #' @export #' @rdname scale_stata scale_fill_stata <- function(scheme="s2color", ...) { discrete_scale("fill", "stata", stata_pal(scheme), ...) } #' @export #' @rdname scale_stata scale_color_stata <- scale_colour_stata #' @importFrom ggplot2 margin theme_stata_base <- function(base_size = 11, base_family = "sans") { ## Sizes relsz <- sapply(as.numeric(stata_gsize), `/`, y = as.numeric(stata_gsize$medium)) names(relsz) <- names(stata_gsize) theme_foundation() + theme(line = element_line(size = 0.5, linetype = 1, lineend = "butt", colour = "black"), rect = element_rect(size = 0.5, linetype = 1, fill = "white", colour = "black"), text = element_text(family = base_family, face = "plain", colour = "black", size = base_size, hjust = 0.5, vjust = 1, angle = 0, lineheight = 1, margin = margin(), debug = FALSE), title = element_text(), ## Axis axis.line = element_line(), axis.text = element_text(size = rel(relsz["medsmall"])), axis.text.x = element_text(vjust = 1), axis.text.y = element_text(angle = 90, vjust = 0.5), ## I cannot figure out how to get ggplot to do 2 levels of ticks axis.ticks = element_line(), axis.title = element_text(size = rel(relsz["medsmall"])), axis.title.x = element_text(), axis.title.y = element_text(angle = 90, vjust = 0), # axis.ticks.length = stata_gsize$tiny, # axis.ticks.margin = stata_gsize$half_tiny, axis.ticks.length = unit(4 / 11, "lines"), legend.background = element_rect(linetype = 1, size = rel(stata_linewidths[["thin"]])), legend.spacing = unit(1.2 / 100, "npc"), legend.key = element_rect(linetype = 0), legend.key.size = unit(1.2, "lines"), legend.key.height = NULL, legend.key.width = NULL, legend.text = element_text(size = rel(relsz["medsmall"])), legend.text.align = NULL, ## See textboxstyle leg_title legend.title = element_text(size = rel(relsz["large"]), hjust = 0), legend.title.align = 0.5, legend.position = "bottom", legend.direction = NULL, legend.justification = "center", legend.box = "vertical", ## plotregion panel.background = element_rect(), panel.border = element_blank(), panel.grid.major = element_line(), panel.grid.minor = element_blank(), panel.grid.major.x = element_blank(), panel.spacing = unit(0.25, "lines"), ## textboxstyle bytitle bytitle strip.background = element_rect(linetype = 0), strip.text = element_text(size = rel(relsz["medlarge"])), strip.text.x = element_text(vjust = 0.5), strip.text.y = element_text(angle = -90), plot.background = element_rect(linetype = 0, colour = NA), # Stata subtitle plot.title = element_text(size = rel(relsz["large"]), hjust = 0.5, vjust = 1), # Stata subtitle plot.subtitle = element_text(size = rel(relsz["medium"]), hjust = 0.5, vjust = 1), # Stata note plot.caption = element_text(size = rel(relsz["small"]), hjust = 0, vjust = 0), plot.margin = unit(rep(0.035, 4), "npc")) } #' @importFrom tibble deframe #' @importFrom stringr str_c theme_stata_colors <- function(scheme="s2color") { stata_colors <- ggthemes::ggthemes_data[["stata"]][["colors"]][["names"]] stata_colors <- deframe(stata_colors[, c("name", "value")]) schemes <- c("s2color", "s2mono", "s2manual", "sj", "s1color", "s1rcolor", "s1mono", "s1manual") if (scheme == "s2color") { color_plot <- stata_colors["ltbluishgray"] color_bg <- "white" color_fg <- "black" color_grid <- stata_colors["ltbluishgray"] #color_grid_major <- stata_colors["ltbluishgray"] fill_strip <- stata_colors["bluishgray"] color_strip <- NA color_title <- stata_colors["dknavy"] color_border <- NA legend_border <- "black" } else if (scheme %in% c("s2mono", "s2manual", "sj")) { color_plot <- stata_colors["gs15"] color_bg <- "white" color_fg <- "black" color_grid <- stata_colors["dimgray"] #color_grid_major <- stata_colors["dimgray"] fill_strip <- stata_colors["gs13"] color_strip <- NA color_title <- "black" color_border <- NA legend_border <- "black" } else if (scheme == "s1color") { color_plot <- "white" color_bg <- "white" color_fg <- "black" color_grid <- stata_colors["gs14"] fill_strip <- stata_colors["ltkhaki"] color_strip <- "black" color_title <- "black" color_border <- "black" legend_border <- "black" } else if (scheme == "s1rcolor") { color_plot <- "black" color_bg <- "black" color_fg <- "white" color_grid <- stata_colors["gs5"] fill_strip <- stata_colors["maroon"] color_strip <- "white" color_title <- "white" color_border <- "white" legend_border <- "black" } else if (scheme %in% c("s1mono", "s1manual")) { color_plot <- "white" color_bg <- "white" color_fg <- "black" color_grid <- stata_colors["gs14"] fill_strip <- stata_colors["gs13"] color_strip <- "black" color_title <- "black" color_border <- "black" legend_border <- "black" } else { stop(str_c("`scheme` must be one of: ", str_c(sort(schemes), collapse = ","), ", ")) } theme(line = element_line(colour = color_fg, linetype = 1), rect = element_rect(fill = color_bg, colour = color_fg, linetype = 1), text = element_text(colour = color_fg), title = element_text(colour = color_title), axis.title = element_text(colour = color_fg), axis.ticks.x = element_line(colour = color_fg), axis.ticks.y = element_line(colour = color_fg), axis.text.x = element_text(colour = color_fg), axis.text.y = element_text(colour = color_fg), legend.key = element_rect(fill = color_bg, colour = NA, linetype = 0), legend.background = element_rect(linetype = 1, colour = legend_border), panel.background = element_rect(fill = color_bg, colour = color_border, linetype = 1), panel.grid.major = element_line(colour = color_grid), strip.background = element_rect(fill = fill_strip, colour = color_strip, linetype = 1), plot.background = element_rect(fill = color_plot)) } #' Themes based on Stata graph schemes #' #' @param scheme One of "s2color", "s2mono", "s1color", #' "s1rcolor", or "s1mono", "s2manual", #' "s1manual", or "sj" #' @inheritParams ggplot2::theme_grey #' @export #' @family themes stata #' #' @details These themes approximate Stata schemes using the features #' \pkg{ggplot2}. The graphical models of Stata and ggplot2 differ #' in various ways that make an exact replication impossible (or #' more difficult than it is worth). #' Some features in Stata schemes not in ggplot2: #' defaults for specific graph types, different levels of titles, #' captions and notes. These themes also adopt some of the ggplot2 #' defaults, and more effort was made to match the colors and sizes #' of major elements than in matching the margins. #' #' @references \url{http://www.stata.com/help.cgi?schemes} #' #' @example inst/examples/ex-theme_stata.R theme_stata <- function(base_size = 11, base_family = "sans", scheme="s2color") { ## Sizes (theme_stata_base(base_size = eval(base_size), base_family = base_family) + theme_stata_colors(scheme = scheme)) } #' Stata shape palette (discrete) #' #' Shape palette based on the symbol palette in Stata used in scheme s2mono. #' This palette supports up to 10 values. #' #' @export #' @family shapes stata #' @seealso See \code{\link{scale_shape_stata}()} for examples. #' @importFrom purrr map_dfr map #' @importFrom tibble as_tibble #' @importFrom stringr str_replace stata_shape_pal <- function() { ## From s1mono, ignore small shapes shapes <- c("circle", "diamond", "square", "triangle", "X", "plus", "circle_hollow", "diamond_hollow", "square_hollow", "triangle_hollow") statadata <- ggthemes::ggthemes_data[["stata"]][["shapes"]] shapenames <- tibble::deframe(statadata[, c("symbolstyle", "unicode_value")]) values <- as.hexmode(str_replace(shapenames[shapes], "U\\+", "")) values <- -as.integer(values) out <- manual_pal(values) attr(out, "max_n") <- length(shapes) out } #' Stata shape scale #' #' See \code{\link{stata_shape_pal}()} for details. #' #' @inheritParams ggplot2::scale_x_discrete #' @family shape stata #' @export #' @example inst/examples/ex-scale_shape_stata.R #' @importFrom ggplot2 discrete_scale scale_shape_stata <- function(...) { discrete_scale("shape", "stata", stata_shape_pal(), ...) } #' Stata linetype palette (discrete) #' #' Linetype palette based on the linepattern scheme in Stata. #' This palette supports up to 15 values. #' #' @family linetype stata #' @export #' @seealso \code{\link{scale_linetype_stata}()} stata_linetype_pal <- function() { values <- ggthemes::ggthemes_data[["stata"]][["linetypes"]] f <- function(n) { values[seq_len(n)] } attr(f, "max_n") <- length(values) f } #' Stata linetype palette (discrete) #' #' See \code{\link{stata_linetype_pal}()} for details. #' #' @inheritParams ggplot2::scale_x_discrete #' @family linetype stata #' @export #' @example inst/examples/ex-scale_linetype_stata.R scale_linetype_stata <- function(...) { discrete_scale("linetype", "stata", stata_linetype_pal(), ...) } ## Text sizes (from style definitions ado/base/style/gsize-*.style) stata_gsize <- lapply(c(default = 4.1667, full = 100, half = 50, half_tiny = 0.6944, huge = 6.944, large = 4.8611, medium = 3.8194, medlarge = 4.1667, medsmall = 3.4722, miniscule = 0.3472, quarter = 25, quarter_tiny = 0.34722, small = 2.777, tenth = 10, third = 33.33333333333, third_tiny = 0.46296, tiny = 1.3888, vhuge = 9.7222, vlarge = 5.5556, vsmall = 2.0833, zero = 0) / 100, unit, units = "npc") # Line width styles ado/base/style/linewidth-*.style # original values in npc * 100 # provide this in terms of relative values to medium stata_linewidths <- c(medium = 0.3, medthick = 0.45, medthin = 0.25, none = 0, thick = 0.8, thin = 0.2, vthick = 1.4, thin = 0.15, vvthick = 2.6, vvthin = 0.01, vvvthick = 4.2, vvvthin = .000001) / 0.3 # Stata margin styles # From ado/base/style/margin-*.style stata_margins <- list(bargraph = c(3.5, 3.5, 3.5, 0), bottom = c(0, 0, 0, 3), ebargraph = c(1.5, 1.5, 1.5, 0), esubhead = c(2.2, 2.2, 0, 4), horiz_bargraph = c(0, 3.5, 3.5, 3.5), large = c(8, 8, 8, 8), left = c(3, 0, 0, 0), medium = c(3.5, 3.5, 3.5, 3.5), medlarge = c(5, 5, 5, 5), medsmall = c(2.2, 2.2, 2.2, 2.2), right = c(0, 3, 0, 0), sides = c(3.5, 3.5, 0, 0), small = rep(1.2, 4), tiny = rep(0.3, 4), top_bottom = c(0, 0, 3.5, 3.5), top = c(0, 0, 3, 0), vlarge = rep(12, 4), vsmall = rep(0.6, 4), zero = rep(0, 4)) # s1mono line # linepattern p1line solid # linepattern p2line dash # linepattern p3line vshortdash # linepattern p4line longdash_dot # linepattern p5line longdash # linepattern p6line dash_dot # linepattern p7line dot # linepattern p8line shortdash_dot # linepattern p9line tight_dot # linepattern p10line dash_dot_dot # linepattern p11line longdash_shortdash # linepattern p12line dash_3dot # linepattern p13line longdash_dot_dot # linepattern p14line shortdash_dot_dot # linepattern p15line longdash_3dot ggthemes/R/economist.R0000644000176200001440000002150413340064050014376 0ustar liggesusers#' Economist color palette (discrete) #' #' The hues in the palette are blues, grays, and greens. Red is not #' included in these palettes and should be used to indicate #' important data. #' #' @param fill Use the fill palette. #' @family colour economist #' @export #' @example inst/examples/ex-economist_pal.R economist_pal <- function(fill=TRUE) { colors <- deframe(ggthemes::ggthemes_data[["economist"]][["fg"]]) if (fill) { max_n <- 9 f <- function(n) { check_pal_n(n, max_n) if (n == 1L) { i <- "dark blue" } else if (n == 2L) { i <- c("blue", "dark blue") } else if (n == 3L) { i <- c("blue-gray", "dark blue", "blue") } else if (n == 4L) { i <- c("blue-gray", "dark blue", "blue", "gray") } else if (n %in% 5:6) { ## 20120901_woc904 i <- c("blue-gray", "dark blue", "light blue", "blue", "light green", "dark green") } else if (n == 7L) { # 20120818_AMC820 i <- c("blue-gray", "dark blue", "blue", "light blue", "dark green", "light green", "gray") } else if (n >= 8L) { # 20120915_EUC094 i <- c("blue-gray", "dark blue", "blue", "light blue", "dark green", "light green", "dark red", "pink", "gray") } unname(colors[i][seq_len(n)]) } } else { max_n <- 9 f <- function(n) { check_pal_n(n, max_n) if (n <= 3) { # 20120818_AMC20 # 20120901_FBC897 i <- c("dark blue", "blue", "light blue") } else if (n %in% 4:5) { # i <- c("dark blue", "blue", "light blue", "red", "gray") i <- c("dark blue", "blue", "light blue", "blue-gray", "gray") } else if (n == 6) { # 20120825_IRC829 i <- c("light green", "dark green", "gray", "blue-gray", "light blue", "dark blue") } else if (n > 6) { # 20120825_IRC829 i <- c("light green", "dark green", "gray", "blue-gray", "light blue", "dark blue", "dark red", "pink", "brown") } unname(colors[i][seq_len(n)]) } } attr(f, "max_n") <- max_n f } #' Economist color scales #' #' Color scales using the colors in the Economist graphics. #' #' @inheritParams ggplot2::scale_colour_hue #' @inheritParams economist_pal #' @family colour economist #' @rdname scale_economist #' @seealso \code{\link{theme_economist}()} for examples. #' @export scale_colour_economist <- function(...) { discrete_scale("colour", "economist", economist_pal(), ...) } #' @rdname scale_economist #' @export scale_color_economist <- scale_colour_economist #' @rdname scale_economist #' @export scale_fill_economist <- function(...) { discrete_scale("fill", "economist", economist_pal(), ...) } #' ggplot color theme based on the Economist #' #' A theme that approximates the style of \emph{The Economist}. #' #' \code{theme_economist} implements the standard bluish-gray #' background theme in the print \emph{The Economist} and #' \href{http://economist.com}{economist.com}. #' #' \code{theme_economist_white} implements a variant with a while #' panel and light gray (or white) background often used by \emph{The Economist} #' blog \href{http://www.economist.com/blogs/graphicdetail}{Graphic Detail}. #' #' Use \code{\link{scale_color_economist}()} with this theme. #' The x axis should be displayed on the right hand side. #' #' \emph{The Economist} uses "ITC Officina Sans" as its font for graphs. If #' you have access to this font, you can use it with the #' \pkg{extrafont} package. "Verdana" is a good substitute. #' #' @inheritParams ggplot2::theme_grey #' @param horizontal \code{logical} Horizontal axis lines? #' @param dkpanel \code{logical} Darker background for panel region? #' @param gray_bg \code{logical} If \code{TRUE}, use gray background, else #' use white #' background. #' #' @return An object of class \code{\link[ggplot2]{theme}()}. #' #' @export #' @family themes economist #' #' @references #' \itemize{ #' \item \href{http://economist.com}{The Economist} #' \item \href{http://spiekermann.com/en/itc-officina-display/}{Spiekerblog, "ITC Officina Display", January 1, 2007.} #' \item \url{http://www.economist.com/help/about-us} #' } #' #' @example inst/examples/ex-theme_economist.R theme_economist <- function(base_size = 10, base_family = "sans", horizontal = TRUE, dkpanel = FALSE) { bgcolors <- deframe(ggthemes::ggthemes_data[["economist"]][["bg"]]) ## From measurements ## Ticks = 1 / 32 in, with margin about 1.5 / 32 ## Title = 3 / 32 in (6 pt) ## Legend Labels = 2.5 / 32 in (5pt) ## Axis Labels = 2 ## Axis Titles and other text ~ 2 ## Margins: Top / Bottom = 6 / 32, sides = 5 / 32 ret <- theme_foundation(base_size = base_size, base_family = base_family) + theme(line = element_line(colour = "black"), rect = element_rect(fill = bgcolors["ebg"], colour = NA, linetype = 1), text = element_text(colour = "black"), ## Axis axis.line = element_line(size = rel(0.8)), axis.line.y = element_blank(), axis.text = element_text(size = rel(1)), axis.text.x = element_text(vjust = 0, margin = margin(t = base_size, unit = "pt")), axis.text.y = element_text(hjust = 0, margin = margin(r = base_size, unit = "pt")), ## I cannot figure out how to get ggplot to do 2 levels of ticks ## axis.ticks.margin = unit(3 / 72, "in"), axis.ticks = element_line(), axis.ticks.y = element_blank(), axis.title = element_text(size = rel(1)), axis.title.x = element_text(), axis.title.y = element_text(angle = 90), # axis.ticks.length = unit( -1/32, "in"), axis.ticks.length = unit( -base_size * 0.5, "points"), legend.background = element_rect(linetype = 0), legend.spacing = unit(base_size * 1.5, "points"), legend.key = element_rect(linetype = 0), legend.key.size = unit(1.2, "lines"), legend.key.height = NULL, legend.key.width = NULL, legend.text = element_text(size = rel(1.25)), legend.text.align = NULL, legend.title = element_text(size = rel(1), hjust = 0), legend.title.align = NULL, legend.position = "top", legend.direction = NULL, legend.justification = "center", ## legend.box = element_rect(fill = palette_economist['bgdk'], ## colour=NA, linetype=0), ## Economist only uses vertical lines panel.background = element_rect(linetype = 0), panel.border = element_blank(), panel.grid.major = element_line(colour = "white", size = rel(1.75)), panel.grid.minor = element_blank(), panel.spacing = unit(0.25, "lines"), strip.background = element_rect(fill = bgcolors["ebg"], colour = NA, linetype = 0), strip.text = element_text(size = rel(1.25)), strip.text.x = element_text(), strip.text.y = element_text(angle = -90), plot.background = element_rect(fill = bgcolors["blue-gray"], colour = NA), plot.title = element_text(size = rel(1.5), hjust = 0, face = "bold"), plot.margin = unit(c(6, 5, 6, 5) * 2, "points"), complete = TRUE) if (horizontal) { ret <- ret + theme(panel.grid.major.x = element_blank()) } else { ret <- ret + theme(panel.grid.major.y = element_blank()) } if (dkpanel == TRUE) { ret <- ret + theme(panel.background = element_rect(fill = unname(bgcolors["dark blue-gray"])), strip.background = element_rect(fill = unname(bgcolors["dark blue-gray"]))) } ret } #' @rdname theme_economist #' @export theme_economist_white <- function(base_size = 11, base_family = "sans", gray_bg = TRUE, horizontal = TRUE) { if (gray_bg) { bgcolor <- get_colors(c("economist", "bg"), "light gray") } else { bgcolor <- "white" } theme_economist(base_family = base_family, base_size = base_size, horizontal = horizontal) + theme(rect = element_rect(fill = bgcolor), plot.background = element_rect(fill = bgcolor), panel.background = element_rect(fill = "white"), panel.grid.major = element_line(colour = get_colors(c("economist", "bg"), "dark gray")), strip.background = element_rect(fill = "white")) } ggthemes/R/stat-fivenumber.R0000644000176200001440000000614313432650057015525 0ustar liggesusers#' Calculate components of a five-number summary #' #' The five number summary of a sample is the minimum, first quartile, #' median, third quartile, and maximum. #' #' @param na.rm If \code{FALSE} (the default), removes missing values with #' a warning. If \code{TRUE} silently removes missing values. #' @param probs Quantiles to use for the five number summary. #' @inheritParams ggplot2::stat_identity #' @return A data frame with additional columns: #' \item{width}{width of boxplot} #' \item{min}{minimum} #' \item{lower}{lower hinge, 25\% quantile} #' \item{middle}{median, 50\% quantile} #' \item{upper}{upper hinge, 75\% quantile} #' \item{max}{maximum} #' @seealso \code{\link[ggplot2]{stat_boxplot}()} #' @export stat_fivenumber <- function(mapping = NULL, data = NULL, geom = "boxplot", probs = c(0, 0.25, 0.5, 0.75, 1), na.rm = FALSE, position = "identity", show.legend = NA, inherit.aes = TRUE, ...) { layer( data = data, mapping = mapping, stat = StatFivenumber, geom = geom, position = position, show.legend = show.legend, inherit.aes = inherit.aes, params = list( probs = probs, na.rm = na.rm, ... ) ) } #' @export #' @format NULL #' @usage NULL #' @rdname stat_fivenumber StatFivenumber <- ggplot2::ggproto("StatFivenumber", ggplot2::Stat, required_aes = "y", non_missing_aes = "weight", setup_data = function(data, params) { data$x <- data$x %||% 0 data <- remove_missing( data, na.rm = FALSE, vars = "x", name = "stat_fivenumber" ) data }, setup_params = function(data, params) { params$width <- params$width %||% (resolution(data$x %||% 0) * 0.75) if (is.double(data$x) && !has_groups(data) && any(data$x != data$x[1L])) { warning( "Continuous x aesthetic -- did you forget aes(group=...)?", call. = FALSE) } params }, compute_group = function(data, scales, width = NULL, na.rm = FALSE, probs = c(0, 0.25, 0.5, 0.75, 1)) { if (length(probs) != 5) { stop("'probs' should contain 5 quantiles.") } probs <- sort(probs) if (!is.null(data$weight)) { mod <- quantreg::rq(y ~ 1, weights = weight, tau = probs, data = data) stats <- as.numeric(stats::coef(mod)) } else { stats <- as.numeric(quantile(data$y, probs = probs)) } names(stats) <- c("ymin", "lower", "middle", "upper", "ymax") df <- as.data.frame(as.list(stats)) if (is.null(data$weight)) { n <- sum(!is.na(data$y)) } else { # Sum up weights for non-NA positions of y and weight n <- sum(data$weight[!is.na(data$y) & !is.na(data$weight)]) } df$x <- if (is.factor(data$x)) data$x[1] else mean(range(data$x)) df$width <- width df$relvarwidth <- sqrt(n) df } ) ggthemes/R/banking.R0000644000176200001440000000767713340064023014026 0ustar liggesusers## 45 degrees in radians FORTY_FIVE <- base::pi / 4 calc_slopes <- function(x, y, cull = FALSE) { dx <- abs(diff(x)) dy <- diff(y) s <- dy / dx touse <- if (cull) { abs(s) > 0 & is.finite(s) } else { is.finite(s) } list(s = s[touse], dx = dx[touse], dy = dy[touse], Rx = diff(range(x)), Ry = diff(range(y))) } #' Bank Slopes to 45 degrees #' #' Calculate the optimal aspect ratio of a line graph by banking the #' slopes to 45 degrees as suggested by W.S. Cleveland. This #' maximizes the ability to visually differentiate differences in #' slope. This function will calculate the optimal aspect ratio for #' a line plot using any of the methods described in Herr and Argwala #' (2006). In their review of the methods they suggest using median #' absolute slope banking ('ms'), which produces aspect ratios which #' are generally the median of the various methods provided here. #' #' @param x x values #' @param y y values #' @param cull \code{logical}. Remove all slopes of 0 or \code{Inf}. #' @param method One of 'ms' (Median Absolute Slope) or 'as' (Average #' Absolute Slope). Other options are no longer supported, and will use #' 'ms' instead with a warning. #' @param weight No longer used, but kept for backwards compatibility. #' @param ... No longer used, but kept for backwards compatibility. #' #' @section Methods: #' #' As written, all of these methods calculate the aspect ratio (x #' /y), but \code{bank_slopes} will return (y / x) to be compatible #' with \code{link[ggplot2]{coord_fixed()}}. #' #' \strong{Median Absolute Slopes Banking} #' #' Let the aspect ratio be \eqn{\alpha = \frac{w}{h}}{alpha = w / h} #' then the median absolute slop banking is the #' \eqn{\alpha}{alpha} such that, #' \deqn{ #' median \left| \frac{s_i}{\alpha} \right| = 1 #' }{ #' median |s_i / alpha| #' } #' #' Let \eqn{R_z = z_{max} - z_{min}}{R_z = z_max - z_min} for \eqn{z = x, y}, #' and \eqn{M = median \| s_i \|}{M = median | s_i |}. Then, #' \deqn{ #' \alpha = M \frac{R_x}{R_y} #' }{ #' alpha = M R_x / R_y #' } #' #' \strong{Average Absolute Slope Banking} #' #' Let the aspect ratio be \eqn{\alpha = \frac{w}{h}}{alpha = w/h}. #' then the mean absolute slope banking is the #' \eqn{\alpha}{alpha} such that, #' \deqn{ #' mean \left| \frac{s_i}{\alpha} \right| = 1 #' }{ #' mean |s_i / alpha| = 1 #' } #' #' Heer and Agrawala (2006) and Cleveland discuss several other methods #' including average (weighted) orientation, and global and local orientation resolution. #' These are no longer implemented in this function. In general, either the #' median or average absolute slopes will produce reasonable results without #' requiring optimization. #' #' @references #' Cleveland, W. S., M. E. McGill, and R. McGill. The Shape Parameter #' of a Two-Variable Graph. Journal of the American Statistical #' Association, 83:289-300, 1988 #' #' Heer, Jeffrey and Maneesh Agrawala, 2006. 'Multi-Scale Banking to 45' #' IEEE Transactions On Visualization And Computer Graphics. #' #' Cleveland, W. S. 1993. 'A Model for Studying Display Methods of Statistical #' Graphs.' Journal of Computational and Statistical Graphics. #' #' Cleveland, W. S. 1994. The Elements of Graphing Data, Revised Edition. #' #' @return \code{numeric} The aspect ratio (x , y). #' #' @seealso \code{\link[lattice]{banking}()} #' @export #' @example inst/examples/ex-bank_slopes.R bank_slopes <- function(x, y, cull = FALSE, weight = NULL, method = c("ms", "as"), ...) { method <- match.arg(method) FUN <- bank_slopes_funs[[method]] # Heer produces functions with the target alpha = w/h = x/y xyrat <- FUN(calc_slopes(x, y, cull = cull), ...) # but coord_fixed ratio is the aspect ratio y/x 1 / xyrat } bank_slopes_funs <- list() bank_slopes_funs[["ms"]] <- function(slopes, ...) { median(abs(slopes$s)) * slopes$Rx / slopes$Ry } bank_slopes_funs[["as"]] <- function(slopes, ...) { mean(abs(slopes$s)) * slopes$Rx / slopes$Ry } ggthemes/R/shapes.R0000644000176200001440000001340513340063450013665 0ustar liggesusers#' Shape palette from Cleveland "Elements of Graphing Data" (discrete). #' #' Shape palettes for overlapping and non-overlapping points. #' #' @param overlap \code{logical} Use the scale for overlapping points? #' #' @note #' #' In the \emph{Elements of Graphing Data}, W.S. Cleveland suggests #' two shape palettes for scatter plots: one for overlapping data and #' another for non-overlapping data. The symbols for overlapping data #' relies on pattern discrimination, while the symbols for #' non-overlapping data vary the amount of fill. This palette #' attempts to create these palettes. However, I found that these #' were hard to replicate. Using the R shapes and unicode fonts: the #' symbols can vary in size, they are dependent of the fonts used, #' and there does not exist a unicode symbol for a circle with a #' vertical line. If someone can improve this palette, please let me #' know. #' #' Following Tremmel (1995), I replace the circle with a vertical #' line with an encircled plus sign. #' #' The palette \code{cleveland_shape_pal()} supports up to five values. #' #' @example inst/examples/ex-cleveland_shape_pal.R #' @references #' Cleveland WS. \emph{The Elements of Graphing Data}. Revised Edition. Hobart Press, Summit, NJ, 1994, pp. 154-164, 234-239. #' #' Tremmel, Lothar, (1995) "The Visual Separability of Plotting Symbols in Scatterplots", \emph{Journal of Computational and Graphical Statistics}, #' \url{http://www.jstor.org/stable/1390760} #' #' @family shapes #' @export cleveland_shape_pal <- function(overlap = TRUE) { shapes <- if (overlap[[1]]) { ggthemes::ggthemes_data$shapes$cleveland$overlap$pch } else { ggthemes::ggthemes_data$shapes$cleveland$default$pch } max_n <- length(shapes) f <- manual_pal(shapes) attr(f, "max_n") <- max_n f } #' Shape scales from Cleveland "Elements of Graphing Data" #' #' @inheritParams ggplot2::scale_x_discrete #' @inheritParams cleveland_shape_pal #' @export #' #' @family shapes #' @seealso \code{\link{cleveland_shape_pal}()} for a description of the palette. #' @references #' Cleveland WS. The Elements of Graphing Data. Revised Edition. #' Hobart Press, Summit, NJ, 1994, pp. 154-164, 234-239. #' scale_shape_cleveland <- function(overlap = TRUE, ...) { discrete_scale("shape", "cleveland", cleveland_shape_pal(overlap), ...) } #' Filled Circle Shape palette (discrete) #' #' Shape palette with circles varying by amount of fill. This uses #' the set of 3 circle fill values in Lewandowsky and Spence (1989): #' solid, hollow, half-filled, with two additional fill amounts: #' three-quarters, and one-quarter. #' #' This palette supports up to five values. #' #' @references #' Lewandowsky, Stephan and Ian Spence (1989) #' "Discriminating Strata in Scatterplots", Journal of #' the American Statistical Association, \url{http://www.jstor.org/stable/2289649} #' @example inst/examples/ex-circlefill_shape_pal.R #' @family shapes #' @export circlefill_shape_pal <- function() { values <- ggthemes::ggthemes_data[["shapes"]][["circlefill"]][["pch"]] max_n <- length(values) f <- manual_pal(values) attr(f, "max_n") <- max_n f } #' Filled Circle Shape palette (discrete) #' #' @export #' #' @inheritParams ggplot2::scale_x_discrete #' @family shapes #' @seealso #' \code{\link{circlefill_shape_pal}()} for a description of the palette. scale_shape_circlefill <- function(...) { discrete_scale("shape", "circlefill", circlefill_shape_pal(), ...) } #' Shape palette from Tremmel (1995) (discrete) #' #' Based on experiments Tremmel (1995) suggests the following shape palettes: #' #' If two symbols, then use a solid circle and plus sign. #' #' If three symbols, then use a solid circle, empty circle, and an #' empty triangle. However, that set of symbols does not satisfy the #' requirement that each symbol should differ from the other symbols #' in the same feature dimension. A set of three symbols that #' satisfies this is a circle (curvature), plus sign (number of #' terminators), triangle (line orientation). #' #' This palette supports up to three values. #' If more than three groups of data, then separate the groups into #' different plots. #' #' @param overlap use an empty circle instead of a solid circle when #' \code{n == 2}. #' @param alt,n3alt If \code{TRUE}, then when \code{n == 3}, #' use a solid circle, plus sign and #' empty triangle. Otherwise use a solid circle, empty circle, and empty #' triangle. #' @family shapes #' @references #' Tremmel, Lothar, (1995) "The Visual Separability of Plotting Symbols in Scatterplots" #' Journal of Computational and Graphical Statistics, #' \url{http://www.jstor.org/stable/1390760} #' @export tremmel_shape_pal <- function(overlap = FALSE, alt = FALSE, n3alt = NULL) { if (!is.null(n3alt)) { warning("`n3alt` is deprecated. Use `alt` instead.") alt <- n3alt[[1]] } max_n <- 3L palettes <- ggthemes::ggthemes_data$shapes$tremmel f <- function(n) { check_pal_n(n, max_n) if (n == 1) { palettes[["1"]]$pch } else if (n == 2) { if (overlap[[1]]) { palettes[["2-overlap"]]$pch } else { palettes[["2"]]$pch } } else if (n >= 3) { out <- rep(NA_integer_, n) out[1:3] <- if (alt) { palettes[["3-alternate"]]$pch } else { palettes[["3"]]$pch } out } } attr(f, "max_n") <- max_n f } #' Shape scales from Tremmel (1995) #' #' @inheritParams ggplot2::scale_x_discrete #' @inheritParams tremmel_shape_pal #' #' @seealso \code{\link{tremmel_shape_pal}()} for a description of the palette. #' @example inst/examples/ex-scale_shape_tremmel.R #' @family shapes #' @export scale_shape_tremmel <- function(overlap=FALSE, alt=TRUE, ...) { discrete_scale("shape", "tremmel", tremmel_shape_pal(overlap = overlap, alt = alt), ...) } ggthemes/R/scales.R0000644000176200001440000001466513340063370013666 0ustar liggesusers# Much of this code is copied from the labeling package. .simplicity <- function(q, Q, j, lmin, lmax, lstep) { eps <- .Machine$double.eps * 100 n <- length(Q) i <- match(q, Q)[1] v <- ifelse( (lmin %% lstep < eps || lstep - (lmin %% lstep) < eps) && lmin <= 0 && lmax >= 0, 1, 0) 1 - (i - 1) / (n - 1) - j + v } .simplicity.max <- function(q, Q, j) { n <- length(Q) i <- match(q, Q)[1] v <- 1 1 - (i - 1) / (n - 1) - j + v } .coverage <- function(dmin, dmax, lmin, lmax) { range <- dmax - dmin 1 - 0.5 * ( (dmax - lmax) ^ 2 + (dmin - lmin) ^ 2) / ( (0.1 * range) ^ 2) } .coverage.max <- function(dmin, dmax, span) { range <- dmax - dmin if (span > range) { half <- (span - range) / 2 1 - 0.5 * (half ^ 2 + half ^ 2) / ( (0.1 * range) ^ 2) } else { 1 } } .density <- function(k, m, dmin, dmax, lmin, lmax) { r <- (k - 1) / (lmax - lmin) rt <- (m - 1) / (max(lmax, dmax) - min(dmin, lmin)) 2 - max( r / rt, rt / r ) } .density.max <- function(k, m) { if (k >= m) { 2 - (k - 1) / (m - 1) } else { 1 } } .legibility <- function(lmin, lmax, lstep) { 1 } #' Pretty axis breaks inclusive of extreme values #' #' This function returns pretty axis breaks that always include the extreme values of the data. #' This works by calling the extended Wilkinson algorithm (Talbot et. al, 2010), constrained to solutions interior to the data range. #' Then, the minimum and maximum labels are moved to the minimum and maximum of the data range. #' #' \code{extended_range_breaks} implements the algorithm and returns the break values. #' \code{scales_extended_range_breaks} uses the conventions of the \pkg{scales} package, and returns a function. #' #' @param dmin minimum of the data range #' @param dmax maximum of the data range #' @param n desired number of breaks #' @param Q set of nice numbers #' @param w weights applied to the four optimization components (simplicity, coverage, density, and legibility) #' @return For \code{extended_range_breaks}, the vector of axis label locations. #' For \code{scales_extended_range_breaks}, a function which takes a single argument, a vector of data, and returns the vector of axis label locations. #' @references #' Talbot, J., Lin, S., Hanrahan, P. (2010) An Extension of Wilkinson's Algorithm for Positioning Tick Labels on Axes, InfoVis 2010. #' @author Justin Talbot \email{jtalbot@@stanford.edu}, Jeffrey B. Arnold, Baptiste Auguie #' @rdname range_breaks #' @export extended_range_breaks_ <- function(dmin, dmax, n = 5, Q = c(1, 5, 2, 2.5, 4, 3), w = c(0.25, 0.2, 0.5, 0.05)) { eps <- .Machine$double.eps * 100 if (dmin > dmax) { temp <- dmin dmin <- dmax dmax <- temp } if (dmax - dmin < eps) { #if the range is near the floating point limit, #let seq generate some equally spaced steps. return(seq(from = dmin, to = dmax, length.out = n)) } n <- length(Q) best <- list() best$score <- -2 j <- 1 while (j < Inf) { for (q in Q) { sm <- .simplicity.max(q, Q, j) if ( (w[1] * sm + w[2] + w[3] + w[4]) < best$score) { j <- Inf break } k <- 2 while (k < Inf) { dm <- .density.max(k, n) if ( (w[1] * sm + w[2] + w[3] * dm + w[4]) < best$score) break delta <- (dmax - dmin) / (k + 1) / j / q z <- ceiling(log(delta, base = 10)) while (z < Inf) { step <- j * q * 10 ^ z cm <- .coverage.max(dmin, dmax, step * (k - 1)) if ( (w[1] * sm + w[2] * cm + w[3] * dm + w[4]) < best$score) break min_start <- floor(dmax / (step)) * j - (k - 1) * j max_start <- ceiling(dmin / (step)) * j if (min_start > max_start) { z <- z + 1 next } for (start in min_start:max_start) { lmin <- start * (step / j) lmax <- lmin + step * (k - 1) lstep <- step s <- .simplicity(q, Q, j, lmin, lmax, lstep) c <- .coverage(dmin, dmax, lmin, lmax) g <- .density(k, n, dmin, dmax, lmin, lmax) l <- .legibility(lmin, lmax, lstep) score <- w[1] * s + w[2] * c + w[3] * g + w[4] * l if (score > best$score && lmin >= dmin && lmax <= dmax) { best <- list(lmin = lmin, lmax = lmax, lstep = lstep, score = score) } } z <- z + 1 } k <- k + 1 } } j <- j + 1 } breaks <- seq(from = best$lmin, to = best$lmax, by = best$lstep) if (length(breaks) >= 2) { breaks[1] <- dmin breaks[length(breaks)] <- dmax } breaks } #' @rdname range_breaks #' @param ... other arguments passed to \code{extended_range_breaks_()} #' @return A function which returns breaks given a vector. #' @export extended_range_breaks <- function(n = 5, ...) { function(x) { extended_range_breaks_(min(x), max(x), n, ...) } } # from scales package zero_range <- function(x, tol = 1000 * .Machine$double.eps) { if (length(x) == 1) return(TRUE) if (length(x) != 2) stop("x must be length 1 or 2") if (any(is.na(x))) return(NA) if (x[1] == x[2]) return(TRUE) if (all(is.infinite(x))) return(FALSE) m <- min(abs(x)) if (m == 0) return(FALSE) abs( (x[1] - x[2]) / m) < tol } # from scales package precision <- function(x) { rng <- range(x, na.rm = TRUE) span <- if (zero_range(rng)) abs(rng[1]) else diff(rng) 10 ^ floor(log10(span)) } #' Format numbers with automatic number of digits #' #' @param x A numeric vector to format #' @param ... Parameters passed to \code{\link{format}()} #' #' @references Josh O'Brien, #' \url{http://stackoverflow.com/questions/23169938/select-accuracy-to-display-additional-axis-breaks/23171858#23171858}. #' @author Josh O'Brien, Baptise Auguie, Jeffrey B. Arnold #' @return A character vector. #' \code{smart_digits_format()} returns a function with a single argument #' \code{x}, a numeric vector, that returns a charactger vector. #' #' @rdname smart_digits #' @export smart_digits <- function(x, ...) { if (length(x) == 0) return(character()) accuracy <- precision(x) x <- round(x / accuracy) * accuracy format(x, ...) } #' @rdname smart_digits #' @export smart_digits_format <- function(x, ...) { function(x) smart_digits(x, ...) } ggthemes/R/tufte.R0000644000176200001440000000312113432651011013521 0ustar liggesusers#' Tufte Maximal Data, Minimal Ink Theme #' #' Theme based on Chapter 6 'Data-Ink Maximization and Graphical #' Design' of Edward Tufte *The Visual Display of Quantitative #' Information*. No border, no axis lines, no grids. This theme works #' best in combination with \code{\link{geom_rug}()} or #' \code{\link{geom_rangeframe}()}. #' #' @note #' The default font family is set to 'serif' as he uses serif fonts #' for labels in 'The Visual Display of Quantitative Information'. #' The serif font used by Tufte in his books is a variant of Bembo, #' while the sans serif font is Gill Sans. If these fonts are #' installed on your system, then you can use them with the package #' \bold{extrafont}. #' #' @inheritParams ggplot2::theme_grey #' @param ticks \code{logical} Show axis ticks? #' #' @references Tufte, Edward R. (2001) The Visual Display of #' Quantitative Information, Chapter 6. #' #' @family themes tufte #' @example inst/examples/ex-theme_tufte.R #' @export #' @importFrom ggplot2 theme_bw theme_tufte <- function(base_size = 11, base_family = "serif", ticks = TRUE) { ## TODO: start with theme_minimal ret <- theme_bw(base_family = base_family, base_size = base_size) + theme(legend.background = element_blank(), legend.key = element_blank(), panel.background = element_blank(), panel.border = element_blank(), strip.background = element_blank(), plot.background = element_blank(), axis.line = element_blank(), panel.grid = element_blank()) if (!ticks) { ret <- ret + theme(axis.ticks = element_blank()) } ret } ggthemes/MD50000644000176200001440000003014413466232153012374 0ustar liggesusersb61ea6c40210f25dec15c5b668efafa5 *DESCRIPTION a9fe59a111108a937a6d8c48a0a60a8a *NAMESPACE 5c47a66b9f81a27939d6652a7562314f *NEWS.md ef516b8bef0b0cfb0e8313a4f44241cc *R/banking.R 0277da237e54f91509b38a4812ae9e60 *R/base.R 39c326e5f5d0f2d2f797f2cb59021c20 *R/calc.R fec9186973a1429ea8598f58bacff632 *R/canva.R ab8d7d48fedaef923171f86f017ce5dd *R/clean.R 9962f85e8f09defee41141f049543dc5 *R/colorblind.R 73d8ff11b9671700b535585922f82704 *R/economist.R 8729443d7d497387aed50ec1de1752e9 *R/excel.R 7d52d3e0fe5fc1e6dc20625224b864b4 *R/few.R 5be1d2da06ef7b4c27e9311795b1f447 *R/fivethirtyeight.R c054a122435d62bff93348629be61efc *R/gdocs.R ceb673718df2f9820230655dc89f5651 *R/geom-rangeframe.R b888b83cdfa64cad22d5ddf0e7a1bd96 *R/geom-tufteboxplot.R 9f9b7bdc11aebcef3d303cb9014092a6 *R/ggthemes-package.R a37b58e707a70274853206ae66f7f668 *R/ggthemes_data.R bec252f0051f72f053ab46ab959c34ae *R/hc.R 4671a00350588698c2397fb5622489be *R/igray.R 1fa42efc92c87187bd6e77bcceeb8ed8 *R/pander.R 5944e858a54e36f5d5cf667cab206876 *R/ptol.R 384a9d6ac43b5556dc7ab3d0ac4fc5f6 *R/scales.R ac51b745ab704f5c5f92affff6735b66 *R/shapes.R 45df0b7b6b4a5f22a41bb9cfbba87bf5 *R/show.R 19af95c05a2a369453714a7e900c3e70 *R/solarized.R 6804fe5c41afc2a8db42e6842b507f91 *R/stat-fivenumber.R e3313d5a18e49d7f2f70d2f62c7bf293 *R/stata.R 7a947dc4f2a368b6e1a61153e00ef96b *R/tableau.R 84f8fb05368fbb8427d690aa3febb792 *R/theme-foundation.R f27ae450272f12528e07ffc653a92923 *R/theme-map.R 4e5c3cf75eeec5331ff191ae730b3b17 *R/theme-solid.R f8b67fe51e8d31bd2ab03efb70147dd7 *R/tufte.R 2d0ef6891848fdaa3880f18e80a61ab1 *R/utils.R 446b8688508e16a374eb27c82c0d3ba7 *R/wsj.R 04e3696283b905ec6a2b153e29287f65 *build/ggthemes.pdf 0ca3d6ffdc8f782e707f4c5e4e7779da *data/canva_palettes.rda 9befb7b815a5fa23c05db4b4a3c9e39d *data/ggthemes_data.rda 40bb9dd74aa29fa721e596ccb9b97ec3 *inst/WORDLIST d217a660e1cf584f0a311bc7a79fe5a7 *inst/examples/ex-bank_slopes.R 8a7aa608a3f27bf71ee394e6904072d6 *inst/examples/ex-calc_pal.R 7497a0f23baff51a1bf82c3362c9b876 *inst/examples/ex-calc_shape_pal.R f951d6ad8e88cc808ce92bbfb9fb78f9 *inst/examples/ex-canva_pal.R 788c7c03e5936b8c1e0d0eb5f2945737 *inst/examples/ex-circlefill_shape_pal.R 4cf7f031a4160f634a30938ca012b312 *inst/examples/ex-cleveland_shape_pal.R 7c4e68cf5eaa4a7fc1682a3181fafe0f *inst/examples/ex-colorblind.R b898bc5dce52c5825d16f46cc726fbf6 *inst/examples/ex-economist_pal.R b7fc2896898242ae68eb972ece9e5cf5 *inst/examples/ex-excel_new_pal.R 4953d0c35f4bda05bfd2e042d9cbdf20 *inst/examples/ex-excel_pal.R d4e6105c9128ac31dfaa5c895dbffc2d *inst/examples/ex-few_pal.R 97916233fd580dfdb6a472114b64d620 *inst/examples/ex-few_shape_pal.R 92e42499c32654ce543da988e6f1ab56 *inst/examples/ex-fivethirtyeight_pal.R eb6a318646dc1d6e10a3de214b0f7984 *inst/examples/ex-gdocs_pal.R 3e9305f9056066505d7477054d28fdee *inst/examples/ex-geom_rangeframe.R ac37dff54b6796335a61068b590b66e3 *inst/examples/ex-geom_tufteboxplot.R 8c5d0c33430555668fe9d0ceb37bf981 *inst/examples/ex-palette_pander.R aa47cf7e65727cf425fe694dd017bafa *inst/examples/ex-ptol_pal.R a63f2e674398a4f47f7d2f2d44be7db6 *inst/examples/ex-scale_color_tableau.R 88388911ca9e7570d4ef2b8ec587d631 *inst/examples/ex-scale_colour_excel_classic.R b895f8190ea94e4d742cddecf494dcc9 *inst/examples/ex-scale_colour_excel_new.R ebf66ca09cb9fbcb9d7ade32f1dcb450 *inst/examples/ex-scale_colour_gradient2_tableau.R 1c349e0e1a4de87536d534df4da6f417 *inst/examples/ex-scale_colour_gradient_tableau.R a9d71c1910ed43d147f1ff9a0d047856 *inst/examples/ex-scale_colour_ptol.R cb35e002caab3906e7870e36c0042aaa *inst/examples/ex-scale_linetype_stata.R dbe67e1f5e567c5614700fd261b95752 *inst/examples/ex-scale_shape_stata.R d37fb9f90f8c390b3e819c29bb509345 *inst/examples/ex-scale_shape_tableau.R 1b7f685f9eb20fa89b89a11f26e3771e *inst/examples/ex-scale_shape_tremmel.R 8b69eac5a6521f259dd3beef33a29246 *inst/examples/ex-scale_solarized.R 088fbcb5ac12612aa1bf093a4a83e254 *inst/examples/ex-show_linetypes.R 7c24ec130d3ab12da38f38ef0b95029c *inst/examples/ex-show_shapes.R 1c8bbf7be026119b96a1beff3cc89770 *inst/examples/ex-solarized_pal.R 060f798e1f83b45edd335f086cbe86cd *inst/examples/ex-stata_pal.R 83c80b7ac0f626e90e0855ff37034b7f *inst/examples/ex-tableau_color_pal.R 5d0896a26893659962f21351c097dde6 *inst/examples/ex-tableau_div_gradient_pal.R 48a883f834c056dd2fc042cf2afe6965 *inst/examples/ex-tableau_seq_gradient_pal.R d9f66a4f7f05ccfc167334b8ebf2f204 *inst/examples/ex-tableau_shape_pal.R 463dff9392582f08b1ed1f9ec7b95c13 *inst/examples/ex-theme_base.R ad4d816657fa5623d5ad5a17ce780c04 *inst/examples/ex-theme_calc.R 3ade873b0052af4200cbe9030ff3df91 *inst/examples/ex-theme_clean.R 481e5524c372685f54b6f5b42592fa3a *inst/examples/ex-theme_economist.R 266b6768ac3d3240fd7f2286d9340b66 *inst/examples/ex-theme_excel.R 74540b17ce58c703d97a712028363f45 *inst/examples/ex-theme_excel_new.R 6b6d641d02c15fd7e12816cfb91183b8 *inst/examples/ex-theme_few.R aa03aa46f2357ef15ac4f3916862d575 *inst/examples/ex-theme_fivethirtyeight.R 15ec52ca9064f1a111dc7657840d30cc *inst/examples/ex-theme_gdocs.R e9a21478409254c049a0d78cf7a8c0e0 *inst/examples/ex-theme_hc.R 7631a1a8b1865c38ee2e98d882f2a1a1 *inst/examples/ex-theme_igray.R 9d9707fa0b12796f369c1141d5e41308 *inst/examples/ex-theme_map.R 4e313ef3a94e870f355a3ede6062e2d5 *inst/examples/ex-theme_pander.R e55e80fd4386a55ccd39bf136d862e26 *inst/examples/ex-theme_par.R aa7ef9cf6c3fb7370bb2a118018341c0 *inst/examples/ex-theme_solarized.R fe0a2ab5ab68487e3da919cce21a7fa7 *inst/examples/ex-theme_solid.R ff6faf71ef038d04cb311d088a86736d *inst/examples/ex-theme_stata.R 74e245923801629ebb2a3642cd20f7ac *inst/examples/ex-theme_tufte.R 4a71389ed478d2986c9e7f247b868018 *inst/examples/ex-theme_wsj.R 2b6ad272725ace4a7dc0724bad56ef88 *man/bank_slopes.Rd c34b92a8fadfe00e8111a1d260620135 *man/calc_pal.Rd aa630be9bdeb8f06d739bcc70e9d10a2 *man/calc_shape_pal.Rd 83a58dae32829b9f039e0be9e2f9d11d *man/canva_pal.Rd 925c7e01e3894577e6b4f78032313942 *man/canva_palettes.Rd eeb18051c1986e3b21b899b8b6709535 *man/circlefill_shape_pal.Rd 3fdf52738e4ad2239e0ca70c4a9fe973 *man/cleveland_shape_pal.Rd 64f4fdae77b4a7fe89f583eae48031ff *man/colorblind.Rd 4352ab2608fabd347084bf818eed3841 *man/economist_pal.Rd aa915e38ba5b13c6fd9629afe664fbe8 *man/excel_new_pal.Rd 84735334510831ec67d3e55b917f5efd *man/excel_pal.Rd 92d47a799763c7b3dd798a536518b0cd *man/few_pal.Rd 60ec6986bca1c54772229e5f31ae504e *man/few_shape_pal.Rd c208c6b2f315691eec6c7f66529923e9 *man/fivethirtyeight_pal.Rd ea2066d596070c29bff23e08a1c2c895 *man/gdocs_pal.Rd 673a4c79a8bcd9cc6bb7b1ec3058e20c *man/geom_rangeframe.Rd e0963cc4f388c3e7903f44949a33c10e *man/geom_tufteboxplot.Rd e0e43617550d764bcb68430cd3a9a664 *man/ggthemes.Rd acf4dbfdf0864c20227d75a770aae73c *man/ggthemes_data.Rd 1f1e98e6b8541c14863734d576d796c3 *man/hc_pal.Rd 13eb7ead192e3cd93e0f852c377422af *man/macros/funclink.Rd ac757d23ecb0617ab4b2fed01b1a3b66 *man/palette_pander.Rd 3047dcd18bbc2d46b2d2cda7f78de42f *man/ptol_pal.Rd 8e964164474ba4b6617489c20432d0b4 *man/range_breaks.Rd 2defa009a58d1580f1de6dcc931af3f7 *man/scale_calc.Rd a7ea7968bfe8779747074771a5f4031b *man/scale_color_tableau.Rd 03bf2d2ddf186c9991458f90ee22b80c *man/scale_colour_canva.Rd 2496e7489a8c9b7204efed2ef54937c2 *man/scale_colour_gradient2_tableau.Rd 8437ce890d2b5412540e5bd9eb5867c5 *man/scale_colour_gradient_tableau.Rd 52294696d4c16e2e1f6e5d6b2d6e4e78 *man/scale_economist.Rd c96731ff34bfaf40f1f2eccfb310b23c *man/scale_excel.Rd 1c1f7a82121d787fd172a589a401a92e *man/scale_excel_new.Rd 62efc1f6762da2e099b7696e8f397961 *man/scale_few.Rd a4d64cd50224e460b251c0ccfa2736c3 *man/scale_fivethirtyeight.Rd 610d9645f3a447d3982f2203244314a1 *man/scale_gdocs.Rd 1981a6a08e1ec12a7ac98b50604ff896 *man/scale_hc.Rd e5331e31baa1366403914091ad086716 *man/scale_linetype_stata.Rd fe0d64ce5bca3fe4100ad5ac632539e9 *man/scale_pander.Rd f4380ef63f20c778918638bbacc6d08c *man/scale_ptol.Rd 21c1f36f70d462a228aaf3d9e74c53a7 *man/scale_shape_calc.Rd ac865ce37b253619d1914e0e708ed549 *man/scale_shape_circlefill.Rd 625679bd61035ece3f27db1204076833 *man/scale_shape_cleveland.Rd a76894abc7faa02cce3cce483c58677c *man/scale_shape_few.Rd e37a99d4f7dab1c0ab6d4dcf9c0fb8ac *man/scale_shape_stata.Rd 6fe8a709403ea3ca3c4516d30068fb93 *man/scale_shape_tableau.Rd 1ed8828b1570ba648e6f22c725a301a6 *man/scale_shape_tremmel.Rd dd77ac8693d0b0df69d6761d409cb0b1 *man/scale_solarized.Rd f8670596d32679573338284ba552ded5 *man/scale_stata.Rd 701a99ec93c0934eab054bcd977960c1 *man/scale_wsj.Rd 8f9069298329562e94c1bae6bdd64eba *man/show_linetypes.Rd 1693af21e63e3cff1b1fad2a5476de96 *man/show_shapes.Rd f02782213cf105b552ccb69051642fc5 *man/smart_digits.Rd d6b2a8211b4214bf9df43c1119b4b9cb *man/solarized_pal.Rd f2a80f1e45863b63ed90e3941c9a2987 *man/solarized_rebase.Rd 5400ef50b68c51a8d7b94826103e4af6 *man/stat_fivenumber.Rd ae085236582515bb4019ba2aa8e0d847 *man/stata_linetype_pal.Rd 5e936d1755d82b008c4043c348d9194c *man/stata_pal.Rd 7502b35031401389a5e9da0b31c134f6 *man/stata_shape_pal.Rd 79c103472574c521573a79dfb56e9375 *man/tableau_color_pal.Rd eae303552aad0da52c3cb5bb4664dc47 *man/tableau_gradient_pal.Rd 0aa87112600200f12153afcc5d46d248 *man/tableau_shape_pal.Rd 55e7cee22dd34f1e9ca1dbbba7753317 *man/theme_base.Rd 4770624782b3dd3426e5fa021a264033 *man/theme_calc.Rd 42e7c6f04a01491bc2795663c050b4e7 *man/theme_clean.Rd 4ce259cc9ec8f541bc16b5eebd2a70ac *man/theme_economist.Rd 7a58947328487b1dd5745f9ebf2e54d4 *man/theme_excel.Rd 9b623d63e8e803b6154b95f656549c03 *man/theme_excel_new.Rd c0f19642ab415e918f9fe56bf68b49f3 *man/theme_few.Rd 5ef380ddb5004246797d7b77c6bb8028 *man/theme_fivethirtyeight.Rd 4e00750262e0dfb1d25700d15922f9f1 *man/theme_foundation.Rd 02f2d380043b23af71a01ad0a2e31622 *man/theme_gdocs.Rd 2d52f8a8ccba9b6dbd85ace231bef0c4 *man/theme_hc.Rd e00faa2f96b040d3120cf727548ecd84 *man/theme_igray.Rd 20ad9e3c91fbdd795c4e2827dc714a27 *man/theme_map.Rd 58b6eb398bf3377c1f206c872c764b8a *man/theme_pander.Rd 6e10a774dec9a7153d0d7b669339db28 *man/theme_par.Rd 77dc4d81fc1f894eb9238c670595eaed *man/theme_solarized.Rd 9d433e07d9f97b6cc4ff441d4418f682 *man/theme_solid.Rd c70ed58f1e8b8b53d1a1616dba4c54b4 *man/theme_stata.Rd a8fad32cbd73dea88615eac7ba9cceac *man/theme_tufte.Rd 2e4bd9c53d3a2a66435c59dc60c82bf1 *man/theme_wsj.Rd f885cf52df83aff44963da5594f7ad82 *man/tremmel_shape_pal.Rd 553791b567c65fd2bb51d053f8d38fd6 *man/wsj_pal.Rd b0ab17eb094c0a55dc40999f1f0c666a *tests/figs/deps.txt 1638d9c9f506b9751d57a6602061eacc *tests/figs/few/theme-few.svg 0622a97a2aaa3c342f09636052c2d7f5 *tests/spelling.R d220aef089ea1a857ed208d7a1bffc96 *tests/testthat.R 4a085776602f957ecefeeb699a8e2274 *tests/testthat/helper-utils.R d4a0e74402c3d620862f83bcb6061dfc *tests/testthat/helper-vdiffr.R d153308c2898ec22510b9838af628b5b *tests/testthat/test-banking.R 791bf810960c5e364b0637354159763f *tests/testthat/test-base.R 3a32971d7f2d675f5b9bff7ebcdd0183 *tests/testthat/test-calc.R d4f5a7b1bfddedc386525806f75472e6 *tests/testthat/test-canva.R def16ca1b732c4c24275e5f6a25b7103 *tests/testthat/test-colorblind.R f32835afc4d4c6c55410a3f3d9c952cf *tests/testthat/test-economist.R 58847828a2dd7e92d9fac95885ed08ff *tests/testthat/test-excel.R 33114f49b2a7628a3eb6c15dbc886f7b *tests/testthat/test-few.R 676bb456b5b89ce6d9889a041db16efa *tests/testthat/test-fivethirtyeight.R 7284f3cc4e65e92658b6c9f2e1febbbf *tests/testthat/test-gdocs.R f7ba6ca1639ea3ebea3892f982ac8896 *tests/testthat/test-geom-rangeframe.R 5d8e79c35dacafdac300e3970eaa2fba *tests/testthat/test-hc.R 135be418c0afa2ebe33621c58417bc9b *tests/testthat/test-igray.R 24a9188cd13b4397ea47a212c162e599 *tests/testthat/test-pander.R b2e37501be8f4d0e3b193152dd24fb0e *tests/testthat/test-ptol.R a2dfb5b5b281dfcb62561085b5b4cea9 *tests/testthat/test-scales_tufte.R 5d3554c25c64b967fef9c989bd6156a0 *tests/testthat/test-shapes.R 5d9e25f79f2c01c80d1c8f543912b615 *tests/testthat/test-show.R 3dadddcc013d62229d76e5c96bc30dfa *tests/testthat/test-solarized.R 4ae606c1aefd3078444c4b316f89ddd0 *tests/testthat/test-stat_fivenumber.R 17fd6aacbcc777f768aa009e8b3f3b46 *tests/testthat/test-stata.R c28f7b1ad96a15323cc8c0d5b84e90b7 *tests/testthat/test-tableau.R c997066656be661d497206d5c20b0ab9 *tests/testthat/test-theme_map.R 12401364745e9966e96bf50933357293 *tests/testthat/test-theme_solid.R ce7441eb3aaa40628954478207d2fce5 *tests/testthat/test-tufte.R 77b616b42366dbe57488260dc829c6d1 *tests/testthat/test-tufteboxplot.R c025a2e632bd3a38002e45bc1bb94588 *tests/testthat/test-wsj_pal.R ggthemes/build/0000755000176200001440000000000013466162413013162 5ustar liggesusersggthemes/build/ggthemes.pdf0000644000176200001440000117353413466162413015476 0ustar liggesusers%PDF-1.5 %ÐÔÅØ 2 0 obj << /Type /ObjStm /N 100 /First 812 /Length 1084 /Filter /FlateDecode >> stream xÚ–MsÛ8 †ïú86—„ßg:=íÌÞ»{Ü‹lÓ±·²•‘ä¤Ý_¿/([vl}vÒŒx@à%YJdÉ(rd=á'#)HJER“t’¤!™á7%¥xHJ{R’Tf¥H CÊ’F°r¤3Ø=Ã2© ­ÉJØ YOJ6õpC²ŒŒ$g\ÂÉþ²” |¥J“ñ”"­”!§Õ”Y¬ÐPæ<ä±›‘ÇZ°FŸùÄaÅ‹u_8:‡/œñOJÉl|5à(‹ JQŒ)¥)¾XBŠÂçAÉʧIÆyñåyð4àx-òàéÁ3HâÁ3™&žEn¤ušÅ}t‰ :Ã3@¦Bðú0а @S;÷>C#%w?ãµqÿ=‡¢bé¹:Ö@ð « R™Hè b”P2Và —bè¢R®E`๠VM”æ6@tx袌åB@¶Â'ASà u”µƒìxQ†w@#å2.äŠH TM gh¾„VØ0"î(•y›Hè¥<ï(”„~# Ši ÑM-,·ûGÄͧIó¢$–«%—ƒÖh¥à Ý4VF\¶†w‚þa áé´æph§Ml-ÈÆÅŽbÀ ‡|Ú¢& ý´ån@@í$²CAíx³CAí2™|ýJ/ÑËŸåß%½üA_¾oÏ«üøãùû©x®‹ò-ÔÏò‰¾}K¾ðô?hl;ûԺ΋u }Ë‹KÏq¦&‚ê]þ†Â£q‚s|ÏÃ19?,4͵âÛØhì«u¶û¢©¢ó™YKÞC‘7#È‹ËLbY”ժ؟‘· Î2 ëòXöusßÆÃ®CÛ cøx@°‘Ãa›Ié‹ kÂqÚÒ«üøÚvsU…üG‡WVëɸèȃÖGýøícEÛ‰B.!½Òžƒ§EÝîßC³ÛWͯ°Ý=(sgE½nÊu}ˆ“ãa¡<\»º­òCè‚aêÚ-ˆæ´mªüùV”Í=äÖ6€ymváp=½—¿'¼9ñ&oòû0NÊóýệkn7~ɯsvXu <[Úh6 šòaãóÜhÖ·g›3òžìуÑajŸy§Ø^ }¼SFûÞõ¢fv>K¸Ÿn öÍe´¿…n—±îÎõ÷³ç‚¯U¾Ù‡c£Ú³—¯ŠŸF2uþñ8¶î¿‘na¶ßK†ã9ŒÞ­â±f±y­nnnš\´/àM÷qyï>êGx°N±º—P|ØÝ£.o 6Î&µGw­³YítC¬hͪË"¯öÿáa1Äë<¦˜x…æ×ù-пO..³wÊõqÑ+E÷¾˜£Å ëúÞ&v> ¸Ý›w{q™Oí»–;ÞŒ[ùJê¥c-Tdèèv¼™'÷†X…Ã!Œˆrv îÊOñzF`¹Ý~õ æ{ˆngŸ’ÿAþ § endstream endobj 336 0 obj << /Length 893 /Filter /FlateDecode >> stream xÚ­V]oÓ<¾ß¯ÈÝÛJ«k;_ \ º ´M]€ @ÂM\×,‰#ÇÝÖ']RÜ$®râãóœç|øØÐcô®/à‰ïÛôb~åû† Šp襣X È‹p ¢Ø÷ÒÜû:¹"8!Ù=at:Ã!œü`LmiI›ÿ¦ßÓ#ðIbƒâÄ›áÄxa!þ'{kŠð¥0D‰±>°i©$ ‰pdPf(Æ H#€Y˜Ïš œPÙpQc?(AZÓZxÖW·†B½5J§h1᪠çü´!ƽŸå“’ÄF—¶ééB½ËHA+“*·Â5e·¶Ò ß 3VBa#ž¥Ü¹n)ÃÄxGkZåÍ9Æ! zÆ«Þoß¼¶²|õ:뽃&ì}Y ©Î:÷€¿wÞEê¢-…K¦À_DúÛöXg,I½åYc·Àc%ÏŠ’ª­ÈŒ"««wRJ§UÓÖÏ­R’WÌm¦øzý{û1ñ(w;Æh£þ¢ˆy]ìeŸªD-à€G&¦(œ<¸IR£3}»•r'³ØQ§â¾âÊ Z¥xFi.xuª$usJQKñÓ©«õ¢n9ß—·ú‘«­üÛnyG›LòZ½0õHÆ~Ô7Ì(»A~¨¾ýUéÅÌ€º<šZÍ`”[À¶"N€o®aŒ·Òö"Ï{ã‘7àqƵɾ•$­ žE–V(„¸·’ØØ¯ñѸ¿î®¦eþØ^t²s˜Nƒp²Û(ÚqEë-­ìÏm»çò9Š+nVL|zÊp©ö”³­2ªÁ®´'¸ÌD%JÞo¸SD»æàj˧Œ«C†Fø_¦ ­*Šž»¤´KÙ±“!”¢b]¶te\§æDñL›<—îЇì]·-žžkqD^êÃÚQßHRRðÇG¡¿ýnôÈ©ú».ï‚ëÛ›~é]`öÏP¢_Hµú´ºÙ@`Гú·W ‘p :Ü|[¥êWó9Ó'~·™(ç?e%Š|Þ¿«ÆNåÀbŽÈ½Ý±ýýþ#Ža’˰EÕh%žöŒV…:[§H·]¼èÉDñsÄCú  ‡@¿$í¾ñžezñ ¥ž»± endstream endobj 392 0 obj << /Length 1060 /Filter /FlateDecode >> stream xÚí›O›8Æïù“Ôÿmö¸ÚN¥Õžºé©»B–@¤íôÓ¯ $CÐtÆÎÐS^4$#c3¿÷áñë×€¼ÌCÞ‡ÅïëÅ»ʼ0Þzëa„Ê„' 8%Þ:õ>/ÉêßõŸï5¤„ÓÍ©ÉÇ¡ 5 ¡è¹A[ò¤Yù„£eZ%ǽ.[þÖ¶@ÃåœæšÆýø”Ò TÜó‰ìþØwøWüãñ¸¯z˜ü7LL‰Ë%ÔG=m}5ÎÐÜÇ"ÀD‡)³cœé‡‘âì<Œ.ýO¿û˜R´¤ÏÞæ—I€Ä ›$.’è+_`Àg·B³‹º…b°°Ûó/óVgÞ务å×á˸G.1 ŸQ÷ÂR÷“8è¶íæ*Á‹ÞtH;üyú„HQŒíçž§WÒÊÎp Ýiüë ó¥.â2ãQœ_ãÚ)º*ªzSäð -äFìÊPÇÈ »Nª²ÚçM Ôg¡N¬LEwnò=ÑETžÜåÛ`'!ì¿»œbïsuE÷,‰ã)ÔAú­.SFu\f:ÚÔ:þÒD&“— Äí v÷vì$’3óì gN牦ÕÛ´Ï­L¥[=eéí.¯ÛGg»sVÃ1pwãnWÈÒ*i†•'ã ñù¬Æ’¿®öý$º­ã½6£ÀÝ”.­æDº=n[½©¾Šª5é# ²%de'ç¬Ýé}WFT°ÑMrÂ¥Ýy›Ú_Ã=XÊnؾãrõ_¦|l¥üaÿÂÄÃ,Kk“0b¨ ¼é°ÄÞVC)FH¨|Í/~»bd“õG§úûå’ƒÖç¡,§”utµ{jhÈ$mi3wÚ—=Ž•OÔýéÚŽ­‘àklÕsl§;&oÄ÷¸Ü]¸Û3R˜}Bºkù§UDã"1ĬÜÅœÕqšë²%Qo S(|§)ºà?Iñ}ëb÷»|—3á°Ü¸ÉV)u×m·Ê3ã…ÀÚ‘õ ©nÓžJwP¿p†ÍÝäɇùÝ>uioÕÒ]Íßšÿ:¸´ì¦e—ìlx†¸{Á $C˜ßB>tp‘üem¤Î`'à&î ¹+þôì¼´v;sâμ©Š¸ÎèÔhÜ»ÕXOŒ:¸J‘—º}<èK* àlÉÙ¥D×?Ý×O› 307ó’P^yê–“ôüšž¥»ž§o;uOÉ@üSÄÊñ¥¨rH9]ãùôzz|¿^ü‹@L endstream endobj 203 0 obj << /Type /ObjStm /N 100 /First 866 /Length 1767 /Filter /FlateDecode >> stream xÚ½YMo7½ëWð˜\¸$‡Ÿ…ÀIà6@ v ´u}¥µµ©¤5¤U“ô×÷ÍŠ–\KÚ5RÙ‡»CÎã#çq8«e„Fya M^ £•ÐÊ¡ÕB‹Ö ZØ¿Ga,·I‡?c©40†`ŒØ„U@'%¬3hµ°¾d…ãqä„ól˜x”„·oðQ (ù„y­xÎ ‚Ã8§DH­Q¶È<œ1ÂßE‘À‰¹%`Ì‘"øyºØÁ{^ ?Í•Ÿæå—ýü€Î>¤›=þ7OpƒŠ›Iµh¾•Õídwõ÷ÂÕ«ùxØTõn4¶]} ·ãz´Üño­}®“]ýLzÕSá´|Ûñk­}®³áÝŽ#l}nwÃùx›Q6žks¿ó>Ï^·mŠì¼éyDµ×½êwmSóŽ+[û\›ÕM³›OZkŸë—åçGظ-ÊÙ,ŸÆýép=àié§~äÓA— ‘ÿ*Õzà~ÙsÉ“ç¢8«š+xr2(>á.ÅÇám9(ÞÕóI‰*ÈóÈAq^.ëÕbT.Ûº©5ýRŽ«áÛú«¸T0¸ä¤ ^D«eLW -:‰ÖÃOçóˆ—m•Ƴs‘ÆíÕà? Úqƒâm½€„[huUüT|(Þáµä“5⥖ä‚H['-×ÂIË@\£z©¢Ã¸‹Õ5WÅÏÕü¯âô䤡8qî(.Š_Ï?ðß«IÓÜýP(j&«k\±³âób^OÇÅímìåküNŽ»Â%º“Ž ]£¥çŠ–¼´F?Ňþí÷?DJ’ëØHZÔüóÕtzuh¬Vj=ØéÐñýƒÏ !ÁÂ;këh•Çå¨Õù…?Éì^ÅÇE=º(±káû3Q|*¿6ÕñXŸÉìè3©ÿ©O»Ö%¬[ŸÛÛ˜Û´nʭέÉmÖ¹Ëx.㹌ç2žËx.ãùŒç3žÏx>ãùŒç3žÏx>ãùŒç3^Èx!ã…Œ2^Èx!ã…Œ2^Èx!ãÅŒ3^Ìx1ãÅŒ3^Ìx1ãÅØqîóí‰ØÄtûrÄœòRã#ÓC…^ó§ññÞi‰O-Œ;“äT$©Í‘Çå@J:È`ÃpöR<ÌÁ=qÎí–ƒ ŸÊ‡9øgà€Öê°å qø<½(—¬ä#ºá ŒL&æžC4’‡¹çàpEiÓ¡‡ø ‚’*¹-‡¤òzHÇä€õ’p.JþÙjCÁ{™’=LA«ãs°ØŽ°•ƒsrðÌñ9EHÈ)+ºô²P‚$û@HY!™t|*Ɉ[eÃ)+û¢l 2m35Ÿï:²ƒ¶Ç§ä_Fï9 ˆ•jpǧ€¢Ðã¾ßP@Âr¦K þø<ŠbµUƒE²ν,›P oå`‘±P§tpÇç@AÚ°½¸-2u…"Ÿ¾S¬z $,ã:îmsüDm17ÿH¿á` –ê^–.—7´BâîƒÑGç@µ£ÚÊu¤TN¿,‡¤¡­PÒË»ôpü Ÿ98ñ[=೉ۿ,G’ÿKeÃ)+ÚŽTmŽ[à³Y*z ¤¬õËr0QF¿-ä)+莋Ûl®¬æ{ endstream endobj 473 0 obj << /Length 1386 /Filter /FlateDecode >> stream xÚí›K—›6€÷þìçÔD°lÒ¦mvíÌ9]$9>2ÈX-p&Ó_ß«‡&q[kB²mÐ=¿{¹H„‚:@ÁO«·«ç¯qÁ nwF(¦ 2†â”’à¶ Þ„[Þý¹›þ ÆèÝíëç¯h2«’ gŒ@ƒº0UEVÈö¬)Ëã%ÁšdªŠ)4–¼›qÏpøÄ£uZà0†¡'$EÁ‚+Šó`PIý  ¾Yç…)ú¤¬EŽ‚5& ÅäsÖß6‚£5ÉÙ§}fR„)þoÌé̃h[Ñu›ñHÓAݘkµàE’{à3àNº®¸'×qoù0m*YËiT}¤ú:Ÿ^Ǿoø ÿÕæÀÁ‚çÌkü· ®gÓnÐ'„zØn°™l͘Þ¶,oå]Ä`VŒZ {[ó8½Ï®¾y‹Q‹š÷NCÑÛ­ ß„yô_½ÝÙç¦ì›~0ÚžÒÔ³vc_¥æ'ÖõÀ+)ºÉ.d0õ€ÿ0CN€g¦›b¿Vqd¯c½­Ølù(`»O o¤ OÈ—¼)ÁxþõøÍɃéÔ Ý£_=u@/ʾë[9N°&Oü*Å‘tâBZ­Â?”ÊWž`ìU{üéu ò‡ø7О^è•xâŽÄ™ƒÂïNœIN¼‚/æra™ƒ º¦½¦{!ë½2÷Oq‰éªï¹‹¾÷Ç®â“ì;ïÐýʨëª/Õ7:Où˘Ì÷js„½%_Ð’»à—õÀï¡§Ô/Ðü 9 où!ZgyâQ/ÞÅvà]¥?Yxÿù—A'¥âIæýËúÌÅ#sþ+Ã;įð‰p °Sæß¬K O]Л¢Yæ×ñßýtÜM£_ ½‹cìnül;Ë<êåÞ°W:ÅÌßêþO¤Ç)ùu.Poûõ‹Èå5ý²Óàù+:?Ü´¦Yœ§y°&$N3‚ùvSlí‹=$ÇY~:Þ”?Ü#ÿx»úk…uy|>Ø~jщÁ¨žJš "§!“"1åüæ{Ň²?^Ô³3!eØ`tŠÐ{Y)·‚ÊÙƒÇ- ¼ÈÎ endstream endobj 510 0 obj << /Length 2255 /Filter /FlateDecode >> stream xÚÍÛrÛ6öÝ_ÁÉ‹©™Æ°;yp['M&nvm7ûd:4IS¤JRµÕÎþû\H‘-;›N§/àܯÆÁ"ÀÁ›“ïnNÎ^3(¤b7ó€`Œc1ÜÌ‚O!Ÿ|¹ywöš³ ‹)âRÂ3ä6)î~©ór­k|‚=x¾kÚ^›Ra6ÝåŸëd¡×û={MûÏxˆHË">ã?¼œL#ŒÃ­ÿM7yîV¯ÜÏëó÷×þð^g‹e38þéç÷ïýéJ7Ër68M Š«úÅKC¹%Š5©(rä¼HêDü!óåd9”Šܦ1ÂØ 弚.6+]4õQáÊþ>úê1R’¶J|˜Li„Ãß&4 “|s Êš©¿;% !Ü Ûç#Û~32«Ïþ¥àÓ4T„y¹ÈÒ$÷’˜7èGF¤¥M¦ „|¥Wå„D@ üÑŽ®ÄØŠYx£¶ërî~±ÿ¬Š¡ø±BHô(Þó1:8RœïÈ8Æ:e1ŠÅïÞ\Ÿ-íŸJGr^ ]¹õ¦Ö³—ny;¡ðݸ;cxzí¿æ¥¿MÒ»{s”T3/´\­“&»Íò¬ÙNâè NÆ”è=ëÙŒ|(Œ‚Dät!âðtUŸºã—z–%…;9¿­Ë|Óxøk£Gë€öÐrÛ§‰»ÛëçÁ½T&&Yþ;ñîc<2?4Kmí(¸¹n²²ð’J*oWň"êÍz]VM§¤˜¹Å}ÖZ!èÊ-<»°ÊŠºÑIÙ,ýe¿á4UdÅâë•¡êïiZûSqG|?p~œ(j#ÊhÐ<, ·U–Žx,ˆÅ-Ë7Ë6JÔkzn* ׋Âf·ôRØ:‹a!ŠÌÃ.­OÔÐ? $ž~¡|Ö0â“*¼¯²¦Ñ…Á®”f°mFálÖl­<2ûQ¢jÒø³féŸjÇ'l·|ÂòlëSÁ×êü0:R!†T7^6ì1 `,ja½3®J7›ªØ‘°u„Y/œ2–̤wÆØ§6ïù ŠÆ+éV--×=W:¤\AXW1yVÜ}Z,ÖyÙÐ/¤eYÍ~™gzfè1¸þ;õ™B|—FÍ ³Ñì"’­Aø¨äõ¢|]÷²Ów Lp÷ÄØ?çä½ö&Û¥$_3ù-B"Þ9èìãjDÌEqääÌÔï‡ÔA’èÁ¼Ã…­Zñà•}•#}\«äÁà ³‚°öc<rl{ôB6D˜cX ‰çm?d‘#‚ÅÆ¡ $8~®þ9™’X¸þhŸ&St½@¯<|”šî¥ë¹/É" °ÊçÓ5ƒr‡!Ú%»»Q×î•€ÇÝš÷Üz|= » Pù– *°b4îÅP3°sÊÁÑäW'©ÇEe¥mB¤‚8C…¡ŽûÚÐþFb”²X! Î}$¤ЬÖiQpHðHDôY1 ê5ì5˜·=„Há98‡úܴ릀÷½Ñx5òÜbDþ ‹úd1ÂL(&ÑŸQŒ˜¤&¤z¼‰Q„]1Œ´&y¼"Ñ__’H–"þô’„B MöK’±‚º!j’ï‘‚Dþ ?RDö†)$^úM $yLE #ÎåS% ?Z’Èÿ³$‘¶$QÏ)I("vV!Ü*ñGm¢üèÂ,ÎUbæ(®­Ï·kº#Šq캱Á…ï¡ÿ¢í .ï¶gYnêÚ}Ô=*ÉÝfi0vÙõ²æ#+Ò|3³o™ž´?Úiéq£4Û¹‘Ñ9N•é¢1qÈ´ÓŒG3£4\äå­!ƒQ¶ÛÌËÔíÑþUTiëœð ®Qaò˜iÄí•v·ÌˆÈl´³—­Ö¹6£`=s‡YášeVQ=ß©ÇÃ#¾-\g¾Ð…‘œa„ÐPgNv ûPÂp¯½ðÒÏNºHc@º9)œ¸VÝ쮫r¶I=H¥“º,×i+ÓÇ×›¼%ß4áe;5ªô¯›¬êb—¬­²ßÇÞHþ2C‘þ<åJÏK"C]¤ú«Æ*ÞolÓȱð?fÔdƒr^#¿yi7Dxá.Ó7 è¬v¯<”;5Ö€•›+ÙÇ–ÉZ;€¤I•€m[UÁ©™â˜ßÄAÜL¤Ÿ÷•ÓBÀ@«ÌIÙ@½©’õ ù]¹©Š$ζ»”rnGamZ¹6f\7v®îŽëºL³Ö-ÌŽdÿ RMû ¢¤ìðöæ6\p;ƒ<¾Ós#Ý9Ø?°º5v­Zw’áeRh]/Ýî~Tñ/˜bDÈãðôL*›^Ú=ÐV"ö¦t¿<:u§o/..ÜÖÍ„EPou’úÁ­9ÿPŒIîã$69t“äÞ½LÚÁí÷åj½iÚi¨Õ@–ÖhLc¶E%ílËΜ‘›D9ÂŒExzîŽ.Ë™ÎÝrÞδ¯›ÍlëܶÈêužl=x7íëЇº…K0+pxêÐíLEXû‘‰ãÙJ£µ‘n}`=ã"9ânæR'ó"jmLñ]Oàö.\¨Üû§CÙ‘’&ñÏ^9lY­=µ³¬‹-‘Ê€ÿå&E endstream endobj 526 0 obj << /Length 834 /Filter /FlateDecode >> stream xÚ½VÛNÛ@}÷WXô¡‰ ËÚëK\µ”B¥ªj êEÑbo«ë ^Âßwöâ`‡ÂKE{ñÌñ™³³3Ævjcû«õyfŸ{ÄŽP¸=[Øƈxùĵg‰}=Š)çåã›Ù·ãsâõì= 0pMYúÒÄÂlûØ“Îxâ†rS»\26ž¸>pQÜŸFø¡©]Ë¥žþ’àî€ø`øDÃÞÒâoV¤@Øþƒ} Ç„2 '!ˆb ÎV4¯8;H GEg `·¦ƒN¨±xv[ÓúQ¾þ M+^6îAÇü%õ|”í»ñÄÇxt%˜ž4K3‰9"‹õB´…¨ÊF/ÚP=[Ôe®g§œÝ3N‹DÇêã=;(ô¼îØÞk“Aò¦¤3²¬³4+ Ôª¢«Uj€\7 1ŠüH;­´Ùlj!Ìîæ”—E*E0ìÑ#£u_åotxúSŠ6gu¿  „ü5˲5JõòbÓ<¾O“|—T-jš3¹2a}ÒÃêHƒ]yÐŽyB™x“›ŠF-K‡ Ï2MY™ÏyV°~:ƒÉsË|k‚­3L*1̱„-hËX9åCõK2ZèùÉ­(yÛŸK^Vl›¢5m²r¨ªÔ.¤ƒVå¨ù ‡rhn@YÖÉ|‘­X"½{øFAµ³3žÇ·œo¦Ã†J'÷¬¦){S໢<êë: ~@ź Xg3ëÎrTµsÖ%Ù#ÂPÞâܺ¾ÁvὈDSûA™æ¶çÈk-o-·/­Ÿ;‹•ªûÃò ìÏùá–ºß+t^8ptQ4uºBq .ºœÇ%/k=Ö4¦Ì« •‰¸“pÄöJИ ¾)hÙÖÔHà"Ü5µ/ 8d¤K±µÀo4ºÍþrú,<¡WºËÙw¨ùìb1v}»±@J„ÆâàÑl™‰--©Ùu\=ÞK Ê[&Ð>ëJÈ|Ý»kí²K€½ºæÞýüe/ ÕO9ÔvsàòÁàíñ=úr׿À›AÝà|.q^üJ‰ˆòü/ŸŠ—Øù% –åÃD¶›g!GÇ]7ŒmÄàFýNÌo endstream endobj 541 0 obj << /Length 802 /Filter /FlateDecode >> stream xÚµV]oÓ0}ﯰº—FPÏ_ql$lH1`…—mšÒÖM#Ò¤$éÿž›ÄI“6+lêCnßësÎ=¾.A"èýàÍdp|ÆÒXK&Ñd(!˜ ‰K¬ R‚¥ È# {DÕ £ÙM¶ô×f!°ó:é kEkvo!Ñ3—ŒÊì*„&ÏíËqÉ<Ìf©Ã½‘É ¼Órƒ^êRƒºä êU«xO«¤K±ºBúΆp‡IÜá·åÙm·BchƒV¡‹{èMýÌÌ« —Ï|iZ’dU¼i–…vÙÇpššóEá‹+ðËÌ&ŠâÊVRãç˜h^!ú–ù饲O­ë€ššîk~ѯºG÷B°ö¿0ôI”%©j·>­Ò}± D¯l=øa…ÒÕá×=BžÄ”‰Ú’d˧(´ãæ.#-ÊÔŽ°§¿üÕ:,ÖVAA)j‚ê»V¡šì§¿ Q‡A°Ž’œ ku!ÌÀ¡ÔZìèÈ»„Œ>%y¤›¸T¡¬ïAaPεÊeËä®"™Åû{X<)·QµçØÖêÛø4žíý>­\ ,Á Ï:¨`#ì*ÖLÓ[ÿàUM`Ï’•5X%iç4g°äsÅŸf&1íbÅø“Ì$ê’÷ó)ßiC¹}J`gÌ))Ïð£O•.Jµî¶ª[kèðug’´™xA½ãŽIŽ©ÒÏ6ó,òd3Ð Ó¿®óÔdË*öãyLÓ0XæÃǎǓԃÍÊÄùÃÓä/hk€;“Ltg VÍŸŽÏ….·®©Ø_™Vû÷TñÑú%Y`&±Òì¿Í ¦Û2‹ÚÈ•S£pÞÙëN&RvòÝÑ ²7æ_Ö‰=<›xVžM+—ŸÛÈÿQ4¶ÖÌ·X‘é`ߘ—»RoVÓúÆ­·‡×ÖÊ“æïîEêiý‹t endstream endobj 416 0 obj << /Type /ObjStm /N 100 /First 896 /Length 2133 /Filter /FlateDecode >> stream xÚ½Z[o\·~ß_ÁÇö…˹’ŒI ·ZÀ°ýÐÖðƒ¢lR#‚dXr‘þû~³:Ú=R#vS$‡;gøq8œTJ%IåD­$vF«I:þ«%cGëÉ­¡­©¶Ž¶¥Î„¶'*&IZIDÍ6Òœ¯4°TÅ;M~—¦‰*{³DMÁ¾y¢^ƒ¸&¦RÑi‰Y0C8éžX œ{AÇzR€eÛOÚw—¤bIJ7tÀ‹X¼ˆU€@ñªSgNª±N‹Å|ºQÅCfUð"`V€SfU º ÆÏÃZ“z bе#ÀÔ%~/ÉŠcØb+e£˜ÆD#’L!YðHf­D[ªy²P­&ëX“âÁ‰ã­žœñªzIbS'lÕMðr™±~¯ºº&ïÄ–j ¨î©R@ul›Lp5 ÞS5ˆWkIµlJ­Ù(ö¾6l´¤ÚC^`P;8(È[,¬ôÔˆz2¨a´1æ5Ìß„ Rtbd©)da k!O[bŒŸò4ìíÒöÛËË«›Íöí—nöÏýxùËfûÝÕçwŸßÒòaûçí_¶ß¿§ýÃfûfw~“Þ[¡#Ï-äŸ ôDØ2$ ¢oÓ‹iû6mÿtõî*m_¦?|:ûy—¹þ1}óÍóÍ¢?`@‹Å0´é¸sö[=¼Å€a(çã¤ÌÇÐJÆ9>`€nfhÄÍÇà-ÇÁ8`¨5Ãx0È| æ9¬Óƒ–:€ ó!¨æp &™u¤6ƒp^©ƒb¸ŽÔaþÑ„Ëì+uàž©´†'8š¥åßrÀ@5@èÓ!P÷L¼RX¬^åq :ß: ðÉdý€`±àéx>†J¹w>b€Åj2Po ƒÜù¨‹UëÀ<èü£IZs‹¨ë,Vé¤ú| b¹®ÔËe¤ó­±äÊ+u€Å28noˆà¨åè¸ ËÊÀRë=óð2½—Œß¤íßÿñÏÔ;Ü âÖ*[Óå—‹‹Ñ"èÛ{œLºOûêêòf?ÿ+Äo¢Ë[¯”÷éÑòáª-ˆDËþ,¶¯?_¿Ýa™iûúå«´}·ûõ&}¸/¹×XÎfû=fÚ]Þ\#Ì–x=äs}õåóùîzyï‡þ¶ûñãÙwW¿¦½D­â8G0M¹Åv½>û °pØïÉ5&L) E¢tÛúÒÖ¥mK»Ð-KÐeÅ‘!ݶ²´º´ ?]øéÂO~ºð³…Ÿ-ülág ?[øÙÂÏ~¶ð³…Ÿ-ü|áç ?_øùÂÏ~¾ðó…Ÿ/ü|áç ¿zËïÃT®BYW¯*&Îæ»›J=š®ðxóbócÑZ`UÛÑëVBn"ƒ£mó=žwÍ¡Ä `x<›ïñ¼q.ýèm¼—Üuàml~@ìÞsµ£>xmy¤ ó}®[EXutxîž‘)q >ßS˜z:z 3‹|íy1ì‘K¦œ ôÑç{+cÂÒVú(%Õa¾³²s´’µÈÞæ{ 힣´ÀP­µ§ðùVZ‘—X?žLíHjFٺϷZ9³=…6B,3ˆ]|¾…Ô¨”£§Ð¨ØóBP/rt%ÎQñÆç±Ãå¸ë:`PE0ÃÏ‹aVÎB‘éTX‡:ßY)•·C ÈtdTÌ«ó–t˜¤¶RÉRs᳨ó…4‹âÝñÊ©Ž·Á¹¨ó…D¥… Õ/u¾·G³ºùA¦ÓûH%ç{ Ñ–[9z A®ƒÜây1HܺãA®#e¤’ó=–pTÒV*‰\ÇûH%Ÿà6’`’VÅA®3²’õ).#a‘huÙ¢\7€0ßPc¾ÜVY‡±H¡•UÕøØâÔªê=Ú»ªj\¹!Šz â"9>x¤`{¿,»®Þ®j´ÛW|Wʯìkª·Fåaõ6¾wøÕÛãêã{‹S÷àí¤*B„øØâ$bo5·ÖN#6X8q?‘˜8<ÓiÄ̰[\O+Ç?R°»gÑ—‡°Nõî‡ø^¥Ý= ßïúñéÈWUóã멇úÀúuÕüø\& Å×2«ÖDØË(FLS™fF"\‘vé#…©7?]æÎ.ùxùó<Ó7¢âm¯;Àðä8B,‘=Žãúüìb—ß|¹È?}¼¸Øw0rþÀžÅ18ù,­iÿïYú-â8KùÂIÄŠ²ñGxÖO] @ ¸ÐiÄì%+ù‰Ä0Ø.3íu|pÇ}žñVúŸÃz{#ö‡•o¯¤l¹j³åªmÖ¡bÀ>ÌéˆäâCËäu_®ñGîpë}Úýæqù:dŒ ò®´¿]ØóžbÜ)ã²ó³ËŸíñ|Ä››Ýõ> stream xÚ¥V[ã4~ï¯ˆŠ´JÄĵKË2] LyV•›8i´¹MâN[!øí_zI'™ÙO‰ísùÎý`+³°õqòãj2[úž¡(¤¡µJ-‚1òüК‡µV‰õhǬr|l?;4°Ùºa‚wΧÕϳ¥ç_qû8Dó‚lÅ7—$l”íµ&÷DìÒ¹¼Ô,÷V6…~æûΖԳÀú ûÂrI„ˆG´¬–?íò–ÿ…<Ͳ¦¨ÂHÙÀ zI+òͦࣤyê¸ƶ¤½fkvmÛj.õþîþ^Ót18¯{ƒ(iŠ£t¡û[!ñ´Ã>Î3['Ô÷®þ–¬¡p)å]8ƒ!ÎS8ï†l­XÉ;)¤O+q Òÿ«µkö•ß®‹ºí4ùúƒƒ2QžôÈ:þ´fE]e —óÏBóÀ}5GEé¡:ÇÜrØXFè亸)Iï´*¦7c˜;è„Cß„<¤Jó¢è/¿jÑ%ɾšñº\·¬¼•ݲÜÀPY¾–`ÖyÂ+‘‹£äÊvpêÁ[¾ÿåá~L˜ ¡Øò’¯Ë¼ÊKV|rE/éVñeíMúðÞ+±Þ¬ú|’§½ICõ…±CÞ!ÁÞr Ì})¯`•}iÓ©É—ãÍõËt¤EÄx¦ÛÖû5D¸WŸªƒ,[ÞmM VÆüM›g[qj+Ø?# à¨äum2lSìL'ûâ~­ÞV7Hã6ïšɃUûš÷«ÉÓ„€nl‘óóæ> ±âròø [ <<äE k¯HKË'Íab«°&¿N5,ioXˆÐ'P1!ZÀpèª7П÷Ø)Šä4- 4 —Øþ ‹Vÿþæ,À1F”ºI[Çìº4¤f2³W<àû(p_áe©7´x8B 5àŸx¡jD^Wƒãúf9ã™bDèüÚÞ(²Óz×:Ûnl ‡»æb4œ6Gý…ÚÖšÐ\AoA‘ùýããÄzTD½mÅàªkp†(á]žUZjo!«‘ãúAh¯¶¼ãCö¼5÷²¹þìÀæ‰1¢U1‘lÛZÔݹ `ƒÀt™á2lÓ¼lX,Ò]¡Ï{¾érÐ4Ef©ê-JÒqØyòûŸËø—/Hãx™ª£ªKiwÝ–L|UÄMÃzï€0"— ‡HÇ)…=„^‰x®ˆ"ïÄÀ–I¡lHt"ªS-5Þ²|Ê[yÄ&8±€„ [7¤2¸úUí5šµæNèGrYΔ·ì:·dÔÕˆ Õ´BŠTϺʅ >SØ ‡üðtÐ=Àïô£ 8È¢<¹cúM- CN‡ÖsÚÔy;ε9…šö£þ ”,ìx$ë«ñÜÛ Ñ|7›•ì3gIž¦P]UÌ÷¹Ø&L¨²íµÌ‚*Ãv¶ƒ-‹%ÝŒbÎ)ßh’S#q¯V´Èÿ7H´ endstream endobj 572 0 obj << /Length 1464 /Filter /FlateDecode >> stream xÚ¥WßoÛ6~Ï_!ä¡°ˆ©Ÿ¶‡¶K¶v-Ð5Y‡¡- Ú¢m®²¤ˆrbwØþöyTl)r“m/M¿»ûîHÞÎÒ œOž_<½#gB& Kœ«…Cƒ€„Qâ¤I@â9W¹óÁͼOW¯ž^Dá`†$¥)À‘¹læ…ø¬(¦jÅk1­y¡÷Vh:ð;Ÿ¥zqÞ‰…h<š¹¢œ ÕÛ?ü,)‰bǧBŠ`‹{Î?÷/¥ðü1÷çF,vo<» 9 Ü3ÜB´oÓÀN;|gB–pûóF…äe‹_TEÕtÃõL–¼•U©p†—¹„îO•Öx‹³m…ßgu]ìpxµëþâï¥[m,öBÉe©®¡á¦ô€•ŒDI¬P2‰cdå/µ›7œÌ«5néE$ XØ3Ïg1P¶)ŽXpÖ hLú6øqHtDiB"H¢¯á o´¿qì^¶œBG`ç%ñƒÈ÷7~ÄLÉV FǼ†›B}ëù1h2õtä¾Õø¼m+ V üÆJ¼÷’À•jËÂZör]óy»Ø(p ÕB@€ÀÖ1–_–ª–嬋ßc"SB'YGÿ /7†]¦d¯d/D$4¦?"bÈନï’‹ò sëç•—Aˆœ?C-L5ïzPë¨pÕ‡šë€ ÕI4¼Ó!!ó¾ótï{:ð=xœÓM·Õ:¥Zu**8Ø+^’•'¿ÁM6Cõ°ŸŠzfÑ-oç¢xLš0,éÿVÓRr¾{陋+¿Œ¤J˜$þjªP6¤kxg³,3wµ¹³©¥î|Ë×uñÀm½¿µYèh$2ïν ®ì±q½có1ˆƒÓå².ª–ÂjŽ™YG,»/ÛÊ$Å}Ñ ŠJ8ê:šZöp[½išw™õ'Oð{(£æ*õ€P·7íåþ4–„1Ä)é›3çå ŸæÖ¨ï|ü®yÍ`RãíwÆc;k›N‹` ¡*º5¢k'‚R+…~$p çòä—£¯ipØá…I"ê°(!ñ$=ì^Lòë]z/¥ŒL2Ú½¥^»°Yäö©—¦.@ÚJIcÔ:­ý£©Ê¥šiÑŠŽ±#´„‘áà_Ђý]8Òß±€‘lb“ú ˆ_­{•Ñ7|Ø#fý6˺¦lï^˜R÷V¶+œF~NßèîjY.qu¶Ã/_WÓI©Ía;JâùIC-/-ÆF!ÓW”GCw»C”Fõ‡€8FKô™@9YÞ„ƒJþµÀvštÇÞM}ÆnÎv†‡€ÑÔ½¬u׊“:¶PÇOtL¡a“ÈUP åºÂb‘»ªŠÂ¶¦ãÁI^,|4Pt‚H¢Fl ªây.u¼ O­:tˬ•ÕÚ®!ü1Ç®¡òƒÇA٢݀AU ß®yÐ㌂:kÀ__ŠÇ€#Étü$Þ= cðpTþø¨4K endstream endobj 587 0 obj << /Length 1625 /Filter /FlateDecode >> stream xÚµkoÛ6ð»…O+"õ.6 ]›v)† ‹ìC[ªMÛZ%Q£ä8ٯߒ­ø‘4ë<žîÍ;ÞÑžµ´<ëÝèçéèâmà[©›F<²¦ ‹yžë‘Gžúܚέö¬í[‡…¶(²jþ¹Yeµø\g…óiúþâ­ìˆ¼È# 4sŠ$#ÏhÚ]uãŽxÌcDËÑfyÑ wì*c‰5f‰›$ŒX§«¼qÆ<ôl0N´­ M³®k©Zói]ÓÚJZ?zß:H¸[DdÅZ4®ñq`7ê“™—Þk±Êa‰-ª™x–å¿êoæÙa©7ÍW´èÞ‰BûÜûœÙ“VÔ«¬‚— ±}E˜ØžÔ¨Ÿà^è±4Iae„9{“73•—y•µyµ4,­ÊÚŒàÜžÌ2ª Ù6gFó{¹V¸&” tÜ3æ¦aH.´+¼W¥Pù ÂݤuM ˆÂ|n9Ë)«s •ƒ,ÏR)^cÀø 5CÏå ÊäÕªmë—›ÍÆý«i¥r¥Z^4mö¥œ'iœÎ<%ZÜà'¢ó häsNñwˆrÆ,…œÃi^)ðç&ÚAî;Fn”ÆPt·Ší˜!iàFAœó§k ÜÐó;¾ÎH…³\ ‹¼8©—y©&éwUÜy~Z/8 Çöõ¶J”¥ø¢<bN×P0¤ñø ¾sbâ¾¼Ëʺ8rÛìç-Ø“€°(èó6†¼5–ù•©{¼3ΖK,|~¦/Sæ¬f¦Hàö =ÏþaL+‘#gÙÎ2Õœ: âîh÷#-e½4ŸïøUmÐ:ƒO‹lÕ¢f÷šÔýÓçÚÂÀ Œ­±MÉÊ¥åçZæ•6­÷elH8ô˜°Ÿ ÞPÏqæmäTy_ÏT¿Ë.o…*²zÙéõÍe'vt9ý=b:ƒY?¾w$³fåèÃ'ÏšÃG0ÀõÓÄÚhÒÒ Ÿãë©°&£?ŽæŸ5†÷9¸ $D.çéSo½ Èànš°® '”=ÜKwÚ?ô³…r‚Ж%}z ã ´UsÇh‚³ËB”¢ÒP@{Óë;…„Y½ÒÝ ß@¯<£Ö96TÇmÑ ¥{"–paÁ½ó ¡Ô!óMg>^&~?-aS¯±›>§cu1ÛŽLfJZHE€ÔÑÒ³æPMÁ=š?¨d5>J¥kð‘)ÊÜh7M¶O¿ÎŽ;u žRMy¯ŽgË5¥Ê);±¯3dW„õapÛ…\êQi²f,€ãï'ë›Æœ[?wéòêéѹütÐoŸkEƒÃùM¶â9 v…c ‹´•Z× ‚yàÆqßQwÊ8tÂú  ƒex(@0Œð Þöç1ç¾ý§“rÛ¸ÄúúácÑ!¼–KÑtš[=‡KÚ˜ž„àN…ÀŽbŒ4/œš_œú¶¬uæCõsnÚDöÀŽœQÀí¹Í‘„ TVIš1k$ðT(Å¥Á}ªS‡Ù÷åY4´ÿ[”(r;¾¤ùÄ ã¡7À˜£²þáC¿ÆoV9e+ë2˜ÙMoSØÙØ÷ ëìˆÞlꞸ{™Y)×UK°N)XñÉWУñ€7Û6zTÖ:A`§ŸŽ°Î”È: PذËTpûzÎí$4$OçgâÙWij+ñŒc$eížÌPZej>4C‰º€K£FáMƒá9þDóík\óH!”¹Î}{]å39D±•Ngß”0±mÉ·ÍCÏÄ?ÐIÄ6ù?âœPȯ´¤OisÏÖ¹ 3òÍù[mÚcZ#æç‡#ã#­CËp.µkAÍ õßÁk”¶-[‡£Î7‚)·„4Ò¼ÉÛÕà£9Ùî¡ ˜"¯ô‰@6^-ŒtY ¼HœŽyY«8u'÷à—s³+DÖ5ÀPÄ׊2Ap{©‘ËBs9¿E}²(ˆ¬ï SÇmó2?‘à iˆÒ(¾¢S/›=ìD} 6¡ûme(4<¯ö‰ÍÏ¢"aóÎßµ‰C“/«¡S¼ûh8ÐP§>cÆüoíÝ™{¯ËsÚ?yÿóoK{ æÇ͵ 4 endstream endobj 609 0 obj << /Length 1489 /Filter /FlateDecode >> stream xÚµW[oÛ6~÷¯’‹R¤nÅöµi‡"h»ÚÝÚ eÚV«[%:n^öÛwx‘b9¶Óf‚@4y®ÏØY9Øy5ú}:º|I™“ $ôCgºtƈ²Ð‰BŒê;Ó…óÑ%xüyúúò%£;”4 ( lhÒ*¯šyž•‹YÍsE?ÂV ¨Øeô:NÏÔ¦á/–¢“Øe*ÚÿŽœ©±ã‘…qb$<ÏÅØÜÛ1 \‘ór1ö|?qÿž k}´Ã”$½ñÓµ0Ä×¹(D)[õ+v«¥Ù}Õ(™¼^gåÊì¼à’©C“üÅA/=Š)¸¦íÊZaMº^d2«J}ì»TsÞHsò®m{kJÝɦ(2i¼y}a(H’° ¥Z9£˜1X€3A`tÖµK°Kæ‘)¶»>e 'ÑP€y PÂ,pÓ1 ÜF…Èuä»7•\óf̰«7¨û 4ð%°Æî™Á VCìfín~GîDÔ¼áó,Ïä¡Ð8Â÷]^Ii0„_“»b^å­ù‘•v3åRЦÊöìâÀÅÑÀGA”t¿VÐV›¦4Úµ. NG7çyUÔÉøš€1q‹ûKN»³‰"me–¶‡î:ˆ!„hgÈ… YÁvˆX»|¯×ßM†’˜t|k)ëg——Ûí}ieÕ ªY]¶’ÏsqIh‚!O&‰Á¿‚B¯ss"„qà*o«ŸJ¥Øx+׌£Øm×¼í3+þP¬½³Ë‡Þ…>ØÓßOš5i.–YžÏ´¤CÅa×’$Aj5õGÔFÈ÷ƒŽ¯…+Vá½§ôœ  Nž¨8<¨8·¦ÔËPˆ£'èõhBÅÆDxøÐirú$Ü OЮb¸¯sVÑñF,‰àŽ£AÄ^çE©ûƒLä CÖ/ˆLl'9??C}ÃXW­EÖ¦BU®¾úQÅ‘E,Ïæ oîíÙj¥ ¦Ë\W)1 k+e=ö”Ü_=ó5䊳)oZSÕÉ/šÛ÷#áPÄJTŬ®²Róq¡˜ðwÃõ›ùlUÑW‹»ÁvQ¯ì¾Æyp¶ä)Ô%j%¸ú’îמ=o€IÈÙ¶áµbü‡ÐCQ(Äl¾UÔ=BÞ!'Ï”êV49¯k]òµáºä›5„‰€Ræ_,Ó¡œØ€j/«ÒûŸ-°âWñòêfrÝ™6ºžŽ¾ˆN$ÒWÌ':þÒbôñ3vp šÄÎV“ƒ¤Ž˜ê.¹3ýy4ô7ÈL~„Œ8 *KßøNNgƒþJˆ¿Ûžž÷Œ¦£èßfùnCû4ê …È •nc¹6åöšìD!ÙG†&a(H?Œ™aé–†1¨­Ú‘ ËjÕúŸÒ¯Jã€ÈVké¥÷(¤{µ|iáøQ¦&ˆû©Ôt%Éü²Qh‡Ôýæ>¨’Z¾?^"{3 ‡ý\ò)JÙí'Š~ÓÌîÙ Bè×>ÓÏòèAá(Ë#ð\ÁEyc&øS0ƒÇf?¨<Õ4£p·ù]éWK§Õ^ikf}XW6pde<(NbDû ² ‹™†âd 5|ƒ!~§˜³›R½º+3/×}Ãè¾Ü”©Î}oiVÛµ°{`Z®]êm&×f—›O e6Ý@B!æWjTÔ|'C¢nzŠ}̈øt8®—›b.lžé7|<‹wÖa¼¶9¥¼/?€*¼Ú=¢[%ˆçÑhw- È¿³ÂÖÕ&··)ùWc=2“Ãû>ÝJææmË¿¶ÜP³î†Þ–¢óýÙ€ËñBÄâp¨áÌ¿{²±#Æè7nn¼il/·Dˮƕ•ùΛÀ,bÌþƒ-[žAÝ-B{V1aŸ­"±½HX,ÄR] ßäÒlX;õ:ÕO>²êänW6¼lAdÁmÜÃ^5ÿ"Ry°€@Óú€ÂV± endstream endobj 627 0 obj << /Length 2354 /Filter /FlateDecode >> stream xÚµY[Ûº~ϯ0( £kF¤î§=(ÒÓ¤h´ÀfÓ>œ Ú¦m%²(è’ûÐßÞ)K²âÝmP,âsýf†öû…¿øó«?Þ¿zý. Ëb/îw îû,ãEû, Äâ~»øÕÛèB×ë"/·•,–ÿºÿëëwA8Øúœ%)i–sŽK^ùö÷]¬D’±?¸‘Ö~"­^üºŠ|ß{³\‰È÷6YËM«jê~]òÈS›VÛ¾ÞÑw]+ù¥Ÿã/V<`ù¾( ß0Qé¦É×…rÛDäÉ¢s³F f»]Ðl$­ ­$h2·×ÀuÂ÷VH=på3qør–E1Q»£ÈcWÅÂSc©lë%O=]]•KÄ€'—ÝH¡½®ìeÛ;Ô:HjÉ=#Ž„YÑÐØZÑWƒ6Ú~o­Ø ¬@`ÈäËUàsïÞ nÝÒí-9•2(âŒù±#ôþîãÛÏãÐ=7·$R‘E,­H#šÖ ÍÜÅgâΠ%«JÉšÚy9Ùº•­üÝ Í<òYœŽžwoÞ˜£,šû=^œI“Eñ /¨qÊÒϱš,f!çc»)%kkY6…lÕ5Û‰@®¢÷©e‘: +'“e›—îê¥7·ØI½mÞl ÔpÊn“ubOÉ&/NvÁA#ãÔ;æà~åž´Ä,ËøX»gÄë’Ôº]"¼­¦oc¿ë“?»Lbï/;š9éŽfAÙR¯µÔê¨Q¤sô™Î oÝZÒ0àI Æ'ÁÜÚv¥6ùî4cfi®/œFÚ3;¦Ï÷Ì/ Á=zϺn/Â,óÓ {ùj„\^³—‚hš¸‹@À—¬@‹?ÉÈwœÅ~Þ;ÿ*™÷h<8éY4!UÓæêNf „¸qdn\pÈ&ö†¸d*¯*ä ‘»²ŒK‚Ôû“FíãP©[;WUhÜØDSÂ/D•œ‚.öœO`ûñ j5‡‰aÌD/{3‡ˆK“s{ ¤- /²èScarîGc΀²Á»O\Ô'—±ÉGïí‹C”áò¡”Çë@Œöyïî7ÛF™OO…ÜkÄØ3'†|H" RMèÈz:2¢#îéȈD” ñ>R8]¶“—Éo¹¢\.C¤@Ù«Ònió¶?hÖsDÀÉ{7~”ùWUò#þùŒaK#>ðªA€?(k©ÏÒø"iX’¸,§×Fb¥ú穎u9oŒÐLÛd²¤]‡û0骛–æà2„ª0cSÜFÙšÍRgµwt”Ü7+½0cQ|ö¤ïß/»ˆ‡"åÀCEVcÔ|ÌM$Çœ×,eH×ý%MçÙ$Ó•kŒü׌4cA9*ÿ^ö.òÓ8á_ &BþDY04,ŒÓ'¤$ÄÐw®8)µÓ%ÄÁÔÒðhyÒÜCR:„ÆÀ®q udšÉ>BQb z&e8ïM=¤àÈ£´%Lêõg($&\B6˜L+—«øö¹ÉÉ-ÎÂ5mƱkÚ±á5=fªÜ·‡¾üšC”˜ùQŸWœ«ÊKƒKÓ^NþCC‹#–…ÿ×t®–|²Jë Põ­Â;®¸e28ZÿXrÎÏš´˜ _°¥½"È7x‚ç6Vh‰eÓBjƒ…EAŒ$Ú’­v1©‚1k 0_ëŽèúD“xß׬XÒ ÂÙü‡TÙtµš–Ƹè<Ѹt úÄ–XZðÔÉߨžÄ6 ¡Â3!ò›±ù†Ía;„Tu³ ¡eè¥Ì•¹ 'z‹"ÁK5ªŠšwÃÉâÉHÅ&¢æ{ OKÏÑÂ$y@ÄU›„vDö°J0Ô‚]’ x™Gáö0— ò½ÌŸäÔ‹£Þ¥y"ØwGUšÂÔMi ML4µKbµ STý¤gÝÒ‚ÖíuOФ+ñ¢ßPߨ2î•›ñ&,Ê&†Øä[ ¬3`aA‰}’YCr!×TZ†Üúz`/Æ/ÔàÔèJóHX"G´’¹ ûZlÆòÜåææ§½ûo{"Ó ÂÁsU€…}ŠÖù±el æX²,Å¥¢‹Ìˆá ß Œ `6Ðy$BïƒRÏ÷ oT=Þ›šç8D@8 G1É8êÚeœ1¸LŽ—;ýbùö¥Ô5@NY“ùÀUa¾0°Œ£ä¨0€™: Rï¦P»ö†æ 30}cÊ ;¸s£„F5ä Px™©þ1$à±wcÞÕªóQ$ ²˜<[ݬuÛêã ’. 8è:ÿ7x‡,ÕOóâZ¬«Tý䪸(Ãh¥+…l\h¶ù^ר µ}Ð6Ѭî6­«0ûªí‚Z°é€jHÜ©2ð… ßÌ>²Oø”· ÿr€`kÓø.3á1jßÐY,1N€¾`›w˜¦x¿hýe ÿ¶î&é 3ÅCÛV?½~ýJ›à´Œ#åòȺU çaÕLnØçêµù‘aVéX èºæþ7E£ÿ!Üæ$¥ûêp›oô–|¤kêÙ KÂÞ•*¹ù"÷êöùˆàÓn:º or?¯ …z%ÅOB–ˆáóOyç¤ì9Àã==M=<´ó²{1ÜÒ1Úű§ÁúM3üŽd_2Áƒ,™<ÀP)RˆyÊÞ~“ǪøŽ/\š0ŸÂaqØ›Ef¸ŸTÖµ¬OÈâÍ~_º7ŽWcÔ>™]®%ì-Àw sÐ(T\;þ!Í ¿©mÌÞV-M¥ðû}‰8Sí´Y7f›™ù­] ôñ¡ÒyiI Vßhîgú<âk6N£ácµ§ßlM;"©ïêÑúyuÇã÷JÖŽ‡ ‚`™jkYáÒÿÈcÏéjî¢j´ìç¨ò}-O½ù çÏfÛÕg Ïh÷}{ÿê¿~ôUa endstream endobj 642 0 obj << /Length 1536 /Filter /FlateDecode >> stream xÚµX[Ú8~çWDô%H‹ëK®•öa¦™m¥Q»SÚjÕ­Fž` RH¨Jçßïqì„!(+lbûó¹|ç’`knaënp=¼¾eŽ¢Ð£ž5™YcÄÏò=Œ\F­ÉÔún:ú1ùðúÖa{;™K <À)÷ˆqíß‘HS1¢®½y\ñD`sÙÍdðs@`Š-²»‡ºˆ²ÐŠ–ƒï?°5…Å,…µ)·.-‡äÃÕØJ¬Ïƒ¿·x‡c© Ý‘Œ<‡X>ƒ-h”¥Ù2΋#AA¿vš¢0 •‚7չјºØŽ²$“z 8¢(„þó/vñ4Î#9b¾- ÿIyK£ú^è!B.êkŸ±Ÿyž\'Ðâ¾ C¼*â,­)¹S¶î÷À“yæôd¡Ô¡¾½X‹\ÏâTž]TK;µá—fò”À‰?`Έ=—üYÏ©ÍÓ©Þ0—B¤ùˆØh4f˜ÙÂ,Ĺ¾ ÍŠêÆ(YO·Ë©áþ¼.9·½!_dëdª´MÇ`¾ÐuµZOÆIë¼D…Y‘é1N§qÄ+'ÆËU& ž_OyÁ‘šáÇÊjÔCŒùÿKÎç¢ÑÜÇæ¯3µnþG£fq’ŒÆ.ÆöŸz˜<|¹©¨Õ*•§Ñ®äˆ`{¾^Š´ÈOJwZªRˆzÀÔ8ä{/´Š—/¹1¦&L˜*5öb¦Ñª¡SâÔ,ûY«$Ï. ôGBî"wmæ[C¿1˜ðC%çV5}8²JS¸Ê¨™G É£Æ|Üš©îâ—5o~óå*ùùì Ñs¶ºú «IqIü$¹|VÄ–òåÊ+*"(D1vXÙ(éÕÞ#Ö©CjôÌd‹y5tCðê•f䎢UbhØ|òºV’ÉМL¡!ߥÿo-a^ˆfò‰0oÓµ–¨s»z­¥.UÂù%ÊÍ!yç¥Î-%'¿¤æ0¨¹¡—šÃhˆ°×GÉyÛ¦Ý.Y?=C€½v¶R‡¥­ô“l¦Çû8’YžÍÌÆ3Õ—¨$™\¢+LJ srio~Ÿ9ÊŸ–¢ÆþáÇÙ,ŽÌ³‰Z¾˜ñý~3¾êì”_v ì”/ÍLùÂÁ¡.êAÝ ê‰Ñ¼Ü-õh˜nV«ÊLesPžÊôø$ô>H&3Íõt =›ÏÇMÀ*É ªœoî߆Y`Ïd¶T3ßÞ,âha6ezœ +4ë¶zÿ6@ƒ]}3æØW#ß#pŽÇ JÌ~}³>`š7Ú½5§ˆ>¼*ž ö½Áxaå?  A’mË>¼æÓ¹¸Èß ™Äi#dK÷| ·ŠUó¤ Ëu:Àd¶j”þù8ïĪXôaïw Т Ê(FOAqõ¸pË£fÀ—es‹ÙV¶[ÁU‹$¦­–wÏ»ãI"äóeŠÖ¡þ| ÜùeŒ¨ƒ½O /%ìr€¤ V–êâqq9•Y¶lBõ)¢4<íWÆPàŽøFîBoŒ½ó¥¼çÐ4CuõÄ=Æ7¿ ®4úÃG4è"È­œSUJ%œ®”  ðvL. rÎÓ8êÃtŸ8.á¿[yÇN3ÄqQ4C¼(ô%ݺt¢€>i%¢fŸ†È÷;øô3ÿÕÌ7•‘ü8 ¸´Ìö•¯ªÆr"¡þ6rÂÔë Ü×Xlú î·8_]†å @Ìëiã[–™žvò¼j4Ÿúl‡;乫Vft¤Ùu²6!z§>õ‘?vïß7ÆèêKð¾q¹ìÃz ±¢Ü©OiêUþ²ò> stream xÚ½ÛnÛ6ôÝ_!}š%)ê`š V¬kì¡+ Ù¦m¡´äé’ †ýûÎ!y±½4ëÖ!yîwî­=îý0ú~:z{©/ei$#oºòç,P‘Gœ…ô¦KÇ"ôïÚÌv™žþôö2P"Å‹àh±E€(#N2w(`BÈã#¹Òz<‘!÷ÏM]îQ¸ % ` –*bðK³Ñ•c±(MÙÜ+~FLáǯBžüˆ¬åPÁ8eIØÙ¢‡VSF)–€«ˆäÍÓE)–&¢£«™Ñ3§ýÌÉ-ôí)¹‚§,LÒg –û‚W¹1NìÉèÉH2 Z`ødBÞ¿¸Ë¶;£ëƒ‘{IPBEª$¤‚ /“Ï«¬ºÿ‡ü•Õ¬~°@Ö@>‘‚¥@bQW%„9äÜGäÜyá¾E¶Õ5ޯןuÐl™5Ùkkêkˆ¬n‹)¬Kü§•†:Æ gi˜’«6å-†÷!ÂôÀ ËÝ1øŽ”éØâsÔ›1r&[þ²¾»˜Žþ 8Ñ—b˜J&”·ØŽ>}æÞÞÀ,HïÖbn=% ¤ Œ¹g¼«Ñ¯G]oË}/è)á…qÈxNzïQÊaö^ØÌ±E—ÆîÛ®ÍýCIREvw'ôË2¯Õ8ˆ}ÝèÎEG¹—€’_á kqp¨ÁAsc2NûwtÈwM^Ïé>Ó ¶¯4é p`(œÚZ/„ Šß÷ù¢*ërÕ¸cç?­ÿà‹ÎÉ "kwô-šÜ<"‘œÇè;6ž¨Pù×5éÓlrR`ÕéÕl2¹0Y]ç‹®²ÀsiHEH¡K¸oÊò‹ƒœ*¬´6(üû«å ÷yUÀλ¶Ú•µµNeì¢Ð'ªà»žgU=ä§þ.ïhв!¶Å´K½$âFgÖ<ÄÑcú7¨„&%ÚîÍš~À´Ç¹Èh¢íõ9‘ì·¸ë:[ë§÷·¹"þQ\^“ûcúñú¢+‚£*ŽÓy5Ü_·[]4§[│dµ81gâh8.~\9åöX¦LÈ~h¢¶ @ý´rM¢¦Éßlô^TÜaÕÅ u¤¦á’1Ë,‡¼Àv¸Íký•Œ³Jg‡3@*Æáj/ ž¿¨ˆ—XTh f¤XÆßfgx¹eE> stream xÚÍZmoÛ8þî_AྴB‘CrH‚º»èÞwÀ"íw×-ެ$¾:–a)Mz¿þž‘7ÎK£ÄÊm?”F#êá¼éŒ2*«|PÁe•qÇFÙA Ê‘Œ¬|ŠÊ£XèL*z ºS11xUrfØ©={•A Tf¹‹1 „Œ‹J´ÊZ–¢²ÎâË!)ŒÃ#¯,gÂ[ ¤˜1mVd«ˆäÑ)r6á"à‚å-VäMÂÆ „ˆ‹,, /ƒ‹ ç0 ' É(gðjÀW0/$H9çåÂ)ç3°'¯‹ %+.d5)ãBx ;—½Ÿ„Œyr áç‰ô¢œò–ðRö¸`¡åÉ “!æÅAŒyO±õDš0>î£K `ž„7ØàME±e6 Ebf/â X ÚÀ9[Ròƒz„ÒI†&ÎŠè… òÍÂdõBaY«P¢,H(™£P²`ÅÈfÁÄòÈØŽÜ„É*ö% ¤„9ràÌBI*Za¤Œ ¡8£"ÉÒ,’¬‚ŠN,–!æ ;V1XQ‰W‘a =ÇP¼¦ÇOLaÝQ”(¸ÈB‰*BY¸ÀÇEYìaÇPÖÄÉe1|#‰²UR©2l#QJ‚ñâJ a¨'±0Ë<Éa±ønÊ)N'ÅÏêCðâsGªøÇ?ÿ%ž¡'ÊÂPË‹Åâã䇾Í샖Yw˜ßÖËVªâ- ÎAJÝko!ëoHÌ™®ŸÀ(ãõ'OúOa¾â·u]¾«ZõA¿ýüVï««Vm?õþ˪ƒéi5)~Âg«eÛˆeÉë“â¨jê‹uY5Çw¤¿U³ùôÇúJ}èÂMšà²É[òG|mºÆJl´c³\Ö˜ñC‚’„ o!èø&ÅõzV­»©ÍÇâ/ůÅO¸AŒù(`J¬‚\Öë¥ÄÚÀn(ym…(3è`{wqÜbÊâ¯óå§âÍáa÷âMÙÎëeñ®øûѯò{uÖ¶«æÏE1«šùé²)Ïêz¡ËéòóT—õùk€{>k£†ÑZk´Að6铵dtðöiøï|ú©šÎæ''äZV—óöl6m;ŒÅåê ìUV\¬õtÖd,–в^ÔëƒÕtQµmÕèöª½±"±E¾a‹°W1Å–äpÇnù»ÞëGÄì¢×PÑø¼da}™5"î@fµ¬A̲èð€ï¸íŽCßðÔ‡ú¹>éŽG³¯Ç§~D ïFÞÜsÞË·QªhøL„ïÂDÀ(IéC[˵‹ãE}Z@w½“€t<_Neަx¾ßÃó´—,š Eĺ`6Èÿ¨€t y\ô—Õq3o«Í ÀSWû€·ª%"Ùé,Å<u@2:ÿ}C'çtŠ’š½H]Œ´R xÄá4jÀ…Žcalú¶­Ó¦_GÕ´ÓãE5½Øg%”´C‡úCŒÎ'ÍQj.ñ zºVõb^~ù<ÿï.xêðïfˆƒÜTWeµ(n%Šh‡'Š›¼&Šû˜QGjàÆLа1á%˜-zpØ­‡2?½‚Û‰þ;ÜTðÜèŸâèŸÂžÑ?öÑ]š¬~´›‘6£ÛŒ~¿ ‘{ï<Ú wñp†ä˜av™ŸìÑ———ú?M[¯u½>-šÎQ 8:Úü·n¾ ºOÜÚv7ÛвŸ®wÒÒÒQ4š!´ZG|o:{x§Š_ê÷µ‚9½::YêrQ}®ÓåL],ts6]UÝóµ Áam[p5s”ÿ¸¦Dx¸¬œ¯ùd¾ŸC¡ôUx>åД? ßµ@ǃ£Ó.§-<´þ]ëñxíº:?¯F”ݦß7¶ˆ3d`‡Ôm"€ìĶÁñm«“—xxü¿Éûhü¿™sÒÁñ@f/塯Œ ¥e[`³wRKØ`v)è0TtUYÈ1Œ’¢ T²‰ó]5,lòí”%›Q{¥,ÙnH²ÛÖn3úÍ6ãž›(úl/!êg. `ÙDÞ2NÊB‘n"›ñRÊ{G²º^W‘½l{±Fg÷pÊÚf€ÍYÈ ÝÎbñWG‘è#àþ_)Ë%Ùoñ]÷ªÏÂ7~ÊÚdF!kÑךQ±K©¯]úcYÖ¹+>zl’”ÝØG° MX²Õ>4aíð>–°îeæµ§3# ir~³'Ò&†`–êïNÃò0GT(ì2;£eÿ~³X» áûêȘîtdr²_z£¬œÌôã&ÍÑ&ÍÑ·:±§—é.tÆî]Bo#ÇxÑAN¶P§¤ð ëVW«mƒ#fÄ(ìHÇÎð²æNaðÝ$fè¾Ø>ˆèôb>«šq Ø0ã “HfX|ŽŠD4ìPv'cŸ•ð˺þtŒßÁºÛ¯ùe=]50 E½nþýû«ÓÓÕ¢né÷×ÅŸ¦ýîÍñb¾œœ¬çÕr¶ør½—3Z}@ä´C¡DP7T޵-g¾uû@ w6/ÏÖõù´¿(pˆs(â¯y›Ò£ˆ¾æµNn}^ë÷ëngÞîìð~=’ߨ)"!d¶P¯hn ówØïy° À#*²²Ÿ Çé°ØØéDÒR0ˆÖ4“‹ÞNª²^Öçó¦½m)~øÆèï¶Î@åè]~fŽˆÇÆ d†K…{Nºîe²¹nÃ@f'Κ†1{9sHa¸„2¼3LÕXÆL°ïœ*…‚´†ô}ôs¸Ûs‡'õÜí_î åßýØoË¿úqÓs‡Q}^Ω;:ÌÒðxÙóÝÑ!²Ä7J“rÓSŒÛ¼ú3r[8.¤íIæ·àܶ—Õ刹”­–­úkŒ²ÍNèˆcÜntGl^;UÊñ—‘Œ1z×Ћp&!¥ÛýjÂ¹Ï endstream endobj 677 0 obj << /Length 1607 /Filter /FlateDecode >> stream xÚµXYsÛ6~×¯àø¥äŒ‰ààÙi2uš8­'éĵš>¤DAkŠTyÄN}—DÊ”b¥Ó p±Xì~{@ØY:Øy3y9<»d“¢4¢‘3]8cĂȉ#ŒBFéÜùè’Àû4½zv°'‹Æ ä(ž…ðhèÞßnx!™'Øòû»|»Í§±\Ô›oøR ¶Ÿ]Ò¾8’8>IP$ZxhE9óÛš—Kq;«¿knÿÄ!ž¯óòÜóCŒÝùš?²ÔÃs=„fõz°šÉíä|ÈBíˆìJ`FìÀ —QzÂM Aijï‹ÆˆZ@n©Ý¥Hù§¤úF,e(%G®-eß!d¥í»G<ƒ‰‘|Q{»Ën-ʶ9ꡯxFÚ}àÅJjÑÌùº[{> ±[-ôØ®„&æ¼åšR÷Ý;PÃ7r}!B"« 8Aþðèké'e.š¼s}ZÙ­g¢*¥ý~² ×OW¡íðÈ2ÏD_¡ædgÜ?ýô{‘/WCŸÒÄå›M‘+kÀ¤­Ì¨ÜÄ¢êjMU›6_çÿð6¯J¹»YµÞT¥´âÒäk—åí/ ]ˆÊ0z$t?Ë¢† ¥–)ø¡ôU$âal7½Ý`^WBJXæ³¼y'¹"öéfªÀ Â7Ù†¯ZÚ𦱠³©0Œ\!+ípJ=”C(&³Ø0‘¼-Ï‹ñr(uÄG40{ŠC¦¶ŠK sq’š•/–U·«µ™J?I¢mW—ûÜê8M~–%ŽhЈÝ(‰Q„w¡’ñB4·OUÞg4@Ûra‚£kD³—p2€q€ *K‰êæqjzì‚S”„ñP»=h„–Z¶ Ïî ðûˆÞZJ­êaÑ•™Ô–•0@QHhÙ¼”*kÀÄз{åäR^¿ªÇà¢p OÇ(ˆ»M^Ó´µ³NTsik…‡Üà¥à3Q²ÊT¶”øæÇt%( ¾1„¥(ˆãʪ9>ÇÃÌ$]D[Éôj«<[é- ʼÂL¹fhòrY³ÔK$ç=®h`9W0„ݲ0*ÎØàÖv¸‘‡®Ä˜„ÐHˆŒq%eŒ+?JãŽf_cqû¥—> stream xÚ¥VKsÛ6¾ëWpt)9cÁxò‘››ØžéÔMj˧4ã¡)H┢‚Š›ß]dH…qœdxÀØ÷.ö# 6 ®g¿/gçWRÉbËuÀ(%BÆAS¢–«à}¸ÖWáÓƒÙæýpÈ«èÃòó+!‚’2’¤ ÕJ0…,3êíïÐÈÂ3/x‚gN䢉 7Ç®[3’>]ϯøÈeTDIJ•Sþé¶Õ§ Mb’¥¼söm­£W4ܯ}`#g3i™‚“8ñ6Þè6/«i7OlõîI'zoК a»µ «r³mÝYç»Ý¬÷cø‡R^UzåŽóFçæ išc±u<¹q·yãˆb›7­!ÑBPù•Qîôª<îœì”Uðe_b%œöÚ¯ÊZƒRˆb]0F2¥†q©Î«¼ù×Q_ ¨Î[ˆÛÆ^Öwbº(1ÚÂËu.`qšq³Ë«Ê‘Î=k»¬e=¹uêÈT‘±JÃß굆†LC]úÇêì5\¹GÅ*„b ™„wX ž@9å”qX™óE&E± ‚‰®9ï¶û''v£Ýjó+xþuÜ=jûjÌ«h!c miÊMmÓ‰œË(ãaþXa"po’× ¥Âü°õíÞ­—µ­‡®'8O$aIÿh %yÈÊ$„vjË}íZc!DBdªÆrQçÕç¶,|YÞ5Ú¸bÌ(I@/ Ȭ'o¯g¶ÃR0;ùù»&/@>÷U¿=V]‰û¦¸7}3½ÞWÝiׯ훘ÊicyAGÜiß¿•ÙÿLC¼…Ây píØõ³ë“W^%|$µ‰ðäíW/$Žû1ýà4>¬õÓ³ƒ7cVtØåùîPéçgîhö¦ 0–]Œ,ƒS§«*›¼ùŒ>·Ž™y×åXMÝÀ<«ÆF·‘ÜFXAÙqM<ÑË2 ”=+;gþKþÄþŸV1»\Î>Θ- ëRÀsM!»Ånöþ Vp ƈÈÒàɲî ‘X°*¸›ýýÍÜZ4C¸K©H¢z4>AâAqFƒ„1ÈžL™šÇM$U¸ß¹ÝÜ $oNú`àÌÝ &iUš¢‰Œ€V'WBaü@®lNÄÔ ÏQÐËÁ‡ò€ègž¦O é>5¸Y7˜;»[}ØÂ\„MÜöß"¥BDb‘p›77ð-Ë×à†5.wfs3¦,\vçfÒt #¢6¥AðÃ+ø3±+b#Zù„ó[OÁ°Õ‡x  LEÙ•>óxùñ¿~Ó6e^oú»Cu4ÝM¹Ó/ÃÈ{“oô˧Ʒ‰FÝ g=ˆ¥åJs!,Jsž}¥)®1J£˜}4°ºGÄ¥¥C”F†!JãÞý®1Di«rïÖgQ:–$¡½_>¦!ò‚‹¼g©9üÞŠtÜDâú‡Ó”Lfž÷ÿe< à endstream endobj 706 0 obj << /Length 650 /Filter /FlateDecode >> stream xÚÍTMo›@½ó+V9©Þì7Ð[Û|H¹Tmè)‰,k@ZHÒüû,ÄÆ&4i›ª²³fçí¼7³ tî| ã3.P€Å —ˆ‚¹PÈSKÎP˜ «UîMxq|&øÎNîQØ)§Ý“&E\-6‘i¶:¤;à4t¾;B‚è›Q,¨‡â•suCP/| |ôÐn]!A)öà8‚ ºt¾<áí¿[l·,J V‚"p,”g‹[æ÷ºÎò²~ÔyšÕe5o€ÁpàÓžÚ5!lãbåΙ$³¸0EiCÀÔu­[ÜQÚ* ˜©WѶýá#ýQR`F”-ðDWq™oê¼Xhmé {ì£9ƒöªÀ¦‡™¶ª:Z'Q™ØU•ZÏw6:¸LÎî]*gãzô"´‹eŸhòu÷ׯuÕK·Ú”y¥»å­¹ÓïlXꤋ ¤PÊÛ)è1oÈpŠƒ@X2ߪ(Õ£*ª2œ=UFfæšH¬CÚôKÝQþ`ªâwºò¹Ît¹²»_5á}wü°Êõá×CªTbÂý~¾«º¶°‡,öhï]“=Μ·8ƒœþˆVm}q|@T¢×€XzÜb™ü¶ŒÊÇF÷£¶Êê¨×Òçà#¤XYñÐphöN´®yó. ÏßUA|`&ßÖ¢x@0ebÊ?§é¼(\ —Ãt£vÏúR7=’$9¸…Ë=˜=­÷<0ùw‹ F%þȱ:;ÿtÀ®£½,{#i²`†”€ÕåÕˆ,ù:6wIÂÈŽˆÕ¿u§1x‘׈·õš¶˜WøŠÏ0cth+ËܘE 4m%0%Mîÿf%ýhÞŒ d¿¸K?ØNS endstream endobj 727 0 obj << /Length 2391 /Filter /FlateDecode >> stream xÚ¥YÝÛ6ß¿BÈKe`—!©ïŠb‹KŠAïš8ER²MÛêÉ’+ÊÝìýõ7Ã!eQ‘³Þü ~s>3ó`ðà§›—7/_ÇQP°"•i°Ü‚sÅi¥œ%‘ –›àc¸Síá®lvjÛ•µø}ùóË×Q<ÚsÁ²Î4ëE†Kn¸½åÕòæ¯Mˆó2…i°>Ü|ü˜ü9€©"ÌÒC 8¨ãA¼¿ùu8oú5\H ÁY‹ ãË£‹L '€2o»dE.;ï`ÓBðP-îdÂÃ׋$ »…HB8F›sf9L‹Œ¥Ñs4ŒDsêH3Ί¸ zþ©ôº«Ž}Õ6gn<݈<¸9KsÚ}ÿ¹ÒÄH]5Ê6öÕzOM…œ}îU³¡~ßÚïÞò(?W‡Ó:¥[v¨šóh»ì9Ömß+»tSö%³F4fö)• ˆÞ2úA—;5Ëâ—,ûú·,gŬî?ñ„Êã±½Þ%œ‡ßÓç—oßÞRi¼4§û²÷æ^TÕôUÿøâ©5„D@`E’ÇVWFa—ö™Ƙ»¦´¿xU»eMɺƒ7ùúþíûWt9·'t±Þ·¬V;£Ï1?÷ö°ªÙ«®êY9¹oùîÃ+”˜S”̈ñ²î;ô‘Ýé,é¯*í e9Íøê™t–½Òùç{ê™~°¼¾ZSר©·îTiL;«G{ üXt»À5ß}Ig³L$îV¸íȉè©s.¶Ý3nãLrtÙWÝx—÷1ð7`ò‹>ªuõ‰sé¸Gç5ÚõnN3©;clh^ û‚ñBøæý=y6ÚÌLtˆ8ãÃÈáBš…µE«)Ou¬IÊL†UO³¨Ò<\·‡`Õ†Fª~O-{L>>†fïÆNÙÓªáÖ¾=R£V ™„#⩚ 6‰fÏ•<4ÙFpåo ˆ5a{² xÒ=µôéx¬g¤+x¤Œ4FÆ>ZÆ¢³΀ÚY"Š7í™(ÐæL61é»°(X’"‡`ÕýÌ5õ®ö»¥“å8X¬ÜL¥uùè¿jC ‚ɪ•çòÌ`éý¾S¶Ùš¨§ÿ1 ]Ä¢D9o¶3â. É9bøŒ¤A…D}‹„¤¤llŒl §"9š2|c Ù‰ÀЬ· ¿8¼íÚÃä8R“¿»ÔôÕ Ž}Ԝܜ ÿ–xæ»ßº¬ëAWC  ¸XìvHÚ5 È$gŒ1T¥`iî+ä~Öü™È2·ÙdsJ¸FDžZ$B(¸&ÊC„®·úS­{»ä¡Ba˜atlò€ŠpXXUðÁc`ˆ2’»8)Â{#I£35-=Ÿ¹²jH€ÐÂLJmÛõgÝE±ñ†(JÂc×nNkEƒ%YíÀánOÒB™zFˆH(jòÑõÛÇk4çL¤Éh#Qò¸* äŠÉ Rù7âcÙUåªÆôÀ,"QÀ¤…äãâØ† ³lÎS/F6 âöÔ¬]z;%=2)´]h‰IRƒ8øEW0ò‡6E l¡¨“ ²*à­A&w5´–¹ä6sAÊ‹'ƒ»&©³‘T|8Ö©þÔ5Ö b&¢Ü÷K_}RÓðà𱜋¿1Äßot/%'ጯ;i‡Ä¥ždèÄ~~~1xˆB0 Ù‰›P·¡ñ{lBSWÿ¡"Æ öF)|@ßu[·'ëC6±ѩ͋‚·B– ÿ}óE-†ATvKtõ_åÍ¥¾ æl,eHÕ/€»GâöP>ZîkÝÚ(”@Æžd¾ìðKDÐ^uúBQãXVÃF¬¼DXz†ç޽Ò×[ù=^YüÁ6ú³y®Àèºmú®­5šÈÕp” -‘ãC¯€a(¢ü®‡—*;GËÈÂ7U+»ÓÙ夤à„ç¡'µ‘æ²j†>œHJ³U!£ë„{æán° ïf (×âúnUÏ‚)|29Å•c¹ßN#E{´C]µÛ÷¶½jû¾=L£j­¶O†”sü¨dsµa̾e EJò}LÉg†Q œrï5SØ—26ü×L+UZ}áôšúаѩÃ(›ÞРͯp0gw‰¦wYÂ瑸ž_оJoí«d*'>>0€Ú3à="uUCü¨­)NØùG•Õ®ÖjÝî0ÍA·ãiø~ßžj4ª¨p© ´0/µ©ôŒ'·jÖõi£6®‡_WÐÀM‘ýܼ!ù>‹ò—ûiSÉräQáŽÏ'Fƒùƒ¥ÇÒ\Ùš‰”pˆ¾_²Qewf.`fT³°z˜©å‰xÒì!ròaU3*ìttƒ#ÙÔ˜Ò µ¯ šñS– ÉCz®ÌÕ(2üGí_…ŠÎ$â+‰'ðàžX¯]N‘lò8 À·Ã2 gêÈݺ?ƒ}1h”³t­jX3‰vžF[m¹f‘&áóó»I¥ðÿº,»è²‘ÍÆåLŸüš† ç±_Í¡/=‹á5Ø•”zÒ6Ô¶¨i`»„|ö䃭D KóÔOœ—䨩´ÅLÀÛÖ<S“nO5µ)Áô^ÕGc²8hsm{‚M  µQ¤dÚqjoÇé- W0é©ÚNÌÿM`Ô|‡©vïŠuFŸÎ&÷åB‚ÑUCjHÅ-ÿæÕa½¢äP|^›gªŠ Ï®k VnÙ`;«¶Û@FwUÁ2ÊHz5«é1ÏÌ’ô§†û³ì,½¯ÿ£á篂ʼn÷§Û')ï„à£ù“ŦÚÞ ÷#Í¥­&“žÝ˜}}#þí×?¿msY÷å¬,^-oþÂ3‘D endstream endobj 747 0 obj << /Length 1880 /Filter /FlateDecode >> stream xÚXmoÛ6þž_!äKe,fEŠÔK~H×tèPlkâÚ¢eÚÖª·Jrœì×ïÈ#eÉQR¯ðóåx¼{îøð(ÏÙ8žóÛÙ«ÅÙó7>wb,pk‡zñyà„G„ÏœÅÊùäÒhöeñûó7ÜHú¾ 1@–ÙȪøÚíÖ\Vwu^ujÉ™g6‚]†kçvñœ…jU\˵lf4re™Êv´~ gd-h  "T°˜qá*.fs&<÷jµŸQÏMšö¯ þö„Ç<Â?Å‘ÅVbãã,ðܬÝ%9ö_gm'÷Ø©Öøÿ~—”]Ö%]6c½QášåoËuÕ0Q•Ɔ_·IÝ[ºr †Æ! >åèÆ4Ú.ó¶ú þì¶vCléм0ÚàG"§Qʰy­t²¡U¡ObÆ~.º1ÕkÑ)5\Ý%E?Ö‡þ-( xï_þ€òlÙ$ͽ ãùf£Ìaç:– ÖÏÕÉ…–ëy%ZtiÒ´áANÈVí;Ó/êÒ€¡~ÑÊ8á°éœz$ñŠºÊJ­ôx7!Ü$åF®›¤O­0öBì ‰P÷Ò ²«ÅÙ÷3ªFûS*¸Oh8iqöé‹ç¬`?Žœ½-N) áàzNîÜœ½rM£  `VÀ©# ŒŒŸ–<)`$Ž¨Í¡ÅLàé|6ãžÛbZ¾ªî°ñ—U6í(åÄ[þ‡£Èmþ·ñHS´êµlÓ&«Õ‰ý‰£6b˜(<0Ð3å¬ò1ŠÜFjšÈZØ£E9Í$ðßiÞ™¥ÆF4¨º•˜å+máRš-²ÒñjÆ"BEOÆHg üqòžÎ@×ÎFèìÖX£ilÆU ›™¯weÚ( [7•"ÐÛ üÄ‘Vhµ±D¼´‰b‚Ö­Kš ¬o_Œ‚†rÂÀš9 ·fLŒÅ>ésx ê #õ™VM ¯²Ü+78…a‚‰B®`;E휹 Žmf`E‚ã…ÔífÔµkA»l¾ï’¦Ër‰âš´6ßMÊæY©‘€%* zlè}S™&›–Œ}Pü!â8Yöw ¶n¥Q톭‘íÂ:­'Ɔ c86ÑnÕ0WŽ…ã)•ˆãOz*µ†3æfòp#ÂØCÐa¨…ÚfïmfG±‡~¯ê{µP{ KuÖ´/Uç'§ŽOVfÅ®8‚°HÞùîèÎtæV`þ*/v÷p¶°e@ƒÖÈV裛zbŒ õˆAm–àPØSªˆQ‹˜±¡}°òœó`“e•›sP…|h“<½y”÷܃ºÀHêZƒ  ‰|x÷Δ«¤K›k}Gsçk ãrW,es~¡ÁQ¶øœ­¨«6Óz…Ê ¤Ô „Âr­‹×]®è‹*žá6ípV—kAä¦U±„,]áè>ë¶Ø2j¢¡œéyPu’¥ú]»ªÆF>(ór‚Òn¢ÍÓb[SSþ=ƒ7 °Œ¹ v­©iÚ]]ç÷èRO@YÈ-ƒd?-$þ! ë¾zilIdJÕ²:.JNr”(l|‚¡,A0®wôýpò¹ë¿Xൢí3Æ,í ûre‹1놵^M6ê¡Ò×轃‰mtÛÆ~ލô+ KmMW>Is±¾]OÀ“ððüS·ÝÒ€DÌz¨/”![5¹¥¦|6˜Ò~«–rLJ,2§Eù«†×úö1R‡a¯NZüo¡ŠžQ­¹<(Àó.yá83Ó$ÏûœL1@âtðõ¬ÿJñ#’ª&ŽÑVºpR1Ó.'ÓŸÐ0´‹D–˜ ‡m¨? S GAá…´é-ÿ‘igDö™CëW>â,@cSªisb`HÛ1›s»—IC-Št.M£O¥î;ŸëÓàûB½/W»Tâ`‚c&ú0 ý‡ÝEÀõw·Ó¯—f[„ôöëûS"Èá-ˆÁB´d¼Jõ[&Ý¢•ýûv©¾›¡B“ æÁÇùQJâ5K& «ÅÙqް endstream endobj 761 0 obj << /Length 2273 /Filter /FlateDecode >> stream xÚåYݓ۶÷_¡É‹© &~>d:×ÖÎ8“¶éYMìL‡'A'¶©TîÔ¿>»ØEòxw¼Æi:ž3WøXìÇ‹]À_Ü.üÅ7¯~¿~õö} ©H#-Ö»…ô}¡ƒhG¾µZ¬·‹OÞ­©ÿhO»ÖÜT÷Ç¢j—?®¿}û^½‰/EœW;C¦8ä•Ïë,VÚDœ&‹•Šq º">j(€ˆÇfw*7m^•Sëi¡Ón½»¼(–+FÞ¡ï&+ ³%ú.o÷Deø‰½&_J¯¼]®¤We¨5«—2ñnOS¶o )Q^»gvVkKm³6ËU¤RoízkÓžj+åbBjPTJ‘†!‰÷óR…^Vœ`¸ }ïpjZ¢n¸%›°Dˆ †vÙ]Ì”1R‘H톾ažå–2N¹Sc¸/kèkE¢ÈΦ&’4íûq$áJ¦R¨TŠT´|ÓfíhÖ@Ø8i¢œ°k·0NË›6DZHuV6»ª>dÔVu Ñu86(4Q0ÕõåM_¹ÀïLÔ8ó³u^Þ>­2KOkÒáX5¹ƒé<­¿w3V*P^¶ý' ‚a§í¬õv6ü¥ Gz(¦x#Q›æT ¼éU»Á\Ü<º¢ÜqœgeáìŒ2²uyk¾ÜZÕ©-rS‹MUT§z¾ÍxüзÈìœãVÆ_Ç*/Ûf¾DÁP¢fŸÍ|h8‰±û⌠Ôäÿ~‰48ú7¦­«½D¿”¾g¾¨ÇXªŸ«Ý®1íKÀS‚@ì%™r´@‚Œ†mÐu»„}$:/GE^2U›#ì8ØV¥Á ƒÙæϼۛr"Æ«(úrlÒ Ñž †pZr?mˆF}MŒB¿¯­âNÙ×+` éXñ2‘@ªpÄexÐôm § ¯»ðšÃ)œV›Kèv¨ì"5„÷Û b'2 u¶9?"޼ˆóŠTÂq*‡0Úÿ:í+<×ïØÛ§Í~€¶©:eu›€“7ð€‰ÃþÞÕÕaÄç,L{©nž†S ™>Ž&êDôÿO0Ýÿ`*3QæCéÃn:û “ÎﯾûønBR¢úQ/ÝÓiÌ©*[³C¬d@W µwțƆ'ìîrц~g5ϫ͡ZÊÀ6u†FNq7XÞui¥U öžTD…‰H:ﯯÿ6¥Ç"o¤ZBÅ£´Ã)€þí+`R» vY ‡ #b¨ŽxqVÐì«;Q˜[yôl¯Õ-f°ˆf?ò>î«S™¶N] T‘A GY6ü²99|órSœ¶fë~á7a€ã$ƒz 0Íï¦ì-µ¸˜òÏWÖFjP#X¡ ­3 ¦†,Ëœï8„(X?pr Ú=¦®ÇãÌX²{ ãì‡1êöi(Ÿ…},"¿AG9ïÖ´‚5ˆ#[=\,2x™J‰¨ó)$`þ¹.…ŽŽ•÷¡eóRH9Bï&㨕M5®ûì§„²Ž 2ƒ:j·i»J†§ö}U‡ôÆ0fnèMÝæÍÊ ez/OÝóÊ’¼Àü׺8žèâfy½]]×¹E(6[Í‘èA™.¦@PèוW4 ½ƒÔ¦:Üä¥ 3ø“"s>N¡ˆ’hè^>²"EGVñ¶²õ=´@º;DS Ý{S-d±‘Ë(æÒðÌ­!'Ó”› …±íTßEõ=t\ÍýÚ-êâ£ò5^r0ZØŸ“ûl©tù¥Ì²¹È°¾î[×fðöfÄâðh69J½±;רFt5üÉ¢FÌyýv*ŠEzI>nªz IÏg?ôáO>º ‰VóÎo¤"¶~ì{”.½ ܃Ô'èÙù“-&¸ Áÿú¹ŒÍ-tFŸ7®Q~Hõ£KÙbãtÜœ©#£ŸV(Ë2d AcÇq”Øb%`v“Z„¡nd¯CMpº+®Æ£¿|צlB‰7l2Ž)—;žۦrÙ<GÿådS²8e_ J¬›[›8uµ½ YP>£ñ%âÐe¸aσCEãªjÈ—nÜùp©0Æ7ƒÝ®î ò­sÅ‹ñm¡uÕ³ÇÈ(S¶õŒ©çm5ùÌVKô³[M}ïvšŠÝNSãúL)—ô(ä4è±Ö…/Šb³ߟÖLF©Ðéÿ"ŠÌГ%ÒÑÝÄ£ å‹BV;µ«cP·ÛÕçC^Nçep"w‰Ùd‚'#‘\vüùÝ?VzD3«= -ÕC !æC÷/|›ªÁ#š#•Þ1kè>ºm m®Í>3%X%¹Ôƒö’{Ή©áÄŒÒ^èïãíÝzê@ŒBíZÃr r)í+÷”ò2 á 4$ìqø V°ó:FøSÛɶ™~bqßÕ¡ÐÞ}¸,ädEΗ‹”ú~0umü5}¾ªÍö« P@îÇÓªz²TúòÒr¹seÎz‚ëC3G±}ö š Õ=dgV+Ú\¡/üpTI¸²á˜áCPK[²—Üwqù˜åµÛøz÷_W¸ôÒp§´ý!q¡ÃöÕ%¡ìÃgüë)Eàí¦?Äè³Ráð!ðÓ*„€wO’}ªÍO'ôÇá Xˆ?Æå<‹~šËÄ3ÄÜ©.èçNÄàÿàð›«öÃWйËâ®*ŠÿhjV÷Ù~œ×ûø¹6;cÜ)7fCãpœ p³^¡‡ïÍœ°¼ÛòµCúZ¸:8ô•ïKélK÷œøÃ2Â;Ä“+¥ÿÈuïàú鐕ls|x¼Ü%Pχ²{ydþfoÝÓh$º Œ§bûO›oò¢àÛ‡kÁ)ÃáÊîy¨½¹ï[A—$_Beš²3 ¾Ëj8IydÄQ}™Æ «-?,¥ÄÀg®¨Œù¾7Õ=X²¹› 22=@)HWðë#¿ÆN¾nº\Q+¶ŽT+‰IW¿[¿údë6 endstream endobj 674 0 obj << /Type /ObjStm /N 100 /First 873 /Length 1835 /Filter /FlateDecode >> stream xÚÅY]o#·}÷¯Ðcû¢‘(R”.‚Û.ÒhEv/poAu&Y£®ØNw÷ß÷pì¤ù°Q¹qZ 4œ3)Q‡¤œE\pY²‹99âRT—sp)G´²Œ– ú€T{LNØ^³“bÏârŠ£œÑW{V§dï‹SÈX]‰öX]ƒWžE]åõ'1H¦Še-èÔ:ÊZ]$f—K@§Tt¢‹)™„ÐQ“$™LÂè`h%š@Ѓ˜}…$3®À¨)SÔÅbF”â(†-ÔÁâ\“£dæWF£æ*èØ àj™`.ÆçByõIÔÞTG9f§! ƒ•TØL:Œ‰ŠI.R09ÀhHØahQ\JÁ$ŠŽÐv¤„éÔÞ0:0ô׈í’ V9‰š„°µ0ܰ“*Ö%©˜{]:¦Â60^• AR¡¿Æê8šê–Á¶•Ù¦"s Û`ÂÆ™!Š-à’°ÝЋ«¦‘RqÌŸm¶ls`¦€Ž@’":fÆ2«œ‹Ì*'ɦ‚˜ñUy¤XyŒÀR°œ ×Ìó©9 ¶zï–\ë› 2äk²½/>ÀË“u“ ‰°WîèÈuo]÷ýüÝÜu¯ÝW'—3¿ŸO{r3õãùt~³ºýçq?z³þÓ×î›oFø{¾Š©D/k¯Täœ<…}t¼œL§jx_³×î}ÆI îÄuÿûÿ/®VŸàªÉÛ˜ÝL§§»°1„5˜K&m`ì¨7ÿiK%Óù`èL &0+û Ô&õ…Õ°­Í­K¾òÕ F ö<<8–êµÕÀ¨>š‚ç³Õà±Çà—TeýÙ1ÂOâxû€76d´y§²®¿ÁxÝ›Å|ü¶Ç1qÝ›×Ç®{×^¹Ó‡'ïÍùU?ê¾Ã´ýlµϨ}nçk‰³;î—CD?÷“óoçŸÝp"¥Š'ÒÂÑ;ioÎðAÏûÖÕ|Šîcÿòm#uðeÛ)ÚF€ßp˜Á‡RGF¤óºím'ö›À”mdz pL>Q#8rò";Ý÷Ç>ôå—tßJOÜ·†¿ã¾ë´Ää–°™J–¯Y{º5tm‹UÈ ]¼‹U1ªG €ôÐ òª˜¹‚¿g=½ ~Cìë^ ãw¯Æ«É|Ö½íþ{ò£ýõqµºþO×}úôÉ_÷°ðzuƒXvqÕ#ÜþÖ/V“ñ´_v¿O–Ÿ}¸YNfýry6Á M§“«~6î»Å g—óÅ™½¾:³@½ð×—_*0GX@nÔ3ö•”¼%–‚E)î—<\>LÌ#kl§”ûØ¿¤”màlÆp+˜ÄçÛÀÂÔä2ä^MØ”“[mیݔXÚÀÈ­}(© ŒŠÈçÇDüoCãïGlb%Ë3Ù¤*Yݵ›MöÏÕ2<|$ƒ‡Á*IÙrÊ=ÏÛä÷~õq²X}é'WW‡K×Qa{+U)Â5¢•¢Ñjy"òUöJׯ.æãå#V°b©•`ïXsÆ—£¢óV×¶‡eKι,䔤 ‚M£ 0%~päh±6‚ÑZeÛ&VoI@8âÔFªû§0»xæý]Ò¡'¸]L<‹tìZe  ›6nZÚ´iÓò!I %'⦑ø’ bø:D½ìUiçq?ï—¼"ÐŒóQï”`İŠõhPb šÃiB FuÈÈ…äæÉ|•‹U,e§&WW×ÓùY8IûÚµZh&*‡k4AtçÝ+‚|q5¹ür@E F»`‚B[”„×ù§JLÏ¿ô‹Ã©À¨bz¬È¯‚ÝVPö-ÇÝkñaùI¢öJ÷öϘ’}-òà<”jdxdÝRo'cþÜ–\½]Ã7c™SÙ?)lâçîXÀ¡TŸEÖü”¬ù¹d½ÑO7æèÆ»q^·%i«ÔPÙo*Þ¦ ?²]¡gÒw7+õóß‚\Ý\®úóÏ&©Mì°T‘P.߯"p…Æ6vÜ*q;”x¡Ø-¿ÜÆŽ(|ÅÿxìˆÐÇnncGDýÁU÷‰vêy¾ä=n·‚³U)6‚#§ÒNÞ~¥{pÈÈ”S€Þ8r’àKëÒR…ð8ÿ·/û4Ç'ä+uòÕ,ÉWÖÖÛk$ÙÛ4ƒ‡¤“ïÒ K¹²–}ÒŒ¥\à˜7)×ðÎ)—yIí'÷>öÎýì· ¹—büÙÄ“A endstream endobj 771 0 obj << /Length 1079 /Filter /FlateDecode >> stream xÚÕWKsÛ6¾ëWpÜ 95!<’È´‡tw¦—>¢žÒŒ"!‰1 Æò¿/^”I–v”Æ9t<€àîb÷Ûý¸+èí=èý²úi³ZßÈc€Å8ö6;AH{I %ØÛäÞ;Ãàýæ×õMDF’„"À’TÙ12û½<ˆJt·9—\‹¯ »DÝ0Ö Å'úЪ¿"1…þë²k&ê«ú©×êG»ýSÇcãH™E PÌœW¢©n·ÍéX6rbU½ûR¨þ‘m‚TVbj­ü¦Bk­{Ú ÝÉ~'Å+gôׯg¸´c-¯÷b×òJ< CF3Ä)`idõßœxu,E÷TÓÕx¢”ã8:ƒ”ªôk«,¶-o4Wû½† _ Àh(°º%Vö„Bÿ‡Ð®V\kV2ãmwm¹èôÙŽg²iõ.{(µE÷º:îõÓø£.ißY©ûBœ9»›¢–v»kZ»Q™q6E^ðÚÉ׹ݔE­ šjÜŠîN´ÝÒÍ.ºï]p:G&Í®‚Æs©ÓÚ…§|VáˆöcÏ[Y”îÈ”Ä, ÷ ‡aáòáènûÑ.WÚß«ëÉ RÆ¥AìÐìv‰/Æé¾ÈÅ‹!ö ò~`‹H\ŸBvoÈå¹Â›ÿ?Âô¯€ÓIÀYSm•X>ßt{Õ×°ÖIi úc˜L­Œ.YÒ€ ÒZŽŸŠÈ"»ëÀi±(•D-o·%¯ï‹«7›ÕÇ2í›nD@æeÕêÝ{èåꥺ–z÷F´ò"„@¢ú0ôJïíê'?ù¦³O[£r?ŽE`D§]{Ö¢d¢ˆUßAçÎ òHm9Õ¬ Š¿$;Œ…a„0 `l¯ÿYtY[eÑÔ‹½o>ÏÌ‚*ï $ˆøGžÝqM ‚"UyµäEí^‰Qÿ$[nm¬ŠÆ3¿Ëxy~0LÒ"ºèÌ!‡»¾Î´ŸÎª¡˜Þ8ÈoEÉ¥pÒ²qƒÈtÈb ØÛî¼0±(=ËS²!Q“¦jrPH3J'-HL"ôÐⶠ󔚂’d0{òؽZ¯?´uSæ`¯ÚoAѬ‡2ZÏç˜I*Rå…3fàЃTÞd½f ×X§KŠ` ÒoLÕ\„ãÏ´Ï1ä÷ UUP )ÝLknfFmÏE=Ø\Œ³Ä½ }pL@œÐ¯âè#lñͦn#4ÿ%°P¥‘Â)fƒ ¨ƒúŸŠ¶©uþ- ¦Lü`êó¶húÉAÙ ÷ÜwŠzÌÖ Ó4ÙM::„c£¯À°öµ.ÃÐò&VdJ§¬ÑŠ|–ήß~™t¹mìšt§ d5˜ã!þ¯N€.žàŸù™3¯ÔÏÝ|£alÚŠËÿò}½P ÄÊ8~Qtr!ýƒHõ'ÔðÀ¢Šÿß ´ö endstream endobj 788 0 obj << /Length 1010 /Filter /FlateDecode >> stream xÚ½VÛnÜ6}߯ ò¤"./ºèƒÛÆ-Œiã퓲D­ëVJBà¿ïð"yµ+;qš ,I‰Μ93GA¿m~Þov—G1Ž }Ž(!˜{ ‚}ÎÐ>C7N‘ÞvIµý¸¿Ú]rïh·G(#0¥·1ª¶lˆ5þv¿ùgCaJ}´Ë8öxˆÒzsó‘  ^^!xGè³ÞZ#‚QpŠ  ]oþšíŽÚy¶pžx…$Àg®Ïç âpqˆá8¢S¿—‡"ÝRß)9ô[—ùĹº6cÚV­4S0*†A˜Å⓬ìS¹å¡#kÅ*AìaBèK Сòµ<ïcãû¯|(»¡l›EÄ‘/²G#äÒ3{z_Øp4+á½°Oê¤Q=˜UVæ[æ;¹¢žBÊž,;NÆ»ªz¼u9%àAÙÏç+‘N{3äB]óÙ,ÚÜŒC!jl©y «¢cDGMx÷ÉA¬ÂrÓ’UK˜ £TÊgø„8?™áU&òd¬†W¾äÖ…ÜB䇱ìúgÝ{Þ­É™c èÆõ •Ì$„\)aÊ<̉7Ñ&A“Ôâ éu~¨ØWC;Se=)Ó·- øS!0±ä?ð6Ò´š"esX#_"íÎ J”°Fd¯—xQhN>8DZXkëó—NáPW©„¥¾×P«ôCöu0À€ÕHàÏ¥ö#öMÖyïŽM™&' m 2§& ±½çZØÈ/ª¾} ÆSkyI–µ=Úy‘¾±Öà‡#í¶¾?clañ‰i} ¹¹5Æn¡å~Q:xàùÿ¯tp?Æ^.j ê½ÉLñ|¥ˆüò„PärëùN[Ÿ”µoçé–ç>ÑmAý‰§¥„{!¤(ú>R©Y|/)9¯~Bþý £GPOlqh<žiR””/ ”õP˜Yb†ãjÓ´ìÜUe“Ù}Ó¤“e£ú ëæ²MV=±›¦T©Å]+¥i&ÂÚÈ¥JœšÃнÙí>AáÛÀwp™ÔxtU0Èõb )´8>ö}ÅÐÞkÁlq’âOÝNߺû¡ºµ$³Ò¯æµÑ, OÚú¶•š„GbvyñÇõÛ-dÍio;æ´€z§åF3ÖwSÝL*¥‘=ÿ X”a?v];Ëר-µK€¼ KcKÞ»Ö¥E[_ úÕáÀg”Ë}Ïô5™V‹¾hÇ*3ó;ûL }…й½V1ÛlÊ[9oTIײ¨–"I {|~Ù[[3„–.­TG ÖPäce?ßj e¿F ø¸ÕpSã›Õçyñ1L~E&Qx.@r­ÃŸŽÐ€ÿÆÎ<ý endstream endobj 807 0 obj << /Length 1102 /Filter /FlateDecode >> stream xÚµVKsÛ6¾ëW`œCÉ™À·omb{šƒãØÊÉñd`²S RU}éoïâA›RdÇqÜÑŒ»‹Ýoß‚ DÐÉìù,<ŽbTà"e)š/%Gqв”à$bh^¡K1ÿjþ!<Ž£‰dŘå1Ø12}Éñµ”T_;ÞVBiq'Á1Så`ÔX¦­£øªkD¿¥ùØ³å œÆÆñ4Çi^X[oÞøABˆw*;QëöP6:\$N¸߇A8Ç¿„ÌÏ?ÁHFàTÅͶíµ•–Ÿ3ê͎泿f¼%ˆÞ#›Æ`…e¨\Í.¯ª`ó‚­"G#ºB1¥8° jÐÅìÓ£˜ô±)®¢‚PÊbçÖn „Öì$$ζ.r:fóΣ°„xg~N<‹OoWÊO®¦ûëÆ~Íý‚y²ù͉çÄ´±µ³vQú4ñ–b%úƒ'0o¸ÿÙRŽö”r’å8£‹÷¢/UÝ µl÷VÙîuÐUU@U%VýÓš7õÀ‡Úg‰÷·EظÊÀº°€ñ P›lÞZ/pfÂRà„›žŸÌÐå>ü&ØNƒcØÞÐíK¦½gŽ!$ãýçžßˆç_®Ça+JWþXí?:ü½xÝô/Aý϶”ª“Š›´e¤ž\è1ñ†¥° uûQ·ƒ´ûÜÉŸÛÏŽ—·³¶ñ)Tnï ªú¦nyÓÜYɺí»Z‰Êî^ßÙñL BYw\A™'‰ç \Nò Û.¿vY!\þÄ…u²n]Ry³Ä•Fs9 ]†ƒâ•¸nä ÏƒC°qVªªS¢ïq)W!#4 Y AG`©ÀV##^ÐÓás“t.pÍ=Ñ–âE¹z@!Êî«ûAšxÌô4›µ–rEàÄ.Î5{|<MÀŸ(—m Æ.ÙŠ·~ÝŽ²áÑÙE8? IÂð·j§´£$ÂyÁFâñ·¼?nn¥­ª—P)¸W²Åmþ«¡Š<,MX½ ¨«OvÁ]ø/„£“ß›^¾ýP ê‘FÖÐ÷õÐكΠ&nú=&™nß7ö5tv0ôdDÓª[A½JWÏ­­¦¾V\Ýé›r`ëî»4q Ú‰öK¹ÑnkÙ]¾Òcê&Wsò ø‘rü+Ê”Mµ÷w@F2œ’äÿ}%Ђ`š>óýöÌ炱³ï`™ÚôGcÝÍKMS·\³ÛþcB3ýV¤¯ó* q šôU^ó¥ØC®4ÃHñ‰9bºc,b8ŠŠûÛ¶¬;h(oSK;ãv¨ÄÂt, »`²uÝÔmåäÆI§  Ûªm¥ÛÚ½Š;¦þ¸–JIý¨ÙgÃ>\ôLs"Pâ·/„Dw~ ͨæ+¼,GÆÎX¼M‘ƒ¼ÕmàNb^âoaEâ½ØBªÿD"O endstream endobj 827 0 obj << /Length 2203 /Filter /FlateDecode >> stream xÚ½Y[Û¸~ϯ0(à2ŒHݨE‘¢›¢‹` l&}Ùm˶º²dè’Éô×÷\HZ’5š,ºðƒx;ä¹~<‡V‡U°úû›¿Þ¿y÷! W™È•¬î÷+"Œ’Uš"Õê~·úeÝnM™ÝÖeÝ|=›j—7·ÿ¾ÿñ݇0PF©†m‰D…¸äM`‚µÃSîìâ;•â“|nÍ!Q=õ}÷AxÆÈ'ÙýÄ>€MîT(29]ß¿†`_”åüò©´È`zÕ–þ}s+ƒõ¡?åU×.Jü”¤v#8sªæ¡IÒDdZ9“à©ÚŸz§â`}6m›ï¸]Wüíjatp¦ˆd7Úí¶É»ü+éaÑÎLw'Sp*k3Ðt]¾ÄwŠ4öǽ¾íé “®÷}µí b¦º£é¸õpÌí°V’h°ú¡èŽ‚@%޹’Ú»|F1}Ùñ€å“ÚÛútî;rYœyœÐv©ZØòd¬ßÃX½ùO¾í&bETË*_ýë -P×öh³íœ³Ïn»zâÑsZ žÑçø AØŽýØzëÔóËâT8¬2>†@Mv¨ÚÍÄWꀨî;¤ZЏЂLõfÏ_¥á“C¨ÒñHŸ:ëúVnC| U‘Ü0q®Û¶Ø0Ù ì¡Of r»€á—6bMðdaãT°¾³¨Ë1já=ÇëWCÄŽ ¢>/ê%ÀƒÓË'‡L*Z÷UÏw´9À…åš”CW° c›œ¿5X£ó´M}ÂVhC¤¿ÜB¤Ëõ½ÝÛ™›M%™<’Üÿüù‡™À–ÐT^š·¬R•Å “±JA4âY:¦äŒ@Òy´Ìùœ›†Ût; Iw¦3šáYBŒ'©šï?~šã}Y(ÿÌŸ§Ü/CÓûÈZö(‘úÊ_¾‘r@Ê%‰ TÑ©;<“¿bîþœ O?ª!‰.Áª MŒàPé‹!xÂä-DLWl¹;™u)ŽÜM* õÖÄß÷Â,DãKóˆÈ‡]ÓÆ¥¡^ÿ­FëãPUwvî|FçÆ&º~áV)øÒÅž‹ lC¶Üäs˜%â’Çüô~C¡Sˆ…ÝДh/öèÇÖÂ$T’2ˆÇ’8[Wx “YΈÞ&Mq8v/¿¢ô°B«ÌihB€Q÷î|"e>ã|}‘»çÄ‘—ù€$nª ™ç#c>ÏGÆ| ¢„)ÔÍ\ç¸l'»,3ß ;Ĺ\†HOµNeIº¢óÍFŽ å0Õ~63¡c9ˆ•ªÁïê'¥!O®R‘Á% KR—åxk¤V :¸Lµ°­ËrBš¶ÉdÅT‡t˜t5mÇó'FU˜±© ’q¶f³ÔDõŽÚƒófµe"NÂgŠÊ.’¡ÊF9ðÐb±µ7 ºÉ1çuËÒr¼h-¤ÌÆ.Zš ÞüKNšA)Ÿ½ äSBEòw/ùføJ¾pRñE.¡1®ø"íØ¤ÉAÅ=J.´3L>Uñ¥ÓÊå·U|‡‚òA‹‹r©Ê8õm7v¼Öcf™WznáòkQÄ>¯¸T•×§µ·„ÓÿÐÑ’XdÑÿµ«%Ÿ-@‡Úúhþ_b@—Bë_·RÊ‹%-fÂ|é3äžà¾­UzbÕvÆ> fñ&©íE²³÷E[»;é cÖA`¾©{æ“ûbwß'Ì—¯Y±¤A„³ù åUÛ7ù´4}ÔUB_n Jòð19¯ò†ÚÛÃ*¸­k$(^U¦ÆbÛ7Î)¿FY0uÈ©*‘ÄÞ‡o¨‚sCNkÒÑ+Õ.©µ.Lqõ£/.ºã£uO©}!ƒ¹øÜ'_FZ³=²ŒQ*âl’x¶ÅU묱1,(±Ï:k H.̆KËHÚXíÁø…œ}ET¡e"tL@+;Ð×b3žç§“_ý2sèñ´g2Í0> stream xÚÕWIÛ6¾ûW9Y@Íp‘()@Ó6S š¶qNI`Ð2m«Ñâj™Aþ}É’,{l$sR\¾·ÆÎÎÁγ_—³—÷Ìs"qÊåÖ!#æq'àùŒ:ËóiN=÷ËòíË{õN2â#Ï÷GŸ©b‘ÊU\¤ES®d\äE–Tµº7ÃVˆê,Z„ Ô¢Áù ¥» >žß¥U1¸~á…N©>ÍôNûà$t$D<4¨õ^fruùF–PØûŒ} ÿÄØ8ð…¡gPÞLi´3†š¹}eq¯P.ä‡Aë¹8®®'µ{³œý7#‰t¡á\ÙÅ8›}ú‚ l¾A, G}4s™šãb&áo“†oÛµÖl—úó'L×_­ÌZnÌg’_Ÿ€”0DIÔÆHÇt5pìuõD(À]¨‘=1*rŒ" 5ΑØ:úX‰îüe>^›áÅ})«½™CÁ™ÉºLvûúEk¥ª{ÊPDÆbžGÊ@Ì6IÓ)eåÂ~,îJ—àù®Éd^Wcr9 é˜ì™Âh›)JhØ µ¹]Um*×Å \ üt\ºQlL³2ö]™|Îðõ(ò¹i j©Gâ×»à/—@™Û˜*£s‘Iäªz9ö@è7ÇMë¨b{½sD:Œèw×yH9ÂtŒe¨*M6=%Ñy^öpˆhô¼}‹E¸ŸÞð&™l^ 5ú¶0ßt7'û×…NÄ Uƒ#H#bÐÕ0ñž£U'-¸K(h™ž«íA5ú¼Ú”y5:dɵ‘݆¨Gÿ›ÛMÚ6NñU¥˜DãRI™Â 7Øì^kë¥øZ=!~ Ù½Ïekû«a/Y@Ò‡ÜJ0‡?Sê_jª!ò ½-òŸß½›èB”"ð“.”f\—'úÃóëŸocoÒåQ$²¼Ðá1€)jEBG˜läVÅD4im¬žz¯üCSëŒU;ßFwëRä@f¦=¬ëe\OÒô ÿZìy endstream endobj 857 0 obj << /Length 2231 /Filter /FlateDecode >> stream xÚµYëoܸÿî¿ba €ˆy"©çE‘"IÑCÚ §_’ƒAk¹»êi¥­qÜ¿¾3’+i嵃 0 ñ5äpž¿á†«Ý*\ýõê/·W?½‹ä*gy"’ÕívÅÃÉ(Y¥IÈb)V·›Õç +T¥ïЦj†öN¯y|+tuW뵈ƒ‡õo·¿üôNF£]¢³4ƒ# ¹ˆqÉUhußÕHs–â ií1[½ú|‡aðz}#â0(öªUE¯[ê~E^tÑ7¶ßlé{ßjõ{7Ý'\Ýðˆ%ÀçKÚuÑ—MM½~¯zÛR¿¯yèÎMhjTå¡ìí ²ß²>–LÕj´ºÚº›°9!j†©ÆœpÇ*By…y6½Ž=F6Ö‰È@%Ü鯙ÅyBw"OèÛ{gQ°Ñ_ÂPÔæÞ0qlº®¼¯´#;PÕàf ¹]` ˆ6"IÐdiãDÜ ÷p«ñ˜Ã—³<Ž‰Û 0Ç»(ž8¦RÙ´kžÍñ¢\b<8¹|Ü7C…Š(ê¡Ó¶½E­ƒ¤Ö<0¡ʘ?‰¬êhì^Ó·môž¶mØ’V 0dòçõ ypë7šNªþ9•_P$9 Çèí¯ŸÞ.x‡¦ð·yE"yÌ’h*R¸šá™;¦øÂ…¸³h©ãQ«–Úe=#ݨ^ýqg‡,I¥ãçÝë÷—¸‹æ¡'ÖTU½€Ç3nœ²š—XMž°ˆó©ÝÔŠõ­ª»Jõú’íÄ Wá}êS]•ЕӠh꾬‡fè¨o”Þ½ÂNlÊ®€` ÇS–L™¨“Zueõhì ¶¦w(ÁýêiW&,ÏgsòH<.ͬۥ"Ø4ôíì÷þÑŽŸŒ]¦Ið·-Í<65Ì‚º§^o7hõ¡AuNhÌñg:“è}ëÐRæ¡e=±>;LH‚yeÛG]”ÛÇ3ËrÐpz˜hÏPþ‰>O™_ª¼g]¶ –‡Ù™½|5Â[^²—’j–ºƒ@ÀçWö"O8?ŠüÜ;ÿyð`¼üãõRD”,K}D,톪B}‘E?v6Læáa<½\§Ð6y{à²>¹Œm¹Û÷ߢ[Õêp9ÐH£>@Þºó ÙùxÖ(å^bÆî93äË|ˆ€L5ã#÷|äÄGâùȉŒ(2 >Q:MÚÉOËÔ·Ò–Ë1ÒC@ÙéÚ’ôeï7Zô!9DrïÆªüªÛ/aÂ?_0 ™³,æ#o D5Hð{mí! Y–œA‘Q’†%©C9^©•Bž¦:ØÖa Ð¡™¶`²&*ÇtºÚ®§ù¸ EU˜±ÐÉ­Y”:ލ–eïè(=8oQzQÎâääIŸÞ¿ ]$c‘M0ðXc±Õ5J“Éó:ƒ%„tÙ_²ŒqžÏ®ºÇÌÉHs&eî¸üP{ùy øo¦,˜g%Ù3Rbl‡[WœÔÓù ‰ƒ©eÑðò¬¹G¤2e*r‘]ã@æØ4“Es€¢Äô d8ÑfIR°åAÙ’ &›ûC!1»% Át^¹üXÅ·+ $·8 ×´Q‡¡ë§†×ù˜Yéz×ï}ùµQÆWœªÊsƒË2¯ 'ÿ±¡%1Ë£ÿkºTK>[€Ž¥õƒ¨þvÄ3.¸¥œ ­­9ç'MÚ˜ _°¥¦OO °og–Xw=`P›,lÄLÒØD²±ù¢k\N:˜5˜o›øþS&ãY¾÷5+–4á,>Á!]wC«ç¥1RŸ4®Ü`‰åw-‘ýÂöZB#.D'FÔ7có[ŠíR)¨›åØ ­#ç(u©Ía8á-Št,[µ¨*jþz`8F²ÄG2RñÉèã@ó”ÂSÁ²S¶0 Ø€ü [h'l«Ã-Ø) ŠW‘‹s--T›zY87ȹ –ÄÞ•y"Ø ]›ÂÔM°ЦQL4µKjµ STýd'ÝЂÞѺ'hR‰•ñ¨oliU±§;F)‹ó™!våEëL°ÆÆ¸ Ä>ɬ-\¨{*-#n}]Úƒñ 585†Ú(J!¬ócËØÌ³dY‹K3D™s+|/02€l óXDÁG­_îߨ|¼7't/qˆHB:‰&9Ù84­Cœ ¸ŒÌ¦‚.ëmóÝe…/¥.䌥ñÌËpR……„e%G…Dê 4€Áu¥·ý5Í›ËÀôµ)ƒìàÖR4jƒBáe¦ücˆäIpmÞÕŽ§­H e1{¶º¾oú¾9\Û$é`À¾iËÿ‚w¨jTýtß]‹ GÝ>û†*ÎÊ0¢#¸R©Î¥f‹÷†NϸõIÛd³v(zWaúªíŒ[!YŠüPyn+µÝçuÕ5‹oì/ óhpÐÍ"\úNsÒ»†3øæ)Œ™¥Œ§ò ùRT‡£‹€ìi¥IÁÜÆ„p°£ù­ÁR;F~~¹‡æÐ^ýsAì£ßW¦²†Ð‘@ÑÁs€ãQºôûŠýmåafˆ°x¼}aíߨþvò)OзÚv Ų®-„úÓ‚©Î(Ћº=óšEÁð$eQö]’1K¿0qÈéó¼7My<‹XOø¡·Xk9o&o†ç7r~¸q¸Ø. ¤C!ÊHgú¦ò÷²h›®ÙÚ…¶˜ù°2/ô \ °Å€@ÿªêJ endstream endobj 766 0 obj << /Type /ObjStm /N 100 /First 878 /Length 1968 /Filter /FlateDecode >> stream xÚÍYM7½ëWðÂ&«XüœÞ ° c/°ÉÀ‡¶ÔžÑFÓ-H=kç’ßžW-ÙËRܲ$$¡ÙÅÇf‘U|UE¥Œ3IŠ bRrÆ á5*ÇdC³‘LðÞ¤P€¦0žl2g<ƒÉ™'IL!}Å3iw4Þy$4"$ÅxïTÑ…¨¤$“2¦¦€ïFH(«ƒ¸„IÊ­ÔÉl|rкxLˆ†rÐ0x2ä‹vC z‰ðÑ„u^â¤`ƒ—‰.BTI0$N1øžˆ3˜›¤¨ Š:7t¤˜U‚½I¬̤KM˜LäÐ(”&Ù‘a§›ãØð †Ã€A#¢?xt%‰dÃÙiWAf€¢œ¡vöÎpFCR²›d,38R £‘£‹÷*‰hDýŒ7˜ ŸAéZ<¬HE!æ *¹‹É€…Àø0a´p2™0:Fm`*&â¡Àê™0ª5¹3â`÷ MÄe• á“Žb#Ì`$$™d¼H$Å‘”ÐÅÀÕ›0câ¨~¡ÎÕ/°·Ñ A£¡v¤ Ið&2ó$ÃY"ÃÅ2ºc€ÞQ´ÕéÐlZ˜At“±­1:•D4‚J0g,*Áœ‰!a€“î2Ä È‡rP7ë¡ððÕ¬>˺ÝpàÒp$ø,,•qhRýÆàÅpc—ôh`}¢g&—ÉÕÕ¤úÁÜ$˜É™kSý÷ç_€r–¡OÞÂÃLû°X¼œ|ûí~Öµ½¹º2Õ3,’aÃaØ3VoòÛì-\kû{ ì´…iÏf*|¯úiÕMŸ7½¹1ÕO?<3Õ‹æmoÞOõâ·eƒŽú¶™TßcÚ¦í×Fí…á“êºYw«i³è úw3›×ßuoÍNÓbi°†·¹¼Älõ ŸÐ-ÙÀŸ¶m‡/Þ ì¢*)»lž›÷Mü¤zþðªÞÿ5oTßu«Y³ft/«V?VßßøáEuœbqÞ'«œå±­pXÍ‚aL"g¥`O‡ }nªt/:{|uýºµ·Mwo¯öU÷v¹èú'ºeçQ¨À°ð‰XØ:øÅd  žeKIŸ×hU··ÍëU}ßTjŸ Tã?hÁÁ%%«‡€Xåt†Û1Å—ï6¬«zzu5ÌP=öó®­žWÿ¹þQ_ÝõýrýMUýoÕv‹™½÷w¯ì¼«noû»æ¾YWO>(©Îž9{)ƒ¯#pØ€ö‘¯ïbß œ +`šQà¨æNy8H²é2`Ÿm­Ç]²Î\ le‚ÜùÁ”ÄÆ‘*“ë#ûm å³}DfÓÜþÚ¡97‚ËIÌ–ó'̆@~³å~š¨lžaû”?a¸1g· ¡K¶ŒXéc¶g9ä`}Ç]Ý7oÞØ»ùíÝô®^õk;íî«Ysß=9\¶ J¶IÉ[lfÓ!èžK¿j1o›¯_Õëù´šÕ«_¿~hçÓúÉÙx:‹M¬ÝÙ4ï#‚&QκÃc=­ÍÀÓÓnOšwÓóÅ$¸6¨Õ]AÓÌ\¬Cæ5¢Vl£×²n1ÛcÝôÐæ4ž¡cß341˜#^ŒÄÌdPãÀ`;ÞÇ`ûÀ’ઙF‚!Ùã(0j+ûè| ¬-.¦dQøŒkNËH ŽçýH5|Ð,'ž˜Ö>âûs¤µÙ¥]ò×Rè$ò×¢OUÒšoxú°}'‘?!£AU!"6£Îf< ¬$ªHGŽÏÛ–Íjݵõ®W]kÛEõû²~XôÕ—³Ðʦâ‚Â~.}ß Fo=Å €¥8«÷ãÀ8íò8p(ȨŒ#’àsr–² &¿7%ß &Me¼óƒ57M.–8<ÿVe„¦á»‘„N$´Y†^Áñbd`¨K gÖ@˜ÕëM/éÍdŠæ­f? ¤q¾Ì60Ù4¸ ¨åª¿d_ߌ<ÌgÍz—¨è¢¢cˆŠörœÑóñiÍ!güRÿãø‰ÿq8Õÿ¶ m3Þú#o3æ‹\Ø)=º¯ó¨¾üAîšÔ4ç©·b Vï{õ^De’C}(‡ïë–8}˜Që ÿ IÙü `©ŽîãA¦uûÿz«Ñ ÝúŒû”œþq¤Q ž,µŠ~Ø1Þ¦Ù|=]5Û}:3¡h 鿹ò[Dÿâ†_¸IÊ,ã©å1ö³Ô²õv'ÇK€‘|Ä}™Êé`‚?ŽƒJB•Fj¬7\.ù‘`§|¹X/͹äK€qxJ«(û‘nDA5üͲ%ù4[’£²¥i7ZÉ6:É6:É6zI¸Dö|Á±ï³§ ÌLù/Ìž8"bªFÛì‰ÁËžóÙÓYâ7EAÅÆ#l:X ÖCÈJ#x3íÚî~¾>ãnÞO(êõÿaRaý—¿X’pØZïTyv#‘dʾ* Ï´¯þ“½…W±%” €½$€¥¯ó²4Ø endstream endobj 868 0 obj << /Length 2600 /Filter /FlateDecode >> stream xÚ½koÛ8ò{…‘O6P³"õ¢ö°8¤×¦×C»]¤I‹Ãö02mëV–´’'ÿþfHêY¶³¾…?ˆÏápÞ3´5YM¬É‡Woo^½¹²I@y“›å„Z±oâ{qm6¹YL~›2oöŸ›½¹rìÖJ›:„Q£–¡ˆå]˜Æé6¿“3êNCß%rÆÜé·¿²Ì¡pbÎÜš3Ç4¸ÛB¬dg×¾ï›+Ö†FùdN9ñ8ÂËà´ûa¹V¹–9›»–5ýY.¾,—QhÆnpúâµîB` E„àÐ9³I@ŸpfømðË(ŽÏ½O{$óˆË}Üe>£ÖtµÝȤ,Fé€î¿ÛÛ‚æ{$à¬Àw6w,>MÄÆ´Ò%~„¤¾,Q–~X ͈!‚Zë¯bD½±šEŠ%iiv¥ú{/õº0M–ÛB.ôè.*׺µZÍ+†PJ×Õ¨fqZ²Ùœ¹æüBÑVõ—yºÁ–?Ý­£pm¥ú»y„x@å5½Þ c0¼,%™ÍmÛ™^Î|¶À>Åâ>6ëõÉzC”„ñv!Òüíp¥‡úÅe‹âÂB›¶C¸TÜx=Ê#>õªoÅb%÷òO€#ó8J„»‡Õ']üCƲ(#ÁrâÎ Àò4‚Ã'οÝ;™•ësû R1ÊP6¥ ¬ß…+<Œ›C\Ë®q»’¤1—‹½”wöAı̟^vÑ.¨J±Ù’ÅË$¢ ìcRÊU>,]H=Vš âZÓ·©Èyšn† úŒ0ŒóÕ¶ w¸a¬×€”]‡–w<–ŸÅ"*†AʉÏ"27~ÿ~e>aüìd±~™†váT>‘Ó>s¨È9§ÍW"‰ÂsîWB‹Ç½rgKˆãC]Õ I¼Èèv±»–ež™ ‡yß?§_Åð¼ô)=81°ô–í›È´SÙÈÁýʨ©wrß"¹;‡à~Šº(pœ8Ðî Å÷4]˜»>eƒäs±­ìÜå^É8QÌÞÆ[£¢r)“sØäǃºwuèKà}ùæÔCˆç”¹xRIÄËÜóÜv]âó¾´(Fè ÿ[Æqº;‡ÝÜËÝS÷³ÈÿØJyß%‘Ø Ò—¹fYþœYÔÌ}B}ûw#,C.xÄá¼Ë­ëáØŒB“¹§žsRü*2™ŸƒÑ×ÒØ¬ý¸)Ëpð–ÎsߢtOÈ}È–/Èœ¶_ËŠ2—b³×ÛPef‘€öUYßsÌcºN[>nåŽ0ü­¢À…6-‡8|8Rî¢×2Xuq4Çõà–Ç%cÊP„ãkX;áuíD!‰¢¨ä©ŠúËtÀ»¼Ã\–òNÙíÑÚ™Þ§q6•S?Ãòß­»¼¼ºî€ºÜ&a)”=,SˆR·vkiÆBÌÔzµ®™à¨ÐŸ"JVªTáay¢TõÀ•ÌõjÑ¢“^b ZÚ„Á]h²š¤&Ùnî¥ Å°.„ßX6Õ”ØÐ»Ê3L]ÅÒ峪@cMªÛ<)z‹tyüm=!Êf À2ÀÖé66Ü,ÅïX)“d”=XëØÀ®¯r¯n/ÅïŹ¼V¹/‰¬îþSOlÑÜ{Ý~0æö`wd ¢?¯öÊ¿Ü~ú4d›qšúò ƒ“TïógóbAdâü \v"z9 C«\Ù‹Ê,fw±¢Ub‰m‰LÛ¸ÔOÕÓM¶-•ÈâÌSoo ö¥aäÆÒûÿBÛ»¦k' æšÁžkN~S•×KM®p i\XV¬e6,ÓžDQÕ:@ÏîA-µíʱ‘Ö¾äÇÑ&ªl•¨uÈd†’Å€ÞÔDmmJ·%îÓæ+àÝë˜óGqˆ>iÛTq·COîvé }soî€@`¹8Q÷†‰,-ŠH×PÕ¶–ÚC_±Am7 ´ùU€4%ôddŽã˜5«eêÒ®ÕZ‚®;=ÙD,”‰H³Qº¸íäke™˜3Ý&º˜m­†2Ì~n3a –Áñ›+Êz£®dÃM RÔøû Ôœêr=¶4nÈñ2/ Mˆss}ûþ¸8Y—xN7T{)œi…¸­Ø-‘eR亭\C{ëB”âo8SPp¯‰¿¯.?}ÂÄ™ZµéjP·xŽÏ°iqê°È`OiWhA” ‹Å¸ï‡tÎkžín“8Ò¦¡z‡HÊ(Ù¦ÛB÷Ӌ׿ÃÄ%í)³M(“ã_+¢øÉ,X§úñOõ6QQæ® S@»ÜmÔó¹Ñ9ŸM©þæ«l7Ž7‡¯%¾7ý¸Ô3OéV7vjŠ3 W¹Ü¤ÈŽú)Æ*üT§c oÔZ¢ó$äu¶VÌñÚ´3F˧1ãè}-eî©?ëÏ>ñ PZiÆå…Y 2 þL^q°r1"/Ž‘H]à¯øZyè"{”Éàµr HRˆ2QƒmÆFè ! И2 u·7[Åg¸±#n”QâÚ=yC»g62/‹ÅZ>ìŠlœoó黹CêåPÍe 76Q”ð .%Ò{•N`{‡"C6ÑñHÄür9dm›\.2EŒüÒýT3éß±Üþ ¥«¬£ÉêAí7‘G­Öåñþ)h¿I«—Ú1Ccƒå^BªÞvØÓ ÖG‘10{‚<ŽDà©zx5ÆÃ«ñ4êýÕŸÞj_êU¡NÐ,‘Ò\€–^%:‰ÙRFe hPs˜MÛqöÁ¸_hSشΜ‡Üë‰yÇCÿŠojVø†Üj¦Šp†®ÌôÔ=yF&z—±Ší}nåE©ç7 /ڤŒ Jp›ŽÓL|:ðÂ^k9’Î$׳¤1*´ðÚôêD¿mv¹†]º¹‹”Çh·’V+ ç„Ò «-±¸G·?&¡$ñÁÉ#Ì¡y²7p¿(Ù³{¹žSi4º¹žÃ+4Õd+׃žŠš½¹LîËõü:g9K®·ÒÿÑjÑWµ‘›mQv¯¨ f,“•*´èÄkÈœxÄrë‚T“O޾!Tôo š‡¥ÿkê9”EL=ÛÔú“©§|ÌðŒ± РI±¾Í(¥ 'Í„¯®¾+{¯ÿ÷p Cõ碢¦ TVÝHj¼ÈÂ8‹"­RcF@`>O·OÀß'¶Ûsöu¶Šù Z8œàLŠm.ûIq«¨ã¢ZPG °Äà‚P#D?4=M¢G*à4ˆˆG%ó²íàOµQW˱š9•¢$‘T‡áD-QšGð#|’#«tóúùŸÐÐ’yµ%Ó,¾«j€Ö3A^Hæ·PþN&2WÑlívŠ °¹ú¿Üû›Wÿó®3Ç endstream endobj 879 0 obj << /Length 1649 /Filter /FlateDecode >> stream xÚ¥ÛnÛ6ô=_!&c5KR7ºØ²­0tëÖ¦OmaÐ6mkÕÅ“¨8Ýþ}‡<”":Ž“¬R‡<÷Ãs1 ¶ ~¹øñêâù«8 ædžò4¸ÚŒRÅi¥”$®ÖÁ‡°]ÉB-VuQwÍb£¦< ÓOW¿>Å#ܘ2’ l‘xf®\PÇ*˜q!Kl2ƒ‚·ôN!%îI“yÜR7{Y­Oð‹8I“¤¿&›)á¶+U¥ÉtÍ£ð ˆ7®ÕfÊh(»B·’Ámw¤k\Õ”%!r²tk•Çíò ž%ßàw]9\¹Úù‚Yœ‘dž3ÆÈDCëåkÀàÞ¦np³ª+W]ݵæ; ¯§<å”…M.—…jŸMg±‘×9Æf¥$ÅMWåºÅ­"ê…°ÔN0\çíªQÚÚ †ò¥(ßµñ§tœ‰ç40øØ-3&HÁ¶@ìmg¸!½ÄáÑàÌK‡³pÓU+[Ñ9»V­qg¼aÎAX©Â$‚‘…X­„6@%K>OÀŠïT/ ü4F(ܾ5²yqÆ%lˆXË¡ýH ÿìœNqDh2è„V1ʺA Ïxʉˆ„yµ©Ÿlß}ÝæÖRgĉÉnűQÑè¾Àh„j<»ÞäàîYœŠpR¨žà¹UŽ'M¾ÝõÀM½6ÏD5:‡WGö}˜ˆXN †u½¿%…Ö+óØ7ÆdYk]—p“'é›Í®nòàuêæ©?Õhm·WÍA™ îYÌr³xv»*dÛâÖ¦X!L¤Õ="<èV7ÝJ›@äv9Ë—–G$Kc"$ 0AkÑ.‹¶öä¾G~&Pïù ¼IzÁmšÆ=&µ•*^<þMds"’ÛÜ È‹J{ðȃ¦1„`Ö£={<;Èô·Ž@v°ŠcxZü²b=Ö´M^ Ëõlˆq–¨nÎi®t½¼‘åþ88ï[­((‚ë{ÿe$£Ò*òe#›/&÷L¶Û}Qk>é“É×^Ë\F€DGiøý W¼n0K½’MkÑìÉw›s3S’(¼.[U—‹}WObÒ»A¬p9èg¸ùâËýÖÁû8näJסµUÒ¬¬ÿ D}YIéÅ¡‘{ƒø¯,½g§Dß÷¤ìa_ªÅ¥Cîßñº—»W÷^^]ü}Álè°¡‚ÄH8ÉUyñá Öp“h.‚ƒ½Z1d´ ú'Á»‹?ïõ¾í³ütJcÄ #|~²Í:…dœyø|Í?RãeLLTÍ4NºįWÓ,Á”pøvÃMOþh |‡IÝÀÞv·4zÂïÛ¼ÚâvÄ.¯h'ÝNΘ3š:Š5­Õ¢SÝiLç¨úÏ Z›|§F>2s>©_`)Ùå6'Ò"€Ç‘u6u‘SõÒofòÊÃûVnÕãÓÌýÊG˜4PÚôZ£‡<ùM­ó®œ¸§Nñ’TZÆŽ)~-Á;iù¹×¶7¹KínoàçìËÆÌ8$œOÜX²—êLÊÒqi{S¹}˜Ä}ÿ#ÖŒ%sqBÈãù\ŽÆ ÷‚÷ÐÉô}I] =Íݱk.Hõ„ú‘a1´2÷–GÄC‘Ù£íA#”D£Á€C':x›§ÙhJ0Gz'5î;å` ZaUƒÛ‡\ï*q1ùÊŽn°‡Rg3ßÖ¶Iiæ‹xÅ›G­.Щù-kՕ˾Ë2Ý´Y ; cW\´~JºCkA¬Kæ¬Ú5U{t ǰ¢SÃU×]ú_±]ÝΛZ~6ñ¬ž‘.mýO½1Ëð¯\?¾lî(ÀÜA„ˆ¿B–ƒÌ¯Us.‰sByäKÅ„s$ó~l@€“ÓîWu¹ïpJ`î…1®ndÕÉRº¸X½üK­ô‘š %1äLT3»GÍàƒÍ—n0€ E¾`ŒYÓ°ù}ʪô{úŒFÏÖc­Ç‘_äeÞç*9¼!0“Uëïf0ê©î´Á:ÛÉgЄ_Çÿ¡q‘S•H<{ŠÄ·'|;½E ñ‘R^Y½áÆò6_ÚÄdÑFϾ­,º»Ðÿþ„Ðx˜;6ÀŽÓpæ² Ú ó³ÖL’œ¬vЩý¦;úš endstream endobj 892 0 obj << /Length 2110 /Filter /FlateDecode >> stream xÚX[Û¸~Ÿ_a P@2ŒHݨ-ŠbÚÝ-‚.º™ô%Y›¶Õ•%W”2™þú=‡‡ÔÍ{R†xç¹|çÆpµ_…«¿Ýüåáæí»(^å,OEºzØ­x²(NWY²$«‡íêS äúׇ¼}G£•®Lœcט*õ—M]Ö]óåsеH‚¯kžº=Mû¬‹ý¡ÅsnBw»ÿ ãƒïD˜°(ƒo†ctü¶YsÔ§É3ÚE„L>»ñ| p™¥Áßw4ó\wÔx² ª–z­; ÑÇÕA:¡1OŸí ´Pß™´”e œ’>LH‚yãÚ'½)vÏ 0“9K£Þ©L´gwþ‰>/Á/ÁR8…ieh¶_¦¾nȆWøõàPöºr[Ú¢íZ´qðä½?©â«n>‡I¾Œ(g2á#k)x5ðíð C&ÓÒ'A–dŽÙk#sRá0eàX«Û³¬â´¢pQÑ.çÇû0%jLKóG0òª0ãRÜf%fw©vÉ£ö†ŽÒƒû¥ç,IKúøþýKÙE:Ùr%NcÔ|*l$‡Ö£,eH—íEJÆy>…h©1ò_i΢(÷Tþ\õ&òÃd(˜‰ØG~—1~"™=4,Nå) 1Æ!©µvb:g‚8@MÆSN¿‹–«pHeJTì #\ã€ôdÚÉM} 'UX(¬[ÆQ2TÀL„©Gp[ê]{K󖘾µeÜùQòF ä PxÙ©þ1$âipkßÕNÃQ$ ²˜=[Ý>Öm[o]ôiÀ¡nŠÿu¨rTý˜ï®Åº“n®€2“⬠£}”®”ÊøÐìò½Îèµ}жѬé6­¯0ûªíŒZ± é…Ø‹_z¬ÔîœûÒÔ/=’Nòw„VEnærc Änß`¡ö‘íé‡×[DµäP=ìôÓ—¨bLÑO7ÿ½áöÞ¿ãk0Bvs¼ùôk¸ÚÂ$øArñd—W1h?‹ñèrõáæ_g†ãGéi4+M!¿R°<_xoÞAÆüÒ+óÛwq69 ÎX+ÀŠF—è…brÛØàí¤ÙœAqQ"Édþß!zÞß…HY;^Ô་ә¸† IÛÿzÆ‚CsŸk` Kûœs6ùò«>%ð:Š Esu€>ÛQ{½ÈÌ9sS,̘»„ôäŒ1ïÌ1îñå|¾óÿÚ¸ƒBøÊ¾3^6¿t$p¾ endstream endobj 906 0 obj << /Length 2280 /Filter /FlateDecode >> stream xÚµY[oã6~Ÿ_aX@&’ºQ-ŠEÛYl1hNf_:‹€±éX[Y2t™Lúë{IK²â$;(ü Þyx.¿CóÕýНþõæ7oÞ½OâUÁŠLf«›íJpÎâ$[ågi,W7›ÕoQ·Ö•¹]7U3´·Ÿ9——2¾\Š42ý®lûGSÞïúËÿÞüôî}œŒVK¸`¹‚­ì2²À!o¸ÛÆŽw¾rƒ¯dŽm4庽<ºö¦î»Éìù÷Ý{99.Ä™ä9-Ä›o>4ÏX¡¤wUa×+™òè »Îl¨ÜÔôí:òdãB18–[hSvëÖôæÖjðìéiÞ•ÈYš(š}€9}oÎÉÇ,OÃv× W¦Â<¨äÑv¨×}iE†®~§{*=ìŒkÑ*{4ýPö;jÕôéÊú¾2T.kXŒ~oZ­Gz¢!ŸyÊûÎ’2!ñL‚iJ"ÖÃþÎNG=né 몜¾K¯ã¡‚Õ ,/¨ ZÚº› ú‚ éj0¡Ã× õÝb»f¨œ5{ý;ú˜agÍ#Ëð( èÛùæ=½Ñ¿wÏX(U‰·Ð/µñgÿn2ku•±DenA£?K™ÎÖžøšbI¢ëçO>,„ ”,™´mœî놾wíÉVW1g džœöU²<èò‹iѬŀA2.ã©TB9CBac¶h=T=589myÝìCo]{gsûV×,¹×Îï¡­¹ûŸY÷³c¦œ%…xFå«ß`·¡êZït«×½÷`òÙußÌ,´92cªý,Ž ¦R1Š™ªÁïó'©€‡g'TdtIÃܳœ`ÜiAñcWËzÄ­ÚnG&kšå€q<IWÛõÔ¿‡!T…GMp±5ÇR5:jö[Ô^R°4‹ŸIf,»ÈÆ*›pà±ÅRg1*>”ö&GÎë–ÒùxQŠ Q̘®¾Ã›ÿœ“Ê/Hù$“‰ø†4ëÿKù0KùÄ_”òųŒ/ñ…iÆ—(/¦íe|P³”á8w!ãƒÎ§2¾|ž¹|[Æw_Z>HaqT®-£2öC×O¯ ˜Y™úÞ>·Púµ„(ãiàǬòÔá” –ðú;Z–²"ùKÐ¥\òÙt¬­oL@Í×îqî%tpL´þs)„8ZÒa&|Á—î A¾Å\·sŠ@O¬»^»gÁ£ Þ$»H6î¾è' Í9ô·Í@rÚǾ8M§`rVLiá?Á&SwCkæ©ñèi Úµˆ q²àª%Š¿v5 ¡$GAôWëó›`»»ŽàJ%P·Ã±ºL| Ô¥±›aGð(²ü˜Zµh**þzúˆ‹H–$#ßú—@~âèóG]ÉÔñ¶°$“MmZKh'b³+-ø ’WYÈé±Ýç\Þ£ŒÏreiðÃñ*#nH´&Ÿ¼‚ÙÜ%wÖ….Ê~ÔÑE74 ÷sý“Gî^È /ýÕ­/ã\½ÞÑ“œ¥ÅŒxvåUã,XcaœPbtÖ–@.ô¥–‰p±»ñ 98†Ú>RÅNˆØ ¥|iË-xžßÜîüjÚ{?ànÏ0Í8=WŘØPŒ¥tÁ%ë[ÐÂ’gIL.mmd[ì©ð½Àê°ÍS™Dyy\H|£ xowè^I ×I2¹ƒQŒ}ÓzÆ™AÈÄjªè²Þ6/ׯƒãJdã§d>æ“,ŒK ËØJ ÈÔAi@=¢‹Êlû ê·‡î ›¹Æ­o%4jƒBâe»ÂcH,²è¾«ŽK‘6@Ë2™ÂóÅ]Ó÷ÍþÂ]’žìš¶ü¢CW£ì§{­Òºá`ÚgßPåIFóˆ®TºëÂßSö;tf&m¸´ímÖëÞg˜!k;‘VÆ,Gy(‰S:­v]uÍÿνægÿÕx{s»>9ûwqDU¢3LSÀ½Ê3qB€ +õþàMKC'ÿ»ýxuÚÿ<={âÏï^q£‰”ñ8¼ÀÌÎx{ÿ9÷'ç7oþ¼`€ endstream endobj 917 0 obj << /Length 1650 /Filter /FlateDecode >> stream xÚÕYYoÛ8~÷¯üRˆX’â¹À>ô P,Ðnã¢mQ¨6ãë#•ìý÷;uW’%;»@‘)²ôÍõÍpÈÁÞÚÃÞõäùbòôuÀ<´ Â[Üzc0áI¨·XyŸfžY¼yúš•7©â“¾’,ÃùºÜoöÇøë:W‘Ùè×Cømc£ý|‚3¡¯“ï·Ø#¥< )¹·ÜN>}ÁÞ ~|ãÁOZy?ÒW·#If%n¼›Éß^óšE«ª‚‘`Ä“X ÅG+ †ËEZÏ·Wž¹h1×t–}ëSŽg«èÁÄó@ÎÖÑní9aî>Ÿ¸ûϘãå~wˆvÇý1ÿH*¾ÕOB$´ã'ä %È‚W‚üÒ$Ë8º?Dû]ÍúÒ u¢(p€FX ÷ù‹Â€9<©±±½å…­öñ1IÝaîŒ{¶Šæ”Ïæ„ÏÀeDe.³ï(¢‚ÂgÑÎ=[ÌμŽÀ—‚c2íá)/^{ùíûë&/¨bˆpÖÊáŒ66ED:\áç8>x^óŒ`·Vñ³\ÉÐqÃ>YEàjs0î¿ÌÆ™Wðx!Ü­†›B¸D’÷§ã›,c*Ç+ŒIÌ÷#@Eᦪ<y 3G“ºœEÈÕ }Ë *‘?$áÚ´RïW*ÖmoP±?µ­õ÷ðÂÁúŸc<ûÓ]¦oãp·6þóÍ1ûá¥MaËÅé•{€ºJmµ²ƒº¡»=„ŧ9æ:6?9ο_£Uã§å·0žæñü *¢&U‹n£Íæw·‡4CôF¨Id ±3Ð’93ð2 ·Ã’^RŸ s\•Ö#š§ê;[GsïÙåen ª} "‚‚ .ÝwŸ)å )5Åb¢¨Ó}¼2±Yùe=˜Nm\üëØ˜|Sþ–¹­ª5µË9â•{¥&’!^vSv üW´¾;´aBÑ‚¶d8¤#”c)•F-ëœé”D5RJDTMùóqtCã6¤@£“¦W€Ò8µâ0¤„ôÞ¬Z cHc9ÜAïŽñý¦Û02ÂÕñþG§e#4ºŽÃŸç… : gF%QÁsüýÆÛVúRk긌ð¦=¿8CR³±¹à_ï7­ñÇÕp¸”_h\C·?"÷dX âA‚ñЈñFnO_lÂ$‰–.&ù )¢TWµÚÎ!…Š©3A»jÉE i,Àz!Çcº’ª$¸Ñ÷T°!•§Kÿg± {-]¨àbôNžhÀgü|¿,\Ý;@ "­GíŽC\²r¯ŠÞ©ÞWYuʾª­þÁ.ZR>2y˶ œ`Šé%l4ؾòF6»‚3Ђ™Z³a ¶–ˆb,t¸üçÑÜÃÓ®®á¨ž¾[d‡È!auFˆÓ*=D4˘ŽHÇ›ã.1.q”ä-Sˆ`]·´Wìéµ¢uQLÚwÑaïh#ÎrÞ`„ó~À;RÓ_šW†KHÉÀÎH™LDÖÀñÿ°¡²äBè?äˆeta¶÷&Çøq²ŠF}PAÃÖ¢F«'eã{ ¿«iÈ“1`}ÀÀƒÇT9k]`ÿ¢‡YµÃÿo:Æ ÇÎ\zÛÑ<ûcá:í0ë¦4C{œ;L. –Ãïd¡Œ^\FGL†TcÕ˜7·„}Æœ8ê P¼X Ë®SÒ`ÃÆppF[Öab¥¼ÌÄÊÉWG9kJ)ÁìAý !4ü´í™Xdç|©¤{PÂd=Ðaߢ´âH•‹AvèYžÒ߇›¶äÔÈÞe¡¾~ß§°kcŠ×Í*Ž?Ûö¢2¯CÒë1ɨ’NìÍ6J’bÄõ`'9VJÒ«`&§¦Ÿ;z¬\:UùyoµÑr¶¿uWhn Ÿ­Ín…æ>ãtöÁõŠO_s\€,wÊO:ˆUT¥â¸ŠÁ¦5  ¨ºÞH—õǹ 4]VæeîÿÌÙpo%1<³s ¬gû6±„(TîfŸœJ±>iÁ©f Rß {0G¤™ìå\«9î¬Æ¥å];ek'èv’çöÆ›dÎDòíáΤ³ÃR{ŸåÛÃgkJ ÊÅ ÑZïH ¨ÂGhèò¶)eŸØ´pÈK¥æUÊl²Õ%2=j¡gˆôe°hìèº*dçHåÕbò/˜&õ endstream endobj 933 0 obj << /Length 1012 /Filter /FlateDecode >> stream xÚÕWKÛ6¾ûWîÅF#.zí¡i³Asj÷´]Ü­%‡’¶ëýï>d‹ªíÝ`ƒ…|h¾y|œÒˆ ·³×«ÙÕuÈQ†³˜ÅhµA”ÌÃ%1Ágh•£›E{/*¹¾oª¦WëB‰¼”u·îÄ]%E¿¼]½»ºæáHIH(NR°`Мj‘q6Avl0pÂKôž…¼yÛ]%[xn¼ºf¥ŽCè¢)æZ½ÖU•wJ¨ý$"ó¢ØUMÇæ°0N>`g€1²ùfD„,~옋Nà[©á¡ %`à,Ê,êÑ ÿhÕ×åF‹•ÚΫÁ8Cû¯€8+_¨©µ}Ã<Œ¸k5b =°œnLÕxç3e™ÕJóÍ+gMkn¹?˜2ËïN6Ûõ®)kƒu›ižë_˜çéäÜvŸ]ù2øt椊¢û$·²]냽¹™»žßÞÂB[UÁ Êî5*—JæA^>HU”uÛg©Ú4ÎgƒÓc7ÊÚŽŸ¤ÈõÇ2ªIµCpG~þ:ÃN9²v‘'k” E:²5>m‚Å8Í2?=§²«äuÌá4Ž}¿þ>u0ßYK¿ººÚ7½ÔRævÖ5.Ÿ%0Ü:¾„œm—@ýäk§DÝç[Ñ•M}!GŸÍÑè¥Ýܹuè³7«ÙçKÑC· SŠi¢ûíìæ– >‚3˜g)úÓˆnQH¡ÍA«%¨BgïÏv3Ó’™×’!¤8¤(ŒCL²ì™-yÔÃÄÓÆp–R ÆÈõÛÕ2c ‡ X\ÉÏ=(,Ee×CEšoÚtkç¶ZA°î›¾}‚$Ù¦_C’!ƒŸºŸBiK©uÿÙÞ«r7¤Á‰»žÌ ‘Á á¢ÿùÀöm°ÊN‡Xõ¼o¡þíºˆû>âi=ö$½Ò@«eJÓ(„R:§á‡S¤ 4L?¼æË8&ôpµzY0JäÃAœa ô@xE£þÅY:vÒnä%,u7Ó+¤žZ~ @y˜.D??(œòäd$'‹ó©˜hÌpœÐAá!˜¼\²hñ°¤ÑBª%M…9Æc ¶£ÑGd $9Õb÷Âñ^-š;¯Œ”[Ñß[QÈç?WÎ'ãÅÂþ×Å2´©×U/ç®ObŒíc@áþ×?õÑ…’{x9|Ñ—ùDÀºs'Ôñå8íŒC·»¾)«êŽÛëá²›ÓàÜq½Ðq“ ÿKÊ­çÇ>ürßãÿ6]¾¥ëßšöiå›ÿ)ÜUhýE«ÛBâ\þÓr®ú©÷½Ôç’îo6´¹ßt_xÒ7²~Zâ“.À¥üW¤+ endstream endobj 951 0 obj << /Length 1550 /Filter /FlateDecode >> stream xÚµYßoÛ6~Ï_aø¥V1$ERä°=´ÝR`СõЇ6›q„Ù’'É]ÓaÿûŽ"eýˆ$ËvŠ<(²Éï»;~w<Òx²šàÉÛ‹×ó‹«kŸMR‚ŠÉü~B0F>“@`Ä}:™/'Ÿf>½¼™ÿvuÍüÚHª0„N1&[„k}»HÖÉ.½]¥á2Òq~›‡wkîÌô ìHËg‹Ù#’!)‚‰Gó¡…ýL)o̾º¦u+$bB–6L“t©S½ô2ý÷è£p=¾^ï´÷6Õ:¾ô(dzÕwÖ«†”`Q"¾´C” qìï) ¼þ=Z=ä]˜<@TòñïÒ0^i3ÌÄ‚¡ (`—âÜŽèe¢ I)0Ù0þtÕ²¸ É$NÆ[T,T'‡oÒ{½ìôŒ!…ƒñöü±K·ë3<« z&ÿœáY=Dáãi‹æQÅ‘`NL¢†gü1L7¦ÈÇ츜ðæº;Ã8C:ÆZÚòÞ&ëÎǃñ¶ëEã ÁÙ*ëÅb°Ä?° 1ÞÊîé›u˜eÑ®IoBQªÆ›ÚBíÖ€RÅ䉠}Õä,О<ཎǴEUcÖ û@ “ }ö¿Ju8è ìzBúg£÷êD>ãgà{UåêÝ»©/ LD9d·ÎÞ½Œ¾ètÅ«i™úÕûËþ»®ú‡ (?2y«Æ`œ`Šœçz'ÞÊf[pFú@0(SÉã|‰­D|q,t¸øëÙÂÑÿ¤Ø™êéÙ]v ¡Ë–¸¨Òc ùÄÔ¿=}ØÅ™Î=x¤QV6mLB4šÛì ëá­¢«C,Þûøå£BÇÀqRìFSø°:˜«ÆŠö&Éd))ŽO•ñ …Ø ã(\ïÃ9I4þ^j¨DF…Úàˆ]t®7[†ù.}žd…šÇÍ@ 5@{vÖ4(;œÞZx}= tf?;tðœ&»ÎÎ/Š4ãÕh1¼ïÓ0Ö4vbýìFËìŽ}k `®›0:,8`rÆú[ü^ ¹Áèø}¦k5JŽž5STcÎå_Í™wŠóÕsùuˆ Îk Óº²kíày.*IûµÑɲï’'æ „}LVHøÄ „†Zð@Ô9_¥—DÎV»ŽóÌ2mÁíZ <é0Zr$«ÍÀÝÜUWyÛpÝ•œ`!Ý''j÷= ‡6&yÓ­8D_B³Ò£}{SÜ1î)ž»ÌIå>qßl"ˆy¼²/_.)Ÿ–lÐ@ÇÓ°oµ‹–G7¿”xö¸5Ö¨`–ÜÛ'ô¶„ÏV:^¢Kq:ûÓ¶ŠW×7W ¨Ê/z„µ¯Jö²õ.L; œY}Ú‚jÚTUlØÀÒEçQ¼KvYùî‚­äÌ01 ‚÷|,gI-!U‡Ù‡Rc­ML:pšwY£Ì/ʽ9"íd_FÙ"ÕeË·¨É§¾.–¢¡eõ ÓÛ;>h‡ój%cåÃî(À»üA=Q•)æ—o?:HøCr’Dûïû§Çg(ƒ÷ï´ó¾«ž5’q4vÀÿÖfá8•µ¬R†7-KTeÇMË8J1iµ]}²Nï7àhJéׯá޽Y§Šžª L’&Ø^Uå)ºKÃôñ3æxºZm×IN§ðBЬÀÅPSl:@QâÏ~òìsæ!ºOÃ6Ó‹†ÇÔ1xëf}µƒ¶tG÷f8ÁØð¼,‰Š)ΨÇã§|#Í9q’nΡ9á]ff´§î£áÕs}¡Ú6#e#k@—÷/›.ؾº×Ç=UñúC ÙÏŠ`q¥“Íí6‰âΡ”õ æÍ7Ú…ØŠT”¾@ˆ…*WKæÂ§Àùyšç ºÒµö‚—® ØìÖèãÓ§©“ûôæ^Š|óJ(ûYÇo77½!/vc±ØÙ¢Ø>t¸4_Ơ̬6*+#REåß>'¶©‹ð¶ _ñü±²FÕŽ»-’àOâåkÝšU­Û‰sþëLù_çÿ–:QP endstream endobj 958 0 obj << /Length 1909 /Filter /FlateDecode >> stream xÚ½YYoÛF~÷¯ òDÖfËAá6G)šØOI¬$ZbC‘*»þ÷=É¥h)NÛ 8{ÍÎù파ƒM€ƒWg?_=}± CYB“àê& #%Aš`3\­ƒa»eþyU—uß|Þ®Î?]½~ú’E£c&(åÀSígLn9Ãæ–Wg q@† (EŒ²`µ;ûð kX|ÀRƃ;µuD˜‚t8(ƒ÷g8~Ó¯Ò‚zZŒ’ˆ)ŽPJ¢µp,À ©wž¢Œ«Ï¯Åö“8ÜŠ¦kÏ4Æ¡äÓhRTkM|Ę–¥¦Õm­ºdVÿ$£(&ñcôWz²9o%q z¦ZÚçy»jŠ}WÔ•§ã «ç:ƒa–èã¿(ÖLÑwÛbµÕdßæšè¶†ØÃ¾®³[ + üCÓŸ‡¢/“žO¼&éaäÅнc> —[ePòX¸DªÔÞö©[e_rJR_Z!‰†Ô_0šA)ó—Q>øA/ˆ¼…|銕NVmi&zÑF(A1›„›D=–1é»})î%îÉ¡háRÆÃçµt¾œªêάí÷2¶%)#I~áI)ôƒ+G6%$ Ur“Ï!b” ¡„y{9‡‡ ñÔáaaBÃþÒ}ßLàÝÁ±’ ÎÊ6ã"VW꼩;虺ǾOºùTØ1˜a€¡ü1 ÜéFÇðôÃø¸P?À+5#sbdZŒÄ‰‘i1$œ°4¼ÖOibëœlØ&þ.Ì”.â2‰òªÃ©Ì‘®è£Ù¼¡ŒŒKì“Å/ËÉ(Wh»íš(‡ú;9¨BF4lIm㜑+p<,µÀÖ–?X… Z6ed¥OTŸ“õVÓvz} £!•«æ{mŽéBÍÔ§3pêÒ\Z^”¡8a'šUY$c“yÕïØc±ñ˜ýÍËþº·´ñª«£ãÙÂ9"$ó[ƒR,å«,H3h೯èô(¢ùÞÞŒüß§Óc“F/²é„ßèEÜJ©GŒTµ0œiô`ñ¡F/t,ÿ®ÏÛªÔ91˜Öü¢ã]ßv~Ôµ/˼Út[×uÍÁI‚ððÃëÐKFçÎÖüã(Kä«ÿgÛ9×Ažl;ÇÆ:ÒvŽþÈòñsS endstream endobj 864 0 obj << /Type /ObjStm /N 100 /First 884 /Length 1857 /Filter /FlateDecode >> stream xÚÕZ]o[¹}ׯàcûBq83$ؤ-Ћ$mNGã±ìt¾¼)4ÿ|4~3½[Üß^Nï:žè†þ6½º™ü°ø.|q5þׄb³÷Xmr‹) žWâßÏç ÌxÑ‘Cújåîýhüöþ—e÷ü×›ù¿Fã·WÓÛn…ô~üçñ_Æ?^P÷à˜.±fNB”,:Iª‘´Áš)jÊû¾ÓàÛ0þÓâÝ"@ÿxóa§Ÿ?MæWñÍý,Þ]NfÓ?ºŽvLÚܚȬ³P­üs`Î]Ù9á~Q³ö.JQ@MGŒ¿gï}O8bü—Ú»Ú½k=ÑÞuÉɪ•u«ë¶ éÂ9VW©QTv©°B‚PÔrÜ>Þß\Mïv½à4ˆ_¤jA4F£Fnå§¼œÎ:ŸœOÿÛµŸ&³á0åR¢òÇ "ëkP8L%Vý¢$¶EžÖRw^;8nf+\ÂÇsö€÷\¦RL­u#•[Í}mýùdWvK¹Å,ÖOq6Zé),jW=‡0§è Ò„3E.=a /Šž?õήº&ÏÃ{¡w—ˆÃ–xÙÒ‰¼ÜVÈéUkçˆËÒRL&Û¸,3[{Q\&2¸£%d`›È€/¦bß02`=$÷ÈÛ¡!”*¹F†ì&«òr1êO.»²ÛR4’hOao+AüÚ=ƒ,;mK?a7Oás±!ÀRùš¼ª<l}ðmuð½¦]µt"`$èü%?gäç¹ÉoÈY[—ýlx ‹µÖoÇT#²R‰äw¹K©;ŠtÅòzúïMòóŸéòúævùëôæãõrÀ4 bDâQÄûÕGL(eH*J,>NPû€Ž•ߪô%«=Ù§*«…©¡,¤<\YýÒLõà“žv€ýiu`W••ß!­Úõ8mÆeÐ +QǦž‘2–VTž^#§Ú#m¿\Ì ƒ®»œü2›NîtÞŠóTÅ{ý‡(«äù3ê1ÍÏC÷ñvruåŸ jâX@ì„dÖ`qVOL*Î]FŽ]OPY½z®[¨â¤å/:8:Q•}A§ÂH:ò“èÖ@¶øn‡¯q7$O0mö;ìÖf~;Å’»Èö,ûŸRéϧôÀÅcõÀSå Â0ˆøÂ%÷ß "£kÙú KAei¥Ÿ0©ÆÊõù¹â±ô𫸣ÙNŠ;Ìq‡é9qÇä î¬!ùoCÆœ.È ›Df˜ÍO³ß —üæQ%ƒïªÿÔÓ%±ÌÑËàÆ&±2u>Õ½sÿC½+ûd’ô°4ø¼ò9„Qk{4þ¿&¯ J?a/gúÉú/<)·ß×O<¦t@b'„¬O‘u«ëvЫþMþ$Hõ¬@a`ãä§©žˆ|*OM P;A¯¬¢ Õ‹°Ÿ@!è•Ú¶èTZwÆŸB÷í(I°m²m%g´Aò'Mý©vWvËʱ±ööˆ‘ÈNÌvò‚=vx1üÌkZN债>ómÐÛ¤$±tÅ&â›' \Ðúÿ:Ð(õxB}}9¼kŠúš¶Å"WÍùI,_®p®/œ±>ÃúÙ9£P{à^ôtáÒý¦tÙbàž¾ ÈuÒSØH²áÿn°û_ endstream endobj 971 0 obj << /Length 1984 /Filter /FlateDecode >> stream xÚ•XmoÛ6þž_!& GRï†!ÛÚaC±nMº/ÝÐ2mk•EO/M³_¿#”E[u†øväñî¹ãCÒ`Ðàç‹î.¾yÅAAŠ”§ÁÝ:`”’(Nƒ,¥$‰xp· Þ‡Q¼øûî×o^ÅÑddSRÐæ1cºRÔò¾TµÚû}¯j-rAíBî «Mç¸æqB žA!Ó8•ü´ÍÊ“?Ò2©œ 5nƒ_— ¶ ”EdA›À&\È´˜]AÚ±“àó„Çá­”O Î(a¹ÓͬÐ=% âˆÐdÜZÔØ©- y B&Ê}CWÍZ=ݾ1 íUWM‚}>!ç$;¨cPÑè 5nÒ²nÅ@…ñ©w_Çi^ÖrÝ_b¿Ù t_¶Õfë×®³QÛWØeâC#6bix îÕþ0Z¬Ìcß—KÕ÷jw©“9& Sت¶ú¢CÏ®ë8ûsAÙ {Ù~”YÎ=‹™ÕŒœ)–µè:,â‰D5L´í 9ÍÚ¡ìñ³zÛœåkË#’i}õ™e¨€­»©;õ¹£Û# Zai޼Mœâ†Xk–/ž iN¢ƒM¶åý^ø4âåÝÅ¿ÌÌÀFª1G2–åîâýß4XA'dyð`†î‚üž{¡AÜ^üq²7:åCþ9ñ™Æ,H(äUø>ëOʼ8ævõ#HYÛÜ"²Ð¡í"NBs`Cí÷EnÎ ¬Ý- žúk}Ûá—?Nl|[êØÊ…鬕b8û¢˜?ÇJÈ£v§ÉY„;úIBf¯ö')âKÀ™ ïé4"%y–9[jÓŸ`Ú§ ô8oFq;A‚Ñç f“}ï¼ѸWmoƒoï#ãø=Ð 2nyLÒÂ[ØÈY[ÚÎßþ‘íN€¨wNq›×-D{ÁN€{~øtôºªë¹Á§IÐÏ(7­&<Ȇº³›ýÜ&­µ`ͳÔ0…ð“ÆÍ„ƒuÎ¥]ç’"rãÃSÎW@ú¡áøÊý˜G?›þQî°'6&,ŒÎ™…“hÂJ8ƒN*Ù„¢è.{K€ÒÃVÚ6P­6[ƒÑU¿ÅVŸ.*†7B¹jzC/7&G§™ÇUqˆv¯å°—ÎËÈ¿4ÃnéR<Þ°hóøñH®­½«æèhr,Ÿa¬:´Mw4hJÚ±Cô‡!öR¤'Ûª¡¶ÞìÅ1ùlJ³4»—âC÷%ùHjÞ4Òíý…Ÿp®Áñyê¯ðçÉÑÜÖr¸ ´ï·w¯_Ïä*}eb©ÇñôúÍ?Ëöd’ç±ÏEž¥Ëƒ¨>Êö\å„òÈ׊åÖ‘Ì»é`ƒÕÓ”KµÛHQ˜½ÍLe{¸±w0åNXÜC›ZþWû£mB&Š!M7yðÆQZš•lE+€µo³îÍà€è9«Òg-4 [Ç­Çȯ«]år•cÌd›šÕLÜŒF©¡×Rçb4-rvý/qU6MUyâÙ3O|{z+ˆ}ʳoý˜¡º®ZÖÒ‰MÂêÆ FÜp—_˜-•]–ã4¼¶Y X~Â|–¿“$|vŠX™¡ögí’~x†ºu™ î€CcŸ“ Œáfæf£›NÒ&´-%~x£eñ ‡ÛK“n2ù^_o˜½6ðxtW3'O BÇLr÷öÝË™À†3·àãn®ìÅ hcûlÍèÌœRlfCÌ!Jb¿—¢Å²9¦¢úqìÛ¹ˆñ4Í«›×·sZ¢³×A58Ÿ ã‰6ÎYê)¨) ñ³£,Ôb²X-Îÿ Ø•1õ®©+Ì:”3ïyF×Ç+.O&O)“.+&LÖIáhëªúÑØ*½ñ¬íªNônÜ©`s1:"¯ðmÉ>Hñp¥ðÛÙ/>Fñ)ø4¡ÎÒð—5ö<ª ø0i¨FÆí‹‡Œ¶SÚèlsú™Š— nÃ!ÓO23ïHSÃXÚqeË{YVëǘå„þH=ïÉïðó9øÀîãôpŸ˜ã¹pûPFàz endstream endobj 984 0 obj << /Length 1962 /Filter /FlateDecode >> stream xÚ¥Xmoã¸þž_!(`£ O¤Þ¨CEÚÛ-Z,zèm¶_vmÓ¶z’è©$î¯ïCÊ’í8I‹ Íá3ϼRq´âè¯7¾¿ùîcšD%)s–G÷›ˆÆ1IÒ<*ò˜d ‹î×Ñ×¹^‰Z>¬T­úîAaÄâ—û¿÷1IGœiLIÁáXÇ’dvËMì/ #ðŒo»Mâœ%nYa‘·äqA㹨{99åìF’ñ"Üø· ÅÆÀŒ† p¬éD«kaäâ–eñüîþòá‚B¼$yžî?,nVΟvÂØŸ?.X†":‚Ú줩Vøó„ªwª¯×ÈØTZWíÖÞÝRFg JÊ,û––«LæëJïkqkü)ôŸ·EÂç?*©q©UÆÓöûú€S£pÜ+]™JµøËÙÐs=íd'/ ÅÒœÀ‚×øw@¡ áE¶Tþ@Q[{=9£4jÆÀƒhœyÍrduVV »ÒŽN6Ž¿Ã]µÝrjþ‰óPNò†”ÄåÄS[Ñ\uœ,!ùÑUïÃýŽÍÍÔæD4wîUaü™(M<ÆÒ9ÊAŽåÈ9J”ƒèI1ÿ¢’@©Ã6ñ\ù%ÕáÒÓl¾•­g1•º9,¡$¥yîIT²ûg1üÓ Ž‘”„gt-,§N tžŸ¸ùZ¢ÅûÚØý¼ð ðÁ…‡€ ®9%-Müj’-îØtª3Áä[³N¤7,6¥G-›ÃÊqkZ±ã©ó!nqƒû.â––$Ë1ôåÓ§KQS–Á;ÛÄV™·NŸªºÆÙ2¸jS#××#…sBi9 •Z,e­¯ºgI’¤ RþÔÁñý„ ¬KXJ§®ÿ±ìäì Lœ¤9%ÆÆˆæ±aª¯É$·ûZÅ“ºÛn'€Ð" ÒVÒ]f ƒG¡à𨳦ÂéÏg †ÚL–™ Müà Ù8Ѽdð‚~¬®½1 >Èε²±‡ÆS{iÁ/ÐHeFxÙDm_ OåMm”ŧyꇌäÙà‡Ð·Q>ßöl Á®š‚s¢õ·¢ðÖ’s ]ãxC¹‡©Ë—@Ë~‡¿/[^±Ú¡ŽiA²2›ª¨«µ…ö¹dm'`ZSµ½ê5þFÌšN±„.Ü5¥>Ö±c’ã¤o+ãy]„€YqéBðÖ$ yÉóðróÛ^Ÿý¶½½í•3ŒygŸ t”Æ|ðÛ™ó- ƒ°èY°&p /r+N+XB `Ávk`óŒ¥óÏR¾=.…'ÂïÝ ú-‘&PNÒI ¶b4ª íf!“ð)ÐU»QïÆwxD]KȜٴOâÉû+f.-ÛU TX°=:€­Ç|VË™!Ý)ä™{ùÅMXÅlÔA O.GÂw}Ò|>6j< Ñ”Y:c¶Tƨfæ‹dhvª«þÑ!êÑ»G¿4Ýïe÷ŠSœ=ÀÛ•ZèPš}¿×ky"íP´]5ëú• oËá½v&-KHaå…Ú›(Në´Ží®Öê¥ï“þ;½4I‚àî+ Î÷FÕß¿=Š”¤ÅÐo[æ‡=âø%s,m><‹fjµ—F'hb¿tÅ P¬ô„jÙ‰î`ƒr¶ÝîkeØ,D§Md \ xP`¶p×oqÄý®y4+ÑYµËcüý€Ã“ñÔÃd¹Ùoýz€uDÜÛôس¶RØ‘†¤ÿÞ ét¥â£R[©š‡½ªZ3$›C|a³n”2;§Š4;µžÈ1«›™—ÒzèˆòñîÓ篜ü¶Ö=X“;¨W‡zö x\#šª­Q_ÓÃ[g»uÏHwü_ÀG3ÞzˆÆ¶<Ún]‰Fµë«Öƒ`í*sð[6î:&÷æ=–YŠî vAÜì]lÿb6H>ÜßüvC]dÒá (-cx~–Ѫ¹ùúK­G’ö'·µ‰RȨEjƒuôùæŸ/™ûÌ:í°@°ÞÌ´H u.®}f…jZLŽ`ð¾¸|vû‡ÔåïËJB¡LÊw)é”I.}3¦ ìŒ}ÿÿ£„–§ÚŸÕÎ7fÔwõ4'¼>;äÎ2'>(_zÔgaÇ7ÕP`ÖÒˆª>éÊ€þ?ëÕV endstream endobj 996 0 obj << /Length 2330 /Filter /FlateDecode >> stream xÚ½YYoä6~Ÿ_Ñ0@bŽDê 6/6³Èb2v^2‹Ý­îÖF-5Di<Þ_¿U,’:,Ëv úA¼ªX,Öñ;Ü6áæŸoþ~óæí;or–§<ÝÜì7Q2§›, Y"øæf·ù-éånþõö],F+…,J€Y¢·ª*>m›ªéÛOºSB’7¡ÝvÓ^Yâ+žá±¸ÕêPL¨žú¾}ÇÇÜ"¹¹Š$KåS¢| “PoÅ©¸¼JÂ0øž>šãªöâ[ê3Æ`e„"À6W\°<ŠÆ<÷eU}5ǹXƹNQ <…Û³[\·—QúSQwzU¯ÏéÓH5f°ùí*ÎxlªUÛ®h­<Kâ“Qì „]^ çß5œ'aÐì‰f²³HXœ¤ŽÄŸ}{3 æiW~»À+f¹ä«¨}šW‚ŠçxE#^/‹ŽÚ.°Œ–eÏSS7K 9È&å Ä©Sñ©S%œ‰4‡ËKÀw­€ÁÌ=qÌ?KÇjB“‘ÞdŒðg¥u±³©éÛ5 Ê%^‰»RoÛ¢+>;_ DG2ñHº®X[–%~·k+•ž:Y°ïëmW‰aª;ªŽZ÷ÇÂŽd•9¬¾/»#*úè²>TµË˜FIp;7«ÕHM´½·;‘ÍQ"ŽGŠXž$$bÝŸî 9™¾ùžŸ‘uQYu—NÅGë'FÆåM”Ú·µž-úŒŒTÕ~Â×.þ–Ù±é+{™úãCÁVoãôÛë¹3§/Ôïú™J¤÷þ‘ÛÿmI®RËtºÃGΓ5K—,N½Oü|ûþý’ãpG>”ì«ûº¡ï]ûèà@!8[ü²Ü«òsÑ¢1Œ‚ô$>pr1•*’ö"¡±+öx)ª¯:°ršö¶9ûΘ,Î<Ìh»VÕXž”µ{kîþ[l»Ù1“Å‡Ö !óÍ5©kôÖÞÐf·]3³è%­†¯Úhä¶S;¶Ö:·üª<•.T)ïC &;TïüÆ+uDÔôR­ù€•0—ÓãØýWK– É)“‰>e2Õ'ôí¹e ñ1 ymÎ çFëòÎ&C6r{è›k0ävE_È4A“¥Ý¶ãape£Vˆ,šF­˜$Á«CÄ΄ˆæ¼ª—„ N/\dâqÐ×=¥h“;€ GQ = ›0vWзÛèRŒ…¿ês±-÷ f&sp}'·g(¿§ÏSæ—ÇàéSàv|CÎòP>²—ÏF9pÊ5{‰¡˜•™Ûè§¥Ò#ÇÒ칃<áü¨†4¡~ÁsšèÁ‚Ëá"hB<¦+·ÔÍ:ˆ†„sÃz QýäÒ0î‰\àå+õ€‘»JCŒË„ þÑàíãPÝtvî|FãÆ&š~!«””t±ç|Û€–Ûb)&Æ)pÌÏ×KQ0™ùˆXZ†ªÂû"‹~Ð6L¦zÂÄž,µE@¥¶®îƒYB †Þ‚¶<»—§(>.ÀkuZ4¨7nC6A>S¼¾*Œå93äu9D@¦šÉ‘{9r’#õrä$F‘·”NS‡vòa™úRÚ!Âr9FzSëÔ–¤+;ÏhÑs¸ˆÆPûY , ¤M¢qœBTƒïê'.‡§ È(IÃ’Ì¡™Õ‚ ‡) l ši &k¢²qL‡ «ÕÍŸÀe(ªÂŒ…&HFhÍ¢ÔqDµ&ìݾ},j/ÎY’ŠgŠƒ.Òٳ€Ç7–Ø£æ}i29b^g°„ÖýEJEù éª;ÌükFšC%Ÿ¿ äãŒÇÑÔÿ‚’oáQÉ'f_ìÓŠ/–NL39ªø g Ã@»PñÁäS_6¯\¾®â;”’[ Ê5mTÆ©×ÝÔð´™UQÌs •_K%eaâqÅPU®>Ž9ý -MXÿ©èR-ùl:ÖÖW Å—3î±ö: ­_/£(nÒÆLø‚- ù&ž _m–XëNÙWÁÜEAÌ$M$;›/tãrÒƬÀ|Ûô$'ÈŸ1‘$ÓøîkV,i0ÂY|‚CE­û¶˜—Æ£§-Wn°ÄÊ‚\Kk{ -¡—âAõÅØ¼fKhR*u³ ¡ËØ9J]f3œðEw?&7-^5yü‘,õ‘Œ®ø“{ úüM—39d òð€¢.Zh'b«#-½VczΧ);qÎåÑ˹AÎí³4ñv8~Ce„ Öd“W0S»dövaŠª9˜èŽtŽÖ=ydö… æ’o¨oliÕöHgŒ3–ä3CÔåUëL°ÆÆ¸ Ä>é¬-\¨;*-ãÈúº°ãjpjôµy¤Vá„€V¶´¡¯Å,Ïmnv~õËÌ¡ÇÝžAš"=W ,ì}Pœ[çÇ–±-˜aɲ8—fˆ62#æTø^`tØàΊâå~ÁñÊÇ{³ƒ~‰CÄÒI<ÉÁ(Æ©iâLÁe„œ*º¬÷Í«õëK©µ€,Y–LÁ¼'UXÈMXÆQrT@¤Jè\Tž» ys˜¾0eÜ»QŠF-`P(¼Ì” Q\˜wµóÀŠ´Zæ³g«‹»¦ëšÓ…M’›¶üx‡ªFÕ~­Òt¦¿WßPù£2Œè®TJkÿï”ùöº˜Ië“¶Éfm¿í\…ù¸jsßoÞüÝÙt endstream endobj 1012 0 obj << /Length 1397 /Filter /FlateDecode >> stream xÚÍX[ÛD~ϯ°ÂK"êé\m‚‡mE…T éÓ²ŠÜxâZrâÔvÚ®üvÎ\ìxoÖ[BU5“™sýÎeŽy€ƒ—³ïW³§/8 $’‚Õ6 #Æ£ Ž0Œ«,¸Y4›´TëMUVÇzݦïJ•—·«WO_0>à嘠8Á†‰Åšd†ªç«Ù‡-ÈI ˆJlv³›[dpù*€+™Ÿ é.à„‚‰8(ƒ7³_{yç«q…z®Œ"N‚'ˆ%¸ÒËÓ²hÓ¶XR±ø¨I¬‡†ÀA¢·$zlTfwÅÞ®«e‚˜`ƒ“·²Wí{·Ù÷›õð%AÝö·—ça§q‚$ë#æ<¯Ó¬Pû¶‹¼ö¥Í=˜„ÀB …°b·ÚEÆ"k)ƒ(7êÃD'}‘î³éFK°«6ÓÇM"ŠbÁ;—ÖfƒÐÕK’,òbŸ[šM^ìÕ±±¤6ž   Å,ö¡æý¶®vv×bk[ÅÐßPgŒ·Mš«Ñ½LY¿Êý”«o ØŽ[ÈæP`¼øÎ.óUWÉúÁó'v×ÞÎk•Ë´ ƒVΑU›µ²y:ä#N B¨ X:nÊ$C›·EYþ‹Íb“ÿGÏ“ÆÎƒAÂ=ƒ¬Ç‹ü¸ƒÒj®&Þõ„ë|¾RŒqÅM»ZüE×\”®”}ºSÐÿ˜óF©é=#fˆË¾g¸0¸ €USÚ„Œa‘×%´Eé’bè Ð Ò¢Ôrí±sµAg"©6QDt»`ŸKí/ƒÈ<À×{wVmm¨=í F8–œ>¥Æ†ŽÖk|2"‹#{xç§ö>&MHÇÑIZH1]Ø®yž>E²oÌó¬ø¨jÝ{G¥B·•¢£u<*G(A‘ÿ,GÀ`>0âZì¹€r„ûSÙNN€Ÿ¶P\šÚf±pÏdj«Ë6=–­¹âú úfÀ°D–N`lh̓ ÇU©Ú]8ùÈç0‰U —!¹]«Ák9T£;ö«U#ÄP9‡=¤ …MÇè5èïêվ஗¹Zm̼¥÷ºaêµ­¦'¡^ú>£Í, sìÚtþ)iCE`â¥ÍE[–à;‘®/sK©ÓÛXû¬lª{úòûý.}‘ùžd º4­IÖj«jµß¸~Ϥ¥Ó‰ð‚ÄX²°3‰ÞËΜo5 Ò˜N¯†\"ν¶7Í€á„Nª¯«çˆ‹ä ô‡LC ¨?\ë™ò:ÙiÈ~„n>üìTönhõG] bÄýñãùçtwÐcóä‘>B´”.·AfâJ¦,ÞÕi}§Sxžç‡²j鼟ޠ;Á# IìÆ;,}ÚÕ’kÎ]»IëÆ~Å雯 ·VªÇ} K+!WÕn}¨Š½aK•æÁŸ½‘ìSëf²;ïxwÈÝyW ƒËmºi«ZËÊUªWÒýÚƒ}[€IµëOuzÐŒ¥»è¡wj]@èÎOƒ”?Ø5ç€Í:KÛôæfî²a~{ ?L†£=ëFÛÛQ*‡ÂÅø\¸)÷½J3}©§Äf@eBåàd?ûXýq_ìµ Û¡É,|4ƒÊJÌ#?ÌŠ¼-Zû2 ¸N»qËãùs,A¿rŸïîÕ6ÛíeölR‡Ó;G_«ú‰ÎÆÐ¾ÏkÏéñ¯Œ\> stream xÚ½YYoÛÆ~÷¯ üDÑtv[…ïmS4ZÜÆÆ}h ƒ’ÆŠTI*ªÿ}ÏlÜLSIÑAÀYÏœý|GÆÑ.ÂÑ÷Wÿ¹»úâ5ãQŠRIet÷Œã2J$F‚Ñèný3uóëÝ›/^s68É8E"a@Çži6Y¡6UQê‡só›¹q…ý;ßÝ]ý~E`ˆ#Ò?AR„D›ÃÕ/¿âh ›o"ØJUt¶G'%ܼQDï®þ×Ñ›~­tÈ!IN¢K$âeA¼dD€¢T‘ ÞÿoRgEq³¢ÇïÚú†%±Ö­›¿¹¡"¢eæ˜7j7ÌÊ­¼Ç˜–“ƾ?«™rÄÓôstãlÉfl)%Cœz[~«›MÛ¼*Gâ÷jûƒŠV$EX0wý¿Vy7+fÔa$3ƒ KIÌ®Ÿ÷ùfF»A»×îàεm8šnàRQ½‹Âðçï§¶¥ æ*˜ ùÄFÒÀò{,0ü'ÎuGBqŽø¶¿nV ñÝ^‡24ûêTx9מuƯœóvÿ錯¨yÙh” TH÷<(ä Ÿy㲂£$½îÄè©„Ú#+š ‰…;xßd;=kõç^0ަà|> «Þž7+qüµû\Û8häõ+7G‰à™$€”L)þ­ó¢ø‹ô¦ 5:°Êôv»­oŽw§ƒ.ÛfQ©/)Ó‡TàklþDloöYmZ]Ï8¡ Òe¨;X4!]îIº3·•[ïý¼WÐà8cî a*ÚQ½®wë§ë™×i žÜÅà«JQÞ“ÑÛ‡]­uy}Ñ/ÒZÙæÃËÔ$Pɵ#ÑÄÇ¡Žë­><Ôúx}1aÌ‘äÃbÑyÕØ¦+B¥ J"c>–Àå&uhôt"r÷´q:Õ9-%Ǭ±éÈŒ!§Û/˜ú9‹©‚G¡me@·úÁÆÉ”‘²Ü=Çó‚ËNøf ¬Ð=w |I5ðG™Ä§rcËÝj÷YëFç½ökÀZaEƒÓ6ÓÚÕÌ}š¼ÜÚóˆïtíNg=¹#&˜Úc2ÅŠD(Û¿<ÖÚ×ìêÑ}>ö†´.¼¾ó co¡–Û¬a§ UÍäÐGC(+NºÛÈÚþÐòÄ|¹±;Ù“b4Z4QHQ8"Ü»ÔÚJ¯³Í ÕEÕO¥²9q[‰¸’ãÞS*&´G¾¦—]røñþíÛ¹ B'2z x©¬Üw]? +ðü×y9gùG]/aŠ0ec®ˆò†„ÁV?£d§¢u žO;ÞT‡ã©µ.kvž&wÛ:+ yȼßÃZµþMoÚ‰˜ú#Ä„aJÖ­Gœ]¥ðþf|vÓVžÓ*þ¬‡a;öcï­SÏ/òCrUÖŨiGqÓ)up©:µæÖR,@}Æ©òâø¸öï/U(é“·S‰‘>•ëæ^nÅÁ! ü-­Ü°q¬š&_ÛÄd¯ ÂæÖ öº?àÒ¯%ä4á6sÿ ¿¾}ûnŽkðh‚»ìÕ³æZÑK<>ã&«ú¯I!ñ“I*3d³X‘-—zíQä}Yä.;˜PX[•m^žªSãæ®áze&ªƒ&Ã--³YGBikòâÉØWFð³›òÆg]Ø)L‘æ¹Dù°Kh¼­Ü·ñ_›¾Ízï|Ð*²DÆ?<º§êäg{ÀB ˜µž@­•1‡³‰[ üÙÉ(;À܇Œ²ÐÑ ;Å¡b<ìxåÇG½ÉŸfÜL¥ú|YÏÞüÚ}^r¿”CxÈQ£ùròÅ¥X=ó—V9 å’¿p `¤í àüjz»K‚¼üF ’÷Á¿b4 i"˜QÕÂmdºˆió›Nv»_àâÈÝ%H°‰¿¹ß ˜1ޱȞÜ ŠÚ7æg[¹_ŸÖïƹÍи’ùBUÉ]Ñ5³þ÷ fÐr­çr"—¨Ç1?ÞÎeD†TÒeÄÜÌ c/çÑOO“JcÉ@œMh<†`Ö¡{߃:ßíÛÏ.Q®ƒ/³Ãr¢aFÕ¸ 6(Ò\!Ÿ1^_dÆÓœ8ò2"hߣz>ÒŽÔñ!;>RLJÉ(,‰ï]9•í¤ý±ìÜ/9,—šLo{Ò_ió¶#49”‘!Ô¾ˆôö‚ ¢…JÈjPàCÿDàpù Š Š4IÊ鬑x-(Üo5@6` lÐn{0Yº[>1ïÐU7­Û?@ȸ¬ ;š˜k­y”:“Q»@7Úƒ÷fµÇS$$»ÐÌXt!‡*aà¡Å„·˜žóð›ð:8¬CHËñ¢"$»h‘­Må_rÒzøôZ>Š('ÿzË7#À¿Ôò±IÇÇCÂ`ÜñqØ´›ƒŽf2ôwg:>Ø|©ãKRõwv|»ÜâA½rýŸ">œšvìxM—3 ]îìÏ-®ýšË(aÑኾ«\ü•0èèhR ”ÿ£ è\/y±jk¡üëO, Ïp endstream endobj 1038 0 obj << /Length 1923 /Filter /FlateDecode >> stream xÚ¥XëoÛ6ÿž¿B0@–¤Þ†!ëÚaC°bM²/mÐ2m«•%O¦Ù_¿;%K²ê¤ C|yß=HîlîüvöËíÙ‹7¾ç$, eèÜ®Á9óüЉBÎO:·+ç½[§*×÷8—y~ítññöo<@èsÁ¢v5^‚Kθ=§ûÍð°K‡,JbçRF8H´úë^«ýä,/`Itgý½B¸:mÊjq)ƒÄ-×ô­T±ÑÐ ¹«"pqß:+ šMË¢nTÑÔÔmk½¢VSÒW­VD\—;MC{ËŠ¯Ê–øt.Eļ €¯` | _Í©âÀ]©F]@3ñhoÒEÝVvºÙª[¾¡>i\u ö¹J s°Äò‚»fÈ~j{ ‚»Ê’¯«rwØ–}ÅUºf†inÙ ‰Ý»Vy°YŽ ÐÐÂçîCTdÚ†ë¶HT$Ù~,v*45ß¡ÅäVR2? ;“‘‰ï ®>ð€Ã_œ2x$Y,{jT"²±Ñ…®T3eûËB‚¨y«kË-à‚Œ”L&òØJÍc~}–øcng0ïI=Uµ±»iwºh æ¾5šbw¥×Æ6mnðEÖº0e ߢ+ZÐt´FKÔ\>Ò\ðõ –‘V¥[’ÑXL€Xg+T ¬CU˜˜¶Éжlkê“Î@7SË\×WùEf<{0~9 ©ÑYci‘ ¯cZÑÜ€Ö´Ò!Ïòg§“Ù£€!bzðñ™ä>QoZ<íxd̤×ó ø‘âaèIëüØ2Ø‚y`–cІè 3b¤‚!Ò j§ÁæôÝ­ŸïRp&ú¨iN¨Ÿã¾ÇxÐËDZ6veE†¸.ãÅcEgźünýîË:8û|@ŽYt`Ç ÞãÞzÒ„e%G…õ5s_úaìžçzݜӼ¦Ï«l³í×Ý(E£ªÉÀ+hÊø"Ö¡{Þ†Ëýa+ÒhYúceœ/˦)wçÌ)H˜Æ¶¬²Á;pwìÓîß«´ºÝëê PF±iÌœfèL3ÍU]S“2G˜N¸m:B“ͪ6m(‹Y¾mÌs+=!¿˜saÊ0€ 5dWy]~+uù­„‰0¢ Þ'ãe^¶¶ýPzù|oÀ0/ú0´÷{0Û׷gÿœ ³…èkð:A­’îÎÞäÎ &!Æ0 ‹³tçø`ù îäÎÍÙ_GÒñaA4Îà¡¡/œ€CdÕCëlP ôäG#r µŠèdºÎ–Õ‹\ývÉKªÔjþîÔ+°:B߬è>¤´ï“ÜHèÍ•|~ÀHl5ð«†xíÿ)8XòWG"n©&*•‘ª6‹Z[$z~W­¨žåì˜Ó±='œNl‰Á—1ÖÅ_LUà/‰ÃÕ„ð“ë§ËgW?%äU…EUõIaŸÎ] êk·=„¢.°Pýl‚ÒqÝ”ÄÌ󺺜ßÇ¢o†P¢»!ó;'××Ms2³{ØÀdv ©¤£ƒN4Hó8e+mh=lµÖr#¬~Èš-*úÔPì›Ú ÚYјmcâ\ê=Z‚æµõ$È@ÎñÆ5vÑî–]˜¤[ wapJk¹ÕwVLÂ{W) ê‚VÛª¨'‹†…/Mqí{±ÀͶe›[k6ê3bL?¿,°ci¤×êsý„…‚¸/ Þº“ýåˆÊ¹ÃÇá8‡~2˜ì=ÂZ 7оtúóîúz¦BÇkÇ!£ôi³° bÐT¼”²8öÿ/*û¢«a7­Þ$ãÒs%bkH1º-ЀåÓ´Ór·o)Í {#Ò6pë­a˲¸‡±rù ®Ç1!ù§N‹é¼‡uܸ&¦­ª”U‡7Älwï> zN«|Œž'¸íÇ­SäçÙ.ëb•ê}Ôd‡ŠÕŒßôJ•mƒT§|4Ç'‹¡ÞìùOÕ{bªà>>ÔgŒõ9zXiL’…‘ʺΖ¹îÈn}cCntH؈4A“™=ޓܽ´Q *å@Œ+å0îwßV&D”û“z+ùá)禋Lpj û$mr‡ÔÔö …M[jú–`¦§¥šCÚ‹…üŒWaKoéîb&³É0a¼$·ïî^Ï86äÜDöÒ\ØËÔháäò¢žEÇ”˜Ht€–Úﵪ¨m²Ã˜~œ{Å£>м¹º¾™ã-x½¬Af|GÜtÆ*Ÿƒš¿˜D¡B1Åru:ý WÙûÔ]‘gЕ£Ñöûk¢ σ)K¦LÔ !µÕYþhlKüz»¬ÆÂ€¬ëA픈¹ ôÈ zŸ±:Ò]•ô­í—tä|øt…îïkšy,[jÐãž)5"i_$D´]‰æ ›ÐXǟ錢ô­;Dø¬1ó3TŒ-;.l{¯Ólý8³8×ïËÇ‘õ åOôùüÜ£÷,6[çÂåç?‹²› endstream endobj 1051 0 obj << /Length 1817 /Filter /FlateDecode >> stream xÚ•XmoÛ6þž_!  +’z¡ C‡¶Ã†bÅÚt_Ú"`lÚÖ&KžH%Í~ýŽÇi²øzýû‹·)Íä)´ië¸9z)kuó%IX]ߨÍâoKU[¹‹Äï¾°åx¡+–¥¤W¬°¸^#ÉÝ‚&±¬{5Ye8œ¢(~[#R6ÞÀâ `YÓÉF×Ò¨ìœÄ?áçúç7(;Y^”$ÏÓ ýã⊳2¾ßJc["¾[° !º©´Ù*S-ñçlToÛ¾^¡à®Òºj6vÇèŠ2 ƦР¤Ì2ÜëÖJ•<^Uz_˵ŸRÿ¼¸*¸ˆ_·JcWÓ?¶ßר4-~÷­®LÕ6øË9ÉKÝoU§NX‹¥9¯ñ¯N…r"Š,L©ü‚²¶þºwN{ШÑ$óšå(ê,­:ÖìÖö fÃÆÚÉwø£«6[CæîŸ‡ ’sød„|LÅFîÎ'ã$/DPâ:ìïÄ\«]Ï ¹uÏ‚ñk"š40î<&cé G9à(G>à(£ó"þ¤%aXj¦Éo•ïj;üÖ..7ªñ"¦2ÃB'#‡qJÒCŒßËêNu_’,z‚¼$"££ha9u€ "!"ŸÑ|¥Ðã}mì|QxÄàŠÂ›@ÞØç”´cò»jpƺkwc!hØäÔiƒã;€n¤G+Z1g+'Ô´°“)Þ!Ä­Ý`¿“vƒÔ˜å‡úôîÝ©(‚&ËÇÆ“mâ«Ìû ›÷U]cë6PuW£Vç#EBi9%g-oU­ÏÒ³$œ—åûfŽ—)ð.a)âƲÙÚ3 ’æâ+16f ºÇ†iëÍt¬@tÅg"jú,,=e`•)¨4„4F¤¶"ÀtƒËv·ï#üº}˜ÈŠØO°äNbÞ¶ƒííßjifZf )Jñˆ–Ñg˜—įÐZË­ìäÒ(oÄ;K1X8uSÙëÃâ`\×¶ÆØõÚL‰§‡lY«fc¶>©ë“¹$'IÆ‚Ñn;%ÿѧ9D žö-ÏH™>´©Þë¾Yzkf>´±ås†žŸ”qߪ¯ù®”2}×èck¡¶7Vê\XBÑ“Ìݨ¾íígÂ’ƒ Äpÿµ ”<é&|K…Ék2XW{CX&6ÚÈÆøcÂgA{†´þYù“B·á4ÚCŸ'Œwm8Ax–M“¥O½Y¼’FÚ ç+Û¥Ýw~Ø{D¤Np>`¿ †’¦x,vÕÊÂ_ú_Ò úò{€ÈoŽóšœÊíp˜bRwÓm,´HC 4•r›ÙQè#ø#"ꬫ°ùá(ÁP›Éò!“¡‹oÜA6N4ßsxÁˆ8œ®¼p>¨Î•²ØCá©=Zà:©–•ìØKÇñJSeÉœs2’g¡n£"Þô;Õ‚U!4…çDË·¢ðÞ…!G ø]ádÃqM—/a,û;.[Y¹Ü¢ŽiA²rFD]­¬i`žKÖ¶®5UÓ·½Æßh3P ®ä-TÉ@×”úXç~cûMH޾©Œ—uõu­âÔ†ÀÖ%$ 5až/‰ýæ¸ó³ ÞMow{¤Æäƒ3_Ù+%EΘ~ÛrÜ‚q‹Ì‚>‰]¸‘ëqZAÚ:lµ>ÏXTêéqÁ(\†|ïvÐO ˆ”Ãq’NÎ` c×v¡ÜÌ!d¸˜¡jÖíÓíëÓñp‰:—)²iÏ“Éý+a.-Û^ Tè°5: Jø²Vks‰ãN¾t ß¹½˜:¨AáÊå†ð^go§4/ p¸Ý–Bk€•Y:5ÆåmkL»»ô‡d(¶mWýÑ!ëѽG?×hºß«îR‚]ÀPË•Zêp4ûz¯×j†v8´ÝiÖõKî–Ã}í-㤰x9\d{€%­{Uëö{ï“ú¨wZ–‡ž~äp…>¤ó­Ú©€»œ1ñ™èÍòâ¨2Æ$*wûI¢«¢$4åÎKYéßWÞÞÁÌmÝö¡ ^>]"# 0X᛽œ¾ú¼¹¾ø÷‚º5èð¼ÄЗ»‹Ï_“hƒ ‡BèÞMÝE)0µHm‘]G/þ<òF2~ÚÚ2Jw7žŒgãGue_§Ž^¦^¼M‹É ª«áûÆÍwæ) OÃ}h ÆëŽâä¤Ò¬ÈáÖ?Gi| ã'èl9]ˆ¾Vp´Tû£õDæ±çξ^Ù—VÉËïi‰Aˆ´&6"'ƒNLãí“–uí1ú©{gèçžµ!C QcZˆ÷’Žg#åŸ7ÿôô#´àúÿ6 VF endstream endobj 1065 0 obj << /Length 2346 /Filter /FlateDecode >> stream xÚ½YmÛ¸þž_aì¡€È2"EIÔE±E“¢Ep\6÷åR,h›k«'K†^²»ýõá´$+ö.‚üA|r8/ÏÌÐÑb»ˆÿxó·»7ï>Èx‘³<éâîaÁ£ˆÅ2]diÄ’X,î6‹ß–íZ—æþK‰²¼7×­Myý﻽û˵Œ8ËlmÉ$Ç%o"w¬žtã߈ Lj䶹æÑrÛïMÕµ#êé÷Ý1â6⊩DÑFŒ±éáCF³”åJxFñTN½I´<è¶5j×}»š®<:8W ®å6Úíº1¹·;{{¢»á)ãÂñ|š®3çøŽc–%á¸[à+U:Ùò¡¯Ö]aY†©n§;j=îŒÖJ{5XýXt;Õôi‹j[jUg•½5 ­Ö9Ñ’/Qu;Ë2Ü%»à8Ë“„X¬úýÊ’£è û‹dù·6¥“wáe¼3Ô°„í9uAª}Sµ“E_q#]ö&LØëº%°ÿ³ÛlW÷¥Óf§G3ì¬zÀ–R¼Šd‘t¶¹²·7ú÷ö‚†%½†~®Œ¿û#ªÅMʤJÝ œV"™ì=²5Åd¼ë§Ï?θ LòÔ/z¨ì«š¾«æä‹›8b xÝöU¼<êâ«iЬÆf€A°HÄc®¸rŠ„ÆÆ< Rt_v4àø´íu½?ô5YœyžÐv®ZØr¯ÝÃX½úYw“k&“9¿ òÅo°.²®âZït£×·`²ÙuWO,zNªÑyŽ¸íØŽµN-¿,ö…Ç*|Ä䆪͌ß¡ˆê¾Cªs¾åj,7wþG СJ%#yªd,Oè»{+ ᦲ÷†‰CݶÅÊ“%¸=ô­,¹[@ðk7"IÐdáŽãD´¼q¨1žp‡Z©Ãq`0I–/‡'•…ˆúpV. ¼\>ydrÙW=Åh“;€ ó¥ À&Œ­ }kÐFh›z­Ø †¬@þz žÎ—w~pàtog"›Hs$¹ûåóûÇæÐá6oI¤"OX*Ç®fyæž)>s!î-Zúp0º¡¶CÒîôŸgxæàãi€æÃíÇOs\ƒEó( ×‘5ˆŒ/àñ„¯¬ú%V“ðs>‡J3‹b¥>þ«>õ¹* Btå p²êŠª¯û–úVéí[쨚 §™¶¨“Bhk‹òÙ-ØÕxñGêí‹Òn ¹SÎÇÚ=z$—)çv™Xnjú¶îkáÇÆÇÀ.³tùÏšy®{j<Ú6Õ€^ç6h̾FuNhÌóg;#t€¾shi{hÌúP0.íxëÚ³.žgÌLåàú!}iÏRþ…>ß2¿\‚{Ï:o/",Ô‰½|µÂ[ž³ I¼ÊüA à™ü•åüâE¾áü(†Tÿ&9$šèÁ±PGEЄ6-xLW¬©;™õ)ŽÌ •ÈÄÞ÷âÒÀGN| ¢ÄÙò3…ÓÔg;ùq™~*Üår9"½­u*GÒ]ØhÖsḊ©öÅ8Ρ<åo) x_? yx:±ôQ†%™Ïr‚62'§ZØÖç@‘5B;í’ÉŠ¨0é0éjÚŽæ÷à2„ª0ãR$£lÍe©3ˆ¥çÍJOæ,Iã ÅŒÍ.Ò¡ÈF9ðPc‰Ó5 É1çõKÒyQŠqžM´Ô+ŒüçŒ4‡R>AÉ'˜ü/ùf.ð•|ñ¤â“Þ¡1®ø¤òlÚÉAÅ=›2ig*>˜üVÅ—M+—ï«ø¶…ÍÉ-ŽÂµmƾo»±áµ3KSmís •_sˆ’²( yűª<58¥‚&¼ü‡†–&,—ÿ×t®–¼X€¥õ¨y:àç^b@ÇBë×kÎùQ“3á ¶´5ùô´ û¶Nh‰UÛi÷,˜{ÄHR»@²qñ¢­}L:À˜3˜oêžøþ3'“xjV,iá\~‚C¦jûÆLKãÁÓŒk¿ $°Äñ‚»ÈþÚõ4º$„F| GFô“µù–°ÝUÆR Ôírl€„®¥w”ª0ö0œE:‚S‹UEÍ_NqÉÒ€d¤â{ÿúôQW0uŒ6ÉÃÇdS™Æ&´#¶‡U‚å삔ūÈÅ©–fªM‰^M rj‡‚¥I°Ãá*£ÜÒšlô fk—Ìi¦¨úQGÝЂÎÓú'̽Á\ò'ê[[FZ½ÞÑeÆ’|bˆm±AÑÀ: ÖØ”Ø'™5$zE¥¥äÎ×cw0~¡§F_ÙGªØ1{& •Íj±™¬ÂnO~õãí¶ÇÓ.dš±]‚> stream xÚåZKo7¾ëWðØ^(΋ Ð6H[ ‚$‡¶Fª­&n]+°e4ý÷ý†òú­`kã=;»’‡3gH7Ë!…VR TB3 lZÎAZų¯! Ê*)ôñ´*£m’@B¡i5è´†¿¢èOÐa1¿–ˆ8C( ¾äˆ _ªwÀÞªR|n?e2ü\ÅhÖÐÕF@ “BÔ„­æÀäÍk¤$ø‰É¿Tæ:-°$— ¨aMf­ù”æÑð%Kê༭¡ÃF ý4ó/-HJß‚bN‰(©Ûˆhq ߌê É’©êvIhë=A² ´i‘ƒ šA*Av„TƒæM‹´„²í@Ø@ÓŒ¤A@YüKóv˜¹ùwH ©úÀ˜ÆâýÃâÆ¥#÷Ååþ­BÊŽƒR0%ïC™q°ȖÍ{²L}ø&ÞKjnLR 9qÿ4  nCèRƒ”»W¤™Ü^€“Ù²€¶’xã3Y“c‡«aPG‚Õιy/˜c®xUŒš7¾…y–ŽP2ø­Û³ÀÕðV¥ù2(…ÂɇW†d><nnظˆöáщTŸTжÞÂBÉ}‘°Þ¥tû&|©¦"3Ŭ+“C2çÔ#¦ V–Œ ˜`þ©ÏÅ4À|˜¶jsHXÙêA·ÍÌ[Àh4{òd6¾:^‡'OÂü9À "…—xE3ܼÀ–>—Í pj¹Pó_Ryút6q²Úµ\‡½0ñìy˜¿^~X‡73üäC½þ÷ý?,Þ.góï0ìòx}ŠÀì£Ìæ/—§«³“ýåiãþéçåÁáâÛÕ‡°çCX³è^V•bmo0Úâ]€%x£þÍññ =îuÎqHÎ9›g9Öþ¼¨·›Í_ý¾îï?ÿ5›»:9Xžô‘Ó›ùóçßíQq¬û˜¤ˆE_£’,šG[*¾ÉQ jßtþ óïW¯Waþ,|õòã¸üð~q|_žÅÓýÅÑòk7ÝN©p,ð(8yT¬¹¦È€l+ ·g‡ËÓÝÁ=ÄÏ0˰ ¸JÌ΀Ñ(oÅñn¿åýâh‡XD#³óEõ8+9:GiÛ¡¼_¯Žîó,ìùÆÖÿ—_iGé!,QãÇgGGo¶é‚s»²µÛÈ8eVØL'PÖš#âc÷º«ŸGNO¹¢ã‘ˆE~u£çKþºFY×Éì’¥¶“Ù§òWÕ[üUùüU6<åIKÖtþ¤)øËnƒ üe ªå »dôll 0°HDÆôù¬a‰Üƒàö„¤NbOUa#½7iì†ÁˆRôl‰*ńݟ8]y+šÓõb½ØÆa˜Üh»ª{·’`§Œd;R™ÀŽ™êÊ&±!·›@Yá ™·ÓöÄjRbjù15} 1µ >¯g& "TXѳòˆt?ââÓŽ©¶ "¢*)ý=ˆÈ}fXü1ÑvUwð¯‚6ÔG£”³ÁˆðÒí’Ÿè(üø¦öbðývÃ{Mì°zI|.ð È è Ø äA(ƒP¡íÔ™±i06ê¬9ú±*^85ªL+¥åv¾vî¾¼¿:‚½ºøödqpKô—õâ÷£åâlw^Î Î(^(k‹JI±x¥­§×OCÊAÍ%V„€j&~¢Q3ödk^êlÅzäíÉî7h熌’U‘&ø©€ŠÒ\°…|¤ìú Є°’ÈÅû$õ3¢ŒÜœ@°È!Òö ïàðtÿd¹^NA­„ja!p2Ô+“"­Á;ŠE„ícZ‹Š†oq‹ì —9_ö‚틊÷R½ÀjÈÁ¢Ã: ÔaÁñ¨&— ŽÒ¹íã.8(õòMÜ|¼´k¶»i÷Ãܱ›ÿuå‹ÝŸ‘µ:‰v®-2öÑI´K‹e¬6’Æv­•£ðHe)5Ö:Ö"’°}ßÿ?’ŒkÛÓG±•×,݃×ì®ë=$õÔh¤¶ôr,O¢ÍÙüîfm­ðI©M LÅù˺Ť”ï(0òà Y­ y(9òp|›ù’³þ×c, endstream endobj 1073 0 obj << /Length 1851 /Filter /FlateDecode >> stream xÚXKÛ6¾ï¯Ћ]sIêÝ6(6m6h¤hã=%Á‚kÓ¶½*Éë쥿½3J½Šô`pø˜áÁ»¦7f±Ž™r3æí«ÅÅ?NsO Eñ€qè-‹‹÷¹·‚MÈü4ñöæháB°ê„{¹÷îâÏ!ÿGSyr\OÔŠá… ÔU·‘ES5ÄŽÉÒDôùºª.Q®/ç2ä³_‘ÝP&¶Dùí—-ãù"ý‹ Sü Lzg)XhÔûU·Ë&«»¬*£ƹ¸”@ÜY¿üòÌC¯›ª ¬w,g„`Ž^s*#$I½kÕFOjó\;7v®vÇQÃÌbŒ9ÅéCqŽOÛJþ¦óÓÇÏYyÓ˜¼ØºìÚ“Öž¶®H>oL²@~[ÑoïÞ¼±5¾ß>Þöк¢²¢ñ¡yfô;œ% 3é"þ‡.{•=êfüFiHÆ¥ïj%H VzAQ»¼£«§¡—UQï:“²¸ótÄÛ5ªlAd¡lÞÃZõð·^vGf€S§]î½7ïñ}¶ªîªÏ`ÊYì¶ÜŒžò*?ãO÷¢QÙºyl³õ8óó¬Èz¬RC ›ìR¹š¨›Á©#¦j×!שZ€.˜§‰ë7{ÿ‰B ‹>š™„Ž?“Ðõ'Ì­ÝI Ýzi솺jÛìÁ“a•=ÌM »=@ðk‘'h3³×Àu’Ïæµ8¡pQk †áì›!be ¢ªOú%d Cï—w=2É`¶+wôæMå),fÆ9°ô 6aíAÓXA4º— é[‡À’qÈÏ—Péb¶èGEw5ñ²É(e|@’Å_w¯& [)k®ìDB·èºL3:‹^)1aè3(U×Z5D›×a̺RúqBg5ÅÐÜÞ¼y7¥5d´àzTSø!pVÇgÚôÁª¾&kR~!\p(3(–«ÓÏ~•CMÝ•yF耥N–]Vîª]Ksj>¯p’ ­Éx˲)ƒ:ôNi_0©r¨H¼.NlÙÅr¶ªhlíhà×ÉÇ /ãhöÛšvžª{sÀ´0묀F†ƒbBk½~fâ Ìm9¥†¬q­cÛŽ+K×z™­Ÿ&Ò,I¡ô‡öщžá|A×Ò/  <†Ê:/’ÇOžåË£qXy*_ÍHÜ_žè_±u?gȊ݇âÇ?N ÑÄ öermÀw8TL—-iz´Û·hÈ褛‚…þQ¾!îù©Á«sõ„ȇSÕÆÅ~_U}\*ñ¿³WטÜHb*á¯JF.Îúš@ºåFOab±Cóöf }–Ä"fV Ê1^”ÑO­…Éžºéæ,ûq3K]‚á·ÍG“m¶Ý×?QÎZ©ŠÓ@㌹èï7lNçãöë'•±2óœÐDÀKu¤G:è‘’Ñ GJz ¢ø1|2ÓwNßí¤‡cêsf—¨—KéÍ·NiYº¬MVŽôŸÕ>Ûû)KB1ªªÁß?ÉúðèY+2z¤áHÜw9C4bë…„¶ZÛ÷@Ü$¡Ù¶ÍdI\Ç|Øt5mGû” ¡*ìØÖÙ¨[³]ꢅŽÞƒû&½¤,Œü33¦»ˆÆ.szàqÄB1"÷æ/=Óóö K›üOáÕââ?¹?¥‹ endstream endobj 1086 0 obj << /Length 1750 /Filter /FlateDecode >> stream xÚ½XmoÛ6þž_!  +’z¡ ìC†­†bE—t_Ú" mÚÖ*KžD%í~ýŽŠXYÞ¶u)›âµš¸ùíùK¨ãˆ’LÀÑ–,æfËEä.ó¿@3¼ñ’G)Ér\²ÌL"m)ªlGôGw±œpžû»^Wj~É’(¬×/FTp,a1 .iL"–àî÷Œ%Gg³!O‚Äi/Æïo_½š•1ÓÔoZ× Þ_Õø;!€•;^â¯àå^wªy%üÓ) 0@eÌTœ‡z«p°Rë9BÙ•ÚLϦ]\Ö»}§A±ökñyD+BÝȪ…#wRu…‹õâ/µÔGR&êó,âÁ;Ø…WˆÖr+¹ÔÊx7§I{P7Åœ%á]QmFàÚ±c×µ¿Î Z¹s£RU½Å±l²ÀŒ§$J˜mÑ(ù±RxÊë5áñZšüKÚ˽C¾ôV:1´ühô¤Z¿à„qÌyaìoQÖÜTµÂA£t×Tí)Zž¨î´¡:ò¯‘_‚;F½8êÓÞÜqÆ-9`&îPúsN)=h f¿`K#S Be›s[„±ÄªÕ²Ò-~v­5Jéåj…ÄmzÎÃ=Ì9õ¦îOà?#<1j¡$ORä I¸’Z>ƒaÎñl˜RUÛ5nÙiDÄ–øüŒóÒoØ—ri™ƒ-ŽsjaØ_º/iï­ß9òuSïÇâ¦OÖæ[b™Ž»Î{Þ¶°‹SgfÍcï(U¡ìef¡·(Ôü4FU8üã$ÀPÉÒ>’¡ŠomÌš‡ž1"XOm@4llT¥©Ù¾3~,Ëζåì•”'„ål,¶!;õW°Ç<s;á­œ‘ÎqÛd3§"Üt;UiWƒºo,ò™ÆDcoYæ´ KÖ$à·7ÑnО֢„C/a-ù¿­-Z¹Ü¢ŒqF’<‹Ø+ ì³ÁÚ @µº¨ºº3ÁˆYSÈE©Z°Õ˜:GçîVó‘]U臆î9°GMܦº„h¡¦Ìnt39,¨ )‡üMgn;—Áa¼×$DDÎè "rƜ监žÓ°Æ!ð‹–c‰Tx—±‚Á¤ÐyÂâðZ©Çû£¡}¼·7´qˆ˜C:‰G9ذ±«â¸ c¬‹j]?bŽ÷u[ œ}: ’رVÏ#~ …/fò™EG… ù©_BéÎJµÖ3\·ÂÀò¬)6[?¹ö³]€Wà’õc´VfºÞÎA(bv›g‹Zëz7sÒ×ÛªNp s´Íðöè§"Öv{Õ|Á(3AGpÙÛ,Ö*¥l}^vÅ^ת#nûŒmSYÓ-±®ò|»€5æ–q’~Y N Æb-ÙUÙÖ•ÓCþ©°r ï…O2yš‘e},ߪºÝ¬êåQk«Ÿ‡*Ð4ƒz[œÔÅBånïCIp)bP¾‰‡PåN?¯áRs]Ö/ //ˆ€¢ŸõZ´Ô·{°œ¡¿Ü\ü}Aí!´ï{bðÞ˜åÁrwñîC¬`Â"áPÝÛ­» cÍbSd—ÁõÅ›…DÃæj /D”z‘4ÌótØ\­‹ãÖj à8 Âêe»îizК™•&„CAûQ­H|ª_äòwäŒög9¥ØŸD¦ïo²=‚'Ú>o´-=±Ù•Ò²(Ñ\O¼Ô‰lì­o[¹Q“"ŸB0–ÂCpÆ( ûr¹„ fn[ˆñg¶€rjö ?!^B“Ì!¢ätx"úÔ·?óë<ÙcH¯SœaåÖž…ö :žŽz±8cÙ û<µ HO„G}þ¼Öò›ïCÑÛ’$$ç:øKF:Ž'gËjÀ@ôMéÕ ~u¹gYÈ{}ß@Öõr.O¾Ü»íÓЃÙéFÑœJi}¶¨ãÄ>(ꔞ>²aÏ K®Ã‚ÑýV¹9`­´¢ÁîûÂ6ï0+ñ§ômÍ ã¢Ò6¯llÎH³Q[Œ9º>dI ãðqáUu»…O9Øš7ûÞ`Ë™²o³2»ïèDËÝo6> stream xÚ¥koã¸ñûþ #À2ºá‰ÔûÚC±Ew-wÀm¶_n‹€¶i[=YDi߇þöÎpHZR'‹"08| 9«põÓ›¿Ý½ùþC¯ V¤"]ÝíW< Y§«, Y‰ÕÝnõ[Çëßýóûq4:E1ËE÷˜3z++uÿ% EUÝ릒]ù‡Ú!ޛоæFxr|Ñ­ˆ –Ç€ 龪<•½žàÏH9ËrîÞ·¾yl²“Û^u4ýºæI ¶}cçýQöÅÁN!­µÒ´Ñ6Z—›J94‘²Ün³wèö€á–.’õÎo–öxN„Á-R¿ºå!ã pÇ9+’„¨ÝI°9¹ðœ¥ ˬPvÝšçAÓ^K€'–OÇf¨@C=heáýš‡jÍ#X†„“X¥im£hl@½ÇíšB‘•,yüu}…<¸s‹;E¯ Uÿ– HŒùiÁÂÔz÷ëç÷thj ÏÍ[’¨(–ÆS‰k†fîˆâ qgɶU²#¸¬g¨;ÙË?/ÐÌ“¥™7úï>~Z¢ ™‡¹;u!MVÕ+h|BSVó£)RsNfà ¢ –¬ïd­+Ù«k¶“€\…w©ÏuUþŽO#Il›º/ë¡4ÍÒõ[œäÁ®ÔÛNõj¼eÑ$ò“¤’º¬ÎöÀ±AÆhv*Áûêi7JYQÌüåâø\–[¯ËD°khÔvÜœíúÅøØe–ÿØÓιx0êžf½½ S§ÕA:¡5GŸ™L‚Ì­;$ áÌÕG‚ I0o-ܪm¹?/˜Y^€ç §‡‰ö æ4œJ !.‹òàï *—ꦷ{m‹¶ ZŽSʾljš9—@øá¨:µã”]RêÏï–bÄòÌÄÒ^(+ÔôYÛ( )œ‡É”3`gkâ8ˆÝDB)Î@ÓѤ+ÇþÕ ÊE*jyºg"ˆ¢>>Þ¹÷ šL“F ÷1öÎYÜ»N”¨ftžŽ‚èH=Ñ%ʂϔMa[jÚõÇäci—Lv…¨‡xrPµEéËÞ_´è9"âȽ?Èò«ê¾„I?¾`XD%|ä-"… ùý¨¬=ä!ËSgé©+DF9Žd®ÆñÚȬòð²¥áZW…ÆͶ¤lQ–‹c<,¹:ÝÓþ \†‚*ìØÊѨV )U/Tïè(=xoQzqÁ’ôâIŸ?~|®¸HÇ"›ÜDc‰Õ¥IämœÁRtÝ_òœq0͉‰Vrƒ‰ÿš‘,Š Gå/µw‘&X `&âYâÿ"D2»{šhXœæ/HIˆ±’zÐY+¦§ @SËãÿƒ–Í= •)Q±s@Fv ¹#Óln›S;P9 3S1\póÀ$)¸ò$)zãf³ù´3.¡ÌŠiê|Âäê78šö„5nO`:iO`~(M5H^q‘­Q§A÷S»Ó>dVª>ôGÙõb@IY˜øªbÓ)ù»^Ò7’Ü+‰lgiŠ—”;å{?Ô[+Ì$tExr zæ{–8nj˔f—œOBa5tµ~*-‡Ô =b]­€2³Ä¡[|ãŠWF ƒK›õ¯5çü¢I2aS:(Šø&œà½Ú  ±Ö=T 6WØ ˆ‰¤±ydgÓ…n\JjaÍìwÍ@tý‹’Yº÷ +64àly‚KªÖC§æ}1bgZ—àˆ¥o-‘ü­ID´5­¸_‘Ææ5[ íQ)¦›ã€„Ö±s”ºTæ1ÜðE:‚?–¯:T¿>‰/Yê©øÞ$ôqœyNá™`ù%Y˜È€ô :SÏNÈ÷†Z° R´®¢Ó$Ü—ŠA£—…sƒœÛ¡`iâíPš‡á¤jÓö€º©ª–iMç’YíÂõ>ùÅDwt w¸î{€Ô`eAòÍ-#®Ü‰Ç8cI13D]îP4pÎÄjÆí$ÎIf] µ…ÜPcsëë‘}GèÀ jüBd@Sd;"Ê–ôØ‚å¹ÇÍËß\õ|í…B3ŠGߪ"lë}PŒ„°Î±-Øbɲ¶–f‰2+†+üZ`d X¯ÎŸ”z½_ü@åã½yA¿Æ!âÒIú›;±¡UÝ‹ßOÅ“&Œð¨Z©¤v™ÙV{ƒV3j}Î6ɬ¶½ë/}Ïö„Z± é…ŠD¤–^´Yƒö®ÒÍsß'Õ;X„ô0¶Qô ÄÒtùþl)«š¡ûáõ.Q`èõ¢ñ·Ý· ’«jà N{ÿ(Oí\φnLcÏ#]·Pn:ÙÑ=o‡¶jzqãüCœ-‡¼fm*°¿ÜÒHÇMÙoe§ šÙù“Á¶e>~®.×Tsºo›²6x’âÂ#aýHÃöœ'˧ö`×Iø“ͽù–‰w”Ä‘»ß˜ pJ ©þþ¡“-"þWž<ß·K¤·î*3€iœÔåß>¼ž3BŸÞA3ˆä%}¾¿{ó?ÕiiK endstream endobj 1111 0 obj << /Length 2022 /Filter /FlateDecode >> stream xÚµY[oã6~ϯУŒY‘”(ªE±È¢3ŃÛñ<ÍÅVlmeÉ+Q“æßïááÅ¢¬ÈÉì.ò ÞyÎw.üŽGû(Ž~¾ùûææ»w r’ &¢ÍCDã˜ðDD™ˆIÊY´ÙEŸVý¶¨Ë/uÕ”êéT~éU¡ŠÛ?6¿|÷Ž'£½ILI&á`Ü”¤zÉMl¯z»¹ù÷ …fÑó-,!‚åÑöxóé8ÚÁä/Lå2zÄ¥Ç(¡p(ˆGuôáæŸþ¼éUa*4&"¡Qg$£|Yà‘‡0’Kê”ú€ë×,Wî Ó;Á±JÙÎç8wU¿íny¶*U }Š—Ì‚ ò”¤ ß+@@eùœÝ„„æFØŸJ¡:©ªmϪæ£2ZSI„´ª–¥ÝDFÝ>rÍß¾ÀZ™e%Dõ 2`Ü+4B•©1#”ú³Ú΀º+UQÕ=±[Æ·¯)$Ï“hÍI²ÄìüØûrVñK BeB æ\FËO©Ê#CQîº[¯öñlT¿(Ò²(påÄYè2@A2‡œ¾TúK­—ö}¹3mp üªÖhÜ›K¹;]Üø "1 PÜì[Ó”H=¢w»ÈX›s’¥þº;KÈQD‰lõ04[ôcœR‡B™Öã¡´c ZªÁêÇJÌha>}ÕìëÒ´«¥éj_vfu1ÂÉ,ÑÖUu¡LëDIž¦FÄf8Þ—Ö/Û›Ê[–®¾ê£ËÚâ]9Œ63 ‚è5ØT‡®é'‹¾êƒŠz(ýªk—ÀùOö°C;ÔÖšªøS»XIÍ£]I«Â‰Ì©Qåµ/‹?û+Jeâ,ô[S:Ý¿#{ N/…½Á,þÌX:9:p5Iá_?¾?“# )¡iÍ÷¾»?ZsÈT r ì«dy,ª¯e·©FbÆC©¨´v„Æ®|Ð6)†Z™+'¶·íñ4(ôX=ó4Ù«º¢éáÈcaÝÆÚû•[5QòPê-"}‚e1 µ=]±UÎÇnU;ñç9Pã+p†‚6ôbë«S¿¯«cå2Uá#P²CÍn&j<¦£Mí ô®¥H`‰sÀf¯_ˆ&ßÐqž’i§LC8¡oÕ– ¸Ãç8f ª §¶ï«{ÌJ¸móÐG+àv»Àä^<Èa&+{ \ÇâÕÚ¦¬˜Ð”†)k¦éêÕùa‡ù¡=-â’Ás$—–X²šÁ<8Ð6ÁLW ]äL»/Í·k(¿·kºÅ- 0„€üí✮6nprofž5&rû<²ùýãÛ9Mæµyc e@ÒDB ª¡ÌÔ Eg¢Î UœNeÑ™6> ã­; ?ÌÈL!ÂEæÓÌ»»÷椇¦±Ï]gÑàY|ŒÒ8cµ/ñš²> sPSLau±üô§+ó!õ±©+“t g$U5C;ô¦6ïßèŽô´dÏy_u\âkÙ]ü<–SwùŠØ€’Kî’@U*}møÎPW’Ó«z<ú‘œCÍYSÇ/gòl3Q”=Ä‹ª¶¦;™uìLo ¼2 ¥õÄÝtÖã9×¶;ÕÅ“Î{º[ôá2.W?µÚøz¨i•;´oë¦ö$ý…7¥2/®î¹Ðm Ê]9—AÎæ×»¹|fÊ|>¬ìPÓ½ŒC?õ6I xxâ4ôFPgëjŽ15÷[æÑUûƒzùeŽ÷FX|¹“rº÷›»¾)ŽŽ…8ÚãE|Á«~[¦‰H´£"X‚,ib% ÞZSij¡S&‡÷@ÎêòŒ*×ë6{f’Ëb‚w"FîÅÈ‹‘1tjäç¦Xs¤-?/+þªì¡¤¹~±°`kìU)Ðl`œŽ †«LžçD¦t÷L@z¢âŠ@&¡š”jD6`IæØš7FfQñyª‡c—‹1œpÚrâÆì²~¼O“Ç®WfþÁož˜±Ko3¬Ó:ëøi“hÑèÁ}³è%9I¿R’!KcÈ*?¶Xj-æ"‰¦îÎ_ Ó[Ž|) ¥yHØ‹{M`–|4'œç/([a ý/jÅo«[g˜Ô­ÿ§²•OªÖÄ…4ª5‘NJœU­ÐCæsÞ;SµÂäsUkæË/ú¿([÷²Zglýï±Ç¡W¡Ûõ>aÖe³Ç_ŒL 9—O‰SOÎ¥ñ¥¿Ié-áöù™€´Ÿ¼¦Zm=W_-¢Ç`}km­¸ªÝÕwƒ'£"šërÃkɳ M·ØÀ<ðY¤pz¬0Cæ"Ñ> ‡ð×= Ó/d¸*ÂWýŒÍtåìí‡7ôãHz–^pp$ˆ)-ƱíÜû!‘\†ïGÕ<´¯¥;ýp‚¸ö»`fŸ ¤ºè{ÿÛ/~pëm.œ¼?A Ö«nØ*Çá<™¸–q’‰Éð~ÜvW÷í7üâ7¤›û‡ þ ÿýËM+ÃóoWþC1ý¾ÝÜür^ÉÏ endstream endobj 1121 0 obj << /Length 1781 /Filter /FlateDecode >> stream xÚW[oÛ6~÷¯ ´pИ©û¶nÈÖ¤ØtXã<µE@Û´ÍU·JTRcØßáM–dÙI=ð"žû9]gã¸Î»É¯óÉŵç; JB:óµƒ]y~èD¡‹8ó•óqê‡gŸç\\û^ç¤ç{ûø¨3õ’¦ì¾ÞÒ’ÝÃt))&®‘Bº¤3K;#‘ÜÔ®¾Ñ¬LYÝ£<6^\ω8ô•Ú±3Ã1ò¼DóªØ×†W쓸/6›2-y ,yý »( ÌY¾>›®;•‡»t‚¯v•¦Rÿ_½Òc÷̪LÍ™ý¹”©[ÔT1å$לûi¦Çu“//rÉðÛ›°ÏFÓg ‡Œï‰÷ .ô°âëµ2æÖ?&̺b-á_ë&‚Q‚Íæ†Š-«$¶,ò"ãËú\Kx §‹”µË´±óÙŠ ¶WéåÏ/Yµ©Š¦¼_ì¤Ëðpº¬š¿«„ê³ol˜Œ·Ûß}÷a©³EÒPVw\m¸J{Œm»Þ®Õ)ϙؕlp`oÔ^‹×£:°"»—L¤ü'Î꺳ïkpmÉT€1Ô”_JExr5Ÿ|È vÜV~à‡(Šbg™M>~vü¡ÈKbçQÍc¸NêÜNþ:Z¤ ^H·ò1(Bá$AŽž~Ôc@P·¨ó›<>#;Uäf*ù0âáï2Pã¤7‚“~ LŒWßBÊU¼”Å< bC¬• •hšü–1CŠjãØé‡wž QEÖÒmƃ%M{ bØ|è„bÙ¬‹J»pÅåi E¼1øÏ @‡ùkÊ»šnØó‘û¸†É uGuÔï+÷õ¸¬Î°;Ý4ËÅé›ä =@æð ëú- ! [¿I©q+Uy°¤uÍVzé FQhz‚ymYF+Ä8 Íácw¨¦›A„6ÿ ôLvJoÏCQЊ»½Â¸¥ƒEÔ^Gú—ØR¡g[fö@µT™§¹Øê]ª‡šç›”é9Ï)Ï*}švü¤Èð½bJÖ’´ ®ÀÄ!o²3YY¬õüI0}¬YjüÍ­·]Ðà)—àÕ¦ÊëÁ¡ÉH"wûC™kŽÿE—¢IM4ý"sŒ¡“án$”¦øˆ$ž6e¡¬gôKýD„‚Ø·ú3gÖöúe= ‘‡F‚i¡> x÷r %Œ-ë÷w77#ˆ@òqx€y¡ÇEu`ôs€Q óÿ×å‘òÝ\Á)Ÿ —x}­pl “[Ë Ð&zÃè©æË"+¡RVþÙ h´F5°Ì¨É{Ø+³¥˜ Hä'¸Ô3ê²¾ÔîZniE—Âf°ÎÙ¥(=æU÷ öuʶŸÇ&[‡™ŸòŒ[¬¢m ›ÌV¾©›Ö©¢¢’êT-@—ï&qßoFþ‰BXö7½43zþŒƒ¾?amìŽ}HˆO®Kre7ü(‹ºæ LЬSö°VaP俀†_ÅH{BÿäF ˆ#²ûÖ¨å"à>j­@Á ˜>"LW "Šò¤_:X¿ÜZd"þ´É}çÀ\—¤0ž*çÀÖlÂÞ‚éúy!ZÚªÈäÌ3-å_ΠÒñtn7;Ew>r³‘0FÁ*:ÿpw5RØpç&¤µæ\»”$´‰}—‚iJgl•Â#a›0£eÉh¥çêvè’BOÑC‡Q 4×—7·cZCFc·E¯½jp3>CÇml°ŠçdMÀ(”S¤P,¥§¯ÿüJÚšºËS®ÑA–r8™ ž7ESëµ º|å‘ n[“î/CFê„pµÕ<Ý™ÛBþ¨W¯ec £ëAï” f_‘R\›²‹ÈtUè±6£‚o¹¿O>y…Óß×úÏ®hôäQP­¬„aP±¬áÐ1Ñ{V?µè¡¬M9ÀŒ¶/°n­wcÚŽs3/Ù’¯w#i'PúmûØ‹ž¢|£‡cé—øPmeÎâ‹Éû8”sä«ùD¾ø.4#í+<Ò¿¢?iÈ‘â—ný}ñÏ<’@£)+Ø#ñ>ú<È¡b_êåà¯mÑ$a/Ý0Á(ðù&qÏK<¼2¥;‰|rIkÀ¸È‹§o }¹•Âü+K™Ür*SIŽp«p}éÊ•­ 9‡n¹bc˜¯ë}óþr =xÙµˆÈ CxÕA¼tFïj“!\=n`, Í# ¥Kûðè6³ºKPô¦ù¨øf+¾ûŠj£pòòö€õ6qæV~N3Û‰ØÖ§Õ­Ãø çu÷i¯¦ÊEeÛõ9eŠÑ¨g‹~lJ¥N‚¦WB> stream xÚ½X[oã6~ϯУ lX^%ªE±È¶E‹Am’§™bÀÈ´£V¯(%Í¿ßÛ,Ù²“è"L‘<ä9ß¹'»'ÿ¾ú×ÝÕW8Kr”§4Mî¶ Á1ž&YŠ‘`4¹Û$ŸV¦P•þbÕ^)Ê®¨ôgŒiU­»û髌Oè9&(“p¸#ä™Ýr…Ãuñh¦w^3œ¢,—É5Í줧mT­gÔG7Q‰(åñ¦»G½¾¦"÷dnÔná7Å«>.91Ðúš±luoôÆ/+ãWÇmêÏ2Lµÿ­ôšˆÕN7¤/ûñ ·:•ˆ2‚8I#sϪ|ÒÝg,0ü“ÔXޤ qû?ì-Ä1[‰‘LIrMÊ…ð›6z»&ÀýPõv¿Ì‚G²Œd?ç„´kê{nüŽm×ÖS"Xew¦÷ëµÚïËfçW¢%sX9*Õ;¶qà7õü*màÀ¾,,npß"n—ô]¼¼jèœ*s¦xt=LŒÚNÈȦ[,Úz?ôÎààëáeF+W}§GÖª/ÛÆ/¶¿ë¢?’R`l."ž|‚}xuãÑ*U§Š^Ÿ¬‰ÁÁÔ]¹¦bõäÝâ®[0êÁyÏÄðLˆRÖ^›]ÿèÇÊ,Æ’aA#hV˜%…C ‘£&"þSCKÊù»äÞMÐÁµý(Ä sä|¹(Œû-ÐZ˜ŠNÙé~èsŠV$j‡ÞR]rKÈ8?rËÝPn^MlL %£d"%£4Ä4;ê×dÕúa‚õÚ•§òw¹kvªìŸ°✠|u«#Cð‡dÒY¾üð×g¢#2êÐÝ`¦ÞtN,ÎÀDøÌ¯,uÛÅ’R$™œ§²Ù¶—C‘ÂñÌb̰7¸ q&ÉQ^ÆÎ{S¥L´œŽô`qѧF›*ÚÆôÝPxÏ·'¹æ`Î-e(³üÒQÊ‹¿#»©L»X¼I3.Yîöj(†TU¹ÏêBô%Ð4;‰É.cý©ê}¥ òú ;¯‰€+C +«Ä‚–…¯ßnaYŠÈ¡j²Ä¡®Û«j&ÉwWÿ½"î$2V…,!'IQ_}ú 'Xƒ<¸á³ÛY' ,ã6ÄWÉíÕ/ `O*Ï9Â`û)dBž§`¢ì\å¹-«êÈüx6;†¢\Ú„ ¿PS¹c>¬¹Xa4¡ïÊn µ[+ƒ[{ºïõ!xoJS¸Ýº×£.¢Ã3‚$fïÇÁÀ– p>-hÐý÷x(÷.H)¨ù‚±Ê ý\ò·K=‘ø427 ßµÓgÜë˜×EÇ’—n9B½ÊLðù›Îf§ÝPë¦7™ºÌ \y)Ò/årLÌöR9^P5&?&Ñv!ÇçrRE迌îl|öt6JX#sÔQ“øf&›$AšÊ‰¤Ù4ïÃRÈû0z~ÔaXó6»ŸKWÀÀ¬ò?*!gd0.›>Täß­&8ù-V»c³²@Ÿ'ªf¨bìs-¯ómÍå*±j,5Žr‡CÐYÍiÙ1nz²©j8T3c™óèX‰Q·ªÍ¼z{úLcùf¥%Ü ÉßÐ<¤ˆËôÿÞ<jÐsÍCö75˜uDEÂ`Þ=ÀÄXŽÂxÒ=Ø•—#Ú“îæÎu<'¯ôHïê¢E/¡ŠÿÖr½*ë²o¹¾TãÿÅr=ÜÿæbÒŠ)Å O)æxÂw[r0ûtÑ8¹aaßS>ø÷1w{øöo%">{ˆÃ[ HøÅ2\×Q¼ºQ êvAæ/`PˆÕ»CÄÆ…ˆvÙn|¹‘ ú¡ 20öîP¸>¦óS'aæ\S ¿á5$Ðúw Ê 0åù'´˜„ºžòù;ÔB÷šæ‘äî×ûÞð¢ã[–j_>O šã™D¦È‚@$ZŒÔ~¯UçÇ.;LI7ªWß,ðLÀÇÓl 4n>Þ.q Mð½¬)÷Êô'ÜDeµo±¨‘¡”œ‡F!Å*u9ý À•Ž>ußT¥Ö•3Ûnõe3´ƒñßN鯽²É±4™.2å¢N ©Í”ÕKØðØZÁŸýW][xí2¨ò£'̓GÚë2Ü.£«MëMøuáÛÎŒÏ>+f©}Vt+/íàÏnƒ+5à«tºn­:¼Nü\äÏ}Ì¢|wÈlû?}ÝóšmRv„‡I³×E¹}Y03™ƒëåãL{Žò[ÿsÎürî1zÖe{¡š!,OìåÉR^|\ÀPŒŒ]ëâ»mn»Â×9ãü†”Ožs͡д̨<(Â/ŒÏÈþóh5–h–pfn„$Ø‘½Ù¸Çrf•·¯Ô‹{öOe ÆeL®¾o­öíTÓöam¿·Æm‡Ö”ì/d•2¼ÁWô ;†j¹ÓK1‘C¯rxå¾YŠˆ ÉlŒˆe8ZtЗ·è_v õ`1— Ä)bã1-f}•àèCñÑ•»Ç-öHÐãþ3K…D endstream endobj 1145 0 obj << /Length 1819 /Filter /FlateDecode >> stream xÚ½X[oÛ6~ϯúd5+R¤DuŠl½`C±bMòÔ#Ó¶VYò$9Yÿýo²(ËrÒµCˆæõ;ß¹ð†Á:ƒ7¿\_<{Ñ EiLâàzà0Dƒ$‹Hp½ >Ì(ŸºþýÙkõfF#F°žÓd¢Ÿ›ØÉÏY!ç„Íîæ˜Íd!Ê¥Z~ÚCÝNîï· $F”`h$ªÓl+dÓnd›g·Ç5e(%‰ƒr½‘óaá¬[Ù˜fµ2ßÖõ6¶¢u­Üöi™Ló~Ža“ú‹¹ÏÛÍ'ŒE´À÷)R ¦daŠ>*Ë Q Ì)4vOÍ9„#BèGÚáH Ž¸Ã‘h¾ˆ¢dvÓÈ¥í¦‰rÛUÕæ èÁRÖ²´KÚ¼í6úmelô"ØŽ¸{‘ßÉúcÈBøÇf¾'K”"ΰ›þT‚5 ˜ öÆCÄc0<ŒQʘ™´”+¥r±/Z5Ÿ'VÞ©"±pGA’v}ZH5&¾¨dif¬êjÛ_aHê¦5ã[±ÛååÚŒì ‹j™æŠ[;U°CogÏŠ78o”7š"w.ûÇÍÛ·#dah’¸OVߨ<]1«+çEaZ·ÎT·yÛÊ%š4NÎÆ©oœ…¸•Ť˓EQêP¾+;çxî­í"B±ÝÝrõ‘6ØÛ£‰#ó3,Ò·@£妕¥éX€`qêKú(,g `ÅEëA£gÔªƒ;˜z0«¶»}« ~Ý~õÖòY[‹²-·¢Í«Ò V·ɬHÉB”¤ü ãÁ˜Î. [ÙFÔ"k¥%Ñ\YëH]çú:1nq W·Û}Óú†×tѲåbµ‰ùÍh,‰QȈ#í¶–âK3¦pˆ!¼Ó„ã¿oh1ÄüsÚõå^íË̲é_A6f4ç³àœ0ú›— 5Û圲–í¾.›c¶Ü¢jߪUSn ·p˜îŒõ>_ž½4¢îÒ)!KèIbcšjµs<«L3ÁZiÚ¬2géeª+oÓ¡"0Ä9FèìJ:@ð‡xP+\¦ùþÈ™ît¨OhúÞt2¿ˆÀD¨çW ƶªÝÄ#î‡ä¼\UÓ¡sáØó”f¿7˜¦8áø(?0ëŒ7¢q–cÃn-ÎùTgSYU6m½ÏŒç÷Ó‰#´$B‰Â«´ [Püëe—ESæyÒ VÜ¥|Èl›å5d‘+¸QlN¹ÅÀ‘fqc‚B~…ù€Ö³:ß<ï(¥‚Ó$Ü\Èh×î¶À1bÎÞÁ\ا@˜Ø<¸²Åi—®žu [š¢¸??øXŠXØ1y§sóJQLÙ7zªH¸;.ŽÊ8÷ Èïqn[ËíVþa4‰©¤=ñѯ®/þ¾ÀzSÜ•_”AôåIm/>| ƒ% BƇ"È÷zê6 pDB•ˆEpuñçˆÛõj<ß× ÆQ•ƒ??X54¸XzDWje/€Ø´ªç”ÍtÊ ¿~5Ù£Ý\w=yUÈ­,ÛAö¦VÅnÓ]ú/E+žh@ãŒÁ}ƒ0`ÌT¿ÑHõ¥ %V{/{ÁâDK'ÙI^úœøÅò4/£œ_,~”¾iÄZžˆÎCq&ãò¨™¨@\AbZˆÝ\§7?›Ïõû›WOM!Ô Õ“X/k•û¬÷Fú)Ìg°:Hƒü‹’ÌŠjgÆ® 6Ðåƒ7îæ”ÛþmZi³Ö*TGî: íª¤x1•á/܉Þý„M…¨$çë@*ÊxG™½ÁšÆÝè]‚Yä¿)ï• ËŒ]¶ á³o f‡ÙÞšS¸#ˆ,ê%ˆ$æÝ:ø‘ôsb²91´î7Òö´Â¼.$æ!F÷ ói€z­hõ¶Z­ÍlÑãÉLQ¦Û=`† Çñƒw¹ßÞºÄÊ9¡ç±]>f&ÚæSònÒÚH{9ò ¥¡µ›mª}±ô‹ƒG§–·ZzWÞLhˆqú€Â:F”Çÿ¡˜ý¶ÂúPŸýß…uH•5æV‘Ðð+kèèJ5h÷*k5òu°ö¨²†¾S•5Mñ÷¬¬E±þÐR¶È·yûØRv¬þ}l)ky³ç?¸ÐRbræñÉ™Ï'ü¶rs ¡žõJ-7 쪦ÉoÍÛ óÝ~›wDæžÙá‘Z&Ì`nãH8[ب5-s)gì^/ë9c³G‡ˆ¥Õn’†Ã!ﳑ jñ}i,¡mÜ!Ó5~mºŽÂ&ôéøÚ—B»Ö$G$²„@—&ä”Ý!¶5/¡þíÈËNœ¢°‹$*9õÚéçú`0ÿÅÔ¿@4;PxD ì,ZHQ›¶¾úK—¹ý4‚ƒÇIh^_¾½C eÑšÐ/°ç0¡qʪF¬¦W§ü G€í endstream endobj 1161 0 obj << /Length 2030 /Filter /FlateDecode >> stream xÚµY[oã6~ϯ0ú$1+RE °X¤Ë¶˜Nw' öa¦Ð6mkGW”âæßï!%K²¢dv[‰x;ä9ß¹’ñû…¿xwõÃÝÕ÷oÃ`‘„3¾¸Û-¨ï“ 䋘û$ Øân»øäéÌÔ}Gõe§–,òNËßî~þþmöHCŸ’XÀ¾–&LÌ’+ßÔ~¦Ü*ð9‰±X±Ø "m!I]ÉBg²Vƒ]F'Fጶ'ÞYúuI}O-W,нMYÔiєƾ•B_›Žð¶©ÞTªVý)G& Óàž’:ÍÝ‚C‰bÛ^žj{ÃHÀI’ÐÅŠR’D²ò`ˬÁãbáÉbkÌÛ–øÕî»~tãjgX—MV“å*ˆ¹÷ÓgË'» ¨±W» *•—KÁ‘ðGáXËŸíœyÁþ®*slI+€ïXçÈz¹ví£Ú¤»GÔ<ëkQ$„ƒ­øÚ³”ÃÏÛ›÷·o& ' £–œŒ5>°æ3’ø1ðˆ%݉rÎ^B°i·À—¢@‹>+ÈÝÇû)9 ¨:Ý`w4 ×d[$˜esdokC•FyÇL>ª-v¥þûrÂ{]훡¢¬ÝÜñhŒÛ4)™ï±Ôi–öZŸ0íÓAUj-rNâ7 €žDÜ)7uÊÌè -úQ£d Bõ£¡d ÎÆˆc`7@š/À† t™ ;Uº?ÔóÆCØéÐt:-èYÉHÂ:ùkÏ/dŽQÃ÷Ê݈·ÞÆnâÌ~ª{Þ…M EY}u3§´>ÌŠâ8²²ý(mxš™áç(=å IË9fÜž#Ÿœçƒ ÂX8â#éøHÞñ‘ &8±w¯­QÀ´Ô8Û-“¤n¨¬ð ÜClܫ‘ÔiÝm4X@IHyËÜI¦ªúìG>üÒ ""Ús|Æ!@/©wPδ…O9m/ä;D§Ø¡ üó”†mÙ@ÏŠj¦%f¾©\ŒïÓ}ö}Véçsð~L0Ó –†Ì"&œ±ö“C4òƒœ7‰^˜ˆŸƒÂýû÷SašŒ÷!ë›Ü@c‘ÓXëY†­uk°yZ×j;ïúBJ“¡‰fr­²Y¿g ‚¤åò×¢s‘W*P0a!îþ™±h´÷0i’‹gPb¬o‡¨㬥ƒéRSQ!ÂAdø&Vžµö(CžÂÖÿ Ñ3k3 Z.íä¦ÌMmí z¶ø9Ó Ï¦[Ø2—˜‡Ìd¹þÚÔ#!#«ÆYÀŸ`ïÝ X›ƒ¬ä¦VC¬—6u‹é>5 ø½âŒ­m0òF×C»Ó]ÈÌT±‡xq_ONü¨«Ö•’_õ”¾!ˆN-þ};ã÷Ão’{ׇæ0 ¹¡G¾ç˜k…±ß´­¹¡Ö'¡HlªB_¢Õ•Mm¨f«¹˜øc5î›tûlæºÌqcj$Ú“2`Ì…4Ó²µ ÌCMk«83&q²#ÆÌPZk0b\ÄBïVµÜÀ‹Ê0…ÍžÄ(Ô0í ºïJOØG8p*ÃF^Vmገ@ ÃqZìÊo®xts˜Ç7ô¢B@:t¥LêÖl\(ŵÕÜÃt]5›º­ãº‚â‚[ØðË8¡¡ã÷£ÚÁ¹T@rÛ(ýÔ¥r[ .pƒ3{eE‡ÏÐ~ƒÀû÷-1 æ$„‘7™ÊUaLÀ ÛÌ £ï*y<`X€Ñײ–&ùù!0†Ó§¡ßÚòÙMÿ£\˪ƙVJÛ«`À½Û&‡„å:~¾Æ}i’„×S)÷xt¹–FáŠòÐ¥Jð KÈ$Œbˆ ±`Kt“Áµs ÀÙöÖM¦,œîaà5ý0 y3I„úÆõ“‹Ô&ñn³©Òã9n]T¥pœ‚´OÜ­Èm·¢Xº{Føö4“3,êW/w䈞tÿ&­@Ü”O;¾ÑÂMð|_¸~ù±!‰ü.·>‡ðì5ú=´ÿÖs{î\êCÁ'’?óàºRy®þiWP똲¡›¹Ÿ@úÍÝÕïWÔnJ»'2ø… ‹/6ùÕ§ßüÅ&Á{I íd—拎ˆC#b¶¸½úׄßõÞá†Î‰„CI0îÔ3Üi„NÈIÎAü¶{ßêhô 7X-Ãȳ—è}w{(OØüEüîC“¯M<úï,ÓØÐ˜@¶úh,ÁÔS$P7YI^÷Ãt*˜‹Y#gⓈIu¶ ÷%y½ç±¸}Ò©R¹Fxaßå„ׇ}sÿ:§!ë^ÝÆª*Òuæ&Q=&ø'¡÷Sƒ©;e-Ý¥MxÜpã¡UwÉÛl6œmRßïáN×fæÔEÛ·ª{íÄê—ù”¤^”oîµÜ«'òÌÿ©-BHOaÓ\8êk¤ûSú7ó\À‘sq(æàh]eÿc™çe¾ Æ»;7mëËå“Ë|6ŒÐ¤câ¶©ô¤ºå$ ùs«¬ÖdxdoóPôØúŠ%ûA~¡ŠûVu‘ #ÙÈÃÚË!4z‘ç•)±| Ò}µ,¸[&PÜ;W4/¬¶ÔƒÆ»Ê8”qnÂú$|ß™y4TÅÔUŒ‡$ö“þ ÈtSÈìÑ=êÁ®®Ãÿ°$ã ½-Þ˜/È$¨=ÿ xUÅ endstream endobj 1070 0 obj << /Type /ObjStm /N 100 /First 972 /Length 1956 /Filter /FlateDecode >> stream xÚÍZ]o[7 }÷¯Ðãö"‹¤¨ (Ðt°EÛ‡mE<ç¶ æÚEâlÝ~ýå\'Yœä:¶ÓmÂ{/%Q$%•‚­Žb‚‚ãÂ&‹bŸ;ÍbBrY² Ùå•Nq…‹ Õ•MW9Œ(dûNÑEûNT]&”T1Y×Ö„Õ†Íx'ÁÚdOæGþÕÙÌŸN'³î{÷øñwG„•÷°·ÅœBFÂoµ¸,êÊ7"úpv|ÔîÕì±N9ùŠÀâ$Þb±d€[Ì2ífÍ*óîïöûód¶?Lœ€ÆÒÎ9*dŸ-ƒ †µW8BÉg½0¿¹Nó˜gº˜-ÎNšxÅt—1>ÇZ¤‰à^¹ñ¯¿ýîjõbq—ÅGdóùÙlöîFe$Ï•v„!v‡iƒ«¼”¡Ú 8 IWµ_,æË6ûˆtï´f/§Àý¾ÄpþÀöÀí]Œ_ž,¦¯;XÙ_>áÆoº/K÷î꽜|èFãg©›/OÅÚÛúœÂ®ÓîtÅŸíÝ/ÝÑñäéâ‹kKªU=ƒxK$_*–êåäƒ×¦yÒ™·°þeåÞB)DŸ@ý‡ÐÖo“ik†uÒPmBê] ÓŽT‘èÊM^sÅQ®¸Ð%GÁTY¯ûÓ½]~|Í…JÜÎ…ê¹~K,§¿Ul«lçõ÷BóÞÿ#Ü•Ú~ fÐS[ŠÉ£dûŠÔ¦ 2”VkjÓš¼†òpÔ& {Xñ ú@þ®ä[á^‹O)݈cù±û´ÊÛŽÓ½rmõšë P–c‰Ìßca¼¿¹ i0öÏk½}¤ŸPu1"¶ÂÑë…’óf^[Ì&'ÇÿvG› µçêC´cöØØÞ?‡Ø9ÃàrEy/¡`qê@mÖà5êöeʾ‹[üÙ#u×±Ó•v¸r.”}ÆHÏ& ; G`õ•NR`Lt³#,'ËIs‚Ùñ¼³!÷Ot}°PÁ×¼+ÑÃK ÏbÇ~¨,X*cÝÈWàmÔ\›ÂQsYy½äèíäóÚ)OQ‡jcÕì q˜¶¢È³c®aÚ„@=覄xCèÓî¡O ôˆ²ÑÎ 8(Hd?C½Ñ‹A€Ó~œÜâÁ¼sØâd£¶¢¯9D;¢¾³Må@íˆÙnŒ¥ÚÈ%Ø3ì¯öSàÉæÝ=˜Ó9gqO^¼WŸî"1<-^0D‚¯Çôp;VÊ^Ô.P¹ØµCE™i‡9âó-eæÅ†ÕblŸûUX#Û5Ê]»JX²|±À¯Ë®‘.ÛDºlÌùɧÈCµ ÛÚP¢Qå`?T›À÷LµV×on'õz GÙ9Ð¥té]J/œ­Qì+Ùó©¶«$EyÓÅÕL ŒpÐÏdÇWÙîz}ÅVO¹ø|KÕ:=>™Îº÷dzÙí1¸#8%À‘ÔjZ²»cµCµv8Lª_[¥ ŸëÑÙ‘–]÷Þ‰nÖýÕÍÖ{öÀ“l÷Fº‹øjÏw€»¸Oº¶¼Çݲj” x xvãrxË“îÓ§n¶÷˜ˆÅ.*jOx¡]Uƒ?ê-'º+8)nqwEùâ*VŠ•£fÏ%F; m¨-) ¨ç¡Úí¨|kÅgÚP|êvÅ'J®kœ¤=ßhÏ7ʽ ½{A{¡g2Í!'f/—/W^òC““˜!«‘rX±ÿX‘P"Ò×M°=7IF–€SõÜ$5€9ë7ÂM=ºž›îD÷ÜÔƒ‹EG¸Ût¹imÎß7“ŒN endstream endobj 1175 0 obj << /Length 1995 /Filter /FlateDecode >> stream xÚ½Y[oÛ6~ϯУÄ,/Em† m‡E‡5ÎS[ Œ-;ZmÉ¥dù÷;¼Z’eÅéСHEñz.ßùxŽŒ£M„£_/~Y\¼zËâ(C§+pFÖÖÕN·˜³t{ü| QNf ßÙ ¸«‘;ò áÀ"‹·oF‚š@“m®¬Ei–@‚Ø·¨NXõ±Ä EF"Ð’û}.kÛ6÷Bwé rŠGd&ßü½½~3&5à™àÀ\ÑàN•ÛÊé{?³ÒQ·å¶°Ô ã8Š,›¢l«VÙwãsu¥_DÈIºCn™4”ÃáRSÅöÉM¸¯´ÞömW(Xç2Hš²A¸âQ— t)­*ûTîi˜[÷°‡–)Ÿý¶¶#OUkf‚É1à­qÔù®ÒÞ°.±}^>óÒãxwÑ-S’RîFzÇ0.߸rí}¾,ÖO#(~È{Þ3+²SèËbˆŽXÓp¡*%,†py0¶%§àÕq"BqöÉ[QFžÕãDèk+ðøúsF3H0uü2*~°2W/M±´¯ƒQŸšé…=´JPÂpÓ¬Ç2¦}·ßÊ'Í{úU*`¸”‰ÙëJ;_w•UãÆö{mÝÔHÒO¸R {áê7º Yr1bÌÑ!ƒùp=ƇP”¦ ·!Ôrà/ è'åH’ý£ °®f ÎÒÝ$Öff½Ë;êbsß¼ô~ N˜¼¸ã8=àfá/åÎ'!>é ¢u6>çë…±DUûLÄÔSš8‰ºªØSË4ɘ ®1ªÊ Mž¯ÙÜžýˆœR!¸pbdAŒÌŠÁƒ™C3#K¡*·…šOÙ²Ã4ùOáºl>šé Ëk¥[ÒMØh”(#ÝjáÙ4žeH$¤ö”;Cžâ @* ”àG U'×€)©ÏÕ‚3RgC ¶õ™6Ñd†]F\ÚUŽà»ëtêX«ÆŽï öíí Ìw³•[fsN‡Õ‘›!`Z[ε^œ¡„³gê1“$ñ®Éz‰|×c‰ó˜ “èÄÝãÕ&zÓ/"$ë§ëòNç/SÍcÙ5+E4&ÿwÍ:"¿fý^%+T¬±>hô+ÖXx)Í`§b…7“÷ÖŽT¬0xªbMµ×«X7…IimHLkÚÚ»V5}Щ@—ۼܘoE¶~cŽpr£CU|Œ6!‚#¼ù»(ãÀùñ÷, Çjág è®±¾±€ö_W6m±zöÖ`q§€fºÖZ2Jé–Éj`’Y“¿é>i»ìA¦Gc@w™/ºC“/ð[åà‹>\S]5ÿ™T7Næ àÑÿ9D‹±«j{pŠŽŠÝwÜ¢\Wgç:Þ¾ªÝCœý"$v¤­T*|öõ?¼8¸ý”˜jêvÙø î8—ðÏ7‹‹Dȹ endstream endobj 1186 0 obj << /Length 1965 /Filter /FlateDecode >> stream xÚX[o7~÷¯äIÆZ /sÝmQxѤh´»ü”%ÑÒlç¶3T½ô·÷ð6"Çã±9$Ïá¹~ boæ°z”­1]p{‘#Æ£} 1.$øGyiñù0tÌ/°c(KÆënA®4éà#[ÝŸšÎ1½%\šÙÃQØ5­ÒªÁé‡RÍ*7ÃP6‡J˜9¼Byã zsš{v2GTèâp]U:ÁË”$FÄæTo…MšöÞŒÀŸ&«Ïе¨¬½Kgã£T½Õ'XõÔ7ÃäÐgňW'1nhuíàvØž*ëMÉÿT±ý(¦¦ R¥ ƒ%£ÉV+/øŸÃ3JòØ9è·F8Õÿ‚Î:Eqžš B~¤4Y ôÅéXüz÷îÝ ^ÙrŠWMkÆmÿHhÍDAf_ٯ嗟E¿¢1"e¡P$·n„ à”r‰Â*³`ÅÔó][w'©Víœ'´²çÍ,kn£ÖÚíÿÄNN´L0ŠÞ–-}ÐHyk¬µ;ò ¿&bUAÆóœQñ²9Ã{¼œ ƒØ†ê4쫲.Pñ1ÀJv©ÙÏ$ÍhS¨=IEµ”PÞâ"´±×/d…àR(-ó$°fž„Ö„o«vC8|Ę6ZmØèÚa(·”4™—òð­ Éí½š‘1„Ù,í5pÅ«µE,ŒHBBÄÚƒ€I²z1<¸XÚk|h»E»$dpvyïP‰Æ«Ss2ï ÌM2@“•6,=‚LXÛ 3¶à 9Òöm­fÌ–´A~¸†4'«[ôRîfæU£ið#›ßïÞ̤5)µ¹±z‘@=kMjTÓ2'™Qˆ¸€ï:hÌ\¿ >éŠöÍÈL ÃÓl„™··ïÞÏI Mðˆ]ÑàU|Œ¤qÎj_5 >™`PÑưŠ/?ý Ø•Ž9u×T¥•É d#ËæÔžómêüõ‘e‰¿eɸÞµ¡¬ÎöÀ±UŠ?˜¯ºTQ`¼Ë n*& sÉHu]–Û´Ëèjßšq°£oµ~ >q™¥«ŸïÍι=™Éƒ> Ë ø’–A/êV¹ÃøÄ¬9ùôG€ðmÓf|ì4ý\÷ cKŽ;ïÄ®¼?Ï„Y^@ê¥cà=Mù½ž ¿"†ô3k9^(†¾‡à ~Ö¶%—Â%ÆPˆŒ-Øw¦tEyV'r_Y!/¹¿f´€S%0£ùÅfƒ‹F–;ó9ÙuÕ™" ¢P‚6 7{¬`Êw]ÅÏ øÔ'â2–¯~l•óÕRÓJ»×u*¶ÕTE’áQ)Í“«¾\J¨9ʽ˜ƒÄ8E—"æ×Û9@dÐvŽ€XZ†Ðo‚¿L@Ÿ‹’)¼<8 5uv®çðëXS#hz[yôåá(¿¶€°øtÇÐÐ1n6G¯ ²gÍcü¨ //·ÌT[¢í]-¢[ÅÚŒD¾*¦ V2-"&ƒ÷ ŸUå MžoÛ,Ï ‚/ËÕ<¹9ŠQŽÂÈ‘ŽrF,[Ý™º uU[q9Æ¿”vÉ”¤…z²tÃÖXYÊ‘Ñ,PFü†áÙRžúWªKÞÓà*×Òº‰ôQMåUp$såÚèÌZ!Ç—­غbëtÒÛ¶(n •ExŸNUý Í~ Éožر5–"3e§ Vÿi˜f‹²Ü7k½¸@IÊžiÉt™”ú& jyßc‰õ˜Ë ]’¨Úݬ)õ–3?Ï!E¢ߪf)H ÄXñ‚Æ•"“oo¿­o‘?ì[¿©‡~IãÊ&}kìò&aßçNL½éõ­ð¥KŸ íLß ›3}«ßl®þDÐ: endstream endobj 1196 0 obj << /Length 1889 /Filter /FlateDecode >> stream xÚµX[oÛ6~ϯödc1+R¢Du+† k‡ ÅŠ5ÉS[ŒM;Zu›.qó²ß¾CR–lÙq †AŠâ!Ïý|G¾·ñ|ï׋Ÿo.^½ B/!IÄ"ïfíQß'Ayqä0ïfå}šq6ÿróû«wa0Ø0N’8‚sÌžf)3u×<ÈJݵµÊs•i¢ ß^寽û̈H"˜ÄzûÌQ{ŸÜ÷gWóãþlù k¹lUsÊgjÙ–öy“Ο=¦ÅŸ3y¯²çŸ}îç]Óâӽ±‘¹eªØ´8— ŠÍ†b³ ">gNìûZɯvßH0–!„Û×Ò±@ þBoAGÁYr¯»bÙ¦eO탴b´òëœú3Õ¸V˜ƌiQu–L+œÔªíê¢9Ô–#*»VS 9qƒ‘câ'Šc͸éÒ•Ú§)I VI eÀè@Ê€±YרÎÚ9•8]‚`­Â¹D*¼Ë¬h?ÐKiÛàBæ%ógáìZ9†àG„Wk¾púQ³7¶5õ ímhnh´XsO¬0éÅZ#?l–—µ¹\ÛžhmQ’ð÷¥Åº$'uLO©¸é*ƒÓ*Žu¼Ü8×@:Œ¦L6ÎsJAéÖã\Lõ>µ,‹¦­;ˆ>ë<&ðmŒ¹eèÙ - x‚ hý²«¬)ÏIT Üé?#–%“k\ÜgJv¯Ï7­I²S‹¥·é«’Ùi3øÌ{ûMæU¦šI™efœ…½Œ1ÈâYYz_ËúI»Úw›M••-ûÎùÐ/x qo57âÇޏÝd¹v)ëÆ™7ßjÆHH#-8že}£Êü®*ÓÂÐIôñoHõ‡m{‰“§Ñr^mìº5ÆàÝZꌬÚ(©GêþC~ü1+@¤Ú»m-+MøÌ{±SœWî(äaX‚Т£h}{sñ÷5NAûBÇý˜ðÒe~ñé‹ï­à%pEÈe[³5÷BˆÒjŸïeÞõÅŸG­jªéÈË(0…Ô `:ŒÎ«”PgãÑlèª×;¯7ÙÈ]×óÏÊŸnæœÏêyÏðø¾ôÑ$á§õÆ0€èQD0"BîC&DÆQͲN+“Ù_÷GÅÞ‰€È'Ä=L¦ã¾mäF½G90¯f¥|Tu&«Qˆ¼»zýÖÌÚÑ»›·î!ä\!®j 6]®Šöt*:-„ãöDa‰#pËõCZt¢òª}²%#­—™rð£i•´¥£\[kØ2KW‡$ÛUL1š»; f¯}óG6É çû±#Ø/µ£Ãx0‡È]PN¸MµÚDg+ä·õÏ ¡QÒ×b°ð—¦Œ»M—ZœP—_# ?¦PÁÄeÏ*ã·Väh‘pgn-b÷UYרéÆ2fÑd¸³<°]§²Ød|¾ x/0™ë*XbͪަÎvþtÄ7.¸Ùå¶lØqsÊòÖŒCÃCžox‚¢AsqËÁ¥½—Sþ!H¸ƒV)$LÕB.që("Aº!Ë€aTÛžßÀ3 À7‹DOñ°ß€W¶ß€Ù½fÀYf$ƒÝÛÔ4N°*qhR­mœ¸PºMÛô»å@M¸EgI 3ÑA8ü8ö¢Ëïøs©Î×½žé³¾ÅÙìFˆ<Ú~Ó£>HfÝ®‹êÛ«Ãú“ƒe—­Æ×ù°=pm£–ÞµŽ',ÄEo¡…r²¿Þë%# >n ZÉ}L¨Ïܾ?•#r û}QŽÚË1+àmñ\[{Š—­L¡ø Û~wňς1WTXCÂd¥ÖÚ(²ÓU/ôm0Ì—e¬qYýæi¶­eÑÀ‘¹´~kåý_jÙî‰ À&Lè3*ÑW çÑSZõÿ×ÏYš§íK?L}[øŸ ìýg7±ZLÁGú|¬Ox¶r‹â³ï³ÂÈ /ª²iÒ{“˜ Ù ìáÙ˜ÁÛ ˜}ÍA¨ |™Úkà:æÏú²F(§ã¶~ By|qg¿2)¢<‰Á'Àî5°™ JmWà‡=ÇpXÎé •KiÖÌÇ0K°FÛÓ"ÀfU,…üݧö{ ‡Aw9õÕ,Jˆ½ù`Û—ph¡Æ…D3Ѱ>•$cB}1ÀÁöv¨ŒgðxÀ5–¶Ôó^“@â§tœ ILËäéòÏA¯¬©Û"K1;èPŽõgž6-ºq^l›.®DL†¯,ÂÿJ[“fOvÃC©ßâSž6 u€N [w‘úºXذ‹ÙlUâØØÑ¤o½¾s>4ãH£oóæ©ìp²5 Ô€§ÖíY©Í6Á5ÇŸyex¶áëÏŽîóÅ€õ¡b,ì°x´©Ô2]?M¸™H ôwmÌÐzâq8æ~IáÁ§›7B£ÿ/¸Fóå endstream endobj 1214 0 obj << /Length 1726 /Filter /FlateDecode >> stream xÚ­X[oÛ6~÷¯öd£5KR7ªX1dh;l(6¬MžÚ"`dÚÖ¢[%:©ÿýo²è[œuÑ$Ïí;«¿M~½ž¼z…A†²„&Áõ2 £0J‚4Á(ip½>Oûu3£ñôñ¶,j!·­èg_¯ÿxõ>ŒF”&(ep¬&‰Cµe‚-#÷š1·yˆ”f,˜ÓTMÚš£‡ÁS^n„wÊG³Ôqü}i„¢c0"n+;^÷%—b6§1ž¾1Ÿë7ïŽ(Ä2”$‘£~9›‡4›>®¹T#6}P&Ñ"ê.z¹²ÈÍϽU°à¦\ªèû¢^)ŽÁœPv&0 (‹cÃëNQeátQômÉ·ba~òþ—Ù< ÙômÐSu#íZÛ–[3”ù¶M_È¢©Í¯>祣z\‹N±Vã?¯Ž…„ˆ¥±ÛRØy©üõ¨¶ífDpl5K ¨“+u”Ù•!ÕÌfKMß™]±ZK´ï~<„¡$„O„µç^èÏ'F€síø×¼RRÃf¹'Ûè`»°¿°sÚÄf¨MÑt÷vå±ë³ªX‰Œ.©:uÜ­êœ.qˆ’]ØyºœPňyN{¦'ÍSrP†(öäÈ92#G2È‘9(L§7½F,óÞ¬Ûø÷ÂN5ù‚ô$ž®DmId!‡ƒŽf‘Ä ÷È‹Ñ}Á1†räa†XLF‘O¢2Àf±d/d wSJµŸ¥V6¸"µ&`Îi6 æ´’jß«ƒDmv,»¦Áà Æ´ë¥Y¯ ðU2Ñ+cEE¦mÅ,N•ØØ—wÀ³²ð;j·(Cq²Ë7>Ë0¤ÉØXc°y¾Š­¯\P”¥Ý9¨V…”bq>êC„d>8K~'ʳ!O3†™“ò¯zŽ×xшøIå ¥ñÞÙž™Šö„•(#иG…icÍt¨€*Žˆ±È×ôY²< ôˆ‚U|¡"z0ZM0'¦^Ì›ªÝH 8øu·õhÙT—Z8²â¦©Åæî‘Ë=-cl:€³ZŸaž^kåkÞñ\ kÄ18ØuU¨âû`Âbg\=Vƨ6½ô×Ù²õ rµÉùýÑ\’ Sg´»NðûcíޱÁÎþc %ó£'æë½ÜÔ¹µ¦_‚lÎè÷‚Ï ç”Ñߢ¯Ù)”›®î­åˆšTTçÂ8¼ïÆÕ¦X÷åål#ã¡.ËQB²¸i„’(þQ¦¦ù5 wjŸãK0t+,û_;ÍÏó…1û|çQ Æ~8æÃ”àÅ×»ï¼jKÑŸ­ýË8ˆÃà,¸åº bT¡mªŠ»Žw[;?­VmÙHú“ "ÕNÂÍ5#ãíLשŸçæk¶ëZ+sÞõ/Í47éó»ùõÆ|ªve—·ÞüºµÓÚÞÒ’«b¯ŽÊ·¥Éý›åZB¥˜ºQa0mf3¸hªÛ¶)j9NÐRš­GzaEÂúÇ;û|."檩)¥^!~èÀz½’·'¼»ž|› H2<ô„˜ 0É‚¼š|þŠƒ,{BözÔ[« x¦‘Š2ø4ùû$žôk’Ÿ§A‰ÚiÊ"DÓhxMÚ{I!2J=rв]ñú„¶Gñ¨êESŠ0°|†^ZþðØk\  äZh¼Õ„o\ÑéZe[¹o›"¿ßkÃE'·£÷¾õ«²{†Û³:Z|m^ÀA7=_‰Ë³ÂIñ}ç)Ø ?l¸ºþñ ŸH`WÒ|µ©D-Ïg±óržÂ—çš4xÑQûyÁåÂ5#óë ô³KÅÐ' bË»gt,4Bª::w„[Wªº×<}[ö óAí7Z ž¯wú·ÌÝBö¾qvw®RnM‚66µ£è¨‡!žÿM™= endstream endobj 1227 0 obj << /Length 797 /Filter /FlateDecode >> stream xÚíVMs›0½ó+49™™X‘„$С‡tštÒ[§—4ã!X¶™bp×Í¿ï‚ÇN¦—ÎôH2Ú¯·«·KÐôÙù8q.®=ŽV’I4™#Jö¸D¾$Xx Mfèa$¸û8ùrqͽÎMO(̨©¯ËÌeb´Ëp­‹ê¾C¬0Ñ[É1ó«ßŒü7W±Q˜ltO²£¡çdÂ3e…'˸pÇLÑ|“Feœ¥æ…I¢göK–›M¹ÔfSÄ3»ÓóÊ÷¹ŽJsÎæV>×a§ s ͲN²»c’ѽŸër“§…‰uceRbA‚¥$NuùbñÙ Šsx-žØÞèÇ$VŠ©2÷î´á2)²Aìü'8@yu4ÛÛ ÑžŸ-¢´MçveIO#üþtÈ…ÊÿÏ­ä ¶9VíÔÑvÚƒéó=p|†}%,86Œ«_ájìé9´Ön PòªÑäî)ó—Ê…³*Kg+ >f+¢’hÓu˜4AT«g7­J°ê]jÎݱ d”„O:)ÌþƒY&·÷Wçjâ<;´ÎmŸ;0A ºs¾„±æ”~qAP’S$¨À´· n,¸ß“eÝò¸)ûzw¢Ã”â-6ôØKߨÿ¤‹(×5żƒ¨.ïÏ›8úaI%µü4‹óòÅl·.pKheÖÄk¶ý IT6;q_„ }zý¡c·*9³;­æºhU_æUÄ‹ÍJ§åëoõ¨Cͧ›_B9µ,kó‘‚å<Ž,ùÛ>-Ã<ŒJm?]*FÐ!šÏMh2Q7„ŠOæ=Px~ãË:ÌßÀ¶ X“È^·8Ò˜ôr FêcéÙJ¶);ª›4J6MÃl{hÕ wòÈ `ëžÞCl×€_VOY2XĊ׶»…ü¾ þc®‚÷í5^(~“ý·õ@þâ| OŸüÃTºßÒÅÑÉàˆ‚·Ìû¡BGý c³ö endstream endobj 1245 0 obj << /Length 1085 /Filter /FlateDecode >> stream xÚ½WKÛ6¾ûWÉ!2PÑ|HU ‡]4[`/M²n.i°àÊ´-D–‘Ênúë;)­eËi6Ý>âcæ›™o†clü6»\ÎW1 2”qʃå: #ó å%ŒËUð!Ô;Ù˜ÛU±)Œž\^/®X|p'Æ¥v‡“Ä™a¯âõröyF`Šò(2Ä0 òÝìÃG¬`ó:€­L÷ÝÑ] ÐpP7³·ƒ¼ã±3ŽL ñ˜)柱`¸æ§£»e‚ô¶\Í NºÙI3h‚êÝÝ©VCíî ³u3ÙšÎùèd7¯×n<Ð?éž1$(yŠ[:óÙT9'(N™3äW¥ó¦Ø›¢®Fæ?ºaQ"‚ˆdˆ¥Éà‡ 7ü;ÁެN*€t©Óù‡–5 öü8þGàcÿ'NðÃOó(Á8DÁ'±*@L”Ì9½r»î ?s󟬸èȲiwª:bÞ­x8¢í(^)ÖÒžµƒûUÓÇâ‹ ÊMíãaj7:ãŽd€D^xD8â©Ï'ðÀ÷ãycuËFî”H³—Z«Õ€ÅÉ‚A³ úé»4"A"K{ÉèaÕ†ê||@nšù 'æý<£¡,[õ#¹ÞfT„ù,Ìå;£Ù¡¿“$DÊØŠ|t†qfŒ0à‰¡â6Ê´M¥éô¯Û*ï²½[t)j×¥[ÐEµ)•_Š OÑ œ$%(¼Wö0õÖLÈ8ª6ê,bœ#ÁñPÀ²Äûnš 1¶B:flûŠ3ØØÕ7x—oú3éó3é)úàÁ½ÖlëÆz[÷î~*®kíKàï¯.›BUÿ¥„’«•û¸h7m¡üεZÏi®eAõÇ‘?ÙTu¹úüïÔZuáSU®ôC'ÙôN J»,´É觧ɘp”&C2nÙÿ¼Xh#óOõÕ¬Ëúåõnñ¹UÚrQ/(#<˘XhUB "[NC™ç-Äñ«û2µW…Þ—Ò/ÊÕª°dé¿ ífw’ŸôÂqÌãQ T¦D$âe?ùVÝ1â‚õ¡ó/5³-ãÿmCNœø\×¥lŠ¿Ôêv/Ë'´07ý=Ÿ3uÙ? GãÉié.Ï›9KC¨ÓC&LšOSŠh?O£B¬aþ,ÊÛV–…Ä&—«ŽÜÞn;»¥ñËw²{…ìÔÖJ;š­ß{ ÕǯÝäÛº®j+Ï m^Ù£ý½|ë×'äÍàUãâ(‘”Õ¯fH'ä8ÞŸ‘ÜfÙ@oœÇ!â‘àƒîd¹-ô%t»ß×ñ[í~Ü8@U\\õõVì3ª'k/> stream xÚÝZmo¹þ®_A _î>˜KgøRä.p{@ N ´ òa#­ÏBÉ•ä»ä~}Ÿ¡´‰KÉê,5AÛš¥’Ãy®½1Îx/ÑxIJ$¼7ذ D2âX‰`DÙH>™t@LÌY‰hRàˆdR®Øl2‰®[LNDbS’‚EÿÎ×qJ•žx‘XñØ)º¨Æ¢ÐÈç¢èt](±rfð«[ê¾9Ô Àå¬ëf°P²„½±C6D©NH†‚W&q Ñê;•& òXœ¸èÅ’ºkfPu×"†b©3‚¡tת@ æÂæ¨EÅDþyÈKRQcÙœò¡CAT*ÎÒeÉá[æÊƒÒÃèôPUAŽLHzJr+äF  BqƒÂyqD¥"T›ëz æ:W9tW gè…!C.›-êú¥ T¸ä“O2ÒCËF{>ÑqPlçuF‚«‹À†‚(w„E&…1|©.ì¤X¿®ø:7˜è8â€DÕgo"¤¢_fP•ª&¨‡”šž3 øQ)F‰º´£× ëF©°nr°&š1qÖ±ªÔ &Íu‹jܺ-4K©[“¼(Dj0“DÕNìMJj{„°œ1¬.û*bH<{†Qá)«1”à#¬Rdõ–¬Ü‘C] .—ƒÚ9Á 2W‰ –ãTw &‹—Ñùù¨yñþ¦3Í“ù|±5Ïo_¯ëóߦó7£æÇÅrÒ-_:8»{Õüµù¹ù饯£æ²¯ÍK.Þ24R±)A±9[‡C…âlò¸'æüÜ4ÏMó—Å‹…ižšï.¯æv5ng½¼ÙÕu{³¡ÖËîíÛnö½ùá‡~Ï|ÙBM!f`žuP äb…d/o[>>áî¦="g°([M6F f8°R²”÷³6™®ÆËn½•œÊð.OOõÈQ·½4Í?ÿõoSŠ 0˜•e8Ãüv6{µì«hø²Í± ES±†> _›Â‰ÐÎÛYCÃ/mA4ˆÆ§*@dG|úûè‹Å|]UzÁje3í"hTöý¾á키´}€³sÚÌÁzͳåbü¼ƒ™æÙÓ Ó¼èÞ­Í«û¦ù¬ý¥5?aÛn¾^i^«óÕW‹Ûå¸[mr]û{7™¶?.Þ™j´RÄ2hfo³úð³v‰E41— ¾Úý ûׄ¬lÕ|¼%6\¿:ª'ïlÔZ£À‰‘ y /WÝoG -- ¤²ŒÀŽÄd >£'8ögâÞº]·§Œ,È&5 V`jœØŠædø’È~‰ýr;t«Ñ…ÀðhrÜ;ê, ¶Ñ1«uÇIÐHF™5 úÌT¦Ñ8eæ²Ïåïyù}ÿ?©Ë£(xàò™íòù¸¾u%áKA¬%¸*S‰Î:—ö§éöõ¬ko?ïLUcY0â»à/ñ.tDJ,©œ-Yã E‡d# s!(}ki«ì°árÛlUÂ1¹¿É)þCøMšœ~Y`"/i×¼E&@k‰* ‘mu¡Á§Ê!>UvÙ}DFa(ÚoˆFÇY‹„S Ñ‡VQDûhËÎ4² ’‡Lòáiäž×ÝóÇ#¸ y~à‚Úœ?Òõö¡º ^>l î 鉨©'rO”S8®[FÞ;®D±œþg~»­v9C~èû–Ucsâü5[VÔ=Ö©5E-,‘¦ZÖ¨‚Š–÷G”ñt9žuWÓÙiûi´ôzç×3Àl†Ù~‰¹Y÷k7kç“SòÐÓÕá–7Î©à‹‚ÛÕÂ|æ†í NÏžDC}þìõâ<¾?À+]¾ãHTâ×ô‡Šå¨·nh+P¤¼Ò|ˆv¿£Þ´ËOS©ÞÇN¥÷À˜”a š›}ÖK‰ù$h’¥e© ,D{mˆ¿±bVÛœ™”äљԻmNôÛ;½ß}n%>Á­L-ô­K±ZIG½jýLžZ]/~Û„ŠÅQSYϹ!6§8œ›ÙtÞé–«cF}©mŒÉJ!}»‚ÆM&n?¹> GÑ’vÔ¬¯ª¶Z¢àl,é+i©ç¦×Ò`nvj©FŠDлà/6ø;ѱ pqŠf Š~ ZB°žòIÐŒ*©ÈÐS2%T¾COYí½ =e@0σ×&½P¼6Ú [ü7vGüðöpPä××½ŸFþP¶áû }Å}.xÌÈOÙY}—*ެ„¬¯¨­G/&^ŽöºñÕbù¶]ï '»6vƯñh'K(2tC}ó$Ù”5ÊoÏRÒ<9?¯;4OÆëébÞKþSO|ÿÇO¼}‰Š²À?¼¿d¸C½Kú;0C¥úO¤OU {³Tmë°wëëv¾_/s=w=ój1k—Ó߻ɣõBN,“þ· =5Þñ¯cî?$: ž{tÌz£7¬lSŠF“%>D  äèhΨŠ\Цb‰‚Cö°‰;KÿËò endstream endobj 1267 0 obj << /Length 1070 /Filter /FlateDecode >> stream xÚµWÛŽ›H}÷W ?áhÜî ÐiµšUfVZE‰’ñ>e£Q÷ØHÜpœì×oõ 6žØ£‰ü@ÑT®[Ÿ.cgã`çÏÉËÉâžyN„¢€ÎòÉ!#æ0òu–kç‹ë³¯Ë¿÷ëi2 "6:u#ñXŠT©N°ÝÐû6óÖhN¹Z4¦ŠF¬zÖßBgNB„Æì~F|·¨f€E\a›dF}÷›ú"s³ŽUM’oÌ[\¤I¾6B¾ËVÒ.O=½ZÉØM,R³•F€(eÓÈõ– ªcsا’Göq‘­’\4I‘«¸!Ö9!(ò}˜öÁÇ›­hŒ”‰ïI–ü'»Ò EÉ×âÝ.N“µ¹y]'ƒ<¶z+Ùì¥ÌO·HìÚû7âÍʈu)b‰Lñ‡…Tµ ¢1>?H ›ÖÅ ŠùÑæNmZ¤¢‚×wÕ[‹ ?:•‚4âg…Lû¾EŠ SÛ¾Œ¡XOIš>€ŸkQB¨¶„w÷]de 9‹ì4Rð'ÄÀë"å©g°ÒdU‰êÇ?ØÇSí]=™´@¡ˆÍJ½-ö¥Ûy¯™ZPFêI­Ð! ½]ÀF.ñaZÉõ´…ñú0“»åäß Ñu"­øC8òœ8›|ùŠ5|„ ‹Bg¯U3ǃ£ÀuýRçaòél–5w OÀíÀ#Ž•#<ìóRšä²ùQÊ‚òøŠ’¶y”±iÃÁ¼Y0/*v8cq5cÜ•üI C®I¡i6BÓ^è£XÞx'Á‡¤liåÊøþ|€+Q·§±ÈhG奠ZÙ/u¼•™RŠÎ#šÍÁîr›Ô#{Ô»²,ªÆ~Ú•-©™'ñÍó›¢w‘îd}+ý]‹¼üÌžÍÍiµÇçu¸ñ"^;öI[ç“vq:G^ö«¯N¹Ç%8áßa§kÜ+Ø7d( ý!û>ãäèaÌG^þZ–`KŸ“ç§— É¡*M]¿„†éˆÓסÊCDqøÔÐFŠi)ˆm¤p®iäÙ.‡õN›¹ë"Þe2ǫ£¿>µæpÝóL/è鞆a@0„RßÇ×™P=hÅÓd8B8è µmšòíb±ßïQmˆH]sóVk0{Áh¶ØÊ´Dñ&ùÝî|<.ô3E( ¼Ýiœ”Ôå:¿™,!µÔëcìþfÓšê’M/%«Ûj$½Ñe{~Ü9ão'ãÌ‘æ§Ü·¢1\#¼D`þ ‰wȨ¾4>æ–Ž ;´Í°Þ@~÷O¤ yÝóPÿj¬æÍ !=@‘ê> stream xÚ½X[oÛ6~÷¯ò$ KR¢.úmÉС°Æ}º" eÚÖ [uIê¿CJ–\9MŠlðƒx9<<×ïš:;‡:¿-~^-ÞÜúž“8à³Ú:ŒRâù”;«óÉmZÙÊûf/+u_Élùyõû›[Ïó)#a< ½5É‚Ú[€v|Å•%¾â¡^Ã#7_e^eª™<÷}sË='‚Ãod^,$Aä#¯,]ײ>üM½h \/`Ì4k8~ʼnáj¶/ï“2Ó´¨%è‡9,—µ9©˜°££$ñwù°úµ½Ÿ¼,Ê3L7«Å—^ÔaC(ž¶­p’|ñé3u6° ×/ŽœGCš;>BQ'sîžuœ‰7>‰7:ð™pJ :o#ßûáä<'qÄúÈ»Ó'—W\P×Ç!ðPmk'ZíMÚ$õÒ ]Õªï(O#"‚ø%Ê%½¹¤P EýU iÕ¦e1ô'f‚<"½‰îP;Ž´ó(sײQKænp¬ I»·´Í!_—Ù̹ÔRZêaר Žp“¹M²Wyωë@"Ë+?`îjŸ6ß0š®ªÊºm†…Ìè*tG[â—Qü>,¹peÖ©†Xœ™`‡6e6×?6r§žgíyr:HúÀ8+‚u䲑u5å¸Rõ ÀDN½súá‡oÅH†}¸t³R &×Á‰c)â0/è9mË•€è®cr>/|/&÷ÿ[Pð9'ÞØC÷ÛôA]¾Võ @á™%]&{Hʼ* U@\šy¹Å¯ìñòueoA(éò ÊÖÙk¡„yÄ{”X™¼çÜ(¥ëA{×®õzœ š mý•øiL0 IsXk{ÆyZ¤y—_ÂÌGÛÕM‹´_:Y·i¦ì^®6©,ì¤Ý§õf–L›9¸ÈåW}ÏÿŽ £ˆÓ¹”˪J‹ÝòJ¼½ÅÏß¿¿ÄáÆ€çüÞN•ùdïb]~­²²½¸4 k1¼©ÒU]®›É™D A-GJ¸†ÇQØM]·ãB’zzýíõû»›Ë9[We“š€›H›n eÒöpa9êƒdj§Àa•¯-AZìU¶Dª©«o, !äÊšæÐ›:öº^20d—›ä}ÊÁO;¶÷âI“:N¤0áC[¡ ¦YŒX¡¿ ¤@›&8µ œ%µ°Ùàd}x¸û> ™èo…KÆø}NT°ÐÐy—õ nÌŠùè²ûgÝ“(îƒúÏAÉwÖ,M¥’Tƒ@¯½Íæ“›ƒøñPzÆq¢£\³iP¾E(ÖÁ3SÌÅÅ®"èc$à±mÜa­VmW6 |x±ES# ÏåÓòÐ㣜«¿>ÔßLó°h‹Æ_‡¢f((c àœÌ6pð¼ú•šB endstream endobj 1302 0 obj << /Length 1911 /Filter /FlateDecode >> stream xÚ¥XÛŽÛ6}߯0(*k®$êZ (ÒË)жIœ¾4A@[´W­n¥l¶_ß)K¶²µøA49gÏ é.ö wñóÕ÷ë«Û;,R–F~´Xïžë2D‹8rYÈýÅ:[üå„Éòíú—Û»€$y’‘z´L'6…ý»m]Ôí»F8åÊ5 Ùïí?ֱ⾯•¬ü;IÕ^Öådö‘qÄÒÄ· ¯ïår凮ž&»6ßÒßzó·ÜvÔîjúöÊÈf¹j ñhF­†Ltâh᩹få•‚“BZ¿ië:ßܽ¨º¼ê–íêöȪ7®ë/ýÐù°ôBÇôU}¹‘FPõe)ÚÇe:ì|ë2§¬½ÀÙÏw„„‰âT;ÃHÜ=ûõÕO$4Ñ޼ØJ½qC—6ûN&wKÏuD_tÐïÝ`oâ´²¬qÇ´mE¢e®T^íéÏôŠ(z;øw÷Ô¦C«m+˜Á–+Góöû`[â ^¾žÝ€Ï"Y!!¬ºâ½IÌ]ë±44À8Ýë°øsØÀåkj•wy]»?쌕€‹²¿{Õ•° ôwÀ ÞÓÂAe¾ôQÝÒsZ0[‹NmÄ(‚Ðh¥‚àaÛsêÝdîV…‘®IÀ 43欴;Ý©ÑFs6új‹SØÅ‡TÝ׬{Yeç;¬¨÷9˜Ðq#çÕ}ÝÂSØx®¨U€gÄ£öüÛHúæÕ¶è3™ÙøMŒ»p’DH 1ê»9êC›QÿPÈà²pÊŠü–œ# 1ÏŠ-¼.X„~KŸëVf×3hŠã!eÀœK>Œ{þ¡FûWN4ó­èæxìå(ÖW J‚¸ÛR<šÝ#åSj]æ†G©ÁæF´:€ú”­‡c׈¼µ)/-·ªÉ¥|‚í4 Þö#(bZæÏ%â|ý‰ Öô:—€ ðÍ}6ºçRS©iªgL7Y¦+3›¹ F}Y©ož:†ÈOpðSZè!Ï@ÛÙ'ÄéÚ¶3 VÔlti¥Wæ”Ä œ—}yqî,êÙ^RHâùx°¶{ÈKÒ0ª~E÷æ^x±-eže'ÓžÚ³Ìra =t¿tù¾i.q‰Ÿ¸!þ|7ظ‹ø@|´q?çȽ’æŒ<3 prìÎËÓȧþÝÌÍýxH?­¯Þ_yZ±7<Ðpi%Ûò꯷î"ƒA¨O“Ń-°Sà5¡X¼ºz1côè褈oÁÁÃi˜œóÂs{Ä >øq`ëµ&-=Ÿ<ù*¡æËËiÙuö’Œ»‡ÚvÛ.yì“þ'Ü€¹°øž w/>óîåǰc×`ûG 6äÍÉ5û<²m±™lÏ$e]³‘^kC=¦ùa eÖÚ=äº#”Ìæ ´b Þ×Jìå'@ûäãÜÑvNÂQ2[®BWgYü\¯m ñŸç^ßP«{l¦‚[ÔÙ~ߢ)L­t±äÕk]7Êl¥äûê²\Vå0”åd»B¹6/H8šAšÝÒÃhUÏ¢éØqú ’çÙ„ÙbcëÁ§œø´ó¬ŸÎ¬ÁÄ:×^+ñ‚ æ tô£ìD^¨£‡C*üuE–Š)/¿)êÀÿ‹xÕ¡öRJçø5«3,B]ç÷ê0<óžè3ž ¯@fŠ·é=áfFWÀB÷ ê.so+p_8~\Úo¾ÜÉ4<Ñ>Âéœú”a묻M€Ï$Q4 ÇÖ—\ÛW> stream xÚµYoã6ú}~…a`12Ñ$EQÒ`÷!É™AÓcça6T›v„ʲ«cÒt±ÿ}?r$[’%Ç…$SäwŸ$ñh5£Oo®fo¦™3 PÀ)Í–#‚1ry#ס£ÙbôÝÊÃßbóM¼I¶a<¹Ÿ}™~tXe!Ãy>@U+Ü@Nyƒ ˜[Eb›É6õä˜^ò^äagµu•õU\–q_¯œM|li'6 °µM7âZ?¢…ÈôHþ˜ a^Ÿ·åèf©ŸŠ/³4ŒEž‹ìf‘ÖdãSäRVò8NŪˆÃtÜ$ Ž<ê–3ÿƒ]¼ˆ²y*rq1±)¦ÖEGy˜G „Jj yó0òïj“F"ƒ•䢉#F‚)›t!R±°3ñG!’< ã&ª‚qê•‹\Ð… ¸ Q‚×ÕßÂdÑ„•#ßó.¢"]Eɪ'Cœí$jêÙ°GÁ0 f¤E©»g=5*|ĸ „ñ¬´êb‹à&Z¦ˆºö€3äbg¼“6Ât=D}Þäµ¶5 ð*Ž’ELNå`Þ‰0Ïc¡¡~JÃç¬ ªPip ê‹yÏÒp¹ŒææÍïþ n£8©¶7‡D!ÂÔìí.ß$¢  ïû]˜8âG¸+¶"]FÙ£ˆµ8Z!` .ëùçòPÖÀûE<•0¯Òhõ˜Ÿè]±^‹Æ°ä€4]ÒÒ·(É; u=È5ZÏÜ@üq8±IÃd%ì™h‰Sµ˜qÜþ… t¾J7OI£íÈà ök‘nca’ßméPM0}ˆ¦ÜéOåMa<ô:Jç±8K0‰Ã,‹æÆ±@'öëŽÕ ŽÇÄVý¼‹¨X·Jæµàjs¬Ã§ýuYƒÞÄÝ –ö¡ßÜFÓcP œªRæ ŸºJûdW1dÿ5 ×NÄaìEv¼Ç9P(iR°ËÀsö„žÝAª1®‹9@âz'Úñ!ŽFHÐ%'r¢‚*D×.úÅjÖbßP x”Õ5RGÚÌVû|ÒÌÕõó<6uM[‡a{y*y¹È¡î)…éau<6iO2¨)yßU9S\k"ú¥Ae=€.…µÁ)ҵꈇ|¶—m:Q2(ˆ3<«÷à&ðqøPÐáü÷¿ER›xaëàÓ<¡ûÝ•¤îîuh/Ú¶%Â>˜ ÛÆt@P»+’Lä6<Ò(½18ýƒAÅ!ìoQÞ )ðN}Ø »@i•Xo\(»§xÉB?¡Úíá¸â;$¦üäï“ØALTG/LbÞf^¬¡7 ó"=—_B éò½XO5;“;­íHÍ¥4VȽןäËT„=Ä¢ë"rDôPÖpº×\Ö°U ë,a½¡üjƒ=4È_y[‡„(Ø&;¹©pòñ^Ñõ‚µU÷ýz讌6J-:ä] ÖN»üû€­cX]ÀŠéyLãÕA¥‘´W{/˜[Ëh]ë*š½¦Š®llUò«Hà®sÓ›Éà=Ô8´½®öi?¾ÍwHçi[¦`Ùâß ŸšÊ“vûª F8y¼A•N#ƒÐÛWèþfÞøjÝ^ÈWÛŽâqÍÂÑFõ-Lwâ\Š̆ÙT붬˰Á¥lOíÀ¹ÝvʈLÒûÏK×ÓH%¤)o`9ÝkhËzX#œ~Ó±ÛxŽèq°ÏsN ¦Îð‘|î×¹ ^©ûªÚ¢QÒ@?!ç(WO߈> ½½?8qkm¿~Rϲpf›r¥b£œ¥H'Ä·D2Í'ñÉ8‡G)ü5¯¿¤ð½óùÇ<ß¾›NDÊò0YBNGbQLÕ±»=±Ú$\‹l&aüü—H§]5Vå/ï&܆…®Lô¹Ü¼f½}/²h•@{§¿©móL¿/åº|yæá[ý*é³X^ЇîıÂ\Ì…~ù,Ä’06@«Aú¼Þn²¨Xë¿›¤Ä·Þ¶r\O´ùËr[—"èy4!Ö<ÓCQ¢ŸàëÛÇhž1 {Ö¿'[Q&oü¥@¨q®ëÕüÏëP¶³fúˆZÞ.Xšÿ—WzÚ5ÈyšÑ/E"Yó\‹R3D1ö´ú(×Ü(ûéé ” ÚÈæh¾YOµd§R(—âKh»Xviš‚B«S»;kFkVp#Àp¶äí îZ_„æ(Ì5õ0|÷œåbéoÒÞ¯o>Kcï¯l 1‰]vmòl£%3±Æ§túeƒHIkÏW -Z3xóù˜qWÏJQS£ØWst ÌUa ñË8ÛœpÛèðV=_Ý*Ô{PÞ‘zg ÂùJ–æõP–Aôåd0›ƒÞ4ćU."hièƒÛ)‰Ã>¯a¿?ô ±½:®~Û‘"Øo°k„ôÀ¯.5ñÐË¢ûå·çæ–[ë6¹Ãåi{5~ø3\C«Ñ’:Ì Èñ"g;3óÀÌLŸG¿¥aú,Ýt¬d’K_•ñƒ‚ȈA[^Z“¾ƒ­Úú¹Z¥BZ}X@’ûþ}lXßßÃ{Ë…z¬¼Ju¿ Rôb¨p'áJŠ`¡LÙz@FùTIÜ|U`%½Šfõù¿ ªbØ@vä×)?¸oXAY•AÈ:üó!©ƒ ó<5+/ôÈXÍ·ÁÈ7O©Y$jÁކ5y”ÇBÏ,åð/ýØ'Øn`ý–òaöæÿ¤ÙM_ endstream endobj 1332 0 obj << /Length 1603 /Filter /FlateDecode >> stream xÚ½YIÛ6¾ûW>ÙhÄp_Šö4ÉE¤9L¦ÅfÍÒ‡"]¯Å÷#BG1ÑHjÿõU¶ÓOÑRûÌT…»Mž®æ~XŒÉèÞúñ,S1úêÌdÁXz4ß½–¬f~Û/ HÁ/‡³ìeºrW.Ò¸rÇLÉѵµ•¦ðC:ÊæÑvøþª5Ô%È@PñRÒº`qNܹ®ÅfF!Âä6f>¯«ø˜¥`y[Ø}äda˜ ŸgAQ¢ÅT"¾uÃ_y2·î{ìÎ0)Bw6¥ƒÓ°’h ŒG¿úËðåbc‡ÏüMñã¡ötÍlfgñÞíœQ)C†„¤ðæéÄ¡G°5ÜYúµîÛ,YÍmìàý?¯Ò¯6s1ÙÀöÈ/:tÉ h¨›%°æ®évÉVÒŽøRjÝÆ×»²êTê¹pZ%K‹‚ï¡ ")ð¤ óß}¤TÔX¹t©[EÒäÞÒ/ñUfíÊ_ïŸU;”šºz…wiñÌ¿Pr$0ÛQz¿8à?Òù}Ñ„)¢Zô‡ô/ƒŠ…Bƨ0ß[™¨AZë#LDŸcj7!1@ýJ?5âp¤¥éôÞÎãÈ`Õß@ï6Ùâ]1r‚©³õ·VÍNæ¶ç¹,¦0]K†R‰çã÷C’-×"†ùiOls~ Ž”á§æB|µ^4úSœÐýáÊøjE)uBîCµbqS±nÄE-·‡¿-’•§Mþ™M:5Ѱ¶ÐìbôÖ81€ÏÅøñ¾pµÍôÐßHD”³(ƒ"Ä/™¹g»æ&l|œ8ûƧ©þa‰'&ï¾-è'˜"B:.f <S×Ë«+8=u °ÄFŸ¦COì°Ýï Lÿy2óÄvÅNnÍÕ3ö“lXçb}†‹Ë*݇€‚è éx½Y嶈ᒥù¶eãlÂ@è¤=>W4NŠåDûá>-zÙŽƒ4ò,ãõ¦`à,ºÃÞQ†¶fÉ dn}!OÏ•þ e0ð3R¦¢¨x†0‘ÿO4,Dz™úuÂ4:±Ë›%Å&{šl…¢€S²«Ú…acQƒº#øù½EÜÖ´@‹@ÔQð.`ˆƒ§¹j]`ýbHXDƒ#þo:ƃ;sèlG·ÙÿW‡Áªsf*3´ÃX°Àä‚Àòø­Q@(ä§—ycËÑâ“>Õ˜C5üXþ(sd«ƒ@ñâÌ<•^ÇØ`ÁÆ1;£-kQñ ¼Lѝ–rVgÙoƒ¹3n„•{™ço·¹ÏŸù¡M‹{›5ˆ J‘®Í´ã©¿n†*¯´éèõ.\P×J"f’”[ÁBýíõÂoôWû¢Õ~wžÛªi,Ö Zi SGÏ–êjäF‡jÕ÷l©Æˆknܺã¿&[äë3ŽDÞ–>‡öKïNƒ3[©îô`¢jg·| AvçwªÓ» ¶Ëþe…ó`?$4Ýüýè9âµ£~ü1s&µ6¤ê z~xÒ÷èà§NÀ¤#qíDàõ÷d «¯¼ÿ9DÉw1¦ ƪ%ÿ"ý”%Ùw”1, ’‡§+`/RÑ~÷G¿Äþ 5Æ}…« R]v5/îƒó*!¡²Qšf5È/Yá0×›ÂfnPQþ]áTÍÿ*%o£ÚêUŒîg¾7éíÒæw³¤Hnn†•¿†··pS:-ÞBùÿjîím£k^Oÿd·0 endstream endobj 1344 0 obj << /Length 1091 /Filter /FlateDecode >> stream xÚVKoÛ8¾ûWéEÖ ©·Ší!‹&ö°í6î)-Æ¢m¡zU¤Ú‹ýï;áÉvŠva‘óúæE2gï0çÍêÍêò& ÜÏ“ q6;‡3æ‡Q⤠óã0p6…sçjñPI1Ü«ƒèä}'*ïÓæÏË›0š FŒûiZD‘eŬ˛ t2àM"ä]‡YˆÌë EyÙµ½·Žs?²˜FÔ’6ʆVÜQöTjmhŽ:þM+©³æÌÏãœ4oÛŠ8~_Ó:á‘_î÷½(JÙh„5³lU3`Á…ýF’Ü®•löú@ô+{Lî léCY‹=*e½Õ09õjú~NV—º2²µCa…fÎÁõôÿšL\oV_V43‡OINÂÈ`ÝÖ«»OÌ)àŒûaž9ß kíDÒ œʹ]ý=eôx5•,* œH"î$<ñ9K~PI³2‰Ò…†ÀÏ3>ÖÔÆË—ä½u3÷•ù΢k«‚v0^E©¶½¦®ÔSŒž‰ ýœ¥¿ ƒ8<×;qúf ½~-Á‡²ÓeÛ,°>a^´Ç®à~˜E$>ÃØ-ð JD=<’b?5žö ×’ï߬œ;ó1ñ¡ØÍ½ ¾mæ9’5ºÅÆÅå{ÖÿS<Ë*8ÂsR³~^ö\r'†J_ئ¹Ø•U%‹é³ëÛ®í1¶êbÞ}ωɋ«ÞãÌÝ54¾ú!¬çàXE£çË*^d4M ˆƒ±ˆßy> stream xÚÍZßo¹~×_Á—wᒜᯃq…χôôŠƒ“½yP¤µ#t£5$¹Iî¯ï7ÔÊ?åx%­Ú>ØžåÉCÎ73\[“ƒ2Ê™¤8(ë¼WÙÉߨ,%ð+1&åÈ@AEiqŠs–§:B •¬A`•£(G4[hs" hd €‰K?ü¢,E—ÙB×bdNQ9 žH^¢ÝGéÑc‚ˆ½rÆËhô?Á1K2>¢-y™4bØl "¼Èe­3ç²Úäa²Lã\°˜!Á*,ƒºd•ópr ðeíXžëbårÑNÆÈzÑŒG/g 䢟Y–Õ¤ )eÌñÖ‘ Ã"¨Lè¶u2)pÁÊ.“"¶²œŒ·J¯ÈÛ2+Ú¼b\ ‚L-¥dƒLLÙ—6l°IEÊŠ“-ñŠ)Én,„©Û!f!‹‚w°‹CG/[€%áŒÈþ  A-ÙG—£œ²2¶ìÖ®¼mFyç¤ÍZåIlMxô¾Ì½öQ6‹,)Ÿ¹´± ÖÂNd½ ný6«Àb1‚eƒà„dqøœÌ‹ík¤0cX#ņb"èÅr¬¡²-}ƒŠ&Ê:°Ü踌’T,ûN.+t=†ZD{–w1Š#8SV‹INWÌV¦'©LEA%cdø@2\z$H¹ôÈp.= $9X„3’d£!¡ô€Jò8#â)2Ô,ŽGŠøåd†Ditr2ª~VðJ†?Ÿ«ê¿ÿSYc4N ¡Õ¨æ7Mó~ôãCj;ou ¶§¶ÍËë©Í¬Mz4öëv¾R''ªz [ }”n¯IœÃvN|Æu,gôVMÞ˜ò€ñªßíäm½RªúíçתzWY©Û©Þ}½®ñb|Uª3L[ÏWK!Ž(ýGÕy½lo“z¹&“Òök=j¿¨ ™Äg¯åè&†‘ò{Ì7^`áÕ¼Ö?Ï[ z±æSUø´h#p'tëx„° 2ªÞÞ|X•ç¿ÎæÿU?µ‹i½(8Ìûê—êMuva˃@Ÿ`Ñ Y-üöÖàK:ÃC`“‡Öi±ó[Uý¥}×*ìÓwç—s½œŒ›ZŸß4úrÖ4EX¶Íx1û£ž~/V"Æ!¤ÈÚßM:#`PbLpÍl^Ë”k€«ñj<8ê&Ÿ4#Àq:g)d€NâÛÔ¯ì-vA³D©  'Äc#Ä´qúäØu ,ë«NONÊÕéd5kçÕÛêïçoä绫ÕõUõùóç5$=i?UëæZO®f^N>ÖŸêå÷{Ãì¶®®ßm)’ ‡8ÌÂ/!ÜñKÎ…^@åZ8õ)ÝWÞQd9‰¾§6ÒÀÞ=µÙé€PØOÛ3i·•D׿uìkd:õ^$›¨SïE"ŠêÐ{svÓFê¥mèkG0`è‹Û¦¤%è©Í!äÏD¸Aía¸»‹cχ»½#\ O#\âƒ#\Ì]Kf#ذ‰y‰†ŒpHžtIvAÔ©?Rr 5'׃¨—Çlj!Hÿ´Áf!…Ó’RPðZ ÇQ£¤yÚÜ6ˆ´Aº!>*¹qÅ&†Tg5K‚A…‚Ð*†D]tØŽäêêºiWZÄ#xJÏl%õSÖ Y6JPü}Þ"—íb5»üzHñúäwˆ;÷•_Ž;Û´ ÉòQ´}&M꫱Mè©ÌÙiT¯}µá:’EÛ€1b_sƒ5õ6 j?|î©í¢ÑƇݫŸ£Æ¤ºObƒÿ‡Æ†ºãFH!8à¨V>! ló&ƒ`ÐJ!û|îþ¡Œ<$÷"–K6âGÉG¨#<èGõY Íøk½¾ÆBÝàä' 8¢æü|lD,äÿ¡ýòMî}¹"p3y/÷kÚDT0pÕ(ÜÏ:Çý*‚ÕøCSo–íåê3Ž[© ÕrUÖ›“(ßq›Ñ~Û¥ÇVmJ  H}µ‘nš#i;T%im×FU’ë©mR‰ÇÅ@ŸTöC=à®!èʦ§teát%W›…œäf³ºTVî5»–[6o„oÝãô®¤ Û)׿„|‰P¸åàvö™Ï–âÑsä/S]OoªIÛ´‹Wó1jèj<7_ÿ¨ÕÁE?±ÀKJÒ+~}sb÷½›hçõrR\{Ù̦zÖ~º>­ÿäŒ3È`¯§—ûf‹DT>rØ\ÊÕÍm Áç `àËYÄÎX÷êLlý7˜ú×vZ7ËWg¿¼9 üÆÚÖur•›Ë-¼@§ÿ—Ø÷¸cC²ä\)ñ™‚¤C`êlúܱÉI¾Yñj1žÎàÌ®ÓN.¶°R9]L;¸þ}å»ëcÖý¾Úÿ †kF endstream endobj 1360 0 obj << /Length 860 /Filter /FlateDecode >> stream xÚåV[oÓ0~ﯰÆXo¹!xØÆ@š¬<*^ꤑr#IÙÆ¿ã8éâ¶t6ñ€¦É®|nßçã/‡ ôzt2=}Å pà2M#D Á\¸Ès v8CÓ9ú8vÙáçéùÓW‚,¹ëbî ˆÓÚ4 •©Y(ÓPÛŽH—ál:ú:¢°%ˆÞg {ÄAa6úø™ 9ž#8 |tÕšfHPŠ=ÈGPŠ.FïVñÖ×ÖE)Á® `'ƒê.e­¬ê’g¹2ø´‡4ÕN‡æñIï¹Ì\ñ;x ó| ó.0/5%¼TuX%e“¹Uø-ûö|4¡ö¾ N²$••ùÑݺèNç*:¤d,—iÓ™«¦Iò¸6¿ŠhÍþ‹¦ò±Ù¿7K\Ér‘„56½ba›èÂX€]¨¶-ìC-cµÑ&Bûv{„býb?‡èuV'ß¡J‡ñ ³P÷ÈlÚãH7–ÁÁ8Ó}ê>®4Mñ2SySï¬ÿŽºo+µûѺNÏ…vd};¶ÝÛRyM›¬´“.Ä„z˜xt»£á¯²›žéã¬s¢M=äïBuAŽÓºø“Ž~ ^­š1Sõ³. üaU1ê·ï7ÈpÌoM°R%ó],8{Ó;íŸM ¥Ä$‹Še>—yw€KèfdvÆ^åÍðÄýÀ+A^v¤ûœÝ®ºH“ùz2«û8§˜Ã7Æ´ŸcœÏ®eV¦ªÞ_y|ˆÊÞw¢è™XirYÉêFËÎA—iѰ•Œ€ÿ„Q€Ok[y>1«1מYʪnÝÚ“'*²YY$yk$•¶ ×–f]5¨ÙR–•qË,‚O¬ .”Lpঌ°H‹eeÙG2lŠJ‡•Ô+íÿ­‚ÀL5³+xmúCf+¤“m‰JËÙÖè!GCŸGÆøt!ó¸Óïo2]Âeµ{ý Òk×d+ïžá¶xŶ°_B€ƒ^ý×ÎôÓèÏ€œÊKÛ Róþ\kÞ†ÿ”}àoŸ$¸^¸xØÉˆS‡íœÛöžŒN{Ï­x˜Ï0 îi2bÂÇÜùËÉH<ÌdôÔ@½™3þD ‡ì´»p!«æŸ Gúnw Gä®á¨–yýŸ H:m0/æ'›&< endstream endobj 1382 0 obj << /Length 938 /Filter /FlateDecode >> stream xÚÍVYoÛF~ׯXøIBÃõ^¼Š4ˆÓÚÚAjõ¥I`¬¨E”—I ¶ûÐßžÙƒ²(ÑŠºAaÈ»äÎ7×Î|‚RDÐÛÉ›ùäôBpã8`š¯%s 0 Øç Í—èã´[«B]%¹’åìóü×Ó .v ‚PF ÏÈ\‹Lˆ³²»ê='ì±P¿³ó[YÔ¹jÀ‡ÖÓ ÆQà@App«+Ïlî>Ÿœ¤iW;ªuÞcÇ4´²õÌó ™¾ôìjÅ5²èÙ´fN~0hư ˜#8öc«"UUqUWYipRi¹µ¨ŸìrÓ½°›»Áë¢NÝû¤Ê«M38\ɤ«­+UR¯´ÿí:D†¾HuW7¬5ðYìÊ›ÅÝ£Ì-±M‹7Y=@¶$xÚâ÷ü¸þ¤µ]ËZýÇY‘JޝGrlÜ>ÀOÎç“ë cÑm“úÇ"òQRL>~&h ‡àæq„nŒh…~ƒ'(G—“¶•a6`ð4ùÂDZˆF™`§+E8À2G´ç„Ÿ¼Ç|¨†…º"ì³Qx$BÎÁýø)šHø§‰8Æ"v¤ó‹j“&«»¬*Gygä ÏÄ8ê¯Î…Äià Üîm8f{“uk»++»Ö²T¹Ý.dòWÚT›r ÕÊ9›.rxcÏämÖÚ]ž•Ême¹tÖ5£¾®zË'BXîtö<¢÷«Êm’µlœo*WÞ¶b}߆R¨²k±#öYë [ýú&]¡Ûtû‹Ç»Ôkm­4ÓÈ®Û/š‡„>Å,mäÑ …« cÿyŒÕ²9šI#ΞÇT[åÙòè„ËY€9¨Tß÷qG¦¸‡f1G°ßynÕ¡…Ǿ‡F¬èÛF2£¼-ªª[›ÐÐ×rø%É‹“~l~„.ÎÞ]ž?näë¿f÷3ßH õhÀìóAˆSw endstream endobj 1399 0 obj << /Length 1396 /Filter /FlateDecode >> stream xÚ­WÝoÛ6÷_!äÉ*†¤¾ C·¦]‹Ã·/IÐ2ms•%O’›¤ýŽäI1eÅYÚÁ:“ÇãÝï>I½µG½w“_ç“ó·Aèe$‹yìÍW£”aì%1%QÀ½ùÒ»žÆáìóüÃùÛ08à BFÂ(9†§ÝÈ­¼•yUV[Õ´úÀ„â5óÉ?$õØã œ‘ μ|;¹þL½%l~ð`+K½;úõBÆH—R¯ð®&õò†_c?TŽ1Jây HòçUãç<'YÊ:ãÖ3F§ë]Qµ3ŸGtšWEU[ÒµäB4riɪìw-qáÜ: Hœ1ÂÁÚbýŒø/ŽBBc«ýÙäµÚµ ´:´ùÑv7RÏçŸ=üúÈÌv#±ÛÕÕ½ÚŠV6{›ö¡@²Zaô8G1I³ßù(L½¢Œ„Yo9÷y’ Mb£vf`ØKp.õQ„Ï´)üànÄ÷‡n_i(ÆäœÐ…ÜáQï@çÉ´¨Ö*·{ÃjÁ åÂ^­ß¼jJĽÂÒP¨R6¿œT¬“åhÖ…ú@­¿D­7¢þ¢Á‘uWªó/ëºÚ—ËCÜÀ´Òd-g,š®¡j~‡Ö]ðÿÖï±r:÷e„ñ¨/œ-cr€ ™^Y{ö]Àh݆0 ,:¦žÛT‰!ûhõe1tô,p«ïÙ U4O4ž9Ò­"fAg¥Úî i«€Ï2lEšhZQ.E½´ÿÅ^5ßb`BÏmñ¤*¢vµ*Û‘nÆãèÐigšÿT;óõ%‰[4AU ILϯ)$/m:j/ubI^m!Ö5FYêçh# #š``žSa?_g<šŠZ S…’pz§ÚÃâÍ,d—^À&LîÁZ¡Ö›Ö’™@é¶drR Ä>Åì–v˜o{*8h;i]­ZYöñŒ‹‹‡¦0Ž¤á‹æ‘˜÷I¶€¬~Þsïj±Û¨Ü ·©1ê?0)ÌÜFñ±éš üHj®@òò8›’F})i àÈ[3·>1“ý ÷º• šF èâ P2õÝPdæ4Bü`ñÞ~° Õlª}±´ô™–ªÙâAâ²™­@MÄÓÖ6˜€ Œz‰éb¾oÔR’ïâߪGϹ7|t/„OcÏœ½Ÿÿf©?W:ôo(å¹*…]»Ò#‘%P-ب U[b­ã¡Ñ¨E‘.÷fñ¡Ú[b#fœB‚AB…EžËŵ~­ ð]ÈãÌÈ08¡L¹(E^áŽÅIþ¸Æ'PçÒ´EÞ·µ0 T儺Àñ>©v·0‰kc¡Ÿ}š1Æ !/E)ÎP ö©ªÂ”mö‹¦Uí¾•ãb!bÜm<ŸfŸŠb/_ðæéGý×Pµø[æmÿޱ¿B4ÍÏC€ŒEÌy&¿ ïÀ²ôô›‡ÁTL9s¿”+uX:•%Ì3c±{¡~ÕöáÎ#WÀSÎŒïãÞá¥ÃŒ|Ù%W;%qœÓegLL ŽS[[dÎùƒ(÷¢Æ1ˆá"§ÐOþO}¡B*öɳiÛÝOççwwwÄéççYìÎÅ¢Ú·¾~A’žôßÅ|ò/Æ s endstream endobj 1411 0 obj << /Length 1062 /Filter /FlateDecode >> stream xÚ½VIÛ6¾ûWîÅF# I-¶Šæ¦ž EÑ%ã´‡40h™–‰j+I=9ô·÷Q$I±“NÒƒŸ©·~oáC^î!ïÅä›õäæ6 ½4H’x뽇 Â(ñ âxë÷z¦¬d6Çñì”±bþfýýÍmõÄ"„ƒÅtvüI¬Y&ÈZÞ¾ ß2ûd¡ïŒÈêD˦`r xí¼¹%¡·á$ê|]8·±ÑUð­ âáw£iž7E­È~`­ä}‚ƒd:ÞfîÇ;öÍiصd©2*d'Ö}ù²“&$ˆpæPÆ©Q‘³ºÜ45¯:9Ê´:©§æ8ª'†x\—Mnﳺ¨[1ø¸§™ª…Ö•3ªOìþû¡¡/ ÄÔæ(h£ÿ¢åGø¿0ßVY]Õ%—ÊülZ% uòé‰[º [VXº®Ì •aÁóƒò´Ú™ß’ïØ%ƒ2£ÛÖ…=ÜËŨ6VÕN3÷kÉ NVëÉŸ ± Ÿ’€–0ö²ròú òvð Âté;ÖÒ‹0ì°µ ¯ðî&¿\]ºí† ¶-5Dq€¢Å`»q›MoËŽ¾, Ò%v;N>Ç0¨ô¶0÷IlA7¤{gHý¤uga/V™ŽÔ²ò@h8£åc€è/­s8M‚²»Ö·Lf‚7݃{iÝívz½" &´x­m¤Ä<[„à™`MÁçx–QÅÌM·h–6×­©²®¤ú¥·ê@•á>j0©t×VÔ€FÌ{à÷ž‚NÆ! ß³*˜û!ØÏøÍ}Åæ$žÝ뽕‰sß@SƱ ¥•ÌeK­ëi¦»r”Ry¨[—­½Ëêr /¸½=ru8‹YXá/Xz"÷ùòŸ"‰NPºpU5l·÷J8ú­7N"Æg]Z‹°îkµìâ!d6Æ8‰-W’æìŸoâ×K¥×Zç)$ù[6xÐ0yâûó.‚SËpeÁY¿|µ:•±‡Ð[Ñ_ö endstream endobj 1422 0 obj << /Length 975 /Filter /FlateDecode >> stream xÚåVÝoÛ6÷_Ad/V1$õ=l(R4Ù0l(ºº}É ƒ‘)E%¹”Ü$}èß^~I–TÙH` ƒ´ÉûÝÝïîx‡@øuõb½:¿òÂ4"Xç#ý q„`è°Þ‚k'ŠÜ÷ëßϯtÓ$˜H}§»eÛ0‡Î}Æø¦f. ;%¸BVÔ5FðzÄêOt!\Œœb_±ºk'âóõüŠŒáp<œÀ(187´e›¶üÌæ&ŒÝ#˜&ƒJÄõHˆœ¼©;³[@˜hõ,„‡C˜Ltç´*ùÃӴ犋%œ6Äî¶åg DùD\K¶Iìð¦(3s6OŒaâÞ,èz¾4â·œ¶ŒÞ—­Ùñ²fís 41 “T#y$‚Aê¼wnJÊ÷l1¶s[¦1½¨ÊææË,EMn֌ӶÏù  Òlÿú†³8€øà¤ÎÞOÎß(Dò‹8ò˜Ä†}!"3ßß0á Þ6ß㜀WÒPa ´É6CÙýôx£yõÚÊ=]µê‰ˆÈÔ±Ë{Zí8;]¯“ìM$` >Æ2ÆÁâå âA±V;Þt䬃”÷†)¶ ñƒë…9È4;ZoͦÍh×)®ÔbvYÃÑöPÁ4´ÔîÌ…Ÿ=³ÍʈªË¨hµúäG-M p4…(XSmvMYk9Ê”º7R¿˜å®{f6“¿«]ñì`à^LsšuPX£jÅýwlPïŽeF ±ns'èN ~¡Õ@¡·dú®‡ÒË(†"ŸKr9ÛSg׎éý&š&Áèy^r~Ðr> stream xÚÕWKÛ6¾ûW¾DBcš/QRÐÚd7@Ðé®sJC–)Y¨^•äz·‡üöÖZ^9H²-Ф©™áðûær±“9Øy=ûi5[^sæD(T8«Ô!#Æ…Œ|FÕÖùàö;YÊu*=ê»ïãêÍòšñ'Ž Bˆ¨­E LfØî¶§,¬ñ‚j͸\ÝÅeSÈnäxi\^Sæ„à,¸Îb‘…˜›XE¾iãöþ7ìãy–5EÝÓ9ü *6ø/(A Œmã-|ŒÝïf4æÊ³ì“¸í´›þòö¦q"`;Œ"?2!2Y—ë¦Î+íKå„ïŒ×f8ôÏÍä~´\6™]Oê¢Þ·£iœôu«be2V#9þ&„ǹ€“ìׇ6n”㧸ν˜J½9†Òƒ!YÞ%²XWò "œn§‡.‰ ¹6éN˜*ö®V³?f2êI(‚„p’röá#v¶ð’G, ƒ6-N , ±S8·³_/²¯K–ŽJÎ$8qÖyÅÎJ‘#GŠ¢ëv¥|¼õ±»‰;¹5Óº2ãµø®ô(à™Ç ³<ת5`+lÌÚÍ^•²ž¦uk&ﻼÊÌô%ÀgWsüå.nûn~@?Œ¡äkÔ@±)mû¾pd%ðJvI›7}RߙԵÚ"DÑ4ÁÐ`ªA\Ñ`Z LãÊi0Â×+i[—Æñ¶—ÍNVfùÚ4žgžï»i?#)纕XowõÁ8þbw·ip÷í¾ÜH ãŒÎQòèfÈ(>Ò«¥ÄX€BBè$¾0ÖßÌ9²‰Œz¤B™ÊÂFßÅ™üòæøˆ®ðLJ±Š®u—ÿ%G}‡PÛ“ôç4.óbܵæC3½˜´­¬5ÐÙ¾”UÿùÎ>ôPc™žÝ+§ä´<Ô€r9²Qõf6a´í†Xrº·…áI»§ Œ!Î9v7[Ÿâw#SU«¡+«äÂÕ8-N˶•'|8eR¼HÿCã–¼ endstream endobj 1352 0 obj << /Type /ObjStm /N 100 /First 970 /Length 2010 /Filter /FlateDecode >> stream xÚÍYÛn7}×Wð±y—’C²0 ¤-ÒhÂI¶F`ÈòÚYTÑ º4Éß÷ u‰/rLÅR[À—Ùݳäá<3õÎe”už~ð?ªLò?áüú¬lò0‚Qä ”EÁ†¬\rb8Ð ¯8›Œ ’p`•Sy•µ””Oh•¢¼ÆlRT,0úö¶\á¯#¤ ŸÐ>ãAÈx`¤]FäqÅ©¼€[Ñ•ÐWŒ2 –aP.“\º„þsI ŠVÃÅ%Q"t#Ú,­  ¸„•1t›1I(Š(›ò*Hdx€à;gŒ Žs¦ø>p¦xþ¢‡aßÂ'nå\4ìVÞMF9G⢌§ž¤‹Œ{\:ËVu±H¹\xf§¼Éå ¯<‘G9(/Ã…˜)F|$RÂßG8‹aDVÖ>a^aYA±ð4+–¼£X^ãÝV€•ʬÜ+]EXâ]™Ê@2㬃·à‚!ˆÿ½%·`a1ØðÑhˆá-zˆ¹´‘UH2Ï~ +N–[S‰ŠÉ ;¬)v…æŠÉPH1˪ñäG+¯b9p ]PPœŒ8€Ð\’5ï Í%¸À‹³// Ýœ¤Ê*'/`Ö¢‰ò‚³*Za6¢å <%+]8VX“¯E_|Œ¡DNâTÜÊeØX„q50‡.ÄÙ„õŸàkÁXe\ “Н=vc‚¯''ƒæ{u†íé°¡OUóûb{-[žÔ2YŽÇoß|óÚfÐnÚ³×ÖT£MÒ²Ëëгƶ­E“Óþ.ï—ýd¡NNTó¯Èv(¯½tØ™pâêKBTmuôq “'¦\ ½æ×Y?zÕ.Ô™j~ýþ¥j^·jÛÕëÓ†×í ùݶ“Å\¤§¼?hNÛy¿œÚùJ„ʽ_ÚËnømÿA KZËæOÞê”ß ¿á Þ®ð/&“ž­DWhÑ]acðƈŸð42h^-/åúçnò× ù¶Ÿ]¶³Âüi~l~j¾;³åB¨0hY³÷ŽØräœ.R“œ†Ú÷¢xú•j~è_÷ 3õÕéÕD/Þ¶ïZ}ºëѸNž‰+Bˆkà !¨©6êzBWýrr9\týYA´µA¨Ú²ŠQ§"±µ¬ºëÙðã %ƒýl·„ mZ´°žÐt8;H¦f,Ú-˶­§3ïÇÝåMBE ©[Iȹ(BŒPö}ý¸ Þ肢Πt 4c°’RT¢¥m}:`”ll-ÚDmwªû.´QGKÚY¬4hæ1ЈÃÚ!FV¢ÑvFP‡¶lupŽ[±âV9nàHt?p$óäÀ7a"nÂDŒ#mŒ|ŒÀÌiI†­%磀ðn\ÅŽ¿ÎÛCÆ «%­ÝðA>®¤zÕ|Ž7,k“ü'VŒ„,²žÕ¡ã²FT+>¨(4 ¿j>‡ 4£nÜÒI¤e£W³Ù5’Ý#jÜoã€÷:P¨DvʼnGA[,k_ËÛû¬9s%ÚÁ7)çZ´Cü"ªD¿¥Z&%ëtû'ù7ùaáþb­Îù¾Vçød­Îf-ÈÙn Ú›ü?oòÿ¼öÌŸQï];Í(TœŸäÚy$bQ<„‚Â3³N(¢APÉÏÖ{·lÝæÅÉIé y1=l^5¿þ$¿_½],¦_7M;ê'ý»n¾Ð£þݳäàqV”$ˆø’5D¨£eÛI¶Í´?«÷ïßë[Ìš‹q=o ¡Ó·Ýè²] »ñ³C‰&W“DœŒœ7È‘&×Î`ƒ3=¨^óÑp¼.úq?+Ö–õá´Õf̬‘ã°šÐXRz#Ò?/­’¨YgY“ÑÉTÊq›SäP-°öôŸ-´--”IAÎ8‘s9þƒSØíMk>íÚ¿ÚÙ»ádRÖY;iºÅèyuÕºÉðùe7ŸŽ‡›0ÆÖ@‡üÆÈ!IÊLØoÛñ´^ôËÅóåüÙšÓ!ô&øS)…åÇé(hNðE Z4#³¡m%Õ¶,ò9ªåí¶â΀» -A1ÛZ&>¡»LþózÇ[{/†Ê‘ïc¨œ<°–q±¥dÄ"A-çâÉ:nU ùr­äFíønF*gæÕÛéøÑŒt'šcw$´IšCªD[´tÿ¿R;”=÷—%=¹ —%[“ïk#mŒÃVßëàÎЈDyÜ‹$:÷…Áý Hd9ÃEQVNö‘Í¡Š ¸¸¢z+{¥X“öý2Ÿwĵo,K©éÿmßHøÎA¾Ç1’D.á;ªuÎ=!¡=JÛ[àÇ…dšy’­m[Ž8½¯mé!vU¢J…Hù8häZÙûJ4eYV¶’<äZ&BØ)®;ѹJâýcþqÅÕÅûâêÂ^âê=ßW·.ŽåëSJa'Q>`ЄÎËgm„?ù–ï…’ý¢ÌzÚbœÓÅ Áåu[ÒëálÑÆí¼ù»›ãþùÅrÞMÚùü¼ƒ£ÆãÚf¶äüªŸËãëóUI8½¼zBå€lî–Ð(Ÿ¬",c‘“ר·ÿÃ+ËÛñºvü¸®íB³Íå{Þ1К¹³:Ù6Ag+Ñ>„•JõjP¯? endstream endobj 1458 0 obj << /Length 1424 /Filter /FlateDecode >> stream xÚíX[oÛ6~÷¯ò$c5ËDIÃúСI±"°Ö}J‹€–i[¨n“ä:éÃ~ûII9IÓìmQäá¹|ç*cgë`çÝì÷åìü’yN„"N¹³Ü8cÄ<î#ŸQg¹v®]ο,ߟ_zl@ÉX„(PbCÓìd&o6Å>_‹&)ruc†[9ËÙß3Kì£ê#Ÿ{NœÍ®¿`g ‡ï8ŠBç I3Ç# ;©óqöWÏoüÔvСv„`Ä=â8D‡–ŽÉ7Ùì’ª¹“Év×XЂŅ¢($Ku¾ >v“¼.“jÎW®ÍÎêÎÆîkó ô•YèãÈ’ôÎ"8«E^Ÿò ž‘þ¦šìn÷™ÌÛ°yžGeíP·|pˆtÚEººbü¸)òƬ&8XR-‹ñó‡²[$~JúFaÑóCyFô¾‹[‘•©¬Ÿ!0T·[@° ¨4YU¢ºS®?ÛnU˜ÓÞpÕ&ò#C[_ÿ¶0OC®nfM,ªº !kµwkÅÇ¡iOí°ÉÊm»i±¯¬Ãˆ›¢R¼¶R¨'éþÍù/ZGeZ`빕EvSI®•_Rdss¨D©ˆÿÙ#ôšyE³Ó¦Ck;Ò쬵ª¶ÓèòÍÕÇ‹Gø×±Hå‚£šÊÏGnŸÌëÞ§‹ ÀÊÓ¥›EòÂð¿íe,ôäûíÃmìRÉw7u~™"Ú@!?`/Ó›˜Gà¦ÿ2½)Q µä®Ùâ.qåœ@éÚæºi)ºÂ®¤yæu3Ķ7•îÚprØ%ñntwN±»OÒ–e.Uû:˜3­‡ÊrJ¸+òµÙÍ‹ÆÐfRè’¦( ³µjÕÞ× c­â®Eh 7n ðq¿kV|0QÂN bðaÄ£þ¢AÍ3€0(5ªz6Òlöè2÷4;³Y䪿©U–äI&éÔ¼çûl%«–jcîÉTšN¦w×Rµ}ð 2ùF tG˜Û–ÿ¡ C£<¥¨ÍÖ½0pãJ ­%ì¡´#ÌZO*Š1n™¯“|Û‘uÜ‹¼eS ¸[öÍNtq (Ô“L»üp¯RMƒ†¶/¶•¸1x…SÈv¯cQTO—ÐØÂW‡íE(> stream xÚÕW[oÛ6~÷¯ ü2‹’ºÛC·4-‚bÃ÷©+V¦e¡ºM’‘fûí;¼H!ÙIÚdÀ`$¤s¾ïœÃs¡ÊAof?¯fg¾‡œ„,D« ¢„`ÏQx ­ÖèâߊR\gë:íN>®.Ï.<ßRñ ÅQ xJ6L¤ÈŒµá—FxÉ"ùL«\ q²dY¼*ºÚѶPlF 4Á,0¿­†P¦v?øáµDoÿX̶(8Ñ`½öôïľŽÇ Ž©?èœ>žÌÇIL]®´¼:Fø8J¾–Œ¹dyÖòÛÿЬáíÑ ú8öèóPuu‘¯²×«Ù_3ªPè˜ÔacJ)JËÙ‡­áå%xIŒn”h‰| ù AP®f¿ßËDbWŽc¥‡>E!TN 1œª+~äè2;3VRKçóMÞoõîM]ŸP²È óæ\bªÝ/[Þöz»¾+zM6?Æa<%ÊWoªK„4„C4Ux.º´Í›>¯«¯)bËé./ó‚]•=ú(!ýÔŠºþ¬wõF¯©Œˆ‰N^ñsb‡M+sÚ“4ŠA’ÄÆ¨÷ÏĤ7÷½s³aÏ;+þ$‘æºËÿ{B?é…²S½Q¯7¢pëÌ;^us G§šóU«fWŠªïŽ:ñ€ñwÖ©ç(´ëRµPëM]õñÞCph—b Y@þÝq›P|»Nšg?v‰î*Nü^áeSˆîñç`è!Œ!„¡Æ*òO-ooåÙϳ¬)êžçúKFq:J¶Ñ‡ýãR¯Z\j–}ÊÛN©©7ß+mIÁIh„LÔåuSç•RãBåÜ'•nz“kn†•Mfž§uQïZç冧}ÝJ¬Lp¹ÒáoÛC\[@Iô×7-o¤â?¼Ý^NXÞ HjÙ«›I-]Ê ¡`i»'u°ÿy0¼#hY/:<á€:3`›>a¼Í3§ÁÂêcº?ö‹ÁJŸ©¯³8Æ~à=w_—e¹6ºÚëê2Çï:¶âÁ‘2\^Ìöþe€RCÙqS1»¼:z͈F­éI0ìyዎƒmúͳÀuýmáê+è¹¹ÌÕõJÙã!Ðk‚@2_óöó®ÊS®ÚÑÀ™©šr}ÿîݡɣnóž«ÿ÷ôa/:}ž4õÙ>š}5TÔ]1XŸFîj§¿sÎ.âÔT„Éøð–8ücrlȃ+~˜ì¹¶å§Óæ É<…ä««êÆP§)<'–À-š%{ÉbªæÑGu.šV¤¼ëÉú€>ÿ/Œ½¿ endstream endobj 1485 0 obj << /Length 1109 /Filter /FlateDecode >> stream xÚíWKÛ6¾ûW>ÙèŠ"õVÑ4)Z´’º‡" Z¢%uõ*E¯³=ä·—¤(RÒʻɩ—lÄ™o¾™!‡$´r Z?l^6ÎÏ·„nh΂x~hE!çZ‡Ìz¿‹àþÃá'çïM4½Äç0R…¤&Ç2§øQèn òÀá§F¶²²ÝH|lß‘3¡{ïH“’~f®Ÿ âOhQþªÄwÜ‚£Ø²Q¢(p ƺ¯çz½‚¢Ì‹´À”õ mk'#uëTeCì½ÀÝ ÷e:÷»êÿÛ(0 ƒž{ÈKV\NY8ê«2SÈ}{fWL‰³ À(!N{F¨óWïÈìõÏ&Nçòà òýú#®»êVºO™¨˜ƒ…¾NT ¢X *OÓÇ?a·yÞU-s·ü l³ËkÆm¤n'â‚»oìá9¨ Ëš¥˜öÒLŽ|¥H[»¶l¤&B~ƾWv7³Ïu—ßI® |rÊ$ªmÚVí…ÎôÏ8e-ð9Áâ‰ÆßŒW#ìx¥¸ªŸp­#µ×u3ãaš©0}‚ܧ¸"ÇÙTGeQ¢Æ/¡žr0l›aziÊo§N®(j4g¼Bc £U¦ÓâfŒÔ‹g˜ap¦¸&²ÈmÊþFÚ)‘)í/§žQ­ n« ŒÔÓ,”ì² „xsð’`NEH5wù¹ ²!yh1‡J6Ÿq*€!e‡öþ±Ý*¸í¯ä:H´ô^}E(ï"úõç¶ÉÚfkÜú ðÐ"‚Ób湞k¦(ÊBä}Hù A¢¤c|#ÆÀU"¯u ˜‰6ŸÌý¸Q µ¹ëÏ iÑ›8 ïfs\ÁÙPÃA+)ш€ ˜‰…/A¸Šæúƒ‹c™]¨Ed¾Æ‚Ñ0>Æ»Xœ[¢¹ÊžŽ9¾‰3˜±\¡†Œ?®“>žÎÔ.ôð 0£áëô™¤Å† 2P²nkÄL^Qh8`®ìéIj¿±nœrN"ˆ¼y«0_6 e»Ú߇¦±Úã'¦9m/‹iÎ×§|ÚÅಿßhˆr »ý²k¯¤l¾]õå?d¾Vz g%«¤«í/"ðJEüÝ¡8Wp7eJ¶/ÞÚrVfõsÐZ»ÿ¿†ÿA ¿pƒ‡k›û¹¬ªÛ[ûæõaó÷ÉS+Ò'z×@èGVZoÞ€VÆ9:ßocë*UkËçM%â‡|hUÖo›·7“òÚ0?zsŽ¡øQ-(p_ºpS[$1o?6{îÄ€ïô<×n &Ö;Ž#ß$ð3‘ò†˜Þ—D:\„¼•‹Š]Ùü$·ïIŸÒ²ceÛ¬ž»——©ñB¢ÖÛAò–!\ù•AIEÉÔÇ7¤DÜdcäcÔ'œÞ‹Öd`¸Ž=Aø½3õ³o·YOÊ(ç/îÉñ颷9|ÆuYÍ»ÄÖLÏ¥^ĘE‘ª endstream endobj 1503 0 obj << /Length 1325 /Filter /FlateDecode >> stream xÚÕW[ã4~﯈úÔ’±;³°‹Ä ‚)O˪rS76©C’2[øí_’Æ™tè,ƒZÍÚõ±Ïå;× 'wóýâÍzq÷Ž„Nê§Q9뽃òC9q„|Îzç¼_u^ñMÅj÷Ãú‡»w!= ûqÜÔÍË+ døÃÝ1sÏ\ö‚Xžé'÷‹Ñ*?UüصÖëéz÷.°TF8ñ£DóÙ²–oÚâ>Õ`¬mùiôÚÊ'®P´Ú‹c§w3,©žaáaê'ÁHôžUEyþgÂ÷ŠÏ½”hÉAä“k.ßñŽå¾b’ú {ÆØ7§Î˜rÖë©-޹eoïIÇ ¡ŒPظ]0¯)ѶI´ªK!3 ¡+ ¨\³R´¼ÑÔNè3s6çZ€¬úPPúŽAORÅÞº­v"SÕÅH¯d‡±´è¹]á2þc]!ŽÊd¢œ'óÕ@ ·L/: äΠÜÇÛ½—¦~„¢WÌp_¤cUiÓö• 3–(Œ©ÉuEíÎ¥Ù*@¥Eà¥v°H­ëŒå*Ëäfí&ðk[rvòçÊŽc?œÖ±n„Ý—­¸Òn)0v{•s³ëȸ¼FÚyñcšèÖb,øø4ƒk*Þ~u»>`H@ã‰B²ë<Ó£Tê“Ï4Û²2ãsÂ(Ø›’×Az/ëʱW[0øá×1¯†ÜyIâ'að:¢ZQ»g'«’)6VR½ýĪZv’ç¦*kÎI€cD†LŠ!“ˆæUÛ†5g¾Ë<—¥ Xöq,ëcõ› ­]BSþÚÓ«¾._V]ÆšV=S”/Ôk“‚5ôÚ”¦šEÎEµ©EqTï—Ð'ýê½<Ê‚.7g븪ss.{©±ˆ{–u¢‘¼rÎäŠû¿±BÈèbÌG¼Û> stream xÚÅXYsÛ6~ׯàø%Ò4‚‰ƒW§}H'vg2N¯(OiÆIÅšWʲÛ?ß%RC+’ÓI$’Àb÷Ãîb¸Nì¸ÎÏ“Ÿ“ËkÊœE>ñÅÆÁ®‹(óÀw‘G‰³X;¦™}\¼¹¼f´GI=Q×>Š¦ÞŠLÜ–<_‹ª¡ž¸FÆå5¡NË|Ö,›S"JCgN‚†WuÆË?]Ï…nX8ófYà̱‹"/Ò”q¬¸_-&Ÿ&¸î@ûA;«lòá£ë¬aî3Qèìeæ0ŒQÛpÔy7ù½9|*Åþv1€ðvü¶±/nšÖb‚¢·ºz5›ÏÆ3 eZÔú[qÓ¯E•ÄIÎk±Öß›jƼi‘u„úÅH6ï«q§w\qmþÄMùaØÅªÒ¾BG|ŧ…¯÷öZÈU•”uRä–Fš±ý ‡ÈõêÅVhW³ˆE­òÚ°¢1FZ2¹MJ šqñtŸÌ0èLðæáN×bÓ¨ˆïÒZ·Ê‡¹ýVäÝ z±Ë“Í£l &_èñBoT'R‰œ/Se8¼O¸†j9 |äùÔÞÒ¯Š—Ù™ÏPà-õK}6h„ñ¨ÃéðôÜ~›¬¶ÚxæÅŒxÓ½þà©,Ì[ã,÷ÍOÒ°q¼]-“uû±3†Gû¾|Ìí@'y-ªĿԬÓä®sÑr<5of¡¸‡E#ì C‘këdÀ‡õa6lP&ã1V,@”tÆ(ª^pøƒ°sÁß`ÏÅ -+±açµ¢..¢Î™Ë F}Ī)ßK‹Ñ3óù²ÁÙg¨”špºäRÜÊäo0ªîù£~`òR¿¨é Ï’ôÑ"¸<—†(/2^AD²(¼¿ÒÎØ`¡¶'n6í/ïon ¯ÍÊ–³Lùê®´‘O-‹ßŽ×3Ù°\R<Wⱕ§öܚ˭X·³ËâAØÀ®_ݼkå/|áÖâ†`¢c9 ­+PrÉ+‘×­¬´´I l»IþØ8p›,‡.¦²+µ=ìU¥rÃ.qò¨§÷°ƒGÙ9Ï:⢰ Ç͓ʊÜä»–Ô¹a1Ç íÉ6îúUÒuüásƒIûÝi8€Ü•e%¤äoå)F¿Í+¯Š]¾¦ú®LPgº(RÁóÖøg¡ßlNÇ=ª.ß›~9Šû>¤ ¿M, •^I/TÎ)p{-@U«¦öù^ì䘀€@ úî¹Å0$ˆ„þ!ÉZð5:ª9µdùÃr>]ÏPݪH‹ê`»œª<ýcoúÀ[òµxžaåsÐéÌЂkòt&V¹ŸgÌ(" [6iùXÎ%çYÄÇ<{ÏNÞsÆÿj5WÉú+O“q H>§Hòÿë²ÚÉR¿•OB^}º4É œú±ìyçXµ="t“†EZ ¥ c-Í÷=…ЭZÑ%ÀÉ{©M™ ™½ëÐŒ.—Eu:ê[cä0pv¢\“WwqÊ·òŽò ŒPЊÔhð‚ ¥ÙÉpSF[Œe!“ÏšâSì¨J¾“ÅêQ¹V·M7CͶ]’·— º€`ˆ<Äü^w§ZˆTȧêL¹Ðv Í«ž•©§w3‡ "UkPk¥WâÓ.©ƒ¹±º-!Ý ‘k_%¦éhˆûët3¤–©¥ŠèÅÁ\1(Ò±)oMþÃÜ´JhÃ'«W¼’m)®tâ>XåxVÆfÚn¦öµ-û;%›İ?¸ßEv[‡í«°1Ú²e¦þ¯¯$µ½`ä¶A«µâå5á©£Ôv´@Oéú4áŸYûj1ù³þI endstream endobj 1529 0 obj << /Length 1570 /Filter /FlateDecode >> stream xÚ­X[ã4~﯈ ­˜z“8Îe ì®Ä¶<-«â&np.$éÌ ~;DZsq›vÒÙÑh×>w>>>¦¦ñ~öÝzöꃮíëa™&ÂŽkx®‰¶ud|\Ô{–²MAËå§õ¯ÞagÀà˜ò|ÖPzXÌL%ÿÕ;>ÐºŽ ]aÏA¾…•í ’§X®ˆi.¾YÉo<¯7‰™Ö!-«;9MY%æjõ;-b5 sžJ9þV~v4¬óRЇG«ý—Ë_ #¥]ÆÊ2Q@iJÌòtSäIÖèoåj„´hE5Ÿ6BYÄÊŽuHP…”³0µ<%L‰…ËWvô1èÜTxÔ 9­ÚíεŨ¼¿Åï-=3]™6$•Ž]ÜáNX p€±Nýo¡·ëÙß3 $™†Õ¡ÒµÀxìa:ûøÉ4"Xe¾ñЦ†cÒ¦Á³_:(ž~èÛôÁ×± ×´‘i[#ÐàÚñ4N¾Õ‚µàYƽÅÃ> —YìÅOq¨X%@®œ e¹ÄÞ‚eµ\ùcK+ö•Ç¥`¦H©$¹°DL¥¬f¥$º§üÀÔò®\:d‘§ÊZøC¾QÆF;üõý©×b«yÄU°>ñ¦†;vâ¸í ÀôZ¿Ñr…m{ñS.9æl¥Ž¼ pTpˆ4àž6›Dà¼ç*=³äû]*”gØñ ;Ètì–®AX….ƒž¸Àyèpã±¼N°‡|•x`UX&Eä™¶ç=ʵLÉiçÏU9ê{.€–!">7Aß–ÉI…w9)§î—6ì‰B,,ä»–ŸÉ Øe¹ÃÕëôØ9×ëà3óˆÍG®%}/k1 ‡ôâŠjL˜C›tDwÄØ'V5~Íw4MøqL¬g#Bpoã¹T‚°ß¯ù.~Ú¸1)+XÈó´“>ß^ç^ç bvVÏiôçhüEfxRŒÓû–gõÅ}ô¦Ë Ù#¢Éè6:AS|LvMÈât;* êlß&*¥IöRfU‡—1+çŸ-G“u-ZÖuDfÑÒm#òjÔœëæ¹ÄÕÌûŒ¨¹Ä›†UºIBÎÅðy¹Í¨‹ñŸ°•g².¾1̹QØ¥ÈßhT»ÏK6')°gYôÜ ü>ßó=Kâ}ý\p jÇ9¯ÏͧC‹RZ¾„˜)÷áÓ>Õ!¿hŒw‹˜¿^BÌ#}¬Ÿ¿é½œã$9h¤P\a@¡õÛÊv•’ð·ŠÆl´;¯Ëôw‹^—u/QW‹·Ä¦JþaÚÃpPtY´ÏdžT+‰år_¬ë^Y­Cêíô¦)ÒãC ebuÕ³ëõNèo0½˜r‡À,²RéGŽF$è9B‰XYPvÙÁ@·ŠÊgi߉XtrNCÈc7Äì¦ ¯žQ™¯U)îô¥8YD9S“òSuI³ŠÓšuÄr ÌЏìÞž0_°rÇBQñ»D–ÔxQå³biÊ<:„,’+Û£œMjù}húbEYšY×>¤é$%!åÝÛK~÷yæ"øÕ("æ`Z?îäÏ4¯Ô®€fºåŠ>ÉZÁŠ­*h˜d±üÑW@=RbMS¦åI©+äŒf×””Ó•ééÍ.?d={מžÙy¦õ2î%€°ã“î‘—QVå<‰N•é÷ Üù®Ž¿·4-8«¦ß1}綢Ƒ²x²-i)ns®ó³f¦7©¿;Öžô®µeG¡]_X¿¼&v‰cÖ\r£mâ“^&0±zó E0þGS½KìéÜñ.ñÕÞïZeúžf±ÈÞ£I½—£’U¤cEžËoÛ c‘±Ô >扲C^Qƒ°Ø}ÄăB[›—,š·ýæX_zØ'5k·'‹[N¡zúüt3] ÓBß®gÿì]w endstream endobj 1447 0 obj << /Type /ObjStm /N 100 /First 969 /Length 1998 /Filter /FlateDecode >> stream xÚÍZ[o[7~ׯàcóPr†ÃËÂ(¶ð¶E(ì,°m6Š}bk×–I^7ÿ~¿¡t_䔊¥´±æHÉùòćÀÆ‚˜ñÉb áS’ñ¥èÁ°è7!qU(&V¬8“r6¡S˜LñΔ”F³ñŽX˜ÁE&bïE%Iÿ„ˆÙÈa!Nx$aCI¿ªëFŒçPHEIF}ä8‚¤ëçJ’V #"+D0]v•" Et¬ÎîJý5¢P¿Cœ•(8’΀ ˜K$Q:€é(JX e¯«VIêªÉPqA¥ ©®•0[Á¨êì‚ÖAÈIICòÌX {H©¬6ÂDÊ-©¤ÚC¹¨”œž€î?p, ,£F*L¥z˜‹žc’à8s—•›“gå– ¤T° D Ç˜” Ô ý(,bÖbN`ulÁˆ’t>¹xŸ° lS¨j¤$T E‘ »-0e ©É\t5g¤ä:•‰^·-Ð_ôØ'$1‘¼ž)Î/R¤$à =ý.CÒó±\ Ö¨ ˜_T²¼‰Â:‡E5 ÐVŒº ÆÄªEL’²ZtÎz€faÍ¢‡#>›ä*K_ éáÌ"aûú]€¤†¬Ö“Hm]È›ÔÀÚM’pØwH©Ž ŒÈ«b²óUŠ&{X²j ªözˆ û"¨zSØçP·ÅRÝü.ã‡ÑÑѨûÞ¼V÷€?Ÿ˜î_¿þÓuVçà\,a3Ó›««7£o¾ù4šJ¶çs}<›.ÍÑ‘éŽ0‡^‡kt€}¯ð ¶½z } õlAýI0_÷Ë|vvÚ/ÍkÓýòý±é^õ¿/Íf©WÞ÷øa|Ѻï°l?].ÔY³Žu'ýbv3?ë+ç¯ßý£?ŸŒ¿ýn^ëòRΝæàm.o°ÞxŽI4t­ñ/§Ó&}½ŠoJ«Æ·µPÖ‚¬öò€X;ê¾ÍÏûy]Ͻé~è~ì¾ÃNîR<Ãæ(°(ÁÒ2l Ñ̺K—dÙp§7o—˜³ûy2ýo÷ò訮н<[NfÓî´ûçÉúï«w“ÿõËËÉ|ù¡Ÿ\\.íÙìú(mcµžÑÔ)·“ôõa É9زŠ\6ŠÆh“Æ­Hîe=öSÓý}öjf`6_¼›ÚåeÝÛ“›+{1xaöÅÇŒõˆ¢…0òv>oo÷ÇÆçl¥h&ÂQ"ø mà(5P‹ÜòÚ©^‡äºñºRªÓ¥ÄVCøc½ \4‘Ø„ärtÌÎz¤•F4Ã×7¢¥8«é½MÅ8NšKBØJ‡A [Tm`T VÑ”`b­›ô1YÍOÄæ{áø^ ~*ߋڟ›Sx›=;6‹"1 ¶EÖB,ŸˆÖ»{~Š6¢ðHÞYAµA”-*(ø’·.æ–84^ôû‹DÄÞjqµáƒÈä'Ûùœ]õãé o}ú¨ Éèí„&ûÍ,ÎØÇ†<<¥¼¡÷ãù<6Åú;#…è,fW“ó' 5Ô0™‚ò˜bDÝ¡)žmÔTÓ.²CýñªŽ³Ëñ|¹ø· î§ÓÒYâÒÙ]ð&A!j5܆Æ,{4iùÑÊ[²·ÚŽ4¢QD Žo#œÙZ§æ4ûàñ‰.².Új‹Ø†ö0IÉr V£;F"ây¹-ËãÜ–ùÙ¹-¹uÞJþY]ÚP-M4̸è S°.iV s»“_.—ïÿÖu···örãïÚjtçýõ¬»šLû¯‘Ò&g/>; ­©ÆB5S¤0½!JNc…ìFu®“ååÍÛÊQ)/.û¯³wË[è½{°‹å¼ï»ëñbÙÏ»ÿ,ºf#Y;D²»à?ŽdÛÐ1¥'œ|šÐ?æ‚VG,1·¢µýÉa÷*ô 7âø‘§êµÏs=µ žZ†r´ åhÊÑ2”£e(GK„4ÃCY_0èMØKVŠÙ’Þ!¼ëu%#8LŒh¡ÓïättˆÉf$ààŠÍ™@)ÖËîäÉkÑ—ó0t…*+E°A¼ÌN¾¸vÖ±Pæ}½¸Æ'èI*ˆ‰áËÓÉd=ÚÔ$;ÐÙë­Ëº÷íº#oz/‰ K Zïµá³î½Úù¨÷q"›QG´z7»™ž5¯îÑá2NÜ D6"I´“ÚoÿE‚¨ÇéÀµofóéökwíŸhè“õ 'o“Ó—k0îPž$tÑÏ®+Ÿëñû‡‰ú⦹^¹þÃze+:f®=l#Ú‘Õ·0mhA*Ö7=mè€àœ?šµ«cnEsD0 F´z®ãV&Ä«¢þ¯õ&F||\gùðYuÖ] xÙÁ˜ï‚7‡ÆBß­åôÖƒÛ†dˆDÜŠv ¡@Ñ]:ú‹Ý¯»ìû6Ai'›~T{ë«ÔU©L4<adâ^ËiÍ_¤g™à²g,VP1JÑzöé7Q{ÍbC)DIß%–M)Dm¾”?­ÚðY—Bí|T „†R¨ÐK¡T`˜\®ÔžïÆ£â;„ûíbFª¡Ÿ(ï²ï‚7aÕ£ßàx´hœ¤Ð–mÿGb;Z¯ÙÂôÿUöðR endstream endobj 1544 0 obj << /Length 1181 /Filter /FlateDecode >> stream xÚµWMoã6½ûWîÅFW4I‰”´(²H²À"‡vã=¥AÛ´¬V²\Q‰7-úß;$%[´•ÄiQ,™œ™7_ öR{Ÿ§ƒÉMz J8åÞtåŒQr/â±€zÓ¥w?ŠÂñÃôóä& :'á Ãì˜3õZr¦Ê\TÙŸr©¸qs=ü1 bT*‰«~'-j(žÁQV#~ùtRŽâ(jÓ¸®ëíÅd"ëµØ¨Åº,7哬Т,&/Uå „xs«¶Â.ËN`¶«³Š€ls;™ó)@ç óü @„‡ÖãW%RÙ›´Ó$ºy8JâQ+þŠÖÍ3Sð5öÆ£íBè+˜í•(²üÙ906ò,]×ÎÖôË×k°L4`åÓ%¤×ÿŒþÿެSÒÍíee†ì±›Z½šã7r{ã•VŠ8Ì7m;I«Ø–X•›fÆ{,8nýÆ‚v|79úOÞW:}vÞÆ`ËÐÕòî}Fi4ÊË4[ˆ¼©†3Y@%1Ûóûø¿µ5£ÔŒÚRT¿wˆï§ÞÊÒÄsÊ{%k‘åêß0ÎÏÀ»šaÃpTˆ¥´Ò.«×Vª×™j%€dÅläJØ(­DÝü¤¤(r©”n_kaLF#Í©.EÀçGP’••[Öo=¡óy0`ŠÚ%BLh&Óo7}(BÂXså@|sÿU›2_NæŠa/s(“’‘$ê–&0—kYA¼DÑ õN·\i?žÆ”ÁV&4™ª [ewê0C ¦¯ÜþGHüjŠ“Ä 3Sí´A¯‹öN-÷« þ¡Ød¸O3ÌxL0Î|w4#MsBêâ ¡iIÐø`ìÖY.{¢‡çø¥§eÓÜ$"o5_ ÿì°5 ôüó;×™‹ø¡Cz&:à✺}ýM[¨óïÃ,jm;âÀÛ á¬y%ªgr˜š‡:W´ 蘳[{·üàÛÕךE½•2jfç{£M) wÀ(¬1‘ʲ˜mK ­'¤VÂßœ«kW7·š{ÙÛ´ù]âcål®Ä¢.+m+•B¯¤ýo½…Òæ;«z{¸;áI¤ÌÆÀ04§¥e¶ZÁÔnšS…Èš#b±ØÿjØAµY3!'Ç’>b"f6À.&ijéå⢕fKQ‹ûûá¾Ã‡ði­(øØ‡i,ýeüëbG.†mÕd|ÛÈ,=¡“"Â;ÒPGÇš‚«LÎl\m ÌÍ}ÀP̹káï¾öj re.ºn=z’úf§O¢›ËÛ»ëãðH„˜8§G_o8Ïåa<üV»'ŠË¼–ÕXüIv0¾;ËhgÓSøsc9¡ øÓè¡=¿É endstream endobj 1561 0 obj << /Length 1077 /Filter /FlateDecode >> stream xÚÍWKÛ6¾ûW>ɨ­õ`6hR4‡íº§4XÐ2-+‘(WäÖÙþúEÊ+ÙZ¯7q‹b_óø¾Ç壟&¯—“Woiˆ˜Ïâ FË "û!Qc? ´\£žÞŠJÜ©º,Ö³Ëw¯Þ†´'B1ñ“ôµg“È™`gáÍròç„À#ò¨<ˆý BY5ùð£5ì½C°ÃR´oOVˆÐ ŽaT¢ÛɯuÇß@0@°S‚Ìü0 GÄ|2 |–’ÊÒHÍA„½}¡·v$k½-dn'0ê-—vÄígųY€½Ïy3£‘Wß˵]Ïê²nZ/F¹‰Yâà÷ä´$„cQŒcæ',²p~*kŠ.j9 ᑌAXIŠ$õãtHI TmF±×ˆªž‘ÈûËüÊ.ò²´çd-¹¨+»,JP µ²{à—…jó ô´0*¾h7:ƒÄÍ–ÛBu¦±×-í·BÚ•Z–‡cvɘº)2ƒP.€:9BêÕ'‘µ™¨5.Ôk¡ŠF¬}—é}Z†È]‚™Õð»â¹%ó”Üa–Éíå§!fÅÌŠ¿Á£cïû!ÁÜÚí ¯ ·w`:u6… Aoç—Ãæ9DÄ:rÓÌöò{©sÀÎzD0¼nƒ Kb¸mAwÛ^ƒˆÀ¦–ÚŽŒÿHÅÀìÂéXÈÇ$êwü\lþç\Öö¹5üÙÐ vºs¨éî®T…ÒBf&[zµÁÚ??EMŽºáo§D…ÀeY›Ð}/aÑä@/`}§Cê§ñAú<7àœ9jb+ÐfÆ B’Aù:.]¶òmº²ç‚¶+k=zgµêß›[á¤nJUE1z߯»@ úþòD ÞždÀÿɘs´Pæ§„v2óËÑþ{bme¥àòœ±ˆBÍþZcÁÐØÆŸ”üã¨Ã+ÉuàyÞ…]ÇØŽ7Ǧ¹†Ðh¤ñ Ä½ù«])Ôåe;…1=¤aièúвX5¼y0÷ušçæ Óîâš×&€×†¸œµûæh¥3Þ(W«¹Pfm¯Ý¼ÚåFC«¥]ø®UF}šR0Žáùr—ȼmw»ºúP/zxxøè…9y!¦ûm¡Å£ó gðz ‹É9®º<áÔ7@[•PÇÐÆÛ®0ŸþË-iˆè©éÀkÍ5iKªºS W˜k×zÞ¶êÚ!´ðDñk[UûbYé'I|¯Õ{1xÎâ«õž¢î!> }¦éùæ..a'1=ÓÆ‘çÚ8Å¥êZ9‹âh?h¯ÊôÿßÓ­žèéþ›–nÌúÆp1¦çŒ.‡](.6ÿ^‚õ0`m¯†½ÀAlCÊ̼ªeÝN#³M޶I3X0ÕÑê!9§†Ë{^Nçc¿rÌénÛ^×9MÕ§éh:@møÖ¼êÑ endstream endobj 1576 0 obj << /Length 1438 /Filter /FlateDecode >> stream xÚ­WmoÛ6þî_!xjw±BR/–‹ ¶¤AtXSwûÐ-Ó½M¤ë¤öÛwäQŽ”8ÍËÃàñåŽÏÝ‘ÇGÄË<â~^ŽŽ_¡·ð1‹½åÆ£„øA{ó˜øQÀ¼åÚû8™ÇÓÏË__‡Aoe‡>رkt.Jq¡·-Ìâq[€ý¾Ö¬S›±¹D塹,Ô@±g`0UÀ˜¨ºÌ…Óc!(#Ó oš¶¾’%×nò½æšãœJ÷ Éd«d•ḞÒI.PÞ®·­PèøÀ$~%ãYÖµfnaj@ýè&@þtbðâYË›\¦¼@e½…ÃTop bÃàr v©7£Ô_D1ZäÕz:£‹xÁvÖr3e8Ðb_VØ~1£¼•õVáÀnJÉ„_»žÎ¹6Ò|RòK3#pœ;u1¥Ñ䊧»­h ¯eíæeÙÔJÉUáô>‘ˆÔBY·bî!,Ýz¿ugD[o‰ó3B?¥ Kˆ€ëVç`›Úp²Éûº8»Ï˜í¯M»O{ØO{8©j=\èbø zƒµØØèF§°1Î0À®‘Jë€S4yDQ_7ByÑKƒ¨z‚ù/&¬˜ø ÁÄC«¥.ÐRH')oL˜Ý›t#€BÙ(ÄûK`T;'ÍÚBÕNZ×FQaÄú»ån`ŽX°„À"!7{Û„ðI Ï#XwÄvJ¾(éºÑiî†r7—ÖEÝ: Ü%¿ 7fA[Ý¿lF@¸\iÕY2§ÉH²êmƒ·¼¿SÉÛ)§ea¼{Íg¦ÒÀ»ëv.Ì Q¥âp­"þZâµÐu⹩`,øF˵n^ïv;_™Óê§uyœ‹¢ñÓLþÔÚoÕÔÛHO¯xÙ÷a¼S_]Æâ°CG€n\µ¼½6×yìÎÇØÜ¿.ý ÒOÝÚf:‹ Äý0×ÍR§¼UVÍÎ|oµÍ¦sØÀZ¸b*êò¢©eeÕ¸0:ä •~Äf§P¸ —MæÆÍ Ú¶ƒÉ Ô­º5¶2ÁMK»b%¡/vp½â?¸’—h|eAÛ+<1>3•BagåÐC\P0µc|d-2æ‡4šÆ`ü§Y®±cv+VÊ7ÀÆc3~ûûÙMÒÌQ1‡S— ýïp¥böþr¬éœF¸ö¹·çÕìÿˆÔ*xêÄ&çFqìvìÁ; »GWÖU=—<^¡aDÐÔøù¸oÔMŸÒè{Áz^¸éÂMÛÿº3öŸ°·Oç¬<úƒg%yüY.G¨}èžo³yä3 Ãi9úø™xk˜à~°H¼]Zz!¼´s àÄ+¼÷£w÷tKê‡/`ŒCê±hî‡dñaç]æ/Ú±Øå4Š&VǾ¡o¹áØvNÀß#7.«›ñ7Õ% KÛûcB èSB€ß/ÁïF?é^Ø¡ÒVZõÌO K™(Û\‰5Іø²„N~ÉŸ²mcl^˜PÌÐïÄEI~ulÙŒ ³á¬÷]@*³êZ¶TO×È£Z§³œ†û@÷¥ù¤8@Æþ˜ÆÀÔÖÚŽ£É‰TMÁ¯±cmCûnË+xªÚ Å™7ð¸Òb~ih&äý·§Vu»štÇ à¢8~*” Y!íÍf­\+gj™w+µ‹.ˆŽà_ªCÒC^vo~kg^ebÓòR<@úqÒûÂ<ÀbY<÷I âÅ3ñxvxÿÕèÓ\ CÖ”RÇJìô†—²¸ÅO”hå¦ã.Z¦—j0¿<ÿpº/Ÿ·B)ùiÏSu endstream endobj 1587 0 obj << /Length 1347 /Filter /FlateDecode >> stream xÚÅXëoÛ6ÿî¿BDBc…¤^°aè#)Z ÛÚxÛ‡¬0h›–µèáêQÛûëwGRŠä(޳nè'RwÇ{üxw<›‘AŒ·£WÓÑåµë¡úÌ7¦+ƒb;®o>±=‡Ó¥qkVk‘ŠÙ¶üËú4}yí¸.¡v0mR2PdD´~í*ká1 ¦Ž¼,,J̨NEV•½Ó‡ëå5ë¹ ŠèÄY Íy)feü·8t¡ënàÛá„5îâkÌ4w/îúð·c±ÀLò(^ðdàî(uá²[nÖ¹Å%†u-/4 Íyžß•š§W®–/è /bÞ(ϵ¹W"ç3·ë8½ ü¶O f–<“¦hã1u’QùÁÌ·q’(Ê À`Ï|§ÅA™,àêA*/4-ÎÊŠ' †ŽôW;žnqüáèuQÀÀ÷Ýx‰¥*‰ç/öðYm’¼bg2j RŽHÙ t¨ŠïÇjUâx2­¼(/™‹i;õõƒZ¶•æî{ät¡13^H»èmnHGr$òt¶ÉãL<<@úÂ%t~1ÛÍqVçµôh^Ž c2UdK±œ<‹ÄLI4î#ûn[ ¹9huÿßY}Ƭ¾•(‚LK„¼Á×pìþúÆÇ;|¡¯Q•^¬ žŠ!hîBMFÖQ{â9öêhÈk»÷¨!õÚw‘¼~ùÓÍUct5}QÀ‡´é×µÉÄX¤£ÛOÄX´pbl¥dj¸Ðö˜‰‘7£’œûÃ8ë»Ôpd·ræÆNºAï$ƒY†6=ð »|¢[ÊMUXN` ¡Ç£÷²•ÖEÖôiâHÈÔ³©ó¬˜elÎÐLÌ&®í5cëQ.ŠxƒÝëYí7h‡T÷AuÓ•¯Xï¶¢§°8SýðÙj›…s’¢"¯3Ýú²ºÓæ·S%1ÉDË“Øz¤‹†ÇlFÛß™çJ¤ç¹Ûm#2 ô0"ÁÉj.T¸Ý`ŸÔ|?l™÷”ö”ô~ñ?BOežÔâT@úÿ4tÍØGsØ Û÷&Ý$þ†¿ÐÛ zmåd'~…i~ˆÃù#þøÞ.Í oã?ÃÐsì endstream endobj 1605 0 obj << /Length 1641 /Filter /FlateDecode >> stream xÚ­XYsÛ6~ׯà¨/ÔT¢x™æ!iœ6O›Ærûd<QLI‚À(~éoïâ¢H™²Õc2Áåžß.v¹Vn¹ÖO“—«ÉòuZ™“Å~l­v–çºNÆV»NøÖjk}°“töiõvù: zœA8‰—€ÉÃ)®*\Þ±=jð]ƒJ!2qµ!°Ò—]á…Ÿ¢Rñ sT”l ØS0p3µ^êÄi¬DWû‚Í~äÚ|+¬–lOÚr«ÖkMkÖ”CÁ÷ÚüsR‹ Kjù^ôû{~êdQl¢eTâ» ) ½;°Ï—áóG7ráÏS° > stream xÚ­XÛnÛ8}÷Wy©D4I‘”T`ÚíÈËvw‹E¶d‰¶ÕêâJrÒüý/R,ÇѺÞÂ")rfxxÎpdì¬켟½^ÌæïXàÄ(T8‹•C0FN(0âu™sãÞ·_o·Iá}Y\Íßlo:Ã…ØÒóÂXM™akæî›öídŸ†jÌ,¹–Òó)Çî«¢­G«÷¬ì{$`€DHDfýÝF6žObì¶›d+Û—ÖüPä4ʆi~T¦è~@\ ‡}ðiÞ¤…\åEq«-õ;~.8F‚«/OwËÇÁàµw²HªìD§ Æÿ¯Ó6M i>n{Ê/Á1âQüK÷;Ÿö ÆÑ~}KBl!(æüi]#ËRŽ·ýv1û>#Ú,´ B‚":i9»ù‚ ^^× Žœ{=µt8 ™Úgá\Ïþ|Bb¼/¸Qœ„`8RâÎP'‚ÛCBØ_GQ‘™Ï^LÝQ‹éºk¼ t¥ìLÿʣܭwM•Ø i]Ôi‚ÙuV…ÿ`޳¼MÍòNBŸè(ŽÃ( !Iü0€àXÆ$@„ZY¿‘C¾íòº:#),6j;B*¶¨@P1ˆˆÐ½Ѐ»V¶¦U&•G¸û`zY¾RÀ­d#«Î õÀAÓgWæ•1œwv`[Ô]‹æ—»]mAq/•4hÿ88,PD«ÍzùpqÄ;Q/‡Ã+QöhFf·kHÕ1[~ØŸlkY$é·ç­ °ÆÃ)k~@‚úaÄé‹L–·Ü3ÉŠ ×N˜dûÂ@¥£4bf·#ŽPTêsÚ¹I”¶‚”Rë„–WëÑÓZ½6vf÷ ¦•Ì.§êFÐ=Œˆõcùn¢lVFx€ÿ£ÌæïÕIÍ_;9ÿ `WöAªlKu¶Õ9‘ ÷í¤ÜC)y4«26 €ŠƒÇM×mÛ—óyyl›§(­Ëù’ÊàŽN;ÀgNŽÙh>mm„µyBºmLëNÅŸ¾¾$ › Dã1Ÿv²E“%¹Ö'ÅlÀ7rµRtCVS!³*úsäFåå€Änw¯Žªöm2PCºþ2ÍU?¶®ël¾L2Ø/'á9èS(b>>IŸ@ÿòt÷~ b€±ö*Šƒ öíG:]g«|˜:<ÂbœŒNo8µ[¡¦|q•dÐ^«é¾NhJœËü¡H¤ý¹©ñ• Üy„W6fN¥ µœÜ/4^\ª×Ì}q µp˜¸%4LųI:ckr-¸ò8wÛºG»ðq%+ˆCÈÌñҘ·ÁÀNC“A@N„c=Ù[tÊCÀ#û— P-ˆ \¶¹®‹~T+L·á‹¬Iªu?GU±I ®ÖÂÕM{oºBœEHÊ#4IG‹oøÆú‰×«5ÿ>y͎ꯣ…4dÆ‹q¡ñ‹þóé¿cw¶ µõOüù;Žˆÿ1a¬Ý‚¡ÉR¾…ÿ|$¶® endstream endobj 1537 0 obj << /Type /ObjStm /N 100 /First 975 /Length 2287 /Filter /FlateDecode >> stream xÚÍZMs7½ëWàt `K•-')g³µ©JÉÞÚ—#jLÑ¡H-IYÎþú} rôaIÑP¤J9ˆêá4€‡Fãu7@™3>r0Aô4…ðŸ’ñœ!6¢¾É&¸¤B11Ñ›õUp¦°¶Þx—ÒAtè“H;Ö¶$Ѱ~ÅÞëWPå¨]|Ç*a¬ŠJøE»nÓeŒ )ׄéÀGÁÛÄÚ"¢ƒâU9C.hÀE¾¶ˆbˆY;Àr•²!!1ÑyCI06cF”=§ ±èd¨8E"0B©poKѹÖ9)œ()«±$ö0%!äÚQmP %mœa¼Æß±¨1º I'‹¯ÃB™Sœ¬0aDg’ ÞצX¯æˆ©˜@NÃØ"°G* .{8ht¸ÔXöP—.‹ ºØË$ÔèWŠZ3£ßµ­Ñ*¤¬t— vrp¡¿G…tð¡PDÍ_´K¯”)j'9šèÕ°cG"+úŒ˜¬êámäÚ VHŠ.vIáxh ŽkS¤&x¥x51ž!Ájg¬? ®‚X\1Âê%‚á¨úpG  =$µ«„R[@RßöBUBF(®Â,&9©£:“ˆX%ìÎU"ìê¬X¢$%ëѤëb²ãŠ ™ìÕÆ´™Cý®˜¬ž‰qÉR[À9«S`Z&—´Þ¦x*ú$ÊrpxxÐü`Þcûfìê#ÓüëßÿÁŽtV;fa›°’³‹éôÃÁ·ß>¢íÄX{˜6‰·NzKûÍ|¶2‡‡¦yÔ}ãºÙÝØÕë˜a¦õ,Ò•š¾qõý5¿,棷Ýʼ7Í/?¼1Í»îËÊ\ õî·ó/ÚqwÐ|a»Ùj©l´ýAsÔ-ç‹Q·\3HýîçîdÒ~7ÿbÞë ð: &09x›ËŒ×.ЉҬõ_Ïfstú~M… «RáZˆ~#lWÞRá+„µ“ƒæ»ùâ¤[Ô݇æ¯ÍOÍ÷xÀŠP¬#Ì,b $,”¬Ô½­Ò¥p¶ØæÐ{{q¼BŸÍß'³_›×‡‡u„æõh5™Ïš·Í?Ž~Ò¿oNW«ó?7M·:mgËÑé|>›îv4?k–ói»˜ü¯;yŒOƒ Ʋ”“‚øAôl¶wP¸q;”KÀOV§ÇݧÅl>=iŽ»ö¬[ŒæÓùbuÚu{í}² .l•@™ÙêJ"Y¸Á‹€ÞŒhê÷ÏÁׇ«9¤d½N"{ .Ò`‡ Â+ µ×uç½5ÍówsƒûÍÑÇ™­hìÑÅÔ_¾2û£–#ì“LˆÑ:l€Á`Æ‹ö·›p*Ͼæ™R*ͤÄ¡æRº©Ü“R"›”gÑ–TlNa¨¶R/"Î@mW¬aÚ•V3…aÚ!8›h¨YÈ"y€Õoù-Š^V—ÕcÙ™Õ#÷dz!ö‚ôBê…ü;ô¾õB~j‘YèRÍA#œ ÀSòûûg»Ø'±šK…DÖ!ß Ê ²]ˆñ?'¿ ó‹ÙI«ad¨8E«ÉûT€+iª:ÔäköÝ1p´Â7ˆÏ`<çíâN,·E,¸©|Íîbµ¾|mAØÁ T&ÄF'µQÇYòƒµ]´\†jqV#a 4Ø$ÛiS ¶ …¨Í΢ä¨í3lòux|ùÊ$ÉÝ–ÂÎ1,õuH¢^àÝêu®¬)IBÎÈô$¢VF²äžP†\^^Úåª]µ5[>í¦çv4žü…‰fÉ{ËŽ5=¯@Yšµ:u¶ü€’8?HAãn~Vhq1ÞcÔPv`î±pDTÕC±¡XÚÙ¸û¸hoGúêî½C"Å›ÊW4‚j ´³ ÕŽ¨®É@mB âŸG¾š9Ôöüüõ)Éœ÷+TvòTqñާêIꮑ-÷EY鋲Òe%í³£ –1‰äõ0F$™ÏÈ =bJ|±—£vº);ôܧJ—ËO’á±W7MQÖãêâ‚:\Úþœju9Y­6gÿ|û·íùéd´Üù ‰^=9ሠ+ ÀHZÅoð|/ZtËU…ã7UþÓÕÃÓSB^ çóHgô(¿T„ˆèèIéÌ§å «=_Œ$6ÇÓ®ñ\\÷êv´Ö«ŽÁT{KùQª½W[0•¡}ë±²'¨Š»?؇v`›ÓPm.¹V»µá á¾ƒµ{µIk¯> stream xÚÝ[KÛ6¾ï¯ðqÔ\¾)] tƒöì-) ­M{…È–!ËÛÍ¿/õ°"ÊEZ”ÑA`c! çñÍp^†‹Ý.>?ÀÎçï/OÏ„,0"hñ²] ¡|Áœª?m_ÿóò)€é1^×’B d Ob¨zµ~tåÑIæ§êILZ$—ªõ.¯ž^G‡÷huŒ™çòÔà Á…øoµXêY!]õõËç‡Å×%fðQt$×9¨ÉµYØÉt¿Ê¢ÃNn³h/{xJáØdæ¡"wÅB~Þæò5ý8&iÞÃD@œ¸Œ\Ôô46vù›ÜËÓª°aŸ-ãL8°€¡Ù½’VTOy”¯¶ñ»<œ÷¯2ó` f¶F¨ô ­3™ËÕI¥r’rLŒ]Ý þ‘AÍÈÔ%‰AvC‚]fh*ƒDXõÚ¨‘ëôîãÓtÔ\‹§D!õ7µf®íù±–Éê ÿùJƒæ]XÌïfÿGêa¢Ç&S3fcLò£Ù‹É‰?Ï_ðŽØ£ÌR˜^CÈc™ÜŒ„$?aù꾘õwp,vC>„ùüù¾%QÃó$j d!(Új÷'´Ëá7Üh¦ŸÉGrÍ‘Ð/Šæç‹’[R(oy7 äò°‘›jî²zÍdô½n(hÌ• ªúUvW1Ø3["€ &^ô’_õÐGP&h:Á¨ -nâW×ã Ú¹§†9Öxép웚`3Ù&0Eƒ˜;MçºÍ,cM0Þd¤:2 éMFç$ŽYÏÀj,Ó¯ü-Îò2޽妀ˤqÆ]ó°mš©âÐ÷€ège>2v¨€Ûa(·?æ;üò£¾º&ÔʵÝ&]Ÿ|µŸ=‘W+îóözÎ95=‚7±µŽC£šÉýHäÜóŸ};bR‚ó7ät˜v?;*Dˆ¡r†°B¦Âón6«ZNr0€X̱pbœ‰^ªP»–&Õl‰úY‰ú¥ÀïóOüjì 0n§€Céer{}B§Ùö CVøÛ*BŒ¨<Ž^ ÿrefÕ` ñMü|„ª á˜õ‘P¨å.M†KÞ‹þªë)—E´v`¨WÀ¦¨ÊnùëRÚõ¾SGÿ:jK¤êMr½yÝZ³`Ý¡åwмC}Šo¸T±Ê1Q·H½þþ6´gß™¸]ä­°!·ôa‰¹K•<ˆÔÂWÇ$Ñ™™B¾uÃÏ¡2G•6¾y9ùˆ‘ÍËf)¢­zSnUL¼zWÙ73¦CŒ[®³•ûTϦQŸúòާÝKw§óÇ!A¬¼ªJó41mܺ{38¡·Äfõƒ€6êËÑîªÜJZ;»^²øŠh¹J9@Ó¶ävI£ÉØ6–*8i§ß ‹xúä@«îòTϲ•Ïú*º—ˆu_b}þ67zÊ:M#Ͳš¿i_ßœFW³¾Ú1#uâãNÕ5qÈãÃ9=ŸVyôšÈèìO#ZvY´‰å!7ƒ¨JXYà9 ØŒÖjÎ š‚œfW¬w(J‡“§HœÚMJ-Y´$¿Ñ’&úö“l§|ƒZL²MF+Ö¯ ©\.€!¢ú£§žãÈïTÚ=Ç!ù‹•À™|ÛD&D0Dô„½m/¯BŒ\zКhz‡C!¾°ÈÄ0 :³ýᦤ-.ú3„ñc:‡ á3Yà¡n²Øýp@[åÀÙwø"ZÿvÎcY„ì:²Ð䯯n<–"LÅ‹ÍAH•:”zÓ¾Õäp`Æs¯úºNEŒ9USÜ-9˜«@„À°®Ì]¹¼<ü JlòF endstream endobj 1635 0 obj << /Type /ObjStm /N 100 /First 1010 /Length 2458 /Filter /FlateDecode >> stream xÚ½[M·½ï¯à1¹pXÅ* ü%À°uH"øàÈ‹Àˆ¡5d pþ}^qºZJOïÓ—Yö ûñu}›«ESIÔ¸%ÑD¥r”*K¢jþ=>zõAOÌÃ#±aj«óÈ5Õ6'×$TȬ%e‡­ ··9 Æp¤ $ÂzŠÕA¥$®ƒ}D‰•_8qÓ%‡£ˆ$,iªE}Ui©ÒðÕÄR­ìkHOUtŽFªÚOÁ×ÈñOØÕñ”S]|äÜÉY©$a1¬¡š¤Ú¼ÃÅCóKâ4È©‰?)F#É(Î¥•¤¥úá¡•Ìïhœ´çÒjRq‘´&Iµu¬Ñ4©•9BëÕ‘!LS¢­§V†3h#A¾þ”Väêx€Çó9žqj®"Œjj6%n’ZPGƒº¬L‰ƒ®Ñ”©Y2ž2Åš¸Â›d:eÚK²6eÚ)YŸ2íœl¨£À zéþ”]gf¬÷ª.çÞR—îktK½MÁe·©ÜÖûÔàG™úAS0ÁS0•!ä\†¤¡2°ÆÐ4œF-NŽ7,!ÎÊÅTŠ9­#Kd¥¸U»mO)q}B6W¨¹fйF­à£€',nA@›sNäJ5×1±ÍÛð‰ßl?‘V_‚°ÚÔ)†˜E˜± žCÜÀÅ¥h„Õ˜: *Á°ºÇ˜› OÓ5zÖ>çb5žŸFX§õšßÀÓ|Í¥\§ýc58°óu½Õê³éÑ ï|ñâáòUz oxþ7éò׿ý"ÌB4«Y µ·~ú黇Ï>ûÿ“!—ël‘ì®ú¼Ù°Ñ éßg6k.°ÊçÍVÕìîõÌÙT²Á‡Ÿ7šË †ö¼ÙÜ8ÃÊÿ{ö˧·ïÓ‹éòq¯½Þö‘¡bêv_3¯ì¼]@fb×{€wùúÝÓ›oß§×éòõW/ÓåÕã¯ïÓ¾Ô«ÿüˆ¾ÿçãÃåK,ûøöý/°ÄÜÿpùæñ—§ïÞ<ÎïôúÝ_øñû/ž~M¯}yšÙÜá)÷ñÖûþ@<¶Ëuþçoß>ôõ58­™ ¶AÁØÛCÍ<° 85A K K K k k k k k k k k k k ·@nܹr äÈ-[ ·@nllllllllllܹräÈ={ ÷@îܹòäÈ#G @<yòä±!{(ߎAÄ@cÐb`1è1d d d d d d d d d d ddddddddddäÈ5k ×@®\9|ÐÂ-|ÐÂ-|ÐÂ-|ÐÂ-|ÐÂ-|ÐÂ-|ÐÂ-|ÐÂ-|ÐÂ-|ÐÂ-|ÐÂ-|ÐÂ-|ÐÂ-|ÐÂ-|ÐÂ-|ÐÂ-|ÐÂ-|Ð6üŸà9ãÛÃåÛÿx?¯ÿüãÛ=\¾xz÷Ãã»"Ëw—?^þtùò5Í ªoiÔ<`þ éeÀì)aÌ"21cÞç3 |›.xzõ”D~÷3u¶ß{`_Ä¡ça^löÜعÀŠPrf)78ÐB\@¶‡B'x sA*A}<,‹Ü"ÑJ¢\àáj-ð® t·Ip¹ƒ:ZÍŒ€êPTezË$t¥MðÈŒ˜ ÈèÅËdü…­¢h"”†õ› T–„„´“Ж½=&±Ò&tdïSw†¿ð’CKÕQ%3²‰B-Ñ—’@¦×:`§©’ðæ5H4Ø„“:$±R 6¾“°–Ëì­H,UGØD1H`öôy6ú  ¿M¡®4ø' ÞòÈGƒ(šµÝà ëí^iÈn2¼ù‘“Œr³‡ÄfÇ$ÆBcD1³“+Ú1 í룥¸9 Š|Ç «=Ç$P î¦c2•é¹ÛíA÷UøÆ`ëuôõ­ÎÆ`ktŽè^8"@}ªm°:Ç!v5\)„Ž(Èú^ByíËw"ÐtŽm;@L¨žh÷K•³´$Œî`‘ˆŒe‹RÓ&¹d:É1·æ;HlÍ÷!‡•Úˆw;;‡í|å! [ès÷…tcžm^…vDjj°Sî'‘BbâyâÖlþ“×<šà'nùVI»2P úhùH ;'“@ÁÂ0?÷ëÇÇý´¡šðs¿ÜìßЂ]ç±_?µ¯¨&J×yì—O’CX¥ŸúõÿR«ôS¿dÏJÞÿr²Œ endstream endobj 1920 0 obj << /Length 1973 /Filter /FlateDecode >> stream xÚí\KoÛF¾ûWè˜õzßK^‹ÆA{è¡õ¡@Z²DÛ*h)•d'é¯ïR$%.µ/r‡N9Xäá¼ß g3<{wñÃÍÅÕ5g³å’ÊÙÍýŒ`Œ—3%1ŒÎn–³÷o~úåÇ·¿÷çÍÏW׌w¾Ì1A*Ó”ßÊHõ• Üоº¦]—͗/©ªþ¯þ•Ýb^·‹M¹ÙÞ>.ê'pÕù-E‘¦Ò<à,pýƒ2CŒ¨ö;'ŠÏ.’)Ú!I,‚$¿oÄÒÿP6ÛVÒÕ}w1{I~ØWt"×´8œŸËþa¾^[ #Yޤä1œô¤ä(ÏHû{´oãÕ'6@XJýÂbŽ$Î<Âî7¥Å.E$okUÍŒA5ÙÜ<ø_J›Û-ÿnSη«Š¥…]–£Lý»åB UÅýª,½äsíNT;?8?—ˆêÑÇ~¾ŸÛL§Öd„CdV‡p’5B*YZ>¦•Ú³^ÍìPÉ~~Wóg c¹ög.F&„cÚ#þTݸI{€þÛXÎM~ÿe*Í?îþ²pa”™±‰[e^ÖTŽ&œ™P!JÈèDë Z³¶L6Ä2~ñ‰Ôy–;ýTóª?/3Ë!¿:hNÒVäù3$hæ•ý2Oj+Úšï¯x =#•?Þ•«5dÑ;Õ ”­øKí”,6 Á~£‰(õé¢XlÖ›§Õnoa†à\wŠyr~§¡†ÂŸP®Gæ“øÓ¢('ën¥¿Ö63Š;³Øè†Tˆáyò%\Dóä%a:D^'v8Nh>Z…Ü®‹:(uPÓ†ñEôGz43'f€#.|)÷Þª6Ó죵&@µ¦âã†Ù$]½ûÇÕvÿ¹X=fš68Œ™ D•õ†<’¢°Þ¸Ÿ>_±ôœÔ(#PMµUýŸ=Î¥B”‘™Ô9#¹oy0ŠÌ&Щ‚)ûŒÖ µË(»6Oë ø¨ô=`"o ["¬Zˆ+;ÓȽ•ÕêÖŽæ£kšƒh,~­à6DdHHø¶Å¼[„ÓÛÔûã×-øY\®¶+«³˜˜"IÐDAã6ZIíkŒéª8õ–ñî¾¢ŠW)¡× 2œäáfäu›ž 0Rš»º¬ÇÈU#À³/sàœ8s=g`æ”Ý p&Üx†pSÈ9Ê64PšâŽ{åÄã<ß4¸OðÈë4»zàç9†'Ç›)¸ˆ¨§ÚyQg·é<;ŽE Ô4×Ì ÷±ÇÌv…DVù Û•á8žMë¼/ràE®»ó.WëbÿùCá\! yñebÞk÷8×2¹ÐДùtß ‡r·wq ºÚ.Ê¢rep€þ(ï˜íñ®kLcÇh n™ÂóÉI‚½Â}“ˆÚ¸›žÆÊâ¥(çë¥Õ}êÇÆh#;Aă݇ɰû¨‘›í_<[÷iŽyâ"èÔ3Lã=†è§!*ÓŽÆmE³öÇMm쮩 ênCŠG µ<Î-ºÑ¦Gˆ$0\ T‘ou:d‚xe­•Š€JÆìm=Bm‹§'+ŸôÞWQê|| Ë.öøê1FõðVSP0/å™#vìZÛüó¸ùX5ض¦¹.r©UÛ?>ó*ƒö[Ί§¶‘¶²æ²4FÉ .'òáe%Ï!ÒlÂ4™„áqž]žæÛýírõ°Ú[YÐúTCGá•zNnï7Û§¹mU+D˜œ‰f4E‚„âŸ^ØìZ‹LŸÖfÉ÷\â6£qØŒ&†w ºS¸½Û|úPnöIþéÍDþ¡¾1À9_Õ‚kýütgýËC»³@ÿQ“;ãa~ÂìÞóŠ!§z!´ÁhµTWX»ŒM©H=G|M­‰ð bÝxÙ…¹.àrªÁUï7-çu/tRá@[8ž-…ôBhfhÿì ÕÒËæ ¨™Žœ2iz…7e¼ Ó?ô”FÀÝÆüv<ÿÌöžk_˜+¬½dô-¤ˈÙêa¹z9m·íçc7èí#äMÐ(-=ò#qó;rIðf€Ñ.1ù„ü¢ymÔ*»âï¯!T ×‰=•ô¾½¹øêœno endstream endobj 1778 0 obj << /Type /ObjStm /N 100 /First 1020 /Length 2735 /Filter /FlateDecode >> stream xÚ½[M‹$ǽϯȣ}ÉÎøÊŒ„E Ö6ذX:Ø^ö Kƒ;bµùßûEMEÍê ê>TˆQvoÖËWñâ#«š[i…÷B"1…{™3³˜ÒJï*cZ ¸LÌ×¶¾LÒB4å#ÌÀ‚?j%£Í#.ãÿà† &s¥ÂÄÁG¹0[ÌS),—©6&¬¡¶¦ñ]/<˴źø8»Åj“Ê‹uásrÌ›áUÏ ÔF~Ë7YÌ<›j¬8±X³å¦ãÞÚ ô›ÃsÈ>·9z qËDa*o'†“aˆY$a,oáÄ0Ò†Xzlœ‡õ3cˆuÈçrVãžìÈ®ì±:sÜ­Và Ápœ9–þÜ}™‹Ïì ?ðp=ž¶Ì E¶ðh§J §õø#b .V ·õØ-éq…3V“ðw ±C1Ä,m±3þ(éxxõêáòÍÿ~z,—Ïß¿úøpùú—\>ÿõ‡÷ÿ}¸|ñôáûÇoâC{wùóå/—/ßÒòááò÷Çï>–·â\gCkÇfÈÔ*¸%s«7æ}^^½*—¯ËåOOß<•ËWå?}ûŸÇJþÇòÙgøïsTY“„¶Y¡ðë$lH¢ªð^ë\;Ä,cV…ÛÙŠÐ÷û$¸GB­W™µÚa|í^¡AëTá¬çpÉUfD3¯ü<ŸtÖ6é$ i î5¢úf µuÝñJ:DJ#I¤4®‘`¹ƒ4V›4®’°½’à/´ §´8(OåQ9²m’Y™æ $æ$”áç/~©¦•ú ~)zdŒ•ìsôY‘,o Ñ$1áà¿t­ÍnðK9ÒŽÅ>q‰éuÎüRŒH»OZ'"6wB˹«í„l=2J ÄËØý$ሗ­ß@Âî7V™8®r82J4„KæB”˜z„™ÄQeöFB/Åo Á’€­ÛFù›ü¿´#ý¡ B™´ˆDªÐÑY£:iìÄì#ŠH…ù‘ ì: 9r#©”ä…ÄDï7ìÄ‘‰#CÕRT¢ÙÎP¥Ãëà4ŽU‰5T]'1UIb UW9ØšU24²Vvj ösıVv‡µ²»ÎáH·DQehqU%…AQ…Rw=;R%‰çHuƒÞ!R%‡5R]%1äøÖK™jªµóR!|½×þññWrX¯« –)Ïg›:¯r8²ïB¶ ×\âÌÌšTBu£ÍAæœ;“† „„N[Òç”=§<2D„<G³´]VãDMzCôÚ SÔî°„ÐO6‚Ã;w6BŽŒ×‚ÒR­Hcdå Ø „(Þwœ²i —:ˆ #‘ûÒuYí}v8å8É!¢nB9ÅŽ`Qä"bºS‡óïl„¶;l„RõñÉFXXcžt4³†f(•L†VHc7^ã¥Aس±IƒQV¡´Ú!ᇻ9¬á´¹¡ÔÓ½ [ù¡¨&æËaYGBÛq ¹C "¢ÚãÉW’à†ïùÖ@õUyK °•¿—Ë?þù¯- y$òHä‘È©AO zjÐSƒžôÔ §=5è©AO zjÐSƒžôÔ §=5è©AO zjÐSƒžœ©Á™œ©Á™œ©Á™œ©Á™œ©Á™œ©Á™œ©Á™œ«ß“¢Ýö„šGT-/€àÿ°òˆª…éœ39š²<.4P·uT+Vã#;¾“'Ü„ü7ÈÑá×IXµ,•ú+A9Ç‚VY MgsÄè,'Ç£n„K˜0¯h@¯6v¬AGÆl$ˆ(«6Èœñtï‡#­±yÇR²y„Œ³Óìv;>búMˆb‹ØÖ&ÒÈ9Aé꽎Í5+JÆwãÝa¥ðì WyÅqD‹ð¸2@®Šwc¯R8òU ŠwP™5<âT´î3eàûî{ï2Þ!{'‰ÌÞWIy ·£Çãe1GJJÌ~α w˜ƒì…„7Ö7pà;Xsyg:­ÁzRE/쩽è½Òþòvd …>·ù|YÍNSÝ'Ðux¢`ÁFË©&CT B­ösb¥ÈŒÐh›ÄK1ÞèO`ô¸ñ: mHÁ)¬ùˆGgIòÙ‰Õ×IÜÃJ¿?Hk™Æçêr#±èò*…{hs£°jó*‰Cõ¹æL1^šÎÌ™Oó“ÜrHíèù7ŽRWIÜ¡÷Ô²ËÔÖÞ_Â=IÏ9žË'I¬ÎUGSF1¯Ž ^ã—tÕö{¡žsBHc _IÓʰØ?ÈCQ»÷C)ŒaþB‚` ’ë$îqL§@sÉÏçbŒ\fÄ'S®n%] ŸxvKŽ ŸçœR¦5–Öbúf¨m§ÛI‘ŠÐl5~!!h|mÜ@âH¿Y^½ØH¨Es‰-\þdÒ\ï endstream endobj 2005 0 obj << /Length 901 /Filter /FlateDecode >> stream xÚíYKoÓ0¿÷Sä8$êúý¸"6¨¤"¯u× ¾”d”ñéqÛ¤$››4‰Ó6í°¨²ÿŸÿ— ƒÛïÆƒÑ¡ŠcŒg‚ÊÁ!`ãip}!ñ›ïãO£+J +‰„@0eåì×|üüþòënÙfÂGW¸¸~˜ob±ûñ°-Õ7 £ïÂd®7&ÜèÅASÉ&I—$Wô6Sbÿ€ â®Ãç—J* )Påû*YW#)¸b/~àRÉ0l@qŽa™8Ž*Bˆ&Ðî(Æ2„æfi¨œ¯¼ N«Ü}užóÞUV‰+S@žÁÊ °†7:qaKˆ69XÜ„\\Aö³#\¤ÿQýŸê_ùß¼BXfyò8^Û­ƒVÄÒŠu><ù,V"+(H¹€èÅäTÄv¶ŠÂާ‹ wÞy£M|9a´UwåÀ‘YàíÌQìÕIâ/¹¾f>?™P@s1ËLÖ«õ2JR»²°ngÎ÷aVç>n®êL$àNGïpt4ÜΣ4k#JVò} £oÁÃÊ’’¹ÑNK‚Ë8Z™ÈUmŠ2»0ºü×Ä,:%“Üæ/Òy˳w&\™moü­oˆñ—ŸÏß’£3§‹”IPý¢R&Ï¥?úiÒy§÷&º»Ò‚vòk=ãüÍÊ+Þ²f†³=!C®„1[ß­¦:֮›•j¿…·U}í<äJoAü2j©O)Ä®¹®'‰ï.íHvJ¼Æ…ªô’[~ét2Ö÷½uô/bZÚ_9 4ŸxCŒ ÿ’<ßF'Øã'BúJ§¼³a^Kš€þ2öSM–zsªãiªïx°«ØèÕÔÄ.¶.(;ƒ©Ï©[àÚÚ™r6:îò“možÇj~ºþîTj/I)`Ä9$ë…Ž£ßfzbÔj”´]6„Ø1hK …AûÌáýgýï5î#.ÃòÑôµ‚¶¬ U*ê#¶» ¯]XûçŽ$Õ©öqT÷’WlKµ5½›¥Æ‹¼e+ºM~ôVøˆôšüÅùÏ¥¹‹±Y.Í¢þ¾3¥U‹„*ßmÊåªõÃlaUý÷ŒxåFÍõ–å?Å(bK[¡öb-óOPÂöâ’w¾0%m 'ÊOÉq)‹«û9ü>Å·› endstream endobj 1922 0 obj << /Type /ObjStm /N 100 /First 1014 /Length 2569 /Filter /FlateDecode >> stream xÚ½[M·½ï¯à1¹pXd‹¶%@°tp"è È‹Àˆ±k¬V€óïóŠÓÕkÔÔÛ€€åŒºÉúxEr¨e )PË5PÉÖЫX£…ÒÕ=>P+)ÔJÖ  ­‘C·7[)’tká{êù-1Hƒ*x„e@PúÀÀGÍÅZöšØs &½YŸL!S6bœCÎb̸„\ÚxŽCjèƒÅØ×µ)Æ:  !±õË=j†')”BÖ/^+ÌÆðEtÐ(¡(Yo¡ £›A axRSÏiàÌÖ/†ÅE^,Éðj \ËhQ`­öFÍ{2äZ‚$›œV9Uf\J2¼Zƒ°Mg«Dê@iAj·qJlú©i Ò«W)ÔÔí9Í¡æl½XoÊ¡r·q¨`ù²Ck¨Zm60¬Úºõ¦-hë‰P3Ž ÓÜ컆g²ÞZ*lìñ kqЖ:úÀòÀ2Æ»5´¤ã -'ë·µû°~[X'Cî)`¾ fÞ6ÊžC³a‘Që) ì­SQôÑÅŒÎð0è^úxWC¿)¦©_­´÷Ї™!ôn#ï6Å)ÙÐÇZ$Xª5Íz‡©vë+ÁVoДaÓdßb”IóÀL²õGý¥Þ&Ȧ¯>S†© ‰w©`¬h¢LªõfÆGÕ ¾ÛŒ’6Œªg~c`Ô¬ “Ècèy8V'¼ûµ sÖtEX¶Ñ±ÿ‚i۳ƴ°­a·Q1·ž ën7/^Ü\Þþï×Ûpùöîîþñæòæó¿Çç¿ÿ|÷ß›Ëw÷?Ý>¼Kˆ éý寗¿]¾GãÃÍå‡Ûá]æa'Y|0E½úbìMðØ·áÅ‹py.¹{./ß~ýðŸÛ(ýÏá›onðo‡Z¢~"¡aÌs5-$A%ÚÚe.ó‹Pͽ²€Ó—9”•r‹Kœ§/S uac* )&3Ïnk€5aŠÜõ€D[H¢·hÚIdJ±#EMIèB«$í1‰¥/ü½Fï˜à„ˆË1÷rà+W}#¶8đؑ:¦Êʉ(èÌâm¯°vËûIŒŒ`‚øË$2? Í1Y¼ÞH@ D$ö/“ ô $ ‚tÅN‚9j:ÉC-D³å182 ¢eŽÅòdNQR>g98i,Ð{ZRD‚‚š2ƒ„z@È*õ`5ÊB9Çl*Æ9ŽÐ•SYr(3BõÎ{$ã4áÀ ­’òd‰ÂMž0Bv…¬Rªè§L„¬$Qá«i®Áá$&E!ûœÅ€N†@K‡ž€ØWô í\k‹ÒŽ<£­÷ŒÊ5*÷Œ*«r-©®wÄæSœŸa9ˆ¢éê}9¨Tê9’ÊIˆ"{£Îsƒ2æœÊÑ¥_ŽlA¢Á7Pí"÷¡¤*Ï0L( öi`òBƒ`²9×(V2'Ì$· ˆ¢ü:˜ˆ•™+#bz£•bl9lgDà*9œW¦.†BÅì$„13eNBêz“àR·‰Usè+ó†ZqÓ×µÁ5P¢^gÅ*éQŒÐõ¹ËV¡å¼ç.Fý‰ŠûœšÇíÒLÃvnÜ.Õß¡’õf¹sØÌrÆa¥Uzþd(ªÞ ù“‹±(VûÉÛ• ówVnÙžáŒ×õÒÒDÒ9|PávÁûJsP‚þĺ ¥ÎœÃÊš  ʺ<‘@”J­ÍIðÊp”TŸHX]^¾b5xår N§L; IÚZç$ät ‹XsÙ“†¹ f圭.° ì‚JÇ„Åʱ<¨€¤ÐIÎU›Ç1ÒöÞ§–:ô¼fy"J§~^™¸”¢˜¤t(GµÇ¹$ÂË8èÚH …çÆs+}c§'‹*ˆT2ç°Ô5Äœ`5° #uoé³ .¯tV¤ÚòçNbËŸS²Ò73aª– iÄNù (á*À¡žÄau;‰MÔÍIèúÍ€‚ôY÷Í€R{¬GòVh½šÙIleS•ža& l² ·KѨçd d®ÌòÄ`ˆºIÿK3Ʀév›¦›PX«7E·SØÝŒB_¯çv ›ž›P¼^Í9Ws +sE©¦Ù0ñ ÊÜ@!$ÙE8p-Ü)¹ÂÆQc&ËØõ楔¨‡'Ðe}®pž+¦VND³ÝA ™dÉ™»ÁF3Å–õ,0 h˜Ü± &ìoµÛ7=¶z ïeå6D· (y©Ã5¨tÒØ…Î!QlW¬Ë¸Œ ¶…ž°øØÄÎ7NÚ&ÜöBvÛYœ¯Oš;‰M>LI,] ·ËZ¢Ýq»ÌŠ¨Ù„T[¯­³À#åik*#¡%m'©¹M[gHɺ+˜,)õ-Ý%Ü4ÌÆ`(˜YÿK÷­r\‚ÐqîYGDl»Sˆº«œ³o½¤“pƒœ‘X»Wº$!aÛ¡«d-gÕY›A: 7É)‰¥[ø(°ìöV²³p«ÿ‘2ìfåÆY®9TK›ƒWAÝü¥œsÞéçNb«8ç$òús„ÄvŽ0'±r5 ¤¯·_7¨4)éœÄÒ”aוƕބ]¯³kÎ35­Ïà„hcâšÁíîT>’·ånÊì$¶ €)‰¥3±6ÛíNÝI*›ÏZŽÍEQ]ôqoisQdR&9)N¸‹: wÑ)‰ü .ê$ÜE§$ô\ÔI¸‹ÎH¬¼Íéw&a`í>üŒÃ³8Çv±pwŽÙÅÂ?’xi÷waÎ)ü.?þó_Á”× jçî>ÿòË{øÕýÝã}ÅcãüúÖ+LAaÚ>Ø! çíƒmêõ1@\^?Ü|s òáòúå«py{ûÛcxÿÇùx Ž7—ïÑÓíÝã'»C;Þ·aºÿüðñv|W®ßýãö§Ÿ?|wÿ[3%]ìBhŒðmÕïëAÃñü˜ìOèÜë7ZãVÿÖЭ‘‹7Øþpö‡óþpóFß%yƒ¼‘½áÈÅ‘‹#G.Ž\¹82;2;2;2;2;2;2;2;2;2;²8²8²8²8²8²8²8²8²8²8ruäêÈÕ‘«#WG®Ž\¹:ruäêÈêÈêÈêÈêÈêÈêÈêÈêÈêÈêÈÍ‘›#7GnŽÜ¹9rsäæÈÍ‘›#wGîŽÜ¹;rwäîÈÝ‘»#wGîWd¸DòyãŠü~íåvEÁÐi¿Û>®Îf:çXÂê31ç@v…¶|‡¼ò—'ö˜ZçPìF»Î9¬<!+Úìî4¸ý€aÂ~5†²ö(­¼ãl7.O; ¨2Bðš“XXS“ˆØn'¡“ýjnFBWþîÃÔ­¦ Ñ ]P1× ÝG±åÿ> endstream endobj 2007 0 obj << /Type /ObjStm /N 100 /First 1002 /Length 1779 /Filter /FlateDecode >> stream xÚíšÏ‹d·ÇïóWè˜\ÔRý’‹ÁɲI ãÝCâe‰33c–1$ÿ}¾¥‘Þ¬iM@¯O†¡G¯û½ÒGªRé[êÎJH!7ª!3y£2AƒSàfÞÈAýã†ÏM›78”æ7³„Fê ¼$-ÞÂ#¹ÚZ¸äÜßÃÓ"ÝךÑôZ2{ —U¼'q›Å{”³_Š"ñ>ðB\Ün&M}HqÚn¯*ÅÁ#hÉí)†¼Ë¦9ÅïS ÌÉïS,ÙTkñiP \’S©®ìãÀ°0ÝJ ’S·Ò‚»KAØÜŠå šÜŠQë³i¤˜ÛÜJíói4‘Û3 šÐ (5¥Õ Ò§]ªšÛšZs+‚Vr+…‚¶îÂÁRw†oÔýQ4«[)LZF˜:3ræRƒ•î-L¶Õæ}ÔJ"·÷”¬n¥R(TÝJ…Ç…|äUBQu+UC±êVª…RsC¸,>ÅhÕPSíVZ¨”Ý :ª¬n¥åP¥úˆ^-ûˆ0ÀZÄGÔ$ÔZÝ ¦¤¥%˜º–EÑG+º­ÄQ·Ü¼˜%8³IÞÊ£RoQh˜h¡#¼4oÂjÊY< ½InHsoße'Ðì±ëþM„€É’zÓ?ãÔoð‡ÉÝŸâþ@b·C>a‰á̪þ9¢ÍçÉ[pMñÀL\ø®“¡iôP[2´ ­F_L“rŠžW %ïc Ì±!¼ÒX±Ô— }ATcEZ;$ÅúŠiЮ‰}Z“Ø×¤ZÌ쮑(ªWâ¡n„Б^ Ö…'ÑÄ΀È £¼0T‹HX¯`o`—¶J±'@ƒ7€Dñ €¤#C#C­Êþu Œµ@0:!KŠ]Œx´š¢Ê­ FT¡YÚþ7ídh (ÛÉ@ !¡K“{·FÅF !‰ T¼°Š)nØP­ÜâHTDæHTL±\Ðý‰j2ÌDµd°‚JR{Ý3‚’R,Ön1£r@̨¼)ƒ "PÕ($¶¼a9挌 5õš7ÊÎŒd‰âL ŒÂŠ0%©6Ãÿz%GìÜ6É¥åÁH–¨—[•í3Š5RúIγ˜Q¼ß„o¤$F¹5!f¹µ†àýõÖ1ê­5DÝ_pÏ×’a«’Äeª/ ªHò ˆÞÀÆY”^  (JzE\nUc÷R£(_”}ZWV¨ðöÝë`»×’aëyÈ(ûT±qø™m/ûÔ°LÛVÆ,ü„Qø-!¶–à3[Nˆ™-—²ÿDDÙwÌ|œˆ(vÖÄW"‚ù„¥1!æÒXAì ËA µÏ©›*ß´ >æú\2œPOˆY¯!N(ƒˆQ/!JÚ_£ ^CœP£ ^Cè B;e7„¶B×dª7J˜†\å«#¡Ö2OX÷@låBW„¶ì¯½ˆQ{-! íw‡4¤G5Ý‘r¤\n”«†;ˆéŽ%ïwÇ1ݱ„hûKá 1Já%ÃV¡=ªÐƒaV¡KÞ_…³ ]Bœpd'þ¿è‚}Œn£«Šºú·þ·5ç@{5#DJ‰œÊ­¾`y–4‚¢+›’FL#+ÝTÒ CÒ¬N4bJš5Ä ’怒f qÆÉþ1$ÍâIs@ I³†8¡áH/5‡(GnåÆ Œü¨_,PÉQêµ/ÅO8D•ÜzžœbB¨®”€õ11!†˜XB”rBšH%~QK.QùŠ7Nø±È@˜‡—K„œö^N†qv¹dÎ.'ÃóÑå¡í?ºœãärÉ 'œ\N†qp¹d(;—&C7!;sE¶öŸ)òƒÿÜËÃ2ß(?ŒCâ®ÚþCÃa.!Ê/ ÞºHÓ߆Ë_þú]h-26ÃR+¨„‡ŸüñÓ¼ùÝãÃS7úŽÑ‘äç§Þ {¯ã‚üw©4?Aê(ÏŸÀÄå›Ïß¿¿|¸|óö]¸|¸ÿ÷SèÖ?2Ïg~xúôëåÿs© Qñ_J»øv endstream endobj 2024 0 obj << /Length1 2984 /Length2 26903 /Length3 0 /Length 28382 /Filter /FlateDecode >> stream xÚœ·TœÛÖ%Š{p'@ApwwKîîZHáÜ] îžÜ-¸»»w—®så$÷öû»ßèÁð͵—Ì%[ $STa5µ36“²93²2±ð¤A&v ';#g#O £²™…‹‘#¼ÆÊ‰DI© t¶1ûŸ´(ÕÍ€v ¾¿õÅÍŒœÁ #g°™Š  `â à°²ñqòðqpØXX¹ÿ­gçÈšX™ÙT,íÍ(Åíì=–Î|€¿?4&´`C.F°5@ÙÈÞ kæ 4ý‡9ÐÑÉddkÆdcôÏ [#  “‰--Ãÿæ•õŸÿ3ª˜š Xã™ì-þ¿,Ùÿ2åú7ýÿððÏT4¶Nÿøq1q2e23u¡eú5Y ‰ÈÉÌà25s¨HËÌÁmØüSV¼7™9‚+i 0öüÕ3)0³Ô…›@céìlÏÇÌü—ù_KLNæL 3gfZp‰%A¦âv¶¶f g'$V€)Üc3 ‰ù/Wª`ެS3ób9#gG ;@‡…‰……Àò×Ïß_zàR˜Úl<~«Ëƒ‹ `VPü ¥*Jÿ? ÑßÊbbvî€O,FVnn' /€‡àýŸN€ÿ"ÅòÛPdnø7ySû'àúϹÐücîhÿéJÞÎ\CÍï®é²p²˜€±þcô…ÿÓôüeûçüéðßcôïÑùÇÚßÓó´ü¯1ú÷èü¥óßÓó— “.8ÎÿmnþÒù¯ŠPþÿÚKÿÏûçÿmÏü÷Éÿ}w0K¹ØØüc iþ?xþÿÀÿž )#[ Çÿf6ùoM ³ÿŸ©ü9¨ÒÎF`V¢ ›¿E@') »™©"ÐÙÄ`ndãdöO¹Ú_ÉØAfŠvNÀ¿ÎIð–àdù¯5UK ‰5ÈÌÉ ð¯%3é³7‚,lœ\#GG#$ðffãä|bÁžÜfîàØÌL ;g° ÀÞÅÙ\AG¤¿v'€Yô/Ñ?€Yì7â0‹ÿF<f‰ßˆÀ,ù7âf0KýF¬æ÷¿€ùÃoÄ`–þ8Ì#ptÙß]î7G—ÿÀÑþF<à芿8ºÒoŽ®ü£«üFà調¸j¿˜‹úoæ¢ñ£kýxÁkF#v0O#[{ð¡dnÕß:àHFN&@  ÐÑÄÅöo9+׿œ6¦f¿«û—¾óos°Sã?ŒÀY;™˜Ù˜™;ÿ!æü—øŸ[íocÖŠ­ÍœÿCŸ—ýoù€Ó3ùq‚c›ØÙ€çóßðÕ –ØÚþNš•ÜßÙ²ƒ“2µ³ùëÜÿ­fñ;?ð¨2›ýGP®¿Ö\ÀGÇopëÌ›€éš]ÿðñײ˟1À*¿=‚×-þz[˜ý©ænù;pÅ,=ì-Í@h€eÀ? ˜©ÕÜlë? ¸8¿s«`ó×fý½.åÝ__Ì¿Cq‚}À›üwÝÀ¡A.¶ÆÝhPbׯî7i°O»?¬XYÁ‰Úÿ^ǰ7r4ýG³9Xÿ%ýÏV³ƒ)€g|Žþ¡ÊõÐîwC9À…µ·qù#1V°Äáwâ!3§cûæøKh~²ÿÑTV°ô~°‚Sþí–ó/dæúG;8ÁêNà·ÈßLÀ„À7’å.À|³_¦ÌΖŽfÌ ¸ Înv€}¸üžvpÌ\,N&vŽVÜZ×? ¸ênì5°S÷? 8ªÇÜÏßœÁž<ÍÿÉà?oGpKœÿñ¤ŸìÿÆæ@ðõafænf‚´0kgÂdUÔr÷M”Èqg”Õ\"X+6”ªæGp’<öë!ô¡SFmß°ÖœOP9jÊ]aÀÔ“©žá¼JžõËG'G†º¬n”Ÿ #íèêÆƒFa?Ú‹Ìb4̲'”wÑf6VùSGí;£jn]j¿{ýÒV”ÚÅ–èX|—}Ùp… @nÓŽÍ!DW×bï(f{ós·ÏÏĪ«ºGAµREb2XÏ4E=ôM€·3סûó—zKLœ#TTd*…¦i•~ €³±² üї©LÇ"(²A”F-ùæ”W­¿¡à88i«/áÙÆ ZmÖFŽºæ=ú¥„@Ù%o7áØà@q~˶€©Þ²yzúÝF…ŸˆfyØ„^©|m6¾ª{ä:ÀØns•¯ˆ žb䌢«r*u…r+"ÑSáMÂûmŽ:¨ÎoÅ‚éÔêLiÝ=n¾®G'âêåuæÖ³j×côŽ£‚ ”T-»Ù©õW«înãHm.u9¦e\8ßæ›ä£M˜Å¾:b2¾'ŒàzÇÐ\¶ïÄæÛ¤ò™v\–ô‹Y™©ý°ÿM‘m”Cµ”Šø&–òøDò8AíÚ8¯ýJÔ•øMn¨|j3ê0?Õª’c(ð6À'ß²òû>ºX0—CPt`–+L¤‡¹Hž±‹‰Úðfå3x¹ëxûZ %Wƒkm…>³É[ŽgÉ7ƒ_hé0ð Bù¦XŸíÆó¶®B¨Ï Ïh¤[m¤§v´OÂR‘Ñ2ÑíäàwOJ¦œ-,§»Hmi"Tädi ˜˜ž<,ÇI+™çð¾ªCaë~·-Æ4kÍ|ç<™dpẳ,d¿*<š XïÌ¿Ǧt±wkl²xÍÍC›á‘VåÚÅ%{:‡käaúj&BÜŠ~Òts "Œô9Z5³®?ýŠEj=µÅßW\ÂC ÷cªûN(Aó"¼ Ш¾ž2¸X-ì™näð9²õ]ÁhÈyEÎ*5E4î¿Ô¦ºµ±8ßEù¶tuÓ@Ù=Ò$©:tD¹zI˜a¤<6ºùÎéŸr¯ –޶§# ܼVÙûÊ5Äÿéâp5~ùÀøhuTy¯®¯}ÖtÂÐË.§ò*)Œ53Càš­ÿFõ­ˆÝÌm3áØÓÒ¨½µ¾Œ + …SS8™<Êîæ!IJ%R wEE¤Ïk}„»ºã6röÀµƒWxIgJ•Ñbò¼èÌÏd"VªÛ* Îu„ä§¶ÒQ¡o¾QΗ&Yl"–ŠŸðWÑy9WƒÔ5œgO Ù ֌ĽÌ阸:íà Ži.½Ü°Àúš)ö±³ç¥xÙ9¬yÿQ]¨Ï4JWOb¹‡˜ æqìNàëÆ¯õtÆbkÝühRÀ•Iz${õY17h2ê£Øà9y7}üSåÖ6ê0íI" ¢6¹5u¡Êêó7ï-ûi¾f8 9[…4¹|Øî%TS÷tyµÍ–x†™qbÎwóç©ØŒ|ÔzFš”†íS…—¥ÔÖ™w~jïóÇÄõĸ:µ¨¬FrÖn:)«,¯2ö…ÖÊM?¨Q³©M5ô[«;ß~9™É  Úœü:³µª§‹M¡–¦W˜‡{Û›z˜ÏÒóµ-’ïÛMŸ^Âig¯`Ú ä-À|ܤHƒe{– Áœ´òÛe¯xûFû%浑©/µj† •#{zUqÏZòöb0?vŽÉ´0ìmÞï)áå¿fµÒS£PHRÝB ìÐ\WÙø/ù¿ÇÇ\/.MJ@´gî¼{öuèNQ¼K²™ð<Й»²µ§-ÈÍŠ“7šb¬9ÖÕûÌ %i³SL5ô¤¾n£©‚'|(ûV]s3¤Ê„•¼@oÁ°Ø/Ï/¢kãHYPö¬F½àSÞ›µ²X"·’½³eëYöúêÍD h&R'ÕùðãiM«¿ù)«w%p“áK_X<}[…JæûîJ“ÿK´ÏÆaS΂õÙÔÚ)Íù!Š»4å "Ëw Å.z)lžpãê´“9´í†ÞRü›…Ýv®ëVßw˜Šm2¹BƒÌ_*ßÇ +8U¿½%2©SñOT¥#¾Ä“€Ã8'°zÚÑs™×hìaƒÃº ϧü·¤‹ÄYõ!-$gB³+x×òÕ×re'ó33¦ þܦ~H¯ÒKÓ'aæ)&¶ô£±’k:5/@„evGa.:R‘fægo [úMPë–·¦ðt.Þ÷–€¬¨h­›hU­%ã¿+¼¹­}- t€ 6ÕaD ÅRL›Gpû™Â6×aãBÈ$Gi^ëÝte#™Îaµ‹ÉÊ]r³îŸÒød½,:Ñš»ÐÔgWQOBÓ¦Ø5Cø5÷ÃuS^r§½s¿¢p/ñJ„(`*–fâq„cµÅ,YVRæ„`x\„\–I³"/0åôEkü‡ãÄ6 çLmµø?V¿µ~øžS•g! É’§ìü) ¢Œåø<äcY%sê/R§îO(zUªOeÒò‡¨A’¿Ì ­ÜÂ@çó‘z¼î¡úi½0˜™>ètþœp )uo·û·é±ÊòîztÎdvF_LÑ•KDh êƒ&R¿R1ˆéI ª_ Ó|ó˜ï5J®ô‰úžŽtò­–›ÙÚì—µ$N5Oúè4<‹¼à˜êgÕU|Ü~± Æ6ø¾?.¬±æj9¦ 5,†*Í^ ·« !¢·m½to¨€Pµg eKµÓiEœ«=ÅèÕŸ\wí¼Šç*¹ñòb¡ ­×]V5ZÇ7bÚ²e%¡b•ôí»™$‰><ûϾw‡odlYB=ãR–T¹ÄÙò‰ÝàÆ!ô¶/ÞBrÂØ1 šÍä™K_8`…QØÂ¶´~> 7½$- ÕrVšY¹Õ©á;fmÐý`猿t*¤ÿ+¸yÐH=³?ÒÛÄç"c²˜\KwÒo 7±ß'aÄD±¿šÑY²m¼ýzõ6oöòRA§i2òщE”àÕ­OÍ·pÂw?A*1ÈÿdVŸ¼÷–ÌéWªäb|0¢¡È™Á·Ã(Úh$(º¦ô»ŒÄ¨!8m5k¤Ž@ÔViÿ¬yÁœdTâf©¾zÒûœ8™õJƒ‡…òdû Åî(úª¨×oÒ€Rg98/ºô×Íq–YOŶ…YÜ{ÃÍh=fCìTÛBÖ¬,Ž‘sê*þuZÞŽqÅ<‹xrrII¹?¬3É 0Ïõœ«Zô|*Êø¸éûÕÉžêq¿»1P’vOL^¤V¾/Š€²…´g‹ÅN"ñ“/[¿¤2êCÿi~†¯1(…ÜÀ ¢´¯Îh39Ô:®By¯åpæY:åK¢·~,52¢““ ³=%Ú³ê•u}z,òNùÂ8#x­~zy^3aShÏB%uÒ§NpgtO÷Æ%Á67ŠEY cåýeA°„Aè$úzŽ®ÅÏ_GÀ3Bppﻯ–KKÍ„‡Ók\?læ0`­"oƒ"š:]%dÓ ðܨqU4{rJvòäÚÞÎ_l¨k›ø,8|g{W­{öý’Ì qÑ÷®Ü2ËvÞ¹M«ûsÛ‚g«‚þ'GÊEHÔ¨¼Dï„ü»q³rB¨’€w;ýÀ 'C'·—½jò KÔŽ{Nþ‰ƒ‹Ÿerß'&(òù8ÃRÅíÓg:Úf>ŽmB <>¡ô¢À¦ò¦¸b&n“V½¥Ð­2ÃGv6¾fùÎCr¸z3xÖ_B-VãÀÆ‚šC,!´›¡9×ðE$EÂÏOÁ’«AÁ² 3=×kl\^ŒP8àæ½ë/XÎÁcQŽº2;*ˆˆ"@(9ï:DÚ@ĸÛ6çXAàÍõTsæç]@-„áE°~‡½oç¦ Ûе¸@˜·°‡…ÎDà 9öÈ¡mM£àê&$Ø6´ ÕIò}¡4öáÀÅFÜøw1_Ib§!“¾Gb9šk{¾ÞZn¡Œ >£q©ÙOä: Pfµy-:Œ¾K–гFañiw”…í ®£¶Z’Xߣ›Ïm ¯¢Ø$ÞÆø…õR3Ö>ÐÏnVXVªHf;œd¬:•Rn~­uQÓ癑»‘ME[Ôþ¸ü) a᫾þÝ´8gˆ;fç>- S&kqR Áœüû\ÖÛq|á }-¼é7bweÃÐ_íô„Ï5\p½-(“W@aÑs‹ùí®´É ¦ˆrž!u™¼© AaÚcgmPv¯¹w%æ!“¡7ÇåŠóU›uZ눽PJL¬ˆ÷ävÐ:bŸ¶ ± ¹W<šQ ߦ2ƒÇ´É–°r¬²]ÎŒ<™ß»,ˆ;êÜ©“I…ï9Ž oW›|QÍñ~bï¥à¤æÇú:»q{m«ìiuÈÛFRŒPÙu¬êÌëì Š#ÿÍl÷! €vÙÇ*_Š+æµ”Û—›™Û^Sõ–P§Ÿ«%¾9N‹ëãˆÖûy„ߨ-^‚eTå9 ‹I.×>ïSnRü:!' æöF¶ÉÁÝ=ßôè0~óÞ·´»b¨ðvÖq\–—%îøÛ·ù_´ÊN;âÜXð:Sêg¯Âá±ÜÄcYoüÑ3ú@wW´X’ TŸ!õ¤Üî[ºŸ:å+\ëcZ¬“hCžƒ#P%àGÈYDw7"›ÆãÃdê«„pº¹áàIEÌ“¼*dÐbภ;=í[‡_åÆU+ýHW´¸Ÿõ(>W©8BâZ|¸Û!Ä{`ÑÕï|PºÎ´’&XXõUëÊÿì˜uG$Wúµ{cD´‹ÁrI!sˆð•3`ù!B­¹æb¯‘‚¨Ñ¯Ðiõ²}ŸŽª 2ýZ?½J!¤r?ñνß‘ô§åì›'£Å•èÔ2¢ïå2?¬õªÎ–¶‚²úL“ªÅ}58Õ>  =®zg5>½Fìì’·ñÇ#¹%^æ‰ZâŽìŒù£…EËëû›kÕ€&ãÓ§ø@bøBa¡*ôh¬eÐPoѽW¿x”Ȭµ¤D•HMû‡k`ޏM(E=÷Ÿ8 µòÚÈë[¦$uášÚù‡[¦W=®»3ìß á“{,iï|„½5k¢mRÑp€WÎ7õ3¤ãSЇ;Wô,\8*æeIŽþg€ñ×ɯâZB†NC$¹#¤ä§ÐýõÕöš%??´,¼O¬œm£ì-G¹Ø¸ùò,‹ç c³#‚Ì©C‘ªŽ¢3 ØÆeçQÐ sßòTø±žQÿA¡6zù÷ÌJ}øìð*¿‰ƒC?Žš©,F+ÕlµùúÎMéÙu£ó«@ˆCHŸ/ßá Ðg®êoAX–ê—ÖWÎÝ_+ž nŽrªD«—¨Tä’çôQQÒiaeaþ³äªh¦D^æ“Ç”‰˜@F›œ¾­@ϵbSñðrÇʼn­Ð†[õúZÂé·Æ08 yÄŠ›¶§zTá_-Q‚¿‡÷‘ãÜÔf_4õÖZI•ç tâß„è@€L( îgÍåUÒLâ>¤Ï5ê›r~2Œ& cT”ˆ|ÒºùôÇÿsÀœhHTÁ­,ã…á†?¥µ:Pë+ÑÔtß"žaæQ2§ˆK¤hf¤Ê ,x©“ ¿›g‚ôÑ{Ú®µ ÑŽ¦½³ˆJ‚Lœáj|NÄ R4.ö™Øp„|Z7]0I‰Ðêrò¢`×3æ³Òþùð"d+ÞdVØd}.•ï)6 ̲ŎZaQ”¡w{®ðZ”û}–k?m;Ür^TS0•ê‹7´ri¿É»ð.qÎË:zÙÜ[ ÃÔõëBÿ€né£iÕìhÕ¾ìfŒ%ƒÊDv |{ò.CþirûIÔ»r¬ˆE¦†:°`N ðòw¶(3ÜkQ6œÔWã{÷VºÒt¨_Žeí¨ôã’Ö5DáƒÈÓ²ú˜ÝKEU¹Œ°Ò²,ñ&IwÍœ"ÑÏÞšYKëF¹õJ±ï¢KY”’ÖK …E>¬³ì4a‹Y¯¬…åv~uÒü;!B‘9Á‡ZQŒ€ Ÿ{¦á×Õ#6âIçŠÍÐo1œ'"Иqb KÁÅ_ NºÞ¯G"óµÃñNȰ@‹FMkRu¢n• ^ßè*ΩëÏ—šk+D'2%~òfXãœSù X†9nh2N#Øë·‹=YÍóxÊGµ×;Í|›Â3Ûtò:â|‘ÔJr ÏЖjä‘;î•wÁ±cÁxq óWÞC*V€E2¼;.«ó|±ÇŒIë³ öþ|³wá‹úÃW2Áº&æžtû£‘øpµ¦ºi  Ÿ9ü*fÏUó‚õPn›“¦ˆÜqd ÞÄYÄ‘úÉÿ³+I%ƒ²oN‘ lç9{9 šzºP“ÍÔOxãy¤ëƒ]Š|N–æX"Љ{l&*îñ‡:±1B œ"î0!TšôVNŸÂ#`‚èÆ¸Ä`>©~×|ç`Ò°œ”Sô Îw–ûh€ìöýœÿBU>Ç­õò£³ê«õdE_,ßX%|[¤ð†°/ GëÌr]'²3aCŠÚ:Zþ…É®tòíPýki?s4;N¾(t뵄žÂ™Q8äêŒ(G,ògô¸‚å±|ƒV,W¹ìÄ.õ¶ƒqí¨¹™ŸÎ* ‡[¾• §DïN­Z±C£ð Eö„8™WE×R`tã‚æRêRƥϤ¦/õóáI_éLQˈ–¹N…Ôý_uäg¤/~`·R٤עy‰½? -u¼F­ùVj9¯æÆ~ ;‡R“ž„´éYìE 5t°+ H¸?Ûë>›böâÉÒij­ÉËJzJ>0I2ñN>æ2kcWÊ2‰F=σùh˜vU`»¥Çl#"å#ä ʧ›ÐˆLK œÄ.ºŠ-\4j‚ï5t®6x$|‘b„Àºt]õ~‚F·ô ¥™Èþ]3Ç‚iä@([nHûj@6zÖ ±Õê¸æ>óXv§š½O¹!ò-0ìÞ¤ù[ùKo¹ºÕE||„HE>=&•ÒéÑööXËwk’Ngèj:Ö˜”6¢Þ;ßf)¢•^Õ‚ÐiÑ6@2ZjèlT±mç)|:Ou(¼dµSþy~Ïñ¡Å휅®ùGwŠzÏ–ò>xÓ§‘Â;ZöJ‘qì¤OùTCØ%QñHuð˜ª>ÐiS¿n¼,NèM°ç5„´>B²éäK6Eä"¦jJ÷8Í¿AWÜR1l’ ¼ŽHØÊ÷k"„´Vé§)TÙç9‡$7—¾ë¢NˆËÎÏ=.‡‰R K.e ´;ë·0>ü2–¦ú¾w­äñ¾5h³1Áȃ âÆ1u‘ Oût§aø«T!ã¬Ú.{.ûq/áÕ¯Æ+ü€9u4‚Dn|ŠtÉû"Ru£9£lº1èÇ1¸„Ê:騆Y~™y™ËjsCä‡Î‡{ ÏìnrbaÔI ý†mÉÓÕhzç¢ì¬Åö˜«äšY.ìj¸‹˜‰°vzòާèävïa“†â1×øÞmnD¼w±SœŠ¤—K3[KWû'ó—Pʯ¢í¯x£é÷öòp(™«á­Ja~àÏX+µ•P¯À;™v2a뜧 »––pÌZuäx¾œïS‘Ú 47ôW7 žÔ*»]å¿lJcᦸp«Ì´ˆvÙ¶E“Ï @þþGŒ4!œ3ðUÄëLÁqÏÛËø3ì†j‘W³ß+xTr{Ê JÔJ= ‚ö·©Éý†fwåFÖFždÞžŽYH·í½e\Ã&ñÀ°o©X ä ³½¸efqèµó5 ìSPÙ°gÂZ%:Õ²À ÜÀ±ÁÐ G½2ȱڧ<ø(­»•ñià:½­ãV 4®„¨a›Ÿ4šf Ò “ÒÆÔŸ(i–nì›hS&ío‰×œSJ“ª #º¦pˆÌž†dâÁuIg %^#™?ïPwÈOCZG**[Ó öB÷Èm«Å}©õ€d„nÉD7†•õoD!JbÌxž¡R/1§|¨ÖAƒ^ëoö“(XEIh'%ÞÓf 8ÛPÙ${¢›¹ôrzÉ-öÈú×:AAc\Ó‰DU<ÄXPß㟼‹ZÌ%ö8¢^t%BaRqAÔîoT+0lŠŒKqHâ N´åØ[7ÌÑÛ/Ó,zîEPphx~”Ÿ~ ìÔ˘Š³ß%ý¨çyéŠkŽéVO—æÂ°láê².™5ø¤0 16¶Ù”ŠÈûyyÉÐÇs^{ç=(CÁ!ûÊó`˶ï1Ò`9)ßVÿÂt6öj¢s®-(í‰×0ÕÑ&ùr9TI$”2i¥aúƒªqoZö=&Šñó9št+_ª¥6nc4Ò}06ŠlØD^-+ÁÏ¥U¹x¹ï§}%Mû‚Š3jö#q½ˆÑÔ‰x '†•D¥b—Ÿòê‹e ØÑ\ÌИýý,$uÅè´—m˜)çЬ‘Ü­_ʱ­=?k*6®+i¾ íäh!ŠYM H<¤î9¼›OúHÅ|¿[¿6:£’¥6L@Fü©Â²Ÿ'ö–xáh¯†dXöó÷„âŽ9åÎowÖ«†sr^dþl5S–ÐT=¯A+Ñ!s¾TG!ÃúÂ*’¤.×6œ£ j€"dJ毵º4Ò‹ ØîôEë¶gKÈï©âd±Zñâdäã w Eso‰ÐmüaZ¢ëJQùÌåžL°bÅQƒìsç°|Ò€¥ßù£t‘¡’XD«Ðø,6vùw—k Zï~V'êr p±8'¯Æ×Mœú,!Þ÷Ƭ쨙ŒKµ†Ç #Óª·R… Üj!øl>Еæ³þ°SCôyŸ¹©¬& Ô‘ÛrÔÄÕèuÆl?ìãTEH~¨ònürðgOŽÊú‘‹7Õ´«ƒxî ÅÛØí.wí…íÖw°Æb#ÌŸÎ<¶Õ<H¿âQ¢ý$Pjs' aÍón¿Fíµš“‘oyÛSïÔGø2*šhµã¾C—Q–.‹Å/_—dÇöõR™Á¿©9*ý8îÖ±c7 ç¦¯@oÂCkŽ¥üud—¯n‹î y¶aFÝ U¶Ð—»N¼$€ˆLë!âÅ-Z¥Ø+IàÆ Â„tªšî"7Á“ÛœI;Ëxƒu¿?’”'Ý ÉV~2óÅûpÕ¦lÇÍ#‚ÏÌyTC <‚Äæ Y˜LâÞMÐ@ÎvýAÉs|iù>3*Ødo¼„”JÉ”À~‘v~®ÒYÛø=¶lŠJµzt(Ž ü™Û'éý£þÂà€¸–˜tå;ët¨úóy^*AaÉG7e™7«ÅßÚM¬K?Γê{"'=:CXgçläçÁ·Æá, C?¢~c6õ¬"¾8½xóÒ›ÈÄ”~W69дjX!±…{"_ÜÐ9­¦ïK?Ç~†vü–9w´@{ÁnGx‡Á›¡âÌ—tÊE)gèF‡z<è‡øNŠûB«Â¿wÑx¿Í™îr᥾åùx§¨‘Ö•ÄùðÃ쥎 Õâ-ñó"aPè‡á¯Œ£!s—^/w)ì¤ߘDN:­&e¥ 'š„>›;lá‹õi‘§ P†Ë|ƒÖæ—<¶RS³¤áb´~ÓË<Ðc‹6 ɺtåç`Gº÷\÷ür%J%ãÏÝ)1aË*L•®þLíæbKIÞ‚¬3 ç½ä@Œg.!&̦²÷þñãÏ_uܽ/aošàز±‚bà"ÓuálööyžuáÂí~E!,³ Ä3¨hŠão­uvÅ€„Pm&¯8K@˜TÜ)ÜØ–†g^ é²m-yîÖŽ×p²[æ­yUm%`J9–¡ÓIiÄѦ;W¸Â‹¦×L*¦®,”Ñã×¶Ø6š>P…¥ìÚO€%Á{•7ô˜á‘jSñGyä•Þ–K¢c“},àpcµ%•ÏʳáO“YPÈZ™ê)w¼Ýï{…Öˆú U«mV‹¯.ùÄæ¢£{2³‹Ö[Ç8¤é¢s€f–ÿñt_”¥U§™©_Ë^cûøpÔ !õñîý"ÛQø\%k§²«R‹”£†ÖχÚ/HLBñ}§HðABÜc2[aÃæTf$³<oˆCµÄ‹åš»¤c<nl®içïßñ“{LBÞì.CÇ*R˜¾9kØ@ã7"vƒBAùÄÈž||ÃÊñaG¡jJi1 {¹U$¤Mÿ˜ôyâ×—‘¯£¶P¥^Š£#¿ïûÜ/ÖB9x=•¼Oå<ÇÑTHи?ž:¨Û­+ ¥§ÁYß¾¦S“‡zžutéißE!ý*¢ÈcEØç@ëkô«Oøv±‹n!K¯W9°w*S’Ï×J{–RX¢UêðÁI7S=å^É#?×3…ºm¦8Ý"!Êu÷|òÞ³—wHaÕê÷bÐ-e¦ÓYg×3ÜášZ¬o7Ý“yŸÁ³~TÏeªI”£Æl ‹Qû"T¾_ MrÝg‹‹1œˆ]"³—ɰ¯Q—Œ¯=ÑÅ^¸«§Ê¼‡Í`UÌ@_'ªœ[HË 7{çJÎ äÙçòŒXË82ø¦£²ÑØÚçÚÞæÜÜ·òyAtÅð[lˆN=ÿ¢×e×+eZü9ÚÖ4WèœMþ„©$ëx’9÷2j13»œdÛ#™—#9>XJ½ª¦û „ŠÐ'S¢n"=Ptw¼}-¢/ÒÃýz@[¿|ç¸Ý5”””c‘2\¡Û>3a&Ç‚Ï\6›†H\2 $©À:¿ù8[ö¹ç|ÿÚz«F<»=M¯.¼ûkË ˆ¯bÜVs!¸UDYóγˆ:¸6?’œwõχ 43¶.Z¨‰¼Âf딞¢¢] ¸ÜöpPó_y¥ÔBx 细(Ë#È»–àÇÙÜua}ââ6­­½¿çrÊ¿&›UÝòß"BÅS‹ù0éüp³Èߨ‚P³=ô•"ö§DºìÔ×|XîŽ?ð9ÁíJA¯ˆœ,q3¹I¼wyÀD#Nš=Z½Aµ¹Û ¥>Ed†éUÔp8¬ó(…¹öƒýÀܘP'ížÇî€9;R( Ä|~½º°bdâúÙѵ‡´†Âèø]2ÇUó\Œ Èr=qKOuV‹P&ÏÉö÷ÙØÛ+F‹ù¸ Nl¬^w~ÐøS<óAûúÖWÇny>ýëTç…££´þ“Û”4u¦1dï?²½—·Ñ­^Œ6)¶ ‹·åL`±©Hä x‹Iä;‰Þý"ï´•uß\À“æš¿Ù:§ÚÚrˆº.Û¤6ŠÎ°®†‚ˆKÉ×X.MÛ§åÖ,¶CÌAI÷$´óË];zfuØß$ÍO>R3›ü>šwò¥‡`¡ph™+…°( eЍ0,~ñkLë6³.ê)ų§ŒÏöOu´jæœÈ¹åoÅï}±=¤•~õ㘕MÒ—œ|.\ŒŒ FçÓ˜vgY_»«_C"•qJüªì=ëªð£&)I==Þn^És¿RsqHY|Þˆ½Þìñ¨»·Àe-z)¯Ô£=ÆÁÿ•ô¾ÎTo‰‚@˜MµQ—X1xÓc3ªÅpi! ¥•\¼_–Ò¨$*ÉxvÝ×PöñIû f}w<4eÍOD»jݬ¯‘¯ÁÈF|["Ê9´Ê|´'c‡ï‚“’m¸SòK´B~Ez\!{´Í³òGMÁ¹(·‚ÿ³+½æ‚zÃcW\a¬/LA“Ù“†Ævº€ ï¼ø•øÙ™ÚèÉ ÕDÖÄdÃŒE‚j0 þr`¤. a–ÓÙÆ o÷´‘Þ™Ór‚ƒ¸ w‹;­,€mž¾—îˆ^X/õWŠÎf¿ˆûvÀü°ÇbN+ndapò%V(A”ôD&¦û Tb¬ƒ4EXÙÁ劚ëQüŽ|d9Çk¶¿N˜Q4Ç;{@bÚÂg[:ÏcЦ¥}ê²)Ò㇣b5n"Û j{/Jþ‹5Röç–âŽÃ ««?„ø@Ü,“|Ø|»íÏØØËªtÇ™”ìr¼LŠ[šì¥@è®ëiÄtד”·ÙfÃÎÓø±¡V…^ÇËù0]’Ðú§D)ãš2MØÂ#e:6ùðAI¦›@L):SšA»Á”vƒƒÇ­„ùÇ鈢`=7©Ú×Ó Šã,ñGå5ÌNªƒ¦¿ÝóO;vé%9ä"™EÉ×wÌÏ×øsù·.=? -<+B”6[«ÉŽÎ©,)χf¬å7Éš—Æuè°N¤¹yÇ!üØÑBZlåè~(^CJŸ‘áY¿aú«µD·Ô#Xd­Áé§Èõ:,IZÓî5ÝÙfñ"¿ªAS[†CÑ#¾,I÷) ¦ˆŸŠ¦ÑéŠ|&”Ò¦ÉWa᜴\÷ÅäãŠÏ­v˜ÞÊ~,Ã/(*ìL–u/6%Cß™n'QüÏÞû_—Œ"e.4e9¥é‘"mç\GΣû5 Òôó¡ÇY!Èœ„mùð«_î5¶æ h›³íO;hÞ=.@kŠº:j6‹µ­ÜÀ€¢^Õð‡º\ÓÒñlm¬qììª \×ÌÑÐêE1œF¶Ý½ïêhÞQMÆU®'ºdûFi ”n”ƒO‰1~³Pç“lÙŸiaµö€V«Ý²qbÉ¿ôL6ÊÌùÝ·Q/¿g„»»…Õ$<ƈ(¨=AM·.a[§[hœÉÁ½—¦B9#gX¥Å~¹)Úãî2 µU1fåS"[£´¦ÝôÕ ¢òñ‹¿c{;Qj–ð…iF²'ê"ÎäŠÓг1%µ$5Ý(÷þL„‰3äe[õÉ ³´|Õ³ãz}vÝ~¼©uo½ Ó@œ9ðׄպ6ÛryI[n«é˜›_fwSGÙ'&Ëãa リž£Yý,?âGDÆG«»«*P>ÅV=S£àspgFù§P†xÓˆ:1á§X”÷œ1ˆ²ƒút ’¹Qôª‰$x°*{ïu°” ù¢J ­n0:Ì™ë›7rx Ô"»Ê¢0ûPJ5³rnHâž§à<(ÑåLüÕ'‹ç{ì[× ¨£Üàeùà‘NÆíA¿úb¥#£á{!cù‰µI>òâ€j˜Ì#‘¢)‚®ç½ô£fçðÄìÙÏÇ©Û<xÇ2ÜòJõiÒøÐ®N£“¦Ûã© »™”ͱREîxíÜæ¬-Å$ß â^%´AqÔ£½>¦òõ:'Ž©:±ÝÉ¡Z€Æµñ ýÙ·¤j:|YšÆÕòï¬ðÈãíÈaÞhv;´báaÔþ@®Ò&*Y¢ˆ6Þ>« qè…H‡Å9Ú$«^â²A•’Znó2Q²ÕK3Â,¾ò–d' LÞÅj¦{ëÐV­´Ó&k£+/aTs-§0²(µ• ýýë\Ú¤Öš’‹Ñ^ä÷!q•d_VÉN&FÍâ‰Eò 莵D²Zða·~"7ºLÉ‘¿ƒY qŽ;·œâÑŸÖPZHjçÈ“,e}6uðt2°”øiÀºø,•zÿÁ¤þ$Ì}ÕLCzçq.¸4AìᘯðÙòõ1:?btfJ‰ …P_MLÜ”àNà‡ä­"WôuÓtFôq5ÚS ú+eKBÝò½µ÷À/I¡(ØôaHŠ >$íÄ…ÙR™6'‰â!и‹êÈLÖN÷rËy¨~ÓEe”-¨IxÕ–ä„kOÔ¦)Úæãpè'Ýì’6õåç¦Ä6u©´l @¨Kk_z?Ï E3û1‚ƒw¨U]& ÉV4KÛ§U¤_w.=ŒxaiºÙ¾*EìxÆÝNÒŤÒ6EÆ‹§ú«e—ƒ•'³qjA•$f$ 2²Ksà#ަó^ä³O./CgÂq’?‡ª[^á|Ü¢ÖzI[mÊ(¡êCÿiÕõY£aÙéÊ„ÛzF‰efj¶©¬r!ÅÖ;i\j5å­ß]T'!öµ?æªIƽAp|n._í¸—5O±[¾Ÿ¾\Ô ÛâQ±Y(˵Ø~Ò>iµ#Ô§o:>œcŽ^Æ„lP,žÞEºH:· iB¼;ò–ø¤PÝ.\“,óÌ_~ãˆ4Ò!¾6òKDIàCšnw[9D²)† ÝgVZV!DôÃ. UwóÏîÞepò¼„A—»ïÃE]Ö¦3;MøS^i‡Í¯ßv!{nUõ/Ç6»ºÝyœÁTuâÎTáU~'ó—bZÚ±ˆÅ Ëð-®.{“fÂ7B0-‡' ™4?vˆÁÃ_ ²H ÚjÁ@$Xñ§¶ÑØJ©k¶Õ^)VÓZÖ´˜.„'szý&‹QRî±ß“å®ÉÕÊ2 Å;¬ñ Gø(¿*<:†r—Ü XNÕê‚4êÑC™$9vôÒ*·Cæ†2±â¦s Œ´Ûr}jZ–`M5ù ±•,Ź.à™G—ÕÐy:xÑ’õSœ}U¿Õ *ªñÑ*™èÞž®˜ÎBg`m°Ãž~ù±ÙÀ&,Ë…kël;ÒYí uË£Û˜îH.®8 ç2fCí\->òãÞ¤ Œ(n–cúvƒj§`磱ÿ±ëÜÊ{Ly¿;n!R`éÊl[Õ 9é;{2,KBë`!Ö)€»·×ú0î°®ˆz_SžG¹MÉ8ÇFx´#ˆDy "h¥f„Š«M? =Y7‘ìms¡¤3×XíS=•Ùy'4=64ô¸É0Ò’ú|ãr`17l;zt_óL$9Ò#QgJ™ºX„^Ñq© o O˜ÀT¾ÄGäÍPìŸ$lM®À꛼65Aeš®ÙÍ#õj´T]ƶqJ ¢~Ã%²s(ýø¯Ž¦9=ò—b2xLž”r–&x³ä2×qæöõ ¢Ôg^Bu’œàŸoýä²Ýéñ"&$CŽeÛ¢èͳÛY2z¿>€4U(iÌèG¼tq(„öÓ‡uy'è}ûÈÏ5œSopUá"#ZÈ…–LwÙÈ¡Æ9q$>FŸ2I±tbr9äLe‘ø+8…ËŽå“Orÿ4¨L«DïòxèF¤Ž¼IßÁDTùÔ¼xmié¦w™a4dË€†~Äk aœ‘¢¹A¬žyu§ æ«ãV°òÅö»‚ už ä¼Yy¾ šTÞá^-X K^í=r4m$0ñEÍç` š­Í›±Ñ-VgÞª‚=°ˆµ¶Þ_uÓ„ßeôœù£²ÎZêÇQ$ Ó·Í€ò/ËD /oÔl é à-¨"ýFCò§µTÔÉd naÜï¦!„´GäNæâ ¾@í!õÕÊä»ók̨hÈ…çäœÖPµµ=ƇO²áJz½sÙ²»,°…{ì´\}3v|‡­Zî­zýU/Q3²ÚÙÔDå9y`ÖèÂEMйPÃëÿè_pse–qa€á‘ã5&RJˆ 9Z2aq1ƒŸoýqïh¾›‡.R‰˜‹Ÿ­ OÃe41òØ-«õåxì;Åd*mú)¢ž,a[®‚{§;ùeY¹¤‡®Üˆ1ù•ùÛr“|3âèÊ|n<9Ý;Ï H¤Ý‚­`s$Vû¼ÚËECbF9 ,Ýw¾ÈC2W¶¶%àíÁy?ˆÔKzqµ§!Heÿ„ð‰v,¿˜bZ扒R1Œ‰ÿѧ•ÈÜ%ÛÏê:J»°…ø& BòX&½OlèýZ×̤ˆy³*å.¤4‚Në *=ß´™=Šu„ cä|•~c˧Xýú|‘^§YJÜŽ8™ØÍL©<=º-^Ø„'Ÿ ýŸQ‚®‘¾ÖQìþíÒÐEœõÎÖuþÌ;|ÇO5î‚•é}yÅL?Ø÷ñÊçK N?ýȦšAñ [3øù~ÞûåEJØShǹC`Ï5öknÕÿ¹êØ7« ±ÇøÖ–õºÜzcÒr—¦< €¥2ŠÅØ“;²fFÕ¶[çé£ßhÖ³¤Ü·Éˆ6SòwótfŽ’èmAµ©½ÂÌšÂ{DåQ´Á›BvíCŸ6(ÕÝ™p¢Ëlßî9í3Á­u:Í´°¡ë(3˜é)ÿxЮû4•L aéºlq¥´y÷%‚~-°Þhzlâí÷|-7î)¬¢`[Èxm|ù VKœàà!݇þ´uôì¹_É9Œ¯ÀŸ¡Ê d›îд,ÉF4coä¹®°½ÎÛx72ërŠïÕØFs…rù®#pã!I6W/–H7†³ožßÙóÃSôØåº`EÜrøõØÄ./d4šPÝ üc7õãpëõmø20¼R†^á5!œøPSªš•T±e…¢¡D.¼Gü! ÍcCŽû]íhzMäslC-ªÚ†<î '1`>å5KîÐGTÝT îÂÀÞ“©­›/ðÃ~µkÀ§Ñ79ÒNí7;|¹ªR/üH…+öêýÎßâ$­ Þ6à˜LŠÃ•Nñ’¥¾­!‡Í¤Wü¸/F7m$›6cÛôí—Uµf‚S ;ë3«¢4å‡=U™Þ»ÅñóèyÇDg>Ðms˜yƒ,Q}ãt8¤È‰ô‹ãÚÀÜäò-?yBðMˆj8~aÏp ¦µ¦šUË™}Lê~+pG±XÂ[•ᢑ‡põ,ˆ—çù´}õmä¼Ýì5óWôÌãÙ¯*EEë^­S&MqZOøìr™s°ˆSؤø˜†)ZÏùeOše±7~¶Ò/ÎX“ñjИA ³X¡¡aƒ€-•€*U½•±_ó(¥ìÜö;Qxñ[ÿ–÷bv:•¶ê_ëtÞ»Ìæa{Û&†T0Û%¢¤ ‘5lG-º~Æ ,à¥N;¡=xË…¬½µª€ Â@¤öñ9·¾ƒÒ2>}Ó–‹wÞgeüíyk³E ’ìhÃ[vbÀJ ¥ &W…WæÔ _Ĉt4™‹…èÞØõ›f¥¤R캡† öÔ„*Ê·íwQü«T¬ØÔ±í¥¤@ª•Tq³>qÆ*#þRNó ~½ÍiG!«}ÐÁ'ǾY"†z‰í6Ë—LK&4½î/.¬ú˜…Üæ²Ñ­QõòÔ'Á ÖI­É4À­œ$o ~2*a›‚ÿç,Óƒ7!Æ´ Ð6ÈŽAºJÅv–“ã÷Ñ‚Mc6C³;lÌ*%ê«u5Û‹¶{Kνöê Põ ZiJ"?„=¡:H{j:B‰–½Ï:bY0 S5ðÚ„1Jj§Iµü²1Që׋Qž§Q•¸”ÜQhͯ(:‘Ü)NsË*6«ÿÇ$Èæ"Ô#e¤ <’ÿ@ßÒ XåZeí…ž 5¬ ÒØ:U=Ž¥6ÿ)ó*䋞A/­á0?8î$âÂ6Ù—èÁ’4°4Ù`×&•›ÝïÃÑéÄ%~¬Tåb 4ßjD+Ý)²Ÿ=vVƒÚx!èpŒƒo¦óä>-nNJu ¨j Hà t—wî÷˜}>ÀxIrÜzX‡F ì¶ÃB‘i¡YG[ª«"‚«t˩Ҫhº®CÞú¯¦ôþ-œâú!E¤óF+­rÝØ»p/îIÔ@ZN…q€ÖDº=üøÌÏ—$ÞHTr7#NrήXµ¡Û»è¥.l·¨§vª–2gMŽ›,îõÇo7ÔÞúìšX=Õ•ño"^™Ñׯp4{[Œ-­“vÓTœËòžw‘';N9o£¥Yuyõµðú Ï”XFàQþП÷ôÃXžsN­ÜÏ=û·/íòLZ¤‚‚%þ)xx5ÝÁ£T—uö„åä~oùÌÒO …/ëIA? ¢¾àÇîJJôêŒjRššuz-ËÝç)ÝS`Á9Ó/÷ž·f@gÛg……GÛ <¦7i“îû†P+r]ÐBjוÔ—ñ?hí`iïSç.Þ~ÊTËέÃ^ƒeÀ`¢Rñ)•ëgFx³kA²1Z>e„±™v]òZ ~L-©ݸ®šöÓ09¶ÃðxÛH ðCtíyÛLãlFVÀü•¦™r„RGz¾±èÃÍæ€šîø¡jCÑó´Ö× ¬ ß„ÚÚÞÊNŸÎz¦~v|9*ÑY*ßð´AÙM…¬âƒ©Päþg3¤ó@†SN¿_àn˜'s~ܤú¤°W“¬ÀJþ°ø{íh˜aÅ2§­U“䵕è ×…°ÈF¥¬eS¡ß6 °pÒ3¦fÖ›Æ'C Œ¦ø~s_TÿmPeÖRkŒEd±O¤ØT;y ”È×¢ê$½Ö½øF¬éÁlXÝåô›ÞN0¸ƒO YÉ ´rˆÍH„Ú©3ç, 6”ÚZlözFVËsV¢„?’XdƒäWß‘=ÑFÔ…P 7oÐÁ•¥Z]½YUIƒ}{µúÐ1Ç3äè"4i&Ýònin07ƒôë¬&¬åü öÛ$e+9p4h˜p>°träFÚûR‚­{bË‹¾ÓXÛ±¤-ÇH-<}QpÁ ý¶ffg1èû·Ï:ù[wYä 0î K*?ö Ô¤ñÏùð:¶˜}&yûlbݳvlÛ×.“!+SOpŒÔ¶õ…@RéÕ¾AÐêàP¤y®ñ¡`%í)úƒ ЧªšÙN‡Íkö2Ý8²)_˜eW™è$"£]õ]Ìéý¾&{ô­>ɹ*}8·„5̓­W„n`–šïƒÙQÖ¿»&`/•­uü’ª‘Ú”‹g<•“ MuÙpL-¿Yl2ÊgGú7”?ÐQálÄ•|÷ùA®ø…PˆeD÷¨VVƒů$· þ`Uc¨…ZäÍÎÀ®3 ê¾s¾ÅHžxFRCvΊju¹ñL¥BÀ£`H~FoYÝã=dÐjغX¿² âE좺¥‡C¾Urn”VH»“³½´Î m‚ΟÛM]è©”^pûlzGøºã× øQ¸j}Ì÷:íouˆ©³ °w#E®,Ý¡b°Þ`ƒL2zó?a®å´(è[S½ Á‘¸Ñ8 pGU£‰C¦‹X!^ó[¼Ë1Å}ü7 û-–Àv&¯¸ð%¹:qxôoaÌîp>’;tüÅ5÷G&nFÄ[bâ@̪—$n?*XÊpùéÐnÓ­»þÿßyþ îçfç ò­eåPÅê€æ(—Ç@©UÂro-uçáÙæ§÷r3ÌŒ¨¼Í\/sËÎ@©‰_¾Su8œ4.$a/LÇN3ÈK¡jã5-3¿Žo«wÛŽ-â¼?ÛYÅHSËT|Rû­,R;˜SxIúë³+™*Ø-‡çc‹žx281°Â!6 5†¡–ŧÃÂw,g`ŒRâ?¤/åÖ!M»©p\Gñ6ùïÝm©,U12­‰âÔ,äÌñ-ÓH'V“*1ÁÇ¥ºê澨¹cËêdiJ¦ð´ó™LôÄÑ™|cÙ–Ž€bÌ6ɲe«1*cÄ –^i)tz¸c¹·ócŸˆ4ãð–M¾¦T½t‚š¼Fû³¡Ÿ^[j«ØÍŽ–Bþ☧º7w:5¯6´gE ¥ë&¨Ö}J‚ÙËAúdAá:“–R²×s]@Ö ÃwzXË¡ Ódåí¼Ù1azB y¢Ž×ð` v¸Å!dŒ)i´« 7“X÷Î}¥F!À»spH©aEÖ°tÂu(»ì`õç€2ø³Aˆ©æ{Â!aŒ¯0á?ÒB¾1—án´N-ar>þp¾þx(ž¯¥-#ä¸ "I}Ÿ‘ðÈ à_èå÷: œ$¾(A†Zíó*U:Ë27S<¾ü$¿ŸÖgqið6¯Öò†c^{˜mPˆ/¯ÞÕfT…᪦-¿Ê®ÕË©A掙 bµóì@!¡"ä³IAÕ 7o™‹7›œíòñóËj;.[¨/FŸ‰]OãÝ#Á’/Â?Sf ª/{.ZÕ¬¹#寡Že.ª›¸ºÒüÙ×…5dóÌ#A'úæî-çnЩJXF¶×îòr°‹è€vX¹ÿ ŽúfMôe“ë*4œ™D?y"Ìœ÷Û ,øé³p_ÒãX.¦ÈêGÚÓÎà—ʇ^’Fàow¼3ü½b[qÓ“¢ÎZGü—råü>UΦ¢N¡ÚV5Ù•è×Ε4Èñ£‰Y<1‘aƤ¡¦‚"X´ÜÅUâ¶~$.ùΞ‰#çÛÒ×i&ø2¸{#àð7f¹ö4ów&¯X•ÕcÚÄ×ÓÀxyšÑÕHÖh?xEÀf‚Kx·6 åí§¿µ ˆeI½¦x=½É¢^RPAvuÚ—ð’8£-› Fé›È!&]yØ`%*{âqþ½t¶LgM@ž–Ÿ˜:«D¿®IyƒVž‹ÛëG^*ûçà7 (Èy›ÑòÝM±ÛÁWÁ#Â'ÝR—Õx[,” ‡õóo×ë¼?ñ¯ X¿ ±o ¡<Ö*à`‹;t"®6(²:[mÄüZ»èUÚ·Û9êuã¨Î[ô—_¿Yšá_u°BªxöûмxåÓ—È¿ä9?€E`5Ù)àß½p×ÿi3°Û\jñÉ*¹‘ædÃÙO,矧Ç\nºêÒÙ§“¥gFÀW µ^ LîJæ/–wÿ¡|®<× >è™ø( Îòš¦!S&‹ÒäyΞëÀd2…SDõ±Oû˜ÅßBdÉŽÙËÇ„)µF5à Ùò&ÜpŸ²À=¬½^".o^ŒÈÑìæ÷-hL[ðu4ª evI™xö&¬{„©ë¦õ1<áODóçÿÇDßWÇÐz¹üfÁ®ãÔéË+<͆lŸ•[ýÃi½îþÝ$;ÈF4%c® q}Hð !$”Àp\éÁÈÇc²á$ötuBŽkÙŠ[ík—’ïáSªj†ÞVšßìÎ×72q\ƆA3X‡‚šXlˆ–z-ðpC!p9rw2¾ÙÝ\Û#ÅÖþ‚'£…Œ8Í[U&ЉЗ!û2ÃM Ý¿{©L%EP‹I‰«§µ ¬úªc²g|Nÿ—sï)ë|ß:(PŒ¤û¤.~¶üFžºôiœΡ|Õ~0ùn{Tú»Ëß\éºð#Å ã]¿qš¬µrs|mÊãÞ=ÂôáËùDÓpid±‹fF¬f^Ñ›YŸN-êyRª’$›ò|é_ìÁs÷óMŸÔq™¸Oº!Ë} !²ÓÍê•sòTChRE8{÷è7$ȧuF'l[ËY×|ißukWù?âÖÚ¬wª©…}¦ ’ÙqÆm²þ$’Wx þÜ­M ñ“cŽd$ʇä“4Os ¦š+ïÛ¼²l” Rpþ­ß–éÇ—¤­EžÒÊ?èBÍ[i¾3‡4¡'»+*2ÅöùYÑ"9cŽã$ïØÔbîšI‘ xVt«‘±Š7Žú︴ü7ŒvªEÙë|g¶@nÙpžì\å=}¯(¡p8ê[ne_B1VzdüÔý'¨Õ÷!ì Ö­›¼-uëùúªÁÙ;»ON½/À1[)œßÞÖi®Ì#äsN$ñ²róliä’_‚iYMÇÊ%ÝmIÒl›úŸ.Ãóg ¦mt+˜ŸaÞ³`£Ú ›ÿ\¹ºŽlM\~ȇÞü¸°¯'á?Óh²k¯öð.8­ÿÌøÇVPA@ÒeSå™{?Û4 öÎ)PIÉìŽÛ»‡ëÌgT6ÃÍœ‹Þ´g/.KufŸWÜ0“K_Úºi¥6&oÞonâ®*“jê^YàQÒ$Å)H' Ø)]¢Æ ŠgJãM¸àŠùttp»¬Ôwÿ-ÎôfìvÞÁg¿æ_³Ð='›µˆ†C)Š"êüKx ÑÄø¾( õbzY‰¬ïæ 4ØZu¯ïCøär pãä-ˆžl~9.mb:¹-%È„1ÈÕž£^è‚Û“zü¿88éø—$LYæú<®æ“õzz›ƒõ,+í™Zú!ñ";fU²-õÊŒNãøÕÄûRõewØ=¿8ã+ýÕ!;~ò}"#²íâ·™­Ó¡´æƒ©Ž ²Ñƒ‹9:Wòâ^õ·Lk*7ål²å¢cZÕOä—*×(øïÿ9ú_¼­g7¥0›s¿ïÌæ™X0-èàU)H9;·‹¤˜ ÿØF'·êãÌÍhC[é÷GeëN?"gQuŸ7Ó'uP‘Âe‚›Ó §;,KãŒÍø÷QˆÉÝÎ=dº%½ÀI€ú¥h(L]>øûÓ@­ý‡«ÇÒ\b€dJ%ÝP6ÊÈvo@ÂöëÊoJ5ž¿ØŽ¤Ž“áõšu#Èt Ñ©UŸƒÑ†,ýÀ€FV+…—SðÕ¯¨çøeW¸ZŒ)DMEË8ÙòÚ?ï#œT¨ÏØ8檼ðð‘—~Zœ3%£õ΢A´=5ã–sSw_Þ1ÄS@ÑxBD–›S†~ ‚ w}¼™ôK“sn.Qe ǰäúÕ*±Uµ[n"àÂíÒëÚÄ5ýlð^»Æbü¶û@KEà¥1â×Êea•DQù˜ZÒbÑ¡L]ûƒTURçfºF³1v9t÷ñ³ßÄÀ?¶ øK²'•Ô@·\DwÑvü¢’B’™J´É}Å1bª‚§I.úêúÜ Ó!Ka›Ø¸h X†Åä߃b®œÊ­˜¹Î•÷Ôª¦ÈöÑðÐ:Éåÿ“ë;p³Û"D‰¡•–om,hh4üÓ½Ww»ªâ++¼Ñ¸¾á¾ó–“Ôh×9ÞÚ"W©sÛ0–­¶Õ"јqÞã;ÙÎ¥jrÏ­Ÿ÷ùö†¬›|\fÕô­Gù#]5‘ö_g]Ñb˜ }ÓN±ªpû¤ %P®Kÿ÷Íw+R¥­Ô!€Ñö&vLØ¡>G§€ÓÂÏâUÅ’…ìæŒŸ Ì!¡˜ÚÔË]dk²ê¥ü35R}ð §ÿJ²§`Ó`£?([õK•±Ëàx ,©Që„{±hº¬‘K,=Ú™€ÙVÂûcªŸzµéÕK¥ïùñÒrY±?›¸¶3¶ê!0·8[9… =âaNÎS~¶_ä-+¿£À„埡| %:rÿ`,+fÌ«P:ÿ±_úçÏ$B2¾n.ÕåsÆý>©„¦Eãcú¤©Ì†K<)CÞÐx/+K±ôèêuM„ýlnÌS‡EÖg=Ò<‘!‚¥Íò—`™P6uÓþÒ¶2ÅcÛŠ.øßDÙn¼ÅKš×3ÛÔûÒ‰>}H@™»ã¥ï‡ÝõƒGMàwÈY“ãX†E`êr/àùU⦅S4 ½cðÙ}¬é¼›@Pë(YnYן{m0J&Rü¹(Î.æÓÓ6Ϙ#š Dd¦ÿç‡8À`ÿä°ŠcŸî, ‚¿fÚv=ã¥ÿ€0ûLG÷úÛ(Ÿ]ÉôGN2¨Ž!äáíù¹ÝÃǃöÕw¢mr¢:ÝÈmº¾*†:’µþ‡ÈÓôÐòO*òÏ!“&cûZV-œR% ¤1ÂQó1zùûm´¸f3$Êšÿðt/‰Ð…:  yÊ•.B ‚„ë2åbÜYã5`<æÖya+s'ÂÉFÌ¡>mè;°×$FéÝõZôÃ}ݶêŒi” Í׆|ë´Û<¤S¤­3²i>°†Î=þ&sPpsæ äÌœ90QpbCÐ4ƒ,$¨Ä‘¨Ó{ë9íEÆE&rlg4ÉÍI`KªÂWÞSifø°MgçÆ"ƒ.ji¸@¹¢Ë¡HlÔ@90£»hÐ& ÄíŸbÜ% õ˜‰Mê—©j{õ¨‘>(¨DLz½¦§MÝ:åPN<²ÛsÌ”R ­kWÉ×RÚ1º²4e@\8ŽÇÁ'Ñvuç(‘éÀT¨Y›um ™J1'gN[#ýꇢ½ŒÕ¤{G³ž)!`¥¨ñðú ´¹Yâß͈ÅÁ‚Áš@•ôÇ"p°,…ï9+Ú”Ck¼Èê¼M°Yl–„®DŠjR_1@›æçOÎoýÃiµâ³~Nñ0תfmܳµÂH•š§˜&Ì .õ ½~¢qx!©ÏO5 S\‡q0YÃøÉªµ‚å®ç·8–t»Wöœ9\–s'OËH*¹ž|ë NÐÃ@áêDW§f•`O·—òµáÖŸ»v´÷iÂÛÓfîŸ æ-jõjþ‰`koÛWòHf 0Ü)/®d¼‹ú5ÆSa÷Œ°~‚Ý ^/0‰rƒ×)¼Ù5Ïí¨¤C¼½ |L‰ÛÎèÁIž¯2ç)¡ì 7ÏÕG =·èzeŒ Œdòš!R–4«¥ cðtYÁ”¯:µ˜RÎz$ç딫$äê·¼ÕsZJ¤ÜË5(/$à¦ùû@‡Â¤>Æ®¿ûwƹđÒbŒøhÉKl‚]ùËI÷ÜA€Yeï¦q:£~áž×o“¨÷öê Ö¾ úɹíŠe›YÎB¯óé"²OâÀ²£ÿ‹sxU·ƒ«ˆÖyk9æMr¡8uÙöÝ•°•«çRÇMYi̶`ì]ù[EËüÍîtV]ãN’\º&£˜'öjF‹—$G¥+B_¼@çs·óTvÆ,î^wåªá]ð Æ¤€ü5íP4:*‹ü. ßÒ(~`‡5þ-q‰=}™¦'1Áª Z–ú:åiPM'/l¶‚Á-D¹ñø5L\W<Ÿ½Ío¶“Ŷy¦ÁjèV膌Ìê%¢¤îÒˤT°¹L»¬)¼ üLÚ»h>¿E [kˆSbýé•dë ðýanŠQþ®ÿ‡C?®B'ýÂ[0ÙûÇÀ º+ uîQ3Ùl^b¦BËBÃ^zôEvS^ÔM¼«'0,]y‚²Üæß”_sw¾á Aæi YNØr R^<#ø\°6÷¿1Ûâ6*“G=µÇx<ôî¶ ’S³gràÓpÌŸ7¿þ1¬Â”¥«fI¶D{>wM³Ã2žËœ{’É )tëÎPþ×çt[‚Ù‹¬#“,R´f‹&álçuÿÏ’Ž–.¤5bÚ¨‚üŽìbƒÊÄøëÁ;ú»:WT}G¤ÍKOÎÑ‹á—e „ç-&Ÿ­9{›_^ xÉ¢e2Wùñ‰ÀR°ÖÜ=Û(€Ê\1 öEzõ{:åù´|`3°}T]NÅt^•ËaÚ”„ú ÌÕõŸ+*^ÿÏš¸¹#ÝáDþ3 ñ3óˆï’Á[™ÿ€Â¿#–½9?ÕŒ°àEeÞnFd³º¸÷=¶m ÊŒI€’=âtCò|”»méTµ– ²0<ÜãrÅp•MëR†ã,¦JDs@Rn{–šq) JˆÝ$«_gp ³Šf1VTžæD°e f‰ì¿hlÈN–Ôòy׫¢7£ Ò4“ÜáÄá$ÊïÄ@üöúrùÏ2ü«ØTºžB"†gûE¬RKYD+Pø·]yú-}¥±¿¸—‘6œd›¦’¼@ÆÜµÛè‚;ÊÅÊI³q@ýr2ä(GÒÑ€Ôb1œ(¢t]ÑWžù5*ØòãæôÑ„ýL„ó?¤‰zj ”UòDÞžH!ªód°RaKçJ: NŠ»¼¸wÞÒŽ£ýìüÉÛ縸*³k“E•ÞÉõ\«g-f½Ìz©rsÛ±ÓI_ŽOÈF¿V ïMÏöÃ’'trǘ¡rôLÔ§fø%§xÿ™åȶ8–l ñÓ E§Ôá³ Ôõq¹òœ«ö&z™¦®äÒŒ‚f¤:0µP||L«Â«:J:"=&AÎíK‚VÊms,¦n'æùì‰+oIã8W ¹_™+“ü0DïiÙÆ9ªS–ŽtPpBl%À*-Šy^ÓÔkñu¾nVA%âK¢~$¥RçoœÚºDÏÕ‹“HÞóYƤn‰FæÐ?ʪ—`ÉÝ‘•w±`@±sröÓâÍØhinKY)lÎ{&,9†÷T¶–]&zvÓÄS[+¾Á+½0ú ,•bÂÛAk‘ ÓÞ0Ô˜a…B…6%@ÿ‰èÚhã!®½¾©¡ªqHH4¼ÞŽýD%„vå=Ä4já }hÞÔî^…ÃzoPjŒ +ì¡ì2’|W3îkY'7 ½<-*ÜJ¸½ÎiÕ6)xs8‰ rä’¿Q¥Cî[¢Ç*>éiùÿÊâéÅÇÌ//×FGÓ\ï3˜Ÿ%¤;(„0&ò†äœ‰q'4s|(gè?PTçzÅ+•G÷jÁq‡¼ ÒxWKUɈn(i­ÅúvŽ:ÈÉÞd†wäPV™¿¾|ï»; O9,t9“V,A#î£êh€Ë”«ô.xÞñ1`ô˜*7¹‡ Æ:Ëy`DÅŸå5>—+µ?¹“y6Þ:M²q7šÇ_‰º¢ñÊgšÑØ—Ñ+æPQ‹ë×±–SÃ|”ÇûÕ>Žª¦Ÿ ±õÕ¬_zbB @m „bêøv唇Y¦Qu¼Y RJO±Í2ºßÖ ¿½D¸‰ÿ›«(B:O27~ïqÛæCìär3«ËB5þ[t;hˆ<Çkùê)‹ä8ÞœFŽÌM.«H´D!³r}h’’LÑtgðjYÇcàÿ{› ¦:Ìלµº<ÛŽÒ%®ÐWN¹­‰“S† ©‡ J)?ñÁ Îð¼³;âô€èö8ÖÔö²B¦ð»5Ry˜Í±ÏÒÍŒ ª‡ Ïæ”Ön›Ÿœ5”õþ8bÖdÕ-ÜøDÒcxe5y²!OÍf߇ƒŠ˜\W£J`Û·½ÏèùaX4Çôæê[N™ÁÕÔ%¶bLp‡pÑÍ…Lu*¼™gꎖ Ž"åŒ=rËïDäá9iÚ!kr®uÏ!O‚E_Ëå8L:­ÉÖÏaµTª5y¥´Ñ§´®H%èu\ù·ÿ"#ô¢LdõûßöÛ'Hbú$—ìfQé¨u!(åËMTÿkL/1¸<¯'@ âËð}ÂAñ4<('¾ñ5üCo³Žf)4ìpw§Äë`Û ,$1"ºçÑP)ä[‚® °±"¥´0÷ÒÇ(væxØ<ÖÿÑHï&ƒÉæ0…VF.¸#îETR^6NøNÙ¨nÊ d‘`:Xa{Ã[ ÌàþŽü뱉5XæåÄ\þq¢œMœaìª8é.&M(ßvIè5¡£›‹Ô±X†\奸ÿ_à¡5{‹óâ9¡Õ˜j[‘2±€™øÿ¯) Eñ`ƒ kXr¦ŽU¼„Rp4TlRáLâŠàé*²/´›N©ë±lð-m!Á+Aã*UyÏØö ¯'g [.~¥$Ðgûœ1E%ÏÑxƒ¿hÚ°XÞEÈXpL\n)‡ˆöÄáªÜ%”©xß@•/¢šìWÀ96¿šü·þ£L&câOg¾Éƒ+ëçÉ'0=Òü¯Ç·1ñN4Ú Ðw0ÿNáŽï *7’Ý)z’kVxÛò”>Kz&5­ûºVÞR÷k*]JyÛDµr¬©=P†[òAU¥›È×B,øá+ú4÷Õ›îg³ÔЕíú¾¤RéßèÔ;ÕÚ:1¡ïS~NBßp[‰BH¢Ž`‡) C¾ ™Ú{é9ž“v O= g ƒ0'1×UèŠI…8Z‰û·ôNzm ¹½ç¤NÝ)‡äë·F¶BÙc_£·z?÷ó^èÐÖŠ&TÀTô¿“q=ŽwH“a½”kP[©ÐP»ôØrzßtøFL¹nA@˜ì Ò!(þp–ä<1åCfçš8٤͢-L{sÌ6龇il ?™ Qdð¢ý‰!¸þ*qÇVV.»¦®Š÷ñTq@AÛ¼·}ÞR-»æ£ü¿ŒbúŽ1a-Ü©AŠhÏ,hYr»aC*ƒÏ¦x&Étm¥=È4ÆJmFÀÅÔhM‡Ç_ŸÁƒ¦º·$W J_¾ïÕ<1…¸6*³·Zð¢v ü‰ßjWaÔ€Ìø.X›1¯`ZÞÙ [@«nm½ø·tÉìAýYdFiË;ÿÌœó¾³èptþ\q?gÁwl"­¾LÛ¹ b¨F}·u¦“3ÙþœË®m3ÀåOgv3¬|r“³NA‹PVckGxé¹<Ú 󱄄×Rä[RWÉΠU°€’ÊM˜6°ŸW7žâ=l½  È6ïÓ¾•mÆâ÷ØMŠç{Ñ.>º/¬aX=íæ0‡×UKÏe¡¢õßèSTÅ:¢¿™²ÊZ&~f…©a~ƪ~hés|3ºß…®*Ö5Òã'7¹Á(EéšµQã€3Úcɮ㎰"„K†.výMG1& (bnóŽ'›»ÌÒ Ã_µ :‘ªêÆ ó¼„Ef$#z¢Ÿç=(¼ÕUHT©7&&‚"Qýe´@ bz•@‡¦SÈÍ»¦ÔWm¤š£]© Ã>s¨>nÿ®¢!‹£þ"d‚0$¶pü¶øö¾¬W0ƒ“ú ù'&s0tRpq=.0äÌ£>"ÍoÈjäRY´OU¤÷y¬W…0lUYý¼Ã¦Õ±öÂí²[:âñˆÑÑ|¬%ú"΋m8P½‚ð箋æ¾+crý…î{¦¸2Äå^¦ÈUäD‘¯*-»D™ Rñ[ÄrÔ€‘Q-üÑË‚¿õR%ÎìM@W8‚à'CêÀ$ôèà endstream endobj 2026 0 obj << /Length1 1384 /Length2 5903 /Length3 0 /Length 6852 /Filter /FlateDecode >> stream xÚtTTíÚ6]Ò¡i˜¡K:¥»•af€!f`rèn)¥K‘’T)P$%¤CEê}}Ï9ïùÿµ¾oÍZ{ösß×]Ï}]›‡ÓÈTX†r„k¢a°HPÓ×°ƒH\£àá1C`ÜáÛ)x,àho )÷54‚ÁÙÔ!P…nù¸`q,%––1Höo -¨C|0@_¸…B½)xÔPžh„³ WçïW€Ê€ee¥…~‡*p4 AúŒ ÜW qLQPð| .Œ§œ¨¨ŸŸŸÄÃ[…vVäüÀî GûÂaÀ¯‘ˆüÏh"<€™ Âû/‡)Ê ãAÜÁ…#½q!>H દ:z€¡'ùXï/€ðçr°ø_éþDÿJ„@þ†@¡(O2tœîpÀPSOã HØ/ ÄÝ…‹‡øBîGàwë@SÅ€à&ü3Ÿ7ðÄx‹x#ÜÍ(ú+ îš505”‡‰ñ¦øÕŸ: ‡âî=@ôÏrÝ(?$öï“ sú5ÌÇSÔ‰ðòë¨ÿÁàLÿ¶9Ã1€$HVLZJ €{p¨‹è¯fžðßNð/3n†`¬'ÊpÂF8ÁqXoˆ/À }àÁØÿtüóD08ÂHŠgÇ™áNqûG#ü[Ž~`ôë÷¯7{Ã`(¤{À¿á¿W,jj¦©a¥*øgä9UUQþVXL“•` I @ZZ þg"#âO#ÿ¬ƒtB²õ‹»¨¿{öýC¾? áþ™Ë…£.àû7Óí@’ (îþ?óýwÈÿ濲ü¯LÿïŽ4}ÜÝûùþü?~ˆÂ=àG] Nú(œÿ µ„ÿ¥]}8 áãñß^ '¤³û¿.á­‰ð‡ÃŒ¨Ë_ŒùËnþKkî$Üåøõu„Á Ðùpƒºá¾ Þ8ZþvÁqúùgI $û%41I)‚FC(pkÆ$,§HÜÿ7‘Q$ ƒ pãN(4ů‚ÅÜBý1¸ÄÞˆß}ãÜÿ(õA£qZûMìïóoaÃáþp(ÅÔ *åÚÕþ£N媟ðÊÐÍ<+–9üÂØ)t‡ÏOjÒLþ'yóè#•Ì·¯hf–4ø•§9ΰ›-M¤±­÷ŒÛN‚NïÜ5Yi£˜fê}_¶©ÒØÃF~MØLy5èÌ+È"ܰ¿óO‘— µQ ý¿×Zþ=•ŸÞÅL¬¯>‘Ò½tZ9*œlždþhŒ§Ø1œ…‹#ÌF&@·çyìðè]áû Ž[w)‚·’Å˱6 b)Çã³ÕfbÞ/Y¯³Ú°°Ò½¹U]˺Åü[Q>W:Æ™âäy¡¥d{dŽqóÉã•d2¤4À_mEjUߪfn©¢@ƒTï,Pd{Zòá¥_ý 7¯V«éÃtI¯ÆÜ°³6ÃrûVSy¼ÚI4$¥[µBæ‹)#Äm{Ê£H'‰÷ä3ÉÝð1(¶W]&¿§½T6tî{òŠîsô-<jMCQb7~5‚‡ná÷«î H—[ùøú=xM•ôh*æ‡ó‰ÄjóÓAõK•òž…ù±Föm¶å¾q£|ùR{t>­rÙ>éEJ!m±ifíBØöJˆÓÏ[Q›2“ÇXß Mýƒ’¡?>?ãÊ ©þBœ¾á÷À·úsßXì9#¸yóüõ¦¥Ç-+·+änD) ãë=’`Fõ‚ä¸9–^ÛK”§ûÒm¾í]yÆQ¿ˆEË3C«ò &Ï0ë@É'&¿â¾‹Ê÷¡ÙyuG¶3~vÒ•< ¯ïáŸsðÑ)¥UÉ!uFmñ"³VR¹yNYøõŒžÔŠ1Å=w|tg‹Å>i!4öó;ýµÈWÛ1F톱F‹hýtWG™òAÃÐÉÌ¡êʾkˆÅr§<áöðf[#r­2þ®°7‰îPì&/šŒ¼XåíçpUQ¤¶Ó$™8Ð ü®ý¸.àzvÉu41eÓÕ)Ñz×Añ\ÒÃO;‹Š‘ŠWV;.Ë~7Éóžþê[ºÀjfVª.ÀÖ¦£\øÔëZÝçŠOŽþ¿±ùPw¤ÕÞX—Ú¼én?ξu%÷ìYSìF™Æ½ÄħGÛ¶©*·³ÞŸQÅõÙf‹^^Ñ0”³o²ž,ŸAÍÕ+Å×ó¸Q÷ª’ç ¢¼³ ÿ‹qJ-HË.¹,Òø1ÇìK…eæÕ½˜|>z…iü¸äÜ«A‚1üÁãF½± b7×ÃØ³¼< §óÜK:Ô. O׺W4à:'Âq¦DlS”QÈå/ï‚°åPŽ8§ßd PíÉ«M{_ÃX¥ýÙDº÷ñýÜ:;µ¼øv²3~oOº£j =S¿·:lt j¶ˆø–Å ˆYñÊK¾>IRiï¿k«t7ô¸ÿ"8;ôƒ´Á'þaÌ!Ùí* ¾Û3éú¶—çÑŽç›fN¶/6;¯ήc‹f.¡iÔ&Äj;­¿A?«õ”õ—÷T³×;­œ1û kÌvœÍT§n;µF2”YV_Цy!®;ëü¥á³·6y®xõèØ %:ícæºê‡ß½*À“¦"%‚©í 7ñ¡ ‹ßÙ?}ç[P;áAjó}§¼è-e›–.Ö—o˜œck8ÅB?Í´¯ñn ¥ØÞÖ§:&¹•݉d™~<²D¶^wÎTÈüòñ•ÁÅMÞ—Êq¬à^ÆEñf,õž¾îlZØ£“;S¯µ ³f*„Žøý ƒ › UìrY1lb¥ƒDìÖQVí²â mò,~H·Z:i‘(çcjÙÈ$s—ü›ºµ­A[‰4Õox×2;ɼ$B䥋ÕIÂhK%Óïm7>ŠgVŒÌíÛê­lWíÝæÅ&ñ[¼k )VʃlìÙÌN’ÇÕÄàò7•?HÏ!>‘¢b-<gŸÒ  /jþ!ØßÆóäÛjUª¡Vi>þK1'ÑþŒºR÷3N½^uŸíÑ»ÏÊ1×’?|ëàµ=°‹(üvǰô‘ô:Ãg}]ÎNÉ:>ï '…~ Y›¶ßœÍ¦¢sӣ׃Ú$åLÆ`ƒDYÎy™KÊÓó÷åÂÞWߨNåSžíUì9¹©±‘2؆ÖfÍø³&ÍòÞôé² Õþúø"„›úQãYµ_ìqrri£aYG˜ÅFm\4"wìVŒÞˇŸ<陬Øñ€ÙM<ÖS.9ŠÚI°íÌy÷nþe[*ä„w4¼`Ñ^X}E$ëkNsãN–ZÏõ‚¥|{õɜުJÞ’Ô¨»C»GêZ±¦$¯¯†yâ_­ê$•R¸øò£.„tK}½Óy¼Ì°À„#”ùV¾¨8cßApÅ*O°öýðF]ÍÑhô‹ø]rNÌUV´ú]3[ÔÅ|tB0$!þI¯× ‚•Úл˾ \y‚Äœ«ÎK)„lî4,ò™Eý¤ÁA~UQg³½qµ´wÅù)g^±š)bm²;å4ÜçÌœàÎâ#‡/ Èb3ß›-ù¸g)$fê’'Þâ½·ïT¥¼˜{ßwòsu¹ÍÙ×Kª ö‘å {"χ–âÝ'ä’Ø¸¤7×¹ðè寮´>µ¯Jq(âD€÷±§ õ6QuÈËAßðª£,L…|ŸHÍô|éƒx\Zâa˜Rý¼ÍoªÖù%kÌ«ô®8êAYÀÄü£PÊ„TܲÂUn‰WdIþê½{¯ñQr˜OìXý()n¹Øì˜Úö~_æ sÕT* 2y]í‹ožœèJİíh¨tß,«’Ð7ƒôŽ ZX½µ]zè(4Ëæ™hI`I”’ͶI¨³ï/kk‹ zâÀÞÿ^‰)㻯¹Vâ79„ãïfãˆgŸ]^"4ô­—$ì¡íR}œ! Ø·r_àysü ß?$‹·ËI>PøVÁï•"‚qìSuj½²güt!¤ ÿUIÏhµI\¥*BWÀ€g/d“º {gô†ãTZáÚ2š âúUˆ“IÚ½¾×?¦)HŠ :eŠKÜ)Ï[ÐÃî–›aLí­– Vâ3ù°º“‚F%ídægØ…¾íUB—«…½:Ù3Üݵ€Æ{ÌSd×/Ðôó MÖÜ„>¤»hû=‰X¡ÂYcV:¼ïÓƒˆ°ÁøTåèªÇ “’VìIئY꺄5¿}—«Ó.žLŸp·¦ÒÌÒ6 ÝaD\{s÷JÂKV¹L-륃³¨Ö¯ZøÛxñXK¶ûž3¨õ£Î dʧîíwhàÍÍ>hTJëY§k"Ï4Ï$ að\§qíòÚòCF‘j·Ð>{µ P g…‰õ6æåOª­Ç6›vªŒìUÑ’.ùè§1—Y5J‹¢a·é{ü*_%L!šŸy%ò¤‡b”,\J=öwê™Û,¤2FìøvëC~9yüá×"eyd‹h™¿å¢L¥BÇX­’•‚c’— ôÞZWÜz;@|Ü¿FÍlò¹`Í®œÃX=ª¶…4EaË9l cl\ÚÒW”^¹RæYGe‰Q¬ºS6¹;òiZË jÑþœ¯ß–¨é¡‚›R“á5ØW(Ô7¤38*cß½-SáÀ1£z뤘„zy¤WÚ[,•-:û¥3£»‡ÞP»®²XKÔw0ÄM#纳BÑ$}©ü¥TóåkÖË/‡o›ø²¡›Ö•ˆ›˜ ~LXŒêŒL‚›úßÎ7RY¿˜©^ýQ ›ÏAìƒI7½¸ë`¹ eâÀn–é,¾¥Ý%±˜ÿ‘w®kBåP9î–/ø¬jŽuqކÖ5h±EzµÐ¦m`DâEŸF{Ëy˜Db4t{}¡{Ì•ô…À€lŸtöÖîô¤Èúþ7bƒ…a-”íQ½oý]|ÓvÁ´>YF×!ó&=˜`\ó='ŸŒöò×!ÆÅõNìÝÞZûúCŽÃü&Öb‹¯kÄ`ñ7‰žG±¶™_ÎÜ'*†ooNž~mÁ“‰QPPj^^åžá4÷þrnâzÓüæP¹º×j½îÃùô>²ë'Dƒ^¹Cê ró@ó“DÚE=Çñöý‹Ð(èò91Ï´¿}ÕÇxy¢Úš®×„”{Ì+í§9&1…TŸl¦åÆ“»Ý寮8º~ŒüHCÍ9 Š>5OzH0þpG‚¿ÇÅðYº>©>ìõ MËjzèùå&Xâ°IÔê$þ™7¤ŽĵC¤RµYÝÜwGß_|šîžB¨jp9¡](“?2[gý% ›è’Ø£´u™*ÈâüÅ¥`°&ú’m˜DÓñé'´Œîp&Øëò IâÂì,»§?³øZÆ9™RÏÞþ<µIȧ÷èé%°¤ø”«olàKÂèµñuÙõgµ «ÙW¥'èmÕ¬HðW’ÃZÞv-TÊ q>K?3gˆV».0íb«þŠ_"yÍ0æà·`YÀ½,)®aEaZ9î·Vz<ÖŒ%ioÕãaU5B¶s$§Õµµ±š%fEeáqÎVЈáúι2V”l_l¦v'ªfï¢Ý…ÇWöÃD:kήÊPÞTnÜ“y#ò§æ…gÏXù§1!ËÄ•Íì§G›š-ï5 Ãsî½6.Ó°lV×h‘ô.à1#QÓ˜€¢fªëåN®Ï F¢Ök,3B rˆÃæjÍ;óìì5*|½Iƒº•ôÜP e)†µecçˆ>ÍäøÿÌA>™ø@ðâ1#,²û§Œ)¹Hþ•=Ç0®¼:]²ÛÉènÙ.µ ïöl·¾,0K{b\{ºïªe伉ÍO¤x]seL‹¾¿"ʰ…se ŸWæ„0êsÄ8~Õ¨í×t匒š+=±­Ë>tlÆ~׉,óèÏ>¡ësðgý*8IqOÌËFŽÈu©þá:ÆRŸ¥£N·R¾WæIïC•ä»ûÀ%<+è…ðŽR”ÕŽzÑHê~{¨ŒÇÅ{ ¸1OÁ›çÇÅË“Ãm}=J"¦Æ[û{O9béñ*V3ê4¡œc6n®±`AÿHµwù>½8™÷6ÿŽrxtvYªtN<_x¥²ƒêG#¨c²?vNZ¢]ï\7{, (®®Õ,¦Mc5z£×ûù]¿7û?²‹Ó_ ,Ë_ÝXöæ«Iæ6Rz¸  1< ·RۺɻY|FðލçDäN÷²â>EFR]Ü€/­x³{?Ñ(ë]‡¼Ë¸n´‘ë›!PîfO&y„§~"µš¬Tí¿*¾€ýÄólø‰Æ·Šf„ÅÅË¢ ×ÞOZe•F²øÛ>8º´;üyJkôqÌÆmI:ì[ž«"3×)U ¼÷<_o{£µã(itšï'$’ß‘ÊíÜFRt>¬)7õr‡pOâL·^Õâ»2äšáJvj6×E³Õ.yÚ¨6h›æ†œ¦"¹`«WabüœIHê¨æ›w﮹bEöø¾Ôe7›Um—S×ëåLÊŒ[ñ†æW ÏF³b¾œqŒ&Í6Í÷R·Ç+:tÐØTr0 †™ƒ¿ÚTkÐp²æ~ŽÏ¸ôÁæ"ð<¸;Ìÿî°líPµ’¹e³P¼žÃqjwh~üÊݬìT*F¿/@ ?V¡”d‹?m°O•¬:¤I±ßQ@2IÛ¢æ7Éh3uÊ“8¨œÖç #$›MZbÈ’¸È'Ë‚¦aÙÄGý‹å,VÇK×¼ŠR/ÒÖIa?îZ_ÿܶC–ßz>#½ë+¸@¸‘reš@>™ø§Ü—]n!¿%’Ø”Û`ÙéLý‰ôëÕÛ-€K?V” –¾´ê1Õ¶jýê$Ç]Ä€Ö@n¤‚š€ãûŒ°‰/U޲‰¹Íu¾gá·/Ïmº=\ýºÊAKŒŸ:D*ñéË0äpÁa""¦‹ÊúÕ'/A endstream endobj 2028 0 obj << /Length1 1592 /Length2 8912 /Length3 0 /Length 9962 /Filter /FlateDecode >> stream xÚ·T”í6Œt ˆH3¤twwwŠä 130CƒtHww Jwƒ ! JK7Ò¡ð¡ï{ÎyÏùÿµ¾oÍZÌsí}í}ï½ïk?k`¤ÕÖã±Z¡'·(@NCC…‡ÀÍÍÇÉÍÍ‹ÍȨF8þeÇf4¹ÂÁPˆè?r® âÁ&D<5 €ª›€‡À#(Ê#$ÊÍ àåæùê* ºƒmœU(Çf”ƒÂ¼\Ávöˆ‡sþõ`¶fðˆˆ±ÿ È8ƒ\ÁÖ@@ˆ°9?œh tèA­Á „×¥`·G `¢\\œ@g8'ÔÕN’…àFØtAp«;Èð»e€&ÐôwkœØŒ}{0ü/‡Ôát N`kþâ±¹N詨´` È_dõ¿쀿‡àáäùwº¿£'Cþ­­¡Î0 Ä ±Ø‚@-EuN„'‚„Øü&àЇx ;ì´z ü)P”Ñ:ü»?¸µ+†€sÂÁN¿{äúæaÌ 9¨³3‚€cÿ®Oì ²~˜»×ß—ëz@|þ…lÁÛßmظÁ¸ `7Šüßœölv @€[XˆOXr€<­í¹~ ïýqòü6?ôàçƒÂ¶m€üÀ¶ ‡/l8Ð@¸ºü|þéøo„Íð[#V ;0û?ÙÌ Û¿ðÃý»‚=&ÜòãpÿþüûÉìAa6Pˆ“×讘KIÆPQû%Ûß-ÿÛ)+ õøpðñ8x¸<Üü¡‡¿ÿΣ ÿ]Ç?bU ¶PÀïd¿ë}Ô¿jvÿ[Ìo à¿“iB¤ 0ÿGé¦ÜÜÖxþŸõþ'äÿO濳ü_•þ¿)º99ýñ3ÿEøÿøÎ`'¯¿ÒuC<¬ôa ÿK5ýµ» °›óÿzUÀ‡uØ=Hšƒ‡Ÿ“›ÿ/;®öÙhƒÖöÉæ/»Áï…sC@ÚP8ø÷+æ!Š›û|[fíøð?hó/þ°rˆ?ùƒ–ê¿ëP€XCm~o¯€ èê ôÂ~¸ü$ðáyXSçu¸8!PÄCà¡g?€-Ôû÷E ¸4~›þ a^—ȃøoô g. Ìþ?×Ãú;ÿƒóЗÍ?àC èPÀþ|ˆwþGþ‡XÈ?àþÈûàõü|ÈìõøP¸÷ø_Ó±vsu}ßY?Œî_øÏ‹ òYcÏÍ@­ÅBêB:®jd(<8¶ÆÄÑŽÒ¯^ðrŒ›c"ú&,Öõr²çÕÞ*Î}àQ4wèÖ”u¹Ê]ž=õÙ¬§iðâ¿à Qܱ£±ŠŸ¹¿x4•äsII7ó¸©À(U–Zôk?’6UA–”]¿ãcßçu}_“<˜ˆË…TC;4»zjʲÕI(E ¿¯ë"Z­†ô·ÎHŸç­;ÇoD›¾NÓ̤SïºÆNô¨&XZ$ü@õ>*PÕ=hë˜! A¨ 6D)ÏQm¸Xˆÿ3ïû~&‘•Òé}›þw+,©Wuš'ö›'ûf´ÌÉ=Bö–ɶÑ<ß½¯©a‹Ä²é®ùEÛ‘6 ¹á4(̓’I—pþ °rïrå:•£jx¨š×üTßøêO7µ4“Ï!Ìì‰w›ßý;cÜmÃ۞פn*°‘d³ìùÙ08å,^0‡Nñš§ÛwèK–.Š„´¼ äãÃs§Wàs5~Ä(1¾ðñæ¿+<íê’ešw©Ž‚ÄE{¯Ö/úfÜñp}l°Î¨–óöp^»ð­ö\3St†–øUzw8 ¬ÎÆFCE4¹å{Ý‘!1¤œm¯é*6>DœSW ÇÛ •iæ¿»9 $ù4í@âÃv/ Œ¾Ù÷þµœ ÐĆ5x£½Õ~*f8Ñm'8X؃,9Ç~ÿC²-M+@•ßY†{ô—._ÓL++ñO[!IÛ&‘áZ(Ømë³Fò¦–ôc{?Ž' ̱xAÄ:CÁ»‰qÑ2«g­yQ,“µS¸e˜œ"åß²÷Ïøì(ÈO³%ðiLº,hî­î¡Oe) ‹Wn‚F0šNŒèhÈ7›r²zW'»Ð—Šp­–äbÆ#Þ“VhÍöÊIeÉsy¿ócÌ…œ„~ãüŽƒ†Z‡—UÁveøèÝ»y´Ubæ±÷H+&g$”ßB}cï ÑâíÀØ ÏÛø<áä£Çßëx‡aÐlùÛìw¯Qº<%‡mg•ëoLhÌô.Þ;dêE¾âb»ÅÙÜ$Ùd¦,9 oz¿XL„Õåeå(Ó^.Ú4Ñ6ˆÙðé—<že߸q'¦·V‹c]œcóþüãEt5‘7ž#àY±ÎäŠG¿$ÐeÀJp‹'Få¦uL€)T ôeú2A"b϶µIüØAígì$ƒc‹ÓÅ2£Å™3ƒA†ÈLJàü­gŽ@õòÅëtýÏÚ<>_ŸCò_ÇNç*ÎûXéwŽvØ¢‡­äWú¼VŸØgŠèéÁ~‘#²1\ºzsyظ")ød~³A?ÿëôP×#srM;œ: Ôz„Íu‚õºm‡Šò=)‰×íA ¾_H~8b{þEapPÀ‰ "dÕöƯ‡h{<™¥&LUOwòEŠ×3"ñlx¯CŠ–yÇZpcnœAN[èªäT W~Eu¹œ3te‹{Œ±Â¯¶ðÌæ›= ¿d$Q$†¹‡|é±4HçÌÿÊlcÖYz£¾ù=á(†“Iß“\ÚfÅÈ•áÑÈ–;òÝyõ$1 lTU†¦¶Ô>ã!毤$κ.;O.‹TMH_ÙΠˆ°§¾¬_fÁsS4ùÊ€Ó¾_N©ÇŽ&Å'Œ‰s:#3Õ¿âåÄ´¡þ¨õ3¢=ŸåÈ žèðûVÙ;gé V’Ûx}b‘ø…Vä#-;ŽùÔ™÷Ñk”waÛ¤ø@etj:LSïâ_½\“Ô! †h>9<¯OyFƒõkS ÕMx©ùzLœn¤ûÎ7!0ŠdmvC %ª¼çøæ{ôgT_ul›Ôu5ÞMóYþrÏ¿ƒA\ƒ p5 Þf]p~{bÌØÉHß­©¬ãõΙþ‘R‚Ž-®'ˆàitú°dÙn•¹‰”׆¤²O2NeÁ’ó2ãtÊD €¯‡À+1°øþInM:*Ú/@0è©.ÿ©[&=²ÉÿW¿f)Õ]L€zÔA¶í€ç6¯¼·¥ÍCq¨ èØõèC„²Ë–ÁUŪo§r›N: JúGŽá;Æm9¡~…ئ½e¹=Œ£ákê .lùµ-@û0–ôa7¥B¼ š¢kïó/ß^NŸ4ëšp§+îØ¢æ7$óþr˜él‡Ÿ([(ç^¶ÜÁL?€o70(¼MTTŽqFbYy¶\̇VXÑÝg91p3z:Òþ’Ë Ùýf1ÆÑîçøJ}\úÛAE/Þˆ’Äówö_÷X«³ZÁXÂV“ WÒpógWžJ÷œ a˜÷Iµ.Ã2_F:To(ë/v|Ácg“ë.ÔÜÀm“ŠŠ¿š:X;ò@kÙ¶ý1ÃG·WPÞ+ì…[E±ËU¹œö1…ýzñd_¥(k`*ÕµÓt¡©7èãýú­.jéž¸Öæjó &õýóTUu¶í´ÜØSôÚò™V#´ XØÔ©#zaðØL> óœ™Æ&Ù,ác,â‹ÅxóÀÊñi­”Z§¥Ï_¼$(ÏÊ̽¢ɼî‚F¬–¹Gõ"aq2ÇÈöo\á8¡–hªŸ’î£:ZG•짘v¤ž‡Šž¬VQX¦älH‹DѦCM¥Õ“€úifºœï½»«Ÿ“³¾¿4 ãP'ß M‚¶ë[­/u lV7wÿìäMî’|÷]ÍÓ…¯¯dõ£â UeÖnüßq£YÆî¢Q‰m…éê¶dÎ#^óU×úÑx‹4±E¼ƒ 9-wC1¢;ä±V¢Bï»4§Ã¨e{S%K«G@jáâÌfæå“!s¾'Õ.™ SçG§rhtïîÝ»£ZÎî‘b¤ÒónGd¨&›·8Ëà¢]fƒbʼU¡uRNÝ uÖÄD›wHÚ%—g´ Ì¢…=OìW.r®Á+ñ°”¤Å_Ž·\[>+è»ãÉЬ±ü'!qŸP6¾—+1¾†u|ÜhÖø!:™rùÕË`­°O!@û61·;%r}^:”6µéÕ¦<Ö$½°®ÁIÃý)•*Ï|¯FÂNî¸0¡!pIêzgÖC,ÆÂ,©ÃõÕìÊIÕ¯¹?qúNwåÊ…”ìb[Ó¯?Rˆ>¾–•a8Çø1¸OÊÅÚ,˜p~3dïúøœ6‹T!¶3‚0aÔÏYfóêRéŽ[!}m ©xYšg³©$Æ\iøÖ7a´¥ú]r%Á ì›]±æ#/³•ÓìE8¯‹óáT.ç×µ¦› 1ŸósýVþ ‚°ž¼Þ¸7š…GS«è]Žû«lV=ß«Ø+H ¿‰(1K4sè'öøáµªÝdñ.‘UÑã•„£fÜíõ›`Õ¤aO'Z»ýòj5Ð t\E‰øEÒ8üšâݧÀî°ߎÚSù†ýÌ»ÞËã{Î>î±}šÖ¼Ñ™ÖHòµ£ä‰8bÇ©eެœ=~*Æ7ošÐË®2Èp¯–êÈ¡Èhå1W…Á?ÚÖ22/ÞÂÆä”éx™ÐÒ9`‘8jG¯j^[mœñÑJ¸)œêì&§a2ïË‹‹Õ;Ô|n¾Y™SÙºæ…S6­ÜÊ4Ø…)%}ÒÔŒ´àúÙ6ëJĶ´!4-k.'›¿µSC,±ä?n™zBœíäRÉÌk¶Ô¡ ¢ÈQÛIæ®§ú.õfÆ“zùÇ<&ýŸø)¡¥ö+½{ µ¥{)…ëm5Ь,¦z¶Ó×E®¦ ¼X &³Ñ\ž30¾.¤ýucƒ‚ —`´FVdË|W@ù¥ Ne’ðÀ`?4žÇ¥¼ÆS(¹pr|c% Ña;ÓMˆ†ä&¾æõúVM2×äGݾ£¶ûUÍP?˜þ0ùZtn LA´Ëc8'wœDÁš')¯¯¢OBå|÷õÕAËãÉ/Xt=–wãQ>xb ŒsÎÛ—Ñc¶É+“íåÍq![7¾zßJ¢Z‚»ÖrX"ê‚J20d略Ôp§(&n|Ÿ÷%ôç«>ß“wÍ+XS„OÎô¹\»•ÒTÉ|°Úë,j¸Ýtª`tò>ãξ‚K’×–ÓäW3mZ:Ù–R ÿ¡ ™¸L¡Û[s¤_Ê;K”ÖË¿ñUÅa¹?S6E¥@'öcOžp7’g I=2+ÎúU|˜Ò~œX±¾¼«ôeð}Rs¦>ÃŽŠÆÅšWR¦0 ?—•oMs7}ž„¥ ù2Zïɘ°ã05¸p]Üê:%;¯õöFiµ˜^ªÒ‚¿¿·0ž+Œ)¬Žáµãùæ'é ÌÆÒô( F@Doê3búá:ïmú™Uõ:u.B=\x¼–;m8Â÷óä^—5ËŠË—-ÅVªVr‘„g]I[?ZÔ<Þ×R‹í~‰û$‚_liÕZ"[a2~£¤¦8k^æÙ%<-¢ß¿3@këY)Ô wß– • ù¶%Öƒ”@i{æ%Ÿ<×álTjAŸh¼Oõõ`!T±\}\Ù}ðNNÕ}ߌ4Ó¶—tçÉúd:z(rO*”ë"1NŽã‰“rzÎ6JÂ*Ôt¤üÙâJGüŒ”ǮЬÿ¨~ÁqZ Íæü&U9¶6ØÆÑ&´åâ¥;!>H½æ‰#qÆ‘íúSé3±_që¡·uÆÔYõg0ògÙæ õÌÔ #»¨òGw®c\µ»™xõýÌ~tð¬¼Ñc¤dÒhñŠ)2–+NƲºÞh)aÃ’ñxªV„}Ù  ¬LÈÆ*Rܤr2r Gç¿»Ò¶ 7ÓÈxõ<ݽšêVJÇ Ûa5ôKnñZ²ÿ{œt_ŽkuÔ³}T¼CïWC„„ÈÙ÷ê7äaBS%•Jl/{Fòd£kW"»÷$Z0Y™Fõ…Þ ¿ò§OŸXèvJé¦yÚDS×ßÙb¯zÛ\ú>Ÿ²Ù!æÞj‹•DÂMÁn=‘ÄMÔÏíÔ|TÓð .nØæT1È3‘|Y@ÃJ§H|’ÆQÖ·PMèï *Y|WoSB àŸt;ÌÔGô}àMñ•¿z+§wÃÇôƼž¥.R H?³˜ä¸U  †¨k^ž¨AèiY†QNósjy2x&z~#ü{õ¢…,¿bÄNXM‰Øâ»ž6pzæ]j|<:D7ê`;AMS«ïèþ9£êñ­î®_Ñe$è:¿w¢žÄ$jdù¡##°a÷¶¸QÝF2úu8²Fžô-ߴ類¦¨pAÉs;ÔÝÒL©e–Í)]+ÆñÛyhts@úŽd¤ ÞÆ‡ÁW,éXZ‰ØïÊ_x|â¢YóuÌ(c‘1p‘.«¾ëRÂiYM¢<ŸKÉ­q¥·‡ëï2~8ÙzÄ¡›Ï,YÂ:vƒ5Qö}ˆW ¾cç¨ÍW…SÀí½¥ŽvÑåL‹åò4Á¦]柗üI¤)õæo‚—C‚ˆ5Vª¡T˜J¬–RŸt5ÊðVûî¦Gí6b÷`=¶ó+È”;¤.žÇ6Å­ jö‰LÔ±½Z\°d{šú¤Ÿ“E îÒí¯bÅß(â5òdþÞÆéÒî`¥äDu Ê…X‰ŸÇÖ›©ë„q±^5©¤Ì²5KK‚89æ¡o'ãvîäȪÈ£¦ 8  Œ›¾"Óe{ÊàÞM•/ɘ· [Á¼ó ¼ÞËß>Yð…ä%±Hò¤ÔP—aX\ûÚ»GÉ ÔÑ=ÕFÐ?? Ûêj}ÍùH©PáSOõ³ÑHÊè[rM<Ô—ë㮡×ë´¡-$ß‹éò‚_üRœèã¸:aÉGe07Æ_«õÇtËdPî%µìö>ÉA€ÂÞ¬¼ŸAw‚Å‹fSAÔÙ°Sëçz¦*ß:öÙI—‰§uT<ÿ«¨*Få}oa áÈîŸá3ÏŒ\‡áiiT…Èœ#ïw ;OaŸžáôšCä¼^„˜Fk 'Kb§ád^4ûræLèòq>ž™áÞ>ÅKvÁd®(±ìyÆm×/&¤^ÇW:¡…"Æ*]VI„Éþ$.EQÇö ð)v¬9©ëvƬ×*8ˆ¢¢Õ×ÕfL%”ì¹ð2®{=²0|xtZ[pybTȆ ddc; ê¶q¾t=gud±¬„tÆgˆó’˜‚²KŸ­Ú ×:º”…»«gùœói{i®0lj¸j+óåâ(KŠ}q«^6üIކ²o9˨Jå ?Þ¼@m]›êÎ$ìRߎkK.¦òè‡~ìõ’jâòRý,¥Úóæ§Ž*ûVàá°]rJ²THôl?ʰ™"ø¥´áÊþ–L"å‘q¢¢>Õì·5‰:ÎÑúÞ‘Çû3‘PÇ[¶Æ"q–i¥e/6c“Ë>\ÎBÛ²ºŽéžkývžGÊïyγ;¯ ʪÍÇvŽéƒ”ŠÙ ‹Þ°O^Œø¾Þr–ö) ·Ÿp)xgž¯$¶ÿF(‰G•ݪoïÚ mµïëušùIí'zþt$$AzÝ*Ë^›BbÃ-FÖü$ ’7ðbŸŸ¯S7†â+âE_ŽŠrLR{¹‘ŸïäbJÁ”;+AîÓ„ ½VGZ(© ÚÜu”¸œ‚íŒ}’§ö8i¼ýP`\Ž mx=Ý;‘_Ì ç;3ÿF¸‰Ô|=EùÞk‘S¯HXÅKúû‹§¸‰Ëõ¾«ó ⟹GûL7á߯¯–ä6¿Jâ“MÙ%”Ç\`ŒopîAŽÚÖèKÉ\ü‚äßu$árU©™H).<ЍåòNïöC{<>cŸ#±ˆ.Q[?ùå }åsU‚î1)‡JÓ Í?”J1ÎÝpxŒôùè³XÚ,ŒCľ“a_y.¹v1W‘tì¼Æðc’2ûç;—uò©CüÂã¸Ç7SÞ¡Õnâ•öŠ3áãﯞ¢»hJã:IÒïkJëÓÈ}Áþ–ÇnZôLG[X*=: R½¸[ü‰¾XWãvg™ˆ•­WL´øUÄ}¬s Ô*»?Kâ±åxBãÆ™2~Nš6Ô‚>è¼]tç$°·¶^kðå{ï'+ÒÀR1éŠ Lh³æ›Mþ•á³d ºÖÆBöÒ™`ì­Ø!¿å{&i ÀãÞE¨®¤©Õ&4C­*ûú ¾…¼Ð¬ýƒŠ-‘ ,ô%F«aªËópqÀH{æ~FìÙý>WÌÆ_ôº}~8´B›1t»ßHMž/xn@ÄO‚OÎ3þí%Â,²Vv ) ²(˜—c0°(‘}™î~®?ÒPåÝûhÄS†J‹ÆÀ^Ühž/Âû ~ÌêªÅÆCU£ªå‚l×ôÑÌRæžœ:bQ3ku(šÌÛ4ÞØÆù û–Ì‘‹÷¶ã%“–ˆ«¥oîÖªÊk«wŠüzv"۴ؽæ¶RMŒÁë%o@¡ƒ®•3q]F[˜‡OÓIHs²Ú@­Q¾}²ß_ )áÿu!ä‰ÿL :ûµíBü'ÚÆ¥Lùµç‹h5Gí.Ó²rXz.¶·ìûÙªZ;}ëõnef-ŸŒç5]Ìb›—Ðyø?ßw’€ 4¯kPfJ„,Óñ¿§t÷ j,4ôË҉ɷI `WM.º›K×A–ºÑèOÒu|Ïä{k»×óLf³;µÄù”–ðAè¶õÅ>ûO´îGD¾È߈ǦiÔTíPUÊ®ˆšÓðíö:äýã*éâ>£e8Š 9”›/ÖÇ`ù™ßà â¼,/Ð:¦;¤Rdk"ì}L^ Úx¡Œ(°±’”|›ÎÆvîèõMXˆ8@5i+ÛXÖVbu2ï“ÿ\™ýÞiÚŽ3NÉ&÷íEÚ"OZ^åõG©"ç’«îZ”¶éøMèàýȸ(p܆¿B“ÐÑh6Ö…V—Õ]+.ú†W¶œ«}Í#Ýqouè‹ÿŽS?9mœˆˆ£†ç·êîþˆpß4j"Ÿ‰¾èÅ6å¸j1ÃZÎÔ¿ÊfÖWàM¥|ÿ…0·0R4îvN˜ãü ?6 [_¥Î•6òiSýtV¿W¸zœÖÓŠçy5{f‘^÷aÆì¥õ‘_åÔ\ßjÆnå½ÿè#à±Sjžê᣺£i=v,˜ð –µÌ6÷iaʆiZïÏ ëä‡Û#¹C%í9þhö}3kõLF*³+Î7dx1Î/ü'áçº.ÌE½MíÂr}Jðš$&5óÕÎ8E[LxÈôk¹ú{´‘rô05mГ¼FñLSòLQÆÑ›®¸ ~ Þ„ƒ^ðXî=ç^m#Ídc‹¸ïŒó/“¿Øý€~ÙÖñ~…]ùÆ%€“È…/·ôȘã²r ‰• 0Ìv€ÙZŸÀ¸K_zneé#KÚ<=>oS—™“¾ùä«$²ôñò¿íq—>•(ˆ¾¹>&híòúNk ŒÄÿÒY“©WmK!1”ÃÙ!Ù|&^jŸÎ§2:+û²h¥žôâŠÉ2’':ºG},†³z¬ éÄ9`—Ä‚¾c¼Ž âÿ±¦‡)-» ”o^K*v{û5ÑQÝ#ÜNT*»áØN®DÂäÈ1;Z“eÎP2­£máÞÍv™En8OŸyó¶=JŒ*E[ÿIM´&’.ß#ËÆ¶QM£p hÁ9<ñ¾—¸ CHÓƒÕòv>a©<Ç7ªïÑzfØé'm°¦ìŒ52!Òw¦ÍFÎ<82ëÞÿí)a endstream endobj 2030 0 obj << /Length1 1504 /Length2 8078 /Length3 0 /Length 9087 /Filter /FlateDecode >> stream xÚvTZÛ.ÝÝ)Cƒt§tw— 0ÀC ÝÝÝÒH#Ý-% Š4HIH "Íz¾ÿœóݻֽkÖšÙÏ[û}ö~Þ½†žZC›MÒÒÑ$ç²q±s ¤UUœœ<윜Ühôô:`¨=è/3½ÈÅìþG€´ }²É¡OqªŽ€’›=€‹ÀÅ/Ì% ÌÉ àæäúO £‹0@趨²”! W4ziG'/°µ ôi›ÿ,LÌ.!!ÖßéI ب¡6 ‡§-€ömG 0êõ¯L¢6P¨“0‡‡‡;ÐÁ•ÝÑÅZŒ™à†Ú´@® w%àa€Ðô‡;=@ÇìúÇ®íhõº€O{°âú”á±¹ž6h+ªÔ@?Á*X €‹ëËý•ý«ò;haáèà„x!Ö+°= .§Âõ„²€Ë_@{Wǧ| ;l4 øÝ9 '© >ü‹ž«… Ø êÊî ¶ÿE‘ãW™§S–…XJ;:8€ PW´_ýÉ€]@OÇîÅñçfí ŽŸ¿€biõ‹„¥›‡.ììR”ù+äÉ„ö·Íðq ðr@Χ… ǯò:^N ßN®_æ'~>NŽN«' ?°èéÍÇè@]Ü@~>ÿtü¡qq,ÁP€9È Aû»ú“dõ?]¾ Øð’óI{\Î_Ÿÿ]½z’—¥#ÄÞëïðß÷Ë!#¯©"cÈò‡ñÿú¤¤=>l\6n>N—@àiá÷ï*@ð_]pþª±rpqþéöé˜þÓ±û_`úk8˜ÿ.¦æø¤Z€éo‘sòqZ<}qýKýwÊÿMῪü¿Dþß É¹ÙÛÿv3ýöÿn ØÞ므'ѺAŸ@Õñi ÿªú3´ª K°›Ã{¡À§A„X?‰™‹—“÷ì*öYj€¡6$óÇ®ûkÔìÁ†£+ø×Ûò”ÅÉù_¾§ù²°{z?\ŸtùÇt}6èïkü…AOãôï>d!Ž–¿æŽ›tqz¡=]ýâøp= ¨%Èó·²ìGèS à‰³ÀÊÑí×5 8€¿L¿× ›@>øPÀáð7|’ äðÉëñ7ä~òzþr8¼þ¹Þ¿á¿èX¸¹¸<ñý­Â'®ÿÁ¿ßÈd¶4ïh!jÛÚuU'IîÁ¶3%Šx’yeÀÍ6Ul‚’1ÝLÖÎÍYV®”[ä’3±íU“r¾Ê[[8÷Ùn¤jòâ½d£’ûjMež8ÿx ;›âó“‚f» ¦P?]ê™p™ËŒe Î;TqKë!mzl_ƆÅ‚r9¥°.µžwuå9*DBzG[ZÐvó¾ Æü-‡„/±ÆQj¯i”E{®Ñ’=jq6†ÇFVq)ûb‚”܃wN顸²"#2¼Èµz«EXwùeñ|Ìåñ¥˜_Î0§”'îdé"DÔŽ9ìÆíº½é´=¬¼Ë‘üÚDÉí”c¦9ñ~ç[cýyЪÒÕã |RWB Ï©DÞ³£âï ]œµöƒUXÝ-ŠÚ7.á‹×¨ TÞºÜñÔoÆjÑv&Ú)‡aKŽpùWOŽ ¨-S_VúÇ X§|®›¹.‰Î°>4zб$oò{N%ug÷©|„^,ð£ô¸EØ[¤d‘ªêbG± ’iA;‡b®V+ºý™Õ›z¶ ËWÁX¨oï׫eu‡ÈïM?û[}¦Ê=|~cû“ ú: ³ Ê߬ƒÉ.ÉUâ+ÊëDC…–¯Í‘=>ûbï\gË‹ó…×~Ngh2¦Ò÷›Ä¢OW4G1VãíÀ;çé¢ÎªüJ¢«CŽŸéÛžt‹°¾/VÔ0;ÀŽ~V>yÇ)ŽðªøÚg @¥¡U,ÌøiÿˆPt½?*ùEz/–œùÖæ[Þ|”lµaÅ[ €ÞK¢±oZƼƱ5Š«1,õ¾˜ë&.©M-Ç·m¡–o+³Bš×}dÚ\½°oŠ0×,ŠP1~¨Yu«}ïb*~3.„² Çl®ïMãzgt.T;"ÈðS¹…ŒîawÚâêŽÃ4…Îç–‚g9°âxüskT8.;ã€Y²£`Ä$fÈqï£1³èÙ&^´o%ÏwaÞ-½Ûººç\|W‹Öþýý܈²|zÙò*k ußoÞÜ.Ÿ)5ç·?I XÜXgμÈK~$•øbŒomxœ¢å=‡‘"Ùå~½ »N-ùiù² ¤˜#  ëÁgC1΢k¦¶Nv[q–(úÌÙgqûýuà÷²ø cŽôH œ«k»/‚Vÿn€(âðþba¨¦Hï9>YŽ ›‘‚Í«ÄëûHÕËi†:+Çíf£FSϬõ¢æOWòŽz)›ôàAo³<Ñáð®p|í âáS&Ûive-ÃØ½w„´náßÒÚû¿¤–f@´¦ææS#U@-ž‡½s{ù(¡…8úTäÝÜjýè«mDŸ­Cn—ƒ '9íwµVep?‹f™°ÊjËùÌyÃD¸;üèÎ(ˆIúqÑॠ‰M>™ÁÌ!ê5yš²­#¬g8-—<ÆÅß„}8µâ™³kCÀþ$[§¿¹|WÖÁ5åyt¹†dÁ ¿±Â¯³Zy»Yù£ãžä”WÍ#ž¤kSÊËæ™ª®ìËNÖ¯¤A?™ÅÏnû3LŒPyZ(foýáaÉ£®ô$2lÖ7œOZŸœ¹(6#¸$èæ{ää–»ßA)/·T¤ÜPùÌĹó[ú3ÿ/¢ÕÕž“¼fc’ŽS…öµ½iZ‹jH ¹Ä¤_›îYˆúèÙJSÂ3:/õrg\°b* õŸ["@* 9sÕ›»d$2¶a\”ðÙ݇.$+å/ ˜õÕY츪]°(iµtñJÚY‰j6E›wµ˜ï-—†_Ãe\ŽH³FqÐá'PQÚ‘tcL ÉñM Ò“Kî¼Û^‹è (ëݘm­wÂÚ‘(ܬЀ>¢³ÌÆ—ÅGUù÷žc}1áÅìd%Μ¢ ¥Í„P7wÿ(×qV쑦{^/ˆ%pïrE5ÞNÖJÄO¦W,Ñæ§zçÀ)zHy Pí0–«ýbNÈ”(y4ÔÓÕó¤x sßè›;?²ðay~†óÒ%Zr“$XWg‡3oi‹’¢¶T%èVV^€/¤nÒš¿6.Âa»:$Ê¡ «€ÖDÃöhŽT¡·­Ý´‚Ÿq€’±f.ˆPœJk¼+•Ÿ˜å•ä\ÃâQ4ÊÒŇŸ»?’_µ$v‡_fzGa>ëØpÓd‡-tÕ V=bޤ}ØH¨Æëßžý~ÀRåàº+\¹ ÇùZW—¾{8Œ‚½=9ÚwEÒ¤BËiLt U®¾ODóäÜE˜V.ž :bP†à›¶ŽÝ×U,ÇowSö·¾8t R[Ò®FnÓG˜ŽÆv¼IæBŒžWÍ,¸3Jýà鿇vÆ|2Ûh½³{.n¢mþ¢ .™¨h«ä+.yIçƒ+³`է᱌½&SéVDRµá™]Cÿ(zK £Ô%ö%NøòN>WcÿÉy͕ЄVÝ'ñœ£9wg7t_ÉÖ…vïŽaµ]™:>Br‚òÛËIÅö`8ù‚×{Ë Q”¦³ôÚ…Ìi’Ü÷àÇè`áÊ‹îo~øh¾ÞÔÝØ ”ÉÊ­¢çpv˜ù ZØ#§ÂÇ)_J¶/Zær¥q>’[fO(h Ì¶8X„”êý¼×ür,†­Û°ºà@sºVÖEu™÷'Ó«`k/]Å ¦Rú.Ëý-(b¶9Ži;ͳbnœê]H­yBmŸ©e\ÇrCUÈé!ÌÑ&rÊA~JìW$(Çx½±×—¹zR¿ÈðÐÁÙ‘²qž–öe7+ç «H£¯k)(’Â4>kº4K÷ƒßf,Ú½r–ò§b( !ˆ¬¹ÏK5nÕÐÑ7öcìàÃz€^–Î÷ÎM‰ž0µ&|‡HájWTüÕñ ¹Iˆ:ôjQœÀ3ôcÆ–lsj3NõË^Ø­ä¼Ë6%1† š(©à3Tm‹× Ñ¤ÏÆüød‚vdtÓ»lf÷•¸T™íÞŸ.¢0k\¢Ð³qØãúBÛ2,ºo‰R6u0LmÞ­ÛÔÞÅÙ}ψèíZM¢l‰•n®·\lÁ vŒœÝ'™ÍG 'uŽvB c‹<—5|Ü‹Â.w“û¯ø÷¸žËåÿ‰0° ÅHZ¶D2csÕÿÒ”d¶`<Ãøþaü¸›zK®iîc–U½ TÛ¼ÕRØàj3LcmfܽùG ’!g–dV~ÉÛnT•ƒ~¡ÂòLˆ¶!Ë Ï•ü€4fZ˳¦ùÍP¬Ñ¡y˜ ŠœR”CÕuA*™ç Z¬WÛôlU5¸Zókó¦ÓEÞCšv;ëÎH³ªÌzPA@ÉÑÁOÌc{å„ü8¸ê`¨í«íâJ*ÿ±#,ì³_ÖeŠÇM]Œâí‘"$Œö9¯â´7÷ƒAdÞr*™^ô©{±*'×Ö5j˹%Ä·DB„Òne’KÚƒžªë‹yÓ^aüH,y“zfÄ-m\<Á‘®1#ÚŠ&IæúQ²ãyâÒ]ã7 ÉËéÚî—ôäÊšÑ[Œ€Ý7õÈ÷d¼BqtÝsq„ (2£œ†^6ÌLc{"g/EÒË3Ûë>ÞÍâîy±Ênœ]oÌéÝ}Q ˆÂšü9tŽ|³­Î¶Êf°G‚>Cè¦ÂPÉI ‰fY#ývÏD7n^NoÓyQç/W°Ä03%#z:s*ÿØÚ¼_ý¸Ð ­Ž*€f§$–vÑàp@C9TƒRªçñÆ=:—\£F)X,(ô©ü‹~˜3ñOGŠ/Y˜NÙÝ ½ZéÖ›³yÁVÌtg:lRK%læ3)^ú(Õ«{‹¼€ÌPØ‹´³zq9û€º$¤0è¬Ëýýšm†+â4°ËòT¦½˜TzçÖŸ»ò®ì Xoú¦mﺽ©^Ä9 ;ù6Ê.4ñN^@ß;å<ãØÖ¿¾ÿD×Úй+tçx/!^»"½iýT’@Ôjn¬Þ5q,Vb ¯rÂM3$&TK•K)üù´ZäKRÀ,ÑM–S®®–‚DÊÖ>×W&háF´Ò­©Gy™ü„ôˆæÅ¬  ;ñ}g‡É".û!Äf9¤»©ÒÞÉþ£¶È¢g¯Þ®ðôÃûÐâëvøß–gwæØyi'ÃO†§Z^9$¢Në4ü\aEÜ;ýøb²¿¼ê5žt.‘IÑ–-æíî†Ü–uÃY›áص}3hÞÃcÝi(ÜçÇéÔ¡Ùt§_gv&/O3•\_ÃÓ,«Åy ¹"ÍT•xþ›ÀS‰Õð&Ë÷c²~ÙqQšÏµžÓ-ÌZ¼½ë[^ÂÄíWŒXÄ`KÌ<>×ø8Aƒ¥é]ÈOSj÷JÛ{Ïn¢š‰vm¶R{1+‘°Æ6/n$s²ó‚ªÔ™»Ôcr†™+ž°Ä?K$ÁÈ*oŦ'T‰Yó½yælïQ’þ(BôÝ•~òC>"‘=9¦#skÓå;ê·oK¾½ÉYAÅŸWx?Þ~®)üf4’ã+çü·V™5®­-eá!d–wL‹‘¡?q0«šêy¾,²ƒùhìKë %±`FoÕþlñc”k»!cNWU<_JˆGÌÒø¬¬¸øU³ OBöóÏaј ¹¥©»d\Á¬ëJýß+"Õo´šÞžÇµ–t½å,Åý ü‹ä»0VOÀ¬xÉVçKa‹¡Ã­m{´ŠÙj«:l™d¥ØHrRÒîQmŒ—ø¸¥Bm’蔤ÃÎBÝù*–&:X¼ŒYqù Y"ùmAl šÓ‹ò—¼¼Î­ÎFÏÜÆv85L9’–ÊÅ—iÜRÚÃZº‹E$b›µSs‹»ùÑéQ4æüLjñ~–z àKòM2úçô|UoXÙwöbÊÇõ’­.Ã,ØEŠû>|k‹F§^sÄÔ:ÑìØ—<® >w£!Q°¹æÏdݾ+%"àZ+ѳµºÐÂ-ûA¦Ó÷Meïx¨l« ÖÅ‹j®Ì6†©o·¢*…¸…›~ÿ„s(˜4É̱ÑG-ù’têfßò•(!EŠq‹øÆœ:”Y4=4‚Zbä¹à¦x‰5 ›ïF¹Ö'ÔÛå]Úž)I(È l Ç$¢è¦µäê·áêÑÁNS=”·Dc ç´g?5NªÍÙRLcƒ<¿7õ<Gž²Òf—¯™XäâC‹ØY}AˆµW<À̽$?ˆ¸ß†i á’ yósRÔtÅ›,Ò¢Õu+!"íõ3MîÇÒzÂKü_ž‡JPvÛÀ¦ÝŸ\>ßîó¸—ñN´)Øb`uC•t\§PMñ[¤=)Ï™& /VÞ)ÚçÏ»4 ¹Q+·r³jF§.½¶¬uĪ.®è®^V§ã¤øÈpíC OÅ•kÜïõã>E 3¶k9Yû„4£¼ô>Ò‡>pçÖC•$íày3S Í冨-žÞ°èëRàfÉ¡ƹúÝp >ÜÔ÷`ó™*®ã%øWB~on#ÏÐù/‰f«u$ñ«ß”tM]c<ËG€x‹«¤#kŠ…c…D¾ÓVÝßê~»º¢¢±Ë²–V™M@û´xKS>RðlÚž€6ç Yˆ(E*PÕ¶Û è]ÀÏLõrÝÈå!D–´#ÀLçеües þärþ ”µÚõ¹ í»Ì×q<·2LtnuÍÐ) iþ…­…v¦%myÓµãËWÇ4}§‡~ÉÍAIˆÂ‡a'ωš½81{ý¾e#=Tȼb}Êìú²‘a"+|¬ê` -@1 £ËPC¿X– Äßl³}Õo’uÝM&á0ÔèzY7€ÅÀnPk½)qZ°÷µÜNSaF _¯ëHó¦7¨3f.»£ÚV­äçDé0ŒÓyÈÂBQB Þ×ÞîÕ¶½‘šÏ2þlMp.°’¡ys"6OüZŒ.Üóv(“˜y²Xß</Ὀí<Ëýañº>6½w6CÈGï§]·ÛåXK 9†¾4õçãù…unL¾R©xB­»ªâ>†ÛZÖZz¾ú#š¯Á*ß”¦êö1õ³|Ò¯û˜³kétÅñ½Ol º0}>5Â$½Ò`;¶kïÈÇÍËÉÓþv4íDÖ〄Œ®­†Ù®©é–_waŽ®å ã÷£ p¥:ZA‹ðÈeˆ­çG)ûeŸ£Pió’÷üÑq¼ÓÐsv!) œòš`"¥·ZcÇô.1%¶`š½­-¥¯oZ¼÷Ž•‘í5â5I¦¢›È·ÌÁg2z-ùp;*¬žr“Çc¯ÉO#1?˜ô~kŽ)³Sà['©‚B¶„ ÂIø•æI_ömɬé‰Q¦ž¶/)ó!t)²"'ÀŒáÍÔ°u?*ö MhnÃ,ïÓð§F²å¦áâœj¹’7²5èõfƶßD“dC>­lP¥÷ì˯î²à0Œ‹ÉùW®~ÓѺ¯§ …Èf?Ë)Û•UðL•£^9íû ϱ<®\b"{ró»ÇJRj·†7Ç}8b>ÆòxV•'Л»=Ý9åÛ_ë_5jx¼µ´ Ü!ÙM›>9'ýÁr¤õ…'[QögdÎ ³H¦q³ð4°ÞaÆ03V#¤V`¼F»&Á*~°ºBå,ãÁÊxsÑ‘ñ“MÛyÖ–ìTŒúî“n´&²’ÔMJ• oјî´vTzžºäGÄBsbUŒô‹SíîGÌÐLÒW×H!wîŇŠñ±X}¯ñ½®ªÉ aHã$úF¥zô@ýܹ×:m2¨´Z¡P€BIÃßÐðsY”Ñš™ìà’BvêgÊÖ¯©ëA›l_3?/£bÉãø¿¤åö–•)áy¥g¶Ò=‚µwêßH¬­5’® 1×ÜÛv—7@õûÔâwšÜ-óÝ”<°HVŸƒ®ix²î—åZ;·{Ã<›`ê§Iˆ9zn£÷èY²°5£›ëα§>ëл€0×k¢ÂÀþE1š0 ཆ;š‡@ Ë‘+Ýÿk,A>“LMËïãX¦è"¢r.æ_lŒ¸}ìÔ-2b„q̺!Áíšþ!¤ïy(oE^œ·ãÔ˜bß Fzœ($ÝŠfŒ<¥ð&ç?M’¿Ã‹§Ù͇¥zùê®{–JJôg„ü,‹µì[䚃|¿6ØdM–Tj ¼óæ¶ÎÒ6œ•…{£ãdUôð/{¢tõX­FÖÞýl5?tÝ“¨f4“zò? ¤2õ ®Ò88åÂSûá‹DÉ$Q/g9ÁHŽþ¾ýjºïl]¹£O§fà?'Á¶¾XepS"ZžŠœs`mù³d§IñõHæuóäº]––•~ž§}»<å{õ¹„º5ÚõµÁ´ÕBvV?ä9î;ˆÍͱÌfˆeö Þöx}<~ nË»OÝ1Ú;è/ï¬-IÙó†ýt8óƒ6¤??à SÖò…–•8¦?MX*»¯ôˆwþ^yRÆÛ÷KrÍ8Aˆ9”4bÌ ×ƒd V`R8°mX@•Q,ø¤o}níЪh¿”zJœ·Å!'ø!{ÇVé^r›Ø|úhuRÑ2$>x>àÞ8™NŽèfF-¡©,”=PnóŽÿ´Ü'WÛàËÝí#Õ¿Ùø¦ãS¬Ü;V6 T>`8j¬^ wdTxÜTï õþ±’‰3Ýó}ÊVâ^œšÜ`FlH–[TK‘MlsAnS)ž§IQƒêl^ÝKEY¬k@™H3ѹÛW–µ“"72÷< Òšâï,Ìå|9vpQsCß¶è…º³èc¹§UÛëð­ FbPx<»ä~p4è¼TÎL4ÐÄô_6KŸ8GTN¶É‹2%k³¯Ÿ‘&¥JžÌ8»w³0Ô…œ5ÚK¸)¤½ýL¯f²mDá@FZ ~±¥pÓ¡×€=]V´ÏhQCL±6ï$5¯~>#–õ†\9†äS2e[¥I¬^¤Æ#=ÛõAµ ›Ôൺ”+C1mËú)6‚JÂ’C4#š®¢e\ñ+™š"«ô×jŸápë¾g¾Du fðD>eIš"¬²îgG4õ V©E\¼;þ à. VO£še«TB± Sþ@Ĉ ;è_VÔ=ÃŒÞy±=;4Ÿ.ÿèÖÉšÃ"$…Áå_Qh5:P· ×G¼Â§5ӵLJ 1×FÇýñBa®J¶EÕ®keyÌ !½ºäë! ÙYêOsº¢8f:#¥{a-·üªI¼*K]kÆ®@òDk«T(¢E"6óQ~åîG%suŠË V¢)‘M#ôµJΣF+X™Ï„¥MNͪõÏ&nÛ—¸eib‰hÅg PJÞ®l!ðŠû8¹ .Õ§]_ê‹U¾’`Ä‚ü9kFã¨\ÞMV¢»!¯P\vcáݵ åmG!»6XܰÓA‚î] >§ü$q`\ƒsï*¸›¡èI2³Š÷Ÿ±—•ˆ&°]Þ=Ûœ@¹eäÇ¡:᱑AdÕ‚5Dbîúêñ ë¥å27ý¶=ö£²¼¢óÇÐÌ‹‘Ê6 "7²o ¯Â¬V\”Ê´p‡ö^¯y}âÔ©3qa2âhÑŽŠõÉ?´³íÍs /ÔÆ#&™P Há4_ÂgˆÂaçµPkU t&b™LGIèj"Öå}ÌK» Óꎮ€ )32ˆèü} j½>S$×r3sGe¬Q l¡Yé Ù}¦„[žl|Ã\x5‰˜F¡â÷Nóõ¤j\; 3€ùœ?¶Ckš6Ê¢W?~qªÁj´N¾áTöѦx@¬z_3’A}_ðæ«Ýb›•Ö§ÿð´GH¤´.¢‘Ë> stream xÚtT”íÚ.!HH‡ÄKw )!ÍÐÝÍŒ30 Â"¥(ÒÂP‚ ©’JJ7ÒJƒ¤Ä?ê·÷þ¿}ÎZç¬YëçÎçŽëz¸ÙL…U\‘ÎP0‰ˆÉjú& 1@LLBDLLœ„›Û ††CÿV“p[@Q>0$Bî9¨¡ 4V§Acýô‘@Ç€$´HFNL “ý—#%¨Cü`®€¾ ƒD@}H¸Õ^(˜»{Í¿ŽŸ ?’••ú¨xBQ0Ї = žØ] pÀ郢ÿ‘‚OÁö’õ÷÷xúˆ QîŠüB€? í˜@} (?¨+ð«aÀâ ýÓ™ 7`æóù£7Eº¡ý!((€UÀa.P„6Âá EØËSm=ÀÐ Šøã¬÷ÇAø{6HôïtGÿJCü†¸¸ =½ ˆ@ÂpƒÁ¡€!XO€ ×_ޏñƒÀàg¬ÃïÊ!XÅ€`ü»=Ì í#âƒÿjQôWì”5®jHOO(íCò«>u ê‚{ èŸÍÞC ýÁ n0„«Û¯&\}½DÍ0o_¨¶úß.XÉtîP4 %&&&#+@½h€‹‡è¯ôf^ÐßFÐ/5¶ƒÐ`/¤à†m sƒbÿH‚} ~Pò…†ÿoÃ?%p…¹ g¨; AòŸìX5ÔíŒ]> ØŠa±Ä~ýþ}²ÇÂˉ€þÇý÷~Eµ,lôôÿtüo›ª*2–„Å¥ÄÐ/É`¡ÿLcý]ÆÿŠÕF¸!Ù?ÕbÇô¯Šýþßßäàþ™Ë‰E-àûÈíĤÄ\°Ðÿ7Ô‡üßþ+Ëÿ äÿ]Øÿmæûmÿ?ÌO<ðo,h}ÑXè#±4@ü·«%ôiõ¡®0_Ïÿ¶j£!X"¨ Üáÿ#Ì €ºÁÐ.ÐòGoþ‹epj„ôýzVaìjþˆ¥–Ë=ìÓჅäoËœ^©pAºþ¢˜¸”4A¡ $Ø%c%) „å¢+4à7ˆQ °í…nHɯJƒQ¨·/vîXõo¤, Š}®~Ëÿ¸ÊÅ…²í7°uüKþMm(4êB29†t‘º[Õ|òZå–¿ðJÿaîËçüÂÁ“¨w¾gäןòWf>˜G©<íi»9³¤Áw¨<Åv¼ÑPs=¦1Õ¸égȹc²ÉÐJÉÄ ÝÇ‚ •7,ÄÌÂfÊ«!Þ!÷ðp?èpçxûÞ&7Ê£>ñïÐ xÓ‰™î}8¶b¼Z)­KzŽù"œ`þÈ.âÕw®sÖ(!Z˜…H€j7€bäðh˜êåÀ›N² Ièf‚Da°Í‚øãÓÑ Ù23qŸF.FüCªÞ!ž`Õõ4úñàâ™ …l/É„žÍßYϨ„™Ä#êÚ«üz'߃–sžQ¼·>R/§V•ÔÑ8¢8 i+›ã©ÑU÷ ,ëïÝTg›,ZÝî>cž’ýòæ !³öدo þYã=Ûóé£ðñÃg'=uŸ–ZC-_)u*1»ûƒ4§ã»ž:‹½K&Õ[¦f'yœA 8íã_ú–Ø?-qÃËí^IvÔòRÒñáÉ<ìãKá/æïð=Š»t‹«Ÿ3÷W©™b®ÊùßìÊyý„bÿ¦PP›9§W(Hs5–š}w1(KùŒ-±þN…]õÍ¡Bté»k\®yu¥Xóïă«çÒO_~ ÐÌ5Ft•ÞzǸ «ä{’Í>>D¢'ŽC_e›ý‚òÇRa?û#·h«D.ë”ñD8K £¼4ÝÕ‰i{&ÔF¹ìQÂrU”¼” —ƒ*ä:•"“Õj:ý8:h O{° a’t g„Å`û`ËÆè˜Öè­ÔƒxÑ’Oäàqw°Ô“Dÿ=ÓX®Ê«¤±BÿZÿ3RÒ!§ûo²XAb%!DéW MߨÙis1k‹ïYvÕ4ðFHLÇœ–r´é(V@¯MX¨&Zª2‡®Yð']›1힆1 åîD̽Ú1¡¢«§+|×NèÂǼ3ÊY§wm(<àäZƒ£m¿•E,%}×ÁãœJ23£«C¿ÈœSè'¡¯Ë)¦HT˜GêY}ª/Ý^RÔ#'Ax0Ñ1Ôøx,ÉQÙ^Z‚IkÞâ7ÄhÞGëøúeÍG›R«f¹+ª2Q_°ËÙ+ü¡|ð,¦—8¢ÜX‚nÝÂB~"·¹/v˜œŒªÂPÄ0{&Ô|ûvékäfûÃh÷—wìî,(s€ÎtÁ'f¹Î?Ÿ'¿·ˆx 烻W´fM9)O˜e¯_ÇŒ¦~¶ûzq ‘4ѿÊ.z[Ö¿ê-R|îmåù¸>Î@%·]/Ï_+cÖËb´L¹‹A‘Ææa"ý ÔßÇëkÊÈriëÁ.yRU&Üo}EÀ¥qctˆÁ†µû ºÄ+F}†UT>ù=L ›ûÏãY«=±^¯áìDZœ\‰äiÉ‹Ð.i_ˆÂˆa“_|‰³™ÚÔHnwu©h޾”À% Ù·Í hXœEƒT|Ë1Y7¼TDl%óM'ÄýŸºè’‚m(ƒ³zoõ,i'G:;ëýåRyA/»ÿF*ëEM‡Y)о™õTZ*æ—Ž3 išµÇ_w¿…ó±ªÜ€×QmƒœfnûŠø n/Mrœ(Êï …õÔ q“ ›*çsð»Åžû< ëf¤²¶GÖŸÍî—žÉ µ‡µS”CYöœA÷ž½òòÛo%Ëby˜œ~4ÑY,‚R•ý‹‹Qo­V®:ë@c\•9‹oã Þ3ˆ‰×}›3,Ÿßò}$>ã#$xdpW„+¿ðµÐõ²¬íçnJùÍóyæ8…E¹O—:©£¨1ø>-E² µš‰djNÑßò<ÞõtpÓ§öƒ ‘Fï:‡(#ø0Iï8†$$šdÇe7m|dcpy–ÊYÉ6QS–§rO 7»}†»žÔ±)ºEÞÈt`±œæ—ô§*‘®rˆ[îPWûÏFÜ4”u¾Ê_á0,zIý©Ï²]Le?+Zäˆyd\EÛóÄÎøiÛ-°ffF·—°î`¹:æë;E<4å6{cШ+“XI$h’>¶i‹*Ì8ï¶>ì¤Þ²ö††6WM0ß(Œ?ž°Ž1:ûAÒÆ5×ÈÛ<¸|´;¬Ù2J¡õˆ·ºVׯX¹ŸB{rÍ¿|•–Ùb[Ì/ÓÁóþ<Ç£‘u£Šñ›5ïÈ4¤í­Yû¯*ld>]áˆxН£—KGJÄ—¦LR½–óyðIy­K°.¸v~z×á^†ó\âû}º-'½Ê|{¢iHy.nCgðy,•ßâŽÞüLãjždêÐs®0j”§ÊÕ¶ÏSš¶û›y|ô¦;%ÇŸ|w‘4ÎÊÁÉc¤DìjjlñÁô.D"–a6o7wXWÅè¤ Î^Ñî>FÏ]¹„‡ìŽ*ûG2xô¼>\£ª§€Sßi¸ŸQs{ýL¤§#í­ [WP`±_$ÛWÇjÕ ŠO1/þWòi&"Äû~Ð|8Ón… Ég¿Í8ZàI’6Ãàî?É~„èDfLl­hj/ú%^zù)©:ö­,•˜--Ë]ìt½.üäÁÙù³íyˆmì·£Ép­èÚï×-Ïkä§5YÇhnZSsH¨þš<8_=ùªeÇ1\jKxJëOßr‘28‘Åx)ŠËè4©^ÔúˆâoǽuçûQ@k,DŽV´­X¼Ý—ªéÓY!ÇfÂ%k/MÃ{æXÁ«eŒóëùv·íȲ8^¯ÃDÕÅDÿ°ðÆ1gÜ:K®ZJÿUåµùÕíiš¸ëÔ›Ê)jo…ÿ½[½Ð9™Ë:çôd{CÇ’9¼³Á‰õõàV±®jÌÜ®4´ãmë [er=‰â“uøc¯ä‡L¥yaÃü-ßfÖî‹&È_7eä½áÐp(·Œ¾¦SuWù;M@é›H >1ÍOòý´ÓÆÞxKºžÜ3ãmØÍ¾)Ÿ­ä} 1±ì†ë©R­:©>¦g$ÞÉãÞ_ #”–ãƒ@j¦‚-ÌùF öû¬ÐR‰R4ý©OQOá|{õ\D¬ÐãQO/)]\Ë h\ûôÄ$N+­|Á¦a¸RÒ7Á<ôCgÇZûbBs`ˆýsšõÓÍï8§ì#¸ÚD#Ö+ÅÃ/u¹×] 5*ë7YfÜQìÕ¶¿nJ:8†)=È{mêy`¬…WÜ7E]B¤}#kÍ’ÑAyVÙk Ìö×J†è­qè⣕¥ÂSfç‡ø˜HN2“I³Ú#ëzÔµîÆäÝ\ò¡EÑ>˜I#YiSœ«¬Ì¸÷¬b Þ!Ï“VÉ©°6õâõ>4‰ßmh”áT×U§”·¤í‚£lªÅ“¦pEМ²} ê‡À¹M‘~Àl·dQ…‘è<€”«°6/Éí Òd»°çì¤=pпû뫨[¨Ä|ZÆÆç¢®%Í’4Êò5^7}Ÿ¡ë#lV–æ¡çGµuõÖµ ¤á#ãÜwûºØµÞïÄj]õô=fs<}/¿SÝ¿–¼¨Sï—K^a?ÃIÂ5yC1Í«æ¡!•®eÊpÁÒ´õùuëžrj9Cñ HYM¸0MºJ˜KÜÃop¤%n>ß~"! §îç´Óø Â:øî´“Dϥ©‘Wžs¶PžRsž{8lÔöi3øI¡Fåó;ý^uÒˆ Ã{øNYuÛK^'g7ÊoûÎp¡öÓfžú’¸…ºx· JµÞg¿˜µÍ:»uÒ²In.TŽûÿ “ÓÚÏyoÝ1ÍWá5ŒøÆ¶xé=HH§X滾Ð!¬)ûu¯#(2;:CËÆŽ;Ñ|Ëo¢‡•l0hÉaá³jB w¸Ùbý[‰; V JÍž4:)'tÂÃQÇ,°¥q-噤·È‹{õ&"‡~¼á]ž"T¼}¦KmêM½“ðÀs6™Tº¼Ö‡cjoÊ;=¿Õ:¼­Ôô•rÔ̸~R; *úI}4Bz¹Ð»¸K² ùW¨ëøS]1Ô‹PpÕ ã.ëÁÅrV܉k¯¼£ê4áð¥AS÷H^ª”°À¿k£éÚ²6Ê{G¥XÂMåÁ¼5%Ì·,¼mv¹}ÿÝÐÎæ*kÔÍo,ê‡Gr‰ S®¬×M ñgT4å aL’ ÿb#SÐÓè±8 k;òÊ÷ŠÈtAV7…1вÃL·bŵìïÞ“úÖ0Òv/ þ–wWd~à5m¾´«æ»7¥ô^a´[\jCCì×ÂÃ&¡-·ºp|O”ñ˜B®•m²ÑŽÍÄ®×¼øè0%}k[4;pè§d7—ª¨›,ζ²?î¦Ó—÷½ÙùmþL­›Ö[7rƒVaûz(zªÐ»Ÿ^¯õ(ÿÌ[ í  Xݱ|Kp=}ãóø¹B€<˜¼®dStÿôU¼býÚí-6/a½!žîüŸø;ºNŠ€SM1w›SZÞö쇌R£ßç¦vç ¤ÐŽ]úZlàì-8Ýü~.*ÉAœ0ùÊœ¸9hèÀý»{dùq’o 8g(]¡Úê,p¶S6ˆw&ÐŒ×í~t%©d%nß–$Y¬õ¢//c|ÿ…Cë ·YùÜ|ëàþã””AÅMþéZˆ¤l¼ÆârŽoÁêMDÅÑú]?N}VŠÂÞ“Õ¶ú‘â–_’9„¿x5pñSz²ÈJcóUÚÍn‘ï_Ù[Û9t¦MeÈ[¦¬Y+‰˜× vîN“±ð|™TY×¹!Xºû¡¡‰ˆjŠêÎašAî —´_µ)“™5å_œÓ zÏ®$û_m¯)eà ðm·Ÿ†é]-4õÆ„×è|hË4/ DëK¼kÚ¯õáz<ê¤(;=µa- ŠR/A+ß8†R½Èx¹®?¡¬x—_ÁÒÃiY¿9Vñj<¯çêþWè–…ºÎhȳÆF+ŠÐ¡Wj¨¸núfÝ*Ýë¤n xÏóSž…ÊÄq 7ë sö'›åÔ‘ƒÏìÖ˜.ŽFRñY˜ðIåÓ‰[B¾›êvÈ´|G¤¯Œ;/ŸófKt;ËpÖ?f“8`3í•ÃÜu¦Üšæ®Gë$_Uü”kxµÉ‚²˜‹hc °Ý@جȿ¸ó²µÖ>žuŠ/…|Óv-w,SÈ€§˜—VgWe`ܪ½¯5Ò÷c­EÉLnKy¼C¿fpEzÝÔªuV¬J¡Œ¿ÉcÁrŒ0â¤[X½Î#qZd⿃)Á0k4Â?ôBˆ4ÖÆ ^ƒvP ÷Gå1©5i‚ ´6¨mähW¢ù‹ÉÛ ôÖå¥õW)§Dzð}ÇŒ€Ö„H|óìx^«”Ú®˜(Me ó±›ÒÚ¤vléQk3GŠçr=Ž?ñzG‹d´ÅBé†kí8‚'h‰v$̧‚>îõø.ƒ3Ýð{' ¢æ‹?ñk$ÅÞ¦xpn^˜yæÏ_±ëN÷™Ö{DnÁõ.gaCå m¬Çuï.ÒÂÌf$™pƒr ‰.¾¦LâGyˆñ` Þ*æl°Ùò ‰~šß¡7ZcJW(î†õl~Õ¦"±“8¶kJ*Þq‡1yÌökÝDê¹N¦ÝÌ:Öræ}:—Í)†ðóSŠÂÏè÷wAC3TÖP—q´-C—Œ½:~mBºl!¸Äû5ÑO-æ’’2IžŸgGÕØÎÌ)˜·ZÉ1_{05­ä"xĽPE¼eÐ4£j*%ûð$²õ n&›£}¬#óûºÙ·æÙeçËN"Âi¾j.à‘?aÙÉ:?mÜ£Ô¥hvTy»uP¡BáCzÔ3yWmµ[N¢±¡$Âw\é »Ïð}ŠÞ‹¸L]I&¾]aÆñYËBÓ£ø¾ Œ&od]ÇÌý›Á/½;âƒZF2­ô•¬[ÖË–=ÂÕàÞr‡¦ÕfiÿÏμcŠ\ þ÷t§k{šRQë„d_͹2 ‘ö>]º,ÖÚo s}qThñe+j%/_«û–PZ(âQLô¸°ÏÐá×tϾæzœel¥îwa/Ú®Ó@ÓæÑc ¹+vÚí‘,Äft•à…¸Ÿ`‡A[¥¶¥¿ 1I°J*¬ îrZ• =¨°O¢¼Í yTpÓ–.Á’t÷Õ †2‘ ÌbX4Hî~ÇZV5@-¥²U½Ìéñã ÉÊè€×n.‚dazEwð~F3è´x>Œbº,;ã³è~°H}ÈZƒ¹¾¢«Âq¼n#Á¶.V¼)üø(á^ä+úõ]i•„Îm¶ö‰¤ŒÏÆ#B-üÇÃiP ÄkqL¢rÌãô¶Ò¬É™Ÿö­¸=7bÊùÉB»¾¿j$y+­NÓ+±’É#Û§ÖɇR&T"d¥Û‘q?l#Ê.vÔ,HÉ_Žf¶åê€ògü;m˜ ½}B¦W9† ùr¿äÆUÝÕ,rw.<÷‚ž>Í0]æf›¼®n{R4˜Íwaþ²xÃQrÀª½¹§ œÀAÅÖzú‡Ý endstream endobj 2034 0 obj << /Length1 1423 /Length2 6202 /Length3 0 /Length 7182 /Filter /FlateDecode >> stream xÚxTSëÒ6"U¥^Þ;Hï RB B‚$t^¥÷&Ò‹€ô®TéÒ¤Hi"è=ž{ï¹ÿ¿Ö÷­¬µ³ß™gæyçyv²6«¾‘€"mSC£° A @YÇÈ"‚@ 0)‡1‹„ým'å0…¹bh”Ô ”]a`,ΦÆâ€:hྀĤ@âR@ @”üˆv•¨€ÝP€Ž à>Ãr(£]¼\öXÜ>߸!<¤¤8ÿïp€¢3Ì£:`¬Ì·#Œ¡!Öë)¸e°X)!!A°3Fíj/ÇÃð@`†0 ÌÕüj  v†ýiM”`ì€Àüå0Bñ`Wg@" 0ↂÂ\¸ÝFšÚ=ê/°ö_~ÀŸÃ€AÿJ÷'úW"êw0A;»€Q^”=Ž@ÂzjÚ‚XO,?Œ‚þ‚‘4.ìF Áv8ÀïÒÁ5E×áŸþ0W„ #ˆA õ(ô+ î˜UQPe´³3 …ÅþªOá ƒàÎÝKèÏpPh”Ïß+8…ÿjêæ"d‚Bÿº³Â1 ŠF!½þ ÿ=b!SE3Ue¾?-ÿË©¤„öøK$Å€$øý3>ñ§ŽÿˆÕDÁÑÉ¿ÊÅÓß%»ÿá÷ðþ™Kc. Àýo¢?Š!¸ èÿL÷ß!ÿ?–ÿÊò¿ý¿+RsC"û¹ÿü?~°3éõc®§4N ¨ÿ†šÁþ’® Špsþo¯&ŒSƒ"ÊÇhÐ=AཿìŒÂÕG`!±æ/»É/½!(˜>ƒøõ„ÁEÿåÉ â„{Š`pÔüí‚á4ôÏ}UQ4ô—Ø„EÅ`WW°)nÖ¸•(À„S%æù›Ì!A‹ àzôÀÑ®¤¿+cp=#0N¸98ürþ¶ƒ€â!;°+Ôù/ äŒ@¹a~þQÄÍÕ'ÉßtÁ•ø÷ú·þa0O„tv ‘q|ÒvV­Èè!ðyˆhq©#2Þ¢7BË9ýÌÇA›8S}ü‘’-´òö`šþLiØØ”/#ïÞÙ°çÃ×Ù ©¹X<ÕÞ¥}¼·ßŽ^ÛÃX hûñ´Èê/ Ì”¶–„–\IfS¡â]"ë/Ö .;0ë$·΀¢*ÖTFlŒbNÇ6þ Vö%ì€ÅCªØ®–énÆš&#—øO±§JmÑôß¼V,c3>~|“Ý×›&r˜¯Õ]%VFCÓû>kÎ`b?=mBöýF §’è‰riJ<}¡sç­øÂ÷‰ü¾Ö„~·z{]åÀëzß5¸Õ¢E§dsº™lV³Œ¿ ‘ßnJŒtà¯NcW⨂⠤©AævÒ±ˆj;æêL ‹KN-´ñ碉‹X¯Þ>³ÉL [¥È"%ú?=WÓG²¸ ÂÍæ.dR4 4úšº¬ŽKnƒwù¿>ïE”›ßIBo4½iè ßG³ï1ÓŽÆ›·gn÷l%4jŠž¼§6åUÃÖhM£;mxârâ&ü ssõ[;Ô¥(HÎŒ²Å™ŠPæSOk¯ã¥ë^³ U ˜ ¢ qÚ+e~1W!öî™lP“lŠDðñüèþƒ8ªš•ë]ß®ZÇÛ¹î “Xkåv ™ë‰½ñRDwÖì=Þ^·2{Ĩ¤ÓLaqo±ø(¬‰:ß"nò]¾¹¾ê¾ö¥ðŠpóõÊæR´FŠ)è–ç8ýÍ·[\mnô¾­hò³“s3Ý;̆™ªÉ‡E»ÍqøÇß9“WÒ‘wÔ~Ò=ôצÆ7t½`Q˱;(ªñã G’+ŸYŠ ç»¸IB˜Üá“è`>øÈílíÝ;µ~§Hy&ïBÛ^¥µ¿aÅšU™sØ*Õ{DqˆV™ÞÛñXVÍëÑ/'^~_¿ýÕú‡ vÂL:£óÝAz¿›÷Ý2,ï»bš‰ë&ϲ}|W¾~5ð‹|V+A¤tIxV0Œc5ÌKº*—¥kYçLF+· Ü 6Eצͻ·äì$ÊwÕ&ß‘Nή‘ü ÇÒ·R\Þñ­ü[CJæ­1ÃÝ«î†Ê)3…„Ù*¤ô 6ü9ýtƒÙ”íN7èbìàÈuEÍ3}kü²Ú ÙLš"¨æ[ o'nÈ©H°ç÷x–¨·;F&úšµp­áÒ! C(ÙÞEU[ޮЎûë¸˼æï3,MÚzy ÛÁaI7dô¹bï?œ÷wO˜äïc¯cs0)Ö‘?®Ý–_Jrá w§˜¾%;¯Âø­¨S&)è&ŠZD®•€·„¼ ŠÂƒ›õxBêÈ+€âkã¡×BÔÉ Î ½ŸÓÁ7}ÂG­©U>ˬæûdd,+¥ nMù¿ê›ÍÁù”¼–«mú_L¼P°‚°H$Õ ÄqÓ¯]ÑŠ¸¸ç¤'{k÷G¹Â” ±ä’ÿ£>ZõÉ­5'ü÷¼â$,çX‰vNχg6&¢[ƒ¬§Ù9£?ZQK SâV1Íœ!!¯…â——­y2Y?÷€Éð—*öfGk—èÛØò¤ã6R.ܬñŒ"IE3Ä”d©çóÝQóÆ+$•q5#ml¡c§¥4VBDCþ~>c}or'Rùž0e"(®\–BÀÃ.¨·ó+uŸ&}ÊÈuKƒð¾8p`¾•mîçðš§—t è‚V?W˜Î­÷w‚K3­Ž7ä'ùÉðwí°yȤt*±„Ÿzî]6ÅD†›ïj%ãÖú»¬.§×^Ç3ž6»Š¶½–.¬}ºÑÙ·ê>Ã"éDæEKW¯‘èå"Í òvzäH¿ Ê•Ú7 ±ªø˜eç­®,ÏÆä ûXèÁºQ“:$3Xh¨¿Á¾ÖØ,õ³ý=ÏÛöXÕ»3…P®ŠîÏŒÍ do„ñ„{±~᳌Ñ3n‘9†V=¸`èÉצyu<<ªAߜůˆÊÒÖ(|ߢõáø¨!‡'ý+ñ£¾éyˆ…WJïPkanÖRwÑ—¶ µÄÀ¦D—Œ\ÇÙ#5£'¥X£’·”Pù5æ´„4ÜÁÁ¡=§Nºfõ¯vÕfd6”üjS7j绉 w¹ç&G¬…g8¨€øŠ—;Î!­xÑÔ›H_ç`ôÄ›Ò{ôŸ[h+Cò¼žÒø&Å͹߹ñ…ïq|A.KO²j=$öýËY‚D¾íi¡ÊfºmìL(Á…,3lV_¹nÓ]woM]̬h‡|87Ǫ”§x+þUt2Ÿïz5÷j³éäÁb”zIRZ—èëõí,”ƒþtô2ÎŒ ì®7uî_K[¢TüÎ^y€>á(áËÌ«–Ì+’ÞW[?G(/ø õ`·$ô¦‡]-F3óî¦IF÷¹ŽLj>ÉC;V™ìjÐx:æµ^ã':ã³UO½< ëÖÌBªh1x@ xÚ /€B·¶sÉŒZ´/Áv@BgѹâѼª¢wÓ áèØT+å29öj×¼íYG#xŸ£[ð&®:F½Ðý¸;T8T‰>”ˆëÕò0°ÿã’Í ²¦¡œŠŠx:ܵ]C¦mùøøÍÏ‹3gò›Hð0¹ÇÍA¶"ÛøÖR›&†U—W'½±,ÄĘD|Q/Aóà8¦ñ¡<kLùÆy»xE'PVn¾Syù»(Çþåù$Œ( ÷­2õÌKwE6ÆmƒKÍ 69¼C&nßÙfµõH?ÐïôbÜWögt&îÿL—¨ž¯~7Ñ&Sò ˜%Öoõs/)3Ÿ½‹b5ÿkY_ÇraQjå·AâY_'É¿¤VÕ§Í0Qù n ©•02¾mæ§b ³—Z¢ðÙ˜<`d ôúÏ`«SÎ.‡{÷ÃÑu Õ5Ë©?mö·ÇýEŠ— h7;•XL³ïKªæ·ÐÅ;Ê’>±’”o<õñ¸ZeC)*rZ¨¶g?ÑY{ï©RÆÆjÖŽbIù¥öG/Gö)ï,¾Z»WOÅ^?ºz¡¿ýþZÅÿ”Qo®ØñJÛU¦g®Å– _»Û~"k«¯ùsë¸ÓßóTýg.cHáÖˆ _^óðõwÉ%·>Œt¨ e$Cªk2‚doW¾†³Þºr‡w°½LHh݃¨'ÒP¢…[avöI¦79¤©]¡[—SÓ9-çãs9sÖ7Î)°ƒ…a$…ÙO¶qSe³§ïnM&\•ñ:ËÖu#'o–´÷ õ}ÁÇêÖöD …_R59)jZ…óÜÒ9£ôo0Ê_ûi‘:‹ªgŠ!"ʈ›ä,ᵎeîO຀(àQ.ß¾àl|ë+³8Ü[vÚÁ2ư[}ãçÖl_2„¢2 A&ï±—óF&Ãd3PÒ…Õ¦¿Ø mîë*W‘n–zÝ—¥«érø½%C¯­ên ŽDÌåîçyËϪìÈêž…^i·C‘3Çø<ºegÁ-Ç6+Á»ñ¤ãíS‰—Èz9ê ï à(Rc¥‹Þ”w^EÕªLh–ªp8xô]äéIšË¤AÕ³$ƒµŒHB»¥Z!—£+õGϘŒ“u¨IÚü˜T¤NìDmÓ¼'þ™ï¬ëÃé--3Ù™Cè|¸b‰7BW·ýü€‹—îò‘y€ñÔ!V†q2ÚéPˆD¾TØ™ž'gp~Ü\µ›²´œæu—{¥Ê–cΧŒ‘ª˜µÍ€%[ȉYôl>†¯+•óULº>ù¢ºøÅ;6g¯§Åcðœýœý¥ìM†OAÓÙò[P••HC*ÅÖ$Ó$¯ŽŸS7CÆfaŽ´2ôùRúÕ·®.íôÕ ›Ž—¹jÔ TP 36eWëtYùaj‹ a%Ï Ñl›;™Ôù<5“ÜÍçY…õ×utZHëkCÈõ¹s6T œ*/~ÑÅkÐ~€©õ0ÖwóI Ã´µŒTŸéç<áxZYšgò$­Fí«É™>[«ÖpX_yÛ¸ELœFXÎrB‚€22fj×IÛ;K¾¾Ám¡)´}ñuOÚv’v}Mq”DCªîų% f;PRýr«F¿O“Gp¿¡µÅX&=?é3vµ’÷©*³‡¦ ò.‡Ä^ciÍ7õ8Ôd[ƒºúû”‰NfOòÔµfôjëÖY6jØlE(“ìÓy/ŒÃ¯­_“™HM޾¼b{÷«¬ šºÏÕv¹ô‘ÝÖÏðeñœÿÃ’êe]a'x>øív_\ä©?ÕVÝ¡ûÒV籿ּ™O¶ÎÄ‚ˆüt\L©Î¡Õ7)3zé›ÔîwâC©Ò¯š/K_ Qº“x-²Øœ&NPISZ>—Õ¸  x½C·Cpbbµú"8QvÌ<êÇõËDѺWQ®:X9/Ùª0Þ•@;e‚ŽÇÖäíØ^FEך<$WÃYoQÊÅÑ•‡Ç§3¹o™´ñ·ƒóô“8űXJü7uoi-û{sGc1,Òn-_[-¿OùoVÝT²“")üŽ8.{$$/§Š[×íÜ• |þª|òdoE‹"8‘’ÇæÍúr£(ûãkšjëRò]Øä™x"#½aH…£°²³eá§r=q¹@'³s§ÂüÒvüAó*®à—{ÌEtÙ”´]2&Å/§uç%´ÑPÇyÌ4…U¸YÆ]F†ƒÔ1,—y ”V’OU¼f_w•ˆ$-áÓkuíÜüT(œþzßUNët,m!”Áþ‰~‘EêÉ;hšãÍ Ö Õý§âjòèÛ#=Žú”’ˇ•lY¯í“”¢žF÷ÎêïÅK+YÄé•&‰|ëäUº.Rì†j%`o\Ôì£Øú™k£GûaûžôN:û«EÛ ?IZ¡žÂÏ:µ°€ù™×ýo·Æ«ë¯°Pí8¬XEÙíw^»ÜlÝ*·Ù–;Jíã#¤ÚÁ2u•U[Žd×DÐßÏûQª§PÀ¡“ ´°IŽ-ªŸq' ›|ÈÐ,d·2Ö}¨cªF;ý9Ìç¤ùYØLRžêWÚ =ëi8Á†7”ÿlÉs, +êöe+®[;Þ‹Ÿ"ÍíkI;¡å‹kqƒ¶–g-*îD»ø#é.‡?±FâC<þ ÏaßcLÆs·P#GFM‹ze5|æêЮCñõæb£·CñœùÆŒÌ܈£ ¾›«±út@¶dõƒ‡îç§µ`d™T$û™žè¢þjˆG·Íh¤*0ŠUkA$rtÍúóØ7ûG?$5pÕ>ni6ÙpÈ´`–“:fwRyp;p%êšÞ·ƒmÛ$Å.‰é>M‹%šb·”Sµ.• „<ªŸ:ß$.ÿ0`ôžý…Áw–1eíãü£„&:ÏtkŸ:Š˜CÕš²®r’?f YUM’ óm¶%¤ì%sÿÎqvg®ÊØr2Edõ%†ŦžfÂà³XNâµu÷œ”rƒ$й=ð²¹ùÒÊ–TöÜŽoýµ^˜Õ ²Êó—˜ÇኘùKeªN-=bú×áð,n{+x‘iÆ`—å–ÿãíhÚ·MkJE÷ŠkýËzYîãUL ÂWÜÉH½Ï?7-œg?Þ´»{’uÅ2ËÛk$q’ª˜wšMƒ*îØr÷†*øÄË^õ2“ëÜX•;O¨Z÷RXëýÙl²tNòû•B·†t?Ä'u_ÆKÉN¼ÉÊéײU¡4üý—há|»ÛêÖC¼®!ü5¶tÿS.·½_ZV¹y‘ïÀº˜[ÝmÏ­'_$ßæ™ÌðiÔ‹k®Ö›:¦2,骣ô|³±Mr' —äØCÉ~4a¹íÒè²5'‹mº ™e·â-Ý\“®é5ùPuúêëÁ­H×'²F"….ç«g")éÈîH¬ÑéZsà.φ‹aÿÙÂì«2¶ÛÂõn¤éª°DÑ3¾žÙjLñƒC.’›5ÍÅ_Ó?­ÛE¼d8Þ¯6BÞÈuì=ÄÓ3x»ÓãQ-,?æ¤Ñò~¨{3/*dýbå”Nu‹˜f*¤ßôSÔ8ƒÉ¬ðX“Ü[PÄô›$6ÊN³–gÁz—_Çîñêyo„49B’Ë-8/?ÌÌŒÐÄílÉn‹ßH¶¸Qwröf‹_Q5 ¹¨•"”-ñ.*c‰Ü Œ¬Óå]iÜR “Œÿ9Ô /kÌ2Îð‰mÃyÀRaå™kÙ¡;ô£®'¶g•Û_eáiÖÍ.›’® wÒ!¯&š¥t[¾ÍY3y4!T: üSgÞ›rŧšÝ¶NÔ5gÇ(/Ï,ú½àÞ6ÑΞ˜¢ ÷cH‚j¯§?ÒÏÉÎŒn\¥ðm3ñCí‡ïcÝ¡*üæ ÝhÚœ%ß´“f§DФô°éÖ¥!ëÔ2$¯ÏAì m‡aÚYï§b*‘L™OwLläFie*, ús¨Æ‰àg Eÿ+‚|ã,H¨„Ø”&k‡õ8ኙUQç6xÁiÙÂ3í}ù7›“œ­KÓVXðY¿_÷HHîå|ÒÊm'aÊ_Ý»^^g¸ç[Y9›ï0úbß®> ‘g8¡Ôû‚ìcÿ…¤Qõâyé+^vq÷6ô4rÇößo¼j*Ý–Id%=7¼¼½@ pâp!{Tá˜qËV“$Æ4!Qcñ¹ ­â9aÏhùöpÁ4çëÇÊ¤Š 2ãŽ#Öô´dîò¸I Qð1ˆ쮄‰$mã?Ú§–ü9÷Ôd·(¸ö^²§}œÛÿ®‘j#¾²bq Ö*îõÅ*SuXBêÕÅ}”á D4aTÅ%×W£Ô¾ŽÈÊë«ç³as]M‰ýïê©d˜¿Ú³°Ð_òh4h{¦“Â)Q¨—r¸¢‡D%&ZLJ~xÙzùRMÐA”ÑÄmÒó:L¸†_q@ ô|SúA-E`Z<ñ…,}o,Qó²)ç”Xœ¢ùGƒÓ…‹NñY£šd?ŸeIõ„ä´Óò0srTÍh5€¬ì£êe endstream endobj 2036 0 obj << /Length1 1144 /Length2 1528 /Length3 0 /Length 2250 /Filter /FlateDecode >> stream xÚuSy‚QÊaˆ"AXHñx\dúƒDÄg€"ÀB+û1+à„ðÄ|ˆÍ&üW­Y³ö‚#]ü…œAĆ#t rÞt&T„A>Z4s:–¢­gBÂévŽPÈ#š™ñX4ÅL,Sš­B ]3ÈiâôÌœ!>È@››Í[ŒÄÀq?À,fδÄñÌ6ÀP”twþ'…¿alPà±æXÖ£p+ƒc62@ÌgHÜ4Lƒ™Ûãx`Ѹp;ÄÑŸbœ€ B¾Ü÷¿Ä÷;E`B !@Ùè5|SGa5»÷¦ ùÐV kŠÅâìô÷u‚^(¹âoá>´H0óÚèîáî²fnï_£Tƒ³¶0æ6xÔ)¨"o1W‘Bƒþ©ûí°;ÌBÂláèľ ò¨ “î¾WòA„L¾™d3Eýþp?5ÏwüO-47‡‹ˆËéßd¶qí\xÓ½siüÂi‘Wü“sÁYŸÿw! 1È0›ûuLÀÚ 2)Á™5Æ,¾fμ8‚ é7 `pxÜ.€1"`P @Ý7C0sNÊõ0aB0  QÿÑøÌ¯À4Íñùèxf.=ûeÏ‚ÐAp+ÈP¼/A¶Iág“ê'ϵc0ÏnY´Xm˜ø,Zn©¸—+ûÄt^³fD©¶åñ·6‡r)mûÊ`9o9ÙäLíõ{­c"Ž ¦ jê»Ôæ¹¥i½0=gçCT~µÐ¤ó5¶EkÿÍìcÏÄWÜFW”OÚ;ÝT£&#ñº“›¤ƒQ¾òÚzå‹|%«¿¾ß1âëÆýÍ(ßu½Ñ¾#%[ÉãÒ…ÛSÆ›”.¼x§^Ñ ¶¥[ÒꨂïJvUž}E×*µ&6Þ¼dþžÓàéÐ(Û´ödz¾±t̬]éӣ뫻”å5ì×íS^¬©Ù‘ˆ÷Š´½ÏX¨}¤ûDkÃm“ëÊ6÷0dxË0ýtŒ~zli^¾¦ÈKÁõÑÀƒÉšv󶞆{kŒ²'éêÒúšÖ©#%‘Ëúî„´ýíÔÜèùøI»LÕf=?xäôÑ$äÂÐ6wjØå‚ÃV®u–ár¡Ýhõu(¾±237káò¡<]iu4ôM¨Ñ‚µ”ò‰Ö¸­'ÿ©°" ^…õý&Ç?»¹öøÀ’êS^PZo“#f¹÷n=q-—Þž'ÂI©S£ 6Ɖg'v5+ÂÁ:+E-%F#/7óË삯Où—$1×èwßÔé_èHÒû\Ýå¿äWÏ8™¶·PîA¾›ëóîݓҨý©ç㊻ûØ@BþžT9åÆ>2…§hZJ?UÚ7Ç[qËf¤¶*íLÐ&½\¶û꺪#žo£ÕÎXlñ-¡ÿAòi÷‘Ûh\•õñ¯Fѹw‘ö)¼µ}Ê­ÔDØ¡x5{báÙË ºœ2+î:£ M¯¶°ê%wäû:~ßuxéþÚe[ؤÅé=Ãj×Ì*/Þ§ Þš¨z:…¬žŸV]Òùq[ÓeÅ"Y)¹saÚ@šý¸Ôü&YÔäDtd[Ÿ–ø«¯­Ó~³L²wñp[Í:e…MY1¦ušX|®Æ¹Úª~9qluL,a$+Üo”[{‘$Ýmš—r>[š4øÉçá|½x~âÝp7>QåiíŠÏ¾\ÃîÈXZñ¨T< 0å‹\ž8Øeë@<2}ll¢DùöÓU§Þ­®\™Qý=ðD-£)p#1Íve©9Èk|UßÞ\Ü´3)¨J)´º}©AؾގÄWÜ÷uˆÐ‰<ôÚ¯4kç©l×i3[µ}!òFW½¿7ýå=ÇÛ81ì&A¦ò¯[¹%îúEµ Rˆ9e§tIÐÙçŠ“Šš%?Hdö)‰¯g×ÖÒ{}:Æô†dr—±Þˆ‚ëæó>~¼s¢Ø@ÒžhReQ?©ÿäÝü âý– {Á¥Ìóú#¿†‡èn»q69WæxKëïKÔ‡‘¶ná7ûr§ê²œÊp=í*VømI.xžÕu$ #c|¥œ?µ­M>¯óÕ™e–†:éËïÈÿY©`Ž{Yt2öéCƒ eºÍº÷iÛÔ{6iÁ8UÒææž5 ØKßËÕÖ­^ô]ð᪉Û%´«+Í Ú©#‰õVEó–\î~Eù¥"P•½kù®ì£ÏÎ~%²lž÷¸LÍs+Ä™yŽÕoj† UVÉHFŽª`åØiÝéͶûÈó8Q¿ïŠO ³½6ÿ²ªk“êƒÕK½Z$ÖM‡îžŒ áßôàsS—ƒC]·‘Õó ÷×Ä…h„vöú~¸Bù1‰Jìa:™¬Àœ¼í`:Øö>°LcœKRÍa¿ºƒ-â–†4&¤w(Ù[ðˆnRç·×Ë(U¿ã’KÚÓ}ã5*ñòa㧬æ§'RÊ4¥ï¯>o R:`¬4¤VàñÌ·÷÷(Ö2ë語rn­çÇêx¨‰êåj¦Ï×o \sš¿ÌÍ“òôTÖÒ…Š Ø§P²´ÓPËÛhy£Ø`#qRãÈvEjÆÁA fRð[SiN¿óëuC%þeͳNyÕÕ©ÈsîáGƒ©ÝÅ9ÞÄÞ·h{ÜÏܶc¸dE>!¥Gm,)hiþ|êß-MŸèî7ÂQ21dÕˆáœÝÀ²Ç±êh½ÞEÍm ì©’ÿ\hŽ endstream endobj 2038 0 obj << /Length1 1626 /Length2 12688 /Length3 0 /Length 13528 /Filter /FlateDecode >> stream xÚ­teT]ë’-wwÛ¸»»»»ÙlÜÝÝ‚»;Hp‡àww‚ î.snwß÷õûÓïþXc¬òY5ë+JRuFQ3S”ƒ½+#+ @ÉÊÎÔÍEÍÁNÉWQdføÐsÂSRŠ;ƒL\­ì%L\A|m@°±Xyyyá)âŽ^ÎV–®M5mZzz†jþr˜zý§å#ÒÅÊÂ@õñã²up´Ù»~¤ø_ªƒ@WKÀÜÊWVÑ•U’ÐH+i¤Aö g[€Š›©­ `Ù»€hæÎÛ ƒ½™Õ_­¹0}äu˜\A@«0'äø—‰àr¶³rqùøX¹,œMì]?fàê°²Úº™ýàCoîð7 Gg‡»ÛG2W ³•£+à£ªŠ„Ô?pºZš¸þUÛÅêà p0ÿð4sºýÕÒß¶4VW+{€+ÈÓõ¯Z¦ €™•‹£­‰×GídŽÎVÃps±²·ø'€3ÈÂÄÙÌäâò‘æ#÷_ÓùgŸ€ÿÖ½‰££­×ßÑ{ý+W­9<+ÛGM ëGm +{xæ¿vEÖÞÜÀÊò½™›ãÚÜAΈ毡ýabæ`oë0™Ã3+9¸~”ÐüïXfú÷‘üo øßBð¿…Þÿ?rÿ•£ÿöˆÿß󿦖r³µU2±ûX€ÜÀÇ‘1±|Ü€à¯Cãf÷…˜ØYÙzý¿‚þÕ[ô´b¶fÿj“u5ù‰¨½Å-,L,ÿPZ¹HYy‚ÌT¬\–sÛyý­×´79ÛZÙƒ>xý{¤FV–±iXZmìÿ"€ó&½Ù¿Âÿ êoðÌ2â2RôÿÃqýÛQåc \5¼?°ýG+Šfÿ%ü•FLÌÁàÃÈÊÅ`dç`ýx{€x¹Xüþ‡’'bý§¬hâêlå Ðÿè›…õïîÿãû§dø/i$íf­º«‰½ÙǦý—â/3ÐÍÙùƒà¿ÿG×ÿ)ÿ½ó '¿²èäµÎÈÎt­ÅÉ—Ðïëa… s,kÐ() ¬vèȈÜâ­0~© cjœä{kóZ8r|Ý•£ÛîÁ¶¥îNú‘Óö¡mPµsÓï3.CÊ<ÖŽñ9ŸWØ„ÔãbÑÚÛWUû\úM4ÙÎî {~OHî^ˆIqçˆìL¯Çê@mC¯->:¦J>¼¿£î辄êÝ% Ï‹‡£ä7ÁñO="Mqõ2v¾i¾A=¹s;‚iޏ9êÉ­ˆ3%š5ýÈR4¯Ú  ÈfþI_¥Ã´½PS}wm§˜ªl#fwW*¡êVs8['íÙÒß¿@ÖEú êI3¡ç>¶É2bdÿ~š›…“¹J޽²¶•æ‹EÆ—?`Œ$åòž #Þ‚lœ©S%Au¦þœJ/B¦Y{ѠΛÞ?à|bá¼§ºYÞËAÃ(¦Ð«_u¾ À^’ÄJ6¶/¹áNPDdäñ)ð®zÓ\ü6Ê€(@‡¹áOL¢щ«Ú2åÃþzGVüò+Ÿ±zúpÕÎ gÒju3sïWšÎE%ãÆ» ÁûRÓØ#8áü×úS’7)qP[°Ñ-˳¤ Ñw$UÇ1:^‹5N€>,zòg'ùèiÞ¦^œŸØyàÛVTÅCé§éˆç™z±¤ëé\Ÿ9”­ÑS Ö4‚½‚ܳ; ”£\ Êœ¦g5*;ÃåDìÛ0uð‹´úrˆPÞ4VZºatÁvç|Ñ8e"Ô™™”ÄN¤™Uñ±’aÿ| ÷y#!Ãvú}ÆPÆ«¥¿6„?ÁzîNÊLŸ?–©BKÖÈØ`ÖI3õúé®7d‰§Æ5!×å¨Ý®Ï¾{\heÞþðyóÌðM/î&±É7'¡fÓœ[!pl«‚Y¢d@¸>ûÏe´%]˜Ñ›y÷0³czå¨]VéMíjÓ寣:þýè*‡g`•/Á\(éª1´iª½¯vAÎ4ÖO”ļåŸa& ´ÆDi§åìIÖ‚ÂtµÎ÷«ø"­Ýbê«Ì\ò˺HoÅy½ŒØïÀÔa·àÒÁì7r‚ue¾‡é³¿ê?ÕC,&¿¾ÿîÃíþŒ½Ybæ—Èh|=)`¨•Îñžné*7Y¶ç€ðM¨f9ðª+úúmD¹é ¡Ên]S{§ô$X[Œ"¹…E3=C¯eC[$Øà 9Ï%p‡­oC@QÙñ8ÆÄ] œ¹ˆzÇ @³q‘WkxÐMÚEs{[^â"‹zñGʉþ&fö£.¦Vq¶]¥–X¿° ó<¶oë.|ÌkGPßË:“ƒ77ÇJÕ©@¶3pNÇê²çŽ 0ùJÇr²[ñ›ë2e½n¶n%¥,ö§"èW¯Gµ+ßk»ê„Ë`®ÓÐ#/å‘?—S™¤ÁÈ7‹v¦Š|¿JïclÇu1}î2œª ì«)tk‘q)ÿÐ{Þ&䄸ÕèF ¤å5·F¼†ái\^[+ݽ-ªºH—£»7Í}‰®–X=±Å£"àE¬%‰LØΛ_i\™Àl½”Ë+ÑÐoŒBÅ™+uÕd¿®X€˜ü>I P>7ØdôøhÚ ›™¯¡PE\yûùc¨Ð°ÂŽþÂp)­ôÇóV¨°Ü ËÍâÆf‘CÞs©0Ì%Üè·r–pæ˜4< ûO¦l¼ qì„sR8ÅÎ/P÷Ïš²,³;ÎÑ)¸­ã&‡÷u×›\Ð{%L–Üšh'Û,vÁÐ`ãïᩌ™Væéïz¨ÀØP§ó@ñøZƯ´éó|©æ#“‚FöuKj èá¥ÂÞWÉ£¿f"ŒB|¬ w¥Ú¦çyq‡È_ü­9‡}¡á‚¯ÜzTGìYÞ«×(êŒî¤’&â Ñ ¶)JÙÍP_kÒº–×ð±ìs)Lèßp"à}tÝ E/]*»§$Ü :ÆqÔœ$—@„¯3,XâY÷¸s-µØ›†'%¯<øUéÃÚ[§§´¨ƒvmáw>²² MÛë¤þQ$ÙÁÑq†¿ÐÜc0pMÞô‰”}dß³›* w~î¶¼¤@× z¹­ZvW©¡Bä™èÆM¼Ì5ƹ¯«‡ßcsŠN÷· ©ù ¯ýÞqvSAr5sИ:Š–òÎk–æ#«ƒ4«ï œfØ·nXø3QIbåJy`°¾þ³Xæ•‘ö¤«J]X@JE^*8û|T®3`Á ârUü+‡XVsŒ< W²‹7–F ûXðÃçf¹—rzœ?z.Æl{s‚6äTSÃâVâa¡s…dº¦FÂy(u’Îïû7Åuß±±ÓVð L] d¾­jŠL=ºîÅ)/ÁÓý×m¯uY\gýý}iòíh¥vz-dìE®»‡JÆ •;ÜòJï´ ŒÞ~Ç/X8´r)]2}ý«oÏr³…çŽæA­IÒé¸sæ ©HS¹SøãÙŽž$¡”Ú:ïÔUp¿¨ÌЯŒ]¢¥9ž1Ú¤ŠíÛï]´z¥I°ûÑ.¨x}Z‰ñhû «5"¤û—¥¹²_ îKi31*™a-Ÿ¶à\4¯ÇC7ªð-š.ï¨u1nS0ÎD¯°Êt(Fà)`Ö«‰NHXî ꢞí¾ÿäÇ¡˜5½è¿¥äïÃÅmšp,gd÷à•xs½æqÃóù — Ýû7É•%OŸÚ{ ÷wÇb¸ GˆÎðüsMO`åÀÅžq8|‰ÇEçÜÃqõÒ«få³aÊb œÀª«Í×ê¯×Þ(²™G\ÙÉTlº|†Ç<ëñÞ”×Sš"`kˆ?O(^Å0rh¿B:©Œ•KfJX»uÇÝ1Rb`OÚLŸqt hz;$Oä7rÜÌP„n aŽL¬ö—ëFFžÄRà_´€§A‡TbR8â¦>dö„íÙÌÇj¿¬Þ‰íè†)¡k4âjD ªö@â+{Ÿ—ëµ{B=ŸŸÛ¤vGïœÍ. £ê›Ÿý}ôüˆn1Ð}â§q$~;é*ÀkØ™}þ¼D8 >Né…ÿ8Ø,دÌcn@½@uQ93üB Ò锆æpë-ãíXôëf*Z{|OÅú)š`$2jò‚> S$Œ¦Í“õÓ tVÒ& 4oÑg˜i˜êiêß‹¢ŸÓ>v6Qè'enLã)zå£,'õèÛvÌ-—j¬ì«XÜCyûüGcµ@Ëð+Žàâ–Ü-ÅÏBy´¦y$èݼëpDhàâ`óŽî(Ë‚2 ›þ÷ætàFÁapãL¦J×Î0Õ£òÝþï„~5¸Àéì_†Œ¯¼šž¯4À"°‰ŠŒ9rö>RìâP S­|«ÍÀT‰[ZßFrN›Ó´yNý;Ã\¦Ÿ®èŠ.r[ ×?p©Žìz`Ö¡£ Oðà­u[zœQ¹_L¦Ó;‡DTx}nú2’¿J˜+Î{jFÕõ¾Mt±æIçF3Êu7uC+@ŽwøScw¥o¨ZIÐÉ¿[í_h)†âèf 'ƒ[ÐÛ> v¸ž±—„Ð…+F¥/5vÆì¿BƒÄµ˜áb°+Œ…ÉðË]¬ãúáã½ÅAVô·gµ‹vBa±ÑɃ…*ø|‘ÒÀÿ#B¯MÌi¬×_™ßA zu\î$ÝX£õضÇàB9É›[Ïyeªp¿ d1¥çó)›¿8 myoÁèæšZ¹y0¾>fÝ1PKiš J€r$_³æÒï7Ò?%RWM¥±±>®Ju A…z\ö_ÝrÜ[!rÊý“£;—³ÿÜ…©| ½Å. 5“y’YŒœ7M|'»£¥Ïòi|¿´¢ƒB…=Iø¶Küp­«|(å%8­ºzZ³sÌVWBlñt…£º*ÇãÞ‘9èmƒjù9“t(ÇßD¥õ½9Ù4ÓKýX»ûX6Yç*!ôµaº:~£ã6bÞ#“ã¶; ?’E>Ÿy›f‰s•¬ V絘}‚„ I ‚;é7½,ßÑAû+-^'Ñâ§UmMþN{˜©´ :®ÜÝÆáKyòø£ÍsÜ¢|ÐÏM¿a˜¦n[»z _8]Kz{¿g¼‚ö¾åµ® ‚Dµr pÎù´@èeWk+ý%ÏóÙá×òÚÓצ`Ãm†ãìBž§V¾UÀ3…#…Çþ…ÙA e±RdC{Mì}sÈ ÕP†Öð¶§× ñjRoÀ;¸6.ªëíÍd!7 çáëÉk!,2>¡»ùv75޾ .”MÅ ?CÁcG@\²žÀ5à•¤­ê=Ô´¬ç}ÕLGÚÚð0E¡“n»ëdVÙŽ”áC;ZÄŒœ/š^¸&æx›Ïõz¢e¯Èà$9*ÖZþƒ6f°Rr’YVͯœž¬ ³k_’’ö•£¤ß£:Š‚)#øÁ’¿N~ùIó&ëßu8¤«Ö§ˆCã8xדª¥ow>†x¾ànî,؆Âà&¿ÅT—9öoÌ|Þâá&ÔN²©òô8ÁÚþóiAˆ¢…hþrC†AæS«]pÃy0'fYA™’šlÏë­[çÑz·DS¥%ñª×šd­;]«”Hˆ©¸ $,‹¢VŽa¼àü‹B×׿ïu!nÍ‘@°A@ ëë'9¼2ÚáÚùo›p­ü` ¿Ð2( Ãkc`ýo‡WIMü,ŠËNßp)8&ý¾T,T78Ú–ç—#£æ™Nü€ðïÏ\kÚæ4ô55{“Yp4Qâ?N ½oþÆaqóOÆÞkÂ=/ªó§-ÍÐ!ë` t“ ÑÖ· 2ÆPIe¸ÂvC©€p•n!W$ͻó醷†9=Ÿa›—ßßÔïAö"1QÁX )ƒmhÇ}Ȭm>Â5TmÒåëIüåç¶éI‘Ũ¨ÇË>ó-O§>&Â2áj]'¼ø«?føn "->_Õ‰òˆÎ`Úf!§5ðÑ/*ÙkÏTÌá.áƒDéDßKnýx©{FU•°'xºd§~ëiXAâfÔ%}qcWm†5»ü…zœ.²CTø¬™r¢e*:Ž%œ‹¨•GQG&›Øø«•GÙë òv[\½fº¶ÉåBÇä 9ôÏC×Ö(&‰âP¹¯S•{y«)sí”$Ù84Û djó$R®¼¯æ\2ê4ר¢‡ÁHXDÛ…AÁŠJ“µ¬[KÓQzÝ_Z—ÏõlÁ7׆NV½„Õ'8x{¶¸§É“¨0”ð)¿a%¯ðc ÂB.ü®m?»À¿!)TD­¨3äÀ’=¥Zâ¥åVIs“¿ùz¨õåNSêLt W ×$c7l‚Óíw©ñ“³åWMÇ:`arMÃÉ%õˆ@ð‰|L˜?}ÃþÙÊ ×çͺ¥šþ×!ñ™I<&E°jýÛ…š?ÝêÁ<—ò9˸3#ÇÝÚèÑÑè}õQP*Rã!KlÃGvhXË´–µuzFÏJ¥¼ƒ?¹¹žîŽº#( ZpÉÃÖ©ú<4fȲ è‰ý(oBqà8T^%u ^ &Í2ÍaD=ÐÕð‘15žB>eÅM”NȘ®î;žAѵ(e M—Îñ;jÑèÁu"ÜÀ.U‚.–ÇHᣛéSv&á,É)ŒîšLò;aU졊 "Ðõ‘ú¦qH^8uA‹<”Ø«š?‰…4[FöÌ0iØmZã9Æ:IXUýÞ0xw'ß’(1™òÙcDÞý \ ¿DA¾ ’l\Vª·ãU…i­‹Ï í$õÌ8 Ùj⚪5¡V¬Ü(—=nedòfÙôh¹åùãU»nØ­—pUn“¿[§WT‘¼[nÜ–zöWq–Qˆ ánª#Ñ„µ N%šTRoDh“Î4J—‹õ^mJP±„x ‡¥Ü¿mÜIK<à3|6«åNæüÄ¢ÌéN%2|F–s4à ºoc´,M ÔAun®}¨þ¬ˆæ&°{EžöŸjw™Ò5 s(ü'r¤,ÈÔÎnnñµ¡æzÄx‰_àö²Q+¸üÎÔå‘£ Ua’V”yGÝž ˜ž oV'¯v2ŒØÀ_Z®z1Äxâ €D܈yÐøÌ ç¯×ó2’‰O«ú•Nv4 Š(uð|¤' ©m Ë^™!Æüî½Ç#’ɲ#2¯óQ¬C¯Ný0S9ŠÄ¬fl †/É—*¤&i‰è;—8ç ™ÓWn*s­Îíy^f‡¯Œ(;ä0ºègÂ|TŒ—47)é·–r‚týd»?Ñ1†áKÍQDb®oB¢Âú/F·'*"ÈPbÕß½þ¾ÒŒŸ¨*²š¾â.JÚG‚™ö(=,¡µö]R¯Rð 1‡ôŠšVC,hD`†AŽôb¢KáÏF¥`¿nL'm¼‰¥ ì 'ŸOöp],Š¿'fÛÃh¦œVG,…éŽÉ™w}RýÊžƒúBR'”ûÔboª¼Ùâ ²G! Â#Oø( Ñ-ô›¤¥gq5Œe`ñ2Ùmq¯ƒ’Ô2 iÐïL“1'=®2x½0ÝWØg‹ÅM bR§y;¾`iþGíËzNÚùâé`5*xxKNíŸo†\Ç R}|ä×A€o±Ê_}ÒÃ<î1åÌ‚ »9Ô\NWËc£Õ¹ÂïCÝ&i‰Ø Tv,=Œ©Ÿ’Bó¾fÝ8°[ÍÈ"È$Ó ÉüŠ€æbhöŒ~)ÕÝ‘°©ÿï0Ap+utõ}¤ë‘ÛüPàNREŸ6÷LEƹm·SöÝØŒ ÉJÙB» lõ 3J:¬Ž_Ù7~w„NŒþ ¯!O7í¬¼6¶}ºqsxìp¦¡‘Vã‘«Æ…ˆßÜG2I?«ÌHß ‘u·¯Ë­9,ÉÔ…LJzwp¬ñºÁêmˆqH4zíi¡+«²E{=c§:¸x¾-õ ¡¶—ÙZƒ~Aý9è{ÑòsÌôY*á¼/BՔϜï0O‡·÷jŶàf&K‰ÈÕ½‡jFçHÉÇ©®ƒüUc ͸é`Ò’nˆªµ è½+Α×ÝèaޭȰðw†C¿:ðÇÊK#B@qÊ ›Q厃õýá×Í@¤tZR>†‡OðÆ,‡ÞŠÉ&®+ztvœ¢+?1Ú=^2"dóŠÌ!CŠõVœ¼Åt)¥úáz.ÕGs=åwHåRÔêqw!uqL1½ý–†«„xg¦ºï´£ãáYLÞ%‚‡’XîÑ­,{‘ÿ]ü§­e›'mÿš-}ɤ¦áýk:=Ó\¤ÊxòxÏ“CìQîT×ÄAUÙR™p·š^îÂ( F¹…ãÕ“¯ôE‰ÜHe¬~õ—9dÊ^È…zwÆìñŠëóS$W.#ê}\ߤHòÎe9Î@köBfl”ÿÒäœmïO&w†F¦ˆÞô9½?ýwÒõ…”BΤ­žy$„«}GšgëkL{XwáÚ1À”ï¦:ˆ;8(ýÊqÈ}æY -ßœxýµKµ¡ì[ðE‰¹ñWFmßxìa¯ŽÙlÅ f/ç]&jgLÕ;Löjw eœî&ûèü§³ý½'Q lÁÃy |jK¶-ß‚m^ûZuq©è¯wo‘)ÌйüÚÕZ1.ÏŠšI©ìªß÷û½³··ñWQ+Óî,JµªY ëÔ^ªjB3ŽñøŸöàç›3‚¼©Çj>­¤p^œ°Âñ/^°ö¥")¯:!°qW»&VªÅ6:éáQ]Z„¨Œ¬”GCÔû–j8y©Åàæ—†cEc9D}Z9ý ¯)zƒãQÈgL ôܺ²ÂЄòAP×§àÌ@ÍÏäZêð(‹.<'sF‚h¦—5 YÒ{ÁÅÈ-¢Nºv{¢ÕàiK‡¡cÙ‹÷ ë,!LMK)ËÝ¥aÃ×~H~'NÎ}…#¯¸ÃÁ±ùBiüEêû]mÐÙ;M !ªúH›»o™ùxdtƒ H6ô†Ýœgrw#«=~IC„TIå·ZKadåe†uP%Héu$bûÓ·Žr[‚ ¯¶ÃÚgi«Tä,²‹9w¨Zª‘êG>0O‚Á\/QKQËÉ!M²–¨ðå±ô¸Ä5¡(#§YÓüšÅ0O\„@Ɇ¾MÝf92ÖÞë#µŽ£o³ºX×o˜ˆþ5–]‡¥½G•%j#H+b£-WïOnÀ¢ÈAYTÛ› „% IEU¹I¯¼z¿:ó3=\؀ʉíÃQ]ÂõÖÝ@SžO¾ÛIÑN²c?Ä[˜Ø~Á¤ýa&yv:ÈF4è n˜µ …¿¾`é‘%LN]“€#‡ÄßÂK)œ]ÿr…×Zí6P·ea¥ñ§+˜W61BÞjZüÛEp^ÞÓ7”a°w5Ÿ‚Âkò7²° ?Ê\•ú&¹tzÎÈW¤W¼YS/Ï€wÃQ—°ñ6 ò…«Bõú†i×FQ‘½)êBjªL¤¾ `Ö±O[(Ü,`(Ñ%Êæ™{¤ÁÑ%¡o¬§Ï©­òR J¨ kk˜ìÀC‘‰«eÝ"/ñZb—0õöDèJx²(ÏUF•jk=¼%¡^Xr’°fuù¹ šâ§Äô8[zñÙ sÎm½ŽÂøµhŒ}n#fP"bªUþkcp%=èwE ã‰õÓ™&4@Ur kBu<‰n´IÎçék›\–“º¶— ¦ øÉ#UÀüÂ=%¨_øí—åu\’³ ,Ñ&H­¥™8ÏXÆG7®Ä›`> ùÁ/‹¼æ/+£lm^ì¡t˜ãtÚΊÕñ[…‡˜.ô2*Zä¡ÔL˜‡+³¹ê5Bø „Ô:ºÖóÈŽŠ<É1úVÈ›`×o\#£%ö¢ÔYý9F£_Üö:Aâ]m?EÅüàEa6 ­¿zg`iešªTvö ÕE¸ ‚JXž2]ÂBÇÜ,#½Uh"F­5 ÈbhH¿åÿF­e’SœºJÙÂê€ê²ã0wÄ0n–C¶lØ­<_‰';D‰”€nä^nØ/P±Rß9EÛÚoi•¦oc¼:@wþùŒ/‡cˆŠtºùÚ» Ú.°^YÌŠcÔLýÛÏF£4KDõ‡FËa¥àøÂ²œƒžBtÍÂóåÞú¥|mÔê r¸ìò.F™9ûx€´E0,Ùš qûùJø1Üj ´ŸÎ 4=»M{„CÒú¥÷øhÜúõ‡Ûç-ßé•OŽbÕ44e& aöÓ"#Z1}ç‰uoþó+LG è¥õýì„íùˆå&=ð‡0ýS4õÑõÞTwHÄ 3Á’’…Ê|g"ßýŒjvÀ¤8ïûæ¥A/átߘ.¯ò†,g…Ì™s_мã·m¡Öþà3èC¼ S¼ÙÛÿÜê]ËKcƒ‡—³©PäÓ#õÙ.º«·ñöç´L¸ $Ž. ¤,P8dGÙËXÛ®žMj—îÔb….Tˆ©{…¦¯˜êº]D"zk\î3yÄå5Ò ð•ÈGX©}0wÈŸæÆ‘“,̳2}r8ñmž—«’ÑüâÄÁœÂ? ­‰ì¯iôƒÄÄôHߎˆ\àÄ\x8ÀVÑ5Anzwæ¶ÚJj±º‡8éfº}¥=äí<3ÍËy ¶‘!GDO•WÚ ·Lë †L7¨C”òéîs^‹ï/ žàÒZ_m)u}/}/-ËŒk@ ¸5Á½ž™@-MÖŒMŽËç8žP}§‡„rµØ|è®E°¯³<ê´àÍ _<°™ã²)pâ)¯¤âtZ 5Þ5¿ió¥Òá’öwÿ!VÐËöMÎá[z…h‘–«ZìWïàüDPîl˜þCÞð\Xô[DßÐK‚$Ÿoœc\#]ÌQ›2@ Ë£VÐÇ ni‡0r½Ž\´3¿æ N¶g Õž7R× 91šDÜD\ÞÿNQKu ýi®E»,®qF¦„ȾôjmT«hå(@bYøŽÈ®–MçªÃšŽ¯Ëd™«Ì´«•¢›oç‘„gdÊ *•`ëòÝl‰¿øµÊW Ÿx9hÌÓ-:j-ý¹ú&bãGÇ%Onµc»v“8²»ýsšAó†“wò÷(!ÈiÇîûûœSŽìQô¡t… Ö ¸˜xÖ—'v¯¸Ø1¡ }Ûàö1\:‹Œ°BL¯`|¢ý=®'N<ü²KÅÎÔ‰3,¦K™ÞOpþuÕa!Xv âí¡Ë›î“(ôO ¬2Ý=:ACW²Bò’Ø¢õ)K¸Žî]ï˯0õtÙñë*F”I±pl¬€s\t.±?ò«w S/Õ¸5urõXºÂº)à€´a´1dCš w}ð‹£b1>Ûä©jÚÔ°cƒA<%i*(G\'ì§ š‘ýDæÇ U¶%Á± °ò„ >æä®Õ¢â™ÐÅæévƒ€déõp¤‡•+èö[šj ŠtäHØüªVÅ+KA„ÔÉXW\Åg ,»'º™aåÙ¡IMìI[jÞæn~».&súˆPûq„ˆµB))/¢–ÙÛüŒzS«f6¨ïPMôeaæÂs¦ïØÊ '~G×)ü¼`¡À'ømÀiÙ¡×=„&èQŠ ,[ôŠbf”íÞßKg3G0A2Âüj‰;>1^âÚx‘a'ä£UeéÎJ6¶„ }ðžÚ‹Ç)×Föd'‰7yæl`r7Äc{!S&nê›ðlï@3ÞcñU­Ñ~}X¶ 0Þ8µP#SžHvPgB )‘”e±ŠJùÞX(©©Ü´æ’(WûY¯åüžñ^·|⊋Åu´å’nGšF£¼`3ì¨ÿüdž>Aæ¼¥NÙºR—ÌŽ\>(,^(Ž:½òs]Î\‰TÍÊdU,·­àIÝ@€¥ŽC<Àãè¬~¨Æ»Ÿ8@Úõh—kÓµb<ÑG²µ­Ý±ðåäÚQModMÅ•ÜâŒ*ˆW+ªPªús/‚Çß’rê’ªŒ__‹RßÏ­Õ¹UÛ â0±J-h\ü”UóÙsá*WNz(ΜêS…Ž“H’ÞüÂ<§Sð£:ÓCvÏ Ýà^…vÀ?LÀ–·~÷V6S/K]1mVe´òÙäP®cúºF"B÷ÃĹ¥À߉ܷZÅ!1qÈRDˆß) ÄFE£;Ï$‚ñH†}árH…n%ÍÔ`ϽK»äé›@ ˜Oz)Ë–ì˜_ cW%h •œtȾ Ÿ.uù uÚ”‰W Õ຿º ÍO °2‰ÎÀ…ë@ýr<° ›Nƒâ®tvÍê>عg,aýdØM#ù$^ùRÒ¹w¾(5²ý& c¢]wœÿÄZßpÐSÃ&ÍǶ„#üí&­R³` ,“hâ\i¬—ÿÁ^Ô´Î6pÚ‡]ÌͨÄëöwÒƒú°8××!Üì ÿRdŒ•r`ã`1ãËaž™X©“äl ÿ΀Áè ÅŸºO§°©”“*†? íc¹Í' ¤¢(<Ÿ0—TKt¦CFÊexÅß^-0Kù«öB$u_ñØ£ü88 ‡q{vîmYŠ¿«pPm#õoøÒH£l,½j/Œ´MPz9ÈÂL e2ªáuÜÒ‹AŠUÃx¤•óëªÛÆ–¹±?ÕYzäK›&ðUÒݱ¹Ä-Bcs‹l[ï*Ø<À)¢‘ÏäŒÁ\hê‡a¦8µeFh$…ufUdºl}Þ"ˆ‚kè·î ¿ä j•µJ\Éä ÂÛ@à–WɾdeBÒAh*Pgñ¶ä®ï×zSë-XϨ-¥¨<¬ §L¶wSSÜ>XúÛa;TðWÅèÞ’ƒ¿:’ûìôÌÌ®C[v `ôµ,êÖ Ùùn ;0À?Î)úm·‰ï¤ñ—ÓÖ†œßñ›”Eéã« •'¦s8UíÜjà ˜jì5šËìùMäÝ™Z2jéD<&»B™ûcj09âªèé*ÛŽDG¿9ã+±«O¨¶™áF aH; Ž4ꪛ²ÜƒÎs•ÎÆó*´B7¸$ݧ˜4'†ëZ'ÑØÝ³± Yõ-vd5"Ç&pÿb ¼"@¸¢šÖ¬Ä•§Â¦+L¥Ëö©“Ñvyc`T´øuÑ̪ʫ|rD ?áR¯+¥uÇ–?–‘‡ïPϦ³º ¼xÙ¹¬Kß׺UXïE¶ìâÝC@£I&SбŽç8äÎÍÜY]Ü™œ:ÙCñ‚ëYÛe“¨´S9þž-Cÿ›—V× ~Çë¥y×2d—!Ý…ü™‚Úý„g7šO¦V¦aˆo¶2úZØBÓ âD*Ã1cÓÿ%•Vïáb!ABÓdž)PxÐ9¹<èÛàsšöº¡ºµ.ê!*ÕŸiŠ´;æZ4ùÀœ:¹ 0‘K`xÒwWÓ¨ãÕm†vDž¤ë÷MqA˜…6ûᄵGä÷aç2äâ 3Ÿ9äZÞÈÆZ‘3RN:”JEÁ]°xtRÒÊÞ0’LXÁt9èO§SUyb×u<îØœôŒp·A¹êJãÍëÔÞ’û7 –¡Y¾@ª†oˆš(ŽAn›XÐÈDò1?d§ãɾçЃ7(¡é{­ÞËÖ'Á#$î!½³…­ˆÎ„Â:U{xBv/!ïÕö,Ú›Ó“Ir´v#§€¦Èˆ/7âóì]Bë}ð@ ØJˆÏÜ„Uy[iÑš³ÝÄ¿_"YlF×·KÞ¼Hîs²¶Žb•, ˆ³i« –j4å©£´™xWEæ¸[”òµ]5Ð-д"\}"…K)m˜u§Èáù¹ùr€£X&«“òؽ4v5)ƒÅŽ8½.¯Ì¸— ÃbPN­ƒ? wÀ¼‡Œ®¯$T¿™éóï"Æ—Ì@5^8D0‡¯ÆÔk¤òÍ»–$FE¿j$ij;,coªÃŒöl²‚#j/mfcd;èhwyÕ–õ·ë®$à%zdaõ BýäÙŒrò•:5Ðç ›”¡›“z:h²ã‹ã{ùß!V¿÷X´ûõ˜3ô䘌K/±½®®Ó»Á?xrdhË·>ƒöŠƒ‡81€¸û”¤lëŒ ‰jáÕŸÅ©¾zX A>"¿l°èWfÙ,.`$×*¯œp ±â•Åçà=agG° ZEºY›ñ$ÓÃH;öñâ–ôPK8mKè„–”o¼ˆqDÖnÎ4~­è–›¿XVü™sæößÌL&%kScßÛpÉœTøàaU¦(ãDhü®ðbÀ4-ÿ¬A¥”u@å•~BPD[@õf׫“7ïÛh2‰–Êrµ\>6*þÅýïÔŸ4™!aýÖ6.òLéËtY åïm P ¾`‚% F+ðÑX˜ˆ#[1qýwr™…b=¢¼àßË `·ÕX,€j`áù©Ã5} ˼…vÿ÷ªž endstream endobj 2040 0 obj << /Length1 1630 /Length2 19105 /Length3 0 /Length 19955 /Filter /FlateDecode >> stream xÚ¬¶ctä}·&Ûv*v:¶m»ã¤bVŒŽÕ±mÛ¶;ìØèŽ:¶ýöý€’µ½©›‹š£½’#¯“ÐÒ ðWω@E%š¸Z;:H˜¸ùÚ@s€Ð ÀÆ`åååE ˆ;:y¬-­\´šjÚt Œÿ©ùÇ`êõ–¿‘.Ö–ê¿î@;G'{ ƒë_ˆÿë@u àjXXÛâÊ*º²JÒZi%M€4Ð2±¨¸™ÚY›¬Í€.@:€…#`÷o`æè`nýOk.̱D]&' ™õß0 §Ðé#À ²·vqùû °vX‚L\ÿÎÀÕ`í`fçfþOõŽÿ*È äø×Ãþ¯í/˜Š£‹«‹ÈÚÉð7«Š„Ô¿ëtµ2qý'·‹õ_3ÀÑ⯧¹£™Û?-ýËöæ¯ÕÕÄÚÁà ôtý'—)`níâdgâõ7÷_0'õ¿Êps±v°üÏ   ¥ ÈÜèâòæ/ö?ÓùÏ>ÿK÷&NNv^ÿŠvü—×ÿ¬ÁÚÕhgÁŒÀÊö7§™ëßÜ–Ö_þÙY G+Ë¿õænNÿas‚þ5 Úv†îo&æŽv^s Â%G׿)´ÿw,3ÿ÷‘üß@ñ Áÿ-ôþ¿‘û_9ú_ñÿë{þ¯ÐRnvvJ&öàß7ð÷Ș8þÞ€àŸCcgúÿŘØ[ÛyýŸ¢þ«·6ðßåþÀd]MþŽEÔÁò/5,Ì,ÿVZ»HY{ÍU¬]ͬ&vgö/½¦ƒ9dgíüËí¿Æ `beaù/6 +k3[‡Hàü· è`þ_;øK׿êÿ"*¯«©!Çð¿9°ÿrTù»®^NkûÝ(:šÿOá11GO€+€‰‡õïûû[/Ç·ÿMʱþ§¬hâ ²ö|ýÛ7 뿺ÿ¿ÿ” þ Œ¤ƒ™£ù?«£îjâ`þwÛþ§â³™ô—䀿]ÿ‡ü¯½=fkËŽfü!6éY®õ¸y£S_ûY!GCÊš4Š jûüÓ#~óV¿Õ…27ÿäûèðZ:qzß—£?ëDZ£éK^}£ (Dߢîâf8úbX†œqªís¹¨ð J‹Eë`gJUͰô †øg;îò‘.€Â½0‹òÁ ÅÏ,­1»­ £¾èä”:éèñfxüÇèHß5ôÀ>!Cn<¿ ®_Ê Y²«—1è®ÉìúÅÛ¥z)»M»=IÓÛðuÙ”ò>ö7&kÆ9;‰å§(ø‹È²iœ¼ÇExb,[q¢#鄸Œ†œaC÷²ìé*×úY£_ºmÖ*o¬5âŸæ¨eétŠbÎít-Z™áÅ,½°s-´ U]­(ÁnŽa*I!”(‘ú€ñÊä‘’Ã.×o$p‚½`5éC 9§*L£‚ÖL1¬<"ïœXDDtmÂèO£`_Ô*8b…w R·šqÄ*§mªçG× a…Ó[b{Ðë<ä/ö¨Ø_ðÃÑe¶ì›Iù¢eó¨n}oS Ûú¾öô¦Kr!/Ï6Ë—îÀy5êÊôžƒ•Ëà Å*åûq¤è¾£,šÖ473~:Òÿ]E˜Ý)–šÕɵ›ÌOœx¸äÀÙ¥vÖ,H@óŒ´EYˆ©Ç¿7úbÉbw,W«ßàïÒ‹ÂûjÑøT)igººã¯ð6½ +þ ¡å‘\å±™ßáEMå´ïëîžµŸŸWƒM±×C²ôâÖßⓎ«;W¢ïÔ”á´9㓽‘oUlj;fVK¬ Ž©1-Ô£Ú"GXá™çî©a»ý ­:éT ÒŽæ—÷eè«‘6§¨Òñ—i,QÈ‘¨á´G³ +7 õlpÑB{p÷ vÂb½/TaS´òÞé I ÞŠžk?ÕcBG²[ƒ›«á…äÀ@˜ç+­ûAµ×?$*3å×™>l:\xìÏÑÒ3Ǩfy‹ ì «€ÄSÑ΂øùa¢ëKnRæçrÏìS‹&^²ýV&RÊÿ›µò¾Â¤QŸ@çý“®ÚæWqö7GÎ骤6MVn.þ«ÍÎw‘—¸éÓ¬âip:Â~vlÖÍ“o ™ãßmˆgñ V£Øgë98í’ÒýÖL¸3 { æ£ÅE\ˆwDy¸¬¦¯.µªŠÙÚ–š £gvÌ×¹zuˆ{ŸÞÎÂCÇ‹üöìà%tyõæÀîDT‘¥l††{Kq‰Rä‡D%ÛJ”S^_‹ÙÖÄ_"ª¨Cˆ›ü¾¥1’‘èÐt{$I· ãŸ"mÒ>á/åÔ§×Ò=Ä£°Û£Îs1ӌőRê©å†ß%`TˆÅ­Ôa¯Ù!ýO$²‰š«ø~‡*B…YÑ(RÉS]ÍTz~ñÏãŸZE®Dàø½ÑöÝ ÚØ‹Ê-ˆ{¶‡?±:Õº¡`ó:ï*L9¤"©Ï÷Æ‚˜7ðudÿ}¨¤ q%ë'çèÛ‚ÞŒ8ÿV(uKîÈ‚Üøí=o¨Ï…¸-ˆvHV7…ú§5Ø^;n}?ÇÙÒÎãtw6g§Êye4p¬_Kÿ3Ëe%@²»}sm4™>méK¼ð&-ô£ âžhµñóˆE»[kÃf¹"Ü7!z6W ½½ÿ²ŠµoÆã´í3Úù1Íí#c&[¯7/M¿ ¤'X@â­ùi}ºÍWÓ0ò¶^šú’% dV6¼>»×2éÍ©¢¯·$³êŒ0Ýäi“פ5E2Iî&RrÃYKX4z«á#$Ñ ÿˆÈ^MÜÎã‡Ïþ½B9ð †OÕ£¼Š­ì¨hŽú,‡ˆá'#œÙƒ‘Ìøë.ìºãý©æT“ÁÏ­RÛoaIáDþ…Ô\ù m‚ÃK7ÓÏ)fš¿ˆÏ–É5–W– ˜jÈïëÚ-s{’i,sd’†eÓ-aQ4Æô˜6M»Ó&bêA-„ Ii;bò’o¼4Oy.ÔЧ‘Øm`§”VØè>û±ÈÇBÖR"ɲ Ø´ZT—ž:|!{LôÖ%¶L)lA:”o­ö¤¸ú^ 7ó¢ Ã{ðã‰Gd5AèðA~¹qÇñÁ™‡aHÎŒIèÑ&@¸>Áú^ãÞ&Ðr<"¸yÓDÿBôýøºe7W_Õ’"T‡ƒ“Òs½4ÆÊó©£VÃ…QVö*·ƒ³á±Bâz±'¤V^‡ bJîlR>Þ*êÓIÃ]1ÝüPê:’ÄÀðKtÉ¶×Cþr+º#uqÈ+rë¯Ê{~Ѱ[f^5j"èº.Gú—Ï ßwÞÆ¸RÞ͘g_T›õ;,Šf_Mb™šYÌôõ9Ë;]ä©!4=ñ0ÙdSÏ`\/¾ÎÚ~ȖŲ<&b|®ôï[ }©³”npÿ¾Ð;åÀß åÜ^ÊÈ= ¹áf!s°àsL±Vz1íy]¹HèoŠi˜^ePØ©Á¨`oK´Î¹MÄ^»ÃÆ®d<é4»/cáW‘â%[ÝÚi^Þ¤sàâÅÇÞ+Y³=þÂИ`&¥:Š,xBÎKNbp<{göfj­=¢|Y¶UÉeö5IŸÏâBB£Mv3V3­ òØé.^Syv¾¸&¿ ¾ ;À§è¥7ÑÕS@Û/åÉ_¶%ï ç§, Þe9P=‘ud´ØüÖÅÇá°ôÔÎÆm)÷dž¾³²-¬\€ÒoÆšNG%þpTôʉµùÁúdƒ%Hýàxú™e2ú¯!çÆ½ëÅ#Ï, áŸqh#µétqÁco,áÀ“WÞˆºöc;4€(KV&?ahzô®‚ÂFr©E&~å²oXpáKуeÃúžyh¢…e®6kVlü>RÎtuò‘¹Ioô­m3 ­­þ™5ó¡Î»v±\?)-Yòhî ¢g¡EÑ• ÐËû'·}}ブ9[{Rñ›§X …±°wáAá] v“Ø-Gûój½Wß6Jž/!v Œ$‘>¼ig¥ûCjRËHKÞ!¢ Š$Z/ÝoeL »î‘qI=èƒÊSò’"z˜¥†Å¾˜½¤A°Z¦C8ÍÛXÊß{[+gÚ•‘i£-#^Îcú>{3){Å7„‰OZùŽ•Î.Åk‰­$u¨'ùd†µVŽËe+‚=T„¾æAä‚[“”0÷Kãм1Aö½5 ÝR£'U;Bý¸JBOœÚO­{P"nFx£mßÝ qé4C}â¯/6{0Š&‡½ssBêò8h…ý–°g¶1/Žv T¼c®Þ ,Ú÷³Á¥ß÷¢ S@fžv¤ž3W>Å4,2À^¯¶a¿>0áè3y›G­ï/ŽöS¬¾þÖn¿$IjJx¨‚ æFU‘JQW 5Gw2ö‹<—ïˆÀzÏ¡?¿äãÿ ŽÌMqß¿$³‚®À܃avúì&jQèÇî7ÚžÏ UL]0„é|ò;¶Ì3çľ„Iþs*(ÛY‚êE=é£léÏu Æ‹Ðê%§*g®/K|UB¶˜@’3/Q"ÊþÒÒ²¬MïxÉ ›@€Àa…ùnPñ'ä¿]|€»¤}Z>ÉK§ùpŽÈ;´–lB­ÈVˆöYFšªTÆïÿý{x*®g‚]a9ÙŒ<úKðŽ”3UÛ©@n £é{]0žó £á‡B ¹Ò'¶c#áu¡3Å, ·c§x…šzëî×¢kGXò‘ß•5¡sy¥"‡=ä©Öogƒ8™71…aˆ?X×'Rst}K"ÙÛÌ §u¹Ñy-É´q!QlZx:üLvœ¤æ/TK~Mݸ–vò`á½ßýï„\!¥ŽWϘL‡1øq­[’Ùb€˜-̳;öÅñxB„:…è2+môíæœLÆ1øüYÊøTVs CÀ“ίÂM#r}Tqµs@¢³®–ÄKj•bõèd€ï—šl5¢Øý(ÄŽ­IÆÖž…½NÕVh§mZØy yzBé÷"EËc½å½#(ÀÄðwü2r_‚qYi¤døp—KqÌéÈâÌê•ù³@%çJ/%í¬Ï’Û5V4®·Û…ÌäúFþtr,©‹rx™Ë÷üL®Rã©t Wp"t£¸¬jÅØ'·~;îO;ÏÖ ‚–’Ë•-¥(VgLÁ‚I‰:Ýž¨Êlf3o”5Ôâ™ }üŒš[…š´€i~-e)Jî7\àIÛô[&Ö0”ð‚Rß 3ÜÏaȰ+™ðŒpë¼v Áó4ør·z@2ÿËˈýä~!Er¸×Ì·?-*@ß„>Vœ _‹]!å…ój6 שÛ9átaËoêw P8ÖnAæQLåx±ýn.·¥yl*!‡ý&¨$§ ɼó<ç lOà*BJQB’:¾áûñ3¡ÖyEŒûÖÌÛRàá)(ì2#€htñk[À.‘ž«ùœ£G³WW:þ9_´‚!¶Jud†*‰ÇåûϺȇŸWmé¦'••`=÷Þùà³yûsoýõ œ ˆt⦔1äÚEáü\½™‘š¿ÑwG c§œdçÚ•ÁrÊþ_V|øxkå{Ã2)‹%Ü›R/¼‚:â2‡ä¥Sˆ( Ào¥CúB°RVó«1a½°´<~dä»{žF mçÍB±,Ú54µ%Ö­ªÿ"Füyœ¯¾ü1±ªÛ•UƒxVŠoûý­]Â+ƒ¶yÝ#Ð;znÈîYU%~òA˜›¯]£ÌzRÇI "Úœ„`—’Bw5óž7N¸N‚JäûŸæ ii=ÒAÚߨ¤”ò†úX¢D22B Í"–jžqI\ke¥®ëÎzÂoF±#Pùl±)«V`ªJOkQ3Œ.BŸyhŒË ~ýêW/çdQmˆše¥ûõ§tÈ«3‡eYsþs%(ç—ƒ§×æ9/1º@»—u½”y‡­ºñ£kEh*¨ö½M©P0t¬N'ò÷C³Ð0(q,€ÌaV0|gм'÷fÏ,¹üÅ4Qôu¨.ê¤uøTuøvïͳóЊì)¨¯gà‘¯€ÔaH_Ή¥bú›¼A÷$]'ªî͘™a)“ÐÀáŽ|‰ _Ó¾X+*‡…áð£R/–¶aöFâûå^ÅVüWýj_ÌšÒ»*ô qkM×Ξqº³ ¨¾|:¿YM$;ú0Î 3Á¼í¤ß¾æÉó2î~϶Ç«2lgE Ý­ Šyé‰(QUĆ˜ *XÎc®/@{†;qÌn\;Õ.fŽz£¿i =ñx7Å¿Lï|ó`^ h1±$)^‹'eo/ïCM+Zý†¤¸¼›óÝHe@óËä%Ó3ŸÛ^=”—"€<ǯÜŸL}xðÎ 1TmfYН¹ŸÍm;¿Z,ÍG°7MÐï||«O6žBçÖ;:CêçÏqú¦;¿^giDHÈ 8ê—Ž›úÚt¹[†…†eŸPk#£J¥SlyTÂzÄÌcA]™~;Š]ÿL¼ßíQ×wª:¾¸„s˜v³’Ç[4û7‚}™ÖZ´å^²ÓÈŠØÓ0Ö8[£“£W%?@à‹ÓœT!µNsíû5LjžÅ y– __È9»–äYūùg)8;àŸIM¨} ·•¾†Dm·Ù†«QæJF3âê9û}_‡þÙ®2¯Íò€õQÿ>Þ1cйõ ãÖ²œ/ˆ›–óL.£‹·¬vr˜oKk“z ¯ïn›1ìØRó#ݯ0Èmq#ÛPuwÚà"œÃsíAF;±¨ª ó±ŸÙ'BzrÃû뫲ç+&»Éw‘õù3­p»_~YŸ¸'®ƒ—À ~:¥î|óÜ} €jAΦ5A(_ŒòBÙ_š3·¦¨_*7ñL±}LF¥Ã#RæÿḖ°ç€·ˆÈ’2Ò£ 6“,ÂOÑØáª3¼(§ŒƒtqäûMåUqSP‰Ml­Yšöûúx†qê'Û¡¼Æ²ù2«hÃyþŸÏ¹UÆýÙNæ´«\fè‚oÓQçz‘›p²J_Ë[|ÈÝB0'V”ìù©€–¯'žÁ‘)0ãa ¿/¤{%È* m!ŽFmò³#ê«’ Ѝ_#)o–ÂùÆ•Ÿ~["¦.ž‚y·çyü¾žë•Â6*ÖeñÈr/]Ò-2·¹içŒo¼®æ&Ê‘2ÄÒ·~ƒ4¸‡ç÷]÷Ç Ø~‚AþVçêšP/ãà[Lê%5;»Ë }ÍÕxöÁ7Õk¨¶µ»†‰+àg“GFDL†È€ÇZS-Õ*Ðx± ÅSx„­Ý  Ö¦½ü¼YX«Œ~îÉdÅ J¤éÝ>ŒylXÞºÅg‡q’†³ìô!!eš?'Gúh·¡Ô±ûɪ´/*Óžá¾ÿеÔzæ^9 `aÌÓà…œí0ó…½uñlþ c)Ò­ øÒP>lÃä|:mÜûˆ´qå­ÞI•¸ÇQØöÛ¯ì‹ýMÍ—~­ò¶tõFF|VêCÈ1áá¶žìMÁWR3õÓ­~š…į LßÉ2=¢7yžM E }Û?Ž> ßdNçuh¹ù³&Âņt¥ù؛ԃE .ÎÓÊE†-·qÎÞê—B@-Ÿ¶sâG°dÏ=²BütY*ƒëÃw’–å Ìòãulx•îºi„qÈ̱3{¬vY<'»f‹´Ëœ»†iùm„)EHXÏ×ÞŽB²c¹W…nS7UŒâB„•n¡G Õ=lnú#*+õ ß ©¢[¼&Ë™?¾-Üò*¦ëiâÍ$ êX¥æ€‡Ð›*k5— n›Ãñ•M#Ä  œ8ØgÂÌË“¦.(Z ~,Û=I4Ç·pkáérð6N4S™ {ÎR⛤énLφ ÃìLn]‚ã”p€ïÉX 2Í‹¤§uô$òãþiۦܸ(ƒniã±v—Ù6>h¶ü6Ÿ_¾uÛ4ÎIÒªÐõλ[b{R œO(ö"%&mKQÌ[Æ…¸¯ÜDÒ·£æ¸Ê@èué®;²ØÝË’ëzG„!«T_©Ç|™8ðøq‰š$uê{‘qQ&¾EøÊ£8Ò 8+œdx!K¥#µHNÅÒÆj¥k ‡¶›ÒE±,·bÈÓ˜ uå §Z“4Œb±ÍÐÙBk€ß<A’×ߺ¤äËdBâK’v†ðEà²,ÐÀu)@ðS6¤lé‘°´™¢ xÃÀ²‘÷ð~2øû˜Y¸TüžTsí¬SÀ¶i€¿¨‘¦ùrø*\Ž«Q§Viá.?„ÊOT~LµS¨=‘½³<œw¶C¢õ}†x¤gt›ºò$oå‚ìlt š #„·®ç¦Ú6ƒÄFg¯íÁb4IŽ3n-ÐNju#NT> 㨘³Cp˜á^€[öE4Á·Îûç§v*¦üþÐÒS²ÅÝéʱõä_/I oæõ 'WÍÁ4ze†¬ì™ÓCb””„y…øÜzï¼J,;›ÜÅ‚Ö=›"æ½íÏÐöˆ[à‚MtȲ5Ï”({ÞV|Q ‹ØæSY4ÓB+Àfu0E µæfA¸Tá¯T]ºe©wŽ(:®QOðÄ!±ò7  è~ä6¥¬Ú0ÌίùJ?ؖC(·¤sU+ëb÷ƒIÕ@Ì84Ý!“?¸ÕÕ`nTרdÛwçåG›æ§µÂ³å7Óh¥º/&¥[j(~!MÉp¯(ßòd.¨ ›j,¯žI¢ìµúìZ¥µ©P•*Ë ×Ú”yL—Óž[Lßr œÝyzÚC¥$+Ÿ«všyžI£"pøÌ dWŒØÞ= ”½”b^iŒ48o·wˆ›û ²¡ÌµXßs‰Â‰ ªy b¢rFÌÌ2ãsLD(AY]´”Cd—GAžË pÌxwaf¤Ûîµï%ÔôøJ“"?XõÄ­Õ´UÙâ¦vîA?5ÐÎÇYŸ½?¨±íÁ-›%ª ¬ _´­íaw9· ´D~*Ò'ÙwçÏÝ|Æ xÑ HA i#–4Ax’“‡•§S™Ån׉e¿–g=YO¨îÄ}$ùAºJ³í½4ª`øæ6«Ëì=¼¾|“ëÂY6´ÚÓÜÔõvvM)­þu78î7¥&ž XÀ,†¬ÜÍ;ÂÎÔ¶x€®S'‹n½òHöå—tGÅÂu$#m_2~.TÀótÚà9ŠW‰7DM­<ÒÂÀØ36Yz_ïnÔ Éï@äfø˜\|½Lwîë€38‰ý´²çɺO‹`eîÆ$ߢw½ˆÓ°V9ð=¡L³ÜöïRP¸”ŒgԨ؄©˜Õe4ÚáNG¶’M)ªÞïÉC «ŸêÄ0Y‘ #4h ¢´Æa2!ÎJÕÝDûAüØýIb3ðN,×Ê+ÌgYæWмZ—¸3|ÓÒM¥“òŸTZ¡|Óý}Á[ÂÊ…âNLdì'¸Š ·n²M¿”hÀQÉÝû‰ÙжÖ6‹¬KbRBI.ZR—.ªFWÐCrXÒäD™qú¡)¸a°¾{Ubg3øm.aZ“u%à„ê·ó2*ðCåòšW0€Ü_a>§eÑÍp¡ò­óžÕN³EÝ—ª_‡c"e`ŵšËW²>Éô=v)~'%¢ëi¸:c€ZTÖMüÉgáØ¥%<‹yl&Ébªjó¬ÏúQT¾%sŒÌû¾ÞŸÿJ¤â¨G„pÍ[×XÑ4¬=‰J`a¥ÅjKV‡QPô¯mL]»Ö"ª6ªN¸«ÿò½™ŽŒQgD¿Ãq¬'ʬÝ<˜5o9™|^©¹¸z|’átø3*'ö;Ygï0Åtá[Û´Z¾´k“K \Aî)P¤ïg!‰‘âOì9÷ARûM"†¶,·Eh$ BQ •‚õ-Üͦ ™ù_˜õsa2b¸?ÐY"´tC9z_ÅÊ̾S ¥}EÀmËÚU5ƒwêÈÑÕ"ã7¨X$ÆA~ïÂÚ&¡zâ¦úuá5r}jw— °k¼³óî„¿¿Ê´DH;½:u|¼—Õ ¡ÎÚØ0@5¬+î•ô#¡Þ;«ë¸¨Šu› Üü9º>¡Mµä[ØœêÆsù¶:LÓ$¤@®_eg¼†Fîñ26^½ÄxåZq„9½è÷ØÕ=‘õ8BªjEÉÛ‹ƒUÍŽ¥‡f»>š/óÏ#û[Wݼ¯ÎžÏ÷cJ­+IPFí!hø #L\= ~F#Ñbüú¹ð'¬}ž×ëæaxÉnëE/èD”ÓécÌôy îß­'0ªqC½?Iån8ï1ü<8ß#•HE(¶1‡=Žcœãû|$›Ÿ,y®ú%u®vwQ/ñ?dýýÊ6|Èì›ÛËÁSà<µ–­­cŒ;áÐ{ÙP5ÁpŸlW¼¼:Ž5ûª7›èÍ›¯¬T¿sb·O³Qúió’4Ò„Vƒ§rž0‘~%̺“Ç`*¨–Ñ×q÷iê¡0Ç–œ&‘‹Y*f¹Ä¤¯.±#ì_Mv¸Ñ®•>]0 ÅN¨¬’ œ8FZæ7D¾_È•Tþü•ß.)¥ï6uÅÕ¤¨þ„6Xˆ¿ënˆjKPöc%fùœæW¼‘Œë¯n4¶^YV™oYá>|Œ‘é"Gwd¾ôê6…ÎÕ_$.œ¸Ý¢ÜîϦï?L&O¢!„£àýžž¾0úȨ÷òAÃ>Œ)uß‘÷,TûPÛ®ï)0_„Ž’覥t3_VžHmþs/‘ñ;+YV:÷!Š×”ºòôà$ì!ʱK·jà‡Ú¢îRèÖňƒ{n‘漜©çIµ.Y‡wÃL?%³Yîà¯iöúó%<ùþB†WB>r3,rAú‚¸ÁÅŽýR{¨nGIF ùä8¤Ô\+´>€úOãÈ>×ÉRl³ÉCʺü{ÂXYA2`U)E宵0¥í ­ýd\LoXï«›M&¡3©×ͲˆeÅ"UÜýaó+™Ø6‰q |$ú2/G>PÇ ®ÅZÐ'SÃæL¤Ý«ë«/Ž_è”RÎpòêÄrŽ™9k¼.õ”÷WËa®ê½›&SÎõzÄe mQoœ~{jgSŠ¿NæÓ‡Ÿ½Äûœ^(7ëë*sH^yõQ„¦ÛÂ7š:Æp>±¾Oú©¬vþ›0æoE´ã_}QÓ$NR¸„5Jòü!‚>û¸zñ*HÚ™F&€œLRîˆÎ.VþWöÛ X¶ñ¡ô «o³aa»0š/dPH)䔄?¶0†íY˜³ì eKK˜žàn, Ô3©™|Mú\IŒŽ³§lêM|t!Œ‚óE"V5Û(c ·ò½×'ÞcOu_éÊ|VîŨӈXlºo¡+-’VF¶²æ`w ¥ƒâÉ÷uu8÷LÒÅjà@"‹¸/Š0ùñ*BzE.ú éýëxÑ^°J4ôMÅÞì#³Ì& ny~û„‡tw-qe. 0Úø 1Þ¯á‹6Dy—°·ké¿è2jÓr«¶$³ÓnΖ’ŸÎw¢Î/A6ßáwŠ»ýÀúCçÚΧ§/ž8h_DAyFÑ…aì®}€ùnÚÏfU9õpߣ!S¡¬îǜҼ**´Ò¥‡È¯xrqš <Ý`6Žom<–ÆE=²w.4¿šÀ9…; ´6Z]ÐöÐ`È×–f¸*'t¡iøm^dzLd7Ë öv½lÓi“C÷ Áõª[O¹FM°KKr°í½éÀ-?úV]š#‹‘×›óN$ݤحcᙑÓ÷P@?B„(¦Á G%ðÑ(`˜?}¥oúœÃQéﲪƒ·¶ªr»½>mB4Ø2e|YßÓ¶,Á1åòd·ö¿æ—’°Ÿ¢³ÎЧýÑu/MÒý=» 31¤«#®ªa ¿‘Ãov|f%æ"(ªfhTø<¡Q ð'CRÒé•5¹š§cB£—•üj;ö©ƒfÓNãì6€DŸJÂ9d?CçsöêÔÜL—Vùòš$ÎᤠÈ#îµ *ý8gV'ÐL•qO3Axy²koN,ÛV$‹ ߇Ó>ç á Rxò/¬}ë•cª»xrhU‰ò»„†ýXÛÔJÞ5¢Ê‚LÑYç씑²K"µ=G‹u×OÂ:`[(Ë&d’‚€ Žk5ÝŒ—Raóúy} ”ãN•é”È —ð[‚k'Þº~‡„jl‡ô4<–ûßÖä8õ]:Èó‹êmÚÔ'=.$µ±•ŠÓòÒG²™ƒý^X‡?Œà§~k»¦R1ŽîzT³x€ÿf„v!XéÏ-ù”@äürè¡"sËU™ ÛˆQð„¡’½á_aÂW”%Ëðdæ^ô¼>ßxÅaZìë!þ¨s«U‰ãAmΟEg߈]þè\zoÄ£„‰áë² &þ>/jÂ+õ;í§Gù«q¦â·žƒX•›`>¨¬_£Ç=ŸtQ2`×*5<ì¥æì8“b·tWp\…—àòò­ìbì#±(Vá6ö™ “Ši”•KXlªéž€B¥Úškç–~ýíPš–ó¯~*Ðð4¹3 3¯¢ýàoì3ËXV™pýª b[ù‹Ù£v=Òµmh IV-^ܦyk\½IO¼µ%LÐ'X]@0Õ ºñ—Ý›Fs¶¢%ØÍšI1ûqP³÷Ô;0g­÷1,Å›ZLj¶i¨{ŒïÊUŽ.%©ÉhŸ¹ª´ÐDpµNO‘³ ªˆboÖ ‘z9Åú~ÞäÞÞåõà” ~2Ê!iQ†É«Ãß«{-u?¨÷kG)±É¿»…Ÿ£±³ó0p¯!^=ñ+µ,z9ˆ½:©/Nç]´‹­ÁOZvÊŸ?é2†ÛÏÈì>SéxëŸoYuU˜é^ÜP¾{>Ãÿƹªñ) ;°à±Sƒ5k=ö&ÊM¯—~Ô¯± Y‚ò±†bO‚\W€âº~ðÿù’ׯCêžÅšÍ³HŽíÞ&Ÿœ«ÎqN4ŽÀ´—Åa_Å$ãáSÒ£ÿÐ…}5¶xç9 Û.÷ÉJöØ?¾ ˜ÁÿJœª„e¥7VÙsv•Ä]MÝU¿¯_;Ö+èÅ¥Ü.2úÉ5gÞÖKõü„^lñj𧞇Ò]G—¶Ë·ø…Òî¤mHížô­yÝ–žq%‚¾”þàÔÚ,jÆùÂ`’”¤L”û¿¿•³rÄ”²Înd^Q•\Ÿ°×}‘?¡o|Ã{#G½êû1~ÙòTAxBý»&³aÝ Œ1‹“§$báÎ&¬¯ú£Á^Š(ûÙ:Í=°<fì;InŒXt¶³ÿ^|ÄOÕ"rzxÜJq?=àæv &ØüÏš‘YߣW®\ë V5Kšø\Ä€Äo¹ŸÚ= ‰žøazº¨)v}­åçÉWr\œ[L§àÅbö?uÌuûîˆHOS=úØuQÚ¡EÏm™µ•™–0›ó¸çâ>Û,™\¨HåôAª½ZÎ¥TÈû뢋Š1$|ø¼y˜‚YZ>ôÏ3 ÎÐÑÓiîü6Â)'Ò`·¶Pt@£8ª±\ ¬œÚ”±t„‘(ô6ãi\@¥<ˆ¶áNÁåh&îú8Gsa+|¢3û'~uA霘Á1¯ô”lMˆgíFj“tן½âsTGf‰µé—t}ÎY“s>¤¤keãˆ]¶ˆ&òœ†¹Îuz¸Kº1±Qm K—}ù­ð¾LžáM&tÞ;s{1cTû쎘Fº²ÄÚ *%MagS(G{8)E\=÷®RåÞU#ŽžW7˜kf5)ê›_ûRIY“QÓA×-<ÎWÉÓuÄÞ¾¯\öÌËÛ(ÐP¤dÀïÍ:•»+Ý5á‘o’©ëª_•z1÷’Å_ÀʺK͆پ[Ž{4³´ ü™þP)),Þ[$óFâÿ*\BL§?]Y-}áL®Ýõ’®zŸm6Š’È¸TQ¼réXó»Ilε–š¸÷+S®t›´7CyÜ_Êã£V¼¡Ïå'«úÒ­ŒEÃ*ÏÙ‚âÌ18 ^ÓH®ÃØ=Á¤HØÐœOP,· äS¶8+Ê:b&hèÙ³77À!AÅ1Õ"Ç9 ›w¿ù‰ó¤Šî÷Á'SFáNôkA¢"lÉ0¼TÂ"Vh¬àc­„ž#‚,Q9(¾DäÖò×>6õ*"Û‰”óñ7âWƒp ‹·Îà‹÷…=Šç?5\óÔ¶é{½-ÏÜ¡ÆÇ]Á[3*`mJ-‹ä_uѪº…FT>~¢aÊ©| g d‘f1u&ñån BÍÅÓ°†«l¸mOoáÑ’ò^X²êx×/žÖd‹¼Þ©ÚÐB º59"¿U®ýc0L+BcŠ`š…[ðtB¯Ú— Ý$ñº÷èK¼*vfµ–;så3eÇä³ .“§Àe˜VÛ‹ÜЮý€Š’ô âîÇ›´ÚÒ›‘Ÿ«Ëš4÷,$“ æa§\* [jÞƒ~ÓË6-yŸŒÐy‹ì’+yÂB|záfš¢Z܃FKˤfvüm•‡ßÁ7p{’°äö#ÑÁêš4”  P ¾k–ظyO’‰ÃB Û–’ãÜ»upÈ¿mJ²¦Jó»…A÷žV,¶~àí:P7¥90( âW¡û3Ä©“ª9ìZ^žïÌÖ÷Š7cç+¼üñ HÓø’Zsa‘ãàæÞY«ÂNð˜Ú’‡€ ©Ÿ÷Lñ£…ÓL®OÏŠª¶ ˆ{ÉkÕ(«’,'‰ FìS®ˆ˜uŸl`ƒ¾…‚ýNy£ [˜À¡¯ž%ÜIÍ“üþÙ2múÅj+¸*wζtkêÂbSþ˜j¾ÍlÑ|‘ íD`»’ÌõޘǙ‘[²sÑoŒ%ñWíDvÙÑð|ÀÙ$ »îqô¡TѺ*j‹~° K’WÈ¢ñ¸â¨Ó¨š&Šõ ¨#<šbx+R9ô7Œ1lRKá:žG¼jª­²ªøÂŽ(OÜÌÜ#@-9 ®pÀäV?Ñ0‹=7»§%Yû9Ja¦U'©u+,°@m‰r_¼y‰¼"<|JÃ?›<ÂÖ?8Q§3“²[D9©Ðñ6!¬jÀJÁ>B8ü)öÂ×èƒ 7г¨$©)hé—²€TKPã½äjé4­áu`Ìx–¸¿«¬TÍ‹ž‹#—-ïº{§OkžDºv·Åt•HàÖâêÈ~¶×㋺݅ŠWõCÈsuâRO~ø¾'?áðjŠSßLÌH*íþðœ¸fÌ së‹nÌØ¾8Tß±Vz°}öÙ±dÔE|¼Ai¾0"¢²-„LÑ­‹þ´ò"›û‹Ùfà%ŠP…UßÅšl¤ÔdûÉË¡†øŠ`Ô†ˆ,‚,¬Š3AÅsÕE<§ôÓ~fÓ­¢í‡ÔމDÏ€>ä3´¬ ì„Æe‰ ~·›¢Çöðn©}•náÖd,‚¸HÒ°qq³6SIk»D\"'ùè¢gÉó|Ëø‚uÊqÛŒIvH:¢è;ÙJ`³}ÿ†o•B!€#`’KËt ¡³>ª¼æ˜ÍO#%òl€`åŒ3jKp¬êD°YŽP¢¬Ýv³:ÃÓò—•Ò =÷Á£.œU>§ÆJð%é,t•_ùû’+}/4ußò3)fkî òæõZ¯®wöj©LÎ@Ë)ùÒ“  Ý„.&~ àoÄsö”âÆ˜çþr*z¿$OêLk»ÇPª/ƒ¿˜Å„ äûNæ»a\tH¹ã$ï›ÚþûñoYÚMÕ™ÕýTþçžz:Áuq•Á¸÷G´QÂ*V×>͈„eA»>|Ò_ކJÚ«´Ÿp<>ïM˜Ó¼äóÃIJ\T)7â‡|–Ô²P£3”Õ1R3gªÌgbt5pmµ¿ZššZ›®†Ì5 íl˜N-ßTÅ"'ˆ°µÏÌ2Y¤Ì‰Á4e±e)˜oÑ™}X*Dép5ʬ}Û„ñ$¤góÆ[Yä+žZ Ù"z¨Ý¸d´» ÆðøÑ¡i¢ mø:è°…Qàõ‰Ë ËÑIÔŠäqÑ5A(J¤Î§?º›ç].Rê|°/ØcT}!° ¯‡OÇÍ)^8»ÑCŸ>3«_z#Z!!ÃçU§65>ƒä@LúÁ¢žxž/å˜ÞlŒUv˜©QÁˆ€ìÉÎÿn><‡ˆ [MžÞv›lL~ܤ63¿òp]ù£É óf{HPªW6'&²€Xô[<ðBÊ«÷ÃÉdétZI œmY[çcþëÞÎ6§GS§ŽGýŒ^)vfkUlâ=úÛŽ“EPäÆÛؽõ+LA/Œ¸¾0OóëEÄ?o¹ÒH}S¯<ò*_fYb¯Ñ•ÌÜiÜz\¥£W!s`{òlðÍ?684c@V€è[ùš;ÿU|‚æ(ÂBÙE2#¸+všB6ÑA}ÌbŽ vÌÁ…®\<â\Qù7hÃÄæ-#E潓ÛÄÐÎñ'Ú+¹iX°¶ùÚ£™3öo'°_o¦˜†Þdf´ÍìÀeC#ëU7¶,Q²@R×:k5ªPô©ÎpŽ‹öÛÌë»™$­>ÒþTê[ ø5únÒ¨sWxìYmtK·xB»´;I³OIöú¿ÁŠê?”ÇaNÑ y"%YÿiŒÈQþšÛ¶lL×ÏZ¥ LØË}ÁÀ Ò {>OÁc¹‹€»Ž¢­ÜYgt@­…Šivð²‹ûÅ5öœýUÞÔc1<­ cö¿^Å”§`Ù«ECDc`Wx˜÷Íyg=:myÁ°üüê®,VϧîýWÕÇKÜZ£„óªdKýaÍ4m¸Q½Z3™+xM} MÊ'Ÿß.0Üj銺ÍY¦0ðàÓ3õQß׫Z…ÕÖp'ôbÄh`×7LRBç1hÖ4,QÀýN¿yª»Ó2×.W]ʦ٭ÈVT®L”ÑYxa<@sZâÝÇHÆÚPû>QœÂpó˜ m`’.÷ž¹Q(ÉõDWuäC. "¨n÷ÅPÁñ@kˆ[_ÏœK·u|yåâ¾mƒTªq»ôœ5n¬ã‰DÌré‘0)®Ÿoq(Áœ«±9}›1 3ÉÆÆ/Ü¢Òí/連Cî+(8åÜ}8…?9’žÛoB¿€Q\†Ä†Š‹+fF¡L]Nx‡e…,?.Ÿ”Ôt(þé·ñb&„fÓ9BâR‘[Κ®­3UØ=;n}^ßÚÈP?…$²%…e¹ÕÅ’Ç7mbn4õ:TùYÅÝV•TÅÌÎK_z©—tnï>w0qÕφá)îcä›y…É/èÝ_Öù! …ÔùñýûÙGõ÷©Wûÿü™Ç¤9GáSˆ?쥩»‚%Qƒ'–‹‚´NÇ©ùVÖeí+ûÍrSÌNæ‰ñç1ó¢ß,HÁ~ÞïŽÇ ¦û¶Ï ½@å¼àfû½u`޳õˆœýFƒå±ºÝ£ÀÛÖPG.+sw ^³6Ê%¯ßäHç­Å£Q÷òf"B±(MñÝïÛcäŒ,p>,sPIŒA•Ÿ©4c—£róÓ:Z÷‹!};^ù©n©sbwÅ9–Ñéñ°„3ˆ^JºþÛ1IiÃ7ÝÀ2 ØH“0zOë™3“&NñsœÍP‡˜Õl 2˜'Ò‰ê-§ê<=i´Ø(3z7ÏÙÛ¨†¥»ž¶-ÅŠ¾ƒ„™“vt1Y·dorñÉ/½ú¢%L:`¾¦ Po_>yW”¯ÂÈ,¹äVvák bb0V’ËnýU[„ÏÌÇÃBêE²Ë œÆ$ j–‚nƒIòê÷ÝçïL&šÝN×}õ‡y³£_®䎮xˆwS,k y—9{A? ±Ä Pศ‹¬Iíè\щD÷*>­íð g‘ #¼$ß9ZdQí”<«úÞYT¢æøÁè • ˆ‚³vvüN¬ç„|ÅÖ)âœå?×Àâ4„Ú´ƒ(pjP%®^ò?êè¦)MyÉŒG ÃjžFäí_Í=9þ’áZ¦Gå[Ø!Õ) ¯û©t9õn·5™^5 Ôv½ðd’£s OÒ Œ5íW¸P Ô“«Ï¾MSõÔ24Iû­Ö ‹À¤ˆD`õì””À.m¼(†ò$Þœ­†X.£'sNã7~9ÞÏ©õP˜³ÌïsÈ>øüf¨¶áê|)pZJÚq€àÂÒ¶õc2 ›¹‹DYÏïç «iså8 $!ß…‡Þ§’CkSí–¥—ŸÜƘxôéxJЃ:’ vʇËEЋýA!¬þ®è ?b67ÔMrU,¶8IMõô°F™ÁRfø--³6_¶þ¼»ÿâJpfsXêvi÷|lô^-6tã#4?—òBf°tŠº*WÜöÍå´ú…2Ñÿ¦y¬"úcôæ§IŸTʧ겫¨­»`q%fõ˜júöW¾aºn\¸@Ì;D+©£iTf®©xb†rC²Lë ®~~¡™Ž°ÚÊ¢éõ.Ϛˬ-Æ8膄ë¼:0õ2 5‚¬­…·@»©² ¼Îx³„8ð†^Ñ¥=XúSŠÅS°¶Ü¶u»´IÃoÙP¼TÀƒ÷ŽÙ’¶‘âJMè»Ý¡»v.Þ×7î’ŽOÒЭ#´¦B?j “#Îá`§)vPúÒ‡®#WŸaKCBn.J‹""н ÞŸš¢Þñ37=°e÷O=>W߉´Úú;L\©æ=C.DÂ,6eçQO½(ãWÄÌm³`Yù?òt-g¢çú Æ}…•Ãõ VG#‹í'õ 8³‘Ê1rn)¼íN÷3óW‚½  TË9)«0 *l<ÐàaFøî–öäÄ€óÚ—² ¢;;~†V“{ŒðgÛÍ•A‘{F¿D‰h|Ò *¶_õƒHØ#•ÃvO©ð»?ª]ä1TQ›KÏ›úlH{1{@Ðç›À˜¹Äƒ>Ll¦)U%±h{¯ «Cˆ‰–±±ŠÌ›H†BSynKr°Ïy»mSÌ`=I*ëaž°_ ÷HVr™"ó$H0ÜÓÕìóýTà|r=õF§ã$¹.ð1ºÏ)Žã»«92ÃÉÞf‹~ÛãøCã”eË‹•ÿëf(?ج·æßð>н½’•gôf˪"|ms®°° µ5ê«áêCÏ 'öz~5òœóúîʽÇËŠä ¸HÝ]?æ„Úè![–_,$'<ì^æ§ñs+fÿÈ\ö±[~8¶yÁ6g+R¡ Þ½_/\9¡ ö«pߌ$y¾vG~Q[U{‘$†ÖZbAÁŒ¼2?©&ÛéãS{Ž£ð±91HWã9Le§8QµJ4Ô$—”­ç®î²`÷'¢¦޼1\ÛVcH\Yy{1ƒãrPih‹£þä)^A»|õõE3Õ³àÛ ›áƒ£©¡M€1:¯††Í4Öw˜W÷$(×cû :×föpwα†ÔY¨iùÇ;€|;•' Ôê’‡w±ËÒ]í\ÿdKƒi‡@JJ»NrqÁá×ãUh}}ð…ë-TÎ^‡¯¯5‹é9”¸ã‚ÚÚ»t¦Öu„Qýše°ˆX|Œ)©¨–¶ÿ5¢ý¯\ë×Ú[©×ª`’繤úÕ7žS ýód ùNvzf½Ô ´ ÒJôp¢7@ɨæÐ¡°f—‰ÉÿeHÖ#wçÇÇæ’<ÁáªÀW\ŽAÆ„Ö'E&ˆ³Kq7š£ïÒrß·Æ’¿.gùøÅ` ÿp×u•"K’c ¿Hí|”Áƒ<áñ¼q¶¬-£¯ôV+¼÷ 1&“fTn hZx»`ÚÜ(Ó&×5 µØL§Ë.þŒØaMVíØWÚXbÔéI j¾ 8úᅫõÔ0°;érŠRC_t¢“y;ÿ6Ùñ<çâ ÅÅ“9Nû¸mGÉËrÛôüñ[×´kûæÏwèr&é<—•KP¶Œ²ÎšÿoðFÍèsr'6ßK„¤Èfµ£ra0®M=~:m;ÕpVÔ<ïL•œ±‚¶î$d’£J¨w~*L?­ÈM©Î‡Ø‡ýÕBÇl¼ñdLሠˆ  Rˆ‚ 5ç Þ+íp½øÀ®ñÚ+ÿÃ…÷Ò‘Ô?EÂGZ¦¡…Z=%œâØÎÚXÌ „ýÞ2€e”yô€.uÞ‘cîâ„àóëDnÌf¢ƒ5ϯ¹á«8ýž’Ò24ùácnÙ?5DHt±ÚS ÅÔ¿Y(yF_mÓZõL@ƒ¦jú$Àƒj€ä-Es±~02ö¢Æ·}ò°-ÁQ3<á~'6n·«E(jJ¡¬3¨òQP¯f†D^³•´¼/3zPÔI·ŠKˆf|)(Ñç1Ñ@–¯ÂŸ¥áÕ¹D¸ÿª£«{„Më¥Îßëv§„[…V<+cq&£ñ#15e·2¹üÝc~>P#ÈJ‰kK'NJ¯9 àG›òÕ<åø© šˆð¾ž*Y«¸Ös›â¥È©@‚ÊõÛLU+R±Â‘kèG8+$…õdÖaM4ìK‘w!Ú! úJ“ÉÁ$ -^Ÿ?Ò#í¸×Ü—w@¹ß»ÿoÓ%Év½ÑNE òM|•0={²‰ {ÅÿMz Ü8ÄÙ,é¹dõJ  ‡ÛI“‰†m™eDA“Ö!iÊÏ.w†Ž‹ rAÈWÏ4üÎÔT¡BÊ-„kµ”^ùh:⯙ìñ0WYì2O[r€Y‹Ø°1aFx囸~BŒí>B¤Ò¶ñ[ææ­Å«Ñ¥ÿ¯ŒÅämamU]ƒ7“­‰R"*ßÄ¡L‡[R:KJýt?îS9¿å²ša¡0.y"QQ,û¡ÜŽbØÆVŸ‰¢ÁSn¼Žô0J¿ö›~§ ½þóÍlš¯[QgïЛâ×Ì(DYJ"QÇækâý‘ÍÂDuÿsãß23ÏÕµ¨Üaé´7úɦÄOÀãç„©JušRÚ¼Uº¾"K^¯À¯â"vaôó@âáŸ¾ÔØûQÀëÒ™Üß {cŠyÃe†¸[4H“§Ï3ùô@2/ Ý3Ì—iñ²˜Ô+²¬¥<©gû‘$°fÕ#ŸÒÕæ¬;°“`7$Ý-­§pû`Åâß1Y…|X[>ÿ¿”‰?¦s ·Âßߘ~? ËD¼8€¾3úX&¯^Vöï8âèS¶üå¬ÓjWxg6™Žw€²)£è„»œÍýítÇ ,²»ú%BiímfðÑ5¢xÇ•ó5ãg>»´g‡¹ãÉI·Cg?Oòô Ê6 ¨Üq«ÜF_É–üF‘”Êà?=ó=.N¿+´aéÇAª>§«“/Œ·é°KŒØKÃìawï|¨˜v¾¶£C¬(a6P+ï(øÞ|JìÚYc‘ƪª q&CÚÏn™Êö@÷?¬7ìL²”#Õü²JÚlJ©ätVúì›+î盋uº)|Oî#•Ó÷ŠKÀf ç‚†Rdà^$þKX U£È((~’!?ŽYýH5¨š´•ÊbÛ,Ü,ÇΘ°,ÉÃ掕 š’¿ñi>QÍðä­AáÛ´8òªyíÆ¡HBŸ7¯ä¨þkÑÃËr“ ÷ÿÇ‘u.¬ä†®æ‰Óí´ê"QkB[ÇZÏ`Ú•9ikm¢fønÛÝîQžanÝ7Ö÷ê#ÜŽAÄë©1b¥PõïCSË)ήÜâuZ† ýiœ};;®µ2óÖÏ=¦ncqü<*&g«‘Sc[é]DŒ×·FÆ 8Ï–‘®Ôñ¸ë}é+@ ÝÃz5®:•N+×®æmDÁècgžMã×¢ûÖ)±Øô¦æ6C9Ïz8 ¹›$²µžÈCFT0òX—!Ãp)®XDÙä¹uÔlä GWÿ'BÇx¥pÑ?*Âó1`Î,šM‡+7An˜Kª‡4Êá'µt:å8×N…Ù-þs6W¼s½¼Ø­žkZ[öéªQ!¸öŒ4w±•ë.xä¤p’N ¶©AøŸwÛ\.\ân°öÖwᶇ‡¹5hs†½ˆ6íYœ ]²5¼¿r@¨8˜éñˆ yp’ªý‚Jˆív`Î YPò~ð*F(îcCî9ç^H ¬%9t¤9¯aíiGÇG|"4YïÀViOAUåµY¿ gô¡ﭞ–œLƒeomÝæÜˆ OHó+§‘bÞ{2²À0¢»ê)…æüæf‡Zȧ1@àЕNaDɘ¨åJö¦‚OoCetÍTn¾d¦]+~ËÅ”QÀõùòßáÙqâ—ÒÀä¹§“ ñ'ÑPD„¯\Å,‡H&ãŸp¬™ÒÛÍ’ª¨ziìë19CQÕÁ×Ô‹qô7ºPå;œ>=Ç‚†¬%ž©iÿ¡Žý›àpÐË.¾6†Œ±a»B9 ’dfPº+€‹Àäêj÷)™.­>cæß„$.1½MÅ×Ë׋ æ‚Hk0)¿J9Óâq¹:¡Ä°DÊ=á{¬†kS¡)ÑjÊ´‰ÒÖoÆ`Ò“Õ!’HÞwÖŸ]É| yÈ¿(™G2¼}±•Ó¸eÿKŒp¦ýDÔ0W‰%çrÇuËÊþn¾™ùð€ÁßL.¡ÝoûŒT[,6É #57u,Ÿ' Ãå[¬Ìš@g‹R’én²YŠÓ+œ ¼Dƒ¦g»Rÿ£Å¬ÊÑÁÌlÁˆ°ÎUï‹íõǃ™ÿ¶™Ñ[›¥C8ë¬L­™M¤uœÛøc µÔóäu—ép˜”é™§ÇæYª¨Óί ›v5RäŽi¸·Íà ²Ó­â5•Ç-¾½ˆ(6‹@˜²Ù"3f€a’LªZ0Æ9 &—ÎÛ=Ø´R߯Ó¸µ(-s¬¸(¹Z዆óÂ*Hþ endstream endobj 2042 0 obj << /Length1 1644 /Length2 11120 /Length3 0 /Length 11968 /Filter /FlateDecode >> stream xÚ­wc|o·fØX½£Æ¶mÛÎN²c›í4¶m4¶Ýml¶±&ý¿sΙß;3_fΧýÜ ×µîõ<›‚DI•^ØÌÞ(aoçBÏÌÀÄPÙš¸:«ØÛ*ØsËÑ«-\rvx Q' ± ÈÞNÌØÈК¦3777<@ÔÞÁÓ daé RWѤ¦¥¥û/É_€‰çh>Ü€¦@‡¿*:€ÐÉäìüñ 9,œŒí\>zàbÙ™Ú¸šýMàCnnÿOBNö¶º0%{ggS'ƒ à#ª’˜Ä¿òt±4vùÛô¡Ø›XšÙ›ºþ-éÝ̇ÖÅdç pz¸üe˜œlŒ=?b€98þIÃÕdgñ_М€ÆNf6@gç˜ì¿Ýù¯:ÿKõÆ6žÿxÛÿcõŸ9€\œ6æ ðÌ,1M]>b[€ìàÿΊ´¹=€™é_r3W‡ÿйþiÕß™¡þHÂØÌÞÎÆ`4‡gT°wù  úc™á¿äÿŠÿ[þo¡÷ÿÜçè¹Äÿ¿÷ùß¡%\mlŒm?à_;ð±dŒí{ ø»hlŒþ7c[çÿÍëß­5ÿJ÷ÿ&íbüÑa;‹jè¹ظ˜¸ÿ¥9K€<€fJ SK€¹±ÍGßþ‘«Û™l@vÀ~ÿi-€ž™‰éßtj– Sk»¿D°ÿK´3û÷*>(û§F%e)9UÚÿ}ÉÒ«Ú| ›!3ç¿\”>ÆÂEÍÓøŸñ4åíÍþóðPDÄÞàMÏÌÁ gábþ¸©q³°ùþ‚ÿÄü_gyc'@—‰‰‰ùôï/Óߨÿ)èÿŒ¸©½ÙßARu1¶3û˜½ÿüU›º:9}PþÏ:ø¨ÿ?ÎÿÜ Ðh ¿ºdoÊl•–™îR‡;<)¦ÛßË 9âPÚ¨VTPcßãŸþ‹»Òè¥6„¡išç­ÝsñÄáuO†f´ˆ²'x‘OàKFÝW€¶ù¥ƒ“vÿ+£A)Rú©f´÷幟P:LûÛ“Ê*%/Ÿ§;X`/ï©ÈÜ 0ÈïýL¿5Äav¢6}®+<9ý’ttG9862<Ôs Ý·‡O›GÁkŒí—rB’ìâiäô§Ñô úÉÓ¹j1«U³-IÝÝ ÿyÉ•˜ü6ö:sú9+‘Å»0ø.“Ð’Iœ¬ûEX(B,KQ¢ñ¸èŒšŒA}ç’ôé ÇÚYƒOšuæ w,á )jI2¬ˆ}ë MƒJHjðG¦Nh‚™”jº²¶Fÿ '[=ž …¸r”P]ÀXEò¶PqŒA‡‹/,7XµZÚ@}ö©ý0?’>†ùÀ=ò#“¶U(ÍiôÌ“J9[¬àDêf–HÅ”UÕüð*4Œ`ZslZ­»ìÅ.ënšÔ¦m1O´t.ÅoŸß)­=º]Ýiâì_‘fû›dK¶a=‡µ¥ºÏÁÊdábòüØRtN_‘˜Ô55ÑéFéýªÄÏú.’šÙɱ“ÌK˜ ¸»dÃÚùâ&¨žŸ:Žêi¼;T÷Yf üÖÑ‚ÉæX¦F ®ÀÛ¡…£kÞð)n g²²í/÷2µ#ú ¡á‘\龑×îõ…ÂaÎÇÍ-s1>/·“l·‹hñ5ص·Ù;[{®XÏ¡1ÝacÆíSÖzj¼e‘‰õ¨i ¡f*8ºÚ”@—r³ ~¹G®›‡šõÖ\–ò„=PŽB3šWÖ‡¶§ZÒŒ¬RkÈ_ª¡X.[¬šÝÕ60´Ì0Ä£ÞYõÎÍ#ȃù¶@‰UL ÐÂýG U å·ðy‘æC5):t$+ÜLÇ08gGYè„YžÂšT[íù]¢"}^õ£ØÞ›«³¡‹m;ZØó&nÝB ÏŠNàL¹È•é}ûG_¾¸@54>ø˜‚~α\ˆÞoü¶}±ƒ°›òÜ•P íÔ¢È ½i2z\ Xôv¼ÜöÇfÌäZþ[p +Ç—[ÒýA›b¯¬u²E'Sç‡ ÷½Ù:fŸ«˜^b»ÃIÊ!q”43!¦ßŒõb}HKýœo¹´j°ÀD‹·^J%‘Khã}A©¸-÷rR«K Áñ𦮲úY”åkÏ>U™TÍ¢ÎÌÉÁ[pµñýUè)îÉ]ò4³™p œ¿×™“y}ãÄ·A.b,Š€no%Šu¶Ž–Ý&)ÍoÕ˜0C»[o6\TÈð‡ ]1ÁÎ,òˆ™@”“v<¢"1}ºŒ ÙÙ%0nÆÏ‚Îë:«:¸3œ —ô ³±‹Õ‚O·8–öërØF3ž…è÷­$¸Â—ä…Ö;5Â[ߪ EcøœmèA‹+5õå †GxÍÖ$„¾î²£&ô cÑß|’¶žgN¦Ô©Žßp¡«LA ì¾­e©—¸Ø¨. 3?‚÷³~Ú-ÿùzm/ev2œ¥Š"éJøB*†ähóªÏ¡¹"%áFà÷ÊÝĆkq+Îy61ŒƒµèSV±H¹yó5k$Ô7Ç\wãúàØ¨$Ñm&ÁûŒ#N¿o·ˆäjˆÙ€¹²´B3§ýP«f®LÓ"é4r ÷b¾9¸oc†`šS /6û^âß±ùŽÖÓÝ^Ä ÌÆ\—š¼Áᬑ¸¦—9` I§…L}[wëQç`@åÍùROʃÐ7‚°‡€Ås7@ú,»/â8µ¶ñþ¹ÃöiH_uvò3Í‹›j/÷×í‰Kdþ·Sç‘5+*ŒMžï‰M_Í]ËçðŒ+Ç3–—–U®aiÝ;&7ëÖö³œ¼©0ÐJtù*¼‡É”ÙØˆŽŸ3*_ô68_Lpµ¹ofÜOuÆ#Y†o‡¥§PfZ¸)ž`rj¹Éf³6Ò\×+5?eTÀŸ—$™g(µ¹©¬…qà—bÁ Ûݘl»uœG‘&ÛHÈ')Þã’QE² ¤ädþô•©ãÂ2AtW[й)Ç'33-¤\üŒ³øjS£¨v’U…ŠukŠN‚ ¢Q,Fás6#„ž_Ù¹Õ¿r„ø½òØ—>–Keü±åfÐF-²¥B u&~ˆÔ¡eÜ”Ë"{q›:UkÚɆY¯Íű_6àiEûÉ+ð¹ßzk bH?Ý0ÈQá“­ðNq5þy!9ø­Q_y÷L» ÆWš/E¡î†I/…ÜYX–{x’XJ/·ÝcçÖrX46v¤­¹§€vâHmA&½â,+«Zç¦Ð®x»½(Ò "rv?rUÅ–*¾Œ§ö;®!ZéÀH "Ž’Ó“ÁÓÍ÷Ýü©ÈÔ?² 1öPY¬Dù.^ߣ:KŠJ+ÚEÝ®ÞW[sÎQFëO­ _ø-¿U“ŒoåG¼<”i×)P±LùŒêæÀQ¾Òw3§"݈,™VõQ¦ÐûàN4vÞµ­i’!t­=ÅÉrýzƒCÞñI¥µˆšjh’,fã^…Þ)è6¡6n3ûÜH’*Ìä¾rvÎlK㥳·HÇiYîšœMWÉYe€/ÏÇvƒÎ>™?{úÃŽÍdÛ­¡Ë¿¦ZHÂ{;ßÍᘊ— ™Ô±ŠÏÀ¯İP®áÆPôš„­*ŸŠ¯±a¼÷Ë9ƒF×Ïõ>?*÷Ž¥:Dæfõä0°›@ð†Ì¬Ö¶´“Á3tö®ÝŠ ·ñþ¢¸Àøýç>[F«nÛe¨6 §ìß[ š"5â?Ê>@¡€2ÿÿ¸+1ví(׻ȹ‘ª7WyvG!ðFd·qÜ[¢éVéåž/ÿG”°ñ›Xi“u9p¬©‘äGR™ýÝ6¥Oö²ºÒÿÏ>²A<÷ºŠHFÈT³a[9ØqîH«ƒæz×aA„H( DQ¥ä”¡_­6®Xß8±(Ç<>Áņë¬û¨æÎƒ¬ü%¹¬Ä÷OǶ)ò J¶-à;¾[o×€«D»~a¸jAX!¤tHÖç·°ìvù]O9Q"ÈÃÒ±’2§W×ß µ%û‘7’7­)Šï¿Ã†ËDrG»K^˜›ÈÃ+ æäËǕ諭e(•ÉJ©S êB_ö¸„$| úìŸàݼ‡RM;»Wl:7t,[ÅKCÙš˜à° ܨAA|%À…gð¾ÀÛºYXf`oÚ­Éßøtx«°|dqË0~ò¾ÜK ÍÓ|è"! (€CÆJ%.£A öÚÂqfž åwîV ÷vkÎÞ.¯ÙÏÄ?Øž \Œ)gùþË-“ÓØªÂ¼G×BíÂçùh Kü=g-Ânæ9]ìÔïdk¤ œá+¯¢p¬±ïù ²»†­‚ðèÕ1%*¶¨Ca’Ñ,¯&ì·‘bºg m\!D’iIò>°øü~nqÀl:Ùµ=Ö˜»á´Î)‚Ìâ q ·Ç½ÕãçÒA<ƒ¥J˜PÁ`µŸÀ¶P$$ôØ;³5t¹vÕ6 ì›…™€\§ý+²v|[C‚vdn£_@Y"Ñð»ŒR?@±VÑzÍx(¾[ÖRáLÚ.y„M§C^±sçCpnŸ>œ9¿d$kzÿÑI¥žÚó¯2ö…·²s=í f=º¸¬f–ÿùÃÞ·`÷Vø#¾õ¸Ê³Òâ‘»NÏ›W9…è)©¾( «4•â»ß_“^Gi±xøÙ46°È‹¸c“nÐne掿!z CSñ0òE[‡?8íÚzË@1<_,Q½Šþ!RaëEÓúWüxÇ$5/‹+ zE¢•éCƒ@»Œ(X0Çifå`ÝŽåù°Ž”>—|½J–Æå«šmm†ôX¹T¥#™4¸  çË[OÙpœ© KŽgvÓh9#%a"1Ñwd5Æ1~•;9XEËqTò MÎ*|…B˜ÁåŽÂJÜzEŒøýËàÔ^KÏUÂê“ð n›~«CQ7³ÊžZ‘ˆÄÌ_¹!ÏéZ*?© þ,fÊ «.8À:uÔýŸ›±Ô0¼Ç”ס Õ"¢¶îÓ¥›oØ“:Ò‹ùŒj¤>©ÊÂY÷‡¬¥†Ô¨?{¡µ &Ñ ¹íiAãMî÷ñf„<ÔÑ\ŠçVÏ̳_©ÂbçúâA>–§R/q!Ô¢nG ›‘O¦%+>GÛ­–·f1ÿ¹»ßš0Ðü5ÒrJèÝ)%lê±HsZ¬¸W£Çqvã)-[€?Yj‚ «yÕ†PðÝ ZÂJÑ õlx((à)6©m"{?FxXÃë7²T{Wª »ýõ­\HGÔݬêyU½Æï©ŠPzžåñ+¡ÿø¯EO–·«Hª;6VHgzœò&Kψ}ÝŠ|-‹pì‹R3žäŸeg;­œR”5X¡lO`þÕybæ·µëÓGq€Hè&< ˜’ƒø£fÅŒN6 hžuIÃdFe5åbÝbŸY^›ÄØ>öKK‡ÆÒÔóJ7Âxl¤œžnFqßPôÙ³*ÝIïN¿¯?¶î °Ù„¯EQ?‰u^ë1 Ì‹èâñ»µÿ[Æ]ÿyߟ Jø™´í(¯0â± OȹmÕVüS@[XݨNµ2€l$ÎÓ«³ŽîVhJ¢ùŽþK¨å8¦{(Êñþ²‚-/ðܽ1ñO­ù ì ÛÍJlkk»9óçW! ”Ç­ž¼m™IsècÆ‚õêù{XE„¤‘Üø%bQµ0@¼ˆ§É€ïÝQ½®Wüx(ݲȦdÅ%^|wÄX1§¯Œ’•|R™V*ÌE`_Ì1RЉ}m¶ÍUÓѽàQÖT†7.Ë` gÜïð’€ÐŒÆü®<ÀןixIR[¬_%z¹9²Ï¿HØ Ü¯ç(%ÊÔÓ–·3)Á+¢Ùc¯Õœ5c7z‹7!z|ºÿ³F½OIRHáš°ƈ¨ÝŠÚú—·Ð j¢ü>EB5⎢šéÙ™¶ î|é׳טZJt÷'/„Ÿ˜éöPK-m9Óóï´ÂÍã› 47…XI^â•yžB?ÝŸ¬5¥”½9]æPú0n=ÅF•öòÇ¿[!ùdó)Uzi¦ð¦xeËMk"w‹‰Á0{Kv‹°KPž9Ñ]fx“Íà«|eœ¦qµ?;@Ô¹RòÄŸï³Ñ³Eq–VüæYƒÔ ³u_:ýYa܉ObÓîÆ ºÌ“ç7¹’<ýQ±CõƒÉ÷ÄûWb ”ÅŸ$yP[ãjh'L<}U}²d+Õ˜žÀî¦Õ¡ÒÜðGæ7˜± Wz~ã¬K®?)?s‹qp‡e+"m¦þØ´‰¢ë<#¡PÏ‹7)C‘lhýNhT„Û¯‚)Ÿ€i?§ƒß“²‡^½!ÿ¶ÃåÄS¥@À;¿[ýúh±Ÿpwé¶!??Ífï”ý&†•køÛÒ1á›]pÔYw½ö†IˆB°'š'$ÓÁ»_AÛ`£å”ÛJ<ó÷ëå¬GX®w´ Uõ*¹%϶elr3¬Iÿˆà '­"©¤\ðÈÈj…/_)ýì'¥@ô%réË\ulõÌ…_¢©/œ³;ElàÌ¡M ¸³dVñUÒÁwÚÚ•žÈM04'u§ÌÁ,ítV}J †ç¸.ûùÕ ùï³ù8s3kšçFåÉZ9ËkÐtŠ_¸neÏ_oÃɼÒ%ßé»ê_¨Ü¼—²0ÍYÑ08{7€p÷9ÚIJÏäôÆy)&µt‚Ë,0RC'ücØ]$ïÍæK |žVØÈ­yÆo¡T2hÊ#ÕáêÖÉ“‘rv©¥Óy=.óÂQ§²¯›%b.p¶º's+Jyö–7-®ïŠmÝɹ“²Pœn…âÄ:’‹Îž±¤ÔмHľ>xç—i¡ŠƒlÓzñà‡yñ$Ý:ÀuWŒ•øëÌ?<#Žqø¶¿§I„¸Í‰/÷pçÀBëÍ6ö(¹lM¬«KÁùG›™¶†W#¤á·LùùÇ;h¾_B^ÀôÁö¢Nu~Ëø¢—l_ÛΡ*ÿ oL_ìã:|Bq2ñm>rE¤áΔâÍΚþÓwÔT¯\Îü¸ÒØcZ_¶©aøz§s5ŸûáìÛD¹³¹x7ù,Í»F}Œ&äñúˆÜLˆ¼}–GOEÌçLæCô6ÄYÃ?Ï\ÏŸ ÁõÇËåßóöO¢cdÖÆ8ɯ'xxÝH÷K¡„µ.ÈQ½§­OˆÓj—¾aÓÑðWêÎË$¿•g³è~ìU·Í>o/Q¿`Ë…ÓX·5±žA@o~ó2xý^ú#j"¬¾ãìÁÉ~&=Ì£é—Ë·5.4ržP4qBÕYg.—Ðωé…D€ ½-apæ6ófÃçj‚–z¯ß.çû{’ì9GÂÂ_ºˆ~ ˆ3&g%Ä41 íØªË®Õî43- sädN"éY·R±ö:95RȼÏÛ+[$‘‡©—>éQ5DŒôö.ºPø­O/¸Îjýãê?¾É ²ª³ÆSNÚ‹Á÷î‰g©jZIyìpJ òfX‡’‹C A`ZÙ›Ë}˜ï?ÇoQÜx’ÓæDÄk¦I-.ÃüÎ!¿YàìF¤QÿâДkW-µ^ÈU—>U± r¡¨^®[pË*ÖÓíÑ>q‚©V³°îYFÆhGrÃïôä¤="iUáì‘¢W…_þÄt/uÒC ;íélìÍÍ-?úÇuæ~‘øëÛ5‡¡¿ð”¾V/qµo]a«½¬€“~.JŠsñóhÔ™›‡ 8¦­j£´s?Æï)°ÎEßø×(ÓW'¬~ÛˆïÃS¼:¤ #–!#ˆ7¸nt!™?ùHϼ«à†0±Üb2Føæ^;ûlAÊ 7oúzÎH¨ÙÔb÷K¹Æ˜Ás²Õ¥#+ÝÞ v zí»€¦~$ƒÄU£ö%Ìk¼íNvX_ûùôÛ¤ÑöЇ²ìA#;§ð÷,TØVh’½ß—?䇙‚&sJ½ð"ŽîŒÜ¸_‘1l­Mp€žÞiÉ¡´º °eX¯"Hùc–‰qSFÒ-Ds‹ñü!¿õzÜ„H¢;œ\ôKù¼ô½Þ¾Âˆã,KX7´o¡¹óšqèæ´7åžuS¼Š^ÌN°ú|G•HÐîßúÉ`ÃE÷ F|¿#ZáuË6«p¦r!7ÂEçDøÙ‰°Š Y*@i÷™×oÓ3c‚ú„íÊ”c Yý\¢ #yú­BÇ ‚ Ç56·Ÿše¸d|.  ¥29[ÒmçJS‚HK­ïV‘éq®Kܾ;-LJkb ¯g.û=^þ‹é*áÇ‚¸`ڻܖ úäÚ¡JƒXlåÌŸÅ9ج.kÈñIlÐgHÀ_Y¿zã ¿_˜+öáAÝIRsÎ_7øifWžÐ=Ge^¨íµ±iôKT›ý€ ΩÍã…µ ·ˆÙê7¬Hw¬ê™sÍ뜌‚ÿ5YN…)•àÊGšç>Ü;Ç]WLH]XëAŒ9#À'Þ6——lѳî“JJ±‡ÞÐá`*¶ëÆŸ¸Ô*$"¡¬3;ñlIàÕ⮓@•Ûó¬ y[üë•oËü»%‡É÷M×#Ë$ÿÜ;Ÿj˜þ±pÈòj¾®Ê²àïQæµõÄ›œôƒÞ\uÌ\æpc!Ù‰æ˜Å‰d᪠P\}ß«u+ä‹ñ‚”!5ßžêǘ=+rž\€×MŸ=ih£q ½)ì˜BGwZWs^w/*²/An;…þ€Td1õWøäJh ƒK¢ŠŸ+3Œh“`Znc?­?ÞngpÚW·{Á]žgkø¢ú%CF‡ò™ëVÃ$SóROyâÑ„QˆmäÚUX—@Z€,±fÂ\Då´Ø¼SþY>šÇð†æM‹8U´"Õ(¦fÕ7î óÂ&l\ŒçAÄ|†¼jˆeãOfÿýÊ‘÷ÇîgFÃÑx4K m¾‰9Ä_37*„§å÷ά›S<•x€PÚ†Ñm,º=Ŭ¾’´î|-1Š~÷ _ž:ººàɬ»Ù¾u{£ã¯éÞ­2ò(ðÀÏeÀ\_¦âÙÃn¿ÖXÓé*ýråz9ð7«²Tðêˆ]ࣾ*´w¹.‹´˜|ZÚ|¿ÇVA¯œ^â„bNoË [µYQ€vž/öogS>Ég«orhüjâ¿B=y»c¨ðñƉ  `À𣷤 ØÒËØ`oÚ®ð¼IëPhEb2í· )“tDf4m¼{o)ùcéN6Çz_ÑRÒUT+Ý®BGk*eŮϟ œ«næŸö5üð~.›=ÞÍ&©‡®{ÙÚÐ=À˜[˽ç }øYú…Ûíã­>•q̹â‡î&­º@Y¨‡ËxÍU»‰¦Î…£âÀ]å‹§¦ï¾tq¨w¸îŠTÞÁ»ìr ƒ­Ž tÎ>NŒJ÷gSe1 /~Ò&C¬Z#›Øü:É/Þ4TŽ$»3dµâv¿gâŠý‡f­Í]3}îÉà»An¹T€¤Ç)@?˜õ»e¼ŽJ—àã’#ŒUPJ ™év‰’)?BQSæê¥”»¯^ÖI©f‚›b ËÈñ¤/|²kŒ’~:)=ôyšëšc,²«>Z'nù­ÝTgþ:B}U»U1VKmpê|7®}o¯ßÝí¸;¦W5>¬>¯ZíùõõÁ 0æÝw–„¶E;Âwtp¡gä]4çéÃü·fóó—5-Ðçè¢ØPÒqÎ9ž³ø‰Â“ß Ûš¤øéLWÕ—JÈØÛ|I9ÀÑiû>6¥ä'«†_}ÓsŽÌV­e[xù,–hØ0ñ–7qí§Ù<„8ë9lµ±¨YÁ†ìx»H¤­ÂÂBD+_o·+€µ˜kTg»”_ó›5JÆ5, i³˜vTÉ“l#&ðSl1d\UìFàu}ymæhìçkj÷¼’<¥À5Æ[Q ?µÒuáŸh¦|K¤U2Ó±±ÐÀi[µ»~TOŽr<”—–u2õfû”ÞG{ÆÛ ·ÈˆÃÊÕÙ±±^¶Yíµ¬%˜fÜü>TR”­8¾PCÿÍ6†EŒtË«)’—v3ý÷ãìŠÈ¦bøó/ÓsL†=vc½“¦Oh•Œ‹£Þ‹[ýùA×\}0úN,‰ ³?Ì"k¢¿´à$ \O@Õ³¯gAÀ¨x<àT~5÷¶ÖJ´ÉRÈ'T¤«'ȨvT¶aCšš¢t—óþW¥½è~QH¢˜ÉSŸŠ³Ã翪·ž½¥³4+à ¾“}.‚uBŽñÕ$î%–Ñ3=ɰaÎŒ‡]¦ll¸0ÀµsD–CBwâÜ™´,¶ck²“$!+›pá7Ù¦Š¸hGU¢²S·[< H e_Üø®|ÇÛ¨ª¸ÔëL9û™ÕU3cîmu d‘‰…c¯!O`â[ÚïŒx4ש+ã<ìÛ`¬3ž@KˆÕÈÐCÒ_T‘@?F^:eØgîš~;DÃýìû¦À%„éÕò°:Tg'‘ŽÿBŽLïf'¹&Ú›ÎL™w¦úóÉP[Ø‘°Sa’|ºýàÏ‹g¿ ̽zf|J[iæ¦{ z>\q46W™Ï4:&LÔk‡L€ß©(Î% /×w´KÛ ’³4'gÂÒÃû¦­c˜±»vc­XF±ò %ÉGz x¢1ù˜U•R…_’ÔºdN䘻‹Ö'¤É¼8kê0ä=PA8żiÔ£*u'Z»ŒÜ _ƆÆ%þÞBŸÕø¬³*aúÓQß#F¢Æ˜U0 l°„êIkbP¤Öl(* ;tçlwZž>ãVó<›Ÿ_eˆµf N46ì„”$b¾ÙêàK§‹æàN|ƒ׳˜£püª ­Î—õeKf?ŦÒO¦” PM’БÉê”Å•MýÄ‘œõv0Ýe¥ž¨ŸÍ1@`#ô÷3ââ 3¸Ûԣ뒱ÎÐ`¯±„È?ItwTƒë ó K¶6Ÿ'{nÝ©Ž2d½.cä‹M905PŠ"Þ*iÖ9)´ä¦œóC$ð~*ÏÝìÿ^G¦oèQ€¡ÎIl— ¶ÎIÔœ”Á6_Èg«—©Øé¶ÅhTuuògþ™—ߥD˜Î2vu A¯® —'Ïí¶W£ÁÃ0jk­˜ì²áÝ çÙÎ7öiÉŠnûÔNÚ»a”x¨f'4š`?{8àÉó…-ž¢&Ï¥…^™Hí ËÖ䩨¯¸í]kÉ’•æêCæ·@[ |šà»³uåèŒÅ?ŒÑú߸ òÓñvqxD=ŸNŽjšeÎs\ƒ{äýŽ7»Ý–WVÄiÍøÔ7äw•N+8W &\‰«C°Ê ÷êeöÅ1Rç+í­É¶´&«HX_‰?ùXÜâ‚:JÇÐ>SMÀG•% N¾6O¯éÊô&ÿŒšž‡ö‰»?0ppžXÖ0´ÚÌw‘#ÐOP›"Á}[ Ë}аñaÂ[-T¥L¡éI°Ü*ÚËæ±½á²iœ+°›R©ÂÆ´"÷ÃåJÙ‚¨k-mäi_‚OÔM›Lð¸ÜͳôÉ÷LT#"ÚLCnŽ`SìAå!d•«i0™—Ý-m¸p§©i1Ï×*&òåÄ«-ðG UÌTùÆ1KpЫü‘õ4Ïg—çbò:ê럢?¿’y‘'ÓʵÂXÝÁ¨¥ á’d¿“´{7ym\ ¨)ÿŽ÷ÿ )0ÕyݪXÜïhÞ9;Ç"çQÁÄ®!®Jdú?lñ¼1 endstream endobj 2044 0 obj << /Length1 1647 /Length2 15742 /Length3 0 /Length 16589 /Filter /FlateDecode >> stream xÚ­·cx¤]·.ÛF'©tlÛ¶Õé£bÛv:6;¶mÛfwì¤ãÓï÷íµÖ¾Ö9ûÏ>ëGÕõÌqÎ{ŒQõP*«1ˆ˜Ú%ííœX™yŠ–¶Æ.Nªö¶Šö<ò ª@sg#À_Œ‚BÌhälio'nä ähMâ@++€…‡‡ fòp´4·pPk¨jÑÐÑÑÿ—ä€±Ç -,Íí”\6ö [ ó_ÿ׆j@ ÀÙ0³´Ä””µe¥ÔRŠ) ÐñoÊ.Æ6–&yK `fï°ù÷`bogjùOiNŒ}‰8ŒN  ‰å_3 » ôDm-œþ>,æŽFvÎïÀÙ`igbãbúOåföÿJähÿWÃö/ö×™²½“³“‰£%Èð7ª²¸ä¿ót¶0rþ'¶“å_`oöWÓÔÞÄ埒þ…ýuóu6²´s8Ýÿ‰e ˜Z:lŒ<þÆþë ähù¯4\œ,íÌÿ+z€#ÐÜÈÑÔèäô×Í_ßÿÜÎÕ øßª7l<þemÿ/­ÿÌÁÒÙ hcƈÀÂú7¦‰óߨæ–vLÿô‹Œ™=€…ùßrSÐ`®@Ç]õ?=Có7 #S{;€)Ð IÑÞùoHõÿËŒÿs$ÿPü?Bðÿ½ÿÿÈýïýoCüÿwžÿ»kIE#Û¿ ðï=ø»hŒìw @ðϲ±1rü³p,Mþ_¦F¶–6ÿ'ãÿ®­üwÖÿËç‡ÿBÄÎü/C ,Œÿ[:IZºM•-M,fF6/ï_r ;S £¥ð/Éÿºß¿FÌÌÿ S·°4±¶û‡ ŽC@;Óÿ^Ã_ÞþU“”´¶¼¢ÝÿaÛþKYùoW8«{€€€ÿIKÁÞô?ÿ¸µwx1°pòX¹˜ÿãßqäae÷ùÿû/G,ÿuV0rv´tè0323³þ~ÿÇç¿NzÿÍ„‰½é?}¤ældgú·õþSðlââèø—ñmƒ¿•ÿÇù_CºMÖ–íMø‚­Ò2Ókqs‡'Åuú{Y ‡C@¥ êEþÕö=~iá»<†o5!ŒÓ¼mK§ ÷CYÚ£Ñ^ªžTàeþ2š¾ô-Ê.º£@&ýRäô3­h¯«Eù¨ïœÌšG{“*ªú%o0DÓlŽpWO4þd®þXä _“õqØh`µ…§g”I¿Ÿ©ÇF†‡zn û érâà)øŒp}SNI“= ïL> _\¹\ݽ0Óß]È쾦ًÕyÎ?³úSw”ÞMëŠþpjX³hdö¼¾· „} yËàò¬%‹5 ½½F;ìç{@eþ’²M'«‘ÑåúÍÿ¡a5Ù[’‰š-ã\ÆýÖ(OËè»E Ÿä:µêQ&¢Ú£¨‹Jóo?¬ÄüìçÉáüÙž’šz¹¾†b; ª„߯‰0c;8n¿¥K¼FÔ§àØÐm‚)0<r_N¾>ž;ŠªV«™1 žÖm0—TX­Eßz¾Õ[pIûN«bucæcÎûèÊT‚{Ü0=µ°4WˆßõüÛîÂ+ÏYçœ ©â„¸LÊá§~MQ¹?:ÒŠ¹®.ÙƒG[è&xIÔÎÞËÿL,ycÄ=k4®hÀÅm˜Y šW…“ÿùÅ”Vá~¼E„ ²¯áh;¢tÛ"Ä×+p‚¢Q¬¨b?{zº˜BaEˆ;ªMÖ·èÆ%*æ4Ÿ„îȶª±V¬Ç¤ ›@<¡§`‘Ž1ú)O·3˜‡·œ‰¾†ØòÆÜ©OYéÐ ·ì®’Ãò¨"t9R­‘Çaà‚ðYO3Ñ'¹nhÏÚ9éO<··‡G2Íõ°hüœV"Ö³¢h¼à'ÅÊs¹Ü†æ}GCŸ¹?¹SëlÐↅ?™eYÒhz¹·½ÈÈ•é[¥lïím ,Œõö ÓThÛLn†”‡æ>WJæèýª¢·@pÜNÌZàVÑg¸ŠËçÓ©ë \‚+-ÅÙš½ÛÀ™)Ús ÜÙXÈ/ƒ^dGÊØÞÈÓ¶JCÒÐ*FµU»lä"6{ÑB< Bü+é¶ÖgèÔ{OÄÀ>²áDÞ.ä]í÷ ªµc”G6hò+~Z^MHr®Ÿ!Î<=8Ù›çð!m‡½vhf ¬¸¼ò+ºš,Dâx„}裯PË¡&˜h$UÆ×ýùñ¼´èjÝOx–R6µ#7áâ{õùâÚ,ü=ÿŽ»¡Ä—FQ*Bl‘öVõ * á„ÆÑü“;öŽ!q¬ÿø%à¨lü hÆ–9sNOaKß û½ãFW›&Õ¤Âîà)â&âÕØž×ù”…¶¯%U>}ðŽ™0‹/M©¾Œ®Gg’²‰H½k¿g¥ÎgŠÑø aº{Ñô4sH—Ñ#MÅQZd‹[O ôòFrvìH µÊ¾ˆù{òœH®@=õà ‡Ã¸új£­˜I(ð¼…è=ž(;"¾ºø¸t9`·e?ˆwƒ"c–~C%ÊL5¬ü?ëH)¡€–ÂÓD³(üýgúgµ†þ>1_¤~ΗgësUÝhû¢•,nÂÂýá‹Ü!1…3?ÇL«^%·Ýv‘ÍÒLË õ¦ ”v \-ûé¸#CLk#¶mõI‘ýðŸfÖÒÓÝI½Ò¨d¹lÓ‡ú2î*ë"õß­Â?¤CÓäá±ÆÜ%i¨úiHš‹šÜ¢©b? ˜Œ¹»Òä¤)góbýØŠ…+©ÝÈ–z ŠR)}Ìv 6…J+éÿ–éiˆ3šõnR*„ED6vÉÛÔ% ú-†ž)Óm™*µ´=–Ñ&…KîxãY¦Ù‘1ñ˜h™ërVw&n7ä‹!]2¦ëÐyÀœfᨸ3›Õ2y°MË¥þD¬Àþ áú{Ó'Òˆì®!2t’÷è™äÏF–ÿ@sМÁx‰M½¡¸2+aÓpfFM-ÜGN­£0keÆ„ÎqCæQ‡.€Ÿï"_¼,E@CKBŸ™ ñˆXæ“®í6 w^T¶'ÂÉ~NWO±ói’Í¢ótDi$”ÚìˆsSÙ`:"LÜ3*€EÞQ&Jè…18ÒÅ¥ Ýiß“gMƵ¶@˜¡Ç(ÇZ$ìeã‚>•^^Ÿa¿—5M#7ë¾Ðºõ—Ø”(QÐx3S‰`£½-‰z}޼+sfr£0­ÑašnòÖœT‡•Ó”BÝìLB»~Míxzý¥qÀ¼}¥OÙµñò½ô]¯ðä "J>ØX‘Ám×áúm°Å²Æ •†ûˆ}ÐÁý—ÅdYë ȃg`Æ)zœFé36Ë0ü'‘¥YI,„NjˆMŸÞr".hê²òawìÊðu{…—DÌwLLä+°µJÆsüCƒƒk’°c(Ÿª/hlsRY0­ xôåLŸ'ƒ3ª¡ÜÃVhLßÂ((€ZP4ðTÈ)”÷—èýŠ>uq§ý¾; §#Ü<1EÀMIØa;ôL¹!s‰cÿ}ÇWò4å×ʇÉf’iÝÚ¤He—Ë/qk Ì„X«O^Íêpiwq­ž!©–ñÏ•´ê°Y÷_Oq[áÚ[³ƒ´” í4|]¹§Û2eø.ëÛÃÁ~= ÂÌ~;ª– ?¿áV‡4Ëóâ£-TDªG@± Ø,Ëwƒ{.L„0`†¯ùm¶iÍh ‹%ZÐÔ«óº·æ¤Õ«gŠ\‡Sš0¾^`ÿæsÎçóŽðwÖíñë‡R¼R'ÃܼröÊ1ƒ4› ÌTëº p[½É X¹žó†ðÅ^:“¶Y¥†¶.¸õÞEmò«úÝõ&'+M‚,ž+‚Ê?P—CíÝÕ£Ã0‹f=£zK5ìC¢ÿ¼:ÅÄ€md¨5÷ïÖòKÛ"EªƒÇ¶ì®õXtÁ‘[ÍÂêDèÐ%ºÏÈOÀ¸½TLÛën*Án©{^^¨²’"ïÛîÑh÷0aXr£½ÂK}ºîujÞ–?S‡è‰ƒ¿’OÙd•Ÿû$s›€Ñ,½L w=ykÒ6‡îÈ ,¢0ŽŸaÍCh£ ‡ñéí?Ìç>}Ê_¶ÏY†ÎvyëŠ R€e—*–!d^ógCo±Ù@·{Y÷T` =)” ¨Èþ”W¼yÚY¨·6,®¶øÈ¹„PMÿH¯™ç“š@îè€È»`X¦Å–b€—«?lôNÅ¿ûFX\¶ô(\ˆ¹H$ñÎ „©]éÿ£­˜‡8\»P—^Q›Æ]‰xG}Ú¼8iž6Òf9ÒgÀ¯À‡‡€M-–÷‰O)^ðH|œ‘†_-dXO99µ€¤ÂÉEºèþº”™¨¶el¯?›šÎáÕzŒ º/km­ï³Îeܬ[ã³–&Œ§!(„[}”Ñ Äê¿Wø‰b¤@õò¹\ÁƒÊ½Z¡²6y(±C¿D>Àt£ÕŒô Ë\½ÝKø‡uß„%u ÒÛ¸½–šÇLêsö\ÔÙsBÞß‘°¬+$&fq1—|-X‹À %cRñCìSõÝÈëüAYZ0 Ió™š?E¸ó’·Ñ—ñùc¢~èRšGJ?_<™£RŽßájcž8lXˆ‚gú$uSvuæ›!+ùii…¯DÍs» 8k±36½NQ&IÆkövô’J—¶â¾IRU¶-uRع ¿çŸá8Ûœ:£Q)Ð+Z9Ì4Ï ½¸¦¿¬ÙÕ>xçžhјm]b£üÒVõð7M¼³Ê!Ïl:æQ¤mŠiš ã0†šÂ@™¾, ¿ám×s—\ÄÔÒX,,¤Þb±¢Z"Ðω¾©/´çmíÈ6úN4{›z¡U¶xU3¶½“ÞgÌ(üáæWÄWøœMVÓ~2ÊV¾ÈˆëA¥>M¢ æÊäNQÃÍ&ugÇ“ì£Åç ²2ü½¸.<‚!í#:íkÎGšaWDmš=똵š8êÍãä’ÜEÇ5÷8˜á ·Ê¯Å Ýgw+ewŽ~‚È}ÇpVŒÖ“p“õ:tUïÍÚwÐ,:ûNG+1œÕ[¯Kt_»dqn}fdý‘H òÂå“àq"ü†ã6=„)ñòÛ‘¶ç~n– ø~ÝS0Ù>{‰'ÃRH/%ÞhCmó¯Ü*‰\Â2J],ÑáRÜ“íRˆ7%7˜‡MeƒnKz˜ÙP¦ä@wâäöÁEhdJywò2Úœ†ˆ¸gOSðl3ã^(.ŒÙQçD5v“oM·•M®D#”1ÿê¦\ÞöÂn÷,ì¬ ® @{œC7%åzŠ$økö±`ͺ¶ëÎÎ<1®ÅnÊzMå®Ò§B)°’#Gw{¤å@X}„x6’§ønýΠ½i«tÚtRçv\ä£|aËè=M…DW±2ÂГÁ6}dk5yDéb~[Q‘áu@#yùo"êI ØMLnåƒS?htÒ­?çÅ"Æof+ïî+XLÿ6Ñ7‡ ã¹åƒˆÓ±7%TfØpoÎÉLÉÍ|¨Ê/ûþÒ‰àØƒw}ÆIFL«™ŠÀ Y JÈ& d’qà$ ÊUû}Ãxå‹‹näÜ"™Kþ ® qN1´;jš÷¸AMŽÁc2êÀwÃ:޶ù'¹É¹óG®^Ä-›ÔRóØÍëè‘Kò¸žZFŒ™7Ú›¦ ÝÁ¤ ‹˜ý¥îÉ* ÊCû?¬ir‡G Š~ø¸üFž´­ÓËoÂràµÔ…À)¯ÈB¨ÄÉS ‚qEÜ *Ðjpu Ô ¸«AEd˜Î f9Ü3/5c³Üâ…ŠrÎg<›v@™¶#æC—uTàÜy,Óyubuæ¸â¦Mn.NÙ ®@²ƒC;MkÅpóÝšlÉœlËiê$FOF„mô¡s‚”œ*06³Yt%Ãò>ÈÊÑ,Ò?nQ™„;Õ–‘SžÏšræõº%)8SšÈÖT_ŽѪÀÌ,^üþûbÎ~â8ôÜ(Ó‰ò©÷eñ·¯ðÐýC»bÓŒ/ ï§ùßä8³•×-³8‹?9é§ìÑ,„~…ÇðÍJ9ªé+ÏƯ?úª¹·=¶ã?K:η¶ßÞ‰²I¹Q ¤ÕCÔ»Q”š‰3Néqp3[¤k0R Åùpý¦µý(²4¨¤¼ü¯ Ê£~”Ñ’‚îÕS<œ”u‰`=€!¿Å•Ã"~¿%|Š?$·Õ¯Ü0¿ôíFó(ø±˜ÐznB’2³ûy.eÖ5ç¶SB@í â|S±®”‚Æ?š5zª ™-O¡úÊ5=†Ë×2¡V;±ŒïQ›/Y³iÐÑv5TÜy©Å×A„€Æ]ÐÈ7Dš¨FE|{e_à )ˆ²†¶Õ@ì%'¤™a|™“£:ÎküP®£eµ-ÔŽA”®©®îj-¢×–Äö)tiY^ºy04ŸßëŸ*»/IY…3£ós# Ú÷¥ÒrT줪&ìýñ§†Æ•麕P&G—+ø'¦ÛÑVe| 6i6«@þ™Ž½mÅ@Q)€Û—ãhx8„Zî±/æn©òÍiÁ7´ft-Ðååw|Âu¦¸ÕÒluž€í¨¯¶{²-ΛË> 3þsoA¶C¦ç/ÆAÙ¤‚à <Ÿ¶h¸ÙG"¦¹"s L+¬þ®•Aocl·df&þMí˜E† 1ÇŸ§Š&š¾¡ùo[ÐÖª0ÔUKé)0Ð4œ`²Œ#ò­ƒ¨)é‡ÞMaF'¡Ëz—ÂOâÊ›³”é‹íßP§WÝ%°},E ®Òôw.OxðNVØW$jhªçt~x7*†ZqÁ;¿¸#áäÌX UIn>ðT¡ôøÕ>¤ö㽨tQ[µp5‹(›2Y}©|nä?yaP§¾4À¢®1µOH€l¿„ÇŠ(y=JuÆInȣرàXãD¡³>9Xi™Ö=Š>¢ ˜_WŽ’Cê=ëÀO7r_fl;>À  Me>òO·;ÖMJÔËØÂýÅx¶IXñžÇd °a²Y_ô!ÍŽ¬€ý-hßôÁnÞFàÄ!¿>DÜó Ó›ðLtË=¾l¸ÿ+¾a“Ú¶LÍ´ê^ÈÚº0¬Àò„.lÆ-Ñÿ¨˜k1¢v¦Ìöf…ϼu_AdM$ùè´r%I×É ”œ%’ž[nê\ýìÜ-'à³>ÙûðXóë”cînW°{rZäÞ>zr|·@«m¯Êß¿eèªÛŸËÀü‘2Ð>;šLü8«¼ƒðê.¯n$BÔ½Oœ™Ùm\pjÁÞ©Úe¸ÇWs?*œË4Òìl"á^UC <±˜ŠÒí¤:eÝnÈÊÄH1|¶k‘*V¶N 6‡=9ãIã’—#Ëô–uV3޹çŠVˬ6~˜31£‘b>lª$3É]P!Y]þóÝ”¿â´Óæp¦zvŽ®ÙÍØ¼ä¿ç9¬’µpçÎM Ö­àñ4{#|¿úr@V–½æÖ.dPDÍÕ ô>Ôäãe—u†NëôæH·4dž‡Ú±ÄûmïvÓkº¥éÿçÆW†ã€wdHֲ䛳êJ¼ .H6ÁÃ<^ɽqÙéX‡¥:;cNIt¢¶{.üTŸ.¿W³6âBLÅDôGE¼Êúd§?„cÄ<ÐÖNã‰h}Ó#}~hËèM Q#I›Ò{c¸+)¬ö$ïM3+$GXÉ—ašæ³&Y‹Xè¸Å°KZÍK…ótåÕãI•ÔI?Öa3h›Ôì´Ã‰4êDö'œ´²§ö>õ#ˆóO¯ÿ€0kä)Ìê°:P¢¶³+`F ¥³«ÂZ»#Ðô[ÊúíÙ Š{ŸçRéæ½ ùÃàé«OsÒ}­tÝTÿA×ÐW0 9x¾6×ôô(éIóWl•C© v!]V«¬%üÛØþÝHåMDØu £4fe~~~1Ú7’&>Ô/ùÛW!Moˆ‹Ã?æ—è°òèjpíf…Ç¿§Á—ö÷¬Ö'¬iv\±R#¸e¥›Z¨¹HEY„jƒÖ…[š©9lÊsØ5èó çñ2ên;9¨Ë2áE„ƒ?ÂbQs Nè~÷£ÆÅ:D„ª˜ÆƒA”ÌÕðø¡ðé¦=A·>^?Á´šC³äíÿ¾ùò—1ÇF¦«ðù¬r•t}Æ%Ea‹i×ðŠ_½PJNžä»K¶ÄŸ¾ ¤Ån¿x¤ Z“—eýJ3@SeïGÒ'•¡ƒa‰ÐÕÏ$XnyK2~L œñÓÍžÏèåmj+Wù—,piqiD?[.ndª7Ä fê¡j-=eĬv&pðë}lXÔOÇv  ÚêØ‚uН 6Â’¾‚®v¥ ¢ãè»dWç‚¢TtµG-‡Œ¨³zõ6ÂÓ&ÅÒXçÓ׎íF°¿Q¨4ß!ïÂÚ™U§ ý3ñ©Îžùß&Hø õ4ÄÌ„£zÂì\´P¿|’y–r™{‡v¢«I(A¬•®ŽæÈO|}AÁ–Œ8|+±X«âÜ>^8iØwz)èÆaã\„}e1ùäl´Òv§§·çõÅ<õª÷ +ÃrµÈýîW3¬`ãß-¡8FN£ ¤×áùU-k£ð¹lN¶þ¨ U™¶¾£6×0Ï"Ëß„ﱃÍZs/ò²ÆëL|P=¿¹„}“Áñ¼˜WµM›(kçFšMÕ WÉ¥ºLeÌÕ2IlÌ}àÂò`Ã9¬ã±Às@?§t5©ÛFí¨Àî毡á&\溮Ð3m¶Éð²\)XÝYÞà ŒCðcˆ(ê®Ú¸OUXô)ß·³õ+øZK‘(ê‡j„Qßô†:Öž4ÌM™Ú9í¡g|_E-{íØÆ(jNæ©+^uJHoäAÖt¿e¾åŽ¿eÉÏp…PU*f_g9º;»ðGÀ¶º`zõZÎ ‘mÂ[0¯N†ŽÇ»:Ä^,ÔÔ*_©0Ù: Éû÷3HT<6´â ‡ð<#l^" >H/ç§'t[4m”éá~š˜—µÖ)¢Çç…]ׇ[}slæÞÐ`ëüºúž«çô…/säCÕ&;bëº]BD(ÙÈÐ5VG À”û ý‘&܆¢ Mo¼t¥{¬9aof&y¼ T}žB(þ´ÄÛ±1ïlrÏV=ûÝêGáqâ=1µf½«û¦Æó ²ÙJGž4„²­Ý´CÔ{˜¨“‚ú[…†-YM ­XW'ûVíSò áù)§úú2„–6ò›îŠ\Ã/ëôÂWÉR®wÕ]˜Ð™áú°M°à¥åÑj•î],ÚY)Í{hq¤‘æm]}-¤”è#]»¼«à«¨iŸž€öÒúÓÓ¾>& ]?üh¬HvKZÆÓWÓkjDÝÔÇ6¡]áZ É©^”"¯\=¿J´¾†ÂStë¯Ã£cÕ{ÝAÉlhe7Åæñíað7w7X1¦m¹ï Ò«EôŽ÷MV»Õ¤í¬@\T‰©Ä1pÆ‘9uÆÊz·ªúeήgÅ›BÁòvÒ…'Äá›ÿ´p»0_sH‰ð/ÿeYöªÏò±!i$,•ê\ rÛì»î¤çñ4ɈÒh‘ÏDȰ^Ì¢ÒÿÑ 7œ®;sŸ)è??oÛâÿDÑœ H¯Æ¯F7£ðƒÒ®øSübãwéÆ\dTN tUåÞ¨JFÐb*ÅZËó (=³9œ­¥j=´M1¨Úã# ¡×÷Zí"ù|Š%<52ÓUÒ(Á:ˆ‘bZ¦bˆ(7Üåâ‹c1y9†l çŽÚŽwÌÞN îz°ø„ÃÏÏî$î‡9˜õ·Ã¯jSx¿‚†;îÍÉ\Mµì’¢ú}Q»ÉàéÑIYåÖòp‘úR,òv£9è[Ri&4˜çï@E©Ôý¸}~°Š(„T<`vî{¿¾zh[@jï”åϼÔËð,ŽaÎrsEaudÓì†9®üä=™[4îYÁ(^à‹˜Œc†t‘ÇDð¥?zÞ©’N¼mÃâ$ðìŽ é„p´ŒÁhRƒ$¤bËúœMöÖœq3» wž·’”`Xp #o¨GRRŠ!¦ ŒüØx‚ŸközYUQ ml¤ƒ2g¤¶àšð Ï¡ÆÔ ¿0W¶XŽ} „,WéŒaÅ~ ë©ò­BWz™Tî“tÜédú¿RƨóR¿‹úL*9¬Ú›îè‰tí!j±È»Ë]Bù“uÍó]ÔQg#z!Qaðiôß²E ã>½H8Zûvô¨æ/nlÍðŒ¾uiBâø€ÈÍ‚èX7!õ^Á÷Ḭ̈¾é˜!„8;~ïÒîÑF+—.–‚Çi ‰°U¤d̘Š^÷͹ƒlLV<Ä£ðS_\ Ixlo—z.2f¤ÞlÞæñ7JN¢×{¢ˆ“ꄯå_g/Kï‚¿¼Ó‹ìC„dØÚ»Š–@•EBû£A´©|¤\s¤|Õ´ ¿FÀçÊF‰(Ý±Ž£RbÄh!u![â'ÿ8mìC©8Ï–!ˆ›eIçàñæ1êËÐÕë/‚Úª›Ýµxø*IS7BWÝ–¬kˆ‹í™£`gàK™vùƬ×`e³x[¯y¼»÷¥D±í#rV–hW²¬M¢¡ä%ð'¶ÄJûša¿qÝ céýÜD*j­Iq ñtv,!"ð/<• ‡®×otqòƒÅÉô$ü G1¹CêZ>êu`oèÝnÍAçì'e]%ÄZg,¢1¦H>yÖÛþ,ƒªVxãM\¤úž pªìÐ7˜½&ƒé€¬RO¥öŒÁéC©“…åõµ—hU/’ÞÑI<5þZÞÖž†!™ögªÞ¸2¼•a,VÂÜëÔ8,w;œÝ“ šÊt}«Iç' ý>¦ÚÂSuÝTgmìðýqÅ×»âó-X#‡©ãzƒnêñag´R”©ÈðCmï…¤ÂBˆV·É°xáëG¹xÕ=Êñ¿ å+<—àorÓ–‰àK<ŠîáS·Çꎯ;(ñlG[dÍüÈL/›äVlG †¹*ŠfjÉMn ½Ð“ù‡§îÃþ¸…„Õãæw—ÜŽ½"m#ŒìÓ¡àŽrué¿åºµöûŸÂ²?ÛÐcJÕN-6t„~- Úp$´òN&ÑO¶ ôÈìÈÖ>;Ÿðó©/ · t]Eµ2Í‘,µ™êTÒ\Ó'8¼œ^V(øå‰Çm™À¶1ÏwøÎJX ±ôl‹ö­R=ª(°õ¾\[‡H‹ׯÑMhÒ•—‘¥‡”öÞKhbæ‡6\0‡ˆˆÒÂ0[ß‚SŸ¿Ò™ß¹ãfØîdóUyÎ5Û@.¸‚‡ë`¢w6®8Uƒ›J¯$÷>–<²O×.úR¯Ä‘¾ ÔmÂÔ;Ú58›jfõs(x9ê– ”$Ñ*{E´ùFþÿõȇ(˽ ö¡€#'x‘·DŸ{ÿH1š-R§ˆgw8{Âëów1ã?¿Ûý¦âAs«ä£ž¬›Ë§ä%GSbÑOábíešþetE¤ŸÙûeæ´øfõ´öç; F0¼Ï‹Jl 0ø+b02„˜}¡_Q\ЋüPùÓ¸f9¾C4'B*ãH·† „˜ „´a¥ÎŒB… hÌ#œâä=ƒrón»{ñ¸ ¥\ÒÚÁ£/€>¼®ÈÔÄÏ=tçyàÕ¢¿+plQnù…,бOìg`¸¬ZÑಙg¦¦<¾Î(Ì=éº}†8›lÇ™ üôy² ' '·äe"Mž9 »:¤sǾrñ ¯„»CÁªÙ½i+É÷1|ˆÌâf|„þ]çÕ;¯üÀKQ!\° ´ÀºÖÙ!k™n$5òÁ;nP·î.Áض—5­œ­“g‘+|U¬2—B"\àûôf³ˆÌ|¤›Œïn¹geúÃàÙK~À2ÿ8o_Ïw1Ó7Opaš?ãBõ³‚+ù]Ø[ÜS01€¦—J9¼.ÓEÑ l”V9ND\—YühÌÕÝ~Ç”A¾,¶žåyê5å³<7ÈŽÆ«$ÿÈÀ¸Qˆ†/¢ýÐÃlÌó}a­lÄ)'>ˆ«l½5‘.(8@PbÓD#À¡@4QAæ~ ÝÌÔ<õiO'&¼A'»uMWŠ,ðª®ï¹.H¬Á~æN;<ºÃ`©ëúO­ÑÙlá"µÜœŒ—åŠbsöYš©6“9( ~¸"œ4óÊ.ý‡Fjbª?æˆöi˜€T·°Ã¶ýã’»)u7,WÚ¦.ƒ0œ¨#K “ñ´©i$bvÍqÌ>ñ*Ô{<¸³å€_å[ârÆÉu啘DÃÛäCÏ )!ˆìËyϬAè—Nwc nìhŘx~-‡3ngØö÷XÛ†1w¸ßûű¼ÕÚ%´äÍ? Fö±Þ$“ìËÐÏc6È™F°ÿ$˜*t©3µƒ½3oùªŒ‹j¡ŠÏpF´Ù" z< ¥S!Áê· Ø/ÖÑ ²…IœVL^p\y|”*J¯|z.E¾ Wr™@¡[¼°@ äŠ)Uóp‡ÄqóM Àø&ûs–>õ=ÅPŒÚŒ•š ¥¥òívu–LŠëD¶åøŸù¯w ÐáóI´0‘…ëâMdiOWÝ.OG7Hƒ9 |Ýܬ±ÇVoþˆ8l(9øPø+Ìs:A%ãc^ßqýÅž«;Ñ%ŒÍŽƒìÖØM8›xn>±îME\%Ð ˆI\¶E£×¶bïEΆŸ ë?Z¼1¥þlˆV¥@»bigõ%¥ÛÔðhö½eù±sáoá ãæ=øfx à(=¢"ízq`‰ 3 µ3YñU˜œ>è ‹ 0VÖsc_ ´³$þ­ª7à…?Ó ™3 Q䈽Á³…àÆ lŸjÙçÂ[EüÑ5¿Dy˜q%y^sZúÀ8ÄÔPaº½x"&r$(D„gü¦XÖ0gŽX˜ôÎ@eÊ16ï¿…[MQ`€½ A¼9Lÿx?:…ú¥2¸L{}Wéõ]Ðβë˜õ›ã ³[G†dN–îIÿ‘r™üÀ`¥Jb{¨n+'Uß¾ã’üÉÈJbjPÄѻ蒧cêÿÜA. ŠmµUåq?щ„ÙÇ2RaH˜n@νl¶^ nñÍ=*¡ tÇE™Ï° yßà¾b¡tUØaÕ›0¡~_%8Æ™qa;£âNG¥ë…å„ÄËÎ ½ÞÔ³Z)¬ïÍÕ¨Û$·`ä7aMsåî}Á~:§•­]ŸÁ$l‡0¼hììÏ}¸9MÆ<º`…Á×!büî›ß‚©ÈÂ3AH¸N€È}`Ëh:pøh0!oe€UÚBÐô“‰ùë¡üóôÙ#‰góÉä"ùóËÅÑ8“šàÖáëgÒ.Ê+ôòÎwûo¤WÜÞ˜¥důTLo×O_¡¾ýQtžž.J°õ˜ecý~jÉPà¸1ÃŽO›Ð«®U$Ë&ü§ü®•Hf0¦Ê@ûù­jð]ÿŽý­‡wæ ÃQ’öÕ-§¯,EEÁ…ÁIÒLV”}ó‡I®½ŠÄ¸z8!ô'¶üHbÕfO± —1›mœZi zùcœß¹]. Ü› ¸+të“rן>ÄM{–¼gª¬Õ±2Ê.•ïßÐFƒœºŸ×¹!½ûrdP¸¹`"jz\¦š$ÇV ^(Ã3-ßó+ê ðwŒWæÏ†‹3U×+MäìóW,pu÷_§ØBgÍGã|_‹Çäø–ŒD`v´Ñ$>KCᾌ|±®²‹öÌx2Úi Ëz~è~´#ùs$²–X»tãÕ%C£a‹¸“M`¸¬KøUã_¡ö|"/•djÚA©Zd°ÍŠTÙôNó*kà hþ­*M£‚К„SwCÈ8¢“ ¿^znä]tOå¬'ºsSèÛóÀLþk À3™´ƒ]2ü¶Ùä]ÅæÙ9@ßnÕìÆsíäï;õˆºC_ÎBýœ)¸Ê‚úó~/­Î­YÞ m–+úT’?›Æ¸µíÖ§`rÆ~)Óºd€ˆ¹P" ãY›4Qê>Oîë²D•ç‘%4VÅ:pHáí!0™Q~68û²A½7;•̨£óß¡s}pí¦AˆÉ]êA+Ì´Ô ¬&øË½‰øÑ žˆ•zTt‹8%‘(ª , —›Çãvdg’Ë´0”’AI=HúJðàÏ(q‘›íÈ;.ÈáÕ fa@/“ª©¸=„ýüs¯uø½ùd¾\lÓÍB®±%Š¥Ûi,„~=kèN¾ªÃ^ñgãŠÌb£®\ŠO°=¾<{ë¾¶p¿ØøzùžˆÄŠN¢…ÑdFà ºÎ¯¬Ï§ö©„ÝÝ]žÌ›ÀÃÕjß\)½€àKyäV­Rõ|•‰>OøÄì'q²aÏÁXUÅ^ì,”<úf›Â¼ þ ³]5¶F¨D û¦Š´ó2I¼¨†fœ@#¾ï–qÞž<¦„—?­U2КVWi£ÆK¡xõX?GV~u’”âñ¶‰g\—TÜaYŠ÷ô¹æeÄìz•·ÎÖùÕÈÛN¤³r»fË—ïÿìk2ƒªJ,ãyÿŽ®œþà¤{’éøÔPåD"œÓÈ,Kz€šu~ºdîFû!źúF€}ðSc”ÒpÈKëáRŒ¹Ž½D"zt.÷~¾eUQ,ÇuyVH˜–AŠ×…59m–±%qØmTIV•Œ™Ã$ÉLÒœ 'LY‘I0¼aâ%ö'ÄÿÁ•ŠHÃt†f¬ý†ÆŸy=x:ß-Ë•1¢6ÚŸ°~ReöyßúÛš _|°‘²|Ó5SÛ-º<¬ä“Åu#^W0Vד¢YGfÊTˆ‰¸e&hã+ÁH+3b1Ñq-÷ƹNQ†º»§ª|åe§qÑ'ÛxnV¬ýÍ/jÖK aAúÑ"jt—üf¬÷ت€ü\t‹Hñ¤øJBQÈ?™ ûúõ_•#qŸˆyÓ|¯„íS–Žºµ#/×!Ál)wñXŸGAlz¹øWgˆ8ýõ¢7½n™Ùæ$@ÏJÖ‡P"> qîyâ Œ÷õ4¶èÒ¶Â[š…’&™ ¯m¹13a„šÍ[‘Dè£+kA,=šVE–/ú‘1õ‘ð|û²È\p®çç^£e(àji,’u° óï~$Å„Y*—`4%Áîqi®ªi‹ªB íŸp÷–íZ¢ÑLEI¡Á×,<·TÐ$î@7t¨ûF?u?Û)aúИ\Ž¥|º¯°IVxý6üpû>"ÄsHH?”¾îacÇW)®ý¨Û7ÆV¼.ôÙsødYõôT…‡)0#Zvêƒ+ùùmªÇÅͳ’¬»¦­¼b§@`Ý$Ì·^Fµé&õQÂ:,³éƒ}°%Ü6ʃì]2€j“N/™’¬²Ý5-ÓDüHdšÇ+$Œÿ¾xÖŠƒÍÖ^°.Žöu“ƒ‚•Ã2’ü'½Ü¿Úú@p!Špápöü5RaB õíFªb½g¸·ËV4Ïûñ*F)öäñçWÍÐîÚñŠ|ÓðÇvñ 7ÏcØžÅå_€•²9^fœpÐE!,µj7S…è5”:´”تÙ÷†Ué—Ljð+Y ç;ELlò|Â=ÿß”Ãê’†~²°J‰\sˆÒ\Mök#Èó KØVÝG/põ6ª©9I°sw-öâÅ~Àë·M[øØVYĈ;AÕx®Ü„¨ÔêwûÓ.œ‰Â§úÝâLMµ±M¸¼kƒB‚-‡$)pn„ê2?z¨ép¢¡ˆIuåÈê ¿»#ÊÍ“¹ú’¡La"Z-}ÆïûâÜ‹FÇÆ_@“ªÍ/õ¢õ¦‡-¾$sbų¤ ¥bW)·³î"­D{©ºZiŠšs.Ê?³\K¶W:4ЀX`eÃACYTÄ—ðó\lˆz«»Gû͸‹»¬í87tO ½Îþ«ð«•ì¡”Å<´HÅvSҕɘν$eð}áA}cåàén¬æ÷äÀÑä´ÑâC¶ÀõX4·¤›Ó‡ ? ‹Vc(´ ¶‘̈>ámQGb¨<2çí÷Ê”+‚FXWW^£i bQËee •?µƦ·0dÇÅà•ZÒŠ2ÁFjÛøÈô)©††{B·”BSÝ6½+äm…’]¢÷Í7†?‰˜lË4òù¿!<´iBÈo55g’zwãVÞàG …³ðõú‹;BïñÒ¿!ãÎ~ˆcmÃãᨊ6Òsܳ×zšD†MóZ³å¯—pëQ^Më ß Ôþq\0‘´±©»4•C}ÒóN@Š&©`újo ™„gFý •y/,ÜË]úpŸÜdÌHžâ;5®z¢{8VmaÚ’¤Ó$÷r·°ÅCY¦Ñâ†YÚ‚›Ô Ÿ½‘…Aì—?˜Ǹ•/]_p-27o"¡´àè+tü—‡U·¹"€â‡É/šú]H@_KçÄ#,qÃb§%¬©à½ñ}yÈ‘+9 ÈžÇT/Ô!ËíU1þ{LçõÚça×âª6Öc«*™R%Åa¼•¯‚qš>[ÑuÝïÉ~ÖD+S!éŒ éû=¤+üÝCókõ?ÇÝͺM/>jYyQ7P-M6Xåôv‚ì\çÛb-,v¯ã§?XÜ¢-jn¼[¢ v=–|>—.##Òñ#t‘Gp‘ß»B;…ìÍQüìHÆ_HNR3Þ Qæ „aºVãWMLd ,Øß¥ÞEd>ãT é§¾~lÀc?+ÞÕÛÝ|1-&­2?”²˜ÎV£qç{UiºlÎvn?૬çÏòÔ`¿µüÂf«C¸ÿ˜¿Á¿ª¢E’N¾³Õìx$]VˆîW‰H±K¶Êá©N¨–ã~òR'&ßùßðâwafçÈ |Y°C^ÏHñޝ£”ÑŸÈê_ZuÇ.ZÝ)F¡CWìs>>|œûŸÃ‡¼ç?m˜E‡è>?™Ìª}%C?À8iÉÄ _7ÄéC<¿T42ªÏ@NtßlÞ±¿QóÖñSÂP ²ö9§F™¢+Ä<ꥷ<±`L¿%²Ë²ÂTáÅâÂïƒ&Y‡Cé릞ÖôÆI-ßóô‘ªâ¨U¬>+—Hó ZÔ;Ýçç©[EŽ ÝM©kƒÙ¤~u=¢+¹9~é ÆWÉž-¾é‹S͹ªmL¸nñé­ŸÔSŸØ(ÌEŒ~Æ•ùx‰÷ªGƒD <hæ+¹²Údׇ©nC?ä;²_®gJðŒ\9˜å¥?ƒoJíˆs«ü/ä%ÅQsi>Lôz*¡?dfŠxf²­V¬ÉÔqƒ)~Þ“ûÀ²q®ð²º‚GúŒ'@ÐÑ >›¦•#ey×4ö)ÒÔûyª`àDdbñD+Ѩ/Y3<¿î 2ÎæÈå…@eQiØå}oÃfºårÙs ·ÏtÐÖÛ°´<¦­Ê5œJré7÷¡cF›z¦È xÎD²Åú……¾º$³z0Ü™µ4¶4²þÀˆ~7’fXBùÙ1B<`Ÿâû=}5eXíéøëI,7Ö®† «|¿Ö×™™Eˆ #¼u'GaTgʾDYöãhËr±5ÿÈ“os¯Òàlžó_y*ßÑÛ {¦¸¤X¶TV¸ôFb»î`‚¥¥FPF&¾—¥‘ÓÏåÛôé,ÏÙXŽNRÈI\ÕZ›U{Ç%š7lËgKoq†J8Î"äÝZ6¹Hlæ¡ð1Б§„¤š­ ðÛÃY†xëQ‡ÖF_,âÓj؆}¾ÇÛx*Þ…*#ã "|êdçêÌPÛ«a˜ýgUŒ[¾Ã퀮¥uþPõÍXió3äÛNV×fÜûõ¾èvD{ÚLÙ9´—¸˜è2NYt›3 ²Š<+½•®J ¢ÖŒ¼+¿ÔÎåö󩮌‘X)£Oî(þμ ߯d ˜¾…\RÒݨù3k·æ6…’ªch7ÎÏQ]›ÇQ"ÎDGTîÉ_™öÞ›ÄüÎKS wˆ7T«Xæòø‘eŽª´Ñú ÝñGNm‚5?¾òï·B;ÑC³—©/[.ÜxIÔÔ~i>H9¾ÙŽ™$¨u4'tQ)ûûƒ'¯‰ßwš ‚…A¿nq)‰¬OˆXrña»§Êñ©9³ëÚ´ ŸùRCê%µ9Óµž½{Aÿöj ŽÎ€'ûÀg§5ØÿâÚɬô\0o¾‚a¥Ž«ª*ðÈVkjyQÝ–Ñ«øKÏ’:U3,´z•œL‚¢«CžÞÚüRÌ™‰?8,Yߪoeî.(™–»%V” }åÔ!V¨ È(‚U¾Ëv=†fe×óëíIÿó^c>¢+©¡€î#X˜±ájãnÕ<€X‘w†Ñsæð·•ª×+8Kg„eé\Œ«¶&6IÏËQõ#X,l#èµÍíDŒœs“2_6šuvr+ý—SˆùöÜïsÖzÓì3µÏYá2`ÙÚÑ—~àî*ºÂ®Û»CO·¿D¾¾ž[t?ÜâÒÅc$^o]Fb^ÿ-†b–gE£s¬èñãY–ïOjLÖ (þ ßûž‰³Þ{ÎCÇoźâÞtTÓðYtIT¼ã(,– ß ¤ÜO7[,Yiz‚”ƒ³v7|^ÂÏ5œ×ç3Ätiß¡Gß\×ni›2OßÊ‘B^úÍiµÁüNüsaÛCfì~×1/ÐÕ@±Ÿ¢[óÑ™ÎTéÎqаCpñ{ØülCÞÖBEž/uï&åìâP*>{ŽsqŒÓ4I…_6À‡‹Tç_•Ós²šI}ÌÄm÷ª5üZ{qþèØ,Ð~ïei”¼xuk±[î÷–qomŽûæh¥7¾æ{Áâ é+Áª%§bè…Qù8ñ{vºµ„ zŒŠDÎ>ÎÅ\-¼£É¯o–ZƒãÔ —É»±"¾î´ Á w<ÞÌ™Uü)‡bi„-‘IJ¤~0d' 9"¶×,\ÈþÎA‘‚u/Oƒîž©8®?¼UÇÔy&2àX3c×HÄWà®,‘ânZxźô£zl G½ËX*{@QçR5Më†;@Ÿã›°ìžÉ„·MuÇ(û¼'Ö1‚xýÒÉZz©ëñ+KNsšÌ÷nòeV\ú½(d#Ї:(3üIr›rZ¹½9ò´xÿ7¤Ë; endstream endobj 2011 0 obj << /Type /ObjStm /N 100 /First 994 /Length 3942 /Filter /FlateDecode >> stream xÚí[éoÛFÿ®¿‚wQØs_@QÀ9íÖIÝ8M“Á‚¶[­,9:Ò´ý¾79#Q´å¸X`Q"‡3ïú½cH3œ2ZÑŠSÆ+M¢ÒðBVÆø[ª²‚#a*&•FÊÂ:¤à µŠ3  ®ä0ÙJ3JTB8WUÂ\ËM%N¡ÜURù1Á*iŒ§D%󔪧¸V˜JIá)W)­@• ôådHPX9‰cªÒŽ"Åte„×”S°Â¢VÔV–ƒe T¶\'˜eQ;æXÅ5¦²ZI\YcÙHcëÀR!iå¨+@²ã`Ž4ªrÂÊJ8 ”4p‹WÎW–9k)ŒˆŠQTQøTVÚ0 ¸T#ìÔÐ( <œDJI‹³´Ä#¨Á¨‹Óxm50æÊߘ§0˜IœÅ@1†ÎeŒ;6bZÀ5ó¤E‡‚DÆ”E$Q$0÷£À—£ ˜3 ¨ŽƒÖq @mæø0g€ ŒalpPf$jƬ®¸qš ˆ,ÆÑ…‚â ³¹ÃsÞp ·¸Bƒ&Üâ ’¸Å–BÀ uÜ7âW8½!0j8:S€€bH¡} V`¬ˆGã€WH@B!pø|Ä®0-–‚ ´\ °-àA†Ï @±Âàb\nsHYt6¬¨ P" ÂPbnÄÀ›@á5Ì…ÜB»8©ÑïWÈÀ( ¡Í ®°è+œ‚£F¨1_˜† ‡£FʺÑ{c̾EçÁ1ÐŠÒ ê.Gˆdê—ì¶ìLý¡4ÉëF²ÉݵflŸÅcïTnTœ©õ¾‰Gkí¾‹G¬ƒJ©}a†7•ó}žŽ™’Ašqv ÒèO®6†íc ñ3™E.N¢)á®òGø@Þkëö1°)Å)œ"§Ñ‡jXæ•Q¯0õ¸ò*p8:D‰}¨…ÚÂÑpÙ¹õ˜¹LOÙsLÞÞEáÈSè|½dÂY3çÅq CÐd¬ÛÜi@ƒv¶’T‚+!´Q ŠãB³},•`‚© Õp[i”©¸@ÃEöÂábÁÐ Fáˆ÷7Ôt8jé•3Ç%¸”SYmûñ,K²\AÓ„7M{×3tt€ L 0ÂxÔ(U(¯·ñ6X ¸EWXêÂlÐÇ`¦¤0S9*@ ŽQxWCÔ!gíï;-ºÖ àC¿Úçë1ï¹5wñÁ6ôU ÄÂUÊ”Qÿ†!ÜbF…´˜5·á•àIÌ.Œ+zÆR3¡À"Ÿ`„qxÏ(?⽉~×gÏ:z¼êyá]]„k8v^‘>¡¬Lxˆ%Ïѧžô8K‹šÂ–$â(|ÎBmó )@ÖKÜ#ºyXîTødÂH”€Œû€ÇðÌŒÇÒÏ4Lù(a>z{”̲he°c€ô4ƒ4þ¨?Bäûz…¶:?‚sè–þ>Ã6hÉ;¤±¹›Œ¿—‰u$¤ùxFþwžÄy¤Ž;î+uø}PSÛk¤ñçõÃ}ÜGûP¿|n:{Yp?]ûy8®tëï78K˜“ôJ:¢ŒtÎmCiÜĵ…}èóÈ?ñ@ñŒ?/ÓóRþ¬`ƒÑ!‘4·0+÷XÛïðB»€°5KÑX{ÓH 4~3P”F>xÏ+v‡@Á}G(ÔÞ(JË{Jr6òH?ÔÓñ´6ø ð(èè6"íKƒ(0ôl¢q<ùÄÛ«]‹@ éœP«{¤MÝIÇÜ'y@O@FîØ¦þù=èïŸ,úÉ"h«Ô?cáy³ÜâŒâq¢«·XSáíÎ1lK¹ŠûÜ-C¿º9úm`úas´õvëYm‚×£gDlHã½c»y¹œOxʘæp)ËÊî‹=\ñœ·k"m#î·kâ®$ÝÛ(zß~;"¯ÿ¼i*òl6]>içóñÍr6ùë—õ5ÜùñäðÝëƒoަç³éb6©—õ_c¹÷ª¹\Mjœ8©/• +=š}©ÞÓjá® À­PFä`qÞL—‘ÇõÍa3¾¼ò(/Ž-ëÉøü`z9iðòtÙ\¿uGämœå°úªžŸ6Ëê_ä€<"Éò”<#ÏÉ!9"ß“cò‚¼$?’òyENÉkò3yC~!ïHMêë›f¾¨§¤^œÇçãùùê:ÐËñä¢!õ’œ‘³y}ÞLšË@ÍQ²'o–í0ÐáÆ99ŸMfS8^_×ä‚\Ì&àÒ¯1i>­ê ùH>Ž?7äãl5'—ärÞÔËfN®ÈÕŸ7WÍ”ŒÉoäw2!“f± ×dJ¦ãiC¦«ë3Pw|9%32ƒrSÏ›©×ÁSA° ˆçñì‚ÜLV ò‰|Z5‹åû´š-›‹³I côîþPqNdÑ|ù‹ñ²˜Ô‹+²$Ë«yÓå3²"«é(p>›7ä3ùƒ|!’¿È_Í|öïô³1Å)Ç‚üjôÝwwФÓ×Ïž¾}ôÍãOß2Ú9{Àp;|ƒ"¾úä]ôÈmá³›ÿ-$MA‚åô¹ù²l¦Á+kVé]¬z~ðæÙɯ`Õ‹£mV VáË$|¿g°–%£´“¹UÚŠÌ.†7s»ö˜ìÍÒ²ýñ“›«ºÍ" Ãk \³×îbï“ç??yçí5ýæ²h-3쬵l«µ5$S°í>ÛÝŶÃ7¿¿8Û^mƒRÒ%u_c\¢Úm5-TÈÿ5“ø.&½yqðËÓÇ`Òé»­Içª=Ÿs _Ù›¬bƒ÷ “u` ¨€ãÅï×õòŠœÕs,P×ãéj±fåN¥åøÍÑ÷GϾy9¾>[-Nëé±oP[ÂÓ`‘±þM$«œ™½ŒçöúËÖ^ÎÄ ­ê¬U\äÖ¾Z³j§ÒrøúñáëdÕ«ÙõË™;Þ{Ñ\Œ·¦mµ‡¯×ýF̓³Òåõ“S·Å0Và¨Ùz  ø(¶Þ“¬íÖÐNSƒ¼h{âG蘮Øò0eg ;šo\þž§Â=ß½ o-ûzÕ¶N%vªq?¼ûùõ÷kŽˆ(t¼ÿ‰w<—™ã-¯XQú%}n}~ØüüŠÍ æ\ÜãôngÎV“I³¹«ÙÜÎÄÍäÖMM»Ÿy¸MÌz,d;›¸«¹ýd#wê'?¿:퉚½ÓI=]þžnÿæøÙsw #–·IêÑ ú[‘£èÚå€ëÖ¼¶Sƒz~øîøåÏ=^Cöù :Ç?¹â_ÎKa?Íü…—YÇëKµ*›9L²û>lä.ÝH¡éFb–C!²ÄÙ)m|…¼%AÊ­~™ƒ‘ßÓ~ŸÂ#àäxtüñcªœ7‹ê=÷öL*Áòt¬„lU«„Ii^ —«×kZ[­|-^ŒŠV‡”F­½‹Ðœ`˜÷¨÷­Ï|oxp¾÷h* ±HÀÓz¬k©†¥²‰¶c¡}ëKmV]+'Š ;Ý]þÖ§² E6Ñæh bФ¤ _šíÍÀ³Õ†zq*ÜÖ8áâAôzY×OnÄq‘ÆTzüAÔ»m×¶¡¢Tw¨ÂæAT¼Ûv|CQ1¨hYìƒ(zÛö²¹áK! uŽ7ÛБÓÿ‰Žyʈ<$éfFÓžÇõ“ú²YÀ¾|¶Â}þ®ç¸¡ôŸRúõ?Œ/°k†÷c Â[Ž_8ù³ b*TÃ}ðüá^B”¦‰ B”õ·aûbÙÇëš÷¢Udf"³h‘¡Á…˜°ì~BL´?3ög볯²40·Qˆ Íâ~B¬ŠLtdn‚e6Zä¢EŽ}…%.ïç ÌEËœáìv³ÄäBà‰3¨Ìâ?ðãa‰(¿ŽDˆ½ûвÁ+ dE‚E Œ'B$"<±ÝSÓ‰‰ª³V¸‹; ÿ9ñWˆâ2JàZG"‰Â“Á¢K…`_!JȨ±P.6Ip!™L.•ükDI‘1ê~† V FÅv‹@[ˆR<ª®’y©1e¢'S=\o ¹]”N1nb b.l¿°DßÊXF¸¢HGÕU,:ÖQü?Š˜Ë’…7‹áÛýÍ:Žð6$T y{Å]ô6Y*E€·z7´aY*bmDµ ¬­ÿqµœÀcò"¶Ô*<øŽêÿ[€¿j¹§¥ã%¾‰‰#03†mk…Š÷NæÍgÿ¿ ò¾–Ç¿‡úåbxyÜl¼l¾tZ­1ã-³´“ßÂ,m#³>ÍÒ ™©af¢`Æú˜ÉŽd–6,YÔsYçr:ìrª f¢‡í ÃÐÚmànüÏ!9³¸³35̬€²>f²c6·9IÏ5f-Üšafª`Ö·ºc&†™å$=טu˜aŒ)˜õ`:Ì0FÌú0f]`ú0z]`úÐz] ûÐjU ûPjU ûPjY úPrY úrY ûbQ ûbQ ûb^ úèÚ.n»œˆ>º&̇›0/š0ïk¼kÂ|¸ ó¢ ó¾&Ì»&̇›0/š0ïk¼kÂ|¸ ó¢ ó¾&Ì»&̇›0/š0ïk¼kÂ<µÐmÌhά¯ óÔ§`Gm‡˜áÿSÌ™õÀRŸFfr˜/˜Ñ>f¢cF™Y›1Kz–ÌRŸf©…nc& f¼™ê˜ñaf9IÏ5ff£ f²‡™é0Ã^0ëÀt˜at€é@wèat€é@wèat€î@w¨aT€î@u¨aT€nø/GùÁX endstream endobj 2051 0 obj << /Type /ObjStm /N 100 /First 958 /Length 3833 /Filter /FlateDecode >> stream xÚ[K·¾ëWôÑk 2ßÀ0 p.(¹>´v{w'žÝÙÌÌÊR~}ªÈ™îâ°šlÇ€4-òc=¾*²ÈnZZ5ˆAš0x?fþ1(-©Ý E€_5è`©Â`œ‚_3XáW NºAÂõ)ˆq0&'Ì+¶ 9DÀ ï ÆX1­”0üBg¨3[Ô8+íàgìçœà¼#„À `0¸!£Õø¡„rú!bÀ%½ú~(eì~€ðàt”‚Ç$|PVƒá€s샟 @yP¡þDÄ' ÌHõžÌ •ØfmezÞB2ÂúÁH°ž€;ƒº…ƒñàµà‡‰ÉHpÊ‚éø¤k’§ÁAåA˜f#ˆ‚' C£yÂç.¤~ðB¥^£Žh’ÿÁÄ#Ȉ:¼‚M–¯!ä^ ÁPtxˆ•(ÏÛ!F:0B 4Ó´§G`XE5’²ebì¤u:Tá#f‹LØ áÑJ ºR¼½Kà ­´ÈÃ@›ÖÍ A%æ_ ÚŒ´hcĤ5Cñ“ÆYTyeBnm&:Ú"f5؆­ Íª¤ sˆNÃ@›µ> ÃLó)``4$8«Rþ:3A›“à<‚6§!]à´9â…99j¶‚6Dzm.b€a@òʆÌc`A›·Èº”˜ÝÞ!\‘>Eç– 8ià´ óãÇ?üðÏÝy?¥æñ§?üy@Lzüûxœ^Ϙp׆ãô%Íõô¯_¦¯g»ô¯Ÿ~¢ÂLœ…×f aŠfaª-LPa;o„ÉY˜MaÚ # B7 3maª&8aKt;ª€æ –¨vTÍ@-Pí¨"Š €Z ÛE¹@¶ ‹(.r €l@\ÄÑ€( ¹ˆ%¢Q@psb“ÿXÐ/úãÌ~l’ îÃ}œ©Mæ%>2¼‡™öÐd=PÒ#Ãy˜)MÆ%<0|‡™nߤÛSºöŸÙöM¶=e;0dû™lß$ÛQ²=C¶›ÉvM²%Û3d»™l×$ÛQ²C¶›É¶M²-%Û1dÛ™lÛ$ÛR²CöRVÛUµ(ª\M]Jj»¢•«§K9mWÓ¢˜rµt)¥íJZR®Ž.e´]E‹"ÊÕÐ¥„¶+hQ@¹ú¹”Ïvõ,Š'W;—ÒÙ®œEáäê&)›íªIÉfkæR2Û“’ÍÖË¥\¶×lºø3\/‹H3‹òÍ̳٘)y9¤_¦Óð¯ïþr¸ÿÓ?Îãñ| ”ÃwŸ_?þu:¼|_Ÿ¦Ÿ€¼ƒ•+–ÿ|>ÏÅ·Æk?~í §{ÌKI¿ uѶI¬§ˆ´¿Tle¤fÎhÖ¡·ó,uA—hj$wÒzž:S…ÍO°¹ÃWF¢‡ƒ r;¸¹vãÁôÀ¯çÝëûá=gÁyü¼ŸÆw0ºÞW×nÿQ©,“Üø¹æƒ»¦ãAª:ÈÝN®¯Å7!*¨ª\¿aD윖^48Oô[Š;|tÄn¦øé8>ìàÌwv×1þ2LÝŒ“2Ÿ!Åcñë”Bn¦Ée;HHX@y½•jž—¶üͤŸûñ¸ûïô€á6Nç´dÇÚ¸ÙH§;dü~ú7*¦‹ö~³"É.ð²$…­ôzb7°Jñ)bÏàbm´4™vn}u¹§ƒ«èÂçeËlA.ë–˯„Ûdß³UúvÎË£Pr¹—ViAõBõaù½C/ûª¥×Kÿdžd=½4Xl»™ùŠžžøí̯¬ÜÊõÜ`Æ%”Þ8²ZôÃÿ30“Þ›©X0‚]TöÀoÌæõjØœ¹„uS1W¦ Ä\rR÷æCQ]bOî\^ü`¶`{þ_yè‹ÝÎ-ÉõÞ”¥©¦{©v-‹®K ;_æ÷i¹zZ~'U ²´í¹»–®·B;”x.ßüÉcE³ãÖêyÂ7Ç;~Û†æÊé¼îÃò{hÙfø–žÄ­ôÞ8\›æËy£ísÜh³u)^ž_«KXf«#oåÜ6r|CÊR³•øµz¥ÚHg”N–õ½ÍçõÜaš¨ò<¶as”âF¾W¸Ø¢e+Ýs%‰MfÝRÈv’_d–X‡¦ó·Ë›Û‹j)¥Ú†Mä9Výò>ø²‚[µ‘ã‹my6Kt6ÓwÌœ¿ãàëæÍà$ÛËüúm E‡Ø,Ù¶Ñi™“Òu^~Ô|4%nf÷zºð±mæœYÞo&‘¡“VË!l‚f±ÎÇéåeJ9·rúÈJj™›i½ Èmin=~¿n"ÒQ#0}×iЇ,Ulœ+DV`H²%IÐrµ;ßLñjEOÐËxÌ•ëa÷Ð(C÷M7ýék¯0 @ŠÙüé‡~v_ìùµ¬Ñ5YÃùò¡sþ("µàëyå/€gåŠz,ozHÆ’’¬U¦ÄŒõêž=—Eö¬"“ТdÌÐ$'Þ5–#Ù?¬¬„UzFîã%¬¬5õ…º¿¹® ·/NÑ;úp—%ù°ûRoÓ²µZk~L*¬9®^MhŠd™mÈ·7oñiúϺ—feÌmð¢ÚÌfY›¾¬áé¾UKy¢'ìÕŽ=Úôæ„ñ̘d$=+’n¬é†^$Xú®o“­_ëÍ‚ Û Ž¼¢§^¬vçál*Õ¬è¸O§t÷È ’5ôr‡I»ÜçÝ9‡˜uíú‚ØH½Úu¹õþùœ% ÿŽŒu±)ªÇÔí‹Ïâ¢Â‚ËÛ@C_Îy(›Õ8J±—%²)úxx}Ï»CN5ÙaŠ}·ËJëµ ó…/6kæ×ÏtÛsÓ‡³‰ À·49Ùé—ϼ†ïJRóøu6J8v 5ï~êΖ°f^.¡ˆ°Ò™‡²½óaÞÄõî4>ª6 ÖtÈw´×¼ØèÒ7ÖØ&$Ýwã›r“¨’°5}»‡d¬i3’|bwÈH l*ïëÁÌò =Ç4ŸéfOº$V»óÕI6/¯&ø 1ŒÌðŽÿ—·Ìš¾h½žC¸«mE@×pI"Ý¢r` ; Ò•‡]ÂpÏÓñûÔÈß›¬¼ ƒ*¿w0;¾~¨âª·ñ)“}[œb®Ts Þû*)ÄÚ¢±¥úb1+Q•]¹ÃàpGZl) sØR˜á±%Ò–-×ú”[âÝà]µ ÌZgo˜ÂK«” …ô\?–æ¼¢yÍßÜ‚ôÈb”ÆOÔv…KÃÚ¥îЊYÈÎõSjnq¸Y¢\(dGRUb§°؉Ëö¼YönñféD5B#9ŠD+¼GBéÒ˜;ŠRª‘U`Ða¥Y»ôœ_€Z1Ìá1³ðÙQ4…5²£(§:b ÍJƒ`©¥=V<_¨tFñv™ô)ß*0yŠT1‰ʪ1xÖ)& A‚4%Úà|©ï¤ÏzgÔŠiH¦10H¦im MͰ˜>Ôx‹yʼMWšo—¿[P¼]ùñ” ‹üêºÅü 4Né Ô‹ôêE?%í<'µbÒhþؘ>$S[òS4 ?&€C~eÌ¡Ëg µÎ(Þ0—ø)”"?‘2æŸHsÈO¤Œ9ä§X ºyÆPëŒZ1 Ó'RÆÒ‚NíòHO¤ôx¤§˜Êé)’ΣÇõ‹ÇYéŒâíò8ÍK3,¶Pz¼ÃJ÷ØBéñ[èôð[,k˜Ÿ«‘_«FHwaE(ÒÒ;×b5 _A($þjüiºÇóÄ÷©ò[ŧfVö‘N×TÂñº³¯u*lÖU³ÆfW5lU³Åæ*Þ¥M%¾å€ÃkÓ¢RâñúsݰYV͸»øÿ*è ŒÌû¨ö»»|Ã~™.–WÀM›¥¸só×ùDš‘éX1Û2]ÀH3î>ê·Ø¥M%¾å€ÇO¾Ó¸¹ ²&/bsÅ´B¦ëVà*Ýp¤mØïïnð ûqÿdÅtÚÊŠ;Ü U7[¼êY‘öyº nö‚‘ë M%¾å2mjòiS‘§‘麙6 ¸! ¦²w…Á4H•+V-ûqGl•¼¸­ ®J Ü[_1Û·àk42]¯¸{ ¡´©Ä·@¦C5…±.麙¾n9ð?^a—z endstream endobj 2202 0 obj << /Author()/Title()/Subject()/Creator(LaTeX with hyperref package)/Producer(pdfTeX-1.40.19)/Keywords() /CreationDate (D:20190512203122-07'00') /ModDate (D:20190512203122-07'00') /Trapped /False /PTEX.Fullbanner (This is pdfTeX, Version 3.14159265-2.6-1.40.19 (TeX Live 2018) kpathsea version 6.3.0) >> endobj 2115 0 obj << /Type /ObjStm /N 87 /First 898 /Length 3422 /Filter /FlateDecode >> stream xÚ¥[M·½ëWô1 ©É*IÀ0Ä·|ÂINkil/²Þ¤’üû°ÞL9Ëy=„€\ ºvHV½bW½×lå”tÛ·œ’m©'ÔMZöAÛJ->è[µ>yߺ5¤mLð¿å¼%1õ‘l©˜¯uKÕöWcTÆ¢µñŸ">ª[–â[æ±TQ,<þSÕדñ‡®¾Š¤M’úï$o"R}$›ñ¥D7©"c)›tq‡ÇK¥ñc_>IÛ´d¬Ü7­Ù}‹jϾòبxäc”·"ɧ²•²û\ÕÀ^ÇõÒw̵ÍÒîqhÝLv¬Ò6ÓîûŽ`Ì:BÝ7kÝ×+i«{wÿJÞjƈªÍ#àTkG)[m¾ØÖöê땺µ\Ý—Ò¶¦ÈFé[³ê¾Ø¾µV}½{ß«ûbyëù0ÙºŸ;þ·›ú#e½y’tï{òí¬Ža‚¯#¹#8l8žöbéX8íU}ÚØ-íg´ëÈ|:ƒWGêGæÜ“áØö66Þ¦)¬æç¥â·c·Ô2V»¥Žc4¢‡*ùoÛØ-ç‚áØmœGb3ÎUqÚØ-óhÛØ-›ùnmì–+¶hc·Üšƒ00'è·±›$$¬Ý$ï¾X»É9ñ#3ãXe¸û©>»ÞŸ8$}ì&Uuì6ÐGkÇ´±›œS»é.Xaì¦ yœŒq¼Æ#“óØ}œ/ß8´Æ0÷W_}õêíŸî~>}Úþñ«O§wÏ÷O¿~“Êë­Œ“¸oßn/­ûë‘^%sfasvs'³ óx®Íêæäæï^½ýÃýÏ÷ÏäÒüóï^}ýõ-÷Ç{aÿÍÍìhfKdnnÎdîn¦µÍÓ…û³ÿ¶rßçJ;›ã<ŽõµÙq'ïÚì8ã~mvœ/âˆ5»í¿û4ÿ~€Ý)Çæ@£ymv ;@Ê@骎4Pwüº,"°×WÔ„åÕša'X«ÀN±Uu{¦àjq»DÕ`_<îÙ’Aö;å¨;æ£U“½ÂNGª7Ø·{6OX…ѱܵ[+édÜ=¬ž' ×ö»=þhîÔ<ávy,Wh$BØ-$BØ-$‚º÷ '°óúH„Þ~(àÙ‚+–1Lô//“ìØƒbG<':f’a§ã!;Å& ;Å&ŽÝÈ÷í(d}5a†a9Þ¾ÂÎÛ;äYZ@ÎMrªg ðdñhËÄ}Â"æ\˜syT`.” æBçO9W4xçŠv†¦×WVas.¨ Ìù¡W`^s×…F``Nz+€WÊ"ˆ‰ú„E˜°óB`Îå´sâ{¹óJ €Wosrx6OX…Ì+c Ì+¡èÊ’{‹óJ¹0`νÂÞ™}Þbâ>a„s"­Ù€9Wæ̹+0' ™ àõÅãm3ý°%ý€ÆÌPtÉ}3wÊÄ¢ì”9ˆEÙyu}ñ\ØL?ê²_@cÊÎîØ)И’ [ˆEÉT …-Ä¢,-<›',ÂpɧS¸ÐBc ZˆEáB ±(BbQdQhçÇ¢-é$¦({ È•½äL¡…Û´¢0Ñu­Xç©Íôc™(Lá^…)L¦¡0…;1¤¢p·€T®hŠb eÑgúÑ—ô S˜dCa w(Lᮩ(í:¼œR•u~TV5¶OÜCVÔC 0¥)í<Ð+<À”Æ>!T’JQ¨$ ”¢´ÛO<›'¬Âð<(±YÀÔ=“½ÁNxC)*S'Å…ú@)ê¢Ä¯yÂ"L¥+˜š(LMì¬ÂN¹ƒRT*±¥¨‹ Ïæ «0€yæíyæð€9Qx…”¢±(E•}ÄD}Â"L:P˜J:A 0UØ]`N7©¨Êë<½-òdVª>a0§W­…©ÔB\ÌâI­¨…íÀÜ(8hEµ´bêw>a$¦ROHL¥ž ˜J=A Õ8h`NLL uÑñàÙ\ 0 ½¦ÌÂeJ‘_š ”"¿Ø(Åˡã0æÛHYÞF &ëjÀ,ÆØs¢ä^ü ©pR,ôúF W¬\æÛHYÞF æã„À,\å!0 —eHÅÂeRñ€]A*–U™o#ey)P˜Í ó »Â¤«1V,‚€V,tM(Њ—çåF3ýXÞF $¦q•‡Ä4®ò˜¶¶ÐжSî ë8´¢¥‹šo#ey)˜FåßÙâì‘B,ݧ*Ä¢³WˆEË‹‡b¾Ôåm¤Bc …Æ4’ iÂa tKéÌʨm:¯º v‚Î7‘ºŒ@|­ëãÄŨÍ:¡2jŒN§"'è ÎæÖÛÇGgÇW‡ÇÙ—Ñ'N¢è08‡2ΠŒÞL92ê‚ΞLoß7êtfÊŠ®:á2êhNPŒ®#œ6u9'MF Ç)“ÑÇ\N˜lqß[&†ZVÕ9 {§$FýÓ©’‘¨q¢dÔ&½­r’dõ¶B˜H„­8©Ó*£®å,Ĩg972ºÙufdÔÇœu1gE‹5lâ¡«>åDÊè図£7`ΆŒôŒs!£NäLȈ·9²~Ûï:1Ϻ"žNŒ¦3 £[hç?FwÍÎ~*Ý4;÷¡WôN}ê~»žÔ霴×t¶T©C:µ¨ÔòTêENx*k§;•J’“šnÓ6Ñ˶b—Î*½Ys:QéjÜIN¥ªì'_çÆN%õâü¦ÊíÖÓ&FÙW„Ò)Q¥Žçü¡’Úp^Séí¿³šJ¥Ô9M¥;Yg4µÜ¼O²¯M'A•¾ÊsÚP•¶Oü®¿¨´¿¿?~™/ß nc 1ДX ˆÁ|óôî7}¾ûø<öùö‡Ç7§?Ÿߟ޿ùöóÛw?ž0úþãé0|“œh±A¿ .f R ÂQ×7þáô/,ÿáîáâʧwwçÝß==<}¼ŒŸï??}>ûò|÷ýÃéî3;d\ºFŽOóå[Æk‡Ž¶?ýŸ~¾ÿô|èâçó~zwQ @jR™«á5¿ª»¹Û‡»‘®äϧŸî>\~{÷ðîÀ€£5਑Ã.·´vgÞìMºxsÉþðãÇ»÷÷§Çç_rLµ€£-àh‘Ä^·zäÑjÃÿyõÓéçÓ èŽ’Õ‹XôÀ¢GúzøÛÏóËm<=îÆ£ôòk¬Ø«G”=¢ìeÜôð§ÓQ=¯[b‡—S\vH—®8)9A9ÜaþÜ!½¼Äúe‹%j Z .0¦®,Ô`šïšÒ˗ѱWŠR"€n¤p#ݦài~g<}æþË^á|çsà˜Ãn¬¾XßþL_¬Æ^—Ë&ü¬Ë ¢ÈfwDן•ÊA¾$¢ˆB" 0%üûâOÄì _QHD!…ªþ,.®>õƒti¡„F j¸³Pg×÷¶r. JQ"ˆèË)úrZðˆëû;HWtóÝ<•ˆ"ÚoŠö›lÿâw©ý ]Ñ´ãcà|ùú÷üïÓ.ƒðgñ ÂÕkÓƒ­"ˆhÇÉ"ˆh™)Zfªù ER?(ƒõÿ Y)ZsªvtÐ4E½|þ»¢Y_ЄâcaüËºË ²-2E‹L­|IZŸè®ñ92þÞe9‰>xùhøKŠÏá ‹î™z„²zÍ9££üDóLÑ<ãëå|ù\ùV6Wýæôiü0_¾hëßþóá´½ýÝÝóÝÃÓ¯ÞþeôÅñ£ý\^½ýóçç‡ûG˜Îå T@¾|}žòǧ÷§·ÿtŠŸ‰N¿…›œ‹²ïø_Wi¶ endstream endobj 2203 0 obj << /Type /XRef /Index [0 2204] /Size 2204 /W [1 3 1] /Root 2201 0 R /Info 2202 0 R /ID [<9762497D6F10F656C9247E58E517E5BF> <9762497D6F10F656C9247E58E517E5BF>] /Length 5049 /Filter /FlateDecode >> stream xÚ%ÚY¨dÏ]Àñ®¾wfîìû¾ï3wfzöý?ë™åξïÛ9>D F#¾$¡Lž¢6&.ãÿ¶¢$ Á´Hú!M8P!"xòp‚%žØŸßÿå{»~}»út}U§ªNµZ­ÖÏÛ­V»•Z­…þüÉ™vkbl»X‚¶Ø±mŠc0.öBl«â ˜)öVl‹â,˜h·Ú“³Å6+Ά9b«Å6)Î…yb“bçñÄ6(.„EbÄÖ+.†%bÏÅÖ).…e£X1Sl­ârX!6_lâJX%¶Flµb`Ø.±UŠQÁ:±Cbñ±øò b'ÄV(Æ…o»*_?z‹Ø3±eŠÑ`£–l7sÄâr£±wˆ-[¢¸v‰ÅõÅOÝ “b›Å)î½bûÅ¢™öAGì¸ØÅýp@ì¦X4ñA8$m:Oñ0{'zŽÂ±vklz©ØÅãpB,®%Ôž„Sb'Å&OÃbÑ.‘gà¬Øk±™Šçàü(6ˆ|‰”ºÅ"_Æ3¸$>"/ñóbmÅ«0%v[,Rù\{%ÖR¼£&dÖû\ñÜ[/öNñÜ;$öVñÜ;#6­øŠ]{£ø‹={­øžŽb½Yb¯ŸÁs±eb/_ÀK± bQŒ~-6)ö\1¾hZ챨*.òØM±§Š~àpÔÙçý_Ë/½áZ†Zh8jºñ*‰=VÔºÃq±Åb~Ç™áL±bYNˆmÓC1œ#y_Q6 ç‰Ó~C™8\ öH쮢,.ËÅ´ýPŽºÆŒ©…b·õžá2±¸Þ†zÞp…Ø6±›Šzíp•Ø11·:ûpØ%±ëŠ:ûpØ1ù2ÔÙ‡ĦŦuöᨳÏèÏ“kC}¸El‘ØE}¸Ml“˜<êìÃb;Ä.)êìÃ]b‘\r|¨³'ŦÄ.*êìýb÷Äô¡Î>ìˆÅõWÔÙ‡£Î>3ÍÓ·†:ûðX$õYE}xD,ÚJ¿êìÃcbq-(êìÃb‘èúôPgž‹ä:¥oŒ>13‹‰JGß6³> vB1.(®4~Bü¶øÑWSkü[úå0Ú%ìŠm„hÄ­zÂ[ Ó‘‘‘4‘M‘f‘‘˜‘±‘Ê‘ã‘üºÆPŸêLC½l¨û uµ¡;ÔÁ†ºøP·†¹{^Ü4Ä­r â9â¶8 &`6̹0æÃX‹`1¬wáTjM|.¾h‰ŸCÁÅ¥pnÀ37Ù°Üg&Ã=w¡6¸_›ÁÝ ¸ ÷>Ö¸#6q;¹oRkòXËH½6Àq0O¿4”΄åp ëƒ` ëÌ…5pNÁ0ö¢­VÂ*X k`-¬ƒõ°6Â&Ø ñó·Â6Ø;`'ì‚Ý0 {`/ìƒì‡pÁa8Gá‡pNÁ9XžZË…”rãªÎúY‹a-ì€p4Iãß8 à­ñe>l†#pnÁ+½{ÖCtö‹p^ëƒs`-ìƒãpUGléyñS¯ÁU8ŸZkÅ…_€‹Á%¸ìǬu°VC¨¸×á1<„Qvn=õÝ„[þ9¤Ü†»pµ|'An)>§R4zÏ£ÔÚñ÷QÕsx ¯à5¼ix¹µ I©¼šH­7±q˜1m\ 1©K­C?‹™1! 1 i€ÉØäR0•œ4ÿ›\˜ZÇÿ2>f*9óΕ ÏLš6N®ÃÉ`:8©«MšNn…ý°>µÎ|=ªÚñm;Á„or7ìqrtüÀ)ˆ9Ãn~oxã ˜ÃM3·É£p 28Z—^Ç·€“p NÃ8 çà<\€‹`x˜¼Wa Œ “·áRj]ÿLÔ|â‚n‚(ß‚›Rù†î¸¾»0 oἆ;©õp,ªºF¤ÉGðž@dIŒp/à%¼2JÅ'$C¡‚"A8 _ÏFl dD!# â «“b6HB R %EÌ2HiÞºú—©õ»ªÖÃâÔúØ£(KŠXpr‹XfH‹"«AZ±†E¬LÏ ~‹ ©õ+ŸŒªb© K w!7 ¹Q¸ŒBZfÿŃoŒã²©`°Ø—Z¿¶$j‘…Æ.$C! ÉP¸ììì13ß$¯â—KB R …*.Á-8›ZŸ¬â‹¤E!# QHB &åkxæ˜å x w@2qgb°x’¡¸ZŸùB|‡(¤@! )P<)PHB RªR ÓM¤ÀÈþçÎF-Ò¬ M‹Õ]©õ×ßóF##ÑhΦZ8/Þ i$H#7-Ô̇… ÃóâÒU5R ‘h¤@kº¥©õ¥ß‹J%C#ÉÐH¤ÆhÑH‹FZ4R ‘M¬·Ó9Î`ëAyЛ©õaÕ(šXöÅ:O4±º“ M¬ca'#CA# ¶AüT‰Ô º}¿‘Í©õg‘¢i$H#A)ÐyÐPÛd©õÕwñÏ2¢‘Ìi  ñ ñ ñMÌ,€Õ0;µ¾ûKñ±E°–¹Ïô X «`-¬ƒõ°Ö¤Ö:QÁFØ[a„é]°&!úùA8ûa¤û‡µì…}‚Ù^†#pbÍnQ==ºüÇOãc±fEúiˆà Ä‚üœdˆ¯4K«L]ª‡Š–áÓÜ ©õãoF}—ÁB{úX^O›ÿMß„[p›øE÷à><€¨ù9¼€§p7µê&j~ቫjC¼ñ,µþçU¼rc™žƒô´iÅt®5¶§tm½Œûº汃QVL|?Þ%~@ü€øñâÄH,¥@÷€ÐÁ¢”ý(* ~@ü€øÁ`°NÓż˜îÁ&`z°!¥UÿŸÝ ò` ²d°äÁ@ ´Ú@ èÐ=è€dD×ýÔ-7£>âĈ˜¨èÄj;j¡{@÷ öFbÓätJ»–FaÿÄ® ݃Øk¹l*Ù6éˆ ˜ÄF ƒƒ«)xp> ƒ»@÷€îÝ.á’éÁ3ˆ™à£”NÄ2c ºø æ Ôbr¼Ü=Ê–E'æz6*:c`{¢#ùyJç>Œ™ö(:³`"¥ßþÓxc)ÌIéîEѶCg!Øl蘷w–@|Û X «`5l…e)=ýͨÀ$¿Ãtgl„¸›n†-š=–ëÞ¨âÛÁ² ³öÁØ–Ò›®~ì†Iˆ©ß~8{SúØÓø¿ƒpŽ€ÕDç˜/Šs.À‰”>þ;ñ‰Ó`‰Ò9ç!ƒKpnÁÅ”~£ŒOX¶t®Ã ˆ²;[a÷ 6À¬b:±íõ^Áí”>ýÓ¨å ÄzðØÎê¼V·`›ª“›ÛƾÉ=’{õ¬™:¯SúlïrÞ#¹GrÏÎSo6ØoêÍÕìûRúÛ/Æ?óÛÓ$={óSúýoÆL÷dDîÝ=º«m^Y´ö╵ZouJ_þA|ŒîÞz`µGwî*vÚøíQÖÛšRÿûñ ¦{¬ö˜îíâ{ÖÄ={‡€Ë—=.{\ö8ï]¢z”õö§ôÕÏEÍ$÷,ª{ÔöÎ@,AϹ}ƛڵ=#z¨Þ…”¾ñQ%EïÜ#¹'z¶?{L÷˜î1Ý»¯R~{¨Þr¤Ò˪ðñ0¥oÍŠš™îɃ^ìTÒÝ‹ýIº{ÑV¡[nTaú™Wút5Î`Ç·êûñõU±½Hr›Šz^53¥¨ãÝù»ˆtWÔVÔVË ¬ÚЍ¤@¥'WüV4Vºn=”Ë*\êoÕº”†¿Õëö•^[qYqYé¡¡¡¡ñ¡¡¡¡3Õ”¾w"ê‹nJmE^E^e¡ŒÝ³bºÒ+â++«¸1ëˆÕÙ”þ%E}ºiÅeÅe%_*B+B+.+.+.+.+½¶¢§º•Ò¿T ¡Uø«á#¶,¸¬ôÚŠÆjÚ€[À£.ùŸzÙŒ©@‚6ŒÁ8Ìàrj/þ0þÅ6ÆÔl˜saÄV쬔~ú“ø¿°Clü.…Øî] ±¡»¶cÂAxãFÛ¸›&S±ƒ»ìÛNíµ)ýïGWeßvj;Ø™Ú öc§bivj˜iMí‡àÛ¦Áa8 £ñ¹ùRTzNÀI8§á°“ZÞ÷ê<\…s©=žÇgmïLep®À5¸7à&<ƒQ»O¼Ý»BSwáÄw<„Gðž€yöÔ FT?¼=Oíy?‹ª^Èûï;ˆ©U¼ûÒ«˜gHíSŸëÏ€™0 8êsÔç¨Ïo-,‡±Ô^]ÅǤ@_ ôm€õ‰ïsÞç¼ÏyßãÒ–wégõYíÇ}•”~l’¯Híßú˜îÛFëÇn|äFìÁ³Ú]vVûGaOjo›cµÏjŸË¾-¸>ƒ}û öì3Øg°8ïŸû6íú6íúÇR{×W¢fû—€Ë>—}ºû„ö íÚesléqÔ¿Ú}Qƒý@cŸÆ~,’Øï?‡ÐR^I~ݯÿ$µÿ<*`°Ï`?÷®=Á” ÍàÁÔþ…/GlÌ„ ˜ Ka<µ/~-þe.̇°Áb˜K`9¬€•° VÃØËRûj•n€° 6ÃØ Ûaì„IØ{á(ìNí›»£ªì‡xþqí{Û« .ÀÈÑýÕñ±x¸qâ‘ÆiðÐ"ƒóp L„Óxà1<§p.¦ö“¯DÍSp ®Ã-ˆË¸wá<ƒçð^B¸ŒýÝÒÞƒy˜yÚ¯Ñwä\æãÀ`Î`*¦áâÓ‡Rû×ÃtNc>¸Ì¹Ì¹Ì¹Ì¹ÌiÌÙÏ—¡9¡9¡9¡9¡9¡¹­ç|¬BsBsBsBsBsBómÀjÎjÎj.#rÛš9¿9¿9¿¹ýìœÕœÕœÕœÕܳ¬œÚܬ\äž[å6¿sBsBsBsBóx2u¨Í©Í©Í%C~äFÎtK¦óØG§1§1§1¿7ММММÐ\ä@ªäR%—*¹TÉ¥JÎyÎyÎyÎyÎyÎyÎyÎ`N|Ù¯cOŸóÚ’¬ökökökök¸–*µÇ5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5¿5¿5¿uˆŸ“Ú¿Üj¥ögcDª9¯9¯9¯9¯9¯9¯9¯9¯ã$ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5ç5çµgà]—]7Ü®1»ëùj×4¹k~Õ tõóîlðhºk-Ôõ¸ë¹FwØÙîzHݵ{ÙõD±»Üf»ËÁãôîJXÿt=êzÔõ\¨ë)r׃Ȯg³]Ïf»›Áª·ë)m×Cå®]º»;aìǺ{`/ìsþî~ð°¸{<†îCx÷(xŒß='ÀþF÷œ3é®ùU÷,X uÏøxðßõ¸«ës÷*xØÞut£{n€s×#®¬î°?Ù5%éZu=Õê>§ºá <Ç>ºö»vÅ»o ìäOÿU¨M¼¾øÑ+OLºžtßûÖâ³JöKöKöKöKöKöKöKöKöKöKöKöKöKöKöKöËØ»f¿d¿ŒIû%û%û%û%û%û%û%û%û%û%û%û%û%û%û%û%û%û%û%û%û%û%û%û%ûe¬øØ/Ù/Ù/Ù/Ù/ãÎ~É~É~É~É~É~É~먘]³_ÆJ˜ý’ý’ý’ý’ý’ý’ý’ý’ý’ý’ý’ý2Ä¿LíÞ÷ÃÂÍÔþpWõ©xµ0ýÑ…xµ(}ããÕâ4öwsãÕ’4ö߯âÕÒ4ž}'^-KãŸW$¿×¦ïµé{mú>ÆOãßö•c;`'ÄQ¸ÝôöÀ^؈“gà ÄÁ¬ÃpŽÂ1ˆÓhqd.·‚ÓÇüâÜáY8q”ë\„ .Áe¸q¢l ®Áu¸qÄíÄá¯8½xîÁ}ˆoá<†'ðâ¼^*ŒSŽ/!Όŵ70 qÞ1Êò`"åÁ?[„Ld Ú0ã0œJÌfÁ8ì–9 ˜Í…yàbæ$`¶ÁbXŽàeË`9¬€•° ”ËœÌÖÂ:X`#l‡ö²-°¶Áv >#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>{œÆÿéó#oÿöÇ­ÿ«hl endstream endobj startxref 320158 %%EOF ggthemes/DESCRIPTION0000644000176200001440000000402013466232153013564 0ustar liggesusersPackage: ggthemes Version: 4.2.0 Title: Extra Themes, Scales and Geoms for 'ggplot2' Authors@R: c(person("Jeffrey B.", "Arnold", role = c("aut", "cre"), email = "jeffrey.arnold@gmail.com", comment = ""), person("Gergely", "Daroczi", role = "ctb"), person("Bo", "Werth", role = "ctb"), person("Brian", "Weitzner", role = "ctb"), person("Joshua", "Kunst", role = "ctb"), person("Baptise", "Auguie", role = "ctb"), person("Bob", "Rudis", role = "ctb"), person("Hadley", "Wickham", role = c("ctb"), comment = "Code from the ggplot2 package."), person("Justin", "Talbot", role = "ctb", comment = "Code from the labeling package"), person("Joshua", "London", role = "ctb")) Depends: R (>= 3.3.0) Imports: ggplot2 (>= 3.0.0), graphics, grid, methods, purrr, scales, stringr, tibble Suggests: dplyr, covr, extrafont, glue, knitr, lattice, lintr, maps, mapproj, pander, rlang, rmarkdown, spelling, testthat, tidyr, vdiffr, withr Description: Some extra themes, geoms, and scales for 'ggplot2'. Provides 'ggplot2' themes and scales that replicate the look of plots by Edward Tufte, Stephen Few, 'Fivethirtyeight', 'The Economist', 'Stata', 'Excel', and 'The Wall Street Journal', among others. Provides 'geoms' for Tufte's box plot and range frame. License: GPL-2 URL: http://github.com/jrnold/ggthemes BugReports: http://github.com/jrnold/ggthemes RoxygenNote: 6.1.1 LazyData: true Language: en-US Encoding: UTF-8 NeedsCompilation: no Packaged: 2019-05-13 03:31:26 UTC; jrnold Author: Jeffrey B. Arnold [aut, cre] (), Gergely Daroczi [ctb], Bo Werth [ctb], Brian Weitzner [ctb], Joshua Kunst [ctb], Baptise Auguie [ctb], Bob Rudis [ctb], Hadley Wickham [ctb] (Code from the ggplot2 package.), Justin Talbot [ctb] (Code from the labeling package), Joshua London [ctb] Maintainer: Jeffrey B. Arnold Repository: CRAN Date/Publication: 2019-05-13 09:10:03 UTC ggthemes/man/0000755000176200001440000000000013466077407012646 5ustar liggesusersggthemes/man/theme_pander.Rd0000644000176200001440000000351713466111663015567 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/pander.R \name{theme_pander} \alias{theme_pander} \title{A ggplot theme originated from the pander package} \usage{ theme_pander(base_size = 12, base_family = "sans", nomargin = TRUE, ff = NULL, fc = "black", fs = NULL, gM = TRUE, gm = TRUE, gc = "grey", gl = "dashed", boxes = FALSE, bc = "white", pc = "transparent", lp = "right", axis = 1) } \arguments{ \item{base_size}{base font size} \item{base_family}{base font family} \item{nomargin}{suppress the white space around the plot (boolean)} \item{ff}{font family, like \code{sans}. Deprecated: use \code{base_family} instead.} \item{fc}{font color (name or hexa code)} \item{fs}{font size (integer). Deprecated: use \code{base_size} instead.} \item{gM}{major grid (boolean)} \item{gm}{minor grid (boolean)} \item{gc}{grid color (name or hexa code)} \item{gl}{grid line type (\code{lty})} \item{boxes}{to render a border around the plot or not} \item{bc}{background color (name or hexa code)} \item{pc}{panel background color (name or hexa code)} \item{lp}{legend position} \item{axis}{axis angle as defined in \code{par(les)}} } \description{ The \pkg{pander} ships with a default theme when the 'unify plots' option is enabled via \code{panderOptions}, which is now also available outside of \pkg{pander} internals, like \code{evals}, \code{eval.msgs} or \code{Pandoc.brew}. } \examples{ require("ggplot2") if (require("pander")) { p <- ggplot(mtcars, aes(x = mpg, y = wt)) + geom_point() p + theme_pander() panderOptions("graph.grid.color", "red") p + theme_pander() p <- ggplot(mtcars, aes(wt, mpg, colour = factor(cyl))) + geom_point() p + theme_pander() + scale_color_pander() ggplot(mpg, aes(x = class, fill = drv)) + geom_bar() + scale_fill_pander() + theme_pander() } } ggthemes/man/scale_shape_tremmel.Rd0000644000176200001440000000603513340063456017123 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/shapes.R \name{scale_shape_tremmel} \alias{scale_shape_tremmel} \title{Shape scales from Tremmel (1995)} \usage{ scale_shape_tremmel(overlap = FALSE, alt = TRUE, ...) } \arguments{ \item{overlap}{use an empty circle instead of a solid circle when \code{n == 2}.} \item{alt}{If \code{TRUE}, then when \code{n == 3}, use a solid circle, plus sign and empty triangle. Otherwise use a solid circle, empty circle, and empty triangle.} \item{...}{Arguments passed on to \code{discrete_scale} \describe{ \item{palette}{A palette function that when called with a single integer argument (the number of levels in the scale) returns the values that they should take.} \item{breaks}{One of: \itemize{ \item \code{NULL} for no breaks \item \code{waiver()} for the default breaks computed by the transformation object \item A character vector of breaks \item A function that takes the limits as input and returns breaks as output }} \item{limits}{A character vector that defines possible values of the scale and their order.} \item{drop}{Should unused factor levels be omitted from the scale? The default, \code{TRUE}, uses the levels that appear in the data; \code{FALSE} uses all the levels in the factor.} \item{na.translate}{Unlike continuous scales, discrete scales can easily show missing values, and do so by default. If you want to remove missing values from a discrete scale, specify \code{na.translate = FALSE}.} \item{na.value}{If \code{na.translate = TRUE}, what value aesthetic value should missing be displayed as? Does not apply to position scales where \code{NA} is always placed at the far right.} \item{aesthetics}{The names of the aesthetics that this scale works with} \item{scale_name}{The name of the scale} \item{name}{The name of the scale. Used as the axis or legend title. If \code{waiver()}, the default, the name of the scale is taken from the first mapping used for that aesthetic. If \code{NULL}, the legend title will be omitted.} \item{labels}{One of: \itemize{ \item \code{NULL} for no labels \item \code{waiver()} for the default labels computed by the transformation object \item A character vector giving labels (must be same length as \code{breaks}) \item A function that takes the breaks as input and returns labels as output }} \item{guide}{A function used to create a guide or its name. See \code{\link[=guides]{guides()}} for more info.} \item{super}{The super class to use for the constructed scale} }} } \description{ Shape scales from Tremmel (1995) } \examples{ library("ggplot2") p <- ggplot(mtcars, aes(x = mpg, y = hp, shape = factor(cyl))) + geom_point() p + scale_shape_tremmel() p + scale_shape_tremmel(alt = TRUE) p + scale_shape_tremmel(overlap = TRUE) } \seealso{ \code{\link{tremmel_shape_pal}()} for a description of the palette. Other shapes: \code{\link{circlefill_shape_pal}}, \code{\link{cleveland_shape_pal}}, \code{\link{scale_shape_circlefill}}, \code{\link{scale_shape_cleveland}}, \code{\link{tremmel_shape_pal}} } \concept{shapes} ggthemes/man/theme_fivethirtyeight.Rd0000644000176200001440000000134313317752173017531 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/fivethirtyeight.R \name{theme_fivethirtyeight} \alias{theme_fivethirtyeight} \title{Theme inspired by fivethirtyeight.com plots} \usage{ theme_fivethirtyeight(base_size = 12, base_family = "sans") } \arguments{ \item{base_size}{base font size} \item{base_family}{base font family} } \description{ Theme inspired by the plots on \href{fivethirtyeight.com}{http://fivethirtyeight.com}. } \examples{ library("ggplot2") p <- ggplot(mtcars, aes(x = wt, y = mpg, colour = factor(gear))) + geom_point() + facet_wrap(~am) + geom_smooth(method = "lm", se = FALSE) + scale_color_fivethirtyeight() + theme_fivethirtyeight() p } \concept{themes fivethirtyeight} ggthemes/man/scale_excel_new.Rd0000644000176200001440000000702713340057027016246 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/excel.R \name{scale_colour_excel_new} \alias{scale_colour_excel_new} \alias{scale_color_excel_new} \alias{scale_fill_excel_new} \title{Excel (current versions) color scales} \usage{ scale_colour_excel_new(theme = "Office Theme", ...) scale_color_excel_new(theme = "Office Theme", ...) scale_fill_excel_new(theme = "Office Theme", ...) } \arguments{ \item{theme}{The name of the Office theme or color theme (not to be confused with ggplot2 themes) from which to derive the color palette. Available themes include: \Sexpr[results=rd]{ggthemes:::rd_optlist(names(ggthemes::ggthemes_data$excel$themes))}} \item{...}{Arguments passed on to \code{discrete_scale} \describe{ \item{palette}{A palette function that when called with a single integer argument (the number of levels in the scale) returns the values that they should take.} \item{breaks}{One of: \itemize{ \item \code{NULL} for no breaks \item \code{waiver()} for the default breaks computed by the transformation object \item A character vector of breaks \item A function that takes the limits as input and returns breaks as output }} \item{limits}{A character vector that defines possible values of the scale and their order.} \item{drop}{Should unused factor levels be omitted from the scale? The default, \code{TRUE}, uses the levels that appear in the data; \code{FALSE} uses all the levels in the factor.} \item{na.translate}{Unlike continuous scales, discrete scales can easily show missing values, and do so by default. If you want to remove missing values from a discrete scale, specify \code{na.translate = FALSE}.} \item{na.value}{If \code{na.translate = TRUE}, what value aesthetic value should missing be displayed as? Does not apply to position scales where \code{NA} is always placed at the far right.} \item{scale_name}{The name of the scale} \item{name}{The name of the scale. Used as the axis or legend title. If \code{waiver()}, the default, the name of the scale is taken from the first mapping used for that aesthetic. If \code{NULL}, the legend title will be omitted.} \item{labels}{One of: \itemize{ \item \code{NULL} for no labels \item \code{waiver()} for the default labels computed by the transformation object \item A character vector giving labels (must be same length as \code{breaks}) \item A function that takes the breaks as input and returns labels as output }} \item{expand}{Vector of range expansion constants used to add some padding around the data, to ensure that they are placed some distance away from the axes. Use the convenience function \code{\link[=expand_scale]{expand_scale()}} to generate the values for the \code{expand} argument. The defaults are to expand the scale by 5\% on each side for continuous variables, and by 0.6 units on each side for discrete variables.} \item{guide}{A function used to create a guide or its name. See \code{\link[=guides]{guides()}} for more info.} \item{position}{The position of the axis. "left" or "right" for vertical scales, "top" or "bottom" for horizontal scales} \item{super}{The super class to use for the constructed scale} }} } \description{ Discrete color scales used in current versions of Microsoft Office and Excel. } \examples{ library("ggplot2") p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, colour = factor(gear))) + facet_wrap(~am) p + theme_excel_new() + scale_colour_excel_new() } \seealso{ Other colour excel: \code{\link{excel_new_pal}}, \code{\link{excel_pal}}, \code{\link{scale_fill_excel}} } \concept{colour excel} ggthemes/man/theme_clean.Rd0000644000176200001440000000152513453130213015361 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/clean.R \name{theme_clean} \alias{theme_clean} \title{Clean ggplot theme} \usage{ theme_clean(base_size = 12, base_family = "sans") } \arguments{ \item{base_size}{Base font size.} \item{base_family}{Base font family.} } \description{ Clean ggplot theme with no panel background, black axis lines and grey fill colour for chart elements. } \examples{ library("ggplot2") p <- ggplot(mtcars, aes(x = wt, y = mpg, colour = factor(gear))) + geom_point() + facet_wrap(~am) + geom_smooth(method = "lm", se = FALSE) + theme_clean() p } \seealso{ Other themes: \code{\link{theme_base}}, \code{\link{theme_foundation}}, \code{\link{theme_igray}}, \code{\link{theme_par}}, \code{\link{theme_solid}} } \author{ Konrad Zdeb \email{name.surname@me.com} } \concept{themes} ggthemes/man/theme_gdocs.Rd0000644000176200001440000000111413317752173015406 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/gdocs.R \name{theme_gdocs} \alias{theme_gdocs} \title{Theme with Google Docs Chart defaults} \usage{ theme_gdocs(base_size = 12, base_family = "sans") } \arguments{ \item{base_size}{base font size} \item{base_family}{base font family} } \description{ Theme similar to the default look of charts in Google Docs. } \examples{ library("ggplot2") p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, colour = factor(gear))) + facet_wrap(~am) p + theme_gdocs() + scale_color_gdocs() } \concept{themes gdocs} ggthemes/man/few_pal.Rd0000644000176200001440000000247213325413240014536 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/few.R \name{few_pal} \alias{few_pal} \title{Color Palettes Few "Show Me the Numbers"} \usage{ few_pal(palette = "Medium") } \arguments{ \item{palette}{One of \Sexpr[results=rd]{names(ggthemes:::rd_optlist(ggthemes::ggthemes_data$few$colors))}} } \description{ Qualitative color palettes from Stephen Few (2012) \emph{Show Me the Numbers}. There are three palettes: Light, Medium, and Dark. Each palette comprises nine colors: gray, blue, orange, green, pink, brown, purple, yellow, red. For \code{n = 1}, gray is used. For \code{n > 1}, the eight non-gray colors are used. } \details{ Use the light palette for filled areas, such as bar charts. Use the medium palette for points and lines. Use the dark palette for highlighting specific points or for small and thin lines and points. } \examples{ library("scales") show_col(few_pal()(7)) show_col(few_pal("Dark")(7)) show_col(few_pal("Light")(7)) } \references{ Few, S. (2012) \emph{Show Me the Numbers: Designing Tables and Graphs to Enlighten}. 2nd edition. Analytics Press. \href{http://www.perceptualedge.com/articles/visual_business_intelligence/rules_for_using_color.pdf}{"Practical Rules for Using Color in Charts"}. } \seealso{ Other colour few: \code{\link{scale_colour_few}} } \concept{colour few} ggthemes/man/excel_new_pal.Rd0000644000176200001440000000155313325413240015725 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/excel.R \name{excel_new_pal} \alias{excel_new_pal} \title{Excel (current versions) color palettes (discrete)} \usage{ excel_new_pal(theme = "Office Theme") } \arguments{ \item{theme}{The name of the Office theme or color theme (not to be confused with ggplot2 themes) from which to derive the color palette. Available themes include: \Sexpr[results=rd]{ggthemes:::rd_optlist(names(ggthemes::ggthemes_data$excel$themes))}} } \description{ Color palettes used by current versions of Microsoft Office and Excel. } \examples{ library("scales") for (i in names(ggthemes::ggthemes_data$excel$palettes)) { show_col(excel_new_pal(theme = i))(6) } } \seealso{ Other colour excel: \code{\link{excel_pal}}, \code{\link{scale_colour_excel_new}}, \code{\link{scale_fill_excel}} } \concept{colour excel} ggthemes/man/fivethirtyeight_pal.Rd0000644000176200001440000000101613317752173017200 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/fivethirtyeight.R \name{fivethirtyeight_pal} \alias{fivethirtyeight_pal} \title{fivethirtyeight.com color palette} \usage{ fivethirtyeight_pal() } \description{ The standard three-color fivethirtyeight.com palette for line plots comprises blue, red, and green. } \examples{ library("scales") show_col(fivethirtyeight_pal()(3)) } \seealso{ Other colour fivethirtyeight: \code{\link{scale_colour_fivethirtyeight}} } \concept{colour fivethirtyeight} ggthemes/man/show_shapes.Rd0000644000176200001440000000126713340063456015454 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/show.R \name{show_shapes} \alias{show_shapes} \title{Show shapes} \usage{ show_shapes(shapes, labels = TRUE) } \arguments{ \item{shapes}{A numeric or character vector of shapes. See \code{\link[graphics]{par}()}.} \item{labels}{Include the plotting character value of the symbol.} } \value{ This function called for the side effect of creating a plot. It returns \code{shapes}. } \description{ A quick and dirty way to show shapes. } \examples{ library("scales") show_shapes(shape_pal()(5)) show_shapes(shape_pal()(3), labels = TRUE) } \seealso{ \code{\link[scales]{show_col}()}, \code{\link{show_linetypes}()} } ggthemes/man/theme_igray.Rd0000644000176200001440000000233513453127565015432 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/igray.R \name{theme_igray} \alias{theme_igray} \title{Inverse gray theme} \usage{ theme_igray(base_size = 12, base_family = "") } \arguments{ \item{base_size}{base font size} \item{base_family}{base font family} } \description{ Theme with white panel and gray background. } \section{Details}{ This theme inverts the colors in the \code{\link[ggplot2]{theme_gray}()}, a white panel and a light gray area around it. This keeps a white background for the color scales like \code{\link[ggplot2]{theme_bw}()}. But by using a gray background, the plot is closer to the typographical color of the document, which is the motivation for using a gray panel in \code{\link[ggplot2]{theme_gray}()}. This is similar to the style of plots in Stata and Tableau. } \examples{ library("ggplot2") p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, colour = factor(gear))) + facet_wrap(~am) p + theme_igray() } \seealso{ \code{\link[ggplot2]{theme_gray}()}, \code{\link[ggplot2]{theme_bw}()} Other themes: \code{\link{theme_base}}, \code{\link{theme_clean}}, \code{\link{theme_foundation}}, \code{\link{theme_par}}, \code{\link{theme_solid}} } \concept{themes} ggthemes/man/scale_gdocs.Rd0000644000176200001440000000565413340063456015403 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/gdocs.R \name{scale_fill_gdocs} \alias{scale_fill_gdocs} \alias{scale_colour_gdocs} \alias{scale_color_gdocs} \title{Google Docs color scales} \usage{ scale_fill_gdocs(...) scale_colour_gdocs(...) scale_color_gdocs(...) } \arguments{ \item{...}{Arguments passed on to \code{discrete_scale} \describe{ \item{palette}{A palette function that when called with a single integer argument (the number of levels in the scale) returns the values that they should take.} \item{breaks}{One of: \itemize{ \item \code{NULL} for no breaks \item \code{waiver()} for the default breaks computed by the transformation object \item A character vector of breaks \item A function that takes the limits as input and returns breaks as output }} \item{limits}{A character vector that defines possible values of the scale and their order.} \item{drop}{Should unused factor levels be omitted from the scale? The default, \code{TRUE}, uses the levels that appear in the data; \code{FALSE} uses all the levels in the factor.} \item{na.translate}{Unlike continuous scales, discrete scales can easily show missing values, and do so by default. If you want to remove missing values from a discrete scale, specify \code{na.translate = FALSE}.} \item{na.value}{If \code{na.translate = TRUE}, what value aesthetic value should missing be displayed as? Does not apply to position scales where \code{NA} is always placed at the far right.} \item{scale_name}{The name of the scale} \item{name}{The name of the scale. Used as the axis or legend title. If \code{waiver()}, the default, the name of the scale is taken from the first mapping used for that aesthetic. If \code{NULL}, the legend title will be omitted.} \item{labels}{One of: \itemize{ \item \code{NULL} for no labels \item \code{waiver()} for the default labels computed by the transformation object \item A character vector giving labels (must be same length as \code{breaks}) \item A function that takes the breaks as input and returns labels as output }} \item{expand}{Vector of range expansion constants used to add some padding around the data, to ensure that they are placed some distance away from the axes. Use the convenience function \code{\link[=expand_scale]{expand_scale()}} to generate the values for the \code{expand} argument. The defaults are to expand the scale by 5\% on each side for continuous variables, and by 0.6 units on each side for discrete variables.} \item{guide}{A function used to create a guide or its name. See \code{\link[=guides]{guides()}} for more info.} \item{position}{The position of the axis. "left" or "right" for vertical scales, "top" or "bottom" for horizontal scales} \item{super}{The super class to use for the constructed scale} }} } \description{ Color scales from Google Docs. } \seealso{ See \code{\link{theme_gdocs}()} for examples. Other colour gdocs: \code{\link{gdocs_pal}} } \concept{colour gdocs} ggthemes/man/scale_colour_gradient_tableau.Rd0000644000176200001440000000446513432363706021163 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/tableau.R \name{scale_colour_gradient_tableau} \alias{scale_colour_gradient_tableau} \alias{scale_fill_gradient_tableau} \alias{scale_color_gradient_tableau} \alias{scale_color_continuous_tableau} \alias{scale_fill_continuous_tableau} \title{Tableau sequential colour scales (continuous)} \usage{ scale_colour_gradient_tableau(palette = "Blue", ..., na.value = "grey50", guide = "colourbar") scale_fill_gradient_tableau(palette = "Blue", ..., na.value = "grey50", guide = "colourbar") scale_color_gradient_tableau(palette = "Blue", ..., na.value = "grey50", guide = "colourbar") scale_color_continuous_tableau(palette = "Blue", ..., na.value = "grey50", guide = "colourbar") scale_fill_continuous_tableau(palette = "Blue", ..., na.value = "grey50", guide = "colourbar") } \arguments{ \item{palette}{Palette name. \itemize{ \item{\code{"ordered-sequential"}}{\Sexpr[results=rd]{ggthemes:::rd_optlist(names(ggthemes::ggthemes_data$tableau[["color-palettes"]][["ordered-sequential"]]))}} \item{\code{"ordered-diverging"}}{\Sexpr[results=rd]{ggthemes:::rd_optlist(names(ggthemes::ggthemes_data$tableau[["color-palettes"]][["ordered-diverging"]]))}} }} \item{...}{Arguments passed to \code{tableau_gradient_pal}.} \item{na.value}{Colour to use for missing values} \item{guide}{Type of legend. Use \code{'colourbar'} for continuous colour bar, or \code{'legend'} for discrete colour legend.} } \description{ Continuous color scales using the sequential color palettes in Tableau. See \funclink{scale_colour_tableau} for Tableau discrete color scales, and \funclink{scale_colour_gradient2_tableau} for diverging color scales. } \examples{ library("ggplot2") df <- data.frame( x = runif(100), y = runif(100), z1 = rnorm(100), z2 = abs(rnorm(100)) ) p <- ggplot(df, aes(x, y)) + geom_point(aes(colour = z2)) + theme_igray() palettes <- ggthemes_data[["tableau"]][["color-palettes"]][["ordered-sequential"]] for (palette in head(names(palettes))) { print(p + scale_colour_gradient_tableau(palette) + ggtitle(palette)) } } \seealso{ Other colour tableau: \code{\link{scale_colour_gradient2_tableau}}, \code{\link{scale_colour_tableau}}, \code{\link{tableau_color_pal}}, \code{\link{tableau_gradient_pal}} } \concept{colour tableau} ggthemes/man/stat_fivenumber.Rd0000644000176200001440000000556713340064634016334 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/stat-fivenumber.R \docType{data} \name{stat_fivenumber} \alias{stat_fivenumber} \alias{StatFivenumber} \title{Calculate components of a five-number summary} \usage{ stat_fivenumber(mapping = NULL, data = NULL, geom = "boxplot", probs = c(0, 0.25, 0.5, 0.75, 1), na.rm = FALSE, position = "identity", show.legend = NA, inherit.aes = TRUE, ...) } \arguments{ \item{mapping}{Set of aesthetic mappings created by \code{\link[=aes]{aes()}} or \code{\link[=aes_]{aes_()}}. If specified and \code{inherit.aes = TRUE} (the default), it is combined with the default mapping at the top level of the plot. You must supply \code{mapping} if there is no plot mapping.} \item{data}{The data to be displayed in this layer. There are three options: If \code{NULL}, the default, the data is inherited from the plot data as specified in the call to \code{\link[=ggplot]{ggplot()}}. A \code{data.frame}, or other object, will override the plot data. All objects will be fortified to produce a data frame. See \code{\link[=fortify]{fortify()}} for which variables will be created. A \code{function} will be called with a single argument, the plot data. The return value must be a \code{data.frame}, and will be used as the layer data.} \item{geom}{The geometric object to use display the data} \item{probs}{Quantiles to use for the five number summary.} \item{na.rm}{If \code{FALSE} (the default), removes missing values with a warning. If \code{TRUE} silently removes missing values.} \item{position}{Position adjustment, either as a string, or the result of a call to a position adjustment function.} \item{show.legend}{logical. Should this layer be included in the legends? \code{NA}, the default, includes if any aesthetics are mapped. \code{FALSE} never includes, and \code{TRUE} always includes. It can also be a named logical vector to finely select the aesthetics to display.} \item{inherit.aes}{If \code{FALSE}, overrides the default aesthetics, rather than combining with them. This is most useful for helper functions that define both data and aesthetics and shouldn't inherit behaviour from the default plot specification, e.g. \code{\link[=borders]{borders()}}.} \item{...}{Other arguments passed on to \code{\link[=layer]{layer()}}. These are often aesthetics, used to set an aesthetic to a fixed value, like \code{colour = "red"} or \code{size = 3}. They may also be parameters to the paired geom/stat.} } \value{ A data frame with additional columns: \item{width}{width of boxplot} \item{min}{minimum} \item{lower}{lower hinge, 25\% quantile} \item{middle}{median, 50\% quantile} \item{upper}{upper hinge, 75\% quantile} \item{max}{maximum} } \description{ The five number summary of a sample is the minimum, first quartile, median, third quartile, and maximum. } \seealso{ \code{\link[ggplot2]{stat_boxplot}()} } \keyword{datasets} ggthemes/man/scale_ptol.Rd0000644000176200001440000000637313340063456015261 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/ptol.R \name{scale_colour_ptol} \alias{scale_colour_ptol} \alias{scale_color_ptol} \alias{scale_fill_ptol} \title{Color Scales from Paul Tol's "Colour Schemes} \usage{ scale_colour_ptol(...) scale_color_ptol(...) scale_fill_ptol(...) } \arguments{ \item{...}{Arguments passed on to \code{discrete_scale} \describe{ \item{palette}{A palette function that when called with a single integer argument (the number of levels in the scale) returns the values that they should take.} \item{breaks}{One of: \itemize{ \item \code{NULL} for no breaks \item \code{waiver()} for the default breaks computed by the transformation object \item A character vector of breaks \item A function that takes the limits as input and returns breaks as output }} \item{limits}{A character vector that defines possible values of the scale and their order.} \item{drop}{Should unused factor levels be omitted from the scale? The default, \code{TRUE}, uses the levels that appear in the data; \code{FALSE} uses all the levels in the factor.} \item{na.translate}{Unlike continuous scales, discrete scales can easily show missing values, and do so by default. If you want to remove missing values from a discrete scale, specify \code{na.translate = FALSE}.} \item{na.value}{If \code{na.translate = TRUE}, what value aesthetic value should missing be displayed as? Does not apply to position scales where \code{NA} is always placed at the far right.} \item{scale_name}{The name of the scale} \item{name}{The name of the scale. Used as the axis or legend title. If \code{waiver()}, the default, the name of the scale is taken from the first mapping used for that aesthetic. If \code{NULL}, the legend title will be omitted.} \item{labels}{One of: \itemize{ \item \code{NULL} for no labels \item \code{waiver()} for the default labels computed by the transformation object \item A character vector giving labels (must be same length as \code{breaks}) \item A function that takes the breaks as input and returns labels as output }} \item{expand}{Vector of range expansion constants used to add some padding around the data, to ensure that they are placed some distance away from the axes. Use the convenience function \code{\link[=expand_scale]{expand_scale()}} to generate the values for the \code{expand} argument. The defaults are to expand the scale by 5\% on each side for continuous variables, and by 0.6 units on each side for discrete variables.} \item{guide}{A function used to create a guide or its name. See \code{\link[=guides]{guides()}} for more info.} \item{position}{The position of the axis. "left" or "right" for vertical scales, "top" or "bottom" for horizontal scales} \item{super}{The super class to use for the constructed scale} }} } \description{ See \code{\link{ptol_pal}()}. These palettes support up to 12 values. } \examples{ library("ggplot2") p2 <- ggplot(mtcars, aes(x = wt, y = mpg, colour = factor(gear))) + geom_point() + geom_smooth(method = "lm", se = FALSE) + scale_color_ptol("cyl") + theme_minimal() + ggtitle("Cars") ggplot(diamonds, aes(x = clarity, fill = cut)) + geom_bar() + scale_fill_ptol() + theme_minimal() } \seealso{ Other colour ptol: \code{\link{ptol_pal}} } \concept{colour ptol} ggthemes/man/scale_few.Rd0000644000176200001440000000607213340063456015060 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/few.R \name{scale_colour_few} \alias{scale_colour_few} \alias{scale_color_few} \alias{scale_fill_few} \title{Color scales from Few's "Practical Rules for Using Color in Charts"} \usage{ scale_colour_few(palette = "Medium", ...) scale_color_few(palette = "Medium", ...) scale_fill_few(palette = "Light", ...) } \arguments{ \item{palette}{One of \Sexpr[results=rd]{names(ggthemes:::rd_optlist(ggthemes::ggthemes_data$few$colors))}} \item{...}{Arguments passed on to \code{discrete_scale} \describe{ \item{palette}{A palette function that when called with a single integer argument (the number of levels in the scale) returns the values that they should take.} \item{breaks}{One of: \itemize{ \item \code{NULL} for no breaks \item \code{waiver()} for the default breaks computed by the transformation object \item A character vector of breaks \item A function that takes the limits as input and returns breaks as output }} \item{limits}{A character vector that defines possible values of the scale and their order.} \item{drop}{Should unused factor levels be omitted from the scale? The default, \code{TRUE}, uses the levels that appear in the data; \code{FALSE} uses all the levels in the factor.} \item{na.translate}{Unlike continuous scales, discrete scales can easily show missing values, and do so by default. If you want to remove missing values from a discrete scale, specify \code{na.translate = FALSE}.} \item{na.value}{If \code{na.translate = TRUE}, what value aesthetic value should missing be displayed as? Does not apply to position scales where \code{NA} is always placed at the far right.} \item{scale_name}{The name of the scale} \item{name}{The name of the scale. Used as the axis or legend title. If \code{waiver()}, the default, the name of the scale is taken from the first mapping used for that aesthetic. If \code{NULL}, the legend title will be omitted.} \item{labels}{One of: \itemize{ \item \code{NULL} for no labels \item \code{waiver()} for the default labels computed by the transformation object \item A character vector giving labels (must be same length as \code{breaks}) \item A function that takes the breaks as input and returns labels as output }} \item{expand}{Vector of range expansion constants used to add some padding around the data, to ensure that they are placed some distance away from the axes. Use the convenience function \code{\link[=expand_scale]{expand_scale()}} to generate the values for the \code{expand} argument. The defaults are to expand the scale by 5\% on each side for continuous variables, and by 0.6 units on each side for discrete variables.} \item{guide}{A function used to create a guide or its name. See \code{\link[=guides]{guides()}} for more info.} \item{position}{The position of the axis. "left" or "right" for vertical scales, "top" or "bottom" for horizontal scales} \item{super}{The super class to use for the constructed scale} }} } \description{ See \code{\link{few_pal}()}. } \seealso{ Other colour few: \code{\link{few_pal}} } \concept{colour few} ggthemes/man/palette_pander.Rd0000644000176200001440000000132513453023662016113 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/pander.R \name{palette_pander} \alias{palette_pander} \title{Color palette from the pander package} \usage{ palette_pander(n, random_order = FALSE) } \arguments{ \item{n}{number of colors. This palette supports up to eight colors.} \item{random_order}{if the palette should be reordered randomly before rendering each plot to get colorful images} } \description{ The \pkg{pander} ships with a default colorblind and printer-friendly color palette borrowed from \verb{http://jfly.iam.u-tokyo.ac.jp/color/}. } \examples{ \dontrun{ palette_pander(TRUE) } } \seealso{ Other colour pander: \code{\link{scale_color_pander}} } \concept{colour pander} ggthemes/man/calc_pal.Rd0000644000176200001440000000061713317752172014671 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/calc.R \name{calc_pal} \alias{calc_pal} \title{Calc color palette (discrete)} \usage{ calc_pal() } \description{ Color palettes from LibreOffice Calc. This palette has 12 values. } \examples{ library("scales") show_col(calc_pal()(12)) } \seealso{ Other colour calc: \code{\link{scale_fill_calc}} } \concept{colour calc} ggthemes/man/scale_fivethirtyeight.Rd0000644000176200001440000000611213340063456017510 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/fivethirtyeight.R \name{scale_colour_fivethirtyeight} \alias{scale_colour_fivethirtyeight} \alias{scale_color_fivethirtyeight} \alias{scale_fill_fivethirtyeight} \title{fivethirtyeight.com color scales} \usage{ scale_colour_fivethirtyeight(...) scale_color_fivethirtyeight(...) scale_fill_fivethirtyeight(...) } \arguments{ \item{...}{Arguments passed on to \code{discrete_scale} \describe{ \item{palette}{A palette function that when called with a single integer argument (the number of levels in the scale) returns the values that they should take.} \item{breaks}{One of: \itemize{ \item \code{NULL} for no breaks \item \code{waiver()} for the default breaks computed by the transformation object \item A character vector of breaks \item A function that takes the limits as input and returns breaks as output }} \item{limits}{A character vector that defines possible values of the scale and their order.} \item{drop}{Should unused factor levels be omitted from the scale? The default, \code{TRUE}, uses the levels that appear in the data; \code{FALSE} uses all the levels in the factor.} \item{na.translate}{Unlike continuous scales, discrete scales can easily show missing values, and do so by default. If you want to remove missing values from a discrete scale, specify \code{na.translate = FALSE}.} \item{na.value}{If \code{na.translate = TRUE}, what value aesthetic value should missing be displayed as? Does not apply to position scales where \code{NA} is always placed at the far right.} \item{scale_name}{The name of the scale} \item{name}{The name of the scale. Used as the axis or legend title. If \code{waiver()}, the default, the name of the scale is taken from the first mapping used for that aesthetic. If \code{NULL}, the legend title will be omitted.} \item{labels}{One of: \itemize{ \item \code{NULL} for no labels \item \code{waiver()} for the default labels computed by the transformation object \item A character vector giving labels (must be same length as \code{breaks}) \item A function that takes the breaks as input and returns labels as output }} \item{expand}{Vector of range expansion constants used to add some padding around the data, to ensure that they are placed some distance away from the axes. Use the convenience function \code{\link[=expand_scale]{expand_scale()}} to generate the values for the \code{expand} argument. The defaults are to expand the scale by 5\% on each side for continuous variables, and by 0.6 units on each side for discrete variables.} \item{guide}{A function used to create a guide or its name. See \code{\link[=guides]{guides()}} for more info.} \item{position}{The position of the axis. "left" or "right" for vertical scales, "top" or "bottom" for horizontal scales} \item{super}{The super class to use for the constructed scale} }} } \description{ Color scales using the colors in the fivethirtyeight graphics. } \seealso{ \code{\link{theme_fivethirtyeight}()} for examples. Other colour fivethirtyeight: \code{\link{fivethirtyeight_pal}} } \concept{colour fivethirtyeight} ggthemes/man/geom_rangeframe.Rd0000644000176200001440000000602513337654534016255 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/geom-rangeframe.R \docType{data} \name{geom_rangeframe} \alias{geom_rangeframe} \alias{GeomRangeFrame} \title{Range Frames} \usage{ geom_rangeframe(mapping = NULL, data = NULL, stat = "identity", position = "identity", ..., sides = "bl", na.rm = FALSE, show.legend = NA, inherit.aes = TRUE) } \arguments{ \item{mapping}{Set of aesthetic mappings created by \code{\link[=aes]{aes()}} or \code{\link[=aes_]{aes_()}}. If specified and \code{inherit.aes = TRUE} (the default), it is combined with the default mapping at the top level of the plot. You must supply \code{mapping} if there is no plot mapping.} \item{data}{The data to be displayed in this layer. There are three options: If \code{NULL}, the default, the data is inherited from the plot data as specified in the call to \code{\link[=ggplot]{ggplot()}}. A \code{data.frame}, or other object, will override the plot data. All objects will be fortified to produce a data frame. See \code{\link[=fortify]{fortify()}} for which variables will be created. A \code{function} will be called with a single argument, the plot data. The return value must be a \code{data.frame}, and will be used as the layer data.} \item{stat}{The statistical transformation to use on the data for this layer, as a string.} \item{position}{Position adjustment, either as a string, or the result of a call to a position adjustment function.} \item{...}{Other arguments passed on to \code{\link[=layer]{layer()}}. These are often aesthetics, used to set an aesthetic to a fixed value, like \code{colour = "red"} or \code{size = 3}. They may also be parameters to the paired geom/stat.} \item{sides}{A string that controls which sides of the plot the frames appear on. It can be set to a string containing any of \code{'trbl'}, for top, right, bottom, and left.} \item{na.rm}{If \code{FALSE}, the default, missing values are removed with a warning. If \code{TRUE}, missing values are silently removed.} \item{show.legend}{logical. Should this layer be included in the legends? \code{NA}, the default, includes if any aesthetics are mapped. \code{FALSE} never includes, and \code{TRUE} always includes. It can also be a named logical vector to finely select the aesthetics to display.} \item{inherit.aes}{If \code{FALSE}, overrides the default aesthetics, rather than combining with them. This is most useful for helper functions that define both data and aesthetics and shouldn't inherit behaviour from the default plot specification, e.g. \code{\link[=borders]{borders()}}.} } \description{ Axis lines which extend to the maximum and minimum of the plotted data. } \section{Aesthetics}{ \itemize{ \item colour \item size \item linetype \item alpha } } \examples{ library("ggplot2") ggplot(mtcars, aes(wt, mpg)) + geom_point() + geom_rangeframe() + theme_tufte() } \references{ Tufte, Edward R. (2001) The Visual Display of Quantitative Information, Chapter 6. } \seealso{ Other geom tufte: \code{\link{geom_tufteboxplot}} } \concept{geom tufte} \keyword{datasets} ggthemes/man/theme_tufte.Rd0000644000176200001440000000267713340063456015450 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/tufte.R \name{theme_tufte} \alias{theme_tufte} \title{Tufte Maximal Data, Minimal Ink Theme} \usage{ theme_tufte(base_size = 11, base_family = "serif", ticks = TRUE) } \arguments{ \item{base_size}{base font size} \item{base_family}{base font family} \item{ticks}{\code{logical} Show axis ticks?} } \description{ Theme based on Chapter 6 'Data-Ink Maximization and Graphical Design' of Edward Tufte *The Visual Display of Quantitative Information*. No border, no axis lines, no grids. This theme works best in combination with \code{\link{geom_rug}()} or \code{\link{geom_rangeframe}()}. } \note{ The default font family is set to 'serif' as he uses serif fonts for labels in 'The Visual Display of Quantitative Information'. The serif font used by Tufte in his books is a variant of Bembo, while the sans serif font is Gill Sans. If these fonts are installed on your system, then you can use them with the package \bold{extrafont}. } \examples{ library("ggplot2") p <- ggplot(mtcars, aes(x = wt, y = mpg)) + geom_point() + scale_x_continuous(breaks = extended_range_breaks()(mtcars$wt)) + scale_y_continuous(breaks = extended_range_breaks()(mtcars$mpg)) + ggtitle("Cars") p + geom_rangeframe() + theme_tufte() p + geom_rug() + theme_tufte(ticks = FALSE) } \references{ Tufte, Edward R. (2001) The Visual Display of Quantitative Information, Chapter 6. } \concept{themes tufte} ggthemes/man/theme_base.Rd0000644000176200001440000000144613453127565015233 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/base.R \name{theme_base} \alias{theme_base} \title{Theme Base} \usage{ theme_base(base_size = 16, base_family = "") } \arguments{ \item{base_size}{base font size} \item{base_family}{base font family} } \description{ Theme similar to the default settings of the \sQuote{base} R graphics. } \examples{ library("ggplot2") p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, colour = factor(gear))) + facet_wrap(~am) p + theme_base() # Change values of par par(fg = "blue", bg = "gray", col.lab = "red", font.lab = 3) p + theme_base() } \seealso{ Other themes: \code{\link{theme_clean}}, \code{\link{theme_foundation}}, \code{\link{theme_igray}}, \code{\link{theme_par}}, \code{\link{theme_solid}} } \concept{themes} ggthemes/man/theme_few.Rd0000644000176200001440000000221113317752173015067 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/few.R \name{theme_few} \alias{theme_few} \title{Theme based on Few's "Practical Rules for Using Color in Charts"} \usage{ theme_few(base_size = 12, base_family = "") } \arguments{ \item{base_size}{base font size} \item{base_family}{base font family} } \description{ Theme based on the rules and examples from Stephen Few's \emph{Show Me the Numbers} and "Practical Rules for Using Color in Charts". } \examples{ library("ggplot2") p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, colour = factor(gear))) + facet_wrap(~am) p + theme_few() + scale_colour_few() p + theme_few() + scale_colour_few("Light") p + theme_few() + scale_colour_few("Dark") ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, shape = factor(gear))) + theme_few() + scale_shape_few() } \references{ Few, S. (2012) \emph{Show Me the Numbers: Designing Tables and Graphs to Enlighten}. 2nd edition. Analytics Press. Stephen Few, "Practical Rules for Using Color in Charts", \url{http://www.perceptualedge.com/articles/visual_business_intelligence/rules_for_using_color.pdf}. } \concept{themes few} ggthemes/man/theme_wsj.Rd0000644000176200001440000000206413340063456015112 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/wsj.R \name{theme_wsj} \alias{theme_wsj} \title{Wall Street Journal theme} \usage{ theme_wsj(base_size = 12, color = "brown", base_family = "sans", title_family = "mono") } \arguments{ \item{base_size}{base font size} \item{color}{The background color of plot. One of \code{'brown', 'gray', 'green', 'blue'}.} \item{base_family}{base font family} \item{title_family}{Plot title font family.} } \description{ Theme based on the plots in \emph{The Wall Street Journal}. } \details{ This theme should be used with \code{\link{scale_color_wsj}()}. } \examples{ library("ggplot2") p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, colour = factor(gear))) + facet_wrap(~am) + ggtitle("Diamond Prices") p + scale_colour_wsj("colors6", "") + theme_wsj() # Use a gray background instead p + scale_colour_wsj("colors6", "") + theme_wsj(color = "gray") } \references{ \url{https://twitter.com/WSJGraphics} \url{https://pinterest.com/wsjgraphics/wsj-graphics/} } \concept{themes wsj} ggthemes/man/colorblind.Rd0000644000176200001440000000675113453025142015256 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/colorblind.R \name{colorblind_pal} \alias{colorblind_pal} \alias{scale_colour_colorblind} \alias{scale_color_colorblind} \alias{scale_fill_colorblind} \title{Colorblind Color Palette (Discrete) and Scales} \usage{ colorblind_pal() scale_colour_colorblind(...) scale_color_colorblind(...) scale_fill_colorblind(...) } \arguments{ \item{...}{Arguments passed on to \code{discrete_scale} \describe{ \item{palette}{A palette function that when called with a single integer argument (the number of levels in the scale) returns the values that they should take.} \item{breaks}{One of: \itemize{ \item \code{NULL} for no breaks \item \code{waiver()} for the default breaks computed by the transformation object \item A character vector of breaks \item A function that takes the limits as input and returns breaks as output }} \item{limits}{A character vector that defines possible values of the scale and their order.} \item{drop}{Should unused factor levels be omitted from the scale? The default, \code{TRUE}, uses the levels that appear in the data; \code{FALSE} uses all the levels in the factor.} \item{na.translate}{Unlike continuous scales, discrete scales can easily show missing values, and do so by default. If you want to remove missing values from a discrete scale, specify \code{na.translate = FALSE}.} \item{na.value}{If \code{na.translate = TRUE}, what value aesthetic value should missing be displayed as? Does not apply to position scales where \code{NA} is always placed at the far right.} \item{scale_name}{The name of the scale} \item{name}{The name of the scale. Used as the axis or legend title. If \code{waiver()}, the default, the name of the scale is taken from the first mapping used for that aesthetic. If \code{NULL}, the legend title will be omitted.} \item{labels}{One of: \itemize{ \item \code{NULL} for no labels \item \code{waiver()} for the default labels computed by the transformation object \item A character vector giving labels (must be same length as \code{breaks}) \item A function that takes the breaks as input and returns labels as output }} \item{expand}{Vector of range expansion constants used to add some padding around the data, to ensure that they are placed some distance away from the axes. Use the convenience function \code{\link[=expand_scale]{expand_scale()}} to generate the values for the \code{expand} argument. The defaults are to expand the scale by 5\% on each side for continuous variables, and by 0.6 units on each side for discrete variables.} \item{guide}{A function used to create a guide or its name. See \code{\link[=guides]{guides()}} for more info.} \item{position}{The position of the axis. "left" or "right" for vertical scales, "top" or "bottom" for horizontal scales} \item{super}{The super class to use for the constructed scale} }} } \description{ An eight-color colorblind safe qualitative discrete palette. } \examples{ library("ggplot2") library("scales") show_col(colorblind_pal()(8)) p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, colour = factor(gear))) + facet_wrap(~am) p + theme_igray() + scale_colour_colorblind() } \references{ Chang, W. "\href{http://www.cookbook-r.com/Graphs/Colors_(ggplot2)/#a-colorblind-friendly-palette}{Cookbook for R}" \verb{http://jfly.iam.u-tokyo.ac.jp/color} } \seealso{ The \pkg{dichromat} package, \code{\link[scales]{dichromat_pal}()}, and \code{\link{scale_color_tableau}()} for other colorblind palettes. } \concept{colour} ggthemes/man/scale_shape_calc.Rd0000644000176200001440000000456313340063456016364 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/calc.R \name{scale_shape_calc} \alias{scale_shape_calc} \title{Calc shape scale} \usage{ scale_shape_calc(...) } \arguments{ \item{...}{Arguments passed on to \code{discrete_scale} \describe{ \item{palette}{A palette function that when called with a single integer argument (the number of levels in the scale) returns the values that they should take.} \item{breaks}{One of: \itemize{ \item \code{NULL} for no breaks \item \code{waiver()} for the default breaks computed by the transformation object \item A character vector of breaks \item A function that takes the limits as input and returns breaks as output }} \item{limits}{A character vector that defines possible values of the scale and their order.} \item{drop}{Should unused factor levels be omitted from the scale? The default, \code{TRUE}, uses the levels that appear in the data; \code{FALSE} uses all the levels in the factor.} \item{na.translate}{Unlike continuous scales, discrete scales can easily show missing values, and do so by default. If you want to remove missing values from a discrete scale, specify \code{na.translate = FALSE}.} \item{na.value}{If \code{na.translate = TRUE}, what value aesthetic value should missing be displayed as? Does not apply to position scales where \code{NA} is always placed at the far right.} \item{aesthetics}{The names of the aesthetics that this scale works with} \item{scale_name}{The name of the scale} \item{name}{The name of the scale. Used as the axis or legend title. If \code{waiver()}, the default, the name of the scale is taken from the first mapping used for that aesthetic. If \code{NULL}, the legend title will be omitted.} \item{labels}{One of: \itemize{ \item \code{NULL} for no labels \item \code{waiver()} for the default labels computed by the transformation object \item A character vector giving labels (must be same length as \code{breaks}) \item A function that takes the breaks as input and returns labels as output }} \item{guide}{A function used to create a guide or its name. See \code{\link[=guides]{guides()}} for more info.} \item{super}{The super class to use for the constructed scale} }} } \description{ See \code{\link{calc_shape_pal}()} for details. } \seealso{ \code{\link{theme_calc}()} for examples. Other shapes calc: \code{\link{calc_shape_pal}} } \concept{shapes calc} ggthemes/man/scale_shape_cleveland.Rd0000644000176200001440000000547213340063456017417 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/shapes.R \name{scale_shape_cleveland} \alias{scale_shape_cleveland} \title{Shape scales from Cleveland "Elements of Graphing Data"} \usage{ scale_shape_cleveland(overlap = TRUE, ...) } \arguments{ \item{overlap}{\code{logical} Use the scale for overlapping points?} \item{...}{Arguments passed on to \code{discrete_scale} \describe{ \item{palette}{A palette function that when called with a single integer argument (the number of levels in the scale) returns the values that they should take.} \item{breaks}{One of: \itemize{ \item \code{NULL} for no breaks \item \code{waiver()} for the default breaks computed by the transformation object \item A character vector of breaks \item A function that takes the limits as input and returns breaks as output }} \item{limits}{A character vector that defines possible values of the scale and their order.} \item{drop}{Should unused factor levels be omitted from the scale? The default, \code{TRUE}, uses the levels that appear in the data; \code{FALSE} uses all the levels in the factor.} \item{na.translate}{Unlike continuous scales, discrete scales can easily show missing values, and do so by default. If you want to remove missing values from a discrete scale, specify \code{na.translate = FALSE}.} \item{na.value}{If \code{na.translate = TRUE}, what value aesthetic value should missing be displayed as? Does not apply to position scales where \code{NA} is always placed at the far right.} \item{aesthetics}{The names of the aesthetics that this scale works with} \item{scale_name}{The name of the scale} \item{name}{The name of the scale. Used as the axis or legend title. If \code{waiver()}, the default, the name of the scale is taken from the first mapping used for that aesthetic. If \code{NULL}, the legend title will be omitted.} \item{labels}{One of: \itemize{ \item \code{NULL} for no labels \item \code{waiver()} for the default labels computed by the transformation object \item A character vector giving labels (must be same length as \code{breaks}) \item A function that takes the breaks as input and returns labels as output }} \item{guide}{A function used to create a guide or its name. See \code{\link[=guides]{guides()}} for more info.} \item{super}{The super class to use for the constructed scale} }} } \description{ Shape scales from Cleveland "Elements of Graphing Data" } \references{ Cleveland WS. The Elements of Graphing Data. Revised Edition. Hobart Press, Summit, NJ, 1994, pp. 154-164, 234-239. } \seealso{ \code{\link{cleveland_shape_pal}()} for a description of the palette. Other shapes: \code{\link{circlefill_shape_pal}}, \code{\link{cleveland_shape_pal}}, \code{\link{scale_shape_circlefill}}, \code{\link{scale_shape_tremmel}}, \code{\link{tremmel_shape_pal}} } \concept{shapes} ggthemes/man/hc_pal.Rd0000644000176200001440000000125713325413240014347 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/hc.R \name{hc_pal} \alias{hc_pal} \title{Highcharts JS color palette (discrete)} \usage{ hc_pal(palette = "default") } \arguments{ \item{palette}{\code{character} The name of the Highcharts theme to use.} } \description{ The Highcharts JS uses many different color palettes in its plots. This collects a few of them. } \section{Palettes}{ The following palettes are defined, \itemize{ \item{\href{http://www.highcharts.com/demo}{default}} \item{\href{http://www.highcharts.com/demo/line-basic/dark-unica}{dark-unica}} } } \seealso{ Other colour hc: \code{\link{scale_colour_hc}} } \concept{colour hc} ggthemes/man/scale_shape_few.Rd0000644000176200001440000000125313340063456016234 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/few.R \name{scale_shape_few} \alias{scale_shape_few} \title{Scales for shapes from "Show Me the Numbers"} \usage{ scale_shape_few(...) } \arguments{ \item{...}{Common \code{\link[ggplot2]{discrete_scale}()} parameters.} } \description{ \code{scale_shape_few()} maps discrete variables to up to five easily discernible shapes. It is based on the shape palette suggested in Few (2012). } \references{ Few, S. (2012) \emph{Show Me the Numbers: Designing Tables and Graphs to Enlighten}, Analytics Press, p. 208. } \seealso{ \code{\link{scale_shape_few}()} for the shape palette that this scale uses. } ggthemes/man/tremmel_shape_pal.Rd0000644000176200001440000000310213317752173016605 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/shapes.R \name{tremmel_shape_pal} \alias{tremmel_shape_pal} \title{Shape palette from Tremmel (1995) (discrete)} \usage{ tremmel_shape_pal(overlap = FALSE, alt = FALSE, n3alt = NULL) } \arguments{ \item{overlap}{use an empty circle instead of a solid circle when \code{n == 2}.} \item{alt, n3alt}{If \code{TRUE}, then when \code{n == 3}, use a solid circle, plus sign and empty triangle. Otherwise use a solid circle, empty circle, and empty triangle.} } \description{ Based on experiments Tremmel (1995) suggests the following shape palettes: } \details{ If two symbols, then use a solid circle and plus sign. If three symbols, then use a solid circle, empty circle, and an empty triangle. However, that set of symbols does not satisfy the requirement that each symbol should differ from the other symbols in the same feature dimension. A set of three symbols that satisfies this is a circle (curvature), plus sign (number of terminators), triangle (line orientation). This palette supports up to three values. If more than three groups of data, then separate the groups into different plots. } \references{ Tremmel, Lothar, (1995) "The Visual Separability of Plotting Symbols in Scatterplots" Journal of Computational and Graphical Statistics, \url{http://www.jstor.org/stable/1390760} } \seealso{ Other shapes: \code{\link{circlefill_shape_pal}}, \code{\link{cleveland_shape_pal}}, \code{\link{scale_shape_circlefill}}, \code{\link{scale_shape_cleveland}}, \code{\link{scale_shape_tremmel}} } \concept{shapes} ggthemes/man/scale_pander.Rd0000644000176200001440000000604613453023662015551 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/pander.R \name{scale_color_pander} \alias{scale_color_pander} \alias{scale_colour_pander} \alias{scale_fill_pander} \title{Color scale from the pander package} \usage{ scale_color_pander(...) scale_colour_pander(...) scale_fill_pander(...) } \arguments{ \item{...}{Arguments passed on to \code{discrete_scale} \describe{ \item{palette}{A palette function that when called with a single integer argument (the number of levels in the scale) returns the values that they should take.} \item{breaks}{One of: \itemize{ \item \code{NULL} for no breaks \item \code{waiver()} for the default breaks computed by the transformation object \item A character vector of breaks \item A function that takes the limits as input and returns breaks as output }} \item{limits}{A character vector that defines possible values of the scale and their order.} \item{drop}{Should unused factor levels be omitted from the scale? The default, \code{TRUE}, uses the levels that appear in the data; \code{FALSE} uses all the levels in the factor.} \item{na.translate}{Unlike continuous scales, discrete scales can easily show missing values, and do so by default. If you want to remove missing values from a discrete scale, specify \code{na.translate = FALSE}.} \item{na.value}{If \code{na.translate = TRUE}, what value aesthetic value should missing be displayed as? Does not apply to position scales where \code{NA} is always placed at the far right.} \item{scale_name}{The name of the scale} \item{name}{The name of the scale. Used as the axis or legend title. If \code{waiver()}, the default, the name of the scale is taken from the first mapping used for that aesthetic. If \code{NULL}, the legend title will be omitted.} \item{labels}{One of: \itemize{ \item \code{NULL} for no labels \item \code{waiver()} for the default labels computed by the transformation object \item A character vector giving labels (must be same length as \code{breaks}) \item A function that takes the breaks as input and returns labels as output }} \item{expand}{Vector of range expansion constants used to add some padding around the data, to ensure that they are placed some distance away from the axes. Use the convenience function \code{\link[=expand_scale]{expand_scale()}} to generate the values for the \code{expand} argument. The defaults are to expand the scale by 5\% on each side for continuous variables, and by 0.6 units on each side for discrete variables.} \item{guide}{A function used to create a guide or its name. See \code{\link[=guides]{guides()}} for more info.} \item{position}{The position of the axis. "left" or "right" for vertical scales, "top" or "bottom" for horizontal scales} \item{super}{The super class to use for the constructed scale} }} } \description{ The \pkg{pander} ships with a default colorblind and printer-friendly color palette borrowed from \verb{http://jfly.iam.u-tokyo.ac.jp/color/}. } \seealso{ \code{\link{theme_pander}()} Other colour pander: \code{\link{palette_pander}} } \concept{colour pander} ggthemes/man/scale_shape_stata.Rd0000644000176200001440000000470513340063456016574 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/stata.R \name{scale_shape_stata} \alias{scale_shape_stata} \title{Stata shape scale} \usage{ scale_shape_stata(...) } \arguments{ \item{...}{Arguments passed on to \code{discrete_scale} \describe{ \item{palette}{A palette function that when called with a single integer argument (the number of levels in the scale) returns the values that they should take.} \item{breaks}{One of: \itemize{ \item \code{NULL} for no breaks \item \code{waiver()} for the default breaks computed by the transformation object \item A character vector of breaks \item A function that takes the limits as input and returns breaks as output }} \item{limits}{A character vector that defines possible values of the scale and their order.} \item{drop}{Should unused factor levels be omitted from the scale? The default, \code{TRUE}, uses the levels that appear in the data; \code{FALSE} uses all the levels in the factor.} \item{na.translate}{Unlike continuous scales, discrete scales can easily show missing values, and do so by default. If you want to remove missing values from a discrete scale, specify \code{na.translate = FALSE}.} \item{na.value}{If \code{na.translate = TRUE}, what value aesthetic value should missing be displayed as? Does not apply to position scales where \code{NA} is always placed at the far right.} \item{aesthetics}{The names of the aesthetics that this scale works with} \item{scale_name}{The name of the scale} \item{name}{The name of the scale. Used as the axis or legend title. If \code{waiver()}, the default, the name of the scale is taken from the first mapping used for that aesthetic. If \code{NULL}, the legend title will be omitted.} \item{labels}{One of: \itemize{ \item \code{NULL} for no labels \item \code{waiver()} for the default labels computed by the transformation object \item A character vector giving labels (must be same length as \code{breaks}) \item A function that takes the breaks as input and returns labels as output }} \item{guide}{A function used to create a guide or its name. See \code{\link[=guides]{guides()}} for more info.} \item{super}{The super class to use for the constructed scale} }} } \description{ See \code{\link{stata_shape_pal}()} for details. } \examples{ library("ggplot2") p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, shape = factor(gear))) + facet_wrap(~am) p + theme_stata() + scale_shape_stata() } \concept{shape stata} ggthemes/man/scale_calc.Rd0000644000176200001440000000565213340063456015204 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/calc.R \name{scale_fill_calc} \alias{scale_fill_calc} \alias{scale_colour_calc} \alias{scale_color_calc} \title{LibreOffice Calc color scales} \usage{ scale_fill_calc(...) scale_colour_calc(...) scale_color_calc(...) } \arguments{ \item{...}{Arguments passed on to \code{discrete_scale} \describe{ \item{palette}{A palette function that when called with a single integer argument (the number of levels in the scale) returns the values that they should take.} \item{breaks}{One of: \itemize{ \item \code{NULL} for no breaks \item \code{waiver()} for the default breaks computed by the transformation object \item A character vector of breaks \item A function that takes the limits as input and returns breaks as output }} \item{limits}{A character vector that defines possible values of the scale and their order.} \item{drop}{Should unused factor levels be omitted from the scale? The default, \code{TRUE}, uses the levels that appear in the data; \code{FALSE} uses all the levels in the factor.} \item{na.translate}{Unlike continuous scales, discrete scales can easily show missing values, and do so by default. If you want to remove missing values from a discrete scale, specify \code{na.translate = FALSE}.} \item{na.value}{If \code{na.translate = TRUE}, what value aesthetic value should missing be displayed as? Does not apply to position scales where \code{NA} is always placed at the far right.} \item{scale_name}{The name of the scale} \item{name}{The name of the scale. Used as the axis or legend title. If \code{waiver()}, the default, the name of the scale is taken from the first mapping used for that aesthetic. If \code{NULL}, the legend title will be omitted.} \item{labels}{One of: \itemize{ \item \code{NULL} for no labels \item \code{waiver()} for the default labels computed by the transformation object \item A character vector giving labels (must be same length as \code{breaks}) \item A function that takes the breaks as input and returns labels as output }} \item{expand}{Vector of range expansion constants used to add some padding around the data, to ensure that they are placed some distance away from the axes. Use the convenience function \code{\link[=expand_scale]{expand_scale()}} to generate the values for the \code{expand} argument. The defaults are to expand the scale by 5\% on each side for continuous variables, and by 0.6 units on each side for discrete variables.} \item{guide}{A function used to create a guide or its name. See \code{\link[=guides]{guides()}} for more info.} \item{position}{The position of the axis. "left" or "right" for vertical scales, "top" or "bottom" for horizontal scales} \item{super}{The super class to use for the constructed scale} }} } \description{ Color scales from LibreOffice Calc. } \seealso{ See \code{\link{theme_calc}()} for examples. Other colour calc: \code{\link{calc_pal}} } \concept{colour calc} ggthemes/man/theme_par.Rd0000644000176200001440000000327213453127565015102 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/base.R \name{theme_par} \alias{theme_par} \title{Theme which uses the current \sQuote{base} graphics parameter values from \code{\link[graphics]{par}()}. Not all \code{par()} parameters, are supported, and not all are relevant to \pkg{ggplot2} themes.} \usage{ theme_par(base_size = par()$ps, base_family = par()$family) } \arguments{ \item{base_size}{base font size} \item{base_family}{base font family} } \description{ Currently this theme uses the values of the parameters: \code{"code"}, "\code{"ps"}", \code{"code"} \code{"family"}, \code{"fg"}, \code{"bg"}, \code{"adj"}, \code{"font"}, \code{"cex.axis"}, \code{"cex.lab"}, \code{"cex.main"}, \code{"cex.sub"}, \code{"col.axis"}, \code{"col.lab"}, \code{"col.main"}, \code{"col.sub"}, \code{"font"}, \code{"font.axis"}, \code{"font.lab"}, \code{"font.main"}, \code{"font.sub"}, \code{"las"}, \code{"lend"}, \code{"lheight"}, \code{"lty"}, \code{"mar"}, \code{"ps"}, \code{"tcl"}, \code{"tck"}, \code{"xaxt"}, \code{"yaxt"}. } \details{ This theme does not translate the base graphics perfectly, so the graphs produced by it will not be identical to those produced by base graphics, most notably in the spacing of the margins. } \examples{ library("ggplot2") p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, colour = factor(gear))) + facet_wrap(~am) p + theme_par() # theme changes with respect to values of par par(font = 2, col.lab = "red", fg = "white", bg = "black") p + theme_par() } \seealso{ Other themes: \code{\link{theme_base}}, \code{\link{theme_clean}}, \code{\link{theme_foundation}}, \code{\link{theme_igray}}, \code{\link{theme_solid}} } \concept{themes} ggthemes/man/wsj_pal.Rd0000644000176200001440000000273713325413240014564 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/wsj.R \name{wsj_pal} \alias{wsj_pal} \title{Wall Street Journal color palette (discrete)} \usage{ wsj_pal(palette = "colors6") } \arguments{ \item{palette}{\code{character} The color palette to use: . \Sexpr[results=rd]{ggthemes:::rd_optlist(names(ggthemes::ggthemes_data$wsj$palettes))}} } \description{ The Wall Street Journal uses many different color palettes in its plots. This collects a few of them, but is by no means exhaustive. Collections of these plots can be found on the WSJ Graphics \href{https://twitter.com/WSJGraphics}{Twitter} feed and \href{https://pinterest.com/wsjgraphics/wsj-graphics/}{Pinterest}. } \section{Palettes}{ The following palettes are defined, \describe{ \item{rgby}{Red/Green/Blue/Yellow theme. Examples: \url{https://twitpic.com/b2e3v2}. Up to four values.} \item{red_green}{Green/red two-color scale for good/bad. Examples: \url{https://twitpic.com/b1avj6}, \url{http://twitpic.com/a4kxcl}.} \item{green_black}{Black-green 4-color scale for 'Very negative', 'Somewhat negative', 'somewhat positive', 'very positive'. Examples: \url{https://twitpic.com/awbua0}.} \item{dem_rep}{Democrat/Republican/Undecided blue/red/gray scale. Examples: \url{https://twitpic.com/awbua0}.} \item{colors6}{Red, blue, gold, green, orange, and black palette. Examples: \url{https://twitpic.com/9gfg5q}.} } } \seealso{ Other colour wsj: \code{\link{scale_colour_wsj}} } \concept{colour wsj} ggthemes/man/theme_excel_new.Rd0000644000176200001440000000143013340064210016241 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/excel.R \name{theme_excel_new} \alias{theme_excel_new} \title{ggplot theme similar to current Excel plot defaults} \usage{ theme_excel_new(base_size = 9, base_family = "sans") } \arguments{ \item{base_size}{base font size} \item{base_family}{base font family} } \value{ An object of class \code{\link[ggplot2]{theme}()}. } \description{ Theme for ggplot2 that is similar to the default style of charts in current versions of Microsoft Excel. } \examples{ library("ggplot2") p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, colour = factor(gear))) + facet_wrap(~am) p + theme_excel_new() + scale_colour_excel_new() } \seealso{ Other themes excel: \code{\link{theme_excel}} } \concept{themes excel} ggthemes/man/circlefill_shape_pal.Rd0000644000176200001440000000222613317752173017256 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/shapes.R \name{circlefill_shape_pal} \alias{circlefill_shape_pal} \title{Filled Circle Shape palette (discrete)} \usage{ circlefill_shape_pal() } \description{ Shape palette with circles varying by amount of fill. This uses the set of 3 circle fill values in Lewandowsky and Spence (1989): solid, hollow, half-filled, with two additional fill amounts: three-quarters, and one-quarter. } \details{ This palette supports up to five values. } \examples{ library("ggplot2") p <- ggplot(mtcars, aes(x = mpg, y = hp, shape = factor(cyl))) + geom_point() p + scale_shape_tremmel() p + scale_shape_circlefill() p + scale_shape_cleveland() p + scale_shape_cleveland(overlap = TRUE) } \references{ Lewandowsky, Stephan and Ian Spence (1989) "Discriminating Strata in Scatterplots", Journal of the American Statistical Association, \url{http://www.jstor.org/stable/2289649} } \seealso{ Other shapes: \code{\link{cleveland_shape_pal}}, \code{\link{scale_shape_circlefill}}, \code{\link{scale_shape_cleveland}}, \code{\link{scale_shape_tremmel}}, \code{\link{tremmel_shape_pal}} } \concept{shapes} ggthemes/man/scale_hc.Rd0000644000176200001440000000611613340063456014670 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/hc.R \name{scale_colour_hc} \alias{scale_colour_hc} \alias{scale_color_hc} \alias{scale_fill_hc} \title{Highcharts color and fill scales} \usage{ scale_colour_hc(palette = "default", ...) scale_color_hc(palette = "default", ...) scale_fill_hc(palette = "default", ...) } \arguments{ \item{palette}{\code{character} The name of the Highcharts theme to use.} \item{...}{Arguments passed on to \code{discrete_scale} \describe{ \item{palette}{A palette function that when called with a single integer argument (the number of levels in the scale) returns the values that they should take.} \item{breaks}{One of: \itemize{ \item \code{NULL} for no breaks \item \code{waiver()} for the default breaks computed by the transformation object \item A character vector of breaks \item A function that takes the limits as input and returns breaks as output }} \item{limits}{A character vector that defines possible values of the scale and their order.} \item{drop}{Should unused factor levels be omitted from the scale? The default, \code{TRUE}, uses the levels that appear in the data; \code{FALSE} uses all the levels in the factor.} \item{na.translate}{Unlike continuous scales, discrete scales can easily show missing values, and do so by default. If you want to remove missing values from a discrete scale, specify \code{na.translate = FALSE}.} \item{na.value}{If \code{na.translate = TRUE}, what value aesthetic value should missing be displayed as? Does not apply to position scales where \code{NA} is always placed at the far right.} \item{scale_name}{The name of the scale} \item{name}{The name of the scale. Used as the axis or legend title. If \code{waiver()}, the default, the name of the scale is taken from the first mapping used for that aesthetic. If \code{NULL}, the legend title will be omitted.} \item{labels}{One of: \itemize{ \item \code{NULL} for no labels \item \code{waiver()} for the default labels computed by the transformation object \item A character vector giving labels (must be same length as \code{breaks}) \item A function that takes the breaks as input and returns labels as output }} \item{expand}{Vector of range expansion constants used to add some padding around the data, to ensure that they are placed some distance away from the axes. Use the convenience function \code{\link[=expand_scale]{expand_scale()}} to generate the values for the \code{expand} argument. The defaults are to expand the scale by 5\% on each side for continuous variables, and by 0.6 units on each side for discrete variables.} \item{guide}{A function used to create a guide or its name. See \code{\link[=guides]{guides()}} for more info.} \item{position}{The position of the axis. "left" or "right" for vertical scales, "top" or "bottom" for horizontal scales} \item{super}{The super class to use for the constructed scale} }} } \description{ Colour and fill scales which use the palettes in \code{\link{hc_pal}()} and are meant for use with \code{\link{theme_hc}()}. } \seealso{ Other colour hc: \code{\link{hc_pal}} } \concept{colour hc} ggthemes/man/solarized_rebase.Rd0000644000176200001440000000102713273732051016437 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/solarized.R \name{solarized_rebase} \alias{solarized_rebase} \title{Base colors for Solarized light and dark themes} \usage{ solarized_rebase(light = TRUE) } \arguments{ \item{light}{\code{logical} Light theme? Creates the base colors for a light or dark solarized theme. See \url{http://ethanschoonover.com/solarized}. This function is a port of the CSS style example.} } \description{ Base colors for Solarized light and dark themes } \keyword{internal} ggthemes/man/theme_map.Rd0000644000176200001440000000134413340064210015051 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/theme-map.R \name{theme_map} \alias{theme_map} \title{Clean theme for maps} \usage{ theme_map(base_size = 9, base_family = "") } \arguments{ \item{base_size}{base font size} \item{base_family}{base font family} } \description{ A clean theme that is good for displaying maps from \code{\link[ggplot2]{geom_map}()}. } \examples{ library("maps") library("ggplot2") us <- fortify(map_data("state"), region = "region") gg <- ggplot() + geom_map(data = us, map = us, aes(x = long, y = lat, map_id = region, group = group), fill = "white", color = "black", size = 0.25) + coord_map("albers", lat0 = 39, lat1 = 45) + theme_map() gg } ggthemes/man/theme_economist.Rd0000644000176200001440000000524413340064210016277 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/economist.R \name{theme_economist} \alias{theme_economist} \alias{theme_economist_white} \title{ggplot color theme based on the Economist} \usage{ theme_economist(base_size = 10, base_family = "sans", horizontal = TRUE, dkpanel = FALSE) theme_economist_white(base_size = 11, base_family = "sans", gray_bg = TRUE, horizontal = TRUE) } \arguments{ \item{base_size}{base font size} \item{base_family}{base font family} \item{horizontal}{\code{logical} Horizontal axis lines?} \item{dkpanel}{\code{logical} Darker background for panel region?} \item{gray_bg}{\code{logical} If \code{TRUE}, use gray background, else use white background.} } \value{ An object of class \code{\link[ggplot2]{theme}()}. } \description{ A theme that approximates the style of \emph{The Economist}. } \details{ \code{theme_economist} implements the standard bluish-gray background theme in the print \emph{The Economist} and \href{http://economist.com}{economist.com}. \code{theme_economist_white} implements a variant with a while panel and light gray (or white) background often used by \emph{The Economist} blog \href{http://www.economist.com/blogs/graphicdetail}{Graphic Detail}. Use \code{\link{scale_color_economist}()} with this theme. The x axis should be displayed on the right hand side. \emph{The Economist} uses "ITC Officina Sans" as its font for graphs. If you have access to this font, you can use it with the \pkg{extrafont} package. "Verdana" is a good substitute. } \examples{ library("ggplot2") p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, colour = factor(gear))) + facet_wrap(~am) + # Economist puts x-axis labels on the right-hand side scale_y_continuous(position = "right") ## Standard p + theme_economist() + scale_colour_economist() # Change axis lines to vertical p + theme_economist(horizontal = FALSE) + scale_colour_economist() + coord_flip() ## White panel/light gray background p + theme_economist_white() + scale_colour_economist() ## All white variant p + theme_economist_white(gray_bg = FALSE) + scale_colour_economist() \dontrun{ ## The Economist uses ITC Officina Sans library("extrafont") p + theme_economist(base_family="ITC Officina Sans") + scale_colour_economist() ## Verdana is a widely available substitute p + theme_economist(base_family="Verdana") + scale_colour_economist() } } \references{ \itemize{ \item \href{http://economist.com}{The Economist} \item \href{http://spiekermann.com/en/itc-officina-display/}{Spiekerblog, "ITC Officina Display", January 1, 2007.} \item \url{http://www.economist.com/help/about-us} } } \concept{themes economist} ggthemes/man/economist_pal.Rd0000644000176200001440000000117213317752172015764 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/economist.R \name{economist_pal} \alias{economist_pal} \title{Economist color palette (discrete)} \usage{ economist_pal(fill = TRUE) } \arguments{ \item{fill}{Use the fill palette.} } \description{ The hues in the palette are blues, grays, and greens. Red is not included in these palettes and should be used to indicate important data. } \examples{ library("scales") show_col(economist_pal()(6)) ## fill palette show_col(economist_pal(fill = TRUE)(6)) } \seealso{ Other colour economist: \code{\link{scale_colour_economist}} } \concept{colour economist} ggthemes/man/bank_slopes.Rd0000644000176200001440000000664113340064210015417 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/banking.R \name{bank_slopes} \alias{bank_slopes} \title{Bank Slopes to 45 degrees} \usage{ bank_slopes(x, y, cull = FALSE, weight = NULL, method = c("ms", "as"), ...) } \arguments{ \item{x}{x values} \item{y}{y values} \item{cull}{\code{logical}. Remove all slopes of 0 or \code{Inf}.} \item{weight}{No longer used, but kept for backwards compatibility.} \item{method}{One of 'ms' (Median Absolute Slope) or 'as' (Average Absolute Slope). Other options are no longer supported, and will use 'ms' instead with a warning.} \item{...}{No longer used, but kept for backwards compatibility.} } \value{ \code{numeric} The aspect ratio (x , y). } \description{ Calculate the optimal aspect ratio of a line graph by banking the slopes to 45 degrees as suggested by W.S. Cleveland. This maximizes the ability to visually differentiate differences in slope. This function will calculate the optimal aspect ratio for a line plot using any of the methods described in Herr and Argwala (2006). In their review of the methods they suggest using median absolute slope banking ('ms'), which produces aspect ratios which are generally the median of the various methods provided here. } \section{Methods}{ As written, all of these methods calculate the aspect ratio (x /y), but \code{bank_slopes} will return (y / x) to be compatible with \code{link[ggplot2]{coord_fixed()}}. \strong{Median Absolute Slopes Banking} Let the aspect ratio be \eqn{\alpha = \frac{w}{h}}{alpha = w / h} then the median absolute slop banking is the \eqn{\alpha}{alpha} such that, \deqn{ median \left| \frac{s_i}{\alpha} \right| = 1 }{ median |s_i / alpha| } Let \eqn{R_z = z_{max} - z_{min}}{R_z = z_max - z_min} for \eqn{z = x, y}, and \eqn{M = median \| s_i \|}{M = median | s_i |}. Then, \deqn{ \alpha = M \frac{R_x}{R_y} }{ alpha = M R_x / R_y } \strong{Average Absolute Slope Banking} Let the aspect ratio be \eqn{\alpha = \frac{w}{h}}{alpha = w/h}. then the mean absolute slope banking is the \eqn{\alpha}{alpha} such that, \deqn{ mean \left| \frac{s_i}{\alpha} \right| = 1 }{ mean |s_i / alpha| = 1 } Heer and Agrawala (2006) and Cleveland discuss several other methods including average (weighted) orientation, and global and local orientation resolution. These are no longer implemented in this function. In general, either the median or average absolute slopes will produce reasonable results without requiring optimization. } \examples{ library("ggplot2") # Use the classic sunspot data from Cleveland's original paper x <- seq_along(sunspot.year) y <- as.numeric(sunspot.year) # Without banking m <- ggplot(data.frame(x = x, y = y), aes(x = x, y = y)) + geom_line() m ## Using the default method, Median Absolute Slope ratio <- bank_slopes(x, y) m + coord_fixed(ratio = ratio) ## Using culling ## Average Absolute Slope bank_slopes(x, y, method = "as") } \references{ Cleveland, W. S., M. E. McGill, and R. McGill. The Shape Parameter of a Two-Variable Graph. Journal of the American Statistical Association, 83:289-300, 1988 Heer, Jeffrey and Maneesh Agrawala, 2006. 'Multi-Scale Banking to 45' IEEE Transactions On Visualization And Computer Graphics. Cleveland, W. S. 1993. 'A Model for Studying Display Methods of Statistical Graphs.' Journal of Computational and Statistical Graphics. Cleveland, W. S. 1994. The Elements of Graphing Data, Revised Edition. } \seealso{ \code{\link[lattice]{banking}()} } ggthemes/man/tableau_color_pal.Rd0000644000176200001440000000450513432363706016601 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/tableau.R \name{tableau_color_pal} \alias{tableau_color_pal} \title{Tableau Color Palettes (discrete)} \usage{ tableau_color_pal(palette = "Tableau 10", type = c("regular", "ordered-sequential", "ordered-diverging"), direction = 1) } \arguments{ \item{palette}{Palette name. See Details for available palettes.} \item{type}{Type of palette. One of \code{"regular"}, \code{"ordered-diverging"}, or \code{"ordered-sequential"}.} \item{direction}{If 1, the default, then use the original order of colors. If -1, then reverse the order.} } \description{ Color palettes used in \href{http://www.tableausoftware.com/}{Tableau}. } \details{ Tableau provides three types of color palettes: \code{"regular"} (discrete, qualitative categories), \code{"ordered-sequential"}, and \code{"ordered-diverging"}. \itemize{ \item{\code{"regular"}}{\Sexpr[results=rd]{ggthemes:::rd_optlist(names(ggthemes::ggthemes_data$tableau[["color-palettes"]][["regular"]]))}} \item{\code{"ordered-diverging"}}{\Sexpr[results=rd]{ggthemes:::rd_optlist(names(ggthemes::ggthemes_data$tableau[["color-palettes"]][["ordered-diverging"]]))}} \item{\code{"ordered-sequential"}}{\Sexpr[results=rd]{ggthemes:::rd_optlist(names(ggthemes::ggthemes_data$tableau[["color-palettes"]][["ordered-sequential"]]))}} } } \examples{ library("scales") palettes <- ggthemes_data[["tableau"]][["color-palettes"]][["regular"]] for (palname in names(palettes)) { pal <- tableau_color_pal(palname) max_n <- attr(pal, "max_n") show_col(pal(max_n)) title(main = palname) } } \references{ \url{http://vis.stanford.edu/color-names/analyzer/} Maureen Stone, 'Designing Colors for Data' (slides), at the International Symposium on Computational Aesthetics in Graphics, Visualization, and Imaging, Banff, AB, Canada, June 22, 2007 \url{http://www.stonesc.com/slides/CompAe\%202007.pdf}. Heer, Jeffrey and Maureen Stone, 2012 'Color Naming Models for Color Selection, Image Editing and Palette Design', ACM Human Factors in Computing Systems (CHI) \url{http://vis.stanford.edu/files/2012-ColorNameModels-CHI.pdf}. } \seealso{ Other colour tableau: \code{\link{scale_colour_gradient2_tableau}}, \code{\link{scale_colour_gradient_tableau}}, \code{\link{scale_colour_tableau}}, \code{\link{tableau_gradient_pal}} } \concept{colour tableau} ggthemes/man/scale_linetype_stata.Rd0000644000176200001440000000535213466112344017324 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/stata.R \name{scale_linetype_stata} \alias{scale_linetype_stata} \title{Stata linetype palette (discrete)} \usage{ scale_linetype_stata(...) } \arguments{ \item{...}{Arguments passed on to \code{discrete_scale} \describe{ \item{palette}{A palette function that when called with a single integer argument (the number of levels in the scale) returns the values that they should take.} \item{breaks}{One of: \itemize{ \item \code{NULL} for no breaks \item \code{waiver()} for the default breaks computed by the transformation object \item A character vector of breaks \item A function that takes the limits as input and returns breaks as output }} \item{limits}{A character vector that defines possible values of the scale and their order.} \item{drop}{Should unused factor levels be omitted from the scale? The default, \code{TRUE}, uses the levels that appear in the data; \code{FALSE} uses all the levels in the factor.} \item{na.translate}{Unlike continuous scales, discrete scales can easily show missing values, and do so by default. If you want to remove missing values from a discrete scale, specify \code{na.translate = FALSE}.} \item{na.value}{If \code{na.translate = TRUE}, what value aesthetic value should missing be displayed as? Does not apply to position scales where \code{NA} is always placed at the far right.} \item{aesthetics}{The names of the aesthetics that this scale works with} \item{scale_name}{The name of the scale} \item{name}{The name of the scale. Used as the axis or legend title. If \code{waiver()}, the default, the name of the scale is taken from the first mapping used for that aesthetic. If \code{NULL}, the legend title will be omitted.} \item{labels}{One of: \itemize{ \item \code{NULL} for no labels \item \code{waiver()} for the default labels computed by the transformation object \item A character vector giving labels (must be same length as \code{breaks}) \item A function that takes the breaks as input and returns labels as output }} \item{guide}{A function used to create a guide or its name. See \code{\link[=guides]{guides()}} for more info.} \item{super}{The super class to use for the constructed scale} }} } \description{ See \code{\link{stata_linetype_pal}()} for details. } \examples{ require("ggplot2") if (require("tidyr") && require("dplyr")) { rescale01 <- function(x) { (x - min(x)) / diff(range(x)) } gather(economics, variable, value, -date) \%>\% group_by(variable) \%>\% mutate(value = rescale01(value)) \%>\% ggplot(aes(x = date, y = value, linetype = variable)) + geom_line() + scale_linetype_stata() } } \seealso{ Other linetype stata: \code{\link{stata_linetype_pal}} } \concept{linetype stata} ggthemes/man/excel_pal.Rd0000644000176200001440000000144013323452013015046 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/excel.R \name{excel_pal} \alias{excel_pal} \title{Excel 97 ugly color palettes (discrete)} \usage{ excel_pal(line = TRUE) } \arguments{ \item{line}{If \code{TRUE}, use the palette for lines and points. Otherwise, use the palette for area.} } \description{ The color palettes used in Microsoft Excel 97 (and up until Excel 2007). Use this for that classic ugly look and feel. For ironic purposes only. 3D bars and pies not included. Please never use this color palette. } \examples{ library("scales") show_col(excel_pal()(7)) show_col(excel_pal(line = FALSE)(7)) } \seealso{ Other colour excel: \code{\link{excel_new_pal}}, \code{\link{scale_colour_excel_new}}, \code{\link{scale_fill_excel}} } \concept{colour excel} ggthemes/man/geom_tufteboxplot.Rd0000644000176200001440000001242613340063456016676 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/geom-tufteboxplot.R \docType{data} \name{geom_tufteboxplot} \alias{geom_tufteboxplot} \alias{GeomTufteboxplot} \title{Tufte's Box Plot} \usage{ geom_tufteboxplot(mapping = NULL, data = NULL, stat = "fivenumber", position = "dodge", outlier.colour = "black", outlier.shape = 19, outlier.size = 1.5, outlier.stroke = 0.5, voffset = 0.01, hoffset = 0.005, na.rm = FALSE, show.legend = NA, inherit.aes = TRUE, median.type = "point", whisker.type = "line", ...) } \arguments{ \item{mapping}{Set of aesthetic mappings created by \code{\link[=aes]{aes()}} or \code{\link[=aes_]{aes_()}}. If specified and \code{inherit.aes = TRUE} (the default), it is combined with the default mapping at the top level of the plot. You must supply \code{mapping} if there is no plot mapping.} \item{data}{The data to be displayed in this layer. There are three options: If \code{NULL}, the default, the data is inherited from the plot data as specified in the call to \code{\link[=ggplot]{ggplot()}}. A \code{data.frame}, or other object, will override the plot data. All objects will be fortified to produce a data frame. See \code{\link[=fortify]{fortify()}} for which variables will be created. A \code{function} will be called with a single argument, the plot data. The return value must be a \code{data.frame}, and will be used as the layer data.} \item{stat}{The statistical transformation to use on the data for this layer, as a string.} \item{position}{Position adjustment, either as a string, or the result of a call to a position adjustment function.} \item{outlier.colour}{colour for outlying points} \item{outlier.shape}{shape of outlying points} \item{outlier.size}{size of outlying points} \item{outlier.stroke}{stroke for outlying points} \item{voffset}{controls the size of the gap in the line representing the median when \code{median.type = 'line'}. This is a fraction of the range of \code{y}.} \item{hoffset}{controls how much the interquartile line is offset from the whiskers when \code{median.type = 'line'}. This is a fraction of the range of \code{x}.} \item{na.rm}{If \code{FALSE}, the default, missing values are removed with a warning. If \code{TRUE}, missing values are silently removed.} \item{show.legend}{logical. Should this layer be included in the legends? \code{NA}, the default, includes if any aesthetics are mapped. \code{FALSE} never includes, and \code{TRUE} always includes. It can also be a named logical vector to finely select the aesthetics to display.} \item{inherit.aes}{If \code{FALSE}, overrides the default aesthetics, rather than combining with them. This is most useful for helper functions that define both data and aesthetics and shouldn't inherit behaviour from the default plot specification, e.g. \code{\link[=borders]{borders()}}.} \item{median.type}{If \code{'point'}, then the median is represented by a point, and the interquartile range by a gap in the line. If \code{median.type='line'}, then the interquartile range is represented by a line, possibly offset, and the median by a gap in the line.} \item{whisker.type}{If \code{'line'}, then whiskers are represented by lines. If \code{'point'}, then whiskers are represented by points at \code{ymin} and \code{ymax}.} \item{...}{Other arguments passed on to \code{\link[=layer]{layer()}}. These are often aesthetics, used to set an aesthetic to a fixed value, like \code{colour = "red"} or \code{size = 3}. They may also be parameters to the paired geom/stat.} } \description{ Edward Tufte's revisions of the box plot as described in \emph{The Visual Display of Quantitative Information}. This functions provides several box plot variants: \itemize{ \item{A point indicating the median, a gap indicating the interquartile range, and lines for whiskers.} \item{An offset line indicating the interquartile range and a gap indicating the median.} \item{A line indicating the interquartile range, a gap indicating the median, and points indicating the minimum and maximum values} \item{A wide line indicating the interquartile range, a gap indicating the median, and lines indicating the minimum and maximum.} } } \section{Aesthetics}{ \itemize{ \item x [required] \item y [required] \item colour \item size \item linetype \item shape \item fill \item alpha } } \examples{ library("ggplot2") p <- ggplot(mtcars, aes(factor(cyl), mpg)) # with a point for the median and lines for whiskers p + geom_tufteboxplot() # with a line for the interquartile range and points for whiskers p + geom_tufteboxplot(median.type = "line", whisker.type = "point", hoffset = 0) # with a wide line for the interquartile range and lines for whiskers p + geom_tufteboxplot(median.type = "line", hoffset = 0, width = 3) # with an offset line for the interquartile range and lines for whiskers p + geom_tufteboxplot(median.type = "line") # combined with theme_tufte p + geom_tufteboxplot() + theme_tufte() + theme(axis.ticks.x = element_blank()) } \references{ Tufte, Edward R. (2001) The Visual Display of Quantitative Information, Chapter 6. McGill, R., Tukey, J. W. and Larsen, W. A. (1978) Variations of box plots. The American Statistician 32, 12-16. } \seealso{ \code{\link{geom_boxplot}()} Other geom tufte: \code{\link{geom_rangeframe}} } \concept{geom tufte} \keyword{datasets} ggthemes/man/cleveland_shape_pal.Rd0000644000176200001440000000407013340060734017071 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/shapes.R \name{cleveland_shape_pal} \alias{cleveland_shape_pal} \title{Shape palette from Cleveland "Elements of Graphing Data" (discrete).} \usage{ cleveland_shape_pal(overlap = TRUE) } \arguments{ \item{overlap}{\code{logical} Use the scale for overlapping points?} } \description{ Shape palettes for overlapping and non-overlapping points. } \note{ In the \emph{Elements of Graphing Data}, W.S. Cleveland suggests two shape palettes for scatter plots: one for overlapping data and another for non-overlapping data. The symbols for overlapping data relies on pattern discrimination, while the symbols for non-overlapping data vary the amount of fill. This palette attempts to create these palettes. However, I found that these were hard to replicate. Using the R shapes and unicode fonts: the symbols can vary in size, they are dependent of the fonts used, and there does not exist a unicode symbol for a circle with a vertical line. If someone can improve this palette, please let me know. Following Tremmel (1995), I replace the circle with a vertical line with an encircled plus sign. The palette \code{cleveland_shape_pal()} supports up to five values. } \examples{ ### (discrete). library("ggplot2") p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, shape = factor(gear))) + facet_wrap(~am) + theme_bw() # overlapping symbol palette p + scale_shape_cleveland() # non-overlapping symbol palette p + scale_shape_cleveland(overlap = FALSE) } \references{ Cleveland WS. \emph{The Elements of Graphing Data}. Revised Edition. Hobart Press, Summit, NJ, 1994, pp. 154-164, 234-239. Tremmel, Lothar, (1995) "The Visual Separability of Plotting Symbols in Scatterplots", \emph{Journal of Computational and Graphical Statistics}, \url{http://www.jstor.org/stable/1390760} } \seealso{ Other shapes: \code{\link{circlefill_shape_pal}}, \code{\link{scale_shape_circlefill}}, \code{\link{scale_shape_cleveland}}, \code{\link{scale_shape_tremmel}}, \code{\link{tremmel_shape_pal}} } \concept{shapes} ggthemes/man/calc_shape_pal.Rd0000644000176200001440000000066413317752172016053 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/calc.R \name{calc_shape_pal} \alias{calc_shape_pal} \title{Calc shape palette (discrete)} \usage{ calc_shape_pal() } \description{ Shape palette based on the shapes used in LibreOffice Calc. } \examples{ library("ggplot2") \dontrun{ show_shapes(calc_shape_pal()(13)) } } \seealso{ Other shapes calc: \code{\link{scale_shape_calc}} } \concept{shapes calc} ggthemes/man/gdocs_pal.Rd0000644000176200001440000000063613317752173015070 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/gdocs.R \name{gdocs_pal} \alias{gdocs_pal} \title{Google Docs color palette (discrete)} \usage{ gdocs_pal() } \description{ Color palettes from Google Docs. This palette includes 20 colors. } \examples{ library("scales") show_col(gdocs_pal()(20)) } \seealso{ Other colour gdocs: \code{\link{scale_fill_gdocs}} } \concept{colour gdocs} ggthemes/man/theme_calc.Rd0000644000176200001440000000131213317752172015210 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/calc.R \name{theme_calc} \alias{theme_calc} \title{Theme Calc} \usage{ theme_calc(base_size = 10, base_family = "sans") } \arguments{ \item{base_size}{base font size} \item{base_family}{base font family} } \description{ Theme similar to the default settings of LibreOffice Calc charts. } \examples{ library("ggplot2") p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, colour = factor(gear))) + facet_wrap(~am) + theme_calc() p + scale_color_calc() q <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, shape = factor(gear))) + facet_wrap(~am) + theme_calc() q + scale_shape_calc() } \concept{themes calc} ggthemes/man/scale_shape_circlefill.Rd0000644000176200001440000000510213340063456017560 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/shapes.R \name{scale_shape_circlefill} \alias{scale_shape_circlefill} \title{Filled Circle Shape palette (discrete)} \usage{ scale_shape_circlefill(...) } \arguments{ \item{...}{Arguments passed on to \code{discrete_scale} \describe{ \item{palette}{A palette function that when called with a single integer argument (the number of levels in the scale) returns the values that they should take.} \item{breaks}{One of: \itemize{ \item \code{NULL} for no breaks \item \code{waiver()} for the default breaks computed by the transformation object \item A character vector of breaks \item A function that takes the limits as input and returns breaks as output }} \item{limits}{A character vector that defines possible values of the scale and their order.} \item{drop}{Should unused factor levels be omitted from the scale? The default, \code{TRUE}, uses the levels that appear in the data; \code{FALSE} uses all the levels in the factor.} \item{na.translate}{Unlike continuous scales, discrete scales can easily show missing values, and do so by default. If you want to remove missing values from a discrete scale, specify \code{na.translate = FALSE}.} \item{na.value}{If \code{na.translate = TRUE}, what value aesthetic value should missing be displayed as? Does not apply to position scales where \code{NA} is always placed at the far right.} \item{aesthetics}{The names of the aesthetics that this scale works with} \item{scale_name}{The name of the scale} \item{name}{The name of the scale. Used as the axis or legend title. If \code{waiver()}, the default, the name of the scale is taken from the first mapping used for that aesthetic. If \code{NULL}, the legend title will be omitted.} \item{labels}{One of: \itemize{ \item \code{NULL} for no labels \item \code{waiver()} for the default labels computed by the transformation object \item A character vector giving labels (must be same length as \code{breaks}) \item A function that takes the breaks as input and returns labels as output }} \item{guide}{A function used to create a guide or its name. See \code{\link[=guides]{guides()}} for more info.} \item{super}{The super class to use for the constructed scale} }} } \description{ Filled Circle Shape palette (discrete) } \seealso{ \code{\link{circlefill_shape_pal}()} for a description of the palette. Other shapes: \code{\link{circlefill_shape_pal}}, \code{\link{cleveland_shape_pal}}, \code{\link{scale_shape_cleveland}}, \code{\link{scale_shape_tremmel}}, \code{\link{tremmel_shape_pal}} } \concept{shapes} ggthemes/man/scale_stata.Rd0000644000176200001440000000577313340063456015422 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/stata.R \name{scale_colour_stata} \alias{scale_colour_stata} \alias{scale_fill_stata} \alias{scale_color_stata} \title{Stata color scales} \usage{ scale_colour_stata(scheme = "s2color", ...) scale_fill_stata(scheme = "s2color", ...) scale_color_stata(scheme = "s2color", ...) } \arguments{ \item{scheme}{\code{character}. One of \code{"s2color"}, \code{"s1rcolor"}, \code{"s1color"}, or \code{"mono"}.} \item{...}{Arguments passed on to \code{discrete_scale} \describe{ \item{palette}{A palette function that when called with a single integer argument (the number of levels in the scale) returns the values that they should take.} \item{breaks}{One of: \itemize{ \item \code{NULL} for no breaks \item \code{waiver()} for the default breaks computed by the transformation object \item A character vector of breaks \item A function that takes the limits as input and returns breaks as output }} \item{limits}{A character vector that defines possible values of the scale and their order.} \item{drop}{Should unused factor levels be omitted from the scale? The default, \code{TRUE}, uses the levels that appear in the data; \code{FALSE} uses all the levels in the factor.} \item{na.translate}{Unlike continuous scales, discrete scales can easily show missing values, and do so by default. If you want to remove missing values from a discrete scale, specify \code{na.translate = FALSE}.} \item{na.value}{If \code{na.translate = TRUE}, what value aesthetic value should missing be displayed as? Does not apply to position scales where \code{NA} is always placed at the far right.} \item{scale_name}{The name of the scale} \item{name}{The name of the scale. Used as the axis or legend title. If \code{waiver()}, the default, the name of the scale is taken from the first mapping used for that aesthetic. If \code{NULL}, the legend title will be omitted.} \item{labels}{One of: \itemize{ \item \code{NULL} for no labels \item \code{waiver()} for the default labels computed by the transformation object \item A character vector giving labels (must be same length as \code{breaks}) \item A function that takes the breaks as input and returns labels as output }} \item{expand}{Vector of range expansion constants used to add some padding around the data, to ensure that they are placed some distance away from the axes. Use the convenience function \code{\link[=expand_scale]{expand_scale()}} to generate the values for the \code{expand} argument. The defaults are to expand the scale by 5\% on each side for continuous variables, and by 0.6 units on each side for discrete variables.} \item{guide}{A function used to create a guide or its name. See \code{\link[=guides]{guides()}} for more info.} \item{position}{The position of the axis. "left" or "right" for vertical scales, "top" or "bottom" for horizontal scales} \item{super}{The super class to use for the constructed scale} }} } \description{ See \code{\link{stata_pal}()} for details. } \concept{colour stata} ggthemes/man/range_breaks.Rd0000644000176200001440000000335513340060734015550 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/scales.R \name{extended_range_breaks_} \alias{extended_range_breaks_} \alias{extended_range_breaks} \title{Pretty axis breaks inclusive of extreme values} \usage{ extended_range_breaks_(dmin, dmax, n = 5, Q = c(1, 5, 2, 2.5, 4, 3), w = c(0.25, 0.2, 0.5, 0.05)) extended_range_breaks(n = 5, ...) } \arguments{ \item{dmin}{minimum of the data range} \item{dmax}{maximum of the data range} \item{n}{desired number of breaks} \item{Q}{set of nice numbers} \item{w}{weights applied to the four optimization components (simplicity, coverage, density, and legibility)} \item{...}{other arguments passed to \code{extended_range_breaks_()}} } \value{ For \code{extended_range_breaks}, the vector of axis label locations. For \code{scales_extended_range_breaks}, a function which takes a single argument, a vector of data, and returns the vector of axis label locations. A function which returns breaks given a vector. } \description{ This function returns pretty axis breaks that always include the extreme values of the data. This works by calling the extended Wilkinson algorithm (Talbot et. al, 2010), constrained to solutions interior to the data range. Then, the minimum and maximum labels are moved to the minimum and maximum of the data range. } \details{ \code{extended_range_breaks} implements the algorithm and returns the break values. \code{scales_extended_range_breaks} uses the conventions of the \pkg{scales} package, and returns a function. } \references{ Talbot, J., Lin, S., Hanrahan, P. (2010) An Extension of Wilkinson's Algorithm for Positioning Tick Labels on Axes, InfoVis 2010. } \author{ Justin Talbot \email{jtalbot@stanford.edu}, Jeffrey B. Arnold, Baptiste Auguie } ggthemes/man/theme_solid.Rd0000644000176200001440000000166613453127565015437 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/theme-solid.R \name{theme_solid} \alias{theme_solid} \title{Theme with nothing other than a background color} \usage{ theme_solid(base_size = 12, base_family = "", fill = NA) } \arguments{ \item{base_size}{Base font size.} \item{base_family}{Ignored, kept for consistency with \code{\link{theme}()}.} \item{fill}{Background color of the plot.} } \description{ Theme that removes all non-geom elements (lines, text, etc), This theme is when only the geometric objects are desired. } \examples{ library("ggplot2") ggplot(mtcars, aes(wt, mpg)) + geom_point() + theme_solid(fill = "white") ggplot(mtcars, aes(wt, mpg)) + geom_point(color = "white") + theme_solid(fill = "black") } \seealso{ Other themes: \code{\link{theme_base}}, \code{\link{theme_clean}}, \code{\link{theme_foundation}}, \code{\link{theme_igray}}, \code{\link{theme_par}} } \concept{themes} ggthemes/man/scale_economist.Rd0000644000176200001440000000576213340063456016304 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/economist.R \name{scale_colour_economist} \alias{scale_colour_economist} \alias{scale_color_economist} \alias{scale_fill_economist} \title{Economist color scales} \usage{ scale_colour_economist(...) scale_color_economist(...) scale_fill_economist(...) } \arguments{ \item{...}{Arguments passed on to \code{discrete_scale} \describe{ \item{palette}{A palette function that when called with a single integer argument (the number of levels in the scale) returns the values that they should take.} \item{breaks}{One of: \itemize{ \item \code{NULL} for no breaks \item \code{waiver()} for the default breaks computed by the transformation object \item A character vector of breaks \item A function that takes the limits as input and returns breaks as output }} \item{limits}{A character vector that defines possible values of the scale and their order.} \item{drop}{Should unused factor levels be omitted from the scale? The default, \code{TRUE}, uses the levels that appear in the data; \code{FALSE} uses all the levels in the factor.} \item{na.translate}{Unlike continuous scales, discrete scales can easily show missing values, and do so by default. If you want to remove missing values from a discrete scale, specify \code{na.translate = FALSE}.} \item{na.value}{If \code{na.translate = TRUE}, what value aesthetic value should missing be displayed as? Does not apply to position scales where \code{NA} is always placed at the far right.} \item{scale_name}{The name of the scale} \item{name}{The name of the scale. Used as the axis or legend title. If \code{waiver()}, the default, the name of the scale is taken from the first mapping used for that aesthetic. If \code{NULL}, the legend title will be omitted.} \item{labels}{One of: \itemize{ \item \code{NULL} for no labels \item \code{waiver()} for the default labels computed by the transformation object \item A character vector giving labels (must be same length as \code{breaks}) \item A function that takes the breaks as input and returns labels as output }} \item{expand}{Vector of range expansion constants used to add some padding around the data, to ensure that they are placed some distance away from the axes. Use the convenience function \code{\link[=expand_scale]{expand_scale()}} to generate the values for the \code{expand} argument. The defaults are to expand the scale by 5\% on each side for continuous variables, and by 0.6 units on each side for discrete variables.} \item{guide}{A function used to create a guide or its name. See \code{\link[=guides]{guides()}} for more info.} \item{position}{The position of the axis. "left" or "right" for vertical scales, "top" or "bottom" for horizontal scales} \item{super}{The super class to use for the constructed scale} }} } \description{ Color scales using the colors in the Economist graphics. } \seealso{ \code{\link{theme_economist}()} for examples. Other colour economist: \code{\link{economist_pal}} } \concept{colour economist} ggthemes/man/stata_pal.Rd0000644000176200001440000000131613317752173015101 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/stata.R \name{stata_pal} \alias{stata_pal} \title{Stata color palettes (discrete)} \usage{ stata_pal(scheme = "s2color") } \arguments{ \item{scheme}{\code{character}. One of \code{"s2color"}, \code{"s1rcolor"}, \code{"s1color"}, or \code{"mono"}.} } \description{ Stata color palettes. See Stata documentation for a description of the schemes, \url{http://www.stata.com/help.cgi?schemes}. } \details{ All these palettes support up to 15 values. } \examples{ library("scales") show_col(stata_pal("s2color")(15)) show_col(stata_pal("s1rcolor")(15)) show_col(stata_pal("s1color")(15)) show_col(stata_pal("mono")(15)) } \concept{stata colour} ggthemes/man/tableau_gradient_pal.Rd0000644000176200001440000000327113432363706017257 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/tableau.R \name{tableau_gradient_pal} \alias{tableau_gradient_pal} \alias{tableau_seq_gradient_pal} \alias{tableau_div_gradient_pal} \title{Tableau colour gradient palettes (continuous)} \usage{ tableau_gradient_pal(palette = "Blue", type = "ordered-sequential") tableau_seq_gradient_pal(palette = "Blue", ...) tableau_div_gradient_pal(palette = "Orange-Blue Diverging", ...) } \arguments{ \item{palette}{Palette name. \itemize{ \item{\code{"ordered-sequential"}}{\Sexpr[results=rd]{ggthemes:::rd_optlist(names(ggthemes::ggthemes_data$tableau[["color-palettes"]][["ordered-sequential"]]))}} \item{\code{"ordered-diverging"}}{\Sexpr[results=rd]{ggthemes:::rd_optlist(names(ggthemes::ggthemes_data$tableau[["color-palettes"]][["ordered-diverging"]]))}} }} \item{type}{Palette type, either \code{"ordered-sequential"} or \code{"ordered-diverging"}.} \item{...}{Arguments passed to \code{tableau_gradient_pal}.} } \description{ Gradient color palettes using the diverging and sequential continous color palettes in Tableau. See \funclink{tableau_color_pal} for discrete color palettes. } \examples{ library("scales") x <- seq(0, 1, length = 25) r <- sqrt(outer(x ^ 2, x ^ 2, "+")) palettes <- ggthemes_data[["tableau"]][["color-palettes"]][["ordered-sequential"]] for (palname in names(palettes)) { col <- tableau_seq_gradient_pal(palname)(seq(0, 1, length = 12)) image(r, col = col) title(main = palname) } } \seealso{ Other colour tableau: \code{\link{scale_colour_gradient2_tableau}}, \code{\link{scale_colour_gradient_tableau}}, \code{\link{scale_colour_tableau}}, \code{\link{tableau_color_pal}} } \concept{colour tableau} ggthemes/man/scale_excel.Rd0000644000176200001440000000645013340057027015374 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/excel.R \name{scale_fill_excel} \alias{scale_fill_excel} \alias{scale_colour_excel} \alias{scale_color_excel} \title{Excel 97 ugly color scales} \usage{ scale_fill_excel(...) scale_colour_excel(...) scale_color_excel(...) } \arguments{ \item{...}{Arguments passed on to \code{discrete_scale} \describe{ \item{palette}{A palette function that when called with a single integer argument (the number of levels in the scale) returns the values that they should take.} \item{breaks}{One of: \itemize{ \item \code{NULL} for no breaks \item \code{waiver()} for the default breaks computed by the transformation object \item A character vector of breaks \item A function that takes the limits as input and returns breaks as output }} \item{limits}{A character vector that defines possible values of the scale and their order.} \item{drop}{Should unused factor levels be omitted from the scale? The default, \code{TRUE}, uses the levels that appear in the data; \code{FALSE} uses all the levels in the factor.} \item{na.translate}{Unlike continuous scales, discrete scales can easily show missing values, and do so by default. If you want to remove missing values from a discrete scale, specify \code{na.translate = FALSE}.} \item{na.value}{If \code{na.translate = TRUE}, what value aesthetic value should missing be displayed as? Does not apply to position scales where \code{NA} is always placed at the far right.} \item{scale_name}{The name of the scale} \item{name}{The name of the scale. Used as the axis or legend title. If \code{waiver()}, the default, the name of the scale is taken from the first mapping used for that aesthetic. If \code{NULL}, the legend title will be omitted.} \item{labels}{One of: \itemize{ \item \code{NULL} for no labels \item \code{waiver()} for the default labels computed by the transformation object \item A character vector giving labels (must be same length as \code{breaks}) \item A function that takes the breaks as input and returns labels as output }} \item{expand}{Vector of range expansion constants used to add some padding around the data, to ensure that they are placed some distance away from the axes. Use the convenience function \code{\link[=expand_scale]{expand_scale()}} to generate the values for the \code{expand} argument. The defaults are to expand the scale by 5\% on each side for continuous variables, and by 0.6 units on each side for discrete variables.} \item{guide}{A function used to create a guide or its name. See \code{\link[=guides]{guides()}} for more info.} \item{position}{The position of the axis. "left" or "right" for vertical scales, "top" or "bottom" for horizontal scales} \item{super}{The super class to use for the constructed scale} }} } \description{ The classic "ugly" color scales from Excel 97. } \examples{ library("ggplot2") # Line and scatter plot colors p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, colour = factor(gear))) + facet_wrap(~am) p + theme_excel() + scale_colour_excel() # Bar plot (area/fill) colors ggplot(mpg, aes(x = class, fill = drv)) + geom_bar() + scale_fill_excel() + theme_excel() } \seealso{ Other colour excel: \code{\link{excel_new_pal}}, \code{\link{excel_pal}}, \code{\link{scale_colour_excel_new}} } \concept{colour excel} ggthemes/man/solarized_pal.Rd0000644000176200001440000000155213325413240015747 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/solarized.R \name{solarized_pal} \alias{solarized_pal} \title{Solarized color palette (discrete)} \usage{ solarized_pal(accent = "blue") } \arguments{ \item{accent}{\code{character} Starting color.} } \description{ Qualitative color palate based on the Ethan Schoonover's Solarized palette, \url{http://ethanschoonover.com/solarized}. This palette supports up to seven values. } \note{ For a given starting color and number of colors in the palette, the other colors are the combination of colors that maximizes the total Euclidean distance between colors in L*a*b space. } \examples{ library("scales") show_col(solarized_pal()(2)) show_col(solarized_pal()(3)) show_col(solarized_pal("red")(4)) } \seealso{ Other solarized colour: \code{\link{scale_fill_solarized}} } \concept{solarized colour} ggthemes/man/smart_digits.Rd0000644000176200001440000000145613340063456015622 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/scales.R \name{smart_digits} \alias{smart_digits} \alias{smart_digits_format} \title{Format numbers with automatic number of digits} \usage{ smart_digits(x, ...) smart_digits_format(x, ...) } \arguments{ \item{x}{A numeric vector to format} \item{...}{Parameters passed to \code{\link{format}()}} } \value{ A character vector. \code{smart_digits_format()} returns a function with a single argument \code{x}, a numeric vector, that returns a charactger vector. } \description{ Format numbers with automatic number of digits } \references{ Josh O'Brien, \url{http://stackoverflow.com/questions/23169938/select-accuracy-to-display-additional-axis-breaks/23171858#23171858}. } \author{ Josh O'Brien, Baptise Auguie, Jeffrey B. Arnold } ggthemes/man/theme_foundation.Rd0000644000176200001440000000240213453127565016460 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/theme-foundation.R \name{theme_foundation} \alias{theme_foundation} \title{Foundation Theme} \usage{ theme_foundation(base_size = 12, base_family = "") } \arguments{ \item{base_size}{base font size} \item{base_family}{base font family} } \description{ This theme is designed to be a foundation from which to build new themes, and not meant to be used directly. \code{theme_foundation()} is a complete theme with only minimal number of elements defined. It is easier to create new themes by extending this one rather than \code{\link[ggplot2]{theme_gray}()} or \code{\link[ggplot2]{theme_bw}()}, because those themes define elements deep in the hierarchy. } \details{ This theme takes \code{\link[ggplot2]{theme_gray}()} and sets all \code{colour} and \code{fill} values to \code{NULL}, except for the top-level elements (\code{line}, \code{rect}, and \code{title}), which have \code{colour = "black"}, and \code{fill = "white"}. This leaves the spacing and-non colour defaults of the default \pkg{ggplot2} themes in place. } \seealso{ Other themes: \code{\link{theme_base}}, \code{\link{theme_clean}}, \code{\link{theme_igray}}, \code{\link{theme_par}}, \code{\link{theme_solid}} } \concept{themes} ggthemes/man/scale_shape_tableau.Rd0000644000176200001440000000507313340060734017070 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/tableau.R \name{scale_shape_tableau} \alias{scale_shape_tableau} \title{Tableau shape scales} \usage{ scale_shape_tableau(palette = "default", ...) } \arguments{ \item{palette}{Palette name.} \item{...}{Arguments passed on to \code{discrete_scale} \describe{ \item{palette}{A palette function that when called with a single integer argument (the number of levels in the scale) returns the values that they should take.} \item{breaks}{One of: \itemize{ \item \code{NULL} for no breaks \item \code{waiver()} for the default breaks computed by the transformation object \item A character vector of breaks \item A function that takes the limits as input and returns breaks as output }} \item{limits}{A character vector that defines possible values of the scale and their order.} \item{drop}{Should unused factor levels be omitted from the scale? The default, \code{TRUE}, uses the levels that appear in the data; \code{FALSE} uses all the levels in the factor.} \item{na.translate}{Unlike continuous scales, discrete scales can easily show missing values, and do so by default. If you want to remove missing values from a discrete scale, specify \code{na.translate = FALSE}.} \item{na.value}{If \code{na.translate = TRUE}, what value aesthetic value should missing be displayed as? Does not apply to position scales where \code{NA} is always placed at the far right.} \item{aesthetics}{The names of the aesthetics that this scale works with} \item{scale_name}{The name of the scale} \item{name}{The name of the scale. Used as the axis or legend title. If \code{waiver()}, the default, the name of the scale is taken from the first mapping used for that aesthetic. If \code{NULL}, the legend title will be omitted.} \item{labels}{One of: \itemize{ \item \code{NULL} for no labels \item \code{waiver()} for the default labels computed by the transformation object \item A character vector giving labels (must be same length as \code{breaks}) \item A function that takes the breaks as input and returns labels as output }} \item{guide}{A function used to create a guide or its name. See \code{\link[=guides]{guides()}} for more info.} \item{super}{The super class to use for the constructed scale} }} } \description{ See \code{\link{tableau_shape_pal}()} for details. } \examples{ library("ggplot2") p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, shape = factor(gear))) + facet_wrap(~am) p + scale_shape_tableau() } \seealso{ Other shape tableau: \code{\link{tableau_shape_pal}} } \concept{shape tableau} ggthemes/man/theme_solarized.Rd0000644000176200001440000000270413340064634016303 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/solarized.R \name{theme_solarized} \alias{theme_solarized} \alias{theme_solarized_2} \title{ggplot color themes based on the Solarized palette} \usage{ theme_solarized(base_size = 12, base_family = "", light = TRUE) theme_solarized_2(base_size = 12, base_family = "", light = TRUE) } \arguments{ \item{base_size}{base font size} \item{base_family}{base font family} \item{light}{\code{logical}. Light or dark theme?} } \description{ See \url{http://ethanschoonover.com/solarized} for a description of the Solarized palette. } \details{ Plots made with this theme integrate seamlessly with the Solarized Beamer color theme. \url{https://github.com/jrnold/beamercolorthemesolarized}. There are two variations: \code{theme_solarized} is similar to to \code{\link[ggplot2]{theme_bw}()}, while \code{theme_solarized_2()} is similar to \code{\link[ggplot2]{theme_gray}()}. } \examples{ library("ggplot2") p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, colour = factor(gear))) # Light version with different main accent colors for (accent in names(ggthemes::ggthemes_data[["solarized"]][["accents"]])) { print(p + theme_solarized() + scale_colour_solarized(accent)) } # Dark version p + theme_solarized(light = FALSE) + scale_colour_solarized("blue") # Alternative theme p + theme_solarized_2(light = FALSE) + scale_colour_solarized("blue") } \concept{themes solarized} ggthemes/man/few_shape_pal.Rd0000644000176200001440000000076113325413240015715 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/few.R \name{few_shape_pal} \alias{few_shape_pal} \title{Shape palette from "Show Me the Numbers" (discrete)} \usage{ few_shape_pal() } \description{ Shape palette from Stephen Few's, "Show Me the Numbers". The shape palette consists of five shapes: circle, square, triangle, plus, times. } \references{ Few, S. (2012) \emph{Show Me the Numbers: Designing Tables and Graphs to Enlighten}, Analytics Press, p. 208. } ggthemes/man/canva_palettes.Rd0000644000176200001440000000450313466111663016121 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/canva.R \docType{data} \name{canva_palettes} \alias{canva_palettes} \title{150 Color Palettes from Canva} \format{A named \code{list} of character vector. The names are the palette names. The values of the character vectors are hex colors, e.g. \code{"#f98866"}.} \source{ \url{http://makeadifferencewithdata.com/wp-content/uploads/2016/12/color-palettes.txt} } \usage{ canva_palettes } \description{ 150 four-color palettes by the \href{https://designschool.canva.com}{canva.com} design school. These palettes were derived from photos and "impactful websites". } \examples{ require("ggplot2") require("tibble") if (require("purrr") && require("scales") && require("dplyr")) { canva_df <- map2_df( canva_palettes, names(canva_palettes), ~ tibble( colors = .x, .id = seq_along(colors), palette = .y ) ) ggplot(canva_df, aes( y = palette, x = .id, fill = colors )) + geom_raster() + scale_fill_identity(guide = FALSE) + theme_minimal() + theme(panel.grid = element_blank(), axis.text.x = element_blank()) + labs(x = "", y = "") show_col(canva_pal("Fresh and bright")(4)) show_col(canva_pal("Cool blues")(4)) show_col(canva_pal("Modern and crisp")(4)) } } \references{ \itemize{ \item{Janie Kliever, \href{https://designschool.canva.com/blog/100-color-combinations/}{100 Brilliant Color Combinations and How to Apply Them to Your Designs}, \emph{Canva.com}, June 20, 2015.} \item{Mary Stribley, \href{https://designschool.canva.com/blog/website-color-schemes/}{Website Color Schemes: The Palettes of 50 Visually Impactful Websites to Inspire You}, \emph{Canva.com}, January 26, 2016.} \item{Pablo Saenz de Tejeda, \href{http://makeadifferencewithdata.com/2017/01/150-paletas-colores-tableau/}{150 paletas de colores para Tableau}, January 1, 2017.} \item{Schwabish, Jonathan. \href{https://policyviz.com/2017/01/12/150-color-palettes-for-excel/}{150+ Color Palettes for Excel}, \emph{PolicyViz}, January 12, 2017.} } } \keyword{datasets} ggthemes/man/stata_shape_pal.Rd0000644000176200001440000000064013340063456016253 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/stata.R \name{stata_shape_pal} \alias{stata_shape_pal} \title{Stata shape palette (discrete)} \usage{ stata_shape_pal() } \description{ Shape palette based on the symbol palette in Stata used in scheme s2mono. This palette supports up to 10 values. } \seealso{ See \code{\link{scale_shape_stata}()} for examples. } \concept{shapes stata} ggthemes/man/ggthemes.Rd0000644000176200001440000000056513320276233014731 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/ggthemes-package.R \docType{package} \name{ggthemes} \alias{ggthemes} \alias{ggthemes-package} \title{ggthemes} \description{ This package contains extra themes, scales, and geoms, and functions for and related to \pkg{ggplot2}. See \url{https://jrnold.github.io/ggthemes/} for documentation. } ggthemes/man/ptol_pal.Rd0000644000176200001440000000152713325413240014733 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/ptol.R \name{ptol_pal} \alias{ptol_pal} \title{Color Palettes from Paul Tol's "Colour Schemes"} \usage{ ptol_pal() } \description{ Qualitative color palettes from Paul Tol, \href{https://personal.sron.nl/~pault/}{"Colour Schemes"}. } \details{ Incorporation of the palette into an R package was originally inspired by Peter Carl's [Paul Tol 21 Gun Salute](https://tradeblotter.wordpress.com/2013/02/28/the-paul-tol-21-color-salute/) } \examples{ library("scales") show_col(ptol_pal()(6)) show_col(ptol_pal()(4)) show_col(ptol_pal()(12)) } \references{ Paul Tol. 2012. "Colour Schemes." SRON Technical Note, SRON/EPS/TN/09-002. \url{https://personal.sron.nl/~pault/data/colourschemes.pdf} } \seealso{ Other colour ptol: \code{\link{scale_colour_ptol}} } \concept{colour ptol} ggthemes/man/theme_stata.Rd0000644000176200001440000000322513317752173015430 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/stata.R \name{theme_stata} \alias{theme_stata} \title{Themes based on Stata graph schemes} \usage{ theme_stata(base_size = 11, base_family = "sans", scheme = "s2color") } \arguments{ \item{base_size}{base font size} \item{base_family}{base font family} \item{scheme}{One of "s2color", "s2mono", "s1color", "s1rcolor", or "s1mono", "s2manual", "s1manual", or "sj"} } \description{ Themes based on Stata graph schemes } \details{ These themes approximate Stata schemes using the features \pkg{ggplot2}. The graphical models of Stata and ggplot2 differ in various ways that make an exact replication impossible (or more difficult than it is worth). Some features in Stata schemes not in ggplot2: defaults for specific graph types, different levels of titles, captions and notes. These themes also adopt some of the ggplot2 defaults, and more effort was made to match the colors and sizes of major elements than in matching the margins. } \examples{ library("ggplot2") p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, colour = factor(gear))) + facet_wrap(~ am) + labs(title = "Graphs by car type", x = "Weight (lbs.)", y = "MPG") # s2color p + theme_stata() + scale_colour_stata("s2color") # s2mono p + theme_stata(scheme = "s2mono") + scale_colour_stata("mono") # s1color p + theme_stata(scheme = "s2color") + scale_colour_stata("s1color") # s1rcolor p + theme_stata(scheme = "s1rcolor") + scale_colour_stata("s1rcolor") # s1mono p + theme_stata(scheme = "s1mono") + scale_colour_stata("mono") } \references{ \url{http://www.stata.com/help.cgi?schemes} } \concept{themes stata} ggthemes/man/macros/0000755000176200001440000000000013432363706014123 5ustar liggesusersggthemes/man/macros/funclink.Rd0000644000176200001440000000006013432363706016217 0ustar liggesusers\newcommand{\funclink}{\code{\link[=#1]{#1()}}} ggthemes/man/tableau_shape_pal.Rd0000644000176200001440000000200613317752173016557 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/tableau.R \name{tableau_shape_pal} \alias{tableau_shape_pal} \title{Tableau Shape Palettes (discrete)} \usage{ tableau_shape_pal(palette = c("default", "filled", "proportions")) } \arguments{ \item{palette}{Palette name.} } \description{ Shape palettes used by \href{http://www.tableausoftware.com/}{Tableau}. } \details{ Not all shape palettes in Tableau are supported. Additionally, these palettes are not exact, and use the best unicode character for the shape palette. Since these palettes use unicode characters, their look may depend on the font being used, and not all characters may be available. Shape palettes in Tableau are used to expose images for use a markers in charts, and thus are sometimes groupings of closely related symbols. } \examples{ \dontrun{ # need to set a font containing these values show_shapes(tableau_shape_pal()(5)) } } \seealso{ Other shape tableau: \code{\link{scale_shape_tableau}} } \concept{shape tableau} ggthemes/man/show_linetypes.Rd0000644000176200001440000000130413340063456016175 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/show.R \name{show_linetypes} \alias{show_linetypes} \title{Show linetypes} \usage{ show_linetypes(linetypes, labels = TRUE) } \arguments{ \item{linetypes}{A character vector of linetypes. See \code{\link{par}()}.} \item{labels}{Label each line with its linetype (lty) value.} } \value{ This function called for the side effect of creating a plot. It returns \code{linetypes}. } \description{ A quick and dirty way to show linetypes. } \examples{ library("scales") show_linetypes(linetype_pal()(3)) show_linetypes(linetype_pal()(3), labels = TRUE) } \seealso{ \code{\link[scales]{show_col}()}, \code{\link{show_linetypes}()} } ggthemes/man/scale_color_tableau.Rd0000644000176200001440000000350413466077407017121 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/tableau.R \name{scale_colour_tableau} \alias{scale_colour_tableau} \alias{scale_fill_tableau} \alias{scale_color_tableau} \title{Tableau color scales (discrete)} \usage{ scale_colour_tableau(palette = "Tableau 10", type = "regular", direction = 1, ...) scale_fill_tableau(palette = "Tableau 10", type = "regular", direction = 1, ...) scale_color_tableau(palette = "Tableau 10", type = "regular", direction = 1, ...) } \arguments{ \item{palette}{Palette name. See \funclink{tableau_color_pal} for available palettes.} \item{type}{Palette type. One of \code{"regular"}, \code{"sequential"}, or \code{"diverging"}. See \funclink{tableau_color_pal}.} \item{direction}{If 1, the default, then use the original order of colors. If -1, then reverse the order.} \item{...}{Other arguments passed on to \funclink{discrete_scale}.} } \description{ Categorical (qualitative) color scales used in Tableau. Use the function \funclink{scale_colour_gradient_tableau} for the sequential and \funclink{scale_colour_gradient2_tableau} for the diverging continuous color scales from Tableu. } \examples{ library("ggplot2") p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, colour = factor(gear))) + facet_wrap(~am) + theme_igray() palettes <- ggthemes_data[["tableau"]][["color-palettes"]][["regular"]] for (palette in head(names(palettes), 3L)) { print(p + scale_colour_tableau(palette) + ggtitle(palette)) } # the order of colour can be reversed p + scale_color_tableau(direction = -1) } \seealso{ \code{\link{tableau_color_pal}()} for references. Other colour tableau: \code{\link{scale_colour_gradient2_tableau}}, \code{\link{scale_colour_gradient_tableau}}, \code{\link{tableau_color_pal}}, \code{\link{tableau_gradient_pal}} } \concept{colour tableau} ggthemes/man/theme_hc.Rd0000644000176200001440000000405313325413240014672 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/hc.R \name{theme_hc} \alias{theme_hc} \title{Highcharts Theme} \usage{ theme_hc(base_size = 12, base_family = "sans", style = c("default", "darkunica"), bgcolor = NULL) } \arguments{ \item{base_size}{base font size} \item{base_family}{base font family} \item{style}{The Highcharts theme to use \code{'default'}, \code{'darkunica'}.} \item{bgcolor}{Deprecated} } \description{ Theme based on the plots in \url{Highcharts JS}. } \examples{ library("ggplot2") p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, colour = factor(gear))) + facet_wrap(~am) p + theme_hc() + scale_colour_hc() p + theme_hc(bgcolor = "darkunica") + scale_colour_hc("darkunica") dtemp <- data.frame(months = factor(rep(substr(month.name, 1, 3), 4), levels = substr(month.name, 1, 3)), city = rep(c("Tokyo", "New York", "Berlin", "London"), each = 12), temp = c(7.0, 6.9, 9.5, 14.5, 18.2, 21.5, 25.2, 26.5, 23.3, 18.3, 13.9, 9.6, -0.2, 0.8, 5.7, 11.3, 17.0, 22.0, 24.8, 24.1, 20.1, 14.1, 8.6, 2.5, -0.9, 0.6, 3.5, 8.4, 13.5, 17.0, 18.6, 17.9, 14.3, 9.0, 3.9, 1.0, 3.9, 4.2, 5.7, 8.5, 11.9, 15.2, 17.0, 16.6, 14.2, 10.3, 6.6, 4.8)) ggplot(dtemp, aes(x = months, y = temp, group = city, color = city)) + geom_line() + geom_point(size = 1.1) + ggtitle("Monthly Average Temperature") + theme_hc() + scale_colour_hc() ggplot(dtemp, aes(x = months, y = temp, group = city, color = city)) + geom_line() + geom_point(size = 1.1) + ggtitle("Monthly Average Temperature") + theme_hc(bgcolor = "darkunica") + scale_fill_hc("darkunica") } \references{ \url{http://www.highcharts.com/demo/line-basic} \url{https://github.com/highslide-software/highcharts.com/tree/master/js/themes} } \concept{themes hc} ggthemes/man/ggthemes_data.Rd0000644000176200001440000000062213305070111015702 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/ggthemes_data.R \docType{data} \name{ggthemes_data} \alias{ggthemes_data} \title{Palette and theme data} \format{A \code{list} object.} \usage{ ggthemes_data } \description{ The \code{ggthemes} environment contains various values used in themes and palettes. This is undocumented and subject to change. } \keyword{datasets} ggthemes/man/canva_pal.Rd0000644000176200001440000000260213466111663015052 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/canva.R \name{canva_pal} \alias{canva_pal} \title{Canva.com color palettes} \usage{ canva_pal(palette = "Fresh and bright") } \arguments{ \item{palette}{Palette name. See the names of \code{\link{canva_palettes}()} for valid names.} } \value{ A function that takes a single value, the number of colors to use. } \description{ 150+ color palettes from canva.com. See \code{\link{canva_palettes}()}. } \examples{ require("ggplot2") require("tibble") if (require("purrr") && require("scales") && require("dplyr")) { canva_df <- map2_df( canva_palettes, names(canva_palettes), ~ tibble( colors = .x, .id = seq_along(colors), palette = .y ) ) ggplot(canva_df, aes( y = palette, x = .id, fill = colors )) + geom_raster() + scale_fill_identity(guide = FALSE) + theme_minimal() + theme(panel.grid = element_blank(), axis.text.x = element_blank()) + labs(x = "", y = "") show_col(canva_pal("Fresh and bright")(4)) show_col(canva_pal("Cool blues")(4)) show_col(canva_pal("Modern and crisp")(4)) } } ggthemes/man/scale_solarized.Rd0000644000176200001440000000636113340063456016274 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/solarized.R \name{scale_fill_solarized} \alias{scale_fill_solarized} \alias{scale_colour_solarized} \alias{scale_color_solarized} \title{Solarized color scales} \usage{ scale_fill_solarized(accent = "blue", ...) scale_colour_solarized(accent = "blue", ...) scale_color_solarized(accent = "blue", ...) } \arguments{ \item{accent}{\code{character} Starting color.} \item{...}{Arguments passed on to \code{discrete_scale} \describe{ \item{palette}{A palette function that when called with a single integer argument (the number of levels in the scale) returns the values that they should take.} \item{breaks}{One of: \itemize{ \item \code{NULL} for no breaks \item \code{waiver()} for the default breaks computed by the transformation object \item A character vector of breaks \item A function that takes the limits as input and returns breaks as output }} \item{limits}{A character vector that defines possible values of the scale and their order.} \item{drop}{Should unused factor levels be omitted from the scale? The default, \code{TRUE}, uses the levels that appear in the data; \code{FALSE} uses all the levels in the factor.} \item{na.translate}{Unlike continuous scales, discrete scales can easily show missing values, and do so by default. If you want to remove missing values from a discrete scale, specify \code{na.translate = FALSE}.} \item{na.value}{If \code{na.translate = TRUE}, what value aesthetic value should missing be displayed as? Does not apply to position scales where \code{NA} is always placed at the far right.} \item{scale_name}{The name of the scale} \item{name}{The name of the scale. Used as the axis or legend title. If \code{waiver()}, the default, the name of the scale is taken from the first mapping used for that aesthetic. If \code{NULL}, the legend title will be omitted.} \item{labels}{One of: \itemize{ \item \code{NULL} for no labels \item \code{waiver()} for the default labels computed by the transformation object \item A character vector giving labels (must be same length as \code{breaks}) \item A function that takes the breaks as input and returns labels as output }} \item{expand}{Vector of range expansion constants used to add some padding around the data, to ensure that they are placed some distance away from the axes. Use the convenience function \code{\link[=expand_scale]{expand_scale()}} to generate the values for the \code{expand} argument. The defaults are to expand the scale by 5\% on each side for continuous variables, and by 0.6 units on each side for discrete variables.} \item{guide}{A function used to create a guide or its name. See \code{\link[=guides]{guides()}} for more info.} \item{position}{The position of the axis. "left" or "right" for vertical scales, "top" or "bottom" for horizontal scales} \item{super}{The super class to use for the constructed scale} }} } \description{ See \code{\link{solarized_pal}()} for details. } \examples{ library("ggplot2") p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, colour = factor(gear))) + facet_wrap(~am) p + theme_solarized() + scale_colour_solarized() } \seealso{ Other solarized colour: \code{\link{solarized_pal}} } \concept{colour scales} \concept{solarized colour} ggthemes/man/scale_colour_gradient2_tableau.Rd0000644000176200001440000000425413432557047021244 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/tableau.R \name{scale_colour_gradient2_tableau} \alias{scale_colour_gradient2_tableau} \alias{scale_fill_gradient2_tableau} \alias{scale_color_gradient2_tableau} \title{Tableau diverging colour scales (continuous)} \usage{ scale_colour_gradient2_tableau(palette = "Orange-Blue Diverging", ..., na.value = "grey50", guide = "colourbar") scale_fill_gradient2_tableau(palette = "Orange-Blue Diverging", ..., na.value = "grey50", guide = "colourbar") scale_color_gradient2_tableau(palette = "Orange-Blue Diverging", ..., na.value = "grey50", guide = "colourbar") } \arguments{ \item{palette}{Palette name. \itemize{ \item{\code{"ordered-sequential"}}{\Sexpr[results=rd]{ggthemes:::rd_optlist(names(ggthemes::ggthemes_data$tableau[["color-palettes"]][["ordered-sequential"]]))}} \item{\code{"ordered-diverging"}}{\Sexpr[results=rd]{ggthemes:::rd_optlist(names(ggthemes::ggthemes_data$tableau[["color-palettes"]][["ordered-diverging"]]))}} }} \item{...}{Arguments passed to \code{tableau_gradient_pal}.} \item{na.value}{Colour to use for missing values} \item{guide}{Type of legend. Use \code{'colourbar'} for continuous colour bar, or \code{'legend'} for discrete colour legend.} } \description{ Continuous color scales using the diverging color scales in Tableau. See \funclink{scale_colour_tableau} for Tabaleau discrete color scales, and \funclink{scale_colour_gradient_tableau} for sequential color scales. } \examples{ library("ggplot2") df <- data.frame( x = runif(100), y = runif(100), z1 = rnorm(100), z2 = abs(rnorm(100)) ) p <- ggplot(df, aes(x, y)) + geom_point(aes(colour = z2)) palettes <- ggthemes_data[["tableau"]][["color-palettes"]][["ordered-diverging"]] for (palette in head(names(palettes))) { print(p + scale_colour_gradient2_tableau(palette) + ggtitle(palette)) } # If you need to reverse a palette, use a transformation p + scale_colour_gradient2_tableau(trans = "reverse") } \seealso{ Other colour tableau: \code{\link{scale_colour_gradient_tableau}}, \code{\link{scale_colour_tableau}}, \code{\link{tableau_color_pal}}, \code{\link{tableau_gradient_pal}} } \concept{colour tableau} ggthemes/man/scale_wsj.Rd0000644000176200001440000000626513340063456015106 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/wsj.R \name{scale_colour_wsj} \alias{scale_colour_wsj} \alias{scale_color_wsj} \alias{scale_fill_wsj} \title{Wall Street Journal color and fill scales} \usage{ scale_colour_wsj(palette = "colors6", ...) scale_color_wsj(palette = "colors6", ...) scale_fill_wsj(palette = "colors6", ...) } \arguments{ \item{palette}{\code{character} The color palette to use: . \Sexpr[results=rd]{ggthemes:::rd_optlist(names(ggthemes::ggthemes_data$wsj$palettes))}} \item{...}{Arguments passed on to \code{discrete_scale} \describe{ \item{palette}{A palette function that when called with a single integer argument (the number of levels in the scale) returns the values that they should take.} \item{breaks}{One of: \itemize{ \item \code{NULL} for no breaks \item \code{waiver()} for the default breaks computed by the transformation object \item A character vector of breaks \item A function that takes the limits as input and returns breaks as output }} \item{limits}{A character vector that defines possible values of the scale and their order.} \item{drop}{Should unused factor levels be omitted from the scale? The default, \code{TRUE}, uses the levels that appear in the data; \code{FALSE} uses all the levels in the factor.} \item{na.translate}{Unlike continuous scales, discrete scales can easily show missing values, and do so by default. If you want to remove missing values from a discrete scale, specify \code{na.translate = FALSE}.} \item{na.value}{If \code{na.translate = TRUE}, what value aesthetic value should missing be displayed as? Does not apply to position scales where \code{NA} is always placed at the far right.} \item{scale_name}{The name of the scale} \item{name}{The name of the scale. Used as the axis or legend title. If \code{waiver()}, the default, the name of the scale is taken from the first mapping used for that aesthetic. If \code{NULL}, the legend title will be omitted.} \item{labels}{One of: \itemize{ \item \code{NULL} for no labels \item \code{waiver()} for the default labels computed by the transformation object \item A character vector giving labels (must be same length as \code{breaks}) \item A function that takes the breaks as input and returns labels as output }} \item{expand}{Vector of range expansion constants used to add some padding around the data, to ensure that they are placed some distance away from the axes. Use the convenience function \code{\link[=expand_scale]{expand_scale()}} to generate the values for the \code{expand} argument. The defaults are to expand the scale by 5\% on each side for continuous variables, and by 0.6 units on each side for discrete variables.} \item{guide}{A function used to create a guide or its name. See \code{\link[=guides]{guides()}} for more info.} \item{position}{The position of the axis. "left" or "right" for vertical scales, "top" or "bottom" for horizontal scales} \item{super}{The super class to use for the constructed scale} }} } \description{ Colour and fill scales which use the palettes in \code{\link{wsj_pal}()}. These scales should be used with \code{\link{theme_wsj}()}. } \seealso{ Other colour wsj: \code{\link{wsj_pal}} } \concept{colour wsj} ggthemes/man/scale_colour_canva.Rd0000644000176200001440000000127113340063456016746 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/canva.R \name{scale_colour_canva} \alias{scale_colour_canva} \alias{scale_color_canva} \alias{scale_fill_canva} \title{Discrete color scale using canva.com color palettes} \usage{ scale_colour_canva(..., palette = "Fresh and bright") scale_color_canva(..., palette = "Fresh and bright") scale_fill_canva(..., palette = "Fresh and bright") } \arguments{ \item{...}{Arguments passed to \code{\link{discrete_scale}()}.} \item{palette}{Palette name. See the names of \code{\link{canva_palettes}()} for valid names.} } \description{ Color scale for canva.com color palettes described in \code{\link{canva_palettes}()}. } ggthemes/man/stata_linetype_pal.Rd0000644000176200001440000000071213340063456017004 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/stata.R \name{stata_linetype_pal} \alias{stata_linetype_pal} \title{Stata linetype palette (discrete)} \usage{ stata_linetype_pal() } \description{ Linetype palette based on the linepattern scheme in Stata. This palette supports up to 15 values. } \seealso{ \code{\link{scale_linetype_stata}()} Other linetype stata: \code{\link{scale_linetype_stata}} } \concept{linetype stata} ggthemes/man/theme_excel.Rd0000644000176200001440000000207613416026223015405 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/excel.R \name{theme_excel} \alias{theme_excel} \title{ggplot theme based on old Excel plots} \usage{ theme_excel(base_size = 12, base_family = "", horizontal = TRUE) } \arguments{ \item{base_size}{base font size} \item{base_family}{base font family} \item{horizontal}{\code{logical}. Horizontal axis lines?} } \value{ An object of class \code{\link[ggplot2]{theme}()}. } \description{ Theme to replicate the ugly monstrosity that was the old gray-background Excel chart. Please never use this. This theme should be combined with the \code{\link{scale_colour_excel}()} color scale. } \examples{ library("ggplot2") # Line and scatter plot colors p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg, colour = factor(gear))) + facet_wrap(~am) p + theme_excel() + scale_colour_excel() # Bar plot (area/fill) colors ggplot(mpg, aes(x = class, fill = drv)) + geom_bar() + scale_fill_excel() + theme_excel() } \seealso{ Other themes excel: \code{\link{theme_excel_new}} } \concept{themes excel}