ggsci/0000755000176200001440000000000014570544004011351 5ustar liggesusersggsci/NAMESPACE0000644000176200001440000000456014570505642012602 0ustar liggesusers# Generated by roxygen2: do not edit by hand export(pal_aaas) export(pal_cosmic) export(pal_d3) export(pal_flatui) export(pal_frontiers) export(pal_futurama) export(pal_gsea) export(pal_igv) export(pal_jama) export(pal_jco) export(pal_lancet) export(pal_locuszoom) export(pal_material) export(pal_nejm) export(pal_npg) export(pal_rickandmorty) export(pal_simpsons) export(pal_startrek) export(pal_tron) export(pal_uchicago) export(pal_ucscgb) export(rgb_gsea) export(rgb_material) export(scale_color_aaas) export(scale_color_cosmic) export(scale_color_d3) export(scale_color_flatui) export(scale_color_frontiers) export(scale_color_futurama) export(scale_color_gsea) export(scale_color_igv) export(scale_color_jama) export(scale_color_jco) export(scale_color_lancet) export(scale_color_locuszoom) export(scale_color_material) export(scale_color_nejm) export(scale_color_npg) export(scale_color_rickandmorty) export(scale_color_simpsons) export(scale_color_startrek) export(scale_color_tron) export(scale_color_uchicago) export(scale_color_ucscgb) export(scale_colour_aaas) export(scale_colour_cosmic) export(scale_colour_d3) export(scale_colour_flatui) export(scale_colour_frontiers) export(scale_colour_futurama) export(scale_colour_gsea) export(scale_colour_igv) export(scale_colour_jama) export(scale_colour_jco) export(scale_colour_lancet) export(scale_colour_locuszoom) export(scale_colour_material) export(scale_colour_nejm) export(scale_colour_npg) export(scale_colour_rickandmorty) export(scale_colour_simpsons) export(scale_colour_startrek) export(scale_colour_tron) export(scale_colour_uchicago) export(scale_colour_ucscgb) export(scale_fill_aaas) export(scale_fill_cosmic) export(scale_fill_d3) export(scale_fill_flatui) export(scale_fill_frontiers) export(scale_fill_futurama) export(scale_fill_gsea) export(scale_fill_igv) export(scale_fill_jama) export(scale_fill_jco) export(scale_fill_lancet) export(scale_fill_locuszoom) export(scale_fill_material) export(scale_fill_nejm) export(scale_fill_npg) export(scale_fill_rickandmorty) export(scale_fill_simpsons) export(scale_fill_startrek) export(scale_fill_tron) export(scale_fill_uchicago) export(scale_fill_ucscgb) importFrom(ggplot2,discrete_scale) importFrom(ggplot2,scale_color_gradientn) importFrom(ggplot2,scale_fill_gradientn) importFrom(grDevices,col2rgb) importFrom(grDevices,colorRamp) importFrom(grDevices,rgb) importFrom(scales,manual_pal) ggsci/README.md0000644000176200001440000000775614570505642012654 0ustar liggesusers # ggsci [![R-CMD-check](https://github.com/nanxstats/ggsci/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/nanxstats/ggsci/actions/workflows/R-CMD-check.yaml) [![CRAN Version](https://www.r-pkg.org/badges/version/ggsci)](https://cran.r-project.org/package=ggsci) [![Downloads from the RStudio CRAN mirror](https://cranlogs.r-pkg.org/badges/ggsci)](https://cran.r-project.org/package=ggsci) `ggsci` offers a collection of `ggplot2` color palettes inspired by scientific journals, data visualization libraries, science fiction movies, and TV shows. ## Installation You can install `ggsci` from CRAN: ``` r install.packages("ggsci") ``` Or try the development version on GitHub: ``` r remotes::install_github("nanxstats/ggsci") ``` [Browse the vignette](https://nanx.me/ggsci/articles/ggsci.html) (or open with `vignette("ggsci")` in R) for a quick-start guide. ## Gallery ### NPG ### AAAS ### NEJM ### Lancet ### JAMA ### JCO ### UCSCGB ### D3 ### LocusZoom ### IGV ### COSMIC ### UChicago ### Star Trek ### Tron Legacy ### Futurama ### Rick and Morty ### The Simpsons ### Flat UI ### Frontiers ### GSEA ### Material Design ## Contribute To contribute to this project, please take a look at the [Contributing Guidelines](https://nanx.me/ggsci/CONTRIBUTING.html) first. Please note that the ggsci project is released with a [Contributor Code of Conduct](https://nanx.me/ggsci/CODE_OF_CONDUCT.html). By contributing to this project, you agree to abide by its terms. ggsci/man/0000755000176200001440000000000014570505642012131 5ustar liggesusersggsci/man/scale_npg.Rd0000644000176200001440000000251514570505642014356 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-npg.R \name{scale_color_npg} \alias{scale_color_npg} \alias{scale_colour_npg} \alias{scale_fill_npg} \title{NPG Journal Color Scales} \usage{ scale_color_npg(palette = c("nrc"), alpha = 1, ...) scale_colour_npg(palette = c("nrc"), alpha = 1, ...) scale_fill_npg(palette = c("nrc"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"nrc"} (10-color palette inspired by \emph{Nature Reviews Cancer}).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} \item{...}{additional parameters for \code{\link[ggplot2]{discrete_scale}}} } \description{ See \code{\link{pal_npg}} for details. } \examples{ library("ggplot2") data("diamonds") ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() + scale_color_npg() ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() + scale_fill_npg() } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/scale_jama.Rd0000644000176200001440000000253614570505642014505 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-jama.R \name{scale_color_jama} \alias{scale_color_jama} \alias{scale_colour_jama} \alias{scale_fill_jama} \title{Journal of the American Medical Association Color Scales} \usage{ scale_color_jama(palette = c("default"), alpha = 1, ...) scale_colour_jama(palette = c("default"), alpha = 1, ...) scale_fill_jama(palette = c("default"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"default"} (7-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} \item{...}{additional parameters for \code{\link[ggplot2]{discrete_scale}}} } \description{ See \code{\link{pal_jama}} for details. } \examples{ library("ggplot2") data("diamonds") ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() + scale_color_jama() ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() + scale_fill_jama() } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/scale_material.Rd0000644000176200001440000000455214570505642015373 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/continuous-material.R \name{scale_color_material} \alias{scale_color_material} \alias{scale_colour_material} \alias{scale_fill_material} \title{Material Design Color Palettes} \usage{ scale_color_material( palette = c("red", "pink", "purple", "deep-purple", "indigo", "blue", "light-blue", "cyan", "teal", "green", "light-green", "lime", "yellow", "amber", "orange", "deep-orange", "brown", "grey", "blue-grey"), alpha = 1, reverse = FALSE, ... ) scale_colour_material( palette = c("red", "pink", "purple", "deep-purple", "indigo", "blue", "light-blue", "cyan", "teal", "green", "light-green", "lime", "yellow", "amber", "orange", "deep-orange", "brown", "grey", "blue-grey"), alpha = 1, reverse = FALSE, ... ) scale_fill_material( palette = c("red", "pink", "purple", "deep-purple", "indigo", "blue", "light-blue", "cyan", "teal", "green", "light-green", "lime", "yellow", "amber", "orange", "deep-orange", "brown", "grey", "blue-grey"), alpha = 1, reverse = FALSE, ... ) } \arguments{ \item{palette}{Palette type. There are 19 available options: \itemize{ \item \code{"red"} \item \code{"pink"} \item \code{"purple"} \item \code{"deep-purple"} \item \code{"indigo"} \item \code{"blue"} \item \code{"light-blue"} \item \code{"cyan"} \item \code{"teal"} \item \code{"green"} \item \code{"light-green"} \item \code{"lime"} \item \code{"yellow"} \item \code{"amber"} \item \code{"orange"}, \item \code{"deep-orange"} \item \code{"brown"} \item \code{"grey"} \item \code{"blue-grey"}} See \href{https://m2.material.io/design/color/the-color-system.html}{Material Design color system} for details.} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} \item{reverse}{Logical. Should the order of the colors be reversed?} \item{...}{additional parameters for \code{\link[ggplot2]{discrete_scale}}} } \description{ See \code{\link{pal_material}} for details. } \examples{ library("ggplot2") library("reshape2") data("mtcars") cor <- abs(cor(mtcars)) cor_melt <- melt(cor) ggplot( cor_melt, aes(x = Var1, y = Var2, fill = value) ) + geom_tile(colour = "black", size = 0.3) + theme_bw() + scale_fill_material("blue-grey") } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/pal_igv.Rd0000644000176200001440000000176714570517442014055 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-igv.R \name{pal_igv} \alias{pal_igv} \title{Integrative Genomics Viewer (IGV) Color Palettes} \usage{ pal_igv(palette = c("default", "alternating"), alpha = 1) } \arguments{ \item{palette}{Palette type. There are two available options: \code{"default"} (51-color palette); \code{"alternating"} (2-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} } \description{ Color palettes based on the colors used by Integrative Genomics Viewer (IGV). } \examples{ library("scales") show_col(pal_igv("default")(51)) show_col(pal_igv("alternating")(2)) } \references{ James T. Robinson, Helga Thorvaldsdóttir, Wendy Winckler, Mitchell Guttman, Eric S. Lander, Gad Getz, Jill P. Mesirov. Integrative Genomics Viewer. \emph{Nature Biotechnology} 29, 24--26 (2011). } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/pal_cosmic.Rd0000644000176200001440000000256014570505642014534 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-cosmic.R \name{pal_cosmic} \alias{pal_cosmic} \title{COSMIC Color Palettes} \usage{ pal_cosmic( palette = c("hallmarks_light", "hallmarks_dark", "signature_substitutions"), alpha = 1 ) } \arguments{ \item{palette}{Palette type. Currently there are three available options: \code{"signature_substitutions"} (6-color palette), \code{"hallmarks_light"} (10-color palette), and \code{"hallmarks_dark"} (10-color palette). The \code{"hallmarks_light"} option is from \href{https://pubmed.ncbi.nlm.nih.gov/21376230/}{Hanahan and Weinberg (2011)}.} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} } \description{ Color palettes inspired by the colors used in projects from the \href{https://cancer.sanger.ac.uk/cosmic}{Catalogue Of Somatic Mutations in Cancers (COSMIC)} } \examples{ library("scales") show_col(pal_cosmic("hallmarks_light")(10)) show_col(pal_cosmic("hallmarks_light", alpha = 0.6)(10)) show_col(pal_cosmic("hallmarks_dark")(10)) show_col(pal_cosmic("hallmarks_dark", alpha = 0.6)(10)) show_col(pal_cosmic("signature_substitutions")(6)) show_col(pal_cosmic("signature_substitutions", alpha = 0.6)(6)) } \author{ Joshua H. Cook <\email{joshuacook0023@gmail.com}> | <\href{https://github.com/jhrcook}{GitHub/jhrcook}> } ggsci/man/pal_aaas.Rd0000644000176200001440000000156514570505642014170 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-aaas.R \name{pal_aaas} \alias{pal_aaas} \title{AAAS Journal Color Palettes} \usage{ pal_aaas(palette = c("default"), alpha = 1) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"default"} (10-color palette inspired by \emph{Science}).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} } \description{ Color palettes inspired by plots in journals published by American Association for the Advancement of Science (AAAS), such as \emph{Science} and \emph{Science Translational Medicine}. } \examples{ library("scales") show_col(pal_aaas("default")(10)) show_col(pal_aaas("default", alpha = 0.6)(10)) } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/rgb_gsea.Rd0000644000176200001440000000235214570505642014173 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/continuous-gsea.R \name{rgb_gsea} \alias{rgb_gsea} \title{The GSEA GenePattern Color Palettes} \usage{ rgb_gsea(palette = c("default"), n = 12, alpha = 1, reverse = FALSE) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"default"} (continuous palette with 12 base colors).} \item{n}{Number of individual colors to be generated.} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} \item{reverse}{Logical. Should the order of the colors be reversed?} } \description{ Color palette inspired by the colors used in the heatmaps plotted by GSEA GenePattern. } \note{ The 12 base colors used in this palette are derived from the \href{https://modulerepository.genepattern.org/gpModuleRepository/download/prod/module/?file=/HeatMapImage/broad.mit.edu:cancer.software.genepattern.module.analysis/00032/6/HeatMapImage.pdf}{HeatMapImage documentation}. } \examples{ library("scales") show_col(pal_gsea("default")(12)) show_col(pal_gsea("default", n = 30, alpha = 0.6, reverse = TRUE)(30)) } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/pal_material.Rd0000644000176200001440000000311514570505642015052 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/continuous-material.R \name{pal_material} \alias{pal_material} \title{Material Design Color Palettes} \usage{ pal_material( palette = c("red", "pink", "purple", "deep-purple", "indigo", "blue", "light-blue", "cyan", "teal", "green", "light-green", "lime", "yellow", "amber", "orange", "deep-orange", "brown", "grey", "blue-grey"), n = 10, alpha = 1, reverse = FALSE ) } \arguments{ \item{palette}{Palette type. There are 19 available options: \itemize{ \item \code{"red"} \item \code{"pink"} \item \code{"purple"} \item \code{"deep-purple"} \item \code{"indigo"} \item \code{"blue"} \item \code{"light-blue"} \item \code{"cyan"} \item \code{"teal"} \item \code{"green"} \item \code{"light-green"} \item \code{"lime"} \item \code{"yellow"} \item \code{"amber"} \item \code{"orange"}, \item \code{"deep-orange"} \item \code{"brown"} \item \code{"grey"} \item \code{"blue-grey"}} See \href{https://m2.material.io/design/color/the-color-system.html}{Material Design color system} for details.} \item{n}{Number of individual colors to be generated.} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} \item{reverse}{Logical. Should the order of the colors be reversed?} } \description{ The Material Design color palettes. } \examples{ library("scales") show_col(pal_material("indigo")(10)) show_col(pal_material("indigo", n = 30, alpha = 0.6, reverse = TRUE)(30)) } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/pal_frontiers.Rd0000644000176200001440000000132614570505642015271 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-frontiers.R \name{pal_frontiers} \alias{pal_frontiers} \title{Frontiers Color Palettes} \usage{ pal_frontiers(palette = c("default"), alpha = 1) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"default"} (10-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} } \description{ Color palettes inspired by the colors used in \emph{Frontiers}. } \examples{ library("scales") show_col(pal_frontiers("default")(7)) show_col(pal_frontiers("default", alpha = 0.6)(7)) } \author{ Clara Jégousse <\email{cat3@hi.is}> } ggsci/man/pal_rickandmorty.Rd0000644000176200001440000000143514570505642015765 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-rickandmorty.R \name{pal_rickandmorty} \alias{pal_rickandmorty} \title{Rick and Morty Color Palettes} \usage{ pal_rickandmorty(palette = c("schwifty"), alpha = 1) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"schwifty"} (12-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} } \description{ Color palettes inspired by the colors used in \emph{Rick and Morty}. } \examples{ library("scales") show_col(pal_rickandmorty("schwifty")(12)) show_col(pal_rickandmorty("schwifty", alpha = 0.6)(12)) } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/pal_uchicago.Rd0000644000176200001440000000174314570505642015043 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-uchicago.R \name{pal_uchicago} \alias{pal_uchicago} \title{The University of Chicago Color Palettes} \usage{ pal_uchicago(palette = c("default", "light", "dark"), alpha = 1) } \arguments{ \item{palette}{Palette type. There are 3 available options: \code{"default"} (9-color palette); \code{"light"} (9-color light palette); \code{"dark"} (9-color dark palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} } \description{ Color palettes based on the colors used by the University of Chicago. } \examples{ library("scales") show_col(pal_uchicago("default")(9)) show_col(pal_uchicago("light")(9)) show_col(pal_uchicago("dark")(9)) } \references{ \url{https://news.uchicago.edu/sites/default/files/attachments/_uchicago.identity.guidelines.pdf} } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/scale_uchicago.Rd0000644000176200001440000000344514570505642015357 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-uchicago.R \name{scale_color_uchicago} \alias{scale_color_uchicago} \alias{scale_colour_uchicago} \alias{scale_fill_uchicago} \title{The University of Chicago Color Scales} \usage{ scale_color_uchicago(palette = c("default", "light", "dark"), alpha = 1, ...) scale_colour_uchicago(palette = c("default", "light", "dark"), alpha = 1, ...) scale_fill_uchicago(palette = c("default", "light", "dark"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. There are 3 available options: \code{"default"} (9-color palette); \code{"light"} (9-color light palette); \code{"dark"} (9-color dark palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} \item{...}{additional parameters for \code{\link[ggplot2]{discrete_scale}}} } \description{ See \code{\link{pal_uchicago}} for details. } \examples{ library("ggplot2") data("diamonds") p1 <- ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() p2 <- ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() p1 + scale_color_uchicago() p2 + scale_fill_uchicago() p1 + scale_color_uchicago(palette = "light") p2 + scale_fill_uchicago(palette = "light") p1 + scale_color_uchicago(palette = "dark") p2 + scale_fill_uchicago(palette = "dark") } \references{ \url{https://news.uchicago.edu/sites/default/files/attachments/_uchicago.identity.guidelines.pdf} } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/scale_simpsons.Rd0000644000176200001440000000257414570505642015452 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-simpsons.R \name{scale_color_simpsons} \alias{scale_color_simpsons} \alias{scale_colour_simpsons} \alias{scale_fill_simpsons} \title{The Simpsons Color Scales} \usage{ scale_color_simpsons(palette = c("springfield"), alpha = 1, ...) scale_colour_simpsons(palette = c("springfield"), alpha = 1, ...) scale_fill_simpsons(palette = c("springfield"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"springfield"} (16-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} \item{...}{additional parameters for \code{\link[ggplot2]{discrete_scale}}} } \description{ See \code{\link{pal_simpsons}} for details. } \examples{ library("ggplot2") data("diamonds") ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() + scale_color_simpsons() ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() + scale_fill_simpsons() } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/scale_cosmic.Rd0000644000176200001440000000342014570505642015043 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-cosmic.R \name{scale_color_cosmic} \alias{scale_color_cosmic} \alias{scale_colour_cosmic} \alias{scale_fill_cosmic} \title{COSMIC Color Scales} \usage{ scale_color_cosmic( palette = c("hallmarks_light", "hallmarks_dark", "signature_substitutions"), alpha = 1, ... ) scale_colour_cosmic( palette = c("hallmarks_light", "hallmarks_dark", "signature_substitutions"), alpha = 1, ... ) scale_fill_cosmic( palette = c("hallmarks_light", "hallmarks_dark", "signature_substitutions"), alpha = 1, ... ) } \arguments{ \item{palette}{Palette type. Currently there are three available options: \code{"signature_substitutions"} (6-color palette), \code{"hallmarks_light"} (10-color palette), and \code{"hallmarks_dark"} (10-color palette). The \code{"hallmarks_light"} option is from \href{https://pubmed.ncbi.nlm.nih.gov/21376230/}{Hanahan and Weinberg (2011)}.} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} \item{...}{additional parameters for \code{\link[ggplot2]{discrete_scale}}} } \description{ See \code{\link{pal_cosmic}} for details. } \examples{ library("ggplot2") data("diamonds") ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() + scale_color_cosmic() ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() + scale_fill_cosmic() } \author{ Joshua H. Cook <\email{joshuacook0023@gmail.com}> | <\href{https://github.com/jhrcook}{GitHub/jhrcook}> } ggsci/man/scale_rickandmorty.Rd0000644000176200001440000000263614570505642016304 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-rickandmorty.R \name{scale_color_rickandmorty} \alias{scale_color_rickandmorty} \alias{scale_colour_rickandmorty} \alias{scale_fill_rickandmorty} \title{Rick and Morty Color Scales} \usage{ scale_color_rickandmorty(palette = c("schwifty"), alpha = 1, ...) scale_colour_rickandmorty(palette = c("schwifty"), alpha = 1, ...) scale_fill_rickandmorty(palette = c("schwifty"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"schwifty"} (12-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} \item{...}{additional parameters for \code{\link[ggplot2]{discrete_scale}}} } \description{ See \code{\link{pal_rickandmorty}} for details. } \examples{ library("ggplot2") data("diamonds") ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() + scale_color_rickandmorty() ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() + scale_fill_rickandmorty() } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/ggsci-package.Rd0000644000176200001440000000203114570505642015101 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/ggsci-package.R \docType{package} \name{ggsci-package} \alias{ggsci} \alias{ggsci-package} \title{ggsci: Scientific Journal and Sci-Fi Themed Color Palettes for 'ggplot2'} \description{ \if{html}{\figure{logo.png}{options: style='float: right' alt='logo' width='120'}} A collection of 'ggplot2' color palettes inspired by plots in scientific journals, data visualization libraries, science fiction movies, and TV shows. } \seealso{ Useful links: \itemize{ \item \url{https://nanx.me/ggsci/} \item \url{https://github.com/nanxstats/ggsci} \item Report bugs at \url{https://github.com/nanxstats/ggsci/issues} } } \author{ \strong{Maintainer}: Nan Xiao \email{me@nanx.me} (\href{https://orcid.org/0000-0002-0250-5673}{ORCID}) Other contributors: \itemize{ \item Joshua Cook \email{joshuacook0023@gmail.com} [contributor] \item Clara Jégousse \email{cat3@hi.is} [contributor] \item Miaozhu Li \email{miaozhu.li@duke.edu} [contributor] } } \keyword{internal} ggsci/man/pal_tron.Rd0000644000176200001440000000133414570505642014237 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-tron.R \name{pal_tron} \alias{pal_tron} \title{Tron Legacy Color Palettes} \usage{ pal_tron(palette = c("legacy"), alpha = 1) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"legacy"} (7-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} } \description{ Color palettes inspired by the colors used in \emph{Tron Legacy}. } \examples{ library("scales") show_col(pal_tron("legacy")(7)) show_col(pal_tron("legacy", alpha = 0.6)(7)) } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/scale_igv.Rd0000644000176200001440000000311314570505642014352 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-igv.R \name{scale_color_igv} \alias{scale_color_igv} \alias{scale_colour_igv} \alias{scale_fill_igv} \title{Integrative Genomics Viewer (IGV) Color Scales} \usage{ scale_color_igv(palette = c("default", "alternating"), alpha = 1, ...) scale_colour_igv(palette = c("default", "alternating"), alpha = 1, ...) scale_fill_igv(palette = c("default", "alternating"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. There are two available options: \code{"default"} (51-color palette); \code{"alternating"} (2-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} \item{...}{additional parameters for \code{\link[ggplot2]{discrete_scale}}} } \description{ See \code{\link{pal_igv}} for details. } \examples{ library("ggplot2") data("diamonds") p1 <- ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() p2 <- ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() p1 + scale_color_igv() p2 + scale_fill_igv() p1 + scale_colour_manual( values = rep(pal_igv("alternating")(2), times = 3) ) p2 + scale_fill_manual( values = rep(pal_igv("alternating")(2), times = 3) ) } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/scale_locuszoom.Rd0000644000176200001440000000256314570505642015627 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-locuszoom.R \name{scale_color_locuszoom} \alias{scale_color_locuszoom} \alias{scale_colour_locuszoom} \alias{scale_fill_locuszoom} \title{LocusZoom Color Scales} \usage{ scale_color_locuszoom(palette = c("default"), alpha = 1, ...) scale_colour_locuszoom(palette = c("default"), alpha = 1, ...) scale_fill_locuszoom(palette = c("default"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"default"} (7-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} \item{...}{additional parameters for \code{\link[ggplot2]{discrete_scale}}} } \description{ See \code{\link{pal_locuszoom}} for details. } \examples{ library("ggplot2") data("diamonds") ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() + scale_color_locuszoom() ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() + scale_fill_locuszoom() } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/scale_nejm.Rd0000644000176200001440000000246714570505642014531 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-nejm.R \name{scale_color_nejm} \alias{scale_color_nejm} \alias{scale_colour_nejm} \alias{scale_fill_nejm} \title{NEJM Color Scales} \usage{ scale_color_nejm(palette = c("default"), alpha = 1, ...) scale_colour_nejm(palette = c("default"), alpha = 1, ...) scale_fill_nejm(palette = c("default"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"default"} (8-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} \item{...}{additional parameters for \code{\link[ggplot2]{discrete_scale}}} } \description{ See \code{\link{pal_nejm}} for details. } \examples{ library("ggplot2") data("diamonds") ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() + scale_color_nejm() ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() + scale_fill_nejm() } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/scale_aaas.Rd0000644000176200001440000000253314570505642014477 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-aaas.R \name{scale_color_aaas} \alias{scale_color_aaas} \alias{scale_colour_aaas} \alias{scale_fill_aaas} \title{AAAS Journal Color Scales} \usage{ scale_color_aaas(palette = c("default"), alpha = 1, ...) scale_colour_aaas(palette = c("default"), alpha = 1, ...) scale_fill_aaas(palette = c("default"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"default"} (10-color palette inspired by \emph{Science}).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} \item{...}{additional parameters for \code{\link[ggplot2]{discrete_scale}}} } \description{ See \code{\link{pal_aaas}} for details. } \examples{ library("ggplot2") data("diamonds") ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() + scale_color_aaas() ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() + scale_fill_aaas() } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/scale_startrek.Rd0000644000176200001440000000255014570505642015430 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-startrek.R \name{scale_color_startrek} \alias{scale_color_startrek} \alias{scale_colour_startrek} \alias{scale_fill_startrek} \title{Star Trek Color Scales} \usage{ scale_color_startrek(palette = c("uniform"), alpha = 1, ...) scale_colour_startrek(palette = c("uniform"), alpha = 1, ...) scale_fill_startrek(palette = c("uniform"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"uniform"} (7-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} \item{...}{additional parameters for \code{\link[ggplot2]{discrete_scale}}} } \description{ See \code{\link{pal_startrek}} for details. } \examples{ library("ggplot2") data("diamonds") ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() + scale_color_startrek() ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() + scale_fill_startrek() } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/rgb_material.Rd0000644000176200001440000000323414570505642015052 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/continuous-material.R \name{rgb_material} \alias{rgb_material} \title{Material Design Color Palettes} \usage{ rgb_material( palette = c("red", "pink", "purple", "deep-purple", "indigo", "blue", "light-blue", "cyan", "teal", "green", "light-green", "lime", "yellow", "amber", "orange", "deep-orange", "brown", "grey", "blue-grey"), n = 10, alpha = 1, reverse = FALSE ) } \arguments{ \item{palette}{Palette type. There are 19 available options: \itemize{ \item \code{"red"} \item \code{"pink"} \item \code{"purple"} \item \code{"deep-purple"} \item \code{"indigo"} \item \code{"blue"} \item \code{"light-blue"} \item \code{"cyan"} \item \code{"teal"} \item \code{"green"} \item \code{"light-green"} \item \code{"lime"} \item \code{"yellow"} \item \code{"amber"} \item \code{"orange"}, \item \code{"deep-orange"} \item \code{"brown"} \item \code{"grey"} \item \code{"blue-grey"}} See \href{https://m2.material.io/design/color/the-color-system.html}{Material Design color system} for details.} \item{n}{Number of individual colors to be generated.} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} \item{reverse}{Logical. Should the order of the colors be reversed?} } \description{ The Material Design color palettes. } \examples{ library("scales") show_col(pal_material("indigo")(10)) show_col(pal_material("indigo", n = 30, alpha = 0.6, reverse = TRUE)(30)) } \references{ \url{https://m2.material.io/design/color/the-color-system.html} } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/scale_ucscgb.Rd0000644000176200001440000000253514570505642015042 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-ucscgb.R \name{scale_color_ucscgb} \alias{scale_color_ucscgb} \alias{scale_colour_ucscgb} \alias{scale_fill_ucscgb} \title{UCSC Genome Browser Color Scales} \usage{ scale_color_ucscgb(palette = c("default"), alpha = 1, ...) scale_colour_ucscgb(palette = c("default"), alpha = 1, ...) scale_fill_ucscgb(palette = c("default"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"default"} (26-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} \item{...}{additional parameters for \code{\link[ggplot2]{discrete_scale}}} } \description{ See \code{\link{pal_ucscgb}} for details. } \examples{ library("ggplot2") data("diamonds") ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() + scale_color_ucscgb() ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() + scale_fill_ucscgb() } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/scale_lancet.Rd0000644000176200001440000000256614570505642015046 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-lancet.R \name{scale_color_lancet} \alias{scale_color_lancet} \alias{scale_colour_lancet} \alias{scale_fill_lancet} \title{Lancet Journal Color Scales} \usage{ scale_color_lancet(palette = c("lanonc"), alpha = 1, ...) scale_colour_lancet(palette = c("lanonc"), alpha = 1, ...) scale_fill_lancet(palette = c("lanonc"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"lanonc"} (9-color palette inspired by \emph{Lancet Oncology}).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} \item{...}{additional parameters for \code{\link[ggplot2]{discrete_scale}}} } \description{ See \code{\link{pal_lancet}} for details. } \examples{ library("ggplot2") data("diamonds") ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() + scale_color_lancet() ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() + scale_fill_lancet() } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/scale_gsea.Rd0000644000176200001440000000237414570505642014514 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/continuous-gsea.R \name{scale_color_gsea} \alias{scale_color_gsea} \alias{scale_colour_gsea} \alias{scale_fill_gsea} \title{The GSEA GenePattern Color Scales} \usage{ scale_color_gsea(palette = c("default"), alpha = 1, reverse = FALSE, ...) scale_colour_gsea(palette = c("default"), alpha = 1, reverse = FALSE, ...) scale_fill_gsea(palette = c("default"), alpha = 1, reverse = FALSE, ...) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"default"} (continuous palette with 12 base colors).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} \item{reverse}{Logical. Should the order of the colors be reversed?} \item{...}{additional parameters for \code{\link[ggplot2]{discrete_scale}}} } \description{ See \code{\link{pal_gsea}} for details. } \examples{ library("ggplot2") library("reshape2") data("mtcars") cor <- cor(mtcars) cor_melt <- melt(cor) ggplot( cor_melt, aes(x = Var1, y = Var2, fill = value) ) + geom_tile(colour = "black", size = 0.3) + theme_bw() + scale_fill_gsea() } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/pal_locuszoom.Rd0000644000176200001440000000162614570505642015313 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-locuszoom.R \name{pal_locuszoom} \alias{pal_locuszoom} \title{LocusZoom Color Palette} \usage{ pal_locuszoom(palette = c("default"), alpha = 1) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"default"} (7-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} } \description{ Color palettes based on the colors used by LocusZoom. } \examples{ library("scales") show_col(pal_locuszoom("default")(7)) show_col(pal_locuszoom("default", alpha = 0.6)(7)) } \references{ Pruim, Randall J., et al. (2010). LocusZoom: regional visualization of genome-wide association scan results. \emph{Bioinformatics}, 26(18), 2336--2337. } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/pal_startrek.Rd0000644000176200001440000000136414570505642015117 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-startrek.R \name{pal_startrek} \alias{pal_startrek} \title{Star Trek Color Palettes} \usage{ pal_startrek(palette = c("uniform"), alpha = 1) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"uniform"} (7-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} } \description{ Color palettes inspired by the colors used in \emph{Star Trek}. } \examples{ library("scales") show_col(pal_startrek("uniform")(7)) show_col(pal_startrek("uniform", alpha = 0.6)(7)) } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/scale_d3.Rd0000644000176200001440000000367014570505642014103 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-d3.R \name{scale_color_d3} \alias{scale_color_d3} \alias{scale_colour_d3} \alias{scale_fill_d3} \title{D3.js Color Scales} \usage{ scale_color_d3( palette = c("category10", "category20", "category20b", "category20c"), alpha = 1, ... ) scale_colour_d3( palette = c("category10", "category20", "category20b", "category20c"), alpha = 1, ... ) scale_fill_d3( palette = c("category10", "category20", "category20b", "category20c"), alpha = 1, ... ) } \arguments{ \item{palette}{Palette type. There are 4 available options: \code{"category10"} (10-color palette); \code{"category20"} (20-color palette); \code{"category20b"} (20-color palette); \code{"category20c"} (20-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} \item{...}{additional parameters for \code{\link[ggplot2]{discrete_scale}}} } \description{ See \code{\link{pal_d3}} for details. } \examples{ library("ggplot2") data("diamonds") p1 <- ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() p2 <- ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() p1 + scale_color_d3() p2 + scale_fill_d3() p1 + scale_color_d3(palette = "category20") p2 + scale_fill_d3(palette = "category20") p1 + scale_color_d3(palette = "category20b") p2 + scale_fill_d3(palette = "category20b") p1 + scale_color_d3(palette = "category20c") p2 + scale_fill_d3(palette = "category20c") } \references{ \url{https://github.com/d3/d3-3.x-api-reference/blob/master/Ordinal-Scales.md} } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/pal_flatui.Rd0000644000176200001440000000157114570505642014544 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-flatui.R \name{pal_flatui} \alias{pal_flatui} \title{Flat UI Color Palettes} \usage{ pal_flatui(palette = c("default", "flattastic", "aussie"), alpha = 1) } \arguments{ \item{palette}{Palette type. Currently there are three available option: \code{"default"} (10-color palette). \code{"flattastic"} (12-color palette). \code{"aussie"} (10-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} } \description{ Color palettes inspired by the colors used in \emph{Flat UI Colors}. } \examples{ library("scales") show_col(pal_flatui("default")(10)) show_col(pal_flatui("flattastic")(12)) show_col(pal_flatui("aussie")(10)) show_col(pal_flatui("aussie", alpha = 0.6)(10)) } \author{ Clara Jégousse <\email{cat3@hi.is}> } ggsci/man/pal_jama.Rd0000644000176200001440000000143114570505642014163 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-jama.R \name{pal_jama} \alias{pal_jama} \title{Journal of the American Medical Association Color Palettes} \usage{ pal_jama(palette = c("default"), alpha = 1) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"default"} (7-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} } \description{ Color palette inspired by plots in \emph{The Journal of the American Medical Association}. } \examples{ library("scales") show_col(pal_jama("default")(7)) show_col(pal_jama("default", alpha = 0.6)(7)) } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/figures/0000755000176200001440000000000014570505642013575 5ustar liggesusersggsci/man/figures/README-ggsci-gsea-1.png0000644000176200001440000030766014570505642017421 0ustar liggesusersPNG  IHDR@|']& pHYs%%IR$PLTEcLHGRPWW "B<< (.-ck:% µyv@?kXvE%žn}Sh&'rg|N2X=[A/)6 22' \HCU ??l 6*`ZvAE{vG;V\Q=fk}y^Y{)` IDATx sF5͔,QMndHHUc38)9+f38 bhՙ\~ Ey]' ukdeX@" LV8&lN 5[8Eh)|5UlG;F(Fz4Z `dŦv@vPnֱ@X>E~. bh]@)qrD1Ϝ? (2ߟGc~0+ -<\ TK0ҿ^5X<[̎O+u&7&L!l-\s(,jphߜZ @mlUlV[CpYgc0=z 1hGib% .O:0NmPC7Z| $ Q ۀ)ல&bJ5ZL +) 67O4nЀ0=P^*Wqv66qP;@a\h ` S@5SKe4˘)2x*L %KV@ ?<;@F#F_WJ.S5taTfw # 5NYW$LV{ l) ӥS@-,'lNxhHVgu 0ضf &;muxXy("}8,*8jF Q؟u8m/v5,ڑ&m#ƾw 9`:[%AE`> 'h`zܛǘ6|lT`fLJv4٨0 p5mcXx6S0x-ECjAphq>vjwzm5-F[ `%l q0Q %5eC|:1 lM~0&Sj뷪,),&1^_YhH]wG vHXg%O 5^ppq55O k.:2Mׇ%W6p#.e$Kf&R^E oe50;d h@ `ۛ&} f3fqwvf ' 5Ys qd򻀶|K} h |53{EkKU ~ (H6 `<5# tx8d 32i vT#VۮtAr'϶ 쀻_`0`t]@,:.W%\ԓ.L&6. t_]1@6 )HnľG;PFUjڔk(wXˋs b߾|86eʕ`Wfd:@K#Y` -A4R+~a44%{I/,<yK4C۽Cr(n25KF9( ZyC:QV (D+B<+$S.m8 ZV B:;L/햑*{cO)u]iy4T|1"T?(ެպ4_D6ш @4`uОeU[B*2}gjDOoeC4[UCSТnh!3ǕvzF-4k}FS>i4Uihѳ𯶢u4k3?*Ge8}kmh zk Nf3+?'}聡P/R= Ѳ=E< &}셐셾7=* C4z`h;D;S@ͬde6da/OU`YXrg>ghr (94f;Iܙ>7dCt~5N)7D=m3=YoM% %f3`֟,H@>dU̓SъG^+>sfV2d DhlW ==|@ve>@;5K0KaNgNCZ%6Yg OyA<7kk4U(4@ 2hx=%PW04(uN{"+`['жrv+{Det G zd}@" `$y@T H ;PXMj& @ZE@-hi N5@԰W3IkRƴ9FNi@*'6R*s`EXke禀LZ(JzHXyS`z) +mR@(ѤZZ'&DX@&氚 G Xi@!P^Χ fzz `$yY#0ص '\&n;(ťN`(xiі KiC&Sj`XpؔO <n~8=;Bv"LjPER ,f.t`ioM`8g+V-mlg |>&W $+Km Inf @0O `Gਉ0qyf4~y`!5<#0l]2`&*uU@sm6eҭKL"U[yXa1 @KUH66Y۝>& -2Om7W 'ܩW*C &EZ8 z#t&]7pL`?u `=y$}m=?* FP nU@Z ylP`AzL*s_E |K`Y HX* z#/(i**C6 ` Kw<;k*  ODi0L"<}soier4@M`+`&$;^,h5mprT0}hLg D{%*uz5Py0n+ W:Byg4Vy/MCԉB`lq# @ HW zѿ\ l5UYi.0K/]U@`*f/zHsU mCN6=X&&uvw@U@&<$F0Xd)8l@|U>m+ {#B;##yg&C;У?D2Qʽz9kC`iB e ͈4~ԫl/hiH,}Ф :RE捷w=%99Ic{>+i|<[[Nbjffg& yMuҥ~V33i+m/iS$i?D旖ퟂ}V +7%UT]H4OXc~il*X;gN!ФU"+-9g MZ)6󙓕dX /4i|ilg! p[`f`)^\ZN(-*92"M IϮV;KgX0{uu%wB Qjw>Kf4^:.epwn: "tFdPH;N=aOh; t?,#M?<zRh+[%}>늠V|%UoH/X/N]biՇ -KŔt?y}߈ai z?iXZere%iK)6+)FGދHLXx$mM'yvqqqi^s}imzS׋6%=s,-ФM ;"Hg=',%=p dV#@h҇YH,}DʾVۆFBC@T--|[1 ki5+'w  #_-m'f0~V瑢@>Z*Lwt YtئxT0bN u o{(쬑L'y_A L&QnEVl'DP&= *;48` kFe \ tkYD'2Xi V&֍N$LMxVtҺ vj`>:`yՙ^3XE(HF_ uZ_֎`ҺNg 9 )O)]wҾYpA `!Ԏ|j X(f0=SG `ԯp<5`n@җp<l $ W) 6 x??lxh 8\1>(@RZ0) ((@ d/4yQp @Mzḫ CИ[\uwG P(4z?p;ƈv&8S@G  `$$+$ c3`/& HW8Mv00sS@u8UE_31jIǤ (줽zV/谪BpiR) u3N h2<j̡ѽN~`)x7?@xќ2 $ 2*tv]=^Ư$⪀4$=#9/u!"V"!" Tz#LIp܉Ayt@.;yt}ӤyTu i>_ >f0}z=g^]4?$m˻FW_E=lFoJJټ%.3u9*C/\ߙҹSѿgJg;EK9_sKUMD%I/qJ=<󮖡a !}jiiK, - H;^@3*<ղhc(fnVDE>rir־ZMC׿?|X_xLK9^@;LS=G٩}\XyZ4B_Yk/2O6=!iBN37 !@FID'',TO>[bi%mM7xҖV> eO7F4CB|_mf $= FE<#Gc+$+;zܳMtBAy’Xb e[,-'z/x)Nm<z4!B"@n۷s9Wu~|_K?y碜FrTU1a(xI#Dze+v?U/*pf/3sO{uE@hdN=[iR\B|Q:e"ɠgzď( t a ی=0wR+`  7wMI Ie ;^ԓ+|d\Z`8 %ظf+*XwF^<:Q6gjˤ@W?cI1Oo p@Zض=9|_~| -q[=72pAe0 5uеp_{5,tZ"P t`=C.S*tZPZXiͩ$!ה&U`Q`( @a piQp[";@@nK@8X IJpb ~@׳`NP@=edd3mZ&xk  .}%b0`[!#8뵨LZHiM58s5 '֓8X831M>FF6zh lЅOpN7I}H6s@Zh4ndhZ2l X% `#lGl/OË L p ؽ@#F8If `rh9+3sCN&= q0@ؔ 04c0aPBi ">X2Ø1BG^B8x$`sg^`U" 2L$F)P IDATMHZU`C@n sM6N^V!=P! r9C8b`㦘y \hZPGB@v1e@6cl8$Y2Zy"@% M!#x“fԨ m0@624GT K"@-q#7=U$ @{ocNI_@ *@\%Ilܓl>!:AHfV3 h6AЅD+@](q Q@ /.j?@G |h 2γ97#fmW6#}v fg?0^ .hVϙtUk,f&,9!'!fLV0ppI@c9OCBi&Y@s;i\ `rN:K@M'Nӳn97d59i4@PHY@$@.Dge (4 =g+hc#Yj (S*`X¾S `". >0L6$$ tVIlVG'{dJV$J=1tI` )U6>ΉPo=`MO,uC@3[~h4ugY@UjB$p,= T\FSTf!Lj,J ~B0wʅ`^KFQ;  5Ӵzh~d!Z{U/{wC/f?`#MHJi|es5!1mi*M^rҚ4E0KA'-_sۆ!N_;y^?g* f{^@[LDp{PM,4"|e [i~u SYe=Hh6;Jݱ=|)e4eedѥZ?ϻ6֐j2oOjʱpr_ T֨NNt\nDiL>rվxYWf)_Ow1׳\ϵ fb-m]anՕYLh7 !x};õgcAvg4Yڔ4=@qie~Z۳4){*n)Um\O^- J-ٍKDe,_4#M\@kx yj֯뮹Vy+>+z*2"OqW#:^DTY¥u:5[.m->m+QԻI{z]LÔ]XŀgQKҾVly֍(+CsX[˻S>uz!WFLٓ5eG.M=/>ѡC@1w߳' ߼B÷bC2^" @sijjLZq\ԋP1/ֲ8lG>oLڥe6\ET4ѧk_2iWv_2e߼U}bObCx vW7IOlp sA\ZeB3'zZh44i-`Bo$-4^; I;S`z so `xrvA^ i06b0RҬ0m? mepڈ@@} )@4 `+Z`ׯ__[\;h]2""b[6 ` h@"ʄi e}|]0 } -ϚPZؒgW׎F8f`cu3c&mwVC+7) >a$-4xŴu?V"ݸ ' `&15C4AVkna u@杶Nl~!Yiw`[ݲe\E #mWG(-B@8mu!|i1 it0e f0! |--ՄHM-PZ+ʜ ` aoUtZ8M7ВC@˸01c;#b9FhsWpM2n$-f q09@ۃb -;J4Vm6!œ3& Lz#1ф  e  C4|-@:t]'C@[\O6p"BZ@lЯDĈpC@)"x!f!{217ړ9N8i ()28Y@*P=v 4xW:<WM5Ohg| 4oL4ۧU f %p Z+V U,2Zx7W%O2 j!%`QL9i-s~, V\F(l v,uTJJ+lmۇ׿+ BŽg"_YF&r:҅`"P [^6Wr*rNT_xsCmwT!G(s'f.IitD TЂ8w,z" hs&K Y ?ϰBCCdZ3hUɡE-\x19gGK09Y%bA9 m %!BdRoF-RpjsZ3h<2,qm!4ClDA,RMY@o 7A㗴ChjϠ%p%f1` %1!VD1"ro\EOdЇX8MMXN- Bڜ?%@K G}R,5gBNeu,#L>-V,VW,5"[_wH/=2h١k6ERMK``eJZ4CWHvՊƶspj)Y 6 @`?YE0iс0?~P9'Ҷ,'}& T"P2Q?N@YLm*Uk k'HT[*C |20٤h.VXl% `RP-  pQ ` +} dl4!h_h00k*]8h9l`+cN(#h@Hn-'tQo ?rpGf CՒФSVvL8h^`@]ʡmNMЊ #+ С\LGCpQP} @b3Յ*K ?^$@N3zW0vRV(?~*n?V++P! Ub`zTL)$ u[f6*\p`,4(S6u&k4:)hBmv~ȇNN0-L ઁ Z1WWjj $/]pLvM$\vilעs`cϝH{8>2h\@rʅrt*@\.gܫR,x" 5ˌ[g\G,rb/œeF!Kkz\5" h"/ڎA2h_(m⒰?e3D~al ]q*`E (,d7KPL5P/ӛkz__ӛOwZ?yz54qz$@h"*8Z3@> YX#45Gh; B ؼ_2Lw+m5~I'fx/Ig(1>KA0r 3L&*$&}}]s8bÁvE--4=a;v,9"`)KQuzbYY<4RA 9B](kc,9|Ƴ2G=ПCĠ%~H@ B8 /Hۗ[\_=O ު~4]_#LZ(,zubBd/ = [r&OO]/ -:h+akPɎYhv ^;}aЎyLˡ9@2X#Jȳ/?CقW3! DQ z<2 +vYx!hWB0Hp *``{>gGZ] [w\[@y @@YQ+Il!<1lOӘ2pД$Fpm u n^jJ3h?_4c'ZXC0b֧lC٭#TWplQXӹ_ hj)ӟARA1 0 AkE% e)3M~p'k;f O,W,SYsl:@T$ ^(|E~͙U)7s܏)%A`vÏMA* 0p& @C+SӃpWa3ZF>"W| V n)^K&kB@FU:  @Њ A 4LԪWFdp*VXtAQPе_PmE/!e[`y~(t}! :+P(r^Ckx0"gvj @~) B xB Oh_\Xd> h~@g Py X ` `H(G| 9p&OEKV* \ܷPړr?m8 d -Wg P<=ۛj#&:[FZvz0{m@0PbGP3anG0b;) %QGJdY|jIx |XvY*?_?ʻ4#ߗq6KQ<w?yـ)#LhG  =w@v${Z#4HZl#xG$Hd#6{]F&ʹ<x\="8e[z -oD0t \t1*!3hR@TGN̲9dg^Wk.Rطbpd DyݭD2ڵZ i.ɫ !y8H^v8\"*o28 v~>[u???Vѳ(U_}YқJTra,=*EBJgj}Y@HHKPZe!igNS%WS]FT:Wl-H=K4iꎤe]Wks7}rByr|R9(WcM'96Rm·q.P5TNb+YTdҼɳFiJ(L3?efBڹ4nd:ȨW)JS#WA-JI:GerRV赉)4u!g"=jsWi0| '|fBsViӶzAoPZnr4v]g(Mz#o+mN;Җְu(MfҞe8%=L!6dG*Fi(kǑ.}u&HkJPJPZhҦvZz_<K-AkխY;f(M]i:o_@l kig=?Eq$ Ö %QJ@FD۹U˹8=Ůmѽ_9Um+.EJXxzkPҒ .|q5b{.0e?WWqex8(Sbߤi2fxxbťeރ̹*dDt\*ﴥygq=7\Z?A(Gy ry,7x͞H79ZN<>OaN\}:7JDK#ԅ0EH{16i3mF CE]b${LEFCio `SjLZh mi`} I`3>M `ZLm+* Zh왨f4eT(4z$`1eWOw4qhLLZ`iX) e04Х/-IX4e\Zo C8=0HmKD:`ش`L!IG.ܒbNAS B߿Hw% U@GX~=d-r\/ԅCL Sį9]mж+3?6uf7xyeD**.- Җ>Re.\Yqe+ j ik&m͜*#0V[{Nz3VQ&K]i2 [?3ȊH[Ҳ~*UW`nSɻT_ۼmt%dᨗKcI^3iux[6lޖdS} GUR ikç͸4w+K+۔CTuʜu};;];Y]Pc>DF_(Mu|Bu|+&]-d 9KBu6eǒ2#wDh/$ʈ0OOQ:J4zθWJ iK! 2Ϫ;.HG&kDAKd \kv4Yw+m~QdH|f^8Ghm=i10~Z@tQ6VLcUL6޷Av}d KY3i Υ޵Rri!Ԓ!Ss"vgzaҖ\WBl9 1KwNp 1>r@6K:@3G\ZP14Nloiw-b(I|+JB`{¯b@6<0sP6m$m1alƥi iH0oP<4.mɥi i>/m$ᴻ,h"weׂ ;dwW HZy`ʔS `#vZUe~pD`f @@̡ENc8``Sõ. E OKM @^pYθ4egXuHNW4` K{sh&5mH&ߎ! '@s%1J!^EB@͆ 7Zi0<HZ,ҀG;ml<"q!8k :sK Y@i=&I0k$(0i p*3PH$rKc&/AU;m}Lr8A$/GFJk n#g i-!]v[uB$0nTa r^YK$g$-/Lsh  sN i |P@nx@EZ:3yKع@@&`sٗ`h΀MM9.'$= ܐ.9%`,*EZ s9V]Nfc9 !kC . = `! Alw h93r,$I9''Y!DKC'F.)L 8<;/ 8-˦e"W щ>ciW?H};~pnI#^+OLSpC 31v1W01[*3չg0̕fk M`3$-e"gzO[3 F  }as-^@NM7 !π\nY389Ekk,` 6j|)`Ho ڨJh GFB҂PkvYIM8JsUeA@ص_$;!%lRv&23` #Np,3$횡"Q٦65&vrPyO+;%rp@Y@؟"+ 5Zʌt $-M! cF&UN`!ea }|5iZN"q.nl!q.(i'Go]#6|` <0 'B I @7B,&GXi iAZb||@ҨS$܄H!s<3fPX80 =`L:@%gVZ*u8)8!skCp9O4z9@G U`"`ջ}OZv>P [*kr9btrPk@&06C_ <,D:0`d@SD!0H@ui,!W 9[9' $HFZ.#.0$sV\.`! BNJ{u9ԃbUZFLq F-ZaH^@hh:cB@l`#300D.Fm`%N;$I2}tX ( r%c)|n@@\8B$#SNd`'*D9QMo @I;XC@zPu&%-0 L4C@<Њ޴%`/ +M"'XZcN^Cri{p~.v!Б<؉ H LB! +ph4v&m8@9Iq 7m`z&  Z(LՓTPզЋ|GI@I!8gc&٢jERmXk&3qL 6E<Ԩ 8d a2v E9A v7lEkW 57{բ~eߺ`fٮՒƳ4 IDAT%_`ϐ4|G(RV5^GJ";?CҜw ~'_fPRGnj|x*%*}Ie)ԡh[ֻ\ݮ 4\nOu֛^-yz ,MjNIqզZ~qʶUNe |ٖF"*mEqNmja!i[zm :JiZH{87ClҜ)N@+}@zco{)7Ꟊf.‡Ҵ2Ҵ*`cVz%RAEZM~ "ZH8mDFiHG9i\2Hkj=6_ˏNc䪾S^%PD@1wB!6}YQ9E^&6EZk4}iNIhZ9| Gi턴D .piaQޠg]K>DΉ ؿfU#ki'C ٥Kc ,M4 QNrJ){cHr0>6='l4Ks4&w|V mpV͐dG,}w,28 ?hh8Q:;?PϜ mhiaKc,MlHԟG/)1]{$={FʮؖH$N/4A AHF1l˖H/v=Hq9 Vv`J`HkgBm `Y[A258CXcFW H 6&2 *;ko9. `dz1{<=@:H;Ymx` m3`,0k6:ai pbQI:aIYU1e6k 2J6,0v"0 eVcCP7 6K%@nV pkIкbd1r` `h JL 2$F k` + ,7*EKf ` K9GzHF1F Ni6b<@B@F+ `2EKzZO_t$&2 m!B@W^jJkJ[- 6t<}:H"hv. \"!0 6  i0O&e*'Q(dZT >g##Pu#-CO84DQ{{' h+Y=هLL`L-깦+y9+7[ DN@B9WDW'ؚ}!Ki@o C.`]@ZFIiLF[@Zj"&0z$9$: @? =\$܌ I=(m@ڲ9";r+#uI>0!tU`yx]+*`y{PwY7p$e< NLӬ"q<όrC}+9 @D`zIut TtW`6*^@SІ0uiD|`!y!%- h$w`֕en$ U$Ii&@/y<12Pu؛lK3!{Ah<{P+p  P i٢HٵXY7 K)ٞ{χR:UD9s܏P#@sowX"U@Unhd<9v9N)͘<qC04@U6 l(+ @`iPl(pIcQT/`~~\m=! |93Px@ Rs? ܧ (N e} c`֫٩*Tm@``<ٮ 4ps`ƛ"`gF0 sHX19mQ==}cMf#)/`IСP` m0l84ڲ,``?eoht@4*UZEݵ~oJUMIhQsh'~! zlдʠ\ ᓂJU਩R@Y4^(!hԔ141;r9$/4CZѸ9s/ \;вL^0Ų\ժ xq6?!Y.|;A͹tZ!?wDBUqklQh&?)/\@45x>/"2yn<2r> HZH+ }{2wMȝ 7{ߓ;Oʟ6@3h,g0v>}F^@Q72ɑͭMim,cwdyҨC],M9m|7IЌϐA#`{*,Qk>_""XW氽W(" 8w|O e%B+Ka蒣]8ADЏU}oWdM=!It,dW0 ȋEZ ? [&9QV`z yK "Rjpl%@PXRgT Ip Q " 0)̮5q( .@"30!f6k2Y@+< b TwE ZG5 U) W Ђt WZВ50}tq-RL<  ײ5?! x}_0 `2LX\~@h ZP GVIȞ?9'r;xP &U@ӘD,!X@C' @Z"0 @@F! i*voSY tj[C@ m> ,ډF0N m`F0 W#X ͔k*fDNB#X0mبe#$U4,F oVG\Ps(a~'~ߕ*/vEjqkU ~!ME NA־2QUAR rZ"~g^=T* ='瓰gO+z+w.N9Bsg&,r8T{7|C&Cּ Ch=)~K;sT[zO#;⯢D>duAީE U|{CW%8آ9YTp5[򄡹:lXI ,05֛O=oߝWaz'O 4x}Dh ݯ8 ٫o1!htD?9'K_BCm%O2J!G,ANdWqc}^^O&͡e4o]?}ɬ E4$}1 4u~%͡oe]9AC@2#=dƀADOz"4rz2"Bo;_[ˠ42 Y]/%B@ ֟.Ex ftp{&`ֲ&ݪf*nDA(04,,VXd~ϳi@ `@jQk y4N [J|"hFƨh44/LKLzq`1C@Ь{_@`R0'P360 @ۡ d:dB_pǫm2 zBs&{BI{fW-iF3q(mvKlkHfNj']C$P; .hOHC(p餀d.BG'zuHc):Br0ښ`uF.)=i&i ME LR=p8p0b͔'_"'˲%=j<#S@,4!`9@j:p')@9RMy,͇`ȘB&kR/ yF r`! ~= O#g@LLOz< 2]q} yPH |d_yJKpv!"/@7CHlA<};J'Q*k0J j"g[`R@6nFS@ V\ "hQ@fWL`M M*H eHz70V)F* ,J l~O"kjy@bJU@&Yx* 8*W%MdMg,dˀ Dpj J ѩ.s@cU@U@@*  `tf=^3LXdh4 (J<˒U@<l5%=;OPx@7@ @*Mxfj&-jb|>M]xpo~ǎbf޵欌۲=Z-;uzf W""/h7gYcVLńΘI EGј4Y|VњDg|sᓶdN_ ,K!6vtng}Oow"җs9r^TBG4Z\eaf֏/VfGbF ~giDW~{\\*'$E>My҇&,-V8{ҚĜJ *5pU8B#j"I!BP@Z-/ϸ4oO?FVj@n Я&M[^0O+Q J*Lg" V"JsgnAكeo@ cd k3Ag7n Ҳ}nu\нpUJet_^! '}gF;ƱsC0l(|}wtu8u7Nh:sJe<`9'n9@*]q%707"]D YS@3RP@i *Xx}@eWpl1 Қ>,dhU){/N% UE{@pBg5{ #H—2[CFZ04e>0H.3Pq7>i @+%h5'( g*Gd;<[ IDATy`*^:ݬ[mA`i-79nC)&+x@z[2U jiB=`GWVml@!K @K#q&O 2P@ ] FSL*x@i(33`H`=Xm@'Jpi0)m zv4o<s>KSؐ(K]ïT2O/ P; YCF$I3CPZtR@sԞ$Yh@) , 0׹w!ݝM#jc6FqM7DU )D?75νz `j`H Lɽp$bû'Xx  Z^ ] V#r<2FHJX'Ȉ_ΌIpI]JtR@20M>#$Nq5C䥀xfW0A0%) =]<;5J6L;&gcCf-eϽHۛ0FxS@&T&0h ms:ސ`P("@|9-*=`0@S@(, M`7$94HUԻ F,@RgPiق{.l{wY`nj4dM^&q`FVIQSI ح2!IYz@?@&Ht6I͵#^rcs.Y7} ׃@0 Tǰ { і{=Fd tJ=tZ?z=U@Wa0 HM "'{ ];(*r՗F|'Y ‰%q@S@>@ (}0e 7ʛ`C0L@q>R@eXHa*۞TsyNvYQ=V#p{# vGs YD8U@OSFj@ "U 0զ04<{HYi:\%v88U@7ۅ@mF/v 6 Ȍ* ەeUUe$LpZ|"Y+( pR,+lJ!䣋Ě~5;>>.0:t;V h Tytn' ȲIDe"Z@ocϷ]o}GZ,,?R=>>=>g,#!9BZ,6?{W6Du/M݇<(p.B3?tv++u={=uugZ֥se:qN 4LD"M1h"`WKHxy@hҐ,T,O-@M&ቐZH-/1Oh$[%dg&^2h)BU@'~'EJM\ɼ\¥NqoH- KV0OwٕȎ~n`\Y&B%B+"7dyhX ς%oX{ѫ$/a݃Ww IE?yCR gwZtQoKxhg-fZ,>lW@eNkDv>0 z.=B3. A[&>gWT.Ehi\s"i="(4کӇn;e^+WCaB 0h,@ 6(J lC^QE8i=8Fj@Є?5A%-'(dAV<:r4G!5-G S*H>Ҥ"Fyi FZ5fZ5^ 8bv@BT4xdu iH(Xq Fێ&Hq IОU ڳ"8w@Fpp%0PWjU#]͡,N"'*V*5*_Kp^Xd!Ȼa (oQI. -2 @&~%Ou`V{)Gfڝ/hlV)7@-Orc\@#-A:RPҢ#IR~AVDz3V[xhz *y[ +*Д1@nX`uz$rX5 1y<. DB. gc+xMN~^p00N,o?\@zpp$I(7E0V,f0 )]gr"ḨSxlF8d4Ђ A{K( ;4@ (wS gEH717 eaPs IN/A8<0'y1s(3[xϳM a `pH8 LlKylMArY@B $@4zhEm"3.1#ߠNR1]@4Z13bBlXLn,m K;V(0w@ 4V4^@?,Uqן&- V` )/֤#l* Ə}gg18C qYjD*T죙lw+#f9i[`RȽ C-e_4S8* p Ȼ  d!pqpBA1HU@mA* O-Au(A`\@,`hC,(q@1VLDP)T4yk؀@B `l}g&V fmPpU@v@ ?м=`S~mZ}+Цl)ɴ[OQjv@K %- kP1.١>T }Jco)pb>t2 U| *I NE6xZ XQ@7eY P w>]ό.UyoWF7=;qH,ڑZϡBs@nc $6${,BK.A1h<;,/SӓgG¥po_ \ I o'{ޞpzYNKv:wtLQVGArZswlXDZ"NA_3ֈlgWzTM]1h !%|ຳ󇩩4GKI㦓\9&a`ih8Ԁ I iQP9CC@>BBaj@"uY}.,;o $*x.lʟTV0  k!E O; cO$@O0~ʷ~] ~ U0OD-p{ 6OCK hw^ TlS@@pu+0?A ֟A@:֦0`@6-a{*lv>w 9IodlAg(Qm[ @mFB A+r ؆m`G `  ۏE?WkQN̬ ‚K7h^Ydmwq%YdsV(q>vcEuRh 3؟1qPέ BV)@aYh5 Cq s)MϒVMo3nM Ek?N dFPd*h.4SW  o5+?xsH< VgPyݳ< H ph)z4Q-E@8ۦ. xZ@82<1!AQ@h, X<S*@ I {W08~P"lVXS(>~ab-)n3I\ ycO/s{ mVls$[OX1ϣwYfd.\hy@ ; C+,< 'ahsm0#yL/hcܑ,5 *Y(b} tߜ :}ޑ :2wyeЌhheI05ß7'w;ݓ>aCEeAF4K_chlN"wC[B0XЈf;V zwM5Rݑr . &Έm>gӣ=ba6#1Ǩ3xxW2(WuRELfXCcڐχ]>@C;d2k;֝*?8-w7-.NCcZz#-- 'd!]LF´,/%?00ې`z [8']-w ![Ffz֠q'na$?В0d:qk<%dϓfɩ(h'0( ~\R1 EL$D}(hfj @#+Sm4cC+@C `ж5 h hM븀J @=¬ U3#R[׭YYMR]V)ȋl14((Wy^B@sv2GS`FȭnWP @EȀM[p05ZHnYB@zyzN0hvt(Yl;cj54럦v ~,Dzq;lx[=\Yv@C@z/{fl @^lB{:tC@T;k<Y *f uU(Xw_cR=yx+ @iA(=ENn` hR̮DS&<3c@QS  1SfVCBk`hВ(-$*A9ce(&! 0zF)5N) x{v]Ħzb@U@B@^@az)(V@:Kͥ H+'Z ! q,P8!2W)KZR,0*+"l^ IDAT= @@'Rؐh( f )h"uBDx*U kd*J1SlztS"hөd8=VN@u~ 7 -R- @bPbSP@ p~f mSZWlQ@~ 2Тq M S%X;GHd0E{&( ^U \1zT((4 \= S>@H֡&0(YP3`$Kggxx(9C,! ` dk8GMd^tHP*z5 `9 {Т U=B hIgt*qxqyH&eC3  PiW@+FyGA@S· @0<`/ 00$8<^Q@tNz XXxy,,*%dv/5xgNL`Ht&.o6pm:sL3+Bq&L`_fwkfbl3܌L8fWR7chrBYz LRFN /T^cܻƵ(6E2ӚW0`($Mkz#K!d-FmΑZM9c%GJ`Z6;=JBأsC>AVsJ`)Z p촪7;Vxc6FWP WU1xzZ(|o/ z `=).Q_3GRh5pڱaA9~~S:?)Rǩ]Gl6]9/^3/V8Mե9׺ך-e'ELeK5 ܣ4%ѓ (~65)m|eLtZ4[9J^5a6rO@}Q9i5F {=yp.gvF0fx3g~@M ogy(@I OQZdպ@iIi amjƞlY1T?p%l8dE]P lQX6kVM) .65(G(-ai6x?@RR#[e=Hr?Wx?yѠI#o]Q  -2E+7)f^SctzDGlFKKaPl`JSq{µX-e'[\-k;@lJLr%yS$alb22iSFwpqt]b'JkP?h?Kp?w0Vsp= nV̑pT́al@+Y֠@٧)Ce ml90"zO 4ˍҢ)J[p2Z@^ln*{`o@/Hkd%;Ɂ{_W_p@`b҅l%nLjuNHϒ$ h&~P2&+qʴ䙖 lV2\Dieik `$ QV ec@@_+t2Sj#i(m1Vac7\ְ@ĵ `V|m̟hRZ0SLon51 t LO 5˺` | `dS0@\MJ%s1˄T0,!IzB5 `-Hv$-NPIO* &I0;LB0UT*,` 0E& `#tѴQ= xVSM(n@6@Cm%0+\/ ԷB@ `C@RU5t@9 ,XX=!@W\F @w0tB@TII3:lhf @k㍄&P.AEf&7xA#L}I@e#ِ2/TM2ߖw g((Ƴ M\Wti%Js2lM- U 6\p]9])AF4yOw1v=s`BB@*/& 4hcoe]Ya*dhx @f@*l̡2MZZft=l@(393n0(B@j( ebރ?l7 @t8e# # 0"I`$BԕVJ+>@p@6vzU0f#;C@9 !6 g GC@B@A|$|_]NjP`X?i{P @40]wH 0)SmY@VHKY@M)!bsL˧:9#gp؝llP9S@[CT(}0g_}! 1 W@ r|sG@+.W6nUT[(;r.z VYiY@ -jȈe? HI5 H3&|`@׎i?J?iг7WƊa{P>I UELڪirhU@X$" MD`Щ#yOeER{h>:eLL=VZp}P!!Q.)jE&gu// ]ec;}޲o~fYA!(MT8X؂TH@2ⴄ }-X!8פHp(kFa [ǥ(/PkZ(yAچmv-J|jk6r I蔾, ga/ )bY?_JJ\(eU,d8JBDv-wJ5ۀH7?w!hcm!ku6/?T5FKҢŃBiHMoAUD-ڵֺ&~`1xzZ(œX{m2gg!d2U'ŷ6\z]}NJR9{l+6'(Ӡϔ U-P2newAeyXN#ҖDB> 1 JK8(R >,*[ۚ.M.["m|{ }&wRV`krfv D ҠUYFB@]VwAeD?4 ąGڒfv@ikb!zG+ʡl[" 3: /`Ƌl$  H H`I~XB끶l DT6K*iD63^wik,v1q%m72?9d X`6k U<` ihm 3i4gFZ`5k@X"~q}#Rly&+j@HKQLJ&#:. -p!"Z&#Q(ZNiPS,LX& @=2$W}nhq7LJ/4w@Țj@KoXF ]30//"}?kq;Yz`<S2kFpiz@\@``3) fv:ߑ0fGY\V8j |j ,VH`|hE!hFiNZ5 m͢^Zxz㞽il(Q ip8X@#藏d?1i8`4{=81.E4 :3ߗ-OD}v1ە he:'>ΒE!h& H>0Oa"L3#]o`ng1"5d֋4M\@> ^kSk%R88 uДX ༯|~vv>Σ.@uN4kCm| @Is+}ZkIBOZж2:2: flgo~ `5Q}4ؙFO`swg.ry+8D.u_<B%odٰi>8IfFYڏB;QeCΞE[FTA'Cc.K,?#Q:XsU #[-O"3V ]if~k?z8i&rs -'T-3KpI2 ͌B/ =+ *B }/5V>VqƗd@,Qa,Kd6s md϶ngcdK FB/24 z¤adЖMZT8C#٪u ڬ9и3Ɨ'x#Nor+A%'P۟|EŏK-R?"P/|@gmﳉ8PY l堑q)?8?Fʾ!T® ;:*Ϭ,SoD?9/N-" Cˉs K|w^?3ldu>q,˲h`h BC3ad =~Hv[jNNW m x Ņ( PsX +*!2lU;{AP8vC5:}C +2rӺЊpկ"^!`l:@CkKyB 45ڳqӇ:hBgIvzhNwЈz}\@w]4zG0lxn'Σj0* P Z<`Xdi@& ERAdhC 30 ̛ 2\Xh~@.C*#}̾2,|z" Ɔumb!i2maQ݋x0Lf1_8Jf6V33iP+h GUu5jCdJ!03d an3\P-Lzom ж7F6' [(#2^7@C PUa @֗ 0rjc~N(~6a)7ܙ&8Vk2eTC d b06 `& d8@ Aeν|s=\@Z4Fsz9+ `?WsaF*:52@&B]@.Y016 \@?)(]@eO1~k6XO }(3@ z ] >r3@,0 f)aP` @ @fП_09LOSRo_`+7ym' 1&gzee@a:uav- i}]@2b[:1փtZ43- `nhQ `LyjchdSm hy5۟5\ T>'K ~_Ⱥex $H\S @I @qvKz4@GtE6d j81 SA4, YF̍Jʮ ZMNd{7Ȁhψ RF@fDǰ. MC@LiJp{, (,(a 4 E l  @y:as' 1 ae+tڽ.{aC4 ef-3elpede H4 h+ MA8)F;4pe@ B 0 Ȭ^`F}" `F`c1O( h1L"ݣ~SOi)#;$( 4?cQ@j90XehpLQ@& =b. 2 vOi0VxDpeW3#gqf 4h>ۈ"$B26 t``63@ 5"a$ 4fiO @^2>Xh4qY4-iWIfV4͌?U!ߪUUUɫQR *n Ȝ=oXDuA CsCccjd%(VC+4'h&{&sYh%J\͌dZޟ瓸Tn.PV=ruT`Ez3w6lpg Yv lA*ht6?mK4͙ t?!ojAY 6pzCFFVڋ肵h&㰇>SU"9@(4Oڌ3t'nG:j?H"[C9řZǭ鉼5VhI@dahVsSf?&(dKQ@j.|D<+9BtP5 n=PGog$8}C(Di0COf?ȶNrhq|BLEl1<;c NCӧ9rC:D/;ވ%be/ ~hrhO?td. 'qQ8}^ux|e(wZqb-CflH-LNO8mFJNXutS ƞٯ6/$h7 IDATӝn4ud P?ZPW969 = #1k *Th hM{5*& %`5a,`aZ-M`scPQ=@Oxtܺ ݹZ_Sw6MJCzfM8N?(s4!.SJ,v-͔od[]i5,'pgaZ.hzA e akpǰǀ|f(p4^pe|~7nX2"Э'E2dqN{@W!Ft?+J%4zFK"9BCVs& @ZGv?6|RrE8Ai *igҊֺ@þL&/p@_; `y\e\; `V1E3]JRPeIndGy}TF %"-8 l7ia`&VM @}TmK&X ^I>NۤZ]|8 AЬZD 0B@q.@bPC@n@|3@3ЖKfRg~;|eaa=oN ivcv9EK;/iߣrBrێ`%@! `= P@!w!NsIoB@ERsEok0'j;4Ex3xXy=2F_O'P@1޸Q ic@ E"陒tr?hmLwd]0: /hiOd92P$j !x(4P `=U{ps8~̦I@V\ `74DrU>yi.9z7` 9 ?$sM1@p rl!B9Y3kTx7Vu" = vA؍l^a>S@, @9<dF򇀺9?](9/@!A7; iQA@#4 95I'Q@Dt(ߗo3}J0 T>@P59}Je><!UtЖ@13Fp`Ț l# F9Lr" ! r(*3@99Q@y'  4l@p{"Ш$p@0Po`ʉ` M˛7Gx&U`Ή`B@l v&@@ody GV,j)i7Íp <Y; Kc(@d,tۣܯ\AeQ:+]Kָ R,K+HЇGKT6zXR k?[-3m=~aiDVHq .ﰴ}Jh5Ǎvp=0]#e'')^?'ŌntDgyw UzҨ+$ZA @qiAEn!O 6%t`{MW3hF3$6hs-n` cTny 2Q`hi HUC ];,a(#mϰ1 6PmMRخ'O4L+iB[:\v "C*VNMI&C0En|K!)K?W6\u:8 yG -/4nw dye ? 'J'.i@v%%-N\伞"NXGquAv.@zP 'a NuzyVK*U&(e=t]PC@|vm@[.4q,)m !vyVPxk8 i F| @@oo5,kuBq@Ң}>S i3 Gk Xkh!V=fgޫx%ti M+#!ˤ9Pe E[ `P`1!]|hhY6N<9s9;B@SP `#HRZl@H8 @JA^Ԡ+C@L=,!3*Dkw%ق$MҁO—^ W`9kW6 `]ӑFB4O 1&yr l o{& Sw#yʝ1!! l H#Utpj5 "GwXM|O+WXI!4eY@9 He @Y Di?*l%i@wf@?KH14^C@țRrB  `6*m4 \p\`%(Hm @Uhk9r2([9s@'G-px`@/mf8  $Q@6G O1 }3sQ@S4X9 d3 ] `%SQ@Zڨ"q. @nkX `X@97y.*A@@K7@S(96^!Ӊ Py2IL;'Ut"E(= H5?LB98rsBY1D0a3@avH }ҽ&Nh˛fO 4`F#FveR|.{kf]m-@kXt{3f kt6}H[/1bJLF?RIקB1YJUb7-}*|w/t2hs,/z!/BL߅x.T^yӿ ~i 8ox#-GH<Қdig\F0<TY T(x.L.)8EOuuGٕe6^5ͯ{,`~^at {HG?.,يnn֜ DZ q5i-,2>;yI*4$ͼ.|T%OSZVV19{TPWzpDWet*8U1"`ޏ4¼R1,mvY@H r4)*VV9CB&Kw4 j'cd! pYeWI]t-69kV0N0n&-QfDq`ieۀmIA 3`e/yba)aJGj#%~RmI*nH z7썽V;38;H{κd;-M /,i%FlFvӾAYhi៤6)4L۹QXڂ^$r{e}hgލG|'%M{ݓXO,q+%Q7ڝqIߒ^8)6$ ;R;N~gR  xCCj{ `/ =`6df'he͙:f<@ҨGj #P.Q `QA9o,Nl@fHۡ b=z uq%߶ i iK:lA60,2V+`[,@[F )[Z8 `?w$4 p_ЅԉlL `_j:{n0  dae$F {"v#P 7@h6 + NI76VCP I mL(N Ez6`oS*4iqPҜ0P26s IE U,'x"Mr4+lIe~lhi~8C@p+}p%--d-3 @8s@-'ND]&WMbwJHwC0s -M!ts 9B@zu&&Y!(88AtC@H;0! I1bL2 B H P@eB H $>XDm BR& h `iD CбOSv@q/e'XF6j 7ti! CY9ܝi[3t@! %iB@)9FIRZ Z!6v0v@<`'E RQ]6Q԰+fs}Cm8At!yf>P$E* 0o{, #tY0;,RX)9q<q$Xvu" @~|b,Jr{rD` wy--e%PPH2eN`InKEn_sp&!{`j<Ph0& Y@AX BMi, pC+X k]zO @1c:9 ,{F@%}/rHkh+NkVg]gci4:ڗ@5+:%6hb@;@@2@l3~]}t|P)9 8M==1, >?"eNV$!` K*_ u|M vNAK4P=f/+T7mB="o#8@#,19M8 gE: l? Hk #tB $B 0Ȃ,` -M hv/T+Ʉ>aYu /'cm1"{B{@,I" e|Duu<OBo-:槲n9%^r+U w\*.$-tN' mj,|JYð,a]H|Z|m]=cP- 3ٔj0vU^mf'Ջ??F] Z9?ʨH+4VKH ʬEtRUHZ ҆!WDqT(i4y^ƞOSZK<$R>Z('!u.u퓌Op@ʿY p ҾHaQ@ F~J2 IkR+; @=Hw1ePMNu F& Kuؒ f.@߹?JAl@v޿<H @ <'%-4NjX (iUk 5p- @I;Z[;^!jмx@ߔ0ϗ@ZPV6!4J*Z @K<@e@7yS9ODJ$sE![[8F^C@_pDk3t'p 4@B< Fke` w;4gbhFp%@MsxF%nPl<xL`:8'9M*N\P2΍g; `-2/S0 X_' inrRrkT/6th@xC෌=B 94Y@ZLX9->7'=s0$9h@[<m*fqӅdZ $@;Uc[sdIN.suYm>x_ѺTg 'd|Ү v{b>(vP p\wV@OM Ep@pG!I. @9 WMx'(;+s P8GY@G!nC@T4g8 IDAT݉"^XPV7 Y@gf{eiݏ8DNN+4K|lC,%Pa dLpҁ0f[*сT4 8 @ pipЫ# hK7+56@a#C7 H- *2 @qY@Ł~Bz_eu@_"MCe}UY@j2 Qг8 Pj 0:Vč xvX@M@/0 `iPϧwt) Ai@gHPɖX:%`@R{,{g n!8B{B0*w\Tm= }#LglVpܺ"}_P|AU6\#Ƕ ߍ3Zvv|?9[,Cp RNAclmSU#?ehw 66," ]`DFzf+9M!4|Qp-y֕ !OzK괌!BlthC-b$v˔pnpIhq}HQt"4"_i||=qŦ9:16 Ng~WorC@P$%oE(QmuBUf$BIiaR.{DOpg=o,A Adk=0EORJc"5gIB96Pw$z3mDVk͕vjZTvL>8 AkAb AlZ}-K(-g85  '\|]z 46`B2tCD)ƆD_J[= 4_Ch2 Ms4{,}LI{b j h87 uN4%kCy5z+ 4E&qIE;)(h&hl Y@ulV@ W5Jh7 W MI 4F$ '!T3 @º>PZv8XdBlkY0x/ h.`9V. 5])(h@CZ8D,NZF|!NRiQ:7YL>^/X/Bnbc* Er& S\42EX)Ahh^SlW"b )ЂS+W `KIm DӢ84J&hhPC(dQl @B V !  βP)/ `@?4ShlM߻$| $u K @l3\cQ(Bpc\@ʁ ! ([vи SzE+ȸHhfHCN,a*p  ``%KS h]@էRz++ `Pz^E=Rr&|! -l$ !Q 0Yzaܖi\B(h @B+ZEF[׫.tH]Q 8g wJ[[k3٠A^X=@T1v U$ c+UApdHjR @@3=,Eze*}=pd7@\ @) `){Nbp! y§&P=B)1]XW З!I @"C@O(ͯ6@*I  @δfH'_H@kR!By}Ar- } @+TMe PĂj:V7@AGR Dx5*#T 842=y֨׊a@݃<[hEנb| nqm$(~B@0D&?К @Of# PP0D! i7f# ͮ)p*!  jS $ ;(ObɌ+W g+3ZeH|TZ({&pP7Y@*8C@R+еx ꁱAB@ESV*<XX&j. \ @5_hP}ּ T=s[hT]mWrh@l)l ֠݃3hS2zBAflHr4BA!hsEM!\BKDVD6fsl> r4%v2<$:$ -B%ZID6%l Olzz>o., *%LKr;~)).5[gKF̖t]-Y?>B`24d [^kKoxǏ4R @[%%A%'e! m#hpKZ@W!O&G3xNPU@+n\uQ [J`}zJ㒀9^ 4] ڱ ڔ}zDN=?- %)3{-KAp|oTB#A\:Gsm؛ S85qxg $-W,+vBSv'^J`m= v'w^OVp79CVZ;ZZuy@K ?ǟn> |sxhV*=ꁶyB+.3LjZ=esxI[`YYA#V*:e8z8Gis"V}+PٕXVЇ'+QZn[05# Vc΋!vÑ'|@Ҭl`QZiY@>(`=ZliV7BibO#iYF|mT_iҲ^PZH711e xj/6J iiAF{3 `5\ cFZHHZuFW-AeY0&`7?ڵA3x20/S0Ӽ 0# jQJZ}]H2iH^h$ }+ i5#-c7$M HK,d @klT+o 1/G`,(iid,58vKR$- r呰٢<jiM 2!cZ i"zJ: lL](Pp`EkbE* $m^nhnr ]i>ȃ@O-c)\6hq9 ,20I]2 ഈ#@!8/ߌ&pMz7J5愀ҷhG$eZ|lPhU9iZ4sdB@0^tY6U9%-'D?a;þqi{jYM 3\!7#w@Kҟ3\>p^uѬh,j(de  eB@fQJ&Rp.TH)s Kp:96w@冀#vA[@787A01P@rY`&@j.HQP! }]. @ xUsCiY /n?:sQM5 ,"i!$$EZT@EC@f$JܣvMCwY, 2\Pe pR @*QC YF:T8ܪ9eJ.6hF@ٹ0ɛtC9}+۔F99r @R00U&ripiL @UT|,O*`FY$"ޫY@'Ugu.*vE UM3 "M@'fe-|yc( M> 莱 |11 C0ENa,bQ@A=5( 9ݜ3C0bm0 HGe- 9=`T\t8Y@8ޣ#xoh ۔29s<`/y]yy(_ϫxX6;ewjoӀvEibJ K^ qJ }Pv%t/PR6JJ=4ql@i 9~(PZ(m:A;8bҘ\~3i/9'G] zg?d>?#: N|^SWxW8ϣxq޲(M\%;`>s7w/\Rú;K6qbVK&(5Os@]%_I ;L ݎ ge<|F)_]nwk\p Ozyxxp[,hOJ2Xb-vv/UߧxO.Yᜍ>fWBiP8vgU x6I]1fE֗GeWIbWZ:)(_Zxj4(I (?_K[w$%SqJ @r-WW[s|m|_O{w, Bܿfu1J:ouvWJ/iC/CV~ .; w .~e4WhcEeK_[_)BibŤ Gx<-G(IwЪ-σ>X\'#<#oZ ҕ6+#}^Ś%Pu)Pjwb%/qǤ<4X[_i( hoձ,#cҾ3i+mܲǒI1KZ*Ui^/%Vԟg`w qwb]zQya-lƥˬap"qG,Z>YПت6 h߲l5[JD $a ;ϒ|,u [ºYI[4SϨgj?=o.lH2LDʻ@Z@*LK{K,jPh&!|_y8kFmK @r"[&k/\b^Sn`3~nz@ 1NX4iF7f!pY+2;7вMQ2 JZe`MOfV7|)7onl?K7=E7 ԫLW{m5 -<3wn5Q2\SVDW 4 4 7yox_? @ f @o,jcg aMZ㦘fZQH.i&i5{A, 2cpoPV q^#xj@Rֵ4K@c4@KcKĿdC@@``Saߋn2mGU %lu@*dr ̌ٔn߀M A8-}bM9@8 clE=YMj9O3 B@4! 5N$i@OMiU"3;4(4Z9>4\;n"1BA9BGVwV-03pԀDUE``@P0KC@GJU %sov8Cf_+0Ze `=,fs>%4-r9AqP޲}ăo7 u8lUJ5: ŗaw9ohby}ؚw9oX@1@!MY@="NJB8 h`f5he2` %B@rڿsO~K/ ^~k@VP]`@MmGgZǑ $y~-Yİ9-4>ЇkV֭*9\@39 ;0. WP ;e @n rM4Nh͏" @Jp_ 5\΀t1=T 5J:hrmi)Zt@r:Ȍ^/ne,W`5h$ ]@){hTh_T 3Y[45dr)Kbn 26yuwP2ZvQ@ \pAj(pQ@2X <0v`ֲ5VDDv@+/ Db-=>T 5w3uj&0؅4/`"S Yu6»k,I!ͱ{w1B+U̙dc:'M@{Bhl&bG4'5IdtNHk 4 lڎ FhK/"?njRrERFgIykH;%C_˫5'uh:?yyy#(e=ag1xfmb*etSb/@,BәU`%:7+r Rjj ǭO0~P~}y}^haؖgKϠ{gzBH(0Jq1a!ֿVG/Yޓ)HNZB[#4IޜZ~A' IDATZFĨНpz ШgBm6 ipZLIK(0Lڀ!Ļ7a}5Gن@ލ#2slY-ӃΣ #5°8 _f;8$x"FrF%Z:7MƆ-d=Ian؉ {mYrm=kđvDhg–S %I,Fhq6q"Ȟ"#^tBh%Gzٖ@;x pdskHǢds==ס[~j h*;@hAЖ!A5dloeSYSZm.Bc{Y qF%x*b6#ֽhw,z=gp9[lOUh\ @ҷ]:zA=NlٗJ_z=81{; h}Ml@~QT^3Dvd8iTPh͖o?X"4@d1B@V)21:C*!HPkM#192vkbSt4.0P6YRbb2p0$-,6-5gVH 6 J `{70TU .&gS1D`ʾeEv,T^s])y0@!cn@6gYz0иP4aЄPfuX-UBd0fGS *)~T! J%:2.5z2J:e@,R1fY] n1]j@K2 9,3z8 :hlqY/0mtyRPWr3q-]/5#ezL"M356$` l?XА, @O`fR F2.3 2hhO۩a  2 @ H'8 ".t/\ J^. qJ*J-e}5. 2v'34H41f!03i7.he3CY,p[`_P29\ aj9K@Oܨ4 p0P/_2 VW @A˺ 4 ۷ bm5 h|g2. qhbPӼe. ;5m7] @A+ 62?h]zߓ^q_50@[ė3 `:;`4i)\`nIc2g{mfbZP+bF L2?P `ak` U ƷJ@S*q0] .n\ˬhhNhn`NbPlbBе4PWBVb" kii}%MG0Mn @B;|/k?/ NX2ҕvl4RɃhd$4eH1cVre @B. ig0& `d\@'1e@]kƔFT( (Z@+r) ' Hh&D0ٹ V>YdJ 5]64Fտ(b`0/ j` [, WE@ZdIH1yQsQ@_[bYQ@ZbFgW<C7Ah#ŬUGZ. [ aQ@Mo n \@ Ejz \@m@A uIUfjVk@Ug8@hf%KAGPhh@PM~s@\@a=( C- @AS. $994M:MM. 3h1n0Frڮ( <#4[~Q@"yQ@fr`fuQ@F;?ZR =MQ@ o5] 0y /^Lh/ˣ(8/A[TgH F+ 8^Ъ۽aۣiCTΔZQhXHS .1j#D!?ZCZ_ Y'pZ((FhqXT4z{_-fB!GKSRWa0gi>n< fyc^uۿ.z}}f۷c?]W  [ mIZ)& 0#`lܒ𚓓Oi8c퉜n0i,@h,@hA:Y EU%zu{y /(urz.ShlZxZ@}^dا ?Çߵ~7Uj]5*MMe`I #К3-J,_0m'OӞӇWi&EI#&:X^-@%ql";`>R(aKYZD61X~iy#`?Ά9m$ óNa R"s€o g͇$HĵϫE}gQQT-TWJkQ`-f@yshhk5F?4]< <B[*x(}ɺU&23a4cxЇg~VO1.*-[RiEJf@ģ>oDO`KR[&391PU  sٛ&gM ` d 4lKUҚ@jDScU\ MPi~ 5`pQ훆hi`Rw#@FGX_70PMj4?9 -=.y~0TQ; `9*ȽE`2kl,Vq2[e!  1$W,9ҵ.DgiP9 'h&#t4uLuyzI0`|a9p?0̴H :iJ)p36 L|U@0eXue[0L9VTO!PlnkAqsjuh3g%۸B@rK^%]`~^F==pzxPo@Xp0n'ч!iMtH ˏwFjʐ9k`0Tә5&&W'@B@A r8j ڥiMr/@G@PM U@ @iF0U@'0丹r:w$|9ܹ@m}|#`!9L@w`ezucms&ewoiM(@I}v(` 4G59:@ЃYztwhT8B@Q4_\ӭ9õ@',90ȭ9V H `&mC@ N2uy`!8E Bsse4r* C4P ]T/Q5![ƿdGoM_b{W{;Ē@` W&.JV-OL(U5 [ IПWULIڻ.D ) &5U˫M+OKڻ,>Lڢ pAHۥOz'Og3U~= F1+}{}c۷ލϸVJJK3"c} TB ;I[2i[* N)+,Rt_;%o_qJKC,8E#jTx.Mks4R/Uk6 ?v5ّ7H;ʘHSD] Y'Xg 4$Jb2?ɓ]U;\،vm1/YF?ײYٚJ!٭Ut̪OL#9~%cRq[*-RiiA)ƁPe*oKvgvz@B[32AxkaZLz! :44i*KV#KMo{Qe;BSSifCgT:Vׅ}xF_%~JL? :kc;s#W=[bbXz0HUGx hizDiЫDYeʜ{mDg[jy8 Z=[2hi.Fy @ HSb(h*CYI{5Z4.95q &2R4npooi0Ջ0R} SdfkixJ#e8fIf@Uˡ0Bի~ * :@= Y'wme @ɺ`+hlTP"*mżiC+\O?eMH;g ~0L<0D 02 @(A0Ƭ#8%.0 *&$%"M  0fK+Uf(qlIz  KJVW+ȪP~zY>5\`"w&/q 2FlE^vw4C@#0oGD @PS4  DNxF%=r(,9Ձbp `zTADl1H3,9';r#@m_ F$*1瓮pS ]`B@jXF@)JF`204E~I`//a#zLuXc O1r}3Hiso&n HlcXLuip5M; "̲PQ `jCȃ SP@$0Hko/ rβK! d]6sxH8ʇ$HZ@ &^~r091j@6 Rw(;U@0l$ОAbm9;N9fU@_TP8 `R3-,U@ J[ 4 u|sHÅv4`@OAp-FUj5n*cLw0v X*v.pӇbnr$@n*D! `3["tU@,&* >)"@*Zpّsw@7 o{c ,8삶 #-$* N@}!XZf&~9HU@`z:YX[ $$."T!eeGX ZJ`Ac*^#jr@7/ּHԻb'[-3:;n f#~YuoBNx&MD\#M%>s8KJkGTOv] _V!&U;7gG\Osz1iAlFӤIRJӉ:)'T3*lUHï441{"ܟGJ"޲jL:y yLb#̩Sji4NE F3RabjSoGB`Q6&hj"~! ޯ!ED?տoK$}*sT?FmZcɱziuڕ"n_UEЇI{`D zmu/+Mͨ4k4=Ҧ|Z*C@Dٳk5p M}ԆI;y!vŋx8FT7w,iz148QK*MFy@]VsVӝ/j0ҦƉrTC-;`5yM%PifΩ4:qro_t;k"MTis9Svyu԰[.r`]2 fS5ci@D-c|h0}F% Yi<cF+;&-6(;=P u+f_/ZkϮp<9=:2lGf_e(sdۏH1Ad J {o5Y@mkne$\f,cGZ;|a ).5Ji@YP ."v*F(2) Hpv Eؓ:Xkh;x}6K߀#TV" %6FM充6;*;jpSA!Z5b!~!Uơ/! 2HgH͠P9pʪn?8@LSgC@h%3 5  7E.$su갵PӬ4r ]V %&NP3hHq`*V!dwljS Ͷ#0v~&C-6 UwG#,?<ӗ$ΆGoҞ48iNp&>`Էyh 9:/!2F ޔ ]*d?jCI.ies]_J$pEXX IDAT9 }#3@/9Ņ$ۀl c8,9"C/{XXs}ඓ"PG[Q@9K&UHM2I] !ťrR`c "TmPxdL\f@p$ dG6c p}H(EyP9F٪d0(Ԍn\ ep; NhQ@ˈ p`ِ@F{,hM@5QI"x!3: Hsp9&= [$ ]PT&N%xn9-@@"p99u 4~dePM#9f :$Qvg0r5I~/$\ 66&j UJ@ `!QPYgAh`+B]a13tFlF"4Wqg~nږl"]`{?Tg5 )"|'/<Lz`X#@"ٽ9!9O> lF Lzs7F& }Z[^_hƶF>9@ J- `@ hI`hih5=ZBy(@wb$ΒL9 $p2 3:(9HP<|WK'@@@xmG"0b!$xv%1; fd Pb@Fs($0ƪ@Z-( ԙQ@q$ VMTAɶD+XQ*e;>8WK\n\$$F AÉl=6 41 4 vht k$@d brP @̡vT3QVf%A K0 h@8T[gEBO8N1wR.i}ٖ.  [t(^ /$=>mfǻ ,h,S0a@`:Q14'*β1gd!4T/M) (m@ /P%q ttɩv*Yf5 QI1g4**U@hnt ̳ (Y8`4|@{ `p,_inW$7**00|@Lx.gv\M,*}oۿF-Iq`iIe\ hK0;`xɍ`,%6]]=bnU,Yb``PZLlhn:S<}Es'lji.BIAkL# TC7ҸV+4S[BzP'@tXoX=]#љ,`z_0Aolճ%  xTМxv $rhA$)8ُ'G˿ D48뱨?+5?AǽhFu->vs!$U Mch!^Nb͊#dd=x&yE^+B6gy^/JҙchAFӇfZ la=0+[ d/d+$ОL}*lƞ14Aq,V8=oP-7:3:֞ן>W:ǒ|>m/ s;vy!:_ahl5q0TO;8T-Bd~9hҕCMewEZh¸hw =5B}C~29M#4$0>t#=@ƕfPE @4) @RG6!8d IWMEπPޖ7@; ~l;"F|!=V*ɆO W"2=ah^aٔk  Rф`y`F ]!do\8E@45!El*4BpM\}  `W܂F!LQ@B*6\RSٜU Pg@B fD3'1'U?zƂ(*)  8q @d;)3EDThv B Ur KF| ͬXIfF3$9`=. S|/YWFVhlVhh@ ( MV(M)0[\}Z)[sL Mg:]@ڑ@73l5bC 3MyF `Sv*uE7,wRh=dSmx\@n^Sb@WzҸLr W6-/QI)6h3~S $ڠdbxq"ίT8. q+> \x+Ec>Le.82. N{SXh۞sT :\  VK(ؤ\@%vv2Z,`q0B1b2bA`[H1 ya0" SٯHF6@*?`m0N+I^Te1;F2Cb&pCbXp+MJl fBЊ)8 U@ fuЈO!1fC48/S QL ۋ(6|)cra㫀@)* )1S ZY "0é_iFVlR)*.9vU[6IggTbQ\{Q|U@f +Pg&le `IP6yU@*U}0$K*I*(M}%1eNpV2NOQ.*IT\?)H&3*"(Xde}ƓH@R,{o1')cŐ6.p>T,jK%F6͖oKvfKhc@.0U@nv<@ F9Wv22P4J@DQr#ؙ m w@~#]d w։7#BcΝh]ɧ#"=3=>^ow37Cۿex>Xh*C%D0;zD늗)AV{yk{& " 2%= =oͿ%d4ƶOpw0!d&DKfp)Q75!8gZ.9[]:JLAQh@ЂZٺFzeB2h|7ƱM hbmqt:ƈ4A[h_/ T-5h.58\@kXL5!v,>Р Νe]dChg΁b~^"hhIo'Mviץrк6L^F~ҫ%RRf.{\ȴ3{T9#bڦҰt3WXN}n&g M]ոyԈuyN䡬 C-ֶđ+m<F>"3{Tߟ qbhCco<2bh&ScdwD?JO5-d/hSO-@ hM5M4\iRTUϹiE[& !BtQch-s#I=紮.7]o@u%JC[yޱѾz]ŵFO&ߏ@]hvG%+=(1+{ U`JHvy`cpGZG37RsJl!8l!8hdC6pcZӷ%~4Ij5wF F ?PFEA;H ` E\Ih9e%8gWBpYH$fy=5!X! VEAsA9  xC[h6ZG> uΆ7me [ 'VVR[($PS׳@z1Ei_;~ff<ߒ0gG?_ϗ\6 m ISYkX=H+Ay!ͳE  q ee  ִn%@\`vf6@҄K4h6W +e@-#vЂ{`)5uQ ڎ!" I<bA q@vm8h@(,"8)1l5-# ` \1-$U@O8_B@v&l'eܖH %,]'8f! 5Y h-274Mnѝ!!X .QiFHP gL3I?4 jPnh@sY&u2MFA|}I yM3 jOeiU!7 O@KB;nmOǗY! V29-Y0 %ZAXJ5 O jkU!0 O_^5jґ@ 6З`! @ 90uw "@:`]`Ai%!H&we&Z49@C@e:\ C@p:M Ds_D g-Z] ̲mg`%s_De9yvI!ZaM̭6VT$dB@ȹrF4AVaGD @. ew71LsI4[$& |U@-32pamd]9j"a ߶5 `0z0 @Eߞ9 tZ_1 `i  ^2О,*j9AX9xӅ-#*WaQ tVevF3! 4yYtwhXJVAހƬ urMg2 MCn]$M LgEg=?X(Zkr -u YN< | ǫza֪ I: 2gU@#S$C iL^ڢDhsq ,|liQ* IDAT&XHg)_>,ӞJ nmqmfl+[5^ lVϥɃN  ݙ~kSSdfA=fĚKKdd%55AzYTʕOb>hsmn%j~W_q4,AVH;Ko5LFX=l+ȾʲѶj=lb=S.|% Ȟi~){ѓHpiVkƥDdE9OdGܨoLٳz^@HHspZD/  #D/RѮ xKx'm0X6Oҫ(_0*) {e۴\=)mӠЦ  ?#h#Oo}ʞsmEOn  4,b.-3kgx:4ov^owl y_PZbRŔY {  ZRB~9H@Bpif"&Gz2] O7IE巼+2e i `R1莪j;9 q35bR F`N.!^~?2t @U$@ CA'{O@DŽ0`5220w׌"#IVI iD`T!3I7@@`U%~ Fr~ M@B@0W Ϝ m!@e94>8@`-'k٬[!BB@x7B@j!|23 gl?!w5 x aLC@ .E2ö `,C@o+@n_)!qu 4)LB&z@t/PeRCKIM#@@%$Lgr7m@DX1`u- @J`V5x30U^5Ĵr]FU@C 64^:^: p! 2\9HTU A;rmx ik4DnHEh 9D&'r ț0 m'Y6I| O/ilZ~ x>,K+%RQ^&ר%$E=DKrr,&-G:#&ڦW]z%)ën:{!X$ή6k1ÁJ`lΌo~{o`޷J7V/S6lKb5c[*Z<6^{/|9kԀ)%i}!-?\ߙpivN 68W36j44y)fؙrijBcXϧݣI{!+X;\i .M$Gq/b?8cZƑ dU@NHl)zK$?c'W|8r]^VZC ͞SxTշa]]Ac<ԝ񇅏xo6@,6Zoenb_ EM 3BKyxŦsoXA㣌A;~[_N ) 9Ahà0ϵ&Z77hw'l`͠%|[ $س*;rd3'h>˞9PЂM xZ'}X"ĠI&z3s$X\GV9H?Oݳe3ĒY=0%l${;z[AufC/_Kgϋ])BSjbFK&3_?Dh@bjc'7; րl&feF+B_plЂ,!4YQA 6Hh*MF<0h '\$(&Bv\E;>w2jqD6.@#VK>hʿYOV uQ%.rQ0u*8d-Y{ю @:`Y Bp)H-; @pS@"s^v vp бg_oF*+[))oUihU0(#*offYЪ 5PR L`A>7*f `Xl)p.Fv&$scL+$9Q'dI3&ȃqSPɾVC˿อ(xhA+-x?Q-^@8aU @_¥㧌T}aOӌ1S-3u`cw)d(M)B 1 f~`DX w~ CA{h@hJdMv5yL,*ZN8h^QI,1?SmeT@,)] VTP8i p) ? {)7IS@P#`M(\o8:1.@xdǵ =֍ʹ*fe`ueXqh1+ $d@xk0) 2tghy1: ̥PS Ec_f#&}ŮRd[x5 `E;`K76dQT\P ϡSԚ)eg{p:t`߳թ<@Tn)Q3}m)V0Xf%"l ԸS^BItJ<" VTnj6x/@(pЬ1Ӿ!Hk=JKXYMa L:J!䦲N߳<jq@YH)D( c@XH _tUkp 7WI#D{Y p gP*d߱ SW<H鿻JR@=h 6 ZV h*?OUx&tO`=Lꗁz h(xa ͳ m4P*N @]W9po[ lxN@i?QG+O`S@-R~h*=*@ Hb eG?H6dL8OlRxhԝp1Ov`/B~~Z@.+4U;L-ݓKVeV̠ {=_~S?61Gh5Dhr$/ LpԹ_@ x`  A ˻ 41Ah& lΠ  ^2hSm`\QƇx,Yԓ<Òw߇Adyg*C-xX!DQ90#SZGh|\ #x&~|Ġh 'y?REJwugUmKsq | 欒@S Z-z'}XML˳#Aœ~ŨfBEY5PKV{3AbD ~Z XjgyMH`V0 ` _OfܽdTX4 z>i?}ףq BSQ'hb`Mۗ9 W8`jSD6x׾pwVŝ{wM<" ?gUl!B2Mڵ6d8qI\A֟-zDhjDh< ZE& @-- +=!=Zْr dgKaQix oE"lY! pVE(e=)Q+VzԆI@].s8r5'.6!%|M$0RpZ-0H@ЮE8j|.W 0qXY貜ž^ag3y,"|J@CQlZ] m C+*k,hZxt9X^RZEs_Ά) QK xn;*Q|t lYwsNr1>3pYd贰%]1ShY06RK МF2 x*I IH24r@iyMaVfC$3,P2;)G!wXJL3`OAqH?1Di"Η0mX2l0Җ+F%fB@W)}B! i3tp$2u2VN& e'@ m=@e 䅀 p$kL"঍!)c(\ 2N\ γC= 0L3rB@<z-H1! 6 s,dxZ`MC,d؝@f]@ZPZ2-@6Q4;KLZpo>VNi T8i@\рQ=E8R ypI`/rC@ِ f$p&-`\-'d) e.SG i{G077( '\]3x$P@!i0sr G%DC/R2]#%I±l$ϊ a-\k@ T">P1 \FH.!Y)4P:?pYr@V ZT?PBJsirH N9 9&O"] ]净 .PFGU\;En7'66|LЛU d'2?#xVjCu#Us#Q'x8 ʓ0І4pZP5@,7p wū*C-UPk(_Ph A86"`MU@JNwxmP)E9HlxmZp6OBX? \HZ0s `Ker]N`[Ǿ/|Eqz{{R-bz1;/мS.M-N`. ,;Q)b[Ba/wH뉍f'0^BRyb/VwL7hQ;-W+op)EHXGkPDva'wΠ )^:]: jyl ,i;[Q ii彬,J2;E'|x;/+cy;4]ދʼnKwNKWϿ^v M8q-=)/iNW-g#Yu/f8<#AyASv=*(xBĦLIm?@HN'(lreD}n4SHE [ʦI{2LFwDMXM R+Q.B^_FDnfgt1#3{ L~ǥ89`.*B݊@);0M>#>t'da9<8P8b>K[Oqe=ŕ-Daeʮӟ46LG!m @ _xZ|ۥ8,&`p 3n*qOh6~MPTqee"q22@"q2i f*m.N(vgH1&-ctIH>=-@ 5R\\2'b; ` $ `w2yv+tsE5>`hn5 $R m߳ʤ T7g@Z@7`ט[ iQx E,@ZHZ8j{"@)D>0m` h `G ztC03eGeQܐ mK8 pLe< 2c(:ܬGYҹچP: @Ҳ# lL L4 ``ڄ4+-[@kp\Nھ$k IDATq(&}uk@fB@02*4  K,Ң +7/s,^ @ڎ@lm]<@! cM `(;AmbۈΙtEfDfB@:MuP ?z-L5 (4W \  9}`qmœ46T OV5{pF!@462o{zL@cs29#F=e9^B@x [:bP&` Y%n~I4 #9h]30c9VC@q* CC@+u9m0d 9U@!CEڳB9S"bSY0N 4\heWeݍsZ9 M@@ W& n JtGP* xk8sml^^rG* LWuC@fɌK+@ P* #sfU@rPo U@>`@\w蠳U@epAl!%ĺpx<1c^F;Q*g劃!+*XQVW E;Io۟Lۭ,})BҦ++ʽ{XɖNB>JpiQ̥ŊwZw;-jțjɤ-niʥ5$S|<~^\,F 󩲅sâ^A>,2E<ooKhey.K ~Eqew1Z'M>,}!MKȟk,Q*z{_B{#5,?я(r\?龐&SW-kk|=_W-jMLFOx^Zxϗcg^٥& * ^Az&nYvr߫AW6wʴN<7g>)[.?"V[zdNBk)}JDxX 2# E|{Wڜ6EۀRV1Kxef`d^2W=z}o76L8j}suk+6%) 1܊OEFW #{fy.$y3:O zZ fEu-[%E|" Ѡܳ7X xT\v=P@iV \DAˬq&HQ`s@MyL(,r85:6,#12= _9@?-ŃY%V4IXf6 d(\;&Y CS0 %N&c$l:NuFZ2R~X?װ- }ߌZX뷷W~l Rb:#w$ЬK;ah/#g=^h݌?zXzOٚѻDD-,[A =F/> %z6!HB0, ohd]-\o%ScX>ZOVuue- ɋCA fB.\`6BaI=6V%&hn"l;6Ƹ2?$f#)y;j1`Z !kt+ Dqhă5'+ECA]Ў2-F3-Ѐ]ZXVoNB|3?-l9/`C84ЀЌP\)XGBvg V #%hЇRS@о} mahY!Pll0'vQ.v Cco~'B]YB&|2Km 5F&ďt3lߙAv=6 l@Ȧ~s| dW@$b4 h,LY@f@&mZ!Š"##{ [;T PlI=+MEΓnPke+9';ȵ+ )ޒ*Ȅl! Rh#VS6Nfͨh~+ ehNh*E< @EAW!3MW+AZHgS Z:dB0:(5`hԉS[X=A @IWh`ZR@ӧ1JW-Nz[uHG7`MXU@^ RvZB@zPm)ؚmJwzw) 9=EP1`d.P2p%B@{RMwմ$-<UrS9m@а8yv=^pٮ+ `PhA*! h `tB @衶KVrs_*4ܺ Iwk <zV-Ӧ(EM^@V+;Z [ț7FHs4˨C@H`}J_h@ t7 H3&$5`x^pNpjPl i\ t+8(4Â&@(đj6a_Whdw:9<ҔHS `t` p*Y@ { g `tjxi0j)ON`B@4 H(tYw, ip(tC@JzyY ] yTWt= 5 c( 29yT , " eA}=gp,23l[V76Ε2-!SiQ6QeUXT&Sb&syIZC#m DTOmz^eFL@e@@i0лT4m(?o+a##;']VdqG0lUGI;XK"k `#f@ !-z( C:@['=qZ# _Uڒ:WgIPX6j0,Ǐ@''[AHU`~Zw0n%B@/k]0¢!4>e:!ө|`_-.ZaAYJ YEpo?ԋhm @!~B@#q! \qN0aIug`v*&<!Q=?0a!u93I  ~QF~çY7`c@ _du,* @e$ 9'ZJ:cnߎCXԗ0ה; n9P0``Қsx`R*P}l~)l4;Re-6Bq hngY7g5@;k6YV '9sc55!@DzlO#9 (ŸN9 m@†֗@ݽ@z9'UPX n"ӷ[d2C`CeuU@w`* '05 ܕl<:;.=Ztr.>'O~a?4yeOs2(35-_N p~b`B0xWlLWZc0s}PU@ꏨGE^8 "lv%+6 `{d9WpF6S38DƦǍڰC+(JF?XF?,Ƀ>3vN$00OD&iQ-D'Ya^ zy.x,eCEJKr*-ۖ 4;<(vg&Jޘ #A>Q.ފp D<*&?VW:fOсJA*M TZwɩ<#Nyƣ l\i="A6@%^}̫]~Q۹AlF@pts 2D]"LKe0]@F4@`f:d@* !hf8j4%#"/4]iDZho}٢<FpP` e0]hbO*CЗ"ܢ%P3LF2edcopК hFЛi[d[xC@1.68@5!*t B|u `:@B@} `#4NyD0!'M78P! . 5$kIDATHϚ 5ܕ~3C `$̴~HN"TC( g14GjpB@TG>@:6 II(j - `bG-jG/vBi.C 9rB{N$ЂPM:` )c. X@Y\څrA@q84Xx$"M@ 8~ `i@Oi=rv`@hi$/Pr0hF- , Pj!S @jF9b `d  pPLz6o`!GEMlY#@$0ց=>pϕ"'S L* @^`sK$#} Y}`9Ic$3^6jrcPZxI~Hv* iBӺ* X/gYXhJ@U@V C@Cj}e (0 T ]`- \T 4U~Z``dILf~ Y &ss0lr6 yrnWu@M9M Ɩ2U@ 99ۄ %|9X@sbR<DX* 0uEGNVhU @sHJHM  l4t@jP~!Xu:B-%l|! q2/+ B@; ]moLҬVhŧ+&Mm_ysp,h8;s= r2?X^V; ]:lM(:;fl_fSBOklH`Y@u`dd3P!sv۔EnpOҲ3쾹ߺ7!7Eֲ+~Ũo2@jqC'eƨIY8@1 3PZYRFZ S5*>$BܟZ?7g)wR5qYh϶L] v ֯՛`Om:f,S˞V0h?B|ov65*4;3LE8#bh.{G0l15{*U؟GϵPPF.L54a_l/KF9AӄuX*7P*PStx-G-hejls{NhJ)${2֣wg{ ܶnR;N=AoxϢV_GVxq#/r BoWqC(nϻnw]?FoQ㕁mEmbMo^UW/A'2js],9W?qP_tin$mVK _Hw>%~H? } )}Ƕ/Yӭ)NPD%Cm G[AвA-'M%`f}/LXdN\nS਽/h. w؏gLԷ_;}M%P}ftBV nN^8C5Zh`pqYB ݛqf< m, ap+ ;kf' jsN8=vOP۴0`^ yX e+ f \|?!v'cAnslP  3\`nbG$ֳT^9`R\X>`gHZ/Ch4:.9p2`ZY Xsc6<D8iXi[lvsrs%9b0?l@eB@  6$:aД\cv-`e;FEu7Z-|@H,  @ˊ,}I}+A:,?xMt t\Vnнت?9ݧ<ے9stL.PYvr UZ6>9ʵZ)4> >Uɋuf`swb|@l':iء:7Ц604L8eX9K-K8@&ekPQք@{*OՄ;N;8vvVt6p G9}ٮL ? $s!, {=l#97:0`s~wYdfYG7nTPt0|fO$pef6؝ ` l HG;>r}j ]K5Zt9U A0nG,i6UT'6wY2 |Y@.?C@h@]rBW'1 ;'MJZL"p@B@!Eŭa[|:\@ $KO[Zd:SQg ,! 2I`;I9lp9i~99AI`\WQ"@EsrK ܐF;`,YzO]IU9yuy`an!`:l։t!rbKbhB_cYf!Xݷ,t#g@)0l!)4CB@9PZvK{{0er+7eO|f&Ú ׆/r)9*PS؇P{B-|AN\yz REuljOaW b 5D)W "O,_?( {߇8н79ҏPp㐮@ @ @ 2w>2FE!IENDB`ggsci/man/figures/README-ggsci-frontiers-1.png0000644000176200001440000006774214570505642020521 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$`PLTE|>"%5'FI5YMKVVU9QmmmGIYxڔ[t8菐! IDATxݍz`3dF@os.OBSV:->C 7+(A&C          P[3<78>9G^b Hť%f AW!؎6dvr$~z@)WZsy`[:]T0fo*ޝv<;:߼υoG *`'ln*k5OxuJ 1*vZ Zoޭ9nzKPPPPPPPP5m `S9|_G*:PB8$ ~ 4GO.PБ=Cޅxx n L Q@@ ۪<~w!MRDpo>Q B4 6ilFP[.E!U,,؎@޺ 9C.>LF` Pynwy{X7um} @c@+ṗgz."*T+ ߞTk `MV6Yd `MV6Yd `MV~8Tn7ǿ>V@OH8/vF{@ptt 3?#p6^jU5GD$IfX;TiKu%}cCR7XjM_x'9J;?"a+ tF0}4'6Ԝ/˲Rbn8Ux~H`x#yt:뼑ޠӥp"9d,;\yʬ+v|uc]@. y2#r7sL40g*G2-3Ϥpߨ>T8\E%3㓍CG䟗D gk!s]@:\Eu;צ/OyNC"P|wdtV3cW Xu@ @Jo17q*D}(4;hvn@wY@$}e,@wI+'1y7X9y/ M5+f`t=ժ$6 vVdI$@ _VsJ 4PE!fkގP,, q}˓!6-!qg-?Uk0l-!;8vWMS;^X߿5;APo`?m?z"!S7lܕz#K_6B0TGUQ_?ϑ-5] q}"鬥]F4j6(+2D{=ڜ& 1F3t:l*CƊp[~ׯC-G?}׷Nc| x5luDkUV ]h4&@T`6jn+9o:'nv鯟5lWyĭTW7<;jxe?` Xb_]W& w6sGuo ","oLS.jA5-x`=E|%@~dS4)cDz@@_;d4|n i&omfK߷߿BuMR_`ҧ @yVj\$-< v؍fƾ41x Tf/H+ t[!_榎 gcF O]jl$Yv! ,ȍʿ+\SI-`/F1^@_קHc>i`ݲƒ0v'jvb&?,ל/ Ζ`gZN_%Dt9@rk4lO=@_)07d F+? Mnj@0XF)}S~#7[Eǿ2&ꥫ&_[[HLf'?D3Dix` xW-ɥ <ar3 /8g;Izҹs2zu.<'x˗' >Oʵت+i`T^@|T.Nf<9A.`_MpZtsW{8y^ ڽ GŊ1:~ @<0(`+s7_˭Ɨ_yS{|7XUNj?T?;17?;9s&P.d@F޲OiX@x? 0c`V~ mϪz!>5g<7ujɯL+qƺa ! ]?8c\c17jnJͤ??]7V?Ր! 0U\-#D1Pjo$@ yl6bN+ CǦ'Qv#yu0m f& T_U۶|_)J>? 9>$ rD&r=8nbN:>\`Q.*rȬJOl޼|H?#HP6nD4v|\N1 &N7rҧ<7@4 9P+e3Cn2ǘU/14٤;$p@6ާ!@ p{ǯjhܠcapqV=%`z+~a?t]Ipu5๟h_[ [Z}WPD؀c'_й^?<: "L6(X1U'S@1u"H1hw;?qzAvaGim݈:2 "_*@d q {D<%65.\VN˄޴bDfMz_H7SoER8cXZx,h .QT 5@  t3b"d#&P.w1cVMr;ݗV[}iT7k?X IDAT#/ UrSK(a"쀘vЀXu,L2@ wqᏚ*{WC>!?$W\a=T ޝHFJ]#Rl״Uذ(AA&  ;rNIsр|P=ݸ'H>D[.d}[&@<0 FQ1žW8)Ū8]= g|e*rټm6 `\ ?+N:+qtv6M*zk !(i^|oKI֋dnHp޼I%l;_c!hl'~\YzBHqm <_ț)!t^ kWhϟ:o}=5w Z9GX(2*5,awNeW3a yJ3@sҿLnpم%hSUʄ?axְshSi5w A#'TzrP AJ16~#`g{LeC߭fW )|WAw]q^|HZge=xqoclFsĸ+lYU]v ,i[U+c}SpFɰ @8zuQ`(_}Xs|g=@nm֪xO N kd>5=m5GEeIg/30` G|rP&6/ 8D}Q|ͱ"EBز= P]mUrFO|DoT0/4gO#6f.Y܈#?׷!#Wh.oyM_.u 3(,†/~_gK/pK,2< $ ei9F.: Bɩ%|qD }Df7ꊞP1q@em6//QW^r}-Ã[wC}ပa{OG2GҬcP`VfB͔IͩGU(r \%n8^2إ?gm~~ ,-D '"횽~ ~ʾн^T~2dƅUq˧eQ4{fz5_bf[O 2N7ЫӍ0!DrUa>ezbp?7ҿ% TÌ5u7S0ekf95'"mi?nu Rp(8cVMaOfuw.PNĴFD/\>clgjqrneӎ{#ZcR腱gOgg؏~wL:,tt}-JG`*3_:ݱ S@S"SL3?.V^wYh!Aq!jwʬ.۾i!e9> ޮ}W@츗~~|̱ ðܝ/P-6ЙvnEA9==44\1D*֪zojvGE6NCw1mI9*T?O5^|/WD;Q~˩Ah;Pk_xc m$FP4${r˸ȳ1Mjo CV3(-"S *$Ejd:_@qlfA0;ed dA)4Q᫻!XxkШOݰ0Hv'+22?P2Ej+XAY;0G L {a+!]oY">} pEA1] J#q!* Cc+22Q$|#`7/z\~D*hʲWJ?9'~5E+.P.r5fM$05'EsچI/YR~Q${5Oozu)b4 %Juhd ,@kg o32r3@ \"v1]uH 4EÓU/J;~PȽnb=qPv'ם"@-?D@ )E 4)B/z][pJ5 "M*q!ÃXղ;m1:BV`3qiS=G-+Ѿ :  m+fddT ";o/?7qhY3XQy"tcٝE;ns//OH셈GfG ""GC^(rBGFF-sHED iL` %_/"sU,Pݾ1!+כPC 2!y~g @7fBꣿejo(a˵P0(VU.XܞS>-“U@(19m82lTDGg2@(5b(;DܩTɉS*4:&4|Tzbp`MuaUaRȃ r P(.;跏eo@V45 FT?Tz̫>5#  {$@43>bTT9 H[!FQ.dl,i8J}G{icH#>2B~CL3222~aqמafa1&R@в܈>%8VWz;! u6S$O29tւi@ 2    a<*,:q/[4ߊ|?CUɍ#X7@ɺ&EȬkʖp1I4څ89 mJdw?i@n z{[@G>Dj dou!o]o+ *F*#y @nR.=XhZjwέ#q. Z"0 `;c;0 gdd|;'PLHҽVBb6e^PS) W7 B/_wFw/7zp!a[7b@KMhM$X6Pb˿ *m!be mLKWq)׫Nush@? C (u/V' A n΂hո9G\A'" 7*[3o؎6!DHN":p4;gdEQwy?y0x%2H/"r9TnM+=dO<n?}=‰K <2v?`7ZrS-g mMoU`#u8],Kqm-+sl^ tQO`hv , g8wo'dQi`Zz?sZ@LIHG^dpAZW0%1p'H#8c+T4C?E~);kwiW@Sv 'n ? GL97ISIh.(E[)IDwPCyr96-<AEr>@K*Du>=B5P=0uGu`U@UQydiN] MoS@r68kca8,g`WZXó!ь kD0PVVISu- L <3<I=&Z륩e-ռkÖL/" \j[,PxvX"H @xs%z_!wS@l.`T;p!CV"8`x?Lnhb?b >ē9eD!{PGyDW"ϣ w`eWٰL؎i#HK;Nkv}ݟ )66ckm P 0 H&?,k`/:BWHwxT0@K sP`&uZC@ƻhSϗ.^23݇ebS5k5(|OX&QͫJ+uGf ~ZE<&qz!>`]z?~ؼhE^ V"54SLn 'r#<  ~@ |`j|C#ܹ1"^}Pe m%{!ki=&mC3#5T IDATYA~f0@ qnPcfP|u |`StHyݘoO`@ j9|Gz ^o;X %BbI\Q"%HO.-||G{TBO_##&3a,q"?rٶ{Lw#(218 z#yA–IUg1`":>.Iӻ] v֢ixLyB@<$@ <"v{*0i&!/X; \Gkr(* 6sBNW8'F%}p@g@КԴ|b"yL0mhIf@7.[2L ?=pn"%`N yڰ-x < w`xz4Q~?_( Xh 1"r o]W!Q2l1)XpBP<hymG<gKb`}%G .QC@Fq8? @Xwzi"[-0'7gqG`Ȑc <"$U0> B_.;YxwQ:̃&8p#:4L~?#Tǿ] U6j _!=dU VⲔx/$eΜ߫OKf?gޘGכrY\,Oq{{q`ͺx_G([87%A0{zm<~?۷N^(#|+m۶DFNwKd7$ ~P۲*2nak}D *G&FOa6</s3>I=@(w៳Mn*E>^j1jڷ&'ՄeI:ahz cf~+e\SŁ0 &lDŖpK&Bv=^0d.-4ou`MuoҼopH`[$.L =++@T]xP] aqS]9$mAY7oՏ^e8}ZR&[~ZDD7B# 5n~/$QABeXOVx<۹Rz٦b?] Jɥ6&kP RcG6mY]^Q@@B鬡0ڋ@Uօv׾5S;m:ShUOS\@(qR=] b~%R E3H;DaJ0}moŸxJ `x 7`T Zm5n\}. |l=@5T@pȣ(6P]x\Q=7b0aoׄ%bu@x3@7 6BfX:ҽ7(dmg1hh@rEQU]@sǠVDm@,(EjB jRM4ObF_#WF/tU.}BZ,}{ NWzQ hh k{к^umw/1!+@.{Q\WZo|Ő)k_nd1.-]@یKoLB% ?W_IYWqAG>C{/ڃ|zXog6?G=H6`BCN `}߄胛 )$o'J_SS 8gp.2jwb1"~@t،t|t:1ɠ]@t 04OE ^B31 z]@V_oi3RZ> !n$x*{N=%".u0{Xa:jE! (E @[NA&K@] J9}gGY޾JU-{)2l0e2% f>)E HrC v~B9Aݙ.yb[TnuE HL[GUJ4d@`0!K-od8s{3 A3gOfHVe0ީ@ tjSxUI(~}"J6C# $P\(YpxpA  l J -D Z TVe6L / n}Ҷ$vW)m$OimW! ,9/ RVg >1$^^$R!2WW$$=]@6滀bS! ^&P-So& يhSqCP%CeM=kz~\Wϫt'@0{+ʎ0ւ"b@"XtV)@ t{}Ƶ~f[ܦ΋1:cI/uI[ |y$:u-c@~r\7n@8}”z$>hʶ pwV5lt)-O(>ކ}XH-*=~? xuJߪ`w@7Y-ЗzGxf)hutR:@E8~,&0X&=3@2S^?@˼-uz<@gSe@+} x$pOzSGv'є3NP_TSmhy1̀0!7ug~ ߑ+MU×#2ؤD_Hq(@p: ~Ӯ s }]̝iU=œG*aӖ~n1Q-u`!m$ Rt2S7XlKH[vYA~l*XOu3bY՟jb5 `h eRy;># 8s.rn4V.P0 稐~l*FlBՆ}%@`!dSCh3߾>>#FĮ9ZW| @PLEU\5&p Jxt'A`;Čt*Ekg.WDnBajSJwntu ?,4D=UsO'c`p'X}?Xr]6ԇ.y~zؿy+=ZޫT)Bh#, a Nĵ4'R/AYpUJG'X?ĠFfDd0XY曢x*`KBPNCzxThhD t`p0UCU n@"IJ72&|}rV-YO֩0mS3.cǽ?ZmW-`*e;6o ]__dN4`Ee XqM@,VS &_mXɷ"?EjqNb_lY#@TGMd DCT5GJ9Pgkq8{"GI,> =[) ;&D0ޜ}&pemP%a:W@5V]WJi0ii Ixl &S.xG|xR D]?s$X/!4ᬀH8#K־Dշ &b1hY@/&gK#V7rO]7{"`@&@: @:™.ꃀ)ޓPOavK@@@ f|%o]Ό@tƟk? !@􏘿7E@~#50dC +`W`]dϗXS50D@Htk6pw$Qw&ϔ=pMˏ\o~~15|h]*@-T{alSV0LLbUw2'ex LS`lX6B&R[]:j>1YoMlSx̶'iz GӦ)T y,x(O@쫶t{ IyD/&Qpp([6QS{}@f :(NQG< 8J~lV"4:Z,iUgX\ߡğw[aT~SP__aۊ9>M[}Q9-$kgSW4 ˯P)^v\0WpW#׭EpUWS-a(^gOx,=%?~)_XiWwC@4Y;}o DSo":S6fzcC@d)C@U@J8Qq']fM"Œ?Sd`~6F{GCg0[P8rCr7]]:_ >C|"h@hԖn9n9^c692SX"Ka/<'|7FNeWw/0"wG/ yM4F2, g$03Ϯ,O( qq( Ŏ`(UfKhu<~Xf 'M @.|kD:aZh|@tVOQE܏y+ "9&xiͣVȾW7ͰTL; 4r+P2*OSӲΓ<#& ˿#2ʼR3KgP/gzpR=D<@О)w:xOݽ`o̺-[+6xq~M5 5c$Ti jrX?\#9#$EQXjq V,L8ܟ'qDs$- j@S0GyPtk_M (z%$g .z3Eo;<@v x`^p;DS|=wDž`. gGǼDgߍEr`nQ>6v\@V .OD`7\6s<0AP :h:9o7 IF@V 50 C~C9+z$ԥQh. pR\>>KoR_+:p|@`)jXCoR$] ܯw r],R ,.'ٿ*%x]rnLY14Q q;0W:`BX(>za#eae,0O9"*Nŗ9 lCs֑&(8Y=YئCs+&-+SB`$r8nR$ϲX7 )W+@p+."q U "0{V  过S@"z0`*s r`K é(Oߋxh܉  pE7nf]?Y` @jD]f  {?V2䪚ձ0@u7u{YS?~>7'cp 1WkGU %V%D, =\~QwT%'q=QX{"z~<_QBCUD`* K0~T~^3! #Vr{Z*(' l=tR*NöGn_бJe5.M?ϮY)[Il =U'0թɢ fu-U*Q0S nTMs;O( @]6ĺKe'V+&+͜ @ cݿ{os^$0x8nIݽUphX1p95@w~RM'?  P0@W!h 0Z zuͰ{2^0w"I$:<(Ӕy_X ktD?kspyu}Uo|>p?3z4PmX@":I Fo @El#HJKtY|:F/e@Bx!1"iYIDAT0, 0wU*(TD|=nSBvP0 ge6 CV @UN3 x$;y p@ʡl"0_Tt7D c6[.8#˹, .6 @,(zl >{}@5#sVsD,a6 yZm @f9yM7܋^?Nc9k g qZVayH̞`P0ydb 8!xxFomR ]1 0Mh৾ndk9*lԳU pO$RdD87 L6ˢ` V17 5&Q5Cy(r'w.ڍJ'8<]i)ƀ 쓵IjS(N X3x+nmꗉ$p1`:qsOtBcU] mxo󛧷&_u1e'^go&_gUPU&4P2<+Ĩ<8nEo)XLF̵7j1w9'W#I1<7:^3bjW` 0ތO{t&V9TĨG/6c=e0vboc;>:j8׌PjÝ|`4 T1૬48@ `ʼn2|`_u3` qDhچp0joF'%"(~c$OSc2hex2?^?M^>5W6s&N PxތO_~[>s%`jȚu&FE&UPd^Ǘ` .x?%frM 4+ ?=0;umX3T}lVBQ)9=ݑ <Xfo:0)pxq~ %+0@m,fP v4AR=ڄ! %n<# Xlo @~"vY\ =/.:D<.PzNu|t`y6dPs\8rӠШ>ZL e FPtJ2#c7h,w׫`& pNxp `5 !R<(N3UM=O w<ݖ$S lq MQ_ԭbѵ9sPP1m)Xfb5Yn i<*l4njp?cfHB=✲bise5V7'/84Iâ|2fy^ >cf$/@pY,_j~zHǷbXp0?*P_"y ̎N? "C#B<0v+:@@ ʾBir}K*BQqiga YI(9VBuu1w1wGث8$+)>bmp"CuYMESrwNiu`uɪ ;Xȋ><$Nc5jDD@2IƳ'T.A?/&;mF1\Gxyͷ-X \^_^'?>Dߋ+%>GKаWhB"WXuB UX&Q6_t[?]#k3"x(G@1[;oS_L@A`=jK[ p(4@=@1y:f*0BT` ҙ &{ <x>pEWM,h32E,<M,Is/3{2E,Q4q:iXLYIHxC,WW-Mhyq""r~:mb6Cn/W9- Z@'@RfK.hoH+܍Z# =%8σ6mdq](:\bO23z"1Y J8ЮXЊ46˳/Ȉ)hl}A͈H#ѹM,K Kh@?'n%>#?`# /}'pKM,`^ yy<<xԀHpˑXhn4R!P#:(BB@I톒N ZNiu?줩&Z2:h14؎VԚ톒+D$E8ZV ,Lc^15ؒ b[:xOm( @A A A  A -@ b[Tq/e)GP//caL!3Ø%?dq?||/_@ AhQoe7"}>,p |!"-Vy|bT: `Ak,*J.p *JoIjT^<@?m9`!` 0 `K` 1 00-c``[200 d``lb.\0c  0M{_ 0c(!<R`0-@ u0`ORO0 j]:6OK#0 V΄u}idf  𱒋 +XY<"0uP}@}RDȪsD0 `k@wDօ}id`wZw]Yյ|03cfԽ0> @㽉Eo_o"650.APӸ9_1E,f^wEhr%c]~;ķ?VץUaWw5^y1z~~gaid#PBz 0 `ŵQ_E㛏K#m, ` *Ejvð4D0 ` {`0`R1 `+@^}4؊<"`J0[`2G`+ `J0 [0 [4 01 0E0 c`آ`W2G`-`x-x D0FἯ\C`+@x×mlu[`1 ɑBlh_0 `UffV?tAz`q(EpəYX; [9]bNbX\TI_ `͗V/kU˜pE}JaES5 ``m(M 2wf q䵷ֻ!1.rc_HWaMRǏ (1zkr*b8xMnj'/ڱ){=;ܑS_T>ݶcc 46KdTb WۤRonK׉TOH0\~0\be=_uN7!ȎBf}&w]@i fYEYyNZũOj:ppN!7ӜdP_.'HUڴT x &˨\&}և߫i~6؛gET]Sq"{~`OLt2+>7aL[4 ﭵ{?hq:جq" LTW`@nm0 iʔUHKZkEM!ʽj1w?pќmx=7Y>N$``%!?vΪj_6}YV~j(B~iW `w0 7PsY q%JjL40w] ޳}f1 ^ P6L+B?M_a[V.lniҏ\fH x$4(> 3u&ߗUmYAiIw3Pؓ;0Uo海AjU3xTB:5 HEcsz#0%0y#e3L޺и?4{4DܞZ0j?(@[jf:q%p70E @Ai*"ҍ|ʩݖYRHKD,;}_0`@;'-4?hE\>~V  A2N% Řz<0r/V(&0:f `j7!@->Kgޥ>ruHn q?0` `|7[B۪*' WRR͎SKiE1]u7;O{$}, p6kUncT[7u ވمEHY)=R@t/c28 ѿ0`@}J,RO7[TR"2>1#r?qGDѨƟϾQz$XΝ50 cm6>{|M |} u _~!Cu2e7J.;ı4Z;pzƻjfmIދ1 |9V{[Z. sҿ>,ԏ_oY!W_v8NOv׹JJ;ٵ( &@@5Fԩ6:NWo/:ejwDˡ.[Cݮ,2*sg]+)39O2J`or76Tֿ?0^ yY@& CmQ:.o+G;Ȑ#F}x)(p6B +楃o}d X_|}O&=`tޕh'PxR/x d'd4,2-g\tu\A?zTm90 E=0^/# Bf|?X8;P0x vgk"R H @V ɿn$xad ,:+BPu] üPH# jp<_R3f O-,P0ԅ> #@BV蔉&j|gh3L߀]4zAr*Q<[])e Yȅ,@(= ٵ.dXl`<4U0K8MD@nƽUE Ys(v_ |9/(Cc`J?i c>oPx:C^cijӼBYҺVWkV8 a0I-YP14T=QtE,t!-0ڀ;" e#U56?:q|b ״<3f_ܳx+ R)Kb|2@l?Px6,7@i Oq gQ<1J$mf m_86-$qlU?F0f:ź? <^AGFyt43q4HbHKF ۷6?g\V#k@g  )_5u`jIS52O)1Mxk |56 7$Gη//R?0Sb# /S`4jK9/t`2`3Zwq+_b` iP:oCeDf*$IE+Q RrS>f|unY+jJPH_|vCjem;^ ?Ls3f_~U ړGMgv'z  YP{uHl #@7sKQxS }Ϸ3f@co#GV W;۝l TISȽ`~[8(n+Ơ6SS_u3OPw^晟GA Wism}j#I.ʙ@ ϰ)v_*|;–gy} |!<cR;t% @J<!] }""(C2`+x|yg3f?.\.6lZ;CM<#18<\ğ)K10EI9{ ¶&éy* f>DĮz{FX'@ȃ4\ %74ҢNl?[a f6P c߄|#!pDWD )ON3  4P {ppL"jMf@_m@}R{ 3PzS `[YfQvBL -$03f^j  Qi\KA4)䠛:=  ƴݐ>G0)֬$yۭ"0x䃑R/Ot! 16^]E.Z;a lcM5`GKL0`c Jf MIUf_:wf> 4$93|e;Arf0@01R֨9z`^{(:}CgYbqm5?-_cZHzu*}  G,8ߐ0 HN<HB2Ug4cA/ )׏uI"}{N`f$ P``'3!Dr>]vej52&7y/뭗:?$Ǥ]vo7/e$=;0` `+l<nG~yįZoR̋g; #ߝl߈p'03f+:7_ye~vqUFΌP5Ż+Ͻ}v}!Я6c^F 3 ;0x 8FAJ{/9uT5FNc31eϮo_~LVX~ohF-|O'0gϞ?8uJ^i3hBK΁5Vf$iR\Fl?e5D)č=lF6a7|C'w>B@}@1oyP 8`^ +PӏfPӏ6ZH8@D[ N+5v^%b{6ImhpG2Oݜх"#^5KL^ r,{ {v @%Kd  qj$y.a(M/2b*k hP4R#;}퐖F\\#7>+K*d~ػu A-_}Z.sڄU4!|ffgYbyv,=Ϡb kxPH`0Wf ;b69"т?K) [a/a܀gaHg:DLg4ks{+sv#`   !Xo_q4@Zp[H"Oq}K#86Po x]$g{표yQ5_%V~8'}~> mjH}]@*YѲWWZ4U*cF<҇bSc /kH3WS(fcXd+o~P": .#T^TǼLLZ` |@gI/+D;g b-ʨ>hy :[soQMQ0piړE>ħ&V, B RNYX81/LDx Ǔ4dRƶ!$S=4"Q4p0xpB}7Y|Ehn9H*GxeLՍ$S=QCО<G SA3%9n\kbaf,, !?}7hfϬ~K˥a'+R0L Vp2K$% D xIL" (^;"<2i&ڨ ~vqߞPbȩ̧-_'ExNbNI}=|kNX?Pڤj@ p瓕_1Ng$T/)^{) Q )7LyHx_YwWKӵcLW#h>!/0r`lQ<9f84MĭOGb `PzF'kaze$ЕM57..*;Q8nSb5Q`Rϫ}'O|81|_8 +c^q@3C!86Ÿ[=S\K*)Su?{{u|X7?/s*y+w. TPL83fAx"/hi ܄[ژU`{xZ3fi݆}T;!!Nm!DJaƀ/c1F2]425`jUM@ӖS(*TP6Pg%a`SV.l#;<||}a',y&˳& ZsuBqq8AOiHyI`TP>Gp% <.@ %V!ﶭXa?ect(#LAbUsi!ދoOgG*^cA{пs-n9L4!@2m6&V*HRA4ZNSP@pX ]T/BT`ܱ/}oylx{i#k}:U%],z&zVAN3VT>A]'?8*T>IIcz߅$jr?/m<篩+U(P%H-ׇ8ȗa3_ˀ]'OoMPHws*3*k׫ QOt[+c:zzF{FӧN&>@ @}6CH!ad[D&[5 IMgpUQLp%%B͝^\_a(X3AV;Q`` @QCS&º6q~ʁRF<iar]tU&́d4ħ4)<*T>tZ:ḇOu9~xNXTB)DVVfX򿌢 &5U=~諁^y*sNe/Pe 5$ *Tb負qnRWl:/2BgPy ]C&Q@5l'E=8~Lް K\~&HZᰟS]V0{蟧TH^Q;ǥ`yхz0ee:sftN&,'b/:׮ rP0>Tsb3 pWܤ _"+V䃂1Qj+~CD/{-]v04 M W3[ؠm)*ƹY ;|T,IM%AH[<Ð+a1keV] $8U$<5$yGo9swYn F0qʘK"R2V "V(P.@mu-~ pG'(Ĺ|ȝ?@Vtz41S tgãuE}@fW¦bLSs'q5SkK<־`xv/`4Fv:< \vNB+XnEneP~^z7>Hc|.k'EFC/جh* Nwy"IO1uHQ~lz1G:nf2hUKU*0HOb 1&ߜ,8B(F(;ߣ7``8ϋ=h#EC`\rx-vO25O+ `5P!e6LCpn޴<0 dCk~MtN"K~ޏq>VV`?B{J{@iBn. &) `Flbye֒lu754XKPnK }6\s|JO`eC@c/e?$ g, &Af,͍{')3U=jNlHQ=4:Mr ]<+r%5aƃ͕uE{O @vb,4~엱_>83" @c#p؁dڨ J=X2wҀ@ zr }\bo,9Ig&$L`译}r["hE@ wP2N+S2S*..@]V`-!D7sO4( (2*?wʼ ī6̿A =GLv #1G0Ub>ttP{K [yL kĜN2?W\þ۸ fB[ 6Sb0Dl+ >e5`  JI8:gW$Kch~>n֝CO|9z%\JJ.څRWv=H#Xָ^`-1[n;:_Y@7H$X͚?E4E?r iB&K7w%jZ0QT 尯q|^2ݎXE101Ŗ@$C)fݞ MlN~D%(Rp*?}) sۑU@ hbwiOzt ݫ[4UQ626H4Ϣ k?-pY{%N7:;H8g nf+{"g>Q!O[?~W`2P<`(N?(d*;f[̜5#u>DI@ Itǚ)=.;}`&$`WIYeF7`eyj͹q$BpB$ԉ1/ eJ[W`()v._-ID]Og%u-ҧq1@f` %F~VCBQ:o96gFnREB4ZApN AT Ԇp߻ h(GLfe`35u/s϶8q B@ňd2${rWu@9g"5:TW-@1  w%/nKE{]<7,Fy˥: L*tv&u ɎF_  @NRM #J38M9<1 w0?U%]g=@Eߢv;-O `ZVA-H=ADi *Y 3J73 !>q.vDkYQ(N. 0`(5›l߽LI&_^]zw؜bAjK|4IBH %"~#XVX(%]' <]: `(c9nơHR7rq^p=:Ξ1L$V}Dq $Df@E #E eYxC  `(N0`(䐕ayػb(S'hEE40pkgF3GKr\F{1X KĹP < $*2 X uFRk2 Q *¿,r1d$<ec.XO-%O 0`(VC,keRO _70a. k#>\@w' l4¿ੑHg uB͒GUxƀc^'I*TL݋Xg(|ë"MX.m>P8f?( ! g9 a=&VU/D >aMpG) 73ԙ/#™KV._{% w @^!vaoAC p8h9)n(YB8i ZpJ&q4?Bm@f*Ζδ_}{I $M4JAݑ˗ ?5^u^8[֚0)՘HXq]A$D1[)]SUZ`.-S@Is9ܾ3@b?&^ѻ OUf^$ &]ĩi6JDe ꨒtNφDzwuK\TeSzׅʡHpkX,=f:VM`0p`PQןxkXeMJC!>h'Ԉ#l=e<$^T]4`f ۍgw&  n'~ `(PEQ}!0as2'\ص!-jA-;m6eW^-$p6W}5 Ej#CD"5S3{`֙TLaJY"'>E2GC  9i_Iڸ}@4~=Lҟ,\;4PѲ5*B5(Rm໕SE"c＀<0Po> ~_ pyV; w jJzv8E'V`6pzyl!̻=("Ⱦz,<ܴCmQv9P1@1=m/d=M|^&e7ߛ:QkO=еFt->Wɋ~<ԉ FT`<&}wCD(ǞPK79w-ډ@DyLW7<XmףMS;{G]1.ȷjG_.y硈stB+DQ>A^H<¤q-h^$`8{>k@COB e#D@~O] 犮rYr{pd}[H (K&joe@,M 8&&!b ϭl~YRinۈ #m@N#Kw4JuNm4M9gwہURRi]d$ XWElk5R d("/~@ !xl f*RY }\ 3?)ТXl.lWS@@{dNkon:%K7@-@lFmֆ鶅Bh(uػmURx|HL3r6SA`dֲ4Q3p%a䵢@#T?Y5h!  iMnnRO[Oy|NnL$D' 8SoO*B*+$?x3V *j|+`YŀjЊ+EC 4P>.5__}h+L0}C*X”VdԌTq2S׮„wZ@md SҚ'Y,'WR!;@C <|(`RLkwAqpPqjIٶ-sLp̡hY$|a$d]!X"JSeu)Ih!^Q1LRK 6Β0<^UQcd+ NlI dS&Z(@ii6o7:m!Z 51;{0A 9{5JBe` (>{-r""Q ydup Z@8Wņh,P#('f!sZ˽@qO})Z3IT-^3h09XKՉULȇ>Ȇ5#K0($hlvr H&JcKpTkuI5N>%9EYo\ZlFV@%r!^^9;gJd! mzI)5߉= ȍP]i7- ;缘LH{p= B HG; ,r;骉o!Ϫj?V*@guMH9!%P^P3ݔH0 ORl?Zzu{t(QQ1 B_=$- Hl}胜Il} `!XL-@oQH((@=$p/KYa?jm[g/_w0%FcvuӨ ؜Ii!O +l~eMM.!zyƊգH 4QU5m 2@J8崇_.Pfgj F/Li-ua،0QLjC!# 잵~ [r=mK;hhi `"#c3 ^:w%%V5ts &!dA+bE R-k?rxƴnv7?,^0vǵv惛vIT@Cm/oٛuwfknEås|'вjo5[^uCQ[c~5=ZPC^d3rnz̾ 4tK`diЊsV'R#LW/:p"8`&]{)RjSgU_c|BҝЃ9E@1 { iu@7#:9ʐf m#HLL]@ 뉝8^>ӵV#MZmOaFv p:[GS^~NAZldv/'2ɡ7k#AϾa"=2O29m=`p^߮ 8>degQ^F-4ϡSE}uVE2>@N,U) @K["CZ}@U~茤;#L>?#FO9(yҺw-|?D |m'|OÅ .wC[{$5 Z#5D^ o(YfFxF=roP0*)˚iԺIE_WBG_5vJ,aX޵(6@%E3acƖI!v{M6!x4ݯFWt*P/8?wrݰy H5$ ?TдxsA@1g?dqPÔ7;T^1}"E?T--L`)ʋLD1}3D5Q & { q?1bW~6l{Τfk3pll-XIP/F fAQ:'^}ٞ*L޶.g}<xcPa>!_9*kP"9rq5u|q\0"f}8EePUz ڞ*yDL i@'mr'j6NGS@.hX/wm b7*2_4e\Ʋg,{1o ||x#00Uc[t1 h"jp ?l9E^WU9x^=V4 `P (UMuOJ(@M `'8*xFZd>"EbٻQNsy(N 1]Xf=1ٹ0Gy$@)04ve:XelE ??AVJ"+:>h-Dl6 a) P9P1b> x3j~X qЍ`#`QXvpc^l 26O^ dr|$pu0Z%VHf'_0扡j,K07m_'qr4ӅZY@`o `)L c 5 v9R9𔪀`E2hh:X5=>vn6y&{MI&̙ N 2FcL0ZVV4!G #v.?uda5O錮GI:EpP';1b12dv۾TMt7Raa XNHa*P'QV鯮_]{d Ȭ i N`, Tk~a \8>X3(jYQs,eew?)C|JwK3zaT@~0Vu]^ _ر1lq.3>F-wN>&^̍, Lrfnt  bgv3ԟn"g)84 μNJ TdX ~gh5 V?vTH3j1Vx 1b?#̜sQeZ\(r?QĶ9yt'4kDdvG L 1?HFwwrV^I`Сy֩) +&e @ L 1?DhṱJֹN\>P ,BKᱨ/4e@`N`bMdiJS@ZY4R!< v:(`[b~Y"@@ V S5W2Zybu^hQCɊ@ 摌SUrO2L8Z:P#J L@ C)Y Հ>6/b=ZXm 60|7Loz?)(1b@ړMԑYqU5ւk;,- Ҿ].%= =MvuK՞ < 2<$PZ>ja~_c{բ>0͹MVanmוOf;x@=x~~MX =@   (^ 9V 1oK?4,8&E;VzeWq6,<7g9qѯ" p,8f7tbOk]0rڰajX ^oQj0qR[(^ ?V]̙5L 2+4D#k(hҍ>DO!tiߣ d۶򁫃yd&.2ՃRz4elr쒯#@ cN nZEb $CԿ߱TbtƮ=$q/C"pP}7/|8uFm2Ƈz.`>L`HH@;Y}}c8@PH@P {Ђ%P1C@]}@:"+dsČ`H WP9;fx+xsIiopls7H54bEy$$" u6jR*}B`D'a#ʙd Pe3l_ ( @ @c dTάv:fGumIj(Z{,Ƣ;O$ОdJ 1?:)BiƷP2?^$Ĉ!ǻ1tL1@J0 IDAT tSKYGl' - )Z_j L׵]?{&DaךpA1 ^lT.1zhf1 3P&lgC  5Y@K{wXڢӧ,36ݗ3+7*-k-ab>(X!QO$.0pժ +/uh^e'L ,[[BYj9 vb%Y{A #0rv$_cXl=sxnyʚbMfy=G͒~9+\O`w8k1sV.Ug1@K0= Hޘ,|!B%k"# 8 t8}Ǽ,U$鿚n1A/P vૢtCQdZiʦ&2wzJt5Кm/ygj/1 @f@1@:]@gZ0y~2=fjLiԐQjOs3W@g$2α+Ͷz8 WCa9 $ * & `#|},3@1=0dMw9\@; ֫!yJ B/С @MËa @Vnik@1 0vCmwrMٯ$+w(b m-NEhKx4` $Dw {#l]fgҬޝ4Jӳ[HD{)/f^"kc3 Ufs7P`9JieIO5K3Л,!,gbGd`1ׇwO7t" C^75R VhoX-xq)YQL\~pG!&ü[ ٸڥޮZzQ(Yo`ښyixS)Foc I?C"&(,A\;L1t=FZ0K: O8T/?? @; +`G:jϻtL|}黣1L,/S}qZf# ♓ZpEHt>fRbl#WRrwd~x'e %u,:cE4aI;׹?@nXKJy +Uxf h H%߲FHn1%Xq,q!^ A`qߚy)Yx=@עdUW0cIFM@Ѳm.L-._霳Kވ(PODuqlnik4A`DHc 15 \O2tz\d"W["B(\=1ܟiDI`b@b f^.u!PC$r !t Kd'"#,WWf~D Fu`~<@?*z@O  75RB&{ E4PgzS /H5xD9:Cg xRm. lRTݛ4d+Z{<)- ƶsƒ Y WϨ  b@?XwZQӊWJ*f-9zMw@R]Շ 9uu 9a$%oI,`|t#\?aG <W̭H8]. DƑ^ͬ^ }]"`qIRO@K@i@BY.-+R- }8ytCSeRE țlYtau޷ڽZ {#xN:-Y]:kZuo@ C}rЛuD܆f~wI6ݗ6?'fx V @T| +wlQϫ\@ nb\VWZ{Y bVxڱKKFlJEFI/@nX|L(BhL@L@ @6.X@ ]O@(W XG0/ьxH!C%=;Y, s aт!Ň!a1' =?@>]@W9?L2ۏS^ˏJ\@%8{&v\Ȧi<_m;Sh'7  F-]O6$>+U ϳ}J~>~1'tbc'M@vsA|f\rM˔ʊ |P 8' TWm7S `)~ @'PP@XKZ:H@v mYUJ1@dJi!9wN={;O.Y[u69t`r'_ HtJ @ 8j-k V7. =`'M1-,X8 Y@ @dȊO[[nѻXlcs@z:dݺSo2QxRS%2@<1u0v @.!*gA$i 3z*o H|p1ʯZNXF5P [V͋*UpU^Wu!\ [X1~)&b@Xc~Mdu @K LO`2&'pf^Am[? 9B!mv3:`".V@5& !H.c `ߗx]jI ?)Z@ @Nv3)`" tU. Z(¹M)z>;)nf1@RRQ`Y$$ߔ\aldiA u~JuPwRN =@ )J`u_R@W}4jA ~)ɆU6P[?؉@aH"!={Usc|̿w p$b $}2ɹyC%N 8 Ѓ|kU}n^\MZ\@1\@ @:@ndhezT?G։3 @ p 3M<4P3B!!["cLo읉(`'(H?qA=.uH}/ލ~p!\x_݂:@3܄*--5$4^φ ڣ rKY2m Cٍw3NOMl~F`.T7%6V locXSB0ƨ6~n1ğ]D@Mʪ&FwZm#&:`Ψ:ml;0o|2ly=N#Z@hQ-9bBYn)iR F-t$0r+ }V-@ Z@ r=8p~HƲ5B@)&xq@etk` Bؠ @^^Y3YCl 3 ` Xi!Y`%@=KܹA(r= Xڦ߈e"! ln&ayk 0 ߛ, \{L2N+Pti `~[2,Y@ sQ @ 8hׯ4^5[ (  Z@݀N*[g4NF_(! B@A:^@xo#Yn#ܸh$p=87,7Ώm5Pydo pQ@ S }= z$Dyd{'- B@8,7Ώ-c͒z*{/oוb@o @ @k +i_kZݪ]Dp{b- %)|ߌ=i`LF&E@ہ#C'* b;M:! ` 2^3λT^>pr `3z$jşBm6$oPA% Wo#tJJyJEz^HHWS@W 7@veboɷ]PaRz{"4Ca++_@̂pk_SeȌ^+AS HtC|@/3%}[0{Y<pЮ4w@;Bsk@ ND;@3ȇreR e n^A5[IㄉUM @ t/e,fLdF8ۙsMJ! @.@<d$|{`=$ Q@yXߨgr/,NN @',ߊW9N B@`_/ ސ^T9@UMW]$em( xH1 @<^m(I-D@ @;bҬ, Og Z@``%ӽuqwlQ (;GO]@}79[ k$Ȇͳ9/)EF,E @]Qpè&\Y Lo%@ c @'%@ZT `=sº(<`< @|lr4 %A =\@ ?^]hL785wZ{_`MU%,5Jv(g9u˧$F}M9!@RsQAZڂ`%u͎Pu{; p,nzN&p$7eelC ecM&PnM@`@.(< m&TK&SlrI uTH@g!"8U `P (;yH&/s }֋7u Mny5H&Id'j039 W" R7B90@-ӻ `#WQ  ),QY@@@V A^)! Y{S(q36OLLT 2H5fGԬ t܇b+0 o_&,j^B.kqp@@r4k,jL+%ܷ ^ex;@jw,9kdK P:73 (rs [)C=9@ J\GX2 ( dL#( kTT@67U~}B~p/x5o -oGl9 @@~ORNY p3(D_6ʲ|TS[T_glVm~T߰;6=䡶a |pH=é#MHx/IyMUtl~9z?TVk&ĴHYRU}pЖjf4nVso/VOXm"fc /61kMtc[&isW갛 pTGynx zȄ> jC}*>&[|7@7F_Nq#~^|l&ݘ63@@G@}r 9#F(h/Q! |(L$!@`[y L } .Q@@B)VT/s#8`H:)I7( @@ 8Xm_}(U,92P"X:.#e=}eDwt@ *wݤ+\8BѨ,PkZ)+לeyyC|- , ױƅ I=ˮ2zWMtnm\FT*%'+A{-]paV@@IGj I`$08ч3KFa6vy-?/K~=>H*|&hYn%ǟDSYHo?ʚAt#xZ 9y)Cb8 FhB \'#AH,!`@)w@.H2*e#{5`֟s?Rj [?P U0 `0^Q!6 ʆ ZIxv`Knbapݒ~ UBw~AuҙYDb8JG`A"a.6$Qݍ;T aڇ'4zk+ldm,+Pr{e<Y>!y&M uخHp0 #PWzCT^p~Ӥ)b}py$4ظa"v.CߙpH9ICԝ fzRtخ̡6&^jdU Jkً{%N{ysf-pLgokEpʀ3nF_U}!q&M)W-Њ 62U?xhZG^v7uXnw"D2ז*&-m|vELw O/J2o4ea"v`^ĀkPrbϵBگM*ZvWtpjtخD /r[ϩPIceX;΄N7ilv4IDATުf*剥vELxʀk %Kl\&ڟ6iޫdCYjtخD32a[W U4_9a{*fcv@@@xK 7RIENDB`ggsci/man/figures/README-ggsci-nejm-1.png0000644000176200001440000007723614570505642017436 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$NPLTExw?**%Q.-*=HG tƝYx_]`njVnwoIÒQoG IDATx읋v:@C"MxXPG' >wq)fx b!A A  A @A AkHǫ$8ʼnW˕Tm}]lmԒdJ9yfoPrLzc po/eZ* NZOpRPF Kgځ#P3\Gr'K*˜} 4a0"` 0 `0 `0` `Yi`@F 0U`} `e6D``k4RhB`@WE=2/S=00[IΓ[Q;OS=0@` (7>뭺ꙅ<B` 0)Ӣ43 x 06fP穞YC H6f뷪JS=Qa*T_HƓ1J t9HS= %bՑau$6usVscP3!Fi#-2JM.ba;w+3 5}Czg_U;zf} ܴ7?`,\L̺h8Z[(63 `a@7>@ R=Iy1æ(R~_>'ii?UPR%bʹJP Okie$aw8%\zymJ#`Bn$M\\w\@s@Rm){s1@8Y2[<)^6 ?Wʅ5RW{tYڻq?mF aZh `AI"t@o㦏\֭ÉӿК踍`?o<*1_'|9e,ʲk-@01C[OڣJcQ@{Q@ &oE6dj -Q }phP5\-\H/msH+?7<@)1XwO!Ka.  Hh]ą"YQ|ˣ 0~`Q4kl( ̚PI|qh,q!4c !:s du ?CE7޿76pjDiG@pc>auiժM޻Й9> (tn.{>F3-\ 96Ұ#l2|r2~1  ɨKKwkhq:o۞r ޕ0^20@RAJqn+}5j>-D:`c:Du P1w]7?ckrO#qC :s"DF0 f>+yQD?nDƞIzS:?ta9 n1ԨnwoA`p+Rs'A\:ݯҥ 8 o>Aq|vm7%d]+R-n_#F~ F NPFʦpiu*ߊTE < Hm.AquT΋*u[~O,b9Dq?I/c0]s< Z?E}^o,҇ j 0?ĵP}>CԱINಶӵчpF}vPu+"_vQ5O} P?sG3 n2 p31瘳}A(7:'߃hɺUf@n5%ѴUQwk`-@7Hpޝ1BZR6pjQG{{8:ԍp=v5_kF bMl!]}!Ƃ:Oqqޟ1 nO6WGͤQfs{f4pJu]JI>,V^ {bUMt# #և?)y`, rBZFH xm rEiBQvso7UK{] aO ]`O` BRyAFgP߿c)ݾ_Әϩ!¼M*4k%>j}`O_ vuw=@t"tH5VjhF?U?j}`zKcDr?psk갗 |#/[b[J^[La[sx ZA`"@ l7A녅AWj(^U|f 1'3͡Rl g<1`/RCRrQ w`Ih܇f3vn}!m 44&@׼{A0ʞ[C:ͨ4?/)$> XaVC+Ocp>]MN(ct)uo^R}k!2&VqK S+L#v`g/2_MƱ-ov?_|ɴW|Մi.n ~PɥH#^兕+PI@f#=%!@ `^KO]y4 Ҵqˀ>5 ll@zd|P߬74{@. (ynv_Kt9>b^dwu< Hq r^E%]>鬟N!{E5)R 6 /0,'B3V/?V V!vrPρ.TzZ.f^3ULzU4A1RT54]"f$a1_R ?cs[֤DB kZ[Onxmo'$)R`,wDJL}s:߯yIumm3}mu]<b @MU/sUy]%Pz  @ |{Pسd p6 ]RugX } .mFoH)4͔}giC  U^h)O~B# XoV쭿)<0\@r*i*_.BЃcвBt_T @  X}:0 !ސ;Ja)הni@}&wo9ab[Zo>?M?:`-5 7w%DoR m/ Q :Fٳ9=NWcتwt{q{g DӘ0úiRo$ Z`<@i;88`E&igŦKfC 8oQy8VO `u @ H.||h tQy:3̅?cѾc(p {,}w~3/oKd 3/{gJ!?ɟ /, ܪQ i_:1šWQĜ,擓ȅ͖Jçʿa7}cuCm?<^*XʑW plz62 `Y1U=5& 4 p} o}o4buD6^٢Ek9j֟s Keh8ew+v*B@C*hM]r*3 "4 Y5;,:"6Tkyo d֖ƿӫhC&!ޟwOpw>_ ӟ}PFw]n}* ;^_@kR6(:T%Rtj7s~s trkhT`| =<4%Y@WG [^*<b6h ͞[P-_&U]|`~/,>#z @^^eA{ W9#,? Q04, @ (.eD苉`Eic// }Qk[0!fI&גvm/2렔/M r?5ο)gϢ]> pxq,oZQPjxV8l})[ =np\PHϠ" _PuESQB?L<8 p)yUyFMDB"*JX`&t8?pU jv~u. @^@ lkp;Y%ll*4\Pgs^1swoc[0[ly*@s+S/ SA;+:;0;#ݍI\eOKU |0Àյ㱣6Os( n`?G?t AU/@+ @(bg0.+5l?̼}6VC8觎Op2#$@uL@STW,c(!Bzߋ@#S<9ٍ5b/iKg`^76Sx'=93~ ؁9@WԽ}}=86x?<>Dz? !o9e."²]m0_&ntDG,# oV ?* 78ۼH aLpxs̥ u1Wr"*vVem6(@M.^ Bngо!./|.B{x~pvJ]'.LI@Bڳ*-*$O(H0!W:J6Ϣ5( @ !A[ N6EYnl7[_8zp sFbHj9& @Y J{wP ö.\Zy#>ehwy W `?8b-DK)Γ`{x^!i14Ox![FaՄcc4 }y ^)B# Z?N6n.6Pp,@(!!  9F?_'!e߄*m.qZ]3#nSb/{ǑM%]#MrAHЛ 4)_DP=d~ IDAT 0e.WPC}jHҾ *ŌOUMUl!2u 3"01%O< @y  `\OÞeDk^k 7913RlԙEe.Q>mF/Uf_IX4 _-n١/  @@KcS@_f:Rػ[ M810pW 2{ hI~>]\J `r@U Dl,&5&hJ3cu8{|~D/8ЛBe8SQ?2 Qm!U DܙBm?yvm[ )XS?}@AhaNmLE_>NɬlĎGPQ `oӲDP# @ۀU_h 1 O1]Y'o- bG {5C!fОB{uS9y5iJGfAbk^D܋ee(M+e-%[ 86hycbX{ڷҒ^.<BK7&/lux;lNnu4=WϟwdK(Su˯1lvuYILģ^qaPcCXQlCMFh, @7{%y%O~o%w>r>Ma+vX)|òF3!6s$}͚-tC FoǨ/8%GR[5Ưτ)>!Y`>369eC ͩ^P (_])g#S(!8qC+؛О|[ftlgDOZ?7>~[:T_N(^5!G XȮ >uNF!䠳s*`2u ݇ m3$MIqM)`bqx9}'# @שOԛi/==!{gimHWݜk._,y>9yjE2 Fe H)@77QB+"&RznOk{?m7ry ߧ xo Ŵ.u#,`rЬ- DxЄ6PS.ʐ:.( IC9R^lzUWi}Qy Ь WkE (rz(_Cw0f㜘$7k% e--Y h@nI^(!!M ZA?*<_~Ur٧_L^I:S k(!!!4,lf@K٠Ѿ[پ.fe>:Iƨ/VoUgD ?9Ɋ's&iIVCG"{9%0J`Tjc^W[?2EZ ktQi 0Q 7$ sV4k[ȋ9tA}-0찓oл[HȊw 'Z-Վ +Բ}乴(!!!P/ި 8$`Ak}jg e\nYCG#-9@D||AaQzc'~U5}l !X=W3~|, T'9^5}{@#ߣpE@; ໮~?yD"{F<_2mNK[s~C`2MY&L[3׻̢}>a2l4 LJjU ऑw8I[H#f?<02bo6ݻV4>4{~~h<``cjcpޞtzP Zb#)%yNa j]`|sbޕ(C 隖{B%d2GU.B\z ,n07#0NӈT9"mxy]|gd/8 5|KLW'6>lӞiඍf3D7; "feB vĩL {( WITćk3(=O;SO*J^y=]yBUTe?CC`#9C2Urycڦ! j%&^ꟻUfnqX;=1q#7e/b]3=ь!p~$OXl".$7YX9u\s>+?C򹝉F5U*Nl ã"waaXd pcHֵTEv k^Ξ=U#N#iy1dC{LAu!M"J|϶|0i8TUP ]Dn * -[ݐ9@$DPV#ۮNL:a(:$:}SXRE@L%'[ˢ%@I@GږF%)%f?@G@%@ -@g,3悽j[nIIA e@oz4NTTC'[U"Cvy#Ff "H~~~L*a4!V Ux|,bK ^%,P G*i5#sic8hHkx*߀ELTEх-b#1Ex7)Hk!9`;EcrՌ_G[ 2Ù( ^qdSF;z߄m 0Kp5 QU>^{g#gx\p.m$<$6PD~'M ;mV 5Um$0A=VVn3͕Ϗ,-LBl5;VHA@ǁyz&,q $Dlp΍?uo9t83@~>++}9b  W䎀%ң'qg<~ugvD1X4*{h"W}"T@y懡 &܂RKi [IvߨpqoXWahUy`l0 h|ЛƑ6`H [G:Ҍi8T:B@.tTDӨ\0bʝq¿o -a_*m~ H txwWUE9qo-\l-?"$៭u@^kNؤN &$Ql1*Z!A7Pۃ?LUTx-|! #ovdHwUI iˎr]H}G~tb 33MknR 3n6 #/r oP 067 G]ڒ[ H ߆ܘ8B&Oq!') @(ʳT6 b_D/z〸J?D.qH*-Fk"kw!Qs~o<N$= |H34DD k&sa\:L =4 ٽs|M I &Whp0—e!f@r;|kNViW^-lK:gF Zƿ.KzۉSGN;B 0 7k12gey"*SCS 6Ewv! L󥲷|KV,\Ju' 9es^?j@DCw2&.vQm4W=cD!Em=R@r1@,8RE p ` Dѐ[;H"ssT FY r!AA._C ۗ5b Ew7$rqgQk RIV  ۱YAWfad*L%F @D4Y̰W 1,@1.ڟ~Iԍ<smQx$sP޵hA"HZJ2= R*QBB\ggg34h =Y5>p  ,jSS-l9Ga$Yt*1(gy 7Pdv, eqU k.1O61 ډ$?>4B@+ˋ9ݭ-c*Lk%,?8@n`[ έEiǙZL O@c  `[_T$Ղsy\,圵ߋzsˆg!l0N)c4A>?l,./:"5 3B ''Ii_Ҧ  x!9@]2Z`yri "63ppŪ0%nY~Col [2g]/8H_G`Bπu x&Z@3?Wy6 ҧٚOD0o{AI@-QG82kWX. 0%!uٵNI 052˱7^v@dϺ_\‡E`$@{[` j}'<=YTU͑:!~@4p_iLg.o]jI,@|-{ m\K >ap@dO_hd #:9%݆^Soe"`tj~>=f)<o` +J&W}0fLzdK:|n" 23 W/N,ЌNhL@?n1vrXok@P/?df- TXMQ1̲AÿV P8*N#{nt^.3*Ex8pOy}] wWj i+7mkT9P+5-F]0`6a ([mW%2Uo>HG_yU,nQŤ ӊh7AOˍL&JA2(_(o3@-#AěcXZ2]/l*b8s܈=qkUMߥ{9A#`e'\@Zp&N*Y*## 9* g:Qټ El/(>|` <|dnġM5xSbE ޅ$ZSxsɟĶ%eE%Wv̉kK60pFaB b`!A{04M`Ȇ]y5]e։~37:=-h Y Od$m:Hs}ʊX7ED]3f,͐?"B:+@6bӱ`MXneKaҨTJHz!p 9BCկ3 pGOeO:^@J IDAT.ycEӉՒJ_⋜n8֬o"Ѣ <_ N~=D FNLEۼ06Ď`H@:W?"b <HZ$ͥX֎àxk} s*Ͻ'7G;yIzlb|S" 4j& N#@R`@&&c/b)𳱄FtB0(k˥/W^jvxk}~]6:Z'=OqI%3d ouIH ߭S?B h P xH ̭U qx` WלjA+cL\bY6r?VJE!iaP5az`\I'pK@43{f7 `*UrQ @b4MZyDnba-aο=L3jC9KA$H[ th ] ՝79MA'Ø p$ 4Yֈ)΋QM[􅎬{Pظ%sjqh%Ew !{H3@c ~[to$*pIݲ1Rgg_@ |p2N?0Z*E#l,lNQ%ɼ0 T`#@P_p+\@cR`h=Z w"'サr~ZΐH]bM T K$!=nZL<& K:}n+35lЇ˨\rEK˳%28JDY䶘Fh"8>Zrk,ыlJ;0ìkoς S@D{}0@x$n.J7cdVeJDZDj nBiEeU t5ƉGǏF O t"/zre;Q!%>8G&y]z+7ڎD0R?wkD(M#(nUP|V$a3Q -kZwOZVnq(U'ZĕFrN,BZLS ?[x9N Ϳ'_Uxh"*- 4M*]ŏ3f]hM `b`@rcDQ~f$ r2J ^:V2Lx*x ,4r5!+"4L_r?Ig= (v;3֡k秸3.1[`[-L@)qDE]@;Z>+l-4*4eU*"쪔3UyZf.97d[L8Z'pOK𿍣I9JJf"x+/\@W|;^i >T-e 0C&T"{Ĺ,mgiRz0ddmtlHza(>YR|uVFJҘ(&aTeD`Ta9z/PsTP@\@uTp{9jTY; T U^Tp9!m\wz(Q9d'A!D~M@l@E Ld ܠgbhLcO6Um8?oO u$D t8L ;W4&*xU@Ihs'. SkKxo^X{ֲ@E< 'd`j>diJ37 @ LvI`P &(? *}hlؖ23_lWE[Y^ _N7C  Nw5D0dc$3`N "= et!sK󝣽CϚ !x!9EϷ/9QAG`~-~$,}*zhبslG nOkEEUY.#vp<^g;$wP?F~|; dztFScn7W|ڼ>E H:'h$aʶtc\vWK,;l'"BϚnzU6܋ս8w`G~1L@&i<ۉ-Uĭ5IN}.D3G=ݨ 'ׄ<[27kahӥI6ʀ785[1kp)l( o*x/9 \|@ y!$ lg)9bLTH_VbTv2nMXp\eU(!:6{P}[+f0\}tݸl "BO/"{SJ$\JWQhG,plm"~8&C+tF@Otέ๳LD6/lqlE2U]=(Z5}oZT!'WtaU@Vj)'DS7t ke[ۍJOTT{A;aSnTA X9sgsJbu&钰I`zH-az/ _/~a4+ V@E4_$ Usanc;.ܓUEXfW5 kc~I >DS)k]&Mg+!̽tɆ,וp6L݉-Zs%x= ,鉍)Ԅ`%ρ"KÆ"6B@;@pBJ/y 7Bd+ƦqiDӍ񑠖K] ښ 5v {w@Y9#p=eH9tX"A&fp{v@Qy#pWBJYNn&˖MVx8x6qY4 h#KV]SG+[Pfsxʏ|Ep A-U׸ A @sV xlA/X,Qt< )@m[N;8 [Qf ܟD 2p 64 ! חsd^A(,P^@81>%ËP%t.nj9;KA)\_RnGox"e*M8 ehL1)p!"p  x] +\18 ۯ採b:}duR?s>猿5H i `, 2(|$b/Ʋ1!%p"P(yOp]fxAH+2(M#@ @|JHd6l@d}% gڬusLH. dqXD < \6@ _u-N~L~w$:v 2f+M`K>cfv/֝,:5 # ci\p՜}UiPc';I՟A͈伛{m;O_"@15Y@c}H׈pd\"㷘l=H bSʬ&7E 8qAp-Ws-ФMfx u3گڑ (%2dO$F]q t,!(^ iA@o_= jJ@YQ So 6ACSk0ƏnH@ 7b!F)ĸ.^.s v }0 ӁbdyFR;u1ȴg4 z jZK@Ϭ ^2D H"@b1 4ւX H'mD>j'-?8"Jbh6/V tRKgo3߿[$ (vEZ*M!*:!@ `-$QV(.!/ÌsxO…b؅Qf |a ύuX! eF©=YO4q+Lr.N`'uO C UJkLB72 P0 aJ ݁ TEo)VWqR^1hPLv6DXjDY"@ `y ius)3[نq?WJ4)l\7?253￴eVcd"@ `+x8I*!b}?_B%Ѽ7ِ5i-\Z@d,flCݐ ؔl6@. {cjMa2LQ]4btJabGbk}P¤;\ mJ0qLD!? $ubIinyǏߨW Z'~ʂ返h@uDG0H!.2d^~0 haw"'(KIZDd? d4d+"bq8d@a8XD:'rw. .d /e`d18 @V 'wG F N/4O'oj "BnS5mE}<4tq5@a"@ r<`nDu_8ߦ'2 0~ճdwo:y F3\@eE6*PcD낧.δ`tCarMU&1Z N5@Z# xeؗfFd, סAr\>/A௯k֠{|_IDATMS^ lHmoYPsHM:?W4)gr#A'-W3^C+!K4 l. d1Fc\v A ěhj1z &{+8p|yh]b2Ȅs xm8ů4.0n.@۾?o }m` +G\ԃ clz=0>q02MbY@·C{Hrc4QiSIA83j l$혥 SJ!.iJ HVȲ!Ѻ\<2d?Qp4kOOJE9HU9 `$ѼAq:_%2d~{C`A6[ ĺbѺVr%<sw  x+ {C&RT@3Vޔt<3Ł#@F f 2x1vR1m-9w>109$F@. e>aġ? .J `~J`~P<;0^3)Owz-ފ{yD30yaӳَm|{=Kx۠ΤVɞ:X+wyȯv\^]S+(۰O~o3٠.n^v sK7:Hӣ@${nZa>sQO(bC@ͭbb6L{Om {e5rG@_dwS[ ^g.VIQ,J_~!3G_Rg@O_l`vڅP|Y.IXe;]@NMt9=LѬlKB;;i;E`mjD. T\@kc3ٿyA =^s=GYLS1矧!!pN|U>3G_] @4959y uE:g89MFAՖYUHO괉__w#O:ثZGB.sѝB;ia*֪4]$@SU+7$=3Q1[XԌQuJO% N}&/ oBw[#wmZc4_C( i9uDu8-v4O%>Lvh ak 5r滀|kjw^x<71ih^L[4mK# `9IB9pO>AD_fS3%Fvff?t4l(FY ϔ> 4'} D0-ǢVX `Xv%RO^ TZk@۩]]U@t,V_9.~jzϥ F Xl `pRVV`[`c`obTS> @ܟ>D@kw7$R`#`[ޒL[HR,7`SAϻ: XW {(fH(ݎ "`I aX> YS*%%ORTHl77FdG@j7SBW)L, ;R)0)6$#` @@yN08~J60I!|켠 9ueMؿS:_E*x@ MVh; g_ ~m@*%&uz`<D$CUnS l`R!?.nCض`H`BX H4HBup@3}uٺC`0`IkY B0B_c- s~Q(  ѐ`0f"Z@bf_c- \4Tel j[7VE@لR0@3]M93 sa @ #piP6_(H.z`0`_ ]@f `Q<02O4 HSt7jUro \5`T*0t?'c- [9n݌~6OӁC2Z@0 @<uq~* ,Ny)/>* } gi;Tm6y']]@q0  Xh-I`h \JhA8$x )3`RhK88y[ԴFśe~.ʌi9`  rF*kE`01"D5- = c|p.S qyza4x }#w k|b~eԟr,Qw+E$taD,Rҙǽ`qs9. y ӻ`p›mj &2{f&N .ua 㦷J?x;<`&0r*ޖ@´"@0 ,8 c:SB j}2 {3 h #.0 wd& 9`F7  Qޢa@rRs`< (jø~v"`h!!"y>7EKu-:`0 p@ѽbp1 sb\؉<m" Ka0;@ѾxCT0 `sx7`톏J8 F`{0 %&M* 8X`Ɖ.y(H 2 @'_~sv_y癨`odS7F9˦|8ݥ3#X0Q@ 7 Ϻ^tP~< / `P p7|UUW">* '] w 53 `019&OmQ0WxmehNx&pã^!JQ 1.0-I64Cเ@l4 eyJx1DhZN`_  >E5 `;x4r"R0 <8 C4st=Y6@y-`01# `z7 YyG'R.4`{00`yjBUߊ8dC x{g&DQâall2HfxvB<_Uy!N]_p8,Ae~ ӷp8Gs3~-Gp8OpSL48UK_SH" Wuh\XoF_]\o;x +&ǽ|\)@$Yhv p.| ~~' G=K5PrņiD{d{j/<ߌv{ѷtu*J#8r 9-wjpgwNJn!rBJTL`xg~[sp|3$dxpK6FJoAQb:z ^WM`L}eǹs`O &XoqXՁ%ˏH4] Zu @uPKZvX83VˁkZ|Xۿ/+vinp:0 <ϛ8B0x*=(@R|Et6TnΛ.X߿V aQx-J9N-ePr8op6RT0hhrf:98ӿ8Iiy0+* ʹmouK8o`\ O 4Z\ )pr[@8@~D8@/ߌpq񖮇rqZ} +H (C 4 R#4SV0up8 @4]cF)n3>33oc6|3UrE0@Iq3j;(؝>7ѧgs8'qjXX5 Ep6U:4%6cw<Tӹfs @?qe,^Wn5`q'sEE8M,OU eny@Q6r $8Dk/"=k(՜+59%,\ E_"Y.O^u-?(~DWds_D"?E&z)_lJ|~-Ց^Z- u[DӒ^RrDd&oe-DpY-" .ǠsSگflf+(lv\*@X9^_C~?DݏDh珗k1}ۚϞWF{+#[@Ffpr-n/[ W9m87.sFx D>`>#Lmvv 3#+%R|="iaLJHtt?ʎa*`Gz8TG:x]d¬+,'?3#n}%MQ2Cڍ|jð[#=3+l* 큕4> ;ݪ@JD ΂4v߉BQJ&q:3Ga&`Wzɬߑ4 J㥻e_Re(um^Is(`jGTU;W:xO4 JKse-܃emsW6 5:j1J?jt`/aͳ0BB!@!B !B!B !B!B HjN}8AzIENDB`ggsci/man/figures/README-ggsci-uchicago-1.png0000644000176200001440000007231514570505642020260 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$EPLTEa,rvuGRRL373ļqH8R#%Iwl"q IDATx {:@G"i"Z7 `ۭAKgeEœL@A # A  A @A A X$Vޓ=h^ x%X9Ɣn߄Ǝ;rrqP!T4k>n,Иmt8˓]faj؆˥pToo,c)^Mu0qlڮYhp,k %S˴>0j a `O j[`0j a `O j[`>C@`߆nVf`f {0;@Jjwn=^NY[O5VջN,n>ەˌwZ6|ubj 0 , ŧ۫0@(#  N,Zܷ ``qV{W'a7\f XOqTĢglxSa΍D{.̷xO02!1އXu <=JeC@u<Xf߂1(~qr]PTPu_N, K+L OFfz^Xt|< g@թwW_X,  `&pW>N,Z "m0?0% Ws[`50 `4y"PxUD0 `%@ `v+F Q} @<>7>>X"xP, Y f" k5D0 ` Ojj0h$nEj` @0^n `diP݊0 nSeem?fw0 O Z`[ﴪ0@sĝw1;0|hg2?5xQ0rs[5n۶YX:Jk+1UU>"v͵ <<YnWֿَ `7v:LLZ\Nu?|>5Hg6evwC򆁨L A '0@ - ︹Cmzjx~k]Z+HRVH]X0`,kbj ;7 @7 6) ŶH~ws? 37Kǟ o@.0Jf3Fzhs$D!=vgo 9 %8S041P躮7=33DdD `0kcOEMY8GsbvP V1$w? (  y"]zI_Fps󿘦#\!$0 yK J,i?jí lj\P:5$=200nZ˜ ?*@EamW$'M|M]}2g\b:[PiT&'L G? ]O0 \ Z Εi:>Ǡ}.jtR=# MV7 H:Ϳ.S8? +R7P1tM>VZm:%cHuONF-'@ʾ l =8{/iJ^7$g}*3v%j5o`\7 ; R(b$SξiʾN}m}r?-#=(~'MxoC n8ur=j IP=ty)ym7oc|oMCH_JOS$'y_Om6N]жN p!W#6ub-9m6ypM:[oYi*5ʣcZT*3!ϤF 1]mwM\ \(isf J^g>=!Sz(^iЩrBa;)E01D`\ 8:fб_Wy 5$L:Y5EM@َm#Rb @P+ekMO ،5*mu'hehQ0E(*@:5dG,og&#aKת5cUxX]H/ zw.Cz$ {iW4_w@p~5p>Ưw~skYUa~w:0EL2B~M u#u~=|4W .ص .o7hsZl7b%g0AƵ.?3@4SA>C.?9P?w@aCe6J =˅R!~;c N5cDo{^UtcC⧇ߖ+J"@C@IcZ , `j FHym0ƍ!La8\اMur+N`@85 XNг{x@zPi N8>V^-'ynbȓpwQjrƈ:jE&-X>?5cJ:) Wl =>~;Zf1?OA9PK?9](>2UCwR,u-$aD1B)O㖷?|Y@ @x=T,\'@(= /qʶ]n[mc1Z@4m @z UU.7 9r@s@b͡.1~٠yRh ($,t7xjz   @xk0`rƘ5O G"KUhz.u~>!Xپ7YurG A$=R2Ngn<>.KX^婗Λ1ຊ߬|6<_NŌa,;@@`8v*o[,H۸G胤:w%$: /&Dp|4r/`DY7 89+`ld>`%Q $ ~9?`xjkOos-Bৱ~Vʃ9+;B=z$/>]x4u^i6Ɓbԧ ~=IXϼ)exV~633xSU[;?Dg5=f~>c?t < kx ;ev]X?[e,: 4fƨJra+#?8Ry;+r/;LC9Mc`D@^ K!.2p@ۊ/sjkT61+Yn],e&+_LC@r:]vw շͩزǏRrxMAC1_Bǥ]\RW~hM넅js@X4frGRo ~ (p`_@;ojPNłPظrt|\4uօBe>qS@/z'[~|Oz pJ H>69rA} A`%j+e#_yhSVwk]zǮ L R؜P"_T8<y]M.Cp7E-!MIx퇝14o7=P WK-hR`{c8<߬r =_eP&PsK*@]&Z_JnmſĿ1κ<_-`>)0R70@uOeBaClFbx ܬ7窸kr*Pw03>.`X ,ט&xe-$#w@E%+Ek}%( ǖP!a;KH KS6A!=ᅚ.BG̒^4&2V6@΀,9r=gjpQ;cJӆ #1j})fE:$Ӛl|^2pNpxie?7.nl%u-_In  <@IHOMSXxYZ*Tu\&{L03耽:4X*=L~@gw@~y޿){-r[}ݽX)UUGoZ'FP3:̟߾Ҙ \]#5Yј2A 8_+9(^@_fQoCoݿ9V 5vPX2P)5aا5Y.A{7Юjƪ+=)c?@[5  @P: B(HXSR wG#({7w %'T S}8-'pvKY B3(%D v0)!¤?U,Vxy``^LԂ(67c1Tn ~I7#&fO1kzLGa0JFdqtoD( ` CyZKUM4U7~FSo߽a2X# /@U<եYa0BGrK #n5( U@m˄lߦn2{ٽ$mK!a_ LxzZ5)Bc'6P+&G:p<#bu}P s1s6ցpjoM?LTHy!(CAD$>d*CcH @\X0yZcrrb'ӭ]j K]7'~e4?Kf$|@ c1$cAd IDAT:@C*mY?^j` 넀ּ_gV ǚՀF',G8EpL5.*3C$֞;˜$ z##~,1{""(sS$ ```pI* i:/`w b}zyhyz¦2?5bYo`* t, BҢTyNnVX0<.XA;_3)I)} u8:M) 19A ±?/J*!v(tCA^X08ѱkBYKtI눭,1:]]HˁI(G6?)Hyhr+&!f0/ ?ƑpIӛn-T} 0y'R&Ă }"a(uL+pf_6"So[>ih@:f="4!@},^n;b{-n `] )eVx +m9!KDΆiLKϭ_Ie?ºIW1%H=f-6חE`KD& ^ Fp+Gw  Rń- Ј+Q03Nd8b8.Xc:mrR!̓) I @` @g^oi2@?3 lBojtx 4;ζKO_K09Ez 5VBxHo(&&V@2s ,$NFH'\ CѲ tvX'A\H7O_Ǫ&,VV$(q8o ò)^KS?DڵG~'}L~x_^`Bh=á 9ڢL`&M+! ]>]PHmOl$@Z)?NIjao%E?dze)ψ#" `(sRIY!9VUc!smCt:9H6X $ p&c~Ӧ36>9U1{{QQ]a6oy@ ?7/ B{qï=֓]bwCMV@J1S@g KI6+ywQG704J޿;;/ _ (z|`.Ak#}=wl|;L"0 DFNN~*hʢ4 (@)v!UVqF"fyThhGp?^`I{o.+VOR//mbAFC:Ļ6n'`LB*26yPm[#-S4yWYe9dtTe"T}!FC21y% HHz(h#<6k0G7~FXO[~ /s+MnSPTO l]Yz \؅%iHK}\x h. ,\%MDw c0]W/}:n}IT~BYؼUyy+oM ZF nBZ"/2 ڧI> @ao.DD>$z+R xxW9_+(hz\b'HtW FfgV I\44q+U .#@bX}p,_7qFe û c`ZupLo|@ At+4&rm`7¢1$ m-@fW#@:D PKU=`vG~M{f 7fHI o~?w`7O!A+7@psF(,N  JSVB˹i` ${#P: `{VyAp-dJ @2Ǒ0JV ݩDk\J[4cݣCЭAD#p\OWJ j "`I?-I! &9w9B@¿=Dr_!& =B`}w`ۏL:M!Ģ@]5ZXß@]gdNz7-Tc<Шrskuf uRsUvuz ,8yXNJ= sJjio=TAdf3fqxR`h O*8 $"~s%6?5mD({(kǦ+j`D p ax 1,,41 1;{SZv`t"R`cVsۮ(}Z3 6ɤ T|aVHVӺ7 *I?PB<CT]X ~V Sݘ'09Ɓ+J,qBP6ZP@nx@W%^nr ` lNQ)pvn]ΔJo1/B@xt EURP1  crV:=OE1ie?ٻ^FB@Hw_rӺtpT5@]ʢ<{L⤥%)GDwnH*{RzȌ"wSCHD. nSMG+xǼWPq V3 d/Fq` {b1 0P\0O젩⤰ +N&"5 qI>1"o-7@PjߘAt_81'R{3]黆l< 'Б XL< NHHMiQ-U4۠7j6̆ h* T˄j]p/E6)Z~SH\0ІhơvX%9  H%4d)ƭBXῬFbVc ¿,R~E<Q))Z[x)NF*h(//oL":tO#TGwd}(^ |VëQg Sm/A.ȹITp&I& & U@*LOSs|jzY+^qS+v($\ ա :]+QP4I@IFQ(L'MJ/fYN-_L&=*W[+e6]&kQh{ņ(n-#?ZFF';4gHB3kLPЮ+zv @ȇד%<+mm `rtU`ow5j0+*(?-ԝݮڡ9$ #lw9dI %F(@u5'ZbOPqd)c`j`FCߦԳE_XB.D'9ʷ#cl%@SAǾ?I:o[mkfǁOg6UԕO ӼP;2- (VlY:wΏ?;tx^3I 闒*TM^w#j ܧؙ\މO+TpBZPSo2r]7|[&v!r$K>D9M],<Jp9<`.ВJv4儚Ts =o`ywS1?xNAl!P!@mSv-aC@9u |FseFeƉ佲n# %^ BU@k<#x=< 1Nyg|N@ o>4>0!C@XTw11I H) 7<"/".u_X\jۋ^HN/qGJYu vg50 _ݠoلv2n5yٻ#nr~ pCTp&ر3ac4h@Wgp?l16pZ|FVǫ->ϱ9>hE@ W2{S 3Z@sy:xx0Ծ0BS@z9&zU 𾔍$W|JvĒ-C>Lf+ॕwҿc^ S@qAx]11 `yh2>c]\>;5Z@g"0}UͺB/OE`p %!)d:`]U m 0"?b4T@iJ[VE :`30\ȕ5%XrԢ $M )^ʎ0l$"|ýog7bpk4g?uNKX~PI@NCul:pta$9cRrZ%Shל0.+BL@:E `Y`گw c-zK\Ώ{x$PCY车05][?Dlm\jG  \ź_d (gGO5qQ:`:@  aO@Z TE3baNQ( a >oV~xBT4le! @@>Pd̹v-C |4 {J/'i`(<" sȅ( D@@ G2V5b`<2i*MSfH$wB u L(:̕⊀ $WJpöajԅt@ҦѠ#c raxR05D0!XJ&PkJ%F˃$E{C x+$+^IqH,(&:$Xlû)A3<#XUgpa|Fg'0dɫU \EZ2c&Nl h`N\ԍ ЄEn@cIwb.gZAAbp~R2L7L>cBu`ɚB[p# p!]$1 D2`i 샱`JVO1E @& @@6q `"Q0434 @ p| qFPhP*p% {DI5befZa g"p|]F 5 8ݵ%0 M"w0/%tO@  x1k"\1U{1?;ؗH(k @Zn w_B/k ;GW01Fs^3_ek8b|j8 0? z#^48DNVM57J -οv[ˏ|fm1o^dJuh)\ غūIexT῭7Y0aPպWZO;~14miO_w'C OW|vS#\?nCN'o}^?~oSt@O|sw1ʘ%!n_?,_)'[|JwFC/b^A] *7h)shn밀eLJ&{'bN->V1{4aQ*3A ŠS}V:l怚 `-q9>yuV84C>=1b >4 lU W)g\%9E;EA sEEm `f5^m)|<* gaQqB@ZW#dIlwhsNC ֚.5tۢf@s(|uվӶp,,4m*З) }M544  ?& (P'*s$Zyfj%N@q ݵL=fsk̪汻viQ,,45 Z´{ѦɤPAӗj7(IK )yŃ+PW $=eή`#{ ;}vd4g7E;^Fmwϭ(`@Җ ]h6Hr=K okMjuLw> ;)_ID&0ٝHw^0sm H,3עr{?m#~ |.YP,*V@1>sN> '#h }}&EB7B u <}MV=d }@?۶?zg(_ JG hKyC&Tw+M05M[( OljAA^w`Qx<+O{4=xSB|+BU&^h/P2r2AgzQ.T @zD_YL-Q;h QAo9O8qqsQ6SڠO0jAUT_ :wSOTQ0O~Y@ZfG=tP^S%0&H[5}jybAr@MŔ$Q'w>58*~3@c&vUvdaHF?^ ߫K a !j ࣶا@:)F goF*m uwɿe }Y`(M8G/  H. R"ؿCra؃Q>^#IQ@cФ{94cGD4OX#*[@rH @ތdY8 Ttq8g ˴ttX e)U_ l+@x W*]FG<ݯBD+1mpMx`yoO`-S KtVۛA^2(Xo.p! @`R_ 4݇V50yJ@+dd!բ50 n[@TK@_ 3Zon s<؅uU'mh,{*@[YLT'}W^@m\4' VR*4ZKԳIۀ Pa}PS/@*`o@VGDJ{?@L5&ѷh>d0@@ `a~Qr ࠞ\^n F՞}-/Z4(@@zv\t&(0Zp+L){)`@+E"F{.YJ/#w *YpP`KAB@ vML>ʳ)$5/XU ,0xPx bgᮟ (\4&JlnC{G 8XS3<՟`#"}&jfrR( eF"n~KXg@#S3&{!.K)FV\TEA'k=4VW)_J m-d@w~Lxɀåo{L]\9|7 ^}"73HpHÀb @~ { 1B!55MpE?$$LFW-C>fBzJAFm]KLT^ [$z `f ܳI genJH/4;X0X,.N<+A.܆ ( `,P5O3Y٨/X7{w(m^rp0B RˌU6TC}:n]>XuDbs >̓،-!2,jF@xXKW9eZ7UOJy 뙘%\fdWAr'?D*B$%ŝ)~T:qYq6Z~S ""j]Jc- 6Z@SV _tks)"3p?D `e A `* 4l~ O&]{msJ}[48Ճ䴞Wcf;@^D-5WȴFbv*ʮP+@8X#\TZF:Tu;ڷ' 23@}}H09]t%-:XU-*72>3_/H@Oڝ*nyf]S[>T/U~0h0_%_ؔQWz39KAx>;2}y7JUKDQ@\ǑU(n8&F n#f@SɍT-m/! lCiJA''=dm5P|mix~I<|U]+gyi@Q`U=d1+bO?3y O4r_9p.AAsGJ`PKg,3 `I Z4 ͷdokELr#?# >-@Xp`K*ڲ ߼;SBhvZ^0R|+; [@76vTO*CILO-9l&!oI1PN@ `f6P̡I)!( [ @@PTs(bt^ B$;g|E0Bov0F;:3LU'H93@z#@=kܷ,@r5`jG [L_<@``PwNǹ_\Gqn'aJ;Nb3_@@>] DPR{` /}k a.W@, X\'ku=ÓH \ βV@@ًv}lUMD~w8 ;gLLtꥑ\VM @Weg((!a pDR4B@P@7{Y=V}Q{h0@ 罀|n@]y+JAa9qh^9@DW6UȷZE,(2f. *l3[ɻo O"2 ĵ(A( l @tW1vh#(]jK&[`Ng^Z)Pș,"qӫN:p40j$ ?) ]v[)p"ihSGP]J (>2 Gw̆ +;p4ԗ(_*d ? (mt((ӄ);p4W(=[Z<`=A7DM-uGz7GtȞm3~>Ţە=0M<TfM{PMotMNƝ`/7?eXzDofZw\ ,m}+`O+'=zd t(lEfigKmQ8Zj&HMTۮ$!Ie<1d}OxyjY])˴2Fe,yzEsVP:҉"–ta#z3fz-[9GΗY:ԋh~l'اij_ ]4@= v0M<$0KmYL]h۪4n -fL< @6B#QdG`8*q/$}н iƓi'XK&Z4E8(nI4&U7 TFJ|ip)x\<#fѸ0C,8!k#_ܡU+xSW ,LDW2= 9o@pAG@,S4_ܳ=xXM!NiwFSًskؿEth &X[q6pF4E @e퇱樋n'5 3 S Vk[byYcJO4>Cwl*>E:βX=|7С֢ DPͅ7P(T ϟ6GOpHP;%b{;4Pa5U ʻ̄C 4>m&G<\\k:b@H[ApՌ}+,3ឳ쑷kR` XTaVy[h]i?z$0_ Mϻxm n?ȹ_b!``_ *Pxq`~ ulэNĤXC$z_l{9G,lR',cP@-{P`^>c  kyܹPBF,"JA;P@SQgo^@D@a|ntDQYq2 `࿡v-?w>s7g`?äR!|D ,s+9{MJU=!08p`x>pz>}?i JhΠ8Qsd! vx6cr &x.ٶBhw7({ m?[l z(JmR[b Kic@?;^ B8ݡӤةB@(9nXY@ `VnR#H*ٻh `:xhzθCI%Nuk^W[Us !f!qϤ3<x/ UMPK.pN]84Ǥ|g(QWUPUT\pbP! hF HTVpV4+r1` t@R] Q*8@XR|py;@xaM ;{ ! r䘳| IDATr(0vH[y4BJ4vQ`/ kw̟HUSiR*=@ߢ>5&C?%B<;W`P\ @a:WVV=^p@h?, `srkvW'"E]D N"*y-:`cvJܕHN%pPLpj"l0z`>hFa@QWa/ `Sz@Cr9{V@);$(RQ\! {0Z+RMJ":0HwH4)a(O<܇s8+& XWo>/@yr x>J۪c{_RxPPSX!w sK "*Mȧ~Xd D !toWK<'P;ۭgym(@T`pDwu{K{WkHf!:mQRV b]7ei</KE]7UnZ%X@@@ ! Ԏ_I+x ! S@j> k]e48-cr^>l_1^b! _.x_߰FkZ/: 5q#,FKϛ ` />U;^dS/o)?* 4y/$^ c%m%px8B@{8sJ`^@9>X@t5F"ғ l0WFݑ`[ROD p,е;V@ Q[Ξø(o ^@;d!lSiɪ;흍*!TL+ݮN;c9xp (8 hVrv/a DGJXj+r*# )c_) c6@1,pjP`c e_Q*67 P?7Wm61vlX8!`s a|w(vw3x8)w@P7RƑŎaLi$< S@+S@L 1WA@=bh}pΊEco*ipH1t) W @ 80_7vzn")~;.;F\ɷ-(^IEUL d!`㍺c=_ֵ; i">@ pݎ/ s5P;k{1""^TвE 6o%:lY<>|!ZUX=2y @d Rg|{FW $7rh/xH 3"D1  #>dlW2η " P{Ǜ=1o%뤃fbKͼp81`c$ؼ?M Gc,R U@;b`xm}:W7/sJV ,NE"!ݟQwi3A if3pߘ7)"$bX_m: T? wbaF0vi8@1L ] eLb`!P6cvQh=^N@> iYM@OvC `_"ǿB,@J}y)aK'PWyv) vR@8}*~* YlwD @CXR sy@7;q%do ywͰ 8WL1׫!vue@'V*8pxm?78S@XF!t5g86ܘ  IJ)5ЍP ˻f!pBxG9lcϭLESo~ W?1$9u/83Ҵ)jdz1@Aݠ\Z]k6W/_T*[5fH:rm*Ō~#F|njNP8d8iCWOӟRh~]f8~&/6\j9~%R=,-\8wտl JnUfKeQC4tA:v<+5˭ 8}UOp8 ju&%5BII8OZߝwq6IgPJ.^~(J_&WzJJ_Y1楛{rG@vk\@nEp*!dȌ>HL8܊cd@,23z&Sgb@]Jd}̏5ϔUq4[R=k]ϐ级rJq5p&nd54'$3)gS%K9ӪhOmT>9˓S(Z*D|P'71B̌>H_H޵sE!b2z5.X1^fFS&KϊEQ b/DQڃRYR=/E y\,N2)?, eLݗ*%Aʁא.xfVҰ*KR|ef1EG[77h2}O-5H%@ӋL/O HPB# 1Q*Ћ.\ocݥtjhx!A@AJW'6)EVQZ;II)!t1MZ)p5\ H0|"䆒XS'yD&)KGRt 8ܘ0)h!(OH %g]>GR4XG;T`BP-' >rCI{dJrC'9y#]E"k/laֶ=X j |*䆒bw4 KI*EJX h4yU~4c-4 KCS?Rג˷y) Z >]ECIRT$t_G;T@jX6 >eı"Nvie)XդC0~4CSdu2*^IRq21hv  B30Pv78xϝ4]"iLVE;RPj8H䆒8֒c4kLcX>4CP*LdÆN\6nk{wҴ[ @1M6K{x)p(5,S R'/RA&4S              'aSIENDB`ggsci/man/figures/README-ggsci-futurama-1.png0000644000176200001440000007773314570505642020333 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$WPLTE\ q B AJK)45v{}[`aR&RA\xBU'LggK< IDATx c8EAR&,&%hP[έ,Nn^G!I !B!B !B!B ![\'^;6@s@!CJXfJ%i:I.#2w$ޏ SFijRu+ζ&z-9gRoP PJ'd0V|u VNZN`%`A`2ʅ̬TZ-I-~8`Cp%@p8ؒ 8l[r@uؘ W pկ_9r Ep"8 s"8HtQdnR]|*@~HqVu!߇, ڌx6XńKp.bc,}, .KvJӼO;GpYXxDp ,p; \Vw~apHJp(avO( _XxJEl68DUFR5RjxW(ajLU4 ևҮIߣ.OZbFYIxpv BͮE8Zb\ .v>ϛ\V} k]}[*WҼOl_ei`#%Q@@|m'fQu[Xl{, F<H\ׇn8-@x Dp `O8M:p@xEt؊x|@^}?Z7q*#pk@[`@[`@^< "8آk9DpUEsX"8' E)d|xDpOViؿvwC,D͌8 @;8OofqyOqk+>6ڶ;Eٞ<+FvWj媥JU.WVu*IEOeub~o_jZg\Ɣ)NVE6( cp<&sPn5B>'nS]Nm;Ȝf~`Lɡt?@|@X¼*?땻LAa|621$XZ}Qu6vG6~!u:8q Ե 9r$G{cmhV#K_/Q@"BM?28r5  X !ϻ|mPO.NӼp.7ǵC x.f:¿ݴ -{PˤA@U4fʍ#/vK^<0Z6g_Nꍬm7*g RNKJw?h SA )$~dK#YZ2 6P"~(]7׸ իOnm0ްwg闾 Mص@QEotQ@e UZx(d ]`g׵KƷo\P@:W&BW|w6]'}F?v/85)D',^ r7RA/oŎ. 0,phYiGMvjJ@%r0wk58w||_( "Xr:%Kx/+cA7Q?v@2o}~:'gUL@|BۿcѺkÈX"uyepN3]u`Q=( V'QUuTWSc`@`>{@MDf_S̥.p% ~|ET& 5! E"|Yz7 f&Q@Nr?#X㮱yoB-2I<>ZF (?v=7B*ݗ߰OZ)ѿEwu`i #?8澭6k?ԍݠ l޼+߽_U6M}s{e@^w|b@Ͼ't]q; 3gd6޴߼6՛QUM .Hn&=:tUX(_@eAs֯ř0r9خۛSUU )MI6K.t_wJGS Ԇg^_3" uM Ln:}S\M` 0LL>+qi?}?0oCrf8?x +@pq$3umjW΂`v"1/Bs_l3ioMEui'@;/Y9KKɟ?L&xG~:h 1E׾ov}3rڹ馎ͨO 7_ ==@iL慃St>mc\յ0`4?dZ:3+VgH[˺7i3‰.l )xj"\,aJ+i;3k_0‚2~mww`_e,~m]>t:.j#}7w. uscm;m8MT$:2?g n|^o,ߚ/?#&#~2¶ fTO9&šePAib!-:“}"(p[;^„:ԐÝ ji0/FF\'^CW6/B๮62;:@>4Mr_'(4  f^Uq5*9ThtQ3i{E7zEOO&NC @m9[9 xeDk;j~Z#B]@'TM:k4;GB=}&%066q-Jkc9 rW1`p4]9 @  ?i7Phvֺ@ ~"Yu8u?97v)Ƨf4$1fy4w(GeO~ R-]}'@ |{(ӚH/@M))w nf83clhkɬesd9XKQ:UwA1 ss;>s*4ߎi+]<7Dϯ74OEÓ|@. Yk}BC?P9HC {]񺏘Bs13S50v ,4OR<k77P8`|le&_ {<;F[O}yX2;=4@ [:@L(@A;h]$$n+Y+c*}q ʝ;hyaF]PYIA`( <i B;h4J mz/ :+B @aQԿCz$% 'L. 8$V$p=XJA#-[QU#vL4 hy_!M + ;Q@ (_IӺZ! u&},KQmYkmk5%wZm,aܫJ1h%QK'J b@ F@MXoԿK=-^/٪[U.{Ы3H$X{C_. AC +@ ?i:db. 5K&ч.)fl }k{2*L|zgd\tC.^-}ݽc- P5[#Ϻ1jo.kk96'1,%hB daq/.ix@~0H>J`3!b \K ,ژkB/yI U( ?@`jz$J#0dA4oD  @{Pց8QYagh1 &~)ؾ[?f>Vfua"X'J+9~@i{U2rTU _'^-{dhJx11AkTY6)Y8S([ƀ[T L ;/G [CBYN'դ jJCEZ+OuH1h!xM^畟O7_p]@Vϯ_ ^? +GS,zT5e]S:??dW :Ku}O`h(EoO5L q]ڙmoWC Fzv).5=}pe4^ݺt '^;@I]`(L>gh;wɲEb1 )Dˏћ_lfIo[̄- [8ɚVɒ wnNn$zR{R;:Ys?y¨ x9-jgj ͧIH" asa0}@bF^eQ ;-"B_)rاHW)á~0 x`ņ`\(̊h,q[c"<'GlO0LjU.[|H??_X+ֈt+\'jeө y f6Qw1o앙WB۵\`ND[8L',şl| hIeQnx;|ίF ^ ;z<]``s$畍2 >{ ƒk߻ZDMOE1:枢 '9zWNgZ,7P<1 ,pl4 i%-6ˆhdÀhE?0@_%#;er{ H"@u @$8;#=˄ܜ#is2(&6ȕ۔/LJļN{0qNn,Q"<-Q?SX,- @ vz?bd|Q'jF]%۶WONÖ7 yKX 40)2\Ѿw9ȝ9䚉G{|9J>b@"h\!p`ii "(T( fxd73P#[+gʫ[E譚~dׯ݀??C@`7x[@m,Cv2 65rwoK3B_H"OQ%#C'2Mv&9gɃC6'B.b;Ŧ. !(Q~/ɓs΍r!@+I.BRqz 1h#M p g n@V < M} nk/F6|̦v`4dI-N q|]׀ 3iԤ'Qwۇv`  OX-0@ 6ɫt@ `vm0Leкښ@ ?wٽt"w4) 5\n(ǁL|U꾴\wAkpHjp9Np ^l9DN`@<hZyUcbPc:,xY.]J>Vi?k?/1'i2312+CcBN'B`EM}N`@QV%(dx8riTpΊm,ҽjUy2πiGy:RH:P=L 7!"K7-~G/ C@Gp.)wX餹_W{sT(4!oC-'-hR3*(T,eɨ ; Bܡ72˟@>6=I󸤲~p1K SX%"˒+[n:+@.kC@Y/GW|h}P7թvOq3+Wq5[4gcTcy@DmX kd=(ά&YsJ'tZ":c&{zMk xdxu;^l&!~:jqܰ1a\1!!$ժ'3z:ahqXEks`| i&K['%A~@,@_ >4S+G%M_ W!F'*>Nr3F~2 HGT @X=x2 ~ !. i56{4Ǟ Ȼ n(2pʼ=0ߖ$0= |F鲺!wr99s>~b@@ "\n}9?B[0?}M CAHp+!HcKsRۙѮ>Sp#}20^{@eM7Ƅ}l1-nbv N1o H.B`H U7{}QIX$`N ?]ste}/ @;rVKyitƯd8CҢ9f$ gZS(T?ƹЫf}ăOn@ ^xGtpfnmA`+"`۾\|J"u8DsyɥT]6uX?20DK"HغR\4EdD'_\ |Gv#`nqiT\9?Vh۵6C@+ @]/UKt1Oz3vSg% .wW ](0͹ ,YPet0ׁE*BzL_k`a"s@>hF16Uqf @?\~ ^xP kL톻.t >j.aDj c_6ܽm˛t8{f(SzCXjB1$ՊSmcXL R`(lYx>';!YTi8p{\\nuw]Ffc)9 XsFz?cKިpt0C2x|Q2Չ1n?kkpy *P] /l8 'n.1FDZmwmKy($[Q%D"pD5cPѝBi 6&/݆u &Ԗ/B['A!HHK"*hu'UjIZc.'.0< Ke`b^52}?z%2A9~w+ʾ ^x/p@ |mfn`0 dv@5/Ȯy+#Ђd&IW.2tXl:.R*h=H$/b^'s-RȲCa{"[}e!X|Q LO-xo*TxAjpTNJnx[lg`rltH"YP/9W ˆY*Hkױۅ! ,05-_Z˲kRjɍOS7@ZSC| 6;'`(y, t^'j|@Z /EZ4 ԣ;ű1"J T@78n VP9@8H`RM#]?ˮ2K1(@ùv &Lv [h)fM)$ O9|NFVFs8L195 Y$V4(@vݙgJA2*TQ@h "ayBKINMR ^gՎX5/,Ju"qQ5a4 \2nBo%$x?"'" Fpt]|cKUrP|NyQov01 T19a$O1>Ba兇*YɲyZeә=OJB]1w"Qh| C@: g8m \UC/>'!^Ґ@>#}$T&C3_V|T?&2?r5菢 TX zc||?g`Em% v45ɀ 4$e3 0vmdڝk.,K$ KsCv#L,>M'9jI!'x[wQ_ QJ, Pewm Y>- ?[ c2 /,4ƉS`GX/l?{ע(EaD#D\;o^tvq -9Ji{F40e LӊuYzDd*ڬ fdm ̆́M w/4, b& zȩo.цFc A4f9Fm 0*=5y VW vؑ ``VM[j9)5S[L# KG:$y"l^Iv,  srvAE0 @ HQxL ^ R [OhJ 2b~(7b 0dZ2pc;(wf8Bԟ} ?ZgkQKuB&3DPp"m)P XnH=&/t/UP\jKvTk//_;Mұ{Y0&\_qa&`Q]$4,4>MͰƄXhJ=!L ? ~$2A6rѪ?f% :p:t5瑄X- u?oӅH$z?<a8d3|^(v(Bp^(,Lg0P P2_HPs-?fΝ~|5Q7ړ(E; {YR5RblAߦ~=!3ie 3t{F9 )jGEb@~8t>SGb -1ٞ~ZWw0?5v,9!(;QG8i-'$ /(NTP40&F0ٖbkȠ+B6,=)N#?F-Pf a4* C# B`@vւSN417s*T k( ˒؂MP 6=T.,9yP@P_Ic$:'6؎r3NT5VՓ1WP2 ?u;Ldv$=|'r^I ߄58EYla fh|`s8"d(>h]>/ݱ ޒ<@ )C.'PXPwi C㟵q % [&0g@V'VrjdJnvdܝ*T IR-(! FNź_v*ū/KY>E vX5N T@GGcITZXĺSҀ*ǽaLҍ%^{2g]/ k@ebdY _H+BE[BSt@M>"md4ƟzWoKqH\d0NQ6)X;>4M (97,Lziqw95xϻP-fFfs,pl&LdW:hYWЏq ^q":lnUn1_ zrvPD؍F5эdͥ6 ӲIw]#xa<7~;]X.*%x@HJ8΄QTA kUhڻ_,/dЉY~ݽPW?P%5~_hQ9:UQ_M4 )es&I0sиsJ혻j[2]߁,b5aV Xo)"p{wE$8/}JR?R nޫohO $k* Z*WSGz)%wB2 My~a5F xvGT|ngR Xx bi6LBW5s3 ,sD1]Sm )":" #r&%`;-=ܤg{c$Ky!_lV7E /֏nUkޒ<. (F6#i2!8zn(/bRPEeɏD IDATI\%L!o0a[g@FKD'<~ԡ*H3@ss]k弓_\xGGع@dϺ_ WbG^;|>tC3{| 5XШ ߝ˔[[/;pv0SmS5UdXنrWe~lPR_4 =[:l=ЌY?; ޒ<Iu n4?Y fIrf.QCO;W"3:Q) ) 35 a85"maA B@|X6T@PWo{Kޫ!Vr ({1tG5G k koɕ T*뚁7lEV%4I1j pt`l{! $`W@+T[I`E)nKhf3:F*ÿy#w7!($ Q/PM#xa+xJDd `L- TP@\P@c#2@嫟1YP#V)Dr ]WR"V P ?jq2 4(l 2 b 񬷱@ec3AdV d8)ʙ #p_m1lYNyؠם$LM9%7h~hUdq Pigc4P*Xbm-0X]6bhekhv*>h.nPE =($@ dib~lwWkB@a50=hԬ活\2gBw[Ō 4SU?i0"/$QMu<"`!.غ  ߖuxPnrq70Š$$hE>0\[kG|ˇ̒޵(؆4 EuZKMt@O|luT \ 6%, ( @vo76^7y0%{AJ.eL0"k#D+&>]Y߮w^ŦEK.o^.gB!Z@ b+bG??0v- ,M 晱J,Jt; a0UP,A]9+JԿ[ ]@tV#&xcv1Z@a_Msw. v-i!1WV6W7tT}J.T"ۀ(6ul3dO laz(P0OKn V[u`"(д]Y@c6!d٨]LjgJmX=0Rbqc4HJ6µIy<q*C֎` (M03%[PtI&0e;* 8q0DNl)bm` mVqts.` P}cfcBHn iylѼ-Fܴza{tB'8E"lp[JQ Л0^9z@߁XX&B@ o @6ǹyr,@Oh\+,k):v| =-\DR-IřpL<,DT^}gmP"r hfFMa@_@aܗebFo'l>k6q,.3T@An&<E t$`F3f2IR|ӡ P@y5Z3.5AȒĦ]f'8!JJw%F@Jo"wy:-3RgVŀ;Z@aܓjz? tY@@hpf "`."#OܩqyaMi5CzLߢ؉p V {yaF7[86a EfGvHsԖvsaSd:g4HZ99J0{DeLf<4߼b xXN"?&!6+ͭ?XΎ^N5 _>p| x~9W3d7IA`j[ªn:[U5vФȚUmSoRקל? D/rY @6 4!8]@ֿWH5 x.Уw@jԜ=Sl&PN@onGPe nU',@KH/I@H|#VV^Е;:dQŸs@m7׺ghzBlW5{jgGE|7p4;h$vQm:?j' L.o">7,D I;0C6]4!K MԽ~ &:ـI yY9gK_ufqX9?+t#t'iW{5w`lK?H;( โ?֡SP bױ^dMP"߾W%B1}dX\lA-{, 0b3yh'2E7Xz.:@ z. 1}Q>UT20I#G)5  t ';ӓޡ0U]k|4#P0b{YH]ˬbG0uI;i׳5_awO؞2v\20zrS8D/9lpѭ[Bcz=J0's=hRpZ mU.0!ExM_aCuzd^d䳀V@}Jp&) l `8@eX垡 haUP91]0:GZ< A@\srR/M(˓5Pvg T)E gYs=eЯ2- Hڼ*F98ɇ8w\RZG޻Gu 1@9ۯR  Qㇰf^ fuA]FA<=(JLLOUg\@)G3rdz ocSkou„{$vw0&?`q)_ {2EYpxt f 'Tt]WgùW0doXA"0l|WTaiUp m`-ڃhLJB}xr'2=?(˨Nǽj1t^>'33j S⵭xtt' { :R~,"Hf-4ϔ'cئb7a!>v  qXs,B>BUJ"#[141&V6Nw)C(_2M 0 2'm> cwI@ `5LS9DFf˕lȹx>KpDOOV?d)х9]`g@0O\7٪CQ_Jh22 m`L^S+g??.5]%`&Y⪸(k :}x^L!Q7\@guR\\USX!kԝٻDu o jԂV[wZE srqND{@iGD:YzAvR)f;| X,,zs&@⩶;uCNAzkV0p>m nqMSt]k# ZmH"E` ^ gkn6젟)3ro@JuڰJ :`ߐŌq: H ~)P|]J&'ZED@\"L]%L`ϝgpn 90ym+j[N!) [ @-m_0Ua۷GbhKUfKH w7g,e pŜ;ko<Y`ḇM5Z@%b/kLfF9%qSש9t_Um r V .I01VeIr`Փ.H;ѤH1W[HG\w}Z$fL0}C,Qs1؏LS' {M怍0 aK@9^. `L_ ΄Q(1m,u;2Ԁ|`y5@ }|J;=>6Z@pp$G_zD &*bcȿ,땯0`T֓R B)eߒ0-悯؇ - P0ot=|0t D[3'3/'U ?[2*qZ X `Q184D@ `5~JfŽQNi?OÛMo\@yùD̵75@(@@ ` Θ bq/l?$sID:oYCl2[O/2 -b[gxg!Ү5 S py̲b"?<\Zn:!0TN"@t5_jө ZF^, rfGuBT)^co-kUF- MT%_uV5 @Y{s0]*S17&S ȳ|V",d 0^NxXB! &cjDDh:8;c;*CK, n%lQ(oJE~<:!zd_ԅ`b b{aD b6lg9zb:#XI'|t% 4a:iV%:U" `r "5aUۗa=B$nw:8CgGU,T HADeL'~[@)@[.&[5Zx9D?HˏCoo{} M.~1X~\Y1VVXoqMq@$"1Ny9夨2+)苗_ޥ`_ Kx= \':K xBe`eߩ?_ fX|4O{M#e(\@STϣ’@xD<={,62{,3z@dJ&s}3l"/ "#;Cb8_G ~=T"ڳG+tyG{'#+)n`؋_Nr=We@*_M-o{tTW .~)Xg^)Ġ k1g1&P; :# 16N~pÇƯ,bzstkq9 @gj( X҃F~ (bF-b; u1be 5@l2K`Rȧt:=k=E\'_%X}VgzQ+W;WrT6^G.հE"@ ` `(2~ ((*MbvWx#堫5O5q7izzq˽w1T*J&ˁ;]12j58BP >J6X")O)ߝ^xS<5@2^/w 7jMGp\m`~@T1ȵ: H$9 Ǩ)| NdB*>ε%`2PN|\Xg6PRƚJsh A?hSx)+B+S73M@ZP}0$9x46C 5ܝb~# @1`o .oBB8%!d i&5=~jt#Qezp0͉Ј,;E*@ y  Ģb>LS ^0Ro0|44N ^ htfK:uHS)W@\v* ×$'t \T$pY<%dtU`*B+#MBmJ IM0ܻdbPL<)8   ,L@ bHʹB{mKL ࿺!8*Д@&r:5f@M(9=$ y#0y?4ur*t'% /sqƙjZ~&|x|,dsnvjq j\|`lrAlTr1G @)i/u#t?lW!Z:" ۚ~A}gy~P'dy&(O@&v-iz=7E<1]vMypjC@HyL9> $ӎ0lM `M#7VxO"g Y3fuyZv[etxP66&v  `(j.[1HA~#E.3(O*-akbj GY< ֮u 'hz7ɠ( [&0j@2k s@ o6Y`POU+0lMoW$d'0.k(&b^'ǤǗfj 5 1Ƴ#KAvPPkx]V_uw X ]H2M0Tb/?6[݈h@Xڇ. (5Aӓӗ\mib+АRD= e1˪*M \Yc Xo}G@>`lw1a9/F ]Ԉ-彉ӗJ: {؄(T({@Q:O `e ,*@?"vR@ l[W~ ;x:`<6Uh@Qk+0nEb.Jai2y\r6&%&dURP9y"`;@ P `NAX q{$̖/﵀S>Mwy*o@XXo=uH25up5]hv e@ `MV6T 9D* le""{^^:pbM`(`m{!ei_NRw:+:@ 3}zZ # ?~T o{\ZP(E7F=`p=(Z"|)@ E&:a K*a &@@<̭&j  `ߥ=<c-Q<11 P >X\?C@S~1wF<+h\hRL@{JS(wжbdMM>NGK%1` gM[8V8["ⷵ ` _ qm S;|%ݿIQ)w wچbnئm퟉'-M7' (` ^(o'b:C@t@ۚTJ¿( 8dHT464b\_e; @ 1 8L4P9ky nW@ @@(9 $'Qm5y#'&EDQb:ZP6_Nuj;𵀨o]^'60 Jd}W. 9 C+ҏ$J`O{j@p$ m@#C86(,@}/e 0p*A[UG5Y0nh @PuxD 咐Z$>J !!}5)9+IPbk@E),mC@U(cPvp{}( :KM@ x&7 Pn &&;6u-|1U0Ncd՞q@'Ko rU|d`7`pL?8S@Fvp89mpv缝g^[$`Z Ly ׼9p'-I`%wS_9m=_׋pppL ”mFzͰ9Wkzky+'r_ji)v) *[q9NX",wWW\PV*UgsuMYz[[i ě曍k9L` xeŕ?u5LpVlo/N(@#jp| j \/4B ۏҶjJ_,ן]PS@Pm<F=^9F_QݝdG?߷7!tBr_N#zJO~]A}S B˧pTC 9Of߳#ʊ7Y90f;kwvIȹJꏁ-)RB &q9h:uk}p n*:&0LK6'@xDc up(V~҇N 9-9'  e9ͪ_Z\^ߺKaX&^9`ej) `sm9^<-kpE˻8==9qЄ!Ԗr(/*l97p`&W7!} ,@õ98s_ě.U/85f^vO4 @l eҸ/  E:\fh .ݩK~&f7s1}V ; MͶRU)Љ0Q"[& ٙGp9WP޼H5P8('Xl0ؚXPu LM lKy5YprF߉9`9kf% YjU8W-XP*ӗaGvj=dԩ%*T.&NeSB_G6SilOy(w8SaibmP#U{j6su[s|<|<<)}Z@UZz'ʯWzX2eTÏMtYɍv^#]я\G x^\p":rsWu KkE1e'QeGF7:aK4/=ɾ<lO_FbO^ -?O`9) 6n6SR, *ۙsW/>(eU<&wϊrշPD=U&88RzH2z_"}P,Kb驿B-&1-k&-J}At/q~2d4ŒV o2wb# Y_/>R,=Duy{0q7~}b`TiڕDFq$ h69*q ZwtaVI»ޗH.>?ń,iz<,3|AWKwNFcwO }^bKp8>B0&DzE3whRmh%6"쾧rAgB!@!/(4]-v '.Z]~O+ijiVCkbf_F 5 >[ASBX_P2ZNf 'GS+}?z`` R;k#ݪ[^}-%t F ;N}+2Wъ)X?;>0cحjpb#t<%CS-vRJZQf Ha0ev1V̞$ #-(YˏҮ(ue"}WՊdX?ƶ2cحvpH|(%{4{VQ:^JZwZ@a0 Ƕ2cحj%=\yB@=f!X+lEՙ=\ISW+ʩV81Uf U *oyt,"nhEXg"{v߃4u"\86aحj%=\~l`YTs1jYD}y|+C+gnư[`Kzثl#pdo*~YM4u QeW>4ؖ.=ώh+$΃Ԧ5lRфem,lAݝi&3i)>A['!j-P(G 3k~s ,[%,-:t} }-+*&¿ gPG݅ج8"eŲ]A b ;l õWϙ2_E,(ۈ#Zsێ<5)"E6N#ӽEkۃO0}*rUt.iei #]r >cU{t7+ԙg߃xuWB_-%=^ t0uvW9 %/VBW'_tMۓP\>@y0`D i|[` hh)Tj0B#ЪhU# ~yhu fp#1I/I"0! 'Sdd:J5ǖ"sdy#R7wAgdJ7kʕn^:}nWFVst$gj-tԝr_װ_7Z ~V54V }o[G=Nd>-UlaY5V}xg[?k&>srq߀].r_r_qsGjy4k iQܟBZ-<(d=dKO a/zv7]ǰod}sn?TF'|3Nn#I?"mzv~K=گsl<b|_|4>?pߋQrib 2* (Ѧh{28oIyes8';Z9h6g>xRx'b8ՃWOϫ[xn%|^z}%x c8eXIfMM*i)Ñ @IDATx|TU{SS%Ŏ@B vYXW]vW]Eݦ@Nh +vD(5$S;2͙7~>ɔw̜sP@@@@4@\!g ed+_͢nTAI Vyd%fޤ&EMsBϊ@"$B ׀D`݈c4m^4!6r{x@&'i6x@`<<@K?4iaҵ7~E"_WA@`8)x'H`]IIWҼ7h{XoBSA*f.h< ԓ__p O=.5v-v0Q-rY9s+z ?!"t04'iZ[-U2)bƽ5F}x@=f 6zo[3'%^("`ڕWNj"!$ V@NJ+Dt$p<vN.% 0hB, V;$F`1jߣi)ZgV&J Es|V  d(FHu%e'MRԄ-Y4[7?0୷m@Cuaopia4&Ux>)␁  ;(s*{dzۛ}$)[1;+Ux hऴ1FA@֕9bDx[VByN|o^  L~mx ?A3⸓2}gOvvQΈw)ؖ}9JUklk4Q13+E?ci,#'% @cV9isr|c'(w琻[22뚱Nɬp~k V?6d¨&D@2FNJУaHcGv7sVӓWܡڭl0pǓx {LAeR25Esf,@Z II+n42>4ӣS[ɨnS(2)+%%4jfUT)F_OIW1z͝!/a  8) aE 놏?9K*]#(qzwUi2$4S%ͮ@* II%]h #F6=M)('\CZڒP3deSʏW>RQ>e"/0Y2 d`G 8eÆs\<{IfWwߜIn4^ۼ% ({hP\1TC@@9PQ9e?=YR\)Q{h/WB^ HPX;x]xiaiw$J̖-nT3E26m5Vی 4xQ~hQS!m69S 1fznlgIП9/S(g豒ӊ3|,oIonj⹳>"UpR K@[[ZvNڡbQirǔP޸HyE ^Nr; &Y8k @VG8cH;\SեLàYf+dVUKVʍW}ρš 28)-3 J"?nP;i/(MZ^.VFcKIs=f:V+ N?"_,}^^ӗC08)mxuYw2Nq'Dp,;Bx[Q3E,;<NJV{Kƻ~hI[BNJt,UCGv㥝FzOw)-ݦLN_\9վ»C)P8zЮ6w,ԦG oऴQGE|{‚vk4Mv<"?ݺP$$e Xxl*zW(jЄs% hऴaG!0ùtx^ڹgO&k]ܓGQ)I=6 DY?(w k>5B7\)h+ऴF?E)}Ks=b6{Lrum6G@Zec.q[#[w}II.5vtFxiR琧_ii `CTKT;c.QT6 A+5Øml* IisC[!fPYżL:޵Rk8S)3. [/=E?MA1N_\QQ ! V34%cNu~֕Zñ&cSޯN"6zŸϯA瀁Tsݣ4Hmʵ̡fY+,o׼^Q3b>LRw=佁b/a\zQo"KB+K[(3\6Gp`dv;c~ BNF8 ~vIuWSP#HeM xt EZ;+Ӵqmy3S_^@$KO`1}QcuCƑ( А@);xFdxM.\(ZRH@$ %tl?>o|Xi=N"wݤ׊0 %۸M$Z%xf x'J,(mMixFrvKF{(;m i,Y)'Str;՛c#^ *d8)3V=ڭ\f%1So$W }j~[۩>ϪԲ-P}. "@wX]R˭ngs߃ .O=B0qGn*\+4.VY.@ त8!#sd>3Am&ENNI^I ZcMrGvN&U<e<^%B<36jޘSJ;q&'E(RG]=؎n{聼x%ckjtǞtYD͡SP#gg$'Y=8~om]@v,OA~qs!؊ IiŃ>f(ZWVvCƑN4VLoQ͔ذIBnϪLҌ=++Coow@YpRŃSA`{uk.g/-Ş=v8 snT;(Ӥ5f^}N3,,$k)Z!8)pPڥŃw^MyFhJWK':?ҩ݇] r6RS)·mq{dF't8A pRE hKƜK;r>/ǜƐJC @o8^e E9nEp //lݰܹkD!<%G`1G?oCT)>wINYO@x%2VkY%zbNNJC_5xdO}Ϝ'm_9;yޤ8QWG5S_󈢲)P؄sfNwB_aC#'iF{|`2Nr%;3O!9 ޺l D9[m?)g噕ZTmtyqqk!MIMp[sgDvk 8=~u29~Sy lOǦRljiC NO#\|8&8)msE{j=8Qar؂Ǔ{Wii@%` YI5Ӧ'.7, U{…QQm9pRܐux]IIWMM䵗 YU(a=gAH :@׈ (D#n39b[A]/L=i' C+ȣq'QaDI3@t*-ˑϾg.97lऴ!K]zUUu)LyO#=?OTb ><XD2)S5b;Λ5j=5%e\K;#`"~{S%wb p)@*(վاogvsI~oJgx܉w^-{ >f찼JEi.5ȸbLQ]&'6:o];)]v)/Lt$c0T@@R?)<eg|8-b FiO祝=D.9AssD! N"Z)J5d2(ǫ#B[zUTlZ$JJuFGn$vNNKyޟv&wqwii# h|rdrdM]FG&ImhLNJˌĮX5th';gKLX,سw~!`lSQp| o,,8^[yjI``_[;Hhkhy7D=4S@V,_߲Yݦb(nΖ/om+II^V18ޢMOM/5b  )7㙕idA amK;~hQc\ NJp1=v;''J7oo*-ǝ%- =hUpj_E5/t s*f0g(ƻ;P3bU|[\ IzL9O#.MBqSFSɣHx$ m@T~x9h0zmυWQA8)t.'q؃vϞ#W;=  {A5'cV{"MbG@wFn[wީk2< 8) j5v]3'ڙs=R_6[26.&F]jϱBkE#oWUx^RiI1k:ӕ]ES;P9G)@'[U?6,Yވ"z̛qys'∬+3X9$wl)>T @z ?2AQ>;;+2@: "y8qlӦa)sg̒n}jpRz;Oȗ4q>d)BtdK@@RO r /Mȧ3"]V/2rOIW5b  %xJt #&#浽^ZVyjIY_2(\F;WQ@@@`Wʟ{j@Ɩc֮a;BYPv?tRVnNʪ#{sg"r߃ .O=eI =g0Wv\"ε"Y JWyAR)ZIYy9.Wy 'eMwhOyO# HH!>ow5 =+f|*.AV㤬1t4ծ٭5$wl)r=ǟB  @~l VFn,zcOU;)kJvq*{;9Vz@L9\ݺHKC@@ 0c͞O5ϼD&,ZL3+WmXC-jY,ku%%]Iƹ~Dvދ ?@s  mQ/R]"ÐI_!@WL#+>sRܳ%7BITZA>P| MA~he+WSS(KA4gGe=Z\;łY夬-=Z'~\/E)g qE$J x2غu&Ex`V޲%J*+5FrxD{KKC@@,0#Q ʦ@X ]N&ƥI#<{"z'c;|fh@@Z&Fo=G槆f^Z4g–-tR/sRc;IrsۉsJH(   d9>ǫ,6f>gPEs| d5礬+);tm_۩>{;RIo/oS3x   | <5 >Pp ڽDWV NR8)뇍ރ\=sJr]em>{Qgg",!`BTL}yQX8Ik4ܭrT!dpƝŃwgO.T>{hޥ;x@@@짍]@kٕ E3-ZI'E[[:R|g-hw{w(=y4=ū   _~*)=PG8kdwEZY2⤬VvA994qSw8ruX\  YLLyS` dnIS;FtvHVe:)+OL:[(aww2{yk!0jٗn\(',<\3+͝lRiqR\SG)Ţ)](±~Op8@tz )?7hQ韉7"r'emɘ4]vdp$45<  m@YJUk!8#X|xC9):rq Jr_InrVIŨn|y%2kjehS3o*X! Feŷ;)kEs܄Q®zPo&S   * UU.{dSpWf\VvN2,옜@ygBzhl"zC3dIl"n;odœrR֔ piΉ62YCv%Necח@@@ If$B̡ ʦ@]@?rf]Q߉dT[N o)n/Q3?nsuJ9|x@@@@@lyr%]P\1XcIȁ(CnT`lg xR<   r"~G*DVxiF$Wg`EBZ[·{;J5\    F7Pg(v̈N(;æsR5e]AMUC'SF%J   %^N >Q]gu䤬+u8i8L]/L)q)Y)H30(85 pZsktՆiXNc=H%ۛ9߉w=;=40 iP݌D|6pYfČ?͝1KjJ&NDOw쨝;gEh=QS)SNֽr cWzO.SBN$='GLB   #3 <6bs"v9[Y.4@@@D S7s<2$Q8vY?g{vA@@@ U.{IIr)S(g \Y&H~SO_%%mI5)ʩ'e*NANNx߇ 8{wX[; V_ׯ}a)P2@@,8)mvqp68)X  m6;88g6KNJzt@@MNց@%'=:  &'@@@fgu   f 6;88ޭe\uP8{|`9C$uC,=   HpR9,0 @@@N    $'ő@@@=   HpR9,0 @@@N    $'ő@@@=   HpR9,0 @@@N    $'ő@@@=   H8ّÒ~L$cOq~@Ɩ*2Capk7>>=?յ w!JYbbF湕`hOÈTLL'1Lټ3Oq'%r)q0EVWn_GSΘоv<] yOpĸ%,%U.$h [VlݜWO$jO6^Qt/Qfsk ĪzhNa65YM &NUrs;vPJ8g#iyL0ꂴ ʎ҄ "`T晗P) 5+RˎG+s?X?T 2)7xZT7{e_N+nܸwزS%@+QbRWP.xwܑ=``g/G6 JƩo?8p,c>ꀀ8)"+~/Қ)/ɿR8^ ȳ5ާ ;.-ͦ:Ex♔ߩ/<=\V|))--jV楙R1O*A}c{4gv;dȢͪ95èfR4_3qR3+j&]-@ II74g/Ca^DQ1,cP_d8R__Jgm9m`!ՏNQ3UԬUlZb+VSC:ҼjP3hZʢfP6׬d]6h  &e;c Zi}:T=xvQ9g%C~I@SYe۷r~"Ef,ʁA^F 9VR9{fx3K NJ6[V '%+F" [*Q[7;MKJnʄK߼ûE< Q<3~m/JHEnTpy jbH,YJQv)1=ĸrn**jWV|(plV{TЩ?IԿջ3zՋg~vvXԒ:vJi3z9J&'%ˇ_埨㿚 喕sDC7ٹOM')ɨZ~X-ۖꥢ=|V^>s'g _zB݌\-ّR }9L~.>Ҝ-*RQw-/^vQ<-]ayT7Vg-wPRgcjgε\fQ:)Iѕgn:Q9+ej EXg}LCgr*lN8UuLK xSmޏTOxQRxIS6Xy>Ŀm>ѸݍWw=mUo:i:)»{TgXOҩTgl)G:đ<7j~%_( jz~>Tu:>Ꮏޡ]×{_3x"[jS;:}#];ty^W;T{9(Dd0D:ew 4l@q'rTgm!x!AO8)"]' Aiw8]=٥xG|9ȔeOdhϾ{S{ E[Nw⎊pb=N:9UlI̍ vγo¼tGMII.L$eK&Ziwrw;w$fV(/Z<UNXLH80j?գN։<سw_NUoSEZ.՘wA^_Shvi;(0'e{4 .x3Vs< xreWtowe*ouSu®q)a%|SǁvJ./t[ctJdmv?Tw:%ݟ{x&3lBNH.R;T>tnT;ES9xTΖD6d])1*rgė{T-1 "m,OlguANš3jXϾRLݝGi*p݆A1k~50oiiY>lئJ?`%n'ۄ}ypR䙦\->W]R;T槤m;)ljؕwi\kxNb-WΆ?2g>No!.ې d۪yjST3;KRiPEP.CUWN-H64KieY=*NQUΡL+K>1,dbTHec^-g}5Ĭ>|m)qTًyO;_H;I4f{ʼni9]:ϼQj:WI׺.s(O|teXۆLS[im@?bOE]z#ӷqEY%g4 S'{.pRhWK=Q=UK>{Ro3f:!nx**mOOdQYQq.M˓*q]u=`_;D,=[a.8 '?&sΔqZQ,opxɓ:8$9+a}6mR܇,-&&X:TH̤l*d#6]AFneK] z_Rb66q'bww6<  'ÐW&v.WyT K*6L^>SܽzGi/:Np*&1Q5zE]2w>;;݃oE:et"p\!'!׸CܑE `ӽ3y:qYχwԦdՙ:a^RT.xΓLN!w@ M2-Nf >ANtmU^)x<ڮh퓈xWZZaknk3%>{2>WZJv9 ,}/ftY)W[&n_jvSt跖:>,\xTu HIA.]թC$iQ,?Oi7S֮0% JNJ3)vK:Okc[l7^KFf(zs6bGnRЫ$i2[T@MZ[\U[m=*`o* #iof(}ٗ:N'd]Kz$|RŬ[F:,IwvpmSY1 NA <IQju(qˍI!*nT!pR@\&dV.r^-4Tr0EЙ7RLCg .|6]vEa?map2B1)nQ3fxK6OMneHbIRcERinM?ycV4i;Q [r;Oqv5vl-nid&`&pi`3ӓĴ:xڪ[V0EYF%تn_/}VUӋ7]I}XxI-j@8{|vXD\Ij0=u{%u,$l25 UU"E׬);.!~>ֿ>D3eh6_'Q@%dRwdJْmv_w |d\OVGDDWGb~DL <:^!;ũv: AN4h[1Hg*MKt$;|0U_ԍ4T.:^|G nRbZŸ-Di=m&ed/ v,Pz{1bDgq`Ktyr;RاDmRN7o_AޡW$3}͞O?au>yNQA( ;` oo۾*>6aE$E7%bsktx 5L{F獣ΏO.m(wU`ޥsgfvQF`(N}ʽ[ۦ?v]#%93mULϷ?Ɲ ]Bv^۴.w3? .wPJROӖ g]!xb\%=&k_ i~-jLJSJ [KN?v>VƦ- JWℯoxa轏>'q]'W ^XɢMI,^Bkf?H+WSA3rM|6wLebA&ME۵3R]x4c{9몿߁Ў&)G$he5ʗh\?'*KLM:bP%Z\E]V!QFT:?^0-k_e5t d-8)Y8t9y U3[nkVvPIP/_[o]LJYu߿(ޢK~LpLJ+s8jز|I|ji(NPX3m<{gT pR,rʥj+gNQivJUN<;(U1% 񻛂 JJʱMeìM]c? OLJOJV5j9'HGEgH[oNOLYo˒6U?dM u _M3璝]p|]tu!G7{M:_TBsHAv*6TF]Ж= 6]qURI"e/+M=Y@[|$LwRNp{Ȋ#ؒ WbMN۳[ 4d'0s9#p)Œ06o-“fꋤ}3?mMs%{>OKjxw'U>>{^XФ`9u[X|$Z .:ҶDu^g 42r}6 $fNlTmsUNEx&l|6U6V-pʞke=\S' 8)Pr5Cyiz'S ruuSEYYt"-_HWJnjl{(v9IQQd7-Q XooJ_mיg{ީc6YeϙI}_fSmdXIQv-ꦸ8o muC%׋|8k濔lB 9FSR3mI9/~;P@$wH9CY-F9 sG; [U@"Ŋ[grl6WeV= Iqh mw͟AtQ[JJlB٧ ˨vN6j_&USoeDIm778NQLfiQkYSzg>cr8-@WG%z:zMٜSVB{4w.E~o\,ԭ]jj)8~sR?: %DA9pR^y?zPv6L˩}D=7ؙCӿ& |XfSQg]Ƴitc?o[Fq 3R;y61J>'3OKj{r2eF tBpPNjZ?0~vmNijnq'kZ6ގ>`au/@wd&H(.%AAԪX ZWWj֥*B’p76eI@3d;o!ɝ;I~3ɝK>7PKǣvɊenoa [R Ֆqٹع^;mwu]<)sxYIJ:?ô#f]Zq?>yv2TI️MJ'}mCj<%kІi-P3'7RcRy}Ǥ96@BIJB"C>/NכTkͩE5E<ŸrRt󴤦'u^'ՖIkTls]=_YD*uU ENv{~u Ŭ@ 7>nZcZecakԏ2?hw|ȧ_$GR* Gt&'!y;g_ߟOz̄3k{}ْQ,sYs$UG>^CU\ ~Ӥ2ﳝdB&u?nXjS3KTb%%ݸ 99WmBe sR^s鳉?;&{{6ꖽѤnؖ*(c> sYggYj` ՖWP-"1Xrmg@ F47~4]Ԙ(sݷ!VE:!'9udHs0 }D췔|S9Lj_5%kЮLKzҏ*t\væ~Ǒ#/106ac dgC\َwyuQ[G;_xh*:7&\L$9nnЪG#H. 8 QEK^GQV:lGv&R_`F3'^]щ=}rYWGos`kRwae&Gm~K$(i@ uU-ė4C؞9*ȧ2 'oQmro"L2QϙxG9<~Jv|ڜf4%uZ$w 6fȗ6l&򘚜k/o1=Mj<. p$)@SΣ_uKߠ !a8ɹZrn~]PBo/`(?'[@M@$8'M@M5S^lfo9VwEP>ci20(זUPͫ"Yx5^ߥx!6ʕ)h' F Ii4U4WETֻT[z~IV +{Yc21j7w4V5Dk2 x?s`sZKvmyvSo㏿=2 %3q`ϝ3gߞ+>͞mrHoߖ&' ,q2fb!ޓ XbnּP  II4 @k^( @@@ `MI5/ @ EHRRj @&$ŚJC "$))F5 X@b !@HA@ I HIJQ  @XBi@R$$%EШ kHRy4 @)@"hT@5$)ּP  II4 @k^( @@@ `MI5/ @ EHRRj @&$ŚJC "$))F5 X@b !@HA@ I HIJQ  @XBi@R$$%EШ kHRy4 @)@"hT@5$)ּP  II4 @k^( @@@ `MI5/ @ EHRRj @&$ŚJC "$))F5 X@b !@HA@ I HIJQ  @XBi@R$$%EШ kHRy4 @)@"hT@5$)ּP  II4 @k^( @@@ `MI5/ @ EHRRj @&$ŚJC "$))F5 X@b !@HA@ I HIJQ  @XBi@R$$%EШ kHRy4 @)@"hT@5$)ּP  II4 @k^( @@@ `MIQ!@~*`-pwm?֖ w8Se% @HAu+) SԶU2Q"Q]\Hד8O@ #S(} Iʿ#ړ}zCu{@Z@l|7;O:II<ʹn"J' @Te(mBDn GS @(N%cަ5KR֘cT|AyMo "@ /QS(v\[Zm/,~4 D:ɹJ?E2,bA F])+T V)D;׎YjitT *Xeޡg_Qk+q @hfSmI9Qٷ'|_kZ\4CӴD>uFQD@G d|CJ ;\Ym$eE~Mnڛ͗M+ǒw9Ra D6nSdW6ԦC诎|}$2xpG3~r%(ݻR/~F&' @i*`쫦Tp)X[[ _s99rB" @B8H E! ''8߹$%qE߬Ln#({HҳDB" @M/eg)Vi~|uD(|K]?3JRK]'&~":VkC9W'Hѻ8 @H@tkM՟PzPe%kIJ"7]~/X>PΞG+}± @ACj^^H5.Η$[zEr,uI'UO\FY֪l7M;6\% @HJ@/e!djh-fM8I')ʶ_{-qN⽀.^b#A @A ٗ)o6˒4GjS,_)o+(ig6A_wlOI;@lA܃ V#ESUhULn+_Z"HhHGncT8';z 8 V#BT` E"P]]J!X4II4jhw&7<[VS'ouIdl3-Ixoa7w9Czy`64S*,@Z@dgy~}j"#O^3btc޲M"Ķ$%Q!CYCJS"Wħ# zD8Ā خ= ՕWq?ŢLN޶#1mORm68oU%I}N>r&M ݥB" @ 5]/LɃ'|ȸoeFdH>\%)T5a~r\ȧQVq!.)&=GtA\! @NЇSߟ#g"zO>-'`)ORw-OW ךG+ǒw9ľ%< 09~jE>Bf<9v 8 fPN7(0s)sGP R}Yxx`EET6hi$hmщs"NeI٣G%A @sNߞؖ*c<0h4˗lJRؘ̛zrnoV|ءڶ~9· @"mxz6ypHNؔe>xi$nhСyG Ay%ITO@@ 5TByewHl ø#|ɸ6II䶂g4GsRAѩTHā 4Y@պ7ޡ3/[xP04S`]>.r@EM%퓔ߢhFyrצ~n򍻐 H?BR/^Ko$[9OQb ttY-Sxk;xrxZ$oSr&M$Y%" @QwRpKTWQ⮝wUn캼+5wٌJRX {88Y8'q* WB" @*epBm宣x]߼Wed *9PVEvA~ nѤk QUPW5v;uTVH/"etb\"E7;9YTZNoŜ "z9C)Y1>$C~ߔ#1E6%N:\IJWiO'5ь~y~zR:|B, vWlk@ѿb*:9|ћ ͐-&IIxW]=6>?9N g<@@@ETx9gLNyPdнy#$%UF!9O]Q}I12@@}S)YN9X,[z&)&w[ԭDX-G+Ǒwy֜- P( Zߞ,Fb|Vͤ-:II(}[_=<ų[-$)bAHKhv <?H}ThQmr >![[wwy]D9{&ҡQQ+ 1іbl;rJf`>II<Ê(e>@ cѱTHā fzcUcD[խX)^)'ݘ[=- z!#{)'*#)W~ŗw`Tcp H@TSRF }ߤ*yAyS_8CtnТk3xΉ}մ_y揹òﲋHo+ nڅ!rлW5v$>дrTD41%r_P|#OYZv k xS䋵 ஝R~g];%ŃЀHR,>oޓ/AEPD3 G^. 2w[@0WlwۓO2t-[qX@bEkU*wZG''A @*%y`ˤjegrrb{KJe}-F(@GPmI9g׆Nx|RHR$SYX|CGys;-3ťY$@h*fP7)0s.jYiWGZeIUEWjO@=DqwHʾhi^qE`[ T];oH7_ŨF0zs׷/~@b߄dt2vduzvY@+ d@lwdV/ތݗ.|pD_a[ z85 &HWӋrHcx2Ji5,EI6rV3]KgEEԧcw[:ǩG9Y9U:w| 9:xZG8x2vm+''5dhՆ."Җ IJ3;StF;nu^8lLzV;#fHR۵go{~+~n#:QΤ9㧒a @vTm'h&wYRxplFSWpsnRq2L׉sr99>R:4AhS uQ(,-+}n#IJ=*fC9AYFY6 6 4$zwu|JΆZߜ+~KmHRlM.| ^ܝGt&߄)p i7@"-EϿo2]b7vYpxpl&w.˟\õfn])W~"C0Wx":.-].TAI !싋H [ ѧxb&*6EAړ`^[68!$Ub=ܓq3;BtjW#sHE7pIa!&RIfS郻v*̯._tlijOI}Eޘ?"7|PSr, =$ ׶#0 @j^*eD'y(rKK$"VjDKMQKBrt()>=E@ I(\Rҳ~>{ǝ[6ƒZx IiH(C_wqN7+^fۓ=LɰB)0s.~߆WoM++ 4UVqv>vt=㎡ Wҡh.DWQ "ѻnNNfFf@T8ߡ;gptC/ cѾ=GT@U .1{Dv#hK,Y$)euӈ F]#$y=l4eB]@` ֆ敚U|4}j^?dH[uU%i$Q]:.sORv?Hoخ5?>sGVl-]R<6{$5hǺG9Q)u sr%;H'xIMI9_|($;뗻i}w$$%FRY8jNa~"bQ!wm)T@Ƨm;lGyO\Y-^IJ?"{"?ם3E״;͊XM I㽁p@-W &NNfS/oRanQ`|pD$)llce~q'C[ь=ǫ?9;@h@9}*T;_}> ҥ|RHR2G4|Jwٟ?Gή]C# bqb:gL*X#\ڭ pc+*.dCUc/fh=Ne_8/."=;K44A>b[+bSGY.HR2򵽇{㼅Hǫڶ!Uț6i@ [Q^xc99Y;O-_xpx$)MCud<ɚ"?>Xɰ ܝSR ,(#ncav-/}I8.µ xZ ne?¢344N9;C@0nxv.) +|T+CzC>c#\ @q3'ZEKcV4[44Ak(q *ͫ)fnYh[C=L$){`I`[AOʸkYsq Ii%ڮ۬V+m=Ez/Cz A( %~Z3vf;yKSl*b4@мiDE*4:IYz7~4eB) j"k7RSJ-+"TDL$)2eysє l#ei/l$ۈXHw=5ꖽiGS?伲o1[mÆPP\M:4A (kRSj^|T_;ZViOEč5faoV -CV8;jF!߸HDC#Z@Ydl^Ex_D} ? I[>խs)dEt %<64n} 82M xrs+$M|@ d@y;k.޸~Ոf#Qε]A8 } .^Ν/Cؾ04cjޒN>/$~c԰#~t8f, ;-gir,9v $Sjj*x`KxC7оGVTDEc#@RO`[Hd(ZNʾh8e_<,t})M-Mا=dtpă@CHR eoҴy&Xs8Uțζy 0 DS9~V/m<''+(M|' F$$&XmAE\nAMq뫸$\JfhL^c(EndW6GH\IJQ eU罀zD3 Q=(g>;o[QQe"+0n꺴tQ mR$):dO#<<{ 8?G.C#^ P1jWPƪ_E{ oYiW /n)d#ClV<7+GZhrwŃ# 2HIJ=,4>Mv9gx"Z\');H8 '7ƖRTeqGײgM|@ IIg‘CfO9ܯU8|!MhhK@ݪ) d[Ƀg4 ۯ"  HR2%r?߱wsA͗M.IVpd@d÷q'Ͽo0wŌ,[A<8B dD\X́s-ɚy4<$=(0{>-};_d{_8ڧd)% 7 bGK/]@4DwU:45A@';^!U+;s*+}|,Xa_@@CFCs7Mᠬ{!yB~Nx) Q*cO]GplpD@@2+&5;vuks#`5Px yO.M-+ltse<9 )*bS-B>8"B Iiwf^|C II WAEǃk{ESq({p)"ij4\oS<-&}TmIG<6$)~m_u[ym$+yBUsYҽKLXS9zC*z+LlGSIJ|k*pjrJW<ʙ4\O#_J5.&Œ/ƶqKn9q t @pr..~_}*]wйx)9:ݢUs/{tޘwjE# @Q`¢kc:W9B*sJ({T!i;Os`M|[phIHRZĽd@^TҎmQV@򍿘6~nY;w;DHX3]Z48A Ii `|9QǰE=|PAݖzD6nSdWcK#__^<8B@(&}[pKьѽ+< ~+EgȘҥ\' МHRSuC`?mCFDN A}Oσky"+5Nj-ﵣ5d6fy_D# p6jNNVztPvQelqEy`~];}IR0QV+ CI & =ܓs7K.搟>4GtkMaNR~{;v-+Y# Ii!"@6o f~xq=ΞGDr;ζ7%9_ZshHLEuܵssWF\ +$^_D@5'=3/3xѹ~gGeT ̚Ojjަlxߚ5ҋ4j@ @B,nE hۇ@oVnwvQ34G4`ϾO)~e 57!zڭ]/(tx h,l+(q&q_~piE8/¦޺cۿ/Re?ʘaL+_Z>6"Bv IS!`@G9KqS:T]KD5~w¯cԭe% C#$yQ+_ tۉ6{_BooO撱kllZA[]"hK hHIJCB 0HxŽ89ke%c# z$)7GM`!m}ά5oV\9rZ9Ԥv̹TbeR{RYʓ99yr($)X4N`a9a^[exh|)'PΤ <{.R<֤%TR cP$5ǝxYӈ ؈4hl*(i+Z 5l0սc ]@#`5/d D?8T?5"~!~SF uSkŃ#  VHRq1O2隮MZQT.GQp|-_/irG܈yKK" HRmA`Ka)Nf|r-e;1'9AE]_VT8 "$ 'jxxOR;/}c @#``0{0 0``0'0 0 `N` 00 ``(i" 4j0@0@`?6~L40 xB0O `w5 `j0 `_D0 @g0 L 4Pe|cp' Px$u ,/1~ֱ``b;ĤKڿxֱ`, <l[8u,c" ٣t :aw1 Px42i3Sfo:5=܄c0nExBi!0  VS'c GQe764;&:d%ڽ YǢ;Yt-܂يM ߏ[RFx)Fؑ0 yqw`1?:5A-(c<Iigpcd|b|Y@0 So{ YǢ;`޳dd0 xn@nuu{߇YǢ;0 0` :?`:?D0 p4y +c?K `<'~y `*0'3 %`D0 0G0 @f j` `s4 D0 0G0Y` ĽQ; `B|2;,7ovN~a`w1 vBL_} `~q80cG 0x>k;:]UUmA:uy۾~̣t& j/<v;4]mQ6Lzz~][?a{0 #ZS[i3_6,_+Ѷ/L_4`xt+]!6E_a_ۛ0] 7Oݱ ϾoxOj&1}8uJZURwXUEaw%7XT10äL ' 5ěKۨ+]kbфY[O& ;-`%]kuǎ8h8BMi J Ah(!ioC0&Vn"v-SH 0 ԕL GR&"VO:MቮuD7̽Z m \@%?L$}ܣWYKU,D>:mc 0ekCƳާgߓkw WQ5Pܒm#tOB| `@kU4E5~`0(@>bkm m_6QEnPCT2t-!y" Ը}+a[U+Ua|]h 3keN=ai ϛcȕ`1 @A޵A_*B]KYWڑZ,̷ӥup[o "|ޚgުz~M mUA"m SNzFl.[p!<#sd+.n8b7o @HtXUn~AG]"JǐrcA>|$ 1\;? N_Os|JUy{ +uY{xy?R1@ Q! jGUկvuꍘW_z }vIT}/`q@{)!~ | 2ZX0xhk"* }"~o?SFoq hh:\Z 0::V[ Pn|G Co Vk @K YXMIDT6ȓv@?}M`w1]kyBg勋RKi|.Y<:> 8Mq?~J ظG/wn`e; b2|!I=7;&ދ%G*hm9vwSnor<Vu+;A= | r3y {^@̫ 0y5)?21y~f}?1 Q9@6;Fu$ v! FHNt.s;bզ ) x(n=}շfߧ_"$OH9m BB>vj<FAxA{`IChhQVC@wgG(@9Uh|N ӛLl%5 shpal8;b GQ4Ͻ&j*6AA9.7 Pi`͓rJ n[: R9}2Z;K@QGyu=ze~[f!  |>>g4?y{Bl@:5/5Watʶ{P4v1E rr"m'o٣r(`.F |8XAPL@Qn!2i@cD.|3; ^KOc4gH6>F ok&dzy>Ӗ]8f2w$DFeƐ奃p^p{d+ g,6CdwyK>t @ r%g#8-SS*TTp|-;dKG6>@ݡ&ogJx:=a˅KMZl_ƿק7el@޹Ig]r^ҹܮ)29>ܺ〞M^/P]+e_ 9O|4C xol 0YE0t1ٿ'@ | A hS鴍6*:ѽ42P Fߞ$OvTz?M.ۇU?Sޗ{p/aRϷZ7 \[՚ 5son㝵E`vtm]"!:ߩx֔Bu0R#(lcɌGm[gqþ_an'0 Cqq?VX .\U4YC}~jY؏sn ċ eoo @ rf5I Z߱vCSTFOH]Fq4ÏI2PVRCZnL <c@3Hv4M7 i:8 _z5ݳ$XIm;>Bn <y;z:+3,+4Tlb{ɂ>Hg $;A;N! VnbarԂO2Vj6Ȋ@HfB@ l.ILx#ΐ~6~g060+YNOZa Q' UX7)&@&`1D$N7dpw*jt#3w]q!p|k&Oi;t+Gdۡh<`Ip u@@Nm "+T4y8Iϗ4|N%8v5&T<2O=OEf(eiA=V?y`(x8F,:Qkd؎3QUCU/3`/#ؑƗ6:c_62,Lr"*k{ttuJc 0B@`w-t"zyȭm}X$n$ (Klx(^ʝu#xC} b f kT"Hz0X1#A<wMW`Øx8`ϒSP$0l<| >niZNC dILV]LS]L1Lisϙ<? 7Y!OVu ZyNhh6P!/ܪef.;:}Ϣ,L?x#sKG3#=('?wX.@S 9oDi5`H(.m"F2?Q-w2>όLzlb _:?5 ٻu jy&&JӞI.{t*QS;whxXew@V!x Q i]D, ݠI$.g0U˜Y 9AbwY@Dd?m. |C9ݘ zsTLa =^ <HHOt*f{NңO-[/%X=xi͠4rΏ>e7 @HV9[$$Hwy-p.Mj̛ v47;|>$`cCׯNRW 3/fP'v(ِ̺ͧajHH}^7!2 y(`gcJD?5ڦ.`"n1w{j?=+@|DH3 i.#THW}^MP\e E~ѹr%dg ĤK2lt.E#Do.8Y0.) :NX6P]N:hv0,;E_)iFSI6 * @ ] ~z^ e(sTHMM2DH8||=-5u̠}h=*0m99pŹ0_ဥè n9 ,o!;oD՗AEؿ֪Gyۃ\E(wrcg:`PCMx4d4xl0np(;-A6o/D[N #k>Nacelw]]C>KlnR@57Ԗe??m_Tnh㤀͆E0i1/+ɜl`d'&(:QfҐӭ7Y!䩜v?O= c)e@Nՙ釙h7o쥒M'{i V? {L9<϶`q<>=I1TuLעc*1@ze\Tf89ON8'?TA~OJP \Iyߌ/+%:> + 9V-Տr4C+m&N `#@6} 2.)my0>7 _~$0'oG`l{58$rzk`c[XKH]B"L{#(Qw @y V`N(U5;Q` Vp- b7ǦWC1UG[^6S IDAT"p; ҹ$ab4Od3 u 5_ 7R\/SI 8ؗ|e7M5t,!`r @_my uT?ńZܥ#w$}`ch }#wTsACQ@d Nv?Rl~x m4 _9*e.BmyiA/&vP⢒i44g1 O) iW=6jm#Ks;#Eد7W6 >lkA#,~/p20_ f S@g$p BIs`3Q_ɤZJd/O#)S%T$p7i4$ w/ˉnۻL41يGܱ\0nطad8MH*TK~ +)l;FjکNm+ cbhxG[ioEnI/THl i5tg?;wpT]_| @"B~i25B8}2Q"e~Q?K P\zp XAuM% jE kN5,yi Gs&W45 2 DX h܆'A) TX@V8Uӻt5};21+}s)Ml#3H嬉SGTGviu%`<1YpM@Ͽ8*TH?ORz@=xfp$~.lgiF@'j87/}였>s&PoWe-*$_Lf37JUq؃ySN_3}r!n.< !6( 峕V0sM(@젿n/hxY[S P + dJa8L?t%1k,kПwy-%@jO׽@2Zཫ2^5ar-~x>u~0F0PO?kwK9W{Ѐ|tL`WF NMwy &$|_m۾Z%:[ޕ&wpp@f"Ճ%W$THH7&׵΀ąIf!@ژ "0u7I-}#`ϣ1??1 ׃f @@)ek? ֱ۰{2:pSA<>[SN0'Ņ; ȕ4"0* ܔHńo xbOf;Q3xYm!lF 1 ܶ6*dTAf ʱɖt8S)<31-L2ro1FϺNY70)sFy,L@Fu|/\Ktͨ(LxղA<L b @5B8@d^O`j(PA ( c?䙙.A0I K>ҀFYmVzeqP&r_R5S~@% n.~D޶' d# Q;vg?f{V  ,+DlxsN$C'{Lpuړ4}J誯)ѻ^ F\2tL\t~o^_@З_Ci'nӭ V({h9=wEm[^UcOz 4)3h^gR⿸ ao$u#uA+`(h㢆#@ q3 {!MSl4MDtdvQ9?xWY@@TA𤒭d?O#?m^Y{8t~- NCT;OJE[ڡZڻevw AlD7C^oepCJ@A 1L-pZۉۤ]ajdH *ЈJiUG$#LS_d!@?´l%:S+{ +%o eΆm+ǰڰWD| -x_#ȡIA kY? rꇝB/jMuj:/LKv|7趹OJ-}svLF|M7|HwҬ A?7o$&bQ n~BQ ʇ4mA^H O1[ʓ8rU**f5B0 u1o(0Je2J&':7 {%G y:"d@ZE&]&΢(HIt:" iLI`[`SI<ܦ:\WK@,*~4l)l,3ckf^\I@ ~>^_Q2B`4{AM#m{ě}@R./Ͳb0:G:b,x CZ12|Q~o1/1WVL}nͦZ$Zc, XY?П$LˁRD/Y8(/}O_l/_ 5O21ěB#\-h P($BWF}`2KHɲqo{+@(vѶ#nTy~[Y qPm# $]@$<[]Q)Q4wsb|@xajJ_x.i3mSr~D!H GZ+~qEk(JlP٦ϗNE~$X6@2ܙ̺ v]{k[BRH˃8 `i :~/5Bfx{4 ߪʞ mҁ3caq KWݸf3ܷcB@_tMoaPbGejdтXjاw1p 0.z5 #\@!yK10'|&,EʣtP#4G1u+fP3A+ftMRx 1N%(\][J7}8ʧ?YR)刊 s\B.>|e'|Ł+"@|y %$O?^FH]> |w忒IO~H巨_AxwL@!槃H@f;PaRC|qM*[.K/z^,K|qv;| F&D+A$`4o"/@xٙxpMEH`'4aRM"pWemzhu*!A0k# 4C/" {FA.k6<[K%v ^gϽB83~u y!q[<529uHT}w%J !L8}?%=os0,$91]>֗6R U?.aOiLV5+``D$m|1Ok(˖_6=N,ĂSj@v]ݟp:}.S!,'kcnN6 ϺA ͕x`"2 y|h?U!@' $fc~Eғ,!ȰZl_`x+ov ()tہl'# 6qć!э8z) ]&a|D,t X%hF}{u Ij<~<{UF3cD $泌йS"k {A0@i_)ۏDx(m&Pn/r܍@|kF}NDא %m˃ZZ7V.0 SӑL4Us70=HA|aFЙXL𶤀 |_?$"5h{fE$P `}2?pIY߻nU"oH%9VcX7Ua`ܸ7ȱʹ=VţL 8M"}nإ|`gKS@9`.x[g`t0,4F1}{>-U3;O;M cȳ `{^4Xo%StWOI߾џrF:F/*>ʋ @"1d _3 -o. tTQ3EߌԏJM;ijj(eJρ"AKmG0(% q-2s\%!UH#PI:5e0 XT&Xdʯ}7Rc^{"5 R2D^zJgJl_4[@؍j^ 0<~#MÖ7:Ԋ 0xcu-(<\D^кjm2`\1?/C2![)gf".0ĭRG# `T- @a?9> R5G{Pf^-+,h@H_[ 0` OLkUBq2@$! ɄY ՄHT)1T@R  凜~Xw&aKO6)14fv%-M@ YI9#*,2@ UtS@BCh+XR&44DS gAӜ]a ( QP$ &}Ol(4z3^sd/3/!;'$ vVBDe$j(U~q90 <.i2-@5뺟" mUs8,"4R@jAQMb`3);@if8$~U\# _VכX>) K2\ Yg@9_9*g1#sfb'43Q'A&fal "*')+ FOp[ } ΥO]O>0{!)0Rx,xd![DIgZc.0d:,c.}LO<{6'&1 Vp.(iHE< 4W3C7!+^JPcube URz# ) `bS@U~ߔq0HX;.DK?DQ"c:b[|Qbګ \ w R@ u_azk ( QS3&F8?@4 te\M'sD`]c>Oxk~;1GKD :B O><KW+zAn@`W!*llצ $x@hH,PSe,\p*0 dJO72hFm>"pdO'ӉŋSRIE( z6j@C{18Y6,Zch (5dH^2&7>v:}-tGQghMK{Fof6_=nq #Z+nX&۷l*S((!@Ir6k]`l v `lԿ:,n~cEG0^<VP ,_m :XP)v%]GZoq|x|nB@^b:XlEzJF Fv޷mKdPHN+w6_@M};}+waw./v@Du# IDATl9jP  $DUɋ"zurP:ui*ð5p(9#ivɩX>!T4PF \GBxi b QjM gmk<^S ݿ (0N+@)I|QQa'FR(d)|e=iaXpbp~hKh9ۛ[{Z\Q`L?]j aSw^,S,Vg,#VyX'΁ qJ6)9FYxG0pz wY&o6fHH蘞s6LԷv6PK2G]O=@{ɡ,,A,F5n'o}.LM?hǯa@i~ f2* =Ss0G!ѤЊ')Ău[F"߯M>n~csxa^<I`*jײhr`]S=vo@"Z՟Q9|3 !ZH7۶$4>Ca8}тnKB@f&V&1:2*j xkftKM2n`^@nxfޜc,4B ]'t~yթ_$/TS&O|0qi 9:Sa Q"'QGo7w8Yn9>#)ƸFC3h1LC[U3n$$>z;beO@_T< P^ %>^,~=BtaA^Ma|?l  }Qzz<ts88eK6cZhtII,A^pAyIYA>q\j)98S>ppQ"  0'WeO kP@;<V]Iy.3ѝ;_:adb(R1c_9 zZ<";2ec[)@Pe 8.ˠ3p#ۙQP\ E?$oJhOp.1<~H H16ixrؿ5P mZ0X@]mb'`x(-1E sH@16bP$0lCg 2q(Jr2%VeN܁6KQGJ[0T=. 0 @>pA6g#!#, @eJ!Ql!/khߒ>@^ZobA V8rėh/@ҚDB@1>P@$NT5)_AM$eR_V|@=9OmXȗ~@v#A0(Gaa$b _pk*@@WRrdykD&&Ն~[K? uGs% BANsxKm @Ҿ4^@eX3 hcM1oCE'rjf=Ev;X BNWUD T֋)4 T u6wUtyaݼ];MJK?0caNRFܖe4| w\sw A29Usiǚ@.~pY|/l *g:4l}u( 689zE-_79+߶Uki"3 8C@Tp3|VW LQQ_'S r uX ol~9?5@g ǩuGIW ɑ2@,M0൴*VqVMrj_H 9Vl@^!_<ͤqӉl&8tS1a&mѝC@u@ ɗʸueYYF0D'`>fJoNM5t,[U - 1 /:w <\@T\'-2wy32oK[l#Tes4b\\L[WfNj,`!sx4]B@D0c/PP@{0^?7U,lXoY`6l,.,`ߖhp N'6>b.:&T5[GC=<ZT e姀LUʉa'N .Ոv 5>R PXcvgyd戚hRfrV FrP$RH'mυ*PckVz Q^ѵJ> śdڻ! OC9Pa .T@Txp@\a (mC{LCRTBݙa$?G|\J0FpT `A.Jk#ʁSd#kϗY?kC@Y?yIY'Z,\Ö.{oLaMZe{V 0?2j!_){13]`D?VZ (I^qos *xb?.D(]T+w h7J>ڭX u)5%WP31w좷/Vzƈ_߼>ҺY-o]zA !  y}Fh^h &Mwj"&mK7Jojhl;[9b*<f^N(0{)&J! )l?Z]f sA|s%hEy'sDL[N͐^ǀֺ_ j } {ꙏà4c  tmݟ5?Rp~Όѱ˪Vd0rY n7zPzTf"?< }*#$& =}VUd B@kSs@ׅL':f܏E?i7gˡ Tg_~g bW#A[; 歒2ph:w8h{pe+@pNi-F&@E~7i_Zz`Trh#VMg:?R&\U|xUc6CMg*!^~hM%n@d9xMYtد= 7@(-wc[G#'ӸGq 2rЕI`R٨+vS%PqW' ;@umй.p }Ezs =hZ~Ci .S |49rL,f @ %D ցNmHF?s}pj3wa"0 Uެt  );r<=QFUr?0P.|SK_?'|_8Kg`]@qsT|M0UI^za8 `"W? @,]2e=  ^ h"23DL*}(IQ=ΒIX9 ~N} ձtVn4Y) #f}Dd:*6e@r/eKT}aȾ5m3a(Hg,ɑHXypcN՟N6a= \#C-}tcyR }`Z Or}J Y8e/#yOE)27tp/dhfy"RŴ`YHy[>u3+C@ FX$`Nb  !H &@^P ΈͨUSwZD.DNTX28,QkH xn )~!LA"lE@BE>n֬_o_¿xܛ9-֋0 C 3P)O5ae138Cz©Vr)H߿nRH`dWT[p6A~&<7D?{->o}:pw0nxc }nhZHV@mcvs~.vD|+d9qSvr 44P|B0E>G&@Svgs@0Mn(hxR@iD 4b2t~ИhvG*}Ԏtq` HWH674TIWR3` {Q`Wx^O \识5|>> @ 5Si5 Z@'9 y J5H) Tuv~=Ə&p"ha#17~4D `6 M܄$Y4=y9dDr)&GHvN"n0-c.uzB aL02 @@ _6V`7h]J9x&@i =1T91 VCI0q3!!b"0$Tb<3!o& @χK|oJ(En6VopcbQMW n{3#ҝ@U@~ u,/]%Y?Q&1f쿯܏mU\\?8 `)8=D KL1e_4}؏>`A|LH@Ćۗe\7f&^q3=G u YgO]N*HEh׌Zh"dߒ 1:B, zxhx,`zBNdx:O^ָQZ 1DC)LB&$ԯ(h! $df5Kx,> (ȮSUr޵SCZ4-]'@iCb #ߝی<@²id&v?_W@ b1`"h2JXLmm1ؖ_#D@ `}X~ ^V`~b5>CIʀ~"HRm2|˱=^C@v-Ȃ,OX:TLuǛ# mNx߾⼻{;m߹.HlIb_+`fsRx\@ mo;>߇0LORl:kMTe `UNsEbW1 E}޶!-ӆv ϻ 0zf @K8WoGA6BMPy~z(tP4cr_`]"D%g^En8HeE ?I 4o,Vhe*OZFV!~V p1ף@+)sRՇ~-.8[gX$@ :>`'[P{u8VAiu7Xa4kW\܋_132_N>2臡ggR7@ )"0l99nl-n2F1J^*`V^]aV_5<LAsx *c'p\W;3` Db; I i`* q萠ł7M@i¶]= 9X#ݢ,ѱWG@gQyQ¯JLC-P @B KAت᱾5ڪTHJ/Nqݫ+7hM, ļ6^oީ Scg.2 D7@;2lt>#@ Y`u -h6K2RO>ĥR&,r8@pſp'@ @z~6~'CZ>Fo T U/;#~k'x  v IDATAb 0ufk51b?0~@Sn =Kqa`xFKgRl9$`̲),Ra:b?@At h`L`ڭ_!Ts+3f>7&wT "{&j+GO^W s: U^*նvcZ-+uyaPoj*̹YFU) z/ Uꙭ|Pt8 q>(gMeb/bȤA+PA5h. [v^6 1{(LLd6+[YS2.Xi^@v X6|Zfpn=LavlTEbZϽ ~/jvWĮ"O ]@M%Tҁ*EXCTʾi^-@[LA'z|:?W, ) s]BncUfO~;PJ`c OQAF Y'K6kN9ZлrVnYSm,Fe@껠%dN60PN k0ܬU2zO!q7ЈSxH^º3΃]Nh?s(`m6P@{sj:c 跃CQ&׉؍ ;] z nO0wA $:oj4=9Ĝ^Д(dG}Ƕuq.9 t/zxw"MQ7ڣS3DwfAPFv.dN652M#] eK3x/1,d&Q+@7ڣS3)jD)<7\kq `{/ܜ^]- m O\3z@bIk'8V(<߰y@7ڣSm)fz6N/_Z*OB϶uSwLvj0Q_o߇+ȅ5>s ׺iۇkrU$=9U+>W7^mPj[lWцBgoe /nvD* vɤD_䲴| HcQR\*俲%l?透NܰOB(u1 hzNUWsY{ZZӴ;?D;zVta >u!.q.[sÓ:(,م@D?? /|1E(nG=(NZWoH&sDUc7.7\yV,l-ԉnݧujG= ۴QLUh> "-AP>M8a8~F<%b 4< יa x_0CWQϩaot7eVz/2?Ff)5L3 Ihe0efZ@b ,@Q) Z*RN: ɪԫp>}1hyĪiIu{hM:+9 A[A*gE.` cά `'mC)dkQ/` `` k6W>r#hV k%b_Y{&Qy Jr\@P. 6d歀,@@Xm<mwFS= |N΅j$)`1 `tXpxe;>4~ݖ\3Js,G; dA@|@]uO cפEuUjMXow:DeKDoø&Pg+9[(:>l,;:~( O*@O1zO0W0)p.e^ia۳_h),A` `-] v_m5w 5 T#d f)bv+kLTUc1v4A{` }yChK0*0\hV `u7ݾ (X\xW:=A ! `i57r0賛P 5iA׫6 z21eED)GoY h- K#@yܥWقӉC@|,pg±7v)VqMW  zE7b[`=ß4.E?MPLxw Bg6=[C k:'(5 TT |7u@ 0P}dzP: # \@**GfA`:T1OؤHx5I+ $Kd*a?t@M@9/c?úTTa`+@y (u rϰw~+Pofرnl  nwCsˆ 7xx@p="`;t Xh B`(;t @6Z{[{٠Eu ^<]! h&@DR~Оw0}~ӰY@f2!&* u(81ew(wOr!@@La)xLhjs0DWannR=Lcp(j8'ēGNov ZW ֯tp ;0.\@eWO|4X~V ~`0M 5(+ QQw% $CexÒD?v kWގna#ۏo `8]`U4g'! v.p(E4ax9 ! 0_W* Э3qY\0v>Ŭn8o`e<`0E_73O! br$$R08cV7 jPBw! vG2 ! h<p4/ko߉Ŵ@^Ha0 2M  Z!@P5Nyv  C@_Ү[uos|_  @.m[AI@ `ox +܉G#`0:`s;oA{#j fes5cU@aүPW77YSA`MW/Dc#͌ĕN`0 -C@{5靳Sz 7?3~ !`ZcXt8Ho7*(-`0C@/{q.PoO08c.HoʯuVjgV6ÓN`0~M4H]T!MU@K߽eo7(|* [ഝnYxtcG@RRsK}# M;ϟO(\? > z9I~7[!."2E@0ox@x.5>V}7 P;($aetF`Ё~deO>9 7 sathU@Q]9-&03a0r\qD8˦o&U@܄:V ~c""kaTO@fFDg` mW~Pn|/9Y&_9 9Z+0Skv$4^o rSJ;`Ck `[_ px&0 @<E ~XMD_j޵kj?D!^<\ʫ#imk`@1#nMRPܗ7r HU[hI7, 9uXngKURZ">"}m &hv(ti>a)rѮapbfWF#g9d@>Jfr|M`Y! 8 Aq ؁> _'?96U@P`ϯK\uvx-^,q̗]XIUDY7E\et]n6S_* SpvO/{Jbў=L_ib'Zmi`,2bti|h{MNu>m0mO= T=G|upxyW0c6\Ťҕn8[@q`ey\_~40h[G0|$Sv͛; ?4QSWhd61ftsk8gH SQ>GmSх1If/4vg\(@m &+1|߉+C@. d(     Pg6`0`02@~}It ѻ}It OZ ΧˌާH&K`0Qpmf"ݜ$K`00, 3z"},_c{.״/D(L !Df @'N}f>E(Y%eΠˑR" TF@}n~gFSg؜DcMpe\!  xOO>MI`v$0 .3z"}&Yzώ.1MS]f>E$Yf##ox~QdUUVgjq}ZD"c@3.}itBzA=_Lຯ# "->Zľݗ;,2)_N o&>ri"~^`~zW(t9\#weAzN 2TM@ @ @v(㫹ɩ ¾qw}{O(.m6?ĚdJ֢٭9`{55) '~<.7;a* Y!C @E'Lc{tΪ;_.ȟU4an!$M ]Pn>8UخHX4f䁒iÈzdi>!$M w 3 6^Sa"An9F\3v%g(A$7..жo&i /.s 脙Fz:lW;3 @Ճ"Jl*Z?RO"r$M)=Pn'o+EjIt쪑W mrȹwSy?\8ISJE3͎8avEt8-dU`i)oIDAT‚^QEǴHXڏ/"W Y<9ଥ]`#jSS4~,-io~SRff}]'-mpa"F:NW4X( Uk)IUevEmZhp 籖BsI*+3fڹJ5:lW"J]_e5W@Vo܏\3NBǓ48g*剥vEtx}Jk6Pr^Zd9k )"48eTv%tx^w0d967⸥@@@@:D9EIENDB`ggsci/man/figures/README-ggsci-aaas-1.png0000644000176200001440000010072514570505642017400 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$WPLTE=JHdx쎎 63JIKfggo:L!BtZGH? ;i]Xhqs IDATx읍zEKbdD=$D1*kqtVdBhvBB!@!BB!@!B-b= q4A ? 钵FFڱ-M1m"^`Z4mζ]۲17vx;zwX/b獾#<ڍl V< z@w|_1v\L԰g#4,X8pS`pp`I58'8x8pKr0( @ 062p _-8Xqp?~b,``$pwȃ0nb6?:f phtcgl?Ou <0BP7ߞ4Mup8033)T,} OFޢ|k>1 pt"7,78Ou̪"so҃4+aY7,^Y^-(8EfR@Ϋ0]rE3RۄBu6\{ꘅ"8i^+t}کYKqypO:9 p<D@ `6<,9@ 0k "4f<p8 X9 2<KtpE:yJ0  p) `@H X@ !:dvE 9wgK8)vbvmmbp lؿ)T8pævd06cE;m65ю8(}ov^866hvT-G_៊g<tJ/CB| `Sy&&~ Ul,xP`j:9y] <8G[bh߈ 9d W]Nu6|N_e3kW"2g/t?]O<mҟeep'!sH M 0 j>;f̱ܵ Cvdf!;t$5"DlJS:Qߛd'}-FfRDը=jSpA0]p_{Q@h=szq>lK@y >Oӧr"Re[4 R`o8FehHCOn%ijɧ@2Ǥӛ}}mby+.x.xNt0ʤ`kH9Y޲9N$蓾h㻚>;}қ:ޅ$1xp8 rPVE7`Q' 7(N 1p'4{)i㿚j+pz `S%Ie4[xܐn=F"`:5{_pDCU4 - 6%1Gs௼"Lt-d}hPax{S7(E`)("fjd{^wv 3m2 rX(u%:_+O. ȿ]=wK n!򦟣o0<~}U#/е5Dÿ2ϣFﰖHq(ؗ&> ~9+"zTWU c<0-NJϣ_uTTu4[ PU,r{#!3 W{ h2⽋LJV-$E3 4[7CدVwh(`z0} ֡J? /:<1@kreHXZQ}1quQպGBwz)2׀q35aǃC(iooj)}Uurr6L~.Xk9 :z  -p~ڎl[{Jo؄AzY`&u_6]"Xk@Z ǻ82 p=`\7P``ٻ {V骇Eӿү ;޹p'38@J_/ ڮD(+ئ}Z (q${u꿽]e`Lჶ@G2X1oWOvqxXn%|r¿Aɱ) V/_vhqud@-`q{zP`@KY?C\' @ iT@[{YtխB_7pbxaMcey+yۏyahU(w[+ N7d@lvHw]f٪kݻ=xy0!w?4}xx{L78/:cXY#lLS,ЙG  9 CxWcS^׬pJT -)^mkHJS*֌y4_jI/|98Ky1o۵ܹx!d.SS5%]IZ@hOK .Nx-v6~jIG-LjV*퇯KF3M'ZJ~" @ vAyWSOxPyK=vs\J< HZn r2KTt%SISyrE)DGK.dMxe1?2 w. @ybWMq ʏַ 2^Xc/T7c“?zyOuw~>4 0Y; &X7*ރ$$Y^@S 03~XT?GA෡`L~eOE>=t9lP@jjTl-}fpō#\s8h7@v1JM֠6}e%R/{@gOZ,qfRCc,{yJ]sKou:`*O$2ftnz}'Po4~*tpX[z{,ܩUV?^ t }jٞb(00t)vi,3A;ʌ;?l7 .Рt<a7c$u\euL,p2]KΟh7#VLbIoYO!@우d~NX!]ܘ(ѡb\uP!16z0XTw)T,+cLL bn0rX8!B9u>tq&=WXF-[yҟ31L<S ,$ Ru;ujp~$|S% `ZK&4A87鵣f/8?+ƮgDxf[InM<;@Y@z8X΍اT:LeFw'EiIg?:H޷߯J>nq`E),(@r/QZw#dʥ2{=UlX]!0 @]_R$021T.MM@ 4hmLSIY;BָgӮ' ލKvP5Mud)08Ĝ*QbLi}TLMcF:[ r-W+1;F ٜaPhixjG7  8;&4GB0(f*V+bW| @!_ z xRm^N,z.Gn{D\b 2׍z@  [):Bô$BzӅ2]. (I>m7^@}FqvA`b^r !Zs<8B>Yb"F%+)~:ərqir ~f @~,! RH@{ 4 PW0?;j|<ǝ;W]~oOT*)vser/ K+, pU|wG@[W<1_v !Hnpt{ݟ+Kyjo# eتfШ|DK<*^Oo]*@ i _pwZX)T1ISA!XnV0+rBf? m:Rb,oB%>h(ͩߕO)2gYWaoRp;MPg y]=Zř{fԿ:oIt2Vp[/~(1VR _I`?ok) &x6nwQ%SYvkmp&R}cBtnE2H:, . ~E( <¾%6BJv.`kj)+,jd84pM?Pu3L罓lEw? &6?Y@1?$\} /^KLǸ@bMٕe<7w|dA7PC]8%fV"&݁.HeX U`@^$5ӣY\am|N`2Ae I IDAT\!!1%}8e<4,rN6O4KC=ԙ+r@7_,6=z59[DrE=f伵R7oG<[ fg؂&$_]nP SQ֐ bp^@ ? ,ҷ)n>0(/ߩn镝ϦE]`<0`@lrLSILد~O >@eY K~qm]P(^V`Pː"˪l:ο[zQ@ UM`HI&Zř`w0_E qV|`dюAL /mG&='gYt&A(GuTM=aVbJίG(  /݊zئ?8\%Qg桮}BB>۠H,5Osa,>} XA*AQ,=yn '3 e`sn R@E?}ZKnsy>JϫOD.|JD_ttmkE}l,D!@]rrn~DZtw,Gey7`K)kYJCgDA&%l( <19 `(a( ͫ[p0ﵞK HωYᕾ.w>n@xY:<^˟s9T U`.=T&EW“˔ժĬ#`z˃>>@@Js@-fz{t\Z` ND*1֡RF)>!1%T(a?;u7^OrOh!8y2_Mlư %K\ȅhb"\Ķ yV@уϦ]]e=1.a6$.v`Qsz?01+/Ĵ! uC ڲ6쑥++ӈAQIEPh*g^7!BH <l/ r?IJkQa +\@W-~&6`V~{( :- ",U27e"O3W?_^0A/W(uL6/9kʘٚ\ldcV j=Cg9`7ꕟj) lsgG';A& TX J GdP+ x{P{Kii?XQF9r Bo>yRP1IS7Dh{O4؀k Co>?~Od 5`SdONL$j q=PG/ۃ(繎@NYuA!eeL8;y=UDzf+_vwE}bI-pt%8 ?Ōl~ |_LzZ 3 >g=pMd]«fCٴJ=<E#^Az!v;Iu7!@ohGi?诣,P+UG7nYb1>eQS ,&__~&1[2w]@P]zYw9lú2@qo\_VfPp_y1mu⬿G V/zrUuvN b~:+D`d<w=}ce}AcID[^%ERA42(lė~ٞA TC7l"6-x5]9ɊaT uwtYMw'vx$&I/8Q'?\@6In[$- {e1DHahb[u`s<x{4OKa( ǔi3_K6I[xwyՄ :_-cwiP;/"lh0,Hjg?#@rQ$Z@M'@>eHc ` { {z".ߟX$luƋ>~T!ϕB΄R0ؤyܛk3Zd)8CsdN exC6PWW .2tO MćMOXQ~{zS@Wb6  RR5 amBm0fH3Oo%J4@~3!ϟ_>>Îd[ϓ ATiO4변b!sotb@ vnܣ4c[߯JFJZHjV􀘘KtW<Dž^$v0+3N:,J+}V! w ʘZ+te`2y]H$69hM @c^(;d',).zI&Ϲ :$W?1 S|mAGڬ=Ʈ &R11 V78g 9=E9h|"_$Gt^P@c 6KpíL)9 N ׀Nj?YM)(p"u!$}ߪ6}ca}*h a1|Z/X_~u^I  ?T2l( rohg`h"9@Tci!Mc#+c\zL y640۠{ /(`°Rl,nٵ4n+=ۋ5_*Ly % M3/e&5_*5. 2(o4; * i+U"c?'^`f&Q%8nۉ#!썻YMY#D ,#T!JX?]@7/ 4h \@m@ @a^*]7Lc X`kh>}c#yGI4!pZ`ǎ$aou0X s^4y @x-P=>/Ft_Bm- n%c;@W Nt u߅XMBFMc],J32 ƻ FIKl?zM'LߢN"Ӑw@GK 1^͉x7P |@k +%ʺ' ICn2w5a ,vaڲ x&/+|; `-]@'ЀjAx, dz ^+' ?lar)Ļ84$F`9c@4 RJ{ע&DiF@ w^]"ٙ1N;Y5]St6^|/aN&##<L0|z tEd5XO@.(X@/+%lu"`AtTK Yʹ_@3ȿ,yWCvW\#/K@~Òfg<ƒ<~~d{*~$x[@?u~t:??hd~

?ĥ h`q@,!C}}"$"\1S4:W*4?Y$BCXg:/ <Ҭ f! yXR4\S= ],KѢFH/FsTkq.C6:H/4%|t(k9rz h ƕ^c־_k!w.q Tq̟F%5@讋02Dn&}'_@9rle-1a{}k@'@DaW.:i鎩V)>T҃!zű,ؾL7Н'uաpqg6mƀU9}PɐRW(} jH\wZ 1||Y!ẓCO^IPu݇O, 4B@P\T7/rk:K_6i2D)J{QqY(ڤQmq{x$mhGAZ F<'ҚbUu B,qs301_]ZFBp :#¹oIܜnE @ %Y db߃ezN#a$Hk͇ V |܈b(XcX3f#?w 9GDb-;w=w-Pܔ, ~ I֪kHU0ޓs.9uHzal½cG5E|伿 4,DDשEƦD?Yrpe11CL -Wl֏) P\ 3}Ac\: S== h0l!ςU4 e*?z-?Ʒ2 tM$0 KP`31/Qik'd[cއt͍E uvsB Jo̻$'yp֬8hWs9Z'0A:SIJb6/chDh&!h0˦hg | `;) Q"[(2OfϙpNQ\8ƼKy+A [jy^ywbwLO?tT*)1=5]o+cmz쇘w~ Sڏů8̈A/V>J12c/1"[ q1=jj i@f{T%:wP.*jnIh يv`LMJU$4 l %d> 83Kd^x01tD9lEW6@¨o7,m/Fuۦ4e͞h s)FfͯLDAI?{PWwu4Xb `#dFkbopʙTi: r""cG|ޘwjXCan"W秶-tbtl>M5BZGܽY*22N3lTbFb'\!_4:0\H?;}uR n *DxK|0~ gŝY3}#&d#!Xgѐ$B\%ae p@O Qs4 +O}nlwVTu¾>(2o;1KOA0 c`f$‹Du.$z1fʕE?Vj$˼NߠՃRnCKfT]%aV~b7κz?.c_PR .&`PG@cP^]%tcG cAQ AK$2Ah_۱࿑sڂsj$Yf/g{Fw<cAw@[dLI7"h($B<)GQxDLwt[Mu}`-8Wq7h _Q¥ʴ +OɲQn 2 d glll7 f~^Gn0MJi@U(Fog#h(@TotHQ:qF;C n 2L腎-ȻiM/`{^}9:Sl- D imoo6_ 0x7l 6ScAj8U~a3'X8?(H@HnX F 2'2;4 ?[ yZj8-orK6@= ^ 'n["pMjLa FFfq$lpj(v[>6\"x$,ȦjպgMXýlȠ[fAbqYS77]=7z,WH. lstg"D4Pr#R7_`j6@(Eό-(YDgw$4}_U }zx:MSw. 0a</ v 2gm 02jK'aVLi&=OցA"Q-M*;IJC$j'tQ@ pTGG -dfM!=yr cxe1"G0~ vH3#`&hC(B;H/<O<}!N+}"8z]-B&'HtF(·;3wX hpCv} [EdqrT)/Ru}ʸg0a+-$N;K)yB{4@j04>xgPu~6FD;. 7I ldtAk)DY(,`h䰒ߥ @g~spN,_i6#â@A)к N5zj;{l">|!(9v;F*#|v `<.l ( !%vqIv8f'i;&е/WE W{P w؏x)sSYo/ h1z{\0B>a&pD?u& yCat d㲠~MTTJ ؼW "Ubb%q i ZHtuCu]< 0Ӄo1{ @#!9 Ї`b|ڏ~W"@ fwb#HQ`v?g+2P ,X$s\/j3032q`tE @HU%&B(* ~R3ߙ~#O`K`gh4@V`X(R|5eN06~]eo2ȶXWpKj2X72 }t&LlW6iw0}u~#WV 0;W0jijk (OW#w5< Mm+iLr*P}o=U.C\t=E.gaR@0S>O9@/Oin |?;rDnu- ):Rk ݙF|Dءa!Xt~a[JQὰBh5|y2r\y*l DBϥ,@Wu^px-w=B W{$޺3V^lC(%Kc}VptN'IsP@pP\ iaxyPdsu"2 Ю3 u] A;X$IJI`g% ek/#VkyIq_'tXX nC"+-ްl dD-}lU-?d:;7>nntqy/CW35` 0p^uw]B?DckL@b$@*\a 1m4܂nss80CzU MF[U"Ǎܪ"bX TN)XnMYLEtl9yDDDߪ8؜춁_mwP8q,4pܯ}!5Fxn F2R=Z""RD~/?0Nzc 1 "„v ))]SQE|`|'ҿŠ z#ٮ`.f+PR||_"] IDAT>,|&YqMݢǜHq?Jr:ACXXÉ+I SiG)RJ]""o$ 9eS(mkj4szXb] 1@5<MsџWsDG0j+ Al1!T0)R~~x' BcP(=/@%2 p`fV}3U@ƫ 랙Jm)W B˧LTH ڍIn\#ݺWxy ȍ ~ǀGL|d_q-ϒ.-/ \0ς)R?@[z/" P2"j齵-c!γoj4-xb]6'7c,)옳.64+ei$2,pϥ)@ 6i6y* g-u4^AuqC9 !'263~rV%84VᓕWJ   Px*{22gbEA<3^l% PS߇.tKT`!8+ߗa,H,*[+'L\fHgx(nːA'\aEmFFcC!Pؚ?E1q 8%4Zcܾ[n@n\ⅬvO:;6)\u !vW)a@KO @mn NԹ_W̿PE+ ?B`R;C/ beHT-|Tޕx?DHϪuԜnx^[PPL.αzܿаHy0yȯ:&"Mk@ Ϩpxfp/ eL[ktfe^pP^gS%@k߃rόB\@TU<$Ǽ?;@&@aYV@{KB.BR>@i%7K,*+@X'NUm,N%J"< LuUx_9I2;f/@X7u$S+S/]2+_ (_ }8S5@}z0њxnj}dr(j&yN6;k d55A=K]G{k`([>mKP0zܫ)kן^HQeʯBYL?@T `HEo=XcPiHDN=6N̾FO8EmP $V55ֵNV5n8/h]_| .^ԌhTG&W)RG# K`D=z_mkg0yBUfy}r9Y+OR (tW?t Ulk/RV/rţ;eit`O& ϵ115}}]Gݛ=@=dF771 :}k>If?3JeOk/ @'ő.N>^& H&@|/uۙ2@@nVI ivT/Ǜr{1Al_$4{ ѿ άt7(P/ O2w@}xƭf8*=M`eh0U>$(P"ϋf`mW`tO͂P՛mUy0 (߽6 Qh M=׷[&,Cc80P@AMYh*9.xl>*I>{t˒) !`Q3m;2LA>  zRADG5 @yf@OJPqꊕ?a R&|EpԼIP>'RV㋨PRDŽ3?iuQr.=/TGuMQ Z5v%$tժjc*Cr4L1DEwq% "*TWc<@3+i#.lnz{AT։Uۜ/Q+)`q!HIٞ`"p{$ G$߃ &k*T[U#5Rmʻ]/Isqz?/O<؟ >,vQ"ST q>Fث Ug'XW"Rr n_EyQ@ՊaG1&.ʎ!h< *Ts`G@-@am:n:6+>}6` `ւ@X#xe}tL^5<t!:,P  l*TMdko7LMo+Q-mK\@~Q@(/C -9l `83*T@Z7YK1k\:[?@ кR'ܳk/QeF=CU@ `# @͞z&E0z._:v]LHQ@0u0<:^2߄$!P'Ҵ#ͮWgg|PC_A }x꟣g{"X醠@xY@sî6pdpb( n=\tFxP %N0O咑w] <hCXk/  T_ۃjizg F@8꾅׽ K7 Fw{p97Kw_28_D=7 *2_m2yAwG!>ش Wnps유@AqYV[-î'ͦ]ްbCDULvp Gte2Z 8sf *NzQ@$ k*T4[]kbZ@p["FiS(+UIX]{h`}oN=}'b_|׊3vdmX]ݦPUsnv?PgS׼g{ZW)p5J}<qAb6!C Bs~7B}HE&DV`)4ZlepLeynv3U;rsDr`X:ݺw+<pNf4 ȥ,D+:qvGd&ky͋ť,?R2aq߿< i9mACw3. KNMi nZ/?3⫞AФ֥B0]T EJT^U,K$v*x;(\y1^ҿaz¢r|7 ?1i 4[]c=&xX~Tto|9P~w"?e֪6?e:!k͒,+mlƪ*}B&:)F ٿQ[-î7ܘ%CPdFBU|A`k}( 4p(R*k8(+xQm6PL42ZH [% w#+}^lP%~I.:<@M)rϷS.{ `]@SؿETf˰kW% ȻUtTD@fPi(?LV@tPS3*dp0,e. `d3@ȔUt9G\q< g!eyQZjJmW/GT.K,(K5{ (S- ҶJ{-t. w/B.)Br.ś h80 \G\&)U!U05!A$' h ߸P -ە']2 T Y 4My@3^ne@ȹE*-+܋?mTA`D tsRUt_@C> Pxq-~.Zk}a&=W6Ph.רPS Bǘ Fc @}O= ^IDAT,wo~=TܜL@@7.tD ՅSG nS|ިNސR4Kp` X&b cQe x0B"*}XrY"T1@;Tq5+Vj)ڙISے߬4MNBC0,"P /I~ 0a0_~ФDO06 MMx?O&Љ )wiK@ <S ?V`" Q$@8<_D0[,2lzx 2`!H?dr'} a0 a8tfhRa (  `v:14)$L ͒dd 0 pؤTg0@''X8%0 @DS$|8zUO0 ]NPP&h8J`ߛ:{ lt>ޏE``M sa\i gDZF<%/g0i,g;y:_Y`El1pg ʟ3)X5B-D^I^(`,Vx?0.j gѤ`w>0 `*|E0p? >nR"8 ~=`>}jۤ[t+@8$חv0>جmREWa Oe?]Z+``5J8Ŕ !Y02Mcr0TV> #a0 Cә4^6lkWέ0XߡI[{Pv σ00><'(rn6R 0+8=Zo?ű^`_YPIL#@yՋ60 mʓtAD^b00T{O[Oٴx1 @  h5۾`z>th{sxm`m'3a@e`ӛ+ibu/h7 WepUUx-.Ve_V}xg"C@o FIx q\iU6]ǻ/ 6^lz\~ (A@8s04雔W a9Lm&`nRaEN`@1z@TbC@c`H @ФvVqR = C @ UQe ,`uZx':_0d0WxKlR;5\SH [}<04jh>gxEz! `{5ZrgFD߲ky0{@X/pJZ Fݴ 8~O Va3^+@k~F.y 0 `:. 1zǨ"N|c0aLcX94ζ~'``6ߤ2oGvL0 =MgMYc0  I:Fc9᝿T%o!ydO0 a}7%!@ +'`?mp|-7IK=* 1*fkzW0 t*=G2$@{y)2 ` 7ruWxp:$0 `PE<mL+tBÛ8Pl'VI`0NF?' `1fDU@n Ka&_ N^&G -xFP4RUD `0Zg Li`k@|iV0t Qmߚlw `;t]/ FYe0 6`ftG}UM` 0 }gLΛdv% `[1W[WLJl0 ׀=w'@\i0 @1OSC+dU 0\>ޗwnbi`20 @ 0'@ Yr|~ydq0+:In*"lghn-eS@1.qΊ_|O~`S@8+#-r=-$'S~wβ$L 腙" 2-_P.0@US@1.)Q8j/Om$1&`w x" HzP;^~p k] 1 ,Ա9`#yyI2Ƒ`6[۹(e&4Yg, dc+mO<خ]<!thNd*U&<P%۴ @d#P``{wBg0 ``|ϛvd8Q'*PU@EcKMG[sOB8` `'8ahLh执@p?kjnv |†Tb1%m.ipg,`C@iy"QOP۷ʹw3qkbI x{hAH5H@UsyxA8c@} ǵcv0C@/WUtpR)ߥ@etإ&4Լnj\Wڵ9]P2 `U@ 6h3VKC`Fr<4qB3@zUE4_̰ ڎ`4X,ļO$<x6!)`a5C@ 82.DM'@O'N],||Sv1 t8~xU@G<VC@$Ab0'3rs4!7f}Y-uKeEU<z NWrǾ.dMȜȜ}ޫ?THu8Q߫2YFLERUDVX٪V(~T!I݅,RUhj{w*MM;%Gq 1LKѡY`Y%sU. pKS4~DO?ڌ!.@׭EMp_*̓.,.jtë{eB;wp_O[~ٷY",a[?G9N$oDDܯE/f];Wѽ{KC1 1޽<}w#;~9Y<*_aٷdGQ Qp.h]tkW!~{X sC>@p 2,Ƈ(UƇSoɝ;x m#ZF}MuBtd"ؑ.e; pYHmC*Һ|Aiт{IIɣIAT"1yW3' @P~}:6-Տ(($߷:rqEڭ XB36l FBFcO;iO*~ݪZKr3`Py Y;yBiwo۱g:i:F6$ RϏ[2JdLȱpKm]TZc;i"D#iGڭ X1Mm &T7lvrȅ.cB*A6$8}ŏ[p 3xznS=waA:\IN1(d#|Cڭ 8NM4ҩ7m-Ib?vi(r'|Cڭ 8Nn9Zdpv\ik&{QH2K$ݏ[p 3\/V֫1g d- Z҉cO;i"lIAVyi&PfYL`JwBe%;Q ےi,xHu1@&LHGCKm-#wٱ?ypd4KEڭ 8 dZE |α}d    0z|IENDB`ggsci/man/figures/README-ggsci-material-1.png0000644000176200001440000032573514570505642020303 0ustar liggesusersPNG  IHDR pHYs%%IR$PLTE ,337@("N UUTX8q6>C"~!'# N^K`f'4 GU/w{}jjj``^4hK>9*gI9vN.Ƈ4āЧha`1x>4l&rJU{,9]OYW^=Dog~{ʼc OPѷjxm~ yO!_7_~=^mK~~e_ש7-e7:!'hK_p9⌿8G%o}yD[o_?, Dr.qD^2Y.~tпE?\hB ~(ԯe?oe/COޥ_߽C[oQ2eޟ|⌿D;qD/yK.#d?}{Ǐ>2Ad/g8qNp±C 8n`Ɨ.'Dя..qǯp=#?L .$G7^K|_dp8Lu/pLbQ"N"}hđge$Z?M:[q~&,ZpLt]<'8n__?؏Ddؿ_h @ GI  ~$#Xۜ~+Gl"Fnk]AWȚ@k,NX{g,-#fu{oWIMt)E(D#$6I `,YPC+Ex_pc-obo>}JhfM胕%Z\(U#G#l3* 8T=4pRP 0M_R.J4UhPty NI:#+zFMgRhaaSmAn@Y{ @k\t//bmT(tQzMS+*{e*N]K^,G*>W [M%@טoR"I9@j D+47G M S L}ՁmJ~W) 8(>zL+'FV^g_m3 @ը\n`;R eNV{*>ۼ'ΰUuV:4RyY0ͬp!YDp%@wEߢm@=TH7ZpHL 0dI֫Lfj$n3"C3HɀՑ>DS@\Y= zi. gB( Dȯ7BtV2^0"" VɘW~=W]γU>B" A@)uJ< kϑRU R@fo`@,}Oz&@ݒT &IMTDLh&pIHW*#Ph~P: c6 `1$m*KJ0+*tyfGi H}vL7[P^S@"c D*(;Cݢb Hz.U7$*=Y L) M̏X%/W3mH@P~dp5fqQd@h G1дf"ܷؿ- !nٙ $GOF |Q5-~U$ S@փ MQV<49va$ k[hٹX;3e=/[V6*L\wJ8@U@*PASp <GH5{bz[8>mURxGv=PTMW^\`$2P)g"_Я$P*)U@GL2JX(H>U6=7 `C'+@#E~9=/@by0)s*P3To.~!!efoUU@07? @dm#X) |`~@yfĭo\ 09eg㹤~-@)=R@L0 Ȥ |й Fvl{my` fN4Uy +OZUd*T>@ۮ@{VG" HjC~-kl"`L)y,R@ @JYZ@y c"%p8UA`5 J:*uTA0E@] =,UVzH@@:g$kP* o\`p0?`ʭrvJWp2Э* H{k VQVI5r蓊3`<c2UQ0T.0(DGnxNhe4෌Mt:`y0U@P($ʛ _9ѩ?^ 42ЁU@`TI &ͩ{,j~4C QCS@9&IP}JXU@2&PW * VŠhOy`| ع@8_zn_M2V5Tj6p2P67!<~) >&Lگ)QЫgr5@LK/T2 a U@R> UׯJd% {zkU) q@ӲӆV8r<5OD>Q@| k  Ʒ+@Ѐ:vd >şhyeiާz5U=6e_aǯqH @ȯz& b Lصgo@,൙o\ȝ<^ h핁T=LPY<ҷl `3X| xz]>J HO9C- lW{yMԿ PR@hj) *Wqڎ =9,@ 䗁R4)+XܮS&Rs;K#xQ"sL6pvwR o͡P[@b2@ħ nOAB ޴ ~HKYꀢ* +L g*&sQ[Ğ VU@=h ;D0 *o*߹5~{cS4>>$1TBCBPZ` l1BRy>|3Y++sۚewUK/ E @$**[,T.Y H:6]l xPG9 d@^Ə/HKbTہ'a*4K h@CZs.n@rd H& mz(h#X:>=8=}umQ*+ x S0g3 ` f^@( 3c, hY6 ?8?U6&{ e&X 1z ɽj##!2l_tЯk+ĤhK68lq+xQۑY%4{Z@ce,}K0E$ɀ/X6к42P"gh8#8E\@P$"#`pTe~T|PN t"S3t 6 x>@:Fs`J=O2W |08 JqAU;c^ h0p9m 0 U=ms:T}86 H{ޚѽ\Ddpl{\MP>PA[42=" 6[;{ml~^@+364 zE&K~J3@9u"cRA?0)Di:I < `_Efz}jAH``G @` ~% @l+r l/e"VrC PX]/S*¥fہdpc`Z`.QaV:heV$@H7d:j\X߉p@E3W ٦?S͸!Xļ@ JBPdk'Ndz4e/!kW^@kAGgNaR6P/ڀz)0hb( Ȥ5v@0K $m0D Jj`73T:of4>b h: Pa~'}`nH`|@ kp0 $k|@<D3 m8`2)[@SmC`=;3z^. qvFGW .@ 4, Lp@#@Tua~6 `pJm' -@0 ` P@0,R!؋{ SBzRs 5(07Ђdp H/YR1@:hH69ɗ  fv%!1P. O=$Jp!9$@(Ha&YluYZ00&= C$d- 6Qf5O+مRp`a<^@H0&̻`N N= r5! + MÍwO>=; FvDWT>,_=+7َdYeM>`yZBZ4ﶏ|#1r;0,,4|Ir>}zd! 6'x/ 4-Т`lI7$NI^VVN +{za ^`/HMʤxD>tK%ȋ]T˿=#VAv69RW9|V꛻kwK|T]R{q˿P$r==8llQbVuO+|'kkN =~ŅtŹ#1W?o}ޒ7U[ &@#?H{lo})f(dyQ-W1/$.?BKFz5vD6F?GlEQߤI_K'0I]KB%Y^B;y٣7+h  m'F3䟁5{û3H@7tK5vf/lO K|*bY +TS;bNy_lwour5CBuu *ޢ矯']HS W@2:=!/#?7nHBÿ*.j3rONH =!on*a~us ^c"yhM4r,.VGX[2?_cp\|Xsbb @yf(^.@@47(>mJ6E40Kq=_䆎eNo")gK2OOBKJ`"w*ڃP&-TI/{f4)k}=U\lU] qm5igVH ~qxpL6(l''ώb޸ n\dٍ0{+19uV_+\Gm0@@Gc-^K$@hUg@:]uۂNp `q@[pZIsI_]ETH f.+}[[M9vT!aGg51̵U!2) `G f{wnn2P4l4kMwf''~GU0l.X*"Q@P~6<0 >gV"7WQ8џ{gu10gdg`PPw&[ iө։/ npy<f RW-3v0J~yU k~B6`L38T'gkf]hr{jΑ- `-+ 3MU5(.Um X5U0**e|p]# a.:KQnKЕf3X1b6 ~Cf]زxcR{A6l5HBEJk\@^paB.,ܹ{)ĒfFiL\s~_!A@R#j=)3Y0TP`_6gWVo@d=s* 3>t]&@-~=r>~}hȩm@y UH= ဘ *J`tB贀)KOn^p/ +!cNB{klTc?pA &n   ~?ri@ j!/?|jAoQ@Zn: e/:pQ@ P\^0qtEVk"Bޤ3 *0:(l !') LLP`@.4u@⚞1@,Tҥ$ k]A,x -w|lN(KjA<(EWq@FȂhB:M.: '43P@ Ǒ@]@/]? TXi@g 4Bm-_=Wv1p\ԜG7@2 0(Eca@Cm Pǯ?~A}`FuA|H^$i 4O pG 꾽p)8F0.~P@J^|@1 @[݆\@p@1@\8 \ N 7nm麃P^'(tD60:^?#O0h74/rx>?Cj }4W>'0}EeA{p%f ]@ً m&05  B h[ Bz%Q@COeDl 0J`z4W48`%Y"4I) ;)PEԖEל @ %lF @aGS(Hs:99( J߇&/E. d jrk߹07I`?+PG6Zp?{FL4CJ 6Ԉ QepbB/{&zG~_]@`5q3PQ L<o} ZwD`J4N۹R `P=hU?Pi>@In@D- OAn)Q.qP` G&@>N sK?e?&v<1+!,֟?"o]lB;@'Z* 90( @ /EPP0fL7|С_q -H`P"  IEAi?$^*80V )=Zf h{E?L57 "  @uV@`Y ZlwՠA.jj DKԋX 0U h茠Nv @Ђ0|= e$>v$տI=3@ 8ϘЎvm<J( K@Ic|@( ˾]@pз?=~. j4Zu$Z2aD9 pg@pr@:hU}r-` 5 N0~ 2UVA"   q{"qh`Z(A?hg4 26P=Q `b ep@fЏ(Ark :=o"j :eW>@9.DhBp70#n6<$0ǿ Uך%VA̝ #/PgX QuR|epӯX72*jP*? d]@py\@ND%Hv!I j$@j@;ZqjAh1 *V v 287z z]@*g0],k/; r Nbf\@db7 l`!ru4J'. 0@jo?sWFPC{Ge94rC#db/KrK7=0B>!έz^ի"G-UUW$Vz{!q* Pu, b-h^4P=&(W ̼Y/E2j,hGg{plj +\ `}LF0^8&+F?H~Uz/!X>A~ `fZ{v8h7 ~,'`ӧІfNt4Y?@ ?Z5rv8n`ƉX|rU@ k eX'pƄ0LY$p`poσ ԉ LٍG)O`7g*1ࢀYpl3sDSGl@tyXQF0nꅃ@0b/1۱qlDX@& <`=x @D0?`Xp6 ޺q+ m`H`H`B?D@#P//o |h@V@F(^N`𔐅h@dxa2}?D'0 PܬYٔ3(\J]0AL F?޵eI߆XB,#&C>?ssl 4&!X"ڎҚoRz4%' 8tcEOlPcMIdhB+L#?ڷ<0!e L̢j[3 #7,y+Bd|!?lWI-HDg5ּXok֚O/ٟw<\չTTjFhUG}4MީL4oZ`K/z[e]U]H>TaW>JJ  "R^+T,8ƿ>dQUW39?U ,ߘH}_?|'!_2X:V8dj=<ǩJ }Y*Kd h3~o-W=7.{#jetY\]qȧrB}):9KO,~%gɟD{h?$9Bm *5kB<њ5?kc?on% KPIQwS%;jY+hr'C*y2|,׿q7#5LBfsH^.?Ֆ\V aj5U58]~e lYrxY>(u+~(:kZ<8OhzV(uK^2?%4-u]K.^ ӧO(zRFV僔s`)#dKv (qd)POl~C-4>y hY*iiXp/y5o"i:}BT@T(J`AӔׄy!Z ~GvJ'=[N$h ^r&Ph6Eyv=j>VǑ#)j).bL OEъ lR`OP7[Qv-%?ZUFkWqP^?0"]܁ /C *g`ZRHP6@R%@G9ղZ&;oAC|ؚk {s@lNFpnO/$Xpg܁G6@5R\ўEˀ:%z">ND<֒ 鵥V<.U׉abO}JX5Cɰo0N]3 OiǷ]Ym.Il + o1eل.`#An ^ l| 5U]Y1p5x _NFZ!7;᧕$qD׃XMFxW`87I ?`\ !@LA:#roF 8ew J~﯏6qrt@ :\ W4,L1v  7FR]b`8q]@ (_@?=#84E<ȫnEbvqh5N U#8 HAA@NÝx_nS̎u/ th!>j~p(E:ܿ1m ]UPM9 0&!=)p-s" P 5D \\r8|/PoE Gkz)>#@[ l`];_Ӑv!A=vpVnP[  ,@ @@w]* F 5@'Zq@/澟@@iZfI+ 4prA\}$ǜ86]3p|V9 a\qAp58Bu؍`l (" (b;czX%0xk?1 C@j 0%iPR-`@o@q-4 XEgds+ @Ck~biW@`@~1+KfIݺT@= |`l HH#@M P0`8CIOQ?W#}t]T_=|/6h@@%J58nKjo m:`DiMsq3P02\OV@QxI-CLq.l&؊ C΍?d%Gggn9^eA|yV@#C>OV@jB0+ ;HLZgR!f,p@kmKDRޏ h4CfL!*9"B(ސ[ XU@ch<ʠe˖h`d9ڙ I%l'}U@jHk(ST^L6~5 q,l#M0g K  n ({?G4 A (?#@*8d?lA$T@ B 40l*Ԯl066 0z]F PǁJAX*l SsW !@r9 re@+9-mk,(G kqt, КvNS@F3)*a(HHJ d%@wS* x]dl*鯖l} @ LZ5PrzB<@@ P ( rX<,cIFf S\t- 0),n!?  MaА;*uwV;gV H=>  l`@ž_ A  Ahf@dQk`@$X ~=Zdk*p("H,p~k>XE- &P@-(Уt"@w T\0, pVs! XP :B\ ddCoqRJC@< PN#TI0 +0,S( ) f2z sj};-/@> K=1 IDAT`˾sk@ֵ4P* +%X-ͅȕYa^[D}|-N3s;@C[) CRЖpjj0 YUgF`>0P $UХ䱮47{I?>~ bx @N66}AZ r@~1# u?\ hsA.`p!X`6 n* lg_q=7X( T@Ot .X @RT[ ~ ^ cV}xes\~_ <`x`'9+ @=&x"p> ȱXXnP-7E9Q8m-鱆0?A5psApyč`ڜ᪯EX T&>~fKO H*it:b >y'0u}R@qc T5 V UTv@7`W4 `}& FvKS t7䃵pC HSih"A"<X'0Iy@4 лSvP2|&ԃ@hРzFN`c*~|1sWt4`.p`u(S=h *ڳ H *ma- g qt  XRY#48ltT  "|0'#gSC@>Ng 8A? >B'0{ 9y U@  \IG0f8>-qL_;8[Լ XBWV 4V} :ZfJ L Hd;%4$KX?r8,Rm`š]Tj# ^>y X䫀HC4pR9͈ 4Šq6D>L)CN` hhz /qz)1Bf(BF A %vS?lU@ >x'0jV  F>31~fuOT0X fa+T%4 ̫XG-:y 4;p8}/ A`x? @` & Hr5㩀 ^&KPC! .օZ]X;H 8Bj3Zޯd@-%P*e/o\;M/r-KX×p,ӫϏ仝NʏO7ME 姝O;O;;NN>yuM~ˋ;o/<ɹO#ƾ >`vtl#wl5[͑gi݈Ps s.1MGOFkv=j둔IT&`j#wuJ_\6urN}1<^R{ޓN?ϒk|S3OבM\7h|iNGFx޲Ipw-][?;lv܏-B6m2v j_ {:ۀ!q۽SG௹'!&_ }iRo(. oC?}xRf =oa]_v }%x[4mn$KUG.$ze7y|){9iu衎zȶh>H>^"8߄ƩŲFi"#Id7y|)&O;m*"5KF.҉~/ٍso nd6mi"mI$<P$kJ^+87ķq"D3ٍss 9v# `y87\e-U`@꫕v`vPօc@ r@zQ0L9N27]yx 2/$]~yNOw>3"{nhDyh$;|h-p՛\2u(\ 8 ْGvd*A0Y\p|89B3{/̽P6|pFJCXSwɛ!vh w \~o0 1'$q_^{n']RuB˒~@$sxCsmЎAA+) 1h%% ȺJ%@v}$$- X6SOGig60zTo8l*?6dQ֣Fg>Pݮ}vKPit}(ΗtZ s Q! FX *|_i 9&1 }'v8^I#C7]@roL@Hȍ7 (x0|@oI# "+|_Y6s&r .JpD/\Ah YPT2욡)%'*PO]HY kE P8y{8-r( :8HN;T Y Pog bt G Ȱ;KkՉRIpݜ2HJqLHI Sӿ3&r,:Urh Hr}@IHo![`5T@C@:M#҆(S.BRbS{ނ8²  |N>@" l x.#uJPAMG[Q%~% Oi#GN)pt* TB  @كL@K C&9y|N?  \=K J3T2S-ZҀfPGp  HDd A'&J8$P ȁ?7$0U@8n9Zˀ`:ĉ$U瘣53@k)# M r} 춌"bpM`XzT{U@ssgf?Bb  tuGH`s>0\s+T@fWQԮ_zr`c1*AA"V$ȝdp]c,AI2k 8`TKDVʅPaBa0 p<4U}V'< %`SA( (RrQp@4]tT@yTd/Z8*9&Ls!(`iljrb@@ ZrU@H, ?1 @_->8 g"OZFU@EZZח ׿%< hv& 0G HqdEE@Ϟ؜pZ<0pZ7f`6@F,&9>a9 H %;YFViA!Sչ| -pG`Δdp.HRGЭ Gt-I8x?7١ Ι]0 P #-#`$yrZ hS @oO6$,=B&9 x=?=o.͊ 6hM#uMqh B2PO+(H r jC@0vX c!? nmzh@EH9 HP~,H=" qAPǂC r l&lc}FV&%Ub@'wcМ!?@08zLu8@ (@f4F@GwM"~߭s! ɼpOc1>%@*T@}'  p q׮lJ]v ls tNt[NEI8¦jQ@@rl3m%LnBoǞ`K87vsSoUs711_՞y|ƙ{>$;[9@[Aw]SWD_PϢNY)Sqy;(R/u9C?HX-r7?mol u#&;ih<Gƺ$aG6MVMOys<^Hco+M>G=ۦ)jѳV?V,|k#s:iE<=gYGO9ۦ1 w=?4( GO~GbP+p! EU3#3POlp߶9ZQ4x>Fb 6ע K !a)E?#c_*Ww r4+ X!jHj͑ L!PhI 0 (!8TUN`FD^`JCzB q"q ߘq x1xht_u9Q T@,z7'y!. [-J? 0|z % Zڱ[ ܙլRh7.d7x|taI\~ C\+7EY9W9GGҍ>&{+/!w> ՟ #%=&sDK@F_N (jdԞ:Z;Cᷦ؄@muHaf8$/];3js3:N 2!x!F[?wT+C\.#Be 'VZiWzT>l;P%=/"1ADAO Z@$! }ox0x&â@IFHqfD=scn P:_k/?z!B`J_ꪭ\xc)pP$ J8Z.C;'+>7>d Xp rxcÎp.ЧkX5Ł}32X+p#O@`ܳ$F0`WKlX(A,D* 3b\3(P9@T ?б >ipC@S(g * ``q =@~eC2PhEO` OD U88ýT@UB*cKv$mpV @ht,4J W^ ipTB@h8.G}HU "@9*wp<0 9"CdžnF![+b@.htֿU6%ߵHISp׏)B\ U@'p(b/ݯp?@L $wE wۮQ BJ:SG Nej@y0,V6_@yH 'fF1pU Z/Aqsl"t(H4@&9rn!{'>zz35Yg'p8`2PTC@\c pZ`27XO,@Q@6DTp~6,LU@g'Glrto7Z@% x_:O+x`\(ĵ?GQڙ, k0 c>c;Q@V*~  PﱣYp 0^Ğ IDATk+"TK@1 <)#}2P]V"z0i+A\8T<0Gşb?L Rg PW~LYtz@sG8j1`9+N* Ti5(MW`#҉`XB5M[y J@d2L``? 0ߣP,,Q9'Ei`TQqAP Pk2OR(U@%q`L2I8U T>Xpb- +8y~0Fό*CZ@U`'H2&85* { 0t%P <^'xVLa!_]IΕ@=&?Z 一'@ D΁0M{1#T 'gkaX %zC@`ԯuQ9/S$xC@_:&ԟ)AIXY?Z@ @@q x- dtzH)SgɨXc+jsk<;`,md2Ph@t |愽`y@9P =+A0>`g,㗁@T@̛S]Ef[7T@d7v 8``(Oȁw7xk-vY_ÁnDg8{锂!2i<Rep_.`#!@'C&P& Iy3SJ%%k SOHNk f) +Z@5Pjm-5c%t40BUN1~Pf {l&V&@@?MQKϡƬЌp@* p<.M@ә0^OyƱ`x S!y:ϲ, e .(#q/@y4N-Ղ0# R@{pXT@a)p$h_}O9fKIci_JHH"O)Йd@ oq[@.yiL`O3C.|@^mwm'o5_\_W^nWWͫWwo8JxS C_xwY7WlK_mmY! U,kz ^:p&exr>zyoa.#_oc^Mo<Ĺ.A"[Az*mR C_|CO7%iYYi!{,h%R/CşZK,#}WLG*yiߪϟ-~?J+~27? Zyˇ``ed#}K8L3e2m@r 0)Pu/8~Zj#x(`~@  dN* [ T4<'7V̿qe@P"8 9rP< ,05[TM@j}vK\R0 %:?f 8Pym9 =}aeDHlpQ@=ط/9`ֆ b V16탃xfvFvΌfWwU0P`6 5T+~t2a t G`aJd9T@! п90tI`Glǧ1 0`6"SV#WGNnipPC@:`ڕLSd_ƁM\00N`BͿ$pϐ5 \nD@PAPi?z_# RXR, `)$L,%9Sv (=7V, WR1Xf JX pk I@&T,  *Z!M"-;H`BSK@@N&CֿG%\ |QX҂UZL}1 hS Z<T&! d18.jLVj*Gq6;=Tn \#ms-i@9 6X(}A[p2 #Oȟ: !q`bq:D؏zݔ?h- HU p! "tâtn[ׂF^`@@I TPzQPUf@ @ `P@Te%+cYA|/@nH5_$o_Hr `5DP*1.۷QZ`vjU8 V9@OtS @-Vɠ87@A*g@gz@e#ATk=2A_i&U9 (u@9Z u,YU ׂۀpD4 `xNa`gI* B`ϛL?q}FYƄ0. w[  ˎ|R0Z7`$ 5, U ⁉r{6Y@RS:[ ]*G WSC@R ւC7N S@AҊ``Z'd-%0 M$[eT@}UUW($тrּw`W*=D 0qB#g>}Q/ǧS^Vj`XxƮ((?_ae$ Ph,K8J n~_ 4@K.o0xo;G捵JX\ ,^^ՠ}CA#O?I-o5?{OGGGC|Nا9ؓG[޾,J0Ў ? \ΐ=ju3]yz®oj#^VvX eogY'k~*g&=rw2Co:m(]<|W3߿߿k.~,UE?Cvx9cW+>~߸7 _|{y쩧gQ,?}? %B!rģP?H!hs:z%HO(-3J,5 %&;2qfP'h{|~<@1yu7sswq 4O;@%:9>PKKn}oQsI>`xFv{zK8aK{nIC<=? oJbt `9:| ")?c/|WI8w֬|:;9 ۅ0AW@Τ!/jbwc@BC@.H~ G28 ."rd:""LH,9(n4bZ(/^"ѾeI:3E0<ks1r 0H=ţA!Y0_/!(pI*?A`C[Z EmE_ȣrM! cc㿊]D 2 $3 EAL,!# XE" D`:X"+Ė@\+;M/)H\DS .|L^h9Cj@@# D3tbg& `~:kF`R0^tg,`L"o5B+'`AY0FuFh}B ͟b# 9/:Ex1$O#@Pn( b79:%p#Jk8 +ظ,`TgA{s~J}APtq*MkDPi`_ ֿB W@m rF"sKE.8@F F+D▂ajC Q! h@haW;~@*Dÿ}P9MV<> /Le6Ђ@ % Sp#P{9KS .ؤ*E'p @.@&hU0% ?, iz#n?-@j|H`:r@x9@`jq&ߡ@Y@tyT5y>_hhG uLU>U#4)%XG_Z@Z@P+8%}Дy@  ظ 0@T@@@&sR `DB5 xkAмUaD9x#Jt$9tAb:uj@0ĔX" .XV<n@Pbs#}xV-@Oj4k!!Fyͳ}0#\b*V-*LjA?F+w@@o6 ,5U~=.W:s!|G LHC:K & @% ph ȊZRb#'VfS]eX46-Z ,4ft _]H5vK _ZL=U?fѱ8oYw1u{7kg3~?_ l6kY>-b|۫Yw^gLM0ڳU#SAw/QtR{Er7 Nia5hƿډ16²؇h{ Eb,da4\r@qؿ3Uk0n}_WU)T1VZk[0J(L3g n)"cz7|=3]2e[4aEgW*_O<{Wl~li=p#QK~ށ-38zd= ~a=`2 Fg0.x9G4`Xbg0. sd=d=}0N3"KBYlH"8%. "Q A 9@I`%Rnzׯ +Wypɒ 6"?LPLA*vUSn7CI(8Hv1$۶ɝBڴp̀Ηsb]@i hW5J%1@xId=@@$lPfІ$HG끪QmOpbc`Y1hPbxP飀*t Wyo{~K( ߏ²cc@9TQr3Jr?tcVDy.#Hh /5!P)pSزcg@TXZ @Hg*< ȕ:N ΎLp,zhf20bF-%pJr *z@:FY% ([ H(X,` ~lDZAG5+o@8s'Q@bPҖHQ@&PQ@Q@3H v l`hr2p0 MF- (hx)4t& ,Hl$W7 ( \&g; dw\ 7k+--|cE.F7.RǦTPw&S8WoҞo|o̙]?Gto?]5OW4oh IDAT~juzК8z* .}C8 OW1Əз0_f'#):f `NܶDž?unwy`N ȁ1"56@TLI@HX@~%q'~H^ YNA>nqOoj- 4t\l["ythMN3fpZL#5+zFUQwng?~dP`?i֘HIoM`C)Sih77Cט[c}u5_ϻ'D֧4zZ8<ܣ3c($qo@b"E y+(gI{{/'!(Tc0)nH&8̥A׉<pPoL-Oos(#:ϖT nQ,%J-wyt%2%)N B.Y7;PӦ'!2+]+Ϥ@7HS)ŨI`qrp/}(jYazaU@<7mdwv& O| @}`m#ztY`eú`n컀^z[t+a\p!veެD1@xuk& DwO  h/C !d.d듸7PLA tsǽWdI$46-׹`Sv T2 80uq ~{CA`<(]o/[G_ki.=4_[S"Ln;;#" A4j_XG L('9m€-Y`XlUYM%jf~#hO~+A}HPF?"h 5 `r@*I0"g=>|0E`^bZC?k 4B0uR$5-C1^Z,?YG6}qt~B`43"->0@B6]X |. @'j"jWV `^x\@csjg\%J5:^R7TMY'&AX#+oX0U`| (ijK(DmTDhO@ r @;s˿Z pD (V$+m#+\d+L(Ȩ(#5>d҉@-,|4,rtoV"**0dC{.67+3$$2 -q[. &ok8|_mkԁ.l p,`P#q790jΈY0_SN r~MHV7OLP.Dra,*-\ 4I"9#b5E)P@s[< n#KW@O]@ @/ql@(j!'jdr #FE`Qs ( @˾`E8!X1 H(*?3Pl3͙ *@_Ϭ9pA0< j@wkM_AH :D~cɛr#PE 4`5 ,}. }| ء=>m!)տ$0yt-KR x §V߬E Q@6j=A Od؝ ~ "XﯺC#75g,Vu|I`eoQ `D [pނ$܉pi]@jX0|@ D'PFI*a8?( ,@#?% +Ea*"!"zmbT8~h?_vQS@ViU-Z?R$[hODbp&#O*  KKe,1yL?7,fgxe5";k~*u`Jy&5[yi\ 6u"\@K1 h)4G)J@UrP"0{T,4aPؒT?6 ?, dl%O ,b5(fT,`6ф@$Ѐ)z߭}ϒZ.4gW+> TFAjTkI5Gh@F x8\Gf D "pei`Tj=PY@Dy.` ltE ̒hZmn $ l4Mm" @! hdcp'hwҿap,uSk?&`󿮘s!ؔf49B (_]ZlS 2.TBF=#g҄`g/ĭlZH_I  h4-`݋D4Tqٔ-3]~6PS,f3@@pP4>7 HIuE "&E wV$D. 0V*\@s_I[CLj對$(|_เX,-Bi + "}STyP A t+b ; ̟8 "@'l`KYL `ņ)w"( PdWj(PI0a[~fj*?![ ! `J,P% `F $I͝qO#B p)4a=^jD<fyiФUlAo+@lRgTJ5`08Y@wF`NBIL% 6 J!sͬ$ڀ0 `]@ &e@jPhE.jI5iNf5  ca@֠N\@\bw$tI.kSr_HP@lQشA0XOll@`:4K~F\@|2B e aBӀJ)7};(ʺpd"x& o}0#4F\@Nx| aJfAD+9p-Z^RY hɦI/< (nS] +`n x M< hSsP P99*2>?w8 (Y_gr/Ο3$JLx)Q8hB9LyUPE@PFh2 : sq d5\@IY@ t-!`ef]v,}A(C!$4Ǔ+ FhO?Vv4Ŗ;EE Ăq(tB`EI`,a l}+[ @0#`$( 1 @n*0n\'1 ^`';~w5s=^%mx7R>mڸ'p{K*?Zpf`x/CI`B~?4A;#BEY3q@q@DGR {8 d0@ h<&'M@`N0@C4@T8u5@x)j< hSMښ<i6 \04\#/5fG8.T8 hg+H6 4ID 跙b*.>`7(PSE`fn nE `ҌRa0h3!|ܩH-›d7% @؆aK9 ( f. 1dlڞ0=PHDPl ('p+9BW^Dp( ;t0884 SyQl  Ӏ,"'0v*.Pa:88 E~7^XiM@6hޑo V;F>ʆ0\@=sPG{. *w Vb0x(#wK^?&J/ODO h u}Qr6ǎAc >COO~S Zׇ|ō gCrA2Ea x`4oÆ>xM"fE ,0?^UWiƒկ[ N'ェvڄ2_|'?Ij6Wq7W ?(pO> #Mہ04a҉Zqj&k?m)P~dlW>JzgWufR+?M,/]E9fh"kȿq?.M_f# *yd$gh_H\(9FW}1TJ@h Qq=~wj{i{B5}e^d72?ifl<[g"66L>FaxsETϗᑶ)IgYv+37N~$eh?䧘qG;I'9F#=ϬVzaDgJ#~vڋaYD5Ex/nãQq 4@E!Q8F Oz~tUM3l~8}db=EИSi <_6&xkU@WCofqn>.uhLz@F?4SH;{|?v#@ ׁ^xX.Iޙ7@##`3gpJhwEj܋se*0a-@pL\ |Ae.6',g 2߿4~XU2qLbJ40 2$@ϥ@G/; @Ǹ S1_ `Qz4Fh1KΙ4 :6 y.$?1p&8|WFL\X72W3>qe"N `\Y9pc a"0 S>?`x[[1yyH`!% Fb $3L/̜!य0C` :[uK@Ja@/ƀ`?ƘS\H@}h&I@@.\^@ Ҡpg /&/7PJ0)~ `䟛7aE`]`BcPq+nAܨh@J(,l0 `r~~Lf}<I1@@ǽȩ/;ykHXR.d!`|m"3|2iC``R׉݃:qďxFD!X<=u$Ub w22"(Mds: ?x'4&ڿ?V$1z<@5m)=0a* x|T [3|% ?[Ǒ=K`'` `1_  ?p?2)u 4!0* JP --+Ic KV~&Y/ܙK,(@/w0~ W%/P!0eystn`*ж{F( p<~=X &p?`(Nyŏb 1 ao* `^1(-AB  T!\'-we ?8`^ bI@Dp,dO H z=XTM` i@_4X 9!c@ ~!@@I@SbV" p<(mb93.,X4+51(7 x E (0ډgU@*^bToQ}DӅS>8{XHZZ;Xj?c(d>-nPU/]ID IDATQold(;ŝ_B^ˋa# Bvܪ L+@ A> 1*SX;< ȸ0ʀb86&M=', :+@3caU'@]- `a 2 Pɟ r}kerA<B@W=@ T}@𤂠F!&E* }00'l><" @7ҿ"N"34P*-0LBU@00 >س*NiY.}+L @Xih2O2$!`l-qE&忯@4aς +Da=7r@ v  I@Gx>;-y\. H/ & 5f*1Qr=e;{ZD9,n10-* {(߼'#:o{^Gm0(W#l `?-xU `` ʟ@J@U'p9+NUe6Kh @O}Of5W0xtK`l@@Wp9W$ A>[4 |+$ ¤ T-LU9c[Y8^j!@ H =U?qg!N`g xF -1?~'ZS:wg0yYfn׍` @@%. a? ƫ)pZwyE8U@X @%T4R N`]?U;Uao|R?*\S'] Ѐw"<* e"^@oTʀU@\ VX{{92Sp{ L`;WU@&7?Yc >fp}6=n@,*23QZwD& . ]k^oYlX!F61ۇrY,,ؐAs |UUc,{zF%rKIWU}eAQ@ʍ\33% 0$ag@G`yhl"`ϼ(Vc+;aX- %$p'@2< t˓@Ϲ( (B ([YnE se& TyghkP=_M@0f@s_}%! . $QM،f t R4j/s`? hD@1`Dիgط_ Q@ d@s3@:8LJ@F2Dh Qd8zׯY"5hhc5Z@4Ox&"G (b&@( `8'A<mh=*1"MG:0 A9j95;m0 } @3 }AA'ׅ4mA^- rw8bx=`0@1*8ra"Q@/Cx 5&]sЋz< ?0:: A@& (.b18\2`G a̶An@0'`b@XUf W`{I9ooH@HA`JF5 oM=ht^uiS͜He.$u` @֌ 09b"dx]U!qM8r3(D寢@@,&ۂ0z} rЀ$M`bpV3G#KErKȫ@I`9Ϡ@ ϯNM`zw|ym z@˄4 (=A[ F\\@\Jq#A50Ew x=bH("Q @MA0`DS=@kM" hª x?- I GRp$) M]`S,%Q@-?_y` ؂0νJ?ecyvj406!f1K>tj7[xUr:୮k_؟M*OUE0R+ o6VZ" UhQxj@N jaN@@ 4[VlhY0eb5/78o<ֽrд&Raw5~vWp4r&8l[yMpK8jI(gp'?{nVw=CoXou.{" q=yL$q]^0z\n/ojR#<'l"UsiZOTGՒ?dm5QpΏ=ٳ^J=KD:N_ ypSO_θ#p˞W~OkB8cC{_\?u D*o'Gͣ&Tpo_fJKkr b̓M䴫Ij?_cSəwvJZ%3O"ҒZԒw$}JޱIZ߻V~G~q5[LRJWK?u|ȗ, $UE#2W`넛vu{cq'OO=ےh8zUԛí6VI`~OE3IN#z8zJȺBMۘh!4ܺI758z~-:jF|д9PFDF䟈?G( ZI+VGR.?>Rq?#zt$GO]D=Jv'`~KEi4LD<= $GO*"˹ ߁1LB|zX~G2D`$q@/ޫ5-nr4 4kWU$Ub= ߸H[WM7 E @BI3g~8OPQ_ ,82W~j0ug iOrsnNCwTeo^D! P`yJ4T h*DKvAS@6E*B#DT:c'B n jV፽=r0ŢS2 U!!L#of@#z]@J\@T#sh>[g4_) 9M"VipA_D#ttC!gzPv`g==kCv=`.@ ;^hiyDTX72kJs! ;a. #H@:艔lu[0J"S| (| Y#NP'{n؞;"x}GpY73E:8 Q@>ip낀%gi3I r bP00;-g"R8sg@0Ms=%;ӽw 0s?O!5- @}f9@Z ]kXﰰb]Acbe l' n$Y}Ca&7R"l~X`Q(J_{8Jj2w~C@P1V/"pȥ (T'9 & o% C"J$*S?4b~`Hq t4G|%XxX1X98[B}6"~ug4 J/.'#Cy/ 4s0HoRFM t^Ad$Iže"1t2j@Š'͠i_V@p@$A4!p/Mp 7@B=t]-v ȃxpHP#W:! +mpl(%h~8}%T@4`(* 39 hZ"81G8dO a_ئr za(Dq pmN8c- v>%)з&Jt7P_E%@(`8Ev_HwQB|<:#TG`2p!@%s`0@(FRT@r9^ 1:P36@uD8} <&UU@5:@p)Eii.T@ޟ@9DWU0*8RGK*Jq9kSXcF0t>09SI-D)A90F5*=!#rՌ`=$48>w@:M y f  "UL0`!@:iŐc4H1FAPgM p hU`4/(,vC&Xn@i#@@>x܊Z9vWֈXp}vZB@gg5L>/*!T@w=Gy-`- AZPt }rx 8e 1 Hkic_9ۈ>MO3'͙z'/8)p*[ tsFd8#l%@r}9 #@@P$@9`2~@%* \@5@]85@cdfk!*X.wk%p H(@OT4YԊ@V0X>O , @+lP+0>X 2d (t>C:F & ]&>X 08- bI`JԆC+7q*d1-A{f8>_3DН9[ 8Ts`s@LP5 #M (X80) *#ؼ # Hu+ @Y@XeaΠ 4YN`c.$w&@ krHU(,d%P',R4P!p$2 ^S ?GM s:>~i" V"4i&{@Pq@9hߝ@ȹ h$F`>R>3 D/8!9  ' Hk7@LVI=sWz <0@Xh @% pG ,10 s|^`hF>XjF@4PC$D0 'E* -҂J*z%D}$ Y@O08qMM &ioӀ,0\V6,ZС820؜vT R-ޢGB * * r<8{:8qnY@x4Pq(`?\oD[x"@R!C'p3 ,DAS0q%Y@ $T@4\9##H:# ;Gs ?> 3U@;!2e h 6T@88Am# (8:P yb(.`5i{gP6N@p8⠛( T6Q0ĠU rY@SW>"ǡt`'.%}zTqs4 jRu0h@ @D h08"P T@`u4P*q# "д@\#`آj(@p. ]A× IDATy0ӀD"4WAh,0Lk<6XQ4`` i* V5ڒDhT 'X R6Luj8ƽǠhB@ߘ&yKqZV " ~#ap2`P8 4֣<L ZL`DGp*L6Lq׃* r$$rˡwIPxY8 ,`uV-@p? !u(e,1doÇ.9wgQw fpt˗| /,{kM r 8a Oo>'/:W0MƌzE'S{Sŋ맿(d;{&b֑\{{{מ7+hYH$= y; 8=S gM_g3lט}Z;j{46mnT ^[6~<{vZ"p}sxW`_/| #SQuMGZ j?XU[|]\9>Ug@9T@;{ `;/c}]S~u?0D0δqtH6`@*NDrO&>z_'|[Pԏ~JcZ5ڬw# ~l!G E5_T7g8>>T0ޟZWG}<0SΑ !1hW{"M`0&YxpB/ @ P@ 0K-X˙b*S@s b`41#_}شt'Ki׻E"Wr\R/MO{Cf40P dr2,.`_S E9鉶p8G_d?@P@Ek ~jSEP4A[E3=> \suB> ( 1L Hn( &Ν`@F@!@;, `ɀ $? <b! w J b%@!4Q@,1t@ g"^J>@!s `Y@eg.$ej쿺k @|"@ﳀ< P >h AD*LuXk8f~ Q! htARб $ C>Y# ) ,APƒ41  S>4,m#XYN꣎( sN :@u@@$@E{Hg*64PY@ q`HLf׻@Di^i4МlF|-y Cd|l/,  D Nz) "0|GTZ1Jof!T{&  @q?7Fh+HZHUk[v (p%UCY@=X&s`I'0*]1'3Y@Ҙ.ȸ%*aMAj`6$'CKAU~!@=N)mX7uwJ4P4@G0O֓ٳ?,S@g@ N`@RX-ƀVZ@& "@!~_j9{, jp̪cQ@ѷn `m) Z |YA;)'H18Hj^(}ߢдD-ĕ8-6J l Z PpۻGR#0"B9z P` oi1| Q@f[gXZGNE'0tO3Ji(*N`ge _hTPiF*H]z: <[w8/f0p} Q`kUu!8  BSH~5y hfS H%*zZ@i4K8oU' >#S00Z5fu ԣZ@hZ@K[T- bc0  Z@KNxn|/m ibN`75A9a/ s?Z 5)xvgph[XV!~aw 30Ԃ:p~+ĝLI.PG:,1A Szw-  y+#: Y@a2 T]ZT>52-\ $ [(:4Ov޲B[^ * {Dxd7(l=,@m|:RRSMk&<5h "wP]rsuj@;L8sJKA  *+t] hL]`-#KA\ @3k0 -L @"0,z/CX"b2@>:/α!ff)F:Yzd <t Dv m ˀ~# :Dw ;4#,?A, 4:?N!]aBt;R0-&:+1x@f|K  aJTv@〓wK(CYfQ@5Y@?#N-v@`L) >sS /pkC;(BL6]: lrI7# 5ؿLJha倮"fM-Ma?Gܟ^/ε̮V] O@h]ԱFt҃y,">Ł7EM'*ѡ%Q %߅R3:F֑V%G#1Cu ?@kki5JUYDh4.xT --o& (?r+|!QxQ79 U?=<8=zaޤ?}DRQ~XyFq]˶E2I@b6_y$ ‚8o& M&AKFLrs?&o/#:lK QcSOWw_y"B8TƯ6>okG?^{_3Sp}T?s^3 *յ>ׁ/яڦ- S`zjѻ I zMkP`zߖ)IvJտ~ 6mQ@LOijc}^I z_Mk8cjZֶ`h %I 8 x;f`1t!6G& ;˧>h{t\YZk폷c|쇞o [W=ϒ'| 7.W@n̎E"d@;=/4~{~bbސQ /Q{uoK:|_wW?^ 髎 x.x lx^* `m~ʵd,_@4k"A0 ,`m4| Oϔd`{eJJj 6Nnݎ jK@`m[@4ba#Y"|2P}cFn#F@1/|ʋɎ2%rv.l/: S&%j7Z$adl ` ?#?v@,)2{Jz $~E #{X =tn# TW0v;2 a Hkn&\dV+b vbhXK}L<TAj _3QC>v:rz-wm|A0w=%?~Ta/nD @_: @qP{Kg,`)- X8 TM`L?]`A@W:WR0CD$/(]o[Q@xm}J?bZ^{B R QaZh:hǺϿ4bɳk@E[>\Гb % Sr&pIE(> `eՇH0W @o j_0 b](tM')@b\i@@/|}ܒo0_iA{@ @G+J=0Ғzke*FR H`7iHԾ@cmH F:{s  ̭~@C"E3P1&D +THf L"X %@J9Lo$ o)<    Tf 1 76u _ <D¼ˈ"zBd"RƁ~ ̚@;$ FVvP'0Pm / n_cy # 8!S<9;av{Zl&HJD9 Z@lW&.~o@8X<K"/_yk w~ud=EښH Bv}¶5?Tݟ`I@Z"XDMThKT&IgVʿn@EI0xekH=}*@J0MRAj`-t)e "!(a pb[0.sQ@ؐ.M_*J@ d2d@f<& M6u=P@JYZmP 0 yiX$(gk*dux'nĽ2( o \ 9Z\ .1 ```krQ@v58X T A5 ov? (* P- +h 2meJ4+qY.'R9F@{gf7Jbq@7 ڿ  |<' H/t] $ XB.+,V57@J }r ¬\adiL`K7XU `YcV=z˿x@fw 6+$hC꿀 "@ u+3A)lT ~0xcF Z@ $`U ~`4*1 vb"0 0 \cAM1a]_ t6j ,P4, X "dZ:& P ^ mRj@[D'DZYR aL%a: r E&0LP,-^a0j"* t/:v;%y b˂NfAe^}Q@MUV&plU2@9_@'])閐` G *, 2k. y .0 aU`&lpcGA鿛g( ~-;%VSx 6Q@a;0z@A`5|v0`=V( {T17yyRpNφr IDAT 4h%! JB 8 z>(|ly`Cظ->-ϏMWǿR7`ëW {Fp[Ch{e9=?G?)z"u?^ ϿO |>3'yę뗗c|M ; _P!(?&!@@T7g)6~1O!$8Pli ]D0 f @j@Dl[z|Ī  ͔;0 Ҁb0p@c6-pIMT yQ@=<3K2PfD`g@o00aM- /Ѿ_n- L8uUyUFY)`  `jR4XTP`# :2?p`JA@0@)xaL;`N$ HBP@~MC*xdO龏 `рL N<$T3OGR0qcky:Lu'C- ݄A3pА6 ergf? F DQ)T)a_4f65!TBjЭ(} V & :?`H<S :M0PH7 K-Sh*= N0ps[@ UfZ Hp`ׂ{?!d1Zak(M"bpK$1D0Pt~F2  "0U@ ``Wnj- z&sljo(O3؋;Sp B(y j\R0jȯ=5 x|Aҋ t@GcR %pV- ygG0SV j] N2ipx?G_zHt _jN5P& :! 4r8 _ҳ)|~KE(@ Fh,PQ@Q d0w?%j17˧PpcAcfn d$ `=4lO1^ad`3@v0@0i4'\^~U> $m[[$m?HCIYo?E%[h_}o9NHh|D=.RoG̿:jߥ~|OSp;0?p}u:>iw_VH:GogUx|}޷}gfZ7pF.V=Mr+?kwGisQOۆdžWmZҾ򷖚 |mI7}q -Zv. =A {hT#434 dA {P[uoK[j0~פ ``+]+* =?5 K@ҏ9 =L='_Itr %!h!$&ϋ~Px}g +FČ/VEO XGXCfGpB =#\4v `o6h|/h+Y@V+~spnq*POՌ v+:EZ f0# $n2nY@` hE0՞GЭ4ҁfUx #9Wue(M o@!& 2T{JnQ@%B4E82 `Yzrqk@;P[ H[)8P߇_!AaXz('. <.0G<==PP z/(Z@('_d,$ /EJJ08/@, 6FYL=8p[!hʔ?lD0a%<UdUfyR@ߙXG*grr D8>0ޭV`h ౙZ{3O&ĂF _11ag'ykr,Q 4H'֛w0+Qdw֎RgїLб `BncG\`+c&0 dY3o&^! @02~e[P\= `_{}K{Iy4fHq@i{~{V&2X5ly9@a}[y&#L2yQ0P( = 4W&zs}fi&5U?ȉ`NH@U@2L9$@PZ (ukeKP>2T V@f @RYo 0t>B?r[ t u5P>`v&Bd,(L`*5AsklU*klKA(:T0~}eP 8ّQ@Dɧ$X Hstm, %(^) D&@/.45f^vcvOB ,R 23Wut{s+,w~ |~}d3/L \[| l&i- $ia]-8KAL3Iy_T[j'5a+J0\j R'ad?=S"@з`'6 ȸ`;TGOQN WYCdb_NN#A~q@_1:@Y$迴( 3wEMV@PJ-4 >@`A3 s~0IO૬Uf dT Hz4(g P 膎`"z?K>KAɔXjվxb5uR}M2 [.bf^w6j#4.N\k!8L*#p,wBO.GӇӇDӇ}}gMrƿ//b<Φkj3'{L^qeB,86p̞^C wyF2޾O] wČ'W?sH(?.9=}N4[:^(m GuO,Soȿ6X$˦~9jVF 0nbpł~ wk|џŶ4]Ӝ& e =m0+ma95 f}?2{ǝ>nV,NLS'Դ()5-Q `l@ @se#q+E@0s0T[ eZy `~T0P+FԔWDdg! P0n *SM@3]2 @8Ӿ>OH?gCB 4M4j  & | (@ZW*rO:^9@'@s2MfZ bA[`2(A` ,d1Ο?~'fF%Bh>y OgS@fjXE{HXv?1訕S&`8p8XLTN4 109 H F%E)\푩&Fu_F J ')*u *&( <|M8@G{&[1ӣc<-T̮l?ٵ4M`3`ff%KLV9*@@rt>D;Ӊٵ2K* @G$6bB*yey0$ S|ϲBTxL @@M^<@ ,4  pE& Hਔ02\)r+ ҪBb#X%t'pGBG##~C=4J- ](~ƚKV}U8'vxfgҳL# eWܳhB@V;V~ @x!\[% eY @*(a%k(LĄE_iq `i @@ m^-.?a@FuPG81>Z')/^ >xJN`  @^I CYb@ Q @P Xb&'. H e|`}># & 2_/ <[V (bQ@ >0>OI+CSC`( 5( @@ XT$+ H8  b3?y. `@0 @H €bSd1@5|ybi `_ GO` y3 ٣žgж!K<[wpIL\)7[p}3ɴ. fVY[B(?wO_+$[-)]B>G ȿ֟66h4֙ 1+K8>؅-$_?[G˞{a`7!d[5|P[ߒ2<=Zkb=<5 !usg- -ӧ.6wH9I^agOr . ̜>ۥ."ڇ~?᰺n\^S}f/|EK?Z?LǏ啕eO^$/jOސ}z5OhWuz?M8>زzcFON4lqS."v?}!F13N@3iEI7L.ĝp7Zl櫪STթT ߒ܈nu]÷O#Dnk||ɽ]=M'bxa/ɮ>f4g|맑}_{rrb{#9d+/'|'BnnO"eoi|Kcἑ4#\߷ّ~xbj? @[7^eY~4|Œ[3o?yda:z:3vR#pky!3җ;H{9{χ`<'ohsc=I#K~V_:":#t4~dYS>L:_1%mlaNڊlLJߓOK#t~&soTz1*HhF{#uJ#Sw*#9݋DTL%QQ"s|Ic @o?KcZ!@D[ fp1R?lR`#.K @ @1^&\5Ph[tǝTZ"?o7)lέ a0D x4Hcp%(AKߦu LKW DpZL%2s:-gÅ|_I$]N:H+.ñ?7ot@Qp3v:!{.G;ōsp?e.n̤r>| dw&1"@@`Y||" RP317qVI /K48`sF(d! IGl7uCg'v_5S@zw>z8 𿊐/W3K `i[ ȭ(`̛!d@ߒD'/ B,5 . X <m\) [Ձ~) 8 Aĩ_@>Md H|gЅMzcY5)`@ZJ8Uc& _"m6Nd6,>&`LTQ-MR@4RmP3@2$V33О޴dD ( )`n><NRA6%䰯$ez#}'˝&rPc^ p׋~ROU Hˡ<O!f`&HuuM) TKa"CٴyGd=>L0OR@4.C\AK" L @5Yjg_9P9"Bȥ xV `\S\& BD`z)>Yj{:Z&p@&ig L `XrT_-)r@f!px~ MPҳdH Hi@W`R N3=30MGdzr!@ [ 怔Fpu m M4 ``CB>( @gzRsɱ hXc?ESNT6Gmi9$]*FkH0В!Y#!?x9=%&p 4wUOd*w.4ƪN0sd<gP;BU@<̈́20x^US@pmJm'Y $`/Ѐ-! vY$gr?{s,X[ gĿ$#H_4MRD@%U@&;S,$0 @tUw @2? bS *w, oKV4=Utn!xSB*ZMIMVD {d0xbLU@6+yO2W"v U@*) O @p!"cc9 RO@  QP {Hx&9@/R @f.c}|,%!LhE7.)*/zTT*HJG$^J@x2@'}Z#W|t+A R@V -@kkخ& 'p@A`*)>}; y:O  ?Ճ, V `HB*'7(%ɟ"`jy, 4R w0o@ 4JXX'/9YpR7OH7otPf) RU@Nlk`hĘ(ZP ]pVm-۵y=2*6! ,8o<'e!,r ̩20֙<| ^H2wH )u{GDq4MyU@T!E> "C?G9 @f 2<VU[} U@7OB MSx``f{}? 0z> tT@&#0`뀔U)>T &U@4a3?4"V Pq"&sv $=Dg[ 3ً`cA*ۀ_l5|Yc/F=&Xب: ) @0Av& X%y<[z@@Y@ATI⟜'{O4]#KP2pPFu`~S pY5[X+`эTM+ Q  қ РU@gP? hS?*=Bs&"`C"Aǿ6,<Z@2%$"1c l-2$ O1: >Z{a $&`]~ꖔeK-Vw{3~Q dU@0p2b LB@$x@. g:255$!I =6)؊`q\X~1bp( /  =bp:%om+D! +TeIb< *pH!U8ܡS|LzZ@#+3ԫJjuڈ lɷ G`H h,0X@. ̤"vL WDQ8BppV" D| :8U`80 Z@>x:d oR(û| j93{wp!BPqI ` XgDN b`o19K0`VVbpXkzAwa0ߜwa(& ^JlB@$߮-qf~ CvL$z b`GL@9>U"9"`*fv?QbΘL0t=C@}X'0PP$>2зo  XZ@4 Td`@;)0C~!N h9P_Af4u05y*Bb=D4c;s4DjHu#MvBg[8I`d0PE1pߎjaTY@۝ZU@$g0@DaA#roG:ߨ9u@j1,Yaxq\[*%i@ = Ӄ a04$0e'@D1V}Z@5sc L`AlXU"8@ h!|5Pj* 5VMh0~U՛< V׸ jAPH tz_A "\($q3&pƄ,p"( @<-IlL`J!4 rD/,Yd#?wr hl|Щ8ubp -и] \fKa2н䠹T`F" W=!E ƄL_* V)`9-tp&J0V() $ B@kzVLOPWFCDV E( b?d8U-8&`ۈ8&pL&@؅HAZ:9 pN=ZϧiQ OEjt%!/ $9|0dj|Q$0z>܂05Q n= ]@%VBy:- liAk 9KA8YjnShC"TȚWZ@@07ǭp`\Te=gvɍU@,@1 ܪO*bơǹ#ՠ^ "(911@6_mA8Z@tVQ`*ծ:*S@V wkIXZ@ G1:I@%@x]HN0˂2ЕLeN 4ҁc* *'D*;~QmB"~&0.?L>2Q$$/W -SPl m%  # L01ʉrZ@~=`mN{"m- Nv7Wnͪ%!z-(m{x/b'5P@&\QF@ 80Qx օ`Lw9Zlٶbpm @X #F3"bkK$\`- Z K. 0U@[p` 0+Q `B@}X]>g`jh<<#)Qn_]_@FcLd 5E]N-fԧٚ] G.2q8¯dli:Իd<"|ג7ל:KzxQ` \͟o"y)?fܠJH#(lNazM!R>գyЏM)dSyU/U¯vl9}znDK;9wԜ^mB59yf2]vhv;7qt<)P][M?\;G̰QOEx/)[Vk辥V>eIC/%oU?ؽǤNN)J/o̟o5^6d٢/ }ǯۏG3SE[ U#-K̙J\XvcN Xhg [tOXFiSxiښ2 ?iܼݒW&Йc!s5Ysd݃.~<7yйaVw+?v:lHW=M#PĭQQjT'IT({|*Ɖy÷[HDJ"5*U'lo?G&q[HD|WT&/_\NnD"6Y^tf/9F"jT:ߏ&;V A</-6} 1Jq}@3m$F_~l*vIɇz>}76)~wAG2{̷RDԨl{c,MG]v?}xv;94B`Ea `D3U^ W@鯮$ cwv^|zWwt=hpmrk0'yI9d̹7:6B@ o@9ۿxo?n5f: P^|7=:Ē~jFjo6\u`d v"x}G04߇ 1CrP,\K gEApw=@-, (C$ãɨ!Va!,cfsQ9xR 5S?]kIr Y[stXfPt0ա YC21&a3{ޫwWr{zuuPv0C?QE'ïm",k<~L_b)UV2ޗ='GaP>5#1"!`/i ؔZ8 B`0u7X<ٹ2- IDAT|= (j:@Ac@>)K~ro B 46a &QB ECVD9~nm`@) ]V4~,YRlxGk=[6)fxs?=?%N"@ ya ЬBvF@ `P湴P jz@3pGP@ь0&OopȏoËD߂-n8p@ZE*&Wq5` @'F=?E="|LΠOYͱߴU P]}z@:hz@/UPJ@zm՟6 аp%}:Rދ]T}X:j~`Q~#X>>jAXkX$@J4"lF@DD]4 pT~[ F6Z `i @f?(e ((. il`cBqBP- E) KD6CM2"p̉v>Dq&@ݷGo4 yOAE``D~U]@\j jW_7ʪo( ȝ%`d+ H#f~ ́eO\@鯿*(YX%`&X[A`e!TP@O/!;4XۏA=S@s!Zv.f8kDB )Qmn@E xU ~@FC9X"cF9"?kg 82|ofN`lj>5P@>0 rlPnͫsp0]<xnk9svo9 : I`Pnrq RlTM@!m.F& ?=W m|_nNIvRM@ B?ktC[NL8<bOPp,.@ ) P]@| *x@[n.&`ϕ@0ڠ _vYW{# $`D$s* h.&?^ S :#(Q@C#)`v ]`F ODx T $:wY(4+!6ΘBhPYmQA#%?/. ,6k~. `mM}-FC!']iH@7 Ty$I "#X3 AmF8[: b?P;i~5N|x!|O 0b <%9( 9~U} @Y"' rd3mU՟D` o]@@$-t_YRa 5ppH@J#%l8F@P6q/L%HP!v:0o! t5xߊ؟|bD6=@: ?k7~r-Gq]

5y"Џ'3w!rn~Y_tpy?-8 pb|Xh ~!:$rdjH޿[< `yE3N̰>H @vж!#/Q4SP XRjP,B)PahuUgP( K[_ rV3 DgAdd *sxMD^B @?w@Oߐ.)E`K s@  τ P<:@'7{5eFA7oT. !#; @*hDe. `(P Xm^nj@Y@2b#k:0ATh@ȣ.8 ȍ$X"s|i@^H2* $V@%H%P6о stV}4P)Z(6P4cpp/8% V ho5̎"Em D^|Y@25 ?H/@A`.y7ХHotQ"@! - .S@s. \9!5apM}JR@T'O n$N *2`J~_?`#3*. 9n;PX,b`?J%(f U@apADnD @Dlѿ(@ qM6 K `UTqLK1j)5g]ǂ4PB!a0 '0(I sJ@?+W5nJ59(), pQ47 v`j? n#zBxPq0;4dK `fGD>4C  pI8tK(Hp4@GvAS!.E_Ax`Q{) r|@<.`X % . 0v]֠̔ KvFi. 10tM}?1E}( pX3[+ƲY@$>@@4p4ݓq]C .}tW$E+7ɉ@9}-'X8 `QT]@ jqS!?:,SWB&bY(P; (̃I`d6j1$5/q<qP#9ADQ44Qi8VJvVY8]73=hz OBhs`j~F {=tKS@B 6֩'a 砃bvR:g Yrfޛ7_$xh3:@^x~/ED8tҚ>@3R) ɎI@"[$ZTr#aBK ` ` `('C dA i&Dx~*kSM3 jZ(" 6z$t—$\z4%P?PZ5G*8!(?h @,0HY@ @#9[`#B0(`"-Tڡ9!,l^@ % `kwAd28 L +&t b%\Bg=c5ŧ lmWGeFv ` <%X&jRkP$!̰ZFdDcb ,&e P PS6PĸTZ(0"X3q1/ r8.[:> ^ 5l(H lkX[;6o/y1ysX(_@~GGwwG]{ݑ}}oZ~_p|cx}4ۍ-B'6Oۻu~{=px|!%"` _m~df6m}[|†sjzekz$ZgS$ZD 6Fk`ɽ@' ol0,ȗ\ 0s0p93"pn^nԍw`+^@3!eZB0"n>zz \ȝ;6X)ӊ v1@T^E| @vcv'qf._3.VNFEF gN-,Z;`O&`>2 lFn ۸5"> @8"4rGJ >P@Au TD+P[@]_d ( IP@V 8QOPgbM*"(@x6V$AߨL]fDwvεՎ̍QNF` H0XEWy0 oЊhdSEwnGxf&) #7I =-#3Ibc@i;&ݿS 6TF"0d~҂5y99 !4Hg{E@U d8AW?M_̄ 8 @bOG裸 G Ȕr@) $Q&? 6fR"j@x!!P 45?;XrGV8ĐAuk # Ȅډn`7 cyKP?R@\7*&`.5´@^P < ;p_,DT@-G,5kϥ4Bk`(ru <0YJO n,@|+3Tv A2ޝ `LQ@Pa8n^(0HqBMA@؁z])fEf@=h~dW_ P@I Bp #,݀$;b(@; /4 R#dBzT%!@ޑ8@0-6 5yjg0sTF/ o׳I{jW0V h q t<^} H5Hw_&>@Sj|qgwPޅ{M@K!>PGs]@#KaHy 0 d$pFku(+๿hi(4/@ p)d"`btB:  >pxC,5:E (mSɍ_+I|Q@jzOf ¨cOV&h@0 DX]hn@k1@WLa۟Uh_v rq٦ 4`f ^@?8Ѐ Hk C6{vԢ`d/@W0S\@l65#? @]s`hj=E@Z( R1PA? 荮&vd<J@4Q&#P> dx5 @S@VB##C "@P28 }3`JS @$0hd^@($r) ꄤX K$ (nHL@)oA/P\@]8\#+05s˝u0S") w.u `$ Zh` " KEF~6P]I# 7JCto+F^," HPu""g (.Fox~#T ^@}md"i_iX1E`FT@ASƀB@&Qb/kd%gͼ7?H)3ԐRL:@`*WY'G_,@68o2@hzaI@k p0 HgWJUBGo 4AE hGPI"%/lt OR`ya(`@_!ZꝙڈkTuξi/H߁x7`|ïҀ "Ӗ.9T @(xߊH`޿W;0Z.d|@P2 %3K@:hhR@_ qX>B]rF IDATrd^@jᗮ@_qIPҐc8aH``'c*`^@#z@Hd'n h"$|\@odA%pе fP@_%h:gH`dp TgHx@Pw>V2Ʈ)=~ .x$@ 5UAł#!kخH`"kG eJ@py⿨N=h]. $ 0@f8@`d œ- !U^@/ NWPʪ8Aߚ`k INwb9VQ ]T@{N/Rg: z#T4 L#tudH.P)ג  L!xO:`ґ׸ A_` +iP?PdȣL/ 0!B ~ HALXdK ֪R"Hj Pٟfj@^@H "\"f 5VF$@&0NKB" 'P< jph2K|T  (0JAQA3P 'ݺ p0 8rY2NZ`?+U83K :) $La* _Xh$Y@R@8 qijBJX`B+#P @a @qD2‚0 urJ`DB|j= )baQ=j& 3@8L"BWCc`DE**Wۜ@m P(DWdQx(tL+y48* l@ ( (dpr|UAU"<T:m?yۃlgrl@\@+j P$0&(H.;Dߕ" Q~b@P@ q})jt@U&䠸t=ᎡPOƒB\E 5ZPx]W@v!. {b؁*q="/PU#Vpef4[a`fkG=( ѫ20odx)GP#nWLT!#pAU""\@ ) @8@E!+eu4rh&Y& 8CE;r]z](35NCl1i,w'?a2e ]Aylw!I~-@ I\v>4n{w<~O&yu81&_Gϟ?aLL<w !3םWx&mv;q] hC^C'qs yv)!X?xn'=QtL,_wy~xș^[{n2`y8˞v)ޯvyk 9=-xs[^g u ZzȏBt9 oqWnfOdؽ>g77|"( : k0WQ.duqoΫ1#=` K & 6@r&GwيwaXn#hտ*GgVU@{@r]Z"s | F\LvnpFh@"<[7i; Rn\˿< i5x c?z _  05^ mƗ( u `zZ G(Qa0K,Bb ='F`OQ@5CѾND!sWkpWA"43Q a5h20E?gpUL ȇ@@P@8p >n/gL`hvkzpS@9`/-z5A ܗY$BUDF> y | E__BwB'8@S@SFYLRi 3.1 8B shҼ(v΁E:mp@!nr (h"bXV[q ?U4x2C0z04D$B0vCc @pcC٩@j zEf} TԤd䬙ۀD /5̇? %q'" ipnABH:Rˋr hQ |.s(dH4<8Cjc/[k=ށ 8<إ\M8~cq!sX8rCP4!6`@(z-"HFRȁd |5'mCX /u;9B @+k1!j/ d tE``G]h 2AE^@JhW"/ KXS`fĂI @>cRUz^ّc/ځ\{p? =v!d~훯 qwIgnK*IUѶ3,uK WWUudGc 6!/v,rWh 9SG@rb7@|+?Si/#Su|J $} Xпu]@][Cv@߸^ 00a=@DdDvePlg E$ 0ᚑV_~T6A+U@| 0q'\@jX!>򉨀wqrSJXJӼ2F \X.D@8 4hҀS(>YJ  & ~ <7F8b :M4 F ['@rf X_' &ADkW#QG[M] P;#@%Se*  -P*7+q *?p2P$} 蚒:S&8a@I$@jA3Pmڵ Fcq@[V* 34!л`(Ńd:\\497o\P(@4E2"s:нIGsP <"q t -Sam& 4 HdE\XqrC. H9f`g$p`@S; * j$'xP@X$8pPnb~@cH`\@s\@J4rm%lu@ L@F93X3k>X#Al |lN .o$!ꪘ44 @@$ 'TPV PVth&YXR$;#b@@@pQԳ@Dzf%1ƫ@EP?pE=q8@F%T268To9 9) J~+YzVt$aA f "`@ύ7h`\dq`6`V9}g@uA3|`P 5cReՑؾ EN  XzCWwa$"nvH`+#+W^Ym]J1K d> @\2 2Iȗ * A]. @W)wDҁ8r%dGf:`3n"1@N-QF܌F$L18D T+@VV.M.V6P rC@0U@PlG' f1'q][y/zɧ T/D@H ,`KB9ZZύCHԟJ|*oiZDlP%!UP97?LwA8܁] ޥIbQl 1@C1?F @ @nA/0=S^ L gP8*`8C.wd(HSd@NR"@\B&45 6Q D|@{$]tpܠ$]ި(w/k0AD#;\.p&:AZj^%t83?/'ɳuU-^ ~O֙NS~iR䅿/ ?we Kӂ9`ɤ|r:}/V֋7}bO|ri~jrav{"-S fuh"L0MZMRVՒV ~'mT<;ccoVv5VK@- 1㏫ZGnh,3lG>?{bW֏|CmѾw1䃛C|dKO!f3zmK~|ϟoYa^1X]꟝Y9Y?noé~o2)?|ߎjPx8ț0Y?nqrדÝL( 4=)yf6ruwQ%o")?ٚ sLI@c'"Y6[suv'З^+Ij=5ٖ ]ӓߎ :pT,z<pXIbAC 6K08wy Fx.O !LH$f| 2T{1YcA:σv9d VrN"@.G=ESXjղ@!P@l83j0Dž_z.˓_Z 1=( AP1ɫ|h˲me@^@}ޣ1&``3.94VЫ TeZެp\@>PiȾX `_8k ý0>8)3 4py4HD ql%m -aR"+]@~`_@c vC,T@cBйu:Hr>GDkTqv(Q@ʾX.b/fqU")# ie. H*KH`{x20_o+qezQ8E2P=J82PAr)mJ0u@``ZV8 +@CH0AW})W~g y9F7hm?}q8,wx!d'26 D>O+Œ-Ab|ڛrkA;| q0+.DDgU36[zvg25_}Wu&I= nUYa;R)r2PT7T\b?7x*hIx|N,0}4 6yg3G@*# %@7B @5(`lTh@@1upǡk ;V &t[&8PUC\#>` @C^I`U@.t)|l8D(F) C!.DhT@~@B-_ 8u$0)xns*(t$!l@5~0B `J+^ qt@N 8(4F`NSe!P f @~,P*AU@T@P8(N`(? ]&8 P[FbKP 4V1:p0V܏ !ċ>U5@FdU51@D Kʀ* aJ䘀PR|( l@~eU@ K h  J7PI ?B :'8cUR% IDAT@+0r 0FdKz = )AHN`W]p#x"l5T)KF07AX \ Bj(%P* hBr[?ph9 N嫿<XFZ$_,`! X bOmv[0!xHD-ZQľO@lv+j77m$KQHL DH ;H|@ǨP@>=#B*Y Fd! Ar@aprQLZH}Fr)vrc 4kj|F A'`@P@Aq 8bLPj, @! .7 P;Z@ C`v) r;2PR@ݯ,J qEa!>r ?X(@[ T2c@Sh.R,R d Ȉ@@T- RY T H4Pʥ@H,)h(F9,@5PLbؔ*A ad84R@%T MPMxae?rϹV5 _Ss\@oZ pAcPX2P?!LHP(`͘jT@sH`t0 GP 9 `|avH1.bt- +(B]N44d2M )#@F@ԃHdTIL- '`#XP>HбIԠ(QG:@:ENSNmhp. @-䖐[K#`KAH*ட`ZAd>Z$v~E.}@P2؆$DV1 # @ '4rТڠT?|UUB4 F0]P6@. J@hp-ŀJn y@ e &x8; ~Pt  ^T2}jj0 &@+@@KsM=k 42M` c!hX>gNQt@ d/o /H!" @;ʁr@G0(( a@z(#Xj?x;HQ qCB~N#=u\֦p_0* GJP9`'py cR@,~$2s|@ݞgΧ8ە`-=Ń翆f3ޓmDý<mWd9 6@NVw]%I{eV7QdO;7+_GL[?M6A~pE`"q᮸2H8O!|(׹VtyyyC-OO=mQœD-ψ*iJ?Kψ]zT-ψ:C5G Qc#?4GfFfgS]:9]]87*=+7txF֓\I<#I|9Yq_}>OI~@>i鋧O¿^|J+d/1+}ً~1x Vo= & gd, (O{x9 8/У$p^zY8Xu='sGz ^'C|-}`#|x.@PłOq,@#pK g @Z)1NaB@~ 0۾9 yp0)9}|c񿲏GE}DrD5SpP]K& ›z̝@bR@֧@Ek*) ˍ!jDa#|8B@ŁG"AWcgSŁweGw:w;)ۿ"'} @}q{JoE4UEGMG;>2@À恠Wz q>:ঀBN (k heq}k8o"",  ?  _ER\p+5wc2f4 R#+Dr⸀ h>Pv !PퟭR8p0m_:_p5I!wG=P|I(A](' v}T ( RQ10{WHD簢0̵J5@ #7lZ$tMfo|hzVfFfF䇬 LEj>$,g^$ҿf* 7T@|CS@a8Kg4{N3oT1 qB=*% }9И* p ^x @C[I `97 ,?JDFF04O!*  B hɃ &u !}? `[PJN`R ,c0.JA @> Uut_N- C?2BV  n}#X_-lŀpl?gy>p~mPf * r?tVg<xb{@W3rW ; =r 4ڟz[aWU)ύ6UH€vS@;檀f4 Fnد&D9.L p@- \ ,cU #?Z$b>> hߑ2.\RӨ:Gf5r_ȟlVT]2)m?>3$0?lctviA^* C;?F f_ UR/`@O/1KΫ4 l@"-,!L,@z: 6_Nzo|F0uD8t{}n) xt]hҷdA`#K  2@D jQ %00P5V w.KbϷY#>&ڶΖy=?oG"[ /mY{V4ؖyvAXOٲ22ֿ4B#/iۧVxG=oOvde[m{[6G^h?,#δC%5ޮ{xY|jeQc_<dGtzo叨CY2#u/k_/\T]_|{|[M?2:5!O!CǞ7?=O]dު<\4>| o8F*$z΢9:o^DO'hr lo[=hp u'h_߄AV2=EsS@科-#p,sd@ ;z2?6>$p1%"݋AVIZvV؋sX @l 8p0 x每 s xf5f".dQ~/է&b) ԧk9IЉ +sz񫦯rcJ)4( ߐl@@=싦nZjGFb/oRN! 923 r/FB0PH HQHjPÿJ9P@6@* țz/P@`*;Zpe2p5 ƴ[WY460 9P{#@ I9 @S։98#Q0uA+:NB?lU@bw* =<@1  ߘDئ(@99VK]8pL@|ML) 99~%$T@#\g<$: HXnAxb| ) 9/&j|0E[ta(oK `1! Q`\!B6,3 \ eXTr@VY9R}wK~r:,@&:wJS (I1.@bBȇ)` Pp\5 8>2)@ATGāDH80* |H@שLUF0:. 0@9w k?rҹ?)@th  R>0W/Pz7d}q'JjV#P:_BHuL kG@_"!JuB &mpF~'7Im 3-ENEZGxP!iOuXapMg+1f "@P7yl-F  o xX*Ei>7AJL0-\bF@,sHפl "(U@ۤd (@ q5cpOcF0d) \|̸h@ ,}sd_uz5L5ЉG֫Uj RLp$u2D6 U@U8,SckT@U@Ma'0#.SZR'j毐@`xG@P-L@ 9` A$^b#µ$Z@9G@ ,9=8#Z*$P V@WSЂ0! &VGS@EdAUTWm%\`8'p#Y h:t$ ̃>2W@)L L\8%&0X@*"> J4'R`tG6N lF}=`bEG@koykZP[:$|- ,S-S^<'p+] 8>@W% T@ ,(daL\,Z4$,uN9Õm#E:[ 9䎈k0x(_!9C=&ﲿ:Gi5-gE }V OzNHg^0/JzZH+{#dH K}ʵoIy_'YOuόwM QTU38 r:} eأ<翿3-iH;brg^;|BY 1[\fƟ/;w9s-{wv ,l\ _ܦ;4Q0)b_7FQ˷9=AHvvI[k+JOT8Cb`Sת.{fq8+߯N3 dŢi /j{i `hT-9ߜ#~&? DhdL!/U@(;JqW@[J, `X IDAT|X(o3K>P0\@;ql|읳 `u_i! ΋b+sRG]@N*j!b&-($*ިk B$܉S%hZ&@e?q1HVٓ"`ba+=B*;H8$y#piA_v(vUWkGPNwuEJ$T䀂 Pw3`Vr –A   d50 (8P@ .H, +)QrOY]@wIFA+x/ύpS1.g V]%@AEDB `& 4qUTR xU ,hLХ$PqZ} 0 `$bMt_-h , S ,b `N5.Tn hh @rkAVPh"++7MbM5Pǖ( (8^re\ Y@@-X@+UP &05$@p*W=8l:`?%?GY[|| \~eWrW/?W7;m}n .{8zl.l. ߦf]@l. ӳEzm`v@d@LU9pת٦P  `7@@ @$H$f7 B bEm$ԫ@ ((. 1@ 1A`@,J? ll,|牵}@(D . dI$f!. H8(,`ФSIcw(0`gʌTr@ @r]@jqP 9 @*bY@  W,*k6P#TpBH`Y@,@Չ8@@CdO ѳ$Vߏ RHZ@/0X@0Y@ V@<xxyLá3 Ai8RSe?aL2L3 AiHgZ6<2@# nc2il]G7p|mb$~Z: 3f .Uy:`̽e6_f[.gIgr1s<ߦu2߮qv$lL#N8eo̧?=<Z4_a:e<1 ٔƜ|^~2m`P0Vjӳr T]J >#h [eDp8 @m3A(^ @%+V05i0yq 64U=h7GWK:3 4 <,m?@HC9M8 _4$DM3toWY _ԯ=r60(URr@竀FM`; hxfs zSA`L'Bhx* at7?b6fO{E1(f߳lCEQLa ߿FsE?C~*wNGgE9B*bˑ'?2 HǟwzםvuUP(I-W<p;nEp_ B@wL+]c6UP%ݽ ~T^4P wݫ>t@٫B M^ o%.ЈH6'\HT.TB-)LS@rr=L4# C_{WI x@˾0w7LYp' OЍB(8(p4(i(J^wT@]կŶ$% a?in~^**,a) U-j@__dj>9BnM (ҥY=cTo U@Q+e@M_J./ݿW0`vR5k4d`@o~ *,(&ؑ*Z/oQ L4_)^MxB}p_F FX|ԀdG@(tQee60g]aplTFuVO 9 y?@*Wf(c ef@Kor7fxos /X@3TA)\8S@%@ lG0~ӫN쀤Dx K?l@9Z TU Vu]`:(VO@+3O V`GA<x7  >L]@-ؿS0j߅YbT `v 8Ppq0ځrЬhcF$qLt/!@MRGA*tW0S@a"tV,`[='``|FV@5 H_(VmF'mLH@Zz8Xx Q;R@eHO@ H_8tS=2 F( (Z@LpnVǗ-zPxow(UNh;p X EW, ׭# 'M bUk Ϙw5ߟJUr,G7w+:H9 y=`# :'>7>&&ϴtW1y3F(E 0gq08_i/x6i2l}g(ø*f];}'s|F? * 0  fKxs`|^sDKQ,Jop39t Q~&p]]p߅vy n\V8ÃҳZi/VGQҝ;.sY@@P]UO??4683},(f .tVIGTO TAa@`@ r*,u_xݚ ?}h6sHٽU8]03}* uy;`2/:lP0|0@WN%(Dj ." }+3 n$f0kP?R_$ϾAf3P_* LKAمW/( DZ0,e@=gOH*ǂdշV.X&A?Im̴CI L`i*tRP>R{BVRT@lzR;cS@s ;R@p]g:0}Y@_q]`{N2 }pz ⴿ*R?Ojɣrv < Nr ,ŝqCc<hq. PN {̫C/~.F)c]_\: ;MuSJ9\-`8U@ t/ .$_8Lu,AK~P @fG0F(r!D*&fl sH:x?3 dOqFcP@@*<4tkz'5A&σ FwjNP`\3@:WA<Æ[V*n`R8H$śH2+g-Y3B&}k[Ule;='Byk9?Z&jAʵŰ.̟>~Y@ ?2 1^?%1 &nG…KLY6[YŪ5̳XR*}xΒƞG-.3gQb.~ Й6s!~,ZkpEhP-g=-\8 p4{(u 7@89 "Y"B>f[:$B@* x:|o"F 4(O Mvh`>܌U@54!Myw0-Js tsk<& l_OcPgO>.Er'pP$h\G*U5LZMQRp}*`H !&8; \[Y7\n$NC@8<:{ Fո\4h\N((prI`'2["! pRB@m >什08?tq@ N`ş> Pr9៓Y@q}5(Pj q:8Q6ԝN`k@dh2PQxt@:| Bi9u Oj<;69ڑi7bHs8k@r]Pqd=I lfNf) @{jй> 4P+ @τnY@mʹ lط/Ef4%ͤ>?&| ;x7`hxgG0+mvn &IdtK`'0y>yzg!l^ؽ?Vi%kՋy_to1s]p~`Z` #J azGr]e8ȟ uN4 KB@9(MgٖF{5Gu8Ys!6wwwC {AW@9 k,'壵 $0:ͮ?^ 0N@/dFլ; Q/ rXq}p x@%W ]`7,}~3 `>#< Nۀ7WkZ]yo pCp!0<x*|}"|@jz'0|~x19d`Y(AF@m>Z)'NhxA]j2pa(,GEiu@P" @ p`Hn^ugjެzG6LWj|00 smtv.mwe ;7d)t` pt.oH*@q i_sJ> DB@Q'۝9HgQpSt 6*@u=@4N XN@xzSWI[qIDAT@-:x ڍÀ6;;t?sPfܐscw89[k)A:O Bb]yQPEB 'SX(楐߆@ _& c_w]+93@ =<𿏓0:K&hЦ(?"ssmdlhd/9֭A@"0[&`7v[th'0 "2m9@` (Q(n(l+ ;$:P#Q ! ׀8ַi*+r3v*(@ rs1YT5A``RW~707p斐60`R`sQ (est p?` T8o' HE`"p* me4ԋpeXKS" *YЈ ;g kYk|SPB.d_c0kB@D }Ff%%2gT8Y:d] q@Y PV CtBf&>?X B8_v JZ~q3*[{JI`:sgWM5TPHOTF..Ua`f`Ub "V&UFA#X9:,{To_Nnb@tj `NPe Am+UMy9s>@]4 4$0 G2Ф߳OcPTj*.F*n0@O N60oV `Z,N W>+~=LŢvG#pA. VWW…! Y]^1B@7)̱ڋ:%}ٯg{jPQ׼o~<ڻu)d !Y|0 B3|q,YMEiԩ'Y%lW,tqK6s4%p; i?O@v)8]@~@,&o<8+ Ѝ1 kJIRRdVƹd1~: @(5| m~0ki-'nS@@ ` K;/XNw@@(*r~pBplg < $k_ b2@>0@>P(5qKm5v8o Q$wO;px>B) ul<&y Do(pz>5.?`|ܸ,¦mɶ~6=\~_>vy) cs(}ˮ0fMbLzi!Y?;.1U>9̧G>'<1WdhPI_4Jf^ S@4~Z`z˽@OxPr{}u@v>j@r{P5) @zX|ٟ"0@5 Q4qZ@^@ `z*) `?qn//@{, |o+_ܷ]᱗ca+}0y? S⩷IENDB`ggsci/man/figures/README-ggsci-locuszoom-1.png0000644000176200001440000007445714570505642020541 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$WPLTE7]aAϛa)qg@E(wz&FV}8zm<, ,?O@ީOb\FVmrp|S'oOmi-2diC@kO؈p-:l X`E|p^%8 " CX pO `-J N;-pk`<<&D! `@I +`E?9Wv"A ؤ@ r?9Wu"C*aΊ-qor}1Th蓝C*[|L?=8@h'YjNl2lVWt*UUlOQ UZqPMFڤ`ܷԳ|< G_40t9PoJ']xNDy]׍Ąq{5W =EH; JOZ# tgO_*?ջTUrϾVj'@S[M`k4܌ l 7 D`XC@"<~-{9/7}С?ٵ%Y+uGDtg?|D0-wI_ O8@wLPNj&|}_ ƙn P ~ 8*]wtrBuWc %2:jRz#L֑y9d.sg#ks<J*atgy EʊR鯩 p80E֍=s(.?\k!+{wh6M31R5sl @_m}2W &O ݛֺvnHʰQgFܪ$=7#p^Bb6PYhu7ӟ 4FZfv/^;8@npBAp퍚Q6 u-M. ˥ps$2x 78Gx7 bAVWοRM4sp|AKDo6$ /%Cw9$<ǛOou@Tt_OdGI-9- ޖ`9-`TwgN}4{|.@ io'H6iK@nqP9n[bW7u:ȳQ5MU @"g$z< <% 8BA=3tNDd_[(&UEG .WIz_nEpyꝧM!@87>|!4a0F_\HFn)_/='R|o wM}]W2i_"1osI\>׵;%\_B>g r4MI໢|KF0d@{ )];޵g}x҅ZEE˰~)\Uf>Fc&q}lƙTp+n$MLh֘ko^l 4觃8/])?dº'x޹ `P`;? W]NgKdI*{}H鯂`7ٙÚ ݖ1`0ϊ]34Q\ hIy @ҤPEv/?ϱFl*4o3O@1;nlvW8gDJ,lnş@޺zѯ_ 31˿A`@ 9^\GT@Э P}z yU: >-^u9( $j4 C|f Puh.Rr"5r|S*V{t*OYR3e [B KlmRVCӘtn9es!lg!v^ܯ%BHnzޭq0N]*>%omcyĎ^=_ KFe:”J~/́¤~&l@Ud&=`๜v (l.3T QLm4~7̿XM9?>~&)X43S6.%^am<,0BZI 4L'dd!0,3Ĩ@1 |V`4YɊŏiXJ"v{PP4*<4v4XC?ro{p Ii   a?+U+ `1l>/OQbgV.Hc@y^&򻃗B %sM6g(߯u=ȏ`)pGBPS'vcRjrw1a9bu1)Qmgg)v. G 41mޮ^'_i-=, ?=e.an6R,DpvޜՐsbK=6Կ1&6+^0] o^m< `OMSkl `  MI> W9 |rZ@ @8P\J?TGJX>N&X/0( MqnVߺGyT('wtH "nB7"@z {gNl=k\S1H`WË0 }:~u`JklߣQVli   ].iNA`eVY?Kg93R | .xrW*i@+:-%pEOm4H-O3Et1J_CP7 /|M6)2E1RH1̦{C%7hXY&Hx9hU^J 4g`+'oTCP:] H? ٠COeGTa<+`7XgOI>sDCL. o7?D-Ra)oh=g*E3 2RMw `W&gWB/ͥ~n Ȥ2U=* -, @ b@>rί.Nj\bQ>ش ˕? J}CzcxΦ)RluC/ס-rMP2gRm=`pk[w{~5P,d"2`!Ϳԋ\UYV\f<Zlٹe` @ |)X%,+W^1袋7?îzEpӹ(ww6V郐9)R |vO(% aևн:mrOXK٦ٷFZt4~mŪOeݨmxhq|@1Ra@GSEYo,Ǻ1: PGK0 Rf*3Q6!#3-(>kI )VV>R.) Dl]Im'ZUE J`UؚuݣsMX+aWC%0Q"`X ;b-B}HԢ-|[}#ɾO]PT!Go+,=,6*,vM:~ B(hP SxE b,fX"ƽYl EAw"@)Avad)0SW' KAWEMZ*fv7Ogdi $5 r6G./Ѕk IDATzIpHs ,t.yzBjQ-g{].Kw0lDF8D($^/ܛ 9@ {Ե7R (Gc.i `yxbcx~o8*N"HlqBDo"CX8 ul(<R <ߛ+`N߽8 Eh̎U'63t4ĄiDFN0ݓ-ϴvH<PW}wprP@n]0&xm"r`h/@0ܶrpDF 4JAN`j:KH܃> \NjS:ZCKO VJ &P瑙Q=,ވ~PO`ςh3h2K *UH0yUhQzRYH3}\B6P +궽mR0@"9ނD /nY 5􇫿]:Є~f<~J;R?ةrB 7 L g۩x2Ճk8c nj T.[eqIɤzҰA &&\]*-̉$" 8A @ <"QG[9w&;{9y_}| )|o/ GfS45#,p0Ske @$`* P/bR_O[#C)K?PnIJA|QwH<fsٯ( C/IL"LkO0%2 (e7*#cX ei׮~9 4)n&A_UdSI,7Y֏g}|눀aP\}z!)":]"@ݗa"Ϧ>L KE?Y?!m,`)39AenH)RDD% @baV$0}~3_4*T8hZjk_4/M .m"Pl O0qgm5$ v ֭'"s{M#af3~}JAQl4][;W'|D;U $BL|Ld^L^Jq3lT2$aB T a\d~%1) *I'PB8ϗA.ΠaO @'/+P\)X<-w=ܟ={@ռf/B~~n Vz|$Z7<ֹ3]F)Ak#g(hdh_U4S}?\4RXdBD*#L-poYFa5PiCA}aK3I؍< \} `uc< " u^2+P<_&߹ÃqEf9&#PU3n_]k4jS*4rtLCTYD\p.  zd𣏕f%v;nmUI .ʝ+ ɟI ~2s~?O k>ɺlݓ^ -݄kC(,בVJf#_-GI_* \^0VanRư-l K |rpZW rAMU@KF?VHzIf.r9zgUf!ֺQy[ Y8(_/Ot`RQCB7'Q|vyw\㘣V'0P&wHkapk74~g"ub\ВF0xܥD语B%Tsbp|T (Iu.`P];mEPZpe8oG)aqχ8;~?@* d?×PïA#E7hS n ;W=?@|Ռ*>Xq'`N%k!=fMhV.ϥle)@a#Pv?q(fֿNOl 㤜$h _^:>͝eS4tHgPOS8}(q3Ɵ*noPB@8f~ 1M(=* IrFPH2FEUI2q *+j5!`UYfjGh 'O AIm!( ုW&m& AH/[u#p5 ˄4>_p{@W54) 8ac&e(OX682W23HsO@vz Ϲ z N~mFߍn\,T-K[Hῦn/oİy~1L˰= э`f8jlS@Ds @5 /wwQK"Oe"w!lX|6j~5>4 diʻUwzؐH /'ߨ* ?2emfpêNsf&[0N?yPz5@Dn&+lm|0s;ۯutV`yS Cl o)ٵA\/vA|[ڞ%?To>3tB@8enz n2kF0:,^\ۢlTA3\= `2Eד{:HH lZa` #N*qRkoK@tۋ7%XAMn._ptehܵa=ŷEz$h@E=qq;zdh'<e`@b 7ĂJ]@%*O r+v ܊Xe6U%`j|ʓTXKs}@{?S4rO4J^LAc+ z 32oޓT~$x[p﯍wnˀ<pfx9_Q8 ) " tP#?ZOuRAx] ]#]t'pL'X@!{ ี.ow6&҈UmA8Y_H';~+1;KJJP 0PަR$:5?L^@0|dyМ+*$${L2y[ ŢS.ʩ])PI㫞y Ζˆ/o48Z1j&8tIy"~f&^hU]((ONhrhg{TV*$$L˹V^;"]E^ߺ!Ul_MRםb1,i6bQ0CnZWI*CO* 7g~o sx&x˩qr0i]N>U$c./yYP&gY=_w LI8j \7m#QK5(h@ ox̛Ǿˮ?QTHO@]qc5 sM~hӿmNSoKx^ͭp~,Tb8&fW܅h-*2GYG)B 0\ |Κ/::FKvT,,D`!B;DϷAt FdZ 4@ QW0Z!0 )[i? c~`\5# Q |\eCޒVa9sww@~A:`2q^~#j$e$mGpI%4gx!p < f!mSN˂, 3Ȇ1AǕ-z~Hy񁭃P<# @1F8t:lyrIRv 2"SP hS$ZNᮆ!99@4ɪئ(Bm ɋY8YٿQ <(`b/W٤99_.Q9jx}+?&d?(Ƅ,8@@\ l"QD@ @7/hwtE@@ddNP#Ax>gp;hLgl"4)k^P-w @ ni6, Pj/yq s D`k @#PmgOc]p9O/ ~Xn+{&Y;m e;)OU-  K0ip&~]_EB# IDAT7$.r}b@<%.6oipPp | r`F%+B\i~J3 u )Kt_3޶gm"0W(%y! |`Q8;hLGB2R۫IOct pU@v}]+B"0B@2p>7)^E9wA]-56K𿥕}pV?d`ocea²OO|1 \ILP|s;5+I`HQ`zѻ!8%2+P8Zq8cYn@0{;UI"A  @!R;GV(G!g\yrQa4UU$K@X:Ğ !Ն£@x.VH,j5-.Ј+,~.YRi|N8 Q-a h(8bЂM$=k&p9ف sOK⸷>*! u-yap -XF p.k ӽr*=^%NJvk [C˶JP<+4/E3lQm2{ן\9O[+"*8+|GZi΄3|31h'cŕ\D `I 7,+c0@ թ?i 9"ͭ]$`@|U|ĆyvBE *+ `>EN`ga`*} `HrE@@iHi_mS݂@!QX @{ +eFRE9$x?ߑ65-FX lHP]y8wFH[R>ԭ`xf]-3HE>fkZy-P 1n BGOcJSՁhE ۈv|dc33qê/_pNάu%1( ͫdf}o\ ~Hx2ٲ 1lwMAZlG@O$]RXml@ v z=j)E#x$ ȄgDjHF`,ջuGƘThqA&qX%@"DI,dMN^^m$vAqx?h",Y~}IV2(Eߖ:6# " M $,8ߦKr S)zG @ÿ-<3Y3`DW'"Y?@RJ:`&#xQ(2{6HC a?pJd$j&98Wp:Rn[~d1i/0.Sd8ԋ$H `ye_^̖ڛTCE i.יW_5|I/WEr K>DXVT򠻹\##_&9ЃD e! !2€(@$H  z5R_?5CjO稂v-`E)&cF\ڦ ݢ&H&z n7(?I$> i}x.{a_`H+wH܋V`5]6v)oq@Q>`<P)řd|kYMw7$ iu @lp $WPvK| [yQ*.EKTCxcj߭nng13eR>(CememB#,ۈ[HN\ aOIj}2*@ڢGqǺSۯY("2+1.w~Zl~rfCɽ 7WClWo@YQÛs~ eBor&}TW&`'t˾9o56udaI0qJ )RϚoB߽i!<6PtDD|xO~ix?/a?!#Xə0)|ȸ"6i"EPgp;ϝ[awc|}dY?C~$k`Ƞ+2NE(+j^h|j o1t J Ǡȸd`ljɛSYiK=م6| _k]?=|Llz-Q㍨fnN+V&Qxc$E; U8uL:T6_yzߧ~/1w8P@R4_ SS|:Xm76@%Ґ [Yuᑋm G֕^w!y|oT('mb»H 9 ΘH&ח{K6. A㖵+QC{'yHkPgl,ퟙ|`oc`ͽ! 0c?w=(3ǀy]S" $ÝE' V PzսUS?Z @mO8, Jރ ) 2Bk̃u'E*}y'׀הY/V78ڮd5ЉI$p5*(t- H (FWb"m0L,>8;M*X$mlI0tp6MU|zjBIՅ+ue[ `%` |18T$@@fl݆VU٨9@6.ΐzbez-Gj_lݠ(eN j5{"IH> 5)HXNR18x@p4AU8 04[ C-@N~@RI&GX+Ef@y^&GpIo @m+ʤHDml# Pݯvm@7*ʥ*bznҗ2+NpBQUn#j.GÁF)̍@̖&S@" `Mm>F8]+}p Bچh82)j4eI(L*|o"@RQ&!cu>`@X' W <]ł#0! aY$@"*#W@++4wLW}z}7(:@/b;')x˓H @"G))cٷFpt YfR?k#8 `g0vw(H @"4/6àu.*m?*#)_|h[: h9FhY(.0ޕ(& n*dF0j[ErP&vyy&32a-X Х4i̺"zdU:U .Q)'Pwb*#|0 Rv[aP,=ߩq˞)9ZndfA|#F xfX.&Cp>IA+u}:簯@c颀J`Oɍ1i`饃&`F'7Э21͞˦R5Pxzdw "NASFuJ$]9;RᯆDSAP7b7 Pk\S S5.ڒ7D4<1,0Z)Z02dduՑTE$t TTu uEG`AP x0 HYۚmꦷw$2PxRX߇։J~[גlU%+b=ae O@ ^x0 ȶ]]EϮoS`{k@2 `X)܊ D#ynf)<vpob@.Px#}A0WFA cEc6:A⋉)TPjVU&%VyE_6FrPet,, Y? _5Aa{wCߤ3.?/뽄<d$ܐ&11edݳ(0MAų0T'5* 'NsSiɃ` 2e r d=k> 1clAth띐ȡi5NN`EVfй0 2^Bl31bÓL&J=ܔJlo=@YhY"-X: t] {@?G[H\@QӳWw".M>_+I Y͂0zu^e@.#x|R33@|2*NRŬWD7ߩw[):hWG k%ZI3vr}6g#0 dz g1rg"[!iaA130U5F'y|́gNq/L= ]Odj?:Is ͜g' ?3]qs\¹FjN Y+гGlئ*&ڲ9`&gz+L.]@F 32dorpcćO•\ H/3IF{3+@i J<O0AU.B_!jTz\i{ vd2# nR'u_췖4ovnGjL0:f>_s*>:b[)<Vp?X e2|| ro$x~}k~2 i^`g22R`s6WPA/ lk!@4~# mYV`.  0T` HylѥNI‡@<`0P5O7cXH(.__eza&~05@!y+2୵ KP=]*Hʮ0>;6 287L^1x[->v(P~z;@Dz  ^٬d~kGy ˡ2`%.uS֥mh2rh`~`MS)R\'v`vn1k I7T^69|ʢ8EvD`h) *y8@ke02" p!qs%{ =;YD'd0p` B&=Bs%]Pu xmgC@/hm02p ѩr4( 1zX׶!VL9B0\ ê 6 g"Co(BF4̉*]6P z>1Ghbu4t ej42``]@\i{z>o7.#`D 5us] `Vb2X7YuŚҺ0Ea`KiTmIP>0=( XMR`7Y 0Qd0n0Z@[K%  m XMji(8``&`(uإҮ:P[@! `)@ T7i]utk ~U @2&K5R;OӄU)#<){+2"s Z7]D=Ov(< 2bMv&@তS|6d,0P7 ³  p L)Q ,d0E' NJfRxr^|v(`;1d;Dd(u x 21I;~a{ n@G  @8@dzœ /234 b @8@dn5ɊaN QU!.[&L6oa }@_^Fc!eOa V{$ '6Ц rR>e'@0ݳnu== //߅xHdOoaî7lBK_\#`&@e%9 %>! d"Pu0 B p)ZE( @p'؀TY"3J }l]8a cucW2`F2 ,2Lj m)|rkt!y7C@' 0?Y@>! C@ X0.] [:N~2 78UfY@nq^@0{KTM; qE"%b`r@>(";~G\?!0X3 O6®@d QyW|~7ր? `)~p~`.ny#nw$ꉾ' 2Ts<l^4sײìR~CzPI]@lT:؈R9Wk?ԛrM=5f^v{j Tn.Is͠(vozw]ZRs= Q0߶dsAATU2&uNm&5{m>=O}: "`ݓh= o3TyC岑h6jj.]gf.bamkxpaOsir3y>mv 5\3sE*?Ӈh~`'ﴻ%/Gї_:q0p1tsK'[ `B I,Ke||s"(V@A)2. dd d2@yu;Dc_]HK'pI?uQt2gp"uqt2  DX:#eJ{(c +e2N)UOXhkad[@&?8 dRK..#tiedͱBWF%#W?OiT.kYTk:U+m &Uˆ[e#.-Nڭ>nAFҹ^2̽XnV [6CTY-;nx8U8P7lC<ݡ݃=qBB!@!BB!@!BB!@!BBO Y1@IENDB`ggsci/man/figures/README-ggsci-ucscgb-1.png0000644000176200001440000010245414570505642017742 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$PLTEgDGM321?Ό]]]D|4-ONrqrNL.)"KO|;w-!%h`j}qk\$  H@$  H@ӊFU%> ֕Nq.H'@ ݵH@H " &"\q)-Jp D`a?Ac1Ew[ wN`x3n}q.I(lÒ%[ wN`=tԸ۟i_jp P;4ΰ_,ypW(5ݦ<״dGG:BX`^ۋ-* &Ke:?џa}|J$\t 癮"0ߏw؎2H~0ijګr:X>jV8py."x{Wŭ^  p2NÎyӭEV"N_ JH; $`Nә%]޳c3p{)* 厣gi]z27&`dO8s˦U͒@u+ZZGZlyvk鉫 04z@ֲe &;u2`XQ?Ts~gW(:7Uq]vkD8O4MoCa ZBT4U؟?j&ӝ<ϵS{8 >#U<"' o֭?53WFKwK-L$d2P/F>t`|> hL7A~-yK{?hn8*DL`v t~+ odcN| 1'8`jf"hrȧ t^  uLU_"r&^r]HX_  _f/ҧ ̄vz}pކn[P@~N7: zjכ P61z-x^?v6Q @bʃe~^ `zKst2βll2 |r @@ T_Վ/t~}}ճY|3ݾx 8s/`,0+/.^U_L?/+붼Ru `,{yC@{KŨѲl*%8>hG0"k 8/8YN|<<4 ;s~MH `Gh^{-ݏw6NYI@=~s38}?pGKlh\Hl.eit2OZ &'Lٸkx.SD0ȍ8^h,@Z۝h__qv'!/ƪc  r50Ay2yr#&@Rb'[tW|m>$ߋ~kpF }_FT7Fp wכ @c&6hX @:lwMͳa4z2K) n+[ %, I,@-a]We9Zѕ.uoq&c%&2hWљ ?0/`sA88QҺPTw ]50~Э~r /j9+qHp ^n1sWp]/?WުOs t@AZ ,*膀~,h >@wd\<-1HE^ L_GI`=h\._"-ٽ[B.pUd -2w1^/t.R%DQh$i&Io}=m7`/MxU`qm?F_! /{?~eZC) f\~Uh/$ $khFR0ylVh\}7)0xn /M{Be\ @y/tL_zUe@Vg"~Q+w.\j*IU=p1cql ȣ1ɽ[ A몮G0X =|Kk>@[-gVj.򽒦R)*/}dX_$fVg/bdU; zҭPq_EcUhE4k|- ,L$)b/s`Sw_ -i'4#ynLLx D@5P+Ã8ZqE@+emG7"QſG,z4 T"-V?{/.vк w\(AAKIL44R7УĪ 3=w>J ~ ` M̃. >$9$vYĀԉ`#Z@"d!4- Ī~{.Y Y,Xs(a2`MX^X 1@n ‡8jHT] ~[ v[tb5@x23:V y@Lj0}QM'>e'pݬ Yt|/_%SjE_$x&<~5~g2wnx`D ZP_ۦulJcTKM}pKJB뻰{ mHnoe4|t:jKZ'_eww[&Xx8bvE`SVB MH8`k~SNo)P7ƾLSwA!"]R?[LM Zf\U'"ь,ü+x5fER?01ǎBLtY碂0J?^Y%2p#Ie~J=l7$tfC 51!l֎8$88u!zѨPB{%Ў`PNm`xl cVzl3G]jo PwgX8\q dKJ 5"Q(Q6 'N6zZa!CMz["~j_ #[?>'h 9?M1rI'K\U8dQX>jaV DمM3o_m xB CEWLZ}0;8%}UEuT-gŖ;O۽IY9_F -x Zж! w_R4ef$'cA5}[}?J_^akh @Lf:N)@ S,4}o;V ၇fZoP Z*&ͽ荊Mȸjw1 }47a ?==L2at>`|*? @-1oK*L9E?G=y|B BMv //0~CVV6wFژaggl+eUu5OdHJ h@@k. Vo2?-nu&paBoZfNG'<r=/~'pu^WzX]Y]ӞɎ [5 8gwp?ulbm"}zsص,[ 4+B0+[bhWi2—Ռ]E,M m[\n6 (p{y t&AkWYME.`nxFV(!d:`@s {3C==<(†o!֯n%y'^0I7/?{ W5~6si'>YZtigJ '^^E!ri z +ߺڵp2!>,)7_t~Nϴ]߬@xMn@UE(}AlG]hMWuV;>` ۵AQ'm@#ZXt i<YH4^\ŃX䙶~È1 j+C陹cI6` Z' f;eѽD]L0@/RWHS?}6={ϰݵP& ri% AAq(hF`:5]JA ?dV.uԎCcLWQ?U5*cT,.x<10hsKPfbyM]Ra|J)fBlsY-fտ;/ch1~  uH=+ϠȎE/f S ?xIR *UkwD*z١0 w SzxG \p6.~3لi\v-HC2CxQ]<~(T;j̜{uE'k C@omM 6KjxS%SE\w)_)?Vp{u~s=,?}Dϊ7@kwY`o ,Y?`g|ę0n ƭTH#P'M?۫#wDJ5>ӳ=,Ni STjfŷJjVhq/)Ok7?91>v0v,=ψ ,>5f? nGAfA5Et `I+63;۷ݸ/}?4_\?\ ~9#,,,,>"@l?\3'C!3xɌ`Mzࠖ4¶P{Inv5` 9Z{!\]9",,,,>-4 X>ǵ$I8`^`rc+8zޑpШKK 0#}R/ `6>|"8rL/Q1Xժ+<@p>\qK:~f^Ko~ /ۼ'q A59>=!Ox.0w)6:)U4D uGs+H267ꋈ?沐(q^w KP[ ^$w5WB;H4@%+W90X- 5wDj IDAT9&|@a_nD8yWZI(~28Uf3#nKS]+Z <1K"4 ?̯\c&[K(AE] ?W6pT;ɠEy{48q Mwy}\Js1Bo 7hŘ#abWm9wWI!^<xeO[pd`v0.݉6m1 fA 1 Z <̣aA_RuA!./Ⓤ,P@Ab @ ?H_&n\~/~,ý= lpd@Z+@)ɵvE *ӰC`H'1iJ= Jj`DV]G B=@>~ղt /8#,,x=?`0b9^P)NifyX76 ŤJ{P%C~RS~̲ZF8įue٠ǃػ ! @Pa?!=$enZ<]\@ƿVv"XwL eR?]cnt>5h)Dwȣ)`~.BNA)u ˿XhR%a<O.CNSFhvBup ҄R H2);nj``s7^?<>@u9$ ՝b4?ZkgJd*>'ZAC3PU 2/JzJXT϶`rpB@s%rFeh^GL OV?[RDFr译 D:~僯2Mj _gp**3yt:%1+7WOR?t_>+Qn7[q , ź7(;gb?PNXXXXX> <>^D4b5Zi(8'-DWWSyv?>sI(RhhʻXXud!뇋iZ退=bI׮9 pP35c]Ī+ Bcb0 $Rѯu?$D6:򑐾l\[A 3@0^g]@hYZv/XX.U? sHɮp3UIX`mآO l¡QY;={C=쨰LH}Qc3:hmFnU ^jeJ Ʈ eC 8@cv<@%_Qn}T&X[[;bTUUa7kJqWaSS`dJ28 :"ۋP߻{.JƗ*_NX &;l Ϻ"ZAGש1zuJ6 B`z L,^k d/Q) g>mU>+\m_TFNYU=mj,"ѵ+x,OOcxxx l8@x7\?N*|H/K%Z Mc$йi/bKBjq_kz1uD]UV@>%`w`z <<| lsADb-´vO7u]Ub0Z_@S m$e[_/e_[7 5 @l#HH _aT0M -Py2:EIE UC mcqК NB`׿.P8y&oqNi Z73^7ZT 8o @Y*uK +i;@'0P:o7ۑhVh()"ZuwQc4fA9 ,$>j$vl#B 2 YS7y!kWdZSoJK1dYf 'HMTLM> Hۨ/j_/.WZN ^(O~^ .ɩ:)&Lxa@\ĭpJFc`t ƂQK[gf|Ёמ4o[ pԭ4 äӊZI)g B2ʜſ攊".TɂJ2 _Uֱ>pwyD|3曽cHȽPdz ue:0h*͠X5':.2_ o5⫸jU#rUذ̚th$Xh] @p೮1 fNϒ(lk-`/s1PňℱF^dA~M9gYp}FOƙJw -ըT{Ŀ/Pg" \wG%\|߹<k-@ڽ=bסX0wv~ۗ.qu;O3@tLt=zШF XR+B@N_`l|"g#dqD͜Kz^`Y%f=F wpzQΡ]<.ùĭ+$YࢇrGdM |I\Q6u0+ݵ[ab-^F `zcfaDh_o<| ?̷f=t [B17[Rd 34~@Y]oi ?dDL>([5: b["Ah0- 0P <u"~Bڞ%[[ ϹG,Dt't<эܭt Ź[Se-ڤ\([Jy:@mjҬ6nqYᓰ ~:>!@;+xD /ҏy6|`ت6";%s @Y}D k!:DŽI$ ?8H"r9f]y>@'6&zVgcxHSLlλzeΎJB^  fلG)> [F%l;r}?bH/f=$`+d1wNX||~@PЙRI_q%nwOc+b9&[U`v@vzXYsHuA x[$|F%?FRDiUVkR?JzQ>0u yQ,ll $R(&72=| ! Ɉi?IC!0 ѫ*翏l 9pu*DLw>~y|rx5dZkz@fb* ZWP3XѢ!ʱw*{E,$LsW@NI.Nƭ0*n"GB0= *+#ޮ뫉c@TmΎN CB1LARݤpBL.Mz2B<6/m9'f_ [w_1QfAve?afu @i~Ev:?^FeZ(fBFmco>׾InKzsryy qVgY* XLpnE`@KmEya>\%t Lxa,z (OQ(?5)oxൺPȺkšQ-[nWE6 }C=_(/f\Mظ`@UeCڶG5/*^>EIeV7+jPlD.a;ʔ2"-$ (ˊ 1@ ćUuڧNuòWvT'0Qfp|,Qn!?>G cWUq :|}fJξ`eJavJ>ˈ vq˂z;M}Vb " [C GV F3@ yy̳$ޡonU]`M( Rl¸,#e}n;nB/W|_~&_@% )b/.ܟLyO_=0UHfAr*Q Y:b x4p%Ь+<1(/0@q.CE ,pqcxk(CgR (I]32 Қ)#M_(B@)S?@GeId?,_0-M6^.߅49 , @hHaxk!s(10@D05X&< i/P=Ej'גM5vgUg .E䂦ARWM˕D._@76mp o="I§y^~ h!_lۧ 4$ V =ƀxo4Ct:i|zyzzُucm1.i:?菲,DynۭxMC*c5-1RE UN X̀Wgozhޚ$! `|ۿK}(@@W-+7]ʄI T ODČtA~tD$%n)Q@bpCW^sg _S>H;0r#௞ Hc?O8KT7G3VQ'etn6 RFxe'hVV^Z"?IM)ed]*'F4pX-ld$tNC,.#0Pkxk( Gh`d !\o;+x͔^"ݱe#V6Ƈtuv 56mNe-ϋlBoN`%A ptA/ hl; KW)p2Nl#mXCߐ5lc+Wk>&6YVD۪<\7[1At6@" LJT*rw۾!CPǟ@Afh8Khh}qekҎ6.SR'U'@MUly\[w@,Zk\Ǘӄ/ܡ/C&` ט9-浀<Ҽ000*%@s$}?5l> i99;N.dpC:nj0Ʈ, @RÆ0O)<0'307K-:_\mv:ԚӉa38[L(vF0)  !P0$pPeaK01G$ޒxjYϨ'r_/q(HY:   v Bn8@NL(CF(@qDݵk>I^a%3ne!XSK.e b xSXMN1*IOv5n0baJ}ReP \?Dב!C%p;d1n+r[K #mKGy$B|ׂvSt<&Qa%@>IH2km W79D{궻OU^@#!t_@=rO cVxU?Y0˗ڣek_t`X,$Ҋ! w"XF;/|GHLXh[ڢϙƮsѾfy{0p# V*= IDAT@4# @WKxMo=ƙC3[Y{?sul'bJM5 &@[dI>Gl4?l=i#=no-xQ%hl{5^w-|ϒp+]gi9#_8߲08S*l1D?90@kI'{8 IQa7@e7ۘL=0<!u_(x^1읋rںV5v1p9hGK|Ւ i-Ѵ4 f}+< C_8 h^7_mƒz+;xU3D3Y9,PFCX%i&˒ nS!4}ړ ׻Np++q.>0Oq,sgh[>t2b-:eʭ|@eW2pɅ);wgfk$\E:Jk ajwZ, p,p( rWug8&`b ]_X83>? EȳrJ$ Pzba#R <=mzWN0%9o87Z}8{^ RE*,=庮+e`Q DŽ) w>S)?p @uuN?x[AT.Q*?2bIw=>{}x7YlD@7ulN* @}>;Skpɡ{iVH; 10pR.UeʸNj&0C!Ƴx%@vݞG,oLTB;N#_hv|"QPh@#E8xZD]%Tb b,C`һO&aWw@MmZ>Y ƨCB!4/SVfb;T{9So^k\$(<@b(Lwgj n:[*;`NMN6tJ63zӓ[$uJp85nh >0vD󼖫dL#+OcЁKk7ao*޿@VI0W9=huOf]n[ڏy~y>ܗd#'OQ +]_0#%.d6A37#O:M\Мu\"-}-=餇4N6AbXo GA-`L#AC|B0m]!_i\W<792u6,x`1:KuD\thӀM@Yێ1|$dژ`akl@KN4T-w)> 9L20. Wq 9 I@X;_泪R[1Q9]wMj Ds#akݞF 501o{/T!A ?vu DW8e a#͠kۣ[6-82DtFD|S=@ѺN?q?sxXR~2vN4mu_ݑ@g}] ]cR'(ieM\s]cCJ|,V++ C4gٜ}Ĩ D1 :]TCk*|#̶l60 [ |DGq{^:T`UT$8q8@b!14cíQ_=b"%{Fpy TtguI @QMj`hc(Kn7 (+)j{a_$B(]@:ֻjN3 b>)`C;P@'z0000 @G(:?'a9x f+ rcP7}\ۗFP8}}.?dPlW=pu%XIe  ӳl?̾큾 ::;9^e2'=UCUN+)FMX L fM֯o k)c p)De(}@(;hY:sFj! `P2TTE ݑw YL8"*1f Ǎ`\)θ/JdZUTMvOTKlȸ8A:2ePK^5P`} G9>=ǫnN|J7[L CӮA_"fqz;wu'>ثa"TNUNr0(gҎil621w jIy vA C^o_DviߑWsG<h73D+UtSo3}(`0A`qlG(*:}?x `gFUqLaZL,l6>T+]@Ӊjzpʉ1j2<:`<RЕ;4 nwe)`>LQaQ}MB?od1x#P4%G})x@k PhQD0c @0`7+gv㥌lPlkOܾmxK" *00}rj0_c=lj._2¯00(59~+NP 6l4ǡy^컈"gn'-졎z$di+O-Ȱ@mYz`ɗb(@L (Yv[>B"?Q(HYnEP߰0tam`Qupa?zI,׆fHՐ.%!gY 7M|;z!ڣQ (xy6hM$40 w8y ZE+t[l?K(T=NU4>` ؼ#.{6yRRC9*'{ ?nHQ}9a>sdH{tW<߄}D0-%~^m'*(s|HtE#Z(,Z8d$i_OKL;|sf;|qj\Ћ:7 e`pk.d~f{$}M KD l}kC +{R|8+U}!W΋"W_(rB_}Vl},lR{7~BS?ʭ,ˬ xƭUo L 0 6>p`1/! ǧ}yNrzr}E|AyiSM o{k.K?tXE; 9?!vߠ}_.uZajB1.n=&0p[AsێjJVHP~eeE$p'd,Q0'pFj]6DC\R"䒓A'?m`ѣkyp%+ ou*F ߧ 110-3ٶUiA4U%5+#_ه,) 1,+)mE^ฑi4J#樟i7.1spA}dfBbJn`H)Ck}9~wK}k&`p[k_eVnaXLB PhOZ %=KK}qhV defl 7RZs G^ ). ~.hRL_')Y+3Bhׄ L H @Im(@ @OQkoiKQ+*k:4 W %l8BЉŷʃ 9;gՂnCs3?FYקFPH^@sEZ_$?^TqAzo'@/k՟+#E9q;`25Ng:9P1`EȟZ m}2hoɀg!'kL-e.@! tS\$ֹ[xq#s5 =@>wYWw{e7P5nmDE Ȗ`Y@l:}y1/zM%Fp (U vSa_Bl[=1k(e#ԾK$\&ghYAo%E)s5 N;?޵@RZ fSFGlWL;J?Tnb$oϨW"}zdh9 uԁU!f ~3e n n`0z h Ȳd_ dzv֑D;uS@+fUŽ}:@ \$D>uK4_ }Y #ϩG.*"Sc9kb`f(c0Qw#B@[@Q(w [ og[I9jQvvd3K6`vU  Fy U@{!hco,F*"Kg. Ol%o:]xSYV5{~9{*U<@[l( Yh*amm4r@iYՁdE7`[Hq ti[~ ԰2j!cF7Y Yh{C@Uz(sa j' -?B@o))0.i]@/?UTmfnSi!%HS7l<~1KP"F{vB?0edL4 j]f%ݕ 2^UvmQh oöOo뵼Ez~ u wcdIV Y%"~+V+ :0@) 0  ;eW -A,hZȻ='i m4 'FNQV% 4 U͹T5ln%}IՏCauB(P,cL1vR9%V`dIB{B!x \@@ 0 =aCNnWK*I 4?D vK40`  @& (QUA*;A,yWe_Np|QEGƨB 9xx,(9SG(3mP|LiY8;0ZrkB@>QadAmWwSm_i iDxWPi9!P/lw?hj6n $y_-Ͽy^xX g/?A1011Xtsը `f=4?4+i)lm㏭?M۠[` w6@\(0jRuuwQsg$CP$ϖEd~$8|z M:iKIQq\аWv/((pw @Vϋ  Wb9/" sO On=k7\v IIj]c\@ d גaA^ogo@u&0]v^ׯ}{+_\ "|Ŷ*c))h ᲁZǬ,-리lX ܙ;u ;> N%p0kTP @N(; z\?mE?$ahV #@-qg_<={eqT-@PwPN))Kw1؂826A `/[h1@ l[N@p9DR&>}.==rA&A7#RA+lysI?J!c4JnKDPT*(_Lu<:,Vװw(02—ƿEjiUm!V}M@ `@N*yC75NX[sI*:T*(|Q H-q'`᮹ 涛y2̸<7mI~\@\yzJcfc@ ,2¬ڇ0fJxKXnK#& IDATSo *b 乄0V+%aB 5=!Hcև5ZLvU %!Q2 hBD 78T@,0x(r(d1ͦߑKdMIPpH,Ad217|@"{Bۉ$ &-yrd~ݩZ jR Pwи 'HglAkJH&V[T3V``O,'[ ɪ0Wk1b5m@@n@1xd"|;![ƶ>Ds}nQox<ѨG H홑[`FL -W. U(8к~ @8; *S-%P'4(fC]n 7@퉩dp*@+ QMPeyH/ /gUA'E"RPu WP @)/ >K]? w[$Q`(P-ESx 6)w ;<'`xoTr = H(xP @.+;K1/ f3?HOz>lFsy+<PQ l@2Nw1F#mtOuȧ4k"1\DpHPV0[ Ec * w~aE8|',^CaMt;jXzaaW JܹN *sz)Mu#{lLO|~Pabd+BR ]b?Q GզWSEuv6h0 [7f{5 |D,BQ9-]PtM1P1me  _)Dpa&a?ɲSC<U$ TPx<V[qyD@_ O%?9MYOo@!Zc#e@40!<if:b 3F@, <[A||mK|l[sJ0Wn}F{'?o1vIBkhYg6]aIHQNs^x(h2yEȷWXp\inIp@p\V-Ʈ@='.rrfl~ i;83Ӣclp{o1v] | -.)]ܳS tpaq `L^d;/;~ޡn`7x/4ɷ^p6~疦Ohyb-(mї."ݷOQļ<pLa#?~=L}_7U\'Fm/Z pO){Nc)Mm ȱ}o:d(z@cW8%[_|BQJgwi@5) a6ͿuV*`s ~_! 5uu*\@ܳ=ұg1l~._an=%5. Y@FE[]x-Vѽf.=@Tygt7ٖ£] V}/a}[W/:SFooo.QW$#M*|f 0) 5|ϤbT @ng+[]*=sLni~^ﵥb6:;fۢVcٓ-:xh 5/~v{ gsK0|g+Rȷ>=c89` 1>1mAg)`܀lM=92W74,'7.WP  @u( tbIJu/&zY>B-`p(@RƖR@ȨPjcקWZ F 2 tT"@0:S ;I4F!P}Y+_kmH+ ~|K-2ME> t@\%Vf 5͗M՗A8|\&dkKUJ+}Q ΀;Q ì+Xu,k׃z>;?KXIәqm>9>6=ip0&@wtur:]< ,T @klھaH]9mE  / Pwmf2U&d辧zpWTV]&Ryp4Pm M5YwĬ"@_ 'ɹ5@?3c =NOU)X,PZV`@`-$`Nd'==*Rp<thf7 2P 0?w!E$<@ p<_&?%__:,z? MU@M5v^;Өz T@A0Pp<x@ ` (qUM2m22ƴm*]2 hT[0 v;e()ߨ1F67\c#-`{ b_U@|@]7NG!`9.,PP.bό%(67IeXLҏ4 =C L& pi0xa\*j@S=v`:p-5j-K`W4lK@Ֆ:b@݆1{ T>`Qy?Pl18 yʤco+TR\d 97#1 Ԗ&Jk8>`C>40M@ 0n7RTR@ehou,`@  @Y:H%Lxh PL%Q}!Ex; X @&R눟^[q.jYH*_px-h兑6;GIEJ)qT~q5ϧBPL0eE:b/8usa@QU@`e&؀Qnް򢈍HdI*5/Y I?['`AQF @8 ZE`5tT{K` )uW6^`+0(RO6mFϻϓ<&p_9HDjg^'z6=CO~r0pp2Q 47zQ$Y_x4hD_8~2{<(% Lo  pa: 7y8^;8I ;gGS )75j@ xC"ľ0.l'< ]zx @q{`?Z =ce@>DaiY?~#@ @'`sA Ė S.Q :T @X$o$`0?@?+R> ``*Rʝ%@ `'(fb2Mct$Nݝ< M@zr%t %NgEa~$3@#j@x??~n@),DHh .Sx?CD*6@)4Pb~ HH.6$ P4q~eGA@5P8q /8($;; M3S|eQy T7ޝsqL q`V32'爟 G`P T]p.g `EHV@Vj&iyLwk+U@bet2gb@H1V,Ί@~Z JXtMP:6KP: WU@@U>1t=P>h JU}$44M}8, G8sЛ<k:PJjx8ov[š(e@@dHqΡW^ ϐBm65Rm6X@gFZ@&N8c@fjuQ8e 8<- P8O~@ %/PO˝>5-;3q,vDk|s z U.!i|Id&& SupcdU>F ߜ@4'Qt nk?u9Sм+оvѝ8GPj-|8ou&g؍>WO<X6r_z&wuz/7D> o'[@o?`lZOs8M-)U9OTjhT|J9OHݤuK-)7@H\{9O38@]yz@@L˱f^x:zǰb }ƅ2T PlRwO鿅&M>GClr^eKEbAIb/ž T)ynةؤnMKn}{o [R=zfnKx^ijd Cu3`y;%aZfx^ǠYLrկ-Q n gw0 9ru9z.P= LQz/+gh>%ӷ>izN {Kh--} | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/pal_nejm.Rd0000644000176200001440000000134614570505642014211 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-nejm.R \name{pal_nejm} \alias{pal_nejm} \title{NEJM Color Palettes} \usage{ pal_nejm(palette = c("default"), alpha = 1) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"default"} (8-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} } \description{ Color palette inspired by plots in \emph{The New England Journal of Medicine}. } \examples{ library("scales") show_col(pal_nejm("default")(8)) show_col(pal_nejm("default", alpha = 0.6)(8)) } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/scale_flatui.Rd0000644000176200001440000000340014570505642015050 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-flatui.R \name{scale_color_flatui} \alias{scale_color_flatui} \alias{scale_colour_flatui} \alias{scale_fill_flatui} \title{Flat UI Color Scales} \usage{ scale_color_flatui( palette = c("default", "flattastic", "aussie"), alpha = 1, ... ) scale_colour_flatui( palette = c("default", "flattastic", "aussie"), alpha = 1, ... ) scale_fill_flatui( palette = c("default", "flattastic", "aussie"), alpha = 1, ... ) } \arguments{ \item{palette}{Palette type. Currently there are three available option: \code{"default"} (10-color palette). \code{"flattastic"} (12-color palette). \code{"aussie"} (10-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} \item{...}{additional parameters for \code{\link[ggplot2]{discrete_scale}}} } \description{ See \code{\link{pal_flatui}} for details. } \examples{ library("ggplot2") data("diamonds") p1 <- ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() p2 <- ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() p1 + scale_color_flatui() p2 + scale_fill_flatui() p1 + scale_color_flatui(palette = "default") p2 + scale_fill_flatui(palette = "default") p1 + scale_color_flatui(palette = "flattastic") p2 + scale_fill_flatui(palette = "flattastic") p1 + scale_color_flatui(palette = "aussie") p2 + scale_fill_flatui(palette = "aussie") } \author{ Clara Jégousse <\email{cat3@hi.is}> } ggsci/man/pal_ucscgb.Rd0000644000176200001440000000135614570505642014527 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-ucscgb.R \name{pal_ucscgb} \alias{pal_ucscgb} \title{UCSC Genome Browser Color Palette} \usage{ pal_ucscgb(palette = c("default"), alpha = 1) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"default"} (26-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} } \description{ Color palette from UCSC Genome Browser chromosome colors. } \examples{ library("scales") show_col(pal_ucscgb("default")(26)) show_col(pal_ucscgb("default", alpha = 0.6)(26)) } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/scale_frontiers.Rd0000644000176200001440000000301614570505642015602 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-frontiers.R \name{scale_color_frontiers} \alias{scale_color_frontiers} \alias{scale_colour_frontiers} \alias{scale_fill_frontiers} \title{Frontiers Color Scales} \usage{ scale_color_frontiers(palette = c("default"), alpha = 1, ...) scale_colour_frontiers(palette = c("default"), alpha = 1, ...) scale_fill_frontiers(palette = c("default"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"default"} (10-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} \item{...}{additional parameters for \code{\link[ggplot2]{discrete_scale}}} } \description{ See \code{\link{pal_frontiers}} for details. } \examples{ library("ggplot2") data("diamonds") ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_dark() + theme( panel.background = element_rect(fill = "#2D2D2D"), legend.key = element_rect(fill = "#2D2D2D") ) + scale_color_frontiers() ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_dark() + theme( panel.background = element_rect(fill = "#2D2D2D") ) + scale_fill_frontiers() } \author{ Clara Jégousse <\email{cat3@hi.is}> } ggsci/man/scale_tron.Rd0000644000176200001440000000277114570505642014560 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-tron.R \name{scale_color_tron} \alias{scale_color_tron} \alias{scale_colour_tron} \alias{scale_fill_tron} \title{Tron Legacy Color Scales} \usage{ scale_color_tron(palette = c("legacy"), alpha = 1, ...) scale_colour_tron(palette = c("legacy"), alpha = 1, ...) scale_fill_tron(palette = c("legacy"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"legacy"} (7-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} \item{...}{additional parameters for \code{\link[ggplot2]{discrete_scale}}} } \description{ See \code{\link{pal_tron}} for details. } \examples{ library("ggplot2") data("diamonds") ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_dark() + theme( panel.background = element_rect(fill = "#2D2D2D"), legend.key = element_rect(fill = "#2D2D2D") ) + scale_color_tron() ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_dark() + theme( panel.background = element_rect(fill = "#2D2D2D") ) + scale_fill_tron() } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/scale_jco.Rd0000644000176200001440000000250514570505642014344 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-jco.R \name{scale_color_jco} \alias{scale_color_jco} \alias{scale_colour_jco} \alias{scale_fill_jco} \title{Journal of Clinical Oncology Color Scales} \usage{ scale_color_jco(palette = c("default"), alpha = 1, ...) scale_colour_jco(palette = c("default"), alpha = 1, ...) scale_fill_jco(palette = c("default"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"default"} (10-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} \item{...}{additional parameters for \code{\link[ggplot2]{discrete_scale}}} } \description{ See \code{\link{pal_jco}} for details. } \examples{ library("ggplot2") data("diamonds") ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() + scale_color_jco() ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() + scale_fill_jco() } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/pal_npg.Rd0000644000176200001440000000145514570505642014045 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-npg.R \name{pal_npg} \alias{pal_npg} \title{NPG Journal Color Palettes} \usage{ pal_npg(palette = c("nrc"), alpha = 1) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"nrc"} (10-color palette inspired by \emph{Nature Reviews Cancer}).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} } \description{ Color palettes inspired by plots in journals published by Nature Publishing Group, such as \emph{Nature Reviews Cancer}. } \examples{ library("scales") show_col(pal_npg("nrc")(10)) show_col(pal_npg("nrc", alpha = 0.6)(10)) } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/pal_simpsons.Rd0000644000176200001440000000141514570505642015130 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-simpsons.R \name{pal_simpsons} \alias{pal_simpsons} \title{The Simpsons Color Palettes} \usage{ pal_simpsons(palette = c("springfield"), alpha = 1) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"springfield"} (16-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} } \description{ Color palettes inspired by the colors used in \emph{The Simpsons}. } \examples{ library("scales") show_col(pal_simpsons("springfield")(16)) show_col(pal_simpsons("springfield", alpha = 0.6)(16)) } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/pal_d3.Rd0000644000176200001440000000201014570505642013553 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-d3.R \name{pal_d3} \alias{pal_d3} \title{D3.js Color Palettes} \usage{ pal_d3( palette = c("category10", "category20", "category20b", "category20c"), alpha = 1 ) } \arguments{ \item{palette}{Palette type. There are 4 available options: \code{"category10"} (10-color palette); \code{"category20"} (20-color palette); \code{"category20b"} (20-color palette); \code{"category20c"} (20-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} } \description{ Color palettes based on the colors used by D3.js. } \examples{ library("scales") show_col(pal_d3("category10")(10)) show_col(pal_d3("category20")(20)) show_col(pal_d3("category20b")(20)) show_col(pal_d3("category20c")(20)) } \references{ \url{https://github.com/d3/d3-3.x-api-reference/blob/master/Ordinal-Scales.md} } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/scale_futurama.Rd0000644000176200001440000000260414570505642015415 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-futurama.R \name{scale_color_futurama} \alias{scale_color_futurama} \alias{scale_colour_futurama} \alias{scale_fill_futurama} \title{The Futurama Color Scales} \usage{ scale_color_futurama(palette = c("planetexpress"), alpha = 1, ...) scale_colour_futurama(palette = c("planetexpress"), alpha = 1, ...) scale_fill_futurama(palette = c("planetexpress"), alpha = 1, ...) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"planetexpress"} (12-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} \item{...}{additional parameters for \code{\link[ggplot2]{discrete_scale}}} } \description{ See \code{\link{pal_futurama}} for details. } \examples{ library("ggplot2") data("diamonds") ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + theme_bw() + scale_color_futurama() ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() + scale_fill_futurama() } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/pal_jco.Rd0000644000176200001440000000136414570505642014033 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-jco.R \name{pal_jco} \alias{pal_jco} \title{Journal of Clinical Oncology Color Palettes} \usage{ pal_jco(palette = c("default"), alpha = 1) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"default"} (10-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} } \description{ Color palette inspired by plots in \emph{Journal of Clinical Oncology}. } \examples{ library("scales") show_col(pal_jco("default")(10)) show_col(pal_jco("default", alpha = 0.6)(10)) } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/pal_lancet.Rd0000644000176200001440000000144114570505642014522 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-lancet.R \name{pal_lancet} \alias{pal_lancet} \title{Lancet Journal Color Palettes} \usage{ pal_lancet(palette = c("lanonc"), alpha = 1) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"lanonc"} (9-color palette inspired by \emph{Lancet Oncology}).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} } \description{ Color palettes inspired by plots in Lancet journals, such as \emph{Lancet Oncology}. } \examples{ library("scales") show_col(pal_lancet("lanonc")(9)) show_col(pal_lancet("lanonc", alpha = 0.6)(9)) } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/man/pal_futurama.Rd0000644000176200001440000000142114570505642015076 0ustar liggesusers% Generated by roxygen2: do not edit by hand % Please edit documentation in R/discrete-futurama.R \name{pal_futurama} \alias{pal_futurama} \title{The Futurama Color Palettes} \usage{ pal_futurama(palette = c("planetexpress"), alpha = 1) } \arguments{ \item{palette}{Palette type. Currently there is one available option: \code{"planetexpress"} (12-color palette).} \item{alpha}{Transparency level, a real number in (0, 1]. See \code{alpha} in \code{\link[grDevices]{rgb}} for details.} } \description{ Color palettes inspired by the colors used in \emph{Futurama}. } \examples{ library("scales") show_col(pal_futurama("planetexpress")(12)) show_col(pal_futurama("planetexpress", alpha = 0.6)(12)) } \author{ Nan Xiao <\email{me@nanx.me}> | <\href{https://nanx.me}{https://nanx.me}> } ggsci/DESCRIPTION0000644000176200001440000000237514570544004013066 0ustar liggesusersPackage: ggsci Type: Package Title: Scientific Journal and Sci-Fi Themed Color Palettes for 'ggplot2' Version: 3.0.1 Authors@R: c( person("Nan", "Xiao", email = "me@nanx.me", role = c("aut", "cre"), comment = c(ORCID = "0000-0002-0250-5673")), person("Joshua", "Cook", email = "joshuacook0023@gmail.com", role = "ctb"), person("Clara", "Jégousse", email = "cat3@hi.is", role = "ctb"), person("Miaozhu", "Li", email = "miaozhu.li@duke.edu", role = "ctb") ) Maintainer: Nan Xiao Description: A collection of 'ggplot2' color palettes inspired by plots in scientific journals, data visualization libraries, science fiction movies, and TV shows. License: GPL (>= 3) VignetteBuilder: knitr URL: https://nanx.me/ggsci/, https://github.com/nanxstats/ggsci BugReports: https://github.com/nanxstats/ggsci/issues Depends: R (>= 3.5.0) Imports: ggplot2 (>= 2.0.0), grDevices, scales Suggests: gridExtra, knitr, ragg, reshape2, rmarkdown Encoding: UTF-8 RoxygenNote: 7.3.1 NeedsCompilation: no Packaged: 2024-03-02 05:32:46 UTC; nanx Author: Nan Xiao [aut, cre] (), Joshua Cook [ctb], Clara Jégousse [ctb], Miaozhu Li [ctb] Repository: CRAN Date/Publication: 2024-03-02 06:32:36 UTC ggsci/build/0000755000176200001440000000000014570534776012467 5ustar liggesusersggsci/build/vignette.rds0000644000176200001440000000043714570534776015032 0ustar liggesusersuN0$T BT`)I.cOpuTb}|?BH@0 Ae8m$sRU&糒mӏ0vЁ!Ӱm@Z ހ\ICٗj,u9zys-L,t_xQBi`CKU>^ 4:2ߞ}ͣk1,u?s%Y _=2.7=p1|9:dayNiAV69&me\0'aR0Rc?/%$ggsci/vignettes/0000755000176200001440000000000014570534776013400 5ustar liggesusersggsci/vignettes/ggsci-faq.Rmd0000644000176200001440000000646114570505642015702 0ustar liggesusers--- title: "Frequently Asked Questions about ggsci" output: rmarkdown::html_document: toc: true toc_float: false toc_depth: 2 number_sections: false highlight: "textmate" css: custom.css vignette: > %\VignetteEngine{knitr::rmarkdown} %\VignetteIndexEntry{Frequently Asked Questions about ggsci} --- ```{r, include=FALSE} knitr::knit_hooks$set(pngquant = knitr::hook_pngquant) knitr::opts_chunk$set( message = FALSE, collapse = TRUE, comment = "#>", dev = "ragg_png", dpi = 72, fig.retina = 2, fig.width = 3.3334 / 0.618, fig.height = 3.3334, fig.align = "center", out.width = "65%", pngquant = "--speed=1 --quality=50" ) ``` ## What if my data has more categories than the number of colors offered? Although it is recommended that we do not encode too many categories in different colors, in practice, one can still create an "adaptive" color palette based on the existing discrete color palettes in ggsci. See this blog post for a detailed guide on creating [adaptive ggplot2 color scales with color interpolation](https://nanx.me/blog/post/ggplot2-color-interpolation/). ## Use a color scale consistently for multiple plots in a document To apply a color scale for all plots in a document and avoid repetition, a simple solution is setting the two global options `ggplot2.discrete.colour` and `ggplot2.discrete.fill`. For example: ```r library("ggplot2") p <- ggplot(mpg, aes(displ, hwy, colour = factor(cyl), fill = factor(cyl))) + geom_point() + geom_smooth(method = "lm") + theme_bw() p # Set global options options( ggplot2.discrete.colour = ggsci::scale_colour_d3, ggplot2.discrete.fill = ggsci::scale_fill_d3 ) p # Restore original options after use options( ggplot2.discrete.colour = NULL, ggplot2.discrete.fill = NULL ) p ``` ## Customize color ordering in a palette You can customize the color selection and ordering of any discrete color palette in ggsci by using the following function that returns a custom color scale function. This method is flexible and encourages code reuse. ```{r} #' Define a custom color scale #' #' @param pal Name of the color palette, as part of the #' original palette function name. #' @param palette Palette type, as defined in the #' original palette function (optional). #' @param n Number of (first) colors to fetch from the original palette. #' @param order A vector of color index (optional). #' @param alpha Transparency level. #' #' @return A custom color scale function. scale_color_custom <- function(pal, palette, n, order, alpha = 1) { pal <- getFromNamespace(paste0("pal_", pal), "ggsci") colors <- if (missing(palette)) { pal(alpha = alpha)(n) } else { pal(palette = palette, alpha = alpha)(n) } if (length(order) > length(colors)) { stop("The length of order exceeds the number of colors.", call. = FALSE) } colors <- if (!missing(order)) colors[order] ggplot2::scale_color_manual(values = colors) } ``` Use `scale_color_custom()` in an example: ```{r} library(ggplot2) library(ggsci) set.seed(42) df <- data.frame( x = rnorm(100), y = rnorm(100), group = factor(sample(1:5, 100, replace = TRUE)) ) p <- ggplot(df, aes(x = x, y = y, color = group)) + geom_point(size = 3) + theme_minimal() p + scale_color_custom("d3", palette = "category20", n = 20, order = c(14, 11, 13, 12, 15)) ``` ggsci/vignettes/ggsci.Rmd0000644000176200001440000004736214570534320015135 0ustar liggesusers--- title: "Scientific Journal and Sci-Fi Themed Color Palettes for ggplot2" output: rmarkdown::html_document: toc: true toc_float: true toc_depth: 4 number_sections: false highlight: "textmate" css: custom.css vignette: > %\VignetteEngine{knitr::rmarkdown} %\VignetteIndexEntry{Scientific Journal and Sci-Fi Themed Color Palettes for ggplot2} --- ```{r, include=FALSE} knitr::knit_hooks$set(pngquant = knitr::hook_pngquant) knitr::opts_chunk$set( message = FALSE, collapse = TRUE, comment = "#>", dev = "ragg_png", dpi = 72, fig.retina = 2, fig.width = 10.6667, fig.height = 3.3334, fig.align = "center", out.width = "100%", pngquant = "--speed=1 --quality=50" ) ``` ## Introduction > My eyes were finally opened and I understood nature. > > I learned at the same time to love it. > > --- Claude Monet `ggsci` offers a collection of high-quality color palettes inspired by colors used in scientific journals, data visualization libraries, science fiction movies, and TV shows. The color palettes in `ggsci` are available as `ggplot2` scales. For all the color palettes, the corresponding scales are named as: - `scale_color_palname()` - `scale_fill_palname()` We also provided aliases, such as `scale_colour_palname()` for `scale_color_palname()`. All available color palettes are summarized in the table below. +-----------------+------------------------------+--------------------------------+----------------------+ | Name | Scales | Palette Types | Palette Generator | +=================+==============================+================================+======================+ | NPG | `scale_color_npg()` | `"nrc"` | `pal_npg()` | | | `scale_fill_npg()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | AAAS | `scale_color_aaas()` | `"default"` | `pal_aaas()` | | | `scale_fill_aaas()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | NEJM | `scale_color_nejm()` | `"default"` | `pal_nejm()` | | | `scale_fill_nejm()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | Lancet | `scale_color_lancet()` | `"lanonc"` | `pal_lancet()` | | | `scale_fill_lancet()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | JAMA | `scale_color_jama()` | `"default"` | `pal_jama()` | | | `scale_fill_jama()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | JCO | `scale_color_jco()` | `"default"` | `pal_jco()` | | | `scale_fill_jco()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | UCSCGB | `scale_color_ucscgb()` | `"default"` | `pal_ucscgb()` | | | `scale_fill_ucscgb()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | D3 | `scale_color_d3()`
| `"category10"` | `pal_d3()` | | | `scale_fill_d3()` | `"category20"` | | | | | `"category20b"` | | | | | `"category20c"` | | +-----------------+------------------------------+--------------------------------+----------------------+ | LocusZoom | `scale_color_locuszoom()` | `"default"` | `pal_locuszoom()` | | | `scale_fill_locuszoom()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | IGV | `scale_color_igv()` | `"default"`
| `pal_igv()` | | | `scale_fill_igv()` | `"alternating"` | | +-----------------+------------------------------+--------------------------------+----------------------+ | COSMIC | `scale_color_cosmic()` | `"hallmarks_light"`
| `pal_cosmic()` | | | `scale_fill_cosmic()` | `"hallmarks_dark"`
| | | | | `"signature_substitutions"` | | +-----------------+------------------------------+--------------------------------+----------------------+ | UChicago | `scale_color_uchicago()` | `"default"`
| `pal_uchicago()` | | | `scale_fill_uchicago()` | `"light"`
| | | | | `"dark"` | | +-----------------+------------------------------+--------------------------------+----------------------+ | Star Trek | `scale_color_startrek()` | `"uniform"` | `pal_startrek()` | | | `scale_fill_startrek()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | Tron Legacy | `scale_color_tron()` | `"legacy"` | `pal_tron()` | | | `scale_fill_tron()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | Futurama | `scale_color_futurama()` | `"planetexpress"` | `pal_futurama()` | | | `scale_fill_futurama()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | Rick and Morty | `scale_color_rickandmorty()` | `"schwifty"` | `pal_rickandmorty()` | | | `scale_fill_rickandmorty()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | The Simpsons | `scale_color_simpsons()` | `"springfield"` | `pal_simpsons()` | | | `scale_fill_simpsons()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | Flat UI | `scale_color_flatui()` | `"default"` | `pal_flatui()` | | | `scale_fill_flatui()` | `"flattastic"` | | | | | `"aussie"` | | +-----------------+------------------------------+--------------------------------+----------------------+ | Frontiers | `scale_color_frontiers()` | `"default"` | `pal_frontiers()` | | | `scale_fill_frontiers()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | GSEA | `scale_color_gsea()` | `"default"` | `pal_gsea()` | | | `scale_fill_gsea()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | Material Design | `scale_color_material()` | `"red"` `"pink"`
| `pal_material()` | | | `scale_fill_material()` | `"purple"` `"deep-purple"`
| | | | | `"indigo"` `"blue"`
| | | | | `"light-blue"` `"cyan"`
| | | | | `"teal"` `"green"`
| | | | | `"light-green"` `"lime"`
| | | | | `"yellow"` `"amber"`
| | | | | `"orange"` `"deep-orange"`
| | | | | `"brown"` `"grey"`
| | | | | `"blue-grey"` | | +-----------------+------------------------------+--------------------------------+----------------------+ ## Discrete color palettes We will use scatterplots with smooth curves, and bar plots to demonstrate the discrete color palettes in `ggsci`. ```{r} library("ggsci") library("ggplot2") library("gridExtra") data("diamonds") p1 <- ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.05, linewidth = 1, span = 1) + theme_bw() p2 <- ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() ``` ### NPG The NPG palette is inspired by the plots in the journals published by Nature Publishing Group: ```{r} p1_npg <- p1 + scale_color_npg() p2_npg <- p2 + scale_fill_npg() grid.arrange(p1_npg, p2_npg, ncol = 2) ``` ### AAAS The AAAS palette is inspired by the plots in the journals published by American Association for the Advancement of Science: ```{r} p1_aaas <- p1 + scale_color_aaas() p2_aaas <- p2 + scale_fill_aaas() grid.arrange(p1_aaas, p2_aaas, ncol = 2) ``` ### NEJM The NEJM palette is inspired by the plots in the _New England Journal of Medicine_: ```{r} p1_nejm <- p1 + scale_color_nejm() p2_nejm <- p2 + scale_fill_nejm() grid.arrange(p1_nejm, p2_nejm, ncol = 2) ``` ### Lancet The Lancet palette is inspired by the plots in _Lancet_ journals, such as _Lancet Oncology_: ```{r} p1_lancet <- p1 + scale_color_lancet() p2_lancet <- p2 + scale_fill_lancet() grid.arrange(p1_lancet, p2_lancet, ncol = 2) ``` ### JAMA The JAMA palette is inspired by the plots in the _Journal of the American Medical Association_: ```{r} p1_jama <- p1 + scale_color_jama() p2_jama <- p2 + scale_fill_jama() grid.arrange(p1_jama, p2_jama, ncol = 2) ``` ### JCO The JCO palette is inspired by the the plots in _Journal of Clinical Oncology_: ```{r} p1_jco <- p1 + scale_color_jco() p2_jco <- p2 + scale_fill_jco() grid.arrange(p1_jco, p2_jco, ncol = 2) ``` ### UCSCGB The UCSCGB palette is from the colors used by [UCSC Genome Browser](https://genome.ucsc.edu) for representing chromosomes. This palette (interpolated, with alpha) is intensively used in visualizations generated by Circos. ```{r} p1_ucscgb <- p1 + scale_color_ucscgb() p2_ucscgb <- p2 + scale_fill_ucscgb() grid.arrange(p1_ucscgb, p2_ucscgb, ncol = 2) ``` ### D3 The D3 palette is from the categorical colors used by [D3.js](https://d3js.org) (version 3.x and before). There are four palette types (`category10`, `category20`, `category20b`, `category20c`) available. ```{r} p1_d3 <- p1 + scale_color_d3() p2_d3 <- p2 + scale_fill_d3() grid.arrange(p1_d3, p2_d3, ncol = 2) ``` ### LocusZoom The LocusZoom palette is based on the colors used by [LocusZoom](http://locuszoom.org/). ```{r} p1_locuszoom <- p1 + scale_color_locuszoom() p2_locuszoom <- p2 + scale_fill_locuszoom() grid.arrange(p1_locuszoom, p2_locuszoom, ncol = 2) ``` ### IGV The IGV palette is from the colors used by [Integrative Genomics Viewer](https://igv.org/doc/desktop/) for representing chromosomes. There are two palette types (`default`, `alternating`) available. ```{r} p1_igv_default <- p1 + scale_color_igv() p2_igv_default <- p2 + scale_fill_igv() grid.arrange(p1_igv_default, p2_igv_default, ncol = 2) ``` ### COSMIC Color palettes inspired by the colors used in projects from the [Catalogue Of Somatic Mutations in Cancers (COSMIC)](https://cancer.sanger.ac.uk/cosmic). ```{r} p1_cosmic_hallmarks_light <- p1 + scale_color_cosmic("hallmarks_light") p2_cosmic_hallmarks_light <- p2 + scale_fill_cosmic("hallmarks_light") grid.arrange(p1_cosmic_hallmarks_light, p2_cosmic_hallmarks_light, ncol = 2) ``` ```{r} p1_cosmic_hallmarks_dark <- p1 + scale_color_cosmic("hallmarks_dark") p2_cosmic_hallmarks_dark <- p2 + scale_fill_cosmic("hallmarks_dark") grid.arrange(p1_cosmic_hallmarks_dark, p2_cosmic_hallmarks_dark, ncol = 2) ``` ```{r} p1_cosmic_signature <- p1 + scale_color_cosmic("signature_substitutions") p2_cosmic_signature <- p2 + scale_fill_cosmic("signature_substitutions") grid.arrange(p1_cosmic_signature, p2_cosmic_signature, ncol = 2) ``` ### UChicago The UChicago palette is based on [the colors](https://news.uchicago.edu/sites/default/files/attachments/_uchicago.identity.guidelines.pdf) used by the University of Chicago. There are three palette types (`default`, `light`, `dark`) available. ```{r} p1_uchicago <- p1 + scale_color_uchicago() p2_uchicago <- p2 + scale_fill_uchicago() grid.arrange(p1_uchicago, p2_uchicago, ncol = 2) ``` ### Star Trek This palette is inspired by the (uniform) colors in _Star Trek_: ```{r} p1_startrek <- p1 + scale_color_startrek() p2_startrek <- p2 + scale_fill_startrek() grid.arrange(p1_startrek, p2_startrek, ncol = 2) ``` ### Tron Legacy This palette is inspired by the colors used in _Tron Legacy_. It is suitable for displaying data when using a dark theme: ```{r} p1_tron <- p1 + theme_dark() + theme( panel.background = element_rect(fill = "#2D2D2D"), legend.key = element_rect(fill = "#2D2D2D") ) + scale_color_tron() p2_tron <- p2 + theme_dark() + theme( panel.background = element_rect(fill = "#2D2D2D") ) + scale_fill_tron() grid.arrange(p1_tron, p2_tron, ncol = 2) ``` ### Futurama This palette is inspired by the colors used in the TV show _Futurama_: ```{r} p1_futurama <- p1 + scale_color_futurama() p2_futurama <- p2 + scale_fill_futurama() grid.arrange(p1_futurama, p2_futurama, ncol = 2) ``` ### Rick and Morty This palette is inspired by the colors used in the TV show _Rick and Morty_: ```{r} p1_rickandmorty <- p1 + scale_color_rickandmorty() p2_rickandmorty <- p2 + scale_fill_rickandmorty() grid.arrange(p1_rickandmorty, p2_rickandmorty, ncol = 2) ``` ### The Simpsons This palette is inspired by the colors used in the TV show _The Simpsons_: ```{r} p1_simpsons <- p1 + scale_color_simpsons() p2_simpsons <- p2 + scale_fill_simpsons() grid.arrange(p1_simpsons, p2_simpsons, ncol = 2) ``` ### Flat UI Three flat UI color palettes from [Flat UI Colors 2](https://flatuicolors.com): ```{r} p1_flatui <- p1 + scale_color_flatui() p2_flatui <- p2 + scale_fill_flatui() grid.arrange(p1_flatui, p2_flatui, ncol = 2) ``` ### Frontiers This color palette inspired by [Frontiers](https://www.frontiersin.org): ```{r} p1_frontiers <- p1 + scale_color_frontiers() p2_frontiers <- p2 + scale_fill_frontiers() grid.arrange(p1_frontiers, p2_frontiers, ncol = 2) ``` ## Continuous color palettes We will use a correlation matrix visualization (a special type of heatmap) to demonstrate the continuous color palettes in `ggsci`. ```{r} library("reshape2") data("mtcars") cor <- cor(unname(cbind(mtcars, mtcars, mtcars, mtcars))) cor_melt <- melt(cor) p3 <- ggplot( cor_melt, aes(x = Var1, y = Var2, fill = value) ) + geom_tile(colour = "black", linewidth = 0.3) + theme_void() + theme( axis.title.x = element_blank(), axis.title.y = element_blank() ) ``` ### GSEA The GSEA palette (continuous) is inspired by the heatmaps generated by [GSEA GenePattern](https://software.broadinstitute.org/cancer/software/genepattern/). ```{r, fig.height=4} p3_gsea <- p3 + scale_fill_gsea() p3_gsea_inv <- p3 + scale_fill_gsea(reverse = TRUE) grid.arrange(p3_gsea, p3_gsea_inv, ncol = 2) ``` ### Material Design The Material Design color palettes are from the [Material Design color system](https://m2.material.io/design/color/the-color-system.html). We generate a random matrix first: ```{r} library("reshape2") set.seed(42) k <- 9 x <- diag(k) x[upper.tri(x)] <- runif(sum(1:(k - 1)), 0, 1) x_melt <- melt(x) p4 <- ggplot(x_melt, aes(x = Var1, y = Var2, fill = value)) + geom_tile(colour = "black", linewidth = 0.3) + scale_x_continuous(expand = c(0, 0)) + scale_y_continuous(expand = c(0, 0)) + theme_bw() + theme( legend.position = "none", plot.background = element_blank(), axis.line = element_blank(), axis.ticks = element_blank(), axis.text.x = element_blank(), axis.text.y = element_blank(), axis.title.x = element_blank(), axis.title.y = element_blank(), panel.background = element_blank(), panel.border = element_blank(), panel.grid.major = element_blank(), panel.grid.minor = element_blank() ) ``` Plot the matrix with the 19 material design color palettes: ```{r, fig.height=7.12} grid.arrange( p4 + scale_fill_material("red"), p4 + scale_fill_material("pink"), p4 + scale_fill_material("purple"), p4 + scale_fill_material("deep-purple"), p4 + scale_fill_material("indigo"), p4 + scale_fill_material("blue"), p4 + scale_fill_material("light-blue"), p4 + scale_fill_material("cyan"), p4 + scale_fill_material("teal"), p4 + scale_fill_material("green"), p4 + scale_fill_material("light-green"), p4 + scale_fill_material("lime"), p4 + scale_fill_material("yellow"), p4 + scale_fill_material("amber"), p4 + scale_fill_material("orange"), p4 + scale_fill_material("deep-orange"), p4 + scale_fill_material("brown"), p4 + scale_fill_material("grey"), p4 + scale_fill_material("blue-grey"), ncol = 6 ) ``` From the figure above, we can see that even though an identical matrix was visualized by all plots, some palettes are more preferrable than the others because our eyes are more sensitive to the changes of their saturation levels. ## Non-ggplot2 graphics To apply the color palettes in `ggsci` to other graphics systems (such as base graphics and lattice graphics), simply use the palette generator functions in the table above. For example: ```{r, fig.width=6.67, fig.height=6.67, out.width="60%"} mypal <- pal_npg("nrc", alpha = 0.7)(9) mypal library("scales") show_col(mypal) ``` You will be able to use the generated hex color codes for such graphics systems accordingly. The transparent level of the entire palette is easily adjustable via the argument `"alpha"` in every generator or scale function. ## Discussion Please note some of the palettes might not be the best choice for certain purposes, such as color-blind safe, photocopy safe, or print friendly. If you do have such considerations, you might want to check out color palettes like [ColorBrewer](https://colorbrewer2.org) and [viridis](https://cran.r-project.org/package=viridis). The color palettes in this package are solely created for research purposes. The authors are not responsible for the usage of such palettes. ggsci/vignettes/custom.css0000644000176200001440000000562614570505642015423 0ustar liggesusers/* custom css style for Nan Xiao's R package vignettes */ body { font-family: -apple-system, BlinkMacSystemFont, "Segoe UI", Roboto, "Helvetica Neue", Arial, "Noto Sans", sans-serif, "Apple Color Emoji", "Segoe UI Emoji", "Segoe UI Symbol", "Noto Color Emoji"; font-size: 16px; line-height: 1.5; color: #212529; padding-top: 25px; padding-bottom: 25px; } h1.title { padding-bottom: 10px; } h1, h2, h3, h4, h5, h6 { color: #212529; font-weight: 700; } h1, h1.title { font-size: 30px; } h2 { font-size: 24px; } h3 { font-size: 20px; } h4 { font-size: 16px; } h5 { font-size: 16px; } h6 { font-size: 16px; } h4.author { padding-bottom: 10px; } h4.author>em { font-size: 14px; font-style: normal; font-weight: 300; } h4.date { padding-bottom: 10px; } h4.date>em { font-size: 14px; font-style: normal; font-weight: 300; } a { color: #4582EC; } a:hover, a:focus, a:active { color: #1559CF; } a:focus { outline: thin dotted; } a:hover, a:active { outline: 0; } pre, code { font-family: SFMono-Regular, Menlo, Monaco, Consolas, "Liberation Mono", "Courier New", monospace; background-color: #f8f9fa; border: none; } /* float toc */ .list-group-item.active, .list-group-item.active:focus, .list-group-item.active:hover { background-color: #4582EC; border-color: #4582EC; } /* figure */ div.figure { text-align: center; } p.caption { text-align: center; } .footnote { position: absolute; bottom: 3em; padding-right: 4em; color: #4287c7; } .remark-code, .remark-inline-code { font-family: SFMono-Regular, Menlo, Monaco, Consolas, "Liberation Mono", "Courier New", monospace; background-color: #c8c8c8; } .remark-code-line-highlighted { background-color: #fff; } .remark-slide .title-slide { padding-left: 340px; padding-top: 110px; } .title-slide h1, .title-slide h2, .title-slide h3 { color: #585858; } .title-slide h1, .title-slide h2 { font-weight: 700; margin-top: 20px; margin-bottom: 80px; } .title-slide h3 { font-weight: 300; font-weight: normal; margin: 0; } .dark-green { background-color: #789d57; } .dark-green h2, .dark-green h1 { color: #fff; } .dark-gray { background-color: #585858; } .dark-gray h2, .dark-gray h1 { color: #fff; } /* Two-column layout */ .left-column { color: #777; width: 20%; height: 92%; float: left; } .left-column h2:last-of-type, .left-column h3:last-child { color: #000; } .right-column { width: 75%; float: right; padding-top: 1em; } .pull-left { float: left; width: 47%; } .pull-right { float: right; width: 47%; } .pull-right~* { clear: both; } img, video, iframe { max-width: 100%; } blockquote { border-left: solid 5px lightgray; padding-left: 1em; } table { margin: auto; border-bottom: 1px solid #666; } table thead th { border-bottom: 1px solid #ddd; } th, td { padding: 5px; } thead, tfoot, tr:nth-child(even) { background: #eee } ggsci/R/0000755000176200001440000000000014570505642011557 5ustar liggesusersggsci/R/ggsci-package.R0000644000176200001440000000004114570505642014362 0ustar liggesusers#' @keywords internal "_PACKAGE" ggsci/R/continuous-gsea.R0000644000176200001440000000713214570505642015030 0ustar liggesusers#' The GSEA GenePattern Color Palettes #' #' Color palette inspired by the colors used in the #' heatmaps plotted by GSEA GenePattern. #' #' @param palette Palette type. #' Currently there is one available option: \code{"default"} #' (continuous palette with 12 base colors). #' @param n Number of individual colors to be generated. #' @param alpha Transparency level, a real number in (0, 1]. #' See \code{alpha} in \code{\link[grDevices]{rgb}} for details. #' @param reverse Logical. Should the order of the colors be reversed? #' #' @export rgb_gsea #' #' @importFrom grDevices colorRamp rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @note The 12 base colors used in this palette are derived from the #' \href{https://modulerepository.genepattern.org/gpModuleRepository/download/prod/module/?file=/HeatMapImage/broad.mit.edu:cancer.software.genepattern.module.analysis/00032/6/HeatMapImage.pdf}{HeatMapImage documentation}. #' #' @examples #' library("scales") #' show_col(pal_gsea("default")(12)) #' show_col(pal_gsea("default", n = 30, alpha = 0.6, reverse = TRUE)(30)) rgb_gsea <- function(palette = c("default"), n = 12, alpha = 1, reverse = FALSE) { palette <- match.arg(palette) if (alpha > 1L | alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"gsea"[[palette]] func_cols <- colorRamp(raw_cols, space = "Lab", interpolate = "spline") mat_cols <- func_cols(seq(0L, 1L, length.out = n)) alpha_cols <- rgb( mat_cols[, 1L], mat_cols[, 2L], mat_cols[, 3L], alpha = alpha * 255L, maxColorValue = 255L ) if (reverse) alpha_cols <- rev(alpha_cols) alpha_cols } #' The GSEA GenePattern Color Palettes #' #' Color palette inspired by the colors used in the #' heatmaps plotted by GSEA GenePattern. #' #' @inheritParams rgb_gsea #' #' @export pal_gsea #' #' @importFrom scales manual_pal #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @examples #' library("scales") #' show_col(pal_gsea("default")(12)) #' show_col(pal_gsea("default", n = 30, alpha = 0.6, reverse = TRUE)(30)) pal_gsea <- function(palette = c("default"), n = 12, alpha = 1, reverse = FALSE) { palette <- match.arg(palette) alpha_cols <- rgb_gsea(palette, n, alpha, reverse) manual_pal(unname(alpha_cols)) } #' The GSEA GenePattern Color Scales #' #' See \code{\link{pal_gsea}} for details. #' #' @inheritParams pal_gsea #' @param ... additional parameters for \code{\link[ggplot2]{discrete_scale}} #' #' @export scale_color_gsea #' #' @importFrom ggplot2 scale_color_gradientn #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @rdname scale_gsea #' #' @examples #' library("ggplot2") #' library("reshape2") #' data("mtcars") #' #' cor <- cor(mtcars) #' cor_melt <- melt(cor) #' #' ggplot( #' cor_melt, #' aes(x = Var1, y = Var2, fill = value) #' ) + #' geom_tile(colour = "black", size = 0.3) + #' theme_bw() + scale_fill_gsea() scale_color_gsea <- function(palette = c("default"), alpha = 1, reverse = FALSE, ...) { palette <- match.arg(palette) scale_color_gradientn(colours = rgb_gsea(palette, n = 512, alpha = alpha, reverse = reverse), ...) } #' @export scale_colour_gsea #' @rdname scale_gsea scale_colour_gsea <- scale_color_gsea #' @export scale_fill_gsea #' @importFrom ggplot2 scale_fill_gradientn #' @rdname scale_gsea scale_fill_gsea <- function(palette = c("default"), alpha = 1, reverse = FALSE, ...) { palette <- match.arg(palette) scale_fill_gradientn(colours = rgb_gsea(palette, n = 512, alpha = alpha, reverse = reverse), ...) } ggsci/R/discrete-uchicago.R0000644000176200001440000000623314570505642015270 0ustar liggesusers#' The University of Chicago Color Palettes #' #' Color palettes based on the colors used by the University of Chicago. #' #' @param palette Palette type. #' There are 3 available options: #' \code{"default"} (9-color palette); #' \code{"light"} (9-color light palette); #' \code{"dark"} (9-color dark palette). #' @param alpha Transparency level, a real number in (0, 1]. #' See \code{alpha} in \code{\link[grDevices]{rgb}} for details. #' #' @export pal_uchicago #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @references \url{https://news.uchicago.edu/sites/default/files/attachments/_uchicago.identity.guidelines.pdf} #' #' @examples #' library("scales") #' show_col(pal_uchicago("default")(9)) #' show_col(pal_uchicago("light")(9)) #' show_col(pal_uchicago("dark")(9)) pal_uchicago <- function(palette = c("default", "light", "dark"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L | alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"uchicago"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' The University of Chicago Color Scales #' #' See \code{\link{pal_uchicago}} for details. #' #' @inheritParams pal_uchicago #' @param ... additional parameters for \code{\link[ggplot2]{discrete_scale}} #' #' @export scale_color_uchicago #' #' @importFrom ggplot2 discrete_scale #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @references \url{https://news.uchicago.edu/sites/default/files/attachments/_uchicago.identity.guidelines.pdf} #' #' @rdname scale_uchicago #' #' @examples #' library("ggplot2") #' data("diamonds") #' #' p1 <- ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() #' #' p2 <- ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() #' #' p1 + scale_color_uchicago() #' p2 + scale_fill_uchicago() #' #' p1 + scale_color_uchicago(palette = "light") #' p2 + scale_fill_uchicago(palette = "light") #' #' p1 + scale_color_uchicago(palette = "dark") #' p2 + scale_fill_uchicago(palette = "dark") scale_color_uchicago <- function(palette = c("default", "light", "dark"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("colour", "uchicago", pal_uchicago(palette, alpha), ...) } #' @export scale_colour_uchicago #' @rdname scale_uchicago scale_colour_uchicago <- scale_color_uchicago #' @export scale_fill_uchicago #' @importFrom ggplot2 discrete_scale #' @rdname scale_uchicago scale_fill_uchicago <- function(palette = c("default", "light", "dark"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("fill", "uchicago", pal_uchicago(palette, alpha), ...) } ggsci/R/sysdata.rda0000644000176200001440000001365714570505642013733 0ustar liggesusers\[ƕx.I`g/Ⱥ%Ȓ/D(%tsfhYvn{ӭ$êm!Y,:uG|rpx~ŁO󛃃O~/g^:LS>BiyEiLZhiGXk6$bCFEP:J⓷8nEt8SS5MqStOx_.ʢ+HonYͫ,bq#Ӈ'ٟzuMaYv|_ ~.ƴ뢙w}: ut=kB5KϹ<8EJ3DJ&x(QDryG(/`b7q'8÷|8e/hw#cޕEjUv^/}~wPͰb׫b~iyy[Οzvj2SY;NH8˽D+)gIf~$1)3Luٻߴs/|0eb_|=+LJzQy>yծ0n m,πoL(/fy0s('Nfbxd9YeF1nM=!H/"<"=բ~ֳrd۴$Nd /_].pQ:+lP_W!?*]d )=%M)3Gi*2CQ#<˔yQ4 Hh|>ev~ꥹwY6MYѬoFA}[5x 8SYobˋ6 h`[hL`˽4:fY鍡`yAt{'0Z<טRBK$+s`L! ^Ai,8Luް*Gñぃ8&8- K5B# M!W~xHNWږ8zb1Y+m嘘4"~]3A$q„~SjJ ZNUgcscWŪZnF-}a[g3WY;?a(9lՠNUA]WAvu7rUIo)#GC8d\s g:cmXbxAEkd/3%y|.Ӵ8|aNlY}ێϛxYe“~f..6iVU]ϲY]MJPPȨwO:%!'M ${ӌ% <]c$jn:3!b8krpg9tb`(ṹsl{>ˋJtV.'do _>~97EawF?uR, {grxs|޾tqJeޔ]fxޟrc<ԕ,9mUQWcC_gF{յ߭嫲io|r㹉=]w6wU"ҿ/kb6b|¯ɺ-|^bѮ6ink72;吝QK)WUN!GWi91T,UL4r-'~@E25664'ߤ?|7> ?/ztz**_-{v]fV< t|@QY*PHj$c^ePHdy(qEa&$%"gڔJUB1mӷ@S 5N$0Ie4l ']`6$LmΆng F\*0δޕh6Lߖs rwW=z5 qz!m/7/. &&]X>nr(NlfؠHY@)MxP̯bM84xIdЯ\&R"6KϏ`UN.벬ɂl_vgu񗶚8m쇹H0֋tm4_ݢ VSnrnQ>/g[`Q7Eo+W6 ˚0l; %3 ^N[Pdl<7g.i9|^?Pg-j5 _CWӔu}E;g}Wռ/4]sO>x.8Q9VJi0kAiLď2%#((oV.̹/{x(ou5~uw,+ˁtvvacwרAu(س^ru\: g?ټ|UΫ(O9a/L&&̖ !|YI"9$$ʛ9ɡucA# mW4bfyn݌=B_Wt}UfgΜ{Xb/gߢF/8g+0'M{;6Y=zfOnϫ>0vk>AT|IdeA`Z`ƳI39@( $)EE2ɛN(1{>'WE] 6UYw^m{7}Z|X} cADr Auh]n|sz_2$?la/w{%VnE`B(4=X|Ajx_ؽ    ЦJKIPSZgeFJEX((5lCb!bơ^E.ü^*ȳoIiYyEeU>y$ҿBAgU:!RCV!',OQR"5H7KcVM%)AN jJ<˥\lXIyJuKݡWHB )1 8ݡ4w[~i@$t"]D(w.%Py K`Ia b-%  ySjy _ф%F7aDQ8%T{l{A2%)M |JSԔԙ/N92)ցa[R}ĉN eL{! ! ! ! ^6Ɩ[^C/Θ-i ygp5ibc;h`cD0"9b.uc0 (^^$PO#;ht4&w^GVk5ɵƐ(s`|E&PQ 1++& Q\'h䷇$4,<"2*a#11`TdaF-RlLElL|Hn%V.Vz6CBBBBBB+k0C3"b#֐cNBdhVh'^O!cMX<MyFn1`:l &x_[ LjxCsgꩉ1FJ ߹H)FJ,vls!rAY_|^|y8_Hv."E仈bQ"]ĽKX ,3;AI +c\`_-]@uj5U'tXy1P<;GyNI9?'$Fv/XҺ;y@:ۢhD4~٣oY?Hvx6$ΟM|~bv|w8< (:wS~;dl}[,g'rv74\|2auaO[zv_͊'vjҧպ]c|*UWwݺUUvcC_]W#c#tM[*:4Qggsci/R/discrete-tron.R0000644000176200001440000000522714570505642014472 0ustar liggesusers#' Tron Legacy Color Palettes #' #' Color palettes inspired by the colors used in \emph{Tron Legacy}. #' #' @param palette Palette type. #' Currently there is one available option: \code{"legacy"} #' (7-color palette). #' @param alpha Transparency level, a real number in (0, 1]. #' See \code{alpha} in \code{\link[grDevices]{rgb}} for details. #' #' @export pal_tron #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @examples #' library("scales") #' show_col(pal_tron("legacy")(7)) #' show_col(pal_tron("legacy", alpha = 0.6)(7)) pal_tron <- function(palette = c("legacy"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L | alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"tron"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' Tron Legacy Color Scales #' #' See \code{\link{pal_tron}} for details. #' #' @inheritParams pal_tron #' @param ... additional parameters for \code{\link[ggplot2]{discrete_scale}} #' #' @export scale_color_tron #' #' @importFrom ggplot2 discrete_scale #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @rdname scale_tron #' #' @examples #' library("ggplot2") #' data("diamonds") #' #' ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_dark() + theme( #' panel.background = element_rect(fill = "#2D2D2D"), #' legend.key = element_rect(fill = "#2D2D2D") #' ) + #' scale_color_tron() #' #' ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_dark() + theme( #' panel.background = element_rect(fill = "#2D2D2D") #' ) + #' scale_fill_tron() scale_color_tron <- function(palette = c("legacy"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("colour", "tron", pal_tron(palette, alpha), ...) } #' @export scale_colour_tron #' @rdname scale_tron scale_colour_tron <- scale_color_tron #' @export scale_fill_tron #' @importFrom ggplot2 discrete_scale #' @rdname scale_tron scale_fill_tron <- function(palette = c("legacy"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("fill", "tron", pal_tron(palette, alpha), ...) } ggsci/R/discrete-startrek.R0000644000176200001440000000503714570505642015346 0ustar liggesusers#' Star Trek Color Palettes #' #' Color palettes inspired by the colors used in \emph{Star Trek}. #' #' @param palette Palette type. #' Currently there is one available option: \code{"uniform"} #' (7-color palette). #' @param alpha Transparency level, a real number in (0, 1]. #' See \code{alpha} in \code{\link[grDevices]{rgb}} for details. #' #' @export pal_startrek #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @examples #' library("scales") #' show_col(pal_startrek("uniform")(7)) #' show_col(pal_startrek("uniform", alpha = 0.6)(7)) pal_startrek <- function(palette = c("uniform"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L | alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"startrek"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' Star Trek Color Scales #' #' See \code{\link{pal_startrek}} for details. #' #' @inheritParams pal_startrek #' @param ... additional parameters for \code{\link[ggplot2]{discrete_scale}} #' #' @export scale_color_startrek #' #' @importFrom ggplot2 discrete_scale #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @rdname scale_startrek #' #' @examples #' library("ggplot2") #' data("diamonds") #' #' ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() + scale_color_startrek() #' #' ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() + scale_fill_startrek() scale_color_startrek <- function(palette = c("uniform"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("colour", "startrek", pal_startrek(palette, alpha), ...) } #' @export scale_colour_startrek #' @rdname scale_startrek scale_colour_startrek <- scale_color_startrek #' @export scale_fill_startrek #' @importFrom ggplot2 discrete_scale #' @rdname scale_startrek scale_fill_startrek <- function(palette = c("uniform"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("fill", "startrek", pal_startrek(palette, alpha), ...) } ggsci/R/discrete-d3.R0000644000176200001440000000632114570505642014012 0ustar liggesusers#' D3.js Color Palettes #' #' Color palettes based on the colors used by D3.js. #' #' @param palette Palette type. #' There are 4 available options: #' \code{"category10"} (10-color palette); #' \code{"category20"} (20-color palette); #' \code{"category20b"} (20-color palette); #' \code{"category20c"} (20-color palette). #' @param alpha Transparency level, a real number in (0, 1]. #' See \code{alpha} in \code{\link[grDevices]{rgb}} for details. #' #' @export pal_d3 #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @references \url{https://github.com/d3/d3-3.x-api-reference/blob/master/Ordinal-Scales.md} #' #' @examples #' library("scales") #' show_col(pal_d3("category10")(10)) #' show_col(pal_d3("category20")(20)) #' show_col(pal_d3("category20b")(20)) #' show_col(pal_d3("category20c")(20)) pal_d3 <- function(palette = c("category10", "category20", "category20b", "category20c"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L | alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"d3"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' D3.js Color Scales #' #' See \code{\link{pal_d3}} for details. #' #' @inheritParams pal_d3 #' @param ... additional parameters for \code{\link[ggplot2]{discrete_scale}} #' #' @export scale_color_d3 #' #' @importFrom ggplot2 discrete_scale #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @references \url{https://github.com/d3/d3-3.x-api-reference/blob/master/Ordinal-Scales.md} #' #' @rdname scale_d3 #' #' @examples #' library("ggplot2") #' data("diamonds") #' #' p1 <- ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() #' #' p2 <- ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() #' #' p1 + scale_color_d3() #' p2 + scale_fill_d3() #' #' p1 + scale_color_d3(palette = "category20") #' p2 + scale_fill_d3(palette = "category20") #' #' p1 + scale_color_d3(palette = "category20b") #' p2 + scale_fill_d3(palette = "category20b") #' #' p1 + scale_color_d3(palette = "category20c") #' p2 + scale_fill_d3(palette = "category20c") scale_color_d3 <- function(palette = c("category10", "category20", "category20b", "category20c"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("colour", "d3", pal_d3(palette, alpha), ...) } #' @export scale_colour_d3 #' @rdname scale_d3 scale_colour_d3 <- scale_color_d3 #' @export scale_fill_d3 #' @importFrom ggplot2 discrete_scale #' @rdname scale_d3 scale_fill_d3 <- function(palette = c("category10", "category20", "category20b", "category20c"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("fill", "d3", pal_d3(palette, alpha), ...) } ggsci/R/discrete-ucscgb.R0000644000176200001440000000500114570505642014744 0ustar liggesusers#' UCSC Genome Browser Color Palette #' #' Color palette from UCSC Genome Browser chromosome colors. #' #' @param palette Palette type. #' Currently there is one available option: \code{"default"} #' (26-color palette). #' @param alpha Transparency level, a real number in (0, 1]. #' See \code{alpha} in \code{\link[grDevices]{rgb}} for details. #' #' @export pal_ucscgb #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @examples #' library("scales") #' show_col(pal_ucscgb("default")(26)) #' show_col(pal_ucscgb("default", alpha = 0.6)(26)) pal_ucscgb <- function(palette = c("default"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L | alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"ucscgb"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' UCSC Genome Browser Color Scales #' #' See \code{\link{pal_ucscgb}} for details. #' #' @inheritParams pal_ucscgb #' @param ... additional parameters for \code{\link[ggplot2]{discrete_scale}} #' #' @export scale_color_ucscgb #' #' @importFrom ggplot2 discrete_scale #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @rdname scale_ucscgb #' #' @examples #' library("ggplot2") #' data("diamonds") #' #' ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() + scale_color_ucscgb() #' #' ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() + scale_fill_ucscgb() scale_color_ucscgb <- function(palette = c("default"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("colour", "ucscgb", pal_ucscgb(palette, alpha), ...) } #' @export scale_colour_ucscgb #' @rdname scale_ucscgb scale_colour_ucscgb <- scale_color_ucscgb #' @export scale_fill_ucscgb #' @importFrom ggplot2 discrete_scale #' @rdname scale_ucscgb scale_fill_ucscgb <- function(palette = c("default"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("fill", "ucscgb", pal_ucscgb(palette, alpha), ...) } ggsci/R/discrete-aaas.R0000644000176200001440000000514314570505642014412 0ustar liggesusers#' AAAS Journal Color Palettes #' #' Color palettes inspired by plots in journals published by #' American Association for the Advancement of Science (AAAS), #' such as \emph{Science} and \emph{Science Translational Medicine}. #' #' @param palette Palette type. #' Currently there is one available option: \code{"default"} #' (10-color palette inspired by \emph{Science}). #' @param alpha Transparency level, a real number in (0, 1]. #' See \code{alpha} in \code{\link[grDevices]{rgb}} for details. #' #' @export pal_aaas #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @examples #' library("scales") #' show_col(pal_aaas("default")(10)) #' show_col(pal_aaas("default", alpha = 0.6)(10)) pal_aaas <- function(palette = c("default"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L | alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"aaas"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' AAAS Journal Color Scales #' #' See \code{\link{pal_aaas}} for details. #' #' @inheritParams pal_aaas #' @param ... additional parameters for \code{\link[ggplot2]{discrete_scale}} #' #' @export scale_color_aaas #' #' @importFrom ggplot2 discrete_scale #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @rdname scale_aaas #' #' @examples #' library("ggplot2") #' data("diamonds") #' #' ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() + scale_color_aaas() #' #' ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() + scale_fill_aaas() scale_color_aaas <- function(palette = c("default"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("colour", "aaas", pal_aaas(palette, alpha), ...) } #' @export scale_colour_aaas #' @rdname scale_aaas scale_colour_aaas <- scale_color_aaas #' @export scale_fill_aaas #' @importFrom ggplot2 discrete_scale #' @rdname scale_aaas scale_fill_aaas <- function(palette = c("default"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("fill", "aaas", pal_aaas(palette, alpha), ...) } ggsci/R/discrete-nejm.R0000644000176200001440000000471314570505642014440 0ustar liggesusers#' NEJM Color Palettes #' #' Color palette inspired by plots in #' \emph{The New England Journal of Medicine}. #' #' @param palette Palette type. #' Currently there is one available option: \code{"default"} #' (8-color palette). #' @param alpha Transparency level, a real number in (0, 1]. #' See \code{alpha} in \code{\link[grDevices]{rgb}} for details. #' #' @export pal_nejm #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @examples #' library("scales") #' show_col(pal_nejm("default")(8)) #' show_col(pal_nejm("default", alpha = 0.6)(8)) pal_nejm <- function(palette = c("default"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L | alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"nejm"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' NEJM Color Scales #' #' See \code{\link{pal_nejm}} for details. #' #' @inheritParams pal_nejm #' @param ... additional parameters for \code{\link[ggplot2]{discrete_scale}} #' #' @export scale_color_nejm #' #' @importFrom ggplot2 discrete_scale #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @rdname scale_nejm #' #' @examples #' library("ggplot2") #' data("diamonds") #' #' ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() + scale_color_nejm() #' #' ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() + scale_fill_nejm() scale_color_nejm <- function(palette = c("default"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("colour", "nejm", pal_nejm(palette, alpha), ...) } #' @export scale_colour_nejm #' @rdname scale_nejm scale_colour_nejm <- scale_color_nejm #' @export scale_fill_nejm #' @importFrom ggplot2 discrete_scale #' @rdname scale_nejm scale_fill_nejm <- function(palette = c("default"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("fill", "nejm", pal_nejm(palette, alpha), ...) } ggsci/R/discrete-lancet.R0000644000176200001440000000506014570505642014751 0ustar liggesusers#' Lancet Journal Color Palettes #' #' Color palettes inspired by plots in Lancet journals, #' such as \emph{Lancet Oncology}. #' #' @param palette Palette type. #' Currently there is one available option: \code{"lanonc"} #' (9-color palette inspired by \emph{Lancet Oncology}). #' @param alpha Transparency level, a real number in (0, 1]. #' See \code{alpha} in \code{\link[grDevices]{rgb}} for details. #' #' @export pal_lancet #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @examples #' library("scales") #' show_col(pal_lancet("lanonc")(9)) #' show_col(pal_lancet("lanonc", alpha = 0.6)(9)) pal_lancet <- function(palette = c("lanonc"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L | alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"lancet"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' Lancet Journal Color Scales #' #' See \code{\link{pal_lancet}} for details. #' #' @inheritParams pal_lancet #' @param ... additional parameters for \code{\link[ggplot2]{discrete_scale}} #' #' @export scale_color_lancet #' #' @importFrom ggplot2 discrete_scale #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @rdname scale_lancet #' #' @examples #' library("ggplot2") #' data("diamonds") #' #' ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() + scale_color_lancet() #' #' ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() + scale_fill_lancet() scale_color_lancet <- function(palette = c("lanonc"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("colour", "lancet", pal_lancet(palette, alpha), ...) } #' @export scale_colour_lancet #' @rdname scale_lancet scale_colour_lancet <- scale_color_lancet #' @export scale_fill_lancet #' @importFrom ggplot2 discrete_scale #' @rdname scale_lancet scale_fill_lancet <- function(palette = c("lanonc"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("fill", "lancet", pal_lancet(palette, alpha), ...) } ggsci/R/discrete-npg.R0000644000176200001440000000500014570505642014261 0ustar liggesusers#' NPG Journal Color Palettes #' #' Color palettes inspired by plots in journals published by #' Nature Publishing Group, such as \emph{Nature Reviews Cancer}. #' #' @param palette Palette type. #' Currently there is one available option: \code{"nrc"} #' (10-color palette inspired by \emph{Nature Reviews Cancer}). #' @param alpha Transparency level, a real number in (0, 1]. #' See \code{alpha} in \code{\link[grDevices]{rgb}} for details. #' #' @export pal_npg #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @examples #' library("scales") #' show_col(pal_npg("nrc")(10)) #' show_col(pal_npg("nrc", alpha = 0.6)(10)) pal_npg <- function(palette = c("nrc"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L | alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"npg"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' NPG Journal Color Scales #' #' See \code{\link{pal_npg}} for details. #' #' @inheritParams pal_npg #' @param ... additional parameters for \code{\link[ggplot2]{discrete_scale}} #' #' @export scale_color_npg #' #' @importFrom ggplot2 discrete_scale #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @rdname scale_npg #' #' @examples #' library("ggplot2") #' data("diamonds") #' #' ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() + scale_color_npg() #' #' ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() + scale_fill_npg() scale_color_npg <- function(palette = c("nrc"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("colour", "npg", pal_npg(palette, alpha), ...) } #' @export scale_colour_npg #' @rdname scale_npg scale_colour_npg <- scale_color_npg #' @export scale_fill_npg #' @importFrom ggplot2 discrete_scale #' @rdname scale_npg scale_fill_npg <- function(palette = c("nrc"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("fill", "npg", pal_npg(palette, alpha), ...) } ggsci/R/discrete-frontiers.R0000644000176200001440000000527114570505642015522 0ustar liggesusers#' Frontiers Color Palettes #' #' Color palettes inspired by the colors used in \emph{Frontiers}. #' #' @param palette Palette type. #' Currently there is one available option: \code{"default"} #' (10-color palette). #' @param alpha Transparency level, a real number in (0, 1]. #' See \code{alpha} in \code{\link[grDevices]{rgb}} for details. #' #' @export pal_frontiers #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Clara Jégousse <\email{cat3@@hi.is}> #' #' @examples #' library("scales") #' show_col(pal_frontiers("default")(7)) #' show_col(pal_frontiers("default", alpha = 0.6)(7)) pal_frontiers <- function(palette = c("default"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L | alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"frontiers"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' Frontiers Color Scales #' #' See \code{\link{pal_frontiers}} for details. #' #' @inheritParams pal_frontiers #' @param ... additional parameters for \code{\link[ggplot2]{discrete_scale}} #' #' @export scale_color_frontiers #' #' @importFrom ggplot2 discrete_scale #' #' @author Clara Jégousse <\email{cat3@@hi.is}> #' #' @rdname scale_frontiers #' #' @examples #' library("ggplot2") #' data("diamonds") #' #' ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_dark() + theme( #' panel.background = element_rect(fill = "#2D2D2D"), #' legend.key = element_rect(fill = "#2D2D2D") #' ) + #' scale_color_frontiers() #' #' ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_dark() + theme( #' panel.background = element_rect(fill = "#2D2D2D") #' ) + #' scale_fill_frontiers() scale_color_frontiers <- function(palette = c("default"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("colour", "frontiers", pal_frontiers(palette, alpha), ...) } #' @export scale_colour_frontiers #' @rdname scale_frontiers scale_colour_frontiers <- scale_color_frontiers #' @export scale_fill_frontiers #' @importFrom ggplot2 discrete_scale #' @rdname scale_frontiers scale_fill_frontiers <- function(palette = c("default"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("fill", "frontiers", pal_frontiers(palette, alpha), ...) } ggsci/R/discrete-cosmic.R0000644000176200001440000000644014570505642014763 0ustar liggesusers#' COSMIC Color Palettes #' #' Color palettes inspired by the colors used in projects from the #' \href{https://cancer.sanger.ac.uk/cosmic}{Catalogue Of #' Somatic Mutations in Cancers (COSMIC)} #' #' @param palette Palette type. Currently there are three available options: #' \code{"signature_substitutions"} (6-color palette), #' \code{"hallmarks_light"} (10-color palette), and \code{"hallmarks_dark"} #' (10-color palette). The \code{"hallmarks_light"} option is from #' \href{https://pubmed.ncbi.nlm.nih.gov/21376230/}{Hanahan and Weinberg (2011)}. #' #' @param alpha Transparency level, a real number in (0, 1]. #' See \code{alpha} in \code{\link[grDevices]{rgb}} for details. #' #' @export pal_cosmic #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Joshua H. Cook <\email{joshuacook0023@@gmail.com}> | #' <\href{https://github.com/jhrcook}{GitHub/jhrcook}> #' #' @examples #' library("scales") #' show_col(pal_cosmic("hallmarks_light")(10)) #' show_col(pal_cosmic("hallmarks_light", alpha = 0.6)(10)) #' show_col(pal_cosmic("hallmarks_dark")(10)) #' show_col(pal_cosmic("hallmarks_dark", alpha = 0.6)(10)) #' show_col(pal_cosmic("signature_substitutions")(6)) #' show_col(pal_cosmic("signature_substitutions", alpha = 0.6)(6)) pal_cosmic <- function( palette = c("hallmarks_light", "hallmarks_dark", "signature_substitutions"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L | alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"cosmic"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' COSMIC Color Scales #' #' See \code{\link{pal_cosmic}} for details. #' #' @inheritParams pal_cosmic #' @param ... additional parameters for \code{\link[ggplot2]{discrete_scale}} #' #' @export scale_color_cosmic #' #' @importFrom ggplot2 discrete_scale #' #' @author Joshua H. Cook <\email{joshuacook0023@@gmail.com}> | #' <\href{https://github.com/jhrcook}{GitHub/jhrcook}> #' #' @rdname scale_cosmic #' #' @examples #' library("ggplot2") #' data("diamonds") #' #' ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() + scale_color_cosmic() #' #' ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() + scale_fill_cosmic() scale_color_cosmic <- function( palette = c("hallmarks_light", "hallmarks_dark", "signature_substitutions"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("colour", "cosmic", pal_cosmic(palette, alpha), ...) } #' @export scale_colour_cosmic #' @rdname scale_cosmic scale_colour_cosmic <- scale_color_cosmic #' @export scale_fill_cosmic #' @importFrom ggplot2 discrete_scale #' @rdname scale_cosmic scale_fill_cosmic <- function( palette = c("hallmarks_light", "hallmarks_dark", "signature_substitutions"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("fill", "cosmic", pal_cosmic(palette, alpha), ...) } ggsci/R/discrete-flatui.R0000644000176200001440000000572414570505642014776 0ustar liggesusers#' Flat UI Color Palettes #' #' Color palettes inspired by the colors used in \emph{Flat UI Colors}. #' #' @param palette Palette type. #' Currently there are three available option: #' \code{"default"} (10-color palette). #' \code{"flattastic"} (12-color palette). #' \code{"aussie"} (10-color palette). #' @param alpha Transparency level, a real number in (0, 1]. #' See \code{alpha} in \code{\link[grDevices]{rgb}} for details. #' #' @export pal_flatui #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Clara Jégousse <\email{cat3@@hi.is}> #' #' @examples #' library("scales") #' show_col(pal_flatui("default")(10)) #' show_col(pal_flatui("flattastic")(12)) #' show_col(pal_flatui("aussie")(10)) #' show_col(pal_flatui("aussie", alpha = 0.6)(10)) pal_flatui <- function(palette = c("default", "flattastic", "aussie"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L | alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"flatui"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' Flat UI Color Scales #' #' See \code{\link{pal_flatui}} for details. #' #' @inheritParams pal_flatui #' @param ... additional parameters for \code{\link[ggplot2]{discrete_scale}} #' #' @export scale_color_flatui #' #' @importFrom ggplot2 discrete_scale #' #' @author Clara Jégousse <\email{cat3@@hi.is}> #' #' @rdname scale_flatui #' #' @examples #' library("ggplot2") #' data("diamonds") #' #' p1 <- ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() #' #' p2 <- ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() #' #' p1 + scale_color_flatui() #' p2 + scale_fill_flatui() #' #' p1 + scale_color_flatui(palette = "default") #' p2 + scale_fill_flatui(palette = "default") #' #' p1 + scale_color_flatui(palette = "flattastic") #' p2 + scale_fill_flatui(palette = "flattastic") #' #' p1 + scale_color_flatui(palette = "aussie") #' p2 + scale_fill_flatui(palette = "aussie") scale_color_flatui <- function(palette = c("default", "flattastic", "aussie"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("colour", "flatui", pal_flatui(palette, alpha), ...) } #' @export scale_colour_flatui #' @rdname scale_flatui scale_colour_flatui <- scale_color_flatui #' @export scale_fill_flatui #' @importFrom ggplot2 discrete_scale #' @rdname scale_flatui scale_fill_flatui <- function(palette = c("default", "flattastic", "aussie"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("fill", "flatui", pal_flatui(palette, alpha), ...) } ggsci/R/discrete-igv.R0000644000176200001440000000574314570517411014275 0ustar liggesusers#' Integrative Genomics Viewer (IGV) Color Palettes #' #' Color palettes based on the colors used by #' Integrative Genomics Viewer (IGV). #' #' @param palette Palette type. #' There are two available options: #' \code{"default"} (51-color palette); #' \code{"alternating"} (2-color palette). #' @param alpha Transparency level, a real number in (0, 1]. #' See \code{alpha} in \code{\link[grDevices]{rgb}} for details. #' #' @export pal_igv #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @references #' James T. Robinson, Helga Thorvaldsdóttir, Wendy Winckler, #' Mitchell Guttman, Eric S. Lander, Gad Getz, Jill P. Mesirov. #' Integrative Genomics Viewer. \emph{Nature Biotechnology} 29, 24--26 (2011). #' #' @examples #' library("scales") #' show_col(pal_igv("default")(51)) #' show_col(pal_igv("alternating")(2)) pal_igv <- function(palette = c("default", "alternating"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L | alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"igv"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' Integrative Genomics Viewer (IGV) Color Scales #' #' See \code{\link{pal_igv}} for details. #' #' @inheritParams pal_igv #' @param ... additional parameters for \code{\link[ggplot2]{discrete_scale}} #' #' @export scale_color_igv #' #' @importFrom ggplot2 discrete_scale #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @rdname scale_igv #' #' @examples #' library("ggplot2") #' data("diamonds") #' #' p1 <- ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() #' #' p2 <- ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() #' #' p1 + scale_color_igv() #' p2 + scale_fill_igv() #' #' p1 + scale_colour_manual( #' values = rep(pal_igv("alternating")(2), times = 3) #' ) #' p2 + scale_fill_manual( #' values = rep(pal_igv("alternating")(2), times = 3) #' ) scale_color_igv <- function(palette = c("default", "alternating"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("colour", "igv", pal_igv(palette, alpha), ...) } #' @export scale_colour_igv #' @rdname scale_igv scale_colour_igv <- scale_color_igv #' @export scale_fill_igv #' @importFrom ggplot2 discrete_scale #' @rdname scale_igv scale_fill_igv <- function(palette = c("default", "alternating"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("fill", "igv", pal_igv(palette, alpha), ...) } ggsci/R/discrete-locuszoom.R0000644000176200001440000000533614570505642015543 0ustar liggesusers#' LocusZoom Color Palette #' #' Color palettes based on the colors used by LocusZoom. #' #' @param palette Palette type. #' Currently there is one available option: \code{"default"} #' (7-color palette). #' @param alpha Transparency level, a real number in (0, 1]. #' See \code{alpha} in \code{\link[grDevices]{rgb}} for details. #' #' @export pal_locuszoom #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @references #' Pruim, Randall J., et al. (2010). LocusZoom: regional visualization of #' genome-wide association scan results. \emph{Bioinformatics}, #' 26(18), 2336--2337. #' #' @examples #' library("scales") #' show_col(pal_locuszoom("default")(7)) #' show_col(pal_locuszoom("default", alpha = 0.6)(7)) pal_locuszoom <- function(palette = c("default"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L | alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"locuszoom"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' LocusZoom Color Scales #' #' See \code{\link{pal_locuszoom}} for details. #' #' @inheritParams pal_locuszoom #' @param ... additional parameters for \code{\link[ggplot2]{discrete_scale}} #' #' @export scale_color_locuszoom #' #' @importFrom ggplot2 discrete_scale #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @rdname scale_locuszoom #' #' @examples #' library("ggplot2") #' data("diamonds") #' #' ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() + scale_color_locuszoom() #' #' ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() + scale_fill_locuszoom() scale_color_locuszoom <- function(palette = c("default"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("colour", "locuszoom", pal_locuszoom(palette, alpha), ...) } #' @export scale_colour_locuszoom #' @rdname scale_locuszoom scale_colour_locuszoom <- scale_color_locuszoom #' @export scale_fill_locuszoom #' @importFrom ggplot2 discrete_scale #' @rdname scale_locuszoom scale_fill_locuszoom <- function(palette = c("default"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("fill", "locuszoom", pal_locuszoom(palette, alpha), ...) } ggsci/R/discrete-jama.R0000644000176200001440000000504514570505642014416 0ustar liggesusers#' Journal of the American Medical Association Color Palettes #' #' Color palette inspired by plots in #' \emph{The Journal of the American Medical Association}. #' #' @param palette Palette type. #' Currently there is one available option: \code{"default"} #' (7-color palette). #' @param alpha Transparency level, a real number in (0, 1]. #' See \code{alpha} in \code{\link[grDevices]{rgb}} for details. #' #' @export pal_jama #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @examples #' library("scales") #' show_col(pal_jama("default")(7)) #' show_col(pal_jama("default", alpha = 0.6)(7)) pal_jama <- function(palette = c("default"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L | alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"jama"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' Journal of the American Medical Association Color Scales #' #' See \code{\link{pal_jama}} for details. #' #' @inheritParams pal_jama #' @param ... additional parameters for \code{\link[ggplot2]{discrete_scale}} #' #' @export scale_color_jama #' #' @importFrom ggplot2 discrete_scale #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @rdname scale_jama #' #' @examples #' library("ggplot2") #' data("diamonds") #' #' ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() + scale_color_jama() #' #' ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() + scale_fill_jama() scale_color_jama <- function(palette = c("default"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("colour", "jama", pal_jama(palette, alpha), ...) } #' @export scale_colour_jama #' @rdname scale_jama scale_colour_jama <- scale_color_jama #' @export scale_fill_jama #' @importFrom ggplot2 discrete_scale #' @rdname scale_jama scale_fill_jama <- function(palette = c("default"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("fill", "jama", pal_jama(palette, alpha), ...) } ggsci/R/discrete-futurama.R0000644000176200001440000000511114570505642015324 0ustar liggesusers#' The Futurama Color Palettes #' #' Color palettes inspired by the colors used in \emph{Futurama}. #' #' @param palette Palette type. #' Currently there is one available option: \code{"planetexpress"} #' (12-color palette). #' @param alpha Transparency level, a real number in (0, 1]. #' See \code{alpha} in \code{\link[grDevices]{rgb}} for details. #' #' @export pal_futurama #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @examples #' library("scales") #' show_col(pal_futurama("planetexpress")(12)) #' show_col(pal_futurama("planetexpress", alpha = 0.6)(12)) pal_futurama <- function(palette = c("planetexpress"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L | alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"futurama"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' The Futurama Color Scales #' #' See \code{\link{pal_futurama}} for details. #' #' @inheritParams pal_futurama #' @param ... additional parameters for \code{\link[ggplot2]{discrete_scale}} #' #' @export scale_color_futurama #' #' @importFrom ggplot2 discrete_scale #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @rdname scale_futurama #' #' @examples #' library("ggplot2") #' data("diamonds") #' #' ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() + scale_color_futurama() #' #' ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() + scale_fill_futurama() scale_color_futurama <- function(palette = c("planetexpress"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("colour", "futurama", pal_futurama(palette, alpha), ...) } #' @export scale_colour_futurama #' @rdname scale_futurama scale_colour_futurama <- scale_color_futurama #' @export scale_fill_futurama #' @importFrom ggplot2 discrete_scale #' @rdname scale_futurama scale_fill_futurama <- function(palette = c("planetexpress"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("fill", "futurama", pal_futurama(palette, alpha), ...) } ggsci/R/discrete-simpsons.R0000644000176200001440000000510314570505642015354 0ustar liggesusers#' The Simpsons Color Palettes #' #' Color palettes inspired by the colors used in \emph{The Simpsons}. #' #' @param palette Palette type. #' Currently there is one available option: \code{"springfield"} #' (16-color palette). #' @param alpha Transparency level, a real number in (0, 1]. #' See \code{alpha} in \code{\link[grDevices]{rgb}} for details. #' #' @export pal_simpsons #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @examples #' library("scales") #' show_col(pal_simpsons("springfield")(16)) #' show_col(pal_simpsons("springfield", alpha = 0.6)(16)) pal_simpsons <- function(palette = c("springfield"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L | alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"simpsons"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' The Simpsons Color Scales #' #' See \code{\link{pal_simpsons}} for details. #' #' @inheritParams pal_simpsons #' @param ... additional parameters for \code{\link[ggplot2]{discrete_scale}} #' #' @export scale_color_simpsons #' #' @importFrom ggplot2 discrete_scale #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @rdname scale_simpsons #' #' @examples #' library("ggplot2") #' data("diamonds") #' #' ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() + scale_color_simpsons() #' #' ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() + scale_fill_simpsons() scale_color_simpsons <- function(palette = c("springfield"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("colour", "simpsons", pal_simpsons(palette, alpha), ...) } #' @export scale_colour_simpsons #' @rdname scale_simpsons scale_colour_simpsons <- scale_color_simpsons #' @export scale_fill_simpsons #' @importFrom ggplot2 discrete_scale #' @rdname scale_simpsons scale_fill_simpsons <- function(palette = c("springfield"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("fill", "simpsons", pal_simpsons(palette, alpha), ...) } ggsci/R/discrete-jco.R0000644000176200001440000000473514570505642014266 0ustar liggesusers#' Journal of Clinical Oncology Color Palettes #' #' Color palette inspired by plots in \emph{Journal of Clinical Oncology}. #' #' @param palette Palette type. #' Currently there is one available option: \code{"default"} #' (10-color palette). #' @param alpha Transparency level, a real number in (0, 1]. #' See \code{alpha} in \code{\link[grDevices]{rgb}} for details. #' #' @export pal_jco #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @examples #' library("scales") #' show_col(pal_jco("default")(10)) #' show_col(pal_jco("default", alpha = 0.6)(10)) pal_jco <- function(palette = c("default"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L | alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"jco"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' Journal of Clinical Oncology Color Scales #' #' See \code{\link{pal_jco}} for details. #' #' @inheritParams pal_jco #' @param ... additional parameters for \code{\link[ggplot2]{discrete_scale}} #' #' @export scale_color_jco #' #' @importFrom ggplot2 discrete_scale #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @rdname scale_jco #' #' @examples #' library("ggplot2") #' data("diamonds") #' #' ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() + scale_color_jco() #' #' ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() + scale_fill_jco() scale_color_jco <- function(palette = c("default"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("colour", "jco", pal_jco(palette, alpha), ...) } #' @export scale_colour_jco #' @rdname scale_jco scale_colour_jco <- scale_color_jco #' @export scale_fill_jco #' @importFrom ggplot2 discrete_scale #' @rdname scale_jco scale_fill_jco <- function(palette = c("default"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("fill", "jco", pal_jco(palette, alpha), ...) } ggsci/R/discrete-rickandmorty.R0000644000176200001440000000522314570505642016212 0ustar liggesusers#' Rick and Morty Color Palettes #' #' Color palettes inspired by the colors used in \emph{Rick and Morty}. #' #' @param palette Palette type. #' Currently there is one available option: \code{"schwifty"} #' (12-color palette). #' @param alpha Transparency level, a real number in (0, 1]. #' See \code{alpha} in \code{\link[grDevices]{rgb}} for details. #' #' @export pal_rickandmorty #' #' @importFrom grDevices col2rgb rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @examples #' library("scales") #' show_col(pal_rickandmorty("schwifty")(12)) #' show_col(pal_rickandmorty("schwifty", alpha = 0.6)(12)) pal_rickandmorty <- function(palette = c("schwifty"), alpha = 1) { palette <- match.arg(palette) if (alpha > 1L | alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"rickandmorty"[[palette]] raw_cols_rgb <- col2rgb(raw_cols) alpha_cols <- rgb( raw_cols_rgb[1L, ], raw_cols_rgb[2L, ], raw_cols_rgb[3L, ], alpha = alpha * 255L, names = names(raw_cols), maxColorValue = 255L ) manual_pal(unname(alpha_cols)) } #' Rick and Morty Color Scales #' #' See \code{\link{pal_rickandmorty}} for details. #' #' @inheritParams pal_rickandmorty #' @param ... additional parameters for \code{\link[ggplot2]{discrete_scale}} #' #' @export scale_color_rickandmorty #' #' @importFrom ggplot2 discrete_scale #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @rdname scale_rickandmorty #' #' @examples #' library("ggplot2") #' data("diamonds") #' #' ggplot( #' subset(diamonds, carat >= 2.2), #' aes(x = table, y = price, colour = cut) #' ) + #' geom_point(alpha = 0.7) + #' geom_smooth(method = "loess", alpha = 0.1, size = 1, span = 1) + #' theme_bw() + scale_color_rickandmorty() #' #' ggplot( #' subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), #' aes(x = depth, fill = cut) #' ) + #' geom_histogram(colour = "black", binwidth = 1, position = "dodge") + #' theme_bw() + scale_fill_rickandmorty() scale_color_rickandmorty <- function(palette = c("schwifty"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("colour", "rickandmorty", pal_rickandmorty(palette, alpha), ...) } #' @export scale_colour_rickandmorty #' @rdname scale_rickandmorty scale_colour_rickandmorty <- scale_color_rickandmorty #' @export scale_fill_rickandmorty #' @importFrom ggplot2 discrete_scale #' @rdname scale_rickandmorty scale_fill_rickandmorty <- function(palette = c("schwifty"), alpha = 1, ...) { palette <- match.arg(palette) discrete_scale("fill", "rickandmorty", pal_rickandmorty(palette, alpha), ...) } ggsci/R/continuous-material.R0000644000176200001440000001140414570505642015704 0ustar liggesusers#' Material Design Color Palettes #' #' The Material Design color palettes. #' #' @param palette Palette type. #' There are 19 available options: #' \itemize{ #' \item \code{"red"} #' \item \code{"pink"} #' \item \code{"purple"} #' \item \code{"deep-purple"} #' \item \code{"indigo"} #' \item \code{"blue"} #' \item \code{"light-blue"} #' \item \code{"cyan"} #' \item \code{"teal"} #' \item \code{"green"} #' \item \code{"light-green"} #' \item \code{"lime"} #' \item \code{"yellow"} #' \item \code{"amber"} #' \item \code{"orange"}, #' \item \code{"deep-orange"} #' \item \code{"brown"} #' \item \code{"grey"} #' \item \code{"blue-grey"}} #' See \href{https://m2.material.io/design/color/the-color-system.html}{Material Design color system} #' for details. #' @param n Number of individual colors to be generated. #' @param alpha Transparency level, a real number in (0, 1]. #' See \code{alpha} in \code{\link[grDevices]{rgb}} for details. #' @param reverse Logical. Should the order of the colors be reversed? #' #' @export rgb_material #' #' @importFrom grDevices colorRamp rgb #' @importFrom scales manual_pal #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @references #' \url{https://m2.material.io/design/color/the-color-system.html} #' #' @examples #' library("scales") #' show_col(pal_material("indigo")(10)) #' show_col(pal_material("indigo", n = 30, alpha = 0.6, reverse = TRUE)(30)) rgb_material <- function( palette = c( "red", "pink", "purple", "deep-purple", "indigo", "blue", "light-blue", "cyan", "teal", "green", "light-green", "lime", "yellow", "amber", "orange", "deep-orange", "brown", "grey", "blue-grey" ), n = 10, alpha = 1, reverse = FALSE) { palette <- match.arg(palette) if (alpha > 1L | alpha <= 0L) stop("alpha must be in (0, 1]") raw_cols <- ggsci_db$"material"[[palette]] func_cols <- colorRamp(raw_cols, space = "Lab", interpolate = "spline") mat_cols <- func_cols(seq(0L, 1L, length.out = n)) alpha_cols <- rgb( mat_cols[, 1L], mat_cols[, 2L], mat_cols[, 3L], alpha = alpha * 255L, maxColorValue = 255L ) if (reverse) alpha_cols <- rev(alpha_cols) alpha_cols } #' Material Design Color Palettes #' #' The Material Design color palettes. #' #' @inheritParams rgb_material #' #' @export pal_material #' #' @importFrom scales manual_pal #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @examples #' library("scales") #' show_col(pal_material("indigo")(10)) #' show_col(pal_material("indigo", n = 30, alpha = 0.6, reverse = TRUE)(30)) pal_material <- function( palette = c( "red", "pink", "purple", "deep-purple", "indigo", "blue", "light-blue", "cyan", "teal", "green", "light-green", "lime", "yellow", "amber", "orange", "deep-orange", "brown", "grey", "blue-grey" ), n = 10, alpha = 1, reverse = FALSE) { palette <- match.arg(palette) alpha_cols <- rgb_material(palette, n, alpha, reverse) manual_pal(unname(alpha_cols)) } #' Material Design Color Palettes #' #' See \code{\link{pal_material}} for details. #' #' @inheritParams pal_material #' @param ... additional parameters for \code{\link[ggplot2]{discrete_scale}} #' #' @export scale_color_material #' #' @importFrom ggplot2 scale_color_gradientn #' #' @author Nan Xiao <\email{me@@nanx.me}> | #' <\href{https://nanx.me}{https://nanx.me}> #' #' @rdname scale_material #' #' @examples #' library("ggplot2") #' library("reshape2") #' data("mtcars") #' #' cor <- abs(cor(mtcars)) #' cor_melt <- melt(cor) #' #' ggplot( #' cor_melt, #' aes(x = Var1, y = Var2, fill = value) #' ) + #' geom_tile(colour = "black", size = 0.3) + #' theme_bw() + scale_fill_material("blue-grey") scale_color_material <- function( palette = c( "red", "pink", "purple", "deep-purple", "indigo", "blue", "light-blue", "cyan", "teal", "green", "light-green", "lime", "yellow", "amber", "orange", "deep-orange", "brown", "grey", "blue-grey" ), alpha = 1, reverse = FALSE, ...) { palette <- match.arg(palette) scale_color_gradientn( colours = rgb_material( palette, n = 512, alpha = alpha, reverse = reverse ), ... ) } #' @export scale_colour_material #' @rdname scale_material scale_colour_material <- scale_color_material #' @export scale_fill_material #' @importFrom ggplot2 scale_fill_gradientn #' @rdname scale_material scale_fill_material <- function( palette = c( "red", "pink", "purple", "deep-purple", "indigo", "blue", "light-blue", "cyan", "teal", "green", "light-green", "lime", "yellow", "amber", "orange", "deep-orange", "brown", "grey", "blue-grey" ), alpha = 1, reverse = FALSE, ...) { palette <- match.arg(palette) scale_fill_gradientn( colours = rgb_material( palette, n = 512, alpha = alpha, reverse = reverse ), ... ) } ggsci/NEWS.md0000644000176200001440000000501214570523437012454 0ustar liggesusers# ggsci 3.0.1 ## Improvements - Expand the FAQ vignette to include a solution for [customizing color selection and ordering in a palette](https://nanx.me/ggsci/articles/ggsci-faq.html#customize-color-ordering-in-a-palette) with self-defined color scale functions (#23). - Fix "lost braces" check notes on r-devel by using Unicode characters ([a91faf1](https://github.com/nanxstats/ggsci/commit/a91faf183ae44fe43355283c173a1e2de70de6d2)). # ggsci 3.0.0 ## New features - Added three Flat UI color palettes in - `scale_color_flatui()` - `scale_fill_flatui()` and one color palette inspired by the logo of frontiers.org in - `scale_color_frontiers()` - `scale_fill_frontiers()` (thanks, @clarajegousse, #14). - Added three COSMIC color palettes in - `scale_color_cosmic()` - `scale_fill_cosmic()` (thanks, @jhrcook, #5, #7). ## Improvements - Use a proper, three-component version number following Semantic Versioning. - Reduce output figure size in vignettes and `README.Rmd` by switching to the ragg PNG device and using pngquant for compression. - Added a new vignette on frequently asked questions. - A simple solution to interpolate the color palettes when the data has more categories than the number of colors in a discrete color scale. - A note on using a color scale consistently for multiple ggplot2 plots by setting global options (thanks, @DanChaltiel, #13). - Replace `size` with `linewidth` in code examples for ggplot2 >= 3.4.0. - Replaced the previous logo with a new hex sticker logo. - Replaced previous CI/CD solutions with GitHub Actions workflows. - Fixed broken or moved links in function documentation and vignettes. - Removed the `LazyData` field from `DESCRIPTION`. # ggsci 2.9 ## Improvements - New URL for the documentation website: . # ggsci 2.8 ## Improvements - Use system font stack instead of Google Fonts in vignettes to avoid pandoc SSL issue. # ggsci 2.7 ## New features Two new discrete color palettes: - JAMA - Tron Legacy One new collection of continuous palettes with 19 color options: - Material Design # ggsci 2.4 ## New features Four new discrete color palettes: - NEJM - LocusZoom - IGV - Star Trek # ggsci 2.0 ## New features Two new discrete color palettes: - D3.js (v3) - Futurama (Planet Express) The first continuous color palette: - GSEA GenePattern # ggsci 1.0 ## New features Eight discrete color palettes (2016-04-01): - NPG - AAAS - Lancet - JCO - UCSCGB - UChicago - The Simpsons (Springfield) - Rick and Morty (Schwifty) ggsci/MD50000644000176200001440000001373114570544004011666 0ustar liggesusers66d29cea2dd5521ac3e63b298d0438de *DESCRIPTION a607407597fe9a83c28aeba25eff6699 *NAMESPACE 92b38c8b8710c1013fd565a0b554c4f8 *NEWS.md f5727ed23a229d519fc252cef8546f2b *R/continuous-gsea.R 5d3d9232a4cb492b1c0eb395922c5969 *R/continuous-material.R bdf220066c98f547a6e81bac6aeebaf6 *R/discrete-aaas.R 778c6420f8bac703f735d4a7d22dcd3f *R/discrete-cosmic.R 2b2232d129378636372355db620a2c10 *R/discrete-d3.R cd65edfc6dd2ed85cb77f76afe3e20eb *R/discrete-flatui.R bc4d901448f714c8db35cc14e0436a36 *R/discrete-frontiers.R 8edd6c6ef8dfa6e1e4337d08e2a570e1 *R/discrete-futurama.R 3f486805599ab6e6c2e1748dfa519434 *R/discrete-igv.R a68617dca288b8a02b8baa0a582b839d *R/discrete-jama.R 93afa8e665b9c54b90cccb3a5422a9f8 *R/discrete-jco.R 3b728b6a2f25c075731c1fab0966a8ec *R/discrete-lancet.R ad9aa37002e63b85934ddc1ba64ff5e7 *R/discrete-locuszoom.R abf87cd85b295042e7bfe86fd32496a9 *R/discrete-nejm.R bb309004a2401a494fff980d553a0fb9 *R/discrete-npg.R a6ebc683b822c5550fe3a281281fb5ad *R/discrete-rickandmorty.R 7155e0744ab892ebfd1c7aa62316e9b5 *R/discrete-simpsons.R 39fc37f7c38df8f0743169dd28c39eda *R/discrete-startrek.R a09a0bf5d4ded31e6dfe6c3a2b5db2b3 *R/discrete-tron.R 28d67bdfd547db7e44078f8ca6c46849 *R/discrete-uchicago.R fb89c9caa0c5e3d0450ccc9d98adb11e *R/discrete-ucscgb.R b4fe12876c37f8a22cde06e9701eecf0 *R/ggsci-package.R 869aeea7fd922b7788f3f9d3ff028cbc *R/sysdata.rda 36d94c2b0069746f66efbb3a7d9a2fb6 *README.md 0cb63ccf0d5cb8873d0912f6aa24f7f2 *build/vignette.rds 71a82d97ae0094c9510e36bdd5594016 *inst/doc/ggsci-faq.R 99b408fbb27671330d03a8f101b37e59 *inst/doc/ggsci-faq.Rmd 8132cde2bdbcce5e1871fb8f78d88f9b *inst/doc/ggsci-faq.html 972002d8ba7beec02c55407c9a6749be *inst/doc/ggsci.R 26ef65214d82e7755fd3ae440ef3605c *inst/doc/ggsci.Rmd 5330d807e79d897fca9d3b0cf01ddb16 *inst/doc/ggsci.html d4df7d39cc27a5c29cf3f19bd9b12f55 *inst/logo/logo.R 01103b55e3fac7bf0166cd0aa0e26666 *man/figures/README-ggsci-aaas-1.png 2f0c78d6bd80bc858ca28a92bb139669 *man/figures/README-ggsci-cosmic-1.png 8580f97fcc675e7b303a4d07779855c1 *man/figures/README-ggsci-cosmic-2.png b376754e2b3bf509d186535f7df5d9ac *man/figures/README-ggsci-cosmic-3.png 037288200445be9670bc9d2d96f7fb46 *man/figures/README-ggsci-d3-1.png 3f483607453320297b1ef22e58f028db *man/figures/README-ggsci-flatui-1.png 8c9f88d439147efb12030299a9c3c2d0 *man/figures/README-ggsci-frontiers-1.png 96df87ade4fa29a50012b0e785811f2c *man/figures/README-ggsci-futurama-1.png 3a60b9cd3117e2acdade4255fdd1c1c3 *man/figures/README-ggsci-gsea-1.png 9f0bd7cdfe716b71b4053a1dad853c39 *man/figures/README-ggsci-igv-1.png 1e108c2a0c1cbf72e98e8ba128f22881 *man/figures/README-ggsci-jama-1.png 148bd9182cda6524c31efc8bca26dea8 *man/figures/README-ggsci-jco-1.png b72d9f1146ab3aba960fb4693183b1e0 *man/figures/README-ggsci-lancet-1.png 2004f4489e6a9046f982c6cf39f085b0 *man/figures/README-ggsci-locuszoom-1.png 7e267944ae2085190a1e02f92136aeda *man/figures/README-ggsci-material-1.png c456baca1e4849776e8e07404ceb31ff *man/figures/README-ggsci-nejm-1.png 238b924bd2a7dc399c0d3e7e6572233c *man/figures/README-ggsci-npg-1.png 30a8be942be36a1a2f1958f39934a6e2 *man/figures/README-ggsci-rickandmorty-1.png 07ac59fa3b521fcb6c9500dcf1922cb2 *man/figures/README-ggsci-simpsons-1.png 4704c27397d683253117d882ed1f496c *man/figures/README-ggsci-startrek-1.png 30da800a5657b4850b03f03c26101076 *man/figures/README-ggsci-tron-1.png 90f4b522f2c486c550b6be2e3ca760f7 *man/figures/README-ggsci-uchicago-1.png 1167411f9aa590bad2d57245372a94e0 *man/figures/README-ggsci-ucscgb-1.png 5f2440dd715678c9705ac7066611e816 *man/figures/logo.png 1f8d555d58251a8817bc588de1de579d *man/ggsci-package.Rd e115727836619eb0fddf0e07efb708a4 *man/pal_aaas.Rd 88a258e7a1523f12b534647595fea568 *man/pal_cosmic.Rd a8a9164031593014535182fec3773403 *man/pal_d3.Rd 0eced907b260574c8afdae7203d919da *man/pal_flatui.Rd b1ebef9085b36a77201da8e2aac0dfbb *man/pal_frontiers.Rd 00d1a3608b1f17d9b7928c24a923bcee *man/pal_futurama.Rd eddb89aa001c4f8949a3bbf32cb65615 *man/pal_gsea.Rd 51c23e57d952f6c09cf1d921aee1b5fa *man/pal_igv.Rd 7f533016c53bd9dc580223372f213a87 *man/pal_jama.Rd ece84cac58180b0f6eb8b9188aae1a78 *man/pal_jco.Rd 5f12831ba10e827646465a59c193946d *man/pal_lancet.Rd 741db6e41a2e486e8d9262e6743fdc20 *man/pal_locuszoom.Rd 9ff520add19cd708a5c65e8c98fc469f *man/pal_material.Rd 1d710cd2b9c8763cc5bc08b94326a285 *man/pal_nejm.Rd f46a5ec69258c17e9305d6cb5ee63262 *man/pal_npg.Rd d3a7609644a6bcfe364502fc5a51bed7 *man/pal_rickandmorty.Rd 108625bbea0528dabc5b0d7e9b5453cb *man/pal_simpsons.Rd faa67670118394a23079fecbaf30f25b *man/pal_startrek.Rd 28675b5064c5a1b40352ede6833bc680 *man/pal_tron.Rd 26713652b107a5a4e3a3749de41b59a6 *man/pal_uchicago.Rd 921de3bd18699344d43eebb6bba9a2a8 *man/pal_ucscgb.Rd 0c5f9cd9bd0f6869c4083f0fa96b7697 *man/rgb_gsea.Rd c9ebeaaff829e0eaa81dffda0e0f5134 *man/rgb_material.Rd 9a204e43832dc1d2e03366f47a38c1bb *man/scale_aaas.Rd e39fac1b37102b9cae92781dd6ab4bcc *man/scale_cosmic.Rd 62dea6346fc3c0b2f84d5adbd1146f73 *man/scale_d3.Rd d860883e2ad46dad73fe5d80b4bf62b7 *man/scale_flatui.Rd 050d33c8fa097ecdbff327c4fe7744b7 *man/scale_frontiers.Rd 8bc1957a2e40dc7f77044dec4ff4ce2a *man/scale_futurama.Rd fe4c94f0115dfba8c8b73c750f8afce3 *man/scale_gsea.Rd d31827b684e30e546a4cbfd988c93b3a *man/scale_igv.Rd e7ce903b463147b5f6c85d8222e13a37 *man/scale_jama.Rd 179741906421f633cd52cb21c3455e54 *man/scale_jco.Rd 08dd3b5b37560bdc98e66623b225e878 *man/scale_lancet.Rd 042ec351313e558f80b3a8bcbd711974 *man/scale_locuszoom.Rd df3e5c9e6fa6368a5ce713ea94aae594 *man/scale_material.Rd 59fd633444975225f2bc8c1967f762d1 *man/scale_nejm.Rd 9b1c3da93f56ed84a2561b97fd679815 *man/scale_npg.Rd 9d07e1cabcabccf2f654b8de2e167eac *man/scale_rickandmorty.Rd 912574581493f437195a65886df4c576 *man/scale_simpsons.Rd dd2de050e41c6d26f01488d6a172bf12 *man/scale_startrek.Rd e1b9a6ada67f8fc14d93742d86b771d1 *man/scale_tron.Rd 41d3d65d18950eea888e06ddb96d4799 *man/scale_uchicago.Rd 1bd3ed472df80f52baacb474bdd2b3be *man/scale_ucscgb.Rd 4eacfa48d71283d7a0f553326f306624 *vignettes/custom.css 99b408fbb27671330d03a8f101b37e59 *vignettes/ggsci-faq.Rmd 26ef65214d82e7755fd3ae440ef3605c *vignettes/ggsci.Rmd ggsci/inst/0000755000176200001440000000000014570534776012345 5ustar liggesusersggsci/inst/logo/0000755000176200001440000000000014570505642013273 5ustar liggesusersggsci/inst/logo/logo.R0000644000176200001440000000070414570505642014357 0ustar liggesuserslibrary("magick") library("showtext") font_add_google("Zilla Slab", "pf", regular.wt = 500) hexSticker::sticker( subplot = ~ plot.new(), s_x = 1, s_y = 1, s_width = 0.1, s_height = 0.1, package = "ggsci", p_x = 1, p_y = 1, p_size = 12, h_size = 1.2, p_family = "pf", p_color = "#F06060", h_fill = "#FFF9F2", h_color = "#F06060", dpi = 320, filename = "man/figures/logo.png" ) image_read("man/figures/logo.png") rstudioapi::restartSession() ggsci/inst/doc/0000755000176200001440000000000014570534776013112 5ustar liggesusersggsci/inst/doc/ggsci-faq.R0000644000176200001440000000341314570534766015076 0ustar liggesusers## ----include=FALSE------------------------------------------------------------ knitr::knit_hooks$set(pngquant = knitr::hook_pngquant) knitr::opts_chunk$set( message = FALSE, collapse = TRUE, comment = "#>", dev = "ragg_png", dpi = 72, fig.retina = 2, fig.width = 3.3334 / 0.618, fig.height = 3.3334, fig.align = "center", out.width = "65%", pngquant = "--speed=1 --quality=50" ) ## ----------------------------------------------------------------------------- #' Define a custom color scale #' #' @param pal Name of the color palette, as part of the #' original palette function name. #' @param palette Palette type, as defined in the #' original palette function (optional). #' @param n Number of (first) colors to fetch from the original palette. #' @param order A vector of color index (optional). #' @param alpha Transparency level. #' #' @return A custom color scale function. scale_color_custom <- function(pal, palette, n, order, alpha = 1) { pal <- getFromNamespace(paste0("pal_", pal), "ggsci") colors <- if (missing(palette)) { pal(alpha = alpha)(n) } else { pal(palette = palette, alpha = alpha)(n) } if (length(order) > length(colors)) { stop("The length of order exceeds the number of colors.", call. = FALSE) } colors <- if (!missing(order)) colors[order] ggplot2::scale_color_manual(values = colors) } ## ----------------------------------------------------------------------------- library(ggplot2) library(ggsci) set.seed(42) df <- data.frame( x = rnorm(100), y = rnorm(100), group = factor(sample(1:5, 100, replace = TRUE)) ) p <- ggplot(df, aes(x = x, y = y, color = group)) + geom_point(size = 3) + theme_minimal() p + scale_color_custom("d3", palette = "category20", n = 20, order = c(14, 11, 13, 12, 15)) ggsci/inst/doc/ggsci-faq.Rmd0000644000176200001440000000646114570505642015414 0ustar liggesusers--- title: "Frequently Asked Questions about ggsci" output: rmarkdown::html_document: toc: true toc_float: false toc_depth: 2 number_sections: false highlight: "textmate" css: custom.css vignette: > %\VignetteEngine{knitr::rmarkdown} %\VignetteIndexEntry{Frequently Asked Questions about ggsci} --- ```{r, include=FALSE} knitr::knit_hooks$set(pngquant = knitr::hook_pngquant) knitr::opts_chunk$set( message = FALSE, collapse = TRUE, comment = "#>", dev = "ragg_png", dpi = 72, fig.retina = 2, fig.width = 3.3334 / 0.618, fig.height = 3.3334, fig.align = "center", out.width = "65%", pngquant = "--speed=1 --quality=50" ) ``` ## What if my data has more categories than the number of colors offered? Although it is recommended that we do not encode too many categories in different colors, in practice, one can still create an "adaptive" color palette based on the existing discrete color palettes in ggsci. See this blog post for a detailed guide on creating [adaptive ggplot2 color scales with color interpolation](https://nanx.me/blog/post/ggplot2-color-interpolation/). ## Use a color scale consistently for multiple plots in a document To apply a color scale for all plots in a document and avoid repetition, a simple solution is setting the two global options `ggplot2.discrete.colour` and `ggplot2.discrete.fill`. For example: ```r library("ggplot2") p <- ggplot(mpg, aes(displ, hwy, colour = factor(cyl), fill = factor(cyl))) + geom_point() + geom_smooth(method = "lm") + theme_bw() p # Set global options options( ggplot2.discrete.colour = ggsci::scale_colour_d3, ggplot2.discrete.fill = ggsci::scale_fill_d3 ) p # Restore original options after use options( ggplot2.discrete.colour = NULL, ggplot2.discrete.fill = NULL ) p ``` ## Customize color ordering in a palette You can customize the color selection and ordering of any discrete color palette in ggsci by using the following function that returns a custom color scale function. This method is flexible and encourages code reuse. ```{r} #' Define a custom color scale #' #' @param pal Name of the color palette, as part of the #' original palette function name. #' @param palette Palette type, as defined in the #' original palette function (optional). #' @param n Number of (first) colors to fetch from the original palette. #' @param order A vector of color index (optional). #' @param alpha Transparency level. #' #' @return A custom color scale function. scale_color_custom <- function(pal, palette, n, order, alpha = 1) { pal <- getFromNamespace(paste0("pal_", pal), "ggsci") colors <- if (missing(palette)) { pal(alpha = alpha)(n) } else { pal(palette = palette, alpha = alpha)(n) } if (length(order) > length(colors)) { stop("The length of order exceeds the number of colors.", call. = FALSE) } colors <- if (!missing(order)) colors[order] ggplot2::scale_color_manual(values = colors) } ``` Use `scale_color_custom()` in an example: ```{r} library(ggplot2) library(ggsci) set.seed(42) df <- data.frame( x = rnorm(100), y = rnorm(100), group = factor(sample(1:5, 100, replace = TRUE)) ) p <- ggplot(df, aes(x = x, y = y, color = group)) + geom_point(size = 3) + theme_minimal() p + scale_color_custom("d3", palette = "category20", n = 20, order = c(14, 11, 13, 12, 15)) ``` ggsci/inst/doc/ggsci.html0000644000176200001440000743700514570534776015114 0ustar liggesusers Scientific Journal and Sci-Fi Themed Color Palettes for ggplot2

Introduction

My eyes were finally opened and I understood nature.

I learned at the same time to love it.

— Claude Monet

ggsci offers a collection of high-quality color palettes inspired by colors used in scientific journals, data visualization libraries, science fiction movies, and TV shows. The color palettes in ggsci are available as ggplot2 scales. For all the color palettes, the corresponding scales are named as:

  • scale_color_palname()
  • scale_fill_palname()

We also provided aliases, such as scale_colour_palname() for scale_color_palname(). All available color palettes are summarized in the table below.

Name Scales Palette Types Palette Generator
NPG scale_color_npg() scale_fill_npg() "nrc" pal_npg()
AAAS scale_color_aaas() scale_fill_aaas() "default" pal_aaas()
NEJM scale_color_nejm() scale_fill_nejm() "default" pal_nejm()
Lancet scale_color_lancet() scale_fill_lancet() "lanonc" pal_lancet()
JAMA scale_color_jama() scale_fill_jama() "default" pal_jama()
JCO scale_color_jco() scale_fill_jco() "default" pal_jco()
UCSCGB scale_color_ucscgb() scale_fill_ucscgb() "default" pal_ucscgb()
D3 scale_color_d3()
scale_fill_d3()
"category10" "category20" "category20b" "category20c" pal_d3()
LocusZoom scale_color_locuszoom() scale_fill_locuszoom() "default" pal_locuszoom()
IGV scale_color_igv() scale_fill_igv() "default"
"alternating"
pal_igv()
COSMIC scale_color_cosmic() scale_fill_cosmic() "hallmarks_light"
"hallmarks_dark"
"signature_substitutions"
pal_cosmic()
UChicago scale_color_uchicago() scale_fill_uchicago() "default"
"light"
"dark"
pal_uchicago()
Star Trek scale_color_startrek() scale_fill_startrek() "uniform" pal_startrek()
Tron Legacy scale_color_tron() scale_fill_tron() "legacy" pal_tron()
Futurama scale_color_futurama() scale_fill_futurama() "planetexpress" pal_futurama()
Rick and Morty scale_color_rickandmorty() scale_fill_rickandmorty() "schwifty" pal_rickandmorty()
The Simpsons scale_color_simpsons() scale_fill_simpsons() "springfield" pal_simpsons()
Flat UI scale_color_flatui() scale_fill_flatui() "default" "flattastic" "aussie" pal_flatui()
Frontiers scale_color_frontiers() scale_fill_frontiers() "default" pal_frontiers()
GSEA scale_color_gsea() scale_fill_gsea() "default" pal_gsea()
Material Design scale_color_material() scale_fill_material() "red" "pink"
"purple" "deep-purple"
"indigo" "blue"
"light-blue" "cyan"
"teal" "green"
"light-green" "lime"
"yellow" "amber"
"orange" "deep-orange"
"brown" "grey"
"blue-grey"
pal_material()

Discrete color palettes

We will use scatterplots with smooth curves, and bar plots to demonstrate the discrete color palettes in ggsci.

library("ggsci")
library("ggplot2")
library("gridExtra")

data("diamonds")

p1 <- ggplot(
  subset(diamonds, carat >= 2.2),
  aes(x = table, y = price, colour = cut)
) +
  geom_point(alpha = 0.7) +
  geom_smooth(method = "loess", alpha = 0.05, linewidth = 1, span = 1) +
  theme_bw()

p2 <- ggplot(
  subset(diamonds, carat > 2.2 & depth > 55 & depth < 70),
  aes(x = depth, fill = cut)
) +
  geom_histogram(colour = "black", binwidth = 1, position = "dodge") +
  theme_bw()

NPG

The NPG palette is inspired by the plots in the journals published by Nature Publishing Group:

p1_npg <- p1 + scale_color_npg()
p2_npg <- p2 + scale_fill_npg()
grid.arrange(p1_npg, p2_npg, ncol = 2)

AAAS

The AAAS palette is inspired by the plots in the journals published by American Association for the Advancement of Science:

p1_aaas <- p1 + scale_color_aaas()
p2_aaas <- p2 + scale_fill_aaas()
grid.arrange(p1_aaas, p2_aaas, ncol = 2)

NEJM

The NEJM palette is inspired by the plots in the New England Journal of Medicine:

p1_nejm <- p1 + scale_color_nejm()
p2_nejm <- p2 + scale_fill_nejm()
grid.arrange(p1_nejm, p2_nejm, ncol = 2)

Lancet

The Lancet palette is inspired by the plots in Lancet journals, such as Lancet Oncology:

p1_lancet <- p1 + scale_color_lancet()
p2_lancet <- p2 + scale_fill_lancet()
grid.arrange(p1_lancet, p2_lancet, ncol = 2)

JAMA

The JAMA palette is inspired by the plots in the Journal of the American Medical Association:

p1_jama <- p1 + scale_color_jama()
p2_jama <- p2 + scale_fill_jama()
grid.arrange(p1_jama, p2_jama, ncol = 2)

JCO

The JCO palette is inspired by the the plots in Journal of Clinical Oncology:

p1_jco <- p1 + scale_color_jco()
p2_jco <- p2 + scale_fill_jco()
grid.arrange(p1_jco, p2_jco, ncol = 2)

UCSCGB

The UCSCGB palette is from the colors used by UCSC Genome Browser for representing chromosomes. This palette (interpolated, with alpha) is intensively used in visualizations generated by Circos.

p1_ucscgb <- p1 + scale_color_ucscgb()
p2_ucscgb <- p2 + scale_fill_ucscgb()
grid.arrange(p1_ucscgb, p2_ucscgb, ncol = 2)

D3

The D3 palette is from the categorical colors used by D3.js (version 3.x and before). There are four palette types (category10, category20, category20b, category20c) available.

p1_d3 <- p1 + scale_color_d3()
p2_d3 <- p2 + scale_fill_d3()
grid.arrange(p1_d3, p2_d3, ncol = 2)

LocusZoom

The LocusZoom palette is based on the colors used by LocusZoom.

p1_locuszoom <- p1 + scale_color_locuszoom()
p2_locuszoom <- p2 + scale_fill_locuszoom()
grid.arrange(p1_locuszoom, p2_locuszoom, ncol = 2)

IGV

The IGV palette is from the colors used by Integrative Genomics Viewer for representing chromosomes. There are two palette types (default, alternating) available.

p1_igv_default <- p1 + scale_color_igv()
p2_igv_default <- p2 + scale_fill_igv()
grid.arrange(p1_igv_default, p2_igv_default, ncol = 2)

COSMIC

Color palettes inspired by the colors used in projects from the Catalogue Of Somatic Mutations in Cancers (COSMIC).

p1_cosmic_hallmarks_light <- p1 + scale_color_cosmic("hallmarks_light")
p2_cosmic_hallmarks_light <- p2 + scale_fill_cosmic("hallmarks_light")
grid.arrange(p1_cosmic_hallmarks_light, p2_cosmic_hallmarks_light, ncol = 2)

p1_cosmic_hallmarks_dark <- p1 + scale_color_cosmic("hallmarks_dark")
p2_cosmic_hallmarks_dark <- p2 + scale_fill_cosmic("hallmarks_dark")
grid.arrange(p1_cosmic_hallmarks_dark, p2_cosmic_hallmarks_dark, ncol = 2)

p1_cosmic_signature <- p1 + scale_color_cosmic("signature_substitutions")
p2_cosmic_signature <- p2 + scale_fill_cosmic("signature_substitutions")
grid.arrange(p1_cosmic_signature, p2_cosmic_signature, ncol = 2)

UChicago

The UChicago palette is based on the colors used by the University of Chicago. There are three palette types (default, light, dark) available.

p1_uchicago <- p1 + scale_color_uchicago()
p2_uchicago <- p2 + scale_fill_uchicago()
grid.arrange(p1_uchicago, p2_uchicago, ncol = 2)

Star Trek

This palette is inspired by the (uniform) colors in Star Trek:

p1_startrek <- p1 + scale_color_startrek()
p2_startrek <- p2 + scale_fill_startrek()
grid.arrange(p1_startrek, p2_startrek, ncol = 2)

Tron Legacy

This palette is inspired by the colors used in Tron Legacy. It is suitable for displaying data when using a dark theme:

p1_tron <- p1 + theme_dark() + theme(
  panel.background = element_rect(fill = "#2D2D2D"),
  legend.key = element_rect(fill = "#2D2D2D")
) +
  scale_color_tron()
p2_tron <- p2 + theme_dark() + theme(
  panel.background = element_rect(fill = "#2D2D2D")
) +
  scale_fill_tron()
grid.arrange(p1_tron, p2_tron, ncol = 2)

Futurama

This palette is inspired by the colors used in the TV show Futurama:

p1_futurama <- p1 + scale_color_futurama()
p2_futurama <- p2 + scale_fill_futurama()
grid.arrange(p1_futurama, p2_futurama, ncol = 2)

Rick and Morty

This palette is inspired by the colors used in the TV show Rick and Morty:

p1_rickandmorty <- p1 + scale_color_rickandmorty()
p2_rickandmorty <- p2 + scale_fill_rickandmorty()
grid.arrange(p1_rickandmorty, p2_rickandmorty, ncol = 2)

The Simpsons

This palette is inspired by the colors used in the TV show The Simpsons:

p1_simpsons <- p1 + scale_color_simpsons()
p2_simpsons <- p2 + scale_fill_simpsons()
grid.arrange(p1_simpsons, p2_simpsons, ncol = 2)

Flat UI

Three flat UI color palettes from Flat UI Colors 2:

p1_flatui <- p1 + scale_color_flatui()
p2_flatui <- p2 + scale_fill_flatui()
grid.arrange(p1_flatui, p2_flatui, ncol = 2)

Frontiers

This color palette inspired by Frontiers:

p1_frontiers <- p1 + scale_color_frontiers()
p2_frontiers <- p2 + scale_fill_frontiers()
grid.arrange(p1_frontiers, p2_frontiers, ncol = 2)

Continuous color palettes

We will use a correlation matrix visualization (a special type of heatmap) to demonstrate the continuous color palettes in ggsci.

library("reshape2")

data("mtcars")
cor <- cor(unname(cbind(mtcars, mtcars, mtcars, mtcars)))
cor_melt <- melt(cor)

p3 <- ggplot(
  cor_melt,
  aes(x = Var1, y = Var2, fill = value)
) +
  geom_tile(colour = "black", linewidth = 0.3) +
  theme_void() +
  theme(
    axis.title.x = element_blank(),
    axis.title.y = element_blank()
  )

GSEA

The GSEA palette (continuous) is inspired by the heatmaps generated by GSEA GenePattern.

p3_gsea <- p3 + scale_fill_gsea()
p3_gsea_inv <- p3 + scale_fill_gsea(reverse = TRUE)
grid.arrange(p3_gsea, p3_gsea_inv, ncol = 2)

Material Design

The Material Design color palettes are from the Material Design color system.

We generate a random matrix first:

library("reshape2")

set.seed(42)
k <- 9
x <- diag(k)
x[upper.tri(x)] <- runif(sum(1:(k - 1)), 0, 1)
x_melt <- melt(x)

p4 <- ggplot(x_melt, aes(x = Var1, y = Var2, fill = value)) +
  geom_tile(colour = "black", linewidth = 0.3) +
  scale_x_continuous(expand = c(0, 0)) +
  scale_y_continuous(expand = c(0, 0)) +
  theme_bw() +
  theme(
    legend.position = "none", plot.background = element_blank(),
    axis.line = element_blank(), axis.ticks = element_blank(),
    axis.text.x = element_blank(), axis.text.y = element_blank(),
    axis.title.x = element_blank(), axis.title.y = element_blank(),
    panel.background = element_blank(), panel.border = element_blank(),
    panel.grid.major = element_blank(), panel.grid.minor = element_blank()
  )

Plot the matrix with the 19 material design color palettes:

grid.arrange(
  p4 + scale_fill_material("red"), p4 + scale_fill_material("pink"),
  p4 + scale_fill_material("purple"), p4 + scale_fill_material("deep-purple"),
  p4 + scale_fill_material("indigo"), p4 + scale_fill_material("blue"),
  p4 + scale_fill_material("light-blue"), p4 + scale_fill_material("cyan"),
  p4 + scale_fill_material("teal"), p4 + scale_fill_material("green"),
  p4 + scale_fill_material("light-green"), p4 + scale_fill_material("lime"),
  p4 + scale_fill_material("yellow"), p4 + scale_fill_material("amber"),
  p4 + scale_fill_material("orange"), p4 + scale_fill_material("deep-orange"),
  p4 + scale_fill_material("brown"), p4 + scale_fill_material("grey"),
  p4 + scale_fill_material("blue-grey"),
  ncol = 6
)

From the figure above, we can see that even though an identical matrix was visualized by all plots, some palettes are more preferrable than the others because our eyes are more sensitive to the changes of their saturation levels.

Non-ggplot2 graphics

To apply the color palettes in ggsci to other graphics systems (such as base graphics and lattice graphics), simply use the palette generator functions in the table above. For example:

mypal <- pal_npg("nrc", alpha = 0.7)(9)
mypal
#> [1] "#E64B35B2" "#4DBBD5B2" "#00A087B2" "#3C5488B2" "#F39B7FB2" "#8491B4B2"
#> [7] "#91D1C2B2" "#DC0000B2" "#7E6148B2"

library("scales")
show_col(mypal)

You will be able to use the generated hex color codes for such graphics systems accordingly. The transparent level of the entire palette is easily adjustable via the argument "alpha" in every generator or scale function.

Discussion

Please note some of the palettes might not be the best choice for certain purposes, such as color-blind safe, photocopy safe, or print friendly. If you do have such considerations, you might want to check out color palettes like ColorBrewer and viridis.

The color palettes in this package are solely created for research purposes. The authors are not responsible for the usage of such palettes.

ggsci/inst/doc/ggsci.R0000644000176200001440000002000514570534776014326 0ustar liggesusers## ----include=FALSE------------------------------------------------------------ knitr::knit_hooks$set(pngquant = knitr::hook_pngquant) knitr::opts_chunk$set( message = FALSE, collapse = TRUE, comment = "#>", dev = "ragg_png", dpi = 72, fig.retina = 2, fig.width = 10.6667, fig.height = 3.3334, fig.align = "center", out.width = "100%", pngquant = "--speed=1 --quality=50" ) ## ----------------------------------------------------------------------------- library("ggsci") library("ggplot2") library("gridExtra") data("diamonds") p1 <- ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.05, linewidth = 1, span = 1) + theme_bw() p2 <- ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() ## ----------------------------------------------------------------------------- p1_npg <- p1 + scale_color_npg() p2_npg <- p2 + scale_fill_npg() grid.arrange(p1_npg, p2_npg, ncol = 2) ## ----------------------------------------------------------------------------- p1_aaas <- p1 + scale_color_aaas() p2_aaas <- p2 + scale_fill_aaas() grid.arrange(p1_aaas, p2_aaas, ncol = 2) ## ----------------------------------------------------------------------------- p1_nejm <- p1 + scale_color_nejm() p2_nejm <- p2 + scale_fill_nejm() grid.arrange(p1_nejm, p2_nejm, ncol = 2) ## ----------------------------------------------------------------------------- p1_lancet <- p1 + scale_color_lancet() p2_lancet <- p2 + scale_fill_lancet() grid.arrange(p1_lancet, p2_lancet, ncol = 2) ## ----------------------------------------------------------------------------- p1_jama <- p1 + scale_color_jama() p2_jama <- p2 + scale_fill_jama() grid.arrange(p1_jama, p2_jama, ncol = 2) ## ----------------------------------------------------------------------------- p1_jco <- p1 + scale_color_jco() p2_jco <- p2 + scale_fill_jco() grid.arrange(p1_jco, p2_jco, ncol = 2) ## ----------------------------------------------------------------------------- p1_ucscgb <- p1 + scale_color_ucscgb() p2_ucscgb <- p2 + scale_fill_ucscgb() grid.arrange(p1_ucscgb, p2_ucscgb, ncol = 2) ## ----------------------------------------------------------------------------- p1_d3 <- p1 + scale_color_d3() p2_d3 <- p2 + scale_fill_d3() grid.arrange(p1_d3, p2_d3, ncol = 2) ## ----------------------------------------------------------------------------- p1_locuszoom <- p1 + scale_color_locuszoom() p2_locuszoom <- p2 + scale_fill_locuszoom() grid.arrange(p1_locuszoom, p2_locuszoom, ncol = 2) ## ----------------------------------------------------------------------------- p1_igv_default <- p1 + scale_color_igv() p2_igv_default <- p2 + scale_fill_igv() grid.arrange(p1_igv_default, p2_igv_default, ncol = 2) ## ----------------------------------------------------------------------------- p1_cosmic_hallmarks_light <- p1 + scale_color_cosmic("hallmarks_light") p2_cosmic_hallmarks_light <- p2 + scale_fill_cosmic("hallmarks_light") grid.arrange(p1_cosmic_hallmarks_light, p2_cosmic_hallmarks_light, ncol = 2) ## ----------------------------------------------------------------------------- p1_cosmic_hallmarks_dark <- p1 + scale_color_cosmic("hallmarks_dark") p2_cosmic_hallmarks_dark <- p2 + scale_fill_cosmic("hallmarks_dark") grid.arrange(p1_cosmic_hallmarks_dark, p2_cosmic_hallmarks_dark, ncol = 2) ## ----------------------------------------------------------------------------- p1_cosmic_signature <- p1 + scale_color_cosmic("signature_substitutions") p2_cosmic_signature <- p2 + scale_fill_cosmic("signature_substitutions") grid.arrange(p1_cosmic_signature, p2_cosmic_signature, ncol = 2) ## ----------------------------------------------------------------------------- p1_uchicago <- p1 + scale_color_uchicago() p2_uchicago <- p2 + scale_fill_uchicago() grid.arrange(p1_uchicago, p2_uchicago, ncol = 2) ## ----------------------------------------------------------------------------- p1_startrek <- p1 + scale_color_startrek() p2_startrek <- p2 + scale_fill_startrek() grid.arrange(p1_startrek, p2_startrek, ncol = 2) ## ----------------------------------------------------------------------------- p1_tron <- p1 + theme_dark() + theme( panel.background = element_rect(fill = "#2D2D2D"), legend.key = element_rect(fill = "#2D2D2D") ) + scale_color_tron() p2_tron <- p2 + theme_dark() + theme( panel.background = element_rect(fill = "#2D2D2D") ) + scale_fill_tron() grid.arrange(p1_tron, p2_tron, ncol = 2) ## ----------------------------------------------------------------------------- p1_futurama <- p1 + scale_color_futurama() p2_futurama <- p2 + scale_fill_futurama() grid.arrange(p1_futurama, p2_futurama, ncol = 2) ## ----------------------------------------------------------------------------- p1_rickandmorty <- p1 + scale_color_rickandmorty() p2_rickandmorty <- p2 + scale_fill_rickandmorty() grid.arrange(p1_rickandmorty, p2_rickandmorty, ncol = 2) ## ----------------------------------------------------------------------------- p1_simpsons <- p1 + scale_color_simpsons() p2_simpsons <- p2 + scale_fill_simpsons() grid.arrange(p1_simpsons, p2_simpsons, ncol = 2) ## ----------------------------------------------------------------------------- p1_flatui <- p1 + scale_color_flatui() p2_flatui <- p2 + scale_fill_flatui() grid.arrange(p1_flatui, p2_flatui, ncol = 2) ## ----------------------------------------------------------------------------- p1_frontiers <- p1 + scale_color_frontiers() p2_frontiers <- p2 + scale_fill_frontiers() grid.arrange(p1_frontiers, p2_frontiers, ncol = 2) ## ----------------------------------------------------------------------------- library("reshape2") data("mtcars") cor <- cor(unname(cbind(mtcars, mtcars, mtcars, mtcars))) cor_melt <- melt(cor) p3 <- ggplot( cor_melt, aes(x = Var1, y = Var2, fill = value) ) + geom_tile(colour = "black", linewidth = 0.3) + theme_void() + theme( axis.title.x = element_blank(), axis.title.y = element_blank() ) ## ----fig.height=4------------------------------------------------------------- p3_gsea <- p3 + scale_fill_gsea() p3_gsea_inv <- p3 + scale_fill_gsea(reverse = TRUE) grid.arrange(p3_gsea, p3_gsea_inv, ncol = 2) ## ----------------------------------------------------------------------------- library("reshape2") set.seed(42) k <- 9 x <- diag(k) x[upper.tri(x)] <- runif(sum(1:(k - 1)), 0, 1) x_melt <- melt(x) p4 <- ggplot(x_melt, aes(x = Var1, y = Var2, fill = value)) + geom_tile(colour = "black", linewidth = 0.3) + scale_x_continuous(expand = c(0, 0)) + scale_y_continuous(expand = c(0, 0)) + theme_bw() + theme( legend.position = "none", plot.background = element_blank(), axis.line = element_blank(), axis.ticks = element_blank(), axis.text.x = element_blank(), axis.text.y = element_blank(), axis.title.x = element_blank(), axis.title.y = element_blank(), panel.background = element_blank(), panel.border = element_blank(), panel.grid.major = element_blank(), panel.grid.minor = element_blank() ) ## ----fig.height=7.12---------------------------------------------------------- grid.arrange( p4 + scale_fill_material("red"), p4 + scale_fill_material("pink"), p4 + scale_fill_material("purple"), p4 + scale_fill_material("deep-purple"), p4 + scale_fill_material("indigo"), p4 + scale_fill_material("blue"), p4 + scale_fill_material("light-blue"), p4 + scale_fill_material("cyan"), p4 + scale_fill_material("teal"), p4 + scale_fill_material("green"), p4 + scale_fill_material("light-green"), p4 + scale_fill_material("lime"), p4 + scale_fill_material("yellow"), p4 + scale_fill_material("amber"), p4 + scale_fill_material("orange"), p4 + scale_fill_material("deep-orange"), p4 + scale_fill_material("brown"), p4 + scale_fill_material("grey"), p4 + scale_fill_material("blue-grey"), ncol = 6 ) ## ----fig.width=6.67, fig.height=6.67, out.width="60%"------------------------- mypal <- pal_npg("nrc", alpha = 0.7)(9) mypal library("scales") show_col(mypal) ggsci/inst/doc/ggsci.Rmd0000644000176200001440000004736214570534320014647 0ustar liggesusers--- title: "Scientific Journal and Sci-Fi Themed Color Palettes for ggplot2" output: rmarkdown::html_document: toc: true toc_float: true toc_depth: 4 number_sections: false highlight: "textmate" css: custom.css vignette: > %\VignetteEngine{knitr::rmarkdown} %\VignetteIndexEntry{Scientific Journal and Sci-Fi Themed Color Palettes for ggplot2} --- ```{r, include=FALSE} knitr::knit_hooks$set(pngquant = knitr::hook_pngquant) knitr::opts_chunk$set( message = FALSE, collapse = TRUE, comment = "#>", dev = "ragg_png", dpi = 72, fig.retina = 2, fig.width = 10.6667, fig.height = 3.3334, fig.align = "center", out.width = "100%", pngquant = "--speed=1 --quality=50" ) ``` ## Introduction > My eyes were finally opened and I understood nature. > > I learned at the same time to love it. > > --- Claude Monet `ggsci` offers a collection of high-quality color palettes inspired by colors used in scientific journals, data visualization libraries, science fiction movies, and TV shows. The color palettes in `ggsci` are available as `ggplot2` scales. For all the color palettes, the corresponding scales are named as: - `scale_color_palname()` - `scale_fill_palname()` We also provided aliases, such as `scale_colour_palname()` for `scale_color_palname()`. All available color palettes are summarized in the table below. +-----------------+------------------------------+--------------------------------+----------------------+ | Name | Scales | Palette Types | Palette Generator | +=================+==============================+================================+======================+ | NPG | `scale_color_npg()` | `"nrc"` | `pal_npg()` | | | `scale_fill_npg()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | AAAS | `scale_color_aaas()` | `"default"` | `pal_aaas()` | | | `scale_fill_aaas()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | NEJM | `scale_color_nejm()` | `"default"` | `pal_nejm()` | | | `scale_fill_nejm()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | Lancet | `scale_color_lancet()` | `"lanonc"` | `pal_lancet()` | | | `scale_fill_lancet()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | JAMA | `scale_color_jama()` | `"default"` | `pal_jama()` | | | `scale_fill_jama()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | JCO | `scale_color_jco()` | `"default"` | `pal_jco()` | | | `scale_fill_jco()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | UCSCGB | `scale_color_ucscgb()` | `"default"` | `pal_ucscgb()` | | | `scale_fill_ucscgb()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | D3 | `scale_color_d3()`
| `"category10"` | `pal_d3()` | | | `scale_fill_d3()` | `"category20"` | | | | | `"category20b"` | | | | | `"category20c"` | | +-----------------+------------------------------+--------------------------------+----------------------+ | LocusZoom | `scale_color_locuszoom()` | `"default"` | `pal_locuszoom()` | | | `scale_fill_locuszoom()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | IGV | `scale_color_igv()` | `"default"`
| `pal_igv()` | | | `scale_fill_igv()` | `"alternating"` | | +-----------------+------------------------------+--------------------------------+----------------------+ | COSMIC | `scale_color_cosmic()` | `"hallmarks_light"`
| `pal_cosmic()` | | | `scale_fill_cosmic()` | `"hallmarks_dark"`
| | | | | `"signature_substitutions"` | | +-----------------+------------------------------+--------------------------------+----------------------+ | UChicago | `scale_color_uchicago()` | `"default"`
| `pal_uchicago()` | | | `scale_fill_uchicago()` | `"light"`
| | | | | `"dark"` | | +-----------------+------------------------------+--------------------------------+----------------------+ | Star Trek | `scale_color_startrek()` | `"uniform"` | `pal_startrek()` | | | `scale_fill_startrek()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | Tron Legacy | `scale_color_tron()` | `"legacy"` | `pal_tron()` | | | `scale_fill_tron()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | Futurama | `scale_color_futurama()` | `"planetexpress"` | `pal_futurama()` | | | `scale_fill_futurama()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | Rick and Morty | `scale_color_rickandmorty()` | `"schwifty"` | `pal_rickandmorty()` | | | `scale_fill_rickandmorty()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | The Simpsons | `scale_color_simpsons()` | `"springfield"` | `pal_simpsons()` | | | `scale_fill_simpsons()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | Flat UI | `scale_color_flatui()` | `"default"` | `pal_flatui()` | | | `scale_fill_flatui()` | `"flattastic"` | | | | | `"aussie"` | | +-----------------+------------------------------+--------------------------------+----------------------+ | Frontiers | `scale_color_frontiers()` | `"default"` | `pal_frontiers()` | | | `scale_fill_frontiers()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | GSEA | `scale_color_gsea()` | `"default"` | `pal_gsea()` | | | `scale_fill_gsea()` | | | +-----------------+------------------------------+--------------------------------+----------------------+ | Material Design | `scale_color_material()` | `"red"` `"pink"`
| `pal_material()` | | | `scale_fill_material()` | `"purple"` `"deep-purple"`
| | | | | `"indigo"` `"blue"`
| | | | | `"light-blue"` `"cyan"`
| | | | | `"teal"` `"green"`
| | | | | `"light-green"` `"lime"`
| | | | | `"yellow"` `"amber"`
| | | | | `"orange"` `"deep-orange"`
| | | | | `"brown"` `"grey"`
| | | | | `"blue-grey"` | | +-----------------+------------------------------+--------------------------------+----------------------+ ## Discrete color palettes We will use scatterplots with smooth curves, and bar plots to demonstrate the discrete color palettes in `ggsci`. ```{r} library("ggsci") library("ggplot2") library("gridExtra") data("diamonds") p1 <- ggplot( subset(diamonds, carat >= 2.2), aes(x = table, y = price, colour = cut) ) + geom_point(alpha = 0.7) + geom_smooth(method = "loess", alpha = 0.05, linewidth = 1, span = 1) + theme_bw() p2 <- ggplot( subset(diamonds, carat > 2.2 & depth > 55 & depth < 70), aes(x = depth, fill = cut) ) + geom_histogram(colour = "black", binwidth = 1, position = "dodge") + theme_bw() ``` ### NPG The NPG palette is inspired by the plots in the journals published by Nature Publishing Group: ```{r} p1_npg <- p1 + scale_color_npg() p2_npg <- p2 + scale_fill_npg() grid.arrange(p1_npg, p2_npg, ncol = 2) ``` ### AAAS The AAAS palette is inspired by the plots in the journals published by American Association for the Advancement of Science: ```{r} p1_aaas <- p1 + scale_color_aaas() p2_aaas <- p2 + scale_fill_aaas() grid.arrange(p1_aaas, p2_aaas, ncol = 2) ``` ### NEJM The NEJM palette is inspired by the plots in the _New England Journal of Medicine_: ```{r} p1_nejm <- p1 + scale_color_nejm() p2_nejm <- p2 + scale_fill_nejm() grid.arrange(p1_nejm, p2_nejm, ncol = 2) ``` ### Lancet The Lancet palette is inspired by the plots in _Lancet_ journals, such as _Lancet Oncology_: ```{r} p1_lancet <- p1 + scale_color_lancet() p2_lancet <- p2 + scale_fill_lancet() grid.arrange(p1_lancet, p2_lancet, ncol = 2) ``` ### JAMA The JAMA palette is inspired by the plots in the _Journal of the American Medical Association_: ```{r} p1_jama <- p1 + scale_color_jama() p2_jama <- p2 + scale_fill_jama() grid.arrange(p1_jama, p2_jama, ncol = 2) ``` ### JCO The JCO palette is inspired by the the plots in _Journal of Clinical Oncology_: ```{r} p1_jco <- p1 + scale_color_jco() p2_jco <- p2 + scale_fill_jco() grid.arrange(p1_jco, p2_jco, ncol = 2) ``` ### UCSCGB The UCSCGB palette is from the colors used by [UCSC Genome Browser](https://genome.ucsc.edu) for representing chromosomes. This palette (interpolated, with alpha) is intensively used in visualizations generated by Circos. ```{r} p1_ucscgb <- p1 + scale_color_ucscgb() p2_ucscgb <- p2 + scale_fill_ucscgb() grid.arrange(p1_ucscgb, p2_ucscgb, ncol = 2) ``` ### D3 The D3 palette is from the categorical colors used by [D3.js](https://d3js.org) (version 3.x and before). There are four palette types (`category10`, `category20`, `category20b`, `category20c`) available. ```{r} p1_d3 <- p1 + scale_color_d3() p2_d3 <- p2 + scale_fill_d3() grid.arrange(p1_d3, p2_d3, ncol = 2) ``` ### LocusZoom The LocusZoom palette is based on the colors used by [LocusZoom](http://locuszoom.org/). ```{r} p1_locuszoom <- p1 + scale_color_locuszoom() p2_locuszoom <- p2 + scale_fill_locuszoom() grid.arrange(p1_locuszoom, p2_locuszoom, ncol = 2) ``` ### IGV The IGV palette is from the colors used by [Integrative Genomics Viewer](https://igv.org/doc/desktop/) for representing chromosomes. There are two palette types (`default`, `alternating`) available. ```{r} p1_igv_default <- p1 + scale_color_igv() p2_igv_default <- p2 + scale_fill_igv() grid.arrange(p1_igv_default, p2_igv_default, ncol = 2) ``` ### COSMIC Color palettes inspired by the colors used in projects from the [Catalogue Of Somatic Mutations in Cancers (COSMIC)](https://cancer.sanger.ac.uk/cosmic). ```{r} p1_cosmic_hallmarks_light <- p1 + scale_color_cosmic("hallmarks_light") p2_cosmic_hallmarks_light <- p2 + scale_fill_cosmic("hallmarks_light") grid.arrange(p1_cosmic_hallmarks_light, p2_cosmic_hallmarks_light, ncol = 2) ``` ```{r} p1_cosmic_hallmarks_dark <- p1 + scale_color_cosmic("hallmarks_dark") p2_cosmic_hallmarks_dark <- p2 + scale_fill_cosmic("hallmarks_dark") grid.arrange(p1_cosmic_hallmarks_dark, p2_cosmic_hallmarks_dark, ncol = 2) ``` ```{r} p1_cosmic_signature <- p1 + scale_color_cosmic("signature_substitutions") p2_cosmic_signature <- p2 + scale_fill_cosmic("signature_substitutions") grid.arrange(p1_cosmic_signature, p2_cosmic_signature, ncol = 2) ``` ### UChicago The UChicago palette is based on [the colors](https://news.uchicago.edu/sites/default/files/attachments/_uchicago.identity.guidelines.pdf) used by the University of Chicago. There are three palette types (`default`, `light`, `dark`) available. ```{r} p1_uchicago <- p1 + scale_color_uchicago() p2_uchicago <- p2 + scale_fill_uchicago() grid.arrange(p1_uchicago, p2_uchicago, ncol = 2) ``` ### Star Trek This palette is inspired by the (uniform) colors in _Star Trek_: ```{r} p1_startrek <- p1 + scale_color_startrek() p2_startrek <- p2 + scale_fill_startrek() grid.arrange(p1_startrek, p2_startrek, ncol = 2) ``` ### Tron Legacy This palette is inspired by the colors used in _Tron Legacy_. It is suitable for displaying data when using a dark theme: ```{r} p1_tron <- p1 + theme_dark() + theme( panel.background = element_rect(fill = "#2D2D2D"), legend.key = element_rect(fill = "#2D2D2D") ) + scale_color_tron() p2_tron <- p2 + theme_dark() + theme( panel.background = element_rect(fill = "#2D2D2D") ) + scale_fill_tron() grid.arrange(p1_tron, p2_tron, ncol = 2) ``` ### Futurama This palette is inspired by the colors used in the TV show _Futurama_: ```{r} p1_futurama <- p1 + scale_color_futurama() p2_futurama <- p2 + scale_fill_futurama() grid.arrange(p1_futurama, p2_futurama, ncol = 2) ``` ### Rick and Morty This palette is inspired by the colors used in the TV show _Rick and Morty_: ```{r} p1_rickandmorty <- p1 + scale_color_rickandmorty() p2_rickandmorty <- p2 + scale_fill_rickandmorty() grid.arrange(p1_rickandmorty, p2_rickandmorty, ncol = 2) ``` ### The Simpsons This palette is inspired by the colors used in the TV show _The Simpsons_: ```{r} p1_simpsons <- p1 + scale_color_simpsons() p2_simpsons <- p2 + scale_fill_simpsons() grid.arrange(p1_simpsons, p2_simpsons, ncol = 2) ``` ### Flat UI Three flat UI color palettes from [Flat UI Colors 2](https://flatuicolors.com): ```{r} p1_flatui <- p1 + scale_color_flatui() p2_flatui <- p2 + scale_fill_flatui() grid.arrange(p1_flatui, p2_flatui, ncol = 2) ``` ### Frontiers This color palette inspired by [Frontiers](https://www.frontiersin.org): ```{r} p1_frontiers <- p1 + scale_color_frontiers() p2_frontiers <- p2 + scale_fill_frontiers() grid.arrange(p1_frontiers, p2_frontiers, ncol = 2) ``` ## Continuous color palettes We will use a correlation matrix visualization (a special type of heatmap) to demonstrate the continuous color palettes in `ggsci`. ```{r} library("reshape2") data("mtcars") cor <- cor(unname(cbind(mtcars, mtcars, mtcars, mtcars))) cor_melt <- melt(cor) p3 <- ggplot( cor_melt, aes(x = Var1, y = Var2, fill = value) ) + geom_tile(colour = "black", linewidth = 0.3) + theme_void() + theme( axis.title.x = element_blank(), axis.title.y = element_blank() ) ``` ### GSEA The GSEA palette (continuous) is inspired by the heatmaps generated by [GSEA GenePattern](https://software.broadinstitute.org/cancer/software/genepattern/). ```{r, fig.height=4} p3_gsea <- p3 + scale_fill_gsea() p3_gsea_inv <- p3 + scale_fill_gsea(reverse = TRUE) grid.arrange(p3_gsea, p3_gsea_inv, ncol = 2) ``` ### Material Design The Material Design color palettes are from the [Material Design color system](https://m2.material.io/design/color/the-color-system.html). We generate a random matrix first: ```{r} library("reshape2") set.seed(42) k <- 9 x <- diag(k) x[upper.tri(x)] <- runif(sum(1:(k - 1)), 0, 1) x_melt <- melt(x) p4 <- ggplot(x_melt, aes(x = Var1, y = Var2, fill = value)) + geom_tile(colour = "black", linewidth = 0.3) + scale_x_continuous(expand = c(0, 0)) + scale_y_continuous(expand = c(0, 0)) + theme_bw() + theme( legend.position = "none", plot.background = element_blank(), axis.line = element_blank(), axis.ticks = element_blank(), axis.text.x = element_blank(), axis.text.y = element_blank(), axis.title.x = element_blank(), axis.title.y = element_blank(), panel.background = element_blank(), panel.border = element_blank(), panel.grid.major = element_blank(), panel.grid.minor = element_blank() ) ``` Plot the matrix with the 19 material design color palettes: ```{r, fig.height=7.12} grid.arrange( p4 + scale_fill_material("red"), p4 + scale_fill_material("pink"), p4 + scale_fill_material("purple"), p4 + scale_fill_material("deep-purple"), p4 + scale_fill_material("indigo"), p4 + scale_fill_material("blue"), p4 + scale_fill_material("light-blue"), p4 + scale_fill_material("cyan"), p4 + scale_fill_material("teal"), p4 + scale_fill_material("green"), p4 + scale_fill_material("light-green"), p4 + scale_fill_material("lime"), p4 + scale_fill_material("yellow"), p4 + scale_fill_material("amber"), p4 + scale_fill_material("orange"), p4 + scale_fill_material("deep-orange"), p4 + scale_fill_material("brown"), p4 + scale_fill_material("grey"), p4 + scale_fill_material("blue-grey"), ncol = 6 ) ``` From the figure above, we can see that even though an identical matrix was visualized by all plots, some palettes are more preferrable than the others because our eyes are more sensitive to the changes of their saturation levels. ## Non-ggplot2 graphics To apply the color palettes in `ggsci` to other graphics systems (such as base graphics and lattice graphics), simply use the palette generator functions in the table above. For example: ```{r, fig.width=6.67, fig.height=6.67, out.width="60%"} mypal <- pal_npg("nrc", alpha = 0.7)(9) mypal library("scales") show_col(mypal) ``` You will be able to use the generated hex color codes for such graphics systems accordingly. The transparent level of the entire palette is easily adjustable via the argument `"alpha"` in every generator or scale function. ## Discussion Please note some of the palettes might not be the best choice for certain purposes, such as color-blind safe, photocopy safe, or print friendly. If you do have such considerations, you might want to check out color palettes like [ColorBrewer](https://colorbrewer2.org) and [viridis](https://cran.r-project.org/package=viridis). The color palettes in this package are solely created for research purposes. The authors are not responsible for the usage of such palettes. ggsci/inst/doc/ggsci-faq.html0000644000176200001440000235117014570534766015651 0ustar liggesusers Frequently Asked Questions about ggsci

What if my data has more categories than the number of colors offered?

Although it is recommended that we do not encode too many categories in different colors, in practice, one can still create an “adaptive” color palette based on the existing discrete color palettes in ggsci.

See this blog post for a detailed guide on creating adaptive ggplot2 color scales with color interpolation.

Use a color scale consistently for multiple plots in a document

To apply a color scale for all plots in a document and avoid repetition, a simple solution is setting the two global options ggplot2.discrete.colour and ggplot2.discrete.fill. For example:

library("ggplot2")

p <- ggplot(mpg, aes(displ, hwy, colour = factor(cyl), fill = factor(cyl))) +
  geom_point() +
  geom_smooth(method = "lm") +
  theme_bw()

p

# Set global options
options(
  ggplot2.discrete.colour = ggsci::scale_colour_d3,
  ggplot2.discrete.fill = ggsci::scale_fill_d3
)

p

# Restore original options after use
options(
  ggplot2.discrete.colour = NULL,
  ggplot2.discrete.fill = NULL
)

p

Customize color ordering in a palette

You can customize the color selection and ordering of any discrete color palette in ggsci by using the following function that returns a custom color scale function. This method is flexible and encourages code reuse.

#' Define a custom color scale
#'
#' @param pal Name of the color palette, as part of the
#'   original palette function name.
#' @param palette Palette type, as defined in the
#'   original palette function (optional).
#' @param n Number of (first) colors to fetch from the original palette.
#' @param order A vector of color index (optional).
#' @param alpha Transparency level.
#'
#' @return A custom color scale function.
scale_color_custom <- function(pal, palette, n, order, alpha = 1) {
  pal <- getFromNamespace(paste0("pal_", pal), "ggsci")

  colors <- if (missing(palette)) {
    pal(alpha = alpha)(n)
  } else {
    pal(palette = palette, alpha = alpha)(n)
  }

  if (length(order) > length(colors)) {
    stop("The length of order exceeds the number of colors.", call. = FALSE)
  }
  colors <- if (!missing(order)) colors[order]

  ggplot2::scale_color_manual(values = colors)
}

Use scale_color_custom() in an example:

library(ggplot2)
library(ggsci)

set.seed(42)
df <- data.frame(
  x = rnorm(100),
  y = rnorm(100),
  group = factor(sample(1:5, 100, replace = TRUE))
)

p <- ggplot(df, aes(x = x, y = y, color = group)) +
  geom_point(size = 3) +
  theme_minimal()

p + scale_color_custom("d3", palette = "category20", n = 20, order = c(14, 11, 13, 12, 15))

ΪtCU uթ X\ X"jPײ,PO!q9o&Wa,r_N.YPM C=61x%P[G Y=` UY 1BG( @a2 _L܊~bA=K@U Ja3V[>VJZc)}fkdDh.[Ȭ¿$`I-[(qR@a 9$$O.ز,6 oZiFYCJqt" e Bq^B0c''寋 $noKaP0OZ_ba:sv2v} YQ (@v(C=:1cĩDg_L@K^pzX#61`[…(P3t.`s }XS㹈ex,p&pBZJS$X0Ӡ! 9" W2N!R.ەmP-s FG5A)I#e_[WUKdins㒑~FG F#zr "7 f.%4-W<+fq ZU:"`~8K@at} GE~-,&Lg}=8pW0J$u^}fwXNqQN ڍし/jVH&| F8% 0pM7۩'u{940ouM]&W~ *D^{ȣ/[5&0XK?&Tc! crM`(V~hŤ( yz'MJG(%e $ SHzI0rr[_ :7VRtcP-YK43W"jDLpLbp'q?O{KV,n+tM]w$,4u\GGmjph1X1$_b ^;q6ړ!.UxCxc[`y12 NQ5b*p/t[dƴiS@~|I4 _)ws@2v2&tx 1S0f%`!i t1A~lӥMS~}/W{ ci$2{Q% 9 E=aiOTi&_OgnߧB'BD @()SI@ׅ IDAT6c4xėG~nW{3 R@wdO_tHcLQNQB_9MஙF§(5܎-)D^U x&uO#]z,yׂgů8ςs% wi O7I)'( i+3` XNX>Evz3cI W\/6fD`0eDo _8;^$'(ߛ>Owja $@).W5PNf`C uo P_o&+u'٥0ou*Lb DOT^:8C,!.j*`z]4AԫmFY.d )I!ev- 7yPI[cs5_+@`@ŮA.'u{;40ou4Z@֋*︺nuj~ Asd^$h:PP4L1{Oj3$O824uaРDVls $H3[ag>0yV+:q (`5*?FP+TX4J$ ,L pAMozQ) $n̋w^U*^,@6{%td nɚwe TPk2+P$XbƬ[X<ʻuA rZ4yVϮ^2ͺ=!a3h|ZRQ?-0|SeOi[&LbȜTE7с~iyzqo5\.tb]CN'"[) 8̏f40Y\k 2L]b,T `H,2FN~w]JȅӋCAa R0Y05 |vB.ll*^`+It+]u ,]pI V0Ga߻c(8+ ّ^LVIFZ}LW,bP@e?r8VTH\4K gmqۇ&윒['d* Jªl:?Gy-_!EԧZs p|RgY * /,lW=$nyed `ocF/ky?3}XtU1zAّ" `ec  *2M[_Ae0r:[kzPd !}[/OjGVNLfm!80-q{R~0X,WP oe߅ t~`$F>"e/"ӮĜ^t2jCt @E=_>D@VI1a& bHU c}8BUVP41H"tg{@l]R)&L:"J S%h3|SՔP(Jh^ 2 PK`WH?]Ɔ`91q>'*ɮ\Zc@wޚl! ݊HK. TX mJT}GjVQM Q:>F-*? Hx'0-6 . {=ͯ,vS*dȔ|$TH cA4Sf,H-r|> J@P-5D.yt֑0; 4YU!uJ NFh80O*TP`@o7b\#gi z֗掏_4IJ`_]ݼ(B.2#$ '%(2{HZ#*P@29⿞-~ Z\?l$7<̎V!;0}(f@S]^T j26RdpS@B` c0\wNI(<0VYmixR&kp! kOwT6@e<v. 5ckˊS=ʇݩr㏻ې 9cakxA)`3:ubM:J~FC)}ХeY TZ)gk@6`0FMM"籪e#2]HVA/7dD U&my4U)5&׹SZ/NCi6w)Pfs#&`>f!MW?m=4D6bOf $I?uz$Dž 2g+}w8x |yRQc[qSmV8::zPWB{l>.ԜFZ<ڟ8*x"?ך:AYR<O ߁U5ӗK; J]q,ʅpl޿7%l:[ T2ImLwX#Q'NJtlɞQ fsѫ 1Y@_n}Rׅȏ#vUb728Z\cbqE]ʄtkG@MͽXa@`r:u?Wڹ?G~g67&7 D#ί*Hx1Cz ؼdV@2^ s?u'RHrE⦈:@hqf(~xœ)C,7QZ؊5XVV_:W +y*Y(?B۱iom8s&l}7vDF_lg&jٟq} 0Znx tiqa\Pqs)"'stw<3bev(1`eobV.R }7 QY`}r\0eosʊ)v2ni`/l[1b s! *0ť%V|W+YiVF)SJAX* $w8 D?-m7Csr;<尖q-Y’m3A0h\*Qr W 1Jt oN5wlu2ݺ:JMxM }x7:]GXzU7D1>)=i9n1*E@)3Kg @MFo"HJ2ȷZ3L2崌e4?n8BB _F 9ci` e`iY&1S6(MA})P+TIPH5o [0! (*{P F1')V2dgr@CoR𫀜QiΨ/ –*:aO.}D(@ ybT^!PN*@(i4ϟ2 i X4N.x'UZ2%MK@& x:_)w:(@0ĶoGI+jj2[3j*<by `)OU x5`tD`Ed&.Y'|`dsf:1\%b6:_Ft=ҵ UnIl$j9 \bheZ|%2@2Ycb^om٧&,LWI/ X^"@ erʏI5,L:uo8Z?G?`DwA1ʰ!"^@ L 5s=n6@@f\WϽg7#+ഌ9jl- լdDT HurՎ1b>ТSQfA18wr=6Ĵ',iC7OU@"`N-SMn/2 sƍB _ [#øFt8 L_}Bl:ws>guC@s % F?| BnՍž/ &WW{/ <"?KX9~@L-ih̋fw>\yfpֹ\0SQc([;4 bdku b}mbvƑTtn6CGXI!cjmY3]v5oaecZѽg'"V*?P]aVdE.oYKbTZg߃.AWM;NMmnq 'm 8d/#%_)ͯ1~3u* hVˬ& zv؊Bq+ vo<2,WD@~&T(WPH)P#>YTR,?JBEYŬvA}PX0 @?E]z qTl-]/x` h&1=DH,9TWxՔuNHO}W ]3K=l%.cfHzџ_zy^_"_  `:$D >4*~v#‡L/XpBkMϵؽ^w22=kLVCan=15`)WP\H)FSĈYbHM^ph]po~x\ lk3wiH h@ \^I`‰45z7J>hsWH#1=%A)3鉢ujYv9h?9R-Aطؘi% P4‰V+R(^ B~E42"MF=q"kQu):Xs>7|Q`M۪~% r%@rnـѝaTan丩$b֡׻Wyǝ5K3%O@bUT(1v3ч! Q Ķn PWC<2I *zlx !?@7t:# <G,˂L9e#d L<ֶeֺ/fo`f@V" 0P w"ȯD~k4 IDAT(BP^dK;NccL,6 [hx^BvAXN)3y*T1b/)AZ@n@D$|6!U@ۊ)|dy]@%$kj5cPΧO @uM@4?%ƙe l$z!&s?2ĐBer¶4՚›U@(JnS(ƹiy-uӀtfbD{!3$UئsIA xabiB'E i"_7unΐ("k @s1TD 1~c]2PJbRa.&)^qY_?>k+Q @ȇkJ@N N//OY^*y*3i_0 eW,b Ud f ZU@<7t2 $;Du% =5RyInIB޸{)yyf&3j&xjF6/2hKf2n!f+J@|rL=eb\ETb>c%j#.6E`RtH (:Ͻ1Ho v\ aLI+v/6bvf! x AgsUHuZ;/~A^F#] k@BTgY!7Lj3H%]@ vcޣw$u*l(1;Y@ ̺KA FZ-| `"KlƇmS5[)zY@*)?"S);  +.vk5@?: Y!ӌD㝏f@; yj:ˏӻ" `&ڙ] d= gݥ/vk䩕@XJi; Iz Xw7\g9+HTV@s[#OFٶ@TeR8EbGVu7?`NT Su2]bm yS"ccLkڃWI+Ր: θ`wyI`!&|72n\d{3XnKO׃"NqaG<T80~[a`o#`*\3"Ze7^XhP##JJf)Yt\%:p9JD!x #z. {~@Ŏ8>q:o9XGb[6ƒU>:P$bԟT|i{8Lq! .vk)_ yz |Q6Wz<ǝ>h `jAP~:dlp:&Pe8̽ ,6 w[#OM ,?ޖ~: Py.^MaτR@8uLdA%L(煾)bid)A3@Bfz@5M}6gLKf<, 2WLBΎ)A2rp^'X,1-лڭ |UN[4P"4ի @ ~K?[G ;F{hPE Oyeʖe4ЈsZr%()!،\ M q.,[\B:}(p"% T lZmY.!"Tluq%S-o?Ϳʽg(@ۢ @`mEkp+M`wFˍ4 "iY@uL#@Xbo@u7է:=B]?w8Io)ᇣY[@%.0">TUv,5<$з>]PjKEA|hq* mXbGh㖢q~O$ I} #X̓xXjo5kR\ )iPB=Hp&C)zuKA,1AX@Xx!h/Hh2zN! xR,7z! `!WDp " (`sS!Ih[H&)Y@rr~=ƂCߋA@DU{ gI.:x? 0GU6Vn:@H0f7Attr?KY@1`j(@1u0N1P_2 HwUAJ gdoP52O?>$`0W70}`OϘkvu+{G5@Md3]⺀O L@ב4)|5`z@T u%=gPUmM3G3@q ,+ul0h`@u{"4` k7]SB U1ynU #fO) \C)1(. gV 7ߤ١ϔ_GԞ~3q.)uHD')T"wr5jAnҦԽRUyw1 1 @, L)&En\(9 [ESxdmlvӳVsqxӂ¿@.,tO>L%TSx @\9TQ9TxoS@ 4 ?MW'#+,Θ.`ٯ`|J[ @ u;uanQk44P^I5F1rfGsewe+cFNF8`zF@ #:b/$ٺ"1r@6S1_@= (10?!!0|Wm K1C,~_7fRAe0%Q  bqcZ$sP((lp*BE\;@b=1 W& T'Nhp=%0b_$uEcY&ȼM\ظ{P}jJΏPG&GP W@zWZǑ'_"QU5P1W@ :1]V&|]2L>|ϽB !,+*˽ܧߛJPii 5. ( p hwЪ${Tf-^AS ,s fs={s hrVW@f(78A. T. OTEpϻ@@L`Z0Q8Lva4O|ZT/TPP[1$s 1`0T |:(Ljqn|(s*\@_ ˧&naƽkj7H= W@ňYU>@ BIΩlc5P1>"wt3 \2WuF6hw̦6 07mwg,Syrĺ@ k- vk21e:!0bPT 1`Q_2ߴ@5슊a8w -$s[|}Y 8@ Xg(@P*B `XqaJ{n jr|#+ \!*xdQO4v"p.|o*%@ }`CsmY19J_E_|CП2P P!j(O>*Z*bgFۯ__nɆŤ; vA,к-H-]8YZerK@)?68LgL9%Ʈ$ 96JP7@?1A]{i%lQx @ǎyNCOv:+L2JP&_E+_w^X6O}́ кZrCV̏[!`g,7PH*v]@!b܏@t {ļx,OW@PT`ŅM gP<®^Y:DNT.mIKMQNjb/Y=||A#x)ڶSƙit&Zjlᜌ`D5@ DCv Mbƙ$זFp W|9`p]@&">|}ҽ7QrkRyu1s)DO Dp7 O0 @;(@YUز D5֢rI5DfIaU"di|Q2Z(r9˵܃?U!AG9MhKT)W δT%vUKbtTKi,ڠ4u>ZO@Tf}.EPL+W%S:j/5c?F4C[gr+58!Y@' xV˲M_EJ=G()"ҨbGC'L1)])_r  riiGsR}9zfrL#_n3#' `X8+fP9MQx֛I^%K|p s'B-&c CDL*9˰ hkPT{>h^N?8y=3f;8P 5u/W+S`T,! r+Pa1Ń*@!߶ѻoҡ(8 loHK,  ѻҡ(Ț63z"=Y:@BfK>Hg*Wb2f-{ٟRS$ԏ^؟a k(8DTJeFRDzJ.(6-y)V6 o3w)҇\A@ @eFR$KW;^8xǷѻoㄍ97.NTBlScB=qTX 6=iG~:3z"=Y+s*<#f1F\{b ~`܋zaI K,G@ "r'<p(  8H&}C\zS7wi!z[͈H`04  0 s-(IiҺ^I&e(ֵVII/&ldK^L%cYB3;-(Y'tr3^R]4]Z`dڋiÁpe@d9.aY׋,u׋J.zT'cnQy8A m/bPmTtЋ,LYz~LE34 a lt[EtVtՋBRb2mO͏i$fE9 @6%wʡ:E^cb2 綯Ǵ[@F*ew]@u֨E\StvmE&cvJw1u8&ApQ0TJTUsUYKwmREtԇiÁp"xY-Ő$u2)ՅG*i ^-ܮGzIDATv:e=U=+({/kph{%Ml&SoVUO%e fUuAm엵jˮѴm\Is^vUˇiÁp'mA{i'rW֒:Xֵ*iǽ;6($B 麪hgxˆk% ~۰O~+v@@@ ~OIENDB`ggsci/man/figures/README-ggsci-jama-1.png0000644000176200001440000010041614570505642017400 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$NPLTE>MOy IGܐIƿtk+48[_`upr(ݩHcg,' g`0 IDATx읋b@H"?zŠVθu]JY03P ]bA A A  A @A*#v~&.N.;+&^p_ c20Yl"k0zLN.^maB|\KzKeИ|=Wdzś3\@^xwݦrlVo8SooFmo |=z+v6歖k6*NmѺQ"=F{~; SU '5`00 `a:000``d'`ޗQd`ؕ4oC`x{$`࿩T``{400]. @z"ʼilӫI !+7FA~< `l S\z? ^x51 x ½*\^ML`HЯQT{3jb(`<CjW3E0F,O5s 2jaMjbR柋1fa/O9_@G2VyދAĤɦ˜lihx +{7@0p|= sr2=:7`/&& PJz`yXPagĤы&`; @!ۃ E˫I0АF}r߇Ĥ/@ 0\.cPju_0'00Ox2(0 C x Qlo`1`sJAxD`[^  `#0g@!`a_ `}'``* `060 ]0 `iJa @_h@ ;7e=,Z:El.MShu~V mtIl\֒ϡ7˖4}zܗmy* P0QT@v(&)̾W0{9 +븮-t:!WIqCUU.-9lTO=7pfz/W3no5~OjuwY쩵=+8۸CU=?lkY`_J@>=z`~o{ԙ|Lb= 2BDD5 ԀncIF`lp Q@V\+ψ3?'?OJ@Eۗއo-FaW `"|@,eu5T9 Tu =W* 3]y cõd?9+KD:E0 n1gaiڸ\ɻܝ]{ ,T?{vOқyf,Fak@b\jDͱ|x/ _ 5" /%h}d`<05׵~(3[ ϧ*8Kb'ͳ? [ V\ۭ(c3YL8tOE!7F\PI'i&hDk {Gg` mڅ ?/y?C.a}{?>$$Hyqh{"ŏ2 XJL]CZ~b}4?\. Ny2RG_E~R+=o jt]0lrBvM6R.GQ# $@3MEIX'#مn7=ڦ4) `e(Af@U[y%fs]DM&MsPm:|R 2O/(s0k `P7o[i"J+q9'],\S<>G(~+,$['R&)Eʄr6!߹a+UM?2k?|KVa._qq"^5/:N*R1`\y|E.NZ%8ωz:][LP#.'Φo _ <@$Z! 8st]+dO1@sHs)y %)ݣv4e1ޖ4}7a?`p7,WN^@I׶{_0"psPiZgJ[E(%Upd/6k$}]%[ICϹ!@x(giz?@@! OWZgg@~_fg{h#՝a=`|CQTP6ĻδΓvcjT>Hs˚!l? 34U'O3Ī!z:M`35v[!_ tP h|FV ] P@@8j5O7;F L#wWt/7+'dTzEtA.yB,?Gz7`q/ nzIhr G,`fv^$dbޡZ2B\evzVhjiMv w59*$g+i+= h `w]@nr]WJ`wE Nƿ9YnG; @nK@x: %ɱ,CG7T~'TSӟ* L8&L8$/?TQ8`?*_L]@w*$$+ D:s4q{N`w.u%0tX3'p/Za2L[TH>N#@j ?GJ#:z=4?)Bew ,}rR~̍Kysz/@@4 9 `G%xO*h|٧|ڽU}Xs݅Zӡ/_Ln%-TIg#ݯ;p)@<^n-urb\MJz:o5A/J k0v]${*THV4 ɐ,12ޅwo)H:G[Wwe0%Gd`+?;ȨP @$>:RܻZWqc >jii<^˿[ ELf-)>iP  }Zp%Hh>>؎c7]$E8 iWU΍Ld7_J|kcH*7K"w2mzր Z14/1THHv?$35 2/#4;O3P'7"=܈|@b秘Cz݁r7* Q@c r:l } T8 y, Ƚ yJB0W'K({S;B *$&~:7 MR7lL&ID㣚AS{1^3cy95xNi" }pءʌߚ! mNkW//. VmI39cef2Jۿ72%@p^c @p oGre9F'ie{שkFJ@?.@p43d,x̂G*TH_DWCf1P u[௓*WC 1Ez//ӤsS^LM|*$7}́ )`"vDo,!,}@L1͝#if)1T #K_wKl`Pĉy\;^!o]L8҉" 0Xwl񯤷SAN9$ 8P@i Á(@)k/4@Çc;hpWyZB$ma }(zY(Y<@J-}@$p@ 9@cv˔S{-}`f=t5迵TUP /!@-wյˢⱏllI ߯kϙNO,soVP@9@Z[^ ~,E7nq2>wzQ. giP? =[\sQqO(8*THx;ٻĻr]6馵k0%[}L~u|`3gxZPk(tx1 $v>}#谓gqp5]JQ<s3c77,L魣8K~$ģ1TR 92&j w%4:Srp^֕@:*;ӵ4OELEtYdfn FgA'c *$D$^'y'm`;*Θ; vR z{hR7[:7Ғ{~a"؜Y#(E8P@UPSW!.K,ȣQoIuB %ߊn&LJ ^ 4ŖKX 9vN⾀!äf1p0Ux]//xg G}+(8?_Q;d<Y\HmhO@U` GaF#$xb5Tx[/L75ї[}@#ֿ9@TܲBY@UfwD X4"q1rU{&XdxT!eI򦆠Gw YxT4?^ tjG?rZ8[pLP !6ajpدGePJ0;9tV^VU2' ͂t$Q.5`(/4boHTu' l !MEGU~R ]կsSG{~``p<9/Sgd)S,u -S_ìbZ=Q7}R2`?"@NP"R@ZcvoaƩ3_Oc NxA]@ 1R?$yƈLRPBL 䗥Hs`xO!FϏ7P?y pXOƉ6q_+8=HO:_m(:/fo9 ?,P[FdPn2,/KP$X# `@ɫ@"4 ]^+M[U}1Gt6{s*M{@[&D`&'Z%`+ s6G}thcѾ*5|qw4kX/Cr|Cd Euf )@j{<.5Uy1K3X t1.a$x~ܣP1_@@P<4z~q=ynv IDATtBhd X0| #A<I.F>]@.=EĻлG +>Ƨe0`:8Al:MGP[ r$`pa}MO(X`;vgk6 yW*_ZXвxt2HW=DŨ}[Z7LP=uuq +&@7bVRӥÙ)p/}#l'n aE61QEia?3P-2ot2 7M3±p^NjkX`v h4k[%PKłt/>AKlz P'Oy3PHI,iQ>NBcp +&@j,lm:Sx5 RWxz1Vi㏏=dKbi0杆y>G+9@e@䩴n` 7#ɨr$Qo$z=3tXYTWD~KQ_HK 䀨LPQ~vpY`)3?Y0ĭ1w`<PB1ȷT?aғ)P_@X?qyN {f4Þ }w95 k#T@qڅ!T}rgj% H|!66L ,2 ugF&Xxa01!c f8ѯ`A؝&Zz>9" }Il-*>/t j95#AY&{BM4PS@6me Gxh +'oo۟DY `La=ĠFx+Fcک2(џ4MgP+C"6ng1Э) X1[LX<Ν/E~9S;]>'=rZ&dl?DAt*;_)7`m􏈺 L)[%@5V @K^[-mWf¨<۸_|¾Gu[)U;u'9kW +Va s22Tzє.A1hmu(C­c1tߛ ϰ HV`/,IS@XUj5nf&NzgOz1< L- " 8&X0]7'4ݟ|SķSBl )&e2`N1ձN"0 oWkMkLU^pP2;J5z٣\wZ.4d2pr_0KZh\Lf|[Fc|E&7ޅr%jY߂ippT5/>q<@&V*]}y[g7?͚_uO ITti0L*ȧ ks~la,MF~(!GNFP@/J?E;q&S``h~h :Mh4>}2jULA(}Zp RD :LƦm8]@H|?x5(rw4/x \n?<:, 9 Fhv?*`eMmuï'+}' ߘ&3ui^trdjU^K]<1RXwRڐe=,gdNѝ]@c~&I4稻:Ơhl]!Xv+P q0)ۭt6&Pn}̻h@"B]\N/'KeP- M~ubNLb~ @ D7_u{+_O3? gfxsKd͊6\=.N`*}Ah%'##9WASȣgVL4ھTE]RG0{}ᅰ;rB &g hu,~h 1G%:ճ~!N-"jn6}3 '*p8@?eaV,W.pR 2 td'儎VؗRW["!T,9@Iꤿ ֺrgKĺ350Cn@8Wd 5/g%3H8$l2/Tgp0f֔f.Zz骛:\U(n_=JҜ෤uҗ;p R@%q|N QrDR giJfZ| @1 з@cx_sn=s~~681jۭ_aEV&Lw|qQOaUJ@ŵCg{q>\ao9WkIM#+Ǭ&Mi+xH|~&1 KVV<$l2@՘]z\%톱i mRʫ QT*4 ؟҃pN1V//p5_*.jjjMo?vgVE;ʊ4<묃 Q\~Q*hD<:$lc^ 4UJv.WFt62W6m%3Ey/i2BV}' }d:n$4~1Xpjn40*6($7:FeǥsfѼ6aS= kDh O0S\z &)os>aDA`p $QS]pDՑ:Uy_pWQD`ֶ}PZ]iT:v,_ƪ( a䥤Am| T[ TG%)Vf^?y I4ߋe=0ABzOU8Fy{C@WřKdf9^g9Ā6H٤n}CŠD"y3=k8 (*rK bq0pP kg7Ws1 O›&as%XI5  0+=,RRYʪ*Tڠ bՃ \?DhD4+0(/Ѐ_s~n&!a%)V2ԣ&M~ \ T?:7^4KS| Q+5"ܦG~6M'F7wأ$1mju?* "J t b`\UA r b:D)D\ndԊmP;X@ׯ0jFӰ6f R !G6$i|^JlXjˁw$[ cp|2cm9͎޹IywuW9s?.w?pW7 2kbppw4P7YX">N-!ʍwp0'Ob5jo-), fM(V:ڙ V9,\7~?l`R2- M}:(ޛ~U.mc<.q2PH z~Y@I2Z ݾ@ @q\<l,/g&8 B BKXkkUlj&6T/mx'p _X̫'3%, @metz[ 42WJim;Y : tx T~dJ{i;m54+*@l s̽Eg g!4#Qm 7 .r?М\`p`5~xC_Ȭm 1a{Y@Q5X$@2yLw9ylnN>ؓb5Dg]ǹv,=+m;bՂHJB2NƄ'V@C]Ë1Wͨ OQ v{B6o4TAOoΫ9ubRx ?&jWbŠkm~ W V9?9+݋^@RFy+$Q O.pLo;)<ݴW>x IqswʍXN`.L Tx LsG籷ҍ ]({ h1[G8 - CA<8m| D!Ew`)g!J87vEi1$=*`p)r/9Q玓cq'"ʲ5tbA#}y IIU;{- T;ޜ/i`a?m  (@_+e <7 Pmߓ%1̻!4cv&$قϺI)e ko=K67$N BM\@<'P@qw/Wt:=1?@xs#C& $~խk&x*.þ ЖW,A5/83vӲeX;~, r[ 6h [{@; @ۨ忼/ʧ|s`WyDކ( H ye8 QT"]v:4DJزcc?z֮NM!:fFYQw>rets%]uOmh @N_nb)[mb<ގǻOA/wx!4ǵvQqTX6CB|5joجInҎEtE`R~<䆷[~0Tr mg"Ճ$ttZ1fB aFšyҏk!3@6v`G nH`FMW)FLwrē =XG7 + Py@j+1^ _Pi;`LPv'Nu+P0@n{ĢJ(rR ԇ@z4h K ` &hϫ EYSnmcXI+9Uq);=@'= :PSJC-jRAc8bfxDpv5q‘M4)")x.yfAM$6`ˍϢbcz oyn ~\C2 x\:z&)DIL34HϢQh?nCW-ͽނ#[3,`l`2C@.Nv$S`Iq-= ok@SM|!. pG:<2X?:H̫@ka_!E: %_35a:}-B B8 M'$0<,$<]J[A] ^[9<`鶈'=ɦ 9kv@0qEv|k *tKn`r<PQ875)N& ~0=\-8{= ӳ NK@SM<t8p) 's<ݹ0v蕛@Gƪ08`F1B1PȢ@4 }z;!.h|Y 8f@; X)WGO|8(Ai(a^,rs''p> 遼l )ou`' Y]M(~j wrkIaS9}BGBf$$d+ǀ()tޠ|S el8{Q٬FpZo<\$6uK#0Ac䊤' (v}5(Ţdz v'&{N]M4MV=*!-$?/n>{@S}?b@~)h@MTxMKuWQ߰Bty$̔G17%2j `* > TG9_;*YN\M9Nlmt[tA4zC_D<&a @×+䟰Wd~wÉU5- i+%$c5 P?m՘o $$t1/[A`s1>0c%c) :u$82exU pn0n(-HN+$$@8R)-DF)$U@Ϻ_Y0qjpS:FoZ. ܗxt*I`DC<}%ZL64>n!]43@P/wQtNea@r' e|VB"?Gqݽ6늿FM%07?p@SV<a6\🔁ඦá(* 0jG}w\v IDAT`h挥&xWz"Zŕ)02aGb<Y&X4"@ ,,(npYtNYj WVlq$,+M;o+B~me@rEvkzrHj%zQg`],$c,|DY PLIHJe|ӭdݕ?p;DSM|Htr潀[N@b-w_ܷ~pIJ3C!fڜ#R(Pߕ4Cpzg*DJ9 d`>x0C/M49Hgz,1,9Q;H~|!hT=XQ?2uut&(%@tJ#NM4ЪUg^aYf1D5$E;DD0e. 7Pt"Fu )!_RK(r]ПqhQ`J9E~&_uIl_K'x^D;ěu@;%fqͶ`U" &u};Z4@`P~I%WM ?S{#O P;AW_pUB$"ס0Sў$fL@JE_ȕTh U:@S  prP .M]OQV4d"P u-HCHDDA@aL=` LmYs4 (D3`rfJGPӟ5l6!@_Ȧx5 0zZ RgPyd, (#z, Dh ?{W6DE#HbtӺF&!hS7<7{ :&T1 w?>Ѯ"MhyY )4 !mh/;x҆GnxPE<q}4ZY#f?^j._+/}?m/4Ɠ/,y-$N$&I*7[cAYKr%ҝ:DJer9Inv%2-1!'/AH6,.#JR*;u@--UPor'D* srD><2C.`/*|dI'>ȖO%8^.%B2`JCZ~M|Æ(QhbMg:TPcƍB%8vOaQ!EI %._9iŕe-{c\"dC(Z;.+_~R  TVAE9Qs pk.,R걒dB>E71M*S' L!ܶpS6[&"XT=@NEfoiQSEJ)D2`L(ϴN)x<0l ]Ј>p1S$$3<zgSE4 vNKs\7ȸ(71:^xU@>ghUzmЅFB=IJV$ Zk"QQS40Вo5 \@EiUW柚IY7x_ Tx(#P]OW9%9-Q(~aL)[T:CJ$gE?XxȠŤh h j'Vk,:m L:pa'ThOZ R9:eqM"K:η|B@WP@E8{}|Uve1eoUPA _ѧ2[Ϭ\_`ʰ1bHӄN 3@!-8YXq +f+"s  ڄKp{xPET0arV V6[Vop/l";|T8¡zE!4-T4m/=@c!:#Pu8` L0>~RA;9>w2qW4pP #Ky}bPH[ ͲhF9Iy}"* Kkfv8L/$Pp~5 YlL?1NQf5cJӴ ƥT=w[{tи 3[|mƁOވ*x\@ּw j!"4RCw]fqAx.<"Ax4y>\Tk1EA-xpg3V޴7֙h[aP@E{v? hʺwhtH\@t߆3FXoDE!ʟ"nc/%u7+qM{U@.I-cxܨ ݲ]zw "_k? tʆR_=@^o$bzjL#@nX|U8#oZۖJ`q.- K]u`+ɇKfTז_FnhzbLDEk?ѳlkpaw(c$3wTSNEA GhAA^Q}Q>z;8haq:Fx(y'\i\>XSh#?J(+B@ZM˲fd<DׯV kZ[uyL֪2(IÊA(**Rʉ7$9uruajEgPh12cS9MK }FEk9(-SĕR.@M#lH|x[XD\EsI3zJS( 9ٹJ ׃ETk]uXTP{9OI Sҍ:".:lP_YS" K(-dAoupXjZ%u9~q qX:T^9A%)7C`:  qC ;Z)JȒ]og3ŚF:pM ^\M%`6L'm->!_wdB&8k㩣pe #/wo$W$ :g4V<m#hP_‹ڒ]&/}iXXڠoьo|:XKQƲoɍǫNC~tk0/PA2P V%nc YC7r-@9zS8;hxOmSR0"ɗ"EvA)Y$\~QncsO@kܼ@Eݚvf${nE_ E_^ h@l0Q5ʙQM I]Ga~sqB{ާ<XBypO_ H\!5)jqzܽ>k~V`Shb` |)G#̡L޸֖:s"nl#V{pa$RTs8(#5ջwiQ@g/"tL7+'4iFjc f~g޺ޗ>,, E3v$hr(>ܻrtwEWPqϝuGu02hlVdm&^CM a|CWHE tl4Q)!\kXBȄ"* KEY+[{ k8x3Aٵ '% oTW U%5D͵"ߑ8% 7`-5bfitf߇ھ@l&m-C;%1QIĜJ޵'F!!@`CvW᜜yX&,i#\{s&q) @>R&,#1P24qj¹/&\,VER'@Oe&@[")mj)"C@߁Gj7!VJ<W* } VT qj ` [N: MX V@+) %J;3uQh,<(㑮* z-X`CN;/ľ@=4 x}yyӡPVx  7Vh8g @wSLn?![,Fͭ.9}HxgX8ޓNhtS$obb@*Xvh@|`;,i&@c9S9:Ix9oJ-h80,ͬu݈|uHILq{^BDTۿM؎Zx2Vlg c] )B*-@ٷPR7M7HEqP|H(<, 3@2$Zj[eoO!v/CHoC*z,׶0#^@h+)RD/x9:OG#!]0~ MZIuv~r`;%d!89H: ^^߅LbH  ƤPS-AQ;U4cWd$BXrګ#g@*\V!hH~vw/~U/m| ;Fz)7q^{)=hqY~h}>H%JrojGBΧӹO%l%S%d+O: KW)R;>7/hV 䥄$X>zTJx;!u ?~@f<@g؜1 "Rۋw}?}6s7зȋ"o R|^/ qYAD_|ws] DL0؊@K}l7BX2~h!z,sH k+S e 砢(蝻QZAin@ @w d>$@/Xy{A\ UGf^H|`$ebPsTyF=.VݽQ؋/@ůi0] j^-.y %w#)R/J@P E0 5hlYDV<|B@[}9_~Y>ʆE? ?.O)RmLeA&t^ݔ+VN'teYx6,=k_!g&X$ @Zpx]ʿJRއ6Z%@1jDPy8Z@YѩV<DvU6sr`VqTv6"cZL=DDw@)RoKUņBAX"4f8oX𖦩7"T [Adbkj@. 5={3_h{LxmpE@Ȋxua @_¶#RK_Ra>p4K#q5c?!Ȼ0BWM^T$23y1. rhcX?r3&;u,F(VpN IDATffp-  @@j' GQ5-Q"H:|fnn_`NC /Rޙw{R p P%Kw~91u_ؾ/%S 'ec@I``@ <. ৫`i?KT,$ VrĭѧnxH7Uȃ q eXׯ9ò9TcrXwyC'Q='3HD9p^HxK8("@3['E)=Ĩ-9?Za 7@-(;~x ^@+#Omak8ר l)RQ&Ww6 `]U2oWYiKpx ^Pp7qW CxԌ@*< cK90^8yfA}~jb]Cx\Wɭ4 @ܽ1%sOӹ4s յ`9nX&y^o#~ pȰ- mFz"-2W>\7%d,ʭ|P<ͫY`@ @[6#;dVj{@lxM>g0FC @U2G}Fzk@<j/@j p3&;̆[h1)-5(RAIiWo11:nYպ `0/SafodaHvovyByp,zДtx: ;?ݯh˛]Ͱ_!7h䩦딳d2Qavm6l:s0F,I0{̙|I>gwdQkA4=wN<uG_ 1+j^_ *[Su̔|*g?KYjBE<}x;lJ`+(z=W hW &_|3ipJFU]tY?8urVYzz+<54F]}_yk nYw%yT~ 2;3jTL*er_B4qzbM24?hNb0tG#ObcTW* %?Bktx x1us (=Ga}$igA. KhF2q @w4 0_GE_ L]4mwo%1H.*},`zr&xߦա +b ;yjQ@KORlĊor0P( uё^n(k>?<=Liݏbu:s `?AFr-nK^!^ڎ)WN3whb<70@ok*ҿWGny>`ػ^g1-.[YzũQ漨 `@am7 YyF LQhM(`Cle[.W 2y3DQH*@i5P٥:'#[@4W ]ૌ+-ٮN'O0;#VR&| vr6G2D&guIHa `+"]@$͹buY9rv$_wՖ`R)p[@qqq= "X~xA G `* h<~DV@x5eGg(ĨvIzb vBk,HyxCm!#a_ Z_*`y|b 5h6\W 0_`n `+`cDg*dc& `ľ6au ,JYKt0(.!˗ <"c3FYJ^Uvk"> P<]\H*"տ3Kk8 `VăgaG3=/H+ߕo:/>;!`: wq ߑĵM0G2c< GIb`_m;@. gi?E 1wRjNؿhI0.)obЉ#K]lޙH`s@\ )1.ޙRQ;4/_zj@ ؏h>X,fȩ iY&j9YI(sw*H0bk}Z@sߡdE^d <`4]߭ 'OLMQH4 p$@ @ǁl$dޜwo0(;C|$N!b<^y @7b FH`@ <Q @70iBY 7 C/]5 4w[~N'd=Fkv y;? p'SN q@n7DŽ`v ay2-  &`01xizs=>m;حI `Udg"%eiຂ s;P1U(pӜM :nmA1* 9JW1Z0[1`. F3tRNr ,ludj 'gQ G3z(~eޤe)U+zJ]+ e% x ֛,Iby=]V9/y,B ( czӑTxD%u ~=ºoe&K[b+@7YJz1<,J!<b0;jlZTPOM飂`Zr,3k&ߦ,\]@'t[`ynf*&o 1` k4UTb aO#J``{1Rh]f6`r~j0lJ~ \j ))esک ```]@dQ(q9n?(_@ Flx'y]͖HOZzs txqd_\>ai N5@W㮂O򪁟N(&TU#KZz&+Xoߞ4k `) `.|Ӎkr `X\mgfƉNo 1t}Q05Kq=S,/Ku` lgix@ p<X`9wxdUS羱>t&xjDEKN⌏3NFg-*&v6=ܤ[{ (9$-s ` vS"_uw[u LAC 9i;^[7uLA@>1/'2]ܷSAO p2 JY<0{i0 8N_o;ƖRh*vϰz`  1Tm,v_bGF@h ˠNx`+MrK PǑa?M#(1_pQ10ZT~_DS@NPn*PMF<WqcF80cP.%>gfs+lֽ{yp瀔 b{P`*Xg=/$eDu O'\W@{`x:|Z΋+$ 8P K N+V呪fk̿/ VZM 1D;0|V1JfM{""fLM(((7[xXp57ʁ::(^1aVPXA\ #XE6XZj$t/Emk.h*$(HԵ#-}1UCTp; OS4VFi p8v^ٳ \` @ 8_xr_+z ~$bPv?+ǃ]eS@P~Vx'bieM`mݠnOEs;R<_ (['K@F+Xt)+|~L@clPc|Ǒr 8M5" f(zV~blE ` cbw>cx[~jHh cE0lPP`W + 4^-M=$eL4@ -V Pe@&uo(>fKԀl?_MSuTl7 3VPPūYd*nToV`[@$ջPU =(wj4Oc ^9NFca(cꔣZe|ھUI+SpAq7;)VraJd:S.<]Vx>E60tq+ndI5V* (o 4\@h?1eY`?WcW +* t m `L4VL^S95+mQ6 @ X#w(_P} %%YA@دO=VMA@X@/)0HRI*-?RQD=_e_4͖C U.KFKʗ@cF?0,brmf蚍@(=:թF7Xe YFt[VEm1X~fs {X{ ڮWu<=bj1xn/0` й@83 s4t+x8JJf@.hE f @(RMmhblcCh^S@%z"Zό*'*eP:S&6J[\_|7FqMN b#ÏBW[^sh_=R~)KbGS5SUϱGDPlAx.Ǥ)vb;}l>%){AL ~V0?6اOv([]A Û1..=\@&q*(pS  ((d   :|mO, HhwCoޓC@@eueFS'K*H.3z"=Y:#,Fi 2)G.u6mټpY1a>,l}X z( ) 40Pl骙;#(anvà`Z4 0 `0 lP2#K"J)%}o;iEfmLRnKhim(YY#7Gs3Tm'M ܙƸm0u[Ɏ47 #Fg}-D>C~ID-BP`{gXhGT̡<[# |&JUZԠ@ʞI@-eLitԍG=;ݦ03 |& %[d]-JME";iEqlL/}Rmn4oUGTtJJ8g|~D-;iLm6Uؑb# |*I`BIHˍtNjo6tMvymE:@6ID|jNlk):,#};i_ ԆnŽp(#+ l5NlkiQWN"W/. ;ݦ ¤Vq`CA0кnjnXM޻:n?Z}O_=I3ftUhGYWfaϩ(9~i;6#ґ{f*f*]+*x~FY yێ\.a?,+;ImP3U}_hAVxͻU '@'[h 6IDAT7rZl@ @'$VˇhIENDB`ggsci/man/figures/README-ggsci-cosmic-1.png0000644000176200001440000007213314570505642017751 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$BPLTE2--Y8Y$HFIRnkiHXb& $jǟZ[}O IDATx읉8@a$*/ xN/0%!Ȟ x> @A A A  A wXk\+^wAy_GN1J/0YZ]^q+섔/w@o>Y,-Gh[8 8ڋ M Fnv>nKЛozدwZq+l3Ÿٷv:d7y2٬'l<`ש0 `0 3` 0 0}0  0 `)0 0 `;zsl0 w<>V}h``К`   0f\^`@c]|+ߖzV;@0 ueץy.\ץUN0 1OK7_zVQ@+00< { K=0@0 `khl^vR*pt @\mEʕK=/ Q` !5,//ܚO1 `21/Ú2jYR ;ayP?M0 `k?7\Y~{|#x/`hGz)_zVN( 6ԧ~Ļ}K=0-3 qcDy̯>TVa@0 >` 0^C0 _"`O F-`]0 `+`З1 `ſ:|l@>x xu`-c`@0 #`  xG  q < D0 ^*D0 [1`z?0!?"e?#{ʧ708A`V8,Qw>6O;< ,>2M:ө?u^u[/C0"dbU/<,x@o{)eeآ:TU:ttx]qf10#}_<|pyC|xP9;'"%  hJ%N}v?( F,l e?sgc3f i ߜNcLAB@u`F=+Qz λ>PCX)_0EUU3~v V` n2Ң,Nm Phhfm neSrAub7u NQJM` `949keN #ivnt-Y}҅'u `(0 X2 wz n& jxhvO`j}Q57m6*> xl @(46\裀{wȽ(dztٻ߼Qu`)P62m@o" ֜/#ˣi4pC7˳Y,0 `5of]8GD t4x5.qlhznbW 0)лt_oPOc4FM+5@r[+-_{A݆2Ɓsb 07 y2^S5;j7%4_o%D%  NY)Ȏ@: ``vs <> 9nYi56'`[g+3 @oojepjWy*!xJ>; #IeFشHeu~LLL@VdVDCS@\%rf~'KH'@L0r`nJm~/&" Q\DdA'} 0iM@_"gJP_pG 0ulժ$i\ ɴ"w=#0?3){ `T>~"Zԡys:jo5N*BzpkW40dڱ~dH|͛m6kT0:'sśH"8to[^e~o 0RHs2\5mOT H7E`i_[?Mg_0< Tvz>q q6hӮȪ*sbβ 0d&Vjv:R`h#7#`Ln*eqm6ˆft:袪2im맶ztSAtR4-df)v#P<j/b`@/䆄믭ϬyڄhNh* <1Դ: 'SzLu9I5CuPqW?{W(DYBA]u@c0W7I3$Mj}oޜ  @ 2`۞I=K]@FGOEoU{xHc&#{ShcնxϮ`XˮEO=Ȥ^.HxGޮ' <>“!jۥw{ck1_aCҺZoV_F ]@+Bt?p!>մ6tgIL)T#Cm⼗2f:xkiqRNW @ur,uDFGƑ vi `q!&39u7)"R$|1Q_R&wp+UOP %orm`?BHlڪ%be ~SoWR},nsإ%oؔfd>HP !}' yVOMuh|_L׺k&(B09xTx+ݻC hۅ/""kz^:-l @ @\RO^zUDKhߦ}o=l|[R7&77'9yjI p %ۛ z샥Q h,˾:_wo>aKN[[Z*ٞzXBk4߅#J'iR) .C]?KHٱ0%BNPpG7#޿0X 3:TL\l, ӕ;)@1RAn _ >*va;/3D5 j/ؑw{㾛 e5=K"@  V&hi Џ @2ބPx3 q ;1~.п1f04*.RHRL sI8s`E}C81{誮s*c:)@ )g6dgeJs@0=X@ fA';x!$O1S OY@s Oaeh| ^SK7m]AwQԌ۹~)RPdiWFH\|+UxUs&AfVNX_FβϏ;Ȏÿ|t׵!H  > 5$2]ѝJ 4T9_-x Y lwQ?|^B5  ͂FXM|RMna Cػ|rژ8l ?n}Jqb&NY3<rz:?[nT/z?!3@<ڭ7E//,}@ͲCB0ֹ9Uu[}Yn?}߀.p- px. 8Kz0|^_WcW,aƚH3߭OjR1Z"S)-k!TP-,\Qd &)/Ap߻Yď+߮>Sz|ʹ7i.94|y i=5MAdagk #(Cn*]k7ww[b{Uy&p>&Hcr!Tu[ȧd,ە27XVxb@DdK@7([)^@ }@O +ϼV4.d6E2j^И4`a)E1nSPoGma )6 @_?Ypg#kqE HV R +m:4iQՐh|c+%9pT A͌pp&0+VoSxK0s[p8\S]s 컩F\ V&̠MXu -O$Q,Z{ i0`8``q p/0Vsz?+EG$]"lXՓ1|.cArDջ>DÈ߯‱s)N +WNütUЂ3^g]^aNc5? fpa.0`:h5<խ;lR V` `vж=S&?[M҈]ͿϺW |/sܡNn[؟3>B?SV2np+V li?"y{(5ϱ̠!"0hVoF5 8k]}*(\5a/obV` U@Ǡ6J@G=^n>|@5L4O-XF])&.-3TMyELM?!#߅05J IDATU_s Qpal{XvR 擌r#"@@~}ph8 ']Zٻh@=Փ*Me !P-Ӹ/&Xx1MꐃM`=y8@^b?h^wKNmr] R\tux!j,i$J0%=VXv6 i'mOGCaK@-KQF%DG)`P 0Txj$_)H/7H}/ {X~~` hsx~l܊rx?b6f[ksEl\HX+ONsOh[!w(L({XxwOR:/B(yў2_I!/C9ގ-IɥCT 7?Iڛ+0x'ȋpb ԭ%1yA\4Fnڶ>'t>h!PH.`h8/S@D#GB({XQg0*`Up,ɛOe BWp V4w' : J(lDpŹY0Z mơ~y[ć(`11 t*=ij ,vt t:nߜ3_ d#+,,d@J{; y`wLo@aYoa ӣ%=^whO.*U ׁB* V=X k8> xL |{xI!^χΗ8xWdv07CVA 7 IXMW?~@ *eGyK3*td:j+y_WR,5+0Q?1 {XI(OlW4j|cŇcHAh;@xXzs"^B >qBCCPD=V^0ON_B31+;n-nzdmFS>L] n" v|RXYpS8:(^b: Bp>XLѠ}%{)cr W~PE?n˔a @e'{*DBk@1[W{R:c8DZΙWybVn嚡q "7PJ=^d~1LXt @ '{rHHB(WOoF Emo#"Uc.1y(xlFUhbo^.Sr#}u&VhPJZL7hLD7tWS.4RM-cPT6b&cKKTL8Ȣ˜ݮ 4UA G 4mho}?|$$5ԞN`\p(Wm Gj==0ؼmv((BFCŬՐ`eV|Q*L.T >>Evh L;= Y{Z򕟠|Z%7*BX<]/)tV?ޏ|<=R&p+,*>_W\%c% &dZębbhT+U"k ߃Yt_q5R~>^rْ_/$y}0 *ljOR @ k?={-k11^m `խ>r]E;*v0y0!Tō)`mY[u ͗ >"JxdۙVo q3@xLY:#͊@BPx|~!B7Xl>W5Dl7K@=霞(;)ne(*!( #0&2`^ N x,ޙh.|IN"xc ^y{52ƛ? ECvб;w-`p|L+)IN"6~0l!1\FYa0LI@ ؄ɸ۩& 1Ӎ`D#Нmcr:} H\TGW,~ݓY Y Z)U36o>bhWgM3{!똴h` ^ʡYP\iKXhW"T(x+ǀ?N]cMx? jvzh :+z D+bHA͓/7M8>L/I߁FX<9*XKi4cp6' 5 ʀ?Vc| c0]*'h +͆P/J:.@WDMrь0׃p] [Ox@Lq!K~\M1 /=@} [ߤ˦vPuIiS?,m] fdK?뉼/丁-KABͧY1`K@c~7I@녠WD1N3@Sb,VUK*罔Cvg$%|({V4^X ThP-ԒI R+.i<8E&Y!@v@ Fʰj?> @瀠;[^HƌϺB88QlB- -X b=`\ߛ䆷4M `~p=Xf5 tyjp$V@hU^;*2܏y5k jM:whۧt2o`2i !^kHeqЙ,80X%χOllnd$ oh SD d`S3M~DgoVF1 Iܛ%*\Q1±tZ} ZAD~k)V(g3xM}q2c@Fq ȕMb͕/;.=ӶJ K\ !I֘| ;X . H ~j@bW!VWLp 9b3m} qNi X3?DL$\4Q1ám#, @F*/FPc)2B n8d.~ij|z{ 6L m*EbrrVKħ NӪ=b[B \L P<.L&P y[ M@6SP KR@]᳘wL<:,wt2k.w@o#c J9T V=#8/,!%XF?kB Ee- ֲfc[Z@:XMz`T/ЪZЃ"pdž3^@HFT."?F "8`ZD 0ӒD0Q_a cR `L\􅋮UJ>Ć)8s~7^@(,~4rMnY[3_ @m#p(38(.b;0qtL\Ш͎lH$XOs% "! xN`dR R@M1".zߑB'(D͓й.h~a5^`-8vc[8+;R?_V(ݵy4l};UpCFT;$I JJ#yV pjx: &YGl (!^4 0s!sYq 0CQkYNZ,>)/h$,lSеb nlv>y435a*rP1U@lRC^] M&KxPdڢol @U@]*l{~Ɯj8;G#01r0\_Ƒ[ "$R v֟B3Hh 1hp`&$Wi{D, !^HM\4L/8@AưV@ %144D8}E1X/jʅAk"OW"nb 41 hG\cP9 `xY1O1^4|%?4tw @㼠*Of^%]q`cX)𼗎};vЈS7рc4+'iC/0BITr+Sv|#wPZxگݿ̣[ S@M C aSJj5S@1qߥȷ0 z75O;l6Y1m; ^3$h5Z+ W#0S0! S:K30l'AZHeNWApupUۛ@WGf4]?N54~`#;m/Mf '=N%< 7A૎ɫiX0˚Nt;^䆪5SA@]{' [w` o7:>::xISo٬!@)s+c­ĖorޔJ"#oXPmmde^ PCP$ EcJWa L8Drv[o6A "&}b'.VLf`&Z*?Yx$Xzڅ0O)?6z\ B$B]* tՠ<_j~NM wuK\YB{`3؝)*Mߖq? Mf߻@8k#SUo{48+&_>5: ԭp}H=N9{1`1fu iN1X?ZOM, M:Ij|~3LUGӿ-`A6N`'NuJaO[`Ou#Y+=Oo4;V;ЗI]ل/,|w` }EnRLq~!CYڮBȠ^B0RP H|p`e Ck;w`&MS8ߗqH'A۰*0~Z-\5w(84Yɠ +VoP.#W(-w]SXx(R!DxvC*6~B  XDNK*Pip1+m @`+a4u[.WZB>P,5.'H)Y@P..Tbl hN6xwYn !^" CCǩ_~V_r %## IDATH! T_`[<Ut#o疽EۻKy(6k[3ĢϗP!LI#@s, ((uY0(@#n'NB$^$R kf bE>H\Ev\4M1H"[S+Qol}g~\j,Z@F(7gfYSBz_ J[ RGvx#4$`Z`: +{_#<SXc JDV|-Sǘ3{1䡍D33. q2mhO`VLx}݌zXrE"<· ;xhc\">m,+&VfvMPhFC/(3Eaq>uP8Hݏ{9} 6Ӄ,4:V`^PpdvZ?QCZRP0P##JM$+VX|8ǃ*Q %0dLU>BbEɃ~'b+A Q@4b {=G+),H`DzfOd,gYPf,``Z( 1F@t,Bje.X&7(@6]g3#˜"zuU}j%ڵdQ_ D4P9HseJZ"E3 W>)$cV ;_#/N*` M `S=QY@<4 Ȧm;gQC3i0o7(bJC<A"[[n /ֺ]0!!*&|jЏ-D)!4*tΚvXTdI y 0y@BcPZc~o!#!pUȡ`qee5zhOi;0M} 3[Սa Gy"/ȑ8%ϫ2-wziBoc дK :M?Z 9F>T7z-o&puJP,_[&]-6*8N OQ Su @\ @`Kür{hI@U0(yƲo] nS0Lۤ2t6[&4SKyi m .30Γn/::ydz w w|NXY S;M\;_y'2 E}-T$?(rS+"S8)vT=#ZMÌ rP5Z,Cֺj/gfR_I+Y@LuvlBߡ85M^:FCoN|TK$Iس'̥e Ww3USrfå Rߘ$ Cn |^)mB'l[OD!ۡiq8"'m;m2Ge]mg.@T^&/\n΋zދT;^3g[c^OQ"w_VO}:doTѐ{ ~>$Jxsޑ> s+QlSٕ"q=>tqkō,iӴqŌfٙN䑺JY@U:fEnb@poRO[[I*u9@7Sīa p/(@gA`+LWȣR}&J gY+Iw{>fB= .YoGcܠ_ډ2 LO*-0 ##wfAEcW&O0lK 7DUTfS_~%GFPm)i]t>fB}>_s /Kf^}Bکb_96v៼= y4@7`2+LgFE@%u/kp>19swؖadPKIɨOVúL- _9h%!_]s@)0.p?9DV,ެE7I`C9 \a34R%My$w .HDab ]ٰ@h{N9#'W;ON!+.Ds;M Tߠ]P91lZl?&n=F8/7 fB ><@o#O@gT}]$i)%_[#*R~9uӶw6&$"Yu `miah♐B% `HwGЍ#E Bȝ>@1YƐb$zͿ34[{ۃw*"al :l:RG*J#w ! jҠQZ w:Ⱦ6cS>M{pj@{֮w*䲪Xp&=(B `}kN[t^`A, saURg;"@ b}'h.Ze=2wtH. (J5;`aA}@ R9RN+T :rP\è_l:9{ASXG1@ 0/%0,sr fmUOyoFx@U Kqq A +J$|mQZ*3ӞRFhdX[_*p=Ťxى%(azG ܡ7*TR$R_+ikYCoV$@[dSDoފ'+aH;z)&KI@ `Ktk> wPlL3peSR8(u-u@Ͷ gptG|cCiC!C  @8td_Oeq0$/ #yL'QϚA3>׍ >TWTvdrk32Jú:TжϷ{L@#! @ۑa *TtҬ,3,. 7TsSa 3*hiPx%@ ZPǐsT:'7@R؏eWCqow֩ N' ʣ@ ڝ eTxE)nugd'jUp9TV"Т¯ ;h_A"<4HCki{%OgN 2$/ *T %m)%\ !p'Ru >⧨>д ]"*T(/$715f!; :Q)eX]?g@70 `Zo@ [h|8v]o8#^ |$Cs{bk*ܔ +o*SZF@{ sE}ҟIl-y_UMj0a/]F OQdf/˪EU*T(99pU:n].|@_*zr~@t&2}[؅uss7+yw @p(p=ՖiWi)g?^,*o:8$5ts> 047OrKR}׬<p풞J6i0,Oգdy; lvA&D 6KCMt{w Y١ϟySrbiD"dB@sWI4$ .V`HգC4Y@L y³I}YoPBʺ~~X)fr6l4p(ĉD >nM@:xTuğVܝXf2 Mƿy o3nt#@pf'[5=-*MH@YǪ P7+{-Y W@wB7@ r&Lfj`_6ČϠ S5$ti7 Pw~~C#g>j,$Vh> Q-ssfpA=D'N_#Z"G;3u9TPy)Y3Fv5 .R,CoX`;+ 3*TP<eVBf=I̴@+ 37ܸ(JhwKP@+<ș]wO!] zܚ֌ *TQ(#gr .>=>9TNP8C*ëvvft#X3w2ֺ`0@ ?Āf!/ V?_7DmK,X`*s@ WUd3Xq[j s/5 E;!ft0 *3y} So.<^ /pϰ`vTh9ҾlZ<<'tdI"8؋ҨPؠG&Xx ="љ! akeE1J0?{ު Da[.Ez/IM tp>cFxfo ;Ĕ!6 x/8?l|˗: (u4]ZPo|e :3+7Lݒ|WZ~Fh7'(2lT  *nSm)U_U[)>Ws\7h [JMe(`\r*ssO63Wc&v"tcqL+~8ҳ:л p!sUWOMabWHvp'Ŝa|TE%n9RqR0> ̋VnYV}oeOu!N\ʳQ `ܚwlT|/Қ8HSO^DCsK'?_>vFLV&h*DK:@X_K[k!oZz/¶[7鯹 l9_2nZ,|t5%W36Y*~b[ ä' 8SD#3zOP[XjAEj+ԟekDKp݌=ĶC@Wg-$M8y:x<Gߗ$Mٝ |s1us&aEdQt\M]Vۖ,[rlK?&v0sCZ)0օ$t]0Li[bO"e1B?эZ.] fV}O `ܚص, Aw;q4j6OhЬP@x꿙"9t.r' }nA8cXO=5qkb  # <^+L A ,9x{K\Hfڵg5&-iߔj* +7 Qg[Ba%05!ח͵""J( `JĊ3=FD:DDC hv@kyYI7D$ϥZe.i)߀&`M0pMaH*VpzhG@TX<˴b7*@P|R_k| )QA>T;#r-O-VaBlq`c~cښF~O>5 Hc,sq2O$"Dkgskߞ6I2 䉢 C+ ; fֶ2k$`@$X|Hwv=Fކ~n< b]g*9 @ $HUl%`Oe;"7|N$)NO+( pND OP-Co^0D#$ KmFNYVtL+0@d7|G7]*%x?@$@!^4bUJ߿C+@b.C ЯV)B}߯D'@~5\W ?>s?N<km+H>'c|$ۍG;H3A|A`Sgٳ@w@a?1e`{A p5 C@A_2! u@ -q/x~'w7$ѡɨ@{ | %@^ x.~᷼v2%QVJU; B =ygHb _X(TN9`! ;, T)Fk,R@WUN9$X@|X@PU*CU pt04_M]̍0 o"Ԡgk\j'Jlw-A  OH򔐼_]iRaϽ} 8" 9.| %!tqM )ջ %|('t&,٬A psIDAT@@= R[6?Iڒtcߏ2zg黱@ @tPG@ @*śєDq > I*f4H?3ݸB8 療}s9bhOyiڗ&uDD=7uy>LJA H 5QH2!8v+F 9vh9{YUu,=okK>g{OYxЬ<>2G?؃!R^wS<8@J@L @δ1>QVTw/ 퇀xY@O}yLU)iWJ'i f0٧LNƊ(H H1$ .6 vF0eW8'P((͓qhq'xgM .FK f@S@".?JF:F\2 /cae `C@y"`KX)y)Ú/6!g\#U('*\1ի ݊ZI :l."*ȫeJ|up$cJ@l5_&:h%c wqdVnBA%q-8ri-  hHt (Rj`P,9Vx& qN&R5$֮ݝoU?貆//pr@Ibә_~CG5PVTퟯ% tF:$%qDH 1@}u+5ʖ71ĄWS@w! 6sµ |)%u/ܖ~?"&^;5 \DL"1T`tN~~ _ <ʁ@w!sc¤y- uM8"~CGo-W B+^3N@ imU@n(R@!_{@Wxp"( Ӭbmml_'l N8RAs KE@ E8N/x}#Z X1F/HM\1pJӳNT{#@ 5@@}2&'Uu}2G xM} ^=|Ў-_(^o泶<ϔ@b ǹ9e%Noh'H,=[3L^*o !N|P~c^B@[@;wUˮ$;T7FOCT5&B@bALׅ@"(P'jMx1uL-γ/~K' Y`fc&tI|2P_A/َr_; ~л|b$t}WQBR?G! 4i@*pq hqoucA'r|O91Q< g>ƒ@Sx 16P3pq "p*Ϗ& -D3)aY[Kx^JY:'x pel] \3S/4=L҉#poyJ)u6GZ@/x^j,O? [F}Ox I' m$,wCw @%OH(OY6,} E}ߓ p1-c\-&WrN ?xP@ y Jܥ_T̿F!^Я^םlh[pjji_TNnGYXP0M֓/%eK2y\$fK%/l(])닟VlF,''}rI~~3"j@(+8q^<}mRPVڍPKVŬ5\/6#Bٚ$ WuXw s܌X,o{YWBKs79ݭ!ӿ2{S]3sIƵUS?-"tIn$0CI'%L-cg)lILbxB1ziCxhOHSL?Փ>dS a`xnc'715%ik.Œ0ZvF w))*D--v!=?  0}3v_5]pA^v_@vZ(9>EHj F1(0'$@. ~\*@w' @@ @dʺCdvɌ>HM@ ;  籙чA )P͌>HI"@k)*2J5ǚfʪ:e9gwN Z,ܡ@#.B2$2NrB%KVn% &l @Rµe7A  @WTvo6sA~h}͌>HI3}a8@/Cd%58 n#`U.>B=eE7(`ruQ|KQCd 2 i"h*a 2|8 ҪpSp(f6.Y &͌>HI# 1 I8Ƀ@8"11xJ@ՀQLf뮉"0 v`7U0 A`0 @IBk)2ȣ,+7 S [IAjl~#i4pHhaڧ4(sI C-P6}9I3D- &!i(ݱ tE!y* Nx:PrrxlJCٯ'iENj8>x)1U'"h-iw =PO*tE.-{$^\ラJcǰ;4BtӼu4;(s ҥmD e?mg4#8ݱF +ٵj" VJ2ñgRP PEi 8 ;6{Pi\сuc-釲_O Q3F*~V >T8)~'%ː8>ֲ 0@Ô$KkLè\bv*H Wiw =P|^:M bP֓4k0FU)aw©pe4;W gF-` A`0 `0` A`0 o[awI KAv(FM IENDB`ggsci/man/figures/README-ggsci-npg-1.png0000644000176200001440000010013014570505642017245 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$QPLTE\ 05@٬ g2X_m8`*~/į_Vf`.e00 `Ps0'ROP X*;_^,00 !òUϢ00P'uMU" 1P X&@@E1(,m7{pz_ ׯzaRCAӦ}ǻ˫E͉밺']EcUw`R8|0UC?d~`<pza`ORx%xT@~(2`< >?0J9l{H;0 !}# `wBܿsr` K?vt(T26M]5,Jg1Rӱ_|y13!nʵs lo?T7^lݦaҲ(Wo. `p8}f6?M';K\"i*9ndJ !Wސ4,W(z{F5)'އtpE˕;WQ>>E ğdUkeyۭX.xfcmW C2i`?p.M@À>og 狘ĺ22`kDX)1($N^ @%!oC:Uk+yKH+"vb?l&Df4]n"ur= $ N}teS΁tMeN$~|d  aM6_@R#m+E @@;+0CP͎07}\ `/Bfw4m@eqw~'fIĄ#pЉ0; H6MM˥_6廢 鿿PoguzD?\  Wy'oι$_ R\!kj׷~7bM9GNn~`@+z qrwi`~^cm[p@M80{n0a%B48 `@ ԊV/< |ws.OLX10G@r [CmY7ˣk2}-M{3 he1 `.[ WWz& KvGwvb P)דkf$``3`BʶK}o[a#1{C=: Tye\Lێ\`Bj`3H7<E( J]ᇟ\f*AuIz's l2d?]@<MT5 EP.iUNnfK(2!r 'xC5 `7vXjU⛧8L26ޥ"mE)^ UU\z_eUniCOS0/H!8eF2w`{{c@mk.H {fF&vm?{$){a],"-;⅘]BwRlEr)vVlb_3~ f cC+fC^Lq`Cx1ЪfI,B~8Dē &B$=Z=%`#P+OrN$ q_3y.1\ g8.v>|1pGf ֶmmCUߨ4#1bgx~%NSn)`k)WMqs~vU=|m՗>jyU0Ьwϋ|i6l/yF $_1^3TŴns:m<3RUpdmoc/p%&x={Hi@M;Zo3[nndNuo6P/$5[umZNg"اo1T#8_b{K >톡=0bՠr"._Z@f_1e޵jQTP1*$s7i44]kdI`abV0TQd @'p&1, HxpRӂoGwG%L i F8PXwv}D @O@X|G(,U7 j1O=/Y@_XCxh "(ʠTa1HvnO6G<J Up%-kkր(8gѢCe1HPuGy\Uv&DPc)pjݡTE?ʷĘY6 Zp8a/PhH+C(%vOV}oջU l?lTJ $:;)W/۽IC r\HߡU\8]Ù2LmS̿:ei95]d]q|_KF1""R/{COBL}zLjzĴ@$8`JOyH9 ?)""R_G y>:]uoV$35 T@ih,} k~{k4,6 yOWo&HȥsI7 0H|8?Oa f*{DѯЁ`[M2eB/ht.ؑ|aI$4!}{uf @@ LdAb;rd8ϡ\`C#QOCpHП bhwuڿ,HL㨏^f /e@1""R/g /Z#Bb&"zH Ct=xZΛ%B *=BoaI5< H|H`SGbX@.چnX!`#OC;=  Qu zV kY mS^SCD0""R LM m$+!{6+Ig"W#͜E@' \M߀|NiBkGΧʥh]|Y)" MX# s`˜AwTTlAO! ,trjJ0> =k?Ŭ+A`e. RDw0KMĪz/$F9i9מ -ϠE;G ,b]lП/.~H!ʶ y @@@ GIa)0tUVJM+vSaǡZ3MTEs_{a\wvq|KYD@@  e@}y6 D뿊Y@xj&Υ:VGa:Q5GLpuD]hxh:I"@@@ 7;x,]{7^L-xXa+r}={"&ko2>'e!~G:-&BԸ*H,o,m&v`'u}1 /Vi&>֭Y[i]mGCPw_]#ğP%0)ߡi,`&D6 ̵ݞBSLvpn$7]7/#FK n\={YhݩyT!9 U H(C"Aߵ,3Q,ҝcX/ap|L iCƴNH? sO2xE ^rFROxn5UC `uM3 3%b%IB@kqM{K;Qo*Ny=^B i$+b*H|'pv  A4D4)Ån?k3rK& !if@ *0LzfE>qB1(fxG" 7x,N`z'/b̙ S`e%ZWV6<ؽ/u1t3rKm2N^*:ߢ߻B=@ֺ,@,ז@|'A+ o]v8ŎJ2o=G $dkF4C1Νǝ&$O.v;Dy;CBL32g֯Rw2', GWў(Nq =^;(l@[@A9PXDpI&ˬt2U 㫱z<`5|8\VTH"F<37H N߇aA}^JiJY#iw0+X YtI=~U9]@5Sr[x=9Aeseވßax6[o'7޳[7>D) ZT EħG \z\ lՠ &O*lLG0} \KOB!ɀD_?, EAPh !0 |<\SDS 2u @QH-(`sbBhdȀY2t0֥5O~A~[=O{|5"_ R?:pxU#c>00pp^ J2MȜ@c 􊘞ޟ %xm]^w6UǂYx^DEV* Ret1 H2.5Eqknx{/Wr%$1$A>Ĉ(W&&ߏT-KeWw!8M[vM›y5rvmC@J@@Is);Ry%3/+ G#:QZ/K IDAT Hxzb&\ opaޖ@R ځ6)\3/*$6@|x'0^ sᆸPm47|qM0Waoۄ  :A,rVUUg.eJ9<  ^@vo/oooj+ 1hdL ̰LA7?;,nKO8<Z{)Z;Tf``W{g "| gt-hA l5OV M4K_et~㪽'b_}>Q)?x'0+B*۸&X|hU֘iʩ_Dm euK"A?:v .jahZf7(F]h˝LL~ ۥPV=)I\nշnC~̥ѴtEuWA0mm'mͿN`&&V?߂؎$ bh4x@mJ3ìqVg꧰G6"D ab.tM OLu) ĩwP1g+@\@Si?ƢMzy$2"10*YPR 2Uv"hyp+ 怺-@a .h u /죻V/W|}~>G&Ֆfn؆z,40 .?@HfLBBY00+ GlvC ѿ ) S ͎0$>MB^ux `/+ Ϲ˃,M>Cwwq6^Q'܅f_\h:`޷MU1`G^{x  xRlv JoɃňj SYL! sm [J)?O\``` Xz_r\{LkmYN?JDt3P!#_q!A!ou1 : |əX4/q%Wh:P*i0Z\܌a4>>uc5# zX~$ ; @+[}@|?pǞVZ[tkKΧ!SDF/++ ЦB~2`I`&&GV򯤀0*6n'w>Xmsc6ijN8yuaYˬkZ u ]&C) T# H3y8 L30<ܴ]@=_{" !PFcX;S@I]pgYhk5&}]hiZS@boR{00<x9w hjzˏRop. Ǜ,V2!CdМE5x^aw#CٗY n @'>^ph !/?NpUʶaWcgNi <8Smj Nq/+]"4o85jz2plp3[}w!B ?b~6!_/DeZ!67Pwf``h @; $$ #ԧ|pC$CL~\ HVLLn I9$7Hu[);8K:,=HwpD&Oc NI Z6^ڍM[JHH}EY&|FfSлӧ7gPyJ y_Xz.P#Xܞ'5}*H@\xTvvG|)Ya9#ZWFs}%"zH=+Xsn=;jy ĹO30]v0Il@(,n&[mϚnssq  d,p@'%?6<~(=Lq/|R'S}f5!k@!V|@ NrmA47g9F+T,S,{ ”Gކ |O?<ʇ(;`{ e! N~_d7@a::P S9/xn>dM?eP F="/x@PBuOۂg |GG>zD(`zxd`+F`gF >{zA˰TJ9哠#Bۮg*LbRT bpQ+m@YF@/h.fw_ z'~'ػPab}p]1B.^A:|Eo9f{9(Cw[t3qG?@'b® DwnDmPj5֬%h )R'oY[B1")bb4I5$y֌@cXk)0V97D`:=GXm13:e|mC:=$0 Qtp;Н1g@N$܀xT:cAvAPwP2׌xcR5&[5Q#1Ӵu P envQK {POPojk c#Cqa,;wIw)[j|cj-nz>CNp(C{ )ˮ؛ ^[xx~2x*Pnz?@`hl1 0S  `xb;MC܁oQMrzDkzSR5f^`'o5YA 8'WW+܃:g=v:/S:+ gna,j(lC kla]7]zEu/Gfo)*gk-Iu]Sp5A7YiqNꃡ(p5aocO]ZU^GP 2@4|| _~" 4ĝ>᎘r}~YQZ2jl63PE Y^ %l @w갡}v*ɭ`"fӥ @̂Vf1a`eĢ3RLxwr[^Y.ԗiMy 0]I<;C.lw plYzҦAMz竁'zS 6hc k!^] dofDuO{I1,A m߸y{?/, 8 :- m11(Cv1O?r= FÞI* \3A#p#OV6}]RǵvX'&@N3DZ_uCho~ݾaҁhX@n1ϋb0jo4h Q1TKwxjǙv?QO449qK&J<82(ƏxpKb@Ez)o`mٟX EL$ {p x@c_{GY@SxrPc]Wɨ)j z 'h8wQu6RsҿR&i%[6y}VO,3tc$xۡؑxmIs 1e]P}N?>p8#/y;D$sÙ 6|:n2) >><@uE&UPf/:|ux=_vr+t|v>ε:VPR#2Vw8>K8R+VG`6VTVi*9&HDAdҀ:`-ە!Cx'`IEY] @06i)/;[j&jBGޥ}sC!Q> 4˲@*U+LT` 3`Д>@$b(ov1mAgur=+]1(.:ؤ+)!;  Q> ы.z^`jq.0"t4LH ehH4P'1. 5HT /\G'^V|:Zt;%,+i@1}P j6 Dm𳴄~H OA?1j;c4Oo4?{i2T'(nlV? Y +/yn 9t ޵h'զȅB:KYڥG#&lM%q/,pf'4xy t6 j6P];E٬x19 `"0 i1.(ˁ 2/BNⵛ{J x1 $橤1PR$i5';Q]1R3⾘$/D%SL0.SOX u3li0Josg1c:R(Bkl#"0j8W)`0+ݎ']¼4xE `\f[ BX=$,r= @Vf|G4* "u9׊rmEuW_)#m  V?a0pj"pW*@k3I1Cc,pm9UߕΤtа҅4vI#>,H8 Xy!LӘc(k٤'*A pbU6Joo2O!7!h41e'2&7kQrcHqc8h{7 lS[/y9!\J֒ .bvS]'FdY@!.sv;8]k IDATW>6Oʜpj@f2x2P( #@P2up33#O t5Li?>Tmv咢R%J ao-.@ :CV OY4r-oҹ2НkC-pG:lzu1v{]0xbZPƺ7=h? ^T+Y='^=' 8`DĴrmq1 hs' hFCwV?wB09 S Y$d ?wk@(Ma$Ey ' /7 ʟÉ ^7@ H K=j6P3ŘE?=!gek GBDܤulmBWgx]5zr2<)@2#C5h2 `@`"_(⦮f2 !1 *-(` Z$BXEDp7z®أo -/]mE;nŠh+:P1Rf{=x%YɛeS|]&^-qثI[nXPh ^;XqA4(8TΒ[Y KZVޡ&I8$ p?Y(eF!! ae%/&*!( 42kil?~-(niZ< XxC*:t,c2 B";K^%^qU뛾a1&  22 W ^1w0i4 !ŠN xk{cPQ5. ۸p6+5dٙ`s5^l̸ZvK"18:mB-#E[$[`@cg"XKE؅m(* )qҬuOk8ȗ3vʔ"ϊf78z:IT=#"H0]` D.n젢yCc ~ X:N nW &ML:e[aޕ(&P: C2?ŻHNZW638/ٛ.(~J?{`nf"B@teO(ct1M0`FC@K; ũPC@od;*2=S$,;]*a! pj.^؆"U8sUr҃:/X+ң5G%rR I$( U ]*x[Q]y)pc@Q8ֺ 𥃨PGw{NY %Ohet`_>N|,)Tfj狝XTTi)P(G=ʼnF([t.D oY |o3_8$W{#$z/%808-VkyrN &7.Qn$`bөjKkWst*I E:D?$8.l%#  q?g=k灘 ,43@$c?舱bPAILE>T >Gğ]ȗ 46Un@nqb|fCp.L9G3?ǔL)4o5@)FH]M"M`L@ >J2i oQ(Ʋv3a`D7`O%NGp@Ā;ssHj][5)5 # \ e29NƃbZ Ͼ K @s:98zvD"FVPE%`\'&Q^^2tiA. PM@ej`|0jc>GMdAly_GC )v޼H4*`%"xnYg{PS2j }w=NkvΆzN ;5R\h.IӌPQxb0`@ <0g} _`xw4USGKeAfxo8C@@{  1D!L|3bԕc *TPsJ[/Q0b\?xכּx@L!{͋u  XPs L ك^@⢿'~^6~W CΕ@{ph^( j0 l{Rk?f~מ⭬P0pu"P?08a#@=Q*q ]  _9۵|9i! Tj U@5 TƎv%f/ ^~}r0emf7唈f3OO0҅gHNrG}G`8vwYKaviWb_{gY@b3ߛ,,~D(CUI 솵qq:9Itk*&r )an^}춎*πvֺۘ!S& *xN^͕r$q¥$ѝiw"'weLu8:5A!i5ŚR#,3^^Cn^9={&k_t?=>$<E+(Dkx 7:PIˍה3 a D0zP q `9\/1pz@@e '*$ N0M"io&vKz#/6.4"% dT.]7fg !}،[ײ';W a+w X,L ~DTxI`ly!l T桗,[sZO3e0X_Sgj -.L0j^R2cid{>Ƨ S]kmzO߹ ;KPc&րy؉?`Sl#Ga L>#'AEuF@gyy@csK*i4=N`H5aw(Ε4 Uy8Vxњ:hy`=d xq$ |n+(A8#1 )1lA bEmf2z6v/GdL/2'md?l$ԋ++وbU sاM(_~ j!L[N>c)ԝ>2i*Q  Hʳ~0 QC.&Bqb=st#@yk8d@LaZKNd`$7m`J l@wz,+3(@1Ɍ6X YK3png5Q9~(8R )E2{M@Flg`z4>g0G tTF,iT ~@4HU@ `ߧ.1XTKdJ$6.s ~_ 7Qc <:H*xpP{%%@$Xy&K#„0Qs_EߴuHDi>T@?&Oyd(25Ӂ0?}Afnw.9W_Qp'GN,pJ\l\Xq:E6:RZkK,#d*xU 9 qqq`dJWO߿O9-PlDfRH~_m8 4k@T2!M͇ AfZc,Xek{W8eF-Mеd2C0fܥ !)wVUk* <oObKf?ȱPSxGA ?~ 7D[s`vVՏ`8}U\Oiz1ckZg1;#@E``c@IR$|V&z>?) БU]3#}N]_f0Š2\-laÎ ^4^k̫ }c+=_aWw^^ AP~8#@[M既P }@)+P@$)6@S} cas& 5J&[Mf@Ъ!\uOǓ@T&| )2^ChduL.XhŜJj^Ne `~@XA.V|!XF[NCR`[ `JzXqIX9*R"mE3@7p$0&{JZ@[2ABjtvq;./,zR[Nܶ QmR@oT LP!P2QVlb2LAPy5!t`'*[x@̦IF 1mé:x#Zdo*`ZDKI`g3gܝS c{DarR^5ѸxP䍎*BjZQ/)?L'@@@ `,d ] hymƖx!{0XxЌn Nߗ xѪaGOg\(Tx|f\ AzʶSFI`{RJ m9_ן*ZOMP(~$n9o?zU|xE06[r4? b~WAԇW#h"{'^ >k`$\h?R>dWu֊mb늉z_  fs0 Ds/6}/#""Bo5RY%u|j6Z5r<#r$@w.Y伾 :L)x>4ܙNcI`4\S+H#oNu`OdI~ӻY&8Kݬ܉!_a!|Qwލ]&#hq- 2dOM5'Ӎ_ah>'Tݒc/{S][,0e yJ#Ѐ~OJ7)QtJ{\{o"0vNLo*ۛ @/) ƋI`p1RҺ( 1EtzX@]ʁj'yL +Yd',\ῒ9t?DJ^12JPٙs)h@h #G+'ok{F)R€v5rBMW`6O`ǥCi@Ye;g] SxEa <1.Q c2J@-q, ;!SjqP hQ@51pk Fe jDl `C$cFb4ݟߝlK{."" ̻\s `0bH? }IDATP@a=3d I@ rN7&<߶3MN͠@U L 'X\ H) ~'4Z Y rM@@ `Q09' ~PaE,I`skͫ{k&쑾~ ru" -Bu;+_fM͑rAxL1t$ mjLOYkM4#6PV"ú3x# X ׹R@)0*[iv =z~ӻ6I'S92`c׈OAc`9 KX8qVߋkCGNwC?1(. ac^ߦUcQǢ8d%l@4ӕM[8C nvS 615t{Z '[q`#mgtO=qoN`&Wò]@1A@3R5 @ NP`.jBB 3c.'°jj8g@@0@xJ PTxS:ϭU<2YE3?"  "7͟W@ՄZ?#|KȒ? 33MyP[YBu_ت*b?V83'ndz|/stEnM ^mՂgL< 3MaY}wlؙM@|P#9}i`fd{@|@⻀Ķw7VԶ}iL4ix#Jq3QS(8aLtIX,% rdS]U6{rr) Sg?Wj[5ݜLy񜋅S - a%jΚUN?:vZt7@GuO3+q^Sl7 HF-+ #Y|tƖWN hbi",߼BO_1D(Lmu3`W S~nQϏL@G["#4äz-xܓo~zWZrM*$Xv`دhS9oxzf *ff7Y*,t*c`"a93ԡo :ݣ 1P0n-ۆTI-իsLkV}6y2-K9/fk\I~WnuUeCt7@Gs ڵ [Wsip[|"xJj.oٱЏ1y^=8(8Sq$G=$ ~7} (xCZ2IΫL+B, У}pDԣ"+(jbwmY=&;0 `oO7@GZ^Z >_  }}rSW>xi0U훍.aD2,(fN8fxk:=PdxշAAycl Y$ `LQǏf^}.6ʜ7PF@ci|ruH!ηm௺2)"leVY9fW~o;P ˶Tdo3d]ŢlC6[X#Ths6>7}Q@?U^[@:mYQf @ }?bloX[E"O[KИg- d)e[{FoUGȫG1`!h|KR+Z |? ,į`Ь͟[6<*rJx XLQW3>9Dd<7wLWR+(3m./>x&F>~Ӏ?9.k]B%w6%@0nVbl_tg`+` s3`0`t lb6g.m0a@@6 `]($ ˹Y!_[HrrRl $GcAOs5g @Uܼ: Lxit@u4O /n"@7 Um%j0RPV:gjlc `)86-9!Tճ`)~1ޛ0'p؊9 ॔u!o*W `PmrR̟dVnYR @*/Lm /r$ﱝ|y <Po[T⿧J]0,5ÿJ1ld 5Aq'OS; D#޵?n* s_h'go{6pֽBaC*a/ej_{n{ 0Q_4̹J1{"|O@!TvC!8ek*~ya m[ 8- r<JS}910`[u".04wA. b H) DoP:A xy[x>b-  weh$I`J+`s@ƒ,g0v`^lha0wͲc `{w6~H=CxX~^d" x`0(` ;.J;+8 20 @_US' <GP)] V7'8q޿WbnŹ .Lx5d'0_1ѿPQ1~B0b@O9qs0@:7v&_.  :# ƞin. `  s`0/sqZS ,@.0MMbʯׇoH""&_; `2@@*U\\s)WUrڇPxG k sĸIR^揼^* 0_%0b` 7=UG +q 6Srm9n^?P=$@[O L9zt/fv[?BE+u4PÓx*QGa |TyM_KMƛ:' ئ`- `|^7zRa0-P6lU쯊 J:M@0>S[V_Ai2 `jn~~.CO0`yRWP"> Vk1b@ M~w< |JG)czS _[%uyY3 (~>`qO@Hn&ySkuѡte%O9JQ y_]jӓlxz:挪S"0xn'e)ݝD]a0t!.I) ,?UJiyoJ `[75"`0!WX<rFI `HX8nYvSńe ` 0b XASXg[(K-'`0`0xc@2,L`0 l%eZJC 'S r`|M Smċ`+X.Fƛ:3಻(lOMw$M' F>`*6 oZ^ 0`+|- R `t?GS=Ȟ:; `}I.@"u)`kyR_pMz]M{Hl9s2M}M~#=+Lx{( EQ3c:jA6&FkVfZGne'e9ɔ\TV?t8i @KؙP78K>9#}]`It+LmvJwtՒj-tpb[|3D> W- W1}|_tS9e`P7uoNj> k^4p?@3Zt8 3,oJ G@8vpw5+:^5i&e+:orO~-  y:J7; śJ$=Wt/)8 .UD"\Z9\?_qVt:f ]uގ˷sP8X,4LneEղIn>`ӾjKB.NSwGpwwC@ըKs.ZR%0`sW[O{soB@ )w#e`X2l2`.&Hg.aٮG@F:&D~@ gH=u-7['ŃpG l W1Q8HLъܸP:r|[ן _v7[`'vy@[4/8T:J48M& Bw'| @LԻ`=78cX^,)zq9;.9{*@ D8{  q89]Pk| ,"&886p?9-*1_]@3ై  {7G@?cv54,`QC#KuXE(y1l7 8m2g?/`E|qe8 Fw0<.*Xk`cP>p?5F99"8/ !04.ǘu5jPPrVX1@(8TjwPhkQ /%C7OʟY2W"_zz|vOY|Q';O|vqw[`5yov~ԇi -)p4'- ))?J|NU%^Z$03%ձTV4v_٠*IPFv^s%CWiwW]"&Pf))|^- N`"px-܎xa5DMD?w-{qcKm8{Ox!{J%Eo=xɹ$JsE7Z=4%]zܲ/p wF":{iۙxgn QV[@ZnKL0p0VD,PJ] .#0 lXf9/@fǾY2p,w>` ``8n p8@0p8p4Bf:{!c`/dsAmd88 nΧɌަHM^&3ۤHw_p$I mN ]OQ*߄Z ' 8@&ŗi3);/H.|thsq^dln^OXbJQ# dFoS?'Kw@GdFoS$K#h~|?Mf6Ekt/q]+"1Rkww,#.GW \tdFoS&K( a 94b |@hW [?v{7pB)d\l pۜ.δz_8>>zIbF)NLaՀF܂ݭknW-hx# !BB`y͂N@j9/2^['֭ťtRͮnN=+Z8r@HkxC4 Jf&ȯ‘hE[v𲒦Z=ٝ)vFtyt4ˬu]UZR#xyxԘlbd֓J7 IDATx읋v:E7p [o-A+DphGY9m }AHԬ.5b ݾakH x*ڌd[<ΘhMTHflkhptX$# -Up``p 6 V p 6 V p 6 V}ʆ/q` Gye<<:|óo%@U__d 88Ul tkD2;2 YepWӏw 8}x>N?-3}ĤncML<C~z71 <"k92:2 Ö 3刂wCp8x:T ww#xU//EߵBTL5^>\cR & Jlۋg oÔ(`4yY;KBc}XXG@Z1Cm?}<$;{ҥ!u? ! H= |71Ѿ8  C׾W߆ӁNnba,)2wdfPL5|x JSG@Z\w3p8n lHdDw` 1K9c8r8R@$ k ͽ?L\`ZH 222`v 20@?"H: 0Sv@8g  Ge"iت H 2y0_q; ~59Z$?FQIW8p<<"I\S@92 uHPٿ@)52Df׎Q!С߯k3}TY巳֒Ui6+5+Ha K5l{@gٲ(m;}dɒ_ՉSfVkߟWlylr%& Y]'@͸0)`.@e˖u+Y+5^_&]^FPaw-t{Z sE7$! uʢh-d8j@gф` FD5AF0zm!r!+Z_6n.7%5#*¥_2˖̖G*T4P8X,jWtE[DG_A@e8Ir 4Ь]v*K` ̦P*jD@ @]߫;Rιa[9Ui*32 d'@Μ@5sx\u>q/sZlrc-av3U weQ̟䣚6۔!~hef: g^rعYy(Ɯ<Z@_!Ek;#D9_#q~l>nTUK^D[I@Vt[͌]WYSY[UjX{߽>XJ`-ȕ&q⢨ExZ` `fs_Yobxvw,꾯da(e̡".TP*"Uޗ%+')fDGWսsC@.h@kz8Qt{:90HS3U\f'$u٢Vn;2kZ[rdN'k3[X@K@l0G|l~p ?Wy.ܡқ rp4X @nqSs]>SDo\!~Xmg+Sٮsvu)p8p'df8/79(>_#mD轀'@DOZkGȝzn``eexK%! qĚpTƜ'`fm6m[nZ `]du(d lajǿC@Dh>pq[D8D93יa(7b d&\ P:/_ge/H/&VU8EO59~hW+=> @h %XE(^.ʵQxu?N;Sa!Uv'w~?{5\iB1@`a`kLl.\:5ߵ}b8-BSxTW4&j{~lFE|`OI*@};u=\/h&WeH8'|_TryV6M-.+FX 7@n.4s6__żfj w߇<]\Fx2D?{ Qq 읉b: Em=Iq>9ZNS2h#PHy$eL? aR>"*#hL@"0L@?N~}9w7#r)12"pHπ:vb@k`A h!@*_n'4vqx*5i Tspv4jgT}" Ξw+_!fb>#ib5nqj[}z#i0~d>E0@<@LƝN?BcV l? P1*j1V tq iDQ8Xø /*`! 9ƧF&-?*rS$P3S7a}9xDG"'GE Mo scj"n(<\yEN,!EJ EyӃ^mۣ4jIpX/@ $80uH+2kT.170$aj ο0 1ezd&FU@ ^cH6P~2$\4eCMbPÐpzfa:ԏ!>~G`@Rϝ5 6Xh4FBò)A^ XÍq)u݌Y#3 (BS5"@3eHABUI_S?ؙw 0ED6ŦD.*MKjuAܹPrţ!o˵7:+5T6-Pf@#`LTDb^\z_=UInׄϔ Q9nbpЎ  zq .XǑxOC,㺾B]Y?O\KR8xB`r.R@~n3/R3Z3e&“EzcD+cLyS~x3}@ H@ p+Fm@ *cRv:bo.;YN`AXXQ+ HzrQ@`ř1'+SB?~?TQ*MJ?7u/ _[&EP@5N `\fpV#4mg*< @ 8U97L!o/!lpˠ ; 'lˆX$֟nر3;VTO! _JIG +D`dcb@_r@]4fCffߍlefh!2I6?և B5j񥓋u nHTp|m6˴FivY$02-dD5L!q{v\,5 z)%g"e ? }h$>+R@ p; ;2FSSL+)7uYhs[,\i`~W|)-0@<|Onj6X? s\A=LM`Sv]b-pyT$yYa=WF H Nة(ҙ K($i76r\0U&ɗiac߇Sի? WXQЀB 0yu06dKmᡔmz:MX5yST|j]3׶1O5 n/cԨ|$&>*Th)Po[J jD"FgL0u%EGՁRCgK?l2:ċ |dR{S/i0] @y ?fO l\S[f (Ȱ d9lKj5oƆupL!PV73xL1-݋q_Fd&FW] 2xP@G='.0ßBAoLx#m>SmF&E?c| 6)/|h*R+s+j $-Mf[#8g: (:ΫtihO-z3`}~'ĥ5? ^@q*CuUjn)4f ui-yMJ&:>?vpe^^7{[_SBs:GHtRRě6 JgW{j5o/Ks>]m[Yd&(@Q2hF oz') _΃ \2C`LE,vu˒gR?Eq6 `M߹-z 1}`ϴ̀l#PLTF%6UI EuYyxW܏* *@Yw_h:~ '?:XA+WeB vj`}詙.gS!fZg*c?o4{Ž>Z @!͍_w~JөW qUΧ3{O<j@4{rpw$;6a{shTj] 4>j0Džu= 6~~wtb=n#?:JM@R)%e=+0 ~[\YGkMco8`1VB"#e=PTgAS+E>;QPE;Os~{%I YbA[BŬ ӎXj70>wǿ }Ѣ|'SD5㔘+0& IE0p0xqй?=u(aO َ5{8v@}<Z W$Y!?@;Se1*tEWL ׀},ZC!W_ڋ8_.&7k#c7 R7?uqS)Km 1_ +&x,m _ZC;pU~lry}@BTb{Ӣ}[B7h輙{WZ|`W{KJ+uwr ``+&(9 Z =,W">A~!(s ϥ4!=mQ Pwb)bmunún;@wUG{,p'x|VeA %߿!ZJ}6F z܉϶])m== @WLD1֝m-@_ =_ %4>ϝd+xW AF$C@pNhGPV4&`x'U}3MooY hά_] P)]JOCZ{O?[HppMn821;P.b!?CB;"lؽGe87 -p.~7M .c!K%_ED]x7XA^I.͚ҥ˿jG"Kvxks:Mc O5E(% yTq`IpdՖ`jj^fHن7By0$7 Zs_kKPf`=G7 @"Z{]ix{X|r vy-T(,2%7+%!Mjze@N3LpLV<KmpoLFknK|KhA>N6CHK@0< twmB!e$`+n[!Ԙ ث* ѮpP#Y3%&&MR{e94uߠBGRWN`  @}5D =pKX@,ñ"`~fFJ}Ɔ韘ʙ{#>=8u3S:Aq * |$v9xhhF2 qE Qz|`B#7bMBp!@o.Q޵m@}K)p?O# =K@;wKJ{7ȭ5fT8em* eNdh]V\.V=1%~aˏ7!8@Py*{E uYH@͵P.-|Dϥ} >.?v>0tܺlFx\|fu8vCfܷBu-w>?6_&YgL @ۊG<`tP>Ca]P,+{ z"_~<_CӾylPEv(so0@UԹVfq4XVLj4 @ Xx@]~7},T"{{ilbB ȇ*}Gœg @| ,=`=|G`qԝ=!on%C< *'u-Vo<]):CJ[6:Y3rc((PPn&U"Rն ɢ?E1qZi],l"?n{ r@Sk$"bа`ZOA~-wj~x @K36x@c]Z]tr! &Fns8P sJ s(ѴɝK°}RmNxg5Ǚ+a [-u" 6T~ Lb. 9& -ڋHb%ֻM0ЀcY 6sR|-S; ؕWDXo#]"tO.c6[BJo&ZOڮ"J@:N=xC?LWv//aRD }L*, rS:_׏9{Θ? }؃QEJD 6XAvp^ k=@j="DnrG:N[_8K$&@ED> k< |vG~"ٷ8RNG(;b ǙHX1$l-x];Ty qelTvB4l\_I*Zb~d3 pt՛r?S _&c?o>|FrO"uXs"q `ULQl p*? hI[b%/\4Y%*Sf #P @ OZ6&K@=;ƨ2Z4 YBpc'a.??k/s*'jQLY.g$SA1&4sgWfUBVrF`G.5 Y34+?aB]t gr hAf7[?AEDǜo\>=!"$U˪I:. oh$'g󛗀. aHh'C." ccM?3\0]1)1BEܭV!a!4R:>-I:Q{AF7J@ x%KQwxrψMZ _ß@YiQ:Ֆ?1yJd\|o!8dN:CUg69@TSSN1.ҥmC^4_)!q 2@JK 4̦X{<1s3'$nUlSC?J?N@mxs= ÛBI+gFV5#ZwMsJPg;0ݠ%*WrsbTЂ< ;0T) /`]9N0hTj` ^Q;!;F߿#b*7,ͮH60NNz Pr;l{bSƸLlЫPg~% "tD>n߯  p?LOp3!1E,|m ;'\/9b^ѐ@ck&6 .9\^ oѵO+H9`__1C\zPVEhDOYd)l(?U(0] 1A+{GAKVGym YX&ᾯ41$ ԟD O$ ]zEbuWK@ͧ4s?r_$GJaC}Z^ׯL:k""/E\I U6>>s^nn|8(rz ~E˖Ƚ6+o(o 9[mC'i$pQ ,|IB/4JO⵾_.WXV~ Qf}(no؜{Z(TU: oR>f,0Mtʍ`@ J@ @$ *ͱ~e4^ =>Z] XJ /H F8y|wC#"Ԕ)0]_0feÈhz5($! xuh>NZsL|W*:hJ\N{`POTʝ% %}V@& jgf(#q!|Pv  :9\WU ]. A=VI/D" ]rpkMIWKFp|m?YކN$'TrP(J#,ܴufy;Ղn\:#"5QGz N408ϾSI@;_%` X%`Ea)`)2Cp (kΓ ;<zF{4yP=]C\߼sH!ru (|D0 v44+ 4+-X s+WPmGU6. Obk<t vaߐ 8ngfrBÉxYD}v&N?a8s@7aj;A%bp@ <EvR8F`D8`=#N&= # HQ~5+߆oEhuIX9ͥw_Wbb(Z\T< +5`)Nό_ul)dXMɂ6<Ɂa, :[I{%Yprmt&%A<&KW44+ywt^F2tRXHQ.m>W m⁾ e>/3\ʦwCg"o&v>B( Ċ瓵N߸@?+CF) 6glY " _v"7bTMF%.Vǿe|" HF%?ϚiF @O?Y\ϔ?,<_ tm,2 @aZ8 L`R@h@wQIJ"}2 ;KESP%}"KH|sXM_k#' bR@Pgag94"ZI.U@w\lo)fxIi TIoWm4NCRӅp RȺ|acJ!]fg$Їr Ԫ_';#L"Xo]6Na_H K"bMgⱑ^If[7P/LoyYjVongza<w@Dr2X'@(i<,m.YeW䳛R|އCEb e+je>|;,#z3#/+ (A m*nLWGZy0Ls'J,6l`  Z}鬄u:FG;fߩ" S `,^u$YOn&%oK`4ſ",'Zv8f5 bSLj66e^̿@eF Ai .O .U+u+ZDgl}i vVu~(|Q  p7C*, IDAT&7}H 92Q78+ V%EF?8Jg` ‚[6/ "JCNi'ǩ'+NAC5((S}:J^0bP&T4DHP*gs7:J8$Iqg"[z>Ĺ|@d 4GRR-Oٰ@"Jݥ8Ќc`"XH2k⊙.P<_.@ yT6%e LWg6k{a@ :m"pFNPܫ諐4iyWiׂgq;2/O'8G<pV\6 rs7GXz+jDܫ 0},N`Y~RƋA#!qaXw}xI{5{;=e.RJ5+4 HhkTAR56P+˺%ٟ 1SŪ\`@Ԭ 6KK3_\X C uF Lz)"J l|SI XgyhڠYctnnuٜmN .t )!܌#  4$$h(|f|PF[0<@V0z@*x2Y@I A8S} uZuf:b D轺2Pi} r%<5eOdzf@ 4 }6LETiܭ#P,sа^}P]KVjTen&^@%"XCD?$J@ p' eR K~4a n>x`S&ʀZkNqƏLԎtk+yL$4>B@]})&#Q6P@+o!\zd RT(Y՛*<܈H "_⥼_Lu|X/ @ju#AJ+5B vkGlo} ( ;āie"o> ЪZ D)_v8@iJ'ruZLR╍G&3? URJ, v9T_'F@i<N@(.U$ ʖ>Qy]K׌Xh (/b x= 4"tX i;A%djE@͖fu `Ř5F0Z[[Н]c1q?ܑ@;@ZЫwe@WH+[vh`u+:$vgNy7ҏ @tjxG;,|cM"T R@2x6fpUAgUx`8 71cF/xG"l`o L `:KhaLU4UokM\)0(@-7Dv?auH_s@5h4Aj8&RӳZT'@7d9Fo0 V+"#a]y|ޟʿ1/ "u +.uNS;AށEޕh9@c;\M?[_Ö i1 !rtE#}4_p}J❢C7},~t5/a)/|gc<7ʬn㡪о%4pkZAfzZ3o[@|HoN?:;5-^$:tY`gW@ vju`- в.,!$ `@єDY@aoc&:Hy%4Eg{=88 |Gvԁ]?8$0,,0DC Eˣ ! |236r1^ 1rDH0d_8ғS^m(=EN:cw~x|,1_ S Qtk`sp{gV s!@D/ TG#1 "if1\ }`liei]H @JQ2RϷ ? \N:WF̫wR\gFRpP[T)+|Y+)3͋sn`rTxbX Ծs}RHz0Vؿ60:0N`l0Y H( cJݯi9WEy H 8Y oHؽ" GS%1p'v~ uJ A!H$0s~=( 3Zkդ7;)P5Ý16$C@=H7~Pܿ>5KV48w*.R@@߫ @G<h7kb(}k> .:s@e;2nqY~Q|?L\8xƱPfqH! ЧG`vb@V@P`ry!l %VW/ ,=`)ϻB&!Mɀ4hoCgOvFxvr ˈ6Ā' 4bE(TZm] ,G& Wf 1 4bo1qh!, JvQ;(mHC_(?GK@4{E D:h7DL `z'i7f6W퐷ґ5Krg:`3{Ω7JZzIi7α+-VP,hx "@V|j GHTx~`Y-CkkYhL$ 42s04hI@V~T@V˺BIY@#Ld^y@ ;g; >YbP| fpJ!<zoOEF.Kv]UdU #;֢uLB!2H8_8fpb(vbeàYT;T+$f)}`˪da`c@J%ؠ @,^aeP|o^ RǮ;j!u r",+@ xuM@UNdY{YVr[S64 `P =Z.$MTM2J66sW`~T @.ICw6ߨ̡:gT Y+KMU +50?Zx*V ghOh^s Pcȫ0?Zx* 5/s9` 525(~V @)Q]a󣅧ί촒\GG@QO `QxuSPr;/oW䪳X?JJ[\oIKV o DQ]~e_3.)W-<{XƢaKEfO.|>i;3\ >#Qŷ{-'Ik6@1M\qN9;z(Vtao= V_V9ړ ߞRƙj~\-,fxe*@9[~ևC}Ӓ7,oqִR+KZ}/ KQv}oNZO8L\+XY:h)wqojq7H|ߪ~}q'QM[l.xvS4F~e.A/+>w+Ooc}$:R ;I Q='Kܬ bt +rt>L@^P6$#Ĺ"eP:hgdN힄S.sP0CK vQUd axӅ$0Ӂ rF/+2wףҟ(33 Typ|ZPP'>^>EқM fT)g) W[-<%iQgqgL(㼔[t*dS54` }E<]*@8*?@jZeNi!S@S":vU)5ﻮi@ (@gh5mzmCTO#G<֏ `*@3̨)9MʞJ T<"m< \[V,[mrQ~ZȀY@\@{"(?saeNQۮ _ۮ;gA PMR :P: F\ b={21}*o޸܎F]#?yTˋ1(x3W\mxC'Kd(Ut;p8xz=<j+zpɅ`@8p8B1crib"^[z-v_uSxx)H{5<xy&uV7@8T u1[*ix={<)PIP0eWxZ { @"@ $ =P?G^R _N$=xpJpJSФ0T 0 p-`)_bomRCQtECr@ pj$y;#utq&E4Ep(M <xNi)'pIv*sx! -Ys(e %w`nRtC+R,Y 1> 5<x@Z) [ ) D 52vZCܤZiEMD158@8&s9hiR@ ƛyg@   r\Lj&UÌ6KN D2uIDATkmIY?=|)x@(>ak E~@'аpr㙁2Sk*v. xt5 PLʫ`\I|T oc( 8p7|?<p@˲+N>ah{б_P㑳A.yz#D8#۠x>G ")5 %$LW$@HTY(DVH `O l|* '1VxiB+}5<~S)WnXA(vz4v0ncsǣ+J0!P@PSkܤ8(uE0CKKY,U8еI񊊛!0 1PS 8 ߹ ˃u(pPH![ ]Pb;@\ST8֤7jmgHzX \khiR\,oXLJO.NppIc^PpF97f߉u-gycfXM)b(  $:pF۶Y}?GgbC.qY7%wo&DTrR@HZ@@48oS6 0y0uUrM&K <p.x7ؾ_/@oM_7y9h &5|ee +tYb9`>~ϕ x?p9 nz2O&Pah@~ XU>S~7o%G8 h k!,B/!D;ȦDfmRmW2) (3Y@'wp''0$A x? xW@3Nwp 8ofN^hR:=, jrݦ{ } Vcr[¬&H) C @|œ7ۅ`Ag) 8 CJa,'C+V#'+:C@ p#q=#%Pj(e pR:ob$`TFw ' Z@CىO8+7Χ람M9@@@uFoz/IGӮ4yHU3(x`G٬߸4" \R Y7*;-GU-jPz}G+:էc Am6 H~kb T{Ɨ;p{, ]7Z 7ﴲR u<^ylh|epuY+t 4MGJvC%qzЍ7}t^|ʿY{GLD``r o8?{fmu=ѕ4PmǛ.8gYkiy&@m Z@;r@i;?K@% r@&Mb GH4k@%;)p% r`'p/h N4?[0FX@w/q7x󲞏4*PX"]VP`(޴˪ eŁDTj\P +JZH@*mJ0o^ fYEկ<@: Z@]K`솳k漼g @p7 rZn)Xq5?&/cH@@8o`; ƛoޡ) 蒱Y2@8Pgd|+,}s*0&&r=l a||| D&X@rӒU7gyv]s. ǛS@U_;)/9구4K x?Lp27 _@>7M8ɖ&J8`<ޜ " ؑXnki~ H- /5t#8`>pw_ޗPVІim)  r \1e-8 #n8h#N:8p*7] C]0D֨s95hH> ܿT7,K`+H6i8ט_6,?c-;*CpLig&9*}a3h6g =ϷjvpInDeop e|VW`P{ E'8*l<5c'9B&[WؗX}6Ǵos$ *#t3$N@=w V@R bma?K@ sYl~dʒRi&cDzT՜9g| V43:m ӄoɛCӔl)uxҸoy찵g˗iuZjI jy+?=@,4wi eN2CǤƇ?Fn>Pfuް NOς4SD*^yjOS']EIq/>Q,yb3G}bQnK.8U*%?'bR4UHi"ʁ^.Hzqf+9;z8j/xP/Y,}Fa(Cs%a#-ٝ/үC^lB(5}t&1 u*yQks]J_\وeV8YgR^kKvƵ%"/AMSp8NF3{ԆL_n( 3y:wmE._;.1APMUUf>ҩoOG$su`Hw :\:v }osemfJ֍k1Ӿq MKi<-L` ,{}~]vvh*ޓ9!`?lL")`0YA_="d}ͦlpW \ߧix {utyj&ص]@6P3`&[[6MrV `x|ԭ3%X{(Zr!=uAqD00 4D}ot}Tt@  | 9f2+/o.Qme o^o|O&2x+*t<PsD6ZG NhnsLƅ૥oqտN;Vۗu,VVS#&Ҷ4 ]c,b ե0SŴWm@p=@i4@z#ct߄)QVjts%O0[j%i:"8}^MuUS]@J m<;7J;^֢MG*+ dݧЫ p;P탏ӎߦAO*FUYV첬fzs(zS*HӽZ04j9@q/5=I'8wPSj@M&O8T/ R$m)|1WU?տ!tF߽ !MEL"d(aSÛ%~{;m?zW;=-u~e.JlD'P+@0HOim_BӟZiC"\q:ӛHS Mh[[أ@oi U7D0qynaPpmw~ &"aq|/8/L~.`blv0&+}8=} -{8glH  4w2:ն]6gȦB9BO Eh;Y%ǔ% AI~y>3˶fZsTy`a3k/oYU6v*-bT?T@ @ /”*eu9h5 Ae6@+݆` ]@<UQ2ڨ:rOJþߘ@^&ϝ\bͻbpk.KcҠZm)[]Т9QPC?5 N90<@|h=>+lz`}'<60m3[!%MEka:jZЩ PdcO @xX۠vI"*Vtw> @_wn[@;?Su ߦPʀSkh{7| "QM@#8^M|ox5Ck2EnRI~EH{&Jד|Wn.15v׭@vOƀx B5h& p Le ]>'iJM ereϏl^`ޗ\$KVg2Wϼ 61Iɸ!  0#Zӷ(Q1d6{۽uMV_2:tӺn 'x4ofDUI?aI#@G}h,];o ɴͥi:<$Ռڌ%P5tM@i=U濜dUw]E:LKS? -<ǁir ]+2W0KP02Lި,2PU,][6%Ms O:I1 y7I`Z0>833N#ʔsgWaq~\7dcd]g3 rZs) @ YXkl89`&p 7/:\tԲo.y %BQ)Rck%zfXkhսn#T)_ u #lB?UHZGaQK!'NIs"@xڠߥ J/d׿qE%J<݇e ~5W%#]lXN4'CB$@"Ry`9,Xe&&)U\ `2'}  ZP: e{Pg7&cE<54<{0: Bʬ\cQ`ޱ|~@|@4^F7"SSs~6"@x /{Z-Z,yo)OaN+jĴKZ9ӻn`|=MC{Qms*UǷ<(N\y<ԩC$&؞O<fwE#}?$Bu"@VuR̿X<( vvi;Cj9tC'1`+qdn >%3(џ՟2uDz`bY3']xJ/Q#ZT|oT_b@rvLNh-K,r5p3 @t< qx7 x3koPh(@MGgSaɟK%P'*[κ.[2u!frsN<ƀPOiK\Vy~2ЩLCdAhj+0zϲ— )"4 lBDwy&)C`9{K@Ҩ ~F09pUm|#Xpd ^+3O22a3LzBK1UGLGM=O)r\0@ 1ϴ_$&_D0L"fa L7P7ITyZ! `r'#-68+%<;nr?yw0H Q0M<nWJ P]ЙZ#?;A},$q*=x9#D]3usҊ [,5`2y6E0oǦh6ILr̜ne6 f+m潪tO {?>:wE>nnUJ_z9{Ͳ{wby fbF @x|F<0Qri AYmk107Qo/֛짉D4kܘ/f jc嘜}&aunB@g ]1A :w_$Ѝ4?;-AC׀lP0KNk( J8MBP+=}lKͿ})C2*!*bE (Sy{"QoT&).DlHo5/3167v]k9sLQ GAM1j)qM m8a)0:[}`z7ʹ^ X5.Pg `z4i`If=VЬ+qn>aBE-2m:YL DhpF۩۝rdZTD RGp"8C/ p3,?äϼr}M[. 7 ŐjEkgYNdωG^/%gꁝ{XKUaETs@/54S  Jѥ `( <WP6s0Gaˏ=Cg}A*'Q6miR ޗ4?n9 @dωo: @b$;~oE& Wl;N1yW'$W LLC.C CJvFtHnr]@ʷ @H2?_Ϡ@I=z]@4/‘*h:[ B]0u8wWÿnj^%lIYazd>k|'\3=/ Zm.D|*qx/@)3aBiS@$VTv 7K0:G Bzy ,ި/(88`%_Tބb)XMli 4 tx@|jti_(Sy?M Z +`;XueJ A¡ݠWk!d迀*|>Iw)N%@a@馔OJ|çCBEIqRPR+zG瀖j =r¸V.aԓ^Bw K5辬?bB%+3CyE rp5M}}^(w#hds#4LPP_MK?t (+W$VNP ކ=1l.*5c %y|!&c F!\<0ܽqƧ- ~+G@E .sS@Q8<0Mbǒ^xI|ĵK;#^^$ 6C HS/~-N\Z~O &r<++h ӈRP/,P(Ay`~;%`ӧH`H86hވ IDATxk0(h$sl^_DZ` ' (dM?ቁQ*hV`~C4 lH @ƔBE /,T4f`I@(#5x2`/n!ڹ~?th?^su:BWد:7*euY P/aB3J&(7-'#<*}?;BBE_ 5'ZA@ILy;v0 03k…-N2@u™/H3vuZlh 6]XK-ڧJϺVG=o*`EPlWT%a?-;٩iꜺN`26_/cwr 4Ʊ>PrD0b` A+N & @ Pm;f,AlK$\b `1^%3wJf|"|u( `UrOLR]@@MY\+Yn=(  8,#~ Y-`9sX'ў ie.i݆52C=D8s]m:ZrХ D9wލN^a7BExW4 `dV,i ybCac?FgMG7|*'Icw:]K3Yn<ËT:a}ӟnn m@.6PJ"PT"`9 kKXuP4/r|9 Gsi*eQ__aȔzhа:`+Z6 ,@^ȥ|߀E%!J:A:6ET@s56z"[$ 2`5@D{NCw{zXtdgI>ɗ^ޮ\GLŦd,jAVh}f?.v_k 15@Z8|ײ0rt< j(9~HK[N&aOȼ2@ rT/0,Csn@cO 0O* T7hDst%bE_+frNʹOsu )؉}LZ8 SPm)sۃz h 4=J BYقweacbDÅ3PPB0@܂X}@s5]@YB((9(WT^h7tA6AAoς J&C (sp  ( @`'w`_@c<TT6JXacϱ@@Ttv G_C/{h6ӘA-% ~_0ٙs-d,e[)0 HS$ǴJ`c4x p{R9rk@3cpQ"O}=41Bm WCԋ OVMuTS1aCjۙ$(%t-2pPG[zR`Gji4 M)o!LU.uSyf) -i*͸\vT٩BU@懫>Yl0(M!`F>a%؊ȥ½) $ x x^xokTC=2OF`3;8M!m%cO8ɺ(3W,'&1ۤ U6FS<]R,mꊚ-@@,),m"&e`֢,@s97h 5\@ˣLv'F&g16]aL 0jua,̲;+/ksp2Uʵ99ZaYD y!(J8@0a*$X@{.{FLJ4Pcuw߬a #OOL~~/bD'BĦ: %̀uNzM.(._#Dಀ@X J1p"_Yj&pPIM H\wPU2:F:Dk_>NXS;1{^5phnnR5SjtƠ MQll֗WT_2r[f%*iPF&J"q96(rrANԃ^Y }'㧦;otshHУ 4N.2q7]Tfy69^ᢹ±Xh!yD ADk6 c%>^[9Щg3(\Zy!AA|R i_W8 xp/;'B4x,x_inOGAn'*3 ;VAھeKmیp{`*lKF5Q-<Mz>8ԓ&Կ]%'X=nbKܣe>>\'ˍҬH_k(n~{y>j~I~h b+/ k-@0ei6מWC]u4˳ǑՔj1V6ƳD&81yWIWF8{SX H;Ai6%_3kҿKv#"Z 8dOm@8/1w=_DlW FX.,#"KqImi:?Vߧ}9+bbWsZ*L&2@=vea {`\:;CraF7Ҳ6Mt -_BǙf6 X`'n 0G] *?tex4i!`{xI1<p(:$M때8=K8SP{Vx(w1ea1ڦ N:V?-Y@>@C] ίJ@c/_ƫ| zn`܇h #]@Q-6e NQ&yYu!$Cj2=i8`IO?'wLKڑZcE:A{`"Som 5 ;\BWpcҊW@O\x6Ⱦ0ثz P9G/?`AF1 GFh-S` 4d1cfl|[X03@q%d-_R-] 0U.mc u X1xhXYw5ꉫ@4% Fs}׼gPzYMjp̜Y|6j8we  ;K97],le^_l"{g6WV9w{ ͑ Da"5Пlg 7 @OcpIiȕ_tq`-TpKQnI7i&SJ {:"ȎVUP t1{:BnC wH@5r*TU )^BiqHp؁al$ Hku%yN1.IŇ>C"`>LX7ӦDRG8hoa"@޽<(<h0bx[@ _h*=-g&F?}x&p_}-"DwuSX4moU[yJ>0_V&>8{Z(Է)Rpݙ:v_ S70V @v48F9uv5 |W%@*7No2dV9"L w}uGNsA kٶP4H`4yp8rڧ_g[Ŝ9܇P@@  Os`r: 9~W4 ư:RYbB/R˲\ᇝ8lv[SYb䋊8z2x_~:о (w$ or=$}ޚVsUz(>o/`i'(-r (bΈ . $,o_]tiR:Nf8VCQ8_./ogw-p|@)$ Ö2;)¨5bۀ* V76\|ZA _g PϺ_~JPObk}!*F)zQe ?㜌3 `uȈH@8ذ Fc:/>l8fTxM hxM4BA0@Roca /gVH>KoN@DH@qy#fSxy糊Gy$툀;Y_݁6( .AyD7;'_ ? ~nx[@@l6W_H}!X' d^yQ3 @,iScU?M>I@PS00N~W/v?FuߓNl-F0pAr__oNRtefx[@G/Yr{ItO1#?u^tz "kt</k _6bŮ?Կ(Q-a8I@`d$}d?FJ1`H۷fGfpf|}/ %F* D $#)Orpٸ3)KHD|GCZP2 PbExk!BU5+%D`*wRvV 2ה@⫀zx Yb?Pue܍ua @Qj Lr`(S.GdZ0nd"0& MYBqbz*5k=pg@Z+  #t' o `nRgtb̂L'0R9.v"T [4Qydۮ _Z/Qȱ:/#80]z1 㗄Z:iSl P@e/.HZ; EQn1$ᱯ|:h8,ekۊ~e VyfSXC9,yC d@\F3F\0 9* 82 1. a?z8[rYBA >ص2VUP@CG;ˀ< aײ+>{=w IDAT<ֆi/ HE.0`rs}W38a;pl>~17@e/s? o :tME_2B_>ES h-{ڨ[DgJ"z3xu6YXK?=Or ,QK@!RGYz $ovrW 2']ϲ(ݚPhYb3fcJGb3h ^mҝ/fqs"&G3#c(&5$0(A (VZ{:?9 d"F\ z(ylG6` 7@e<џHܰdJ@n7[wtS% 6)T42,_C'm Ñ,Gs~ \^A9PA2%д =`/2/[*J@çu|MPK2g]cO mt-` }P-ldv_g;.f *xAi^@:MN2w8jsכ^( D?tD5LvdO$H1Qh9p-|{W/c&Y7p0BM7 +4gsx2&Vԑw3a~GePKu?пbuhX^qgh2^@oG $L$l?N`$mSm,u'`GΣrEt0{_D;u\ Hb o>[R !# =KK5n;T% |¦3&[B c?qߏ/ZU `5W}_9рʗ֑mXVp梙 @c7'm0LRWA2L5y d b?vӣF{d|F?X@J}@F0X5'k6^ao@CvSn6xه?Uk,"5P` |XZ) :ku)k O00t #}:]բh{&HdBߕrv) T 2@<W qx`!pig2x, 3Ny#6,Q1KjdfġX/ԔDn,)bm~0P]~3fuPM @ZB6,L@- yPE.=#M!)J@腘H@*ɚGyT4h!@z3~度2?S~)h7~P?[erˌZZCuC䓽 ?MhPGy (s/ q>QR^޲G_EL >F2^7&M$b_`L']@"@eL, $s/HpFD/OBp }ܲ[$fPHmG߉JH~Vq*X2`|Y,SOUW~W0Ⱦ2c&y3$#C_΁R?![71͌&b|]3k** #_QPMQGO*T\Л{[HKYAp+ٗ9\7(>,U :PӘkttJ6b"Bw6Lp4tqO8y|4S< | "p~R6y=1289h?ӓD`ֆ[g{1y#( D@QKjao0*T6P.e{Amtnզ1uQaW>('n1ȁ~ M^@[b@J gh<( @3:,ҡᇪ*QkX gx/wlG;E2B#HPY!4O a 4D h;0͚F^F#TT:f.eJ)i`u~OP@%2*t'(_!U急Qڹ9ǘ0 P` c X~/)6ػX$ eŀ"@>&-Wm)w|X2nCPSˋȄ(S@7+apOXn,o Ή^H4S  ~7H)@8~L'.j ? Ƀstm"{Zb7*]`fk@nTb\'e[I`V"V(nZbd\6IΖ~̶ jTP@Eڞ<4@?AECܔڎ>g {z(O-$08H^2PPdSiKpCw*# (n &P1 k)i]si>)QБwz?S#HT>l El u`;\@MWwaz*TejYhN'YHs/p9L(_M)d-ώO43>.({"0P5 v1zqcH8҅flc Pf@QĿWX7֡6fV@R-E g{>݊JBg'E[c«. vYM|TAB޷#SR=z;6sߩC]32șZ︌߷YC\17aw>P"wO;tm%lfIb:Ic\wwS03HavƢkT ;[v7'co_[Q{{;J6 Zfm ;+9+ G9aw1걄wǞ%/ AInGP{Z L|ܯ S%))O9G<#˽D6?7 }k+1{0] 51iA-vi,u ]kw_}ut= M(P[1 PXjg@ D f='0SQRy j6.54Q%'_=َrqAݻ7'_O@ՙ]P;Y.z-!0ynG}0 F#Cb 귞dn`IXƵȫ; itDQ TWjA w FRCekETF>PEG0!ǣU:өq? sĉy[LO0H&^`^]=^-%`ǝNp2ю_s51kxTPjXhoe IxS/䣿>1ٷ<_d#D 5KAhXD= ֈEh`+" eF~-iUMG{[=vg?PwW˿u~]@!]p?do m(P ̴J @57j'h'Z܀O~'7R@B$0`/qC݅/@nTSG>hwy%0DNU9o511 ~uzÉ>8"do6y{b,Δބn$uJxp¨hRR4l3AS390!(&' l2˶ M#Z]@9 PtX@}HA' 7B3@.96 ^oLpJ@mIATx.ϪN HDh1R0l-D[qw@:aH#Q8OF~Ph֡(ȍ9{Ͳ;mSS$0` 3,0D?naoJ 3G2Yׯ/vRt{3]3 {!Lׯ!u Azk6! *=]T @ HA>+5>nO\՘:ear{oLb15F2lšly>~4@NBbpx@a g\ cIj~;s縐h>c$yb) rb'}t 9:&@ u<7%}I(paoJ\zr8P}1XwOVg3*$]Bh?ƄSKIRx}ޛ]O5$T=<x52@~kHmc(OX* "[Yv1`Q_ ރX ]1K 0; nIp@n@_FeC$pЛoU.\_H{AiO3y1Ͻ(5voj11hux T~_kDp3?PO  @7]@^}?G E@s@a>0){oNL `aAԞdgzJY )"ͮ5.Itž3^yL^` (58pMZ۔xphj8sUmp,['ϡЗgGB5_0 |4RbA)! |~/\Ns Ч S0J.pѳ IDAT גv@25KL1=Q@4[ rЌZA"PΡI{6NP^O`j0PFw  $0azS0k" *K.<5Q$wf~\>z"0,1N@{3R(1 k4RA!u>  5|TsB[À43/p6TO@EZl5ّLd P#S@tcMAfAlⓡ/"x؍VfE^<׻?vkPb,b&}]bdk@YwI$6cZB_= 93KFdY~ *$nEu|la9x:kJwgk2FƱ?*0DM(j=n=9~Wzb{FW?{˜(D5°Av7/ d&jEJ!əǙ.l_2uK2 >Ta-ʤU4\carF$'E l.Z>@>ߙl7a*k% O/@>0uBH Nv pJzl0 Z15%_ks@OHZ(֙=#HUD̢j$8TNS).GBW>ά 2'cAjxt`}uI,蝣 *} Q|.k_YV 2.Ev8QPmۢ_($% &7yQEmf ]u-O6@,VP|^U<ڛ#5_6)4Rl1_0򙷐!:HM##$wOI{e`]6 >(@BbAu͈ǢmA" "PPQ&' o >p 2#vP , ˌ)H=4DI k a#`M'x}lCR}_8||T)90ŒDxMbXÃG.RڙW`FwP xX_(i& ."?O:8Yy!X 4؋d @ dx +7y# 3)mM@6`X`]6 ѮuW*P t8@d^b@8@ j"rt4t-B?NӰW! V = szv}X}MdGxn}P%fi^)05m\9scի\` ib$2TK>3}aM"" ͌a` _RĤ'9xnk0= G+RN@:.~ /eU͸" V6XD )__NsN-1bϝ>( ؐk rL@<E@dD E 80Rzq]ff8/6 ʴrt%\P- }׵H7 ,>% Gxn IjB"ocFmaO`G!1iâR_"a~/ )a. DCH|{Qz$VyGւ~lrѱ E^ga_=mK.<ӌgk{ExA}E*0PxX(,z cl—ޙNpg:ڀ3E3yRF #O ]h`^Xs*ݷ;j-̙H0Ή~yɩW[.T rw_Ha*ʶ<+<B@2*#IM/Z@ a*Ug8l2~/2-dF,0U)"mA&Ч7Rj0eTZw b"b( 2d*ʡɭe[Ȯm`A 0C uWbrQOH``'<+Ti.c:2;2~ pk3 3@} VM`]:+n Z.`oY>3"02-d&;\gKa|d!g/Ti =D0[ಮӺgiJ|x*fPa@67>@Ҋ6>UXg]xX@X49Ɠ#|6lçUY6ro,l=>" (s\Bp(aϑ?]wӮKX4o7Ҷ0-j=^[@kxmɀ/`G `ak8Xw_چ.[ ul'@>y(d301@ր }QFvZ>k{0 ? o[ŰI+5f:\BNC~tX`5-dצ( `x. YavhϬjUc̒3,P&SN)rlbm!Q@?1PuZbKL(X{,kB,tJ;tup@'`k8< lE  , 4@b9RX'eP7fr+*:-r2 fh2ͥ+_L b "xpD7/J=IA`Bvm 4K'r Tހc/ke#9^سp$1`*ƥn`&0o=V)(Td 뾫4y4dS9'|qΐCa*ʻ-;1?@4݉Si+1+ LJPsCy}೐>7e>`/Pd(2`GCJB^#KM"]os,>ٝ@| 79o! 6PHGB`/qN [<ܼ޹h'+QTY\ : ~H*ْG5qvmRIe < 5"iY8/n'p|, `s ܝ~$'4P)99H:!Y|Uo?lT @Cd٠#H;3RaxHUOr ~bZPIN]u)og /<t?w`@FPO=%K̒;d@&B C`#fA-Tz\ nP3x L@h#(.Z]'CK~Y@MB@g|p_ja9v1dKe= k@|lo,z5pGe74wR" 7u7`I>٦?sfIh\RHi$0.VsPhoʣ@"w.E 7A`I)rOƻET~~ @<[`=@=N2>@R$K Ϭ4` ,H,n;dyx!00w WD=Ύ,lϢ@ !  Wap]w8Y@")p)ؚ` :9l|T1ϒvȎ7Rq4 LF!52k (:R E``C Id0`*R@;\ @+H6e*Ʌ5`T ]/ 9I_x/`` @6r! HۗQL6 Hf:q@/(7>(Zp} 6r^7l y |^:-! oU×o$( |UB0`bOz;܇\ \W(. f]&Ky1pnw`6K7 l.9V0@cf0m$,ަu Gr^>)H+ `F Pܡet}t"lgy ! b -TPv Y)*_uT( .G1ϖm`$+RH@`]RE5^ s~0HJ 1]J'1kNr#')<09>u|٬1* p.{1hjOJm 5?B@0Pٟ&:P^Qڮ ث(":(*X ʦ@, ЈP A({y۸`/1(W|W8K E  ; i @+ѳMFt sV>"A3 6 4~Lp 㴡t?45*.QO?! o[|P}4 yG74P@iKJ<WcϞPH%*>1s}P e=` }fYv^X@!aNG/[pgk, `RO 88) +` =ɛ7@R Oemu\`` X;鞵bXn )ֶT`p<؋L ;<<ߧu*?`. |DDNBC@F(y !}P@=T|mPT{9ݧ~ m؋LC@]ha *kuO:2?S4 `0Z xȗY+ʨH>c X"?_cښAǿ7D0cfV`RthkyqD-J(|g~8mQtFl(4 uٗ qt @ bZ! ex *G:xZo% `! 0{6?YTa`/"؀4_;;g](rImлY X': @&fC=,~&3I0 G.(=k|uV37X (N<N?%?jVfГ #\!K ^ u `M@}f8h2t4PG䢤`;T_n-F\6dko{j+,7O``@Wz<33;^ٶd`0@j @ˬ^\@(C@M6 4o1  @{ՖzUmDxf! z=;^9*ywip)Aq!۽D0퇀h ]K:=; ~sx y %8 }k0|-_!皌)v0-mm/N3r^> 8l81̦'&@9,wʑ{kWo%h1(ڟ-Y@p7}Y@~1I IDAT0АL\v`0^Xo77pD\s`@6CflW%{U[82lA,4p_ j1lnC@ <LJ@GA`CX:#`ٜ z4^Xk0"`{1Ef3 h[rKF4s-&RRmwy_`Y@3w̗'+UJaУqs:5T?+ZUZI3uN#x0}I2w Rjl$n  `|ZH0X p|߷i=~;K%%ds b p @ @?&@w*>#+2j32kmyP6ܖk yĊ `ٜ5M50,7Z:=X&MߝzwP6nLo.3kӶ @y%*vb[@_Rok<mDZۉ)vdOft]&hO_9`g˅t݅| J7';#x:5dx $[|BkQ?W&ھ"i QQש._E(Z=nޥߌ-g$]~=/R*_7OKҘ9~*@y0[R.kedIOH4jڴ’>П6uZsvT]n6$'MӒ%c%U}}D5弘2:UѬN6R^ޢpo2^} W[* v[s$:$Z DQsg=> ǛN b}h0{s׊%KR+n]{a2y] xPjn-I野!`ч9.sN o _|R߹ DoY΋9/@ܾ5xO qĺRs `8#qnJ?Kpd}nJ?Kgb(m1TF7%YPCetS"}X:k)`TݔHKZLEdtQ!^x[  YqT`*bl}@0MI8otNQ:7xċw|! MetS"XzÂ}d+HDۚ0+iIX lvTnݶ["^tAhE$<q3+i"VE v4]a-B6Wɓ>.)*6"y`=]IӖސ6?*7nÞp[DZ/|<;I-fsL*#JVhBzSnÞp{OؗJ%]񢛦d=^Te-caaOz8օ~t-(YKke-JRil?iË `O0iv[{fGfÂͯq`RN+i~ /LT9N,nÞp/|$%-kڃeʕ4?LrZn}Jɏ>!B!B !B!B !B!B !B!B^a'gIENDB`ggsci/man/figures/README-ggsci-tron-1.png0000644000176200001440000006677614570505642017476 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$HPLTE---RSPgjgA@>`333887D2q‚X<Š8dv~:R, IDATx읋B8@ ;b+, jU>}3jdNAdA A A  A @AvīP_m2Ri .f"ѻ,8W;ֺo{ \sG@¦DnojVJ&2#%(u{‡OO*fwkv90 |O 0 Ğ@ 0 0 0j```80 5 0j 0j0 0 0 @ `i s 0ZoO \hf5"m`t`540 ^0 `]$n|޿=x `פ= 8$x$ƽl~l% F >nwG&^p`.v^C~l% Pj @56MD 6 0`g}~w}.px6R_NTdFFEr^iw03v~ /``W; u-s}F3=Mt"pkG!` ;ڏMt xqȢ`5 ~{x6<0j4K,@ p?| l`5 55`/o"5  ``PxI X.a<PxE@ 05 P0jh"`+pU^׿nz`5 9۪c; 0 D0;G~ m,1;Fa5%ƛ e0c$1^ĦY?D,<*cW5o*j5qb$m/ `.w5 ty./?fiyᜫb>9Am`;/ .%6%ste8sw"_owFCr5򿏹gl3bm!@ͪ>5]6q΅<0$V@:{;tQ^@Г@ͺ!uO 6a蜖FyJ"0%jC,''HSM}H- eܻE S0P8olW%څ\:@/dٵQ~WO]*{\}w46NX 0 @QhJu?~sj؁v?x? ~5 X r.]DmٴD}s٥p4}:Z@@$u  4Ͱm} _%_>R   H7P Vmf9 7e8Zq"@5 X 0@@ߔuY3[HdOeT {cNKb[fm,=eދ$8 FnaHU`#?@  3@>03UwPE\~}%L` N<9:K `EmFD"MD`D@lE%@~a v}YVfYv7{~RveaZ(_;njD< p.+|3@-Yj_j ݂{u%] I-@6i5_ jrn~:y Pe Ӏ# >iGijpNc@" J{ڇKUwo[rSgg`bC' TLJOAd[dNE*'fqw)ȳaz n3!g㦷$`c~u߶ʫ~n6k6w _8]nl6mQ@0Pݗ:sz (n `p\)ȍ=K/ғ9P>oxۡJjh3lM'u@:P >o/ `VjfKUa9hqn@0`ӌE>JEi7a {\i 34C*jQ̭K 0 8T DӋIn|Zonpݎ |3r (lwQJ*AݾN F \_EU_C36LOVZ!ꉵlzG=@ȴ})堕j!40$vm3x"0fb, 0$֍ztw M(`{du_ea5*5 m-j8>#4z*=6a-6;4r,@Һg# eUw~iO4pE< 3M` d9ȡ (Qa:usZV\ft'o5AsX(>u()o X.Pf%zY޵(ACB1&Oo6 @6Ṵi-T٧%'TS-]azXF4IF3]CSoআD~'RV-~4P%u|Px71XDP[0?3L(ʂa͕7+F7?N7% x%ZwRNEV_x w2BbEny#P>oiydj?;$ӒT ("WyY MԘvVc#Tf:䉚$2μ}=F8@IM wjR3dJM-$pA))1@@kfW>S?V\c^U jQ8|q*YKꅹ¹\? @Չ= @   > .CheN}X ]A_Jmk/AW}M )RG(&>n3fVJ*np `g236/qgodЛ p8a$(4 O1`ϳK&ѣ8_ Qܳћe pȺ"h@=D4uNbQ@*Z!3%&R @ p;(>EW`aa&.Dpd&."X@3&!)  Yh1 "37عU\[ǝrk>MC&-HH) @ @s`^P}V"h(GJ @bؠo]9KC@ )RG)&FQ~m%KI}PUU? >!V%P )R/2 EaˌIGvAg`u8C/ U:EX|#H  )@t>ǧx;qC KGD1s@cИϏG/0pQ#S0`0)@P UZP cxII#摲2 IЁ:_BVFd֧y+b+v. 97IP )By  2v`tG:ko/Y ֿ!v/[h(= SOAH phP@$0٧.S8>͡ k{&^H_}6`е-࿨@1RHpR 1D"1눏4>v .&5v{zf@;ڍ ;ƄH$BT_'F@1? yWU(ZBxֈUBM>,GhiYj f؀H+}Ӄc@6GiE/4@FuXb@jp:%XaL@s>X& l @_x+45o6w]8IQsPgQ8r/>2R. κLsEoVDti(cn(oMbB}&P .!Zf 'ByRb??# @O>:')rS|3^(+`zB6S* L#q}HbO~b_:&$sIdbPR TKz c 9C@s%Xi[&3#˽"r,Ы_'bq, ];0#6[祣Z"J}3>u\ДSOz%\;.+c /)YPs8j?( `._s0NH<G**Ή(^( qUCyqj[Q@v w;?ϴ hCW[R~ -> 0'0 Eb'4A &f a_I\C3(C}Ho]/8pY[Q..,M /jK@@6mgR m}tDx puW7LGoz6t. dd:$wH<Ձ?(lHʺàS1x*@9H<Q :K{ @z<2auچyTy݇OV<Un?R\  }+@;Э?R'Yu/}) )_Q ZLl&$Xm:E *p!orF'7K8pq,8 @׆6p HB~>}I/B0R@<hnoe')֠Alnx~LA\{Iez>7̫{'Cgޣ# 2QkTNj&$! j֫v]>"9Y2bxÙn ~P'e2!YЛ3ɢ)`}ϰc@̪!![h2b@s<<b,#o 7T9(1`lb1ZJxC1mwDP:;5ǘ}1 @A"ƧNq L"[I<s~k. G! )+q sX337r;pfTf4S9SR8W^PC1LgR+V!t\{@*H+fY:̅-նAQ91_ -Gqꩯfp-+?g29@ҿ(e. ` +eD.PK$pO4y#[c۶@kg'0l'zCexd5pXz'P{(sXx W@Yf h*Z,}_6O&$nYhyNOw$=)"5 p * VA P}nP>ܟ+e3RܯqcҫEI[!D`?F>\{|45 #A% OQX`0@ I,zKœcow?a?<mkJ|\"k=xO~'BƎ-ؠV` 1! .]h[2/_Ɵ>P T;m)ᙤ.|Rh 7{]xE13\ҺI0;T#wxV)s Ò$X1_NqӮ! qO ɐqgQ$~Uf^>M`! R u 9&'(1 `$e 6֥3__g.>S>Yr1R+7wdfoBnzjbU@Nk tr*m6:>J0m37 أ'23eM\aDV/ _$X'4hL8 y `mM3.%A9\'% L?w Aߥ. <P8 IS'-ȇ t)8@7.'_CfR\yVXx9p0  \ Sz* s<+VX|fpR-HcZnpY62kfǬc\!Q"E˿VR+ + A/1 *Wj^vM/!e1 0/-4͕M_K73+b `(_A|5{!. ctާI˄RvB֮jB\(A_@O}~ogT,1=ܞy1vժƹeХԔΠ`;7Ϋ 0niA GPSc G>qsup C3 ~FhhO @-bXFIH|_fGA`s[D•'YBR"kK.Dbhh)bumGpqn*%/3 p߬x bbYArK (JM50`5~& 2~=)ߕ6wr.ܫV* Ց6xz:\lв W9px,(7S}ڼ7W; 1Kmy/hpӿl2fQ80gEf30KލEEwhŴ: z=  I7 LG{ @ҜOy/L z!Rg w+e'g86L02|:ۭ l^)׊HuFPD6qTbN^DbA{7Ŧ@x в? Rz/|x0}jw'᭶FdcCOh6Hv;gBۏFJIw&@.I2&b+hd(䇊7I=B y `xo WY O%U~ǸZqӥ>o+_ i kľe0d;wѕ<~V `}bՋi1䞫?7!gwM.:.+rg1d@J>V/ϸKhSջB@nYxo6=-B?0_vʧmm2ުG^\rkY,N!lleSۭGh-^yz H7 < I>9+?_SD3x0}jw Ƙ9F(}ۄ<߮fQx\\\"*<6f1' ^Ĥ视z`vyRlp3~Ś*2Pl`9mc*x +J|$?<oG: ]b !\4`yKZOIzc, F{PQ?tV4VPŪ0 k@WW %Zv @\7m]X7 ]@So{# B@PqcMmp cg.MPu l՞o QC! 'g"{'7Lp"xnZH'QLaeh DݳN\å@SoXe~ ݘJ槲F"@bz鍞'ܖ[಄,,̀I)i_8I߇},`9w/SF&_P1~ PYSM4(O.Iti|xbJoo&Zt%A GiV5koJr+Ϡ۝ݸYNJsc'"XOf>az\! Q'_(_x)LX޶@SMܹFU=,4_Mg;UgYZ*pVPO#MSb%Ă[PM ZD4R{o ) @SwPQm @ |ndq@?t @;`L8WzE;)̄t^Lȝ6ISM4pXDS'#L%Ä?< 3nPy&gkK-PDMjEIѨi B[+*-'~a7Egm7=-0֎[VC`\^@Vpi B lī`|ßd"456ONpHƗi(Y D !榱Q};<-0"cM`FJz[`xj&!t8tٵƃސ@mM >-s7Y]$ A?gϘ,h]Q[$@R@!oj5 P8[*(-!tMdQi-x<)9~ha8# ă~oZ^$gM^tIl_pdx5]| 7sP-:x}&tAZ@t0) piU9ߞn7lNZc"`o8d? tl'm6}.SSS) c[ s5aU`9n*a`@ n+(>& L⸗ְJ1]~# R. xxrۦnPu]N9p=Bxo <\ǥ 0HSsAVl  1bWm-IrE~ILOh#T 9 0xDx9ӱvL`sEVV&Ͻ*68WG$3*&G QD>>_Y N;hӴPp/5I`ҡJ R m5TR`0&QaDi0ì0_1IE@j}1,;b$yv2K @P b%xs} h )gW^sPFPwL+7/@ON%UljmHhn$p>Heg˞PVF9)4=s@|#`$pw;e@=l72k<m@u`2">vؾ0Q`n1z4jM4S `S@m$JP5fp︂.!mċ|zR1@ʍ4V<6@ cڠ@SM4k -4 p-/}!&H`E`G>>Y1MeBK\S1@ k 7BB?Qh )~/ JƼ'P$}h?Z%MUwr8V 0@2T@u7ЌxSM46}qvE;$$AJ'u A$-S3te6 &NE "vWr7h %cA > Qsv D`_([-p2}A"NpD./ 9xA\>.A45*OQeimg+B"O W Pp`}E|r)98WGLݐJX2`̾ `8-2jM~n`#[@o2 2~_+ p|Ϊ)[/Jh:O(ju@3K;l 36@4I+f@E ܉ $;%>v&h5TZTApL}' z*2o5|Sa'V 9*4ĺzfHZ4Pi̖ҳ/n{!h>:lj )TY`./k(Mg(JKϨ_fY2vY)N/p"T^?>W `R`WTfPL4MPEJ^ǿӟÉ)!Q@S/v?0q0?hǝOiƊ -?(&/%>n!iz?@w] Сh #qrS0 q)"{Hc~24?jE^R<b`L4mV\9n#3q r >=)vk"/[z|?1 N]É@_bz=ʫj &1vG~S SB‰FMd Q3+H B,o1 "naBu^&C|[>sg{Ag N|Wz zI-_` 5LrI R ]@9Uj SUA_~y0' 0su69 -DjR&j@wk4}@}P,6he8|NZ Fk T D5`X {Fs]@2/V?0 ?) G6nO;w%@4!>E,-3QQ޶VpNά&&B]`@pF3 aTj]l셍`HI @Iaj!%1ӡ][3(D"j1۾>uio5^th;-0haC\gbMf8ӾSdRJ֣MKă}[ @>?޵? -S~G^](_R]4IYn/=d#*K"3v1Cs6mMk{RO#( RO%4;+::8k{v!=m4q76|@QR<3E,2y0kn)+?@I0/z/fLa-ݏ;M}z``LXGă)R6M:ײuA>w}p1K PlCN@3G@P?RkJ7ͬ@ otABT,c?ʺm eoS# A/ HX*GF,۱pdBh(x~#F~a =\v @.AsӺ$VRpJf1!@ q'v3Ⱦ@_<|x1q  @02klRaHE=Vl'R 'UHC)jX=1-4A- ffV gL |(g)R>ai7Q/0 `P5Px$ !) hHx~8@5yv=F &W'\/iE:\ @.1,˭ @3)RUJ%02iQ H{F"& 7@=& bfAj?8!Z] e2?gD_(|߫jlï(4[(@?HoxER FPs9gMQ@Hxu`2Tئ\4u4RcLgn z?X!)PeWfe% oʂ|>;2xk>t`6@uܳ @=V Hs%*e[{e}ڟڲ& w'+^4M޾A2!RN` ;, Ρ<T ȗ00~ҢO w޵?W8ȫ{pO"Qnj|GTX>%(?lp XwW\(OࡨCw^@Db+~W~CT ~ ȒէQJ|:ho=EL@-z ){|nE-|+ u ` _NJb-vkYs+1[UAQ ]yoZd-:8 D<7&]Y'b84:XP`+EKdTJ4{#n+ jB^< PQ8( R_ `^%?s2(HIgvH0[CۮWUX;*Jߋ]]u "l4иWꨀ{9`þ `7O6MҵM73uw[ VM~113'wQOF+ ߭sƢIZ5 \ee9FxD>Rߩ޳?O,Fn=7BbC?7te4@OBV@׭rN`)<%:hu QmhqTЇ:NMM!X&⑰Ql3WQhe$ M 6y P~[)5Okl@ʤ!/?S"HkPNy Ё.|k NE)eB /g˹Ui]QVQ[ )/SYVp싵v&%yYG@:GD]_7#C ?Bl)_N10Y 78Pc󏜗^ 5 KXxW}0HX/V.N&!6FT>Cۅ 7xOx:Eo^R G!@y_bF(FŤ9dÿ9*%:WkOP@Y5{Rw(jx-dh͡( 7|lr& 9cg_`Ra3+-n>>*$@R8g;)fg( ]coJȟDL1KcLUP9 G,T>mT';A P#! bL8rmkj 1H\(]ʲ9. ]b뻯ӿ |I-f ^|C;3@z<vG0u'-%SD_0G " cY*'!34ϪTvkq:?.q(|KD&7) V*A3_@:{RުkYрRqD;I$!8[&0N 4NIr딀3:# nz}o!G*z$wh<'I$# xq`iH) #S]nː0LCrZ>~|?VγT$k&NK'I= `MյG=eN} 1eJ+&U'plH#=+ԇ=sͿ?Y8RdYI}Z޳@2Jr6C a W^@vV@b6Z&7iTןDO>oO_a$8 8@4aN/ _Q@ݏm" @%B$wQVg |@@@{ր@@ yɉ7~]uBǀ d.hj'( =qh%uC_"0%kZmFa{~ [JJ  .Ծ´cqk7 {Xp ª c tQiPKݸ. d49,Pr! ml@`-3S |@h% `;I揃c!6S; ߚ8n狞[F ,Z ]KA'[>p\3EXgoN-@n9 '89]wx0j8_ {W bUs0 o*ht%`-`y @@q-o7V^Pc/Q ;r= pDXma3rMKx0 PWG@5&m !nIԷ#ini5geQW^px9Bok^wknK$|np"e^nO~ `h;&E Z%$ àzM{p<䙿2qX~0'8r@L} J6X (P?@D>)9}6E'IcHm"Bt]+د> c8Cs4]|Q<2y p_Lp3Q zCXxfq  @@@J1C="hE`_;v;twxd( @)@=#X j o<"$C]ؑA69 Af "@%7(Dm[ 4dHbh3 Op2b@z %x7%<a+5nf6"^H@=8 g4?EXFc s/( _# ,3 @&W ×[q!Av+H SP\:`@s";V[+ڑ%zNWF~.2/^ hY:4Ղ( 81sW ~PR gy @[mߍ*piv7X{A*:#XO (T;B[A}B }+j u58_vj U_at|a=#EܳSf)*Z @k4,? E& (n(ÜS( % ?M$!=Ent!xH,#C> gyhL#9J"'G0B.*'\pv\=TDWX0$``eJA @nl<"<7-y@G)X?{5Po°.,#|o7M*ۯVʹ}zthOd @4׹cvSW ݾ^$0 h竁޷\%K.=vϬ4RF'ɒ~so[xɀ:}X=TP9{5UI'0,F>>cO`OCil}R<X}. @z,S] Xͯh 89 /ޠ^k p%@ԡjCz~AxUD Dr5$ilǡg TW,'& 8{N!] @,5WmV ߞS} `@A@,exƱ_SUoBF lh!n nbݏBvRPO*@-`P^NߒSu~"@8@-NaHcַ4`(V C@'b xRxDe@\/ @ec&ɶPLwG8v"r"=]O*V*W/ @ؖ/!@]S@]F-Խ @ @"5rx-ЏߘGG ] t ``?IO޻\|L` 2BSV Oh@ؕPLS h`_<UfR3D0`oPG"!}k*ܔˬ^$DY I0R `Ɠ_i*Mϩ]ȴ(& `4hf56Y _w!AT-JH' m `ޓ~S>@@O[D@ ܾ(Ј@ ,IsZV* `[#MK!`0N @Cr}ieK^n~/]3@S PD z#6E; uIxНB9 elJ@ /s+g{ի4^XDI?pL __ ݴ[|Jo?U7Y z8fHIޝd/O8uz@;w rTNI 7A! 1CC@ @{ ~T {9墳o`Ax!??En< H<~hkkYЂ"W.IgXgFy* [Oo)@V'pO8{t儊" v6@@HXGGo[P\Z,p~E+HC@xFF-P{quD$FJ,-`eAxG#Gܿ `0532@!@(,%p~ZGG*«:? a`><ң ~e]@@k~W1>7ݩ:nU`zfd|n(E7  ]g C^6JxG"^܌ mx!:Hx 焈*mK0s   u`M7.7p$ 8X I&@$0[A'dy7Ї~8V&Ь_r L}* W`MX:\:  q<`[|'=! fNy:.a昡+5_{&@w<?"5 #~.1(w:۵0_ x'n> &h sŻ;XЭDLN88O_ w̿1/yo}OG#c`"8vX=S@ڨhЎ`{g DaQ+[-;^AHb0 8٪Ό =m|$Fز? 9 M)Oo)F:d AUC .P_wn!x+[3S֡^KMH]mgxzg{ڞf7x)t7q ۞d+iwb詿䭇Mx| 1ӛk(r+S$P(P'5T6j7,Xbb_GynЌG kyw(}P1p%*)?YF-yjjK]Z1?Ƶ9%.mJ^4uqӯ}ŚUOYto\R3}rc{ocn-#SaP|>@_r(~qLxO5H>U@($pzG 6/ ` ee@@R$Fe3 )P9P [KAP P^P(s(@@P( @@`CQu;,fb  B@@qCetS"}],   ѕMut    *bP pJLËDzTB  * ldk]Tȝ-3y_@\jHXz]X!Dy &vPdȳM_XP(}y AO` }(2)n)N.BKu*қԊ6K@no\[ Ҹp}Zυ;W?2 ܯ*b/mY{ASDfp~˸VDDaR j 9kD @0z!>1ATZ#z8@ k@IOωM+,{c^K0M*l;p[)h|"%ki3+]|y>IӇ)c]eafpD+WeH|&LT~^XV`^Ê2=8vN-h|&,8;4) Mm9IӃ1#8^;myOR,>c zڊTroI٤{0-b;ܩ-B"qiA[ 9K'` La[aU8T9}IҴt/VȩV`gH/;'#~^A&JVZz\j^Ê'&QVv.a8E3>Pmk)Lc{IZ &U3Vadp$gbqK{sc-}IJӷ-S@;iUaOAx)@ @ ɞn3XIENDB`ggsci/man/figures/README-ggsci-simpsons-1.png0000644000176200001440000006577014570505642020360 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$?PLTEuIKүƹ7/,sݨIIHfaXo{zyD)RE) IDATxw:j}n`7[{<ʦxܙȆ xNA  A @A A A;@,= .qwIy/=1T8gee8 q@Q~yԎ /[۲йwpv^oF?|d 5k]K]'ba~,XV .bVSI`"8j j<+p8(j>~)eoZ=WU<@D ?^wm?7<7o&^wp8Pll݆̮t͟M( 6^}/&^@8@9H0Ʀgg/@Vx?ٝ{78ӳ]0?`۝4}~'xӳo~bߺp"ܿ|_V9tNh/f׺5h B z\j|SzkIۋB98:B <Ҷl/e{j8(4`sޛ|y6> 5({ԛ B??B|J@J`Zq8@nE?xms9(?^"e5g% 8WHi@ `궭iPs(ehH݆sv=pwᣨI>ٻy2[8юI3# p bUw1Md=]k6ӹn{1ކLkf pϾ9k̺69li2%~wffz 嗺Ogvu9V]ѭYNm `7?ASCƬ5=ΧďS;;|mBڛ5~Jw 1b2 m8_5E`j&l&'[ W aPs@?JE`s700X@Yܚ3QA{8QP-4&=HIcR&4^V3?[U45”"L*lkmU}$udnP)3jZ7nb) {iŘ)&p PͦYRWUO#8 J|2~s0g2uUS@ULׇwPELBC/ W̞_ I|t]ׅ_6Cj$^2/Q*vOF6):Fir/><] +}+[@.Fc UzD{UI;U</P:&QиzY>=& 6v&Y I p,,@3@XAc&b,~,#?怶5y7\dDpM}3E~ۅfIZ\) pgLle/@ozl>ɿvS !tD4ixUoqpM!0( bhiY64S9 @qpsBlub5Mf>A5!U=];U]>VUq8аV76Z; S_kK`k@.8f_8Pfs>26 Pc hq2W?2,c) VǖX7 p[|qc?O&"2UU|DnjR@ϙ^MW5g^'m`l` rL\_X;B#t h| 0XkbH"U=CT.?b9Pb41`x]T]yŻ8 ?-󽝃/I7Sg#e[V1t8LKMI9X5jt7 7@JU}UOthylg}7jfRxlVg5j5^ }fp]0$ ^Φ_4q6BܢҎY%-cۜe_[ܑfc޹h'a;`jd=yg](. 4LNvcGb8n; ,4Ix k<V6 ıfě&]bȟO"|>ܺ?1 8`ݯ{ _4Hߒe-ȡ#QbȊKa (FxV*ǛV2ͶURTH9```<#nբRzPd(@m}rdz>~pO@2j2i%{ 1^8 Z }ЗB%'Xob.@] _Hbג]s$nrmvDmE9$e? <Q8{Ԑd3= Wy%E1&7U'D"?{UxsUHzrH08xNl{H}煶RU@ra`en|$KDHʕEVzbW|\r0` $R/ 徿\(0@VBR^siP =|OzSQP}?~xIp0u4B__'{0}* n  ~}f|C@9w"D1E``0D\dBh3Q={3e+[B <󼘾XZb(lE5 H.^mGJ; 䏩C=Tl*'7v;yLc穔cK*7@C`z?> 1%f~;/C@o ,zȎ.IƇl@͕_~5ѽ}$ G:_MDO_/< OHf~yz5W^Or fjP2P*Ѥ & wuPoU,ye`f2x@L`M<:@bqX.5WZzLP"=E$S\wG&H a7o؍OBfFhd/A,$JAN6J=p:f?1Z;xyr?Hm`56$DeEci)Tnt8c2+hU~cZ/!rl#<=s8#ᠪ$[`!ZdTf+ ʿTe.#05Mחlt }O\#݌{u/C@o}] RR?l3pA/3m6^bhp=Bэ^џ(,U~@qu##=gd֫ 7Nc0qt$iZP|1 3v poY(=թPN<>gs;ZzJ D!Zw@W'^pMyN\t=g8s#LFXwH}O@`] L7`T(9,<?2yTٶ器k8c?3Ie<X`n܁za<+?B8d;"%#wB :9#[yVgJpm`ޡS+UQgXO'TiT!"U@N`Ma&,\)b;%9yGDu&0bA3s p@ܟP Ʋ{ZdKu:189!C@Q+bÜZ5 _G۟L ߯ygAӿx#_hq .č`zs? m8^ H,YPǰHI~cSX8 ?Rw"Z@M?'t"!>3W#'_]+IF~)Lm1:=Aw@uWz~z1O]`m!$ZN&m*̶rV$ÿصeT,ޗp&EQs.5<szPB ]*\ _7?O :b qh}zWP[N4V 02k@;`O0}-.5@_ _E)~/ЕYg(j9ky_DqӁ.z#k-&^O>wO 6d.j_ɹgzpiǍ1M:˹6JЂ~'gt ' " l kќ["MXAPlCdA{Ę ߢX{ط5" )C)23G L9' @ 3ZpN4,5⃮`|ܞ[W?kh7K3=>*#&G)pI۟1MХ` 9p:,v8mI!C &Ed{ojȇLUP$a-n.(M7Y)CأX[LO"f;N ‡Mfy tb4B~ӓ4c~hy` -&?M>=?1b G4s˩?{u~rN85OPj!8 IDATm ` cLLePçZ 7uL[ ySx]q.(XUR+['hؘJt s.0oHb[Ty[؏U毧./չUp+[g (eJhԌ?b0 @ok:CNY1 0[L`ېa*cZ4P0ց n OM^ `^;@@q݆C'BLGut{(JVQ«=kPkn6iȦpHLU,#R;[`k oJ*ΫxAKr]lzF;”V*w ` 6ޓCwo%*H*LKtQiK!CfW00 oJG lE¯*J#!xvBn\0 Ax<5WY sE?Yb`` -W Bޥ1FRj%eH u:>TT cLL"ZڈuzޣI{ pfQmīڞYK2O3 za'ro*;q]#@4"ܞ C0. RK6y k1PcϺO:y/{B p^6%`i +_xm^tv1T[W MI. XVzAjbŢ a,X!bwEm!EWHk} eܦx_ אg{K:n];-Tw-x@)U L }yˆHi@Yװ/:&{>{(`/|`}\3O] ,Ο 0F7cLύ<rGs}MHPܭx@UހZgLq0SyOy(ł Su!g(v(!7[@zOPY8 i^b ]@ύ<xQ'u'qi^ŎQʘ~l+wy"(׎nrXOaWM*@uue6`W 6p!7 T\ |LQ_ݢ,C @fp _3 <wm1 hh +gc+C`۲ҝ?qϩ8|.h2M:w"~_,Ƈ/č+}W o6!@¥J$$r1`P Fc@B.~X@{K\$I:* lmI?b!m}A`)yIMX|V ڀ$w g򯐘HifXݾgHk+st^H N1lG XfY8U_tX> -: ~I^.FC6nȲ[i>lp ]v[-x1v=fvom|OZ}mܘR!(\@:~@KԲBn߶ެNtqMyd{&~]!gt@-x[wL_(nh[uLM]v8 4(!Cxm[7~ıp)(w7X#i2S %Ϧ G2< R@Ng7m0(Ǻ2jWK08\F2p92)ԛeG@j;W3QN+19( F0c4 k,4>V**J„ʙM*9 f$ E*"b& mv[诈B\C*`+,;Jaf3ڝɌ@ iD@&D1WYY';sǤpF>1C@K@!Fovs *!@b]cT$z}"t(*a$i4!jfpp*T3'9~ .S0@Nf6 &-@F, |c#pGL (@џmS%GN P2Ykja/_&)_?gOkY%* pJSwP"'= k `$g<8}ۛ6-?ddr"a6sW\9waT5+jJ@\ ` Ai<@~H|j\&* INV?! -' $pW5o$¨z.;$;HC])_O#؁J&]`tmHal%EcXQM `Xbp;l !JI`*Y&EC%6s!S&I"  1 H ePɠ@ b `?HS zXrCڶ/ov<|?g֫QT ]v"~/k7 ]oSΰ2ֻb46H mZɴe9 #'c* ,֤#bo!piD ( 9૱Hp 0P5HZ„rȄ0}xXcH iN`} Lpf&#B$G4&B^vus;MNY'dq?Dy\ee5khe}M@ & \bdx1<&o>?|A'{7-9K@ 8'%j(h +$DDn9kHIgI`^*xad'9 #~/x= ܘC k S%G;>9ҏ_?1L2 LS2]EVsy`` @&;-?+o"(|,h11$ݢG'DINn 턈`f! [ n@阃 @>N"I֝XQ?8` # U[rH5j"@:t']pГw'Xޘbbf+ndBF_ HHXj|d zq],> ֲ8`|5CKl$9,w`BW%8HxI`e =+50 |h?4ÿ>otḬ )2@8rzZ: P%_ w۪U@!5cGSO]3 U[T D e`FN4ng(MYpLO+eM0O I.k;NQ﵇NN9* `8PfxL $(z)4N#ݱ8iJ~ӣJ "D^E@n {:۶/z[OpgO?3{Y}1>v[D"`cM&F)/P 2Or2Pof'8Hx'(K^K`:E7;Fߺ4B Bt6(POL!T]׃V`6m"tɼw ʥxuޡ\3F** "O7@> 8EqEZ]Cz]x鶗̨)2YBm0<ŠB4u" ##8T.*ucR N j˸*. dJ*ԝUKpmQӑc&&#CrQ 6\ ^eZŠ\>n_{P` I1hmY3!e&&{#qhtLL$V`1nn.HhĂSVg3O7])!1Ȼόo=H@!b`pz P9nf~D pxT0>ذ uu `^4 %H D"<b}9ꯃ0i& 3  ǀc,5φr  oP!L, qߨ# N8cD8\6t!d]/ UL|nv=gk |&)("T-v8H  0?ae |Cm  өc ASa%# @86P 7K!U-BP I\@ =8wK"X )[^l@3_4ߠt* J=2 UI7t7z >sgga. R@@YR+R]x 4 Md(r`+;`VQؤhoKxVS Yf9(u<^il(X2>\!y{xiX4M/,7:})(i(xz7S.w'P p? h cz,%#VA,cr=EltXR&*ra֤[m`W̭w.eI"w&[w4}^AS ^nSgBƞDW)|39xθjq.?ʟz YP u~ZWnJW۵|}8>H ֹg R> g}м֐ IDATمS'FO 绀MJ$ /V׮Ly s:T41'5մuoJs)Y쒗>FV`Me{=RH|NZ׌ͯi$<;*]#qP>^ hЃ:n_dI1E @ ]-Pܼ-3]׺׾V+K);%5H^k 6 tV`ƪC~fe5S9`C.]neO.[C}罽/RG/eV b*J`?^qeCC6S%J ̔ol#C6^Q:G^1AojÎx^/!4V?W8D /X 7; CLl:Hvs/;`9*L)3oLu]ͼܼ?D%0 dޝ,t:IacsOQ G9>m2=aN ?@npb! 92}BCY>՟=sg,\}c&=(ԏG8e_ #%' }Vk`. .2ƕvӢOKJ]k.ߨ{V_\"A7"{r]GD3ru*^+絿#p@ 1ƽא^Cc'[PYo|BR^`m3g? .l,3]@k@gXНh 􃲀*s e9<dH; 59 :ި .5J:p\MXq @"^呚})9>~^)TK/U5AQ  B `[UlP"`ЙX}1fuN7Ю`)s ,SkﺂU"Ε _̐Yu] Q gbRt)% ]HF6-jvֶw=v xP @ 4@h L H?besd`;jqnХlmv2[@ `IIk : A7I,C)=D 0}ϋWc*>|t_jg^o^aw 'Ƽ^@ @8/Heݼz~JCe)]'@`/#^%@@1RCD 'X X g5v  W2zE:()R0A`XHNfj<4ӆn7Z@DbL(LXRHlWZ G% I }M?_ZNr@6@Y@. R{& u_WpTß3E> |*>b3:Gy@~ Vm:/@;Op7YhgurLHR ldRPǖ7J`ٸ%C LtXķC@\&ۙ :x I 4= QOWڼs̽TaKx~9(U @rHu/S ^ bXC|g b 斐\a7d6j9=X;#ax-l rb})w/YY*HB_QL"`0*Ӊl@DŽ [> &<ɷxت@ї -4BX}ۈ=X^[9_\(sL"ߦ4r!~橪EzijpÂ8o9X`j}5n+'9B4l<5(UN;;>NJA:++&;kA 'vI3G#^`wǜRkf sH/OV[(_.`+LXpq>`>ϡv &A]+Tq_k@ 0>]RqZ\:H#@ `Y3P@! SYB_b "¡[Poo/Dpxa *7 ,݈Qp]Ma7\ӛ@rgo:i+mf4T7u\Ň;B#o^@X;(T4oYm~)[qv2;x4qEç~kxO֓eFƛ%9p=_=@`Y5Bu#g}/ `V|h7^ FbX?gP_/NHo/q of](^^͏<ۺbO uVUkZ{ӜzێwU=dÃ#ʶkeӘא梡0f*3yi=͎Y`)bdε5hپ \*W[-u}_L dKȥ 2>CwBM9k : @WZءÌpϕV( 1{H/~U# 5%B%jJ7Q*= @瀃%Nsg-(d\Iկ# 1@Y+Aa'WlhlW}\P=>W\HRzJfAMPk84 h?(f(g2I`BcޕO͑,\̓Ey @u @h߉cg:@tC=KJrXO w1" ~RE=O)*~&=(]6(I}~6 @+M<X*ZҚ_J|}6S|x@R 7T-d6RDdPz W~@U(Dr76Z=Z_& ` d FzܟIIAIqA>"Kx6TɰLIvZ `u8?#:idf,{Mn1(Y<w+NQC@N3uۤn;* 9H #I%\&@! MJ܆@ ))/`|aY@b039C@ ^`_$0??<M u0 X A3}&ui`e|6fgz0  ޅ`gRnt0B:`.ڣ2bq!IRPY@^p{]PKr_! `Y5W{"}@@+WܸggQ>|,Pp{5 џW(;xB@| wR4g83Pתa1 `P ]2X [OQ0:}*<˪"dTP 8B &M@P9+<~Olh@*u˱pXw  UMy$b㞵V^WW?9VkrUkkPUꆠmШɱpX&E2b?{$Ő`N &D- `Op&ET_$zPD PP1UAWhR" I/P'NEB®0Ф:y_K޹(8Q\euE(5t(*RPpm݁}.1D,*3UT׭w#z= )^Za&]z' F UxQOb@ LYNq-.v"@@poԒh_g4H5B N\}̮zߴw'@+.f蛟" FU}+jtQOb@. }#պ`x(e+9޷u{癏zr8W. `v. L 01u@im qE?x;{EZhP_`b, laM)#m{n pPTٺj '>61j h$ ` e3uC\`fY,3]zhbqva_hT%H _1< <߷b@fQҏq1 xhvR qˏG~HR-{b5]KPx }ɖ[uR_a 3tO$˘>)~ s2fv. 1Pʼ5 0xfp e] 5I7R@f[I愡@QY}<@uߘmE0^1yq +@}7*ݷ}gv`aPp4@xo̺kd#npyPi`Y8Z^;(J Y ]l7eijgN;K ("\@P)`Y, ٦H\ALTYEKJzBPl7uߘ7oP+CJ8P G!߬>eG%,Kd0QS50 o⫾SۛYf3Vᣞ@\Gߺ3A78$HC MW9D_fn". S @^@ y\@K#N3iC: hrvP~ģH.o3 Sqc-,@Mo&0M|cNF͗ǒP~Hn;ԠsyYR1h9@p*8 `%2O_!/K @P  =iܸ 'IRbqoE0O8!:m |ev @@[ݘ{&sQ_92\1} zC9 ;IDATB0 F?W/}. l@RoFx(G WT: B1O@lݖDW]<(%9?Ab)=&J< Q@MwܖAP@ˢл |R9yk9A#'<[@tXn1Vܸ%<(`o bXl& f3Yf#p37+9pzx7D EE냱E-U/ x {B `^]L;˵تzLOt 8mVVe#g)?cW!`gx7;r: p? (לc`_7{z@<5ͮ@h%/ 4XVF˼@7*=|+p |N(ti 3 `61w9i Q :(Q@r'_`s ` HL@o[f49 @S> Y :@$ `#4\c&FtY /+@g @.(. o!A x[! GXZ6Wl 1C @_?!zVtP2 {w9kЭ]0F[/J Έ$_*Ν+ > HIZs @tM iΉ<V'*ܧ.,._Ԟӡ `sot`LGt! G 1q @W @+UC\(h+ 1kT͵oimS{<*Q[`rxjnj+ڥ'[v&㷺A]j=ڮM8z;hѦG*ԑtgF/8o</Q|Sw#UUY#j7S9ivw58$l|G4'Ś٬}R̽-0O9l+v3I1_ X.#fZB *\RhjܛпU3LRT-bD8[V~$g1{fSsWvnL(F?Pߛo@ldޢY3pCUy0E jt\k;b@&O$ pжI4T)"x<HHgbD0_~ 6`m*(Rb H @ gb_2   }f!Ewt Cd@@ V kч3( 8 TkQfXC~iɖ.}N"مBQ B'"r'rI.Җl>tq(۵r!xQޙzq> .<r. я@lP>b+bP}H>,vzNX6}f!EwtJfMTn䕌*C횝L_$eQkLIppMdP@B#Dzz`V*eZ 2G8 `0 `0 `0`s`!6*E vDR7 UE|UcYԑs'UA6KUXl%HޏO P2/-Rbձ%_o+@ qjtخG oOA@@@75A*UCHIENDB`ggsci/man/figures/README-ggsci-jco-1.png0000644000176200001440000007773614570505642017265 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$NPLTE{sTMFLRB0/ ݗȰihildCׇYvzӣ$h1 IDATx읍b8F/6"c֠%ϙ0YP''!UFx !BB!@!BB!@!d MVޓ'gwDo1LHZTK`8MH#aG#|G0&Ix,.VɴZ ݈ Ѝ8ةX|_DF)XE/Ҭ^pk@H@؎GY'vQ Q ;GB(^az @ |0 0 ` 0 `0`  ``0 0` 0 `NQ1`c0<R x&wa0}kC @4s# @0`X` ,JJPj=x``YIӦ$ߩgWa20 , -]%ٕEc @0,][ߕ@+0``i٤gW=P1 K@u+Q钨+4Vgh!nE|N^\'e~s-jAnR&}tU+]I!~x0 v()ܒ,=0mQG$ZloQF`"tbX0]'U;,ٕE$}Ϸ3LcXQ9=!4sc=gW=$C?;}vedfpK{ngW=|`1`^ `C @0 * @0 ` `Cr0 @^%B ` ```c,d"F005D0 ` ``k4 X` @h"Fm$j_0 @x,DLb4wk10 @xr bkl;Q ,dQ3Ir 7"t+.TPNrS&Fv&E湔F؏^$7,j RgY`;v輮!5 3͋<X$O;]JJ:R^axMc񑅴pO_|s[k KUL[ > `,Ybځ@@m빏Z\s5^}6b/jux:ݟ\Go'2yLeI9essRW/)*WmIl;D_^"j `tS߯ZHsx@2{M٤M=N}&o}Y~jRwsq=$`$e7N-!Wx5ahC}?C@|*v"T2Eaf~1e,ŗa<d825 MҮT֪'C66Uc޸@}s `ٍ)܍aS5yh7U˿HVu xY]%>Hfp_: V@MnMfC@v7k1P(`&22Ӟuzc~Sxf0xb_mw*j@VZ X&w% ?L1rW{u!~ {{: 6*pxVR!^|r¶Z8H < ,S<H?b ޷?u5QU56f2ԯpR!g 3q/6#Cc!j7O#I%R't9@` `:ny_:URGMthnM]JO#SӀx+-s: @ QVm˭8|7q9C?:ݕO,<~gL {`5<|l@;2Ɲ$O?q{;B?d j|{S.q}n`k=kq)&WF˭wZ }d^@D?\ߖ7&jc|!˜ȘNgiw@ڸ (rD>G7D~j¯"ڴx'bc'w#o3 ͟1pb pHTW7g5Un-i@S5{+7翖WYJBg7=Zݘiw@0u7^l;?4MYZFxGjw6QlK }J-VGO30.̷iҭ*$pi+NE`#Hz~Q}?)7@ԕ{v5R8_i4޲[C8i|7h6gwbQ&Iur<Ӽ1d4w=rHzo<G  %(v3 wdFNUƦ&dwwo;k읋B:ƚ$\J2Zݪgbs"Ηj7xG+o_$"wc&;SC@_͑2Px >`4xwԁ w4^@HP1Oc?)opb8 (@ Pfl+|$IM\x7АÉǰR/  ;B  *FB\@o'T(pr}u `[0b>p ~%ƻW9 1;`CԢic7*l "T#Jy?\@ @΅Ho5c 2SLihd U OFFM_cwUz}ǴWQJ#TX@t4쐞[ԋyFc?vVBTPo5cMҖ-M*BM-k*"b)_5@lpXl4{MX(?d5؉z (]3pUU  \z=o_9IV״4 w(@i ɱ!ǡww~ ޳6 ٫&t-`:ر~;fV].J⯋mb* 7, ;p ֝@|pBk-ޘ$6G*p=†y75jY8T& ueV"(n®R/wx!`xXq @ T(pz oF#}a^7l*^ơ+B3!GJٮfͿ'#> woHJG, tn[aϔi`` q`+t^ P4}փ,ݾ!!0 n)V.jlK*jvN)'S;JW ~ Mtm,D>3~fdoW)>2Mtlf14˳90 UT$c@n5{F L n_ 33vMlg>1@. 0קZ@@{ZJ=lWjSwZ/8/-M!nB>Y65ob+n3_y `{)U;UlM>J`!}h :53*]?K7mW'Ƕ+@ > yo;7zn?m.ԟ| =Y(6Ï{C.u2>uug+T5 @ >X-A4~C^fzY+҄2/S݄!P6+B2ς"S yC @!j);YqRSvS%iʞn}*V gO)S4@ <f %X <2 nO] 3mb?:2ΦK|4|yG(4@um̍" |m8Awx!gYdW{KD4#4sy*6JR& (m9zF3ls~˟@[iBFWڱ` `'D\Cw]lGӀ(L @x(@LiZW'e`uzjp 3bWhm"pGfi?5 Gq&3)*V(rmLT{T/VoYU6ki[ؿ)ӟ5. $zu G)(2x٦!. ,@O 3TqRegMLb {=tyjd;I[ "@e(w:1fч_z173M:fzQLt{G{5zccwucuX ?ztNg* s,@(NPE.)s@UІ4BG#7mW;Ogpa^'$ͿHCiPPqꐖB)ل)U} Ag3=Rb_)ʴrVf W~YI7a"XK;* ĺ .tCⳋ@e(PNRҴGo垟Ƌ Gaa$UG'Pp+tM1h]E) lνI?:G,'?4?s kO\* W__dKH~{{M@( :&WLZj%FL:5kOg;?F0JQ"p)翯I;]@Od%/~/yBʯA/;#~3-"ydtyP1]'O5D?j4dy:_gL4z믦Xv/V_N]x;?G.uAzE3_[oG4`lP @f0@?cveYhhȾ2E,~֥rf#My B8zA꾫}uP \@g(v B_VzL c/6̺P  V6;YmU竳?D1mGFѱ8>GW3:,1iF :͛`E:Xt~LX`sVॎKhDDS^G(R5@d 21DAkZ3?@c#Q>7= i {%2c|w w+I~QIEЬ%+ٸ?#D Axܠػ8+dD"I)~Q(=z/c]O.tz[;iJeDT *2^ٟ4 E)" 9CSalި@eA)p|x.Ѧ0~E @[?;VfQ[Cpd ȁ̌~<hn'sUh)ae/? ?X(3F ys @.Y!53Ț<{+$ТWc}b:'@Ic} dżmk ?1D&nÌn``=`cZ9|_@+J 0*/,$6doC ^)Vl5bmQ$vl6XiQլRѣ7ғ}tTPJA P/пR~Z"<o!'RwXuG$1baBą>l|Ћ]-/;Nw]/0 ,Gyǎj r 0/OȢKjg/~}SHx(ܥ*錁Юٰۛr'Tɦ ],j>c&t a@` FSv*lъ mknL9}~{>7Nto3CQ >pHnLI×E`\+tR)SRvuo@`sxG38n7DV*3Kx $0/ S])uS}g%y6l:`˔q̫ O>o1_$J HKD?< Y6g7:;Ae kS9gw"ss@0˛@V2@{+U L (x 0WCN?͖⣗cq/pRGY`?vL`FƯ  ߃fJ Bq L CY7ПwvteVEha:m`'S6N IDAT}Qd͟>)j^ު< L io?^>>ZMm1]7ֈX#Zk/S?Mtҗ{7'|]p# 'zO(XȰwi ٛo}g L [@d>FW:V0,v#G`ze'(l 2i/r՗4I'ԙ=< L )qD ڂQhaZP.WAjl3H!CZ0! AiWdkK73dNÆN? AT&@@ ߮/@| h~D@f2!uOEBq3g4`7 ??E @C6Hw(qC@73'~Wj/JCQa>%}4"Ɠ{& xG}Y..VL ;S~c4/L5tb{m(! ZAQ@ZAϬp5}!Z3XȀJv `H|9v:SCx#wu7(pr=Ao!4ri$~\AFȫĎ "}s@d7`H[u;d9FlD@ [mbB(Nh U@Em\VPRRbhJDѿ 5[kd XnVHܽ4K%U -ܝa,gNIewlt{CoK%ެSzwh89"w\;/6F3:btJܔpMtUV;B2th JcŽ2m&I\ྩ@3 բd`Bk`lkZ_fW!.GNm`D>qkc{; Bbqv'2"pC l<gynm^x^= M1b !?aaPJnl!_AuA@\(!3&@ e`>8%\bXzue`L !^='[zY#On}d:Th8'?K 0XDX6 cpdIw ^\ sX_o9ţ%U !T?d38}1g{m\PFo@XFXncsD )ͪT8C%pmd8[raT}E{h;c&䂾JH$N@  @}u1Ŗ]`!:@|͸xx]2v*Ԋ2 p/LE`RDT𰞼I}w2*) Ljݯ8)""R*_F'7@v*[+ [^tu ożV)k<{ȫzXZvݰ/9DzR2Bt)+ü xs>0Q<͝|s-8\'~FIxHr'pjivT,)C5vń!y ™J#rQR^g:Bw`.@,[CG(MrX߱aJK3Ǽvȑ ɨ"ږ|nSOQa<-ہ+DDw%@&4 %}Ch}M-4srf9]t{4TaȟҶ{<8䁪/0$w[6z "D"oJge+5b4ua[Fr\ (4TRAыKʒH%ȃ MHM2 ΂ٷ4l%SAU?rkp{܃LRu7{K:,Qs쩲LDy p#3 `E$'(rL5P0ۃU:[{=?@nhd/Og^&TB1 ^\VƓ+-g+rM}r;z"(Yۨ B*|%fyIy!'BR6ff@8h`U+ρ}A62 oWYp7P/}=M? ?$v 2f5@[mB7p\\Z3[Pm8y۽lYz = p;g+f 0G7@7^z@X~\SxqOrA!ͳ h3H8{?Xʴ hH{F\kͫHeBi8o1`$ 0v_B1Kx![ߑ-T@ofs`jcTi;)uS;Mm_J#FR QL kU%A -#d+x9׼ȋX}36xON  o1N~%К$UP1yhgl{0}1C5x/mF9i'PU[3cڡcpVuq^r&+75iJp`!_lAFmw}!=@Tx 0q" HK7Ys* 6#4`]5*;p;wjNrxxSg4rq,y O d /'s,@^Ԑnw}@,y 3/ɽEh(RA+Txx `ev=+A5ǁMkaΘôDX"E#Mgmc~yOux^U/~(00B0`n Bdۄ լMj *ۗt``*Jx'C?58)2=a?uG@Mfy[BBxL.)XDaLI]K4e33KQQmy\BU"BN,hЁ~.:A{ =Pe~ F_  o9 K0Q"nq$4V&iExIʍJ؎`4geMzTjcRzC@uX+ N"QT"ځ31` , Ų!)}W2a{Zyh* / I?ot쎷! -9BoIR* j>IF|<@,Xc#XSgc;,PU=?H8 ~3t8@t4o@X,,[m%_)^C^{2 {]p xU_A$C zBچ^OE%UFիk>.uVZAG2] S٪v^#ٷZESdu*΍@0R{N?4 VP+6|@3.7=#Mbq+QMfqju5i\`ĂPص)p92هhe`k`:s o pAPsJ͆m@[N^ O~Idڛ)b #u]0<`M\#gBOYAM%yO[AuQB`'P6vDK¯rP<&/Uo#jгb<{$YU[᜹cfugʈex%Q,˯"`45#q+.7BF(ޒO;?9=1 cH#(~!H 1D lBihe̿:y1lJ?^v#K "d *|yl|t$,gA?n~nw@>Z7nw2"|;`]l1 [amx`Q+=_wGV%&iZjEK4X8U/W bnnruvj v^pN|n3]@4 :V0ؘn9j _ h.P=b,̼Fa4`^y Hy$ j)}ʀTXOoȍw^)'x[.d,? Ob\A@`V_|& Nzá0~(p}$BF`Ct-oK#F rSHru'!!%Gg P*m ]@`ـ$.3j\B??Ă4K1f <z领Mp"i@R8bs-L" 1D. +IB:e7Ws . `<>Wg3Rz 1Y7N;Qܝ. %Et%؂d\B"̿_ZFQrIX?q! ,bA"*1,S'S=l>U_Z' `0.)u,\3`w%840bn|F>=X:e:)Ciqt05bZ(5x- E㨻C\m'/hZI/ʫb#S\''Q"IfO%""D9%@vĺCP@3xP)HF[x"j95]6^'tĐngF ],߯ ,6o`$%`!ZƁl> #] ϙӑaI4cK 1qL<_FㄞU IJa р_f~=1 k8YbW2 oO/sԂjK& [m[Ns(3S*7>#jR Y9hI@E +!(p .-A3`o=U*%ykPߣ_6nh+߇GIW-,B?2XPh1|”ImBvs RyJ|tSh p➪9 .(7ec"nL!> H9 obeQb<{ s|4aI-fU$J.ŵ8u=,Nl!zZTMYVG%e$أ IDATc6Sԍ`q}E[PiICwy/vLrELrd R`uy*hQ+&}A Sݞ]ONbDe_x)RR{zr>Pؘѿw`4X _Zi}q;֔Jli` Aġ]{Aq n HY4Un|^K@sK_FGWWVp4JwzJXEY~bإ+3-Ae@DOF "&V\ j*<{cSgz N;p#uNNj/Є>Q4yC_(NW4tD0:ge ar!70"b=hɡQ(*Tx"8Y ^Q{lZL`ں4 %i5z1vj9{Fܥf21p50o`]4MMHP.Y(ȏ= @lj.++im'RB,!IIhmމy Tk*=A^Ed* [Hkk<8P*˓kgVD^4b!@ ;#^ t@R\K<7%W~@CQJU@%~+T 0 WF~Ѵ{4/RUM}5/G;Y@"Jn#p1hL_6 h0P~i~ *p:TX. h *݂%(w2~@^Gϭ;Dzh+KFP e7}+zK^̓R3ւА 6Oewnf?M 6eSu]۵i-J?쏌9GaXoƍV/0U@PuH? *-T`~eєHX?e6+ػqj)r:N5,еfJȐI.}8TB(~5ħ 'kc'/R04]yHO0 ռ-JCݨ }w>VX{Trӈ )ԣGaFҙO-J+X4gRrw|X%g]@+1xK45MWf3² \8)!Nv 6D"g'm ]y f ZjT% hQT7n?zkgf1Bb cu>)PkKC#~=64 0 So8RBٕ_ETQIH?a8p`L$Ǟ@a 6*u Fk) y gz"%\M$B%YSi<;@DUxoN*P tO`0 Б8;R7f)ȝmcd2\(!6S6V[fwC NR:_|t#wTT*Ӓ@ \@\CΕnb?'IHQ u^#7$|e@ 3=#9Jr!6, @@, SWozR;ke@Z@=4seVHFi[S/fhCFE4q(|E50 Xnۛz TcF"aMIөH$}\p1Se`7~bͦ:c. >qQD2 (P1:?B`]i30зC ͝DkXK ,b!SS|d\4D)᯵. ^@e {?.-@aP?-9!$ 4#$ubxВ@)j&H 0 x @1hB$ߵP#8jM̂fIS}\]j>N]^jW (1`߱4a 0X <@]XnTaSb \+nNéՎQfV_8]̰cvMvamĞ7zU( 0zU`M)}sDݟxĚ6 fN* NaS#50i+voOq<٨k4ʷYKxvTa YQ iv9{ña4])B~o+yvb@G;1MUr&Q܃Z+gFk`)ou Z(;FHƧ6Vvwo1]pp{+]@gHyPԋ!Jzu g{񒎹moޏo,sFZeΠNPCnW>\z 1eVBv_aL5>Ult߭ WIc>4zIybmBtyqۛ?bǖRQ" cdֈb3+<]3Jjf(hPcd;novizLx, kF6I),Y@ܻ:j `6I2bA# \9yi$$5X0Ot0]9T՗'sֺiGG:Q0O/M̑JwJ.54QC-c*OK:Ha2HnN=e,(V%TlV< ~ldK2" O\uaxJPsK2TaK\HALF_C۶Oa{\@g"v|v4A6K֒%e/bɎ ̃iejJvs~z~Qģxaދ4\;G }=xkSbK.b IJ!B8z c[$?\dIy ՗ڦ7>. `P p&}tjO <7 9e {t &WDfh1>lXN?r9NfF)`v e΁F9YxF/ˤ$ .vt_@bu@@/:gbb>dlh8; Ь`N-QSлFH`]rUz7_U4_Bp$b0훓^>fK~8ak5bPZ, #'ޏ]@0ޘ4P/F&Ts,9APt;sDX4'¢7>ZDf`#!N~$Y_ɳ/ oQ6i,ޅ'SƑ%c#550pkciRǕ`Nْn C0@tTbd`h 7*ʀ,xPS#oOr-Lhz#?ZY e &9IN^ L TκxefO`5R{B2PL!SLqyz $D~ n\Y@a R @BJ: K}/`?`L7 pڠj^ e)^P@ 3ڿLǭ`3bp: N@8k0[7½̷֋U -~H=|ÔP@[4o JϷ.U@Kx"R aĚVeYa"ID_gW>ilY@<3\@aث&3md0hj;gf&w-@i,1A@2DݮW("&s(& ϯ)VU԰d@1(Sh0pL& RD;@M@)`YnZ`sz³X&q{;!-_KW^P$ @Lr@#&'0)"|b_q<7 jxKgP[l҃XFakd_ <]˘o̧M = `d* ; C-z ( ñ?K'PMzG >*#%hsϘ!Y e\ 퇀Ot+4sqmIULJA@kU L _Wo]|  `luEJK>_E+H E;bŘW_|z[#bU ^3s`p )T^T`Ny_,?Ug0q qì(  L  • 8yix<$xї<^>V@tIlStT348U( &}-0*c|y7&ocD]+ H%@:S?SeG.߶aB `Ok@g][D 1 } k0!Uφ"37ŐX> ޺J0! H2iBzYg:ZY=a'?HL]}s1l%O#t@6HϘ>*|K@̡0uT@q]@ P7l@' ,db۷[ |Ԙdb~9foQL@2fҵL@W "0> HUssuuhr/08qV+]2乨R_F >JMr)LL7yo(6k!a'C'p)sZ*`ovGRP+&]pu y;Yr>^2Yw ?+ :.hAq(EF$1s#4V`P+}_d+h#>^+54-gd6Vw }[k+O< [0[|L`sTu5&~b2@q'/a?` >6आzzWl.HRgýo3L,d5}(LpS@F#ke'>_H2_[۬UMӪ">CC'lM^a|¡~LP4dyz\&a& sm]#;+b?lXoCk[\n2:DNKxH3.)"FGM]eо^]<6$|z1x]db хR޵OQ&T&W@~"(v 9;5+[&9! x-l4_Łρ\yZtB% Z, ixc] N|"_J);bݗU{bAH$`(S ӍF:ԀN8Z" g ` $F9uxt9PXU|! Ӗ%ҕ0jZpx&!',A$ybM {1~(Vm+6UX>qi`~BK]`LGݨ)"= `(96搑yF6Bu-h #(1*Qm=HOeJ `j\w&QJt 90y>uD@Z^RFnnObS9l:,W;i&RDDOR< {bkKJƊK8.\yqr2z kn[ @ !gRUc '6Iv#aЋ8G?]>%>aWs&@ M@gVƂdNlM:c @SD_s3@f] 5l @ [)|`nGDrfB"ڛnmVIJ1Y" `Y<'p L }@$3HE 6R_1lnU8& GXloH$qJxHXN (y&SV5}"2W xPXWyqF _&3+`%S(z#м&X0[ ]RdRޑqiT# O G<ZtY: ?p$G&W zRSF@Q@((V4"MJt^`0BND >KU$ߵ+֠4/ XGY}Ʒ| [ B7yް4L X a}lh]™FMJIDAT&@ nmG=bpϢ+-:X4mq)"?H4n|wߋnf\ 2bh]ƙ-@IxcȱDy>;೔p.5Y$Mp3f @>L7A](a}\ʅJ)8N`q8նRIRDoFY]0gVA@ a ނƶZXgO'?p]M@$ :ʓ,X] x+^0gRQ ,0V.Tٴd56='  ltjXO)"7"qR ^\}YR hص[On C?Lpg&&;Ef xPQ&@,n qN`QF;?N+K@;RuH# xi`l tO[F_}қ+A @EH][}q+9? z @F9O `'cWSZ^o x)cqbSt/q@66cgcͨ:yAj"Tp"|@_U`uW.s^qjYm85!Y@ uBO 0x+~A1imֽ@VVe5863C/p,~]drru]c`> /. @_M5(9: Ny&"Jϱ\]DzTGGVdyP+uM6 `1Rz hʺxYළ<42"2gcg3ܝE R1#Q3#/sxx?/![{h[?@J`$2Ֆzj/6/;A'Er4M@z@٣$ 5d,_BEpx$%rߏYSmGg< @|N< %3ȟ@/ W@  ',ce3rfuO+VD"K# @KzIC^.,/y&=XYKŽqUk$%@Y]ǤEyz$:sDt9$|C~`OXoBI#|yoJC@KR?9e"El"*B0VV%E5yS`QXaGNs rzw}V/qS-, mŞY@ 2IEr=amR{I<xoP]q{?}`nNE@t8=.nj`/6mؼ>4cx! {|\C=lLvB<<iN! 8U:&=hy`; 0-e/?I5:؃w{'/P4kF&U |l@]-[ x}ؚMo Z% < H4x )ÿI%"+`ЅpwvG"DIrB4w( `y \XvA'<ϳPC@ IOPj3okReT;nC ߪUpF&U i;@q  ;$aiP/s3T[Xn?XOL}f6M"'q@u迿&e\} F /} 0#`  {AvC/9g\p32D$`  #@\oZxۇڙCᇀ@;%gp xkLp; 4'"zŸfA!' 31M @я Ɖ2@A;%Wx. {KC @bؽi<}Dȟ=`+><" WU Jۦڸiz؏NW&,Hq=^HOL Gt00hAJyw@>9pR&ug kzuZ^7f (5@No轀^imu n$ G9/NH3<r+ q@>D)^@(`~A s68瓥AJn,|LJp8 M{YvB"#E< U B# 0$$`3u-! x;#<@uJ Xt@WK B|7lEN =>5 ?9#m38uE*yJaUo}@4g ::r<  BTf ' PD3>R >r9@Cx68ěX+N@ x g0/Z<+2tsu :Up7sK @V]o>2ӏ5N@ pY ~= @yU{^ S/B*- $^.8ƛh:F6|}(GtLRVlV; <x[&{[&smynH۪A*Dt@* |^@sy68V`^@ s_J`N[j μ=zLH;nF?7Mw>`7s, q^O; &lկ]^'|^ (- 3xxVlHf$~AlSxĩXSrJ | /[VnJrf4@+fآ7 _wnߍߤ-[A@+<oRj63w{I_Ne { EQ2tw^Q5AgD~4/1]X]f_eࡷ p"zf` ވ7dωkʼ ` kyMs Q]u 8n h;` 0oěq|5>?\j$ DtvK =ͷ@7!<Lh'!(R P3@02{ c CF ~'@|~WN1AWihVil#OUGA_Fw{{%9SuOu0d?PM0.wd@WXJ3 AM0G qo ``& H|o9`Ò Ҭtvx'Ѩ}ś]qSw&pqTo"{ @-8!Ȣ,% 8(f6 $]Y=E+,@7*4WLX Ì\0 wR0e8%"KC!d=nj@ { eX5#7LśD ^e,83C`'1rj @w 0G'f}p4^@J(d˙lΘF",CVv~\oyvW73 U3n! `[.pf n4` ŸlvW" 2屖O` 516W&2Z:Xhn7\,x .E[uͶa7MX`kw .xI[-Wt6UW7m^Ėt{G{N^nKR_ l& ۀ"5)!v-F 3ӜL=oM{ӝv#0ȰiջmHGqn39~ g =[Mɪ~;n(FK"R0`6 /3Chx~ 3;>)'X?MH+QZ`3@ F 2@ \@ C0J$d0 @6P|@0:SveIt.weitx2E4Y:be{}eF$Yz@0@]H$KʼR@_*iT**v0q _@0aAŌ]H$KX,֙ҧ?Iuw46q ?of-dft"},:r.4]?iمJQvnfX&,N @3zr/-\2 `A @A0 A  A `A @A0 A ,SIENDB`ggsci/man/figures/README-ggsci-lancet-1.png0000644000176200001440000007666114570505642017754 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$ZPLTE`DCG 168NKN͘hhhGı%2uuLGI&f a]E]ax IDATx읋bEc7l߼IՖ%24k BUJ B@! Ba!0BB! !Bh  Rr={OS=?z \sUpW!I OIB߄ߎh o )*+I *lJ||NS-{ #na;LCUOO}a2 p$@k8 W&$s@c2dpށ*(P Ь9C2WkyԺ i@POb*L82aڝ  ] ԓקR+75 0 `-@  `@@`@ @Z  XP   55 @N@MJ X'UAgZ`A @ I_@b5 R1P' f`KYB@4 (@K jLeוSjԻYD @\f?SaB@|L?9 ,0%Q> E0|x{-o +js@  o+%@ s1,j3Dx}}h@WAP js X!8?@  ,0*`> 5 @X<`@X>nD `& w0@0w@ `~DB@?fw Q~b!\oG-UTW0FFL<@ PݎLz L7Ng~Ai)HxDZWBKΫmOJ*ՊdQv\-}2{Ev錠TP,?;:/jgp/ynp_YJTyO}@Օ\>$LHf/:lv۽]`(!POڪxkw>@+͉QZ$f_^ʻla{pHvNNM!^i `J/.)ˠ55oPF~-ѿ(8&=s'x':;luffINMSw@@WQYȾP@V̆3;vc?ڍe pGu-FAw q v[z8< M5A.0keDַ`HkCɦ)ݧп\;n lr hb #jwأ iѯ p!=ɳ *s)3u!R@Ə]U)\) 9ڵnQfS @ /Dmݶi3g&@.M10Ll˙ώ}⺾X Hq:)|lB<栣޻a,zmC00\HmǢ(y9 &zt8i-7 HA󧀄x\o_^^~6.vyyLgSS@_+  `i  Brs37ߛA;9d:]Wc) g"E}W9" xg} @=@9;;y ieŮE(LI~Z6/ wik" > !a؏@s6uDN@})~- gˣ`rWv!fLu  9@:j76wwLrvmo+5ƄA@}?NeAjZ*X(3^f5[ 0Pud"Q3HA2-~p0 jОWġ;{屏ʕ:)lhRzg4Л5 ]>Yܷze3dBy/'PABħ35*.Mlis%T`Єww?!lxcmVcߏ|MnzyaZد_ (4-[g]i;xG0Y%l @َ=yd7!u@G;`]s,S: 4Z@0un%PK8` Gn}(C@@! "r39Z'eZAHLj4B[5xu݅Sf%5l&^b)`JłH{I rnPA ]+O%n <   %!~3$`fd\Xf;:rcHnB熀>k#kW_a\`GLS'Y\87/2LY?(  *ہ> ԙ Ų6_[?q|9 v W,36' `>?:Et,xM~7=(@@! "xs^vkdwfsE$`Ϳ]X'7%z`inY*5WUH?4KEv>%4>oa"fXdQƋ&* H; -+>.iaIPHE* qMZe z5@@ {%h֟ @6m+rB.2@kos?4p5mX,k8Tp^C"8 \H)ѱ흒i'0!=j@3'7x7 "+܈,K-9^|4C3Km1#N}kQ~VnmWE1:P|   X "/HtNbTּ"( @wH}[?v>) #&0o k{6W^m#5yIۋ_~FeBetM\UuP2E@@@`K %ٯ` xΌ\ u}<"!l^[ I"iGN/.D?H֎m^7h D6Zzi):jA+1 ӢIk" `oYz(#. l$sN27͠' JΓq> qPg_:,Ž2&[l    R!= Єi]=jN~K;[ VBR|NF&?qywݠt[֟7or9unqU^& x v!B]~ѣo|[j=ج1NgLDd-D'4j*!ܦ ""?H"X[ %A>S Wj2h|/Z# iޗ"e+t`S֟M §K( L?T`4k `3|\ 6PrE2ߘxWn]+iA@y}OXo޿}h$sO@*  8 !_z{Eem3"&2W^}/t՛n[ [_Ms_B 5 J~4\!&wX"@+ @B@D"uf1`* x|;,ѷ)tQy!20O઻ՓbcƔ< e\ """"/=AL[A`A"^2жDeOX+ &"PMTK+_ @SN0~ d$ߜ:|  X; Vv)%0<UYmo͕1q\ ~X'c_k;@ BM2+O%DT{@byHƅLwqDf {holŖ{S'D`62hJ@gL}?@|ywG-#Ow9r~y<p(oOQB&` 54)} gRthT w ܻRObYXx| L; !<^& vۅՠq~ Z$e$B =…P%aG'?E1N) f!3،'P.X_N*&wBX#D;UVD(p#Xl n:kb`eH2_D'{}X Y A%?tG$N =3axpEyj }\s¯.0 <~~՞釯+"V9*_pf0 g(C\o7Ki9Ȃ?S0 W;UP8:(g(pkatsx7-1 pN`R_<`% _/YU.pn>w;.Y QA/AfS#Fpcb~5npV@T՝o's|?#İRS'0y^<`%m /U{ȁ?`}[0-Nv-NcMw9:y8K2RA(lHFU?XTczz)W< pB@D IDAT#ˣ6 {0{ܵSEl5o<d=_m'9QlS|h#)R{)<ߙM#O~n4 Yإ;y,y oK=I'pe "P݊0@3)[)dF <SX{ :f3,˸:uqUof..Cm.Ϯ'6.H)2;یw!F=@ (J+~r & )f"nk)k,wojrWV/)/CAH$@MuuF$uH ?oV @ Ox_5l) "4E뷺35?rh5m[Iv  ;Y۱9@)HkF*$G 恪Ցw_7"?.s 􇎳.$7%+"yEOpl0`7lc~6)R?(D ^PӪGvFC42r6KXCޅ?}=ƍ-60 BDx'yXgm98A )R{zk) ?_F͹:|28eEL}S:/6sNXOcs&yb308`sĤ l*(pH(`V))HT y'p}%͗!RgD>q쵌'Y_]ɑ@ocrM h0+`A! /H@) R)@ &4L82D uzF |iFo}eYtAM$q?mIvLy! Dߝi2Jg7q >r/s)RHeav5'}:Ud*ta`-+rpȯ Gĥ8)L hK[&),g0hC3RBF"Ƒx(n=H@ `/ukI%C A.c׾ZKWLۗCj_ 9&05UںP9"ȪH@) R, KSX1}qЧzU,_i蟀ڒa |% LpT`Շ)!@ *Ǽw72~N^`c+AYb̔}3͡+ 5/yD\ao"#  0CRMZ5Xf2 cl#RMssE0%|4t%c#\Ul>,N%A E R@ \V ?s3e$2)Log/PCi4|ftE)RH<PM Yf*Pe:T; f`@n6L#>S~/3bS/'@ <Rpi)N0n7k} ߊ?y̤H|RP  =6pB;|f29 1ۥ͟Mp!Sw!@ )/8h`.ti\4d(5RHeq0Z?'sr9yP @)7\ 'r[ ?u~2C4n(>K>Ѷыɻ/#/N|m8+gH/`ԯ\YW\-o#R);=}K[!z<¶(374>2GXH8M5o5Kmi@!kNTDL2Xu1vQgg>F*T*H& s3\?:Ul|Va<<o,4bp}"6VGb9@.h9.2+01L"y=k02:e`Tc *Q ylޭT/ʰa,5e6ؼB2D:7 6/ <;[Qd퉎2T%N0J<Y`U0= <>ph02MS h%c@qsG_Zts==@LwuL h9Qޖxy`F8U$1wK\ ȺJQ#_# 9YN9~"l/ ךp-a(CsrZ@avۃʳ6^5ĬMD6\:-B5Eo"l5;01 M0BR}@B0yQ )hON<D. }<3pS/( p{ ږ+>HәFfPz<Vj&-)"@{D(*Lv!)scLm,C˗Q.F!ɺ1lcӊ_Sl 9 -0Tg@2+v<ѡ[5n,|\-,l]el'%7&FO"}^?!Rl2;vwޛae(=t"]w ~@ZxI\a2f=hm>[Z6H@ID?s:ºn`m[Bge~a*lWN{)u w*h͝Uƞ[@\  M* b`C͊$IQ߾1 ek̔rh8ܴ'Z7U1B*:dًY5]İ Abl,(0t nM1,,[Ti~Q*ha?/6+v1n\}ۤ+38f1;ě%*j{ެL%Y߹Nd S`d\ZO 40**FYߋO\:+ΚG.'׆{tdz_D =(O2;W$ZK*ۈOV!cа"5s=W| _JH0V &64x0X1wV#ܧ>KA E0 i `? @V[ ྎ`^ V@Jӣbϟ}VQDz>"Lg1gtvYpjZዚblWh `(@z;W0uWr^Ӭm=HݡqHsNi%Sջ.cq _?{W5?5tV1UǵUUPHWk*Ru&.>(%. }6%P獌@E 0 Y=Cg## rZ*҅*l%oQIƘ10%Z8}l9 "fyLt,(*~el%x@P ~><@A`֝b`J 9y$Ke8_4[x_. qrWYKк}OPU4Vic,l`CC߶0ru5RmPH0 ~keaB X(|0 "fT >K {K6N a<aebS|)jMb,~D~ p0f}sma  N"_&d@d`-sP`Pg} HsgQ!u=409c & rziEdj0J PZ xfU;o (.D> ^d ?ߪ!P_aA>,wEg* ߰($;%#H/_t1/⼢ET9Ƥn:D$aʼn@a֗)\@ ( `@"1ph GhYPc;$y/҇WkWG!8wLH&Ņ`y+ E3bzPTԞ@ew>a݁ > 1D>l(tY8 8#b~!wHE8O}Wq˶)?AD8bJ*7PٚM`N3t\9/ kg1kpRh+^=)<0<9<\@%S j>o 1tFZ<k:CK/1`QlmRx>^o̬;cwA۟'WRx N:. 3, o X&h3݇T?h#ǐ} pz, ^F@3 MZ`:CFЈϓ3Ń=Mb;w*~x J;p,pMh@(ul9Ejm|t=}fs2.Lr7٠ 2LS.Ha2P5l-8;#SٯyOvMxm]OЃ@J+B;ž3 o^9O>"g7 Hn_?F=q{/L4-j[=&SX0*ǎ4ަ?@'] a *Q@s:j%흱A5w %bu <96oLlsv] bh x +ZDGAeWBOjg)>o'=8[_QTDE3hN/=/38#}{5 @x) 4+wDžTTET߆p 1 O8{;oz4-#B?.;4J\F>;&NI *TV<`,;3W{q J%5 t<,U߃+cTQ)b>~$9[lTw*x|a. 7* J-RyS88xT</0@Hp*޾b@pHK@^_J~-hp&i &|FMT К͡iL!Ƞ 0 dCIؗg=ď2˹6 d=gTnPH ff߫@ ?H;y_! P~* n"zjj F * IR5?L\6dzxݴ+nd^vq6(X(%k F  ߥkd7_A`t]t]#~ :|TSO.xumZx,EQA` ]_xlm0I_*`qϊ<_[RUI}5JlŻKba ~hP `>%+iuqapLhVu!ǁ_䅚lOUAߣ?$lH)mjTP^qKUHȣv7EwGKBԥ;Ɓ ]w+ TE^$2I,Pg g@wsEu۝?9wcVH]r@cZՁhMQKB p՝mJ1ə3\nɈ m:g [S 4 0A6',r"Rrde)̿W-{@oy`Qj9T T10¬sQ/Qw32 5Y @Gy&W.7 v}f%U\W}e \3& Ch *mCb] G`ޛ hXXA$6 $he@#X$ wh`w56I E'큞 DXPݳ땇B#f5Qց.k ׀htK-s"wpf P5*3d <Q,߯jאW!bp !N$qPk:8Fq9+,N@_rja@1t!XY^a@vAˤ,WToE]50;Hd@(EuMU+\@; F@8( @@ `e \aT4<狋 jqHE)+ 0dֳdL{. ߢRAƑ `] 8Q0Oq @4 4hTh ᦿ2id^U8تWļ)1U"cZl69}e`'`}R8 lA~:=֌kwJ/R*d8 JG?iv5tw{&= ^sWcri&c|tQvd@V~VvI2Or<6Da1Ĺq{6yS~Q:Gھ:nc쯂m׾|e4PEj$-6Y"]Sm}'R 2މl6W|2 4s}D6Nw W5Q@s2[e[; D >(C:(0)(' %kHЛ]'Մߠ@1!vmCNRX̯f@d.u5Dx|3.< c&ats0u={L֌Hn_*:G~Hh5љ좶Jj3=j07kyn.=[`hFڣN |YdԵGIa=?KsFf@SFyz滭ۦb}t;j%ۖ!&ZBJ#WM!Zf+K jo6/JA)]{lP 4f`n@~~/%Eo bA}[rs.tm*F)`2I;z_߰L/iT5/4V-zD< hm;&лꀉfKo<%  >i0)G 6/ 4@X+X2qcec3au558٬<-x hp-"%djC@uQ.'snvKA'0cddAW:i1>\ /{P+RW9@7/cLjm6ml?Ysa9;DKϪ{GBovߞL)JN~ 2:NQ@0Mh!3а,5LQы)̣:;Ň~ ш`n* #se);l>P@Vfy `fE8K?0Sz?dEХ]s@mn1 6f+}5`ƣe[qf^go0;T kbrdE 3~e 2: h~,m\b,0b; ) ykSl"Q U uR$QE2@e0T'[P.5`1E2fp; W)$ a';hx_Po^* cU ,B&k&}pJu|tO`|dgCMޅM]o@\E!  l! f@ ƘQ6}{J_} F+QS<2x2: i>^+'꼞H_տj. ̇F@ nQ{9 x hC#L (Î icl~n!`"׻ΕuśQ8 @Nb?Jd7ӧi'0 An-љf˯-C E+T]-]+{f9`Wی> 2dlX} LUvZ zvK8S  ,_n7l~7C?1 >H@\dQd(@0jr|S[7=ʌ,g\G$h !0 i(dl]@j|[ [\1g(4%h_>Bۿ28Z 1(tPj\.пL9\n/er.c=2 r>{syR mP @ h.'v.P.gu%^VC~ʂFjb_ 2\芡P@|煁a9hy^nkܦπ:g ]F[P5<Ñ @ @}2@ƍ@^vhLłZor_ Bm*,3t! w G$ iТŞo@|)]YP4N=nd XOExa]b:3aHR1μ͗ A m果J>E-{6wו*…ىYi(Fh(>XNtaS38 /&!@O_o>qc~x_  w=!o0 @= ,Q !Po Fkm> @1JrJi ,f2oR7 r_CnEs4J{ϠDCcݖ>J"bBQ0EvC i"5w4TKyo_I"HD!oP_cICPhW@m#:55& &XKߗh ! Pt }ma8fN+db< d'2)1& -!0OUՎM  `UoUTznPDr{"~ҿ ЯX)aORoķ`GJkIXhX6؇ |2uS@Zo.G6z%D`+M7$n X06hin30?`U%Pу(8-Ԓj? PSB'@2s@ţWIk-@KSʚ ZxRެVo^2}Ŷ2/D䟅B傣EWTYGe;nO-(>0+y9*8A0+TE^T hKA RjPz9w7kP%@ N^06Ѓ)duE\ ? `y߅`Xcչ;Z\&02?BS0 xܓ)޴^Pki<'@-en|w*.g{Յsa!Id5TH2kb@HM: 9Mq8ddeP$0`X\wg<1=5\֚<-QpDPm ʗ3X' EVi_ }靌W@?}|&6_(EՏ6f]I"`[aR%N(b5Q阖STrW~~B@/d-:2! H j L@+3>o5P~ZmxBE{Th9T)(OЊyJiky _/:Z}+cC Z>`k3>C$̗ȓ] lऒqbk}~pkeKAO>hVỳmBk@(P d!e \gW@1]J,]=&5Z{l@@+=)̖6PoAUb;XwaX hԍ],\’h*!S11t`c_؍U mh<Ma5 mlB00a ; wPf]2dRwIۇ{ޔ@0M@;`R+y Y'E`q.,k8 x( ǽp_|*a 1 Y}.8K%~')Ќ0T+s4^@-M@~ hx|-?WLvƔ&ӼufRq`,$@xBR !U ff{Pvb?CZg![3z,ktG N ZvSL97R)\H_):{j2VR:SӀqTWB -@F@;ܞP^Pj_yst;3Z9PʿV1 *o n=!7^PL+0Ĕ3\*ǥxcDfT奙 p{C7g@I:TFi(3 .7bnnsh l 5PVt}+2~( T`%vl#(&*< ȳb|xYMz-pd#vDo>>WIDAT И qE_k[0^( , 36f6Yi,|Ũ(yFՕycWjV?&jf!'0 dެ_[n< ݵ@r>|Pp!fT5yRչм"pۗ`0D=d@Q@ɿL9BL1@͇b}b( ^1 (lD"/|>c8mGe SNQK[<ת:`s}+ȿL9N@6:@:& tvM%d^{}"S@y= .z"yC,UݶA,'= L8XJ~`E)Y;*~7 (87@41.^BOdA6A h-Y# k1N$`."x_8"nth/?>?sJAdZ(֖oh[OLo1H~Cx 1?O)ߎ=dXІ]@x95S!dX @#d}|%!k o #,-XR0J@x`"THPI)= e/  X( Ҿ 4m臈o~Vڝ,p&` Փi XJ*M)7he;q .x X& w u`rޭ0+DV'pTy @@#x 8dX7P^5LR# HA$8KͰcλFU}W< X'Wr!ܦ@&p:#z지]gC.& @Ԛk5n `[+tL܈\O(`ȓKz(ë0isH@t>g%4@('B/U@ (=:ޔ c+KA ^@ ) 0g* sqzBhgNח ^p@zf{8RNAvjx@* zdÓ0)~:'t&j`~d M8 BE/0 WMHP-C ]84B zƥ, ,C,_kx q`&S(LJ @O*=)yJ;&P+s(3@ @h` (3)Abq>: `O ) @N!S`9~ʚ<ջ@R@ V ӮP7bTMn扇Mlljo`s)  S*bv.5lfiފ3A `sWRn;1WZ6L_l=deO`kl*~]՚^ld8XpDvRzv7!L`^}WN ȕ0}a<+Z5]HnPf&*@/ } 49"5ֵlZuZNF(03|8ea qdBD* .VE@Z@yH3iCR~qОF%8K8qa 'Ku+L`qB'?WA-ܦvLJ:9i4 #b7cq@r,>ﯙDʻ%^@[~uN) h| ~!i]k@@k T FR#zx{ﯥOS@w/@xr?pwNF;:nAlzJ~O$+e pB/e$ 3eh=R,[X$͆h(JͬzF&0=SVN,f S/A @?6p[ ê@'C/) x[7lcf%^ =yoŎ xxx$l4 }gєRGQ ~!g:@" +RVF>t@A g` 0Hf_JM [VLQ-N@A?`C0Xx[^m+og_t@l@75N `H㳅f5-x*lA$0 yR@T[_C\jw|뚶RA(gx$Pg;> cEh(߶B'ު L ;XC\zmÿb߽|d's0K @~S &]W>dbt @[<(w0Tw[K!WEeX%=~x p>NPUj5X~*S~ @o@aLSFڬ%j7Mh%{/LC*{@@F0B"UYΪl tv ) GAk;4.{K߷̻ a鱓k[A@ )L`o #o+y~, FJ^[ TAX@ h`katu%r9yIZi#@"<#1&UP]!Xl/ bS@20R;ھkK$0 Gp)u;a@ `q@ HcE"Rv;/_@"~ ؍K#64QsA# }79 !{w4_ J${2c#Ӄ () 0S@[X?ZCEĴF7P_PvA%N[CU@Ir`F?JU]}_#?k"@SˏS$N 5L=neaܟ~M05Tk΁@ܥ?`60$ !T'05@[GiT}Y~?2ōNzB"&@ >T:{SncrĢ?E8NR~r8>3A>=I)tv:@>_Q(az@ @P<2} <އ(_R a9<8,x3 vlpYVh `;DLă@k"y \ `r_[ MHS)(R@/yI&2ScAᧀy }%ƒoZ{$Dude6)*oEΎkR͓@,EIKtmd%r0oPU~@ݤB:;`Ntd-#&L ! τ. S@[$0iI9M+vdwN!)n( 5@* P9r-ϯ) C@PP*^0"r, [Y|ÉU u.TiѠRО 7.9aZR' ݧf+p-!Y`e-X#^M%Zc3EŹ9[@^iG  YBm TmPrrKyxX W^9~rs Z\^xM$g!/6( O ?;]|.Bod9uX} `SRt |>5`L?%c1P١XA&Nz@\EP$v3r @L6 ] ڬ"7K9S  AXMpj.P_R"ښN?EËBW3Bz^zɻ]^7=Кd.jS0YOoKlT`6eM:-]K?=KiT7lDbɒj5K.4Жj. 0OPP!Mˁ($+2m3 }d<๸6[zOGAB*EQK BZaVu&$w$#MKRM,7A6a-Mno6w![aw! ; 69 @7T/F}}])mh[pl Ւ̟pô I5v2Om*n]K08Y@Pۉ^:AN (qxх,b`]}>ae *S\U0=F /#(z4*=5P3Ǡ@P+AXaa 0 р@ B!BeetU"}X,9((((@*{tY]HKG 1Uqt(((((@=DDtBA2*Kʢ%Q͏$70?'2g(((4d **jrI|5(cx2$*TWSOGqnx^sjT%buIxv9iP?DD<#W#{@ihx&u/+bq: R ( DZW:yvqԉ˸N܂VWw<q*UFW%ҧ`7nDf$+GMƋ`(8p Aݺwf(.y3 TUFW%GPu}. d/}[ >zo!R'B @Ʒ; 'J]PNTRz`t=cP'nA'GčHrR^]0`]r{-=K8%sJxZ9q =\IӎQW8Lrnhᴭi @-(UW֊P^ XBi qScs"1h %(C)_F(4mx1AUNÍ;/-,zOʙ/ |-()f!ۡG#f+4mxE%A0^<v"a:'/ |+%Z.QLiˋ(!I 8LvnݱEY' |+%BKCҋ/m}!5[^ԃr `cUv$݈E9V(/Rv2ʶ]().!-\0T7ILIaŲyvg[_IӒ"W0 i?SÞpd"_~Wb.IJ"Mcbi{b%(eXHk 7ÞNh/N-(I WG+iZ"0 ^TU}iኳJ幷%9dl2jZ &tJ6S/\Rq 8K vǗ[P{_ڊ^4/kJE([WҼ Q0Չ;/-\v `j$q!30  ݷl"l&l0 @K*Y؝,eOK0'@}>dircm%ivP^󷥎U1W@X.ID:Va 8Z8ܖ:Vm^ `uh(=:V=56NC ܖ:V5w"57ޤ0y/x߳ ::<m'iDI ӳ]@Pv6+Lm1j~ Q4p~ j꩸{?nNrb~ޖ:Vy}C>:1V{i9;:V=$)?*YD.u@6ᒼp]Xx`< ,X`O0& $d @gb075V M70 xWX  آ[ldMSoGk[5g@lBL?h D3?}Gzm ݒ @J,Ba~Xٺ;שKن>&TUbrJwϡV:DY6yRn1QVd Ij!Kyr A GێoB{l$}(L~Eᶘ$`M]3v+V7?^  Z'xr#{a`oj&Hj}9IJwFY&=;6!bDOȔ@֦OM@@}7y[R& 晾}*M $- | oiw?&!U9Ԋ4.$'0г3( ^b(AYڥ#-A-b>SWYFH\'vK! % eر1=90C/*5u6PTM\7ث_l7,DUnS}v[?O#@Vbҿu20[İN"˨}+y~ M揷?j{'6!kz_@Fǥ2{@U仙 l @7!@~Tl~xf|?VM(a_l=6jz)9E` 2|3vm}nx GM߳E`obh QQ 2p'lkSΓPw/ʵWm ,f2dnr&{e2tVG|7 8K,0r c {r4f|z(  c.c5P9y,i@Fr+|5|U? Mlw w=n}芖Gp$NO`Y1е4k""Yx8ԭ˵۸>JPFqP%e,l2 f AWDU7}g$Zu3(_Fh 0/k'$I'@,`:0xS| ܓuU קH`g7[P2/GI|W;O3&kx9{@#4wU]{y4v"? _be @aP@Hk}$ʏGQ )1]?ɢ|M 0'!@^k_>?n .;7{}TXo8s<7''I_ )= S`t | P6Wnw.$0m[-"l?씣 ΅H9tU` ͷi*[ˉnޞaM]稲o 0ۛYw<֯*]]|EHBd~D|w.2duzx|2>(nbᚊ'z3NY'a.v^ۮ vr@hk00/)X: +v 8s^&ɦBxd忻/fVlA /(`>ቩ1xNvۢ?{8 Q;%.b.bc2ۤ#ig& ᗄr8F3ti;h;W*=rPPj#)0JtQ=?) qLCOW-~4PZWcimkZ;o ?ZoBWy\Do𮒩!j^ _>$) .Xw &4pG*% !gigy>PQ ;Z!G۵][ p7B|z?f[yj )4Zf7:EY%7 `@V~x)8N$}C|/b,0I(5)phw{jO r|* 7_\m+l}G$xL {F6u~M?)p(^FLH *({kw8}jY4n&f#Ty\?~.lq@ @@2Z|)P6l6MթN_go3E"GZn\?1# Z 5_*kfܩ:=Ip}3L"cfϳ:`;uSߐ;GȤX+nKIqHZKw@O043d;]S8o6__,_XA @rV xz[@]ܹbpgq0 P0 |l+3й |p- i9*cGKPs.wp7xCc7(`{ o5p^(cϳ|,c@;Jߗ&fG_Ɨ, ܷtUιA1RxTo@s! 6V`vXgzDvKHhf %0ͻ]E.}+ 7o:ubhaD߃DJ~ֿ$_ l );gy! U.Յ,3vٗtݬ;/M@鷁Pw!F׈f;;/Xad 9?G@yX 7̈pe: A h~ai* (p ;ܪߗlEN v{}ͼw&_|uN9%~ ze)r8)] wƙx́0ہ+/u{pɍY^ʕBK "bDq>Կcu 7zzˍ%g alA~@ ص,"D {)g@nPSd[8Nӳ 'ǼRWw, h?dzz}z!S>v OJ 2Ih38)*#0>' "5,Jq@g$<  1 `#Ҷ:7[m@ .Ϊh T59^5⦱T?2a(wUgm{#l1??b~>I`&M\GBʍ)]M.Ņ,|}Tk 7yQ@w bП 3 s /^ރ~ JjU eXlJ9fN$tUj8lY.'BVLYP4G^ȢQǽ$(vieFvϱ}_"pKiHJhr r.U ̍G/>>gw_vB3\9O,Yx!Kj;m``pnyR$w1[R#;0W~7fO*},&%.,Me{N5Ĭ SghsQQ^{0``M_楶6DҩZ 9O jdʺj⩆+/7ø4 )ElP5-Py&89m{0``x, _M?^-+ac `M+ CN9a%`1 (&VLL(wZൠ{+˦-1?[8B)$FHY(+LL ]j 5eGg!+^?K1B`nA{_@<~V2@7E/-*|2'|QE/iGnP$ڄS BX0Fr_p@uL`ůk(i9lؙc2ҐTVIڎJ` rD} S``9w7/]h\{!V?NR =]15΋ӽ?~:r ?EĚ 0``x X\g < x#L ]fYMC+{X6/ ǚvIxQ0ՅJ CGLGT',QҚqA [7Y|oE i_m (6.h-t?(p2&ºGv{5;LT4=,P=,c0ٲ= 2``[H,{D>ItQ0A$oP_\' ;K0C, `M'fUso&E0e CsLT7JV f*o\/QWvʰ``` @{o Wա%u[xMC&]+=Fi^TMHCeO0ⷮITL e`  N Hl1X\fq )z.ثPhdGd4~Qct?du   |8 5S8{.e[>m^/!V^RYIO%QB_?m\E&j=Z-{Mx nq:؞rYVL`R ?&?|}G&&{PtIg'-5D)!4'"mNe ȧ$ڜ`a_ ˗h5ӃFV8pr R$єB0l#۝Nmn{Y!5$HJNt0~)9InR2m:p¯ctIp-v#I*5gDa QᩡF@v)qu%I.Yi=@v]7_ @N"7=ڗG:sG/:<7XNj!Yi`\u=EzV+zaY;֪b!͐1 ~e6z?nu"5sHPӱ UX/5į3 `x~?) )c{9|x|FpPVvgX /~. @ :e˻P'mEvz>~*q8޵'kQDM$?Iv.ܰel;U*/kwQ H}7л2_h xd<۹X,?[ )C<4m }g{YP+1hb$B9oS ONTxmO`f&Bj;fiE % e$&p6 Cyj*covwjAy{6t;BmÃڼ̻o.bf"g* `Ib?+L%PU~*pG|șovFU!!ۣm29TX)Kq2?a/hXꌨ"CRH97 >Y-]TbBYqBfe8XP[Uo9Ƒ>?$[AWQ4" C*8#_ 3n'x`_49jQG8R@%T^y05Lcta|:5"]_ nuk|O TwA|gdHc6t):iR2|ľi`@$,|7* /rrYDQlB׸@J /zn|&UTxAp_P}KF0{s;yzbG:QVAhWx 9V[TPL%!. KG9M+h 7\pP J<Do|S}6-Wd: @~]4i+̏*@޲sS@%zYln vVC+&1f[:T1N=rtH4&m(j?2_7־_O[؈;bܜצgTMs_KXO"ǁ@D"l (3|_h+L*T_2,4 KD6І 4qDtOH? G%4SI}JGO"p .@A"RNO MgY6-(Nt*!кZqկknJCwy27#ɔaZDn֌A}-+0](`\URJ*bcʟ̼0_ ,3hKg=)uX t U.5C̾长  vȕE6;iL632@HH!C(cx[ @%C@=$5H13edgBmM+7 ЕhiY=\p OC4' 7d7@RJ*G I'?_OM%JO)iph+KxA n!?*fƱ|ݱ_~0 SDfؖ6ZE5ʥ:+HW{i2mw޷쿻qO]9 } Q?;V[/X ,j$mK0mLFxxa[^uH,K'C+LG0RG7# dO+_+T8lk*ܤR_JxN1 Zj}A0]>4:eܳ:NC'C[߯E@.X/O?Jx$Ԏ $"3$}PhCƆ0d>9?B@y`bDֆV rs%YDXB8ߋ;no1C:ST=A a$-Kh~=,wmIgץ}[֤ӭ6W/Jz?bb(;IL hbZ 7[2oz&&\ӉykezuJfK/k)GL!q$_hCTEkp-xc]4͊G'ҋ؞@bV,Wڒ$f]Mm/ot&<_rzN>^ JDhSt5Mj/nfle> 19ਲ਼m" T4CM7_ @%# |`ȕZһBDN͵B 4P̥V H|+٢3Z N'F9r 6JVP &Q]@]zp߬u OoO_`j!ĭ%yHzʊ]7>?< p @C,(y D+r WnD%*T8Pݹ8]@0c\^Kx#Pk0bxxHl⟥cF}4Kho5& 4O (mG*TP  M< uN =ځ`%PIԷM _/cIx(vg񏆭+"k`%:@ŏCzr&klA4 I*TP a q@$SY̞j?Ww0>yƂԾ[gr$kH<0T<{IEw]v84%12ے ô Yǡ8]>B-$$9M) 1cSq/I"{jiws5ZXE@ D ï@l,\Mk0 / #@@@]@A`T)@EJrܒ0$_:CU^uM tf3ئP}K>ts9`5Z! )(3I 6~~)1Oq-YBoJrqg^tQ$Ăr@AZPwE|D- 0fD|Ҟ>^u+^!1acVƬ%Kw%+F ҆91o#儬gLf ̘ ގD yl Ī~Z[B\Tv(\C3_{^vm x| ]RX_×E, M\Vpy|jňCBw8~YcPH@F,> Px0`~82Lg6/9%p7Ydv3t] ZH_O[j{n'޾kqsn&xL8 7Z:ʨ?Ca0La}P'!b7J>^u1 Ćk2E`s__I}O3E`v$*?l8?%4+"ClheƑVR a&''ڊZg]u&3?5W]:=/kOڻOhhua*Y ח|oCAC2-4~񚁂w iuh^u{[ٰ4?|'' >^u)qu}ekWHn@Zй~6ub1 `+cB3p%fq)$p/{3 ls:xҞo 3E[8|ڽ,\{oG?ƫZ@Y(}'py1;,װD֑UՒx* ùN| B P Z@ Rx -\>Axs=9p)86-ZJ R,ߌ R|C-'{}$pd' hx"`,1B@ҥ`Ud`xQCF.})p7zٱf>;\YuM=o! @@xR,`i (x&RJt\󗋔QkЛ1kO2qCƫc ~ S@^ It|Nu*; W(X10F Ʊ` 8 b `Yhnh" IDAT+%+ Za1ag<*Uc?K[)jX_a 89[wb\/4j#P);Y38Z>j"/~./^#*R ?&wA <|-ЄfUXH Gd`Ik16c'7`k"3k !ZBUF}!# @ e2Ų͸wRWv[PfR:>9?-]@ͦ#w+j[o)%kv*XUaO`dB@qaA6 )ejw+"#$z%H٭ * #}'~"0@6P`B +VèoUj:O$^ * GRV{FԈETIk .r7VbdU&e i& x2aFyepdu`c[.ۖd4p 1`Ţ=H7^ 4[^tgS@0\.B$VLuޙ)76 {M@Yy7JJݘFpC S@e`i@۳J`Ŀ-pnŘ/64yN-z@,[&Zdz@[B/6Pi`jc0w% jP4f1?ee . N/S""&ܕiP|DY{75/ zey ~@vؘPy?$@& bLS`~o]1Lc ߡL)Hg ӁىMƴM *]M@{G_&FzM'+e!I$*.Y@@.gCvMh7*".3Cڈ@-& @~! mIm&d@MGږ'X|/S%&ϰxR!$e/(Z]_`>D vL=g,Ff[,"dWݡ6J5ߤƼ;:)Hwy.WRxNў$+  UVk$V +bU,{Raz4+D z07%xE6=G U&'J^G.{ѕA1!ltv=fFzЫכ+lvGS>kl@eϦ7MwHOQ=` w9RIAT ߿AiK,JIXƂ%!CrQ@3'L6K"Qpm7$tgoث =I06bK1kUOW}l)R-ޱ7'%?*$(m85z^ƛGM@d6 }T?M2P_)Ma =}hm"Q>hS֡lU }wvl@mCd @ߪ|i廤ς> ?~ `DuIP F ziSݢ\!>C/ ``)5EvDg 7`[@ ?@ lÀ ޭ UM(9U+}-Q'`h`FHP Yp~}@ ˑHAZX3|7%8t>K2dHޮf&o( UEG%q4'/ֶdȰTi(>5i9Q@$1TbP,.@Q>TQvƖ B*6R `O>VP ֖߶% zF6C@a+xmD,!&9y.0XwP_JiP* a*4!lHBe= v2v~.SC*ZmMJHO(@i*TޠLA@q| k9Z 乓p ĠBo 5Z@ہR 62,·-($'22Kh- 2M\T4c]pm xW@bصֽ #u?kNA+5?zKMs9Ms[`&pӅA 43S/>KZ݉ʿx`  `i0Xp,L_8$,/S?Y h6^@j\|f'ל@۽:k[Tq?QytMd2=Yٓ `@fৢhY߳iVwD }å ^&T%xXd[@ Pyep^,ɣHʒD6'Q`+-qs x[6i|m8l1nW _Y||"xJt0@H5Ѓ +$+"=K`$*T_rJ˒ bȱ5Tʳ^u@m `BW>t~[U 2'QK>X `gX@AG8 b Ql YkAWM5zH{5Da30 @GֈEE3e㩩K S@[ Ц|㯛WNn@a7(pѻ**Hl-ﺩG%`)kEfd:2ܣ@[. i38_Wz̗|j"&w[=n8m7mpT]rw D~~yW5s^Km~Y| !X KhaA,oCӢ^jNȶ0[aL93 anNB3:`8j8LP~@<';Xyhi'b$iE ËEX y+Pۅ(QA '+Jt,gB/MK3@@eͯ|`rʀ1K@5`v0P56z#7--O&4i*!%D EK}I~K: 3ozKT)P'T*&@mNY *M͆9 ٪@! P2o1@A~)Ua"|#z ` p$r_Wx0%p0@1_w3IJ! 8g 1.623BR* @ct! 8P8:wNLs@~M HDl78AZM ` pfUtI(0Jhyn!ը55D<, x?-x a *ƫHd+|&/o)[ 2ЧOVsSG dw۷oZ"^l38S@V_-naGj^k\*@-P Y+OV/ f@%M *H]USW_[_x^gAaYUHO >x h+oa\/0ԗMdmPmIKA"#K[xS:Mw5]XPǹ il)<v&8)Pɺ4eV-c.iv {) K]7r Km)y)kuqG\@tY JJ09t`]-K @eWi!p"`iۺ0tȡ@\ٶ<Щ@RlȜWf6S@Ӯ+`7rMQ* IA0э8;poLLlIKmR @$)8UѲ+B_/|S \'R(kZ՟R5m{#AnccM̞,# PFMDXu| b;)od0h<5zxְýC 5E݋N?) q!h׭<7x[x3 X74l>^%TO^'5ﻁJT[1]yܿy/GXך+ RU;!B_3fQ^x'!ֻ( `X(+hW@gɨn|xV /?DG˵G@HȈ)&!\ ` ?v=ʧެ*@Q\ԿLh@ϻP<2XְPl0Uc:\6G 2iA`:-xr[At$J%1u+@CӤ&  ` ?87[iieZkxpݨ @ 696)B0`\S辠\l}Z7:V: I*}r1A 1I {v%y<}S^b)YyC TR`x!=F^fA;Y~,( e` ! Ao&^ EB>O0O0iXV,-<eQT#A :P\]@qpVjUUy&z R#iZ`ij2tIDAT r/&?}>t 0_޻NCF6;&.l5MP5!@r] JV ˅ ~ /S@3O@~;PW L ۯpZgM)V/`{h?M` C#nLprf"<+5VW{!p.`BIWh3)uc'Xss b@K@ [AL;9IMx *1Q u_@`Bn^@,f>4_J`k~r ȿw3x{@`1m04 `) Ҭ N&a^! Gv`̼РHo 8(J{Aކ^=7Y8 <' $W&PUm~i%^@ '$$@ťk OykI̹5j[*x*D{A'?S@NnyS^($$} +.nF8M`IHn [ܓ^5X x:@`;&Ŋ.F@@ɹ(KS^ b* {k<@ :+ J;//b%mƚ @ ,IXE\?f?{g( EQjb51eq-FRS]8>{`;3 dx*D$ _0y@. NP9I*wf~WA8` @(J,'Fu<8  @TRPS90` `z ϳ abgo >oݞ i@J50XЍgjdA]  zW:U ,\@0Pjuy_.ܙ~=S@1^`g1hn@K$I p2@. PmlǤC@xY `7{a{ i,/iT3=8'<lbEx& V0 @+]Ț}kq31! *U7(0yu52< K8<? `氇!)ch͕#07E!d0! eavN\Hތ.A5A M `zLu"/%`0 b0@ߴ` c]M 8a0 j )5 @ `\: B. `O0so5it>lؿ\``B$ongv1DvaA`E\@'2C@Zp%aX> ے;3OWDYF\q-vKx1Y3y' `0CC@5 Xjf` ^ij_y9 }._ `oAּ%(߽48=o,7QZ4oR##G  `g<L4 V 3+ #U7+ w~ n7z +>{c !H#>PXlfFW5@M)`qd$w@ pY@ ogu7 lnTw ?`0B ^PnD8EdD d?Y `K o ï)@3ĭU~gD(*p2z`6 y7dzȫ{q/ې5 l(+0d,o #gwY$e? pЛ (0r ]@Կ,U;_d* `,oD × uJI [ҖO9 @C ;ɧ:O"i|~+R1Y @,@ BXF!t\jT0 X.XdzWY_]޹՗`0c@ >X߈F g̋R(8R `g1x`j} U_3]KFZ}eJa`03C@x6XH?&p .G `[.  @[pA, )5}p>EG&@pSZ 8l6 d\5_\.Yx?(KIJ$@-@whxljrHv!( `SI_Ǭ2+Phx\WymAxUϿ?YExUyjoa#}=A_P# `=X<^}IX8i㏛Ln̲0 WZ b0@D& ^d? 1'd@䓃._o`bt9Ed NKȭ˒v @:P4@ҫS.[<pL`߯s"  H^YwO1aux4O8@p|>ovءER$Az "sð7f_ Ү`_@#8b3|f~{Lb:|]S :r<|T/ `|_nf vLGrnKW6@, |ίt ص(75hE|-I7^,O?7 ] U`-,M `b@ 0h<nj:ƛXܜ%E_ iK}H>[4M@6%6 (h`f ޡ'onhޯ4x&Hr%Zg/S"p2& {4zd%v.P,H:4Scr Q)E dևQg Lj @y@&uK(EN}- Y@l3>U3em.\Ӧ!iUoZq\4KEطxfIVEmo61^E~+6X/R.rRaKM7HRoit1^H=R-kKm-0)*3%"z@7!4g\oe+Jl` vmjfkTE^Dd3*USw`wIhL?/~.I~6n)o7^m(R|ڨ"K,z/ןW @cC@U!'G7-2Y[_t;4e2i_gS{nw!]2y?{';{mzhd\o\'Ζ @V  + j hЏZ7b1t^b<l3# `P``  i*Xi|\8 phSчo`pD}u @?>3"=Y:b0EwgFR'Kwa 0LiZQZ!?4SVJ\߲.|_up4g4t\?MɐwȐ;ɕMt꣜8h&rMt̕NVa'P! B.8``!3"}&YzSS*r?v_}f!E[t׋f IPB`/ ?wtW]4]' =aYf!E{tNqdP{Q@;؋4.v{@i;T.;nzCݗs^H2)_o^֔TZU P/pBkh{u{J Sم[ Lw=\;a # litP<39aWL֗V)e6OvDx2|`4 %05*破!]~褩b<352 IuDtSPJ.uBTgTCLÐfuN** Ft>k ~l0I{@Pr]~T)詨c?vPq mN$xqt4F7MC| YloQ1Ί2/4TH` 脙z6l'r o 7Ci(y̓4.iUqD:;u6 Z*|r3QlN$xQ습N uPJn%b}'W**ԴTr 3;o[ņuQO-N$IZ$Sugs] bQS<`;`'7䶖z0_EAfdva; d[kZ*c?vP128cU*궓R# `k(1P-K*rk6˝4ߪ8g*K* vRcK{@i(y^Z:m[ˠwj' NqǓ I{pyw    o@hJ\"IENDB`ggsci/man/figures/README-ggsci-igv-1.png0000644000176200001440000010533014570505642017255 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$WPLTEHju[PP@5HJJ.35ggaœr#ӄoclmQޠ0 IDATx {,ѱMhY Iڊ&Qy?z987TB!B!B !B!B !B7׫$<7W( >%$SKPӋӯCq!ӯ#/w~yw@o6M-YW$ouDNבL:^[.3P2Y` :9a zX&ruLzX 7p3'P34*bu@2ؤBOO7wxjp8p m'[=pW@Ppم X4Wն{?ӭ]8@r!lV^ճiW"{HRL&Dr [}8v#@&#Qnm_Z[$@$<P:frVCGo #?+d楥m˕;SQ?"' ^U hJvspj FgdPf 0 yۖ!i@O%wWjj@{51!~m80 LDnca@Xgچ&T<+J]i %0:NU&m(ʇ0еnf `jrlF.iH/'v4(=,#u>PeJ* 1ڵ+qa_~G @6LnGAr?NיW8l6{sGHcjS"\XVDCz}f/7)U όLqfS":`!q\0f\F@C< ŵO~nbU3'"8< H%WڸoPjTSp.x  tlϫةq -vzo$ӣ%7qSC@ioNB"4A;`KWgs fϒp`6 qG.WHPeLiLyu{Q$q0piEL1E9l } P"Y|V]'E8W9A@Aj@p+<~ST 5ѝ1+O#{_쏆p0!δQĈh`Om_׶U1D˄o6}}`i?m}F@L:e8z'&<?/Ѫ,mL!WD|Z{x. j%9CNӓ7|{_x:8Ǟe@V#"m4U1~x"+!OǪpf osQPo%k}Sq\q&ˊE_~;9 rfsC oOUY:Rjcrͳ@NfU `E+$Jap8b,t.T{WU)<կM~ot .PD.lf#ֽ}{J}]:Km. p1b`]i=`?C' _O#l_0L=i4*]6G5,HmZж~fl: (Kz2NQd (p $wbwq8!@]HVI( PEC@51\gz_N@\X ui~jVVXvPnu҇N8vO,J? ԡ_i Po?sh[Z f^I]yp?$㠣"Z4(j z)!~4L߃ )jd`gn2iTEbza_n80TUE.+02 Tqq 8nϿ#J?vgJő io%Ůs:@G&}ݓ2.3c:"#OYq{ `&w6h&ӠfLGK_^tYZӒB(!QXkv]BkQk= ĉk?wx 1;EE Z ##5b/A߿f@ iDDO2Y(!",2D1-4Z2-k ,z/C4ڳS lN`.)O7ϵC=m:6w&{-wCjpׯN@22IlN0g>zMv0vZ#zgUjW |_5243([ w' @$$@A`z'uf 3SA0@7&羅 5on)oxڦRg+Q49/Hi.zx|?sw(|82a r3,|Dd8pK LJQUl83/v\E}ʂ?)V~w6 @;91fSu31qԗX]/RY >X1OSos# Wv~|Zs24;>j{s@\@t #pgRT,^}=1 pYa`a Nbp©liB\0S]/j '(!'Z$jSO/Xyդ3h)<";nCqbچ-0N?Hps9|ԓzX˿O.E_M!QB^[? '`f#f7 o!,2TF~Wǰl&G a895I @3GN~|:Bbz5{ /+{WitfoIKc-*u ml5$rǧ] Ӡ1gf"%p~^n'xdU?$ л/BvF4u4e-+o09= ?D݊o9 L`4HHDIw&ð11S:"aFH1Dg>2 Y(! Ce`&_#>oT:̔\&z 𿽍Gه_ZXvxUf3֚m3ި/7GA18@iv#|Ox@@@g@G"Y@6Bign傾2qei۰;߀Q;c`tsYyp?a LщY4g3fTp}x2SS_Ö:ngό 1SCi-Kl9d ߼o͒rпU}& >vд~{R 3nD(!'#"ʕ(bc(ԏC>7Ȼ(3. ?rZ0 rX ÷)k˳a[׹(:@ , 8A{)!D<RAKJ 4s7jٚߧq 3@gccmKW~fzB[?08W1nYeluVA OD@@)$Rhо'XvnJDpbh| &Yцcx>?ʟ ҧY@D%0 "#՘ZRa8b}# Z/.OdU =AdN2<_F@6QV^Py5(b73ˣnMgT6$U+uV:&Y!$nE+ ~Bs׸aiػ4v @x>\jΛ$kr&EK-̙zF@)ԥ9k=1r`9w|'%X;.F".j|>v=ypWH8iEc{Ce.OHUO^ʼnl׼KKP^{( [UϠ.V;:poO~#4SPύ D (N|B@à0.c hY$cOmunFRN WnFh5Vȫ] < ,s͂:C}DV"v+6yhȻ`,&Ed[C Fgl ~wPgDzeӭub|yE5N^aÁG/&);ILg LpkmIh#Ԁm{|Q K}e$7?>@}) }5)dޓB!2pqPjo'+ \v 9(vjkJ 8_t'_ A9EZB H$j^[@XvH$ѿW,AE݅9`_G}R@ [H0IP yq 'M>? (,?@A_-.mdN%%*7\7$@SߍD0;YqOS`ۛOK-~hm?@{ Pg' pČ,.lI\'/v+}FM|.ہ(y#JJ>c xWIB/(xaW`C&䇎 'ձ^a@zjtq@L!? , j&U5)Hh#ؕEAE0jM|x) PP1 ? IDATs:'0 n8À}>=3t9> N}=~JTX3PY?6T :/"7Vn _Rb`bPh- $TR,Y7փsGP#|9~Uj_;i qJwPf*YܦG= ]9Ѝ`;TR7?T?>?dYf eA|XJoj5\Ca 0'DqFh;;k+1؛a u!l B1 XE9 S% +g;7mK4C7 l8$L P^[i,.s!}3kolI]D`Q}{kfK/tJh_%l;@yvޯq,˴346K+yH5)FM4fpIO9-x&bH_~dmۇf|ifįOdnBG:CCU3F)J:LȜ;UE6]/VB$Z @S jC!GwacT[$3 4O$\h{#x/d"-@wuv/esW 6)FW@<jΐ`A!,KA7b%}"7  Dj$p: l> 6إ@S_88{(H뷠ЃGa6 {8'k{s4VxEFjMaЋJW-Bd&zF8$@">+))/6va5$@|3ͽRVEhP}Hv|?n9N[Գ拿D|n!%E)@VT`twXfp;t5@Sw/mwTC\Aj,ٝp&G h6}?'Zu+]7K7nrR0ı*# 8MV>.j #@HlF%+?"Zp#e 'Ӭs>,AZ\u? X8ǮW>QIGWyB '++FM4x /{W7@!Q2 hބ9Ч=9!%[ăjA{d.cdMX^Ou~ ndqՄ73_5*P YW@8 :m&)o Z3i $5pn2*@,.l @Ngf Q]7K.ͤ jpU86X=$}IJvF4p=,*TP @=0Roz%V_~&>jn9 xAvHYpP̕U2nSwJ(=Z7K繽:qDKA"Յ GmMAC OxXlNNR=FcF )-'2HO5 IH3 (@g#eo\Pww:V;h@i0p"^PJ3G} rC Ƹq(!rX`=H y^ImRcD *N<@E|]523(@HCb| o5#ؓC;hQHaBʚ0L(]2 fuU~診Nv`&rL# H$xkD, x| JpI(`?Joy@T) nW{^ [ rn{ mCUB> cl~0N#l )KH$*^P4r{7Fx Vfz^TNBnW7'uu؞( fw r*Cp?><ήAABwmYC ́n4&\[ЭW=0bM-o'e񉨧$4.hXSpO4Z29fg!а.@%rx3P@eA }hF-r܎fr7~+^+s2}QfTJ uHA7hǯG/UȄ %aX<5le9-c R,`" Wjj{ Bxkn |/|Yɞm2An_۾oo _!R{ PR\%tx.\^W}W,0o=~=ϥe/ӳ_;>BA![P#Ɋ{A`pz@fsE8gL&+fiqE'z'%Sx~W =MJym)jPc!/w;"3Gқ8UaB6syR``j3+Ihc KbW,y2BG&“W=0mKghhJAli:gnLy.U O}<=LxIڻZvElW0| !D~/?ʝMeBfhlμl4eGL uˆ qa?`0 SCWjJ9c6%cѠڀe:2~~o,!),iUȱibAC7e`k Nr:R@ "qMl'h ^!V *g^Z zR@MZW~V 6%= ,X4%-*@R@wD!d]''(ThBb@9hdS 5<y׳r ]C+}G<ߤ Rr BN"I0Krബ#D*T]s&iGW@nU:9op0ֳ0G@I~F$~|:!}96eL+6hFj ͎\ Uɹa;/uma4?-nnu-*T ? ޿25  wA2&4ͥD*@S( =C`"@+ZMi0"/f[ RREĄRF 41RӁ~TBtߦ"8gO/O,:[D!eD,`w;fT+nDG8oοoYPN`&8'#jڨ٧r~B7S.I@e>pKdXȁN%U莝`0]K0ɺ Pl< e6iIGc\t Chr~Ι y3adg`tLS@ l0\QXxxgIŎ ͏21 N(c~BII-v2G1Ec#]m ctxHֽ^DS8$8Jzc#~(`Q|(P8Q @+{wa~eev6ДP<'p7 ]@%@myJػu%hs% ;yӮfNFO.cJK5aǑ|@He{2sJå<5 p޸qM˨^3&{4 @V4I:s9# /@a{@E?%gOC!c@ؖɇ* oemi<OL7t~e1 *A|H{*ow|e. }pSbXO t##0qs)OY &IkW@%}PhCB@QV!q#d>h.OL:) Y A,>o9,Cp<01Hff-K~:Pp:5n cV{T M plV<ؘ97#[]T5H$RDU@;*(ڶZߟ_NI#9(? 㑆! gTc `"B "? &9X=ٹau {EWVTG=R)!@[\lҀPX0h+\ V}7T (2l-h."z @'G'nLf/)E`ԛdD:q6 ^UدeU,Dv,q 3@J0A-@~_rM&N`c,6PC qIucYU|G- "'u [{/]j25<8!!XK/bY\jO^b@k͊Yͽō`*U@,17+)IC *'׭e(Wl~E L.*|n'jVtm: Em8cRj"#C) n(uM9hZJ4E?$B/ |x藅e Q+d:Ş~ϖK%*|Q@.H-uSPa㿲}mHLAtyeqM3KLn@%_mahգVHR( }a"m .Ggi:hU0c Uy0ʑ9BMHL):kfqB21E|ɑ?VxCyj4l"p'%a7‚EpC}9ybU@UT5ȯ:!sLh;[4]}Vu !p/(u8Ь#sPO0[ X(~9_k$V q(2ׄҤꀃU@Ul* 5{QMz-gZ5s4dצlFU@FRbk/́1V Y j s]aQ z!5J$I|? ~U `EɑdӾՏXQɋ~O+xIޥhc8fCw-U @- A8-]kwp + N.Չ`Usv% 5Hl&pH2kXvVK 0f{u6̐ m2c QiP|T?0Dc)2  :؈v@@P4tHC)0xk: @晇!r$| 2(rꚈ$y'N!8=\exEpѲ盏x%3 Z*X.(VtQ~ĨӐG+p6`&>09RfcAg# &HDLpP)lO-Gl_J)WxW0r^9tU,=_#~2;\ߋj*]^ Jnnr] *_nὉۘyv ,I yQ@v<cW}?s*T9ݞ}@:4}K<,@`*D☀G"MS ˷sCw-:̴EQ&3wY΋4F /  ʲ``/AcЛk* M@U @\S; h2VTWԴ]Y]#AzP{ ĝ&Ѽ,:O40nA ӖE)Lv6 l1`{m(v/U=.xG.1+ R@UOI{={zڨIyFe=fH),^$ n` ]A}=P8zDS|.Z1G jJ=AjwPJ2 }-dBnI~jsxN (EYJdE @H!]Bh~N O/par;]8a4 nEo!83-ML>`M@hgNKM2:ͭE}~yЎګU@UyG6gW-DY%A[s?M0sx čE Q\OW9z!PYL)(0 _?kAme2wvj=}h?p/gnʟΩXT `G/\1(| Ŏ7I4iS0n]М? |7CIM)7x&@! mr t]޵h'+AM"&k=GL XLbtQLB(g F_`f4HJ4TH _ Y r x.<Nc7LZ@e79j?铢{Ӣ6ZXVjZ3~CF9]HZq-#@e=6/47J`ԓ!¿]q|%$q/Gb )P 2J!_BCy@T ֱ0"}D`y!\(>U>t95joX?Mbp3QxڕjYVzzyɸ3.NvOkYՀR 3 `Q})3p}TM@P n P^xh/ @nwvS @FnJy@h`R|}@^*x9壠48';W9Vz E$0C XYKI!p6H#k3m @]anKq,d@Y2)`^JlQYΟˈ_?g1B*L#A$7PcAc1jP<B\= \*~u]ѡj1S@T rQhM.w/?.c5ʐt^*I[aVv`kǮg{Ug xe@) . 9p]<5E[%PTl%(5WIm:/!K"`;>}B@ @ FFzZ e@(P[H?H^ eѐAZ'@):ǘ#NJmyʣ n5r:j$|j3|Զ[en 5뗥B?˲st%?:<ȷA0kĂV,\'(Aw@Y hNPhRa9Q@ rur(vtgB}lݍ&}(Ez\1#ⶓ4J&jp?>J0F_Ph/KZq"+&8Op'h@L}K5{͏x5cu4r1umk2;8- }nP٣4'4 x"Kҡ/LǴgL;F39 GO*V@f?_f6j ސE;sUޤ@ֳ4zmh6upVa7zG&Y`0#sFK'~4Ԩ2n>I5P@WWI,>݇ HFVN{@y)}R̈́S@'$J ,hj 4XP:[W9M$ Aך~SbOHNqJ0\ Z+L(C U>;Ej . r oQvOP vonu_Vh ui e"W_t#JRxnW" B,P?{:ɨ¿Bfe!rUA^ݸ1fv~zAWd9//%r-|ûZ YsHSZ4JfSTz{0VsDN Öar: uweonbcϦ;UmD#8Ag#yŸc&\̓7ojZ52Hr`;`D~-$?Rs??)G*T oNԟž5ĹVFMBbg<G1>]/vi/twuWyj{4h I8gT]b[Gu>(~֜*JVոPWMk)6P@[lb* )U-S![Cҫ&^2mjO?N!^*\.$/7>_|ֆkoȼ4iQ/(eA+gG8E#(C]@?tb:X# P+erx`aw-:٧@ K9OMr†%l[.h<I18b z >td`Hs/F;kQ_xbՑupD!CGz}W | 2m+Q /2thEeB6OFoi)1L s1FwvCYLI>XQNjj>}\v @9B;cm]R@s/,/irY@R@@ܽ36DйSMionc[wML^bQo!'p8^ x*c0Γ9@8K>֩6&U)P4@%Q`pB|k;AĵB4!@0oL{NWei;>?9kbPa}(p!8@}8/E( `F5n[{2 o5cU鏲[ol;dAyhgl1z7R@,x?- h[}l\ lW w@kf9I0 {*Z -&(>?=nlc2 O A3/T<-*@a}8n\Rŏ ؈̈́ x9go=P+t]PY0` 8"B< 0 GQD̄+P4.8)]i@< S9x(`U@wH (?3Ioqȫi (\IߚL!\ Z4 *CUb^`7p%ϱᩗmd+iꭶWϵ@ĮoQ&dPXY`ڝ@T@(Vg^ `.usnM2s?'`tHrSO^@5` TI0d& 06Hn3E]m$_'ߣ+PEvQ@K?Y ,z IDATX=O‡/ @ H3iɪ, ,uGE2.*F~/iD` _VĕJH!"P3clA  ( `{)xZ&k="`2熰pW낞 3z1k}uB+Zi/V0.Ee?}mdx9m5NEXWP `}KupEE x!X۾LG blM1=Y/tZhv+hZT!t{$Qt=:t댑w?|E,S-YwV@5aQLG0h-}.)WaEx&XgalWpv;[BN~{C=y$"" nr@W+* &$L>zl5 @^,etV;q}okHWΒ5GA` xe? H[ d5@@;Q; .*w h_1/*}=iOXϜ *ۙ 0M[<h C㡿K)ppeaExQ_$iQUg\3!߮n b |ZwOh>0~El Is:Tf;SY@a[_kl5/*1Qߧ.ﵟ,J ֚ߓBioQC/Z0 ȯڷNN9'  `cEG0R$^6ѤWU:v 2p)7c}@!LCt_kh `4PvS=KwK`4h.e\/'UL5ȜwaQo_ ~ 'ǔbY>{TEV\e7"vaE*XhIbr8ώ${]8a& L1fRŪfza] c e"`[y!$nѢb3f kN@ZQ*0e0&!DA* i_O-pV|4?ۉ^ ѕew<$'k' MaRGcAO\E0LǥT{U+Ho ^@*2c3hZZUb/Vwl% `WLCVuR/FuStALu ޢf;޴(i]`|9RV[ 1a(3D2e=@̴78h;/[_>Oв1 P @\ 2 m^N> 0I,թbh `P<?H; % @@@3@(ы!X E>T 4"2|ֻCf(:$S&Kb<2KbX ԢNA~lu& eb1/Pm YWXWH @EhK<`%zvs;uWт06M3g_TZ8b0aauT,X\I1 ^x .[. (jo}el85{tOEŒ%>@f lu{gnxL]O;DcZ1 轣!1aq%i!ỏ5_TD´3?gpuY@^$va B?XV38H 3-MŦmX4 Cf] OhKy, ?k >?z@X'Skb3[<ރ1t}PKQ6[=V<6l䫺F<@.genGCq׵`q 0kl)ZeiX6ޱ0h8OϞ{0[V@6 S \8**$jrzשƿ2a$/n?KLL62t軁;ޕ l8 ,`' @)sQ H4,j2O jf%˴U4\v̋J[e @ Ko!!`X 5*dl{Xl֚I4`eP T0y0l!"@H4"Jhηf!^2gv @ VM:^7ϵ% @bY/{ [Ȯ "":;M ō-eK88汱{tENNw /C5>ߗqO'bd`_{ί\Y$L}c^SfUPҽ7"_b"` pz!5956|?-Iq[opm. u[1ȭ[[r;2>2ܛn pӯaϷfGCn3=}N!/nzt/[m+%1CJErj'iF$pcк `Bvb ?;uRw}mcbT 2 h8V@!KĮΫz6cѿ. 8l L.a k8JSsI^}SdjeT?{d)J7wd_a xlIDcJ%i qM՛fV(p%f;s [Ȯ, XZP?EHvCaih.wU_vIi85hwoU[A1qЪ o/K:}T.i<K '(Šۭ򐜎͇>CmM<7c TB~U@is ќu:1[u 1=^OM`~?0 .}{. P`^s !1an{UY,hpо[߅<^;J``v # @b[8Yl*/N`,_X"ὁ^@xGR@. O`Re) `"Q ])ۑ-`c}'djP (qr0/^|}! !  חf@- @^ճú~: SZLLRQve1+}tPϸ VdZp1=_?Dx! @bq ]> w*hiz[(1!gR5>0_$ rboJ\^6EvBa$  @$,hBj?#L گ3u`KM@}6%t`ÏPE R-l *k{N#„vj ODMۂxir`Al%0t *!N2١7eQ<.0jU H1 C{X@aUGEYF / @2#L2 Q߾P(& `Nr0* u2:|4y/5c=\"m*N0Jc5`!=k.Ì`wZ],@E@ŋkc ,jQ52@m7j@a_eQ떠,?jͣ.J>C "0`ieU Tz1u0~8 578|5 C%ݛ\5|lky ]p9uܻ5i 53sw4aе>iQl NkIQ ;U:g*iuXOvB pfj{x0P5R pMiOsʔS*xԍ5a'w P,R@  2e2z<JNx50n!\2e4th# (@h{H<HOuiX@ k,quPy)slcRxpx [ Sӹ80PN ds@TBz2/]x1 58sP/8UT|P`pW '^pa3_o%M`"O j]/576T"0 pFE^^ ,U)R@ 0 Ͷ*kHej X=d @w4 * c񷔝VaT3{xwC  `h\?a\ͷL>L [4&$ 0ļ@j֭7@{ *] >M@ `nu4> @0x۫F ` 'f>x,ug @ 8x,$T݄`0L/ <d Dž1SWBHz57pӝRB*|/,. s^kBr |(mjx0`dH؟ 0`%pN@3 x8,gq(iO} g_%~ `/gcq`[0ȗkjO)<f|A H}!1`3mA \S}F\Cj0c 5,?nF0ĤagXXo=-t`%-xoI#31 `@6p">?c 2lx:le,4* @A#I#a0c 5`)9cB: T{e-P-l0j ){Et-4 WVP(`LOh709J~˃wC"*8& #hR `x$jn|Xw-&_cݹ4GjpBq0  @@?) `L/ ^]ERY u9\E`P O8l>4¾>[hAՅ'LA0S"I`Å +'csW)PwC s ` joh5.IDZ7 X sa𶓏"8ѻ | pL~@F}aDj7wP@ {ׅNN3]h;8_'0@I j0j`0cj'h%DP59: 7Qf@ @@.7roSh_PF :X I@l[(l];0cmQ>  8?,{ X )4wk]C 0j2]d =v [Eh[J`_o_ (??w .U&Šp@c yX^d趄1R@dG[GrS.C@Tյ*= _/qR@? MZ4@Ig F* f_aQo] IDAT) OwF{IK>in<|Y⹂:|N0-}9P3T n7 E9vO6]eV6xqp`jjplb/P`_  v7Rܲ% Ϛ ]$lIv]61kwJ |ɤ8EKum9: `4M?0336dvFa P;0tp@wMŦ@ `mpE `vKSH}xRg[H e=٧f 7CmЎn(($Q|!5cx7@Th` @tm[d 6ڄxbwh6V_RĐXaY603c0ބԥY([ 5(#V7P[Y-if)MX\{=kM mqr7 ~ `8l?CrF~B$"?Ƌ_V`a]jB5miTaI `0` zTO @7q X QlRwL3Ǫ@`- >j يpK\-\`@7:n>ݮ[zu €O'uZ*-}m.?.8;l+e蚴L7\$6X_%V3lpKQ0Sg"YsE_σ5ӰN)=H,=^=+R0Ƴ3znn^/>Dh;+"[\x1[?`ΈX@a/j=H_7KmϰzܩxDX:Ub~kCVT!cXGt =ʁǏHN[ P,cd_!*@kwb\b MlSʙp[Q0l1 pV16괡^.".^]|w_nJiYU]I6FfxG %ov"uF…\EnW;iJD1N0PLm1U]YNZ xPaQ^)Eʓ)+ 8!m.=d%E t;i D1lW@#20}cf@PrD.i B+؏;iJEQ5i@y2=Rt]Y9UiC/CbhK]N$|ǍԤBdzmH 51SPWVxWܟ}`iu-e0G1|Պ6t+ hMÐԽ=,۩Iؒbb\BRTCldi?[9{EBu:4"_/Á##>LS %{򞷵Z^)EE%Y_UiW;Y %k˸rX` Bo(dYXҮ(`##<ce@Pr~_Z{Rj)"[ ɴ*ݷ'iWNh'ۋB_,:8Ac^sS8C @ @~"0IENDB`ggsci/man/figures/README-ggsci-startrek-1.png0000644000176200001440000007347714570505642020347 0ustar liggesusersPNG  IHDRTVU pHYs%%IR$cPLTE}_56)FHIɊFH:]^^%tst|(塉ޟ*Zbi^Mp? IDATx읍8Fe5` mK8r^GE*I@ņB"#!B!B !B!B hIwoIb4;Ix]")F&ƮA_2~;ptVoM"B|I Mj)Goa޾pvh_ޝs;z{PV(aζyVkJsx.:gO o+`36ooA63rgα Fu1~{`0;fٚk3$+0 `0 `0` ``MPF<~߾_th`_ '@H XD0IP8(D61 xl0@Tꘅ< B`%M\o:faOkcs@bL%- >:fa.35ϩYS0?$;UNur˧IY]pl^dh3/y]b|$Em.5PשY $7 v;.$3QJɱ ѫULQ8t\ptf vp0Sna/\ 1 l7Se7g ?:6꘵]ٜ91  `>k^ 6??0, ck@?$`3c %L^?K`s@ xQ00 S1 ;` 0 @O` `$z? x__1#UQn7AQ&xܩ"Bb]2b?0{2['bl6]]@|mtq{i!Р` ;G*VPJicǔ}U*m WefS*ib8.gl덦Z_x{™vp{DW5%uhS}u+ڔ_UUW;vĎMsP(iSh & KLIG֬aC?! E* `;:~ H&?R301pzRwğu+N14Liߴn ۣku6+}wA. | @0= `64=7Mc|Z@9GI0@ ws?f<ZzӓԖ랑wBm{ZrD@R6]@4uoq_bb 1/t[Wbx cClv*Dͅ`_:J9o{U#k97]@yؕǭ%QP;frW) o:Qu^l*@ "uBc 0=:N izR}InP\L뿈&1hL{=PAR̓U]׹=z˿ngY6zGs x|@(!e=D =P`: ( ~AT@FhW2] b)1d'@k K(a\s!!o2,]4.[.x \o ~̭:a0t7c1uB@׌~:>] H|gs~NBVs 1[FFڎF` GOZ*lӄ-"r{s:~'-?6^J kW?GI, 0)zp5"[S{c{ N(ʍ#9vMu/`jx X ?{~@rh 6ZwW'kUm=֖:c@߾b ߺw?S*K@^`KP7}DWVeu=^jpZjDmH$cGn|+e^:mm{jk I$Te[uT[Nu= hunÞ?С6*,%۞ko=p. Շ?>~|x/ b2o8{$UU[tAOr>^8 }uoLC},S?>̃(?^K_7D#H| "W&_:˴i4:c9;znX̝^o|C✚o,?JH;UZժً[f^BeC@<\e $ʴgWiYA$+wQP{p4æV/[L=?V'? b]^+p7*q\]ւ{*Vj[^f4iz3$6l4Dknp>l`0wlg=@R zybku@9hO/U`q0.?@TydR".&(4]e`@?*Tb`W[D{_DJ{́\1U8H8"5҂}"JD00OdhibokER9`X 9Se`Pfm߷׸xtJhNSXi>~0l0%t`;w%RR} #f9!!!m\i?RW(E:7?4=h͓և?{?<KP.Kf R׺uS> n`ac[u0 5#0\F yʟ= k]_(ob.@I71Yal0rsC)0aQj 0y믜8I6/S 0/MN{|W4YH}p 4@u~YE x4͑}*BOpoE%3f~kޤRaa(o?`{ NdcPT-0@M ,z%eM-eH'¥~m5"0"y%W4}]EQ~ԧ= Vb^v%! RSvRT:,IhrJ)yzb7;^/ViDr;ȃ 2{ Gm9 ٱhmC=Z;K5S3L=8h.~E /IP.)g8zr s19R{Mg ;xKP@@՘uѶrs`l="J|{HjA%$>:L$NE>Էl/0 U@HX>{i@7f `5$+pXt[ ꮤ ._a!tk}j*VXn*as֨{3`0#9Ust?3J)y0mZ}:P 4և@O%u|te_aZNR`|S{ '1ҝ^<ڴQ C`G(0x!u#!_/8PdWG}[֊Nx@QYM /Cym> E@ǽ]`&d= >4X fx 4-:m[yEN<Vq ÏK7k֎#xrmg5!`0+jMDR `2`@LM9貌j{C-4]q=w|WFm!<.<z@qh+G{(A;JOA'7D~M$1S-7b!dR?]H-> `0v}5=e^z_yڃtۆ0k8Ͼh1CmAOjcjJ?S+Iϡ: J.x Ǎ`R |Uc,ZJ $tkϿ'20T/~p/We=J{_s`C PZyȍF  (̘wؑbKHulU.c# 0lWa_Dnr=kn{03)#ؼ(0.ퟚ  *{@P*F0 Ԫg9?Pa^PGs/}FZVix0Eτ `LlOK7yӬU 68jP?0q >o f]@SW>*?g}p`< k=ft& 5}@Ee'g$=X/}aKG0qn|x* ){wLj.h9;|70^, PwN-+S1#7읁r( I ז6`Ivb{n8/ I/6Y@7;yG25K8Gйi.K>?oۻ=t{oo#н!->@4/Wh \).>+xEthz"6[)D/<:'1?-G;=,I Fl_]tCLJl\jH1+h7TK6z;Sc9^y\'CDݰ@kM}?Gp6UC@,U*cS8 nA;pPKˍt!3>87c Xۇ?QW8m>ZJ`j!l(EǏ? V /`L('՞?r@xRߌ;Ք`:8^ uZU-9(3/@PI}{ yz$N@@D99oFu0*8ͺhGŬ(& ~bQFf9h iXKWJ(aaK3 un(Pt8u7`ME[GB\4IEߝΫ3uj8 Nt2x`8);o'fpxZ%Rp#u/!@=`J>ʃ2uY 3{OLଖP)iy JZ帾rOPP@?rbq϶K5`ZxِWӶ+w9?BGdX׳sYohUp7p_yeǥ)>Qw܂U zh}S#9_>x#//KM>t RaC]_Y-wpQd; `11 3ՏX .IxF=A0r;5<^ `=tbI 􄯂C^uE),9S^]e @QUw"`ݓG{O xj$06pc(fя2囁d񗓍>L;G"sẠ0D@Pt6 8r|% A+V TLgm)gp1qUp+Gg6@]j>oL.90& ?j>Ԃy}o1DG+,e0Ϙ6s 9ުI/==KDL(XwuD|ᛕimq'h"9[>^*0MJq;إ+_տdgsa31m IDAT`͂EhX@-@}-INF4(RǯyT<z=Jo'Bv 5I:VԍK|N\ژ1 e$]9rw@x-vtu!b%^_#kJ5rFk) Ψҟs@ LJ&NϧpF8`dh/6&@@XGu aK#&"Ï!IZ=l F)'g%'+$׊,xS~I>D3..-7vnVݎrZrSi.Ji`\ś< IdS~FghwDc`/5MzF8u@b  @ |kHϿ .rI?葉ra`=<ݩlN`+. 3|a@hebHnt,HyM$.C,y~_S^2糁(6c<~-{vQ iL&|@sI:@`ߣ$ @@