From 13b10dc873c3d09b094596afec5f65319af5e06d Mon Sep 17 00:00:00 2001 From: Daniel Sjoberg Date: Sun, 1 Nov 2020 18:54:58 -0800 Subject: [PATCH] Mice nnet (#666) * adding methods for mice and nnet multinom models * Update DESCRIPTION * Update DESCRIPTION * doc update * Update custom_tidiers.Rd * Update DESCRIPTION * doc updates * updates * Increment version number --- DESCRIPTION | 5 ++- NAMESPACE | 4 ++ NEWS.md | 2 + R/custom_tidiers.R | 39 ++++++++++++++++--- R/tbl_regression.R | 4 +- R/tbl_regression_methods.R | 51 ++++++++++++++++++++++++- R/utils-tbl_regression.R | 16 ++------ man/custom_tidiers.Rd | 29 ++++++++++---- man/figures/pool_and_tidy_mice_ex3.png | Bin 0 -> 20021 bytes man/figures/tidy_bootstrap_ex3.png | Bin 19949 -> 20344 bytes man/figures/tidy_mice_ex3.png | Bin 0 -> 19524 bytes man/figures/tidy_standardize_ex1.png | Bin 28340 -> 28340 bytes man/figures/tidy_standardize_ex2.png | Bin 17620 -> 17620 bytes man/tbl_regression.Rd | 2 +- man/tbl_regression_methods.Rd | 15 ++++++-- man/tbl_uvregression.Rd | 2 +- tests/testthat/test-custom_tidiers.R | 10 +++++ 17 files changed, 142 insertions(+), 37 deletions(-) create mode 100644 man/figures/pool_and_tidy_mice_ex3.png create mode 100644 man/figures/tidy_mice_ex3.png diff --git a/DESCRIPTION b/DESCRIPTION index 7cb0500e43..99633ab812 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: gtsummary Title: Presentation-Ready Data Summary and Analytic Result Tables -Version: 1.3.5.9006 +Version: 1.3.5.9007 Authors@R: c(person(given = "Daniel D.", family = "Sjoberg", @@ -60,7 +60,7 @@ Depends: R (>= 3.4) Imports: broom (>= 0.7.0), - broom.helpers (>= 1.0.0), + broom.helpers (>= 1.0.0.9000), dplyr (>= 1.0.1), forcats (>= 0.5.0), glue (>= 1.4.1), @@ -84,6 +84,7 @@ Suggests: huxtable (>= 5.0.0), kableExtra, lme4, + mice, officer, parameters, pkgdown, diff --git a/NAMESPACE b/NAMESPACE index e1eddf1e5b..8a72cdddac 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -27,6 +27,9 @@ S3method(print,gtsummary) S3method(tbl_regression,default) S3method(tbl_regression,glmerMod) S3method(tbl_regression,lmerMod) +S3method(tbl_regression,mipo) +S3method(tbl_regression,mira) +S3method(tbl_regression,multinom) S3method(tbl_regression,survreg) S3method(tbl_survfit,data.frame) S3method(tbl_survfit,list) @@ -85,6 +88,7 @@ export(modify_table_body) export(modify_table_header) export(num_range) export(one_of) +export(pool_and_tidy_mice) export(reset_gtsummary_theme) export(select) export(set_gtsummary_theme) diff --git a/NEWS.md b/NEWS.md index 802faab653..93ed172c68 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,5 +1,7 @@ # gtsummary (development version) +* Multiple imputation models created with {mice}, and multinomial regression models created with {nnet} are now supported in `tbl_regression()` (#645) + * Added warning message to users when they pass a data frame to `tbl_uvregression(data=)` with column names containing spaces or special characters ( #686) * Updates to `add_global_p.tbl_regression()` allowing for variable names with spaces and special characters (#682) diff --git a/R/custom_tidiers.R b/R/custom_tidiers.R index 9ff10928c9..85bd56a5f0 100644 --- a/R/custom_tidiers.R +++ b/R/custom_tidiers.R @@ -18,11 +18,18 @@ #' The tidier uses the output from `parameters::bootstrap_parameters(test = "p")`, and #' merely takes the result and puts it in `broom::tidy()` format. #' +#' - `pool_and_tidy_mice()` tidier to report models resulting from multiply imputed data +#' using the mice package. Pass the mice model object *before* the model results +#' have been pooled. See example. +#' #' Ensure your model type is compatible with the methods/functions used to estimate #' the model parameters before attempting to use the tidier with `tbl_regression()` #' @inheritParams broom::tidy.glm #' @inheritParams add_global_p.tbl_regression +#' @param pool.args named list of arguments passed to `mice::pool()` in +#' `pool_and_tidy_mice()`. Default is `NULL` #' @param ... arguments passed to method; +#' - `pool_and_tidy_mice()`: `mice::tidy(x, ...)` #' - `tidy_standardize()`: `effectsize::standardize_parameters(x, ...)` #' - `tidy_bootstrap()`: `parameters::bootstrap_parameters(x, ...)` #' @@ -50,8 +57,11 @@ #' #' #' # Example 3 ---------------------------------- -#' tidy_bootstrap_ex3 <- -#' tbl_regression(mod, tidy_fun = tidy_bootstrap) +#' # Multiple Imputation using the mice package +#' pool_and_tidy_mice_ex3 <- +#' suppressWarnings(mice::mice(trial, m = 2)) %>% +#' with(lm(age ~ marker + grade)) %>% +#' tbl_regression() # mice method called that uses `pool_and_tidy_mice()` as tidier #' #' @section Example Output: #' \if{html}{Example 1} @@ -64,19 +74,19 @@ #' #' \if{html}{Example 3} #' -#' \if{html}{\figure{tidy_bootstrap_ex3.png}{options: width=47\%}} +#' \if{html}{\figure{pool_and_tidy_mice_ex3.png}{options: width=47\%}} tidy_standardize <- function(x, exponentiate = FALSE, conf.level = 0.95, conf.int = TRUE, - quiet = FALSE, ...) { + ..., quiet = FALSE) { assert_package("effectsize", "tidy_standardize") dots <- list(...) # calculating standardize coefs std_coef_expr <- expr(effectsize::standardize_parameters(model = x, ci = !!conf.level, !!!dots)) if (quiet == FALSE) - inform(glue("tidy_standardize: Estimating standardized coefs with\n `{deparse(std_coef_expr)}`")) + inform(glue("tidy_standardize: Estimating standardized coefs with\n `{deparse(std_coef_expr, width.cutoff = 500L)}`")) std_coef <- expr(effectsize::standardize_parameters(model = !!x, ci = !!conf.level, !!!dots)) %>% eval() @@ -109,7 +119,7 @@ tidy_bootstrap <- function(x, exponentiate = FALSE, # calculating bootstrapped coefs boot_coef_expr <- expr(parameters::bootstrap_parameters(model = x, ci = !!conf.level, test = "p", !!!dots)) if (quiet == FALSE) - inform(glue("tidy_bootstrap: Estimating bootstrapped coefs with\n `{deparse(boot_coef_expr)}`")) + inform(glue("tidy_bootstrap: Estimating bootstrapped coefs with\n `{deparse(boot_coef_expr, width.cutoff = 500L)}`")) boot_coef <- expr(parameters::bootstrap_parameters(model = !!x, ci = !!conf.level, test = "p", !!!dots)) %>% eval() @@ -130,3 +140,20 @@ tidy_bootstrap <- function(x, exponentiate = FALSE, tidy } + +#' @rdname custom_tidiers +#' @export +pool_and_tidy_mice <- function(x, pool.args = NULL, ..., quiet = FALSE) { + assert_package("mice", "pool_and_tidy_mice") + if(!inherits(x, "mira")) stop("Object `x=` must be of class 'mira'.", call. = FALSE) + + dots <- list(...) + + # printing code that will run + mice_expr <- expr(mice::pool(x, !!!pool.args) %>% mice::tidy(!!!dots)) + if (quiet == FALSE) + inform(glue("pool_and_tidy_mice: Tidying mice model with\n `{deparse(mice_expr, width.cutoff = 500L)}`")) + + # evaluating tidy expression + expr(mice::pool(!!x, !!!pool.args) %>% mice::tidy(!!!dots)) %>% eval() +} diff --git a/R/tbl_regression.R b/R/tbl_regression.R index 2de10de414..15799c2cdd 100644 --- a/R/tbl_regression.R +++ b/R/tbl_regression.R @@ -15,7 +15,7 @@ #' #' - `"lmerMod"` or `"glmerMod"`: These mixed effects models use `broom.mixed::tidy(x, effects = "fixed")` #' - `"survreg"`: The scale parameter is removed, `broom::tidy(x) %>% dplyr::filter(term != "Log(scale)")` -#' - `"multinom"`: This multinomial outcome is complex, and the returned object is a `tbl_stack()` object with the parameters for each outcome stacked into a final object +#' - `"multinom"`: This multinomial outcome is complex, with one line per covariate per outcome (less the reference group) #' #' @section Note: #' The N reported in the output is the number of observations @@ -193,7 +193,7 @@ tbl_regression.default <- function(x, label = NULL, exponentiate = FALSE, table_body <- table_body %>% filter(.data$variable %in% include) # model N - n <- table_body$N[1] + n <- pluck(table_body, "N", 1) # adding character CI if (all(c("conf.low", "conf.high") %in% names(table_body))) { diff --git a/R/tbl_regression_methods.R b/R/tbl_regression_methods.R index e7177f109c..422e0609c0 100644 --- a/R/tbl_regression_methods.R +++ b/R/tbl_regression_methods.R @@ -1,7 +1,7 @@ #' @title Methods for tbl_regression #' -#' @description Most regression models are handled by [tbl_regression.default], -#' which uses [broom::tidy] to perform initial tidying of results. There are, +#' @description Most regression models are handled by [tbl_regression.default()], +#' which uses [broom::tidy()] to perform initial tidying of results. There are, #' however, some model types that have modified default printing behavior. #' Those methods are listed below. #' @@ -31,3 +31,50 @@ tbl_regression.survreg <- function( x, tidy_fun = function(x, ...) broom::tidy(x, ...) %>% dplyr::filter(.data$term != "Log(scale)"), ...) { tbl_regression.default(x = x, tidy_fun = tidy_fun, ...) } + +#' @export +#' @rdname tbl_regression_methods +tbl_regression.mira <- function(x, tidy_fun = pool_and_tidy_mice, ...) { + tbl_regression.default(x = x, tidy_fun = tidy_fun, ...) +} + +#' @export +#' @rdname tbl_regression_methods +tbl_regression.mipo <- function(x, ...) { + paste("Please pass the 'mice' model to {ui_code('tbl_regression()')} before ", + "models have been combined with {ui_code('mice::pool()')}.", + "The default tidier, {ui_code('pool_and_tidy_mice()')}, "," + will both pool and tidy the regression model.") %>% + stringr::str_wrap() %>% + usethis::ui_oops() + paste("\n\nmice::mice(trial, m = 2) %>%", + "with(lm(age ~ marker + grade)) %>%", + "tbl_regression()", sep = "\n") %>% + usethis::ui_code_block() +} + +#' @export +#' @rdname tbl_regression_methods +tbl_regression.multinom <- function(x, ...) { + result <- tbl_regression.default(x = x, ...) + + # adding a grouped header for the outcome levels + result$table_body <- + result$table_body %>% + mutate(groupname_col = .data$y.level) %>% + select(.data$groupname_col, everything()) %>% + group_by(.data$groupname_col) + result$table_header <- + table_header_fill_missing(result$table_header, result$table_body) + + # warning about multi-nomial models + paste("Multinomial models have a different underlying structure than", + "the models gtsummary was designed for.", + "Other gtsummary functions designed to work with", + "{usethis::ui_field('tbl_regression')} objects may yield unexpected", + "results.") %>% + str_wrap() %>% + usethis::ui_info() + + result +} diff --git a/R/utils-tbl_regression.R b/R/utils-tbl_regression.R index 8a503f8641..4008df961a 100644 --- a/R/utils-tbl_regression.R +++ b/R/utils-tbl_regression.R @@ -96,17 +96,10 @@ tidy_prep <- function(x, tidy_fun, exponentiate, conf.level, intercept, label, gtsummary_model_frame <- function(x) { tryCatch(stats::model.frame(x), error = function(e) { - ui_oops(paste0( - "There was an error calling {ui_code('stats::model.frame(x)')}.\n\n", - "Most likely, this is because the argument passed in {ui_code('x =')} ", - "was\nmisspelled, does not exist, or is not a regression model.\n\n", - "Rarely, this error may occur if the model object was created within\na ", - "functional programming framework (e.g. using {ui_code('lappy()')}, ", - "{ui_code('purrr::map()')}, etc.).\n", - "Review the GitHub issue linked below for a possible solution.\n", - "The model N will not be available in the output." - )) - ui_code_block("https://github.com/ddsjoberg/gtsummary/issues/231") + paste("There was an error calling {usethis::ui_code('stats::model.frame(x)')},", + "and the model N will not be available in the output.") %>% + stringr::str_wrap() %>% + usethis::ui_oops() data.frame() } ) @@ -126,7 +119,6 @@ gtsummary_model_frame <- function(x) { hide = FALSE ) - # estimate ------------------------------------------------------------------- if ("estimate" %in% names(x$table_body)) x <- modify_table_header( diff --git a/man/custom_tidiers.Rd b/man/custom_tidiers.Rd index cb9880864e..574b29afa8 100644 --- a/man/custom_tidiers.Rd +++ b/man/custom_tidiers.Rd @@ -4,6 +4,7 @@ \alias{custom_tidiers} \alias{tidy_standardize} \alias{tidy_bootstrap} +\alias{pool_and_tidy_mice} \title{Collection of custom tidiers} \usage{ tidy_standardize( @@ -11,8 +12,8 @@ tidy_standardize( exponentiate = FALSE, conf.level = 0.95, conf.int = TRUE, - quiet = FALSE, - ... + ..., + quiet = FALSE ) tidy_bootstrap( @@ -23,6 +24,8 @@ tidy_bootstrap( ..., quiet = FALSE ) + +pool_and_tidy_mice(x, pool.args = NULL, ..., quiet = FALSE) } \arguments{ \item{x}{a regression model object} @@ -39,14 +42,18 @@ Defaults to 0.95, which corresponds to a 95 percent confidence interval.} \item{conf.int}{Logical indicating whether or not to include a confidence interval in the tidied output. Defaults to \code{FALSE}.} -\item{quiet}{Logical indicating whether to print messages in console. Default is -\code{FALSE}} - \item{...}{arguments passed to method; \itemize{ +\item \code{pool_and_tidy_mice()}: \code{mice::tidy(x, ...)} \item \code{tidy_standardize()}: \code{effectsize::standardize_parameters(x, ...)} \item \code{tidy_bootstrap()}: \code{parameters::bootstrap_parameters(x, ...)} }} + +\item{quiet}{Logical indicating whether to print messages in console. Default is +\code{FALSE}} + +\item{pool.args}{named list of arguments passed to \code{mice::pool()} in +\code{pool_and_tidy_mice()}. Default is \code{NULL}} } \description{ \Sexpr[results=rd, stage=render]{lifecycle::badge("experimental")} @@ -66,6 +73,9 @@ merely takes the result and puts it in \code{broom::tidy()} format. package includes a wonderful function to estimate bootstrapped coefficients. The tidier uses the output from \code{parameters::bootstrap_parameters(test = "p")}, and merely takes the result and puts it in \code{broom::tidy()} format. +\item \code{pool_and_tidy_mice()} tidier to report models resulting from multiply imputed data +using the mice package. Pass the mice model object \emph{before} the model results +have been pooled. See example. } Ensure your model type is compatible with the methods/functions used to estimate @@ -84,7 +94,7 @@ the model parameters before attempting to use the tidier with \code{tbl_regressi \if{html}{Example 3} -\if{html}{\figure{tidy_bootstrap_ex3.png}{options: width=47\%}} +\if{html}{\figure{pool_and_tidy_mice_ex3.png}{options: width=47\%}} } \examples{ @@ -107,7 +117,10 @@ tidy_standardize_ex2 <- # Example 3 ---------------------------------- -tidy_bootstrap_ex3 <- - tbl_regression(mod, tidy_fun = tidy_bootstrap) +# Multiple Imputation using the mice package +pool_and_tidy_mice_ex3 <- + suppressWarnings(mice::mice(trial, m = 2)) \%>\% + with(lm(age ~ marker + grade)) \%>\% + tbl_regression() # mice method called that uses `pool_and_tidy_mice()` as tidier } diff --git a/man/figures/pool_and_tidy_mice_ex3.png b/man/figures/pool_and_tidy_mice_ex3.png new file mode 100644 index 0000000000000000000000000000000000000000..0fb4316546e538eabf3503496f5e5118b430254f GIT binary patch literal 20021 zcmdSB2UJsAv^I*Oas&|@ph!6?NE1=%U8RHc-hzeRA|)VQjf_7U#ppU($KK*ocx|r*XQ1#q4|?WUFnJ8oAgy& ztMeBAxO)@5)VHtjG)M7+h;*3#a#Fw1=lgE=E3IH&{c-&TXDo5B^945EvWn-PY$fl= za664D<=w>_Wid7UOsBeS%PcM=68x->sfUM$%s`FLtB#vVCoP~!zCCuDhNkV!U*^D< z>oK|vz-8{T(<$H{*{4Flmrtt2XK85OZvFu@o8|#$4hwMUq81UEj>t2?u5NU|*Q%wN z;NuFCXYD@}b+}FjKI1om0%c)R)5U`_uDb>sKd5n;4W0NK`_)W z*xhEcfVi2T2&PwI`NK`5f~Jx*1R$K+_rz(`#4l@8aOTAFH_5SC+k)YEIP zoahoJH|8~>uq9(Jy?rD7gB--?VuD<{lRo9e^7pjzX#LXHw|at{?1SIFCxlLlCXg@l zN$>rPbyR()k9o@4!(#PE9>m@0uE1@OV__O4n=2 z&v!L)SKmxlLe&X_aiy;62}*Y$d3Rn&9!yZIe1@K8BQPS8s7JB$SDc2CWnKzu9huU& zR}xn%1)`WgWcrbJ&A<94Hj|U#nUi~>vfdXe8-?05t~ib%Mgo1IS+uI1TTbw*yTfW6 zP#hu>k>OhHit*m$y&Y8wzr{$ZPIL$q%V-BvE=0F7tHbtZzcJTN>)-U}Kn2i-jTg}S zbJ4>=Qfu9CtjD}o*hrIddlDg7e6Q&^;nmPCeD*S?vo@Za2TaS&KOz~BJlfl7_jRf5 zMYV(glLK6+dG(9R9bf2nT-BHQ+aS0Y<-Y739Mr?woUQaKbbVl8Nwst%Z=$m&aprX{ zf+Qkob)OsK=l?V0>YB6ISmBHHwtkyF$jlCfQhSuPuw_wWR;_R)HPOlOYkM7K>u#WL z#l3@XuZHmO*`E`NfyAA}XLGt-dC!GE^3-q@9Ewwn*tVo}c^Ji}{VONfSSU?J)kVaC z4qmn}Kc8rh!4BLRjRm3DvKg*x24&jE?9L-RYn%t_+Oas`g%(5!Lz1sdXqg&nciw9^i#grgt3NScX`H3`0?xgMXq zwO6S>cH(#IEi^_8SS%Q%5i|DVSIkJ%q)Zpby7oxhQi%NuyqROF6BygLCodav$0=i7 z)>I)TOur~UA|>KpUo6`G^Yypg&*d=G;QeQp_~MBqR=(i6wHBgxiJB<2F)J2tUsICAS1_O`wGd}8L%xuIB=IszR-4{kG|iLe=I5S>Ew#@*hf`xGLMFewO@umYmlNgvmY0|20Af0_=YmQc4^t0JxSDL>BML^ zU+Hz58vfXw!^v-S#uY-+E9o1Yr{iFFTCTjfu%9`fN4w3S1ZE$NSP&pOa`}b~sx5dV(c!E8sLO`AdCR?OKWp1@orPextho`?+u& zTwyK8!`T;8-|N>5F~c)io|So0U1}X*zSZx7N_Aa5^j;V&5UB7{_}Hq6yxjz4RQS%y z#>Jqbo*e^gEOch_(YhAZRBFL!x9e`>&t?Yp4&kKN>F-gvfG-z3KeiTHy6v&P>@Izm z>x_qjqE)4@_VZe9-FnGU9UtDI$;uC-`|s#nWXSVRgaSdC-6NyhM}B=x%n9;g+KJp6 zxsUVQR1u{dHJ}~iWw|R+P52!@JW1Lj1hx9JnSCMgrg(7KPy21AJ%VgVj2YtH8>D0L z;j~b_@$K_$4Q_oJj~9i=*xs2R<;_D=s6%5kqkOV}rR!GcqVpJ!1&&dpuVH!bkC#{o zX_r#!a;;D*#XM?m}K9vF9A|-J-nk;8IJIe(mUO7Ow?4t!?8nU}oz%&sv#9nk90xmE^%p zYLh5et@~cy=_4KzDQ3n4M7ldYn60=qNQ zD>7xx6y}78**nq=VbqFfZ`fB~^FQi%cYK?^2nIK$_!gCa(p>q7<~31lEeD6)>0TkI z%RmlyDe4^0nHGZGKt=_QP5TH;xuF3bL(D4Gprr;gRsb zGCJLk51EtHpRqVTHtWtFUrhJWek-S*|NI*NXCa?G zelVH#c*K8e%0Ih*u+P&av1jt53J%d)27O@mHAgtRpw6zq#eAX!6ghV$zx;Tvi7OCN zAJV%5nHgM>@a?zXIOS^_j@4B8;lg&joiJ1xgl4gWi_tY(4jueOl4EwF}rN=;q}+X5F@ zWKn)=@i~^z2_U*zbTrxapCl z(`0jx7S#Gu@ZB^GT1UxgdK|{Eq2y~z+SlEim#ov%WK_f-?b_f<1uHYl{T^*0<29EQVtmS`{t)%j)>W$+#j>lN{0k(Wx* z2ozY4Hsa<$Nu-vyxfeWwi=*@Q}VWhTm_BT{Rdj`4VwANJL2x$Fv&>(!^LU`fPCW z?2ZXFKX^EaA#UFW*neV^O>Qx~@&7s-6sQ_@-`QT$wiiun@RKtG zRG-iA#MOs-0m)S`cMEQc*IC48wamxe|HD^s-|e(zqHkaQ_crR<5$vfZZ6_?gNmy@a zjsFutKb)?MH7j4SHKF!H5OYjWRkR%Ul<$Smb&x=k!HE0#!T(SRxc^ z#*W3BQZO**T7`_w9EbY}TQ~o1Qya+IXr+8azd59tJ7Y+=z7+ceF@spGnqCpv!s^cPoWQT@i55;F){ruF15*ap&QQXBOLR%H5m%Xf!7_+M)Lky}x=8=++`VlJl#Ha(ESD~QdIka*9dK^;& z45EBTCowB@pE4QTn7D3&iMXe_4(YXCE(1@q$hFaiSB9?F;{W~{DM|IN8kkN*@_bcg+^N4wd>Ct zWVX9Tsx&im!!TTA9alx6eSKiumHMDy*G@g^+H)xC9G!p20 zn4q4~*;Q`61a8(bX4w!@K2AbfeaHyBh~GDhV~Ln_7zaBc2AV&3*ZPRKsT?iwxQs(s ztoEnJKP0pWd?&~(wx-E4!G8TJfI@FaHO0F4*Wpq+ZwsrwVj_722;YZ)I(=5}PfX=h zy$NDblt>$f`ahR=b&aPq5bF zux(S6TriD$=4h^WQ2OJYWHDn66e!?pGrr@M2htwMIMk`Y7c_n0wzIdRM0oexUKWm(o%q#5?gQ>KxF~-M^ zsCyq0Y3mBV)=}6R+M5!vi<+Ig-mAeMGG>XH?Gj$g($!(9<3u+77}C~Vzz%v+IWa4K zf37ryS&z~TiEWPphc9#XIDX+UBRq5e=Wo7f>YyaI*o;k$x-dg2Re%Xqka8V3zX4{l&AqvoXnV) zzUM~Yd4r$Q(*sK?u&d>L=5KT$_Jgwoj|Hx@;tubHEJM16y98yhkznN)7IG>XJ3L5( zO;qr;){zUgdEpb!Tq%4)Xo>j{F%bJZUewIe;zn63O~F^GB>iR9HIwf&L_J<*!20WquT1nm)EA@s@2@kt1O~(C1}Y6@6U2LNeg}rVmGk z+v4)qcP0I-*L-@yyu2CrQ?;4;Z9IQHES}5td>>YilrK!xY3V?Tur;1cBfvJv{_xvR zQ1H?u&%mu1!;ppBJ+acLBuWuJ2 zkT31j>VSq`E(GmZ0&prc=1TuSt^8a5A`S%H_kdIAUz0EY_KyD~WAjfB9U747j;ZUd z;`OvZEfd@8t;gdODf53Ie~!phD%GD51>8n+|B2?m%M1NeE&q2Jn}24Y{;M_ZT2>cn z7v*Ue6+J+Zx@KPzwlT4+Gk&iC?yKa;5j=dd5gf(`TUmP!O8GlFP8dk288gHykiCvZ zs=%Je)t`p(NC<(ELMz@qMp|l`-D<7&ZxA1t_#kQsy~)?uJs2r!yeBq(PotJ%81LH0 z5rD^4kL_F@kXI=9>6P15Bpjs}7-b(3M`G!PTOk;yQ9c)r1NdZ)V7AR*wiYsKfC!Kl zR<#rpM z_n`HMh{TXaMC-P25quhSf%3MNLSdhbyB+11LtF^eVA~yAiN59%%BZfM>o8_i-|nh4 z3hXKk94-~#InL0lB7OcL{!sq`zSMq|@X4^+#Qh+VFZ^^=69;MX%^^$higZjhVRg=l zLl1_CMv09y=J^woCJ{5oTL`~QL2m_MOE0xOR>4*J_QuG@9sjo&#Xz=cJV)@7PnL{B zy=}=^<6{Fw3;iq0bDWg(ozr)p1ADY1!_gH(U|r`p+XrWz!GrexG!MfN)rQrd2!JnJ zgMaBBiO#457nAO)I~9k5Q37gQ{N~U)xj-xw87WzC@@Tg^rxNm83G>|Z5b8h7!STAqrNTL zX&w&dz$~fmb4TmdEqXx@)^ZB3>I8Pj*_y%bsRn{?&-4e2vSpy^WuoLr(%2Wf34{F; zSg#wNhmChZ*3pUJywPNd6lneCZuhn&{KIJD-S}Ud_47M&T8l{IqS=-uqtLRtk;>YJ z7{}rmh^}C3bWw-abE;qYhp+Fw*U8-tCOSTey3WmI;ILSv4x$asbq=1Hl{Wn-+t*QY zK;C6FXIksWyR$2U_xx?`wveWQjF##e*QPekHzV)cIPaMq*>-P=zq=#7-=RO^p|@PK z)SERRc4O>d_Flj{sWDr-nkd$mz~&T*{cXiSGY$mwG)8K$Oh4`QToW-i%k^n9wc+TQ z%n7HvQl#H#+FCbnYJBb0|5h~y4d6LPo%iuYNTGIG9?csGEk{~ zI*!|ZJ3*$AxgW2yh5l^s^2;Ok7@boU2VLR^A8Oh8eLk1HU2cuSvaub%`&^y5eC~~5 zA6bU%R7W6{KtMWfb}_B*53nE044Sq9!fc38f+mzZ$9PL~ko+>gHc-k7Ux15tUBn}5 z>&?5uGo~f_WHy@1T-UDE*A->5;@b+vkrh!=?!mj{xzDE4PANtlp9f?!`-?F!GyOTq zn-inhW)Q*6(;Pm7$ZUBqP#Gd>d2E40TF}vbOdKO=&Aqng^27UXPD2`wJu?K;xip2r z5-!!nIN0qTKd0J)DrSP~GcRb`#9vFV!hdEP{#4z)P!pErBlCT0EYLEHTj*js)wC>z zNlxL$Vban)vRA9ZcSMs%=ew7oL9%tAQ*Lhb{(GRBE}QZPT$?wQ!o3A7T{JAm{Eok% zuCcErDwXi!*hrFNUa(_TY&+YVVtSC4_7yez7t>$1M@?R3EuCJaCD!+BJp#CAw+M<)UiOiS zQU{k(2aC35oV@W-au9SLr`105J8xz`pT0_$#JOTU?}c1f*Y6l=O^{GP%URdaR=;CZ zP<;2c3t`CWxc}>xAeOjBsM94Xhv&wcV9)})P0R%l*g^w5Bk|MzmyBA$q6?QSKABKw zlQ}(kVpTvb{IoXB_G^SrdaFxr=$GyXkQaI$os4n|42u-d7)Slxtb!rdk)Tlw!fiZ? z4Hfd2+tNs&*SwZV;Fv0YCjxA?C5$N>{3YX-gN*hj`Vdi0CYg7AM)@hP`D4G@Fc1mq zBB$gUPhg6-FGFA4!kg4`w{LlQ*;keIZlkllTli?#%pccP*kNdin_5MYX@O#2?>NztVVQcy$mXvzYc|Ja3hK0qeVk6#qJc z?_a4?m>P}mqBU(&ukZZD`XgHqnya9;yD%Stg(z2}t&*pugR_?kC)?#dG^y+kI3xSX7k@4&yc9LgaV$g)WCdOP~s`1zn5lq2+3Gr7SgHFQ^nDnqH5QFaFi|HT1QY zQXwHro?*<-TwA^LkJ`@LQR!{)aX|%chuB)T|YIm-C7YMrLYL`h@m z1iuU(hbWbq>oFy$I{ti4aEpy?}^eGxM5`MoXxCt>NSyOcOf~ zojsy_{J_mH8Wv;fhsB3R7xnB|ZKA`vI@`m5x#5~kM&1!*6dO3&Qpr*|Kk)#9oJx$}8`0cG!g{!~0BBH>owH}t- ze3^`g;Qk!b@R$~>y>nK5*Bm9t{Y5e49bWAuoaO-Cdg6cOEKcue25{_(B8};i0wXk0 zYcW8;CHD53_0_c4CMs>!(d1@%S;e8eSGl`9;m5b2@-AEFdjL@sJ7;u2rD&oYXQS{T}oCmAR!|WeUVnGL?3!tf)b& zxSx*hta@A`+0O@dvqF-Dy&-a)S+z|Q!?(9o&x??kQ%~a2Od5e|cW@NBHdbC!4mYM9 zqSO&V7K+C;N8b$y)6gzWGVe{LFJj|Cg1hN01$hq~R%V@dTfJooPFo?R#OkgR*koq7 zG0&Te+R>lyqoEAzbxcz$A-B`)N)%Gcf)~MHBTe@(%Fca9^{KJEMA$o-jM<5GZu%w; zTZP5mEQuKyc2$0{&oX$WV)O3OW5rHuA00AvZ5>5u(kt%o^FO;!2$%hXh1Wu|;8Sw` z*B?T?DyAkE)Ex8t2S=$&$gL{&sIhpcx^flHa<%t8{HKXoJTO_9Y*pXIy=46hf)3e2 zuadoF2M@i2QrNgsA%_JwzC|~BKiPwjV_MQDV#6%2LiDk(c6WL#UaZGN4}qPzB<9X( zw}`W97Bsz7&a`MwqvBTmN$e5~b!9!*bIY0DztpjR2Cvc!a5a~^B5Py;F5>_TSX)Ki z=9jwW!oW&hv?Wl>^9dQ$;)rbP=yTRXMx7pY$azsom2IEF*wrKW>V2R+gGj9UOJC@4AsG`OZZ*0 zz;ypujPyqgW`se6$;~}vd`hMDVfJ%_UjC5=6C+qjra4pD*SC3#W*#kCRs-B@iFJiZ zK)C*IEdcAjaP*d22?%c_)}#=cS~pz(>uddwUV&3SUa}INF4iw>0^KK9Hmh%R(4+1M zxZ-JMYExCp#I2p6GbRv&Jeg*A8GCVe04qJpktpV6BH(qk!C~iEzR!JrY~O&db$bU! zq25(=^{4VN7k#gIhzopi?mM+53G2o5yQ%wbY)U=zdBT#V#;j-QQj zBULK13}%R4q5t^?IpyG)0kNz65JK*k*djrM8#{7Xo}iMYJI;N~coSHO^Sf4sLboxF z2d>LR{@T|dZHpOKWvb@e%<8f^rK4>%B4}OGuKDAm3hLX-K;^#W@jkN|afdl=?OHic2q;iag9QSy~)(l(Nl zi%yACYv&swx?wv?T9Ua)r7AWz$Jg;Y1d*B*k$}lDtX3~&I@rb_oKxCb;=nGJJ2ozE zt#`uXP^Y6$goj=Q7jcNKw}`AWib7~PxN~vnY_E*^?f$?MI+J7$63A-dPO4a7o7W0# zp0Gr^xCjHsOa-(zGXF@)Aeaw*UpwEW&pT`@W-P|lQeI-$4<3WqPpOF$EnCB7QZPxb z&1@F~wU(~>MqO|PTZB*z0y>STkpqG3gAj7KO<}~1;G3Wq*73gbk%Qyf&`Rq5a1bQs z!DAPL`x^)KPx`+*X&47(cWLL_xu67#6 zWRns2L&2vIDd>OvvZpd}Wj=@2wXl<#;a@j)926WJ3`SgTv%cc*>nnjqAApc|yECQp z)Tmeg`nI)I`N+gIwh0Ca&y%isc1i-)qMrXyjbHG-QIoU&X+W}Se+>Q7)h#g*_}dcq-671? z$xH%$cWqA*$4e^-jC7Aq7v|{*4W%Yg%UCEqlf<-hP~kMk_uC`VHGF2t-o6b%evV&a zhNjn4FVO5o{!#a~WISj0x(0!U=1Bgj&~uom(ZP1Xrb~57qOd)-GIIt*n)bQQewJo$ z`(H#xw4DIY^dISu{;TZIZ_(1f|4>UX{%AJ%_z=D5eZp}0A03is%oSAs=DEnNGr-3J zd>+}D_j{O^H)W2WLf1s!OZ+=KiU6CZs0g>kL-K>xRWM8w@2c9Ic!jfNE!cq1o zBBetxT*zY3&)*-VITH&ZMFD)^+we+Or%}_NXwxSNhR4t1`1EqQ!>^qI;7~Y)+XCnd zcK1Zxw608fmDmXPac?UG0*QA#l+Zj;XnefF@eu*s(v~@{=*s4gkIp?fc4_Q*H?7&s zBI%KioaZOxZjcIWu{Qzv*jt4hoNn3&3g4N@N!)n=J}vb)dSZd6H|%Ro5C1gUyF71o zewhmproG**WpNtaP<%2iHO?7y#R1Ti0h6$aE1!~5@xi~5P4tVyXjPHhXNOTrn!v8S zD2VYvO<1Zn#UjvqRCIh0ZCaz8`;z$~)|({$#$=|XI?$K&!OZ>7G}pesGW?x@Uoe}$ zMOI}4i$L|y^D=bPjvV40tu0n>rU|S<&_Z9SFGCS}3$48B`8L-a#Q{atjh31rSph-i zB<_f~*j$Y6=wPZv%f$tM27@a+Y|8IeL$D`ZX(bdoxzKcWB*;lPU8q(58V}s^*dX(j zx(0LD%I=^|f4#5Za$ljc*r9py4bAsVp~4G+L9d`?{iYHo9qr8^afV@Zx2fKhV(N=N zc^IPeakCQ-NLcW27%i!rpa#Tabj|<+^0w(WON-rk8u_!Iw6w+MQi^k3k!?9J&EZA7 zVaCyp=px+Yzx0#DW~_8qOKLP~E1`~^9!{?7-9GH;gUyg;bAu-vpPwZgI+mEO41dqq4sHFuAI}FslsC zK06+_E&szJ;7%YHCJ-pi#*N)ccn%4gjCNdEY5bK%fB1gwCv}*`V2Sj&ROlXIS=>U$ z+;!w-3g>~|$?fJV2F`MFnss-Z>vkS(Fc>UojOfq!&Wv=pWQk$1mG2rZ&MRKE*Wm6ml&+{e5jQG21*T4QK0@WN870+F&1XhD*hS$- zqPsf}qv0C9C<_dhQ+8;ys5n<0ilYPey%ea8(b+ZI)P2@a^rG`$-F5{EHL@z4rIw#dOYPs* zaXv{Z9(YsHPtjmaG7$w>))yPBG&GM#C(D9n-=sY|@Jth!n|M^8nRN z9?a#mND93Uf2th9y>}(C38*3!<)kj$y}eM0Z&SGg@z4DAsz+R_&gD67e6)$iRaw)y zbmNYsZr&}z(_88qrvv{ox|yl6%LkbIH5>maI}&fId?I}x+etT{rmuLIZDjQ=&k z?SHd_09y2)lJ@=<5F_g~p zyCLb*CN!-7pA%sJ%Uk{bX*{MCAi*20$4AbdGQjY>l{-G7f-AC4`rt%RKC=#dDkM(U zNW+=`o^a>?1A)l(EDP}Cz>=>ZlP9-(NMhu4k>GPQKjHxeHlWDLCAh8o!_`3qio<(O7 zYE>6PtQC2Ck)Pm!LbdLh{WiJ)G?tBCdw?B!)S-3Vtd0#iuQR#>$Zr4Czs-NX3BSS= zb_I)iy-~{QTo+stgzTcvRnpJRCagFTSJE$h{t)`uxtXmp#{C6{dbXR65FOSOWS_5A zrgg(<;|OME{d@bm5U#nvCjDg9_4HbfbGv_2_T|cqZ5II`DPb!1#CJ!)&9Ay*r-O`w zVz-ji%GP^US}VCe1988GU{F=FwT|C*QR*rptZt0Vj%e}2N8eVD?fTiAZa`}WIAo5O z-WIc45ZMJGAN6c#!;C(`thB10UYc2GFsT6PN$lm?XDby#WV?dk=6h)e`#C0r=;<);qnTLb+y`TS;d@KZgN^%q z(N5%eOw7nt)~ur+Tb}kn;BK1UnMCKYeH?8r-R8I#+Zusv5$r_LwSI8Y=-9mLVr(pbKdyM5OJOh&jW9#vQ!uBpV$yXdbuR!pWZ=>rbyammshrukOh zadPR+d2C-#NJBY9Wc?|MF(D1IykD~U?&YQ(-8gN7+sbC;E%g--9OJ^;gnCuxfD;N? zza1b9OvSf#FI$IH`|hL#eXcyW)G`PGZOg}nzlUzw)mI>sqUx&(%{ai0?p^|bd=nJ@&kTz!1%Zwp@67r>O}RvU&P1E?JQ{B zO@&fA?#8Nc(FL`B9WV0d@eqtI(l;TCuj)sdVar5Uq9SV zfz>6n8a>3!4Z&XmQ@S%3%$G2ifLZqDvEyn9nuFgQ(Ud;mXjMZ=Er0s>N^$PnCyksu3#nAC&ws+AA)6xRrg8cP_ZlUKS1NB~}5|7qkNuEo_o2@Np{Sg^eFy|!!E zX&f~NO&!GQROYbJ=ZHu@BCq+1gjoHQy%_;0dzfwk+h3cCr=PT;EWyqqk!$=p-lN{$ z_r7045AS@^9S~Skdc{%x%WFKygArA8J|hBY6eyOiAmrJ+gs}wb-BWxioMu$Kv?i-D z%2jdKPkM4`TPK3qPt|FtFvllGZUra8MEcK5}r|`rG4&G<$+0x^peH z`d6Zukuqsb37trP4I`i3A4ck>t>bPrytSW7t@dv|pUFZSh)&L|6GFxXHe*2rPmK6%m=p(L{@qD0tTqpJ}EROFwq)x`y znHimRT%D40g-0(}&(QtMswXe#^Zc7sovbl}9dtRKTmMmnMl__;u#u27bjUJgQ2z?A z$(5(39>>Q9K|`}6v9FKjnPP$%QFCt$_Ir5?)NY^UL4Q>ifz}0O_A3H&Zcp%}Rl6gj z-gHdcf0lK}N(>e;)%o<@oPcdRsw~CRzJm{J)=^S_6s1yl2-U8Qiq@kmHVQ);X-Pxz z=NOG#O5?S59(cLBx^_CQ+|Sk8tRPX^vIB4ZrQiy z%Lczu=YJ7=o)r3@PZ|6t9R5#;?5Knqa(qa(PQ#w046g12S%%Js?0+M|>Hoo;0{>~_ zIeE$db7JCuwwC{8DF6RbC!A~z@S4oKP4rjPE1```wR<8ouN583H=N7O68OxH3xu$N zqq7L%ZYSGH`L9+oNdx^phAD+k#nqO7jJXYn@zM6Wh|&1`z&aX{yTQPkoM zM9m}s2_FExnv>sP{V!ot&#y4f#~6|w)`Kp~&!?OrntAC(@)IDH^Qg(Nnw+C&$nxy> zVz~C5Q(MeY+P%wKnwKeMA+@`Hk0-~*N{twv(A{_AIib2{V}kjmpDeIO zaqEfV1*G>GI{n(y!>$0`(QwtV;k+gMWF1!~AG}LA3UFjs(%|NKVj?GY!^I$Ut~kdQ z2PJUKoM1lGxpm>R*|{0K_OM8w)@ zc5E(2_S^evHq7mt&S}e=j(o!*(n`x5qoS!Zs3klqS`uUjsiakfrWuy0AoD8a7JdI5JKdJ2p%{23 ze88!?1G(ovD(wU9-i|XiAB#V7NOW8)>X>0m*D7^g?(cgAtfRL%nK7~tm^7J#Z1RfM zelBIe1*XSKx+RW4q?`Z?rpL{~uJt1t`sMvE-uO1e>Br@JrI_$kk-S%*R%NmUZo@Xe zEWHC<*g5rJI|AJzPl`8=Jj#iWS8Db?+SIDEv^j><-^zXP=TM+)QKI)~@)&CN3AD@$ za%=2`TuBt@bc`QoaS*UG9Pc0jc&KeJ$p zmdA%0oBJ2r`E%xLj2c>V%>`JyG8V-csFY4_t6P7HvlX!NlJMXJ7X9;&6WD9p3T1Ey zcmkx3wu!@~d3mo;({*yGlozBHrfNu(9I>1W2u zD_aSaH$W<6NdQY|p7Sr+)oki1n(Kcu`cEbx(lbp*JrD_6j7C7IjeC2QR6UKz%~I#E zvK$4JSL)$r7_sTt=1SBU1JuNU|H!;wexbA=lP>NGPh>Un>)s0uHC$1*921a4-DZW& zoJ4sa*4Q^qj_E=cvP8s|vc{%1t<>X`JOZ_R%zJlv-|Xq`c|@7RL!T&ikk5fsE%3qG zB>lZK(ZgY%Y1HkLbiv949onK(ZgGcWTXJ2#6DKavKe1~|UM0d9CmY843}^lYHcHZ3 zw>LTT3w8yw6u~-0-vs!et@iQg*rnzOmDqfxnk>V^Bm-CX+i&yoHVLruwKg}>f@GlY zi7EKrWELRHp+FaG1{>Q1!P1Zu_CIA^a)2J0$`RciBP_lHa?{cW2AM1YJyH|bTB8-~ zQIbjwwALtf#eqb-1d)q39C5f&^oWu1et93>`PY(v@)?R>+ho~zeBeQt278&K|D=lS zqVEaOM101!J6=%=ml-SaQ5Wnhs+(v+S3y+AlH^p;wPi{0kV z-4ajM-h?h8AR}&{Yq;n`JX3LnW6drB7BJgZ%$g42$+xFv=POZ*_!+Y9nS8Qhq zB?B?{yV({<&bXhyqyEP!rnufsEB6yh*sy4Nxsb~?51Oty?un|T3nhWHuXtcyca)+xlLmWSQa3 z6QqSQV*IrpFl)>JO^v$8ACM93B8QnmXGF!Hm$&jH$TDg@A^G0=y1 zfpjvoRpr*7sC*cMM9mReoE@rWyUrbwleU&z0HFjD*r^a((MB`#7-MZf8+C)MB#{Q|M8QAX)*Vt`nO zV8GLD&cM}g6b&snYBPEekq;zmO2o_TjrkvmtPCc1J*l0JKID%u5ZcyL)T*7Tuy)NF zvEKeJe?Kqw{r99bq~iu9m-JKJ;4mPDxg4J-N4fUnB>4LM?#@RQ{5?xXx^-XH5JLs) zS7-NE_=T#weI*%AjHX8J^D)%$>9bPkEQ4GEw-A?g_vlzM5Uh$jaafhsr@#|z+M0K* zOzZDTJS=v;`Z;YKn!*=;B`P-}&q2Ys{a7GcA`u$!GKO3KLBwulbDzelJE!;XArQl) zFN3~IL+sSzPF2)umH7q;bpsn5=jF-CQd1|a$4MGNgxNRaik_&yhD0JMTvMv5)3RAa z^mIk1Q{O<**-RZyK{cbA`8QX!4s)g|=4?;m)l4XrMcMR)e<5xDprPT!l}=qRn0mVn z#C&Pm`YU?DRyCRTHtGS_M$^z}X&a2OZTbI{7jBtTw1) z++6kzr~XO@F^!j=2&fK6fOd~T0lTnQ!q&vIeKe_Ub$`&*lXTJ;bULbU|3+;^KvX|; zV4xPjc1spD0KpgMaty>9$7`m~t>a}vnSUP!(c^UU*^kksRWe67B3eanrFB^bu<+qX zX8-8)GB-@fJ_8xxMd@nUoGOl#wu5$ORtBHKW_CRA9imapK~c;~>ZCz#AmlQ#Wp&sZ z_vz?sQ1`U-P}7m&wDAUf2R|8+tF*h3_!z+W_eY$HaX>P=X8zJU?cQ3#ctQG_ljIvz zWE~;_@Em0Fv&awd-NmEtLESS1rRJ*+BGD4VQ_V#2963jJytC}+uQh|KsqatGn0VLe zHb3L0uKh)aGp?!;+ffj-uC_3?jvfWSR0OXNuKJYPX2M-5dJ1n173Lo6-Nu0Hr&(y) z?lfr^N43@<>*}bS-?qlv2ND&?ob#leJR)!kN1JV>{)ixOnt~jflRJs=K|D7Q+?hMm ztcn8zKws0Upg_Ez!a268bCV$W-9Nr5gpREM*A-Nx0h|i}!&Uv>QXXmrJjfAAv_tBkH3g0zU$DXkPwM_e7G+ z-o3RVi^fj?7i*T^zsMzj&VD@@Gieg275`QKZ(}r#K5|P(B9fif15Au88V=I)tBYdv z5;zR}i&yf6%l14&TLqH^R&5K;)kE92*Kg9aty$h0>!L(+`|s(mKe-g_O#0|$%~f0h zTRGHz<;!&^kwr)CigJ&d-t#^ZZ|RSCf-9EkzJ4x{sogBe!hXL>=D8aJuLSIjzmpcM zVV`XB9RT$myCbuL|M4qdM1*Iyl6t~26~a3vUJbO08Xy5=jsV#!e9#NOPNbLWJ2MgYYG_#kA!-OHK|o{@{fu)&+Lat z=^0D4XF17dL64smAuTQ9t|;eaUew-#UoVr0uxUmX5^SF>*fV^Nd(72&R&ttR|6xC7 zqT?6E`5f%!Mzz)c=&wgxB-OkKwg%h2>%CblG3^gz&Z+0?2^%ill7t+iU;1VkW!C}8 zWnb5UTuqjw;rU%q>EU0~zQEtqxPJ_U7rC9+uAm*Dw z{nQk|Zdq~e>XsD)p0fW)BxR-OQ9%P+0_Z=k9fJ)LE zTbEfCU*xx6Jtj&Od#*{qfhn*VAOVk|3kt6Ll3afv|H-iF3j|GT0q!ilm*n}}8~M}} zBpT39OLKqRFU!0;?WWc9na#T@Mz>5`^(#iB+I-P7z#A4B0zWq7UVcLDK}Pj4Z$?OAJy~BUbG>V~df>-j zFEfA!;RyZvB~yD>EUVX&xF_*Gm7 znRZmU2JP^@*JHgd{sFY;PbF=F`Dzj8j!u^>|N0Qotj=CZ`IS|;eu?&Ow(pf#XCo!2h`LS-To=KG2Ql)9QZOITM^DrCmzHqJ z;r=}texqHvE5{$s#Zb#Qb4;}i#HTG}@2RLZ6G3bIe~@H@doF@v1Xe1Lb z1)qCeH-53#H!UE#+1K+vUCt8$8)vvG7(ixL9lL6cblM&nHBIH| zXORzvo5-K+8Wh|#k1F3GJVHVFw(fh(Rz{(@cEs$mHy)mnTP|JIysb^t^csi4P{+fp84Mv@L%DB7}tLun?K)7Z|wX2(KH}*Wrxk%^i@5U_Y`w( zul5Z3w>x?IuEM08d2wsPqt-567nXfCq}Ax+`lk;kPg>RSL|5qRodSl2iN1LYZ_HD* zKl^1%&E@wh;VXku(4*@DY!OeBh&Yab)Vna+e+pT%0l&-QQqJioYaFC?O^8^6AD3;VyoW@p?sUGsDM>chDh4DR%w zP1`J4EdUzbvsH@&?~&D0hK%xgKz5~0f{ZyXfvh~Bw$$(Ex5W4D-(UX}wB)2gSYKa1 zd~cr@WVb71Vtyi|d2Met`)t}9N1!T(?+Z|5R3JNbJ+WxQCiRz}XQjWTj-^lqp39-4~u-XS#0LKYw(Ep!m+gb-?|AtC|- z(mR3B2_%HjLI@$rnXG^BanBw1zvJKM?0xUu4KNKg)b8mr@+bQ7Y)PP+e}P1m^7X~G7ie# zoI`om;27OIlh~}ih);riR|nR$GX>|StaLuc^2EAwK`KSv#95-DJXso}_Y`yAwtwGF z+gDs*HP$!QhaXVXw^p*L9>4##vPxPGqY<%KtQwHxn|3-8qX_)NWEHD_5jZXX?(z#0 z(+j1?V!*{mwbC=dZ+6ZDC1tvIJ)aXeb=?{}#l-YA=uZ%Eag~_Yta>;f!KiQI2QI(9 zjbP9kCI*KM|F21rQF*`-Li`o@ofiw}e<_!Q|DB@!i-$h*Srp%nSs{aQ&!&;&v#42B zG6tymcGhdnaO!3k8z}%_OK97DFX*9TQspsE`>^gMC`jv|GNE4w*g-aaYAt2qy2j z)HrQ%^juLxIFCz+ePN6m5uB+zh9Z%+)v2fUZnr5EG)^SUAjFhW&T>JC9p~mPYD9<0 zSo2yru~{g>jjYr0$aY|OG~+JLpJPikM!1Q2t*yMq0&)oE@19Yaahu-K=Wi=mCgL#R zQ@O>-^yvAfp~%4nQCwL|;1@T~a*d6s{96$K3c z;ydJnPJ}(WGw(0y@|h^n5vuMNmNCDxD7>T`#Za_o?LE8f5LnB7DbTp~++|qb6%vMH z%TJ!K3qkc+(NlIF{qmxZMTL8FOBKsohm<&s-F!8pF`9&7(uk3cKkEZ(n$kYxl@s4l zTm7XUVV{;W8g!fCZ^OoE2K#H05ZA^$*q9?uS^6y{sKRMsGc5dd3?}wTw$&LHp_vfX z_qD5!lVA;8DssbZrcc~CN%6DV2rIG<9IlszvJgi}WpQ-h%D2dX2xePBB_c-B=6kya zmCnJoF4B3?qum(u9?|H16=v3V<_c8P2~Rt#qMLcAO={Ga-(zFM;P)n!wL<;L*Hw1p zM!w4Xt0b_p->G+rwqnq$(m^?9O)+MSa5=w?7gLYC)?D+p&jYWUKja}Rm&X^Re#?AO zO=3d;Mc{N7Z?^%8DALCk7T$nxWZJ$bS_04K87VL^I#5}~%b>a?=JVpq za|zp*2HK>x1gL~a*K4xFx?1keWPQ4OGex5`BWc}e`Bhr9dtVrj%aE$+a{;5IP(0qX zxbu%Wf`vuqQmbSGSoFU8W2!W*CB$c$B z_r3@ANG%eE{e{RVdGlUr4zoNKlRO!AS?aLKKh>nqmTw}NIj%6NaNl?%$rYtus6}Y| zwv|4I_2&;=BG&yuY>=`g6b~-gQ4`HRd3!!M_`DfhOKTOEXfQ3=L>Ixs3Rf&Fnov0v zL%TH7gQKEB`ZBier@ckKyjbK+jiGvoT^x7f4`QnJRdu7z4fUOh)(KlSl9YmsdjO64 z(qFdUf;xJLhrlOlTFQ(!){Wr4j9$+l8GkUWUv9X4si#i@ybq)jBfdQMHRzsOfIM+gzsmCM{rjut*qoNmac~v+a*&IE(5JF77<$ z=gy_%n)+f_y+9p~gywQf7KelIR}tL7bH`_uIdd~>kM5Q3ft*V{Bn)!~kjdDMl=0i2 zx-)P-edJ%CYd!Ig6`}c&Pr(SiSpx}5FVIaw2`(FZyAL3_xvaJgZsw0ReAlg<%cU+$ z;{wK@3it5OJR^s1?UX`w;UzZkT1kukgR?$$<+D{Z%V7R~)dkPJODgtrr*}dp^{Mr? z9pi$$!s(m8*t{ahxh z8}RLCyVQirW+9%&bD7lE*6cl;=8jFQ`BW-H%DNt8ula=xVkh>3ewG*RsPm=z4})-e zr^I68M5*K!o)uWNJFBAH(t-c0$yo7O1#Pa*NUhaFM{lKF_~tWTzaZzXBh65G#aqF< z-d&2bFE{+R&yy|r2(Kgi>V9(>yt?NnZPxDBva4%xEp6l)T(7eAvzuGgt?muHMuzVMJ+gtwE~zK^7`LX23j z4big!v({09gQIgESXl0qhHM9tI5@TB4$jooO;n^vTvQx)_0D~hk`OWbu>gKOK)_K!;-Y8i_NXFhmkniVHn-$U-J&QPw>FJVhLL>EXOVeIKRFGy@ zh(-KSIAh5(CrZ+>PpFdj=RI9V1^M>F@4*VT71eol6FJ^L#pc$M$7I$~V8<;$;C=Z!p)15T7`QX1y%SCrd*JYH4*Y__C z;%yo#(6qMG+Y-JsZF9$ko_LY#4xQq&6OJF~5c02N`<|VWT}~?NQ0OUR#(YaQL@g_XwyII5L zyK47ogvg}-YLj%=z4YB?F6URu`m2WciYgZp$_ZeT;kj5y$&R}Wqe`FT=Lma z4+~w}u=zA1b(cmjPAhhE8rtJ)^EMTa40#QqvMcy)u}5jdlq@-urrtLnCf<}tYFuE$YxOP|=~jcm;*9H; zh8~}>JUJYkOR@COA?rh)=8-#reA1cS$&ErpQt($O;JQLD5K$&+SsIn--$hq7v zD~Ao8qR}gAVpnWMT#xv#>#oa}{OlvxG_c7$AL!?O5{X8JO6{Akyh>iHld0 zQiQEIN)8ItHIjhw8FQQq&WUd>(BFv@=I8qvFw1bDJ%n4%6kSOe6Un0F3B(+$m%w4> zwgUWK_Hd4bP?K=ZN*g$B05$&{zY3mCZ7e?(kSVM?DuQFS`3fEhPtfHK7|&_~heHY@mt-}bmlNS~2y)&`}H81cGMcWVqJ*v%93#yfo*(xzmv1R?2 zyqX9RGQk86<=}$YQoy4v2SOe>-j{KWN6PJaNgu$({+I{@<=W|ky5tV-79l+5bl_2I zg`K?7)en?Qc%6+(oUcXGkM=)IuXaN-X3%V|&f_1LJI=*JtFLSgJT0QF`p3RK9H}C` z8C+;F@9(m;MW+(olVhK*u!wpuwpW>p25c3PY8rVOehN**Vm7xI!h2kmvE)aq!87C+ z7Ws3ybMf%t8>H(F8ly2j`Wqf`577ubDql8iZoF4IXV)}m6l!V#4zA^ZAiItNWw}1z zioiJ=7(Q@}KoJGwI7*_HyJ8M3)dm!S^_rTy052m?8zMqojL5I&LKbZD(i|1M6Q(`% zYfW*{BN_p;#nbhWZ}msq&5Ok;=mV|Jt#ID(4>^mAx$S{|n+ny+IQ5WIhjD zU-I>79`KC~1R0$;_$Fr@G^bQ`J*=s_mzf~Zws0uzP(H8gpQb$kcxWFSi!ymomA4|e z*GDdVGG!D@oZ^7;PrSxiAA`uIqKQU+6Y{02&E#LFUbZk7b0i0IH=i^$`KZ3Lr92U+I z~7D_z@sM|_p1xt)(s_s7P)8{r zy$R&GEmClBHfcBitFKnVJi1fIA>$sv8NF-?rkG%=uT?fw8VH)9KT9UF)o=aKM``wO*_}a z%%D;z6lZ5NfPcv9BTh}dPyO-~?=ku}R8sfXzeG3$kidg4l>VOqPN*eYtaS2xg!|UH z6L@9;Ky+Xv-@5-9>G?M}VNYB{=k z1_8vJ_Hh}aqguERF$bs-_NWA@BLw(@op^@->HaY663pH}Z|&yK7nc< zVx)64fec*dn#whjO~=RdF$S(L&NRN@uTe*OlndXfs%hXx`7_Pl`~3R z-_0DaAttmD1~$qs2!D6DEY1g2$j_x=}Y0;VPU*hX#6ppo5a zufLmF&6*VcNY*}9te$Gv-zG_ta9*8OGX6#K^>E8K<0QgH$F?bP#nqqO^duwTjw#~_ zrUH78g>)S`i#qqmP6I3-A>t{gPglM<3IJR$vo)PdD;a(kgA*L+2AdDexj5v{UDtXs zjjf?^*KJabmhYJg-(_jRZN%7IK&Q%vj>p#1Y2PSj>_i+9G;XiG{53iOHHVdp})hchVYh zZmtG$)K(zmFBK!ud5Z$aUbblRp+bymwG>8uT90@GPM;3B=@vZNf&Yr5`W(Ttq8Rpr zP$A?QBc02-ufyrKHevpIvJaP?Zj{u=R`=Vb)U3WD*$#qzvb(uw>-}ycTHCdN-Xv zGrU})auQicfL&pwxFI{RqjwPAcQQ_6f zY28uYa^N|YCS%6%_`yK~oIOtGdi;p$bh#6<)tQgN*;g#Vsih|-J21O+wN^m6xZjzA z>4!jfno8E5x}i4f$dS-6*~~i*WvW(49_P}TIDyW}!I!p6&%eE=>cHwcIpqrk|4Oa4 zF}1BAjxi^Oxzc89^5XNf9H}ei^Dz?#2a_K?ik>a!GG1x97ylr02(X03*M$})AQ?pa~0^vfcn!ETLu`&$Pz<2oJ3$FzH!)kBOD1OKVhx>T(U8h@N z&k_@g(i#*IkHZZfXWn>~Q%36iy--|CX<$AHWMm{Tj?u$?in9qMw;QnRd@`_&5Fy^p5fK|FvQ(EE? zXbf_&A0yj+FVJ18>u2vY4f#XNY9L$oO{rJaeUDmp0bQ0|hj} zqD!tmH+C>pq%CEB1(SMPO!wTl&R3a99kVO7M;$Y#6D5$8G-&00H0g?VNoFPE*R3@k zUGBELOXGcmfsti^QRAYL=c0E3=G`4)#nqc zvu1S0CRaqpwzr@ox9n)9DR9tPZbr#&+)!(qWi}{dmhccOb*!|zEi8&yXv_8AQ*C-% zycaDPZX0jk17e)G+nBX}WtEExCcGs+@1u|VwN15jb5dUbYg*1j%iTp2r_Oq0nIOAu zSV<#1jFMdT4ur+Ugt_;cbk`C%RWR=Y3elCrd%;cpvRgBf@Ak+82gM?2GbfB5(E{;WplYejRqOw`u48Js@cS zrdlgBve+v2j&c&S%b&_R6VZarVM1M9CxPYX#qa z9cHImC{0-YIU%nJd^O&9RWS$!?NyHcybt33wcSH+-LL${HZxK@ z_$H&bi4_$MpbkQrp5UC_ag>74+V-rj4KxJZHe}r|p_yWzk#xJ)jQgTdkH4&Mo;IIr z*q(k!b4ycy&v{Z`S+=r+sMZSCX?GK{VRh&7nCq3ULEey|dH+yL_U_uUTcGh6aN&x^ zMeLqoT1u1rjG@n_mbrJATikst+M>23r{&$$@Wkx5?;i?~;*sRy{;$rkEP36qGIuSs zzp~{tU0{z#yM`Npd8PO69nNcfzyR& z-4$)NOdb<2n<8~7RT3H-8Oc2}$8J?enOCA-6jy&6R-f}QD==uwOm{PDU(hIKO>5hT zdDYZP68xD~IpjDpPeV+Nz5Y|w2x8w0(Fzkw1Br4v`nBgO2B{>@^SN85m4uUel_K9x z?UWjYQ09*x*&>G5ge0?z@|V4BtnUt(%}@Xkv$KJ2?&W?QiW%V`&dEzU6zMc71=DP+ z-kHyN?sxZ%S2T}n=M{NrW=3r+J8r6zxA+jYb6P%nl$ELNDQ{!#p}9HjKN!mV+@Bbl zPqh97we)p>Ol{*w(@?=2x}YIdh~(hneE|68416s$cQhu%k1Y zqpb5#gwToc32%PI$;NE|m# zLbNUv(4Tw*?~82CEcXcgz7|(+t9eWUFGXr-skNv?peYs59@e~OEH}0{HnRkjHZEV2 zRGuOxYyHOGvfUCL?w#KEe$1rb0;jizvpqyBjvHF(@zYs^P<)hA^Mx(fm%*j;p2Xnk zWcz59i?F36G1j`G zF&FN-Um^x`YhQ8VfB9ymU6N7-5IqxG(!?}&G87p?U6obU7qpmP%bT?;UZ%UB?A#04Bb z?kNp2wjL;~deveV2xAkEaY}*g9zAYXHEDjS~X*t*PK=&(t(-n3{8PhT2Ul6P_rr*9B zpti1$`pq#lq#)SB;RaM7Q- z1LtdbfDSokU}e?0DNz;3QmHx&`% zn|=j(y35}zs9D=xOZ!qg^uR*ZI6(&l{=C<8AyXQ1tCik~;Qtd~qI&Im17cuicPkgj zA(Dihd{K9i361L}`zyEU>+6~^(ep+nMmAGz(FEchW6t~a4y*CLy$n7B+V$Hpx}o$< z@c|>1YYID)P+#ksR)2K&9sA+vBWR~x>z>b7!jFAq?#FPG^f?!5?PB9Af!{4LQPZ)| zS$A#1OaO0@AN|!u%Za|M&3pY?fBA)g&hm3t%x7$dNMkxv@m-YHg%jo{^o=6rO!^0F zQXTrtYm(|pzbTi2l3`%AaG62Ski-1^QReFWDR*K~Kc7n7v1wAaxx=K7%(5Jha&CXc zv~lf@%hYtV$?A1%Xk~Zr>XVyCViD*U%IWd!21c!sk_a2{Xh z&R@MLM?Kd~cV+2{@IJ zfM0l6o<<@oYUFrSMJ5Z24=x&nWcL1xHKaj=D;YB45_*@xP?w-Po zRZHZ^-p%DM!<>k)HH6)VK}&FpM!c%YXFxl$e@OLTye!i|`iH)i#b$Phjr)HZb`wj>J%MPFsUQai$~#&j2)%o| z{@-}0GE?Pe6H4yc)X`6q?hjxc4xcKF>a4+lX8>z47n;)-?mIWA7Z0UgWdDv>JtaY8 zad~bdRCDBu`$4rQNn43MaWQK%GjogR=6HsQs4XDAy%pgrF%yDnJi5eOoT=v`I^a7f z!6sBG31t}ggso0=%jGa89-@mmRe37Rf-7OPhMx%crsu04N9p9fy**!I4pVsYciYrJ z-_!m4t5DA+?3sC1kUkp)n*V^Se&XsYqovXTVWY1(6>y_ouV2!F-#|bMfzy|cB0l>M zHZ0!?>`tb~U3i6NQ=2?E`wPJ$!Cltw>TlbBov(j5TG6Hg5S{^t;q8~!iaAViXg)oc zsb8xvx^wz_zqduR#m&D^Ug?+>(0m&L2$;mGj`)L}8wyqtl_^hm3ycK*WTOx{#-D9j zE#U;&BBaYiZBxz!nd6V@1G9gePmjM}|Iih59S*uGWNGr)iL)fjM=Zi4+lI4jk|mXn z%a~$%BmG$HMY&F?awh~I_Csj=7pCz0z&ACbM!U4K9k*)hRL@R?wK59nG8CB3dxq(d z^lzFf_Rhayz5k%x>OT*fwMO9R3xG;%axEOlnCTpyMxF<$s%iZ#_xkUq(fZ#&4t06} z*ox0zfsfLI3dbC2J4pip+?QJv%$Ly$MJBxBSgs&6gG0i`N7p9`=O6;JGQ_MHbZ*mkWmr`<5xzh3!)?Vies%#PqJHs$~zXyXg!XzGn2Kyvq4 zS`3g#>?>R9k$t4y?hQMfAd}+=lC04Z%C$B3g~JK5sAv~Z`wywuv+`FQ_t60)8QxOj z*c8fy^ufaWk1POOgmT{sT|>O?3z(PU-8XRz1Tw1{*DdXDtM9Lai^a$F13rHi=i-y- zFPPHZ`B5oTg&66*;!NYSL?x+&Ud_a!vL(O5pf%?s1K$MM{NopPn#;xoaw%bc5hp3Z zi}YJ&>mJVN5h80>u`Nqu5T4Ky3~)T@eGT9(pi=QtaDGR07YUcK0*~Z zbUf>>VrE~6quPsSXpn(rz-FS1#M<6hx)D2uuN16pdb>vD(G2yUh@N1Pf=%hd!i3$R z%>ptae>$19XEXl>l-D0<_s{X#2JiyilBI+^UWUJ{-0$gpB^qdEp+t}`-Ku1Bm8FW!OE?p9wXqXZXuU zw?#B+oQh7~K|v7&qz13N(w#J-pQnKuWU?lm0K36PuN7d&*vC*@I-ZXC_9AncSagxfZW0D;XBtw2E{t2YznLqXhHjr53HnN+{c)+n1Q@GrrgWWS1JBY7=dMobL#vca3BMLF2>Y&R_y;)kp7>q&VNCx)61yu88otO78Ph{ zCf-AUS#_oH{-e+sMmTV6A=!aDU!|SO{)NE)zeRoinf{+K8*&Z@=&PHVjWj$yHxaE4 zC7HY&Pt<%B7TLnqj2!nqzHp}n^BV4{HipW?A9Ef6wT@&thf~D5EB}MX9Ie}KK)6vY zI#_KTJ+|I*ImUvgWN2}jAV_M(PF8GxQ|Pts*We74VSH_{bX0sCmq;`!?CW%8>*7NR z$Zh*0I7kGfs%ypSbjV@p zgJ;X!Vp&)>Z=s)-|uc5>L*I zd*b3(CvpC_n>yzCb1wj;V2?ibPuqTk|5(&UT-V@>d!@0XPRCn0uFe3;_qAU@ZM3u! z6Q}_=lxHw67Q~3d3BXs8)6R{6Ng=J9`ysL85z6=;@39rd z)I;<`{MnGn((yFnJ_(1N^gdxUo7%l%qsEqK9`e#5>JP-aq4)uo0jkpdD}bM}aJI&& zl_iFMRZK9R|A#d#@HjQQfkvDbRyXmS$Fb^psK#O}dCZQ|5sMxEbL^^?9XxXwzCU z^`kt-=3<;@&|c>TVRh=QJa-V~aMAC;+9!t=K$s``AH0+-TuYekV*_TDnKXb5{8$TR zFS*?_t+MK;yBtRv`+B=@#TDJW&jkvQc_NdkXaiLp{!Ucw`n4JBVCfS0K{|V?id5&4 zqw9F&8&@yeIInl~9#;2va%L@&T1lk3j9V!43BA)jsdX3`tH0zNMC@IvKHy;Yso6agmj&;Dr6N`M5jmO3>WJonM= zk}9;TFFv8}y90<=Ogq@cJ8F1#T}J1sgpV6VP*o7vDXtQdhp7MLH`YMEWGXHF+jliG ziC8zH3C!?~`J;1)XB!q`vhl}dX$?o;Z~220lltL~n#b+{wGQdg#^l|GN(YL{bbBkMlSK|m zeJlbaY_P^DeR^7Y=FLQotatZFXNMiEP0&cMQtU2^G_LZrPM`^D0)jUgyW9_%K}gu2 z5RGb!7|mC~-ZX;-Xzu(sH$v8wsp4Ty$7O`A?&ZR=5jm8&IG6!Qh+vidQk%VS_3mKg z%APF4a&|LZB5a2cghA=21@Qa3{IW3lBPDdOt~9i`7$k~HeJ#MA!93R)yA#sp^i{V# z=x>zhr)yQFg%wKwJ$aHv(Y#jb{3#@;<)X;z=>|ZXt#gwO5RwJHX~_*^jBP3WnqA_u zf!Resg1v1b0VxutPE5M&oN20@l{2ky?^B&g3;h74PL1>P1mB1T)~|+9zquj4mcE%8 zkIxBj1^Q}I?5AZub>%qx=k$Q?WHQ61h z-$bDj-5XF<^_4)gc9rWQ+;UiCgsE-vi!zMM+vxt?zRtXA>of0#q+8XqfymFfs;@?YI@t6}!dQAn@6~>@k$xW~`jHO?u7IWy7Cg9Fzhu5;?+N?u7kp zG{Q<^$j?v-bzrfq8Ij6KB#(%32)@g$Xx`R3>8|!^6Q7h#mVFAUMn;EM@4+75(0M{w z$$0FXpFGYglggQyIXhA#YUn8$j{pl)s21FlL4^JuuYj&vIb=T(Xii25vQuc|Y5DzL zkUc>y+F957ocY25(xck)h&a6#Ke!yr%u!EUrb!ufCIODJY0s9c~ z;6;5XD$T=Tuk(O-S@{#NcE34*ow6$*g%zY#;OyNqb<9|YV{@G;3j5xz*A2buf}JHV zZ#RpNT2}2pxU_GKRZFvr`{ut6N3joTz|Q3VjW@ zvRYRtXp?kJE!~s({~N{bnPO9sxr2yA%sieFlXQDNJjoL^I;Wd1Y^&2}7|{reA0m)e zJP+<0u~Bd^*KB&{kk7ud)5;l{j#J{E-j;WG{mmxLYJ!QE;lEJd;k6Byh&Gm;t_4P- zB96MWCDS@EiZ~;#aU9iG0=sw2#N_dPr-XSwSHdEziyh3$OZ-iYD(J|^QsJ!gDj#lIH{2D1U_k-o*GgxDr&m=NpeA2YdUH0&^ zTPCP&UY2>efU)V7AO?613l6(8xuai`UAbH>W@@bU+Wl;hn-$}eL;Vrm0a2@OzXK}q zJQwc98UhlOf&X?ms^S0H+Ow;N%VoPf20zGf`V8B^TRzTQ(hH&1SQ;%87>cnQlSu13DDe@OlQnd0xCxfTD+ zApEa$C;tD9Py%-UJq!?R`u6C-Gh`(ok>hdNQWT?KVwyF8+&SWPaRqPR)VrMHJ6N;V4NMj?QZ zDgsu6??-!&H+!sI%IAld`z%;p} z>t%(pAs_}fN^X}il8Wb(y`81%=nD6SID+oj>JRMpOg`gX(9C@>P=CxcPo@l$VaueGQ5?qi&ofk@JDn zg`4dvrAO{CHP-`xyq#UQTEK9-SRvyi&6+_zPc?*(8ia# z?Qh)>&7x8jFz5+DRdE@0t6?b(x*%HqgrmI28jI4r;NjHnS+Uy#hz8F$qTC`VXgT~$ zH!F7=Cw&BI6%W`1tlw~CJ;WuDgeR!GvhzX9k+dwUt?VZTn6!2sgvQERR%ZRkCHdW! zLsjl|y(+`cxBGH5m(0Dq$o|(1rtQLmu)ztj@$P{~i=e+ye(n`CEwT>>Fous!vbJ_n z=r0qu@qjGm3HiB*JGI6WCJD2q5uPWlxET@rl_h5Tl7IpFq5{j#`g8fgGh)7>27U(Z&XN({CQd zEX%-q>MZti8%n2hRp`4$UV|ps$zbcaL~V|6h-?etV|}ZCEa)X$B6Y?=1Q3PDK1EoK zF<#;|21_Dvhj?!Z&)-~r`Fb_78hntYD}BmjCWX5^_xrA_bx1fL#Yn<4I93g}|A#hGY_FHM1hJrq zlj+hYF47i8OtxIsjx`O7S3-)P*{f^Rn}>6OygYAFE}1p;m?++2 zotaZP0Q&#mJrj*b1iX(mV?%#LCPUxYgUm7&QNcs&E?0^vg?zF@ehTBEDwBRdG2ZKhxKOUVwbM6TYHJ|S42z> zuWziLeOo9ePgrp~J~!J|J<@u4XGbz=qhgqOM4}}v>lwiDD18Pf3Vh|Mw3GNq305nM zLX5-aoU}C_rB;A7OR7=F2OFxTeW(YF#Bv#D?(#3{kKc1=S_L%_valoI&Jvdy%_SR^ zwb&Qm6i5nCf~jbAnt9Curt*;8|6sX2-1L2Wl=DWjn7 z9-42*?>Mfu_L@|fQ+7++Mwh0=#DCpB7{UEoZHn;x+-l=p?vH$hozm!mfVh|xt+^<& zn7;l$fT`g0^aU%kfT(4COKhOxGVSLP0tif%C&VE|$L8Ga*B|wvWk*~dMH)M|o$rp; zM?al&UI7Nc_8l25Ynf|}qR309mB%T=tL6nJ{aTYeIMQ7P&33QCef4;)LdUw8`_Y=i zRj?Nq^bCh#jz_efjN~RRTXk#I=p>Ebn5|>Y`oF5amiM5bw#~T?%guNDvKgLfjiJspwPLQN;Nv03*WMddGFN-rBL%!JFU3 z<_VVvL&EDUG!+nC7<*r5k1%mGt^6QhTho{}c*5N&y<3`6u2+ZE`L4xo9G|k5E1L^M27wj%tlHn#*3xUAt3GPJaYsBD7E|OS3+vI*Zk{>2g6JAWw1n-+(~aL^q)!kK z4v5volvNkb4pydxhAJS|CAg%7aM^j<8I<$)u-21iv6?=xK^meV_%oThLQ!u`XApw2 zY-|#Da1uG*EY^)Q)y|}4Jt-EYCdJ8jVt~Yx7aI2y8JhTiz_*9^iPf$=fd6V@)m3PI=6zIXJn*&;DV3RB_L8pk$tM!3%of<2;sP6Y9b)LYlznYQqGGP1eP z>^lF31Ra4bF(SnW>Hv6=s#QDv*g12H4se+hwU`g5NjcvxzD@+s>2HAfwSSJL@sdw# z9LGQR-axI33?vA}p;8Xxv$M9Q`S*CX0I)UQNqP)Ki(aE0qiTtfuTdMTvr*0`hL_04 zQCyyeQITfR>O`6#SAZn#C8LsnX?qZ#Mcb?PMd_dk%F0jRee6I7( zLH-4ucBVHxEf%HL#Ywb)uJ;~7Q`5We5_-i0`fz>TM>?D9G+O5JK%G^QdzSZD#KU5u zcd1y+xW?N-;7NYjO2Qwa@2lkgWzb7HbBvFkZ!zP}8(1t#nZO1WH=4`0 z|C84qD$QfzYAs+^o7-Ib z9_(Kv2N}s|s|_b{ec!aKC6RxSl+y%uTW+PA=A$=lV<(lE7G4opRewN0rSvZsr@;Y< zRf6-U~oP8YOhkQGsP;28a>8PV)0hZ0Iyc8i=A#Jyu%wrkyp2i11AdWwKsL6 zfSn;KPQw5dJ7;)AC8e$^P7r9-IMjRytS*jsIZdU*7-2Tm{pyF`S!kFBN4TlPpP#}8 zWvKV3tWqf0RBQi!*g$(?|0$-e6+q*VY8|0O@EP}erKxVc2s3<3g(2#Uav_StQvxC_D$b)bT}a! z!2uKrqGtz-RNf}yFF+&<1kW5_;k|H|>pEi~g$PcGDN-O-Xh*E- zKK=B~tEU0PR6Wt~S0$krl%RBZN4Krqv9)^5EKfEbeoF+cC+}udmKX_oht*P6#HA<1 zf6sPQmInK2Xoa*13%67WN4pzZ#xK?%-G{I8C4a>EPGzEukGVwkqJAq+PT}0ivwbf} z4tHEej`P6-9q&)@M#%M#?$N`p;&IL~MduK?eI^#7CB=%icP%h}p@XNHJOaql^}5?0 zes9Bs{`y${SYOG|z2;+k#t*=3D#Oqnb}I!WJ#-o*@Q)CM#yswl(ps3z9|#t^s{L*2 zW~*$A@H(sc&H?a`TR)OhL?k1`mKbBw>)_Ug=4H~BXqRBl1(=XBI)6k;Fa9)Es{EB` z-fW69pGRZZE6>e9f2PBCV3)R`Zw%6t0%#+Tm|d0M5B{#(iUICUw1_(p-@^RjZrCC6 zj!ldBqY4FwH#-MKwO3KHEe%LBvwVK6)^Ddu{KVq5SaCA;4i;ZT(Jn}gW>%bxW@`K< z@)VOCx3!_=&k;Xms;rN7r}gd2aVm%18zSG|{C+3*>35LO+nAo2l|Y*=JWd;2Y`<-^ zNJ`>hdhQn!#o3ta**iZa<#_F@#{Fe9j@dz$9)-0R*_I_~X-8bF5NtaIYynAFD zBvMf%<326*<5K|!9)o>Lw(U6`wegRFtC_oJ@WVAy7!wFJ#_v&DZBQB`QsPO zt9ULMI_`Wbb2t0*E$6=N`prjP_)OWq`rG^V!?yLQn{OtvZO_v!2`W9z$iQZPXi3;4 z;f%m1<@=WLcAZT>8RVEN-nh-VQ^a-tpUmGGTf2978}HjFf91@Nv?#gPX}zmu3nzA5 zxqiX+T2pR)-=5g)<7atJ9sQpjzq{s4!{fIRyVgqFRWP)wx_P~}`?}}EDc7cUt)Anl zH#Liyq368C&&Zj6bi94@v~pFStl@HjcmzQiMvwgl9d*jTq)Uh#gij)(bG49bvdWk%@HdXk=dsROedQi z(*L*p;Xat7^?&W-htt;|{I~V|`o>K@o(7i-m!6vN`0b&6duFK|-LJLl3a@bT$1h2n zuT?3BPL0x@rnO{You2>vDJh-{ZkmLg&rRYs@t`=r!CLec=b$w_WDL^$&(e<5B8i% zJ-!gQx?_3&?~2^B;Y-7IIvZJ?UkLo_x`(hXQdgG@y zW(Ji6=O^8bE*em?Ip&}Ig`KR-S$zIfj-70q}^ch1#|1Qx7hWm3cXdILwuKWWLleeT<#E`~l>Ly>Y+Px8*v+g>PDk zP4RS4!5OIFp$I&*=1rA=orEkVr(5Cd_~hi|8gNIEA7|#Ui@+aG#;;?SuP>C@Q>$ug4&oKHb}M8bqQg~WpYgGNpd$z(FjmlHVc zJ=bXBbzr}Ia|O6}hxBD&Bq&5^p9%rHugdZNs}41P70|o&Vkby}Sg<+U@Zr~~AO8IH zB-yAP)6pz@FPCg}wCaZZ;n^zWluE#Cl-6zc8F}Iz^Vv)uA)4fe6%P9u5O|EPImM!o z&CzL!*_570I*&VNKdQnDAE@xLFE&>QlbFdF6$*cxeafdXUUgP)gB}hH4MLHlA4UrY z#BoPY;J%nz-Yr}D6_LYbO%x7MnA0_PN8GZ^wlc$gYjjZ`c4KZs{P=ajKT$w^Z};(- zgywY;L=YV^zSu5oN3a^aO>CuZveZa1yCQCBP-_Z4IJ(ngioiP0Y(2?^e><`Bt6*;| z>2D5O^wacSl9P!J#JaNapfl~wj@-Rh;!;(3_4fGtLmlnH-hV`1X)$?p_E5i#^ecf+ zL$Ao8(x2UaZTB(Z*E=t~#e=f7bnk8MB|+2`y89Y>yc&6-;!kLU#qEz;=~ES}yW5bZnp0C$CI{dzpQOy~7r;yLpYzLkAhBCD_ZCn_#Jt z2m>ZG*o8^yFDGMz2!XM_m!DZmH`0#F2`ek0+DDmGyh3?I@Z5JosjU{9X(}%^glFz| z;w;TF1eu_;U1)Iqlc3arv%7zXXkQ+_bunS4r<7YmJ&@)R?<7xP>iED5Kf2*hfw#hp z*=uGRH=))nbgPIVwU2!-_?H73M*V(eH;sl{vbNreyWK7a8cupWs^al?az);+tE5@N zit{Od|0Mc4oo;Yh||V2~>p2tqENnkqqQt?jyLl=N(?+Zz@iDzKVW2#3w3V$^=A zuzxbdeT=XPI+|m)PUlQe{PIil30N~MnTWm<7r;IINg4X;TQ=#dV6}*^qI$4Tlf}zz zo-vr$@8&HILv6=V-In8%r=n3l7OQ*~$7fq3CD~Tgoe5~gMaG4G6Gg)h?4oARgPv~r zrXtlAnAcKoNO-ZToWQGr`9vHy9i&)XGuE`cBvrVMdo?rcy&nAm@3P-)99!KHBNgW& zi_)6JII9k>9nJInKJfS!pl*XAfC8aKHsN9G>4u*mX!c@vdcw+UFRtugA5B@3GK2Ar zuU4eSoA+$_paLqPxvF*)?9s$`gwsFi@89G)+XX)jFlydyRk-~SwYTo8d(jmx?h-(t zq0?&)_w(HU=D;`OCTup|{I{>Er#dWd$8Bm*%W*LIxg|3LOy3!_g?>Uf32`tL96vCNxMuD^S6-xOztQ#B<2EsUm^*@Nlg35i!~Y9mu|d8A9r| zSN1UbQgb5(bDx6J!F{2V=tc9Bv4|DkKHdb(UB}&>GOXColJgEx}O)c@ONV46Ua3QGH8iH-z zANtxK!uipm4gxi2X-X0qN-Zem{%(#H7?e|vL)|Qf72Y0NMs=MR^}Jj z@kvc9%X;aN1blu6Wi1)4mO_izlieLY?#<%eQMwIwbxN?Xy~8ih7q@)6tY2XmSsiC( zCTe1r9koGjh@>*CVrKKv{9V%VML=gyR3LzN>$>l3vs6U`X|63EN*W`WrBlb;N9RUH z@bw-;U1o;Km+s?MHGG?c^ZSl87ghxnvs_}P2APy!t+>5xK5{-X52*Fq$#+~y8iL5N z`&kAyy~t=82uAprVCl@lK_9G92S=4FnX}Laawq|YRLm`}7c;wmD0DdR8!mbL_6+q~ zJ1_am5f6w3w!b%{zg<(&I%8YRL4_Uv;k(P?Z7G7v>gmoKY8=y^w4=I0i%sxZd<4^uU&a?PL5xbrR0tLy>{_LSj3>8e zFH}8emUKS>7v-7NZ@TdjI!$O=TKdUb@%-|+d}hv~f3JBh6|r>FtBrsE{paU9v=4Fr zs61G4!)%wZF%(%QbzMrqkrG>mp6^FAn>gk~dytLg+xvZTIZv=s3yPYJ&Loox((_;P zDK5xH^LCn@z+r?+rjMp_$a7&T_yrEXEMJ=_HS)Y!z^B#ipLSP`n_k`ta7>MUVkX-x6m>my;MC4bes6fw$E!Zbq4!8LScc`{ z`yGz~mbs@JKJMzIc}4tp+7gHRKNQ}6otQDZl0=MpV&m{u&2B`oW#=Qb_FgP&Nj102 z>R)qrjT$2Gya#4}HZ~@Wr|n)%pvRB_qAzS1`h0ZCOjpqfZRs1`(_O`KWO50y@=^#r zIjQzEc6oE6#kciaNS{MBR2~fZxV@$*9s7`Yf$5B+MNi>A6#FPksR}^>gnDZ8piSqEYuLLJ32r>yq3Mb1yf6Hmv}jpT9{KU6<+6i z$}E!fdd)3%vfKI|c=ZsOK1|~$g*i?QZ^g5hZC*D%&i*0HXeyTcJw)*MtZKo}U^bR5 z);ob=cy@_0Q{BRJ2-cR^-;d6MTgvG0A;lc*zU;c?4F8GmnNEz6WypE8?%E_^pc%TI z{FSbbm3VU6k9p>2w*=ODKa*aYrRn3|wew-wyUqBal0y~DI#)f1KCPz_-<1p1Dvaue z1cHOb6_`q2=-n{JwN*f>tA1ZFBA5 zNZ=ZK=y3ac?~MLW-uEdk~^6{u+7kk9ES`qB|M80OB18HakDe@0x}_%;7~ttJ!dV8if<3NxAx!O40vN9KUCHg_exkrW1?k3?vPzytFcav zc5F?wJfp_2Mm(~7C8S{#X6C7sO1s`XN_OpQ$kl=gNpcx&H{HUtL>g8K>=6HwRPfmN z^L2E$5j3e0HhCPe`bNYONupcdv`wE5dylyNv zJV+`X&R$upI0zz@OCSx?ury1 z`h&R>Wh8l-a9e6m6Ml`8cP*nv?p^-P&)~0pK24?s*Hbvmqw0pyv_`Aos#6W-iIVzK z1<1E^y3rY(f@|FY!UXm$8yL64+mn4p;O^WX+IAEd!h?%9e2s+N(F4#c0-)r=iup{x zy<=z={0J_LA+3^645~F}Mhe#XgCACzwfYTvc4R7V$69`0D#r8|^WTNu3|m(=^R4c$ zV#mt05#2<%geSSFY#c|?fRC2bk5p34#NJtrM#0(s5*i;6bo7oO&EtD$1vTW6T3Cp_RZ|Ji z%o$!({lTHm_5Ou{R!T}3{pVQKhh8ms@cO69oIUqgs7ucgJn}dQR2f`3=Px<#d~1_- z$Ia*FDKO*Ml?$NB#W+_Y|6Jx&psS?4U1f#0E?)({|7~LIohi`c*ZB*C96x`zz3gBQ z1CrWIYTkVQrIJ|})iabl8a~wo{svzOX}VKhYtoaL1-IE4lDyv9GM(SBNgZp+=>AH# z+&zI69ru7!6?#C=yAy=vk~8;dT$<{UyzJ#hV3T|5w+|C&EkU(# zb#`|fbW{YKFE>0I-+(!6n68G>n8YsN3a6%ZLT_O0*RvKyZK49v$XDx8^H}^sCUGkq z7}AP&s``JG0+|Zb<|~rxZ`-I~OP$0N_6mV*^;BgD+f`0WmJj>374x1;a3@EoG46=&tRz&4L5DW3_xe}Y@Qa;3E0aZj4+J4{75jF&qms@DLJC%Ng zk=N5OfX)2M>B|>tt+yBtA2A^^73p?X){5pqwO{6q8`~@Wwn%;nTfO^xp8mo^l5xu6 z9y~LUxhA7_A;b4+Ve2?+x7nPlzTZVlmp8pWMgZZ!Z;fcB(i~BjpxM9sm|;@5h3iIv zuI$!|26w(3-q1-TUwt2aVW+Hf ziUyuk{ZddG`DF1de91ZOsV>KsJsQOXW4u zt^&UHQm~K9PK>YGGfh4=JUG#BO-~wW#2<0*6`;*43&(lg@G@=X;G$G1kkyPN7y)ag zU^}GOLU8g1G~z-YJ5)-~v)LKe&zpMA0gp82^-;xua96MKr;{GZc0TBr>F^*uTl2cJ zRB3tz@ku!s?9}~}sXECtgl5h?<(cb=jddM6Y`Fg6+??ED)V?`)V~Hw0{}Itx*bUlE zl$0W*ROM4A3I$>C0gTR-Lb$aHn+t>UhMOa&Z*Rt0T5}z*>if;CI7^NAyXz-={ld%c zaDULu)^;E&ISHoK9@O*#@wTo42Pb1jr`W-eo)lZ}}Wot-oqzuupBE;K21R^rx=!N!Ppojpvi*qw~<1j9w_0 zG^_ne;3U944PQhXh=f`S@CMh^WJa$UE@hVR7T0;sv_j^=w* zyjF&}sOPF=ry*@$*xy&VO?j@w*=4-G7=T_?4e-mxt*WyVPN7H3s{zx8FJ{n2HK^ex z27gcF5c)01LS(cuhN_!Zg@8N}3V5|XrJdLR4l^JNq*$^;vfLeASlM)Y$$gUDhW*My zWstBLuEivdxKq~Qr5^Xm1-8@nBx&a0$%3=`$?y{kl$@iFt1UCxC)elk7hdNdsh1WM zh63I%OpEUqFZ44tUfr3my1rmxhOF}ln(?>bE11K2%%`>ycI-MIO@}fHER-!jj6=qJ zr~L|W5Uj=h%%=C0T^_+P5`#q6yP+9jOXhAi@}=zS-?<P-_N^LD z#cN1xfu5{ufRK`FGj+jfRwT0IEQXYEA>HcCM1`3&6RT zOm1yB0alk0LXAe9r>S*9QE2xT@SMN*%V@iTY7vEF(M8*LQGvL;&Cp9`s{N!TWO-Fn zs$Af2laP?W#zNz6i^3qRdw)TW?0kM#%=_oM8GP)%C~g*2+1aDcPm2XZlgqtp2ZZEBZ1yMY&c?_-gIa(*ZM?CJ)V1~bi^DUrN|E;?_`?`m@;E@xZBiRO`2wPDLdP6n59WM4?SJm$?^$^&Hed}*@g)c zn?l()D*;~ifiMN%JFlZxG3NYRx`#E?6$Io40`l?0_=2Ub<@fci8(x$8Cl_)TGH^s}G_=xPZvKn1VTo^i*n4#FaNl!^ywnzS$b_$3qpWucX(Q3mc&SO;^^?ve=fZqPsp8u(HL8$EmTOW&g@$u)g$K+vr1`De1>p7= z_loEH-&SFRp|fFa*+g_zC=vu(wM$Ukx$t{u>$JdaboWxdr(&1l){onV@Pfkpbv5Mh zhnRd$Dorr4{mkW)t}UQDRYDHxM$r;XQ%F zBW~7}Hl>gyb5mwPV2_p8y*>d!p?)S)nzaxG;_)l;R(dgRHtiwF&QEDybwwCinL!L# z+ID_92p&#kMVf$r5Qx5zsaBt%fqmFi5(np@PyCCDvkEyYU&80Q#I`PzTP}EIEd`~S z7Fs{0sg{nz+Pxj$<*Hi^Amc|ST76Az4Z5MlzaNHaq8HZZW6>43Lv8&x?^UMzdQaA7 zuF9&&*YP);uuAuqAM3l^4!g!=cB4RKtHdzXssQ!s3ZZ@N$^LVl>Tg?OtG$NZ1U|u+ zRi^{;m}PhFRW*f~-k(2q=H91lJdM@Fd0LofdJddc!ulQSYZ#!;$r>LWxBPSXKt7VJ zy9GZAa$4uD9GFwBn*8qZ3?k;dE5?3)?j9fe$tv?pAUcq<%>EzjHV1)KQ$L0dJ9vcB z;&B0nQ?oIRYLy^k$C@1P&D-IU15&)vuToIW-ZNAnxLPQvk9FTE;B$y`Tv2N0+XWrw zbwav0yuRs#)tIcn+6=k4MfMqG7_L0c+kdh~>~J#r^pHJg_XVjOA4ttbuK^Cb=tqp< zrct7$oY}3W3oir04SUH<2gytx{|Xr%>1~wx;8$-3{maeBd((~P0Z(foIc7m7Q{7Jw zO?+H_^poqbFBRvy8rgH(f_4LGR$3}547NwAS=~|&<_!Yx zxe!Q?;+@a|8R>BwIxx?lpX)HAo*W;?tRWJUBU;HX+S?$FL1XZoDv@`;8bO@2eh(Ro zR0yw?SF7PajI?4~!os%`_A`f=8|dkz0)=JU)rlf(fYF{7LT*3K(YWm&kX3s$#*W{A zhngDlT1@*=gpxB7Y`AUN5uQpkr%TrCu2vAP>sq4Q!s%?h%9#U#4r6PCa3A!Y;F&bM zm)_0ClQay~WaulKdm|9muoS^rLSPMzw@V0Qx!|fQ3x3954Y(n8GFGmqb$>OEo7$1B zLL57rT(@sGAJc{iuNr|O6mI8@E(f%tr2fo`f8F)63recOp>!}D)mV_s0^jyyv-J<7 z@7fwL;D=%Ili%x#_RZP$MtthOAYTqNt zPe5TNLJ4JYh;ydqqSJeIyu~Lt>p-tshb?>LkRP!TrAp$k;t=jm949@_d40RNvG9eK zX$kk)-#iHXddJId-RY`I&;pOgyBVq9T~A%Dz;$n9%1tMz`32ad5;}D-82UK|O-SfE z8DZ7Zxm}@O1^z3gFp8onO=O;C|B*?fWGrfd>5SLM<>w(;Z#~mSv}j;Wx`;7$y(Kn1 zxV9wI&m05w*zEaEhI~|*YDWoECOl@9`}K2w&!Y9%+Nx{gLm(rGc6FE zWph&0=h^V|B&sHzJ8pG^o-ov-6OGMbzBmU1eq2s6pCIe7UUuS3J2zxMT-c`PZu8^b z%4)k`?7o}Sc0r(^>+}!z_XlndX=Gj~ZE)U~-s2=?%nm&cv^}iwXy)UH@;PH%o=a_4 z4noLtyzTeQ8nk!;^m`9wdHESm^Q(GsQxNbd&=t_l7-%C4o&hx=#h*oe^>=6K)O`0;w>q98KaCLMZchS_Zi z4GW9=4OQ^{6Y>BdXV#>s6`UgJtjcn!W!b7^-?Qg18c{i-$3-nsnt$S9Va^+y(gZ#7 zj4BDWyoWy6ZYvZYnimy!FEXeJ_;aLW6<*hh`9mt{Ht~kdlLaDDg2jF>Fm&*774i*U z`g5YluqYkFa46d$P>p0khUZN^pq1epbCR+7m+=NRWd949juE zRE+qLd-y%0#9g7`Scc*NsY=Vg?e{f=${(r+hkRYi{z;8jW$=xNMx+X78+%Xu?3Wvv zK9#QaWZ<9NdR&`x2$Rc4)-RhFfynIy<8S7ZkvgaOW*IRlmT7M8fm8eVfm@aw-TtD# z#!^TdmbR6(!~!X~pBNK_myM&FV$Z|PWsQMb0GJjI8-_Tu0zIv1sSUOdUp6{ED;HgD zR&{S$k$t-L7OIn096;)UC1LD)R@XF*t;(dkEe7mnln@FV#0^!bfC)4?#D|&vwF}ax zNLsV#8@ydt_g2A;^%TTV1pg|%q3o}G!D4C{+bV|_!_QggLxod+ zCYN`19tt5xsjOdW@4TGy?EVQnPgOtkxn;PaS3j5~7&~8EzOG$=40yQhq%ybRl#g>S zWNY0^n{VD>WD1k!a!D)fDwi9ub2obJ?qDrFGEO%Bz}V>}udnr?m*E4%plw_bw`E<$ zMd}M6z3a;#TZ#`yX@~E)9)e_ZNvv%XlrjafZ7krkGrH z{p}B#I)r!pJXsQ(`KHXD!2s3MH(kFEcWjI`tg@`+t@`LCaJi=A269ga@_{y?v~*+UX)P>MXA))R8iA z>XjG!3|t|3@%Qys$9PzRtfP$H=6AzF1IN69BCKRzaznQ+BAx;f>{HdX(`#CJxuN8{ zK;#O>dnm=0WOvfDZnXREu;?A;Q7MaTPDMvuuV>`CoAb#%AgR#b(rZlEY*+ILf9hpD zccN_R`cyP^x8^~K{SqAsLYaP`;3K=*Ps-%M-03Uin6t)g4;5T$(TR?xGRPTT#afjJ z42N)#{V`%E0^G1%hB*ijbWK;Mm93l_iMK7ehtCDF7JDBr(K$^bGdD#B^^(1VGN^I` zEpyU0?MA~F2Yi-;J@uRfh#z-TCGtkL`|%UkHu#XN z9zf!RoKyw*%&SAzH>4_$68-Gxhhp0ljkc_cYfw`iG)Bv0IYf_F#>To+p?kx=YX5VH zz?l80Q3fM7QPKde8nt{kg}37FQ`4RgXA!YYp$xPzY8RkY17Rd)Q0yc)?ly$nz#r?E zPx_TS*$SIhxg?(}B4CxDEif1h0&q zD!5|%##{Fgc-IeGfz0*lkfSK4bzKE>QQDL$1_Ld2jyxgnqLRQomH{QtEP0>o0tJ(y4&i|rLj8YHFX>|3?FFZ9)>PT{8V)AOV zf#rNu$GibNVSnI8+x+8#-DD}`k*ko>IsF!3k=MW3<{F1|a1Wzi*1&~rx5O;BFuNvb z8q_}X=w{h;lF#J%W9DMEUx5qtb!T08_*xoN!Y$w4^xJc1E(J9VRal?EI@K7fp&;_P zcFA!XRIyE{GXa?)8MN=}6?zTZpal&ic-kp8+Bt|rC% z?ZXBnYydYLwaMuhuZwezM5Gmhg>PM&i&>E)*tBd%CUyu~zZM$F0QbQdduL|1GAXNt zaW*kb8$rb$t!h-e?#oBeSM9E)6Tj2vDcvMGi zdON#CqkDesj*A~%VCV9gAdD51fnxF3f0YltmIt7#f2mUXkAScLT-)?7uKHK9r}bO} zusIo><9qhE1poJFoBoI4GD%KAoa8;R;l08=1pyGq4r?-|rzy=wEfg-1ajs?>Jgak= z37kZuD=dy;E2E8Qfyd=)Hj4)YPwQ=~T_FLN)9zT9H6 zgtNX=ac5x`QqeSJq)-(qHbo-oBRt9#tVDn|+_iB}UBL%f+T|XEbIZaLLXq-ctTLLG zJ1KMy2S;OV_yM4yj#qff7L&rbXYWBl2On(uw?kxHCTW1HdmTk#&wxDJ?1sXdU_syu zp^^qbh@*I0h;nLnf&0QaYAIA)^ou$@v>3Tz4WXoY*=#bQC-u6)m2D{bfP-0(yK*Ln zYx%S{4fAi3t34?LQKxiZ;<2<<5GG1759GerON$OQuEGssL=~X|GthY{ngw#X9vjfK zz7zM4!O;3x4@(d$C=S-kn zXFRsJvLP4F8>2_Fti8W*1hljm5B@lJSROtW>L_fS85Y8$>C)0!65N-V%o_f#*&vC4Qz8l=3Mz|I)NLwe&VlwZV`Sk`p(BBe!VBp!(3oKN!HG4ReX3lV~ z?)TpNPE=C^inzd0H1v?@2N{%Hd_8JE^BKoCtrv^p;CCmXzG;J5HXZUCR@#E18GjjL zsC+qq)>a{`D>;233QgJLW8+>uVGO+t=ml~oqrtk5Rx*eO_a?iFTd-nJZg@ZR_W9|i zcaxkH6x16S*Bkc4u2QR$)yB*)(Y0md8Cl0>H!v?!%x1R*zV3B$daAaO!}-~0Im)HI zePTME_z1)hWPaxxE1g^vQc>?gw%wRV03f@h$h$6pBg+lf3v+{4o#`&sNN|M5xG4RT z3B*iTHH5mIqRrTt1tKNDQag&VH7@0h-mAUgPO^C^ zZ9GyuX;0e%2r7;7S56sjq4WNJ@leMamcKQU8le^UfC5H(fn!8eN7ez$hiwLZ(zv zA)Oy-@n0+-h~ELkpfFR7`)dau=4{w!{YzbkjXZhA2E_(hrW=X%YVSd#w=#K;u98;X z|A;Vql{lu&p<~dqdxf<;m2n6eNHU~))_v(h82I@Pe-jm8mz7P2Ad5dZsC3=ZN-nEg z)4*!q0cqF5&b2q!cMqG^#+zSaYXU1%rDm)EbJ69hwY#WCkW>HN>NzjXA!lY7q!iCW zw|mXo$|!qd5(*D5@;4tIcQa;_0G((BjK2_Jr9+)GtioybEYiZkC&#~oGE(h=gkxCG zZ>=&h0ENTEI8P(Ks64M}#5w#~z@-0a7)pDC%=~K5;-BVQ$M5X&bm3iPiH+|S^!Pio z#482Odu|4*3(uERb5ZN%smw#SiL?zzYd&6|v<}yQ`U0ND|4r3;{~!=;*V={_KROyE zd6#4G;dh)t`@3}u78v4^aZDj=-I29M&I2Hwi!zGzbeY*g^SxJ;R-D8-$p`7&3UQDS zTtm+blq|frRzKN(Ev#x$GHCq<*_cb*-!D%+%_;i(+*po;|3kyPM>_Z{-38{EJI((l zq3nN;GdZr_qBlCbe1jO0o5$nHszagbCV4H$m29At8`j5D!{~>4mFZ}fX z^g~-bKLF9KEY@2Vd(hv&e;#ff0+fPkBOq;l%abvBFYxGNpe@%aCusQUkHZ{`2{G1ot0`14nfMV<@0^;BK+ z(g|4ycPX0xGAa1&ROpb!XMXy#ag|n)xMd7wM!zns9@Y2AU<`ExOvmGcz12jy>YP%GKA%KJK;`nc2*ufh);bb?CV}81lif^* zDw}qL9zX9j#Fb7yPW8t z(ogsSmNsmUDcHDKGnsGmC@|wt46i1mh9v1TGF+SsStad>d=LVRj=N6yn{NdMoZE7y zk`HnwTm4*($edXJZb?&*qFvJm=)3#w;yyoay+}8hp~>Ndw?YQ!)9J3Fmgf=mGL-(RYQd!4*m(dpT7v0pg!2 zX~VAdx288$&_^1TYFtx7Y!Dmg5jDR{m5P6JV{8nc!d zEKEt9ag(i&bV6-Q+C(Yth{iOMW?n_F&#V_*n5tGT@L{lEe+wOty*{TmS>AGNghDhb zG6jYP{_XYj{OJ-0!*F5Kfn(e4ZRy}l>Bo8Yh}b5F$F3+q+50N@^l-iFvutHwK`XQT z@4~w1IlUp=+cuZ-KNW4){H@LYe5%JL0n!H{S4?w@`G$OwV>nMbSa~;xiG@e~*bNP# z%q4hMhS)S3^s&^d;q?_9*8MerIZ~lqEP&i2ikdq2fu#ce>{%twwwL@@eAq!=e|<{t z&y1zOW&-cFlHo>A2DYr3>U;q1u!3V{YK8x+mx1?m$l>dW6j{GHwi5eEykPa{|WFRd0 zs?iN23JR~v-cwb?HyaX+UpUQPtpDtC4vcv>wO5%~5X7M#6#H7oEgM#!ZbgkO0Gc*y zr!5=9B)|(+?%VEIS{AR^m171dWKe`-mHtcFHvs3kIJUXZ9a8AP*Ybf2RAq07NgWR} z=PcIhrh6gG*`g<`-RA^akMm)uZ@xG&v%a*3dsB8MGphcJ+hqS6p{M3=X*Rx`R%*o% zylR;f+>lT~&wt+Yb%nDd3^jgJM2YMPY~bs)CCC3PlPg)9sHctE69A8drSIb2%r`YOBk*n)Dzp)@M;?4{F5 z&cK5ha9QVE-cev9wWTflikXPn1qz`@!#3%T=}1qvDHp4;5ikA=?+!1gqRXw#|Ir;b zD8c|-Th(FOz%D3sC>9VJemk~?d^8ysL^O$fsP2*d2je${XH^p94RgX931!4Ycp^D) zaawV@B@dA02-%>Z;4Rf@xb~}imU5xa58PbPKEbz};*}2=vG*Jpo+y=r31vR}Umg;= zsf=e+&&M?R#Yh6yoqxcA-(b~gyw4+>H4|4G#xh?3%(Gd6_8S)!P=~*R3x7QbgWzcP zj*`zp+s$1T&9d-}*b(0uzr59;0n^8w!XJNA$$vMn@4xasy8jccs_t# z>SkQM6pQ{&6_Gl(N3hvT-&074binl)aCe#mrWR9r2<>R{yoQGniCSabOAX9jRnjXj|;bruy%=p-(44@?l zr1WW;N<#1{>D@ZS`b6L!Zz9393Qe(b1w^j|2Y6bzcVGoN-AB46ZWl;eN=kA#czKgE z0iu3v<4c8T@t|OOaD-_)A)0rw5Rm&!9h(n{XoVlwLzGfKru=von(_R~j=qa*^7yes}W& zjqt%|H+7Mu;c)Mm*a!q#VJ)23a~p6viFod169>pz3q<5?VXiJq(p>0Su&UKwUozl26_ z&^ymWbAGn7zBp%wB((zuNOJTMj|>NLSN^Wj>-YSs|BfC4RegGl#0eU`nT5~7w>z!@ zvjwR7d3Th)wt-}~`gn7M^1SBHbx5pfQ~bIM1@{A>=x=dSU^l(BIxe&QqBOnrzlp*A z9}>6!|1=D&KMw;h{I@XhWCVRfSR9slUoXgkL zfb2F@y-x=7GVtIN`aFt5oQ874WxJaXJv9t`F*A*Goh1uw72(Tze+Rv53LKozkfR2i zjLy4%svw~hoCeG#%)R-}ZUx(_ZWREVMt>gU={wv>D~=k^U#gkOyNA3L5^{q<_#&-5 zctDulp&a;m&Gj;USWzzto)WzP7?Qa(0aL2HMm*N#4$f|8mmIA;~k0)6d;8-UfM{ zvV7qkOI5PpqjP719{|n!h2sQiP{ds3O`D{r z{Yp(d<-K5xUd4RkZofhw90x&;}%dkQP9a-ZF35^Gqw>2)oT3k8wNduLf5KPcN>aM5^%*7iE<aKyA>iFp#yKfbEhL4 z6BW%2J$(Bk3XmpVqM8YG%%kGe+e@&cscj#QP^>=p_7TwB4Q$WM%Nw%*wevp?6f&2r(Qq5GM%k7?&E z4x0q@z&1xmcX&0K=G*D%>(pCF?!FB^kH%x)>1g4+Gm~sR9V}{&$q9TXY#aQ# zPU>U}y`2WLjX_lZLxxAH;Dt|5swdZ;(E)+kA<4U;<2f@ON@ry80o8OeFLt%1>TYq( zd79v7<;81(reU^-tihcVN+r{Or7ee(X)*wLS7(fMUdxL84vY58J~ZSKfnCId`tBcg(7Tqq*R|w z-MpKY=$QvjnIRq|@F$)R)mix_Jp3X1Vi+S9B!59CO9S4OkRzt7Sn&q!e23e#uTn6eGUq9>=u0YkMNu1X0?DBw?KuZZh{% z1}>t06}4eN7E9s*Ab@7`2^>A7Z!|Rj)puo+ye}FZ{GvZ6gCQ=z4Eb9mgiXb^4#A(QepIh)fJFG*1bXObA6WK-H>PJNB|1Ca}Uhg9ii!F zLwxMs9h{%yUpiFH@Ae0NCo%pXirXVlElv+Nm63iv@LWX!f3$bUT}9-?LbL%B94}!cMXjwN(FyDwP20=OGC({hBx7+N%GC&~JSOd_{vS&mbQIfUNQu3nC^?tyzt60D zO?sgSTGR)u9mQPM>YtBxj8`Z$&$a&@RVHieK9(F(4==cL_5Ry(2>+A@{BK(o;lF{s z{|eFlKd;qryh{Q~Xz*$Pyi1``@PAXG!ha4C3*A|)Wk;DG8Y_PP zfVJKLoVIb;@93A*EMu}%F$J=q!U@YpVvuKeZtm3VgJ{oTo=f%@ryfwufzKLD{260z zBZ0|Nk$Z@}5$5Ch6<{_0eHn*;Cq5U=LrQ8s{9_=^Cx5Xo1P#BAt(-~$>Fn{lVi30OpDl%7Td^z>Vz)os?*mQdP$$X0NRi!N8R%i93PfQ$)S?v>osps6a)%o zIx8$H2X&#FDj1C3iKITdLi`;fiD2*<#;~}?8djMeHY1y_@J~4bihwTZm0-9;0oi=} zbW1*Ev+1ElFw2J=LE(eS&BUfkIBN;!`HSk|w38tT%jX!$?dF7{%x~ssXE-ioxMsw`3U&=1!O%T z=#T(HEzg0;p?`3vmilquGS?9`(>I;@&P#(A-K-JfHb61|OTC_+pEnu>NiKOLxL$y! zp~+u!Kn+F$^!aIDsdlU&n(g;EhVS7vYDTRj{)@R!*D7LCa6%4UIvw%-Y=lSix^*&8 zZZSOO0Z*|3RtwOuuBt$s-N|Y@vjJJg8faW6-vc$0i#vlXVK9&2kYUuqA!K09{Zyv^ zT$CrRRD521AzX3L(ltB)RNDnOb`LuJ*&|a@xXTIMT;V#30+7Hw4?XR?|&@ zXZAwv&J~DiN#g&MyBb=v$64~=IXItTOP3`(z`t z)0gCP?@ujv-YdQSO#8M`4VV6HC8MVrvL_Dmzt!Mf&!p;w?H-0?aQ1OHEzPVV+RVSO z*h?-ri#AlkkF~T8?@!a$XEmR(tiKTh6O1$0Q3Is>>8OQQz_9Ney1wIBHm+r{H+KulJhPt= z1~HjG_k}sWmK9}1ryYZ58Ja}ByA93E$@?V6u&@Q^c+gzLQ=g_9lqD4#%4T|Jfj{;m zYRZ$T{1cddKa9*e(X!7{L1;0R$Hd^5b1;^SyE~1|bk-@1bxJUlCN65(sXr?un&`?kbi$&kkaF$N=T$c1E%4Ng0X2YebXaQ z^#hL`4`Z4$U>Sxfy%XWL4fr!RLaYyqL4inY82>!!NkZe|1>J8cMc&>*WB2kUn!J=@ zG=nYobu)pup{hoBdIDJQsQjS(MY4nV{MciMrV_@5A?WcCvwBOIm z%k3$nZ;u0J+SyKV{4r6s1J5>nAU&bwT_X>MTZIg!+)S$$3W=sp2IV)%Kooj(H+7}a zAgi|G(-#*0Ey;vtp1(wrXhb_G@JUh6D#Q#yKLv9$8?Ctc@eSZ@x1tizTM7#JU%QEO zmUN!uYN(Ni-q&N;Nk$4or>>Mif0%#6Vo1zV(WB##Ok=-+XLXuSJejmqQuZ}5bLJe& zGuf#Swdso?!&;Nf`R?%Cq`8u5PR8|V|)&UA0>Um6zTHXb~~yDQSPN{km4S;U0< z@sK6Md>$e0(~_`?E$Zd(A-)CyMz9M#tAY!z`6hGU#LYPhL%Md-y}lAMhI2gIn#5GU zF1#LWawLaL&+l?GR^$2Fl)cK3a28r%-KR@QW~vsIg@dFAgTnTqmZ|DJpJ2>pa>=hv z_B*E<;@c#B>9 zm%oZ(JMpV);vEGA7xGVr3aEx|gy}fZFhj2D7X`(dxOjicN)MSWIRiEQ;iG>U6k_0K zVbh||I_Jb*WJ;H_9dr;p7u#j79KsOw(HOb&$I{n4H45Dl0l&4p_I`_=-k@x)Q9zAK26z@=V{<6Q3$E+WOoXu~q-R z8kco0)t=lO^S$E8+K|>-3x@{qktwV}kEL86ks6_;ixo2z(E?)83lul3=ep_?RII=_ z*TYIBhkUh^@&aA`y#{tq;+rvXQbo+oCVD<3$~o7RLG9Z!?l|8N&NK7o!L1k>tKtQ0-2S>2AGaV^nsoP}A( z?bwbW(;tGm2Ia{^gr@CQ)0OP1kdnV^|I6Oaj5eA2f8R@vdy~cT7H*le%H-1S=yU#G ztfF7;``*UPFyqJ#ue`$(#gCneD^}%>f45t!OZ)oQtsX^B*Uxkk-n?~n574P)efCyW z!^J0WQKJuyDG@)LgLHl}q&h}Hb^?d4QzRXgO`f*vQ6^@-2l%XVD4 z+}G;f`68#(pHBY{9;koy?(Xe8+2r))n-1Q+G)sQQ`*qV_pYkvIy*rMfA+;{YZ1&kJ z&7fxBv6KpMJMf3aB+yx45$!6#)(gWmMc~*YLqn+tctlZ_+ER1t^=coVK7Bg84>&K+ zVDb9n$B&D?2V$}E`SG;PH+^h5fT|LFLMU*|-2aS4o5k!~zMG{0&0_F$^>bP0l+XkK D@L6Mu diff --git a/man/figures/tidy_mice_ex3.png b/man/figures/tidy_mice_ex3.png new file mode 100644 index 0000000000000000000000000000000000000000..295e515781104f7282142d7d3186de21f3fd9a44 GIT binary patch literal 19524 zcmdtK2UJsAyEclVuoV%vh$z(pf>cZBO;n^w?_H($CN)45x3ED0>C$WHBnTt{LO?`7 zKtO7Q5Q-QggoK_zLb;2*zjMbp=Rf!S=ltI}W88Z)$XJlIm}}1YzH`0re4gh`oT0uZ z`)QujOiWDd+FB2dnV60vfVaeNEWjr#y+(b&;gp}2RUi}7Md73OF>Pa^H72GjOxh3C zO+#~6@RCW(Q@Eb>*~7swLH6E12MOR|?Q_08y0q0wJ;&Fx4%tJQIw?Qr1idGzZ|qy(;UxL`9U~g8w1|$mhZetX z1d6iolpUX&!FJw7oLr1kLG&0wGpCS}nCCJPq%ZStR z;?McVTvYJsvw|8>+g&yT=MPpq;P8TnQz}zllN3Y2{E|`E?LvO4R>RWVS1{~3;jTP8 zW0{{%6bu?|TX^Du&ND`mY{;)JZBBlz~;fzj@arwApdJX{cc=Vfsa8*<}P=h6$1(Rt^d(cnluUPwk7LfGhh z!uXrP6P@#n88H4S^D%N~en+KwoKR-r#R0S~U7d$IPRT=O`B}Kv+}aw0AfKKhno))w zraWZUy+bLNrW+(bK05C{jUJ8Mt(j$Z?b;Bd*4-Gk^oCDj-e6uKzazbr4&${J>Sard zW@y)}9fEr1I3ihk9O8v0Bm94y3pQ**KCKw;-Vi>r-jl54vwquH1g#Zq1k6|%vfb;xzIFH!gA zp&Cp-M%tpPvDgW!uX(lf0C6`$XiR*(?~hlW>_7EbH+Uv@UiTCZBj<)bXwv1sq(5FT zTwRzGJ*T@ktHY}I(~M_B#qb8Zj6yim`Gd#y}VD#|1!Xc z-K`i8ORsj@U+t;X)pTb)cwG?LeOLL_s08iB?^4qmf$HS>cYWp)I0Bc@TZP1uj*lkU z-Sj=58fT_8kc4Yt5$~;HGb6f+8vWRlB&w#NL{IAKBSsG>i=@QALQ5+Xm!!!)51VnF z;IyJf=}Ov6fkK;g5PBItisZSQM}~cTzLQ@j!-N+iKvQ;-1DwmHuR%g{=7sh%rURC0 zXTd`P+sk{&TcQqyp>DV^mB*D@pu?#AlnBOyz&wQ<5R43vs+O4b{ z=@%->kg+=y8Z-6Zsnm}8@)=18jt%F{6)Q;*OKjiXmca&Ot#F{cW*n@|Yuw66E<57l ziYk+7nF?Y90sTY)+3RL|`<2@2?iX>$?K@wi61dZ!O~!$Ii24~e$_t1_uf+Xg%9`G* zPtv`fi6#FBN=+BRe79GM8;`*@`g&> zKW)PeW~eHL3$zKn2^EN$r6fU7TUfidc|;g>@J`Eo>hO>KTzuxhrHB>s_BBB&Xm$lQ zG-pEoBKD;zq*p~Wd}gH${-(dy>?R|a>{=iiW^PLHl{R!Q=OS68GavTIV%-Er(m1CLH*vGO9A(!J7w#5$_j^sbdGtUDb#cUooRQ z2V9pOP)gLo-G2 zeBIlB4EETaUSUz;QXY5RcQzz6q};Ix4-0J2TRoA=6*EhZuQb~2w)-Q!B=36Aijx|%7XDyWP zH0TwDRWWL-SRBwz+4_WohS zm&>70&YTfYdZNoU=>~c{ec7~x_VZK%V9nWUVQtk7 z4%^5`s?5Zbs;*~6UC*kPp6|PU`1b5}s+t)6?ZXb&$xyg(53Uum@7hugdKZ(5DO9pK zEoauGZ}MHR!&(}SBUOvO8vJeI-e^~)X*T1_jUN6B)`7~A7f!JC+el9rU-*L%b^4RP z$Cn$}a72Ve4V1nobBTQahulMF_ ztQZN$W1}cRcT3?WTe@mS-#o=Do{~_tp7x;6CEN7nsk8I4DxG%%hXSJ=ik_^$_DXrW z>ei%uYKALVmhChMY>;npNF(U+8H`%#?%NwpifJRo4;RcFFs}rb`o`HM6qpS%GJ3eK zpB2e5Gcr!4`mMi~I5#9X`>+FCF{r`mN!dOltG@eFzIyHoS+J!3l#7C9YX0eb18_;# zNt*xD@a|N+FH~S3^L)ie0TJJJ0X%53WehDUrxjA-9uZwbXQ<5@os=ZKkL`oxyHE2_ z$tx85 z_REca$EL`(;f{Yb(_D_3Ju|FD@9-b?ylK zhbC@+<8@*O}<)6E%6Gqx^@u z3Av4^&@oH>6TD$Gn;9gk!!D*{h5jV0+m>&6nzpjha`NVhbQSX5ov;govELotZ`rx| zt!J?^KCgJs5dh+7;4GLlfL>^XlD)Ang+3*H4fOL)zG!9jePE+}B| ztGV=R|Gp}!N!4+;^tH`}Nb^#7c|~l<$G(8svNx|U-aVApZXXt+gY!A}d_KhMyrIPO z3;G$TE;H&`G@GkN%%IS-A|cu>SENxACn~uadJ+|tHl|TtkOu}p_ssV{uE!rgqpfqH=8XyXX@z_u7IOc!y~BR6 z4aUFlmwtLuqKlHiL48#5kR+dReD^Z89eL`0jk2b~bDQc5iMX zyggp^OTd;nbgwJ(X2k4>$`B}Uo<^``!~IW$+MvCw(?{N!>{ zPdTzIKce!=$*aT5o4Vln3cQL{s&&iee#QyuH$~~KqJ4bTCS7egz;!}hwlmzOrFzdY zLn@%|?S+TK;bm0VXKQ0*kuCkBJ6Fahd``vlrdA)-D{Zph!#}yMJ*aVA@P&~_0&R%b zez#)PO#|PO$n3{}-5Vq*6DkXw)g>@~KD@M5EpbIvR7F2FU&7oCNq@QEKCio9ZZ*D?r;fm)T8M2S$yH>E^*|3xC~}UB%nKNNkW@xQh$Tn87cx%c zBPI~|sfo71XR4aEbLZfdRJ?Ixgoho?X&gKUEDvtQz@$l-!w2)_tP$fr^nljn}R95-(m2jwc?7!!2;5koZXh-jVxv*g}hvtRDb@1PO-)KG@8U?Yl?j)w7KxKmfw(vt zaEed6YTWK0exf-33~3LA`av_jUh{{5Qq*ir1rIRqulwFkT@`5T2$rc@VyjypLhyx+ zzIM6mP|``(p7hIA>dQE%8r8ruIuIrwUb50D{+-9EfROa_VjgPSHDNF7qF%&pKL0J` zst&}5b|rnIh2As^|N6)|f~%Gxz+?FGOq2FVU!Bdi+YFI22< z>VPP!DggAubnn&w9%Ru82jG&Ap<83ej}9k}{_U24x+HLTt7*sv92S26XHFfOM$SVH z_pwe&KvOTSA09A#q1a)Q|Fz+n!zkb-fd37+Ztmj$RCoT{$MeCZ?t_wE=I%46K0o)E=DVIj>;hD+z!lCwpBSH@Nd*vpk99!AzBG zcf~pZe4)dWkjHkAB3`LOR&b2xLOg&%05DGP-6)4rAfb(0G%6lIWqa9B)*kpKLg`6< zRdur_R4xxsP|oto)yIxutDKUlcD&v=vyh##mySEM2gB=`k~p%*j_fyYbf(x@HJL2w zbRl$Y|KEFFdG_2{*2bb?$DRJMi1yW<2i$d<*?O!YO$P$RC>6x;&lrIL%K~ify}75x zulMcFx%k`@zj+!2)W>e+Q!lE&}_towAjX`&Fw$anYj5Dfd+1L8D(L+Dzw5 z>2hv7RGCDv#t+g9;gKV2k!ar>d*Z-q;}*jt^@{Pen?O7w#TcDBYN9F;5eA`rziISs zbIc=rtFTCRntbVig&n_Y?kd`DMn+V_2NW`=i>zoQ8Oo(G9qqNsP`@R;M#g=lH)AJL zWbJwIb+&FuTxpT)`a6clvycX8M~~K~eW6gO#rMivD>LscXF?-yCB+<*WLMUdM93rx zX*h<#WuP^-Bf2>;;j^lLyup2UuZ>kry;rdQ@uSh7KepIB=Xx)<`i$Db!1jo-ZP#pp z1PnY0UtMk=94&Kd_9rOd_Dl)8o)ha!4?}0_i`I7}nIVYPiQcj** zMthDu>k-YQ!$hfrdWm{)T?-7nh-lu7EKZnsVj0N0S}6|kUye;EK_z1jR>kuzG6L_+ zeh-*woQ$}0=;QLed0iG1aRw6CGrh_hus-_byYyQBv`9H}yNW{RNxG3qNb-tRCBy8+ zgHg;$n{UG1)0e?*XZ>6FOK4qTyv}MhzJ28OE{bKo{(|3D3%GA-qGy`gu}t5v7jKP1 zER94ORqOC(ikEC0tL>Qcf)|Z1d2pskS_G};K_@zuTzxz{7m|uj2?VwaBA@02J3U$c zj-Y^yzK%R;QVrBD?8_70EgG7?XPq4Wf=JB?ci(K^NXWio{&~3uV(HqvACej6x%sxC zzeGbjr2*WBpXf*E30KVMIwDp!rH}hfU8m3gacxyuQzoWEW1y}`Z2w?*+Zr+8J{(13YcT~>=>X=3b0jlEEt)D_1E zt-rR-*MnaDIGrFDUj5!pKzs!?j!PSouX0IAFR3*55UM80tBP3}>$S*{J~YYNx>qK> z=`Wt1m}s$WP(wehI<4Z?EOtpFHDg&RAFG3Ubt*F=x%{aECTO>`RVWTb*&aGkG?|oT zZ`J$$NrYYRdp40jp}=W>zdDY%6t^1tS=`y`F8g6pqpBK_x-EKH>lr`4kSD&K zY~$4tiTTy-+1%y=!dptLS%#8%(48rLZRf)x0ecZcd?xIdeP zW&c>=;Pf_PhQx-KilQkZ$3`gw;`B?C$3=HD^b2$1i zq9Yb7y$W7_EAFl27O57BWSEJjFX=^lxb%TD=VyQvAPxN_xZ1*#!aN(|%|Pbxx;!o# z;v(tPo!;>GtBJY-Q0@WNy0LmFDaI~%{4DIOV(rVayS-qJ3&JnEF>`Y#k<-Jmt+U+2 zV$^W70IXUhe9^+Uzrh*ZrW&7bfB@U_E-S>iplA2(x8~6iGwq>!t5YW81edGgBc(Mx z5~%25=T4hMmU5p7Tln0h6&gGC94FO(Q(O2L*&g-=QhW=62&vI8yQ$q@Oj7Usu2wAf4!4UUY2%(^fQrlsAugU>zZ{^m%$PWZ`{PtQ7nC;{ z?nw3l!3Vj4WZTl&9~5=+?)>5n&fMzEJI(SO!U+Td^HhCN-X6Rnupqe~p|D*DaT|Qh z&uFN<-a^q(Ie53RA39#p#I(gg^(Vd3RZV6 z5eT2fQ}?xG1Lo{rnkLD#P%j_6tzGESSVVE$(FKLJbE93PMpgreTg>jGU{0rnk3Hfe zW9f6bWjdp#OCC`8xK2O8Sf}c2hkf?6KtCxV1k-;P9^n+IBo6F)$$kBYE*$jY1XcOp z+spR-Wy5Z2bPkmt$4(^?Rq%cksVqBj?^pc|*h4PyKh5$kgtRp34LtB066=j#8r77* zw1z*GI@z-gH>jQDRix4^wj8wSUTBS7R(7hKuAkq|O*z%V$cZChk`Q{j z(mD<;G0x;jm^1rNdFHU3;Z~uM9nAR3olcs^1CyRLIk)8~X`J!WpNq5phxyjpeYI`@ z@-^WecMQ4QSDc}(;VRqRjtQ^s8C|$p$@k4(%&3n0TfTkFX0cT=ONBQ?KP>_`P^u!J zzw6!8P*p}{jD6_dhSeU1!@8lR80CYUn210%H~lh@Rig4?e9MBtjRci#FzLzHV3};m zY>sXKHcCriN#^PIba9zImBBLln#H0G47ZL~8i@_*nOTe#M2AnUeRJITnT?(` z@D|BTaoIWj4i#!>h?ZLAs)?3!)@#%BJw2)Y-WC8;%zdDo@BtEZ=^&zIoaq+ibs#>+@hUt@s#j zD=A3f!(EPM&9R+n!XFMh&Hd@dc*jQ&6>9W{*fZ&B52^;dy+ikIM+9&*&2A!ILiTC2 zQygp_a&K-wRIjIGjq05m+w{TF-KY zC#z11-D(HS-lNyA@2RNdSu$C^ycT$@8e)uUoGBjKWutP1a}ADv^0x3 zCm9seCT0e;*8|yOMT0aSV374RU)5){lA0+Q=Tci@&qDMEyR!uE&H)aOP7}UP5$yMU z`vB48|vMM2-vtY*9G5Ux9(#N`_*! ztQ~O9QVyTS0{9fn4u0yiH!9||53wT95H)mKm`{*eV2om5B~MarUV&0Dhs}NJvaE9N z?TGLJ{OW5hmG9whhG>gE_Xe-Ubj(Ba=aqVyep=vA_EYy;11FKMt1So_Y!l&7D5nj; zV$PUg2P#7#!D`Plth;h}x5rAMM_s(vu)`&$91ZL^HCid5 z*N@c}$gE-I122%nM0GmiF>O<1BwepYB$rWC>LvlNnK6lac{w#kQTpa#$o*Y~Ke_UE z4<;RQ%R}!xUqOufpvK!=!bnq7hV@A@{GIJ{Fd7(k`dep|s7f4bnV?f}SlWoBXPiwQ zY~@O?IU8vkv7xqwR6s4ER7GAEe@-Vonsh4dw&ZynSvxh^m3=~G8=>~lkzEy(O*FT* zo(e!ezz_t^F40hJi!X~G)@$b7;EnLwu9a84Tj;KUQy#RYx#mQ_b5pe{kI1t!ql6_A zZy1nOE6*ho`xAn(R$vN1(%{%tyy4(p{)EOeeNkhVWz|)*2?Ua8~@tFh5QU;HD%3=zdvQfbk>3Mz(dxSOjXw=bK)oWn6*`&)$Y z+c66tWl6*1WrNQEWUxE_w5ud8yfW>UMS;-iLGwTBG#jRkTZ1S=utfg}umd4>uz_#L z&Me94p!WHrL|WkXJ(3!vGKP@4Vis<7v6$TGE7(M?0wV8B1Xmj>)eLO2)d@W$==CG05Ylh?CsU zI)QmL-&!LyP=;Zck-a97)x%$~UboXjdSsU277GVIW7WlHONacGQA?b?w!-2E6MHY2 z^|(pt`PAU>Kzsq5cbEIdpX9!i_G&z)9J+}i%i!hDyY(zQEtBAt8$;vt?Cf2b7o%{d z%)6g|H+!HghNV$XG3+c~7!JH%r@us3`cmM2yS7e#XuLz4-Ma}JL=~A{h=TjB$IQ+_ z)PPr#&xy61&oeEpIV8_@2|VYAa;p5u`thqDT7#;-`cm{JGp6!kAkc4agEvt4x1cL?mjUo7r~$CHvy9p+ zny1Sxte5ZZXoPCzQ_jz@M!PY>*a-Y%r*}-UASn6wos++LykxO_l~mJ+>kY7xi+>O{ z-@Kvnp_P`he2qiOKZyGSD&I6ivhTQZtseP1tG?5T$C~<*-`>Y;ngxc{I}^Z*M)i^l z+r*8n5kHkThqsb0F|F|eJt&)EK@i{DMxA1M;Q=6GsZb!HGSFM>$5%yo0$?kYQH6Th z`BRkXBm5tb*KH#JvH346mHsK!5TksV?U1qBegk(TU*g-P%|gU6iGPcjR{zCDz!^Wb ze^2`KU({6nQ$77Zy;rR+Pt~kXHQuNHjUfIKfCjb`3eb>e*<3FvT3!t&XlxfLp#;1YH~} zn@2|n1=Og}uM`4ewtJ2|I%-|o}FSD8ZQMZD# zPkD^`lAldsSppqRUhmH!HFqp)>eQt6X+m*nZ?6w%-qq7(UX^eY;7-4$`!RF^OG|?hO;9blzZ6bBj*5OSj zdsqHc&Yu(8GUAi^P+0=fY=$#uG1|@IAo}z6f0z&@u+T}CcyxTQyK1e=8i zbc6R6JJiYE(^wnEZApZ^&cV%0Zm*=7LF#)&xJdETG;$C*>ES+FN)S`o1$2{4PCUJp z2y1C$XqOL=b4B@7+G<-bdFI)KXV<Esng%z#}4Snjkh_$zzrgC|~32E_2F*u?M1Vsm4)t z!py>FJ**sfJ*JNYl8G{$V~X$quA3=oU)$5qvT!W|Fk9M57qZ$K0o>hm*wCQ1#KI!}nznY~P^h8j$v<>P3|DhrP)!NZ z4ZPONk6kydz)P1hG-?2;s9{6*jd+5HzD8=@{WVMY7J#o^H!zdZGRwI9#M||qaMc|L zPg>Y(UK zse4bdrl&`c6t_}mLjfV1R~!k8q&YdBYElN1qrfD657FHCk0 zNP@;=LK39^wDb-soyX0&MNhzrU)BzLRgH8tKeyeVo8ts!>y1yDsvRNdY*nD2nIn?8 z5w|jTBAC�R;m~I1tlfg|j_;FeBM83XJIBT{mgWMM7c5lug= zJPNXNU)m23Y?gxlF&l@B-QC@==huNVFKoX3J6z>|dRG4XjQD>x^dr+7+8wcj@3aCU zC6$SNSf-D!jzn=s9HP@^2vRa+r%0|R#q5xk(#Goy5QrXrYggUBTS#lg&qQRajCd)! z6%Mc;$;F3vvG^8;5VanKkf|Qf*=>a^ah+gnf;W2k>@3LdZS%Ek>>A=@*!RC2cr%?P zNxRr>+GOnEyGxMe>`*Rj*cXMiYD;@aO@$x#b>RiAKrA*b5gG$OIoNp>C<188{EkzZ z^Rg(J&r!?}g3=FiMgKg1^VHa;wM-%idRl}CCf5uaMpaK;v~VCHbpm3`SX_~h4h#wC z2xpF|2ZR1uH>kG(det*fW0IoPiPA^rZP^s0-ZQ!;JZ!l?@p!cJ>dW@hVb7PFhJOIX z29#?VsLSV7m-9Y=*7y)(6Y?n+5(pS6Q{As7h|GxqQ}5C{;~w=hg(U1~w~~%U|270u zL6EOP?Q$sgux3y9e8-(MhC#kXd0rX1{A;|QdizLbmS|#k5aR-j=)vt9@y9;$m(Dxw zpR1Rli&F5IBJ;c zohvKO{wbL8-t8c7V)D2nC|uG{KnHN9dke;qLvom$PEM5@iS{7|3V5CkFTom^^y+qZ zg0syu^iJ+{5-}Z?ts@onRYA&2+l28RHo=+a6{J+I-v-cdlG-|pvvl5hQ~OTrabnR0 zfanKF?oTXUc17uHMh{YMmggvL0NH|iu{GEfqAOi1gc-xX*?kchp+CTA%AD|X=`<$^ zGm@NOY9rcBqeli8J#tOG>gk4Sy&k>xhs1y&vWckKj(}*gQ&PP#0gvDbp8U+O zE6Lcajwe^~k7WiIV))bpNh3PORU;LFb?`JCxF?@C}{f z1<*=$U$jfR*}`Ab8su?o&O(ceibaT%9xJ`O0AV3reQeR~BA}Hbf!S@duie*R9oe#} zhVKTe#|iONOPXX_`vwRC%8*Cdw0hE29$I6gT~I81*)jvT%z;#V7+}|IRH`-7FN{yG zc(G|1bL7I%ms1tIIA!bR4NtphnF*}y=3MP!*J;W?3V{z^>}H*J_nIUeKy-^Nnc)z>ChD(We+q1Q>u5*zl#3rer zm68Q_#hl&{Z*oE|4mq6+p9DeJr??5}2V!~-Y`L-5fyeB<&YBEKyW6b0wh6l0#ynN+ z10|9UcE1#xuWbZd7;uit_Wp&Cp4SGzSB3O&9FIy*5IR7RhI-n&UKY@r0+}6bY4@rh z^Yz05_N$9MvR?+*J%h%Z9SgbPO{L=Ay43}dr^(C1I+LZz!G0U;0CA0>hQA+4ZALYIkk9crX=qWuJ*DJ6QYJ zmhC)MlU7qYySc3K^HA}@kpJCamA#>D$6xySi`F|};!9w&?l#r(G5p$1dOSgapl}@5 zl9C?7I6`f$&8F(I-CAJ|q{NtTZ|7C%!#~yDhhK5`U60ny$nsv{lbi30tPw-yZWQd@ z-jcw65>(~@BGor}O*rg=MoO`CSH8)ep9R$*!w;@q0ac3+qTKJ!OfSoq$3BFL=&QI{ z`VboX1Nd^3dJyPv!Rjy4W9ykwX9y~th&8z(<|S4@8#IV>=?*LP*Pds5x5>0lseY=S z2mMZ}#<$h`9Y6#6Jr6SI8ScMsDkE~ueMayy#KQc*hzHv&GVMvOs&-G?QDpuaUk#;A zWopzRn)vd_|2lZwe!&ivc&hP3(Mce^^s*24eNl9Sr&ch~n3Ih>q_}RLOF9H-xvX^v z8tv~Jxw5eR!63bRa^05}?H#pXMx2`n%++OUY9qqtBj2iQbD;9d;vX372m9ifSLma3 z^TxYIqckOA(Yd1$h$PCT!b1{D9_m~>8QV27{?H2M`7=NYvhdBh_ruV4o&gxg2_MBC zTv`%Oz!l!dKniiv*DU8seb~TKG?xd3{Bne@8pQvqM=22p>Shr&q)+-- z&=H0*H!pir5aOs{Qh4epDN(lGOHU68aOlsJWbr$%@V5}_znF#nPvsl`k&5g8W0~K7 zkh{$QFzCIY%1==S>eqU=5o@_D4$Mp(Y2ByQM6xyGQpgTdeeTY?ty1hH>H)Gl0Z3UeP&npHqEGlO&MZh zEdu`#Z<%%atI=Vi7wY9&QIG|2GVsxwsI-+^l9mYS%_DGM@h!54%v~(_PDI+fCOY!%h ziM!&@f?_so#_iGcsTKIov!2V)yoYkW1dBL~-91k`KMS z7v;v&CT{G?3a>1}$R7X<;z$CeF~@ZT(Sb4PNbgmSu0w0dp#7{e&4t4Zmi&^z>hc*N z{c=Cw*4r%h%Zs{~=cK@8!fRZ6gS1JeR|)6SJ29`io`o$0`Gt+~=Ggg4BGT=A09h2< z-~;yeqAW}XC4kJx;}>oi=azcy+>&_PkL%|Bw)O?$z}kMk6VMfN#z}!E_fNV6Q7@-6 z2f$S9_l||gLxR4us3ITvA|4v!mU2~7es(-tmXUSueVkz}_nAghgrIua4bYv|H_mx8%VRTX z;SB26OhB`=bV@DgEkA}*Y>nrc2oL};=sANAEGBxGMVGmS-f{eqwu>W$j->IH&Q5)9 z3?^+QEUpw!;le2j94WxnA1$R_1>QHA*1+|6oKU0pDxr}yHAoO`r0n!;gU5O5uZ5ws z1VwSXT9XJM)pI=?KVDTt%-^h22U0T@?RFxL^~P;)OmNscSPZ)c3x^7%S^FV{M8<@< z@8o+A2`nv0YZ|kTjMvlO)Moe$xDl0C41uWkHo1Si0j-EV^@o@-)V*qm7FX<~5}{Px zET&Fr5C}O4z%){|8+82e~*axM8OfQa&)WPj0 z`>j-DB$HD`t@O7pcUz=wD6S3@r4OcSN*9-rUtgI%RjWqy`_ZoZ3&bC7)C{~KOJ=xj z2=RP%h@<=3Z4(iioIAZ1-fKJTQaRl$epmtva2@hH2;iK1(HDv zTixN-HdibV&RH(@IvKa=cN~abYk!P9dvsl+> zI4H&={-@WZk3}ao5g99`x4kc8R9A^HL;n0#xnR??Yf?2HKJl$qrP|oXjgb{j7Yh9$X_0esGjLr-5 zXbNk7Zws1#%{w@YM4=M3?a)lS$OvoO{&klPgnj6Bpcbv9gcMzGyL}B6R`g+)2+ z;Zu}%`FSddtzC}~zNC8#PW+Alu;NDtkKZiCy+AH4pqI$C!oOjPE80KHn2G~6M&n-v zd-3Q+pn_ZLpmM4!H@153{|0a7;J7qq@TnI~c}z@fGe_SGkl1(XMcA*(ztR-~szQX# z_6?Bxy@tFeg(IvNDO(cChUH_~nh{zX6kfPviX`#NPj@Q~wc?_^Wt1Ze+1E^*0 zH#b91_A=`;^@sZHnJIWP;z+DJkN6${*Q9J<9&}rzZ(XA ziGo^S%`XVoYr;=70(jev1Qvu+Wg9VW>&}?QZ89>%eIOWEC{>PRUtzt!YOm|dCRC@T zCs%hod4~l~G+yq>@tDV>^xX7$V(GbG5i3z{Iu^H><_0Mj$6)7sDfVlHIJOml2}v5c z8r;wG#h)bzw6z{J5LIqnTjHIgysUO*oF-(LrWH&Z_CCh6r$IaAu>hAqAp-Y6d&NG321rwsb6XwWZTV;+#3Z3iVF7QA3WS+goMY;4ZO1n0;XTf z6SgncG-%`J1+$^}&r#(%3%-&1i}4%joL)9QAr+{XCgJ)>Gd5cXwxQ$^%Nd3cir)sQ zG!`3Dm+;+$Q8=xBerxQk>>-NuQkDKTCGt;9h+eT!rlVIsf7FG=r3|0zdt*)l?%2K2 zp1I|HY5JBP%smCi`VV@Lf3=%H#+U^X(KS<_$V8!pqsr@*_fyvg%9yQov4jH{P|RD9 z&NJQ40&n*PmS|vXq3nc(&}4}|f>nJFI&gg?a{obOdeCYJPd`|&x-RtoUrFV08-uH!Z1hICYj_uY=Frl<{U@I& z@BpKStNi9ca$Bv*y6=s$scWDjqhMX6h#kTzK`;3+vRU=CXN8OM9n9$ z=QyfN=m0YlY$AfL-ZEl5&TXe9*YM`&vUFGDHibs-$Q7;5of~Sjlt4m&LLHc-HlP`C z5aAB9(H|4kthaM$Aj`UJG_Y#{a-TgGK3_)mFkP4`dbrEQTpuy#h~9AB^{!D<*_^Z;kjADfYZy?znP6_V#i{iwai}kuwo7qyzU%3_wZc+;b1lI z)ud^@Be}pr92XlQ9VQ95LnjfP5&8C-1`O`*&hrAQAAOSdb>D)VxhQ^;nC)?az| zXtAeH$eCj4Vj%FzCa@x`YDbn+Kj$Y&;@Z}RuIJ>$WP9~@<}Y(0fTH?I$c@0r%ttq2 zF|QX;yEOPRyT>NumW1FUf(3o0B!U-6poKL7AfSPbpx(#DfP|i{vSlC;G;{X+)hX)w zXNFwP(sL~BY3Zi{FB1;0piMI?3F7DFh~_6@R+};$Oifk`3W!A1t(K2%3wjAv_v`qL zYg4-CTKmjOwc-|MD_Jx;-h!VYq^pH(jEkY>l~pHw%}T4|8BZ#=uknkxF2-gUz@NDy z>Q%l(r$y(ti&GDa0}VsKzTp9ok5{Z)?fdRy4nc;pO#xB|2I-}`rZRR5ZmC*CT2ElNEyw8`az*9%Y z@C@3|<*8NgIm4xn!`!G&)wxq%n%AyHcI6}U5bLhy-PLs>DrUbh;-XSk$CyH&0s7!z z;7br5_Euh9cc`H5`*?&-fkZs#RIiRsffLZ=k`lcjc*N=Z8AR#H64a~wEnEDQ9{)Tx zL!v*WX8U3LrvO)`7p{JpTwPMng2wRXgS!%0%@Jy}swhKjl&eZxm3)@SILu@#?9(h+ zb^6xj@Y20eqSn&g%>3n9i(4 zsC!3cAg(1~b~-qA!Dea|uI)pE^g*1|jv?mfl!{ZT|MN1jSB-3jK9i63VY@4uNSeJs zebQicJ=!Bu%?q|0-RqJgFm2NO&42PFD^qBb$Qch|h5SA52sv~3{SUi98E&4f#@tld zW0^er9pY5cxFS^vyTF@(;Z$j>{A7o(AzCMf^8T3%D?(SF1nN0X$-qturwjs2l2z0JnnOfQI=x$3n-J-AxKw1EuD5kw47 z`V<4c*bTb(cK6E+5tLgDj)og~V)D^GxjWL}Y3t#i`lFUJvLWBn51%XKqVGM_F0@x0 zn~?&_u?`MVA+aq9*ZuikK*aIjhvNKe%okWq6RR=c?PCa$IlO@%# zE$1chTUn~afs)^*U{VL(*EdPs$9FSGVStt{*5kE$b=n)AA+%3aF6rZX2}Ba$g;vcB#90ps>Xl=D9EWlm{PHA7vrzRHJs~3UX8*#GKiGr_t^! zUML318&TSlQ@Yo#+0bYwOVEl{9Vi~+7=kU=9E3SfPC0miJR9h;1I2E3R?$UP>ThL3?IQc1534D$Z12W3(wMpn7AxsD z9>joB8_);lSs_U}1c8zy4)6puCu={lpRK##4xA2pa0m2eWjbJ63`?|7z=1oD`8^g< zGC|+&3q?K#ab-I{tDyqP4q~Ew1XqaGZ0^U2aduj&N`HX83DlBw*!^Wy)v6OzFPZuQX2M{onc1=#jj^h8%&>`rv>hI~@(7@6!MQt+f!w$CF@WV2 zhTaE$?cxN!l}a=p*mU1p{{#5?sdy29VmDMS0`lb_rvO0jg28|O($yraKxkOl?%g9j zn39x~lzmWc*1u^p(h`m(Im!W|kD1P+uKZW-&k)RB{brVz9Sthc literal 0 HcmV?d00001 diff --git a/man/figures/tidy_standardize_ex1.png b/man/figures/tidy_standardize_ex1.png index 6123dc1386cedfc8334361f3b18cc4957bd4610f..8d3b60850c9fb3d7d9c124448386eb8c2a08e884 100644 GIT binary patch delta 24 gcmdmTmvPHo#tGWoVyX-bVycXuK`I|Mn$_h20B1@EM46)#j7lXjYd80CEHfOaK4? diff --git a/man/figures/tidy_standardize_ex2.png b/man/figures/tidy_standardize_ex2.png index 7b9b27c7489b70e110e9ef100e2395e9f16cdc7f..65c57da82cc63cecef7bcc20c712a841a7bd558a 100644 GIT binary patch delta 24 fcmcc8$#|ucae_9tm?{H\% dplyr::filter(term != "Log(scale)")} -\item \code{"multinom"}: This multinomial outcome is complex, and the returned object is a \code{tbl_stack()} object with the parameters for each outcome stacked into a final object +\item \code{"multinom"}: This multinomial outcome is complex, with one line per covariate per outcome (less the reference group) } } diff --git a/man/tbl_regression_methods.Rd b/man/tbl_regression_methods.Rd index a5f1cfc7b6..ffab6667ea 100644 --- a/man/tbl_regression_methods.Rd +++ b/man/tbl_regression_methods.Rd @@ -5,6 +5,9 @@ \alias{tbl_regression.lmerMod} \alias{tbl_regression.glmerMod} \alias{tbl_regression.survreg} +\alias{tbl_regression.mira} +\alias{tbl_regression.mipo} +\alias{tbl_regression.multinom} \title{Methods for tbl_regression} \usage{ \method{tbl_regression}{lmerMod}( @@ -25,6 +28,12 @@ "Log(scale)"), ... ) + +\method{tbl_regression}{mira}(x, tidy_fun = pool_and_tidy_mice, ...) + +\method{tbl_regression}{mipo}(x, ...) + +\method{tbl_regression}{multinom}(x, ...) } \arguments{ \item{x}{Regression model object} @@ -36,8 +45,8 @@ custom method. Default is \code{NULL}} \item{...}{arguments passed to \code{tbl_regression.default()}} } \description{ -Most regression models are handled by \link{tbl_regression.default}, -which uses \link[broom:reexports]{broom::tidy} to perform initial tidying of results. There are, +Most regression models are handled by \code{\link[=tbl_regression.default]{tbl_regression.default()}}, +which uses \code{\link[broom:reexports]{broom::tidy()}} to perform initial tidying of results. There are, however, some model types that have modified default printing behavior. Those methods are listed below. } @@ -50,7 +59,7 @@ a few \link[=vetted_models]{vetted model} that use \link[=tbl_regression_methods \itemize{ \item \code{"lmerMod"} or \code{"glmerMod"}: These mixed effects models use \code{broom.mixed::tidy(x, effects = "fixed")} \item \code{"survreg"}: The scale parameter is removed, \code{broom::tidy(x) \%>\% dplyr::filter(term != "Log(scale)")} -\item \code{"multinom"}: This multinomial outcome is complex, and the returned object is a \code{tbl_stack()} object with the parameters for each outcome stacked into a final object +\item \code{"multinom"}: This multinomial outcome is complex, with one line per covariate per outcome (less the reference group) } } diff --git a/man/tbl_uvregression.Rd b/man/tbl_uvregression.Rd index 9ae5ebbf23..c095033477 100644 --- a/man/tbl_uvregression.Rd +++ b/man/tbl_uvregression.Rd @@ -130,7 +130,7 @@ a few \link[=vetted_models]{vetted model} that use \link[=tbl_regression_methods \itemize{ \item \code{"lmerMod"} or \code{"glmerMod"}: These mixed effects models use \code{broom.mixed::tidy(x, effects = "fixed")} \item \code{"survreg"}: The scale parameter is removed, \code{broom::tidy(x) \%>\% dplyr::filter(term != "Log(scale)")} -\item \code{"multinom"}: This multinomial outcome is complex, and the returned object is a \code{tbl_stack()} object with the parameters for each outcome stacked into a final object +\item \code{"multinom"}: This multinomial outcome is complex, with one line per covariate per outcome (less the reference group) } } diff --git a/tests/testthat/test-custom_tidiers.R b/tests/testthat/test-custom_tidiers.R index 4a871195e0..9295a16fdf 100644 --- a/tests/testthat/test-custom_tidiers.R +++ b/tests/testthat/test-custom_tidiers.R @@ -12,3 +12,13 @@ test_that("no errors/warnings with tidy_bootstrap", { expect_error(tbl_regression(mod, tidy_fun = tidy_bootstrap), NA) expect_warning(tbl_regression(mod, tidy_fun = tidy_bootstrap), NA) }) + + +test_that("no errors/warnings with pool_and_tidy_mice", { + mod_mice <- + suppressWarnings(mice::mice(trial, m = 2)) %>% + with(glm(response ~ age + marker + grade, family = binomial)) + + expect_error(tbl_regression(mod_mice), NA) + expect_warning(tbl_regression(mod_mice, exponentiate = TRUE), NA) +})