From 4caab62e7b13e7c4ce4fd093af8aa7ed8cefbd59 Mon Sep 17 00:00:00 2001 From: Adam Blake Date: Mon, 3 Jul 2023 15:00:46 -0700 Subject: [PATCH 1/8] fix(data): restore truncated AGE values in FEV Change the way that the FEV data is read in, as it was truncating the first character of the AGE column for two digit numbers. --- R/zargle.R | 44 +++ data-raw/fevdata.R | 7 +- data-raw/fevdata.csv | 690 +++++++++++++++++++++---------------------- data/fevdata.rda | Bin 3492 -> 3416 bytes 4 files changed, 393 insertions(+), 348 deletions(-) create mode 100644 R/zargle.R diff --git a/R/zargle.R b/R/zargle.R new file mode 100644 index 0000000..2cce052 --- /dev/null +++ b/R/zargle.R @@ -0,0 +1,44 @@ +#' Kargle, Bargle, and Zargle video game score simulator. +#' +#' Kargle, Bargle, and Zargle are three fictitious video games referenced in the +#' CourseKata Statistics and Data Science course. The games are used to introduce +#' the concept of the standard deviation. This function simulates scores from the +#' three games and allows students to explore how differences in sample size, mean, +#' and standard deviation affect the distribution of scores. +compare_score_distributions <- function(sd = 3500, mean = 35000, n = 1000, ..., .seed = 5) { + set.seed(.seed) + kargle <- simulate_scores("Kargle", 1000, 35000, 5000) + bargle <- simulate_scores("Bargle", 1000, 35000, 1000) + zargle <- simulate_scores("Zargle", n, mean, sd) + games <- vctrs::vec_c(kargle, bargle, zargle) + + # combine all zones > 3 into a single "outside 3" zone + games$zone <- ifelse(games$zone > 3, "outside 3", games$zone) + # convert the proportions to cumulative proportions for all except "outside 3" + props <- data.frame(tally(zone ~ game, data = games, format = "proportion")) + props <- purrr::map_dfr(split(props, props$game), function(x) { + x$Freq <- c(cumsum(x$Freq[1:3]), x$Freq[4]) + x + }) + # re-format the table to be wide (one column per game) + zone_table <- tidyr::pivot_wider(props, names_from = game, values_from = Freq) + + print(data.frame(zone_table)) + gf_histogram(~scores, fill = ~zone, data = games, bins = 160, alpha = .8) %>% + gf_facet_grid(game ~ .) +} + +#' Simulate score for one of the *argle games. +#' +#' @param game The name of the game. +#' @param n The number of scores to simulate. +#' @param mean The mean of the scores. +#' @param sd The standard deviation of the scores. +#' @return A data frame with the simulated scores. +#' @keywords internal +simulate_scores <- function(game, n, mean, sd) { + scores <- rnorm(n, mean, sd) + z <- (scores - mean) / sd + interval <- ifelse(z > 0, trunc(1 + z), trunc(z - 1)) + data.frame(game = game, scores = scores, z = z, interval = interval, zone = abs(interval)) +} diff --git a/data-raw/fevdata.R b/data-raw/fevdata.R index db4dbf3..cbd1e26 100644 --- a/data-raw/fevdata.R +++ b/data-raw/fevdata.R @@ -20,9 +20,10 @@ if (!file.exists(raw_path)) { } fevdata <- raw_path |> - read_fwf( - fwf_empty(raw_path, col_names = c("AGE", "FEV", "HEIGHT", "SEX", "SMOKE")), - col_types = "iddii" + read_table( + col_names = c("AGE", "FEV", "HEIGHT", "SEX", "SMOKE"), + col_types = "iddii", + guess_max = Inf ) |> mutate( SEX = factor(SEX, 0:1, c("Female", "Male")), diff --git a/data-raw/fevdata.csv b/data-raw/fevdata.csv index 504a7d4..53f7127 100644 --- a/data-raw/fevdata.csv +++ b/data-raw/fevdata.csv @@ -308,348 +308,348 @@ AGE,FEV,HEIGHT,SEX,SMOKE 5,2.115,50,Male,Non-smoker 8,2.328,60,Female,Non-smoker 7,1.495,57,Female,Non-smoker -1,2.884,69,Male,Non-smoker -0,2.328,64,Male,Non-smoker -4,3.381,63,Male,Non-smoker -1,2.17,58,Female,Non-smoker -1,3.47,66.5,Male,Non-smoker -2,3.058,60.5,Female,Non-smoker -0,1.811,57,Male,Non-smoker -1,2.524,64,Male,Non-smoker -0,2.642,61,Female,Non-smoker -4,3.741,68.5,Male,Non-smoker -3,4.336,69.5,Male,Non-smoker -4,4.842,72,Male,Non-smoker -2,4.55,71,Male,Non-smoker -2,2.841,63,Female,Non-smoker -0,3.166,61.5,Female,Non-smoker -3,3.816,63.5,Female,Non-smoker -0,2.561,62,Male,Non-smoker -1,3.654,65,Female,Non-smoker -0,2.481,61,Male,Non-smoker -1,2.665,63,Female,Non-smoker -0,3.203,66,Male,Non-smoker -3,3.549,68,Male,Non-smoker -4,2.236,66,Female,Smoker -1,3.222,72,Male,Non-smoker -0,3.111,66,Male,Non-smoker -1,3.49,67,Female,Non-smoker -3,3.147,64,Female,Non-smoker -0,2.52,60.5,Female,Non-smoker -0,2.292,63,Male,Non-smoker -2,2.889,64,Female,Non-smoker -0,2.246,60.5,Male,Non-smoker -0,1.937,62,Male,Non-smoker -0,2.646,60,Male,Non-smoker -1,2.957,64.5,Male,Non-smoker -1,4.007,67,Male,Non-smoker -1,2.386,61.5,Female,Non-smoker -0,3.251,66,Male,Non-smoker -1,2.762,60,Female,Non-smoker -1,3.011,64,Female,Non-smoker -3,4.305,68.5,Male,Non-smoker -3,3.906,67,Male,Non-smoker -1,3.583,67,Male,Non-smoker -1,3.236,66,Female,Non-smoker -4,3.436,62.5,Male,Non-smoker -1,3.058,61,Male,Non-smoker -0,3.007,62,Male,Non-smoker -0,3.489,66.5,Male,Non-smoker -0,2.864,60,Female,Non-smoker -4,3.428,64,Female,Smoker -3,2.819,62,Female,Non-smoker -0,2.25,58,Female,Non-smoker -4,4.683,68.5,Male,Non-smoker -0,2.352,61.5,Male,Non-smoker -1,3.108,64.5,Male,Non-smoker -3,3.994,67,Male,Non-smoker -2,4.393,68.5,Male,Non-smoker -3,3.208,61,Female,Smoker -0,2.592,65,Male,Non-smoker -3,3.193,70,Male,Non-smoker -1,1.694,60,Male,Smoker -4,3.957,72,Male,Smoker -1,2.346,59,Female,Non-smoker -3,4.789,69,Male,Smoker -1,3.515,67.5,Male,Non-smoker -1,2.754,65.5,Female,Non-smoker -0,2.72,65.5,Male,Non-smoker -1,2.463,64.5,Male,Non-smoker -1,2.633,62,Female,Non-smoker -0,3.048,65.5,Female,Non-smoker -1,3.111,67.5,Male,Non-smoker -3,3.745,68,Female,Non-smoker -2,2.384,63.5,Female,Smoker -0,2.094,58.5,Male,Non-smoker -0,3.183,65.5,Female,Non-smoker -4,3.074,65,Female,Smoker -1,3.977,70.5,Male,Non-smoker -0,3.354,63,Male,Non-smoker -1,3.411,63.5,Female,Non-smoker -0,2.387,66,Female,Smoker -1,3.171,63,Female,Non-smoker -3,3.887,67.5,Male,Non-smoker -3,2.646,61.5,Female,Non-smoker -0,2.504,60,Female,Non-smoker -1,3.587,64.5,Male,Non-smoker -1,3.845,68.5,Male,Non-smoker -2,2.971,64.5,Male,Non-smoker -0,2.891,61,Female,Non-smoker -0,1.823,57,Female,Non-smoker -1,2.417,62.5,Male,Non-smoker -0,2.175,58,Female,Non-smoker -1,2.735,62.5,Female,Non-smoker -4,4.273,72.5,Male,Non-smoker -3,2.976,65.5,Male,Non-smoker -2,3.835,69.5,Female,Smoker -1,4.065,66.5,Male,Non-smoker -1,2.318,59,Female,Non-smoker -1,3.596,68,Male,Non-smoker -4,3.395,67,Female,Non-smoker -2,2.751,63,Female,Non-smoker -0,2.673,64.5,Female,Non-smoker -2,2.556,62,Female,Non-smoker -1,2.542,62,Female,Non-smoker -0,2.608,66,Male,Non-smoker -1,2.354,62,Female,Non-smoker -3,2.599,62.5,Female,Smoker -0,1.458,57,Female,Non-smoker -0,3.795,68.5,Male,Non-smoker -1,2.491,59,Female,Non-smoker -3,3.06,61.5,Female,Non-smoker -0,2.545,65,Male,Non-smoker -1,2.993,66.5,Male,Non-smoker -0,3.305,65,Female,Non-smoker -3,4.756,68,Male,Smoker -1,3.774,67,Female,Non-smoker -0,2.855,64.5,Male,Non-smoker -1,2.988,70,Male,Non-smoker -1,2.498,60,Male,Non-smoker -4,3.169,64,Female,Non-smoker -1,2.887,62.5,Male,Non-smoker -3,2.704,61,Female,Non-smoker -1,3.515,64,Female,Non-smoker -1,3.425,65.5,Male,Non-smoker -0,2.287,61,Female,Non-smoker -3,2.434,65.4,Female,Non-smoker -0,2.365,63.5,Female,Non-smoker -3,3.086,67.5,Female,Smoker -0,2.696,66,Male,Non-smoker -2,2.868,62,Female,Non-smoker -0,2.813,61.5,Female,Non-smoker -4,4.309,69,Male,Smoker -2,3.255,66,Female,Non-smoker -0,3.413,66,Female,Smoker -1,4.593,69,Male,Non-smoker -4,4.111,71,Male,Non-smoker -2,1.916,60.5,Male,Non-smoker -0,1.858,58,Male,Non-smoker -0,2.975,63,Female,Smoker -0,3.35,69,Male,Non-smoker -0,2.901,59.5,Male,Non-smoker -2,2.241,64,Male,Non-smoker -3,4.225,74,Male,Non-smoker -1,3.223,64.5,Female,Non-smoker -2,5.224,70,Male,Non-smoker -1,4.073,67,Male,Non-smoker -2,4.08,64.5,Male,Non-smoker -1,2.606,65,Female,Non-smoker -1,3.169,62.5,Female,Smoker -2,4.411,68,Male,Non-smoker -2,3.791,68.5,Male,Non-smoker -3,3.089,67.5,Male,Non-smoker -1,2.465,60,Male,Non-smoker -2,3.343,68,Male,Smoker -0,3.2,65,Male,Non-smoker -2,2.913,64,Male,Non-smoker -3,4.877,73,Male,Non-smoker -0,2.358,59,Female,Non-smoker -2,3.279,70.5,Male,Non-smoker -0,2.581,66,Male,Non-smoker -2,2.347,61.5,Female,Non-smoker -0,2.691,67,Female,Non-smoker -1,2.827,62.5,Female,Non-smoker -0,1.873,52.5,Male,Non-smoker -2,3.751,72,Male,Smoker -4,2.538,71,Female,Non-smoker -0,2.758,65.5,Male,Non-smoker -0,3.05,60,Female,Non-smoker -2,3.079,60,Female,Non-smoker -0,2.201,60.5,Male,Non-smoker -0,1.858,59,Male,Non-smoker -3,2.216,68,Female,Smoker -2,3.403,62,Female,Non-smoker -2,3.501,64.5,Female,Non-smoker -1,2.578,63,Female,Non-smoker -3,3.078,66,Female,Smoker -2,3.186,67,Female,Smoker -0,1.665,57,Male,Non-smoker -1,2.081,63,Female,Non-smoker -1,2.974,62,Female,Non-smoker -3,3.297,65,Female,Smoker -2,4.073,68.5,Male,Non-smoker -3,4.448,69,Male,Non-smoker -3,3.984,71,Male,Non-smoker -0,2.25,58,Female,Non-smoker -2,2.752,63.5,Female,Non-smoker -2,2.304,66.5,Male,Smoker -4,3.68,67,Male,Non-smoker -1,3.102,64,Female,Smoker -0,2.862,61,Female,Non-smoker -3,2.677,67,Female,Smoker -1,3.023,67.5,Female,Non-smoker -1,3.681,68,Female,Non-smoker -3,3.255,66.5,Female,Non-smoker -2,3.692,67,Male,Non-smoker -0,2.356,60.5,Female,Non-smoker -0,4.591,70,Male,Non-smoker -2,3.082,63.5,Female,Non-smoker -3,3.297,65,Female,Smoker -1,3.258,63,Female,Non-smoker -0,2.216,61,Male,Non-smoker -1,3.247,65.5,Male,Non-smoker -1,4.324,67.5,Male,Non-smoker -1,2.362,61,Female,Non-smoker -1,2.563,63,Female,Non-smoker -1,3.206,63.5,Male,Non-smoker -4,3.585,70,Male,Non-smoker -2,4.72,71.5,Male,Non-smoker -3,3.331,65.5,Female,Non-smoker -3,5.083,74,Male,Non-smoker -0,3.498,68,Male,Smoker -2,2.417,61,Female,Non-smoker -0,2.364,61,Male,Non-smoker -0,2.341,61,Male,Non-smoker -2,2.759,61.5,Female,Smoker -1,2.953,67,Female,Smoker -2,3.231,63,Male,Non-smoker -1,3.078,67.5,Male,Non-smoker -1,3.369,70.5,Male,Non-smoker -2,3.529,70.5,Male,Non-smoker -2,2.866,62,Female,Non-smoker -4,2.891,62,Female,Non-smoker -1,3.022,61.5,Female,Non-smoker -0,3.127,62,Male,Non-smoker -1,2.866,60.5,Female,Non-smoker -2,2.605,62.5,Female,Non-smoker -3,3.056,63,Female,Non-smoker -2,2.569,63,Female,Non-smoker -1,2.501,62,Female,Non-smoker -1,3.32,65.5,Male,Non-smoker -1,2.123,65,Male,Non-smoker -4,3.78,70,Male,Non-smoker -1,3.847,66,Male,Non-smoker -3,3.785,63,Female,Smoker -2,3.924,68,Male,Non-smoker -0,2.132,59,Male,Non-smoker -2,2.752,68.5,Male,Non-smoker -3,2.449,63,Female,Non-smoker -0,3.456,63,Male,Non-smoker -0,3.073,66,Female,Non-smoker -0,2.688,62,Female,Non-smoker -0,3.329,68,Male,Non-smoker -4,4.271,72.5,Male,Non-smoker -2,3.53,64,Male,Non-smoker -1,2.928,65.5,Male,Non-smoker -1,2.689,61.5,Female,Non-smoker -2,2.332,57,Male,Non-smoker -4,2.934,64,Female,Non-smoker -4,2.276,66,Male,Smoker -0,3.11,64.5,Male,Non-smoker -1,2.894,67,Male,Non-smoker -1,4.637,72,Male,Smoker -0,2.435,65,Female,Non-smoker -0,2.838,63,Female,Non-smoker -2,3.035,62,Female,Non-smoker -2,4.831,71,Male,Non-smoker -1,2.812,61,Male,Non-smoker -2,2.714,65.5,Female,Non-smoker -0,3.086,62,Female,Non-smoker -2,3.519,65.5,Female,Non-smoker -3,4.232,70.5,Male,Non-smoker -0,2.77,62,Male,Non-smoker -2,3.341,65.5,Female,Non-smoker -0,3.09,65,Male,Non-smoker -3,2.531,61,Male,Non-smoker -2,2.822,69.5,Male,Non-smoker -0,3.038,65,Female,Smoker -2,2.935,65.5,Male,Non-smoker -0,2.568,63.5,Female,Non-smoker -1,2.387,60.5,Male,Non-smoker -2,2.499,65,Male,Non-smoker -1,4.13,67,Male,Non-smoker -2,3.001,63.5,Female,Non-smoker -0,3.132,59.5,Female,Non-smoker -3,3.577,63.5,Female,Non-smoker -2,3.222,61,Female,Non-smoker -1,3.28,66,Male,Non-smoker -1,2.659,64,Male,Non-smoker -1,2.822,62,Female,Non-smoker -1,2.14,60.5,Female,Non-smoker -2,4.203,71,Male,Non-smoker -4,2.997,64.5,Female,Non-smoker -1,3.12,61,Female,Smoker -1,2.562,62.5,Female,Non-smoker -2,3.082,64.5,Female,Non-smoker -4,3.806,68,Male,Non-smoker -1,3.339,68.5,Male,Smoker -3,3.152,62,Female,Smoker -1,2.458,60,Female,Non-smoker -0,2.391,59.5,Male,Non-smoker -3,3.141,61,Female,Non-smoker -2,2.579,63,Female,Non-smoker -1,3.104,67.5,Female,Smoker -3,4.045,69,Male,Smoker -4,4.763,68,Male,Smoker -0,2.1,58,Male,Non-smoker -1,3.069,65,Female,Smoker -1,2.785,69,Male,Non-smoker -5,4.284,70,Male,Non-smoker -5,4.506,71,Male,Smoker -8,2.906,66,Female,Non-smoker -9,5.102,72,Male,Non-smoker -9,3.519,66,Female,Smoker -6,3.688,68,Male,Smoker -7,4.429,70,Male,Non-smoker -5,4.279,67.5,Male,Non-smoker -5,4.5,70,Male,Non-smoker -5,2.635,64,Female,Non-smoker -5,2.679,66,Female,Smoker -5,2.198,62,Female,Smoker -9,3.345,65.5,Female,Smoker -8,3.082,64.5,Female,Non-smoker -6,3.387,66.5,Female,Non-smoker -7,3.082,67,Male,Smoker -6,2.903,63,Female,Smoker -5,3.004,64,Female,Smoker -5,5.793,69,Male,Non-smoker -5,3.985,71,Male,Non-smoker -8,4.22,68,Male,Non-smoker -7,4.724,70.5,Male,Non-smoker -5,3.731,67,Male,Non-smoker -7,3.406,69,Male,Smoker -7,3.5,62,Female,Non-smoker -6,3.674,67.5,Female,Non-smoker -7,5.633,73,Male,Non-smoker -5,3.122,64,Female,Smoker -5,3.33,68.5,Female,Smoker -6,2.608,62,Female,Smoker -6,3.645,73.5,Male,Non-smoker -5,3.799,66.5,Male,Smoker -8,4.086,67,Male,Smoker -5,2.887,63,Female,Non-smoker -6,4.07,69.5,Male,Smoker -7,3.96,70,Male,Non-smoker -6,4.299,66,Male,Non-smoker -6,2.981,66,Female,Non-smoker -5,2.264,63,Female,Smoker -8,4.404,70.5,Male,Smoker -5,2.278,60,Female,Smoker -6,4.504,72,Male,Non-smoker -7,5.638,70,Male,Non-smoker -6,4.872,72,Male,Smoker -6,4.27,67,Male,Smoker -5,3.727,68,Male,Smoker -8,2.853,60,Female,Non-smoker -6,2.795,63,Female,Smoker -5,3.211,66.5,Female,Non-smoker +11,2.884,69,Male,Non-smoker +10,2.328,64,Male,Non-smoker +14,3.381,63,Male,Non-smoker +11,2.17,58,Female,Non-smoker +11,3.47,66.5,Male,Non-smoker +12,3.058,60.5,Female,Non-smoker +10,1.811,57,Male,Non-smoker +11,2.524,64,Male,Non-smoker +10,2.642,61,Female,Non-smoker +14,3.741,68.5,Male,Non-smoker +13,4.336,69.5,Male,Non-smoker +14,4.842,72,Male,Non-smoker +12,4.55,71,Male,Non-smoker +12,2.841,63,Female,Non-smoker +10,3.166,61.5,Female,Non-smoker +13,3.816,63.5,Female,Non-smoker +10,2.561,62,Male,Non-smoker +11,3.654,65,Female,Non-smoker +10,2.481,61,Male,Non-smoker +11,2.665,63,Female,Non-smoker +10,3.203,66,Male,Non-smoker +13,3.549,68,Male,Non-smoker +14,2.236,66,Female,Smoker +11,3.222,72,Male,Non-smoker +10,3.111,66,Male,Non-smoker +11,3.49,67,Female,Non-smoker +13,3.147,64,Female,Non-smoker +10,2.52,60.5,Female,Non-smoker +10,2.292,63,Male,Non-smoker +12,2.889,64,Female,Non-smoker +10,2.246,60.5,Male,Non-smoker +10,1.937,62,Male,Non-smoker +10,2.646,60,Male,Non-smoker +11,2.957,64.5,Male,Non-smoker +11,4.007,67,Male,Non-smoker +11,2.386,61.5,Female,Non-smoker +10,3.251,66,Male,Non-smoker +11,2.762,60,Female,Non-smoker +11,3.011,64,Female,Non-smoker +13,4.305,68.5,Male,Non-smoker +13,3.906,67,Male,Non-smoker +11,3.583,67,Male,Non-smoker +11,3.236,66,Female,Non-smoker +14,3.436,62.5,Male,Non-smoker +11,3.058,61,Male,Non-smoker +10,3.007,62,Male,Non-smoker +10,3.489,66.5,Male,Non-smoker +10,2.864,60,Female,Non-smoker +14,3.428,64,Female,Smoker +13,2.819,62,Female,Non-smoker +10,2.25,58,Female,Non-smoker +14,4.683,68.5,Male,Non-smoker +10,2.352,61.5,Male,Non-smoker +11,3.108,64.5,Male,Non-smoker +13,3.994,67,Male,Non-smoker +12,4.393,68.5,Male,Non-smoker +13,3.208,61,Female,Smoker +10,2.592,65,Male,Non-smoker +13,3.193,70,Male,Non-smoker +11,1.694,60,Male,Smoker +14,3.957,72,Male,Smoker +11,2.346,59,Female,Non-smoker +13,4.789,69,Male,Smoker +11,3.515,67.5,Male,Non-smoker +11,2.754,65.5,Female,Non-smoker +10,2.72,65.5,Male,Non-smoker +11,2.463,64.5,Male,Non-smoker +11,2.633,62,Female,Non-smoker +10,3.048,65.5,Female,Non-smoker +11,3.111,67.5,Male,Non-smoker +13,3.745,68,Female,Non-smoker +12,2.384,63.5,Female,Smoker +10,2.094,58.5,Male,Non-smoker +10,3.183,65.5,Female,Non-smoker +14,3.074,65,Female,Smoker +11,3.977,70.5,Male,Non-smoker +10,3.354,63,Male,Non-smoker +11,3.411,63.5,Female,Non-smoker +10,2.387,66,Female,Smoker +11,3.171,63,Female,Non-smoker +13,3.887,67.5,Male,Non-smoker +13,2.646,61.5,Female,Non-smoker +10,2.504,60,Female,Non-smoker +11,3.587,64.5,Male,Non-smoker +11,3.845,68.5,Male,Non-smoker +12,2.971,64.5,Male,Non-smoker +10,2.891,61,Female,Non-smoker +10,1.823,57,Female,Non-smoker +11,2.417,62.5,Male,Non-smoker +10,2.175,58,Female,Non-smoker +11,2.735,62.5,Female,Non-smoker +14,4.273,72.5,Male,Non-smoker +13,2.976,65.5,Male,Non-smoker +12,3.835,69.5,Female,Smoker +11,4.065,66.5,Male,Non-smoker +11,2.318,59,Female,Non-smoker +11,3.596,68,Male,Non-smoker +14,3.395,67,Female,Non-smoker +12,2.751,63,Female,Non-smoker +10,2.673,64.5,Female,Non-smoker +12,2.556,62,Female,Non-smoker +11,2.542,62,Female,Non-smoker +10,2.608,66,Male,Non-smoker +11,2.354,62,Female,Non-smoker +13,2.599,62.5,Female,Smoker +10,1.458,57,Female,Non-smoker +10,3.795,68.5,Male,Non-smoker +11,2.491,59,Female,Non-smoker +13,3.06,61.5,Female,Non-smoker +10,2.545,65,Male,Non-smoker +11,2.993,66.5,Male,Non-smoker +10,3.305,65,Female,Non-smoker +13,4.756,68,Male,Smoker +11,3.774,67,Female,Non-smoker +10,2.855,64.5,Male,Non-smoker +11,2.988,70,Male,Non-smoker +11,2.498,60,Male,Non-smoker +14,3.169,64,Female,Non-smoker +11,2.887,62.5,Male,Non-smoker +13,2.704,61,Female,Non-smoker +11,3.515,64,Female,Non-smoker +11,3.425,65.5,Male,Non-smoker +10,2.287,61,Female,Non-smoker +13,2.434,65.4,Female,Non-smoker +10,2.365,63.5,Female,Non-smoker +13,3.086,67.5,Female,Smoker +10,2.696,66,Male,Non-smoker +12,2.868,62,Female,Non-smoker +10,2.813,61.5,Female,Non-smoker +14,4.309,69,Male,Smoker +12,3.255,66,Female,Non-smoker +10,3.413,66,Female,Smoker +11,4.593,69,Male,Non-smoker +14,4.111,71,Male,Non-smoker +12,1.916,60.5,Male,Non-smoker +10,1.858,58,Male,Non-smoker +10,2.975,63,Female,Smoker +10,3.35,69,Male,Non-smoker +10,2.901,59.5,Male,Non-smoker +12,2.241,64,Male,Non-smoker +13,4.225,74,Male,Non-smoker +11,3.223,64.5,Female,Non-smoker +12,5.224,70,Male,Non-smoker +11,4.073,67,Male,Non-smoker +12,4.08,64.5,Male,Non-smoker +11,2.606,65,Female,Non-smoker +11,3.169,62.5,Female,Smoker +12,4.411,68,Male,Non-smoker +12,3.791,68.5,Male,Non-smoker +13,3.089,67.5,Male,Non-smoker +11,2.465,60,Male,Non-smoker +12,3.343,68,Male,Smoker +10,3.2,65,Male,Non-smoker +12,2.913,64,Male,Non-smoker +13,4.877,73,Male,Non-smoker +10,2.358,59,Female,Non-smoker +12,3.279,70.5,Male,Non-smoker +10,2.581,66,Male,Non-smoker +12,2.347,61.5,Female,Non-smoker +10,2.691,67,Female,Non-smoker +11,2.827,62.5,Female,Non-smoker +10,1.873,52.5,Male,Non-smoker +12,3.751,72,Male,Smoker +14,2.538,71,Female,Non-smoker +10,2.758,65.5,Male,Non-smoker +10,3.05,60,Female,Non-smoker +12,3.079,60,Female,Non-smoker +10,2.201,60.5,Male,Non-smoker +10,1.858,59,Male,Non-smoker +13,2.216,68,Female,Smoker +12,3.403,62,Female,Non-smoker +12,3.501,64.5,Female,Non-smoker +11,2.578,63,Female,Non-smoker +13,3.078,66,Female,Smoker +12,3.186,67,Female,Smoker +10,1.665,57,Male,Non-smoker +11,2.081,63,Female,Non-smoker +11,2.974,62,Female,Non-smoker +13,3.297,65,Female,Smoker +12,4.073,68.5,Male,Non-smoker +13,4.448,69,Male,Non-smoker +13,3.984,71,Male,Non-smoker +10,2.25,58,Female,Non-smoker +12,2.752,63.5,Female,Non-smoker +12,2.304,66.5,Male,Smoker +14,3.68,67,Male,Non-smoker +11,3.102,64,Female,Smoker +10,2.862,61,Female,Non-smoker +13,2.677,67,Female,Smoker +11,3.023,67.5,Female,Non-smoker +11,3.681,68,Female,Non-smoker +13,3.255,66.5,Female,Non-smoker +12,3.692,67,Male,Non-smoker +10,2.356,60.5,Female,Non-smoker +10,4.591,70,Male,Non-smoker +12,3.082,63.5,Female,Non-smoker +13,3.297,65,Female,Smoker +11,3.258,63,Female,Non-smoker +10,2.216,61,Male,Non-smoker +11,3.247,65.5,Male,Non-smoker +11,4.324,67.5,Male,Non-smoker +11,2.362,61,Female,Non-smoker +11,2.563,63,Female,Non-smoker +11,3.206,63.5,Male,Non-smoker +14,3.585,70,Male,Non-smoker +12,4.72,71.5,Male,Non-smoker +13,3.331,65.5,Female,Non-smoker +13,5.083,74,Male,Non-smoker +10,3.498,68,Male,Smoker +12,2.417,61,Female,Non-smoker +10,2.364,61,Male,Non-smoker +10,2.341,61,Male,Non-smoker +12,2.759,61.5,Female,Smoker +11,2.953,67,Female,Smoker +12,3.231,63,Male,Non-smoker +11,3.078,67.5,Male,Non-smoker +11,3.369,70.5,Male,Non-smoker +12,3.529,70.5,Male,Non-smoker +12,2.866,62,Female,Non-smoker +14,2.891,62,Female,Non-smoker +11,3.022,61.5,Female,Non-smoker +10,3.127,62,Male,Non-smoker +11,2.866,60.5,Female,Non-smoker +12,2.605,62.5,Female,Non-smoker +13,3.056,63,Female,Non-smoker +12,2.569,63,Female,Non-smoker +11,2.501,62,Female,Non-smoker +11,3.32,65.5,Male,Non-smoker +11,2.123,65,Male,Non-smoker +14,3.78,70,Male,Non-smoker +11,3.847,66,Male,Non-smoker +13,3.785,63,Female,Smoker +12,3.924,68,Male,Non-smoker +10,2.132,59,Male,Non-smoker +12,2.752,68.5,Male,Non-smoker +13,2.449,63,Female,Non-smoker +10,3.456,63,Male,Non-smoker +10,3.073,66,Female,Non-smoker +10,2.688,62,Female,Non-smoker +10,3.329,68,Male,Non-smoker +14,4.271,72.5,Male,Non-smoker +12,3.53,64,Male,Non-smoker +11,2.928,65.5,Male,Non-smoker +11,2.689,61.5,Female,Non-smoker +12,2.332,57,Male,Non-smoker +14,2.934,64,Female,Non-smoker +14,2.276,66,Male,Smoker +10,3.11,64.5,Male,Non-smoker +11,2.894,67,Male,Non-smoker +11,4.637,72,Male,Smoker +10,2.435,65,Female,Non-smoker +10,2.838,63,Female,Non-smoker +12,3.035,62,Female,Non-smoker +12,4.831,71,Male,Non-smoker +11,2.812,61,Male,Non-smoker +12,2.714,65.5,Female,Non-smoker +10,3.086,62,Female,Non-smoker +12,3.519,65.5,Female,Non-smoker +13,4.232,70.5,Male,Non-smoker +10,2.77,62,Male,Non-smoker +12,3.341,65.5,Female,Non-smoker +10,3.09,65,Male,Non-smoker +13,2.531,61,Male,Non-smoker +12,2.822,69.5,Male,Non-smoker +10,3.038,65,Female,Smoker +12,2.935,65.5,Male,Non-smoker +10,2.568,63.5,Female,Non-smoker +11,2.387,60.5,Male,Non-smoker +12,2.499,65,Male,Non-smoker +11,4.13,67,Male,Non-smoker +12,3.001,63.5,Female,Non-smoker +10,3.132,59.5,Female,Non-smoker +13,3.577,63.5,Female,Non-smoker +12,3.222,61,Female,Non-smoker +11,3.28,66,Male,Non-smoker +11,2.659,64,Male,Non-smoker +11,2.822,62,Female,Non-smoker +11,2.14,60.5,Female,Non-smoker +12,4.203,71,Male,Non-smoker +14,2.997,64.5,Female,Non-smoker +11,3.12,61,Female,Smoker +11,2.562,62.5,Female,Non-smoker +12,3.082,64.5,Female,Non-smoker +14,3.806,68,Male,Non-smoker +11,3.339,68.5,Male,Smoker +13,3.152,62,Female,Smoker +11,2.458,60,Female,Non-smoker +10,2.391,59.5,Male,Non-smoker +13,3.141,61,Female,Non-smoker +12,2.579,63,Female,Non-smoker +11,3.104,67.5,Female,Smoker +13,4.045,69,Male,Smoker +14,4.763,68,Male,Smoker +10,2.1,58,Male,Non-smoker +11,3.069,65,Female,Smoker +11,2.785,69,Male,Non-smoker +15,4.284,70,Male,Non-smoker +15,4.506,71,Male,Smoker +18,2.906,66,Female,Non-smoker +19,5.102,72,Male,Non-smoker +19,3.519,66,Female,Smoker +16,3.688,68,Male,Smoker +17,4.429,70,Male,Non-smoker +15,4.279,67.5,Male,Non-smoker +15,4.5,70,Male,Non-smoker +15,2.635,64,Female,Non-smoker +15,2.679,66,Female,Smoker +15,2.198,62,Female,Smoker +19,3.345,65.5,Female,Smoker +18,3.082,64.5,Female,Non-smoker +16,3.387,66.5,Female,Non-smoker +17,3.082,67,Male,Smoker +16,2.903,63,Female,Smoker +15,3.004,64,Female,Smoker +15,5.793,69,Male,Non-smoker +15,3.985,71,Male,Non-smoker +18,4.22,68,Male,Non-smoker +17,4.724,70.5,Male,Non-smoker +15,3.731,67,Male,Non-smoker +17,3.406,69,Male,Smoker +17,3.5,62,Female,Non-smoker +16,3.674,67.5,Female,Non-smoker +17,5.633,73,Male,Non-smoker +15,3.122,64,Female,Smoker +15,3.33,68.5,Female,Smoker +16,2.608,62,Female,Smoker +16,3.645,73.5,Male,Non-smoker +15,3.799,66.5,Male,Smoker +18,4.086,67,Male,Smoker +15,2.887,63,Female,Non-smoker +16,4.07,69.5,Male,Smoker +17,3.96,70,Male,Non-smoker +16,4.299,66,Male,Non-smoker +16,2.981,66,Female,Non-smoker +15,2.264,63,Female,Smoker +18,4.404,70.5,Male,Smoker +15,2.278,60,Female,Smoker +16,4.504,72,Male,Non-smoker +17,5.638,70,Male,Non-smoker +16,4.872,72,Male,Smoker +16,4.27,67,Male,Smoker +15,3.727,68,Male,Smoker +18,2.853,60,Female,Non-smoker +16,2.795,63,Female,Smoker +15,3.211,66.5,Female,Non-smoker diff --git a/data/fevdata.rda b/data/fevdata.rda index 6c47c9ffbd6efd4bfd647aa6ea2e4bf425dca9ab..79da40596d835f931725f7f152e2627e34fbf2b9 100644 GIT binary patch literal 3416 zcmV-e4X5(`H+ooF0004LBHlIv03iV!0000G&sfahNnZ^dT>vQ&2UJ%gRpOV=m zIEJpd1T{tch{e*Rf(+jWzV7X|@ElrRjn7wtK@c4gBR(lA)X48hrrzgWxW(q0s0e5$ zP={#Z!8L^oF%s?~PvVRghU_EXa~cmVnKDD4`tcJm+!s54i{5~nJx>_q1Y~gWj>d-8 z(8^dF;!gr%)OK-`WrQI${~r^?{uJmV3SafL6`Ajw>j}=C2@~s-(YhFoaMzuZP#A<) z2kw@qkd2wOdnjJ?wmZl@b+WV0X7~JrA>8i2kaBmfBv(N%D=W^?&rx5rNIdzClLjVK2$|(_jFh~lPm&sgDl05 z8G8EpOWeUWwbnMAj6=5*F6lapKb_-o@mf8S76h>VQ6a5##q%de@OQwOBK&Y;a+RzcWosxs@azF!cyz0}qm8e3j{V{2w%Ne5$Ho!OXdG zbs8BV`!KzLJPDn5W#0=ZxNz6WD!W7CT9*hIv&rdWqDtL2lOrHybUxi_R2lAE6TK~@ zW)|yQ`eyx;tLN&p9j1zl6>t)?dEaaP&-+n6OHUO&w7zijX0d`aWsw2996eiVGV%DZ z>i}9e($M|x3vr?LQ8#-4PVLq@7Ij&Df{n`Q-ts*MXolTZmexK{)feuuZ12>*e%AgW zDPPGb4D9O2^Ij@kzkwTq6=POg#}XWSn2m^OG3*&8OREuvU!(K}16aUIy6dQEmC+Bg zBYiw)M@~a@XF@aqxs^jE&$_+C-(`T+X9;sUiWDcaF1KeBMVS)o+h_7Ah!*g0)IlT# zL!!ffqFT@+6s6j88jhO4lBMG%f3*GZI!!C^0xKAN2Qd5wjpiKZ!Xv$I*NbY)Ja9C; zz|au)k)a;%{&Ff(|Bw`VE{}5!Tj^`yXov@_{zcl9iF_HY9aFJ^_QSF~QQ5l3yD6NR(*WEE!lE8{uuYB8iT?o6 zROk1l4qHkGG(tvkx}a$EaJkp_K|e_^i7)bCp@xj+2tMk>-H;pey41U3BcX{WNW*Gz zra2U;l}x+-FN=KnTub22bc9%@<0szUU*5``I3W41_J6-GM7YEyiHGe`fDT)Ey) zdZmZotJyc*S@K#C4=^(RZt4m4j6yDh@D;>(njVGlbAZ2GUNwgmt8lRfE}`-(MdifO z!{nKS^JUzX(3`mG(XNJYyb7*A@=aPj`1K~V^Ns_|`ml0aog#@eyHgv-T9}n0P$UoC z&EW@MwK)uj_%iYiP!Ayep3*&rplu z_&LAacPn*c*4yi6BuLLp#EMh$>J%z>P7nyu#Dnph4HNjPQsQL;fk1BbuWwD~VL!u? z%2JDlFRSI=R%Slip$P`p94~l4rRR1Kp^X;dt|GeAZVz6&C}t<0ddm|6 zLvx}7l3`pda{J`RuZgpGUx`$>jBR-Kz(|upwW7N6-l@rg$b&%bA40_d*Zyps~#v;#6sg%vv;GUPk zsXC-TM&%Q0;@x$H*s=AO$i*A9`!`^HW2k>{u$hvrNX6_8Y8rmGTMy{x{UQ^uTG{NB zyJ-o+96h^BslZS3lA_bJ)m*WWVLA6N&2gNr!VsUd((RAx>v?DZC@zh!69-gzC`m|B z0~8&LItj9?{MtY%OlM`W75Cc^jji}AVShskkN~qD74%%pI7H!gvQL@Cau1o-cL8b^ z9Ej-#BOD#tofgu2T@u-}=AIc9?|H}NPbN8DW-LAdozGl>uP5V_<|rsHgR~xJc4Yjw z7siGBt;k#Bi8RP(OWMDT8!@)HTp|BVEHdeN^r) zdwTvwBC!GSCw6)X53G3V`(X%HP(e*WAmwpTV8^EFU_ za*Y1IMG*OV<1-n@PkA`D6L%09_e&0)nbI}3o-J@YQdUPg(f5uA=67^y9Jm|AABrakWcY_~|d}9G1QN z0sss%__kxn;N|G?MPS(iLY#V^6Ho@&fx^jj72b6YtSM$m^lA4O#V}M7tU!okWmXNy zL{G%)6UDsnW2GU=im)qm-pfX`%d2ujtMsef|6^tq1J>N*Lj7=|xnz=m=Xn5VOYu}p z@kZD;!qN84$VG_ypnFS04D+{keFCZx5V4*RjC5;SnjCyvh%s=yG%n{W9^2JZMN8mH z#Ks{!U-&2-z~An^PXh^tc0RXkTw89*4G)eW*h7tPjSo~VSy&WGv}Vh4nJq14jg0P# zwb%hLZXpn8&TYtRp29QI3Xe06`Bm_)f;lwPi#eEV+FT&N9e5eM-qhDx=qViUWM6FF z*ryol1`e86)q(TC@#5TC8juD$niU)g&TMrXhC%zQ;%U=2lZEw-<-9lDa;*`=uklRd zN#h1@kbsDoc)Ip)|5t3m%PrlU;b)K!Z^E8@S03-TuTG zLp9m03SiNsM|pm;WpN|!S2^GGKx07_WHb^Yba zYW*wy(PO%iRFT5knH4G6%=K`FU<_U{K2958xdrfl7t7Xsk!0j{;cjdK@+BeW8AOL1 zIIUx&`Wa)qe?Ha=sWCub8S^nQjJ9;_N;wvi6x5^F@h-7ws^mN*v0jKe*`7&F{ea}o zvza_#RRUa+0UUKZzEi?Tu6%Hd!46uz0=od9QuL=7(qAYPj&Du0tK((}ocFP5no81Q zK$~Cf(Qn)or9CLYpFPzG=}e zb5Z-XWkXV{`x>+`L)Ie$!$>C7p4Sx*HncjhkSKlYjG|gR7RL@NZDrD~nGt4@vhx8G z;C(9$r=~T_Ph){9P{cB<2v`#9j;D^#L@MPvZ3QXQ)vvQ&2UJ%gRpOV=m zI67b^A-50YK(04Kkvc^9JHm9}V2-Tmd4!Z-tkJQIRKM_jT*x}|t93pWEtF@TIP|h@ z*Fgk^-|%FWc5^jT-Q(KDFg%)X0G}i+%`-uEN!(L|&k$otXV=6|&?&^Ef!pa$e38!n zQD>+}G1%8j4ra0KL5&u|0^#*%V4T`ymMc~Ym#OZDQ!+t>Wz8z+(Q`aGC9|@nDj|fn z#EkM0JdMut&s#*FYZ^Q43F#H<6iesPZ?#4wt$OF34%vy+WI{D>#pGKb5h8go_h?ui zLXAc6`_ZFDwk%qHVJGvpRx=lo&139)__dc$s4hDS*G)auysa)b?bejTeNGd*dY|H) zWqBbWP6PSRNuqs*qUFQ6tND!V=VwzIIAo>n+ILE`)-M`qmk<)!0)M3HL&SJA1=L@m zWEe=|m`p%Ci54yPYEoT6E0JqgcB>z9f|U1Oxh&Or5vT;K?g>F#cF(kJero5 z`KW?D35%Tqz(;MC?xV;g6#~9@RRkE)yjcv#AP2u~QrzOz2bt$?K6@H&PkvFx4Mya$ zRkET;^dT9kJHO#51ElC|gq0AfO`GlWc!qa#!Tx`iwrX#oA-((MH_8gM-OAqWeJi?S zi9XyYsPXWl0u{}l8ezxY4F@|%d3_lj!<(KEGS9-3!7)B;c3d{d-cSiTna`aKGGE|T zu;RN32(0^JeElSGYMK(52NEKvDs-e;qxB_A@UXw|Vk@WOfNylNPlJIL;S#o^ngl zsz_0lYFaC`Oj_2A%Qs&(nJ@%T_dgsQO}fyI6v+T)$pBh~2BB{B?58EjR;&&3Lh}nC zPhty3^ zdz#`e5gXVixL4RN<<7DUuhih<#)gg|w9*fmA|_soFn#)kQ!7xiSkn>6I3LNl+{DAU*56VjzH6+X=n zjz#6&usc<&iCHMz&OsYZAhsv$jnOF%(d;5>ApJ+}8r1Z|0$S*i8%AS)t>F}L8#y5bw9^)t z8%U$)V>;QI?LOw}C(l+~U$^m|o23M0E%X0OLWies>?_v}M?lHoN3I#H>!*}k^s?L^ z*MS|Jb@VvSx0${yu!~P_na#s=7CCYb?l0JQao&pKBDZ7x1rP)3I7Nl(`}KEUz@V?g z2~aPNne$XQ{s)!gS1i6$IVC#_3Tn*+=3uZ8pF3N}Na3Vk85N&sh5_?OKOKC)-8{i# z6zvnpLxR<7>T*@nfK(J@JWq5LEm)5{2M65uEulD*s@V4|8P-#U4voA}8RA*As+g^- z|6~TlB8S>v0p7kVJ!DXEfh%WMXGs~k)-YY7<%JD4-xC*jU{7A8DbT=MqBT1{ki0rM z?#u{m$b+bYpJlV{j6G)%>?d61z2`&(5uVFzT2YZec%Wh%{_Cnby8Q|5j-hYW%A*N> zl)X_?h-X#ahswf~E>(Dt#H)PE-n9XsVzt;UmsBnWp-n~Xq4voq;!JIBvJiNmBrHC6 za*gVPt~!^85Eoav9}VNBLIKASNb@G7Y!PwFA;tyn19S?Mz}o9;;!oL4`EbFSaRENN zdbqIeq;s>_m{}hw>fLOK6{xqRcr_QrWcxYP^Hn9sHD#KiShy^0v?P^?Tjg~RpmN1Hs}c2OM5>@n-w3Z z2n8-AttLmO9e^=6tfI0**TY9l#x~R!QpwMR(2nAg-2&)8kBW+e^J+=QLFi``xc13- z%}k$!CZIXA*Q~(F7@_?OJ>=H%r?i19jwITNEH|4WkeJ^fs2gv?GDyJ{MuU6o*zO)^ zkB}r4@k5qnI6n4VN3&hoZy2 zVR9cb2Nu1ZEF*a3si$^mS{Q5l`Fl{!8-6!qyJSJXY!=pc%CN-X!|31Sw!8KHC!Q?7 zz4kQY1^0eXV_q6KDr_uXsRIpofwO@J(bzd|fJ}-$+-v0pe7%a$D#Pta&bDXh)VGf( zb{=Z-kQeueQbK-D@0s<KJYu9%kF+A#fEUhooMQO_V2Q()h$sJ1-6SV0+gi6!Gur5X&OUjOM&O6q>4wA&T@ zAc$tW_P>%Zm|Zjn=ppIQwB;u+_RK*3HRy@I95OWn0H?&59I=b&}F%enAnqG zW6pK1&ff7sxPCHI|5jwcc9+!vGp3xRJR18b#52-zHbz9Qtg((9?)FAoDRObF;0Ju z6WK@ZyV9wamCIEghK@*d=xo`&ZX0H~M@}U?t%98v35Of73Ctn)0U@_D+5VlQDzC;Gjo@ns+P38vkl z?3<_=hFLtlvUsy@m>vMsKsy{CqX9)qp6_ZZ?|Ix*dN)ujI=xp4bjvkxv-7mhFQ6P< z=@8$WQDHjbl-)h{m>Q{*tjSB1$MjWk>1m`-Je1e}+-?^62yElqSqM3NeE?J7_JLdt-;*vL8d3D*tR(7U;PI*^=?B*F7 zG}?O|Xz59OAxxCeAO>`(cM(73K3LNxM2e$!?xjM9;jJM`J$%FT=rcNDYgL;-`!} zr^gfEhc%W$7ywo?AOK14&+iDs^UkdNN0@JV z_T@joL8P$E9y+*=x-S~+Jw8&H4XP*j}P{S=)qlrIU zq-)HRHxNz53-PmG#8Sy{-yusV13-dESAKcm?dLeVpAxb9fObdeXI{AhMD-__1XK$^ z`}_@lt1YdnVrftO^Is(3uUyu&j#!561kLI#Yc}>*SS)ID=*uJrUHfDRi8l%#uk&+( zhruXWiO_Q2Ej^eZ8Dp&z-3fg)f*vrE47!00mHS5P#nx;3taFIJ4++s6pQ#csU;*v{ zW;*^wsFk}i{L28QMLuywZSsdVB8}4Sr!n`$Ys^F5e=_6aK^c&_4YyaXx*wTLIt&xS zxDVEw79%A7+P`R}UNZ4J_t%)2F*4 Date: Wed, 2 Aug 2023 11:21:12 -0700 Subject: [PATCH 2/8] chore: move repo to coursekata/coursekata-r --- .gitignore | 3 +- README.Rmd | 20 ++++---- README.md | 56 ++++++++++++----------- man/figures/README-samp_dist_of_b1-1.png | Bin 19337 -> 20185 bytes man/figures/README-samp_dist_of_hp-1.png | Bin 18990 -> 19584 bytes man/figures/README-shaded_middle-1.png | Bin 22317 -> 22336 bytes 6 files changed, 41 insertions(+), 38 deletions(-) diff --git a/.gitignore b/.gitignore index d1de5fe..4a3f343 100644 --- a/.gitignore +++ b/.gitignore @@ -1,4 +1,5 @@ .Rproj.user .Rhistory .RData -.DS_Store \ No newline at end of file +.DS_Store +README.html diff --git a/README.Rmd b/README.Rmd index 1abc858..b427f34 100644 --- a/README.Rmd +++ b/README.Rmd @@ -17,8 +17,8 @@ knitr::opts_chunk$set( -[![R build status](https://github.com/UCLATALL/coursekata-r/workflows/R-CMD-check/badge.svg)](https://github.com/UCLATALL/coursekata-r/actions) -[![codecov](https://codecov.io/gh/uclatall/coursekata-r/branch/main/graph/badge.svg?token=HEenoYyHcn)](https://app.codecov.io/gh/uclatall/coursekata-r) +[![R build status](https://github.com/coursekata/coursekata-r/workflows/R-CMD-check/badge.svg)](https://github.com/coursekata/coursekata-r/actions) +[![codecov](https://codecov.io/gh/coursekata/coursekata-r/branch/main/graph/badge.svg?token=HEenoYyHcn)](https://app.codecov.io/gh/coursekata/coursekata-r) @@ -28,7 +28,7 @@ knitr::opts_chunk$set( Learn more about CourseKata and its free services and materials at [CourseKata.org](https://coursekata.org/). -This package makes it easy to install and load all packages and functions used in CourseKata courses. It additionally provides a handful of helper functions and augments some generic functions to provide cohesion between the network of packages. This package was inspired by the [tidyverse](https://tidyverse.tidyverse.org) meta-package. +This package makes it easy to install and load all packages and functions used in CourseKata courses. It additionally provides a handful of helper functions and augments some generic functions to provide cohesion between the network of packages. This package was inspired by the [tidyverse](https://tidyverse.tidyverse.org) meta-package. ## Installation @@ -36,7 +36,7 @@ This package makes it easy to install and load all packages and functions used i ```{r eval = FALSE} # Install the development version from GitHub # install.packages("remotes") -remotes::install_github("UCLATALL/coursekata-r") +remotes::install_github("coursekata/coursekata-r") ``` Note that installing the package will install all of the functions that are used in the course, but by default a couple of packages will not be installed: `fivethirtyeight` and `fivethirtyeightdata`. These packages only contain data, so the R package building process complains when functions are not imported from them. The first time you call `library(coursekata)` you will be prompted to install the packages if they are not already installed. @@ -44,13 +44,13 @@ Note that installing the package will install all of the functions that are used ## Loading Packages Used in CourseKata Courses -`library(coursekata)` will load these core packages in addition to the [functions and theme](#functions-and-theme) included in the `coursekata` package: +`library(coursekata)` will load these core packages in addition to the [functions and theme](#functions-and-theme) included in the `coursekata` package: ```{r} library(coursekata) ``` -* [supernova](https://github.com/UCLATALL/supernova), for +* [supernova](https://github.com/UCLATALL/supernova), for - creating ANOVA tables. - tools for extracting information from fitted models (`b0()`, `b1()`, `PRE()`, `fVal()`) - an augmented `print.lm()` which prints the fitted equation as well @@ -68,7 +68,7 @@ In addition to useful functions, a great deal of data sets are used by instructo ## Functions and Theme -This package also comes with a variety of functions useful for teaching statistics and data science, and it has an automatically set `ggplot2` theme complete with colorblind-friendly palettes and other improvements to aid perception and clarity of plots. +This package also comes with a variety of functions useful for teaching statistics and data science, and it has an automatically set `ggplot2` theme complete with colorblind-friendly palettes and other improvements to aid perception and clarity of plots. ### Estimate Extraction (and Bootstrapping) @@ -121,7 +121,7 @@ samp_dist_of_hp <- do(1000) * { gf_histogram(~ samp_dist_of_hp$result) ``` -### Sectioning a Distribution +### Sectioning a Distribution When teaching about hypothesis testing, *F*, and *p*-value, it is useful to mark different portions of a distribution as inside or outside the critical zone. `middle()`, `upper()`, and `lower()` each take a distribution of values and return whether the value was in, e.g. the middle 95% of the distribution. Use this with a plotting function to shade in those areas: @@ -136,10 +136,10 @@ The `ggplot2` theme is loaded by default but can be toggled on and off via `load # Contributing -If you see an issue, problem, or improvement that you think we should know about, or you think would fit with this package, please let us know on our [issues page](https://github.com/UCLATALL/supernova/issues). Alternatively, if you are up for a little coding of your own, submit a pull request: +If you see an issue, problem, or improvement that you think we should know about, or you think would fit with this package, please let us know on our [issues page](https://github.com/coursekata/coursekata-r/issues). Alternatively, if you are up for a little coding of your own, submit a pull request: 1. Fork it! 2. Create your feature branch: ```git checkout -b my-new-feature``` 3. Commit your changes: ```git commit -am 'Add some feature'``` 4. Push to the branch: ```git push origin my-new-feature``` -5. Submit a [pull request](https://github.com/UCLATALL/supernova/pulls) :D +5. Submit a [pull request](https://github.com/coursekata/coursekata-r/pulls) :D diff --git a/README.md b/README.md index 7081fdb..b5f321b 100644 --- a/README.md +++ b/README.md @@ -1,3 +1,4 @@ + # coursekata @@ -6,17 +7,16 @@ [![R build -status](https://github.com/UCLATALL/coursekata-r/workflows/R-CMD-check/badge.svg)](https://github.com/UCLATALL/coursekata-r/actions) -[![codecov](https://codecov.io/gh/uclatall/coursekata-r/branch/main/graph/badge.svg?token=HEenoYyHcn)](https://app.codecov.io/gh/uclatall/coursekata-r) - +status](https://github.com/coursekata/coursekata-r/workflows/R-CMD-check/badge.svg)](https://github.com/coursekata/coursekata-r/actions) +[![codecov](https://codecov.io/gh/coursekata/coursekata-r/branch/main/graph/badge.svg?token=HEenoYyHcn)](https://app.codecov.io/gh/coursekata/coursekata-r) ## Overview -_CourseKata Statistics and Data Science_, is an innovative interactive +*CourseKata Statistics and Data Science*, is an innovative interactive online textbook for teaching introductory statistics and data science in -colleges, universities, and high schools. Part of CourseKata’s _Better -Book_ Project, we are leveraging research and student data to guide +colleges, universities, and high schools. Part of CourseKata’s *Better +Book* Project, we are leveraging research and student data to guide continuous improvement of online learning resources. The **coursekata** package is designed to make it easy to install and load the packages, functions, and data used in the book and supplementary materials. @@ -32,10 +32,10 @@ the [tidyverse](https://tidyverse.tidyverse.org) meta-package. ## Installation -```r +``` r # Install the development version from GitHub # install.packages("remotes") -remotes::install_github("UCLATALL/coursekata-r") +remotes::install_github("coursekata/coursekata-r") ``` Note that installing the package will install all of the functions that @@ -52,26 +52,28 @@ they are not already installed. [functions and theme](#functions-and-theme) included in the `coursekata` package: -```r +``` r library(coursekata) -#> ── CourseKata packages ───────────────────────────────────── coursekata 0.3.3 ── -#> ✔ supernova 2.5.1 ✔ fivethirtyeightdata 0.1.0 -#> ✔ mosaic 1.8.3 ✔ Lock5withR 1.2.2 -#> ✔ lsr 0.5.2 ✔ dslabs 0.7.4 +#> Registered S3 method overwritten by 'mosaic': +#> method from +#> fortify.SpatialPolygonsDataFrame ggplot2 +#> ── CourseKata packages ───────────────────────────────────── coursekata 0.9.4 ── +#> ✔ supernova 2.5.6 ✔ fivethirtyeightdata 0.1.0 +#> ✔ mosaic 1.8.4.2 ✔ Lock5withR 1.2.2 +#> ✔ lsr 0.5.2 ✔ dslabs 0.7.6 #> ✔ fivethirtyeight 0.6.2 ``` - [supernova](https://github.com/UCLATALL/supernova), for - creating ANOVA tables. - - tools for extracting information from fitted models (`b0()`, - `b1()`, `PRE()`, `fVal()`) - - an augmented `print.lm()` which prints the fitted equation as - well + - tools for extracting information from fitted models (`b0()`, `b1()`, + `PRE()`, `fVal()`) + - an augmented `print.lm()` which prints the fitted equation as well - … and more! - [mosaic](https://projectmosaic.github.io/mosaic/), for a unified interface to most statistical tools. -- [ggformula](https://projectmosaic.github.io/ggformula/), for a - formula interface to ggplot2. +- [ggformula](https://projectmosaic.github.io/ggformula/), for a formula + interface to ggplot2. - [dplyr](https://dplyr.tidyverse.org), for data manipulation. In addition to useful functions, a great deal of data sets are used by @@ -94,7 +96,7 @@ to aid perception and clarity of plots. Extracting an estimate is as easy as passing a fitted linear model to one of the extraction functions: -```r +``` r fit <- lm(mpg ~ hp, data = mtcars) # the estimate for β₀, the intercept @@ -126,7 +128,7 @@ The estimate extraction functions help to simplify the ability to create bootstrapped sampling distributions of those estimates. Here is an example of bootstrapping the slope: -```r +``` r # use mosaic package to repetitively resample to bootstrap a distribution samp_dist_of_b1 <- do(1000) * b1(lm(mpg ~ hp, data = resample(mtcars))) @@ -140,7 +142,7 @@ Other estimates and terms can be bootstrapped using the same technique, but you will need to calculate the values yourself. Here’s an example of doing that for a term that doesn’t have a dedicated extraction function: -```r +``` r samp_dist_of_hp <- do(1000) * { # create a new model from the resampled data model <- lm(mpg ~ disp * hp, data = resample(mtcars)) @@ -157,14 +159,14 @@ gf_histogram(~ samp_dist_of_hp$result) ### Sectioning a Distribution -When teaching about hypothesis testing, _F_, and _p_-value, it is useful +When teaching about hypothesis testing, *F*, and *p*-value, it is useful to mark different portions of a distribution as inside or outside the critical zone. `middle()`, `upper()`, and `lower()` each take a distribution of values and return whether the value was in, e.g. the middle 95% of the distribution. Use this with a plotting function to shade in those areas: -```r +``` r # shade in the middle 80% of the Thumb distribution gf_histogram(~Thumb, data = Fingers, fill = ~ middle(Thumb, .80)) ``` @@ -183,7 +185,7 @@ users as `theme_coursekata()` and `scale_discrete_coursekata()` If you see an issue, problem, or improvement that you think we should know about, or you think would fit with this package, please let us know -on our [issues page](https://github.com/UCLATALL/supernova/issues). +on our [issues page](https://github.com/coursekata/coursekata-r/issues). Alternatively, if you are up for a little coding of your own, submit a pull request: @@ -191,5 +193,5 @@ pull request: 2. Create your feature branch: `git checkout -b my-new-feature` 3. Commit your changes: `git commit -am 'Add some feature'` 4. Push to the branch: `git push origin my-new-feature` -5. Submit a [pull request](https://github.com/UCLATALL/supernova/pulls) - :D +5. Submit a [pull + request](https://github.com/coursekata/coursekata-r/pulls) :D diff --git a/man/figures/README-samp_dist_of_b1-1.png b/man/figures/README-samp_dist_of_b1-1.png index db95c1f1b05b1fbf5a006f4dc72d80df3f2804c3..23ecc19335ddc08c751e6d48a2b3c7b9dd51dcdc 100644 GIT binary patch literal 20185 zcmeIaWmr`2*DpQ;h@gT9iV6~v(nyH(h@dn`N~`3M3PUr5g-C;lG%7IkNH>Fuba#Vv zcjvjs?-%g7&a3~6^F04^uHOr}^mgx?z1O|sv)1~o?W3&tkmwx6IS2$oBqJ@U0)gPf zLmhq_D#t)6HjcwtEDi0+fkh}i=>Uw53 z)Gv!g73HuoG`;FbN(v!9ye+G2*aOWO7WjkLFZQR#pljz9Uom4@oBr8lM# zDX9Xj6>O-E2vd^bS5EfdMe3>+CHM1g8$_S8cUOtNFnN(0GBV1_@y%t6p8A^tob_G3 zzoyxp>eYAKg_GnaILJi~Q@Bufi(sP3`+Mw*zGJJGG*Dudnklj25(fqx1(&NBMc?X2 zUqIAw+wX7eI%vj35R8ThUOi9Y$H=9Tw<1yFp_#{=Kw^-O@CY0os8Q$-t%Js4;wUDR zLuo=6bj2#KeDbe_eShsde}(%AnPd>{MYx;Jldq_A6w_v(rxVRSZ+DK&5C34+Fwj)ryB$)NX~)FnNp( zjf?$mvWv5gdok=;qc_57YhY{eg2pcHp?Qb%5}(B)`fJv?NqG39fj9~69uARPMsGxa z{QO}gr!;-#?Q6oPTrLg*X=MIa^-A!ozu6e2A=5ptrr6C}r{{G27FT=l5ue#DX>5rX zSJ8UxHNA}Zb-FiJB`&WQHj*6Ny8fbq{QNti zFGNi~kxa|RmzC*>ZKNpGDhLdIKy!6+#yC;SD5?xwF(3Rr*W)^}APrWWaeYpJV;vFn#U?#j^VhKtdh3V8m? zbQVO-`*QJEfbjUvRNPVmzeN|j^YmwL`5-~7K0fEYg@VS_D{LAy>oe`f2fG_QuA7!x zh0mX&7Pe2%@d*kRIB*67Z)e&W+A3$Bn3$N1liL__UGgE0TdyQj`lMx8|CWJ*rMvm_dAC;?V zYSzacuA`FMWSCFqdsni9vQj~B(ZX^RIo1@^XOmQW?J-uWXgj~zLb+w@iA7ca6R z3LKa8+euyOISSsDb8&DitV>?C67BR-FvM+n`tz+6Zi`iazRYkrQflgraog(K6p^PX z;qn~b?)NTG34QRI=FNM_!)}m~kYFbyLZoPM^S9@lOfM-*KwAg zc)8Gwv@Dn_17xAjcx|%Lq|$9+ZD&TwLwj?+mwxvesz-)?X4_zvBB3~xIG{gGlWS(M zq(HcSSM%W2MOEi?bkGGZPqDYEf#I2l)4ZkEjL_bA>uxDi%1yUL@vL{O*Ux4WOE#}O zbC%jv-rQ(y(Gw*vuC|tt)tKBG_Asz6-!Um#siK?+k>k9brmmq;2h2e7{D@*7#a*Ks zk}Z1lsU!G!E`cA?`SjyD@m9YLMz2Y9Yv9)Bd=te;J{fWjZKFvJt?Wu&{cgE=`O|wG z&L?b;?zbz6bL8da*|sYPNL|_6m}71h-HL9A7UUJ$581pD!)vODpc*=HK?FT)EnlJ2 z&QmeWyUj6tH60#4Ntfs!)Vw@%Ufxst(W79qE0Z@*)b#PKpf0&({Zaz4vRhfi$CmUY z5LR_Iep5L__1M}VP%dCx`X3&jJ=H}4FX{!{S)EK70_<9atk=Z?>o8=KYRP`=>YA-SO` z%dt+9{b~!deVAY%WMP(t;QzTxR@)109Q^-;3{Nhcy|gsrLscbN^cOmVHajvn-1?)hxLuN)?YOifIncS0 zR}g6O#di!|*c*cMy>@q9dc`c0KYR$=i41JK=H)L<1gNNh;ytMp0L1kB%YhM1cdMZ6VAYq(n2P#{d*YT zU(=7kVN*|-m>wSo1ZUuNgp~=dF1kb#N_BQ1yH=mt^Fp7L-3dr z1~GR&69NtyMoZu&Embs5M6>AHW>r75DXKs!34!k672??#!~`2+9~Y}j73Lterlkco z&>!pbCLxJupQh>fHSB+5ulc6!3F(-frC&RK98V;89;4%3yr?htd}C9gId<$Naq;-SIQtyhICfB`K8)C$B*cUgJNP z{6{W-boxKafDL8;lgi-bM*tJB>SK`m$R3=Ol%!~_uCAW#wDL@=z*-Nr<96!nzG>1f zK&Pz=2ARYUR|1WHy}z>RZ{v0!AP+;njkW&@4nLRGjo&!-N-$d1AR1)&TLCN}1-MN) z)_L-J&X!@IsD}GyPF$^?;~*mdGoeLxQ+3-bW5%-`DLjT%7a~NQvoDjAC*4HNpFmt# z1(#PYeteoH`s0hSDye$g{gvu^0N&ZGtgNz;dz;hQSY$3E<1^orb^n1s#T7k+Zab7T z1059=m5GjH>;hUlsfVXepL&%h-P3h{?#0j7Fio7rm5})x?X4>-f_Z6(0EF{6&CKNZ z_>Gw)mhL6)Vd&wMR?NUs_=oG$RT2fn#aZw`o3^1LPHofLfN<(&65$3jC|9+NHf{@V zvxq9S>-_Crj0fgJczC@WR~bWz!$L@z>y|7Wo+8+z_f$_`RkfW3)HWP42!-rpaL*Fg zG{p!{lx+>!31l7S6&DMsO=Oiz@RUNZX$e5$($>~}u3bijmwQ#AqH$fFoib?sGSZjR zD{5*VoV0!ri8NW7nQ>1!VQ^cDi?vy77b(pa&9**~*`!fDFOTbx!G!O}+HTF~Pu@Up zB-tko%gGZU7~^kiSy))qb+%D>5>xQi=;~uO`z#t0H|&}OtMR@#J3D{D)x_nYXza^vKElk>m|FhX%p|+GPyY-bO7eULQz&WHU(c3 zIXSuY?jrn8H?~t!LyS*i9u*F}Oap~U&MaM(wX0Ru5!f(ESZfkiT3uT+ZcC8KHfyE( zntY#cW1+u$Kj&4L?n$g7U?7vWI6vL;`ToRO+)?RucbO$?8c~;AU58#{CN!^UlOHiA z0oga%5D}Vwq2b{PCio^zn*mK0npu|Z*0u95s^`w<-G6t9-st)F{mj^$Pw2TeVo1e@`~9mR!BMr@tF5Ey-E3ef|%6+h&15W>HM=f6}3mM^9W8 z^3rR4oOJv5%&pYbZ6mfiwaC132}nGX-o(WGF$$v+n4)69<&DJ!;rptM?!)a2_we=s zMou37lHmOZp8tW|DnKO|FP=Y6QlQ`(TF8dZ2apXN+lUGP(n;e_Z=OJF&tZ@Nx%-At zpRB-Sp*SrcMA!lL{nu2MbpR~2dDM1_zNNuCM22|3Ikt5Oj{A8M&s`2#m(vv%kPxY^ zej_>F1y*4L5GO`T=Hkf;Z6YuQS!(iA%irbz!YQ~lbDAqAfJ{rF_NT;&*+Ma3;{$R= z(UTRg58xeGoFBhC5yeOWNJai59IS-?TZQAb|3OX*dkjXw6>VW`iHUigTclg)Qk=n||# z(`)~w8w*9ta5o=+*1)dIAKeFz(*(Nf*{AC|PIatI-;{xp{*a}wKh{9cMxYgUx~ZK{ z93neVrMz!#H9W_<4t|lq&EAt;yzY9Xin@*;i5`BseC292$IM|h00M#?19X}mGjg^A z$&Ut=-f>*o_J%-jdHX}Ps0ep^#ytTjx*-+pwA)|vd zF7Be%|2);x%QdyZrEW*%qjqbnHxi?{WgjK+5w@J=Q&^t=Q>Vb1T#W`4r^PbEx$d9D z8wfK&1{n7L_e+|g({HZo-}3kO_ZAdA+#a*-RM(`s6L)^$e)wp$;qen1W-Vo9TKb0pAC{0yt|^<}c}@%!iuVPF1-GTHPS$zMU!b8bT;C-{ zWM@3I4O9iEt4i;kcpTV>^cfZW_$(g|?cAE&*Vg^{jiptb?eU1^k?&bKPJt(e?g^8C zg7?HiPhOLTAnhrwZ!7H+;Rc*a;s=O*ORci^?26RE~eTAQra!7|hY^+))0-X|a4d^;aX~mILu-?4fo+kjVwL}5~ z&wC;V%Lw69O);x=Z0H)00+_sYY^$(a=*#r%!)B-801p zn+4V4WGF622s|qs7ebdSHYGDyEm)N^$vgvU1ydq$B8F{&8fdUI!_(MjXHiOp5+M=w zF&bW3hShcD$UVupTtt_aX)PQT!vu1Lq(u9H!WSm>r`f{KT(DO_@2QTGW4CnOn4NHa z!M8k+ZS3n@Iki$vW5fBqIaXBX?L`{S#KgoHPR+3Ja5)791r%gG#&PHp@b>QZ2X;2t&UFoXS#ao^lwTWHNKP|hx1@wvdI zA853s6m>_sHRxvfl7+>v?e+PDxh=-+V)rnW#r5wrZT=#f!uP_6KZhs3_?(sen7DI( zNuyZrw^hn5ftg(@&o1>%vNCOrE{un!*4-}?M2cf_QM{z`j(#P5tsht4!`dVfU@1{enVlEM#eF8VK4A)iZ9woLVPw4y1sA71p}0n% z-_Xh>Z*`{Z=x|Sp2I?|W0bQ$P+!{~Lh`SdJAr13(KGlQogg_7S0!=K_5)LWakDD=-D!HQ zJo7MT&XNG!)WC`2rSiQHhGxrCG2jWEcRB~#h={HK$ieGadXe%@LqdGuqjtIF9Fs;; z^OH0SDfB7$ej*l~FLnDi_Yl|J}^a zE~j+)$N9h}bxwN3#>x57d2KR6EZ&!# zL*lgj0)Z;w#BzS85kg3lbLq2NbfpL1y#Myo>y4&uHgu^91qFpRU zcW(UUdCs7I>ykzh!deBH zv#4&d_}#mTOn+TjN&v3p|6EPup^KPr{{7Qi&e^%hjHbnhj5%`U-UeLyudWh-)1~E( zvub2*FT{_wJdV0Ae9yI=kZl!?f_3sn@Vt#|(~GRCTBXCD8w$Vw$yqxk+`=Q|zX zIVHC|C=+e<*W$aYv=INRzj=?LohK|Fz(23mkh`ZVr4XoDDM8$6euM*{DA9-T%F~rm zkXwvNZJ$~aNiw)8zLX*0#I{JdU=RwfAEy%Yf`OZGCm3IxNXE+vKscvMf1wXNR&diT zE}v68QV9~KD&OVnr-!2qZh|?>{8g{h2e?oFb@Qoyc!Bf{zfNxSbY%s+|43n9?y-%JhnAYK>9dkQcQh>5Q=yuroaj;w#Rw^i@OZ-G<@t^9MOr01U#ie;U* zJ3SX1QgBiPAB|2|NP+yA9G-HX9xn`t0{T6K{dDCSkZ2`mgVd>Tq=9f~ABUW-NV9`X zw&zXJsYIcmn}d%hmwme81J0MMg!}60QT^Rp{IfZ27EqICS0_&$EFJ?maT500(-j7g zjVsLm&^=WXPe3NXeaWbGx>5<=!AI|t@2R#0fsJ9`7*1D$9)oxIk8rROBKf~iI9~gn zZ6_yA5K*zHS7J0) zYtf@iSKoJZbvcZtq^5@a^1WIQqNY&e6z+++dX{19v6#KVr8-q5QAUgI%rHvp!h88P z!`6J7>5p#$I!5@$TzCC^Z;mm*!<($3cBh5|3Z#3U)~Iswl;<>%1m41elqb-CG|a ztsNfdwzy55d9I6R+-jT5NHRA0ibiLAbJkuhDT^}gp0A|#Mow0)P>7cXPbDyfW(udA<51pO#gNGh{( zf#+^2vx;b|x3Rg64WRD)P~nQuCKlCSx1sBvdKy@)GjwN))9E0p;h;LOaxsYvqvz`C zJ&lp{Qr$0pxLQ<}F(??9yBC`|d2=;zEp!-a=B+xVy)>BBvJhgGWyUlmww+g7i2ozMRFOAuS~(m6c=k zxS{>pdT%ZuQ-uQX;;3Ccd9g2&^52$98R+8#h;BZv{Xnja%(U}b``Nlg-qIGLGBb!O zm=07CM~N^?vpckH3hOl*K6;V$A>~c8II(Or&1{*gW3xnaO0g9hFT==Lu|j=L*Zy49 zmzsn*M~JqzHXU+z{dSW(_0^&P)v{0r67pYC-xGA&O4N2ggvrp*96ea?SunE>&JS6n zvPqeh#0}GL+IhKDq9*IW(Z2LGv)s4Mg)9XB@gmitix0By1537LFHcH(I$t>BGacT% z4Li`iap;5;oyNGk^4Pw}W_Qs-e!si{ePgc$x{Rrs$}xI;YN|d#Ce*0)ixksO(0IIL zrO@i}7iRmz1S%a;M)Vqo*Mi!RO{Doo4t|1A<3BW@I|t1Xyw%ol+f&^C1P}DG%!xD0 zcg>4tQ`6+xlJ(y@qW)z9HH@r-9?YVp{%I6vzbZY)=+v#KbJy^dl4E%}sauu#GWBtw z{boQ*kE6VIodtU8Bs4)08Lg6jTJ|3C1=T_>KZchlF>^#6lmgQ(&z&Y|+jO9;e4gIt zH2re|&~JnF*I)JOa!_&K{UJ?v8u#@<+%J>OIxUR@5)58^Id=%b|8E{=r#wLdJTXaf zMHNTX#F6XoGb{`3%rou|ivujLhLD=Jc6K3|WSID!k$XkYe@I3kW>Z#t|An`(C*WP(x(E>UQ&1+Wp zNh~2?0FqRY{rQK^^G~><1+eCoGNZz&cTNDmNd^vp%dy}{UISP|lA7RivJ!;Ftt>?6 zPci*VK=L7y2;)1|mJk4cnG&C#Y6FY}Y{gz0!+PnZf6rzL?8M6F{bB9H(Z6R5YH z_A{gb7?1q$_RQ%?-veil|5-NjbVUZ7eQ4XalU)Ei2y9HNCPQ|-FN`(?yn_k_`KeOj z-2|BL|BP^G#b-#tZ-QwMSoUR04b8S!Z)Gp0rG|_?z3+yl4#8;MaP~IUYjxO$R?42d z**Rl7+mnUG2oFKJ;iuiLPw|%-?6={o&+PzR3bhPo1U9IX*bg1E3K9J&!WpZ-6K337aG+ z-QS(dwjb92Q+!pW6tE1+e?;$goXe0%hXXY!9`Cieb*5`+fRn%a!g85q2?JeO6bSg( zlf%A^H0UXq33c?Enw`m=;1%FfT3tOjXs^5Cp`&(R2YUGr4y-r_dLG)36pT*l00e>H zE~nX$kP{Wu0E+ydOa4dYGOiOW#}g3-_~|ww2AJiS>zrI$dHaoLql~sTsd#MH%?#Q* zD>X8-8JRuc*-JAawEy_7r@&;0RIT2ovu^-|c*iNICf=+3WBS)}eTpr0AGc=-=o#~8 zjcFRYu}p;j7zD{3DCc+Yj0Y?ikG)^eZ=76D6Q?u5$Gy=SYOn6_at`&TD=-Y|W%P{* zx9?}%nfn*k31B4()o)L%27}|_dW00@UcTl*X0KA8lJZf$_`VmUV~dsP-mw>tcf~0x zDpFDDLb+0+dQubf@BC_uHTcj9HN#Tc4a#*N1l(W&?D84sn9Hsr&qq7~Q5^O7tE=yN z#oY8XH|5e$nNGe{e^=RSQp>P0KFmY9U_7}1YYpX@#leE5X`ZUCKaZou0Vorbb6aNY zlYjui$i>CwK)w_RqXi6ZEcrcJ&~E&TFK5Wk+Ejfmyxj=kpNGo1Pc#oY*P83Qq)W!H zT;4AJ%E6{7_tcr@I*<8>`JpnoArYsF@bxH4O5?Qlba9hWNrN_D1*6V1bX|{KQ}BSB z$3>I^n`W(NsAAB$l`YQgp3=2H7=*SIM@PUaB<>Esj8F5=9savS%9@JN45o^oNc2lR z`zSgNc=z}EKfW>A-fZFbFkT{;o})a@5xco5{2U1IY?(6T@6m;TcR+xxK}G7fnx9T z@%KU=k^X6o)v$WqK)uNhTodgpF)%Qwk5N@)pn~c?TIUbF9{czKe!P`p=+5RszcJ{k zytNsr@KRAxp%ZqP4|=3n|0GG?MNlVd>mXW4sE=WEA2s8UTd?=3Jk;F#Xs0tfs(u&x zSTcH5__7#N50u3F?PL8?JLn1|NuF;QDk6 zRFeZA*$oC`hJWuboOz*(XYbBS-jsFY^$Tyq`K_$}udm??s9b|xW5 zYWL&H6vQVf3PlP?A2iVy-0eUpCwzlxlOkevwhIZWzBCa2c*VV_uE~5>6T`e9RrbYx zwwiJwG|oVsN;-4VppIlATv#pjnLi_2yy z5^HDrCQ)x9XJ4%NPPucTF{|$lDq9g^h{dDifgI-DUbKK<)0V2zFKGqE0`L3Y#EA_q zK%4qfx{25a2Q1Reg4@Tbgkv1~;H`mZp#zeKe%Ef2;ZBcT8fW-X?`&Av#(*f?=oZ<2$9qt!ldBNSJ>?mOkN^QqAG^1A?Ai;smuhO{mLqc_cunj6EfgfhB@)+Gp0;nFU|?0??c(gPys)`} zyQ+^KJ;m^yf)^5Qoa@enV)@ntVut*uz2+XSpcQ~&Do@b|j8+3cOO01s$9@!o;{^~3 zzG4IM3CzKJ27u(>+t8ALI;h!5<@^bV`5)c}=04&&{hbQihhOc+9Oj+fx;CF_Zefx5 zt z&#u+4Q2U;`59`uKUR*dXrOz9-B_gi)JTEnp;@{JjZsIDpeS7D&sA94C<%El7W@&LR zPqM)X7Lru*mIj7J_sm^TPdf1L<(b3F#c*ekX=yGDaz2j}Lrx#{T9wWBe=98fv?jNy z?ph$H3pfpc5TICuOy2cOVrTh_WyK@mDYtz65s?wjacWRQ4I=Z_bG?Gx+!`>&){y82 zIwJ4ysG=hEU1k^skM`Gu^;r80Uwn02Z+*Cmof}%uekYs(y8e7fMk!- z_w|{V2l6@8mi&wu6&SbU#yNYD`U4n&@(sXjRZ-g1U~2|f4cuO|x$`%R?WGTZUgv5a z8p%Q7*%ZlN?blg>&Hj@QIE#ZH`Q;LXlwhO|p7f7&L$;z+1i+ zHZrLqbOO<&vn)28+Ic*9ddF~MwsSSj;Gph?-R@8CHMuJFtw*Lc^($Y5W%6U)1825c zhRR&ORyTrPtl4UqWz^RuKEebA+TJZ0x3?jk2aAIx6MYtF{@cxw{1%cnp{BDpy{f5Q z*+FL*;cy54+3Opd-De0Wz;dd%RQA zz#mKKn9Si#GN{~n`HpkU{{SaSz$QRGf`<{Xl&#OLb*L&yEtc;s{yg__-l_Epx@a=; z9j{n&Z`ICNpssB#<0Vug+vvt)5lhpCn#WLdwQqNE9GJ5l&n#KwnV8rQ$?6VyI zs1I}Hj?^=9v;k&ly%i3q*Jx1J9O>XVyEeey~s$4 z6&LnC)WQa1m8O1RxY`^Xvb%*j8Wd^Uz&gVL+jLmL7}6L-aYu1KqIy?OJdbx%KQ@0+*Wfh!#?k=N5wO6EhFtq)X z=I}{K2Te|2%kPQ3Tb(Pb^#+G+>s;Mc!Cc50xz*;Q{pQJ3xm2rtb~5-GW)hE5x8LUt zrV*vnv4cyYJ-SXQdmxn7g5EUc=QDg7O;cNaedCAivaJF8eY@j8XFw@&@u3oW33F6l z#O?q%TkqTBxQhMtH9F(lW3b$tUAfn_)X;;K5o#_92I6bnBj3g*q+@@kJ95tXGiFu4 zac$Un!QMwt*%a-tC*FN zE`yyqO_f-KXMy2HQ#Xl}-FMsLBITCPeW~_$U=g19psJE&#i&niB6R2^vw<9)aC-DZ z{9r~2%g}nKPt`@kCPJ8U_98nG-D2sQBAMDWx(e;Sk(Lw}X7U?w@3LknKi{9MRNOTN zTEG=m&)B4wGCDvwn4%OHu$J<39rPxmZbo72f?%S7jOyH&!O@1nSB#=z`*@isj!Uh) z2aCDrT#yb(W%!Y=%0S4FB@$YH=$l_LcU!=;=|<}dDpe}q&FP?aCoiLF-vH5l>;{w7 z(wg=j6JeT>W0Kx;w#-djnUaP2*t}f~EGtioM=M9jWyf z&MlkA!Los_hX8xWX?c8m=(Gcm$628u?M0S@dkiumUXP*R8lwMl4XEhdy)ArF*&=xd z%ANk5BVcxrw&cZ{3IuZQ4)$9Bp0I*5h+DBBMMb!}-jRfO&4Yov#@OPd1W=uguV{AP zuc~P7X?yMDV4|uWqpl0Se z7Z6SF3BxCxcFNe*wT$6|Y*2K-pCknqt=Y9z)6ISr3KX2Y#w((jnyZ?5Fqub3CHXk^HL{>Q9P#k5`Xbm%Wc!aS}^|cb7y+&#zxU7Xb+HB12H}C=1K$u z6MO{Isx6y~gLCla-CQ=LQK~_xSeT^FB@f`6A}dsAFiyFl0W&DvUIRp{l(+vz^4{*8 z!4d1O?sMepDZsnpz)l>2>G*|rb$MXg2|GMqyVp7yz5ptkYXCa)VghPz;(Wf^B3C$k zbhxG9`IW;Gv;B)pzCKcCSt06@S(-5SzXVH-kl{f=2+mf=`dPrFH=_+cR-_eP4vE<;9- zOpN_|s@J-6FdYprNb@z#0fD$S<*|$M2*Gwg!FK|#>LqQ68`oV{P13P0Vibx4-+3Sb z$K0~q#ld*Lg2F2eUEY`b310tM%vJjpiPiUZIFMiO#l!Pacy=Id0G@RA4%D=W{vBz*JT8(V$Cl`4md|I`kAtrxa5r0b)9SSgF66e$Q|#Vq z+EP_6VDd`MEd;F-4O9dnqIdJt3Dyksmj3^k_-|5yH2?|7azS> zN*Sj1Z8Es(jhOuGS>CD$FvoiyFPiKYmg5zq;RQIS52DFS%&4Pj*+z5oBbvENmnA9* zm+2HouIVl2GCdI6>uru~RwPMzWLW7;Y>z0iqxXxL%DoWj3`og$;$k#f-j$S-J%7;c z7z?-hC>-wpbxo!0#mmeZKr_9r_lq!=uIZ~iJ-~u-5nEBi`%G!_Y~C8MQ>rXlw;Xca8LkPYr&s*e4Ofpr8F$qZ$}4C^YqTlOG3<@t zy){AFJD`@_ri6p*>gwLD4LCV!tZ$5mDg~Iu8lqBDQ)>h;JB{z`io{1n@b8Z1dOiR& zY%)FL)$!Wk_wV1oYuBcV5pdgHt^qAOnuGcB7cX1hwFh<_)Ue?YyjJrhZ(-jKzIW+T z4FYO~1ogC}8F44@{Ph5#%gaSf>gWtoJB>iwi<2^JU3_{8XA?l#Pc-Spo|#g$x>^Z#YG^yQb^Qiu zr(#C&Vzwk&@f)i+09lRVRx;|QQ)eYm?%(<(7Vu_T8?nnY>akx5SMZ^D=~#Y$c3%x2 z&TrDfts&P5@EMJ(WzlIrcg&WjbIl?p%!d_-mUA(Qn;9LH>ez1~{Def4S1YdVuFsGi z+~^l?jS+lSNwAeMgPG24ah^S!`tv;8;{nQ^ySS`e#$l$=acO8Wa|N3Sd`wDWA~W+C zC5z+MBNk#D`Tc4$tOE{4)?&J-?>>*8(QbiHUUF*z1BL{Jp+ll*RXI6dVYZ1hhrkw@ zm<>gzvdd`2tovM4uJc(jZ7m|M3Yhk{fP)Uk;YmE-exYE&!`VD%rks@VvQK4u`fFev zb~rIWc#+#s#+(gRF8=#9nLN$CskVGLv=h=&wv$-G*iBm-vpz{>)rr_sDqbTi0|SN9 z>v2P`#}z@m_Z=D^Z?ZGM7G(NtRCSy-l5Uj=>+6W;4W}sjyfk#|-`1SU&YNLQMJgLI zml4i>P*wDav6o!R+s_h!&5$U9M4f4QiS;u!R8{>XlCVcw&2)I`&VgTlIRIOIIM>PieB98r1ZYhDDm*P3-<4uu+6~3_0nXAH zKV_!Vy#DrD8Ks^L=`Mh)O4t;CJld{lWjqPDbgt*45N!#*b-}Q^Yg?2J-#tBpwe)*A z#6sx)X=CS@+zE&7Oua8&=5A@JS~n*>C@u>fFiGLQu+mcteMs$G=_j5Vz7=TFMp=T8 z^b#0$Yu_jNbldO&N~6^XJ{NNkiSErYjmn0XnQ05n7&|z+9Bgzev}EqJh*&s!W4Qu) z4ZvWGA}WsTYihG!ssiFx%>}3xw4(4 z3S9`zM1PMC7p^7?Q(OAc+vR#vn6^~Phsw|#{x03coBjv0nwUuQ zoDcPgVQ`!!H_epOzNb^TMnqHAj9>KFepO_rzk~q%TtuwPEK4i7j$<1i|HuH~t7tu3 zOaIOWT%!>R7BHk679)k~0B#bFBSenEhf%2gQgTuC!;i{B3XgTKtZH%1S)`@uzwG`U zgt+@va&Im2<797HZAzNe04-NOCb7gn|ImD7(!LF*q4R!_GNaTw++5TO-u0xgJx*ZV48Ha>yA{cpg7BXT@Y5yB&RNA`{g)+~OsUzkV}NESKk z=xlABIgO!ZDwABAD$lbQ$fq&+BC>a#V0PqiHZ7wb%T0i>g5nCQ?df&k%oJf8mmOvf0N8>X@sx6AKOCESHhkOm(Uk>G@# zH>+X$GsR3V6YVk`s$8$n0Fv7O!96ERtPnyX*4?qdfF!iP1 zNeiwQG=U?jHso23`_^85SSa`@m6ravP6%@#*gpypn>C}H literal 19337 zcmeIaXH-;M6D``^L{S8laL6bkB1wr78X6HnkRS+1YE*JoqBL1lRB{$2NtT?EtROkZ zCWDe`a)u_{)t&>K@5deY$9-eG`|kUG$Y8X4?_RrB)vQ^wYVlrKQHGR+mIMNUklvTQ zs{(<*;vf*{I58pk1m!!%4}svHHu2WJlr^DT!tLo5m;0~;4cqD`;yP3$L{ zvWrtllK)5@4;eqw{=s(HEPc_3E51NE9^dQwPRE|imoDlvm=eDHvXF1)70tuD(^1QA zGo!Xkqh|xZacYN;vcfoNv$&?Zf9Kav|NJRp_rtY=)U|_)!$0gs*fl8KM0M5R;xcpH zD0-`S`^XrRr7Qz|H}a-G<95@P--eJw%Gx|#4}3{%!x{9moijg0EuxrzU#uyFX#5pJ zwvyK#8N~ZePnz?3n(yJyp?5?xEL&RmM7AqK{$c{Dne11Zr5gp)KPj?wS9oFFi=;=) ze-3#m1?1m!r5MBewiR*1Cj6H-d92#xu-&_CZqxi)@*~3%(=)3q5Z$u!H#Q`z;y?A( zoXhEF?Y^c7b$;ha>4`KZAM<)?|3j>)Zt3oR;Vr!=5_>n5sB_a~jF9o)H@I?8+boPZ z3Z^&SHT!9p2-dH?+xa$4Wdw6w;xaZBL3aoz8GVrCT=JP%yP%#T{!`;?OvIf7J+5Mk zI#&2wWYjskhMV^Ln|lr#(UHWzgN3Qj()zOUs28r@X>ivlWJ@I1E3$JB_&wa9Fci`R zjjf8Mol*{A3R%<<|4I4LuMzR%wbKIS%_o=c1~QYGx@bR1NFkw}HTg1|Wb$RFcYI;2 zntk^WQvAs5umLmMdGk*45z9(PTJ^Gt8cX>(Hz$*H`;Ie4&slnI-RHRpR#-Ev1NU>b9PsaY0bFo8U}l!ZQ75j^=8mHdNV>==MIV7@Z2#& z>cs*W{uXr-*HUZkpEB!kMFa69E;Wm%`3dow0_uA(re=t1$;&cgV?yoy$?ZmoVDrZ9 zV5V#C6Qh&jzuIhLZDL=Hc{J#bbKB_I=)GXFjg>L$aa!g#U&>C%C7CvjcsLw;N2{Mp z?7G1lcy&#+fxOZz<=fY1p7Nj^gwikhQR|iw*5_Coq`PK#P=B>uu*%5q`z7({UN|9} zOY+1rAD*Js#A}xO5;RxdSeBt)FK#9~xXHr@vpwr#`42UXlM~NKvUzV%otyd|cO6qYTSniRe7-QkWD1hw%zL}q z`u^bo^^jANp=~VT?R_@UZLK0J1G;APC6)yONJyLKjEQL{Usd zAFYlJ*U+Dfxblu!Q}QAHDkPYdPN37E_T$I$?-OBC7y0G#j$US%{3g`Do3Lbc*U!p# zAhnVEUOu<%Z^@SUJX(z@!Z69ZSNk3Nx4jrR1a*wlx*TMBwxRN=b4v1@O1)pQSf z*2~kAr$v<*qA6bxK1D#F_~d{8V3vjruxpW}OP+r8otPXkaN(c-2Oq24KtL4Og*c>6 zE@Ae_BV+b}z=;3+NPOf0`J`f{{`U9-W(35L>GV5fzap&U(9;u5f>y)V$>1A-0p>gA zotBoC!LhMCnwpxG**=u7HR1{j)kw~strlZ|3O#25S14l5u^JH(-t19j zWn*L0N?g)LBb_bnN>hS5@Rcof92|-!r}u`g67<>cRK&yxQmt2Cj)V4$1XOok(duM^ zEs6ikO_kWF$yJ1h%q+?LGP#gBO9pjh>Ovb3Wi{@e*kDzJMZBKTS4GWlaD%;bp> z1Embk7oQUpS!i+WI_m}R>y%aX4T_2w$UCP;tv2S5sI7j0z^L#S4imLf$)*3cbYKQT zT|Jy)dZzJKO;hlJN%a(mIbGri`)4Q=e}SYQuJN?kD)iKe$?t&gA{M%#aOc?XyEK8L zw`qHqUOx8y%M{EWZ=WZ0T|Eh>XaeH6xpMndx_^R$`Tw!Uc!m;oBqv{US}a7L*B>sm zPcPr-lDAnI|6#S<+tbsqHr1R|US2-ra_uy7UvUKHK?Vm0Z%7=j224d7$IK<$A8ewV zYse%l?o3l^=v=n0+)Z|JUmPstHEyFH$TRe5iIva`=hW<4w0&^upZKcGtYZXKmP3NO zzsTIL8yXr;$I2Iic>4-saO`la*r@M4Tg>$;?8vgge9zZBlg=xe-=2SY5F@5()E>iS zJJS{x$!9F*=2nS)fjkWa*!93*#*XlCs*XIh^Y6Ao z9qjBHmPX19yAtnDSNy8+mVfv#=+UD`cOwk(PciHxjC~Foefvdxr_=6KL>arGv2n8p z6tAT`E$v44CDeqU&cv~|Be&&r8boBLLXY|6CYb}=pZA@`NV(=c z`-PCUqHF2&z1YtN#=S;!E$n$(Rw5M1^;bp$Zc`=I^buPzY&>vqc6Kh-4>IC|i?hd<)$k_ToMMYH_GQGLctrVb`{W$kdoi7cG zakRaO{S~q@*WPt*Q|r@vNl#=6tWsbfmEn!rU}o4~9W!Q^S2iBO+$d zH(+X3RvPJ{eUF-f&u8?B7UxKQcpG&!1-oBXYnBA3O1><)ozOp)#3<49jQB3WMhpX7 zpJC`$O61~dJyQU8ceiZS(cJ!0*>aOTT9<9?V99Z+`YaE>J-vus>YSm4xw%iDrn7{M zKRr#f(SK~n0WG2sqqqFLYO_y!iZ6Ee!K0f(LK?{mpRYBCbMdXKXX&te5s?WV#h<

LhQF%X+%O366SHmF~N`R=6Bt#{zzn((v95=hnTkKHcgg?sh->g;vfJNjsW*|Ka6b z5Y*OyvCp9`5ozRJc8X;7j0vqdLVkROhX*wjmP*YUewsUTt|1_W_wGyn z^9%qJNPOZrWawkUlNEgb1cCO@vJ#wN2=U7c%pRzR&uES@1OhdO;VYYmQoR1}V*YCx zoa6l8;4{qV<~y8TIFAn0ge`|vv3L&-WeSy!u=7bsjG;=(9Nd`Ms5N=QVHXhJ*+5(= z6gfM=7N zc$Syz(7@w+P;_fHwv*rV2?6Sd_vWE31}qE3NC1a*C-_F#qo*hLheG@zW$!LAd(?T} ze195l*&s&$d&z(8g7b*+{|lV~kyTZzDuPR79(ph$GRDv~M?qO!oT%Nsa$)Xvk5%CV zT&Unb18g>z)|Uk&GU&zYV+C4kH<014T*|!Hwxps}bW1c0hC3jp%4+!J#K9gT3F?7b zin@T`d3u~RX*XW=aG`n8!<^3bHOri$%r#9tUFIo>P#81|O8Vno;+f+li3kMoD>@*=Ybp{e;pjpHQAj1L=rP4UW4_7XXQxq{#jDGISWPX=A~Q9pU4dqi!fgB6Rp-KUGWXq`wr-gY?UruVEm+(Ll&`dp-n3yS_hbgu zu2)W2Dht3Gt+<;!^4I*i!xt=^*`l{7`Q`O(L+tGB2?nnbhej35MU%GBjQA*YVrUYJkF`YAxU9 zZ6F)R7Hta+@-qI8(yb1gGjh@QA@O_ zhEZD-`|j@UfwHRlDHK1EkJH05xqtut{WX8WE9Jrlvuz*saF01@31IqYO?p%Y6eF~8(I>eTFh^EFk`o8WbNONNVJ&Gf1W}} zd3~!FH4k$jF|#t`oiZ{U$nV$_=o6B)w9K5mJ7}q{VYV%_YxGdfK2V_v1a%)QsFsVxU9F_|dZNHS2immN_(z|L~gnHsQZ+Kfx~~)SO$-D6f=}-SmrF zXL|tDOFNa>Z?$hd&Kwdm2@DOBE@gSr=&`qx7BI0;GTXVDWLgdKHtb#9qb z?ei_9!3eMQ`n2iXsHiBD!a|nS36c3d0guYWW_;y1=fcOm-8UIisCKu(6PaWx5 zrE>i6`tySytE;Q~HLoR>@)dkR(ds#?9njk`(E4wNK|NV6bU@PnR9G@9LgEtv9*jI| z>tz{)%JBY~=_wJcO68`+yY*<^&5!f-tV&weTxbVK>kH1c_4N$2CT2cD+Re?Oijinz zJEJH-KS)AiJ5nXBjI5TZqo1)eh7&9&=2f0MlPE&16Eb4awfYiY^c zEZ7O&@4{T`b#&J6+PbR*QxrZMjeZs|4|lp75`#p$pZhzMUQ0eP-qnh0v+2{f#lr5OY@-CDSJW9`FNZT zM(}t12AX+B(X(A=6m8ivqjThc%o75;ki*rH4ShssJC_vkAqIs;Dp$mfGT_QZCGp+F z*@RDo!qh8#Cn!q%T53GOc^aDwN8LhM?D%Gq{NhvhdT|UX%sVjC3ka`v*|VobPdR{) z3b|bRV`TF1pakTM@*c@)(X#^d!Oa`BHmBI34)9F zCXye2Hv|eGPdQtK)BA*lJpmP%*_)s{|6R=go0eIjN3@GBi>|cdD zx$M=zn;tRGtIyZ~RZ3o4`!kRgWMf>nG#eWm--ky;M6lH}xtH&+cuV-U>7RNN#Pcrf z4Bl+V7pbX2G?Fj2YBt`-VD)#cii%2bs@UkMPK{vxf~bbjVjB&c!y{ulqD37)q5HS_ zL;e4{b;W^d;?!Y@H?EHhdx#%wbn`kc>3q%3mdJ?H%r|OORf601yBM7Y5HmRsxUlWB zkW%IT6i>4NT8BmI?YTMi^C?qhFK&85VB#b_>KaX-&_^;PXGt=$l156}4iX!?r}`)S zi?z7l{0RVh?s0YxL4JN&z*B}@w?}L?I%SxUB(^x@p*ZtsVISeYh|(jRBF!nS3-@;z zIQT&hOI1_*!^lunD-;N#^YqvC>;1#j($yOYsC7DQ@3%+;wx)75@N)^j#fB3FG3k^KJhrmD0Z8Vz*OMGl@Kbp3tpeO)FKcE4{HNI zzWz(RiDQGdLpORg^upTO+DvHt{QUBaT4|kDeh{^;OD0&~JQb2W5HN759pDPylzjSi z=S%?&5M3@;WptVhsu}$c-(7_btnvj%Gv0dk+G6?Z=%_H6;NJ*1!O%bv zoE<>xBR=KVCWkPa!l$dfy}j{dDM!`RmCS&+1%ag8)B8!_6q)hWzpv}AXz1F9xvYi6 zhT>Sq-XVMKI?8Z!`fNl@jQEFO&U_;o;%M)d#D~e10d(_CREKq(IWp zj`R8A)}?dToG_Wi5B>rzqp+D+cjQvlk(=;x`TDbF1NxJvLOhWKVg$+u8$52SXKnGi zdcLX}0#e9p&_G@?{_5;x3txLEoz=H5Xv&p;Lsu>=X89G9kX2L$vO){#vMSBa!z1Ka z5o_0Ve{G=MO|VF;?wDYMuadn!UPAPUsl*OYSa}5nzq!@&-yb+8*P3}EoR=#i%n_F^ zu3tNKpA3%~2x`P0-MFBU0AYlA6Iqxy1e{qLAOd2yIUp4@i72{zoSI z8#WN-pcF*DHa%S)uI{N^Q#m!lJETHFkZd7|q)oUCRNJ0XW?eBYx$)9)5x4BF{|GbG;WS{6)njA>~&(*r19(w%-SkonqNl4$z8K_nkTo z`n{{5U3-a%>E3Z0kX%+B^Z_&eYCgSdf0if2QBGN9z* za-stum^FbAkoS!96t2O7U?#CUJ2y|_3y}wu0E61cj3+=BrvyF`UtN8A5)z&UAS4<; z{5x^Q0tW8-d!ptvBR2vfA3~|`bb6OKkQA^#>%C83HJFmw;~GcZ+UZ@c7iB*~2K)Q3 z^Hgl86xa3q&l`<`&<$e=Y^2y$zy8CBK6&CLP>Fs$eZC{a_EJVKnI`Jt zrK&Iai!KG4XIH3`kdVZ0rl+L^|Ni~#Jsc4h7It4(SGO2aYCTqIg0~q_?}ia_@F7D9rmV%0^t}Xb*M4fa> zq2nWGIVG{xpR-~T_cr3(tIx36oo#W;@aC=Ih$C`6m>S=%q*eb>lzgD_%{cuWonV96 zB^F@<-sj`cl;Nl9&Arufa&kb>Aeybrx*PC52~XazBTljpL*MAYDMyzPk#5P&%`P}K zcs?%45YMn7@G?#kNm|_6ZOd?B&$QaAjh~eAvEnGWc`K*j?%TB54$m|4-HOa30p&~U z48d$pHU1O*VafvQqZThvweveetvY{I#Gch4RThc7G`zjokXrCBuOQ-jTDxl?C7&zxyG!C9)ST2b5J_E!A0$-pS_fs!gp;r>uZD zZUOJ~YIXon$)TUaPT49LRU$gQ`hR~^37~e;aK^clHF-dq#Q#;mr~rJHE77Dmc_j!m z)b+$J2<9Y!&7n5=yeBA&Gr&nw@Id^ZXMn)7V1E*;zE{G_rZ$f>Z`4Xlt8)zXjdJ%2 z6!Mx)5~oj@JzcISdnhh|dW93rah3r>5q`(GwUkyM6xOTeJoU5dz@{ZfF+CIBVW&LW zUntc^k9=0B!(}05o4LvR&pq_up63=aT0v0Qz<_3Otns#tdUH$DMa71C@FezESgdC&InvX3qtzcewR z6Z{XfLyAts2`D+}kvw5}D1H1w%n!ioZ(1r0o)pIT2oDIYhu>YwV=H*x1lFx75HLM^ z{LbVM;NlR$i)ts~UJVEkX?I^D*Kr&oAiz%lT?`ce|9H#T;3>_8km}ZQ! zYHC(!2w%J~P-vUdW2HBQz4Kx@)Oz5?j4#i-&&^l=_JJQDE(mSQ9%A?@O)>`ARb?3M zU?$6F_gxndSk3-9_s8`F|3J8MZr0UsnF^-5ozep(a zKzY2@uquRpE@vs%e*Ipg$QnLoO68yZe+nA3Z%xg+sM=vptwU3xK?E@o+oj{Bb!Ns7 zVW}EC;eWub;Q`obBdcv+YkLRv@N?H&ikAXeHT#+q5r1!M^)=udPlw_Qh>l@S))w6H z$(lLsq%ZJV0bp1Wmz?v-3i+u4E7&EBN1XsvKLDuz^<(O9zOnS#l5(b{qf1IouG{;R zA0@*oedPjX%FL62VTOllFMT^Ui>_rujc@cigSZFde-4kq@lLNDam3B<^3#%TxXmN3puF?9P?6 zNEvKgg0^;4^J>|dKMJ|Pau5H_tJ7BWeSqvCzxPaj?MHD68`^!Pn4EFt@2-CA=HOjW zT&#Wl{go2~ZcxZ#R98^On|}|HiorKiDUXBG1JMOD9l|RGJzve7C!SG2;#}*HB5TA= zk5cQoyyzmG#A7~s&`B2nh|D-(bUtF4nfVOb@ePYcW7e> zTl2y|zTwhv39s$+gU0rDiLN4}{TYAm)?hw=rY9p$M@qRdhR3exO4(s7uEeOuEJK=$ zEwi?^|6D+Cv1Go9+IM-X=pD6rrfjp9GIOl6XJT*9+(?U1dF1JF@yPw3#p6~)?^8^# zaiXK09iw0s51)w0VmP%nwQFkG;-1;ARu+??ql5jfN|vg2$}qPcXB4fwMYNxqu?=Qf zgM`f55@x?Xw5@iSpZ|%@QoSx@Hz*cRUaJ1A6Z?FWSwI^cpVDl+_G)mx?f) zosqy|--OS5Zu0$(c(Y{f z)}t99=|<|-qk&1QQtdXCZH8#6sj=49*2a&$o;VK%b%73u=JLqW%&!v;JlOQe8mr6K zuRo8|Q-=d~*0i*>Ia*s=^HQ>;i>xw(qb$l&3NUn^Cda4iLBsw#>Ohost08;@FEc{h zF;&*>2o+|aU6h*E7_3V)Xy9rX)+>UMEY9PWiLsfta85Pn;HS#PTJ4K$jCb|)TuB<8>y-8Denj=|L+Q=4HS`?2^`g%=#{?CZm3Ri4?lACS? z1r_6ipWz$Md-7$a$?|3{xzFA1xm>*Q`PTtu9VLiz0@7}(T zbagGQV*FbnpIWuFFX`P242SZA!veINx=$7KCG)2@T41yn z?Ib=N=+aJabqTuT{~68A9B5_W&xarGOe`4$WIL2CqjaR#_`J_En4xHf1_$Gr`bOJ> zSY+;{(43@Fa^hr!7Ga0ZjA$)rQU95~P26&u^#eGcrFOA*>B!fN0768}BW!b-mnEt+RhZ~dv(H}uAdAz=#;BtL|zfQ%v6+l4d zMQ;Hy@Hi2@1DF5%m6*rN5LwISvcE{Ec#xdgkuWhJb$NX3qEB7w+`lX+#?nwC3iY z=TRz!+}ifZQ5zSYA1Oa$l8d#x*z@T*C&_%cd^XCKQ!ab)!p}ka#@u)74U)rMJv7G# zA%ga}si`~wR>GhyYuKOj^o$Q`wU&Ac z^tpnD0eEdKkMW?4*V$8|uCUzmedp!|PBC=#^-)DLO1PDuqv5?O(klBBAB;D(h(F(7 zt#1Y=6h7uWRZvivUh1wo7^?E)PQl_Pidw$<=C_HY4~?`ohB9yk1|djZ3R7(sWY3lh znD^258NsK|F^D|6O~r8U(jW~ofVyJQ{QVYXwxKtbkQZ&=(BTF7j_%wB*P{uWhiw7T zKXh-a>Md7nBXLp?$g|B}Wa8IpNl?z*gWXCJT#jR|#V!XJy#T@v;~1xVhnspwy)M&W zX@QyA#Z4P?-JsDZRk_=0{Xv|?95mae$NF>iaeb^vIfg+83=}(Po-NS6<+Ah3I|=mG z#jd2J5Ed5|HN7G@ixXRIMxACNrOz{pUALWX37VcZ!kreGOo~7Tx4R#%U-P}D>Y#+t zM?S|dr}se(Y1oZ{eyB`*J+145?uh^iD}UoX8G-uv@dYB+uV2v<($-k5_%Ur{^OF3* zt_6yCqsaYdUlusUfFzq|rG76?#2?~KCceXL1GYs5H2F!rE-|w>f+ak?3Lxpj{y34u zJ01I8wIFaz>uwbJ)9@E=k6H8%<~3Nr1R7s=8;@s0OC%o)@b@4vJH+#weuIp|hvwI% zojRe)3ol~c7||91y|dvBHS(_)hrD7LUzS1RZ!%b(`xds-PiXWn*CWt3_q#2z(rG%< zj&wh;=UXgXnDwSPljwoge;Dt|TJ#GXH&dS68nPD3zfD!!^xAp2dG$(XWw?pns*1xm zd%gtw_gevvJxBeek+u)(^zi2KWg_`aRW{ljz%hh2(dD0SUHF#pA9bgHg(v2EiO=ad z(-au15-pB&b*Gn>uX}MO-17^jM!x*9FVNA|brJipPU=b=oUqJsSr8i}c;ES(&xa3* z@$tWNsOH6=H**y?7)I#!Ey5QC(5~$a!v{Ab^G4d&Xdghc>*Gha!ur)g*LWzI`k)k( z#g{KkRXhLMaTtSJaNkhn@4|(Zc_YQHs>hG~jWlEJRZ+JdpWH%|&ky4%g{U%6ba4rXRa8BwQ zep*`E-EGhQdgWPGdPSa{r=+-pG`n^0c7&pks_SY-OD>KQ50Wjm^UDcUzhiP!i-BEx z72998d=hA0h!Ba@f0&{8vc7_m=i;Jy#Ucl?`Fyt3bOC4Q;f3_T*~gQt)UI~a3Km~4 zGotCp^*Rg_dh#9O*tMRHe1{E*-M`CYdK0d*_k$z5ylcOE^d^HH z%_8Z+AiB~hc~|cyK~(ppwR(xe&PPbE_`@F;%E;#EN}1;DUvq#YrI%ztOm26;c3_jxA z)P_1_sc$70qr2Q`$^AvcjSOQz*OPolMcgCfHU z;`kRFRWPeZb?ygM$MUGd_T`ajly~kZ2*!q5`9SvehccJ>#>kwvlPD}12!Iq&Tb=tp~W3;cD~@&$&2izl>k9zb7AcDFAcy-i5U3G-5iYQwul?NwB z=`AOld8#;p)uV=O+u=qrG50DKi-ua5r1o~@c`ABzYErDP-4NAcX8A(CV#6s{kbV8t z=y)=A3^c0auYs02y-z&tFUI?JGbw*r--RZmLk^O6#^wxokl;_=@sS2Jy}o^M~;VEb0@o0n&i&NdE`hY4~Q2aHTf< z7bQ9ac+?rEm;aJSi@@|<(eb$y3rZ0 zNB!C4aj{kOOil(FJ34TV(2`4|%5A4v?=WwFEutzEaBUyAAKq?IZ*iX}WLag!ZuUGhAvy;)Pu z5zUGBLmoJ}X7a?!Ks+~a8pV-d{9EGJNQBa_QJZG2YvU$lL)mVd9NqcTf-WE>#*fJ+ z!{6*}rtDeLgP!EHC8>-C(kZDNB**EYRPJx%uysqL=;-J*F#X&F3gRj3*iofLf6kYo zwL$saie*=&f?{PnRaMoHG7+V0cQCv?IW%@yv|D$BR4KQH&bs{RJf^K1b7iI_k|h@G zh=T42<6TlKC5eNAh0%(kma!`LDs0f}>^-&2vHfYG*5Y*2p^fy{_WdQcDY&^*BOT|< zg&KXBIQxg`xaqiM_am$olk-Au{e$m1rFNzpbd|#dJ(}MAPtt}E&gwosJ|ne>>FLe4 zF~zGcGooWbYinz>&ZP%Dl{?S6lfim!iNsz28vzbj@RtvThhHZD%QM?`(LA~Sf%ExI z=QM%WCS)<^nOs&p=V;QwnaynX0}L1y7yBMZnHFd|V-Lcwy;7mHZaja_*Xia_!{3@wX4RtyHIM{G zuAp2GYM2h0_w2u;O83(B4${iE2F<6-#sm`0g+cGHbT`9|G6id&Q$e-$i;mVsUV@soZ z?-P-xX}K>Nwl+6obJWY3JrJn`QFzyJV>sZb0Ps}*+i-_Yk=vI!es2^-&VeB*@!$C6 z?=I0NEQ?mWzrgl7(v2c1lOBP`s!V7r>2uMLOXU;RPCAgLgDX>#;``qqeV7BOOpM zmNo^EAi(_UAAqYyF3j}g(`>I*0ZJ+U`*nqt&%Bsr{&~fl0+ugO_sh7thhASg*Sa>p za9(Kmxs(Bz{#-${ zo7UXe`+=MPtMg|tM>Q2}4Pv&y+1pQ}0*hhYsx6ACA$@&)R({J|$py0aB;b?_=T(y*+=9EC_hq~=-rP$=o10mWgSIc7?mf(qwspc*gPCi= zjJlGw#NKSenxD0cRDn0|fTZ({V(T$()CW5L#92`C0p?cdvg6?QOsz?z1 zeqJCo*J~8te$X_fwoT4VXNbueFI2pmosF#?|0sZCw(1a5-vL{dEyj+T2Vt`>NwPb;t@7Tk--g6VujvH*5|qqDHSe*94SwgYW&(9 zx!>@@lW0+UgU-o9KW9f~Q6U`xZW}DZzg}OOTs~Y{7Au*<8{HfT-$OW%S{09?%(I2Y zOgu}=`!uEU#qE$12`N+d9Wg@{&f6addv}m(`G}SyehLw^!Uw_^i@J|OWEh=(in%{h zTHZG7pex&W55`RoOLwK70J(GoCGE_iy}W=%wZ=+}6(|(@geQ5$7&&@_zoOCm+CkU5 zPm{-SXUVY&Q`rh4$Kd048R|)c$2F#)1)AvXu>}D>t{^mGa3|&MP54w+09)5DFw#lw zs-7H^*NXr#Ft7j7&WY3(xkSJGH3>ysgxpT8utPQJIkQPDeOa^;b{u};eOqYsovp3k znXo;VmQj>aVT2NsT(;w)IeD)~vg4~V$5r#$UPwv=lgUoEYX5t}?MIcP71?k<6uJ~i z=L`-uT-$qGy=^yw8c9aJjr*crlR@iD6GhiB8Q{L3P-2T*wnHy|odQ!Mm*U|?OL2x~ z;~A-`H=9kO1;jPNRUk4i2;1`rmo25E|D@JVb@{f;XrEViX<$};z95Dw0#G2I=pttPaP={VIsU} z+IQ0>ku2LW2KGd3Gcrp{QOQeu{gHE_zP0SUsqi%572g1@`88Tua2|^P8~+*Jtnf_K zrR^oX*h`;gm)8~+EIQrY&Y?bxPL~!s3T=tB#LQdp5zp5g^lCUq&;UII%(+LsQcA3G z25~O}g-d6^V=AIc(aXGOx-TfY4LWB=x1C?3qf6Z`Lzq6gZyR($D7u0Om28PZfhaJ2 zS@a@$W8e8tPQl9xLEYO}lC(L#lAWsjgWw!ow~?wcNXUPSUd();i4vI` zZOVFlQJ^58h6Mu@k4{GM8_wbSITprRCk^sMKM)p{f&`Q&0wk~0_z@nT!@`qY(W@BT QU%|OAt#~)<&XZUF1JYUedjJ3c diff --git a/man/figures/README-samp_dist_of_hp-1.png b/man/figures/README-samp_dist_of_hp-1.png index 6ddb8ebf123983ac8f91ee26b21e5542b7f06153..a4f8e0d372163d30210a8886caf0a658afaab5c9 100644 GIT binary patch literal 19584 zcmeIa2T)X7*EZO+fFK|s3W5>@5s{?iOd}u}6a)k$C^=^un$(DjN)#lA1|>&HA~Z=* za*hf#AUWq8XXCwq-(UaK)J)Yk^-axttEAxE)BEhR_S$PbYdz2Iw-1%1i7rrGfIuKb zvNDn?5C}8@0>K)=!v$9m{=?i52=+xY35kam64DYjmNxdPw$BWVq>ZeN?9B{Rr0+u@ z`~d-KI;PjvE{n#L6tLWE_32JY3AuR4^P$jErQ>D)^r2CK)gWuAWubU*!#pO=>=xJ9 zev%op=w)$|Z)qc;BS+fbm~NP7F8Hy1EPVJ8+voOn`>u3iCk6go30DC+^s7aA)8Niz z?2_lyki+5-LGV{r?eHN+C@WPC+eFuBLEYr{?}CosJlcso+SynF!|sIL!n!tAUD>~| zL{~f1w^_V(WHOiYP#WtE=GD(E{zm#yBgo;EANe{+Z1KH%{J!Vg_}_&rW9ddO)f7QA zuErBD=eI?@=X|3l#dJbdo!X2c!)@ZY{9D7EoH$2Ym`W(7Y;j*Lpo@K+chI_R=j_7_$} zzZsH@vf1M;ZhI%ZrnV1RowF@L0zY}L&^c!0xRZkWDu8|%easNP% zt@v^+qsVLBSVG78yH5KXyUrSMQFx;v0u%&P{)`;zMJxB~y)=rLl1TKvIC=$*4%RCU zgf?QKDp6Du4?}4~7oLiKzY-bH0Q>gRb^gj-eKN^lI$|?-ZT(NF7pSI96Q`3+6SsRt z=7+19cMc)NkIfJ3=cYUE-cLDVSZ>d#UNTic5taSxFtTp`557bfUUWXaSnxH)-EsD9N7Z^$eV_HF__PQQ&wHNp znj26r=9%MeR=?m;YNP#KdQC*hP&AoM&GK2nr;nOE>bp?dCWuFg3mVS^S9^bat3fQp zqG2n9_LkS!(75RDRtJ zPd4G(hOb1bYpM<9m8Y+~eu@8#1L4e({CF`-546}_1w8dFN;;%`cMx0 zRXmzs>9(KAZ@M_@Zx&Zr6g~T{reS>S`Gs80JLH5DRSCD}N~h7+J5nwdMVL-NKD%-9 zSKG)Q9#9OpCL1}RaQXL{gtoN42oR5CoonASZQ@0mjFm4zvP4r{HdS1hzCRy^^7r`E zeA7^-YRjaZ+t7BgW*mb2bT8LE+B-matexu~hI~ypI(NkALh!?&w+RFYexoO{#)^uN zJK%Rb2$ruI1RMN@1^!Wif5))|dU6GtkZ|tgcdU`)|9MGoU=RX zjLMHzhMz_eG~1Grs#xEDdG*%E$66n$J30-Xaon4ZTz)6>I2efGQ>~*CV^Gqk-%JU&>` zQCiy9(b-u}T-^KURV3FZoc{j)n|yp4tE;P=rE%P?l`wgEzsuz0a!N{p|J)EA6O){l zcKg$S%ou_RhT3dp37r(3%PJV(oy%RylRdbFR99DT#G!af*Z0&xF^J__4_Qx7kBYW7 z%UErIUxwT)zNY@xB8JnnosN>%@<~0_CEcBWEI;tQ(5S zgW&6dENb^w(>CQym;cg7UB32(E?tg#C?yLFWo+5EUh?evxqg%T7fvltG93WHD&*5@ z_B*jOUAqYu)D(r!e6|<~d{FH6A=7&t|1Jg{5{AOTOYpdr1UX$q?;)^aZl8XXo!Q)j zoDR7e6%0LFB?JQuvJgPNMt{1l>zYW&|F8+sRkkrc{MQFnA9K*w&v0U> z_XH#`2By^eC-$a8g9Z47Im!|_Srd{H2p0GM-v?POaNE#yJ2sN{A)T%15mw1kOYt~- zpctoAFkoY2wSm~Rk9nyG@1-T&&?7r&_leh32M+wRq4o1TIQr7B8 z(=E&i3l%O%K(I)mw{xNYm_7urtjx%do10pmQ`%fPPT25GGymRvH@Pu0HY*rUYsj0M z_Bg81J@w|Bog06m?JyEXh*(gAnvP^#HuZyGb%)1)jQiseW~B8kO`#$A`BihR0`51L zIf2h;WAhUXo!)WmUShzBHbVmqc}};HHa1?um-WjFr|z=*7M4_p1UpVde)O0pQM8}mBPbVG#XbYnkKRe zT0;aJChMzT5lpN$aYR&CSF^9JoNNIw61%rdAeNQ6d5E@kiPU6k+<=sHs)mM!ypd6| z@cwd*%A-fm;%#hf_{K_k9{Z9qJdlx9L)7fr!}f_akvIK8{HS6dxp(MTRT9aP0BMWZwp9l2h)k;{C*D%SYPdRy z(z7tT?d50w)zw6KgMon;J6JzhzPX9q>_#?(GBri>SQx%>5aOi1r4UI+EV`YbfD+Xy zTp1ECen)=giYrq?p;^~x5D%R{C08x$HB@8@DN#HR4-cp3{x)|J(%gsKWpAN4xw(X- zDE?+$yBPKt{$h<-PNR1_&pO0<>jR5iJO{KpIn5uBU==z~KWu<+eh9E{yl9_Bdl%Lp zw-k}k)WbW;S7i7dt{$u_9+7-4jhpQ5PsZTe1x|WCGS1)Nx!oRFHx{NlJ}pW(Tu+M+ zPVz3y%j>X|azu4Mq^LcQ)E4z3Jxw|vNo6b`+1c4)jPl|2z#ngt`!$3ri!xK_x+Ds8 znAZAJ<~uKFefn&T5hRntuqAi2KO{H_b4b`#s2K*wYj-BKNlinC(T|+%66R?pn%@S! zz*`XSN5K)EEFTfAvyPa#ReqD~-0A0#2hjJp?NMAN?+({4_UXXmp1Lg*eWXb5gUnt; z2v5!SWVYmeSme2nnc6y@QfQg?xpR7{Eit?eg?0u|jtD3zh&f>SbPl8}fU|nbVD~qjm;E-~;oaAh zZ|5;$q(TS9`^i+r?y|S*Pkx%3)j?{`UKFJYItiygnP8Bj+&0sDC(Ef{1j7F8;-{5A zVITZJdH{I(pF#d(lmGb1fA-G*pir>0$rJT&VAHRxlE21VPwo26=DfL$X|N6J?u!Fh zmU!iHQ8%|}H1Q{ra;hb;@k!g)2H=;uTDfiE=-$GiCn3 z<*brA?nzp#cL!G{w@BH}P;3~eMD?7QSbR%nJ)+%JQHrcYe)8?hSxrnid z@2evqXANE$C~oRZmN#mN=Ftfs`wI)iLEmGy>!6(*_IK8jD=I4dIu|kMiJd7_#NJY+ zo^{2Jag-1|XMa6ajAt$DX^BcWhaNlMpskPV;kWa&A9{Ox*_+l*aRjVN)LRB>s;U|~ zXy3$kOCRx;J5ni5P|e<9*s2zwzj4qS2;SUuPESj_+cvY$@W4MfB;?YsO0P<|UG0f+ zu&`M#*9U!UF^P9gNuMP4+Lnlzy+|W`dtzc@#mvaa$bP(@RKR`v^M~+o(DhK-7l_L( zE!6@o2@2E~v#wh+^Yh$6PII&IB5sDDGqEz&#q-hkT47;f6n0DkSmB+?2y3&t*N*BAz1qkt%O?)RH*Kb-M~$+_1|r z`98PX*gmb82CQj%-dwgX+VAg&vkjKM*maw)`sTmQPWaq|o7k{=3qdj$qG;sk==jDs z(NJO;#ok~(xA|08H{O&1BVO!2OX0pXvs)&r@%Zt0tNGz9xhlLJdDpo4YLuu)sSvZ3 z7tig!?(X{Sm9ef~+&dT5M;3~Q$q&4_Eq{L2CrBwQ#JBvFFO{MY_1yDGQZ^~&)0I%6 zV)>P{N8ZJ@TO;L&fbodUOmc&;yZ ziEr-GOJ6pln~j#30h$K(?ZvRtAYWqIAtRPV+~W5P($O3{wY3ilu5`p{pa{kSX2aX` z&XA!gb|)3AO=Roo&Kl~7b#HTlOPe3%GKw#-RJL|=_}2oLK`o&s+By5tlVa;QLQ2l> z`+l!qX`Pme*wvS0=Ga{@$t9*8^qOC76A7K1QPb?}u4|J~PC8{ScKfUH2>;%Eqo!)k zgr{eZ#lxW|O5ieSy?ii5o%40{Ldklke9Pjd_qp@6sLs2khz)ZG)`^jCK4V>!r#q44 zvo>8Pq@OG-UMK7564A>x$vX(}eWnjT zpWvMY2^gIkh!Pq0tiC59fi5@%!~{lO^82S7Lq-imfQ;)+XVE6Dk;l$DjaxZ>d8a5~RF+1c%@q(Rl5RW1-{19k{*`?H$Y4SpOI zrs0*VjVu%IrD@&+-?_ySG8|zd#lG$YTLQs!FYt85 zk+Az%;59p>X~SL-P{=7Nw%Fn5cx?2nf*rB{bw=T|tR#UYppi?EQkRwIJKd?GjC%W{ z6h_nSi8_tXirpzL(wyc4yql!US739qv*XLZYx1A}xFE1I9vXVNPW8+^@NQBpJ5jgi z=W|l>S;vClaKqJ1_^d8OR^em2TVeHZ9*1oCaMt(l-d!Mju(o#eCC&Ou9H&tue#WTT zscT_jOCE;PD<>q@Awf`Yq^MYaH8weZGigjF@-#!zwflg%@3smp$*_{kKk?rhUB@@k zr~hjmy{;@%!_E_4g;4!<(SsaZB&HGmIY!<-I{KWF(@+L=O#GPfIi1H;<@ovo<;$zBxb%>C#OUJhY{}IlK zBw+svi;j*S-yE=sSn@jBs}pI%{_AB+3ARf~Jhony1xW{9XU;9(jD}wtJDU;S`t1=n zf@zlAGWvyug_ReM`|XJmtJyXl^2V*Pl&IGK>PznD+cgV}8HMp>;Wfj~16B>QBLaUt zYZO{>ZhENPEeK7hYG#)1V$(p$5k~sg4G0oopr*#gq?D8gG_K>MzbZV?vG$G3_M5*< znxrUnZoYc;O5}2z;a?vqy|8^TA-7^TW7^uKoN=l&+v$-(9bllZH*xQPkLso3`YTIvN;7qrpW&g6mb&e4h zeRu{32ZdFBQ0RaJHihV^s%*{5@z4;YJE}YXy2=T^-RzOXyt#bshWPMDx z67%x%nkJ%3#o7%1nnxM9Cyiz}y>GW{XEMgbNKf)o`IfE&v=g-an2w=CqJ(cFljsWman{^l6FYJUy0VP@m*44P4V!#Z zj^%&EYdv_oO?b`Ua^Oo#?8afmR=Kk1W?qnMlfh}51eDTA(28Q@EMr7Y0kBjkda=~c02X>_?dIv|NDbh!I{Aig=ZDI*MM2XpX2Q?U&uF4CZ1QS*kwqV( z$?)&7X>i;ZUf5V!g{7iAwRF7>oG5wBKQJq_`J({1>h9}{K{Mz$^{9!cSCjo^{;$xA zFUVOQv4Q^n<{wiS989H?laq>$&VuOp8O;HK%Hp`=w7+-(E!iIRo5<8V$S5HT(f+6# zs~d#XGhoMg7Et_Rf(9{tqr<{0kVZtSv8hQa2uoyZ(4l2Re8XDiFNBG=O}gwv zm`0w|ci?`wGu6Tv`Ni@VJ%Vt0Z}`YlV9cLuzq>~Gui0J&oA2>dZ@Yl&s^J>(U+qn7 z71HH$0@1K)%~NCz%)JQm=pw!FgVP*|r zya0E1ZzJi{CAZMHP$fzbqP_2ej?}X>m0Ms@NW5XvCaE9z`OY&_da5K8IRR`KMt1+t zZJ)7!;?Rb(PMiXCyqlNlkhctb#=i>YT({S06E;A+f?e@lNbF<@JfQmIi z?Ht0Il0VM_&onlvEa?5Sj0cYsin7(7rv`=$CQ6*ssd=In*3HL*qjl?*Q7!~MQc%34 z>2Ts%bZlU83qPwepEy=rvZhP@O$K=u<(9=l| z{FOi`?9>^5vA`fLLlq`1C(h_y2sqTPYNg~8M}utw=ls7v6U3WA|FE2fse54WwoXy`}iBt>!G%BFmv>#0kX0%g8cN<#M_#>wn^RnteZPU^%*-YTX8b~Cmj2i@#XW*OlB=7!%AR0`vyn4=4 z=B5aah=Nu@`N`%e1_BE94^14EPcIMe$>rrbckbMgEPg$E_xX1`W@hI1Afq-N^D@1=P;Z+zDlobnzJ zG3mLvZEwCLy-gTa%RKni(QyNCHwV_3e5Y6IYtmv8t7~1m_kJ=Re&XS=pZ|HU0p814 zFWzKnW=6_$0by!o#x*fHK8~$b_@!@W6|bztyn`xS%7VX^t%YsU={<$*QM#0(qE*tc zl~$@THZB^QyKV+Qa)0p0R=|%Wc?x5 zeupZR)@B?mEL^#HhxtmsDrk0TdfI|Py0l=v6U!zs(aCJ&CGuJ{?MlOvzif5^X_W}C zSekuN>}beyRqJ-F$9!7j#J35{T3lOe19m$@s+xGnfBgQSEtvMWF*bnL2kNOaE;wAn zART*Y1|DO5FplP~hwF12nHdXpm{@3W)FkOaq=RSzET$v8k140eUMrD0cf35*B`|4^ zK8>z%{>5;n!nDqrT3KbYYUY2xp7~KbGTwbvwq&`QpyllYF5~84fGeofL_{A;q@$C& zmCUsQPBt=K!vD%Qan@a%VQ(FsITFS|={=NQM8D4tG=#JpI zdKy0FDeB)q%*7Zi&Ps+64J2e%bZYjgtTZfqH^O>X{r#e3srwKzgI| zzkFt!{|s{yj_Ce3wxJtd@^Ajre+Z7QBADxIO8nH5&K7H!&R1*|8rU@yYIrgJxEaBz z3P3{C!Tn57hSK6^4R3~b$GeA&gLqP^j;5M5T+U16yxFe8ObAv24>T>QD(>+BdOw_C zd~&i8*{RY|DSlC)#8sSJS`(}u%n^#hpSw&sPm+{=0T^U* z=+nZ<)o#o#i=4#ryIfNoR zh7AW65G#Jf<3h_n@;mQk9DZDGcLVdY9?CL+AR<@&PeBUaOAdgTha;)Zf{ZXQ95L>v z6GK9vzk%Uu_)`8-^aTN9`+U27VtgcQ8vv%|fOM=AH-uFIDcFYo-BY|oM{?Zk|IbwZ z2U#U}iPGfq$%0Kk8mUtjzQM8Zvtw*6UDVG0H$>BRqbHrc)t(%HRJLOW|C9P)g4lw- z7q3u?@wR6eTFwpR zreWyh40by=9Mbd8ZVq063Y3(n2)ZoW5&mfHZIkQ@iplfEubT}dE)r>O9DjquPayi- zHsiEE4Rq;{=!INJ?;r8jF=T)91jOij{5_{_A?34|7aV)OMN5*voTRr#4`-5+ASXXFdO>%nC3~CE6>bP zZ#*AyT>kudUrA7!1oX!AlhjjTl^3reLoPM6G!Zz)IXLjcIUhbe*2H0V(p53JQnjaF zI&qPDV}LApw?yYoqi~WqQfJu=mMVwMDLW!0w(tFYl>lnfIVo1juBt?R#iiu(p8{XM z5`>FGQ9~k<=}?%2-CM$|4qB*2nL^vKUbeTlxQPCFzzyUosG$CR7~%%W-2CP8n@>Hf zm^97Fltj%U{b@x~D6;b$)S+o{2M;p;&53l1P$FrI@txT_u5S8vpV{907$4`;i?}A{ zX7zc(SlKUPYS;7%%I@24368|@*7%6-fRE)lTJ}lk#m2e4=v_Y zUAK^(ZQoKS#?IJEZFsesZ2MQJvRsTqR={v#MurM#L>i7%iOW*Bdh9tE;l#UB^+xN%`ny5`GxvNJd?}xxl z*47H9XJvi3XRv!jXu*RIn(w{ei!)%a1B~Yd$vdxVV-4_xV!t@k3JM8I9x)u+>=S!LPW?+R&yMY}K2&bG#=cc() zLE?g@nsGPEx7H7?_s-EzmWA)_3M!5NoVn`TX`GC=;PifbW3ob-EISot7Pm`-pV%@f zGV1cO!|PnE0}MCL{vE1ku17ck(AJJIeUl^qjAB2pRM6FQ zPl#Vh0{8SjU3vS13z=5(7^k5O~gehe;8%~_IM_9u~#r!4-#X|5h zQ#KjTwsmhSrOL{(iYALbIHRnwWmb0Bc?pEhRlj!!vgXPQ>G`eB=?7gb-rASdX~UGJ z1YMoZ6DRk6u4M1&Xs2^xOm21C#r0$kC1dQgLem z%PS~N>f8HZ*4Tu|X{U}E_u{^VY?%_`^WB0>I5w_4wtm7>LWwXjiTm4SSAX`C%asVU zZmB+|lr8x6HfJ#8Jr;M{&PTXU@?J(4EVYiq#n-GWVo$oK~#=wWLpgLw2mQcWxNj+gvd&T_OsEIrZ2r@6njz~*IS|!Zu%z|b91go@-jeH6(uzzu)jg7*?+SfaQ{aQS4kG5|GmasMKZ5!~E`PR-z**1yIxRIXF^slDht%O=a9ySK{Rr z;njME)j@|gsV4@b8Gs{|JPP~p;by#ddM`dV509*;X9YMzqSfb275gM1Cr1gFi0UTb zdET1nXE;HRCAwhq%=Ih!xREC)yM1XGHxU#PV&vf9Fe7t#-Wu$9(J#LFgIan{PI!O6 z)-e|;h2Z9issch1#V5ySNb-NVw9n9(TKdlAk-wMPEP>Cr$Ta=d&s%k%25E&~Q8&RU+JB0}3CR3ePio94XV&loT z!Kb3onhr(fbcxr5vdTZYsiLa@zbC;G^P-ETJvR_bk%O`5)GGiFGBQ<3%Q$()JL4%N z=*7Lf9QiKjMMg%3WLxVsA?GZGXzuhnMnI~VPj(ep0a}p~Wdqow&d$zDUi(8^6&gQ# zNTy_(-VBQ#H0d4E1D!-DvFEan%G0OUZ8A5ffM~lJYYotvIY6B99c6G+1Um4=D)d;- zeXN{G3RRNpe*?rm@*tr$yJ?wNnwkcS9qqK~gm;LV$mGIocGsg!;@|tRm!>s^UEHr| z>q3YBQbiB9wZu;jpy9dK`EBVgrfA#&Li^|Y_ZXsBg5jB5hSqDG1x8dfHf1Xh9Lh`f z7SV0)W{UB`J6~%>fu?8`D3G*4UvR?faLP;4$IsKdsJOVvsZYm*y(dWzv8&ASi~ITa zH)DD*utBytPLt?hx1q#me`Y=->a8hZjgc#9iie|u$xgJVH@VXVfN zIA$xYLYbpvJVerui;doUXnp2Wkmwy2^{ilv+;UzT*g-`bgH~KtZtc>PasJM_&?aDx zNy;C`S4eN{In8#bYuZ@gAa&1wNQ6UCdxKNYwZB;2BcK*^yzTtsipKX?JrkV^c0<^C z%3ix&c|aBwHKTO*t&Zo;#Jwr1#5`&t=kKwQej`tsB#kO%R0TMwmFKnX>-C0j{g(+U zfDQERgb#lcdtG&?xIWg#rd4=*vs0eq2QAm7Y$Vxjg94MbKqp7X$aitH$UFcUM4mCk z22<^gGl@~g2*IuAH7a-2+-aujjOG)4Y2Jw$-z*14?JmKWnYYl}(^44rp?GR5o>fvJ zFk~yXw6@*s|B`)V%Yo~cJ8Gxdpgcz zK})|wC@Wj9Qa3he_)Xu7*)s4RkHrj}ltZmIHZOV(PYoGeCDy0{OQgIu15X{=J|?ee zJhz{%VXj;IF^k9mkj}y51dr7XsoRrEM*rMUZ1=F`_>qLRSgP2wE}747YPK^SD7K*x z2~4l37}}5HG6|fvlO>!XT^>lKG9EM#b&5jmk28&0KDrm+{N<&*rlzJlj^lp)dxn)d ze@PZwaAJfVJrKH42e|U@IR_dr^>s_C#qeWVQ z8{Z>R1%fBApe?u61}4RHDus1lZ%-FjUqg?KreXKBmdQxvt)$DC(FHb%2zX6K@zdHG z(&?d8s{6bBw8!Tz1X{JdT=ox!kIMPcGcDxg7`JaE707sS0B3zBLHqOGF3ns;S$NF6 zM@}0THcPNM%6Um>YfY`K{7Hdvz}G&nxVz6@Oz-sy46^-vt*Uh!YKgV+Ekm0h<5ik0 zsm$HcK7Fxt!=XFv(PGWE9!6xD<7ky*l4i6R!J)Pys2cFiO+&`*4k2km0hLk5iM4|d1Y$0o(R+3S&d3_&vLZd4CmI6Tdr%`jUIuhA5ZUm_lU3jePNoMbwU0B-lL`w zrQ;;Bksj}nE-raqMBzDTv41>3{C-8@Y&I?}x=OmUk?Uo(t2?zfMtgMI1m)oz;p##X z58D#$Y0{rz{IG7XSz0vymMK0MkXdcqRRgIaMKb3W;1z4s1q8ZN9ketEnIGpxm%Zc3 zpCPKCh#u&c2Lj|vnS9Znt--e!4I10ply`qo+paOQdxKFGH%n#~y5c9h#+IFYkQJ#L z%aoXcWK_!{aUHgzz6vhBEmP8EL5Xv3aY-?32^{O-kknhFH~?&I9Kbl->5#DQv=>QPN* zu6wGvn2d(dt10$i#&6}z+RS%gJk$vAg&k9Ij6Jao#R_JUJYEkQ&! zC`9_Y?<*RW#HDA{>w=Yt&L{`9f!4w6)< z9p_SCKM~OlxWR?J+nJAkq{9|ti!~IeElpoaO0yAcK#!z-xXtn+=5onOb9^^g>>0$cM9E`Vbk@YTDRr^ zjO1k^oy8xkK6lWm_B7x$-%d3}1s#I)aQI*mzPemP+_XN^)q)uSV4*Xf+|LrxUi+RW z_8kcf_7mC&*lg_kSK5Wb+-Fr$AlJCMf2>5%&gHsKuy9)RvX%g>Ffo&g;w?Bn_E@p~gCp9mJRo=Icf(QwMQ5K-arzR_ zRCP~yZZfTQ61cnBSfuf3x*TluDQapR9jg=<_cwu<@M%ujs$55Oq5&j*4@01)7qqN3qt<8MNUbr zrNAD#au2C`O>Hyo;KX!w0m9vzoeC0}1dlFo(Q`^a$zei^r;k64y;10wHj6LF`xWp_#yUpZE zL=IXJi}ptVH?JTqEHDW` zM9=ed^!J;)_w-T+UKefI9pmWSMdDDyGXLKW(UthhcE86pm4j~B{(Ra zI}{ zJiz(?6|>frk9ofeOzLRo-YD&LMpPK4FuE!7YYQm4wubj?ueSC+=4!z|$XjgN>gCtH z%>eebGZrYA)`%e)(g|V&?vq@od)mBA3X%HG-{#bRT(kZv9y@XipsKrQODFh(1hL4? z<#x(b8 zEcL2jpvQ@XDh4z)_U@$aDbVhZoF5AXdGtD04*EMLG*W3i`CtOurNd~$@TQJ5hAmfH z+Ns@hzv{fGe(gr^yW^@ApvD%vPsShDP}bjuK0otujhyF6WTLzW=r3oyapOAk{BU50 zi&&V0>_jDrIs%R|{niV8BPn%jWpA6yXRl`VR}#p^Cm$Slc3Z@D>!_)R7>mT z^HIod{%77|+D>NEo(QGPz=X)8D#7jBx2IL&_w>Q>gO7FYhjm{2zSE1(h|H)i0U_%! zx?p`amnL&3eyc3Ci4zDR?*^fZ)0-5STt;ve<61WCc|E>I$W10&muf#f@6_G&$gI6L z^!=bXyc}Kkc9!w|dOKE8huNZ-3Cmaa-7XZb-%U5guSST0sjVaqxaJ`}5=jm98c@)e zb~9rHx#4C)-Bok_ZUejxRD7Yskn2=bs0Fv-bhwnr%v52Q5|_mWP-aI}Qax9pUcV~2 zln}vYAB0+0Qs!Qy@tN^p@90(b&<*l>TIpGiA5SI9<37`?E|MoL5q@p6%!u(?U-tLP zofezY=8r*67CF`%J=uQG2t{0H)Te*f_{JE(oHA2|riowe?jp9HMN|q_;toCf^q>Kp zhoJFVEUrAT60T=*Q=HDr73AjT{vM&|Ox-m^RYzci4YDeG6?uCh9E%8+aCBjM@rg)` zcAH^eRXVzHL%|;79L_RF zIRzi~DAv?%o9*Q)ccWT=nW}fV8euHLjhuZeS!yjfO~JC%1b?;17RIENy$>_^j0n6Cg< zu47{x)Pl^d_bQFw8|LC?t11ueek1nOCtR<4tGknsnpj*b5?14gO(NriTuZJx7FoQc zPhhI%M-Lmc+P%*Mty71P0J6nVCy&E56d%(s{%72imN)?dCg1B~bxJ2CDRg>wWc&rR zr$^W3Wbe09_O8^m=9qB>6})Ou=n6HD%?`T9gbn)1%m%IDUn9wkN7wc!cV?8ms2uJG zYw8XZ+WxM7$#la^lSLzkn`wHwbOv9x)!Nu0KUj3i@$L=AKg0V zMerL06sr8uM>F`Ui0b$3W7v(61%6_iEjFHA9{pL$`F$_RYz>q?`wP?sP!TXSNAofX z;xk_vbCCcC1H20_jGHc))t5g8Us<7fGXdSb(J58xl(}cEDpLEfIB>>#pyDE;GjOq0 zugE+sUAbvq7d0$cSne6o$A(6*Ch3Nx?S6jSm#t(C&RZxi*)~ z#5Pm()QKQ%>*}E4#9UrXsgw4ea7XYw&u`Jxy6>fR5x4Ht#Pw<$zy-iAg6(1h-r8fc z+aG-UhUpvIptbpmPDC%9-$gosMiO|=+zGCr%! zDb}>OBHnckUbOaM(4?1y-b=VE9>Y0rynDy}PMKaB|?H3BODY)_O2Vo%I z^5V78oiCRBa?Cf5fBQNdHoT|zjqj{gIx$fAQ^A8zv@b4gv~4MV>|i}KTXHSGG_2UV zys3Y4B5vM$a?ojRknvrykY2>#1!^JoEa7qNNPhi9O^r0-8?x;PvQ1bpI9wq7A{EEz z_sTxvJWt&qZmnp2&wMuPfg;tb0so#1sm607rV!Gp+B^ea+8f&qhj7LlhiYVO;&?_* zRu@8a*b}CyptQ{2 zkzrA;#zf1r?93D*HBGX;N-(7}+Wh#?3peL)vW<0fw|5G!7{xI-dq0djJaLQ*GCU$6 zoa3?1%ax;IDe$T(NXJ5=e(BXl@dS$*HF8ea+)^6Xc0I}L%?+Wsz|o}>+9`51I;jbf zH+PMMiZ}=a{9J-jmNM4D3@DAE%Nm zK5ldk6NbL?Z;~KInpUKS*{Sx+H}Q_$d_Odvy?xd$t#nkpKH{9yv*nWZPIoHahbYOwvcM_V8+9b}XHmli zt+h%h$>Tk(J+0P_;W)UVG!m{8SgN3nD(!ZfMw~Ziw-QD)^mWENw(fm5n#AQ8O-kw> zCLQ#q@tMVI7m3e`{nTbaV(j#46qli@&*YMXwQQc|fBy7XTziX}y9t6UaVw=aKcKfW zw*Eu@z4edv_uLnKMhC~_eziEE98nHKz6}P$B92CmMh@IgC`GGI_jxhvx$Mum3=@`- z>iwvjx;?_Om!A1UzgK^MrmQw~>g8XDo{D<7NTxFdu^N;fsL!!`mX6HuWleP=z%%l@ zf5~eqL>%DrN*_EiCv!{b$nmu4|jrDxicj}}H+ zj6-rfuS$KlyGPn(#k(h&I-w3o?eNL0>!Pn88_u9<+qP(u@HHPTpNC|~CA+OXbmOZr z9-@}&dQtsNM~%HToqKjw&kcTI5YppSZn(F->w#RR=^TO-C+^YgU2tQpHR)~w0Yb|3 z(LFO26^H=%nI1wFUYQH=w22%+g`{b;3`SZ`kutX3t3MWSjrtn z>)4DU4=UcWHYdtT(H^MRc3GO-j4}y+?OL%MkCdq4VuD4A7_g@#cvzK9 ztJuvrnW*%L`<2dD$f!#F`pZDC=b-`bWzRK&)M5=&X>x@C#+tg%9oLVs^`g7s(6nNi_N=C^3_UXVNw%J96C;nVGQ0@zno^qvvP)1y1pid;Oq9y*!uPTxC zIPBoA2!yhpHbbz#<%8Xn{bgIBrk+Y1qJvO8q)+g2S$TT??*T3;Jt6jqFZSG8uW$Rf z8FE3Ev_Nyk!!615l!u4M$n^m3Q=TEHHb*(8L&te?(!oGkjgN!D)M^#i3s)cb(-Y$RHRPQ;(aK126urAiu zC-(i?6d1yEMj)1QM`ENeq%W|B{*PfGepi8MuR4dT>{~_|1|i-trlo8rEE?=ZG^X() z2YXwvqWbtf^B= zVt>;AUzow~mnlou?>SDX`dv_ttYuP@Rd*ZbQ;A__;!_nW)2BPh(`Eo>?phexcajH| zC`_%^FD|%--+J(C7Gv@wXJa`~PSdS~;XEv{6j)%+O0@6-IiAq2#g^%uaj5$69k;qt zm+2pw3ZtgQs8xw44&cnJ?*Fm#loi;A^jNiVik%1eczj)qVpFeBPE|VC>MXciINzVG zM4*5#AZ?TDD5oZiRU|FaXYb+DEHznsL& zqWm>$TvpKbT&bwx&Il_`N5*cj%x!BrWwu%)`TpzbWAd^bhG?6|{mAtJhlOtk>q8Z} z9-|bG?Yr1ILxHd_yubL0+)`*rP20y?MU06!16Knf!!oIhs&P^LEm2o^855l*e!gxJ zDHUpwUH)0T)@MChw%ih!-zrz?nbZ|WIh8z27RnIh&SL%O3+|mK_oFVK-L@?784Fb$ zX%x(UOLI&%#{r>_T0>j15ua#9aZg)V z%p|MEvzych2hlOI)SL}C^Uz2xzG8lQ`o~M`iEd3&e~Hs9c9oeo$79thtM-8lg5SD3 zqrHW5;AXjCk^QevJ+8zVwrii(3o7bt2FtE%XX*Fi#%y-dx~xrznAP1DT;4mmi&>9y zd%e2@R6;)^?O0QLOH7@uWbE*0VYE$e$H^>Vs+FnFAuR%nVW^#FrH!&{Jtn!9*yQ5b ztWx8jQCA!mYgy|zCsEw>oUZzBIV4419zOjLCC>>}d0KeIH~E2Xs%D=1%Oe~tpA~`{ zBhp2`q#XAmt03NUNQGsW>8oE!6WnrMw-0A~ zr>sdD4LVD-M5-Dm&AS?uP*)T+tr9P8Zc^VNN!iuEOAy%m|?;x?AV;bB*tme?f3sV9xT>bvVy3J8gRJl13J6eEMZGwwQkAKiG?#_68+8QG# z=HJm5+96V?ZMz?J)2e(Ep3ASa-5OoZ_Ce~q{qpY(QXH)h3273ol(miu6v12)DPQRz zFe5R+Jka;|6e$^?ZI{~iNaD1}`U>FE<~pQ2Av(;mo&wQiY@gdF8$xfQ_T*Y<-; z<&je68-vfcF%#r%y^_qgl$-#A6dv10Qw3T8JPQ_u zQ@}Hr#=pQj8XO|qar9NnsRw0|90mH3%Obm*R)0VH#GX;;Q4Y^s8L@lh#LL4$8l;7{ zBTZW8sHl^`h)FpDAINWaIiKU$&UD4Ox?CovKyQ>Kqes`k5HcWqn~}-lGk_loHtFX8 zlzqa=b`^2=e)Q$v5&cr_r>=BHVYR0K2n!Cgw>cuiRVj;WJI~`Q;l~E>@865N1WEy6 zoX+$!98{K+#L1G5``7g(u{;(a+%;sMhb+lI0+W}dqW8kdS@3Xh-u<-gxdUR zK2k+XoPyr zw^o7Ql?^OWkFM_|jN4~tabx(PJR8%+`wiY!kDMl3f>65z^TlR6?`w?7LmPFHBi2US zx?aOH+^^EJE2OiEN8U(HM461lIkmiI6e;Fuk)F+9yYBeR)}a!_y9ZyZmI6q8N24C? zy#9E{iTkb8J&15YF0+C!Oo#Em3Uik0 zZUunMnIY#pnNOA{R6_fN!{dw6yOO$gIMPs?Dq4Z@{6$*sL0B}LWLt9Ub^AgJ;Zme ze0^hvdyy$WZ+T9S|7#MaUd@s9MlJCZ!406I3*4sbmc)e{m3tB~+k^1V z9;a;p!8Ob{t{C4|-WU;eu`0n3`I4)mf{nW|o$|JQ1yNT`m0ZNG?K&IHb`<OS z;^EGOWaVo>tO>|`-;AI4;!~B|9AlI7a*K0pF8t}ENy zxol@#v~_N*-#UB9$TR%=RFLE#+w|7U*Gzm8BA-x{e4Q9b2TuC7qY`V{nsaX2LT_Zu zBBe;5V`gi!hLwih&)kOtE{ZV704KBwkP3fiMM8lu1cQCXLizvk9!@~PxvmH)Q_^S- z7VuQ6VUH>Qhdprxl*2%Kz7QF@kg-CQD&yGEMDsWYg$#pIG>!pY{Ojdb^{A(c*go~+ z3k!oaP5Ocm5x)ouS025wHN0I&h|kXG6_1rEj}v&bZJ?dcHl7@2aP`w?DLI>`O)1e7 z0wv^Bk3i?$)z%_D3G1P2gp2x5R=+%w9vR8Sj zK6wA@KIR5aSmkP_T`e7}{&7K_EP_@W2Z&L{)5)8 z9Xu7rr#6^%CS|;6^zuLJy2+yhF(~(N7J8g_KC5i0(XBf_q3e@W*gjCBFJNg{J=3;0 zT3-(e?34NCt#E^w)PI(^b)vzURxJE?p?@J#|K##yYwP!^gqRV;k^q}`PF&6|%kJI2-z4n|d;mazSh#_nyt{(E(zmvY;IIw?++}4y~ZJftU zYOeS0)<#dg9LpYQes9nk^AC+l8$;&^eO2N9vF;b318TEc5xF<8 zc7X$c;XhC1(D?OJt$b$`eal+0;J+B%>UD8#$Y+m$*ePEhJcMmgo}V))7KGMLw?%d4>ogOw+qF0;|=$way?3_xvN$FH^rT04}Q1x)lfYboufb zWQb&V!@IM+{2S|KlTe4{W=Y1x7f7|dUEq>zFh60uME#*wt`pnDYsqc8Lf&S|8GXeS zZC6i${ChiV()TE*w3y6D^m7ZRBKQD?$ko~@J8+p2K_Gq#e)?2m21C&atI?|YL(VvZ z$7}<|4kljno$}i&{NO{K(MVAZ`Vq!g zpKiFCMs9hG&XeZmxAgrE{c~v8=^PDcVpybh7OF?*O6P;QcZLrxw%s~r>RP_{jeF-t z8NpQ4T1ZX)pNU0KmxTBxD~gma$IrhtZHh2elx>xnFLRsK8)66GDBK#RcQO{x@_#?k zb_uwIq2rGWS6t`%-P!{UKM2d4{fsK!nn};MhM70VbUjM`S5!eVj7if~x-U-@uXgK= zlD6kVKteM2Pm&oOT8b#Di4nKXE8^qcwTAgu7co29q#n3#+Z)-(S0oUXi4j~qpe zD#~zf|Ipm@gu7t#I6)FDTS*cPTCd#OUF_6Q>uS1pEJY3Hn~Zb#*N|f;8cxA9Zb*Qx*$eezoHETSc zWpS^qB^Ck4!`HA;(@H-|?7%W9%6i_s@6%m#)4Bvvn-gVlBvG227A_fq zPRclk9?ibLy#UYoevI6ASTEqPUMAN2Xv*UFaTv$tm3_GN0rW2;>}-zgAEzULgP?h7 zNJ%;%EYr3v1!eAcP!n$e3Z|-UAB{bz01RD4uK4~569W{=5jKzgBhd)@mrauB1N$Q$ z08^s6CAvT5P4LFey6*k#(FQu!5>KYcR{MR=B_lwS4E3<@ha7eQ_YNE`-=Fe0IE4SR zjZn?8b?}QTfM1I%ST!6DYTEdL9HaApfrwi>;5x*4klV}tjQd#Vs{6|R(h=EJz6aX? z;V;4>YIp{8&VDk3bQwz5_TMT^2g*CF_UWN_hYq_zkpJqO*q2@`0dactjbPR*li=$Y zTdq&W6%RjW9LdOUc@xU32$w`rj0o|YJIU4t!2lHUsKU!#$N(b-FD0U-c2}?_d%No) znR-QaJDbbAoJUj!I#V@F2tB#EPrf~u8hdwZ=6kr(g$}hDt6eA*x;pLg=EPmJeqb(P zw2%+RjJ)HQhib>$tskzJ+S^{PJ$^=pl3N>SZ$9rYTT`zJ8)RF3GkV`#%j5ez_ z#>Lojpra)Ox?_JIpL71D4gSHU(Is%8Hs74ewg2_~W|NA4reQfockUCL^ve2><(-UY zcM2<->Q-wEKQ9fb#gG=}?Kn`6OGLCYgs{fHT!!ZFJQgyPy(pm9&8n_n{x(T4Z4WKG zY;pMX^$NKx4iC)ua{m!fDAog|!iVOE71muxEFjRCub+)4enwxh?D&!q9Kh-FNZ)67 z)nVi{U-t{s%%$nCQ=s^?e$hK`5&}ibm05MA5yVJ`_~IV?u04D6%@5*?g=9)TtOPuf zELeWkbMiCF@HiH=il40uyvljSOy$0}*{%C1x$>{)X2;*67Ay+;ExRBw@|U_<;qBMl zmzH{5QTJrDCJ`4?D{aqQ@lcU1FB1wp)VsxT>~cX*O@G)$mB%dGL`m^Ay!p*J)1{wM zHl3i~wfRb_qKRa?SRS9^T-jFhxD7?|%Sz93KMVq{U} zF41AGWKse1`Vw86u4~(kgSEfQRxu>;^v6O=@85~s&*jit{Z*gbc}$Rh_FP51;-N(U zbb%Z_+5@t_7r!F@%D>_zF>(kM#Qqz#Ck{|or|l^aWi02v>&V#jc7JcuH?r}ft}f?k z?SVFbwIhL&d{@5ptC=aOr7%VDOpij`d7$FSOkN+5MpS%QW%~ ztAv^RL76@4UoYEc51Tx9=(A-2NxCUP(!8R*b?u9 z4ubM7wc4ms)0_tl6{_b&x__WV)f0fW4_Y_j;gkyypy{BYwJZDs4g9_VwcF9|h@t_? z1u7u$IY>WfMLDD|KtqW$L)fmAa)Ac)XpSB)>!JXp1L;7X^+<2fg#!5x+yzhYxTRA} zcNoa+5IN{FB8AyF{0=+;ThOK;B(@AdS3R+H$5Xn)Y&_rz-{H)NKOpV$BLK0!^(~<( z(eyG5JOTNpC;Z3MPjWzG>qX(Xtt91wFW8I!jv)?nC$8#(5jfA;V^{Z1dWLYZ141Um zG^AhsQKq-kQ2F8~8nsIqvUKF?yDEW~$9L|!t)((O;eFMLgWgEbi}g2jpB3x!QBdQ^ z#-8?@$NKZ1Dt-?7TNw9?xh$UIDgR4bcK-uPM%p&CquyzXxB5b?xWPjIHn|1Z)IM#v zAVuYOoGln2^cGgPv2WX>IC+x7{b;d@w#KZ-rDr8FbeZe9cFJxxX|eqt%K~V~&>dHT zU;*@?J0X{_O;FF>>&*4^DF3K!h>|C`Yu(Z)TWS8G7*Bj1}~qiE+^jjE6}1mdg`TOFgXh zCtBmxpE;BJyyOLsfrIIEGdgpZx`{>fE$_PF3G5n?A2FVevwiCyIH?FGjQKO+F)+Dh zrD!`C?aQN_CwUc_OJk36UVR2b*DC$J0KXxI;sc!tlx+Y#SwG`r!i9x16tSupqs;(X zSX<=rNk$eSi-ZDv^{q7XcLL#!@JOtF6`8o2FJFgq*}5GAaA_<6!VB9@v+Os}trB`rY#jg->@9+fFYc9La|wDg1z zRc%wRtCNYR6ge+HO^KMbo499k4sG+uz^#PeR|HvBSr}W9a;W$KLd{wof9ucAP1%Ee zsph!5O3CG(F}@lLp1Og33HsFQgU+5dkMhsq%4Du#%TgxlskY^1I{dfpxP-_qS(Hr; z8>0erpY4A5+rTagfB-)&ygYY>+S5+&q@r3+(E>4gIp1?Myp==U4Pwxde^~;~X5@xE z^*5<=;3fz_^v<(q?EO|QZ{>bgWHAiUgnQVNUj3?O5cX_%pwq<6koMaF*dF)=lXPr* z^GqFPGmGkO9fOJ`-qqeOI3C2o>JR*`O~|^WWAZ!p`X19sWJYfUt$XiJ$OKx@i*30n z!`T&EGoarkI6{{DI<;Kq69J`&)NDq+@mRx%TI}2#lJK58l2Gn`J<_ET_La0|0Hdy880n} z`)3m-*JYU%IWa!>V=ia4;A&_gIR4mjg@S4Mx!puXYh zt&x(01kUP!Q=Z4&Elf3l^s8iO)wSa=Z@Oo@Q_B3QYK98c#UJjULHUuH>pY9TDOq%~ zYfk{`9~mpq8y0TBUq(ns&~#)rgnN88+`3n%S9Hqy{ao*SDvKe1@veu*!|hXcp}ts} z+`z%14)4&$0qsmzHMQJrM>S`8)$Qe$&g*J2DO=jtUDEms;@vSy&PIdU1GqPH-lax_ zxH}2bA1p&>%C6Z)rc_ua2srSgLVtex(%KLedTZpXIV;D>u-X^Lj)lm7jgToBhG3rE zSF`y_+SXJk!c9HZ3iLXNzj&CF6`L~dgnzhG4=<9a1U7j;BV$t^#8EU5Ujyo^SD-hi z2r8_}1kW_1XO+7*jq=S@WH-mc9Dp2<$Z~hkA7xk}$Av`P`}NU!e5Nq>*EbI1&adk3 z>F+%&$d%YpsbSy#Wt^FQp_SIoLV$e6k+rSepIEh;(QUQYAL$OZU1)k)qmeFAiwulh z(Vd)od-o}Pap|c8R`iXqWS8Y;a{D5x%Q4XVFt)?|W!+8}$LQdl+V1O*g&wo#Vst0P zttDy()mU^$jhQB+$tY2ge&ZiYA9L+@>xw6*M`mLBL>>!e&N&Gx_lRo4IU|Xzme4yc zjFESQbSuxAwYJ)Yro`v(e$riAx+;VwYBieMwZHk8yEGUMdOR=By-xR$`m+0pFCyGn zefRB$2Xmjas*Qj32|Mg9?QGxSDtNZ|Gfzo~|6|MawTEwNXP!DV#hvQ%(ZG%O*7Pr* z5A40RCwx?X1l`{>7Vj|rX~tTUb=*^_DMozOWWHpx&s{@YG{jOvL8;efv@S?kvIH1E z=V|rKw><4_geGETs=e?VVI8!2jkrneA>PbnF3^0uSw z2kX=RSmDeW4w+X)4`q%8*Wp_F-0kTP2WJvGTb)2F{4j?^hAHpiRL#-|Cq#P<)IvjA zX_wpqU{aO(_<82b)mlc2$q^Nq+}p(d*O?E!;tQM>lj9#5^A#<>J9|s_JyBf|wvF$J zIC&Ax`~?5rJR~ZLha52l%Fj^el#bGkumCQMrRPL_LF1H^dYZOZ7FoFs0 z6VXx9&ND8O8L~i->Cg&Yulef`lQE#Ah+ompgy&T)1=wTW3ooQVpW1k;ZHN>v4fM?$ zm3!NjHuCqj8-aeoxbXvj=>x{V55hSz#JCwCz|Gs}ZS`g$cWsety(xql0UuVnr2;3T zp?N?WHCNr-|% z>g9tYD|g26{!Inf16hRMRBi-THq?P0*6t!`E65q{&gj%H{Hh*JOV4^kZWHH{TP71R z)+1z*3d`-%S5F^kI-B=R>kVyb>${JKlSv3O+c;mj%^zxY#G)ZCvbY3Lh?mju0rqQV zKiQaF1`0w;@hxP{b)aa4l;@h=R$K@dR61CC<}3Uh8?$pWwk5M-2)n-9rDMdY93k{W zu66nv5_F*sGnB%68U}2KvNq1>aR2zoQA2G6WZ{BcoaG|+zx-LXy%z(GIs>esDAG!b zpwY&6R;w4`$9y)b!{@ywWx_##`Q*6PYp#=~sFY{9x5&Mxz6lzc+9)+ObNVsclo|E8 z#)EPTeoB4ERH3V#jeww=f;<(ZBEotbgy>{jPL+`X0m z5c;Ou9r(ZXhoX2rWTnnt@z;L)>LV{61} z@fr3zI8$Ai;954y+1sAew~(flo~Mx$B2RL2Va{-gL1&L!H*G>MQ@i8&;~kOT7!BWX z{(xspZ>`RnY%Y!GBBnbwW^^iJ;`6NIvMR69x)jA@)rkmcw97LY1FJBR)WOKP_lyt3c^M=Tt1acvrFOu}h%IRqiZ{Y#-1o*Z~)8r!v@f{~TF)dUzGlW~dqGGEP zm9=Oyrx1MRG_S(j28BJ)rEMgIdW;Jion~Ye>7PS*8Z}8qnirRYp)En4T#Uh$C42Xk zYd6(%c?xwDKAYxFV}6L`@6&^qBuVtnA3f1C;G&vh@;f76kebHKt<(o(Ingemozmym znPGeDK6{cK=AcuZNDq1J{b`U1_Fx`C4(-x*4 zI@S!#g(AD-Vt`ledy+krZ`Rxx?7Q1kxud*>TW%23i>(!?CF2b`t4=R`k{ z!LZ=$b1 z2dW0>q523_&pAR5WW`%s!@J;x?j7?L6V_a)31UraE^lJ0=>hdf)s!S&_G!M|&+q5# zZDlc`TOb!z+zQS18W(iHsz}zF%PmI}=BC83729)o>rK!mC)&I7;`!S8TT1b&K-=&Z zNSit(hsi3h+CWxC5I&J{32ThZ11;032c}=vAPP#m3%69iHjlcNP?z?#Ad!_R917_; zCmhN?w8cKDNx0*L#y}P0*lxvKIONn>)X_Nl$$n0sB96FN{@1ncQ zol_BUtwP`L6aG51YlKXaB9eKXiw0cuTsli##!CA$)jfuE~uc$|S?kaM11w3_Zn zCo{>}0&GJHe%eF0=^qECLjpQiyDA2juCHDEA~B~KUz~<`MB*m>;?6rB4L_eYIDN*> zYm_5D&3l9i)sVG)AGf_bjUrjP)L4Ti`f9UVHOJubdGGbo{LAly-z4koBuy$90xd^* z*4YfvFXmOW4=wuDWyH}=CgUBEcyjn4u;+@Al#R9?O2n;2BQod5BaOIPJ-YMRS=)!G zs6i~7<}OkeEfO5*PMO)sL;0u<~Arf)u9CYaVfc^$) zy;9!uFT+vkm1A)*BccrWP;jH(XQ!SJQlm}8A3>Q=A%@qogLRk5ZD?zGtdVMIN0MkR zqEBQ%D|J@iZ@@MM(FlcBVHWEOTL${R>E#dDPM(hxDZPuMpOMz#u_M1!&0Ml$vSe}i z<|KS^IPLKXBK`+?V0&UKdY_OPrp}_`T)6mv0voD^$+VGnd9GYs2#O}W z=1XWW&G%TH(O({q=Z9u5&I1Jr`AeIogmS!9NguE7L`yv03hkY;i}TslS+hV_Zlzbg zsocd^HYc3!oxgdZ`CURm=nmE?z}ld_uFw(SvP69VYxIqhn0VU8srf;3oh4a>u5Bd_ zFH0p>UiRx$w%eVLdMLx_D8r_xgv!35&p8hvyA6tR@6)r8T1zq3S+C{ymgQRwRUI16 z2Gl&KW6Z;4C)ZaWz8z^86^c$}fi+#`dPU4rrGBCQ1jn@{#g=4q4bX~)JmqJmVD5z6`n;m|_x|K?NV2|;VJHos)Ogs^~$=FG}89KX^e{> zQSrMNKayE)CPG(^=vxOLJN+2^85W_Y$c9?JSR)ih4elAOTch zDnUw--?j7tf{Qns%ai7#IvJ1D1wW0?gV0p(2?mr}{&{V*->Ef7&#qiN)`#3g%yKOk zoZai6l#48HPcyx7gbDki4jUWve%=%4qKJd*11KGjMVJT2!%U8AX7|bZ*2j-6`#D|v zPjK&T)Q={|!r$P^Cd7N^#Ylsm^UY`(TSbqsKCGI2yaKMYV(m3^UYH$2UtyM66xY{* z9%7n<$!XB6V3YD2^2tA}&zTVo@q=m(lherB(ajazR>|^dmEO>NdD5tSmYprbo#}}P z=HU+Yas*~ONfc@MWjO4)ku-JW#AykeM{B`L%=B1G;)+KDYx&fjMUbn_exbFWFxX6Q zHIN~{XQqwx&9(QDW#?s_^kr!?XC~W*9CKO@S(gMzwoB)I`e zJw2=+GQ9gS=P&B@bgeF9MRy1YW&rAnQa|=FbM19=tfYCx4|I2u>j%E&)ma=)!L-t~ z)~%HKFyNMQsJlc@ae_#obfS3SJEI_3RhYz{oVS#&h!*Jj92P!P=oJo{!dhumNlPF> zb>a-llSPx_8b93$6zIAfwyHCvZh$g8a=W*9M%=fzSj;G<(t}xyBkN_I(rRCW((05Y zG8!;51&%LEgz9-P?Lt36)Ras5|^3HG#HK@2=hDVKr-VizPDs81!V9*bb zDEAf=1X<#(@J{35I@)R91Y;v6eY$v2;Xq|o`o3FzwxhTJ+O?pS%Jt)C_wF)kuS}w3 ze4cZ2chZMsuB{*-=+>GP+uLx50mQ~-Pi=7N-3 z{o>#QqECE~b)lMOh@;uKR!By7WHy&dbDh>LpCtFK7IqwC*Dc>FUq(QbJz1_SWa{}$ zHwYxF=86)>WC%F~W-sZq4N0G6N%bS}D^{If2_I~w4LqxlNY;R*Gm|skL}>6A74Y@o ztQzi2H^wUJ?dK3VX&FpZ9T9wS*!#umc#xG;;}-VBPfhPk9pPr zLjq##vcXlYv-wVKl*Btd$)e|dcTvJ%Sz#*g{3t0)@wDd zbNTKqP6=V@aTC#o3(r|Q731x{AA0N~eZjEwb*g-Jr(qX_+p^c{-B0wDco0hzH6r^K zdrU%_x3CvZtq@vf2db0|n#HaT5#q4296CwMMP z0WvhWxgeaD{_tNg>D~C71`M1%=JNK@-3%gu=7AaqTJKwM? zPS$3@O&Dz{a z@!3ittk^SH@}DPx@+GS|PoolB7(+fbMS5m{{pz)Mibuz$qWpB*?&o)vr3J{%C>Jg% z!KVw{X5O24oY7+Fn>PER8>w23%VJUqxvdm=^n9#X)|v*Cfy)k{gSgx%B@CWuFLrO9(%0NP5@Jkji4^|S?CdL}klB%*zFJUsa3Jopm>z2b?}4e(55 zpGz5!^OGft2j<0m7|O6IY9S#=g2}4o&>m@h_C^KRm@K5qKwqKtY!liec={jLm7AQLbH*H6WEM+bK% zLBhRLcyp!|;$#h^Gvnr@_BvDK!i7W$>s?742^E{oc4qicY70#0C0o6jjuX{D zEN^y0+}6owKxSyOg^-*Ea0^`-;`;YV`MpiT+!7+DG$Tti8&U6xxlSN|PwF!1sq4cq z3T}4IlU~(AA&N*k6-(h{mGH!S^k`u=(pEEjvzf)RQ0ThU5Y*fm@sT*>_r78 zUVJY7%qYkQ5Wg9D26FrS!?}0xzfu#tvo*5=Gssf?(jUp}b2GDBpipQcT#U71%hU{c zuASyuqm!0`$mcNV$m`0kQCg)pK#~w)4_1%PZrQJPA|%vS>GdQ;1~fIGTaQv-Rw=FO zHY%;&)lXtKn^~Tm-t5CwXs5nRwAs{50pCYFAd0cl34RKI_)(o=d*3YwDZvQ11rAU7-*humFzExGAhfFgH&jc>Q^X~awqqF?ww`9xje9ac2LnE5a zP8+n(s)mHm%sa)BSy5T4y4N5mkH%Lkz5ET_^>6Y$p4xlLA-SA3xcinY- z1>W)ha__j~<`};ZFc^!o_gQQ2x#oQ4GoQIWJ(rijx=nl=0)b#jNj_DCK#&t55Tt1| zR50TDWr_;|LBTc?6MJqUCLv~HX=A5k`^vyb!pPdl&dfkj;t2%8=kKqgV@j%WS0tvg zn2Dy-r#~$%1pA!(Yl)>|&%4pZbE9Ibapq9VlE*zk|G+$Z&5z|<$@6b0J`9K5#}Y}sgy<`koW<3l6&CQe@uT_J4bO#1`}IkTpbBQK z@JU)^X5u`SxxU}UP4hp03OIcC=*IHsW?>2ldl*KCL^AWEZgg#fvT<@~zx?3BWF_yp z1k%Te_rp1StyI5_Am{gf73p}PJU(egAJRWW|0!r0OZgkGp%kKaKOSeZs4FU%Zs%zfc-QE)UX`td(L%QgYnZ?^v z&y?ODWr929^TzSJP;2A*)6-IRz1Z81o{F)U^El*?>E91o3S1AU$qVGn9)4`|S2N{l z+WvT0F;8HO?6J;bVkR)u&7W%g`7!gl-^}(M)pU`cYMJp7PtNpM%I`MP3V+az#dK(X zDH5Gm|7`)3a(z611#|Oc(dGCXe&}eT>|mk^H7S= zHEoff_agmUpx@uQtloR{68~usC61Z9*30Dd+r*2eNsFnbNrwZ|t5ZK1kIo_G%I4?I zD~mmko}^t+Z+2(>*f3S0uEF$lG0k@DMmM&l?q`=`lM3-UB&75{Hr(h0n{!(GE&7Oi1J*17^7 z)@pv$&r}nt2kn;}XiSLBSsa>2`{V4oE`I1O3>D}t@M>b7-}1ZxTNzU==U(AzSH0~~ zWux^|Vn%n`$%@RISt5gBH;ci5bC^Yl!SKECkA@$H zG75|LKDJs8fyFRA6J6?UCa}m}$Riol`vckErsqa8!Etw3!Xg8}imO z@2I6jiKyONRlB}h+e>rulo1}y_inV`vJ|?h@2=<0C308vhpi9Mlwa+O)vbQJrJ^?M z-(Sq)N=l=bKR2|@&gkFH=XgkfIai;^uu`>HP1=)&T^eCJ2Ptsl;QL`Cb$&)T=8|e; zpMc7DN-ubzS;mhuopYo6#I%ja%VY+=0m%_bd$X_jhW@Ai6f)m{Ps4XL1>&x3ij_UB zH`cV1kYRVY?#0QOtH;ib{wYXB;>C>%+BX=#39si$I5Sz)+TPn-W!0|Z(Z!`sH?lO zJ-+$#?Opcpr|dm1_5EMqOX0pC4=410rkC^Sy?T%dFCDRX;jeVMk1rdriT%Bh^&fvO z=zl+9G%~qSeGxkTdVOwkqS}6AwX^fQv8zg{GnRkB&6w@NZN6PrnvxG49~q6(3-a%; zT$-R!>85`kU5}vMM?!uskAi{=g&-k*d8^)|gjlIqV}JO22^u97(#n5%12oF+EM%0# z+}4iomscR6^lJINJXoJ7azC=;->kop3cENTe6_Q)V>DJ~HE7orFKl$U`OhE+=k>Rq z@&n5(^9Kn*y4Qf=!rGe=)W^Mq}lIvV2NenQCuuZ+qa5w!nIP ztXt<;ZCcv1qN1W$lkWC-LLGs5pA05rH!5B^A z9K&Vf1XQY=H&`u(^1?KVjaz~qi2dGHuk(bPc8`*$8MTGCB>9q$l7C*VntuVF7ZrSZVb2yZk<|7p$a0w>;{dJ=H}ZH zO~MD`_C@v!@(b?`6i`B#r(Gdg!szx3onf7Ef-&D#%4fE>?Rx4?f? z+0u{Vd#zuLBq1#=UA=U#ud2^yVfBkjd1K?V)7Y)3Nx@EGlQ&6qTBmqB_GQjZlS~fl zm3O?%C&7}X>h~bZOeD8OxDzW5Cf(-V;mZf7;$u+X@nCO1V+cUCr{+q%rHaAx;yp)G(+utv4S=>>VG@Ir^OqN4tX zo0Tq%{Vq#2b@U7IJ3NYlYmWy5!VMKjc&$r5RM86BY>U-@f@Y&6YCgi^vZ*~X=FHou zTFK)yBI7py+8)E(rTuy6-pN{dLVFY^Ju_s0Bz%>ZWvRRZ9iJ}p41O+(B{C+X0XNQ! zn092Ioc`_u|MTsvJ_0s$WCZ=`3KXp01!-pOyB=uU@{$Q~I<2a!v3|E1F7STc(HZkW zSO-_~92&~-zJD@@DZfUs%3+Dh75{~?ahg=BFqW&cyJ_$1MB+E5U4+;B#Y^<2CM^X1 z&j%92+2&xoy#X~}j~ipfCV|?XM{|lQDn_o)2wAlmnn>-xFioAGj=1;V{lzG?5r3eZk8uK8=H=ug2u3#MfIq1s&Im&OhYK^$z}hhZ5p1@rmpDDk*$Qh#WC3(Sxg<|C1UD zAr8bdyS^%f4ho6plID2wuj>HI{wU!E;UcH)y>d8cG;(0X?5p9sD|dn$=(Upn`%5}* z%H#TMWP1uXO=K*jre7E+$lJ*j7f@7e;zd3jr>B4JS#JZJji<$n$p%QQ>ho_cz2yzSV=;lGe4!~IR|GS=|)$;zpFZY z;l-ZlX{oY&HI+B&UXcC?sPo1o3kXJOmQ%GJYysRBgU#Q>{Za}FZ1b&hu6#1?W&|Q|?JRUf$gshc zYmeqhDwon?X5-z~3-4~!o>)f-yOp^gFQwa^A1%mude)Zu6J73f2+{?5O0`bvhYzSO z0Bpzw@&B(-1HcbznQ-P{Lftoy6_u3cMobdI(i1#2^D5_w%l*X9FC7g8*@_0lhUoBc zx=W1kP*qJ$#>J)5^kvnn22>(p*AjFQ$C--PGqZCMdf3SsnVG?(qnZ{vl(<1fMI06* zZJdsdj%#T-y7oCaId|C(mnzj_j@OQc6w|Aw&s9`%VV&lcp=ZwDVC8!5TjDb4KYC4! zj9MP}lH!$hT3{R#sl0gc%7fJ<*Ikz_knr3ZZhbe~9e|CsAgTS7h0^nrmUmuiDB3vC z(r-!A#f610*5L=b{QtbePf^R)H5M|})r~jmDYZ~zeE6^^-0|5(PjMjDfM}xCSlRp3 zt>w4p)Po3o(a_tgxI>$oEBc80W1Fnw`TO*mCtXuns-igKdpIE zApR$bD_jgxX2HJ>SOnd?c{6RnZFBm&m1ar2@Q`FzzfD(NH~}3C6Q$3s^wMLO#P3Q) zUGTLSCz<8&8#HV~l@f*S!Mk>)C34X+`3dYE$Gdkx;Q(qjMHnmZxUJ99Ud8cpwz!+HSl>Hze8auvfg+b3+a$MF<v zv&hGnF%fq&!D|I+G2=yYdvdsbPn<)q6o*+a4d*j1-l3xotio**;Y)<#tGIvD$MX;4Z=Fe3Ge2LEc>-fuwooe85N zyS_>h1q~YdLz3=#<7@$d(8we%aD7z@Kt*)#gJrKmKgw^A`1q@RcDTMu3ZNpn+tg9l zXyzvqz(DzTm#(i0p#m7_?lX?-XYo-DARb-D-mBn`Mk5YJ7{3_4y~aTK5G2zY#gr>l zfh+kLj40l3LAhS4E)sJ0n^Z~PtE+|80@e;4L+kJFZ{}7T zXZAtG{8A0kDzgs$jCl9&+pJ)zzyG}aeGA3))0GA9+mbls*X!w*6teKZcS6^Lk1u*6R zJ(KBe2v>*JQzOsK%@tV;v7)0O2gvj%OW?G0bU4-&oFLtE9fl8J>b&_ROo`E4R980b zRgIY4amZCt;{|;O_67=?-}TO12m85dMP~hae}le5Yo*=K+o9C`14Ae zo13dcj+?0iB_BWbc32tgXbvD3j)wH>E!;1?y5}UioOdt(AsEM3{K4(yCWG z<+ew2%Y48j(%0({x;6?0M07AUGD_8Uo^Z6=A2IP|Up@xWZ=}>BLTImF3Gfu*1#8UL zuKG|RQNGgE~UTDN6P))4?=>a4ai>xr26MVm{1T zW$l{#+wFja8I#k1&u8dKo7)LWiEqk$4$Vx;(|uTOtuU%Il4aXR!1C}t36`d=bSthsdL%+*`c~iMCd1M9xgGvvSi)84O&Ywt(;hmOfIpO`#aLoI-F#g>}5x3*rB4U6w-(ivol%)EW_eKy7$+XVjZE0IG z%e7dNE&EC{PRAl_EYr7AkSOADyvnVek$U9Nzw5rvZ{va`(iA{uu^wg{FS9FL+8}Xp zX85F@3E7I+%UnUs%q;Vs*D~L8_=C*C!k#cuXnvwnKmct}bjZWFqH4Z82XpgH3V+n5 z>SF4DO(P!PG>kp5&>U{kMP7Nj-Ikh_C5`Ou#jIWNJb-`x{@X6~mpNCi*qyRFO*rvn zy*fYE^LUBFpb;}OKR+T*r@9qTP9F8r_pUv?K6;5cMBw%Br#%!WT#n1iQ5;5}7sZyj zAx4+Z4h46!92%qh7N=*qVF_JCjQI4~rOQ8Mnf?UnpZeK&2~t`#NFGUq>-*LJ-&DB5z#pp5dFlYZ&cUj@%kU=w!7xBqoN5KF&e0 zUkrY>KUM^+F^b1Zvv|zH+y|)3_ZGujC8ahdcjBmJ1vZLUCu1(5;;*{qVPO?#eX>MGxw1?pkR8`SVUP#PHe#M2XmmSy|=&@hGc>O|21n zo{WBkY&@cDb*DuwGBDpkkF8&Xih6oBgRq?r-e8T&vKswgw<~7?1o2ugcDh6(JkO3> z&JL#7z&w(^knqau0#6p{vOZiW_Uz03SI8GC*{Ur7dC!`Nom8L>s2T^`hrnfdr`vPQPzaxIYgNT<2Sws4mxro$bv_1a7s^Co~^!&CCJf zIi%2_Nz-?LvRqhxlt~B}aU~#gf$R9S`}_QOs4l$JVkmm9SwI*t@o8#&qM~{noSbug z3ZmSPSF~*4v`rMSn$_x!+WCcx^NovH!n#B8*>x7pv|AmevngB(j0CpXlRF zUC$i!PWs24+%)50zdzBpzgFO%yITqNo*a%bgTHRb;C7tH{z#I_>x)T1sG5?|%SF@F zovqo3yJ3p;0bZPXwAdoS^WtR657kD%%(mRLhYEk(yppwQkxFU9pM*36KG3mAuRkgUkkO1?{Un^8K9ogkLzDcP4@@5Pes?E`>o6HF;OTac+>`M;> zS@KDDk{B&Dwb;Xl4|8Uhoz_Z+KJQb}bKLQw`_@$Z@9uH1MZzMWaGAY>|8?n2>jrob zbRYY-KES{`oCUG%tK-UG)a$Pg9%B8Rgk5+Pt7~gpx>D~IRR^HQ@!G_XJ5PBerSy(F zG5rHG<{F0o{>)?u>LByOu0$taI6DhMmR<`uF5ew&Ftf5We%9n=UZ3mOH?4VNzB@(i z_AW=cN3RzbSMBcJkRBlxgpgVN<#P6(=+SJbKY}$jx;Q(CNVqs%Konh=Fv!X?SFrhK zar?9c5p*&Cgmm}MFQ{b#X8A^@y=`0k{QT^`Os40=70VS$WYpOPwx!ymTBOkqwTX$) za8?~+&ACP1h-tFI!pnSY_$Jr$sQGI}LGkCWua9 z-srw3u)n+2M8S)c&uTI4-Y3WVDO}9wER7Be%I)Fg_eyT5`OG#a-CRx& z_#}&x_-V0_?JqXE?@bOuvDB~+>DtH_ZnH#u{&^+0kthF7u{>=6!p6iT18Ak(1R2)K zr@ODE1(uQ{9I8WGCi{r8LeBzhPip2V_~naCy5il)2IEa;pJ9!!2}cTuDAAK;kBoD@ ztcT!xnR~2-Vw>IPv5fQxiy9J~aKy|)O>#Y`7BJt;Y@mt(TfGp*UZ0q`g_{a<}TWMBp&+2bmyJh~hge4NH@`Wrd=a11gIm%1!hO>_ z%*1{y_uY3QkGymdQym-6UYVasChv3|2UG_6JQrhng-y;h~(SkYMd9&b!N5q2PW_)Ws| zzo$-yv^e(D%->gt;=3dO#G8R&MqN*CpEZ;2Q)!H@p}n5=Wa7C zoSl(t3Cq~EQnxLn`6un+)ttStSrccFsNIfAhU8&SLih7V`b>jN6X+D;nU9MdS5)yC z#8Iu}tcGM7_iMOK`(#!}SJEGA&Q{34eY9*&dxoT!cbL~g_m@X@Zd>`ON^~^EtKO)A zovrB2W80HmWbxvT(0iPQcn}M_It-szt!=7bTJ=~L^hoj_0Os+*VaTlEKBwSeD z92^WNBZ6lxb?{DcovcK5HgBZ`^Aeh!3rz0h!_KnN-F-o_F~N1ORh6PQKhUCA@EAV| z4T|4mp!XMNNk&5#du?+tW5%qfy2x`zhE{6!k(bHljvu+4$cY3m#WGuLm=vWqlhkm* zu=4g?vRpN4D;Y=6<<^qF+n2olHfoV$^SGBDpGM#{y2y*i`+otcw-fCn^L_?<-*Vk! zoBYsyQ}aNxMby;64BuL%^IjRYu=BGMdiRP7H|So>+uFGL^GAxp$1~q=rI@4S&7ehI z;yLeqO524v=jfRDQ85jJFm}6)Cpiu+n)x{G<)XSw!R|4bP)BB;$?g15Y&!&QYpBZF z!)AsHwl0y}#AD<;xk{PkZ|;5|J=u8{H{Tb$-$xP}!p%+OwY*c};QmfzQ<(xOaYMMY z?pTUM{?$xt`_TgvY`1!lv{EC{|azDsil>9$<_5AKfLCAn$?(Wjbar{8@QafkY_=@;mu$lTL zI=MhU-H4S)%~F!@Wm45tX6_5P2qwjKXAlUzK>3XgWve~Z=U*%7Yp)iiPN4r~;%33ed!-utV!?L32-*zVvZ7lo!$M+$_NiXoyh?bXnBEmPy5GJ< z1{}_d;zH3_5p!hKt5=0axk-Wef6nxT=~Z1AQ1801Gslqw!v1=-rnBM*{iZXJ>24OSbS~~=kaVux7NLKafKeZ7Ih*}haWiwQMWaOR%TVI z<5c8imAZ+{d0clzZ6!0odK3_I7rNbh9V0Uh^^$slVxcvQekEDnFY)5E#Tjl+{SxH@|O# ze1cz zN@=p}YOkk2!flK*2}t>#CIyk*ZZQPu7OH!oS7xbEd=f(GiFijo*aDIWY__uCHgyuO z?Yfl8VKvItcaQAifz+qV^p8dY%H|tL!rOW50+49Vm(m0K<^D|LqjCE#|Lh?}n;g%T z-11rA!M=LmxYZiTZZP|S#2T$OEOWH=0DdsZ8F9AP3tLspBZCjObWvqiA*E|$%PFYK48)5SX<{2y)|9?DeHF=_ypK) zGKDxCU5f2jS1f<=uUp2qP@?amP0B?^1+$Dqb-F@VRxDDz1@U5Nj1kPjw23!}=l$aj zcdJnH9S0_RnDQ!~fO=eXqzVPUT}rIesF~g2KfY}Wuwx}DIk|ftG)kbHfl0(cGw*3> z8U-CUfCBxK_y%V2MgPD+l*y~5atyjl8>+`Z*7Mj4%h9e>1X_^Yg5QXIcK)?&(pGd; zj)91nsH=VHeg><00W=T3uepQy9FBk9%9PIq|CTfqv~r&0@uY4q%`)xq=I?c+0l^BK6IHc{R}F^LQu69JBHU(48%JU`SsMhU63jK62e(2XuuAggu5Zis>&)VEg;fY#mSVGjyk2-8T@wx5)1T`n`Zxipgf7cxCtFXjx zOeVY8G9UM_Oa_wu0Xa3)xN4BBUjy|@6qQ_t&A3aWrP+%{E*=Dnvn`<=V?i}aw9+8o z(7ktPtW(=hFi*E{8Wx{$$IG?Un~@OA8aEv}j%14P3@stF^LJ!HffbkRhU@0{TWv_U zNO2dEB!SqGOovjCNn)Rfbbf)LxSgVX3I*P^CY{PNmC$&O*jab zrY;8)&U1Oy>mi(-d<{7W9oo42PRDlKhI^AxpSE6xJpdBT{0p)81YROL?VNOMSWrSX zUFPyh*X+|-dQo(y;z^Q*uaQtcO(3>|_UMUYOa^Tc15 zG3>3Y*LW;+q@+H9G>`c_}qlhxb+_aNFd+-jbV{CeW%2ABQ*RV}lIDiIzp zu(vTa#U#F5Fqe3%q=85H-oK!?ehOJ8f;CJ@L3lt}vFY8i7MTrT1DD3i^Y7lf_e;fv z%mks5`;ZC;9NW{TC=PxEGiluv|97%Ljs;&@9I87nT|DdpTkHiQ;}RB7w0YVqm0+L8 z%kUmiy|>3#G}UMd69J4wlK4&xdH*A92@I6PfZ<{Ezi70EwL4pljsN^`Mvgs@?>E}c zZaj#q(Y*Z2)U=K#z_m5RFDAoNT+`i6TRS?!?odB_M{pEJgVg9nhaO`27kSrLBNM-w zM0gYsV-b2t*~b9%NFuZ#E_szAQ|`d$&UZSyL6#?oOE*I9c$IDJC-44U32u6QzULkj z|7t3JR*?L^XfsG2VNlK1d^kCAMo zJ*2Z8z67U}gl_wstbcz2rk6r?J{3CP<`}7tPj(B$Y-2CqSf;v z@1Bhb`OBT7l~5zWA24zpT1xz~i4eCMfG8)_rRGb>a^DrKs^@DZ_LR%TZCMnDNyGAZeuJ%y}h@y5m~kIxskkoUS4HdTV_; zd(%nM$(X*$+y1MXh>SD?(@5|2zZf> zYZ|s~yOLr&W7ys=j+anmmwwbbFYc6b1{|z6YfZ9j*}-DiLE4Z@5V|qee!jxRgZU<@b~8`GIuR82&e7Y#*=Af+9KE@ z5CpZ_O|2pud$YaI$>%3ajSiDW>7Qy%Cj1$LyO?=f#o}A=P5U4vKzvnXKJYM`=hv@a zufC_1dS9xhHdCM=GZKeI;+g`<@E0V170NX-ZMbWx3r_aFCxAxvHA$4Ju7g(v3bYcK zH_sZ<0DA%=xmfB;kGWNEu66?A!&u!z?rXdJ$k?5QvnBv83PUY^m7k*E+NywB zj*2eFRp|-$<6WRGx%-OfIvrL4g&H-N7SgK`N<|<^P<&@}9h}t=)txz7`>PReNhIWM z$vffKU#$&PD~@3i?bjnzH-)z7QktI>egVnFPdrc^!7-Y6p8$%8(m6D8c{nJ@9G3mi zqm8N9DMJCCKPhDeJ*bt(v+z@Ud0`-HFjjJ;b#=W($|!F4*-GzEbzieI+5dys{v%S+ zRG<{^RqUf-=@@BJ6BC2?3;OG7<%f_WJnUvE!~p6sQKNjBrr~bJgTmFp=sUbCQA{mD z5$m|4$bY%EdN)v&nzX=|zVvKphnnCa4t2=PT|N8_AY69Mmt(kd2}PzYz(dsIWed9w zK8U5jd6J%9hBvQ#@DTrJGDs*j|8G7SZwI}hfL2FS?>f<)BKQ4&jGIuo9S0PZH0VY7 zb|FnJ1(z{tl?4i^Do3|)r|Qlh!sT~3q-iS6%wY|^w-U}bnLzf}%qgoN5!1=l1q4@{ zr=AvALd46K>k;r7BvS{%!E4f_f(F{MUb6@fZ-K2q5Uuc}uHxX_gT0 zMPQdbI_iFxsXFC!2ry=u0>kSOTu{2@s=~0i-h|qCU|XVxTV9WR17+A}&aYT5P1nmy z2HcqSd&u<&)B)`7Mb;eg%R(})trXY-wCY9IBOh6V$UV5hH`Oa3|EhLwDUIk1jTd(1 z&l{}TBbiN?(Ej}f#iExwKiHQV^=*ZEiW(MzgAULnh23+k&db4CuPe=XH1EXoC$ZrIZ*H^%N9)d}KNJWSQqt1+^AtX(@J$Z+38tlq zmv`?aC8*Es$B5^+79o-^TN$9ow{8i!EM$P0D1(_~Fz5WM{YN|m@EJ%yi^leU*8dR5 zg~Hy4U2bm(vNdoDRkSjHYj%jKyZ}2sxu^gS+~8lgUC#oHquj9Nl1;~jQf2|;P$u{f zqgFu+j3b=+=s(7R5CpdVkiNVN1gRWl^i(AlV4WhXF`jHsAP@cePlK;kTl?S44w%TH zOk&54?*FtfJ#zvW2J~bIG-Y62zI$A{?s=re(NYT|kXmpUHU|~FExfEk0rEk?n+FTZ z#Ke?ZQK9a%HcAU>(&3-*>01*Y`}{}&Yz&YmcWVv}4>JIAsxTZbq@<|WYYl|6O(7H2 zsY&0IiI+)8@8#Ae$+xz(iFZ+?E2+p;evJsD{VHK5UidXUj4r$>UNN|FmtgLNjt*IP zZBEHkiekyPOuFoN=hLNN29o__QlR(GZSF0CXcIq65RA)XQe4ADSTZt zjq!p`t3d#oBGLvFO}+XN`Zpo1m7Zs=nLwuuN?yQ71GJq+j1c@7KOpOJsb}Zsr2(;0 zngfeGJ2@x^YfbjHcVo;RA{BIAXXf|k|F*Va*bCtjWE$H#cWv+A^)fV}50~&!mPwzk zTq_~h42YHI$1|0*ctL(V*Xh~58Y|z+SgbTG&{0hrdhTytJ?rE&NavcfYS}@pW>+Lo zKHL4uOw1}o5;7`kpGd0i`bNDr=_Xdl-u?ZqxbCv74yR3FvBi7vA-Dq!bcT!T#e{77h#sw)T_mF9gR862-B3cSK7&72SG52xdWAm90 z)`*~8TKY8i3OVVejh+lMkoN$EHj3LWM=?jkpxKcoM{0VyjIr_Il!46tPzh0*93GQI zv@2>`aQOV{O!kBO?as^n8vA5bu>Ri`xQX6QN|U34@k6;mbsG$C-Pgq*f3jC;?(~N! z*Fmd#iiu4IBtO*aA{XYfuZ3|PG3_e)>)N5o31BPRNcOg^Uh&Ql}| z$*A=!<9xu}K1W%fAC^?qB_{CRr|M3Nm==>1n2w(2O!!99E6)!7|DPi0|FH)XWUcp-+}jYX=6uqvNWZ~Vs;k*Hb|Q1n-{ zxA;aK+X_jUpopxaQR-dbC2xSlC00V*EJ{{zPnk%_HgQI1_znmGrWhcqls!KsiRH$zq~_}IgjUqsn)%bM}_dG4+pWnk-?U`j?sB&7c} z69Su*gaN=YCLKR>6&}cxy&xq%JVFDPRVkEFX)uyI%g=i0=DQz*KqP3|pk#F!LK1TU zy!ijwZ7AWn*sJ9;wR_)h^)h%DnCEH~Ka)1M_%ZlPGb1}U%m7F9iJhIDKCPLPhnYrH zO`Us`p`jsH43FyDqHVjSyUb#mnwmK@9YB6*mYhOX04rXS1RKSQ?YV{u?S|)WlA)oo z0IRHqS=6jUYw+%_gIUW${FxVjl*Tq39e*_&vCk;Lj-$(bJvCYJSh3m>qs>a<5e*B& z2w55H;1eUWOw6{fh!@lnjnciV$J{GJZPnFI(yHn59clhyFB^JOIUL4^UqY5o`wz`m zjEUqR#D0-`Xm6xnPJGzg-tQy}2_5_Ox{}9pI}=mj5DIMVYq%q^70OB`I>D65|8GIbt&O$RH$!aq;cLER`aKe>%h0%~SR2?A|+2uq(RmmaCSIMK$Tg(rYO_?d^>_>q{d; zXPWesXgu5W4Zt$b&YoKVt=m2ULPft^RvCsLP<#!SG}6dCH9b7H`@!B+0(w@ViEuQ& z6DBLRQorKZI9G>=FW-HB%fg+D8e=UPb?RPiVC5iq-n5nl8E_&%9O5hh?YpLyre9-4 z;IzEnUHP#rT0hy;YxE zFjJy%H;aMMoQ+rYUpJp70)x0k@}BA{)%HZB+V(4oyjOPR1MG_2^6uyBR9gc?u&!L0 ziK|$N0~GeI1uq!zF70931Yl^47M6dUIyJ^D6z>&g!XxCg!q-PWi7JggY5NOvzxC#RHqL|idalhQG4 zN_|CBKq;bFX4@iM(zyOr3<}Qu#Ttp)Oi#7mW&K;u9brtR7O6SeZ>WdsJ5s;Eg>ygI zCub!|b7XPQz-vF%c~2jOT?{CW>ZF*3yVC*jjm?ps*{A@NZUSdPYvP1Fk*^=e)BxKFYOy7DIu z{W0&CDcIUZ?SxXp&QQ@;#|M5JXbGbDbg_`|O37`er-qKsncTWyxgD?PQF|b~6xElR zs_|1cUyZcdafQHMkObG%%9~E))dZU~h>-;mbcbsvqDmf{S|;*O>jy#cz9*qOF2ybi;*HDyTv5mDp$-p z<65URO~8XH3`fkEI-dDx6I(g@>NSCr8I)cgZO?Hytq#Adt!Wad(tX_z69tasGc;!M zU4ON+4XEUmF*{6>TWXU0x5LjL8iSfRDp=vVXFft&^DYIRfI+|<)POD6&Rd~;-L>}8 z#+wI@l5Zel(jNH$e0>B^CpH7AtAiW#ZYDTIt}93&82rWuBtzGys~S24 zSqe{5K~W?(Tn;otAe1e+PBl-l!2ugo6IG5fG=A9CHga<>0c{=V>u#0qfRiw7hLv_0M?>%w^zo%(uf;5mn{enO+FVk{4-!! z_j3)95fh1ey6cCnCAuN(3h2K<$uGm_HjSzkxRobpj`>p+2Q9oivI3iklT}DAt`0NF z5+tObK(mY+3Ktfvf>xh?p3*)4$o1Ts&1i3w;z={h?wG}#1A$vHk$7?br=;p+-)1?{WzDH23lVTtzJcP)E-lvER+Z&&vk!#LCPv97{mSsoy!EA zG=o1}ZLkpyx)Fe3kdZv_9^I*2AXT`qUUG3>Z;D@&Nz@5IveNtc^_mQvXQArj`f*Qk5MWZ*T;Q2He&0eiNwlTC?N> z@XKR0N;A{w9}4ur8Y@vpd14 zr!%cVnQ!=XvS{}HMyKofop^idEF7Z+Eg73^ee3K6lBnBqBxBMJMP1g0&b3&jzF$zDRC147=~BiLObZpLY-uz=cwsl6*N|Ea*w8l*+|P9@=5ydcFRhruGapvBP%C zvlBd)Q*EHV)fGq8XM+rbvHNAd=Q`b70;^&Z4!_4aF;DYvAX=Q0g7?CL%g62fD*GoZ z?M;{@;3+w6`%UJH>Y0e%aV*XYY$&%^?+}FuAl$Y^FLp#f7y+5ztBA3^dyb%eEocM< zK|y}keGb}a)C>_N?T`%JA2Z{{4}P(etU87OQE=ZW+iRP$KVP3#@kD;K?WT1kHk9V$v4I{ZboU>(FiS z74bBcZ+L;0nyH#62o+0-ove&Z==7X{g@#FqiFA`UhX)gGjiqH{v$?_okmfL_$Gc`N z@dxZG2~J{NO^9dWxK+8(Xhz$|zWeTCbgEu>|*(18EoN2Wfj8BYAZuDZAB}8!|(hktgU|Y>QKZho)Cc)!fRU}}$jgQv``kbS7oX1WXzwz3h0XYV* zaN;r1{pFhJaf``-yXUymc-5h08lU;IL3n4nFgujSw|)2`z@LF&mAY@gEY970vhk@O*0iht5pxrw6hQw_c zTKA1*JHcf+sk)Pijdr7lX9eh!+{@c{#?K2IQXKnO2F-?GJbLH7&QE&|ETI+j#`SFZ<*4vow}mDG*N4^LB|`WP5JzMtw<| z{Mvjs)-9N7i*4n;1etS=-p9yq7^ZB6$4`m3oJl6yYE|p@&x7M zJ%emT`b#WP-+=rD>Hm@=g{;?h|C~%Tj@!MUD*_IEkTdpZz~YTmb6-v_0Ox@Hqyt^2 zGp%7v;(AhVfDfQ!lG*+vSK7<~nWhBE2mJ@r;a(!@I(naRqk-l|YzKS8<6wffr1jJj z2ou}KV46%2okIQh9{$Di*CqNxlXzl=F+^Qqv#X;Q#{NDKT zii!;oEcK8N0@aCHC*KTa&rs&F1&JfPR%)SBa0AnAp~@JLiW@B&CULaDbEmn8Cpkj@ zJxstIoNu)pla@k-Mx!?k+Sx+DxoE1MKspT$Bb0)zWQ#hwg4N5~nu%rwu;>6Sf<`HT z*!VA(Er^=F5K$vAs-q8mtnJ&yxqYcnx)$&Z=!=azii(EeZskkL=O)>E@!d|ubIybt2^5vI@kcVi+zVUL(<5h67TJE&skQv(o z=!te5lqI&6kLBAEm7zia2vgi@L=Q6AzeoA4=>ewc?>&(`Fhf10rKIkxm14^6yXdHC zX_1T?dM?b(eS$A29+WR+w(VzvQ((a9eO9^4pam}~KQps%klhCX#JkS{aWDoWQM`dN z`jisjSWvjiHCUP3VbLm6Z<9CP23p!C?+xX4*$!-YnigyAM#IU!{St1}zgSD^J9vBPQb? zJ(br5nD*IF+I4fpW(lB|g(rmWUMnU*GLvyJ`jz;K9EnHJI1W3{`L0|53}hwe7E0z< zG|n4@Vxq4@?4K(d=K>@g$N6%Z*NO=E_+XN8ov5 z=9_uv|IPRPXMWD$Fq?Dkd*A!sYprWt>stGhth5N$4T2jG2n0(^R7eg2K}>`|5N6O( z!HA>pG#dnhjBOw&C~G7rB4}o8X8Fqejh2pxj;W5NftH-ea|ndX&+oOmKGEyD{4tfq zbW~lQ18Hf&*yrq_CB|~S@5h$Tb&5?U=tGQ4o&~n9O~x5KWSu=tF`(tY`wX`+V zDQZM|f;@)#{$It-3*W!5ZH4dTzq{V?Lun@ekY!ok|0Y-;@yb>Y5LhH-7Vf*Lv+#L$qX_nZ?=L zK$kucrH4E1X>Zf`w5@4F=(LnsBld=kt6c2O1soE{%&*4`1&#-lBn46ik3Y8iDe7}H zZ+|?jSh%l?=(53}XTUSu!=0-8`5FC&&+PUsg>?S!ika~d&(Aa%%I`K&^LfEyZ(6rJ zu{qs4wpEOaLjM)ajfY9#OUNJJ4b_XM9jnJk#5^_8}- zb}x@OHhXh8g_ZVBW$%Ck0;OC6r%#Q~lHIeWb3N_InUd}w;t8C%Bi$q2Mr~okrZ65C zQ$?R@VTFY1A**F;Dm?;22J4owfjGu{}*;m;*6mGaw znW=sk+2NDc=1*mKZTzMEKzpW=f_wd4Esy);`_3BIv>k0z_%#!pe+I%_zy@!u8rYVL_Y?Nj%1?e~D?a#1_> zFJFVWlG5mv&)-_-X5Ze(XL)@8=6plqqt&XVYNFmW?9vGRc}Rg13)fdOvGX&$afehL zs{~Z8QySg_l`?LenH;2^6a97$cfHx#O-K%Zn*F|nNmut& z?MfoVuZ;sw$LwLRt!t)X_{Ah>jt#B`;kAdkWC=nw>N0|+ws z4FUWRfFHOoLA)G6OiV<&{2gHi{>R%I;}Z}F6e1?{Ox_-0eG@&gf~rdHSe2|I>_@Iju8QKyD^($L!3ikcJ=}sv zMQzv~RN9o}CovZWn>HKsQ**i-aoQVmcBkJvY`bE2;#%k3x?`in3`&9naiI_dzSNV z_dG^es&Uwv`+=tsn(wl1v~bWXLdu}1ZW9*dyxS|1nwSXXvD+|S@WvsX(uVL@Ep!CB z54L;H&NO-k$HlGBKXxoL-P_wsl0lb{F$;S&P>d~2*HpPEFP)N>CfwK8*AcKIH)bZ? z#kbg8S5>7_R8$m;*CW~0&Q!0qJFRpZ5r%7ireTLg74Ld%5XEj3ev^Prl(A}wB8tl* zNivG%MV0k31tEuVAn#_)E7Y40a6_8Yq+*0ThqOi8BbXxY$UJ4n&swSES&0Z98&g>x z&QDle3BP%-FB>aaBtY6L%Q4TNkkd4jgwIjb)wS-=-+ozjAH6(2oDID4cMZ=g)c=_zRx|D2;^z|FM@e`J7XD6(@@D8hgF!2lMRgT-`HB>GN zL$Y*2aJPcpR}nHeIB=Z}p%$C92W`rFanzI5b`fr8s~SlWMBxmo54pLy7m7{?GGFO@ zeUI@h8T_@~pP2XE4nf7rerw?FxNgzFpi%tsyij)ppVPj5uA$gVQn13_nJFpXZ(>^R z$Ytz|IS9}!#_wpQ*p7MT5Hoy|RxLBez_yXF9u4(&zvH2R0WEz?pg(2V&Y-I{y*I33 zw!&jP@+6AaF0b-#KBhm<$|Hx<-_3%EvbAqoUHgMweF#}~eOov8E)2G!=xz3*Q(^Ch z3+>NN4h~cXgOm8xP;Fczt(9cEm?DFU7;;(C^BWW&{w1kz|P% zE45pLGc1p}(pp1kVt8lSA=LkxmTKZ_#zsz&jDT3OLu2Vrd;b_NnY+6H^3z-H$DY9o z*XI140tzAUxjlY8LM7=AVS5vL_x;sPaeaWv(~BE>UX27kK|t(z|56V3uTvm%hteY= zCl)>`#JV2&ii{4uBP{mp^7atKLf}i9lD>0Xk6_#(gGfD~M!BB-cZ!+gY%Z-#*L)P_}W5$98`lDxTz~|QVGo$M1vm*ZMP=nh$58x zWtmht_bDMZ^rFIl7F^&4uKV%tjJ~w@7`rQjue`8UW-4lGU+BmMhplr7;NSY=|F)7L zTF^6ld4oHbPcZWacs3kTqO2=VcKFgAG7umV#&I=WlKW(ky{*PChL?}zPKtv5pUeDN zjsL98rM>)T-~4yBDg9E2^~L#Fk$x}5D1a{HM5{x&As;aD#NWL6NxrId6%NQ|nBd`S zu``B75$2HU{QC!<?9r;*3r?QS{b_s<%HQET6W2W(V8AF9X#$`Z&AY5Ri zR8OWHA3Hi6FQ-cda_jeyRW2p@X#e{DiAAUFE-eE?7_~%riw{%Xqs+|A?Fp;y*5Yn{ zy85F|vx&U>^ORT9C`0FE40ig{}GN z;810@iNU&+!iDbbTA8!zv$f)GB31pSoE&=YpYQMddi-s@;~3v&rom%oF?jrBNA(DH zSS_W{-!PqP+d{>&?2vom8jQR3`47-w!*%9hV{55Bn4;5*vkAA}oSO7S>+J5vQL$bb z5c~Z3^Sd3MFBeOr&0Z^{J$dTY&&z(V_?}aS!-M=AW#y=&;JzW!$oY941v16ONRjU8 zq_HFg0h|f0gK$P=s?^o#FzL!se?E@&>@X5OQ`^{jc9!ta&`2w$UIb^Ofl160^Vx}= z=hZ67*oNr`Vks#pRL*veu!D_B-k zUp(YNa0XDwLwToKwcIpGz$0b)rZ+Y*LFC@98CFtoY97p!{?Vf+eA57inDu9^!$v2M ziv}7khzaCasB?`jz%<$H#dj+e6)FU)4j3Xx)OmUK5B05He_frgV0p>1q9+OP%8&DT zuC_FKf3k)}7;@+Xyk)#0azU?(zLPq`!N-bieuW0cUJc}kpEef-wDI0DKI@8P7UZ#A zd&H{O7244uS^PSHgfFF{f-6!m{mAS7oF?KWNZ(3@W+NwZPT40f?^W!N8NG1gLo(=y zWG>R}Bp9u8sn*|IJU!acSsN+z7(5leN(HvQxUWXc4CkrSNklNR3jl2D9JmEXEu3Uh z3H<5+{ytQ%whi+@LTgJA3wbyG#N*Qck^O-!J#W5wMTs!HNaj6RE7mzZ{H^P&4}-x< zI+gsdKX?b=n;xZD78VvEH_^+W3PC)_(+^`#Jl9M4a6MKC!g|x=AGX&c7`FhLK&Sk0 z4Q9SS2Jj~P?)X)}MyC=2@P^#??z^jd;$}k-^mF8ly{|?BapCahi5&W++j58Iz~PN} zA@TLdb2z;DDoTER`~OVn|9OQ{nybjc+klRv10!nBtv?CdUGJw^xUn`-`bxpM;8BH3 zI5$fm|ZQb7OQ~7-biTHUL6Mgn4ZYDyC zKYnwj41mAM`)STs{@4S)1#q!-uT#c-vNSLk=MzxxhlYiCU4qA zu51P!>`1Jiny8ni2W>C`ptAe}E$P(=8GJ*&_r$-tH9|RnkpJ&YMieJX3l$*%U0zE%wsf|IKQmbFOO?PANgWs%Y#r;M7jbC4%p^8$JV6~$ z*AV~L@_?^mA-%bOwHOWRV0r9ZXo;^z$l&S7&G*XJ%VP&$p1oA-s}T=)Hu3~l_xjCD z01m=tIHK=*1fGn1gGRo%dNbyV;9dP^G6=~3cPryzZRdl-P@9zWTp=IEkRI=7X#S(j zWLz7BhsGn*$*NYs!+7pUUVGw0iNry~9#1r!HYv_YDga@~5tfnz_#dO7p!8K*=~41J zADSb|y2WXgTp0`cE&VWv_0B@4<)qE97@$dx3Wqhnd0|;D#@V&GBOtB$MExr|WkR!k z5pr{KLRa(aVT?6fUvY)iVQOmhC;RImdhrgzwreA|isJueW)~PG;y6nd&BS_hQ!WRS zxQ$XV9AY*$rSz(0l9ra1b6MGW!I`hp+umc`c{jd3RjX>dF@YbOpPwHw-yVUsSo^fl zZgVOnGkch5FprD+MOIc8(d*nH9+@&--KO>Y*$_J&8*_QIPI)CcavXtur)Az5{AQgs zx-llbgdXMXzAP<9!DiL*W(B-8+A#G5=eKohKh#7=yjF+vBX~wBOVQfD4SnaYw$js? zXr|h))WE>N^4BLCR9(I^RissI@FZlz zjE)jjLxU*Ye&Iv;O>L^d5qRZpKbq`PWJnhg^c@wVVy(nWW7&RXgmaKroMm;Fi`hDU zejUKysM9H>zhy98SHrJbr8=99hD|i0Hk7eSm@Sd&q@20CG{(Hb(V4sCRPcC1t8aq; zmwNuUcaHmO4lU+i?AuM4j*cd*TvON&iMTCODiyyv&<0r>hG`JoZ298vnMi=cG!PtW9R-^V` z59DFux>reeU|)y9HN@q8{In~_T8UQ?4f_qg6K9l5sqxqkAB= zuxuu_YoU%%qX1Yqpu#2PLw@akbZA6`1jtZwl#3tsJ=7hAlfu(y8+P+Us%BxduhLq6 zdXtjaj0@!{)jF2e94*AKXf^p(d}g4f4T{ikRo>s6W`d^-H;H*lTDJ)Z3Fk>K4!z;5 zu;oVOV%sedqFWQ^K_VnUvjGAyY5t?R8J6@ryY4(;l%#*xhwHZe`O)J1prVFfv?5YZ zGpXCtv^_K&lF%5_DzP%NX%d^0t$Xb3?3QPH!|luI35l?pGEs4#;L&3+#NtP`Z`~nOhI#}mhCZN3NRy8hE>dw~9+Be-UoHFzC z@z%v+0Y83vx+s9R{t`1q;QV*Mb_Z)WvaSwr<7pz6fHqDWmf0D5Wwp9KzOwsDhEHeT zsf&BDWo@)r3P)Fyu$C%!uX^h%CX&zFb9EJ!$74;uXPeuZTz_Nsl6-?!EygTjiqc~*l&JbFf9)#hkEBF5HiwCKh8qT9I$W5o=j14zKvM>}_&Hf#09l2$eB ze|``g5>ZXG>2F_(P`6cnGE%eKC!y1yCZ+3;;>;8KMXx*l;o-m@5*l`>ukTH6^BJhQ zl}+_V)vAzF(5x78;_sy(ygxSRVau4<_zOfY!*?viGDl(g&OeZYc&4`O>QCZgE!${| zEM|pS{aK)?9wR54^=7(0K0Z=rDKOh%<}X%@U1291)l3DMY~}nFKiwX(jhxLhxzU2a z$Z;~%KC+nL=4#G5DFf2U=Z;*SbTLsq%!vf%M&oQ1L+;#x)}kJ;g)$l}QKVUkY5Q5M zUWobm=}}tk*!iaOB5zabt8{5gUPRJpc9v8wo7yUMDADR1)j=^o3G;8 zojU|0hJCPhXkYtpkjB3Brqe$H41UEcV#;hS^HSKDDv>CUx~wc&dpH9oz2$C<#Fqa^ z%O#4lMZgL*tv|CZ)}O4h*&ePxA4KLkJKkfh^&>bv1sj5evv6d`04H@SFom;jN$2f4 z{?p}@kascg=l#N7=z8YZ-=9&N?Li`q#n1j=F#dbLG;b&Jd!9`yb&DVO8aY<5WX9-} z6%-y4K%0Ust*qu#BVfV1yVh3U1{@aSXzZq4%GF%<1|L=rSxnV9=ss{~>?ur_dHVZ3 zhP@38X)(sEPPv4HV2v}34Klc1TwE;3vD%mFgFz;E|6FgOV%9$-;dG9M#cDzFs6XMH zif0$Pn%qniSRx{C_Py_SDjdmZTKKs2BaOXfVfhPRpcM_DXyPBJrPP`dbm(toW`Y2^ zP<|F%s;qe?V^)UGX{xrxQph+=(gZa$b?PDLvD+9k%4ZiC&#Cx-f6VB|NlR>wLj`C1{GCb6a0fR?_`{Qz7=)@3#2- z&0~cVf!89xy-z0M#F0#mW&O3;*^o(E%!GgCyv3K z`pB_7QL&1cSo$5)tNou1lF4tnDvDt7+bDepF@dnCc8IoSA`t6spAH${yv6YmZ5 zrDTt4Ipv&>t)Fp5s0%hJ;M1PXMoC$+Q!+8C(b(^ zjz4?$OZVOYTJCD6jN>P+E#Drayvm1M(yx%l00S}+&p_UPeA4X} z-2Jmp+cnN9fJeTdi{rK9u+!84++!n4j4J6wPjrvOfn&cfs_JnQN$vaG+DsXNGi!6A zEdR*?i|`L0KJ4dM$QU(b1~Bx+H^XWjqY__kKEP4SvMWNuN-ND9eZc%&w=-Jj zb01W;xe_)0A#SEKmTak>0@LIwwZmR-Ogy4NS1dQV-Qa3J+Ab|Bf#fPbQh-_?VF;p_ z*^~bEJ(URi+YvLfy_8J8G2!u9IiF3fK=ml zzLT(kZAE;M#fdu_!tdG|?}bB3609){f|DDjX%b)9ak3bb$7-tG$-D&?J*nf;7fns# z4*i&(nCSZqD%#ttkzHHA(|&T|865FU?R2}H7h^c1fwFFm!DHDR{uB+;;S{^w<`8t~ z^>d(8Ns^fxaH)87=9VuOqZ#eb^W@gLJBn2DOHR3l$Q;^AFO(jz_R^lBGBId)8o9)0 z!NScLU$jljlVHVD`rR3XX}Mqq^GA_QeWyOOM`;cCYqw(5Pe8@f%DWtPEHjkC7d@s$ zQ1L92eeBC-XgwfoQ$f~YvB|hVB72sWXhu^Y;46P{{(jG0-mk%i2;nj*#}!5OfCun} zv~=wZqY@r3oYx=A)RV$jk#^PthCioIJOpLL_Qdj2qrPW(b`usNqKc(c9;tRB+%Cz` zr}t?7zAJRH8F{E#OQC?-fC2Y9ZNgM!XvTmxB&)l>@As|ahF31g?sW$P=PNXP<~-<} z&bVetk43nz;p6!oeHO?dZ!==|FP_C%s}7z0Es3pj$}cajKVo`=4c~pt?sU7IDJEXl zMalS(E|Kk#)OUCJlk>=brFZGj4up&;gH)O6;e#BnbW9N81MvpE&AvVT3rr4WG`rSD z`*O<|e`3*<#Lsf?i{Q0tuKL>qUm(B5hUQoNx^c8&S8p_RhJXH)ma+Y0^Lygod3>ix z44@R?=<*I08S9o_JrD65%H|e3zx$CEGH4gQ0SfRnR`ME)LeKw&$upsnI7!2boLB^G zk5(`@<2GWQuODh%hAfRlR_Ew!(~apE(nri|8>uOu&_F6WM(4Oz*o>-sbdC4jq4FL~ z$t@W%r%oUI5g1BQku_{bb-ayRr9{003$E`-_8F{z{6)y5RmG!3@wD5oEG{C7bqEEP8oF&Pu6i#~wM@8WmrHhcd$Zyo0 zm}Y_$Jv*=JafS4zNhQGcl&FdQ=`sxB%UIxeiL$tMs%96Y6z}H- z?LXeFhTCw`@Zcbd#E=2sN1n8|6BQPX^O9tN=pK~byFo9#ZLlh}3aRHglx{82{Lq+M z9|^88{)1-%pCZCRrlQ_Aqtnx!?sh;gr7Gsb`g(da-$`T9@1>;>npTiI@66Po#u6BJ zMYFg2A`Dh9!iyBkW2M=~Q#GT;5fKr3USz1O%)M_tB9VH`Tz6t_nLY25_zjYLk574^dJ3Qb(yn}z(89WYy8v zi{ba>58Mr#3xY|ID0Od+z{n15hu~kC&TqPL3VB4*?TZDv438&JnvbDDcJa6u7S- zS^4>WXay_8n>-xPL#C*bB4*rv`)G*LN;D0ZYasyF%JdGERo%m3_>Bh8*4 zg9Jf4-kaTaO=-C|*&C4NqOV_vfjn!PxqIMq722hY#@!4>Jm-xgA?1VxiJ511F5c9f zvZ5wDesDtu%Q13*L!ENok=oHmT)#KiOyoREIK7pAGxu*a@z6!tKDN2rnq_KR9d0VC zpvIs~Z2whSVlr6gBoay1WiFUMbg!genw2k}XMg7-rGKDNeyxJ*esO}>%+H+GKJ%4N ze^>iArnP8(#2qx7kM)TKx62lZLRYfd3Q{|cUyv=-t!L-gsgxOyQl!UPel~EDmi7l* zj8FIG5>ULY;o*$^t5{bAmE=nV?8gFMMuO{c<}LvG@?x95^&l-zt*M!)A*MaGQDhvB z`E|ttAqUID1D?x5dfjJnQhw6-wzf8S>Cu^a=U*>Y=JLm*03FH?!RD&-x$iRcHT46FtXtPCnd8NAxneE zXJ>n)^IIA;xFhsszM|=E-#(`A5es=3RZi}ZE;fLSfL!yqKx<;v@0Wc^o0k+Z zI<(f&JrfU@0d6upoC3O9r!|;*;g)2!Lhfy1BuAhvYiDjIx-*+MauWf0tQu-79Ztk* zA86fSbFLrO=2yBN7qn05?oM4`I?3YzJS~NaWaN`))*lm_7(7w}0*Ki317ofG#F7+k zv$M13;aWWjrdoL*I7EzTMI&`4i;9Y3(d~GkTy1M2itpjKOAFPDwGh?}pT>q;R;e)- zk2e;ft}D@+5B=rRL7yYvz{J#*SOwzFtPM>s~f4 zDD&-~?Xy+hP^8m72X}aW1I%BJ6`Db0d+oTlLJiVAW_DO}6p7PXA^G?e;MS66CB?b` zYZ*5lbmy;qKc!FPBtF|s7q~}!;m|L|2~V}&1^5pT2C*$$b?u?1LbCu%$4QQ|V57DS z7~b2F?Dfmfuzs4e2|`vr`bqv>^(857=4v^h z1h<7q*Qp12=aFccm}IO#3?hZUvBdoV<$OD$ zo=C3skCc_>Y3=VO!p0W>pD}kM4_YJwg+~(8WFd`(gO?27B-E%pp~9QpJEHCjqWg;EJodZxL?7wr^w6`i>zweLXa@O-~g&n|OKtyX0> z);fAfRjbtKm92!->!^MT?RuR;qXWj)_Et-^Cja$83)0~sr7>Lt`C(6atR$or{P$7^-4X!(XOhZHS#K?7ZHE%7yrtc}B$}vWpvRMfp(MYJ*>Q*?+s}2!= zvPlYPF%LF0T-DZegiV~Ian#beobcd4S&Q1W%?$ir3v1AHK5?iUQKiMF^<#Lf1sr2v zx=g|hKOKQ($_WNdOM?fJXS>SNm#-d9=GxI7ER7ZZP)5S9vYw=MaXbj}uhgj9XDnbG znm)@ioaN7xS~miPy1rt)?m(tyDU4duox z;b3@#qnETj0L8ApsYZ6Ap~!;*!$0zsPQn{WCf$~oE)C)_hX-mrvcx;wF2~kU9465Y zkR01mnP@iJqt^!4g%psCfo+3k9-AA?c0mU>&m$K zYf#X64ZCqYf({BrSa@%)aZST(P_0pPpe4FOI%H~~R<8Em;p)~1itrN8e5(1?2$+ma z4F+wETnD@;)r)-oyYaU2&XI0VXsCV+TWw9@OUGSa@idsNPXBn}pSpYlJG|JWPx}A? zc>;GSIEMCB*Heo4!&l+!U6#p)p?|;!ZZZTx-&fWcWS%6q3V8VY`{k(l_&Q&HSXo)g zof&+ynVHNN{D+zVQ)Ev3N%80I|2T&VAkkTQ%=F=^NQV9%6rH?$o?P-FfP(-%2N~Hl zcdvCqxS%9P!1(nt_XpbMY@3{{=wufMBSqP2%UZQ~C+M^qgyg?ZlkvE1G@-gYvDPJf&^aQ2z?Fp)<0;js&HYe%wE-oL~v6qx21{6&}&*T$uG8<-nL_}l9d3b4b3ZQsydZ5DS4 zuoD;?<>;?QpxWSWEsXU4QjCZJlcZMqd_D4!9_+%=52@E1iV*{BF=UCt>yaQ}ft1w+ zcdv}Jfg0FTgeL8^=!L8Z>{M;MYw`rWf(qEgZTcTqbO5>#P#^iNeU-a1WP}KyXi*F*I#Ju9twzl8*stU^Tq_Ihv<%He#>XS^r-GE=#V+pKEuZfbUyBTs8_D~Co2Jxfj znn61Lr(y2mW=2gxHx1IJ}D z^^pO0>jPB$v#5#+QL<^ysjIj_W)Oq5!wijz)2q87f2vC}N@UwK1+%|eKK{*Uz%oMn z!5pMc3jVcRjbH==HI?i7$h z{Mx>rR`f-)1qq8wUA!8*tM%TOPHhs@R{;!ELlbE%!y?NfS zYMa%EfQgYdXQjoye(gZVK;q7Syp${lDr<0_{vlA}(m?jwMxXIr%>WO1>?vfj;Em@5 zU{e5j0KtnE3A&yQ?2djvq@<`w?z4{%oLefg|NRzJpJD+NXZoIzks%851kZK?0s?JN zn}Z8^LqkKU;6mPtdhPm9JFy@DeMDYoXXb_geQlssdMZj7G1sGe^Ya#AFH7p5x3#zb zdYoL6BG1xCpeir?`t|FU{ZyU#;0PFAQBEq!ypE2Xyc!iP)*wSC!9?A}_CWpeN>{Nk=mhM|H4ysU7c4!14MQf+N*@Y;9Dx3T;vl*8uxIK}vV zC^!aEKLGgSJz4KopQBL^ppjfG-fil|cs{2TATWJ7RP?}O2*hlNHK@?asjD-9YGg=k zEK%i3R<`!aKqkwZukRCuV6gb3X0ih4#S_5j5&se3#)iNJxE-CHVQXuS%Oi!!$yo-F z=(xCfuKJAseV@L(<^S*3nW@XFu?P z=p=lAnVP-xhAa!w;;@U(5QmaZO7m-Bg|xw#`+9sOoQ&UYK-b;SI+atDYd!bZSy}o! z@wiWl7TVA?5=@ChayokIo3~7&V`R$5f&*D{x{=f2%JJGc+aa*ky_^X$ZUJynW9S&d-P=p278Ei44fGBIqVBRrjOrBEB9H$fA5Dmm)}nutcy* zst1}u@3-(MF=)+lHDl&BJRC^cD^7R__Bb0*x zJsF&;cD1v>XOI(bDJxw^x0!GNY*mXwFH81-mI5tiY!sOPM9x23@=C&dwJRt9juqB^ zLw*(Q+*QGaOFlo~%$#;_c&cO%_7 zEYjTDqOAqzQ_w`5;=*txLcysMi-Fd-FUvH?pU_(86LVsP6H5UOJida$nUmFVEON!$4 z<9hpSfD2d6if3MryadmX+)x0L$-n-#ffz`MKTGAwVPayYR#oxjiF2}XG=(K}fbW2Q zU?7QT1@*c(ZFYzKjY+yFe=8@tS-`x&`*rffQ&UnzwFq6}R||WzqN1Z8gQjC3-SVv% zd#;OI1Hicy{RTbndxT5zF^xRTg`>GzSj|qn>eCgdas%+t)pn|aEwMHbOV_o2A?qs(?f0AoUq`%wDY++5-GQbFk$uUN3R=+C; zP(uk~OPtm-smnO$VM`8x?EkMmGxG^z4S;Kr`OoLH^z_DfOKi6<_lbTt96oo&^Qi(Y z3N@W#-XB^WD9(rC1JF#aSQ2NZz^QPCi6R{zdgUS^nDg%!Vp39JKs6{G@3OB9dgWaE z!w26^U++i88zlyiDu*3ie17K&4E|C-P;(82i#&fU2s2g{zD&uh-Ez_we^woW9mCy5uPyMPCu31dlyG1$;-f!90`%r?GQr zpCc8;kN*2srb=NSS0k0Mv4%)vLRb)O$53x0y8Z#upgkrSu%T=l1DPRr@7+ULw0T}W zTBs#ru3Wo^P;NY0G~-P1FkYod$&!_o7%!ESL&JEQd~;)*P!8k*VRObxq($^&zNoGj z&OaUSncoV*J^J}_G`r<#gGX>!Q14ny<4|Ag#q=g&qX$2#K7XFU^U*&s zG(7U~MAJTRV`**6GBqsDSlvZ(o^B*^IRDn8b(>xA{XIuX+f5k|S{<`}T|QvRJrLo0 zjGfZf=*eDGNwHrR8lfoO%%EXfKYUy~rXojqaf4Tcl8tvIiBHF1yRGePh?yJLCT2n5 zuDnj01nE6-M*xY>tFX6E1#VDLQ>Ru=zEIatB0ihwsUP?CU3s{gu{b=QU>3&i^f+lF zx$@p|W#NxwW2bs^4XYSob+>{v;WE{PAWyq>-zq69x*=u7q+?K$s8p@fH|@_@A0Ij2hCDfyX2i)3UMOpd2!eS8DG#-sHzpVWuJGH#;$+>0q3hYx27e34eFu@GDQA z5q8PxglzSi&FFF5bLp=3u-!a$q#sRZs`*@?y?}ee@)5*C2!ktt<+iM6NeNr8J4+zo z(5U{Qc)|Nqg(n2vk<40%#TZ9t!$&)J{KdQ;ek#yY-NvM#u z{N+OrMDQRW($vk^%Dx3l#Ky)ZDlIL|t8elvrloRmViyqg!C_(4%gbU1zn5xyF*;f+ z7m12NWsnE7GXO1k7v`s6D?smC0&R$}a{F6k6%De~Uh&-e@x%Q{`q!|+w;zC45UWC>`-PdyG|g<#dxDVX8;~32-EvHG#IVA>h=K#*3>{OIEsmh;bsS zF6L6}IpK-6+euEbJ>=e*wd#&iCBs{ULElZg z;+ZcRg-;LaU#j#00MPPCSwpay7*ps1ZGXcGQ^{_&5pi*y4{Eru^&%M6f3-~36)()s ziwO%0p9p_U-UHjYxxZf3aVqX4h_wdpbcr? zo^PMu?U%s`S5s1Y%BQ~1+i3u%_K&$bwa+0azu!TJVko;S(4oO+po-?dc_cCiW zy|3_EG|1nvv9Vd0=%+y?vg%+azj-?8WiAvuTH{a*dT#}#pZ*qF?)f5UPS{mThH{7h zzG!u;IKQbzHs`uO??xb~1dG%i)NV$(=9@|_3^w%> zUU5E{unGW&$SCq(oLcQzEkx->KL$=f73R214cf4R;2M3)mCW>Qd!q5i93am6Q#UL> z7fcfdl0AQXf%Zy0&(BXXyH8Gc5-y0IE`o-NJMa>z=i&(9C0>;G?!3B4YYrgoK71OJ z9B(CX+#AqA>A8y;cpm4vsyfZ0x@BkN`I*IGy>z&3+^n8~;Jd)#jOX@XzUyo2QwtDS z%r{;<(<-b-&JocKyiK(QgiLHIq(pvr8qO94LUAzAR}nQ`tS2)&s+TaS?^2DGr1>Tj_ZM>)DP6dJ);&UFpHl2v_fcdf4Fq=o}bGF$Y3ph+*3rB z7%(dvqhkk}sNx(TQd(eX2Nvr&{)GIk%YzuR^ObZy+M(&#H@)qz4DswA6~o?L0G~$& z6sJJCpVn*&8Yt7!O@Z92$=9me>+ZKXpv5zE)IYvlq>k4mbnh%K%IV^L;Fm0D@bMijirdd10!DwQ{|PY+t!D)9mj zx6AA1rJ7w}p!s4UxNvZm5kU02=ce^+pE+#WXwyHsI!plm&tZNG==KdJtev`Q^$qC{ zVj!I4)H5FqA?9F3ViYrS)vGy_-hz%HrHBAea4Z1dD<167-Bfp*(GlOE!T2tC^8>v1 zCpv!CT%dGza!aFXIW%4akg(wzr@!!Ye*onTQP+`UWwhGF$f5C;d;6V zlh2#^+)UymxtrErX|?!yO4J@+j#gZJi%0dD$71A-H(Z7|A1uKb1iEF8#)j+epBDLP z$a5$h!dp`j(Bz#GN@&E$iD0Taz71%)1JsJN2{Qz zpCtD7rLGTFWl`2qdJZg%G;u`@(<9DAHE!q!gq&??)rO{jyW7Pzd$X&SDJnYF5mdeB zK}SUuKI-ie*@QC9dbuzCpp6PAXQ7-rQD(mfCR3Z0EZ{hsxWBSo-EmZHa(=g$umUdZ zj0Ec7n>Vdt<{Rv0&G*l7XKp(q`p?1-jKIWWWD_`;v`c^=XtmH8qqiY+-lkYbF{J5I z906}}VwS5(U68PLne71D5(Y;MScoh7s*dfMh$N{?a)90#I3Qq|J6^!8Zb{1vKJ)I@ zq!&IN0&fXA>VaNT*I3!nvC4eIWqDvAG~NpEn9eN^9YwZ*X6Yelu)6CKItUyNPJcF0 z(M#ThUK%-M60KB48sIvQ582L5V+5FY`60wriHa_}pGSb=kPMt=#fr~;5PhJ9>4x5e zw6bk65EJYQj--ldmp^`^HOaoRO%jrAPfVH}km)!VB+?PEPqjKL#^&BMQ4CE}?d*;Vh0#Vj~4@})%HyBQYItj2_Z2a)bua$A!3FpiF!tY9pOQmFI zAHx*BZ!&gL67O_8!o=6TYw?=EKHhn|^rors{JjQfSgxc%;t-A9XOa4#i z3pKer9?rmj_fp zGMbkm`AoPwzmmGfXIxQI*TXLk-UmQDgs-IS+8xE(TyvIQirDiyTcK6mZt?|$!1C^& z*7;LfFq7_C@oe0Wj}y&Q99DD7->tH54JabQ{dl9!-yY(bGX;0LVy@mz{`QSDlg;e-dMcA-OEtR5MlBYwiO2LW@gaxp%{%w<(I z$xOa)`glb~3i#qI490b*!NOFdp&Vu(4&xC`L`fHhS)jzFqNMy*W4e`7+;zKlg5UMj zzH+nfWDZR7=KVsq3)g-^r>__^qTp~2?d`c%%ZsxEv|-ji>bn^n1jfdbS+2et$ZEHi zz>#qnZ0z;}uny2p9hJBfspbF4zzt}k;OQ|wP`@~&u7Csbgfs}Nz{xZr8cs^2&RdO| zxLLKyaABQ(U{)poFYps+Vh;S$Q&XdKPI2JbG}#f#5`xsZmMA8!xs>MaQg7O#oL%Ck z&~O7B6*6ziOylI$Mn$uIT%WFYdr~o=GuB?|bYL3CCWh2yG23*eCp`x``tD-A1?Tn= zs5SjrG3YkDlyjr&06llQRe<)X@cnZZ4p3=;NcCrO`gc6Qxia9~8uSfSri9IrLQ1Yp?YE$5 zF=-ZxB$j}gg|L?R%oEY)pVQH1kN_`9N+cBR4pl|JiO(VgZ}f$quvb*Xas+R%17`t} z^QB0yu!GJoR+#)|{4noUx>U^lKDw0@$?bo(F`Ob*ZT1`^3uHqiFvlk1l10TKp|5q^ zV|g}wKk zs~5<)Tj5ZUlv%Hh^iCAUXGGt_!;6vF2NCn81IEYEyGp&!BbFzTv`4mIDcil7l64v-i+*{xbgw;vgv=xWiD`Psth_6e$p#J Pz(27U(n5L9HQ)UYWOHaQ From 063a434e8c052c4b295311ed0c5a857556df5cd7 Mon Sep 17 00:00:00 2001 From: Adam Blake Date: Wed, 2 Aug 2023 11:21:28 -0700 Subject: [PATCH 3/8] feat: add Metrics package --- DESCRIPTION | 1 + R/coursekata_packages.R | 2 +- tests/testthat/test-coursekata_packages.R | 2 +- 3 files changed, 3 insertions(+), 2 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 30262d9..bc71ae2 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -30,6 +30,7 @@ Imports: Lock5withR (>= 1.2.2), lsr (>= 0.5.2), magrittr (>= 2.0.2), + Metrics, mosaic (>= 1.8.3), pak, purrr (>= 0.3.4), diff --git a/R/coursekata_packages.R b/R/coursekata_packages.R index 0472554..a0725e1 100644 --- a/R/coursekata_packages.R +++ b/R/coursekata_packages.R @@ -1,5 +1,5 @@ coursekata_pkg_list <- c( - "supernova", "mosaic", "lsr", + "supernova", "mosaic", "lsr", "Metrics", "fivethirtyeight", "fivethirtyeightdata", "Lock5withR", "dslabs" ) diff --git a/tests/testthat/test-coursekata_packages.R b/tests/testthat/test-coursekata_packages.R index c6cfb81..15b7dc7 100644 --- a/tests/testthat/test-coursekata_packages.R +++ b/tests/testthat/test-coursekata_packages.R @@ -1,5 +1,5 @@ pkgs <- c( - "supernova", "mosaic", "lsr", + "supernova", "mosaic", "lsr", "Metrics", "fivethirtyeight", "fivethirtyeightdata", "Lock5withR", "dslabs" ) From fe6d9b6ffc8b80f7ab751cecf1e5f38de2a9584a Mon Sep 17 00:00:00 2001 From: Adam Blake Date: Wed, 2 Aug 2023 11:53:56 -0700 Subject: [PATCH 4/8] docs: update generated docs --- man/compare_score_distributions.Rd | 15 +++++++++++++++ man/simulate_scores.Rd | 24 ++++++++++++++++++++++++ 2 files changed, 39 insertions(+) create mode 100644 man/compare_score_distributions.Rd create mode 100644 man/simulate_scores.Rd diff --git a/man/compare_score_distributions.Rd b/man/compare_score_distributions.Rd new file mode 100644 index 0000000..64280e1 --- /dev/null +++ b/man/compare_score_distributions.Rd @@ -0,0 +1,15 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/zargle.R +\name{compare_score_distributions} +\alias{compare_score_distributions} +\title{Kargle, Bargle, and Zargle video game score simulator.} +\usage{ +compare_score_distributions(sd = 3500, mean = 35000, n = 1000, ..., .seed = 5) +} +\description{ +Kargle, Bargle, and Zargle are three fictitious video games referenced in the +CourseKata Statistics and Data Science course. The games are used to introduce +the concept of the standard deviation. This function simulates scores from the +three games and allows students to explore how differences in sample size, mean, +and standard deviation affect the distribution of scores. +} diff --git a/man/simulate_scores.Rd b/man/simulate_scores.Rd new file mode 100644 index 0000000..8d6c6fd --- /dev/null +++ b/man/simulate_scores.Rd @@ -0,0 +1,24 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/zargle.R +\name{simulate_scores} +\alias{simulate_scores} +\title{Simulate score for one of the *argle games.} +\usage{ +simulate_scores(game, n, mean, sd) +} +\arguments{ +\item{game}{The name of the game.} + +\item{n}{The number of scores to simulate.} + +\item{mean}{The mean of the scores.} + +\item{sd}{The standard deviation of the scores.} +} +\value{ +A data frame with the simulated scores. +} +\description{ +Simulate score for one of the *argle games. +} +\keyword{internal} From 8204a44f18508a36de5b171302b5f1bd0753c729 Mon Sep 17 00:00:00 2001 From: Adam Blake Date: Wed, 2 Aug 2023 11:57:42 -0700 Subject: [PATCH 5/8] docs: update readme and notes for release --- NEWS.md | 4 ++++ README.Rmd | 2 ++ README.md | 2 ++ man/figures/README-samp_dist_of_b1-1.png | Bin 20185 -> 20329 bytes man/figures/README-samp_dist_of_hp-1.png | Bin 19584 -> 19362 bytes 5 files changed, 8 insertions(+) diff --git a/NEWS.md b/NEWS.md index 5bca06a..fea7830 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,5 +1,9 @@ # `coursekata` change log +## coursekata 0.10.0 + +- Add [`Metrics` package](https://cran.r-project.org/web/packages/Metrics/index.html) + ## coursekata 0.9.4 - Double digit `fevdata$AGE` values were truncated by first character. This has been fixed. diff --git a/README.Rmd b/README.Rmd index b427f34..1d866b6 100644 --- a/README.Rmd +++ b/README.Rmd @@ -58,6 +58,8 @@ library(coursekata) * [mosaic](https://projectmosaic.github.io/mosaic/), for a unified interface to most statistical tools. * [ggformula](https://projectmosaic.github.io/ggformula/), for a formula interface to ggplot2. * [dplyr](https://dplyr.tidyverse.org), for data manipulation. +* [Metrics](https://cran.r-project.org/web/packages/Metrics/index.html), for model + evaluation. In addition to useful functions, a great deal of data sets are used by instructors who teach the course. This package installs these: diff --git a/README.md b/README.md index b5f321b..b38fa05 100644 --- a/README.md +++ b/README.md @@ -75,6 +75,8 @@ library(coursekata) - [ggformula](https://projectmosaic.github.io/ggformula/), for a formula interface to ggplot2. - [dplyr](https://dplyr.tidyverse.org), for data manipulation. +- [Metrics](https://cran.r-project.org/web/packages/Metrics/index.html), + for model evaluation. In addition to useful functions, a great deal of data sets are used by instructors who teach the course. This package installs these: diff --git a/man/figures/README-samp_dist_of_b1-1.png b/man/figures/README-samp_dist_of_b1-1.png index 23ecc19335ddc08c751e6d48a2b3c7b9dd51dcdc..878ac26b5953fa15111cb7de43be56769586e5f5 100644 GIT binary patch literal 20329 zcmeIaWmuHm*Ec+*G^oS{N+>NNiXaVxNJ&aJ2AxVXw4@?kf^#Fo{gX#1zfNB*m;PtZkHEK6_y(X=r6=WBNi#@*xDm8x*9fYjRzc zRQN+x2^&MFcVA{^IME4rWT}Nxx6kmxiD8N5=87m0q@pCB zKTbwWo@#$)zG0TT63Cufs+fxD&9dKhD4Ehjfs3fRUs4lMXgwG5*EPa^U9CwOca zXMn!=ZI+yOC*MW_F3r>LYGGcoT^|V+(5pRW% zlDlrC6Bw1dF}G}@r~FBhRA)x*0t)Y#mNb!^8djO&ZqP$?YifOM@HT|My-;DdUj&WL!>@?1?hK2AwRu% z0=t&G_QyMi4(bW9IKRUADDbJ?F>2UA;>o+52?o!@JqYGzl zRW^8M(9Qpth`TxZrmewNRd=5=8og2yPhf4}f}`m76Jvw-lcn&c$4NXSKjA;&=50}f zR(kwyR_cK@5^6~`1GbBH48~Mu>~<}~eF--3(=Yn-gGKuDJX!=Nm)tQt5F=_8+z74? zH9WU!Ywd56TSD>%!WrzU7SBr3QZ>2N4$*1bA#PPpH8{rD+Q&0{ts>#(t$X3LOdiwY zGs07ywn;WguO>WObSLlF=-cSOqP0zuH0yI-<1$|@Oe@BlGmUvNn)FcXC%Yhvfv?b) zuU`yg6c)(*d~ly}z#MpTuLe=*)?hamSsUcK<#|$M+b&z>l?+UYs7OR(GrML^uieLx zx0?2$mlmPC>1$a7^I6%+ba0mu8ZPwuZo6S2i1pl6-<3<4ROHJ`Z_0_l`X|d9eKw1q z+KGO>GfgNhi(7j8wRL9tIbI>>Epmd{#$*;m^+L_{?o6Vx7?W8@kqam97i;MgB*lnx zhM{c|Ht#XBz@An)AMs=!M%R%^`vXto>AE#Yo^Ynqu96e;x91b+y#3x^KdUQH!Eu625+M@X347DnF$q%!#w~H87F4{Tv zB$P>e-hNDHf$I~BW5Do{?!`Y6kG!Yon5fXa=L?g4Sni|w2c)uiT{fV^`i3E4fG%o4 zLJ;cptd&NV&MVZ{E?PdT_h?-AbgyQ=ZAo5rCwED`P_O@J+%_Dx6MeLb934?@sJ3p$ z)s&XPq4R{G|Ni5|5Q^w_|4I1gzo;)HJRy<6=NHgTW<$_EW{oZrpkb0gA*es#d*T1i z_t5$*7n!NfarYz3s=aX+<;qKrpR6n`qf%3EI&#v-G~$$&l}SH)mNGLlgPGZ>QhJI$ zHa6BXG-P@xe`-tbPlvm%OO`(1P*||CvJ#$@#8FjM#p%3hP&F54{@f^$8*SmU_a(#c z?wHR&Wn^XrCJy9BIi0CIA3S)__C4s@Y`ksf z;**bi6CV1)$LnGT-#{x`y5r6fHD z?@>4Eafy({N3-Cr@rPH8m+|YEtUO;GSs<#H)jJ-2ihtQd#~UKS#r{4KbsT zaj)=vNls4NJD>5FUkOut85tRc3ikWEd*kA$C`H^|c|+_G1Jdg1G0ug|BWuHDGHQi- z)OxGUxcMI@+7~1%l4GRd{sXi&@}0T3)nq%T{+@ba!+m`WhX+y*=`N$y=U(Z4uB)9~ zUOsSrXkhIYwc@)NL0srG88l|)XR(-7?S_PHXO>=o-DIQJ%crK+xoN3&*7{tAZKN*6 zc{)`}--D^yj1!%WoDyl7D?fFGT#R}djVLV)}_m|&NE?^0y{G#uC-Tcw>kxE#_R`M%Let>D0J<@H0^&D zJ)2Xn89(Zh=Rf3wZJQjip9>v=PI)VI0HQ+7wnVndGvQhi@3LC;>|vdK%l2ZgVbfbO zqwyToT!WU-8*}@0)Nud${^ zI2Nl?11UI&3cq5Wn>%z4&xy*jGoDX*J1K#yrO%@~JP}@HF~oT_IXWgrQrp-0Oc}ts zSV9NH*5zw)gcDebiO!}7ah~^?x1yVj^UT^qv(N7{@Ij4*hM|u*u7rF0 z6IJQ$9@px`@*i*wZZV2sl1K$X&`iv9TFFoji|%dXrn+8q+~(&e(c9K)@@^PtCZ{+< zRA>rVI8dQkBV({CXb~2$S%dZUsql!1>06I%WpZ;5!YI*k($zd|p~?uE)r+OqVg7@* zg7roFUlk8)+Cx6ZQ+oN)b!@4h)9qLz;4+kM5uOY=>M$~{?G6K?}FI>TYhx3=zlz10Q-82hX`x9K8cGjLySr!VKhEG zA$DfK!VhYMPvU9haP$O*y3~sl-@@8F>PyOO!P@NP>X=OmqAL6bdh87-B#v_B5$k1C zbnRgXjrhQZg@IjJzjwX$m5>7GBRXYF-b-A{T5oO64NUVU_zfeWH20bHd&vTe`wlo6<@W>2UJ2FgnQjUc3G=v}g=tZi@3 zOwQm9Fr;WMhW_8NALVDnJt6;D&Tl#YkCP76J-W}^3N z^SM*s!>N=LrHQX7U@8;yV{34Zs~A$w^_K=`aNS4NzjH)TZi-5hOVs zWQFGjd0>*@)IzQF3J7TKJ+!eM6GE6;e;#NYK?h=sWu08jdKQjN>$>ihr&abi z?!yO{8AV-PcDTrCt;JZIzXkC>br9Gq?R!thg` zfPdgoD7PG8!l$?sIolp%eD}V%B+9b?HQyqv9vIGv8v^riWq?msL2$!|6<*v-!`5&- z%P~8kZ5@>%6Vn#XC}XfW)5>{)3T5!{@mD@=y*=N}P%m^-YP7LZ(+Jr(F4hi*n#}pOF0<0g7@M%^Rly}Y`cB#>{cGqNvj1ebpM;R;=$c8!{^W>(& ziA#q<%Y&cz7LD^FXuO7pwfLOYlV|4VWz5aZM<1qhLxh$-rgcp16uPaL&vhL#iyTN_ z4OoiFbAKtpL`}wiYstBxhE+M!M?Jf+FsArLa~sGtzHS}!rg(I@bEMIZz1CwA(z^TV z*CTn+)~?|7;qv?*L0Bn5{qrCpHIv~$|4v$dZ5kt?;7-Y_{q?DC^5*zK4KBrDbE4)B zo;g1v^5xqc_YbP6Js&taWGt8L#ICGKzan^XNj13YvAeByTibQpEFy|Ly}IEFLt70j zH5qSDy^1u+e0!2&$Buy-UQ(joWtjW-Q$G`>4Bgp;gk|XRmc&iy4`t_~f^7 zCfud1$7`K7o-^+}qdtpX5VRzGAZ^uab#*;a>UyjxiY%^`y7P#G`1WY_t3oMdwY56N zVQ29W7$%f%1??l%_nHdk&&K52oH^&-=@Cx)&h@SUo4e;Rj*f%`cqdOTuKq`7rg99N z%2G^p^7XT2L!p?iuZT>bdD%>;M}fY@jH9|XV~Q|^9bm1x=i58jJ+`$iA3K=khM z%g{p29ExdU^T;NDzAPp(s!D4G8*#7errI0>Cdo@xfJAj?8Bkv3_d31mK}bKk@|^EN zy1BsH6xf7c$Q!B;M%-|VubU^yi8GSMbc>a1Hjo@<&pUeS(CpX@}?|h^S z6&~~--oEfAU_FpNRe4UaGog_z$NG`3Ss+mE$g8J(H+~);oMj;H39r=$yXRVQy?%4iDxESg6=s05Cs^4 z&<3IGc%~b4gun(&p~f+1>H`f0y5c>0*hhV46;j?nz5n}5G5&n1YA0I&9cPtvS_oLA5Vo=7`Kr56s~*SrC~_vR$zoup&6CSSXODqX4IZP* z1+sH4KtUjkoqyuT&Mi=s0!Rl&oP2UNt!Fb>9gTO1z`3{r0jBM3TI&#c%h84O_8T~Y+V=eN6Rd;wG<}Tz(L0! zmyVJ+T^!WCGo#J8W)r6v$DpLF2M~kCmN0D2BHEY)8S;0@%QXL8CS(8j8VgZ*^>r+a?w}BTXXc zZG02g*}ei_{{-v$rDO%+gY=Fh5q&dr^N^MW8U4fX<0)bf-si&i|C(}veUcZVTlCb+ z^<*n4#@c=B1E<|W7tO&-jrvQMtS>J7g~N*nMIaCvIXRE58juc@d^QI0%i-Fk&Ra%9 zCB`ALA0Ej05l~*~Os}ri8Ys{;zhj4@eZOqQUP!h@2TgJhjatyD=pC(y-aww_G)!)- zW=**2XthQh&fYI}O!d-CtHHgl&1pWCY0FP zIxWr)ew*mJ*@_$EzBXRBIoNQbN&{QCVQY`1G>*TaU2bvNO&4&kL-RAO5r(_VLrlC0 z+~(1wdRjtOA}r^+pp)XZ#NK?o zZLn-Cr#QcWfLyYGX%9n5;oG-(tat82x3xXKf5n{QX>%}j&)AsdczJ2*d)IR72`i4> z*<7l_x_9+H_)aNiW@e9$TxN(HJR{Q64^dD&Rn%JtUQ?B=X_jAWYeP+KXH$Fn-4DAp zJ2%ElZM-|&J$lJFZGbJTPet84(KTklL4LRUxu!`yA0MB*nqzISaJGVoe$CBQ)fJ~{ zUbY7V0~sBuRR{Eeyfq4DPfBJ-Ce|qHbHh`Kk0oGB1}-i&l(+kinww>UF}eVUF2zFn zHcox!$6{Im$%{TwE)OO2nnDBK~XY7&D7$i3-awkQYei$yaJ=*`g!VBpq=BtPZ)-zMgu5jw1 zQTie&nbRH5_F8wOYB6b<)WWL8|zP-S@z^uPeO$EiC-c*kN}rHOZ@Ae z-li4DB^?8#tpFLR7TU)sYkk_5H>(wmcvmiIpoK>ZX!XEVse=N_1cx8+7v^U4gACe= zf~}$Dz%1pUS_oZ>cQTD`VujODD{06V1MljCcX_sXrj{ZV?YT#In)OIzV)xqd$=v1K z@ea5i8ujgNG_j!OL#lYY>z+%6DH`<2hnGkx3HURp?>+Zf=wETTVNa^UA=Sft7bIk{ z*TzS@3bAw2BtsnHxDn^!1ZQ8RaRXPHIngQgIso-gPQ?W{`lQ|9{D|Am^9hcRh}X<} z@WZ#`6@}u3-45-#vp7t(%FLp0Uq;~C$YCF!M-;lrYiP~%$*?fRnP;zrIvcFU_^aj< zT{@7W5!qpSLWLAOiz0Qgb=Zj_$VCM?HGX(KGMuJdtJdiiXU)@VXE6q(3An(+D)7xl z(!Ujc@tvSMci*aJ<$?41=Sv|Ps|MeFDfC$8lRWCH+7#i}ih6$*zc3v7WH{HI1lzy@ z`TQS$LnnZFo%VHz>e!PsiPjP825R%-v;!ECiNQK$)#cB|>Dawz!4o=%&r5^mhRCnz zSP@*lg-~5Q+FOgEMJ`Bk+Rn+kJot;($N5I~^17$q%g`5rVos=a}P! z+Z=kjX>X>qxVSF?HNT4RUKP9*B-*nz6UaN^7vjU=z4FqP?AQnQs=>-|+2$8~j+TLZ z?H{UZSDED_6+8}mgB`v-{_FCOp3|2V>t=hn2X*NC`}>W)*{+UO*&NKqv?n-@xAG-# zGoFhYtr;D-GDJa*yu<1!t8tQBd8;cZFMYCGRI(*n0O|1cwNSEiWQX~heR6@s6}Umc z)8nmAAcRp0!AdXpvQ5u-#L^QI63#73>Fg)A@BZtA~g#K&j#Y)D)!rIJMaC=P7u4RzuV=$l2lQjsk^;hvAk35ex@u-l>o#s#L zuCYCy^y2%wFu=!j+d|=jTe7wuif&X_E-V6q#*7}^iPryayFTgksNvMy>T~I{uh`&f z1)&`kzQy#2_+@|li@8be0(mIvYI}EHRS@hx{`w~mK;7NT0A*YXOt$40ss~N30KnDy z^7uKP#7S2H5Hq9J;36sQLh*VPIDe54N+7+AQ_|zSu%HEYkX~y0>|N|4D@ZTpSUF-Z zX5L0|i0ofn&PCxB3DV2V$e4}`S;GK&-6fy85G?dD0N=`OGIJL**MSk2z;&8)eWc3( zz?pTH(e`5IaWGOR?sSfD=|Yvfjw9#f&!(BoZafi+vT4WIlYS*_+H*9fTqUVDTwd0^ zD;Gq#*`&}JsjMJa-0V6|7y1rJh||pCcQwpY0ZVH{J7a5Mnvu)Sq=&JC^;TrpLbp)) zT3$i)SHc~kxeaVD1CUZA; z>B+IZ@rY)9*C&s$32n+S*?-7=s>sk3eqi)2_ux0<(-;QSO)~B-aFMRJ6_xdwsU>L{ zQ!dl%up7=#eeL<=9GL6;`%0)C8qsG-$7g@h?{7g_Q||KZp_?RjUO^vt+E3!d3hrAB zm8(|!6WR;u|3<*;@*oowFyHloCS&RiRf-Zt6Oy;Ssu-@x$w_y88b}_2U zTqtJY;QKG3Wt;I64{E!$sgv)ZS5R|MrN#T3HhRg>$d?@aUgN^iG_s?J1BTWMFW(pj zl3aQwwTI_C(@VfJ^|4EDUigof3?Oj~coTKufJUzXR!Jt@^mKmW^TR{;8K zES!P%++5Klf&BinoZk-ZefEFxg%k*Jl2U8Bjs}BcXU|VV>sYChL0~C zJqdXWu|meP=cpV8WU!8-ul$Ex0KHnf|0|HwaaHF}@5&=4g~Zz>#_;Hat@-vm&64z@ zqPv8QhUY8~1l4(%px^zUxr;Eg?+j2P_ zEjOXMx;nkCPWR^gQ2X(A4q651Ibr5#+YIvr%{tcf%HbzMW>vN|HM;CJ>gri`4t8<1 zV;vfn+}7+RBhn&C@5BpgE+tg+S9i=C=5Zp9t=dHfHZ^vZ7nVcsw9|L5JfEfDn<#H- zZG96zwr0v+Se`OsxLR}=r#t6P@kt#!d&zpK%e2hR<96!KwI3B_`9W(%dMhm>9ykm0 z?&jvX3lkN)DNd~UXdiWpP<0!dqm_#GZ*Q)mx|70ka&ED*vfd*r8f0Z-i-?Phqd{9( z9jp0DW>Ip&LPX8a01~TGo{d>^F){D8_63|UfKY!1+wk|@vX4Y zT0u#KfNpk5w)DdwLdp31t9C~k2vp%DBFb^iw);hXQp<7l9C>!h@ZIKFNNIM}6PrAE zq*q;MQbl{FR|L}VDcp85hdgM2_*g}wREs>Wa0Jcdg>p%s=Ip9XRRec_R*`;bY38@e z?Cwt=3u8Lnw|S8AD`O`?(QEDq$&iT#Kw|mzN zw;6RB@iUP69?6D1tSn?79z327xLj~4*&jQmHTi~^flpM$hwN^=)ob~+W1Z^l8vGws z{Bp%b&|jO_=a;*`k7+9I;&=^XBcT*_bt?VwqSL&iJti~9o3)sw_;%mV6-a5dMG?WZ z2eR1A8iVg~JoFU}$~4=RQuR}* zPo1s}y<~j9t^+L`=}sHq5BNE_7gf{jeI;+n3**uk^-9EzU70&oj{sfqLimv#!$S|R zA?dWG?lj2}YiCrg^0$X;QS>UsPUfeoH0i!+8z6<$gDo=htyWHVJp2BqAVYvaH4X*r zu<4)vRVd-qMzsy?yiS$js8cDZUb@v<(mB$-M-^(ORrFMJe^&7bjAPQtD<^7c&z6DW$?VZ8vGp>+s5&*=$ zY|_6{(MnX+29G}Wf)e9J)fR3w!7e~s0bq-(zeq7%jK~8Rm+-il<{U$NvVka2a5o(H zVno@iROD^1si-Evu}bts))T^8EIJjo)}~et0y3Lo5HBwL>v=ih)B+BbdT&$2{2yy- z#v%^FQ#`=j$dLz;1ZWDF?kCM6QlFoY6|9-}R+n*3?@#N%V+cUEkQ;jYxRdTcDOZ)2 zry>i3p+92wNL_!$tlnS_l+6`ADu^@0=w{KqCErD&HD8}TbjJ&Ps{@Zf{j?4}OC>Q4g# zu)rQvj}ejmZfqI4zxIa=^U;4=+a325a?{GysHmuLpe5z=iuZsYq0>OW{+d|LMOpg{ z5z(!nuM+j9*YT4=yp~B#%uT~$CSc0KKO5lvcnuo8THyTNy4=!9Vka>$$*F z=xh7goF_S&s5J3E(*Obef0ND3QQ6Z-d@mKe(TxxKGLFwu5H&ydcbWJOQZ)K?>|fpPQW8|eYYu)@Ti;8j{lL<$`qm$(Orim@j7#N<*}Ui5MS~^*?Vaw_ z`x8ti*U+O}_S*0Z>z1k|-K`4Z9S4R`_dtRw)k?z+zCW%UDuOvaqRon7PP|9&zwlwM zZ{V`0M3(fC4tiH94;t2QN`vkvI^Tel;bPZ~0{T*}2i1wpl-2YgzgXoB$3MHjr>7WL z0QJLSsy`zJ(T%|?BeQ;&)?$8r_SR*068rJ&U{lk$wX|2>k$Zy9Py#}gK9E`P`=K#q zlTEfwSRD@5-RB#4a6lx_rQ$T1kF}TMO4kdNsxKZOn9Qud0_P-1*JZN5@pkKb9Mv9 zvIrpax#On;x5gM+R-rmuJeY;zMh1L*OXzgL>qs2C%0-4g|IsTKf1SPls>DHm>OW;x zs1dM4BcmEd)uq+X8A`kk7D^-EM?Ow_Cv1?HoVOM%+-SV9PjmgRCUvPYpf)+atrsj} zvOgFhCc0>F!b#Tx0jvMZ%mr)GCDu4daYI#Iy?waM+;Ft=mCYAi=4}?I>Ip6__|?Hp z#<<7@rmH6xXG+ja)a#C$S-mWyOIZ!g^VkrNwfPLH z>$$P^*FS~})bE_?z|LNRI=KS54H>e*i+KbcyFPrJ62F+ zk{n4)`y4CzO;i>ik9wPANU$zBLQ=ue(Q$e9_MaTss}yemV%WO=Ov%0DUO}{2!)ai9 zyDnTEf5-@{!u@eQ0aQRhzz`@0Cny%ZP(5$eXPs^i*$YY{3Ukynlw+`Wv~L>AtYIrY zzA{w7ok{CBfjdi9Y-5FoF=z0O{w=w^(iVZVRuspLeyTIWO?*WR&-dv$3!yk6KA#`B?muz>_ALWaEA z*KgTIYT1B{9n9A+U|paX_E+xbc$m`XN@TD79m#In=l&u9j3`A|SDXZ;Cv$vg2qWF* z+2RRJh2JP!SKc&)Xc;D`KT%S;38V2z0HvYy?^K(?1kk~JZDw6HXjXPgim1cNFk`NI zVL6ZVqWQ=aRrbV5{friU+?#Z(-1wcEy>FxG8TEQJBI)oLyUWfdw`J?j=dOKNCzYkk@*El&gL_ zid^oyob8HOyF+Gp2Z5KtFoCv1*i*Y*`NAgjk+bdrX zmrS2L2}2Il%Exjt9=p%BMR5+m+TgLqiIj;kZEp+z=v+c$tDE|GZ(>K3V}CbW$(Nt!p>Rp0#9 zei_YQ+e}OrUFd|-s`V|5CokSgf2P0djjV?J4pcW!$Eyd&wVTu zpm{(PGaFqx^TQBy6m$1?QiPKZ5IEQDx8?H;4@##5MwGnIy*b1y60p>n@$acG5}rrE zD@&N&4T78nyigkuH6pK;V4TGOh?f)?ks{2zNavL9geGkYIaPW$)40g$InR<2@4eqI z0A>4(+FHR4!l9d8=sP<*N?KaCs;Z8S2<#-KiZ&Ax5_*P*%?{;XfA|Dz#M&>wbGjt; z=}=Bij`L|FWJ@BsxQxCFO^&Glx=~BN z|K96DERTT@RF))KT|kTClQ~X&uYGiIU@HEUGASVA3FhY3mSI=2=#%KXs4v9)iGmu? zWiAKYOitnfrIjbq*ZJ6TJJEzb!Tu_rt$%>fC%cQP^udAFdC!r;>gUFGIlYtjPy7Fx_UVvF^E6}Ym zXp3a!blqRCBy#~BvoqjO(N&>5v#g~hv+i8g=AdhX(~svL9i}Hx6von%OcdH24Ep!b`1JjgWd&(a6&tmM3(ZNsNkmYx3mwcv{L68v*KbC>gj56W@SxMN z{>3Vr%PDeC2Dqnqr(bWvrIOy2bIcuR)2Y?$-LcO*+4*)=q2+^hJ>`jP_a5l}wHW}A z4(@Sc>%7yiZaCkWU{p0OY1fl3T~{*ahK`I>T;nw^h~v#pzW1%xagU;bA!j}NtZZN)8>o?g@1n}X2i06Q6=mhCzpi(+kO;pq4Vu|m&rYy| zflk}qk#%!G#E#na%5fTZ#;*$|@Pg9c3~188ftS?dbVSJ5eRo-_GfsS(s^Fvr3b-2i z6nY_VI>?Jo{`t`ojx0|S4^H7D%0wj96j zB=B-tq0z)(M#>P!Xo|pQzF)KE;t3jnvmj(diD(2_8ji-+WKZ9AL@aiYzuc@MDfDPs zqTMKOwYc}V5M5qa#;#5SDU;;4-9jJIvcEBH&wX`bVbS++Oafvi6@Ch*a^|ERcOZi8 zodU}qvi@3_6>sx49=4P{wYTeoO}ERJ1pA2WmZT*^45n-5p)Fjqu6;&hz5|R>EiX*j z<-Xp1ou{DJSRfn>&!pO+TZQg#dtzO6%)1=a^U);8szsg(; z*yFbgDfC^tw?Bh2b*x-|8ds`l_Q}tFj!Qyy(?iBdK^@VH1pnnxp5A$T;)uqa#8_=s zdy+As8n?~$wPv+i=1%SUL)#x;MGB1W1|Af0c(N%5}OMwatb7u z&ht5!`BnXp@<~)M(>K}vFme1nej-bBso}W2p{3yj(Gd6K4XR!*9i2B#k5=a?1)uH* zEk?){p1O)b*Rr)m=j6H=#t~+21tl2Pw(S(Cjz_TioJe&OueQLi={~J+F_2E!_9A0b zYoTb^Z(28kovd%pwl~$QZ@g-zW~aZ@EYt}8xGDTkR{Uj20tH295Pzd87I2Jb}SbX#E)IJej>s_h4) zr+Xf!%vnk9)va=c4E<~q(~M(AQ(t^-wtn!mgO-PDda4ah?i+#n@5R>nmAzGjNIg||BHKc~g(7fw0-#aKty3s91{WHDF1 zR$1FSoy8c@T472Kh3EqXXo$m4YT~c zsJ{Dw;lWlC7y_L=KWc&d7#xkJV`gRsO=akE*6_4F$3FbXJhqe{zG%Zvb!)U#;{k8p zUG3u7M@>X(X;fRiDYQKUC9W}OD~=>45uu@io+dp0vI zG>CPk`&jYr>P<`fS_lm!{rH2}Z1HS*tmkggkKE_JE$Q<+8I2*E4Jat*k2hl)NCCc@ zb(cj1CG3pCTR!;g(bv#?SmIDXat2t`(y*;Fy};ULL#MqDf#7{dy$hh(mqvnvon5Y) z2xgL3TYDU^qCCVL@{{tuAVom`Y8aMurpKZ$IxH&3eJ=EqLgV86!@Lu+LXU65Oh=^N z>hxJjjPge@cvn2J3u&LcIKz2#`6%*C&E4U=u7;@q@S~HZe9#&414$#mk5Nep=ZwMU ztAH`k`=E@Pg^m#&)`S3u&XvP?VsCmv9YFomNZmyV6#1kgJjc~$@+-zUT|7Yj>1&0S zty28qA&fbfPfrp;RVucAMt(hrex0mKYH;?w6 znq^LKVkEfAzgUmZJPTmYj#2kcciJ^o+JleIphQ7egW^SM+_FK(uoFY_o}Jrt5KqTA z7sQ^bZ_&+b=kf>#Sj8I{*W{dRMI4|x|p9YrV)%i zKD4_+E#Bwz16do=ajP1)ue} z;K6p5h-I5u2%XvFE`WJ$i9#+N$1TRiBO?+n{gNl{JGuH%TX2zyJ~`UO9OeqDyRI`T|pl*oeOH8D=f1q(JAR)Hj$~nzkHvX zuW$anIY}zLQ=G%{&u0?fL8H?QoBqLD+4pxp3*OwEI9ZwKup#v1dWro2c9ty zCPJvTvyqPKzN$SvIhwm$Z1uFT@biaYay<~CQ|GPCpjrMA3F)T?NvHQl77vxPgM! z5OB4rA%^{5`(yNA*{Hs08*tG6E%ss@Jd#yemK^j${<{46d0s8|dVixn?KQ#Y-*Bd{ zQ`VY=7NEJ8Dr0R^!mAZ5zecgCf9L9>QzOnt+;AWiE=vFvR_q)tcWOg+7M1{2**SVo z=mT60+GG^T2P|65j{sMb-eHPULsYGW%JTkN5_mg6DA}ZMUgN#mQ7SnCP0{zx)>vUw z+H5y-Y->d2BN)h`}x?^Eq(t-B~{GQ?NcA)<8%~Hd5@~xBI5o=;i z|HL1q5vL%Tq4@N=jwW|WFu#O}?Jl={v4pfs-c>{p**|eR{X_B-$W=$NuYQF1nsCQ* zV_$t#hh}IrA19#n{0qRVJVNa&MYx_edWLeNQw`TT+d4&QmKgcwH8=U?buX>g-h1)g zC(rni|HQ~uH4>^%o%CfBzsz5A;y=Wxw8$t8iXCjt8V={?Q8!x zcI#G0HkObP)4BwPosf8=Jj~29v%LI)i`uBVkkG>jeniwdj72YD8_z?4+GV+TH{H3P zQ{YEKvmYRRz4A!F$+ovf=~r+J3Oun5`EPxs_iX_F$Pl#1+kp3-ymygaV#$(Mi0AE& zr#GPTD3|~&CSX=m*>2{JXBr=S6B1z47sKD{?Q!jYm%U24%p{?aX z%aQUoi51!OwXi3V!FWpxS&5E0tXeNEtVfRe`7JCvulCz2(nsiF+5_Mu-uc)>3qk9Q z7CHWfm4gG0dE#cc-7Ip_?etUhV?iN(0#&HFz>qY@O(4E`8b2G&Q zAiNk5{N#lJ*x|S7y;h5;W8d*xrm7rs-THBlqrRKK-i^Hk`v4(S_ zVpbIX8cbHl;1xnby+wq4s5yrGH+PoYs7?EF2X;n(a(EoHZ#)RBk=@Imw_GyCq3Scc zoBLfp+#W6Vcu~QFQ@s-rwK|*_2L~AL4*zp=<{!!!o#3oPNpQ5LxB3-y986_8Nsa|NWk#lB)`x2=xBlO>IzNzFPi!dn$(m#*nOWnismJ%-ijv?Qd{ z)MdE*Xl}a{W@Ql_*3(i?t2TC^r zn%zqB#j}aen88U~&|CoCGuCu|+Uk=W0Ei=6k%#AeqA=hxcbqYv2%e+L|IIXBr^GB; Xjl&hsQvsrdK%~Xx9~C@&`uhI?zK=-C literal 20185 zcmeIaWmr`2*DpQ;h@gT9iV6~v(nyH(h@dn`N~`3M3PUr5g-C;lG%7IkNH>Fuba#Vv zcjvjs?-%g7&a3~6^F04^uHOr}^mgx?z1O|sv)1~o?W3&tkmwx6IS2$oBqJ@U0)gPf zLmhq_D#t)6HjcwtEDi0+fkh}i=>Uw53 z)Gv!g73HuoG`;FbN(v!9ye+G2*aOWO7WjkLFZQR#pljz9Uom4@oBr8lM# zDX9Xj6>O-E2vd^bS5EfdMe3>+CHM1g8$_S8cUOtNFnN(0GBV1_@y%t6p8A^tob_G3 zzoyxp>eYAKg_GnaILJi~Q@Bufi(sP3`+Mw*zGJJGG*Dudnklj25(fqx1(&NBMc?X2 zUqIAw+wX7eI%vj35R8ThUOi9Y$H=9Tw<1yFp_#{=Kw^-O@CY0os8Q$-t%Js4;wUDR zLuo=6bj2#KeDbe_eShsde}(%AnPd>{MYx;Jldq_A6w_v(rxVRSZ+DK&5C34+Fwj)ryB$)NX~)FnNp( zjf?$mvWv5gdok=;qc_57YhY{eg2pcHp?Qb%5}(B)`fJv?NqG39fj9~69uARPMsGxa z{QO}gr!;-#?Q6oPTrLg*X=MIa^-A!ozu6e2A=5ptrr6C}r{{G27FT=l5ue#DX>5rX zSJ8UxHNA}Zb-FiJB`&WQHj*6Ny8fbq{QNti zFGNi~kxa|RmzC*>ZKNpGDhLdIKy!6+#yC;SD5?xwF(3Rr*W)^}APrWWaeYpJV;vFn#U?#j^VhKtdh3V8m? zbQVO-`*QJEfbjUvRNPVmzeN|j^YmwL`5-~7K0fEYg@VS_D{LAy>oe`f2fG_QuA7!x zh0mX&7Pe2%@d*kRIB*67Z)e&W+A3$Bn3$N1liL__UGgE0TdyQj`lMx8|CWJ*rMvm_dAC;?V zYSzacuA`FMWSCFqdsni9vQj~B(ZX^RIo1@^XOmQW?J-uWXgj~zLb+w@iA7ca6R z3LKa8+euyOISSsDb8&DitV>?C67BR-FvM+n`tz+6Zi`iazRYkrQflgraog(K6p^PX z;qn~b?)NTG34QRI=FNM_!)}m~kYFbyLZoPM^S9@lOfM-*KwAg zc)8Gwv@Dn_17xAjcx|%Lq|$9+ZD&TwLwj?+mwxvesz-)?X4_zvBB3~xIG{gGlWS(M zq(HcSSM%W2MOEi?bkGGZPqDYEf#I2l)4ZkEjL_bA>uxDi%1yUL@vL{O*Ux4WOE#}O zbC%jv-rQ(y(Gw*vuC|tt)tKBG_Asz6-!Um#siK?+k>k9brmmq;2h2e7{D@*7#a*Ks zk}Z1lsU!G!E`cA?`SjyD@m9YLMz2Y9Yv9)Bd=te;J{fWjZKFvJt?Wu&{cgE=`O|wG z&L?b;?zbz6bL8da*|sYPNL|_6m}71h-HL9A7UUJ$581pD!)vODpc*=HK?FT)EnlJ2 z&QmeWyUj6tH60#4Ntfs!)Vw@%Ufxst(W79qE0Z@*)b#PKpf0&({Zaz4vRhfi$CmUY z5LR_Iep5L__1M}VP%dCx`X3&jJ=H}4FX{!{S)EK70_<9atk=Z?>o8=KYRP`=>YA-SO` z%dt+9{b~!deVAY%WMP(t;QzTxR@)109Q^-;3{Nhcy|gsrLscbN^cOmVHajvn-1?)hxLuN)?YOifIncS0 zR}g6O#di!|*c*cMy>@q9dc`c0KYR$=i41JK=H)L<1gNNh;ytMp0L1kB%YhM1cdMZ6VAYq(n2P#{d*YT zU(=7kVN*|-m>wSo1ZUuNgp~=dF1kb#N_BQ1yH=mt^Fp7L-3dr z1~GR&69NtyMoZu&Embs5M6>AHW>r75DXKs!34!k672??#!~`2+9~Y}j73Lterlkco z&>!pbCLxJupQh>fHSB+5ulc6!3F(-frC&RK98V;89;4%3yr?htd}C9gId<$Naq;-SIQtyhICfB`K8)C$B*cUgJNP z{6{W-boxKafDL8;lgi-bM*tJB>SK`m$R3=Ol%!~_uCAW#wDL@=z*-Nr<96!nzG>1f zK&Pz=2ARYUR|1WHy}z>RZ{v0!AP+;njkW&@4nLRGjo&!-N-$d1AR1)&TLCN}1-MN) z)_L-J&X!@IsD}GyPF$^?;~*mdGoeLxQ+3-bW5%-`DLjT%7a~NQvoDjAC*4HNpFmt# z1(#PYeteoH`s0hSDye$g{gvu^0N&ZGtgNz;dz;hQSY$3E<1^orb^n1s#T7k+Zab7T z1059=m5GjH>;hUlsfVXepL&%h-P3h{?#0j7Fio7rm5})x?X4>-f_Z6(0EF{6&CKNZ z_>Gw)mhL6)Vd&wMR?NUs_=oG$RT2fn#aZw`o3^1LPHofLfN<(&65$3jC|9+NHf{@V zvxq9S>-_Crj0fgJczC@WR~bWz!$L@z>y|7Wo+8+z_f$_`RkfW3)HWP42!-rpaL*Fg zG{p!{lx+>!31l7S6&DMsO=Oiz@RUNZX$e5$($>~}u3bijmwQ#AqH$fFoib?sGSZjR zD{5*VoV0!ri8NW7nQ>1!VQ^cDi?vy77b(pa&9**~*`!fDFOTbx!G!O}+HTF~Pu@Up zB-tko%gGZU7~^kiSy))qb+%D>5>xQi=;~uO`z#t0H|&}OtMR@#J3D{D)x_nYXza^vKElk>m|FhX%p|+GPyY-bO7eULQz&WHU(c3 zIXSuY?jrn8H?~t!LyS*i9u*F}Oap~U&MaM(wX0Ru5!f(ESZfkiT3uT+ZcC8KHfyE( zntY#cW1+u$Kj&4L?n$g7U?7vWI6vL;`ToRO+)?RucbO$?8c~;AU58#{CN!^UlOHiA z0oga%5D}Vwq2b{PCio^zn*mK0npu|Z*0u95s^`w<-G6t9-st)F{mj^$Pw2TeVo1e@`~9mR!BMr@tF5Ey-E3ef|%6+h&15W>HM=f6}3mM^9W8 z^3rR4oOJv5%&pYbZ6mfiwaC132}nGX-o(WGF$$v+n4)69<&DJ!;rptM?!)a2_we=s zMou37lHmOZp8tW|DnKO|FP=Y6QlQ`(TF8dZ2apXN+lUGP(n;e_Z=OJF&tZ@Nx%-At zpRB-Sp*SrcMA!lL{nu2MbpR~2dDM1_zNNuCM22|3Ikt5Oj{A8M&s`2#m(vv%kPxY^ zej_>F1y*4L5GO`T=Hkf;Z6YuQS!(iA%irbz!YQ~lbDAqAfJ{rF_NT;&*+Ma3;{$R= z(UTRg58xeGoFBhC5yeOWNJai59IS-?TZQAb|3OX*dkjXw6>VW`iHUigTclg)Qk=n||# z(`)~w8w*9ta5o=+*1)dIAKeFz(*(Nf*{AC|PIatI-;{xp{*a}wKh{9cMxYgUx~ZK{ z93neVrMz!#H9W_<4t|lq&EAt;yzY9Xin@*;i5`BseC292$IM|h00M#?19X}mGjg^A z$&Ut=-f>*o_J%-jdHX}Ps0ep^#ytTjx*-+pwA)|vd zF7Be%|2);x%QdyZrEW*%qjqbnHxi?{WgjK+5w@J=Q&^t=Q>Vb1T#W`4r^PbEx$d9D z8wfK&1{n7L_e+|g({HZo-}3kO_ZAdA+#a*-RM(`s6L)^$e)wp$;qen1W-Vo9TKb0pAC{0yt|^<}c}@%!iuVPF1-GTHPS$zMU!b8bT;C-{ zWM@3I4O9iEt4i;kcpTV>^cfZW_$(g|?cAE&*Vg^{jiptb?eU1^k?&bKPJt(e?g^8C zg7?HiPhOLTAnhrwZ!7H+;Rc*a;s=O*ORci^?26RE~eTAQra!7|hY^+))0-X|a4d^;aX~mILu-?4fo+kjVwL}5~ z&wC;V%Lw69O);x=Z0H)00+_sYY^$(a=*#r%!)B-801p zn+4V4WGF622s|qs7ebdSHYGDyEm)N^$vgvU1ydq$B8F{&8fdUI!_(MjXHiOp5+M=w zF&bW3hShcD$UVupTtt_aX)PQT!vu1Lq(u9H!WSm>r`f{KT(DO_@2QTGW4CnOn4NHa z!M8k+ZS3n@Iki$vW5fBqIaXBX?L`{S#KgoHPR+3Ja5)791r%gG#&PHp@b>QZ2X;2t&UFoXS#ao^lwTWHNKP|hx1@wvdI zA853s6m>_sHRxvfl7+>v?e+PDxh=-+V)rnW#r5wrZT=#f!uP_6KZhs3_?(sen7DI( zNuyZrw^hn5ftg(@&o1>%vNCOrE{un!*4-}?M2cf_QM{z`j(#P5tsht4!`dVfU@1{enVlEM#eF8VK4A)iZ9woLVPw4y1sA71p}0n% z-_Xh>Z*`{Z=x|Sp2I?|W0bQ$P+!{~Lh`SdJAr13(KGlQogg_7S0!=K_5)LWakDD=-D!HQ zJo7MT&XNG!)WC`2rSiQHhGxrCG2jWEcRB~#h={HK$ieGadXe%@LqdGuqjtIF9Fs;; z^OH0SDfB7$ej*l~FLnDi_Yl|J}^a zE~j+)$N9h}bxwN3#>x57d2KR6EZ&!# zL*lgj0)Z;w#BzS85kg3lbLq2NbfpL1y#Myo>y4&uHgu^91qFpRU zcW(UUdCs7I>ykzh!deBH zv#4&d_}#mTOn+TjN&v3p|6EPup^KPr{{7Qi&e^%hjHbnhj5%`U-UeLyudWh-)1~E( zvub2*FT{_wJdV0Ae9yI=kZl!?f_3sn@Vt#|(~GRCTBXCD8w$Vw$yqxk+`=Q|zX zIVHC|C=+e<*W$aYv=INRzj=?LohK|Fz(23mkh`ZVr4XoDDM8$6euM*{DA9-T%F~rm zkXwvNZJ$~aNiw)8zLX*0#I{JdU=RwfAEy%Yf`OZGCm3IxNXE+vKscvMf1wXNR&diT zE}v68QV9~KD&OVnr-!2qZh|?>{8g{h2e?oFb@Qoyc!Bf{zfNxSbY%s+|43n9?y-%JhnAYK>9dkQcQh>5Q=yuroaj;w#Rw^i@OZ-G<@t^9MOr01U#ie;U* zJ3SX1QgBiPAB|2|NP+yA9G-HX9xn`t0{T6K{dDCSkZ2`mgVd>Tq=9f~ABUW-NV9`X zw&zXJsYIcmn}d%hmwme81J0MMg!}60QT^Rp{IfZ27EqICS0_&$EFJ?maT500(-j7g zjVsLm&^=WXPe3NXeaWbGx>5<=!AI|t@2R#0fsJ9`7*1D$9)oxIk8rROBKf~iI9~gn zZ6_yA5K*zHS7J0) zYtf@iSKoJZbvcZtq^5@a^1WIQqNY&e6z+++dX{19v6#KVr8-q5QAUgI%rHvp!h88P z!`6J7>5p#$I!5@$TzCC^Z;mm*!<($3cBh5|3Z#3U)~Iswl;<>%1m41elqb-CG|a ztsNfdwzy55d9I6R+-jT5NHRA0ibiLAbJkuhDT^}gp0A|#Mow0)P>7cXPbDyfW(udA<51pO#gNGh{( zf#+^2vx;b|x3Rg64WRD)P~nQuCKlCSx1sBvdKy@)GjwN))9E0p;h;LOaxsYvqvz`C zJ&lp{Qr$0pxLQ<}F(??9yBC`|d2=;zEp!-a=B+xVy)>BBvJhgGWyUlmww+g7i2ozMRFOAuS~(m6c=k zxS{>pdT%ZuQ-uQX;;3Ccd9g2&^52$98R+8#h;BZv{Xnja%(U}b``Nlg-qIGLGBb!O zm=07CM~N^?vpckH3hOl*K6;V$A>~c8II(Or&1{*gW3xnaO0g9hFT==Lu|j=L*Zy49 zmzsn*M~JqzHXU+z{dSW(_0^&P)v{0r67pYC-xGA&O4N2ggvrp*96ea?SunE>&JS6n zvPqeh#0}GL+IhKDq9*IW(Z2LGv)s4Mg)9XB@gmitix0By1537LFHcH(I$t>BGacT% z4Li`iap;5;oyNGk^4Pw}W_Qs-e!si{ePgc$x{Rrs$}xI;YN|d#Ce*0)ixksO(0IIL zrO@i}7iRmz1S%a;M)Vqo*Mi!RO{Doo4t|1A<3BW@I|t1Xyw%ol+f&^C1P}DG%!xD0 zcg>4tQ`6+xlJ(y@qW)z9HH@r-9?YVp{%I6vzbZY)=+v#KbJy^dl4E%}sauu#GWBtw z{boQ*kE6VIodtU8Bs4)08Lg6jTJ|3C1=T_>KZchlF>^#6lmgQ(&z&Y|+jO9;e4gIt zH2re|&~JnF*I)JOa!_&K{UJ?v8u#@<+%J>OIxUR@5)58^Id=%b|8E{=r#wLdJTXaf zMHNTX#F6XoGb{`3%rou|ivujLhLD=Jc6K3|WSID!k$XkYe@I3kW>Z#t|An`(C*WP(x(E>UQ&1+Wp zNh~2?0FqRY{rQK^^G~><1+eCoGNZz&cTNDmNd^vp%dy}{UISP|lA7RivJ!;Ftt>?6 zPci*VK=L7y2;)1|mJk4cnG&C#Y6FY}Y{gz0!+PnZf6rzL?8M6F{bB9H(Z6R5YH z_A{gb7?1q$_RQ%?-veil|5-NjbVUZ7eQ4XalU)Ei2y9HNCPQ|-FN`(?yn_k_`KeOj z-2|BL|BP^G#b-#tZ-QwMSoUR04b8S!Z)Gp0rG|_?z3+yl4#8;MaP~IUYjxO$R?42d z**Rl7+mnUG2oFKJ;iuiLPw|%-?6={o&+PzR3bhPo1U9IX*bg1E3K9J&!WpZ-6K337aG+ z-QS(dwjb92Q+!pW6tE1+e?;$goXe0%hXXY!9`Cieb*5`+fRn%a!g85q2?JeO6bSg( zlf%A^H0UXq33c?Enw`m=;1%FfT3tOjXs^5Cp`&(R2YUGr4y-r_dLG)36pT*l00e>H zE~nX$kP{Wu0E+ydOa4dYGOiOW#}g3-_~|ww2AJiS>zrI$dHaoLql~sTsd#MH%?#Q* zD>X8-8JRuc*-JAawEy_7r@&;0RIT2ovu^-|c*iNICf=+3WBS)}eTpr0AGc=-=o#~8 zjcFRYu}p;j7zD{3DCc+Yj0Y?ikG)^eZ=76D6Q?u5$Gy=SYOn6_at`&TD=-Y|W%P{* zx9?}%nfn*k31B4()o)L%27}|_dW00@UcTl*X0KA8lJZf$_`VmUV~dsP-mw>tcf~0x zDpFDDLb+0+dQubf@BC_uHTcj9HN#Tc4a#*N1l(W&?D84sn9Hsr&qq7~Q5^O7tE=yN z#oY8XH|5e$nNGe{e^=RSQp>P0KFmY9U_7}1YYpX@#leE5X`ZUCKaZou0Vorbb6aNY zlYjui$i>CwK)w_RqXi6ZEcrcJ&~E&TFK5Wk+Ejfmyxj=kpNGo1Pc#oY*P83Qq)W!H zT;4AJ%E6{7_tcr@I*<8>`JpnoArYsF@bxH4O5?Qlba9hWNrN_D1*6V1bX|{KQ}BSB z$3>I^n`W(NsAAB$l`YQgp3=2H7=*SIM@PUaB<>Esj8F5=9savS%9@JN45o^oNc2lR z`zSgNc=z}EKfW>A-fZFbFkT{;o})a@5xco5{2U1IY?(6T@6m;TcR+xxK}G7fnx9T z@%KU=k^X6o)v$WqK)uNhTodgpF)%Qwk5N@)pn~c?TIUbF9{czKe!P`p=+5RszcJ{k zytNsr@KRAxp%ZqP4|=3n|0GG?MNlVd>mXW4sE=WEA2s8UTd?=3Jk;F#Xs0tfs(u&x zSTcH5__7#N50u3F?PL8?JLn1|NuF;QDk6 zRFeZA*$oC`hJWuboOz*(XYbBS-jsFY^$Tyq`K_$}udm??s9b|xW5 zYWL&H6vQVf3PlP?A2iVy-0eUpCwzlxlOkevwhIZWzBCa2c*VV_uE~5>6T`e9RrbYx zwwiJwG|oVsN;-4VppIlATv#pjnLi_2yy z5^HDrCQ)x9XJ4%NPPucTF{|$lDq9g^h{dDifgI-DUbKK<)0V2zFKGqE0`L3Y#EA_q zK%4qfx{25a2Q1Reg4@Tbgkv1~;H`mZp#zeKe%Ef2;ZBcT8fW-X?`&Av#(*f?=oZ<2$9qt!ldBNSJ>?mOkN^QqAG^1A?Ai;smuhO{mLqc_cunj6EfgfhB@)+Gp0;nFU|?0??c(gPys)`} zyQ+^KJ;m^yf)^5Qoa@enV)@ntVut*uz2+XSpcQ~&Do@b|j8+3cOO01s$9@!o;{^~3 zzG4IM3CzKJ27u(>+t8ALI;h!5<@^bV`5)c}=04&&{hbQihhOc+9Oj+fx;CF_Zefx5 zt z&#u+4Q2U;`59`uKUR*dXrOz9-B_gi)JTEnp;@{JjZsIDpeS7D&sA94C<%El7W@&LR zPqM)X7Lru*mIj7J_sm^TPdf1L<(b3F#c*ekX=yGDaz2j}Lrx#{T9wWBe=98fv?jNy z?ph$H3pfpc5TICuOy2cOVrTh_WyK@mDYtz65s?wjacWRQ4I=Z_bG?Gx+!`>&){y82 zIwJ4ysG=hEU1k^skM`Gu^;r80Uwn02Z+*Cmof}%uekYs(y8e7fMk!- z_w|{V2l6@8mi&wu6&SbU#yNYD`U4n&@(sXjRZ-g1U~2|f4cuO|x$`%R?WGTZUgv5a z8p%Q7*%ZlN?blg>&Hj@QIE#ZH`Q;LXlwhO|p7f7&L$;z+1i+ zHZrLqbOO<&vn)28+Ic*9ddF~MwsSSj;Gph?-R@8CHMuJFtw*Lc^($Y5W%6U)1825c zhRR&ORyTrPtl4UqWz^RuKEebA+TJZ0x3?jk2aAIx6MYtF{@cxw{1%cnp{BDpy{f5Q z*+FL*;cy54+3Opd-De0Wz;dd%RQA zz#mKKn9Si#GN{~n`HpkU{{SaSz$QRGf`<{Xl&#OLb*L&yEtc;s{yg__-l_Epx@a=; z9j{n&Z`ICNpssB#<0Vug+vvt)5lhpCn#WLdwQqNE9GJ5l&n#KwnV8rQ$?6VyI zs1I}Hj?^=9v;k&ly%i3q*Jx1J9O>XVyEeey~s$4 z6&LnC)WQa1m8O1RxY`^Xvb%*j8Wd^Uz&gVL+jLmL7}6L-aYu1KqIy?OJdbx%KQ@0+*Wfh!#?k=N5wO6EhFtq)X z=I}{K2Te|2%kPQ3Tb(Pb^#+G+>s;Mc!Cc50xz*;Q{pQJ3xm2rtb~5-GW)hE5x8LUt zrV*vnv4cyYJ-SXQdmxn7g5EUc=QDg7O;cNaedCAivaJF8eY@j8XFw@&@u3oW33F6l z#O?q%TkqTBxQhMtH9F(lW3b$tUAfn_)X;;K5o#_92I6bnBj3g*q+@@kJ95tXGiFu4 zac$Un!QMwt*%a-tC*FN zE`yyqO_f-KXMy2HQ#Xl}-FMsLBITCPeW~_$U=g19psJE&#i&niB6R2^vw<9)aC-DZ z{9r~2%g}nKPt`@kCPJ8U_98nG-D2sQBAMDWx(e;Sk(Lw}X7U?w@3LknKi{9MRNOTN zTEG=m&)B4wGCDvwn4%OHu$J<39rPxmZbo72f?%S7jOyH&!O@1nSB#=z`*@isj!Uh) z2aCDrT#yb(W%!Y=%0S4FB@$YH=$l_LcU!=;=|<}dDpe}q&FP?aCoiLF-vH5l>;{w7 z(wg=j6JeT>W0Kx;w#-djnUaP2*t}f~EGtioM=M9jWyf z&MlkA!Los_hX8xWX?c8m=(Gcm$628u?M0S@dkiumUXP*R8lwMl4XEhdy)ArF*&=xd z%ANk5BVcxrw&cZ{3IuZQ4)$9Bp0I*5h+DBBMMb!}-jRfO&4Yov#@OPd1W=uguV{AP zuc~P7X?yMDV4|uWqpl0Se z7Z6SF3BxCxcFNe*wT$6|Y*2K-pCknqt=Y9z)6ISr3KX2Y#w((jnyZ?5Fqub3CHXk^HL{>Q9P#k5`Xbm%Wc!aS}^|cb7y+&#zxU7Xb+HB12H}C=1K$u z6MO{Isx6y~gLCla-CQ=LQK~_xSeT^FB@f`6A}dsAFiyFl0W&DvUIRp{l(+vz^4{*8 z!4d1O?sMepDZsnpz)l>2>G*|rb$MXg2|GMqyVp7yz5ptkYXCa)VghPz;(Wf^B3C$k zbhxG9`IW;Gv;B)pzCKcCSt06@S(-5SzXVH-kl{f=2+mf=`dPrFH=_+cR-_eP4vE<;9- zOpN_|s@J-6FdYprNb@z#0fD$S<*|$M2*Gwg!FK|#>LqQ68`oV{P13P0Vibx4-+3Sb z$K0~q#ld*Lg2F2eUEY`b310tM%vJjpiPiUZIFMiO#l!Pacy=Id0G@RA4%D=W{vBz*JT8(V$Cl`4md|I`kAtrxa5r0b)9SSgF66e$Q|#Vq z+EP_6VDd`MEd;F-4O9dnqIdJt3Dyksmj3^k_-|5yH2?|7azS> zN*Sj1Z8Es(jhOuGS>CD$FvoiyFPiKYmg5zq;RQIS52DFS%&4Pj*+z5oBbvENmnA9* zm+2HouIVl2GCdI6>uru~RwPMzWLW7;Y>z0iqxXxL%DoWj3`og$;$k#f-j$S-J%7;c z7z?-hC>-wpbxo!0#mmeZKr_9r_lq!=uIZ~iJ-~u-5nEBi`%G!_Y~C8MQ>rXlw;Xca8LkPYr&s*e4Ofpr8F$qZ$}4C^YqTlOG3<@t zy){AFJD`@_ri6p*>gwLD4LCV!tZ$5mDg~Iu8lqBDQ)>h;JB{z`io{1n@b8Z1dOiR& zY%)FL)$!Wk_wV1oYuBcV5pdgHt^qAOnuGcB7cX1hwFh<_)Ue?YyjJrhZ(-jKzIW+T z4FYO~1ogC}8F44@{Ph5#%gaSf>gWtoJB>iwi<2^JU3_{8XA?l#Pc-Spo|#g$x>^Z#YG^yQb^Qiu zr(#C&Vzwk&@f)i+09lRVRx;|QQ)eYm?%(<(7Vu_T8?nnY>akx5SMZ^D=~#Y$c3%x2 z&TrDfts&P5@EMJ(WzlIrcg&WjbIl?p%!d_-mUA(Qn;9LH>ez1~{Def4S1YdVuFsGi z+~^l?jS+lSNwAeMgPG24ah^S!`tv;8;{nQ^ySS`e#$l$=acO8Wa|N3Sd`wDWA~W+C zC5z+MBNk#D`Tc4$tOE{4)?&J-?>>*8(QbiHUUF*z1BL{Jp+ll*RXI6dVYZ1hhrkw@ zm<>gzvdd`2tovM4uJc(jZ7m|M3Yhk{fP)Uk;YmE-exYE&!`VD%rks@VvQK4u`fFev zb~rIWc#+#s#+(gRF8=#9nLN$CskVGLv=h=&wv$-G*iBm-vpz{>)rr_sDqbTi0|SN9 z>v2P`#}z@m_Z=D^Z?ZGM7G(NtRCSy-l5Uj=>+6W;4W}sjyfk#|-`1SU&YNLQMJgLI zml4i>P*wDav6o!R+s_h!&5$U9M4f4QiS;u!R8{>XlCVcw&2)I`&VgTlIRIOIIM>PieB98r1ZYhDDm*P3-<4uu+6~3_0nXAH zKV_!Vy#DrD8Ks^L=`Mh)O4t;CJld{lWjqPDbgt*45N!#*b-}Q^Yg?2J-#tBpwe)*A z#6sx)X=CS@+zE&7Oua8&=5A@JS~n*>C@u>fFiGLQu+mcteMs$G=_j5Vz7=TFMp=T8 z^b#0$Yu_jNbldO&N~6^XJ{NNkiSErYjmn0XnQ05n7&|z+9Bgzev}EqJh*&s!W4Qu) z4ZvWGA}WsTYihG!ssiFx%>}3xw4(4 z3S9`zM1PMC7p^7?Q(OAc+vR#vn6^~Phsw|#{x03coBjv0nwUuQ zoDcPgVQ`!!H_epOzNb^TMnqHAj9>KFepO_rzk~q%TtuwPEK4i7j$<1i|HuH~t7tu3 zOaIOWT%!>R7BHk679)k~0B#bFBSenEhf%2gQgTuC!;i{B3XgTKtZH%1S)`@uzwG`U zgt+@va&Im2<797HZAzNe04-NOCb7gn|ImD7(!LF*q4R!_GNaTw++5TO-u0xgJx*ZV48Ha>yA{cpg7BXT@Y5yB&RNA`{g)+~OsUzkV}NESKk z=xlABIgO!ZDwABAD$lbQ$fq&+BC>a#V0PqiHZ7wb%T0i>g5nCQ?df&k%oJf8mmOvf0N8>X@sx6AKOCESHhkOm(Uk>G@# zH>+X$GsR3V6YVk`s$8$n0Fv7O!96ERtPnyX*4?qdfF!iP1 zNeiwQG=U?jHso23`_^85SSa`@m6ravP6%@#*gpypn>C}H diff --git a/man/figures/README-samp_dist_of_hp-1.png b/man/figures/README-samp_dist_of_hp-1.png index a4f8e0d372163d30210a8886caf0a658afaab5c9..e2025431c79849585a20c8ff4bce50f7af232d70 100644 GIT binary patch literal 19362 zcmeIacTiN#*Dg9kPy`8zfPy4J5D<_g8Aiz zQL^M5gdvC9=nK4c>wI6CS$wUxCJZ4*Bn<^R-dGRzn=cK#*tt|MXc0>@akZ`(qJBM| zaIF9p6~y^YPvY*KjE_h4L+>um(rsyCU9?*p`Xt2jHJj-cQljO4X0!rb590N{SBb=k zdHv99#m|NJJg$vle%p#*whjN~M+8@$8n%Cz%Vt{GKy++aW_oFz4x&?0`NkG^U8G)L z)vfa8oPBx*Z&wXVT5psw(b#KehwnnIjVs~@#Tamty zYrHM|RyX#tee*qs1N5GwdR!FFL@+-Y9{I=H>}tj951YNziy4!N^h)f#K2Hoc%MXRL zLgCeL^6AGR)FI2-BK0JZ0WGlazAj57_nr}p2htFlx@$d4O2Z|eGx;)?V)A9DZ+vO2 zmTC70QmSHh)Vw&?b?;&7G2L2cM(wJJDqZDePZyI+ht5kzHgvrlGVC(JuXk?V3Yofh zgEomKn6X9K;G;p8fGhz|Q}``AgN?GTUKc2x5}en+(tpnBLF19JLF9N5szDacOY{Tv z17+SCHejVI;9;fiUm>Xmujsd%x2HEIH)FML9_)>?MIG1b%?{-0&GKqqKDy|M>9shd zR?4%;-KK`?QEshOFSQ}8U?7shs%r7PFey=kM{N&-8VT_zbFRQKzMyq5wcR2bY~HdR zOwHgmIXWfstHTa%3x7H0-K;atW~*nb_mbKUE@js1vdV3~lADx|J7XI0WElQX^9QTY z9fLQ*wRN=ya*A^#Z+$O4XLohv%_I&W)2X=7lxJ;_>5=74mTtFXl~vgPOH@TN`~stU z>f|aHrh?U^FP)6&jazRlD_nh-(W#D}a>9eTK8<$k7DCuB-1XeKMXrg~+PuCo=3n(> zX}#BWz5q!u@zFG{s5pAzLtV?%`D(3Y zjt%OZi zlA|)I7tvbIR<}nXKimuFoU0Q zAW%P32p0GW3cks~_lYmTIK6_AkbrsmGj#mqk5~1Eh9M9bL`M99iZgV1A0r# zW?q1SmN z+h!iDOZR4Rh)+UsoFx=U-cr0Ri>fF+vR*1ljae#>C94tk0mfCs8LJg7OyWifJ^_0V0`zK5(kMOR*AU;-j zS?+eP?L))Mb#uzgH9y3BmWD@Xgd#&VzHc?UY$$cqiDMBpdxBlu+U8&t2L@Np8mRY} zrs4I)3f&xGc12lP+2pTZ?@V*L@HjA~ae?s@X>0fsy5@{E-=7*UmZUd?JTfQY)?Ztu z@rH3@;ryow&VTmh(dfgGfnZ1`sAJ55e$!fGd*PvB zVNqU=`>a|e&6G~Vv~*IRimF-VBG|%i%Y`?GGASEuE&b&5I&v?YOY~39%ggI=|9Bof zeC5DUCi?nG!}dM$wsW1dE_?H7#1Hp8RaL`o^4Y-Da&=j`jM@UP&`C;bX~n3hseM?% z?|VMi`9(=d=~ji~axjN}BYpTl-FE)dwvUTcYOIT|2}PtI&A#EqC@wDk<|-D&lhWJQ zmoIN1Z|yh|7#*!?nw~!I`hskgir-dzaA+u{tgOsGof;A5_AT0SmhMxQXG+=#4>z~8 zuCA_HX-Fd_YXTfQJ3CuSF%Qwh0^LjwQQ*vU|MiB5q{Dy? zq`(20C^b3#NAbpPqySkpwbm3PfB-Dh4JbgzNk25tpJGt=Q zVC!1#{UBkFsI1$AO?#;2gftLL89t*-OOwCA6*1o(^;EB3?z-AZ`F<}d(9Gs|J~$(k zN+E{ZG&oDUOo^G9`O&4xrq2=6$Ot5ed2PI=Zux_eiHW!NwKz>W6Y9UcMI9aPBLiv0 zuCA`vQb0#~K4$WU|5W-wW%?|pIec`foYG@ITsps)u4XyGO@zmUPc$tKIg4IImQ0Gb zbiW+oNT&5geYm?keyzQ`E!+y_wBQ__Xv5B+s;-XwRp&=6G4GP#`XKm%(uk$CXlRm~ zs2?G9d}IXKxwZVd)@%aF&hKC^KiXTAKv8zv@x$GJ%kXax+qJ)u>`7CMP|Z}kp(-q@ zB4+BYXv&wK&T|?iy}fY_Hi-_ty_}rtmSYdY#v_fy`z$LbHyy5J#UWg1^Xs8Tkx3B0 zcy7fSI{eY)f8CR8t`8zmSKg{~{L?Qpr(8Ct^0#bP<}|l=qu-Mx$(9c!EaHScO{-VP z;f;#_J|f_D?y>UQHiLD>2OftqJ4NPeOVd(4~uzwDQK+fpx_!Q zdcEicYkRwrjuuNpe7Nj$u-`RO7+9U3?>fH$A=OuQ{IFH_XDCI;ga~$ge?=KWm0+N^ z`JSR&%0007aXKi*oD^y0LlCPUG6u%PFnY+!3S~Q)D;KKjeo8Y`x(;smjBNboz;NPV%KAxJp3@{P?Z}Oy70TshPM2Lpz}8(2&}5kJWvN2-b6n<6jS7 z8Q5@I?6tS2nFvjw0!V%o-p!vIRXi{%;pyZP*ZI$pum@AMfB5L!R@YQOuwi0+LwlM; z;v^H(c&8G-I7>Xez0-iT_jHp2Z~k87&u0uYGq*&8e>&1LqI7&uPAzG|00b15u;-K-Lf*T zj_+ylt{Fn;Ughroeul8HFr(-WA^W+6^zCzV`Y zF2E5-Hj2Z|%R9M%Z`dE2sCQvk2kGwAuaU;X!^11{#lg1)`2cBQX?aE1cG}Uz($b+g zBq2McFEl13WU|CWeWO@&dcj!LX<;dKoFVg(u*b*ckpQ(>mtOhfBmIG&w{i8OTL45? zzF!RT4H?Eb1LpNwJa+qxws>K;$;|<>6g;?w^t*oJoY~vV#>~DW@Ic}gQ0JB zefmUDSb6lIS2*h;!A$??%)N@eA+oj=CnouT#DJ3|voQoNI{y~@X)A1MX<+n3rxBru|X;^N^cmwZ+4 zfXb`A{{H%63?h1czTD65N8WQzkSKOpE4cFA7MUvo=)Fm5_lygnAyV@Bc%idLK~R3w zb&<6T5fL2@cb>S!f4JFmTU1mpRT0jXsg})|m8qT^{^0}e277Xc3dN~6fQ^g!=<;9W zjw*@YD0}uDBTCe(il3g#toKe7m+_}4k6*QK-Vd?QOUU|@u`8%uUOl6|aD1f`)G_Bi z-ry1kP~D%s>M7f|aSXd}2)%00_cG*?>RC^p=fwAHxL!ZE<^nO$#e}oq)hmoHFCBbe zRE~->;pt3pa$%AvC_Xy{&$*wR1Kz7B&GxR}nLq0UVASOEkEb}N-Czm8QFg|+=HEPv z*|5*R3ktu`r#<(;CqCJYxyknYqzYdJ{OG%YH|Mi+1wL*${U-9YS9&Df@_V)IY)NH|VN5=BoeR2h5fHN#iG$%_lT{y1ifmU@{DVuGxWv|*v z9QNE_R#H(3y^{twQ!2M5j(_az%$WnXBuirmp%nG39JZ;$?;ak$3liGjy~>I*AjwUv z1lxE+*tN)gQEN=Lvgw>LfMO|KO1_+cd66JALf5tB?r{{#U6RUk=lT3Vu3pCP$n)Uk z4U_c=h4xlWWvFJh#dlH)I!3~`Ovz>a@F|SE{0Gi=3&);mT)_KiLA^S7cVkx0!2$gQ zTgP*E`uAMYXDYOa^}pske$9pwM#iRnCqmoyy*oNnFAR!#!JgT#?spvD^#^A=DNQ@h z?A;IOT#)8Ye-c~)neN-Bu9bcvS!&@EuL~jv&zY{@KL}Z z6fRM69O#o#P*6zQ{_J3|m@41x)!Ndec^P?Pr3f}~1GDV#yBfC!^t=#&f{4Bs4L|Nm zELY#0q&{}eRgWh*0gKOx_B9|%U%U9h7oKMNV>sX8YnUZj8h$~V*c_{`9~VOx0L2ogdVq8|-(``}0+mZXP85q_uPE8i<)wPqhzz^H2Z~*@O z6Srn5S=n;Q&=jNSZp)J%7tHgf(6kzku}~}Ea(;tAD1bD)dHy#aHf-%xsK;{gKyr3A z>yvj?qZLlM!>)_jocfI)>-Q_qtsO=a=Di3Ju$yUPV}ICPw^llAE0^JL5C6|tKApHK zD}%SK59cXSi=xisG&jtIWdfl-cW}XS1s#|87Vbat*xw@Ar{hn;k&gL;b_%q{e`ae< zvCgkm24OCe8*~l3#7D^a;P^hMae%P0vW6`zn7Qoy@-qZHj_vTvrWU5O*jw;}DaMq% zynB}|Q$GE*Dtj%O+yvN#%haRG)7`9rrD%kG;XO*9EE4c|#+)bdyXw~Vq&r$d7?D1h z7sag=j^`D=Jk z(;-AT4>%|J@~aI0a!N#GHpLfJR(F364w_ksQ0v`0Dl92c%gD%>NIE#FLHsirniTI$ zh~_ili`$hO9U<24lN2*D((6~zGn=jiUqwEJK+jr2pu8A47+*>4fxq`3-M5=+4pLH6 zV{j#yGfj&#S|Q9(6nk;HKrnhufOn=Hte6HA^r(;4F52Ox;#1sz7mw-syM+H%&;ANuvGKsEVtiA0`Co>h0J0Kg-=46AUZ@jL@@ z2N}p-tK6@1ul=8?K(YR_E5KO)TiMF*IO}^SmM*S3E*de$m|u&5im5&d;GLd&!sx8a zhW!T!09$@rJo}Xw1IL-Iv$OQ+2gy&HmBWqbMPc?3z+XXp?%~oI;SK|F3BRYqS=x)^8&CiEwkOwHdGR;e1|;#pSs+{y?MDD()kduqJ~- zY-FV0zbSo^W@iXud(_PkpcN%uU8`##jkLg+b6sqq1pq%BVE)zuL!`mVa2cn0f7Y6; zvfa5)p$lAxlp7*R%O*bw8YEAyJN?(iqQIQ5fL`bWh~e@L zju*Z~#lXP$*cmK2)9;&CCwUnxG}f4)li9ibWDt4do+)dw)Wit z9jCaq7+ysM{^@J;L#4S>Q&aSsYHDgmwHdGTF7FrstO&cjNPKDH~q${NyV6T$S=QaiqWNMZlqQNaC4pGz;<|c zx%}MN4uCwR^lcHhF#rHeT~+2`L^Dcc+!l_!Z`w_-QD&Q>qM{Pn-T0ZB9T~wM0RsDb zwNa5d-L6|repwg#b{^|{e4T%O0K^xKV-smo80G^x4SjS-3ns~GZllT7!4NH8nXbI& z@lHMa{bX~KS+;h<1POhZ7o>lVf9GtQ6d2fM3Z4;D9bs1gY&0LlJUd%Nyn*=5shl$a zEh>NEefb8bxa>uI+nnE#jf+|A^x6GmWVr#wO1t>-8oO@SE{Xyz$K2RVzJ3$9y|FkJ zcOiPdhtbfSiyVg5dSYp5dCS|(yB9B*JMca?cjV?xYj4kQ_|zgohWe53AQ(T{*G4-i zfB)D($>ozcR^GH%Y=@dFPG9=8(S^{yX!s|AJJ6s>f~r*C7&$>#&2*n5t=knvc9Ub> zR?21`Ce8PxAwkYF^&82~JL_k5Ct#H+WrGMtQ;y-bwHkprozjgO+@GDcNiI<^+jh5? z<6}pr-aR=AJ{=f0@DnB*148835h|p2pFU#~Vg>+I%c`uQ*9K(E1twj$?B3}TYR$7o z{Yic4p2bneN6cu~S;=|Wx4M*)8UBUAE0+woz0Fi}%NLl-ez&qnu;1#2kW)(rkl$ue z%eu$N{y!*kIlIXi5mMR{rU|eCUp*QkDEGm~qH{1)lMSf9>}wn6`K^>Vih+W z6f@}(GDuD_otk@htx_9TyhaWHlZfch6Z)UV+gr|up*>z-sv>si(1KOau^b-7f2BDP z;y2EPg)%$y!(YKVk_I=5&Ug*b1j;S8mPLBHj(0%s#GN6mSaH_pG9Y*V{}^PAKKbjG z(6Z#olW3Op37;|2sCfQ*YRY*(67}>hLx_UV6Ht9ONTCQ=&;ew|s%zo>zfRVjq$GU^duUl<+sV8@jz}Ac~7m z-PRIj-Bg9MY2Lh%^|phF_35abtsSQtto^`48t?SM`#c6~|4)>u0O+6rZl&SYyPANpR25C5kEf&c}-WgYAOw=e^&QRidfbSfd~ z`k@1+RZ9L_hVt@3FO$Cjj{>_7d_`ftx+yWn2$A#gYr-jMUd%YQp4=ktY0ZVj#guX1 z$=kf_?9=Weagi}~QDP%J`kr8)XiNaln1IGXKS+qc4$t*`5dFcwqPYKXf4e1`S5S$q za6Ybd`lAf7@*jm8h!iF#KI!Lb5xI{q%=5vQ%R-*cFNWLwjTZCvYJR0hth=JpVq7^0 zPrMwA4~s9Hj&k`!c-R1GqC{?0dN+4d+#;RDx4a0Fi3lJPBQITCq6)Y z{+eSnJ0ph;0>H^PFAsiumJ9y^a>chv@UOQ|)5ky_u&%6mS@KtZ94`3q6$9$J|JP)I zQ#)_tU5!B~icYR9nb%QgF$KkmnN)`K>-T7u59;aJyuTMpde+H@bewqy=0q6w7nRcNW9w>E zNLDS1aSc&?Zsx82O+qc3+N=-oKUF5pAMy~4Uc+&Tdv-?FVrfpFIVtl^jMLK6g5@Zl zH<%-4=OvXhD&So(xScFQUh6EdK)|E>-_}I&;Rhw_o_^mN_?{%a zNs=zA+KI8LGe$1^Bcdm)>4Y%5Zv6`mQ!CRT5#4K&H~wzvH$VfF`@Seyy6QaD7m<>p zCyJs_)zo4ft2E1*ovvE%5d4i~U6lnEon}~CTHG=!TroXK+~}go_D?x8P!?1~W&KPw zSWa}Ex0~?Ml^*=~0r3&(*bDKfgW88o)C-nz6lP{cHhK$>PL3q7IeJk4WC;1?f#piG zHn^CJY*$M_wrp%|E?8P4SV^d3=%dayTa-3ZhNp;|a4<>^3hXAYDGdI73 zNwVC{l3_@=Bn1Ci+T)ZpT>Gh6nP1IUf+JR!bJf0g$j;B15VBwXQ(h>LPG}Hts(RK* z!$j`#DlL0qZZ42uaYF?6b*b0wBpOKyH~D9?D4jxc8`y&1 z<)F$hVnT*|FW#W`26&w{8UF4UmSVzs^A%IRb@3ovYsF_~MO)tYd(|%Hey7d20_7Hu zBk9es8m-b{-d;ghy2g}RhI|UXg|Zf&a*<#nIsrE{ofx`fwQQXM_%hQNlrS{?n8RX! z%UoBI;Y9s=TG{|z9=KkGq$BBeP^`8!d*#n!w}{Zo6wH{3QnLPkO}5$0r{+Q@dT{_b z(co`5(-u`=@ssnUfY}z!!*VaK>&K5fAYIw26e&}CM{(aGa(3Fx$B%$AI5joZDgxnk z?D^9$ZZ+7VGbTCWCU1SYl;MK{4cAT2PYw?VG5?<}&gL4B5+9PX1ahbLB8W+i5SOvm3C$h2jHi*d$tHNEvWAf>MvJ?W*(+C zk1SUZWLkH#^?Zqu*hVUp;yctAJzFisV^tRJE@9EZu86h@qbRh>?Y27HuzjadI`g~k zsh3!Jg-)bpZG+>L!j+d_H(Z77pH{nhT97R)4uDG~hN2~<1jru|0u(Q{tLX+&IU+3f z=H^a%R!$|92oFFM>k7t`^~+%$VS&J6>kOgD4h)D#dswR4{W6msht#^nW^@Up%*>~c+J}-A zsaN40h};s%z2(84L6#b{pBbi*k(|CPFMs5RulRGN?>DG*&Ey==A0 zid$~lHS8?@qMvLd{8g`)nrt@Fir-7>#dKY%QD?b9|H{Lq-hIv)YN08)IAm7mwEr8l z^mt={wQNk2msD?JjX)UEGEPfNtDPWBldKfRT=*(+$adtQqhWSlS(!b6Vsvfz7D^y4 zJE3YcLSWmxt2%x3*rPT7NCd4W*=-TN5?b90zqU@bG!1v@*KKgl`XuFQ0)D@Jd8v&I3Oyw9?_Pyrm2XDI zd;@%oou`INS!rnn|ICLcutu!S^4H{x{@;J(>vO4HRExa zoPaHMseyVyw}sB|Rciay*|lGFlmDivbn-F!SO=YRVJ6E(rs{lA;Uk2V>!9_`=F45pB56ZN>n@f;x1;H#3)(@8e?FeP5{UfR)ZP|}XTMDv!>dG%sV z3Df~njKafJpF9alVNKEyCb@p^8BCGPuN3TuT?IN=Ey}PuQ7f1PFB8*S=r0T}V%BO?dFS zJnNacdFEUn3g|L8U4Bm~kbOC+Bt4=41@A|(eEG;}7cOlKtCIK5{-Yk-I!w&WSC_pg z0eqj%E*<5}oji_v*?40;;^1;R%*hiKH{^RC=*2bqb9Br_1Qi6Axe0#y*$d{W4=vvh zvZw-~FJ}3c?#z3}_&c!^!~@MMa2H-JF-P8@{uJVGi#Zij`At;B2;(8)?O{4&xJL=l z&O2yYtd1gnZ+jhY&k!~ZSy!`)?sa{hn(${2KR9sjA`ArGI)*(Z#s+9OO}mp7kX%>U zpu9ukl@hCn?fCg)Kz+6PULtNA0s^JryE^46TdQO2uSyR&d=JzqHOwYiQ}7xkff zAlWe(t#nD;#_L<2bgJHu)3*7J9aq)-Ht=@0s$+#beT?Gj71ush^(ZZ#22sY%aCtF5 zf`B4(19IyTf!DOP82!{Aeq?DBz5qO-2cj%* zrK{6A56GKRFUNfy(?+M0fp-XG+mQY?m%fcK6sfujyhS(EFYOkMEu!}7ZXNESi9G~< zM)R20?-k*aVH7XZcgBrv7!1|-XKS@HiLAd0@#wEl+u-_vVO9EGWn+G}{@oS2Dcm)4B9QJCE??P4F>z8_OXKi{`!p4 zpLu?S!tS|>HP3L;yoW3wYVq35Jlfc#@USF|+Vh(ZQ`Zd=@z`s|Bow02JKh^`AblH% zJC}aV$_o`@N$g7g*|VzN&j8M|K7Vkz1oXev=N`jrO)5N42`ZWgvBGX8b7hH_yNJeb zC7W#8C5C}Ae=I+>;#j9J(O#C?;+orwa!;*3;p;7LfhNC2j8K?O;PTV-7!e#@^++PqQQ*PoO>w`1jgd z&z)FTTmUT+`v*AtluH)zM~RD6vWIE3FM;kZZcA+;9{IfPEk7C8B!CzRLVI&bzsHUb z$2fu9Xd_-^UqkGxr%nAuR{fo|U+YgiFKCZHEqR|4ok~_XPf0S7<}f#EC(I+Z?akpU zmXMG@v(Ep8H*$MoTYELO{3NLj z@Kh*L%C#v~z~MbkRfuDDWx0mX>F9_PY%f(>ti5$2nQA|9y+iNGS6^Nuezbagq_|0u zcZe&2!1dhQoKJL7`gDf99}jnl^Y6na1lg9_t@dcSPRhF3B)bB{4|Vc z8K~OgA(jRbMgxM`Mcv#6e=`43WB_d?MoY;hgx{psL6aAKl})|Yjy156#O>YQjaLqx z`wb`aBtr{jBJ*OWDD1 zWZlIF0mLUG$2}0mv#LIHjN&wu?XJE8Ui7gAi)>yQsc4_|9nDxCG|!d4DJ+xqj!c6I zr1`B@%brQxcjmqjA#BUi#2g%o`B!t(kcHZLSd~8*HmxqX5_~zlRs5_tc+g&b{HYfT z{fbx^rM>-;!@%$44E=O3-&RJE^!bzCNCZ?#fP!9+(h1@9Cu<@)aX#;?60V*h6?;IQ zbj_Pj^YAtg zozE$i`WkAhy=LbL-Dh}7S>yjXg+OJ^H zYD8_L8MX#fogwJDAE-TL00Q0VYXW|V6pWJqJQ%11qh`t2mU7^lBW~Q}DAvW_tN&s- zRPz39&JO-Df>}_5A5;}{PxMhU4>0!Vi~OiurBmf&jN+f#ea9xF*UB0g-5&flz})eH z2nPFs*$Q6Z#HhkO0Kp_gj;&0bt#a+*?hJ4B&v}<|S7~&`*kKNTeWs5j;d&!AI{kqn z;l9<+f(9WUsfYo@=W?>&089t}EHsW`e2G|ZqWOV>rHFh&qZuSyBu#;|P7*R&K`5dx` zMTbWGdP`vdAi;Zy9v26DdwW;rfKk{H5UAWYG^ITW@-BnzNuNcS;k#|d;$91RAjtMu zS^9~{$iwaRse>(v$qV|_Upuc$2lR@iez_dnymv4Z4Rwi ztrE=t+Ap`5JZ<_kmP7yTH4>7j&SXV50U)K8=j#)j+7m(t2VXt$n-bfxsTADF@vaN$ zMucf^`E??wY>&SadOmCIG8K3f&7H3Gxg4>Ok=drJ<fDTGj~F z&4=`}c`h49WdJrkddAMqPKF<7<^&`@vK}6Y-52W%nYpb~Eg{6T+KmfneMKuWWT*_JTe`;}{gyoH*-3W4nW$^%mC!(6$byT__~Tu&fWZ|yRKD@k2BYSF!hjs()Ice zTxlcC^5Y`5a`m30CD#$Vud|{87f0wa(I@Y{@*Cv1*;H?)u(#CsV8#`elY0RfSo^5@ z{;1LjrYkUH@)!V<%bA<_du|xV205EA^rp`gQ(Y~6mF*JOA-9jjT}wnRG)NCN4i9U0 zA(8}4L_H^n;rDXUp&tS$cw504Yja7OkzW)Yd5r)9Qm$yTm`?wXpe##6j#1WS!jLTv z@p*(Z_sbgJfm}e>eOEp+bJJTz7q^ms-#ZkKl9ZpqruFg-zqTkk! z9j-X7Ym}pvQGF)>Q;?MlX!N;OvXs-JxGo4Nnx|zfMxD zKQ#g(S*UQ+W6Y#@v9HIQiIl>ON@D|oU))I1iEv^CzVAh=Afw?D<*DDa@3bRYemz=p z$MY!p@GwWW3H7~5anWowO<`bzdLTQ{qodfm)WX?gxSxHek$7>%Q-JAAA#rwn>j&_yCMk}a164&sXp~(mZ4=G@nc=T zYUk1qhz$U=5c_lJdiA(?uIE4|%7HIjEWcb~L^%yA>$O1j6hYL~p5PaT{;+W(zcg|Y zmVo7MD%_vLRy^LXJ~kix0##wB?=G27aJ#&{^i%&;MhX9jO*_v(q<_X{V8sO?Vai`p zqI*GQ<=TXH`#kg;-7KT%i9B$yk2%$=7Wa5Qimularz*58B&jco?u@@KFzaKUOkCap zQH-UZzuG8BWym*2nSHc;wQB#Pk0*bZAT>Qjxp{2X%~2_c&t;saUf2Fe0`#ypA6^Hb zy-k3fv%l0@&n_r{WaaAO-tUNN3$}v%T9dXxJo3Vvcb_%@d&5J4_CYc79!FCOkfIrSuq-DyWPknoPQ$0ixjl-j zN&908-qz+V`Uh&0%}E@cw1u zEub6r`G`9;H^>#}rU9x_;?gj}^u=s{`_=G`y!3eeuWn77dCU0(u3ev~I`m2`qBP*) z^V;ws2NRDGwp=$yw6-+jc8Fc)hO9&M&;!w6^k_u6AK%a2G%KVmFI~G*vgOA6v|M>CXSh0Emb*s%{^tW1y+3pkSF`H>s%#0EFx$My(*O!e8ZJ;CYx`EHhDEgY0QOqC zATSw4G?0dKn}R!Uo#XjD<9r)1XtKe!ryL9vOB)pabvQVP&p1ABbpR-H>6tE` l3MF7QVL&(X|2fQoXw&+hMeHlXOAzoSBcULk^YGcL{|BN!Z>azP literal 19584 zcmeIa2T)X7*EZO+fFK|s3W5>@5s{?iOd}u}6a)k$C^=^un$(DjN)#lA1|>&HA~Z=* za*hf#AUWq8XXCwq-(UaK)J)Yk^-axttEAxE)BEhR_S$PbYdz2Iw-1%1i7rrGfIuKb zvNDn?5C}8@0>K)=!v$9m{=?i52=+xY35kam64DYjmNxdPw$BWVq>ZeN?9B{Rr0+u@ z`~d-KI;PjvE{n#L6tLWE_32JY3AuR4^P$jErQ>D)^r2CK)gWuAWubU*!#pO=>=xJ9 zev%op=w)$|Z)qc;BS+fbm~NP7F8Hy1EPVJ8+voOn`>u3iCk6go30DC+^s7aA)8Niz z?2_lyki+5-LGV{r?eHN+C@WPC+eFuBLEYr{?}CosJlcso+SynF!|sIL!n!tAUD>~| zL{~f1w^_V(WHOiYP#WtE=GD(E{zm#yBgo;EANe{+Z1KH%{J!Vg_}_&rW9ddO)f7QA zuErBD=eI?@=X|3l#dJbdo!X2c!)@ZY{9D7EoH$2Ym`W(7Y;j*Lpo@K+chI_R=j_7_$} zzZsH@vf1M;ZhI%ZrnV1RowF@L0zY}L&^c!0xRZkWDu8|%easNP% zt@v^+qsVLBSVG78yH5KXyUrSMQFx;v0u%&P{)`;zMJxB~y)=rLl1TKvIC=$*4%RCU zgf?QKDp6Du4?}4~7oLiKzY-bH0Q>gRb^gj-eKN^lI$|?-ZT(NF7pSI96Q`3+6SsRt z=7+19cMc)NkIfJ3=cYUE-cLDVSZ>d#UNTic5taSxFtTp`557bfUUWXaSnxH)-EsD9N7Z^$eV_HF__PQQ&wHNp znj26r=9%MeR=?m;YNP#KdQC*hP&AoM&GK2nr;nOE>bp?dCWuFg3mVS^S9^bat3fQp zqG2n9_LkS!(75RDRtJ zPd4G(hOb1bYpM<9m8Y+~eu@8#1L4e({CF`-546}_1w8dFN;;%`cMx0 zRXmzs>9(KAZ@M_@Zx&Zr6g~T{reS>S`Gs80JLH5DRSCD}N~h7+J5nwdMVL-NKD%-9 zSKG)Q9#9OpCL1}RaQXL{gtoN42oR5CoonASZQ@0mjFm4zvP4r{HdS1hzCRy^^7r`E zeA7^-YRjaZ+t7BgW*mb2bT8LE+B-matexu~hI~ypI(NkALh!?&w+RFYexoO{#)^uN zJK%Rb2$ruI1RMN@1^!Wif5))|dU6GtkZ|tgcdU`)|9MGoU=RX zjLMHzhMz_eG~1Grs#xEDdG*%E$66n$J30-Xaon4ZTz)6>I2efGQ>~*CV^Gqk-%JU&>` zQCiy9(b-u}T-^KURV3FZoc{j)n|yp4tE;P=rE%P?l`wgEzsuz0a!N{p|J)EA6O){l zcKg$S%ou_RhT3dp37r(3%PJV(oy%RylRdbFR99DT#G!af*Z0&xF^J__4_Qx7kBYW7 z%UErIUxwT)zNY@xB8JnnosN>%@<~0_CEcBWEI;tQ(5S zgW&6dENb^w(>CQym;cg7UB32(E?tg#C?yLFWo+5EUh?evxqg%T7fvltG93WHD&*5@ z_B*jOUAqYu)D(r!e6|<~d{FH6A=7&t|1Jg{5{AOTOYpdr1UX$q?;)^aZl8XXo!Q)j zoDR7e6%0LFB?JQuvJgPNMt{1l>zYW&|F8+sRkkrc{MQFnA9K*w&v0U> z_XH#`2By^eC-$a8g9Z47Im!|_Srd{H2p0GM-v?POaNE#yJ2sN{A)T%15mw1kOYt~- zpctoAFkoY2wSm~Rk9nyG@1-T&&?7r&_leh32M+wRq4o1TIQr7B8 z(=E&i3l%O%K(I)mw{xNYm_7urtjx%do10pmQ`%fPPT25GGymRvH@Pu0HY*rUYsj0M z_Bg81J@w|Bog06m?JyEXh*(gAnvP^#HuZyGb%)1)jQiseW~B8kO`#$A`BihR0`51L zIf2h;WAhUXo!)WmUShzBHbVmqc}};HHa1?um-WjFr|z=*7M4_p1UpVde)O0pQM8}mBPbVG#XbYnkKRe zT0;aJChMzT5lpN$aYR&CSF^9JoNNIw61%rdAeNQ6d5E@kiPU6k+<=sHs)mM!ypd6| z@cwd*%A-fm;%#hf_{K_k9{Z9qJdlx9L)7fr!}f_akvIK8{HS6dxp(MTRT9aP0BMWZwp9l2h)k;{C*D%SYPdRy z(z7tT?d50w)zw6KgMon;J6JzhzPX9q>_#?(GBri>SQx%>5aOi1r4UI+EV`YbfD+Xy zTp1ECen)=giYrq?p;^~x5D%R{C08x$HB@8@DN#HR4-cp3{x)|J(%gsKWpAN4xw(X- zDE?+$yBPKt{$h<-PNR1_&pO0<>jR5iJO{KpIn5uBU==z~KWu<+eh9E{yl9_Bdl%Lp zw-k}k)WbW;S7i7dt{$u_9+7-4jhpQ5PsZTe1x|WCGS1)Nx!oRFHx{NlJ}pW(Tu+M+ zPVz3y%j>X|azu4Mq^LcQ)E4z3Jxw|vNo6b`+1c4)jPl|2z#ngt`!$3ri!xK_x+Ds8 znAZAJ<~uKFefn&T5hRntuqAi2KO{H_b4b`#s2K*wYj-BKNlinC(T|+%66R?pn%@S! zz*`XSN5K)EEFTfAvyPa#ReqD~-0A0#2hjJp?NMAN?+({4_UXXmp1Lg*eWXb5gUnt; z2v5!SWVYmeSme2nnc6y@QfQg?xpR7{Eit?eg?0u|jtD3zh&f>SbPl8}fU|nbVD~qjm;E-~;oaAh zZ|5;$q(TS9`^i+r?y|S*Pkx%3)j?{`UKFJYItiygnP8Bj+&0sDC(Ef{1j7F8;-{5A zVITZJdH{I(pF#d(lmGb1fA-G*pir>0$rJT&VAHRxlE21VPwo26=DfL$X|N6J?u!Fh zmU!iHQ8%|}H1Q{ra;hb;@k!g)2H=;uTDfiE=-$GiCn3 z<*brA?nzp#cL!G{w@BH}P;3~eMD?7QSbR%nJ)+%JQHrcYe)8?hSxrnid z@2evqXANE$C~oRZmN#mN=Ftfs`wI)iLEmGy>!6(*_IK8jD=I4dIu|kMiJd7_#NJY+ zo^{2Jag-1|XMa6ajAt$DX^BcWhaNlMpskPV;kWa&A9{Ox*_+l*aRjVN)LRB>s;U|~ zXy3$kOCRx;J5ni5P|e<9*s2zwzj4qS2;SUuPESj_+cvY$@W4MfB;?YsO0P<|UG0f+ zu&`M#*9U!UF^P9gNuMP4+Lnlzy+|W`dtzc@#mvaa$bP(@RKR`v^M~+o(DhK-7l_L( zE!6@o2@2E~v#wh+^Yh$6PII&IB5sDDGqEz&#q-hkT47;f6n0DkSmB+?2y3&t*N*BAz1qkt%O?)RH*Kb-M~$+_1|r z`98PX*gmb82CQj%-dwgX+VAg&vkjKM*maw)`sTmQPWaq|o7k{=3qdj$qG;sk==jDs z(NJO;#ok~(xA|08H{O&1BVO!2OX0pXvs)&r@%Zt0tNGz9xhlLJdDpo4YLuu)sSvZ3 z7tig!?(X{Sm9ef~+&dT5M;3~Q$q&4_Eq{L2CrBwQ#JBvFFO{MY_1yDGQZ^~&)0I%6 zV)>P{N8ZJ@TO;L&fbodUOmc&;yZ ziEr-GOJ6pln~j#30h$K(?ZvRtAYWqIAtRPV+~W5P($O3{wY3ilu5`p{pa{kSX2aX` z&XA!gb|)3AO=Roo&Kl~7b#HTlOPe3%GKw#-RJL|=_}2oLK`o&s+By5tlVa;QLQ2l> z`+l!qX`Pme*wvS0=Ga{@$t9*8^qOC76A7K1QPb?}u4|J~PC8{ScKfUH2>;%Eqo!)k zgr{eZ#lxW|O5ieSy?ii5o%40{Ldklke9Pjd_qp@6sLs2khz)ZG)`^jCK4V>!r#q44 zvo>8Pq@OG-UMK7564A>x$vX(}eWnjT zpWvMY2^gIkh!Pq0tiC59fi5@%!~{lO^82S7Lq-imfQ;)+XVE6Dk;l$DjaxZ>d8a5~RF+1c%@q(Rl5RW1-{19k{*`?H$Y4SpOI zrs0*VjVu%IrD@&+-?_ySG8|zd#lG$YTLQs!FYt85 zk+Az%;59p>X~SL-P{=7Nw%Fn5cx?2nf*rB{bw=T|tR#UYppi?EQkRwIJKd?GjC%W{ z6h_nSi8_tXirpzL(wyc4yql!US739qv*XLZYx1A}xFE1I9vXVNPW8+^@NQBpJ5jgi z=W|l>S;vClaKqJ1_^d8OR^em2TVeHZ9*1oCaMt(l-d!Mju(o#eCC&Ou9H&tue#WTT zscT_jOCE;PD<>q@Awf`Yq^MYaH8weZGigjF@-#!zwflg%@3smp$*_{kKk?rhUB@@k zr~hjmy{;@%!_E_4g;4!<(SsaZB&HGmIY!<-I{KWF(@+L=O#GPfIi1H;<@ovo<;$zBxb%>C#OUJhY{}IlK zBw+svi;j*S-yE=sSn@jBs}pI%{_AB+3ARf~Jhony1xW{9XU;9(jD}wtJDU;S`t1=n zf@zlAGWvyug_ReM`|XJmtJyXl^2V*Pl&IGK>PznD+cgV}8HMp>;Wfj~16B>QBLaUt zYZO{>ZhENPEeK7hYG#)1V$(p$5k~sg4G0oopr*#gq?D8gG_K>MzbZV?vG$G3_M5*< znxrUnZoYc;O5}2z;a?vqy|8^TA-7^TW7^uKoN=l&+v$-(9bllZH*xQPkLso3`YTIvN;7qrpW&g6mb&e4h zeRu{32ZdFBQ0RaJHihV^s%*{5@z4;YJE}YXy2=T^-RzOXyt#bshWPMDx z67%x%nkJ%3#o7%1nnxM9Cyiz}y>GW{XEMgbNKf)o`IfE&v=g-an2w=CqJ(cFljsWman{^l6FYJUy0VP@m*44P4V!#Z zj^%&EYdv_oO?b`Ua^Oo#?8afmR=Kk1W?qnMlfh}51eDTA(28Q@EMr7Y0kBjkda=~c02X>_?dIv|NDbh!I{Aig=ZDI*MM2XpX2Q?U&uF4CZ1QS*kwqV( z$?)&7X>i;ZUf5V!g{7iAwRF7>oG5wBKQJq_`J({1>h9}{K{Mz$^{9!cSCjo^{;$xA zFUVOQv4Q^n<{wiS989H?laq>$&VuOp8O;HK%Hp`=w7+-(E!iIRo5<8V$S5HT(f+6# zs~d#XGhoMg7Et_Rf(9{tqr<{0kVZtSv8hQa2uoyZ(4l2Re8XDiFNBG=O}gwv zm`0w|ci?`wGu6Tv`Ni@VJ%Vt0Z}`YlV9cLuzq>~Gui0J&oA2>dZ@Yl&s^J>(U+qn7 z71HH$0@1K)%~NCz%)JQm=pw!FgVP*|r zya0E1ZzJi{CAZMHP$fzbqP_2ej?}X>m0Ms@NW5XvCaE9z`OY&_da5K8IRR`KMt1+t zZJ)7!;?Rb(PMiXCyqlNlkhctb#=i>YT({S06E;A+f?e@lNbF<@JfQmIi z?Ht0Il0VM_&onlvEa?5Sj0cYsin7(7rv`=$CQ6*ssd=In*3HL*qjl?*Q7!~MQc%34 z>2Ts%bZlU83qPwepEy=rvZhP@O$K=u<(9=l| z{FOi`?9>^5vA`fLLlq`1C(h_y2sqTPYNg~8M}utw=ls7v6U3WA|FE2fse54WwoXy`}iBt>!G%BFmv>#0kX0%g8cN<#M_#>wn^RnteZPU^%*-YTX8b~Cmj2i@#XW*OlB=7!%AR0`vyn4=4 z=B5aah=Nu@`N`%e1_BE94^14EPcIMe$>rrbckbMgEPg$E_xX1`W@hI1Afq-N^D@1=P;Z+zDlobnzJ zG3mLvZEwCLy-gTa%RKni(QyNCHwV_3e5Y6IYtmv8t7~1m_kJ=Re&XS=pZ|HU0p814 zFWzKnW=6_$0by!o#x*fHK8~$b_@!@W6|bztyn`xS%7VX^t%YsU={<$*QM#0(qE*tc zl~$@THZB^QyKV+Qa)0p0R=|%Wc?x5 zeupZR)@B?mEL^#HhxtmsDrk0TdfI|Py0l=v6U!zs(aCJ&CGuJ{?MlOvzif5^X_W}C zSekuN>}beyRqJ-F$9!7j#J35{T3lOe19m$@s+xGnfBgQSEtvMWF*bnL2kNOaE;wAn zART*Y1|DO5FplP~hwF12nHdXpm{@3W)FkOaq=RSzET$v8k140eUMrD0cf35*B`|4^ zK8>z%{>5;n!nDqrT3KbYYUY2xp7~KbGTwbvwq&`QpyllYF5~84fGeofL_{A;q@$C& zmCUsQPBt=K!vD%Qan@a%VQ(FsITFS|={=NQM8D4tG=#JpI zdKy0FDeB)q%*7Zi&Ps+64J2e%bZYjgtTZfqH^O>X{r#e3srwKzgI| zzkFt!{|s{yj_Ce3wxJtd@^Ajre+Z7QBADxIO8nH5&K7H!&R1*|8rU@yYIrgJxEaBz z3P3{C!Tn57hSK6^4R3~b$GeA&gLqP^j;5M5T+U16yxFe8ObAv24>T>QD(>+BdOw_C zd~&i8*{RY|DSlC)#8sSJS`(}u%n^#hpSw&sPm+{=0T^U* z=+nZ<)o#o#i=4#ryIfNoR zh7AW65G#Jf<3h_n@;mQk9DZDGcLVdY9?CL+AR<@&PeBUaOAdgTha;)Zf{ZXQ95L>v z6GK9vzk%Uu_)`8-^aTN9`+U27VtgcQ8vv%|fOM=AH-uFIDcFYo-BY|oM{?Zk|IbwZ z2U#U}iPGfq$%0Kk8mUtjzQM8Zvtw*6UDVG0H$>BRqbHrc)t(%HRJLOW|C9P)g4lw- z7q3u?@wR6eTFwpR zreWyh40by=9Mbd8ZVq063Y3(n2)ZoW5&mfHZIkQ@iplfEubT}dE)r>O9DjquPayi- zHsiEE4Rq;{=!INJ?;r8jF=T)91jOij{5_{_A?34|7aV)OMN5*voTRr#4`-5+ASXXFdO>%nC3~CE6>bP zZ#*AyT>kudUrA7!1oX!AlhjjTl^3reLoPM6G!Zz)IXLjcIUhbe*2H0V(p53JQnjaF zI&qPDV}LApw?yYoqi~WqQfJu=mMVwMDLW!0w(tFYl>lnfIVo1juBt?R#iiu(p8{XM z5`>FGQ9~k<=}?%2-CM$|4qB*2nL^vKUbeTlxQPCFzzyUosG$CR7~%%W-2CP8n@>Hf zm^97Fltj%U{b@x~D6;b$)S+o{2M;p;&53l1P$FrI@txT_u5S8vpV{907$4`;i?}A{ zX7zc(SlKUPYS;7%%I@24368|@*7%6-fRE)lTJ}lk#m2e4=v_Y zUAK^(ZQoKS#?IJEZFsesZ2MQJvRsTqR={v#MurM#L>i7%iOW*Bdh9tE;l#UB^+xN%`ny5`GxvNJd?}xxl z*47H9XJvi3XRv!jXu*RIn(w{ei!)%a1B~Yd$vdxVV-4_xV!t@k3JM8I9x)u+>=S!LPW?+R&yMY}K2&bG#=cc() zLE?g@nsGPEx7H7?_s-EzmWA)_3M!5NoVn`TX`GC=;PifbW3ob-EISot7Pm`-pV%@f zGV1cO!|PnE0}MCL{vE1ku17ck(AJJIeUl^qjAB2pRM6FQ zPl#Vh0{8SjU3vS13z=5(7^k5O~gehe;8%~_IM_9u~#r!4-#X|5h zQ#KjTwsmhSrOL{(iYALbIHRnwWmb0Bc?pEhRlj!!vgXPQ>G`eB=?7gb-rASdX~UGJ z1YMoZ6DRk6u4M1&Xs2^xOm21C#r0$kC1dQgLem z%PS~N>f8HZ*4Tu|X{U}E_u{^VY?%_`^WB0>I5w_4wtm7>LWwXjiTm4SSAX`C%asVU zZmB+|lr8x6HfJ#8Jr;M{&PTXU@?J(4EVYiq#n-GWVo$oK~#=wWLpgLw2mQcWxNj+gvd&T_OsEIrZ2r@6njz~*IS|!Zu%z|b91go@-jeH6(uzzu)jg7*?+SfaQ{aQS4kG5|GmasMKZ5!~E`PR-z**1yIxRIXF^slDht%O=a9ySK{Rr z;njME)j@|gsV4@b8Gs{|JPP~p;by#ddM`dV509*;X9YMzqSfb275gM1Cr1gFi0UTb zdET1nXE;HRCAwhq%=Ih!xREC)yM1XGHxU#PV&vf9Fe7t#-Wu$9(J#LFgIan{PI!O6 z)-e|;h2Z9issch1#V5ySNb-NVw9n9(TKdlAk-wMPEP>Cr$Ta=d&s%k%25E&~Q8&RU+JB0}3CR3ePio94XV&loT z!Kb3onhr(fbcxr5vdTZYsiLa@zbC;G^P-ETJvR_bk%O`5)GGiFGBQ<3%Q$()JL4%N z=*7Lf9QiKjMMg%3WLxVsA?GZGXzuhnMnI~VPj(ep0a}p~Wdqow&d$zDUi(8^6&gQ# zNTy_(-VBQ#H0d4E1D!-DvFEan%G0OUZ8A5ffM~lJYYotvIY6B99c6G+1Um4=D)d;- zeXN{G3RRNpe*?rm@*tr$yJ?wNnwkcS9qqK~gm;LV$mGIocGsg!;@|tRm!>s^UEHr| z>q3YBQbiB9wZu;jpy9dK`EBVgrfA#&Li^|Y_ZXsBg5jB5hSqDG1x8dfHf1Xh9Lh`f z7SV0)W{UB`J6~%>fu?8`D3G*4UvR?faLP;4$IsKdsJOVvsZYm*y(dWzv8&ASi~ITa zH)DD*utBytPLt?hx1q#me`Y=->a8hZjgc#9iie|u$xgJVH@VXVfN zIA$xYLYbpvJVerui;doUXnp2Wkmwy2^{ilv+;UzT*g-`bgH~KtZtc>PasJM_&?aDx zNy;C`S4eN{In8#bYuZ@gAa&1wNQ6UCdxKNYwZB;2BcK*^yzTtsipKX?JrkV^c0<^C z%3ix&c|aBwHKTO*t&Zo;#Jwr1#5`&t=kKwQej`tsB#kO%R0TMwmFKnX>-C0j{g(+U zfDQERgb#lcdtG&?xIWg#rd4=*vs0eq2QAm7Y$Vxjg94MbKqp7X$aitH$UFcUM4mCk z22<^gGl@~g2*IuAH7a-2+-aujjOG)4Y2Jw$-z*14?JmKWnYYl}(^44rp?GR5o>fvJ zFk~yXw6@*s|B`)V%Yo~cJ8Gxdpgcz zK})|wC@Wj9Qa3he_)Xu7*)s4RkHrj}ltZmIHZOV(PYoGeCDy0{OQgIu15X{=J|?ee zJhz{%VXj;IF^k9mkj}y51dr7XsoRrEM*rMUZ1=F`_>qLRSgP2wE}747YPK^SD7K*x z2~4l37}}5HG6|fvlO>!XT^>lKG9EM#b&5jmk28&0KDrm+{N<&*rlzJlj^lp)dxn)d ze@PZwaAJfVJrKH42e|U@IR_dr^>s_C#qeWVQ z8{Z>R1%fBApe?u61}4RHDus1lZ%-FjUqg?KreXKBmdQxvt)$DC(FHb%2zX6K@zdHG z(&?d8s{6bBw8!Tz1X{JdT=ox!kIMPcGcDxg7`JaE707sS0B3zBLHqOGF3ns;S$NF6 zM@}0THcPNM%6Um>YfY`K{7Hdvz}G&nxVz6@Oz-sy46^-vt*Uh!YKgV+Ekm0h<5ik0 zsm$HcK7Fxt!=XFv(PGWE9!6xD<7ky*l4i6R!J)Pys2cFiO+&`*4k2km0hLk5iM4|d1Y$0o(R+3S&d3_&vLZd4CmI6Tdr%`jUIuhA5ZUm_lU3jePNoMbwU0B-lL`w zrQ;;Bksj}nE-raqMBzDTv41>3{C-8@Y&I?}x=OmUk?Uo(t2?zfMtgMI1m)oz;p##X z58D#$Y0{rz{IG7XSz0vymMK0MkXdcqRRgIaMKb3W;1z4s1q8ZN9ketEnIGpxm%Zc3 zpCPKCh#u&c2Lj|vnS9Znt--e!4I10ply`qo+paOQdxKFGH%n#~y5c9h#+IFYkQJ#L z%aoXcWK_!{aUHgzz6vhBEmP8EL5Xv3aY-?32^{O-kknhFH~?&I9Kbl->5#DQv=>QPN* zu6wGvn2d(dt10$i#&6}z+RS%gJk$vAg&k9Ij6Jao#R_JUJYEkQ&! zC`9_Y?<*RW#HDA{>w=Yt&L{`9f!4w6)< z9p_SCKM~OlxWR?J+nJAkq{9|ti!~IeElpoaO0yAcK#!z-xXtn+=5onOb9^^g>>0$cM9E`Vbk@YTDRr^ zjO1k^oy8xkK6lWm_B7x$-%d3}1s#I)aQI*mzPemP+_XN^)q)uSV4*Xf+|LrxUi+RW z_8kcf_7mC&*lg_kSK5Wb+-Fr$AlJCMf2>5%&gHsKuy9)RvX%g>Ffo&g;w?Bn_E@p~gCp9mJRo=Icf(QwMQ5K-arzR_ zRCP~yZZfTQ61cnBSfuf3x*TluDQapR9jg=<_cwu<@M%ujs$55Oq5&j*4@01)7qqN3qt<8MNUbr zrNAD#au2C`O>Hyo;KX!w0m9vzoeC0}1dlFo(Q`^a$zei^r;k64y;10wHj6LF`xWp_#yUpZE zL=IXJi}ptVH?JTqEHDW` zM9=ed^!J;)_w-T+UKefI9pmWSMdDDyGXLKW(UthhcE86pm4j~B{(Ra zI}{ zJiz(?6|>frk9ofeOzLRo-YD&LMpPK4FuE!7YYQm4wubj?ueSC+=4!z|$XjgN>gCtH z%>eebGZrYA)`%e)(g|V&?vq@od)mBA3X%HG-{#bRT(kZv9y@XipsKrQODFh(1hL4? z<#x(b8 zEcL2jpvQ@XDh4z)_U@$aDbVhZoF5AXdGtD04*EMLG*W3i`CtOurNd~$@TQJ5hAmfH z+Ns@hzv{fGe(gr^yW^@ApvD%vPsShDP}bjuK0otujhyF6WTLzW=r3oyapOAk{BU50 zi&&V0>_jDrIs%R|{niV8BPn%jWpA6yXRl`VR}#p^Cm$Slc3Z@D>!_)R7>mT z^HIod{%77|+D>NEo(QGPz=X)8D#7jBx2IL&_w>Q>gO7FYhjm{2zSE1(h|H)i0U_%! zx?p`amnL&3eyc3Ci4zDR?*^fZ)0-5STt;ve<61WCc|E>I$W10&muf#f@6_G&$gI6L z^!=bXyc}Kkc9!w|dOKE8huNZ-3Cmaa-7XZb-%U5guSST0sjVaqxaJ`}5=jm98c@)e zb~9rHx#4C)-Bok_ZUejxRD7Yskn2=bs0Fv-bhwnr%v52Q5|_mWP-aI}Qax9pUcV~2 zln}vYAB0+0Qs!Qy@tN^p@90(b&<*l>TIpGiA5SI9<37`?E|MoL5q@p6%!u(?U-tLP zofezY=8r*67CF`%J=uQG2t{0H)Te*f_{JE(oHA2|riowe?jp9HMN|q_;toCf^q>Kp zhoJFVEUrAT60T=*Q=HDr73AjT{vM&|Ox-m^RYzci4YDeG6?uCh9E%8+aCBjM@rg)` zcAH^eRXVzHL%|;79L_RF zIRzi~DAv?%o9*Q)ccWT=nW}fV8euHLjhuZeS!yjfO~JC%1b?;17RIENy$>_^j0n6Cg< zu47{x)Pl^d_bQFw8|LC?t11ueek1nOCtR<4tGknsnpj*b5?14gO(NriTuZJx7FoQc zPhhI%M-Lmc+P%*Mty71P0J6nVCy&E56d%(s{%72imN)?dCg1B~bxJ2CDRg>wWc&rR zr$^W3Wbe09_O8^m=9qB>6})Ou=n6HD%?`T9gbn)1%m%IDUn9wkN7wc!cV?8ms2uJG zYw8XZ+WxM7$#la^lSLzkn`wHwbOv9x)!Nu0KUj3i@$L=AKg0V zMerL06sr8uM>F`Ui0b$3W7v(61%6_iEjFHA9{pL$`F$_RYz>q?`wP?sP!TXSNAofX z;xk_vbCCcC1H20_jGHc))t5g8Us<7fGXdSb(J58xl(}cEDpLEfIB>>#pyDE;GjOq0 zugE+sUAbvq7d0$cSne6o$A(6*Ch3Nx?S6jSm#t(C&RZxi*)~ z#5Pm()QKQ%>*}E4#9UrXsgw4ea7XYw&u`Jxy6>fR5x4Ht#Pw<$zy-iAg6(1h-r8fc z+aG-UhUpvIptbpmPDC%9-$gosMiO|=+zGCr%! zDb}>OBHnc Date: Wed, 2 Aug 2023 12:04:17 -0700 Subject: [PATCH 6/8] build: ignore html file generated when building README --- .Rbuildignore | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/.Rbuildignore b/.Rbuildignore index 56056bd..fc4d009 100644 --- a/.Rbuildignore +++ b/.Rbuildignore @@ -1,10 +1,10 @@ ^coursekata\.Rproj$ ^\.Rproj\.user$ ^LICENSE\.md$ -^README\.Rmd$ +^README\.(?:Rmd|html)$ ^\.github$ ^codecov\.yml$ ^data-raw$ ^\.vscode$ ^.lintr$ -^CHANGELOG\.md$ \ No newline at end of file +^CHANGELOG\.md$ From 58724c382500f5aa364623f9e64e7da5b3f80906 Mon Sep 17 00:00:00 2001 From: Adam Blake Date: Wed, 2 Aug 2023 12:04:44 -0700 Subject: [PATCH 7/8] chore: bump version 0.10.0 --- DESCRIPTION | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index bc71ae2..bd3e4fc 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: coursekata Title: Packages and Functions for CourseKata Courses -Version: 0.9.4 -Date: 2023-07-03 +Version: 0.10.0 +Date: 2023-08-02 Authors@R: c( person("Adam", "Blake", , "adamblake@g.ucla.edu", role = c("cre", "aut"), comment = c(ORCID = "0000-0001-7881-8652")), @@ -17,9 +17,9 @@ Description: Easily install and load all packages and functions used in License: AGPL (>= 3) URL: https://www.github.com/UCLTALL/coursekata-r BugReports: https://www.github.com/UCLTALL/coursekata-r/issues -Depends: +Depends: R (>= 3.6) -Imports: +Imports: cli (>= 3.2.0), crayon (>= 1.5.0), dslabs (>= 0.7.4), @@ -39,7 +39,7 @@ Imports: supernova (>= 2.5.1), vctrs (>= 0.4.1), yesno (>= 0.1.2) -Suggests: +Suggests: fivethirtyeight (>= 0.6.2), lubridate (>= 1.8.0), mockery (>= 0.4.3), From 07740b158775387b528182048bd3b02f889f22aa Mon Sep 17 00:00:00 2001 From: Adam Blake Date: Wed, 2 Aug 2023 12:30:46 -0700 Subject: [PATCH 8/8] revert: remove zargle, too specific --- NAMESPACE | 1 + R/coursekata-package.R | 1 + R/zargle.R | 44 ------------------------------ man/compare_score_distributions.Rd | 15 ---------- man/simulate_scores.Rd | 24 ---------------- 5 files changed, 2 insertions(+), 83 deletions(-) delete mode 100644 R/zargle.R delete mode 100644 man/compare_score_distributions.Rd delete mode 100644 man/simulate_scores.Rd diff --git a/NAMESPACE b/NAMESPACE index c4768d8..468baf3 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -33,6 +33,7 @@ export(theme_coursekata) export(upper) import(rlang) importFrom(Lock5withR,locket) +importFrom(Metrics,sse) importFrom(dslabs,take_poll) importFrom(glue,glue) importFrom(lifecycle,deprecated) diff --git a/R/coursekata-package.R b/R/coursekata-package.R index 03058e9..45eeafe 100644 --- a/R/coursekata-package.R +++ b/R/coursekata-package.R @@ -14,4 +14,5 @@ NULL #' @importFrom lsr cohensD #' @importFrom mosaic qdist #' @importFrom supernova supernova +#' @importFrom Metrics sse NULL diff --git a/R/zargle.R b/R/zargle.R deleted file mode 100644 index 2cce052..0000000 --- a/R/zargle.R +++ /dev/null @@ -1,44 +0,0 @@ -#' Kargle, Bargle, and Zargle video game score simulator. -#' -#' Kargle, Bargle, and Zargle are three fictitious video games referenced in the -#' CourseKata Statistics and Data Science course. The games are used to introduce -#' the concept of the standard deviation. This function simulates scores from the -#' three games and allows students to explore how differences in sample size, mean, -#' and standard deviation affect the distribution of scores. -compare_score_distributions <- function(sd = 3500, mean = 35000, n = 1000, ..., .seed = 5) { - set.seed(.seed) - kargle <- simulate_scores("Kargle", 1000, 35000, 5000) - bargle <- simulate_scores("Bargle", 1000, 35000, 1000) - zargle <- simulate_scores("Zargle", n, mean, sd) - games <- vctrs::vec_c(kargle, bargle, zargle) - - # combine all zones > 3 into a single "outside 3" zone - games$zone <- ifelse(games$zone > 3, "outside 3", games$zone) - # convert the proportions to cumulative proportions for all except "outside 3" - props <- data.frame(tally(zone ~ game, data = games, format = "proportion")) - props <- purrr::map_dfr(split(props, props$game), function(x) { - x$Freq <- c(cumsum(x$Freq[1:3]), x$Freq[4]) - x - }) - # re-format the table to be wide (one column per game) - zone_table <- tidyr::pivot_wider(props, names_from = game, values_from = Freq) - - print(data.frame(zone_table)) - gf_histogram(~scores, fill = ~zone, data = games, bins = 160, alpha = .8) %>% - gf_facet_grid(game ~ .) -} - -#' Simulate score for one of the *argle games. -#' -#' @param game The name of the game. -#' @param n The number of scores to simulate. -#' @param mean The mean of the scores. -#' @param sd The standard deviation of the scores. -#' @return A data frame with the simulated scores. -#' @keywords internal -simulate_scores <- function(game, n, mean, sd) { - scores <- rnorm(n, mean, sd) - z <- (scores - mean) / sd - interval <- ifelse(z > 0, trunc(1 + z), trunc(z - 1)) - data.frame(game = game, scores = scores, z = z, interval = interval, zone = abs(interval)) -} diff --git a/man/compare_score_distributions.Rd b/man/compare_score_distributions.Rd deleted file mode 100644 index 64280e1..0000000 --- a/man/compare_score_distributions.Rd +++ /dev/null @@ -1,15 +0,0 @@ -% Generated by roxygen2: do not edit by hand -% Please edit documentation in R/zargle.R -\name{compare_score_distributions} -\alias{compare_score_distributions} -\title{Kargle, Bargle, and Zargle video game score simulator.} -\usage{ -compare_score_distributions(sd = 3500, mean = 35000, n = 1000, ..., .seed = 5) -} -\description{ -Kargle, Bargle, and Zargle are three fictitious video games referenced in the -CourseKata Statistics and Data Science course. The games are used to introduce -the concept of the standard deviation. This function simulates scores from the -three games and allows students to explore how differences in sample size, mean, -and standard deviation affect the distribution of scores. -} diff --git a/man/simulate_scores.Rd b/man/simulate_scores.Rd deleted file mode 100644 index 8d6c6fd..0000000 --- a/man/simulate_scores.Rd +++ /dev/null @@ -1,24 +0,0 @@ -% Generated by roxygen2: do not edit by hand -% Please edit documentation in R/zargle.R -\name{simulate_scores} -\alias{simulate_scores} -\title{Simulate score for one of the *argle games.} -\usage{ -simulate_scores(game, n, mean, sd) -} -\arguments{ -\item{game}{The name of the game.} - -\item{n}{The number of scores to simulate.} - -\item{mean}{The mean of the scores.} - -\item{sd}{The standard deviation of the scores.} -} -\value{ -A data frame with the simulated scores. -} -\description{ -Simulate score for one of the *argle games. -} -\keyword{internal}