From 4f7800b559a32b7ef8732a3c2e575adcd2f0b1bf Mon Sep 17 00:00:00 2001 From: Alicja Gosiewska Date: Fri, 11 May 2018 17:46:44 +0200 Subject: [PATCH] auditor 0.2.0 as on CRAN --- DESCRIPTION | 9 +- NEWS.md | 3 +- R/audit.R | 2 +- R/plotACF.R | 13 +++ R/plotAutocorrelation.R | 6 ++ R/plotCooksDistance.R | 8 ++ R/plotCumulativeGain.R | 11 ++- R/plotHalfNormal.R | 2 +- R/plotLift.R | 9 ++ R/plotModelCorrelation.R | 9 ++ R/plotModelPCA.R | 11 ++- R/plotModelRanking.R | 9 ++ R/plotPrediction.R | 11 +++ R/plotREC.R | 16 ++-- R/plotROC.R | 14 ++-- R/plotRROC.R | 20 ++--- R/plotResidual.R | 11 +++ R/plotResidualDensity.R | 11 +++ R/plotScaleLocation.R | 7 ++ R/plotTwoSidedECDF.R | 11 +++ R/plot_ModelAudit.R | 23 ++++-- R/score.R | 8 +- R/scoreCooksDistance.R | 7 ++ R/scoreDW.R | 9 +- R/scoreGQ.R | 8 +- R/scoreHalfNormal.R | 7 ++ R/scoreMAE.R | 7 ++ R/scoreMSE.R | 6 ++ R/scoreREC.R | 7 ++ R/scoreRMSE.R | 7 ++ R/scoreROC.R | 9 ++ R/scoreRROC.R | 7 ++ R/scoreRuns.R | 8 +- docs/articles/HalfNormal.html | 2 +- .../Intorduction_into_model_audit.html | 2 +- docs/index.html | 4 +- docs/news/index.html | 20 +++-- docs/reference/audit.html | 5 +- docs/reference/plot.ModelAudit.html | 22 +++-- docs/reference/plot.modelAudit-1.png | Bin 0 -> 17189 bytes docs/reference/plot.modelAudit-2.png | Bin 0 -> 22330 bytes docs/reference/plotACF-1.png | Bin 0 -> 20536 bytes docs/reference/plotACF-2.png | Bin 0 -> 18052 bytes docs/reference/plotACF.html | 15 +++- docs/reference/plotAutocorrelation-1.png | Bin 0 -> 21095 bytes docs/reference/plotAutocorrelation.html | 10 ++- docs/reference/plotCooksDistance-1.png | Bin 0 -> 19678 bytes docs/reference/plotCooksDistance.html | 10 ++- docs/reference/plotCumulativeGain-1.png | Bin 0 -> 18617 bytes docs/reference/plotCumulativeGain.html | 15 +++- docs/reference/plotHalfNormal.html | 2 +- docs/reference/plotLIFT-1.png | Bin 12590 -> 17847 bytes docs/reference/plotLIFT.html | 13 ++- docs/reference/plotModelCorrelation-1.png | Bin 0 -> 31548 bytes docs/reference/plotModelCorrelation.html | 13 ++- docs/reference/plotModelPCA-1.png | Bin 0 -> 19467 bytes docs/reference/plotModelPCA.html | 15 +++- docs/reference/plotModelRanking-1.png | Bin 0 -> 22337 bytes docs/reference/plotModelRanking.html | 13 ++- docs/reference/plotPrediction-1.png | Bin 0 -> 21285 bytes docs/reference/plotPrediction-2.png | Bin 0 -> 23541 bytes docs/reference/plotPrediction.html | 14 +++- docs/reference/plotREC-2.png | Bin 21470 -> 21444 bytes docs/reference/plotREC.html | 16 ++-- docs/reference/plotROC-1.png | Bin 21289 -> 20158 bytes docs/reference/plotROC.html | 15 ++-- docs/reference/plotRROC-2.png | Bin 18592 -> 18593 bytes docs/reference/plotRROC.html | 20 ++--- docs/reference/plotResidual-1.png | Bin 0 -> 17189 bytes docs/reference/plotResidual-2.png | Bin 0 -> 19236 bytes docs/reference/plotResidual.html | 14 +++- docs/reference/plotResidualDensity-1.png | Bin 0 -> 19983 bytes docs/reference/plotResidualDensity-2.png | Bin 0 -> 20336 bytes docs/reference/plotResidualDensity.html | 14 +++- docs/reference/plotScaleLocation-1.png | Bin 0 -> 21175 bytes docs/reference/plotScaleLocation.html | 11 ++- docs/reference/plotTwoSidedECDF-1.png | Bin 0 -> 21463 bytes docs/reference/plotTwoSidedECDF-2.png | Bin 0 -> 22088 bytes docs/reference/plotTwoSidedECDF.html | 14 +++- docs/reference/score.html | 22 ++++- docs/reference/scoreCooksDistance.html | 78 +++++++++++++++++- docs/reference/scoreDW.html | 20 ++++- docs/reference/scoreGQ.html | 26 +++++- docs/reference/scoreHalfNormal-1.png | Bin 0 -> 20122 bytes docs/reference/scoreHalfNormal.html | 11 ++- docs/reference/scoreMAE.html | 18 +++- docs/reference/scoreMSE.html | 17 +++- docs/reference/scoreREC.html | 18 +++- docs/reference/scoreRMSE.html | 18 +++- docs/reference/scoreROC.html | 22 ++++- docs/reference/scoreRROC.html | 18 +++- docs/reference/scoreRuns.html | 22 ++++- man/audit.Rd | 2 +- man/plot.modelAudit.Rd | 21 ++++- man/plotACF.Rd | 13 +++ man/plotAutocorrelation.Rd | 7 ++ man/plotCooksDistance.Rd | 7 ++ man/plotCumulativeGain.Rd | 12 ++- man/plotHalfNormal.Rd | 2 +- man/plotLIFT.Rd | 10 +++ man/plotModelCorrelation.Rd | 10 +++ man/plotModelPCA.Rd | 12 ++- man/plotModelRanking.Rd | 10 +++ man/plotPrediction.Rd | 12 +++ man/plotREC.Rd | 16 ++-- man/plotROC.Rd | 14 ++-- man/plotRROC.Rd | 20 ++--- man/plotResidual.Rd | 12 +++ man/plotResidualDensity.Rd | 12 +++ man/plotScaleLocation.Rd | 8 ++ man/plotTwoSidedECDF.Rd | 12 +++ man/score.Rd | 9 +- man/scoreCooksDistance.Rd | 8 ++ man/scoreDW.Rd | 10 ++- man/scoreGQ.Rd | 9 +- man/scoreHalfNormal.Rd | 8 ++ man/scoreMAE.Rd | 8 ++ man/scoreMSE.Rd | 7 ++ man/scoreREC.Rd | 8 ++ man/scoreRMSE.Rd | 8 ++ man/scoreROC.Rd | 10 +++ man/scoreRROC.Rd | 8 ++ man/scoreRuns.Rd | 9 +- 123 files changed, 1021 insertions(+), 168 deletions(-) create mode 100644 docs/reference/plot.modelAudit-1.png create mode 100644 docs/reference/plot.modelAudit-2.png create mode 100644 docs/reference/plotACF-1.png create mode 100644 docs/reference/plotACF-2.png create mode 100644 docs/reference/plotAutocorrelation-1.png create mode 100644 docs/reference/plotCooksDistance-1.png create mode 100644 docs/reference/plotCumulativeGain-1.png create mode 100644 docs/reference/plotModelCorrelation-1.png create mode 100644 docs/reference/plotModelPCA-1.png create mode 100644 docs/reference/plotModelRanking-1.png create mode 100644 docs/reference/plotPrediction-1.png create mode 100644 docs/reference/plotPrediction-2.png create mode 100644 docs/reference/plotResidual-1.png create mode 100644 docs/reference/plotResidual-2.png create mode 100644 docs/reference/plotResidualDensity-1.png create mode 100644 docs/reference/plotResidualDensity-2.png create mode 100644 docs/reference/plotScaleLocation-1.png create mode 100644 docs/reference/plotTwoSidedECDF-1.png create mode 100644 docs/reference/plotTwoSidedECDF-2.png create mode 100644 docs/reference/scoreHalfNormal-1.png diff --git a/DESCRIPTION b/DESCRIPTION index 6baa79c9..31f789bd 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,14 +1,13 @@ Package: auditor -Title: Model audit - verification, validation, and error analysis +Title: Model Audit - Verification, Validation, and Error Analysis Version: 0.2.0 Authors@R: c( person("Alicja", "Gosiewska", , "alicjagosiewska@gmail.com", role = c("aut", "cre")), person("Przemyslaw", "Biecek", role = c("aut", "ths")) ) -Description: The 'auditor' package provides an easy to use unified interface for creating validation - plots for any model. This visualizations allow to asses and compare the goodness of fit, performance, - and similarity of models. The auditor help statisticians, data scientists, and researchers can avoid - repetitive work consisting of writing code needed to create residuals plots. +Description: Provides an easy to use unified interface for creating validation plots for any model. + The 'auditor' helps to avoid repetitive work consisting of writing code needed to create residual plots. + This visualizations allow to asses and compare the goodness of fit, performance, and similarity of models. Depends: R (>= 3.0.0) License: GPL Encoding: UTF-8 diff --git a/NEWS.md b/NEWS.md index 63284e8e..114016bd 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,4 +1,4 @@ -# version 0.2.0 +# version 0.2.0 - released on CRAN ## 07/05.2019 - new plot functions: `plotLift()`, `plotCumulativeGain()`, `plotTwoSidedECDF()`, `plotModelCorrelation()`, `plotResidualDensity()`, `plotModelPCA()`, plotPrediction()`, plotModelRanking()` @@ -10,6 +10,7 @@ - `variable = NULL` parameter in `scoreDW()`, `scoreRuns()`, plotAutocorrelation()`, `plotACF()` causes the residuals to be not sorted by any variable - densities in `plotResidualDensity()` may be now separated by variable values - for function `score()` parameter `score` is renamed into `type` +- new examples # version 0.1.1.0000 ## 09/03/2018 diff --git a/R/audit.R b/R/audit.R index a9694e91..6a622eb3 100644 --- a/R/audit.R +++ b/R/audit.R @@ -18,7 +18,7 @@ #' \item \code{model} the audited model, #' \item \code{fitted.values} fitted values from model, #' \item \code{data} data used for fitting the model, -#' \item \code{y} vecor with values of predicted variable used for fittng the model, +#' \item \code{y} vector with values of predicted variable used for fitting the model, #' \item \code{predict.function} function that were used for model predictions, #' \item \code{residual.function} function that were used for calculating model residuals, #' \item \code{residuals} diff --git a/R/plotACF.R b/R/plotACF.R index 31f74f08..d4b380b3 100644 --- a/R/plotACF.R +++ b/R/plotACF.R @@ -8,6 +8,19 @@ #' @param variable Name of model variable to order residuals. If value is NULL data order is taken. If value is "Predicted response" or "Fitted values" then data is ordered by fitted values. If value is "Observed response" the data is ordered by a vector of actual response (\code{y} parameter passed to the \code{\link{audit}} function). #' @param alpha Confidence level of the interval. #' +#' +#' @examples +#' library(car) +#' lm_model <- lm(prestige~education + women + income, data = Prestige) +#' lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige) +#' plotACF(lm_au) +#' +#' library(randomForest) +#' rf_model <- randomForest(prestige~education + women + income, data = Prestige) +#' rf_au <- audit(rf_model, data = Prestige, y = Prestige$prestige) +#' plotACF(lm_au, rf_au) +#' +#' #' @import ggplot2 #' @importFrom stats qnorm acf #' diff --git a/R/plotAutocorrelation.R b/R/plotAutocorrelation.R index e8a2478a..91f628f1 100644 --- a/R/plotAutocorrelation.R +++ b/R/plotAutocorrelation.R @@ -7,6 +7,12 @@ #' @param variable Name of model variable to order residuals. If value is NULL data order is taken. If value is "Predicted response" or "Fitted values" then data is ordered by fitted values. If value is "Observed response" the data is ordered by a vector of actual response (\code{y} parameter passed to the \code{\link{audit}} function). #' @param score Logical, if TRUE values of \link{scoreDW} and \link{scoreRuns} will be added to plot. #' +#' @examples +#' library(car) +#' lm_model <- lm(prestige~education + women + income, data = Prestige) +#' lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige) +#' plotAutocorrelation(lm_au) +#' #' @import ggplot2 #' #' @export diff --git a/R/plotCooksDistance.R b/R/plotCooksDistance.R index a45ca7f9..04af998c 100644 --- a/R/plotCooksDistance.R +++ b/R/plotCooksDistance.R @@ -16,6 +16,14 @@ #' #' For model classes other than lm and glm the distances are computed directly from the definition. #' +#' +#' +#' @examples +#' library(car) +#' lm_model <- lm(prestige~education + women + income, data = Prestige) +#' lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige) +#' plotCooksDistance(lm_au) +#' #' @import ggplot2 #' #' @export diff --git a/R/plotCumulativeGain.R b/R/plotCumulativeGain.R index a62f8878..74e19d52 100644 --- a/R/plotCumulativeGain.R +++ b/R/plotCumulativeGain.R @@ -1,6 +1,6 @@ #' @title Cumulative Gain Chart #' -#' @description Cumulative Gain Chartis is a plot of the rate of positive prediction against true positive rate for the different thresholds. +#' @description Cumulative Gain Chart is is a plot of the rate of positive prediction against true positive rate for the different thresholds. #' It is useful for measuring and comparing the accuracy of the classificators. #' @param object An object of class ModelAudit. #' @param ... Other modelAudit objects to be plotted together. @@ -9,6 +9,15 @@ #' #' @seealso \code{\link{plot.modelAudit}} #' +#' @examples +#' library(mlbench) +#' data("PimaIndiansDiabetes") +#' Pima <- PimaIndiansDiabetes +#' Pima$diabetes <- ifelse(Pima$diabetes == "pos", 1, 0) +#' glm_model <- glm(diabetes~., family=binomial, data=Pima) +#' glm_au <- audit(glm_model, data = Pima, y = Pima$diabetes) +#' plotCumulativeGain(glm_au) +#' #' @import ggplot2 #' @importFrom ROCR performance prediction #' diff --git a/R/plotHalfNormal.R b/R/plotHalfNormal.R index 25baa993..1fc6be71 100644 --- a/R/plotHalfNormal.R +++ b/R/plotHalfNormal.R @@ -8,7 +8,7 @@ #' #' @param object ModelAudit object, fitted model object or numeric vector. #' @param score If TRUE score based on probability density function is displayed on the plot. -#' @param quant.scale if TRUE values on avis are on quantile scale. +#' @param quant.scale if TRUE values on axis are on quantile scale. #' @param main Title of plot. #' @param xlab The text for the x axis. #' @param ylab The text for the y axis. diff --git a/R/plotLift.R b/R/plotLift.R index a86823d9..0944fec9 100644 --- a/R/plotLift.R +++ b/R/plotLift.R @@ -11,6 +11,15 @@ #' #' @return ggplot object #' +#' @examples +#' library(mlbench) +#' data("PimaIndiansDiabetes") +#' Pima <- PimaIndiansDiabetes +#' Pima$diabetes <- ifelse(Pima$diabetes == "pos", 1, 0) +#' glm_model <- glm(diabetes~., family=binomial, data=Pima) +#' glm_au <- audit(glm_model, data = Pima, y = Pima$diabetes) +#' plotLIFT(glm_au) +#' #' @seealso \code{\link{plot.modelAudit}} #' #' @import ggplot2 diff --git a/R/plotModelCorrelation.R b/R/plotModelCorrelation.R index 0f00204a..d3ff473e 100644 --- a/R/plotModelCorrelation.R +++ b/R/plotModelCorrelation.R @@ -8,6 +8,15 @@ #' #' @return ggplot object #' +#' @examples +#' library(car) +#' lm_model <- lm(prestige~education + women + income, data = Prestige) +#' lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige) +#' library(randomForest) +#' rf_model <- randomForest(prestige~education + women + income, data = Prestige) +#' rf_au <- audit(rf_model, data = Prestige, y = Prestige$prestige) +#' plotModelCorrelation(lm_au, rf_au) +#' #' @seealso \code{\link{plot.modelAudit}} #' #' @import ggplot2 diff --git a/R/plotModelPCA.R b/R/plotModelPCA.R index a00d692f..7bcf2aa0 100644 --- a/R/plotModelPCA.R +++ b/R/plotModelPCA.R @@ -5,11 +5,20 @@ #' #' @param object An object of class ModelAudit, #' @param ... Other modelAudit objects to be plotted together. -#' @param scale A logical value indicating whether the models residuals should be scaled bfore the analysis. +#' @param scale A logical value indicating whether the models residuals should be scaled before the analysis. #' @param invisible A text specifying the elements to be hidden on the plot. Default value is "none". Allowed values are "model", "observ". #' #' @return ggplot object #' +#' @examples +#' library(car) +#' lm_model <- lm(prestige~education + women + income, data = Prestige) +#' lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige) +#' library(randomForest) +#' rf_model <- randomForest(prestige~education + women + income, data = Prestige) +#' rf_au <- audit(rf_model, data = Prestige, y = Prestige$prestige) +#' plotModelPCA(lm_au, rf_au) +#' #' @seealso \code{\link{plot.modelAudit}} #' #' @import ggplot2 diff --git a/R/plotModelRanking.R b/R/plotModelRanking.R index 3c492a0d..5c83aca2 100644 --- a/R/plotModelRanking.R +++ b/R/plotModelRanking.R @@ -9,6 +9,15 @@ #' #' @return ggplot object #' +#' @examples +#' library(car) +#' lm_model <- lm(prestige~education + women + income, data = Prestige) +#' lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige) +#' library(randomForest) +#' rf_model <- randomForest(prestige~education + women + income, data = Prestige) +#' rf_au <- audit(rf_model, data = Prestige, y = Prestige$prestige) +#' plotModelRanking(lm_au, rf_au) +#' #' @seealso \code{\link{plot.modelAudit}} #' #' @import ggplot2 diff --git a/R/plotPrediction.R b/R/plotPrediction.R index de04e17d..444c197b 100644 --- a/R/plotPrediction.R +++ b/R/plotPrediction.R @@ -7,6 +7,17 @@ #' @param ... Other modelAudit objects to be plotted together. #' @param variable Name of model variable to order residuals. If value is NULL data order is taken. If value is "Observed response" the data is ordered by a vector of actual response (\code{y} parameter passed to the \code{\link{audit}} function). #' +#' @examples +#' library(car) +#' lm_model <- lm(prestige~education + women + income, data = Prestige) +#' lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige) +#' plotPrediction(lm_au) +#' +#' library(randomForest) +#' rf_model <- randomForest(prestige~education + women + income, data = Prestige) +#' rf_au <- audit(rf_model, data = Prestige, y = Prestige$prestige) +#' plotPrediction(lm_au, rf_au) +#' #' @seealso \code{\link{plot.modelAudit}} #' #' @import ggplot2 diff --git a/R/plotREC.R b/R/plotREC.R index b3a49188..0f47eef3 100644 --- a/R/plotREC.R +++ b/R/plotREC.R @@ -19,17 +19,15 @@ #' @seealso \code{\link{plot.modelAudit}, \link{plotROC}, \link{plotRROC}} #' #' @examples -#' library(auditor) -#' library(randomForest) #' library(car) -#' model_lm <- lm(prestige ~ education + women + income, data = Prestige) -#' audit_lm <- audit(model_lm) -#' -#' plotREC(audit_lm) +#' lm_model <- lm(prestige~education + women + income, data = Prestige) +#' lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige) +#' plotREC(lm_au) #' -#' model_rf <- randomForest(prestige ~ education + women + income, data = Prestige) -#' audit_rf <- audit(model_rf) -#' plotREC(audit_lm, audit_rf) +#' library(randomForest) +#' rf_model <- randomForest(prestige~education + women + income, data = Prestige) +#' rf_au <- audit(rf_model, data = Prestige, y = Prestige$prestige) +#' plotREC(lm_au, rf_au) #' #' #' @export diff --git a/R/plotROC.R b/R/plotROC.R index d5f5d520..3c2a6948 100644 --- a/R/plotROC.R +++ b/R/plotROC.R @@ -14,17 +14,13 @@ #' @import plotROC #' #' @examples -#' library(auditor) #' library(mlbench) #' data("PimaIndiansDiabetes") -#' -#' model.glm <- glm(diabetes~., family=binomial, data=PimaIndiansDiabetes) -#' au.glm <- audit(model.glm, label="class glm") -#' plotROC(au.glm) -#' -#' model.glm.press <- glm(diabetes~pressure, family=binomial, data=PimaIndiansDiabetes) -#' au.glm.press <- audit(model.glm.press) -#' plotROC(au.glm, au.glm.press) +#' Pima <- PimaIndiansDiabetes +#' Pima$diabetes <- ifelse(Pima$diabetes == "pos", 1, 0) +#' glm_model <- glm(diabetes~., family=binomial, data=Pima) +#' glm_au <- audit(glm_model, data = Pima, y = Pima$diabetes) +#' plotROC(glm_au) #' #' @export diff --git a/R/plotRROC.R b/R/plotRROC.R index 7da0aaf6..fe1cabc8 100644 --- a/R/plotRROC.R +++ b/R/plotRROC.R @@ -9,11 +9,11 @@ #' #' @return ggplot object #' -#' @details For RROC curves we use a shift, which is an equvalent to the threshold for ROC curves. +#' @details For RROC curves we use a shift, which is an equivalent to the threshold for ROC curves. #' For each observation we calculate new prediction: \eqn{\hat{y}'=\hat{y}+s} where s is the shift. #' Therefore, there are different error values for each shift: \eqn{e_i = \hat{y_i}' - y_i} #' -#' Over-estimation is caluclates as: \eqn{OVER= \sum(e_i|e_i>0)}. +#' Over-estimation is calculated as: \eqn{OVER= \sum(e_i|e_i>0)}. #' #' Under-estimation is calculated as: \eqn{UNDER = \sum(e_i|e_i<0)}. #' @@ -27,17 +27,15 @@ #' #' #' @examples -#' library(auditor) -#' library(randomForest) #' library(car) -#' model_lm <- lm(prestige ~ education + women + income, data = Prestige) -#' audit_lm <- audit(model_lm) -#' -#' plotRROC(audit_lm) +#' lm_model <- lm(prestige~education + women + income, data = Prestige) +#' lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige) +#' plotRROC(lm_au) #' -#' model_rf <- randomForest(prestige ~ education + women + income, data = Prestige) -#' audit_rf <- audit(model_rf) -#' plotRROC(audit_lm, audit_rf) +#' library(randomForest) +#' rf_model <- randomForest(prestige~education + women + income, data = Prestige) +#' rf_au <- audit(rf_model, data = Prestige, y = Prestige$prestige) +#' plotRROC(lm_au, rf_au) #' #' @import ggplot2 #' diff --git a/R/plotResidual.R b/R/plotResidual.R index 534d0f04..1dfdec98 100644 --- a/R/plotResidual.R +++ b/R/plotResidual.R @@ -6,6 +6,17 @@ #' @param variable Name of model variable to order residuals. If value is NULL data order is taken. If value is "Predicted response" or "Fitted values" then data is ordered by fitted values. If value is "Observed response" the data is ordered by a vector of actual response (\code{y} parameter passed to the \code{\link{audit}} function). #' @param ... Other modelAudit objects to be plotted together. #' +#' @examples +#' library(car) +#' lm_model <- lm(prestige~education + women + income, data = Prestige) +#' lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige) +#' plotResidual(lm_au) +#' +#' library(randomForest) +#' rf_model <- randomForest(prestige~education + women + income, data = Prestige) +#' rf_au <- audit(rf_model, data = Prestige, y = Prestige$prestige) +#' plotResidual(lm_au, rf_au) +#' #' @seealso \code{\link{plot.modelAudit}} #' #' @import ggplot2 diff --git a/R/plotResidualDensity.R b/R/plotResidualDensity.R index 184ad226..55cc9a06 100644 --- a/R/plotResidualDensity.R +++ b/R/plotResidualDensity.R @@ -8,6 +8,17 @@ #' #' @return ggplot object #' +#' @examples +#' library(car) +#' lm_model <- lm(prestige~education + women + income, data = Prestige) +#' lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige) +#' plotResidualDensity(lm_au) +#' +#' library(randomForest) +#' rf_model <- randomForest(prestige~education + women + income, data = Prestige) +#' rf_au <- audit(rf_model, data = Prestige, y = Prestige$prestige) +#' plotResidualDensity(lm_au, rf_au) +#' #' @seealso \code{\link{plot.modelAudit}} #' #' @import ggplot2 diff --git a/R/plotScaleLocation.R b/R/plotScaleLocation.R index 7bc50536..b85c3d56 100644 --- a/R/plotScaleLocation.R +++ b/R/plotScaleLocation.R @@ -8,6 +8,13 @@ #' @param variable Name of model variable to order residuals. If value is NULL data order is taken. If value is "Predicted response" or "Fitted values" then data is ordered by fitted values. If value is "Observed response" the data is ordered by a vector of actual response (\code{y} parameter passed to the \code{\link{audit}} function). #' @param score A logical value. If TRUE value of \link{scoreGQ} will be added. #' +#' @examples +#' library(car) +#' lm_model <- lm(prestige~education + women + income, data = Prestige) +#' lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige) +#' plotScaleLocation(lm_au) +#' +#' #' @import ggplot2 #' @importFrom stats median #' diff --git a/R/plotTwoSidedECDF.R b/R/plotTwoSidedECDF.R index cda5cc3d..cc92acc8 100644 --- a/R/plotTwoSidedECDF.R +++ b/R/plotTwoSidedECDF.R @@ -11,6 +11,17 @@ #' #' @return ggplot object #' +#' @examples +#' library(car) +#' lm_model <- lm(prestige~education + women + income, data = Prestige) +#' lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige) +#' plotTwoSidedECDF(lm_au) +#' +#' library(randomForest) +#' rf_model <- randomForest(prestige~education + women + income, data = Prestige) +#' rf_au <- audit(rf_model, data = Prestige, y = Prestige$prestige) +#' plotTwoSidedECDF(lm_au, rf_au, y.reversed = TRUE) +#' #' @seealso \code{\link{plot.modelAudit}} #' #' @import ggplot2 diff --git a/R/plot_ModelAudit.R b/R/plot_ModelAudit.R index 1c5f4c8d..15a8491a 100644 --- a/R/plot_ModelAudit.R +++ b/R/plot_ModelAudit.R @@ -3,17 +3,29 @@ #' @description This function provides several diagnostic plots for regression and classification models. #' #' @param x object of class modelAudit -#' @param ... other arguments dependent on the type of plot or additionam objects of class modelAudit +#' @param ... other arguments dependent on the type of plot or additionl objects of class modelAudit #' @param type the type of plot. Possible values: 'ACF', 'Autocorrelation', 'CumulativeGain', 'CooksDistance', 'HalfNormal', 'Residuals', 'LIFT', -#' ModelPCA', 'ModelCorreltion', 'Prediction', 'REC', 'ResidualDensity', 'Residual', 'ROC', 'RROC', -#' ScaleLocation', 'TwoSidedECDF' (for detailed description see functions in seealso section). +#' ModelPCA', 'ModelRanking', ModelCorrelation', 'Prediction', 'REC', 'ResidualDensity', 'Residual', 'ROC', 'RROC', +#' ScaleLocation', 'TwoSidedECDF' (for detailed description see functions in see also section). #' @param ask logical; if TRUE, the user is asked before each plot, see \code{\link[graphics]{par}(ask=)}. #' #' @seealso \code{\link{plotACF}, \link{plotAutocorrelation}, \link{plotCumulativeGain}, \link{plotCooksDistance}, -#' \link{plotHalfNormal}, \link{plotResidual}, \link{plotLIFT}, \link{plotModelPCA}, \link{plotModelCorrelation}, +#' \link{plotHalfNormal}, \link{plotResidual}, \link{plotLIFT}, \link{plotModelPCA}, \link{plotModelRanking}, \link{plotModelCorrelation}, #' \link{plotPrediction}, \link{plotREC}, \link{plotResidualDensity}, \link{plotResidual}, \link{plotROC}, #' \link{plotRROC}, \link{plotScaleLocation}, \link{plotTwoSidedECDF}} #' +#' @examples +#' library(car) +#' lm_model <- lm(prestige~education + women + income, data = Prestige) +#' lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige) +#' plot(lm_au) +#' +#' library(randomForest) +#' rf_model <- randomForest(prestige~education + women + income, data = Prestige) +#' rf_au <- audit(rf_model, data = Prestige, y = Prestige$prestige) +#' plot(lm_au, rf_au, type = "ModelRanking") +#' +#' #' @importFrom grDevices devAskNewPage #' @importFrom graphics plot #' @@ -26,7 +38,7 @@ plot.modelAudit <- function(x, ..., type="Residual", ask = TRUE){ object <- x plotNames <- c('ACF', 'Autocorrelation', 'CumulativeGain', 'CooksDistance', 'HalfNormal', 'Residual', 'LIFT', - 'ModelPCA', 'ModelCorrelation', 'Prediction', 'REC', 'ResidualDensity', 'Residuals', 'ROC', 'RROC', + 'ModelPCA', 'ModelRanking', 'ModelCorrelation', 'Prediction', 'REC', 'ResidualDensity', 'Residuals', 'ROC', 'RROC', 'ScaleLocation', 'TwoSidedECDF') if(!all(type %in% plotNames)){ @@ -61,6 +73,7 @@ plotTypePlot <- function(x, ..., type){ HalfNormal = { return(plotHalfNormal(x, ...)) }, LIFT = {return(plotLIFT(x, ...))}, ModelPCA = {return(plotModelPCA(x, ...))}, + ModelRanking = {return(plotModelRanking(x, ...))}, ModelCorrelation = {return(plotModelCorrelation(x, ...))}, Prediction = {return(plotPrediction(x, ...))}, REC = { return(plotREC(x, ...)) }, diff --git a/R/score.R b/R/score.R index ba715d98..335d5773 100644 --- a/R/score.R +++ b/R/score.R @@ -5,13 +5,19 @@ #' #' @param object Object An object of class modelAudit. #' @param type The type of score to be calculated. Possible values: 'Cook', 'DW', 'GQ', 'HalfNormal', 'MAE', 'MSE', 'REC', 'RMSE', 'ROC', 'RROC', 'Runs' -#' (for detailed description see functions in seealso section). +#' (for detailed description see functions in see also section). #' @param ... Other arguments dependent on the type of score. #' #' @seealso \code{\link{scoreCooksDistance}, \link{scoreDW}, \link{scoreGQ}, \link{scoreHalfNormal}, \link{scoreMAE}, \link{scoreMSE}, \link{scoreREC}, \link{scoreROC}, \link{scoreRROC}, \link{scoreRuns}} #' #' @return an object of class scoreAudit, except Cooks distance, where numeric vector is returned #' +#' @examples +#' library(car) +#' lm_model <- lm(prestige~education + women + income, data = Prestige) +#' lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige) +#' score(lm_au, type = 'Runs') +#' #' @export score <- function(object, type = 'MSE', ...){ diff --git a/R/scoreCooksDistance.R b/R/scoreCooksDistance.R index 42872098..0111301a 100644 --- a/R/scoreCooksDistance.R +++ b/R/scoreCooksDistance.R @@ -15,6 +15,13 @@ #' Models of classes other than lm and glm the distances are computed directly from the definition, #' so this may take a while. #' +#' @examples +#' library(car) +#' lm_model <- lm(prestige~education + women + income, data = Prestige) +#' lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige) +#' scoreCooksDistance(lm_au) +#' +#' #' @importFrom stats cooks.distance update #' #' @seealso \code{\link{score}} diff --git a/R/scoreDW.R b/R/scoreDW.R index 144be8a0..2994aead 100644 --- a/R/scoreDW.R +++ b/R/scoreDW.R @@ -1,12 +1,19 @@ #' @title Durbin-Watson Score #' #' @description Score based on Durbin-Watson test statistic. -#' The score value is helpful in comparing models. It is worth ponting out that results of tests like p-value makes sense only +#' The score value is helpful in comparing models. It is worth pointing out that results of tests like p-value makes sense only #' when the test assumptions are satisfied. Otherwise test statistic may be considered as a score. #' #' @param object object An object of class ModelAudit #' @param variable Name of model variable to order residuals. If value is NULL data order is taken. If value is "Predicted response" or "Fitted values" then data is ordered by fitted values. If value is "Observed response" the data is ordered by a vector of actual response (\code{y} parameter passed to the \code{\link{audit}} function). #' +#' @examples +#' library(car) +#' lm_model <- lm(prestige~education + women + income, data = Prestige) +#' lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige) +#' scoreDW(lm_au) +#' +#' #' @importFrom car durbinWatsonTest #' #' @return an object of class scoreAudit diff --git a/R/scoreGQ.R b/R/scoreGQ.R index b6b94846..1b24a68f 100644 --- a/R/scoreGQ.R +++ b/R/scoreGQ.R @@ -11,13 +11,19 @@ #' where \eqn{MSE = (RSS)/(n-p)} #' where n is the number of observations and p is the number of variables . #' -#' The score value is helpful in comparing models. It is worth ponting out that results of tests like p-value makes sense only +#' The score value is helpful in comparing models. It is worth pointing out that results of tests like p-value makes sense only #' when the test assumptions are satisfied. Otherwise test statistic may be considered as a score. #' \code{scoreGQ} function uses a two-sided F-test. #' #' @param object Object An object of class ModelAudit. #' @param variable Name of model variable to order residuals. If value is NULL data order is taken. If value is "Predicted response" or "Fitted values" then data is ordered by fitted values. If value is "Observed response" the data is ordered by a vector of actual response (\code{y} parameter passed to the \code{\link{audit}} function). #' +#' @examples +#' library(car) +#' lm_model <- lm(prestige~education + women + income, data = Prestige) +#' lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige) +#' scoreGQ(lm_au) +#' #' @importFrom stats update rstandard predict pf sd #' #' @return an object of class scoreAudit diff --git a/R/scoreHalfNormal.R b/R/scoreHalfNormal.R index 894a4910..65d14ba2 100644 --- a/R/scoreHalfNormal.R +++ b/R/scoreHalfNormal.R @@ -10,6 +10,13 @@ #' @param object ModelAudit object or fitted model. #' @param ... Extra arguments passed to \link[hnp]{hnp}. #' +#' @examples +#' library(car) +#' lm_model <- lm(prestige~education + women + income, data = Prestige) +#' lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige) +#' plotHalfNormal(lm_au) +#' +#' #' @importFrom hnp hnp #' #' @export diff --git a/R/scoreMAE.R b/R/scoreMAE.R index 741e0777..0ddad656 100644 --- a/R/scoreMAE.R +++ b/R/scoreMAE.R @@ -6,6 +6,13 @@ #' #' @return an object of class scoreAudit #' +#' @examples +#' library(car) +#' lm_model <- lm(prestige~education + women + income, data = Prestige) +#' lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige) +#' scoreMAE(lm_au) +#' +#' #' @seealso \code{\link{score}} #' #' @export diff --git a/R/scoreMSE.R b/R/scoreMSE.R index 18b4dc4d..2b1b1569 100644 --- a/R/scoreMSE.R +++ b/R/scoreMSE.R @@ -6,6 +6,12 @@ #' #' @return an object of class scoreAudit #' +#' @examples +#' library(car) +#' lm_model <- lm(prestige~education + women + income, data = Prestige) +#' lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige) +#' scoreMSE(lm_au) +#' #' @seealso \code{\link{score}} #' #' @export diff --git a/R/scoreREC.R b/R/scoreREC.R index cd39fc25..1c8be5d4 100644 --- a/R/scoreREC.R +++ b/R/scoreREC.R @@ -7,6 +7,13 @@ #' #' @return an object of class scoreAudit #' +#' @examples +#' library(car) +#' lm_model <- lm(prestige~education + women + income, data = Prestige) +#' lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige) +#' scoreREC(lm_au) +#' +#' #' @seealso \code{\link{plotREC}} #' #' @references J. Bi, and K. P. Bennet, "Regression error characteristic curves," in Proc. 20th Int. Conf. Machine Learning, Washington DC, 2003, pp. 43-50 diff --git a/R/scoreRMSE.R b/R/scoreRMSE.R index fcd9a4c1..fb74c03a 100644 --- a/R/scoreRMSE.R +++ b/R/scoreRMSE.R @@ -6,6 +6,13 @@ #' #' @return an object of class scoreAudit #' +#' @examples +#' library(car) +#' lm_model <- lm(prestige~education + women + income, data = Prestige) +#' lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige) +#' scoreRMSE(lm_au) +#' +#' #' @seealso \code{\link{score}} #' #' @export diff --git a/R/scoreROC.R b/R/scoreROC.R index 9e871e5b..9b097282 100644 --- a/R/scoreROC.R +++ b/R/scoreROC.R @@ -5,6 +5,15 @@ #' #' @return an object of class scoreAudit #' +#' @examples +#' library(mlbench) +#' data("PimaIndiansDiabetes") +#' Pima <- PimaIndiansDiabetes +#' Pima$diabetes <- ifelse(Pima$diabetes == "pos", 1, 0) +#' glm_model <- glm(diabetes~., family=binomial, data=Pima) +#' glm_au <- audit(glm_model, data = Pima, y = Pima$diabetes) +#' scoreROC(glm_au) +#' #' @seealso \code{\link{plotROC}} #' #' @importFrom ROCR performance prediction diff --git a/R/scoreRROC.R b/R/scoreRROC.R index 7bff7241..1b988825 100644 --- a/R/scoreRROC.R +++ b/R/scoreRROC.R @@ -6,6 +6,13 @@ #' #' @return an object of class scoreAudit #' +#' @examples +#' library(car) +#' lm_model <- lm(prestige~education + women + income, data = Prestige) +#' lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige) +#' scoreRROC(lm_au) +#' +#' #' @seealso \code{\link{plotRROC}} #' #' @references Hernández-Orallo, José. 2013. ‘ROC Curves for Regression’. Pattern Recognition 46 (12): 3395–3411. diff --git a/R/scoreRuns.R b/R/scoreRuns.R index cca3a682..25506146 100644 --- a/R/scoreRuns.R +++ b/R/scoreRuns.R @@ -1,12 +1,18 @@ #' @title Runs Score #' #' @description Score based on Runs test statistic. Note that this test is not very strong. It utilizes only signs of the residuals. -#' The score value is helpful in comparing models. It is worth ponting out that results of tests like p-value makes sense only +#' The score value is helpful in comparing models. It is worth pointing out that results of tests like p-value makes sense only #' when the test assumptions are satisfied. Otherwise test statistic may be considered as a score. #' #' @param object object An object of class ModelAudit. #' @param variable name of model variable to order residuals. If value is NULL data order is taken. If value is "Predicted response" or "Fitted values" then data is ordered by fitted values. If value is "Observed response" the data is ordered by a vector of actual response (\code{y} parameter passed to the \code{\link{audit}} function). #' +#' @examples +#' library(car) +#' lm_model <- lm(prestige~education + women + income, data = Prestige) +#' lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige) +#' scoreRuns(lm_au) +#' #' @importFrom tseries runs.test #' #' @export diff --git a/docs/articles/HalfNormal.html b/docs/articles/HalfNormal.html index 091eab60..bb3baad1 100644 --- a/docs/articles/HalfNormal.html +++ b/docs/articles/HalfNormal.html @@ -73,7 +73,7 @@

The half-normal plots

Alicja Gosiewska

-

2018-05-09

+

2018-05-11

diff --git a/docs/articles/Intorduction_into_model_audit.html b/docs/articles/Intorduction_into_model_audit.html index ce2add69..653fbf5b 100644 --- a/docs/articles/Intorduction_into_model_audit.html +++ b/docs/articles/Intorduction_into_model_audit.html @@ -73,7 +73,7 @@

Introduction into model audit

Alicja Gosiewska

-

2018-05-09

+

2018-05-11

diff --git a/docs/index.html b/docs/index.html index e2a6c661..faec5123 100644 --- a/docs/index.html +++ b/docs/index.html @@ -5,7 +5,7 @@ -Model audit - verification, validation, and error analysis • auditor +Model Audit - Verification, Validation, and Error Analysis • auditor @@ -171,6 +171,8 @@

Links

-
+

-version 0.2.0

+version 0.2.0 - released on CRAN 2018-05-11 +

07/05.2019

@@ -128,12 +129,14 @@

  • densities in plotResidualDensity() may be now separated by variable values
  • for function score() parameter score is renamed into type
    • +
  • new examples

    • -version 0.1.1.0000

    +version 0.1.1.0000 Unreleased +

    09/03/2018

    @@ -147,7 +150,8 @@

    -version 0.1.0.0000

    +version 0.1.0.0000 Unreleased +

    18/02/2018

    @@ -165,7 +169,8 @@

    -version 0.0.2.0000

    +version 0.0.2.0000 Unreleased +

    23/11/2017

    @@ -180,7 +185,8 @@

    -version 0.0.1.0000

    +version 0.0.1.0000 Unreleased +

    9/11/2017

    @@ -208,7 +214,7 @@

    Contents

      -
    • 0.2.0
      • +
    • 0.2.0
    • 0.1.1.0000
    • 0.1.0.0000
    • 0.0.2.0000
      • diff --git a/docs/reference/audit.html b/docs/reference/audit.html index 50f53acf..1867f8e2 100644 --- a/docs/reference/audit.html +++ b/docs/reference/audit.html @@ -144,7 +144,7 @@

      Value

    • model the audited model,

    • fitted.values fitted values from model,

    • data data used for fitting the model,

      • -

    • y vecor with values of predicted variable used for fittng the model,

      • +

    • y vector with values of predicted variable used for fitting the model,

    • predict.function function that were used for model predictions,

    • residual.function function that were used for calculating model residuals,

    • residuals

      • @@ -162,8 +162,7 @@

      Examp audit.glm.newpred <- audit(model.glm, predict.function = p.fun) -library(randomForest) -model.rf <- randomForest(Species ~ ., data=iris) +library(randomForest)

    #> randomForest 4.6-14
    #> Type rfNews() to see new features/changes/bug fixes.
    model.rf <- randomForest(Species ~ ., data=iris) audit.rf <- audit(model.rf)

    diff --git a/docs/reference/plot.modelAudit-1.png b/docs/reference/plot.modelAudit-1.png new file mode 100644 index 0000000000000000000000000000000000000000..1cc923d31af882a7dd1d153a134208b2705d52d5 GIT binary patch literal 17189 zcmeHv2{_d4-|x)NjK;jQ5k166Vr-eoRw=Zq5G_yiSR?yj zP}xEyWE(~#>x_Lj=l%`-|L-~Hz20-)bIx_nx!&vbOmqG2^>^Rj{l34Sd2X7U8VO=I zU=av};1T0PClLrV8G+zAkKq9|BgQ8x5D27+`SH_-K@ow_K_HwFIywj)@EwD2&I4t* z1phhfID=1&4ycTY(TM@y9VYOfhlxp)i3j+knnYDQbH_XDAe`X=G0x5ico6&-1O9W4 z0pEGfF&)l%dCqy@n*#=Wctm+brFukFd!+V7fw?@u2bB7vsyQ(_h!`C(3p^1R36GA+ zi^&6@j+hSc;iP()q(*t9R`;d$adL8U@|+QQ&N_K9;NzSJy25?IUq@aC_;B(#oa!i( z>L`!uYA}LR&Ea&!=yb$5cjSRjOvh?JxG(tQfbJa}4uiqyOZDihj_RuhZ{W=NxO4KH z!7N}Trz4L8`t_x9`l>m7pb?%POv&MZXO2nL^*lgMK2KxoD+t8K2>2f|x_|rv0zp6= zIkf*YIes)@vDl_L_e_6}Bj)oa*~`Y#1sgD%WE+Ut9h-b|q7<^{HF^-jB0ecwZ_+=lpERYPk02E*=Es)$uem0^u6Mh7g;> z|98I>kC0h*PrS)Pg~Fxxf=6Gb-al5>xssk!)AvEdK?va(xt}~>`zSw#4N){NRp=7J zLnRTkyW42pb}YMsxk&=jE2w}Yh*`rP`si56)m-0MAdkc>>a zc)TKDT$PEY`0o^EEzkZW1*_?Cil>8V9LDZ?ZI?!l&wOT_m;KUw#H3LvyIF^pfJh|G zY~U37Rn(j!t+)@=`970G(6K-41SRD%8?KOU|=bdXSbIUSy_?a-?<=l`y8YxjEQE?dMnNRwma<&CzwN6hZhl|m4Nw|m^1{L%a+ zJ!g8c>F{m`+a-?EM5o$H-hBH7?YR8H;RsoS)N_+p>ur8%&=%n>A8rq#NhTgwjAhu4 zj*ZHmbra4^4;~KSl==m&eo9BNelkt%Gv9CXmL$s z--_Z{m=LcF5=H{E{e6paf8^EWb0#AqODaruts8Z{X!av$rcjRalVjh-$7+~_5NFPL z+Eo7x8q3bF@+k8B^2}33x1iK zKW$(*HMmi8;LxRKnTt`r96ux?Evv|?azgN8)91P}_e^$>|9o{#{|A?I*XG-2zP$bU zyk759X{YV3PMPH5B?HTd`gUI+&4Q7~Vv5(e{nM+{e}dFKq1;ep;kBIZYod^(9i#T{GXtMc?8`l>J3r66N9st_fU)?;-ULTZcjXV z2l?@@)d+%`2NM$SpeMg;(4Z!M;!zG%_|KY9Oc84>niAqBxF)TXbVTy~dQ9frT@OWB8$xZwb|H})>mXa=ezFCD z)(&0Pw+y5Z58(i1|0a?jq76ssO}HC;5MUY}lbJy;IM{-PPV7e@D^ek5Ggv)_K%la* zmv@h+K%tUI)MoBlWi2S|O%w`>yR;uzPftN43boo|O=+sZ5qtJ<*Hb0Y17T4(Ej}i` z*SQy{6{QgI|LT!A$}B-6VxG2Fs$6>&SLP~0L?ExM3YrP(^cdcH3JcU;lDnlHDDSZ- z`w37%m*8$h8lxN}YhJDbtU(8NpU>=x!(!@nc1RTN`zn2=xb*Sia%f)(f_WH0-N=Mmg}qY9D{j9ROjv^m5Z4hOCnBiot4fAIqCTzZ+yA$ZiD3+*)+WFwAotvzmnX_FFQRco z`WXsWYI_=wPUb*B_g5_fnVrm2Yz>&EF3Dw7JS@g*G6{?K+J=h zcTv8`w;7E@aSf!kDg0{UU0}70ABn;5Gk*nkaIgP8pBjV_-wNzkpY~;;40#IiCfw(> z*nsyg6i(S3p6qIGO;Ow^EUtdPT@%HC+IwwGfp#Ffs}Dy^@~2Kjc>_T$^zZ^Rmk_A~ zGobWjtyG({jV}`m@AoJmLlMp%1vD1CzBvr62>~equB*bWIISJ@^1T)qup$Bh*W3rpj6G-}nRc-C zOZDB!^N|VbxFjT$PzKogh1zyuvp=Vr8(oA+#~qga7v;I6G*;`;qH*Ttz4457trD!O zat^_RtsT+wfb$fhKeCKjqL;8T#d0T;GJ}`fWCEMnehI|fxomoS@1EQ+-+|Cw zjBz093e+Q!Pbd%CE9x?M|DcLwVwF@V#C_D7%|3p7nW&1mIQnC&uxLDy@B&B!aR)8F zIVO^x5*ro?s$RoYYP8fzU+w5tOUKUPib^a22RwmmlB9ixZQVg&XK+@)7h!*e&DPu* zROw7Dw}bC%Toath<+Z2=h}z@3WU^zLR;4?018K-{WBh9?p-w_z*TD%v{cm`mZxn4 zqVTtPk9T%RyuAeML=PvKg3W4CdcelvB4FMlW1k=~d%UYKD`r+t-wM=N;uu>(HS_36 zdO@mixrJNKrf2=pAq$r^K>0$1=E$$G7xW{%&*}#k4@V#%8C#o^-ejJ})-PgOuvk!c zXeFdQ?_-BQd!C_4fXzN#!g39240{O2&0yDB0%}~dW(>43qO!dTD5bsVVI6 zgTP}Vs03t%v=EnK*HIXf7OY1S?~rfEXkLC#&mB?~kqAgIHS}9CgoNTvC9p6BtOx3C za#e7f>1c5(tdzgTGSaT1Ww2bQ9Yy>T>JQVb4XBrg#tB?jWlJin(k{^NzPZ)s~A_6)A z?B{A|Btj%)Al9|6hDK2c=-~IG%E|XdK&S;ws>~m{FV^BR48b!rp^F!vLEH>e8-%_@ z;-@ic_JSqh(eHqX5YGN6`aAx6k7Jzqhv}E9kOn?}l^HRW<+;YN0>nmcGJi?@Jm@s; zsQ}A)h&T{SOaW!nCL3tnR8j(a8w`2d-d9_+g#ckTi`^hocX*kwRL!p`l9M zylDu;h3e6AFr7)*d5U7;j|6ytx8LIWjoR*x2Ix-StkeJU3oqpc)&v|I zswF=D&LUoFTT)h|caKmzBNg1t>IrVmP%&f=xEt1Hv0WDUtzD$bFOC`4Oi zxk~puRzOlpl<_iJfu_BmEMlxk@EcsTry{6Grrrv%B2Fw+lIjG7Y94a*^fi0vn?m%0 zjgll4XuGlF_o(puy3*nNufpMAT;$9FawUpa##*ZPTw4#T%jk7E zANo+g2Lg*bPH{pfB>u9o#{lr$`In(V9qXrEMG=^pM zIylj=u2*~yZZ5C}9Dc>|&Q>iUMMMWZ++ORkW+SlLUdRvO3c8z2gGO$ip$l*g$KOc- zzS%K$^yw~W1BhP$0S!ZAqvt`?hROqlkD*rmZk?AvOaxZW6>0dObA3X|92Ku+2qZj7 zAH42RUJp`f#0x&u{4EAXh4Skc6vvx_uzfvtilz)gC+ooPTO`fnlkAdiSs|$3pdeBN zV5>FY>yI>hp6Lt(^akzkivY5XA+12et;Ag5W?iW(2N|#di7TQ1+-p9JCBy)yVi?YL zh7SnF;GC*(kemY?N-m#_?)T$lF;GjOHS@{nmD~$);{(R~lU9M{6Z$y+Ev9enBu>QAA;|9T4WRYL=#IcVaM(K$P1InHQn^w^B-XxtY5z2smzfKPcSL>2DB6E; zMgC@`ZqMQ-t`WqYxw3~?7482Wbl-*^j!l&Yzvs9Ds|3zWH7Q-#2vjWk$lv%ZIWbjM)Xvz|; zxu)8!LZRR8GT~c2l^DQIp88FDKj7H|5XoK z(FFX9Mh$vXZ?OMX-$dK#?Xz-2*~V0ThPl!EL=bApxA7$LUHUrA zuhQ@tbVZ&qu>PKLjhoAUf|y5LBBR)4E1|of3X?($ok2nQpm}qIJ0q{mFRb-Nnf4`~ zF;uvF0~Y#WPb`L>vjAOUZs+;ETzD#HI~?BHmq0S?pa@f$9a&F_zlL3m2y@BmV1{CM zeZQc3Go|56eHx20*&V!C2~4L)u9agJFVo_A4?FKwYUVOpJfO?OmSLMutw4Relzzg} z@dggGF0oaQh;$2BItCc=Fn5?aju>trp+lX4SQoQ}o;^H7a1FddZuX5z6JhkC#5EeK zRXoqegt+BImIcnly$uevCP$bZ+m1^uU0*W9NAiPoI-IWKwZ^Q$&EG6%I<;-&i`yh? zc0#RcS;Uel`0JxO6*FExXwg`nn~nOW@!^olXO_(*T72L>xc%19wV_Qs4cT|?iIkQ?JIWZD%0`1{7sIjOB3`b z1x@-lOM6@Wi8g#Zu=jeCGUwA?TgN>CEBJ`nOZJ_LWwF=VmVzf6nRCLV5Yxb80nIMk z)PI)vA5lq~ue6MzNQjh1THj=rkn^{C#C024RgJo(DA4!~tMYG5>b!U%ukOn7-l~!` zeb6$CvP+~icA}#A5}c4ocKHylxl*26dE0;3ronIHTXUS0ufCy(3NEwg09E;7@Ug$b zXBiJ`Y;wFR-5w|O%oWY0x`>C)z9N45bqjU=#eBj;Nk)H0_~Zvw#>v_7hP2?%LVuFR zb!`j}lB4!sDDl!R;LUYO8lB0K>%Oa&>>Z0v z(WCK)j&GsGoB9|N?5+l&?qy4)sMB&5S!LtpOR+`<>4m5KO@kw#VhH zlI8q$>x~j5&1DWP%orr&jpe#FBBf{0OA)iZ%dNA1FF!Zc@c!ZJ@Os9=q7M5?631dU zIHNE9ty^~y{qf{UvYcJQ$f;jw@ya90o&_a)(}`!P6%}rlUDm29Nvmp9CCM~!oLyhv^o zV#qMRygBA89Nfl-A*n)s?^?$(z&L*j<`e3CUE$b zccqMd`l4Zep3Ew%D&NbG9Nt(uqY~3Ato_Kb7+?LOXtz-Zk;?4SFJuC<`4{Cvz~mWf zwM^HbV_9PNQOB@2_ar*|nVDkjv&AnDe+J(_X0U!K%?8I{Le8W0&ge~EOX_i7u$K(& zDluO%4^6OnI9@E`@EcePG<2_Zd<~K2s>4dflP(2 zA>nesZd;^#Hb1MuQ$=e3CMuoXP`q$p@{4Y!NxSf3!uD$~2ghH8PI4Huw&j^0d93$eaCOlW^6a;xAW0y`!U=U9$WT(KBz+1o?so2V~0GPty7R^@NI)( zj3Hq=&DS#Vs?YeCQ(IZ{{JXl%iJ4}Z2?jlbPsXeTT_QiK`A(}&20V>xvNA~2qwNfu z9v%77rrd2Dbc*=-r{;AZi_S|te>A#k*@VpwHt@8!`;-!Q(F?PtfQW3QDg%V9Df5wFiUmqJJTKwwjT;^`g7>DjwL&<>HymM3y%6Q872 zEcPxSyXTi@wg}bpoX)h>wb?h2P}BGI;mwgBT_m%z?v;g{Q4W!eN1spD;PYn7Nc~ z?IOnlmnYlRR697?)RZoX2_o6RweX?H@SRl8qQQ+b5A7|JEgr)bP}gU)oN^$&Zv@Z4 zi-yepp7xoHa5aax%)?^sAHKZf%r*C#7DfgMO|G+Daa_4Jdw+%NFnyTr>9kbqtEC=x6EArg(am(-*=NzD-n4Sbpg9CjWuTpWVn;-v{L2o zk4zmEkdTUJ9Jfr8oQ0Hafg%707jm0{_nyg83H0kwCjlz{VG)6$LWP2q3R~0z9>|dW?DxsPb zWkEjW>#3*!uLh-=Utn4kKPq@6@)%S7 z`iCF-D^^_Ae$ZY1A2&R~aqO|@zMknJNBvXRQ>hfsJyBMKw?roMAwwctxT4ss`&!Fg z=tq-HBjz5z@j$OH`Xv8@jf}{ooGm&y2G7)p%f=n*8YTEUgmg-vvb`0dgy;ucFJ~HW za1YENSrK>I(biutjTi;-@b-G61yHs8tQoX;AT8h=r0{jv3B5~9YL8&7isL48A9CWo zE{SZpia2}1oO@;*{>;v~&8-*}^-H2-hK`En_GAlrnh4szSoASt!m>xJQf>I81NHeS zt!+s`Z{Iso#o>^Yw2%6S9p6#XWfjkOiuC%6nUo>SH#Olg5#ukjFClObB;Q~^J&rc@ z-a;t(E1iCMA@lT+&FcG#jnL4FEMJf1(^5IH&(BlX9^E&st{E_{VMyDlO?KQlt212T`eU0axfI=S!n(Qd9h zzUFaN&v2hGxTG1jkaHl;Vb@ROJ%eWzN2=NHrDlzYGJMeD+mB*N#|9McaP~|Hsxj{<5xV#M zHMqkaZMt*muhh-BIiJ}A;!}bs12q+B<&sbr+8EbZCbjF35Z7IM}^DRxqrc}1cNNcFCE9l!2}i}6Xl8dG(zSLKQqC{!J0`$t(PdyO zb^BO0AJX@%VB^UhabGaJFLGVHmaw;LJ!%xpC8YG~Cn|JxheulVQZLJ~D6wyU>i!T{ z@!V6g9?V!6>f702ho*jUQc(AKj1He|aGI#_sv7%Hb-%{urfBhI(jtVDZENIU0brAko9lWnx3;D+l5SLtQ_Oa$7{w!;@Szj07`H_cUigFQ3+ zv?p1(WVGH5OlY0piA)%Kq;vhWkq$4;fW}O27iGMK{?AD1hlPq{YOlS z$mWpw; z>lL&3gt&v2WaI~&xZ6dqkO!o^4!2{^J1D(F_(CYumk_FXns5|#$0O$63IE7;-j<81 zc6U|GuaFxRNnHW%UV~+yoP%k*{Dyeitg@pu%?YNwqoD6G|6}dEmcLYOZmRSs(z-Ff z_R$1c(V2U?=OgPs2;Xn0mx$UAE=@Kq_mB!9KicSyi_&MF)11&5^iTEWxmj#e`?;YP z^S^E+ei|!Np_M~SLD3smQ|f%s3z}Kp4{`+GrKnk5R>|62Q>a&IEW!9$S_nb})xE{L z?{*!UeSg$$sXwP%;88b~ZHT)Oc0QoevMLbGi~YsfYtfEPGrsK6sD3YO_Cwo3RMgAL z0FJ|e1Ls%n{CWFFqwju&!DBw8mzbzcJ%M7CLhw?=+lfN8XQ}b%qXMk?-qYc`!|rdu zkOZh__CVVP1?>{ITM}>!Rq=y2b{vbl!dPR!t`Y344P1UO13Dc~M4d@L#|q{mNR z*!flDyW}y8p$a!1 zc2(G;t@%L=dBIK2&MyAGA-M!AQ{DNDo;8)xv|f~PMzU#Q zm|NUq%$-GV--@_5bUJ$`*>}Kh?1s1V=dK?L=ACt)i%(m)hn|3$G_tZt+T;5ua4KXV zSaTwpKzo9f@gL;xW^MF;YU*dS6&?Im$jFj7nRJ#TyzZ)d=uY%4_*|oDMdeXj5`!YX z<|M?t9sEQ_{k^UkLkgsxuMF6^@Ulx9L&}2|GZ*hei-XO2ijRgd@66;CXyfQw0ajx0 z_s&e_7h#6XRn@lJY=5!uCgy_7Wy4}{7N8QrS#z$SP4OqQM5l1y*iWa>)&#m~*l9Dv z>dWY<9Niy1XCbO+Wq`&L+m&Q+H@W;FIPo^^+I6;$xYlXLD`;HH=gYgHEn-2bkGip; zVtIC_Wf;2mYs}i+!Z`0}o?0>$!zUb558qN!=*xrNX6vRhpU zqqd#<(M7GKgvlWjmzAx|jSjwW-8GSpuSmJZ%W!cT@8!7@&6_Ioda(UNG>okPel7?qbpqt6BYL zg>JMuNLgsnC${`0qr8aEs?T`I_VOIX=tX*gqkmYY1ha&*AwTR;4=z>mp~uTKD|$iE zZZl@TclNa?5PP<%#6AmfUKuV}OcJwCgc8&*`qcWMM{!q(0nFANJDmG^1OO=rFUbz!Uu*T7jM2UvBzM(&--(I_eOMN_LrX-;27x|IRkTT~F=nI;+==MvigF!DdOR z2X^@iDJRzQEIwHQmD=jX*Nn`cujOY(J2sC62h@4hhTks-=N9%OYcYIN0 zsx%=<2&@I9l<3!`T&`>^R5CI5Nr+BT1(%j^%17%qA+!?Z&#I8hik3G9Nf{7i>KCE2 zoWu?$40MFfvJ+p-D((0CCJW<-mMkKPYRQaPh@Wk3?0#;&TSUglBs1v zPn!ir&EXb^X(4vQ>?HMIp^Rddbl2PFjoWcZE@`by2>O4bg$|wCp4Do5X9&QO&|GSy zD&i8qK>?%Ud@?sOOs~4&qv)A{ruUZLYZpjRk$Al+^X8$3AsKLy4DK#DH?Qbe3-||Y zJ81Q~L8L&OyE`pO^Y`-6zcfzkLcy!t7CxuaZ;?Ta47wuuZ6D;aR_PcpaQKeO=MP#% zg1OOjZZgxk*ULw!)uI53KneI4?*RD;m_r?nV|=dD=?Dn(el_K0D*#_7uch1~LGJ6l zgjC?Bs5o#n1VeQ|DFyHS@o;vHfIZX3c6if0tePKy+_?)5!T>!V*%)MBa;~F+^%#6@h zzAR(uxLof#1}+4vzMtI)&%48c(DkRq`ZVG|oQ3XRRJQDe06(r)kde7fe;+`LdL84$ z?bR#LkkOQE5VM!Zdw3njq-bpgol9i@l*ErDnZ z2?DDCuoBYIPgWFemcSDv2wuPc-IR>hDtL5~J|vtc*3)xV07IIG22VaH$A0(GjKCW= z%-jRna!e)<)oE+(IrQ=3xDVLPE^akz7#5r{$e(bn!#_bgFyiO`5%BNddU2onWsmE3 z5Rg95h!_FIhN@DKR2PHw_F8Y?XL$$%XM7HPQfe>?P@quWQW$m7Z0yeNK1^m9@qw_8 z058BWd}x(p;?I}Xh}iQ`wd6)O3P7)+r)oqnN8o)0+92A;l2(ByI))6X#DD~EcORha zf^cWhU(NXdSw^7wKM)7`{$tDQMD0;JID5TYST#v=fV$uGnaUnIVF?mZ`~b4RzpnKg zNI1z*L)ueKsA2##bs zP|w4JEJ2%XOggTiT^V=EIUAbCrZ7HiIYiLs0Eq!Q!QAR?js0$C_CT*IThp82_ zL_27DvaJ%_%#?wv0>Gj`>JK}xs3<6^axps5%!>IhZxaDF0-OnwYikFc)??=cS)+qf z$-$(`fPm%U#yq)0WD#Y%o~cq4xJWRg|7!@NByZ}2)``ACXbTwq-{FiN05TpEPuWY8 z%k6}e<4nluCPY(rW|#K!+rBi6xLOQ*X!^KS5|PTq8KFA)UKRW6wc?e{K>nSjs`}t! z^j{(XC4)2enfA|9F^?zWnf+dVx$VuG%;$ z3ZScY28Dqj1b}>=V7`ek+76Dvd0C8;g87mE3QPpUN2Z|C$^cOqC4zbN51h`bVAdwi zea{)GbAabP4A`{wTJOtDl^xdra*zN6VO~w$j4r!>bPxu7&clG_Ff&``>+~@AQa{^9 zVT$iDl?%#zEox4Xq1bPHV z9w~}68QUh{STM>!vc(Mmtgs0PCAajz;Ie9x`R@`O@+bh?7)~dz#z~H80NyJP;$?2c zAhjcF(4!Y}0RYF_VXFX;Db&fb*?JNhhY4M+_=dX28m;#L6>B}-p}r<|$8-Sb)+$yM zbCC}KWmd7GGRPe;I%^dxs*tn=WS}wOzvqEnnld-8Q%F*RfvYG0>Va2y3uK(BM5)y# zK(K$}qyFv3b?2`ty%)-jMj+QhzKC$6j}C?hU{6kSr3)0Hg$gqHy`d zm5&;y^&nIrST%r|%W@G_7O)Aee}51Vk&v{F>kY^l*l(U*jp2khMT}YMLnzy|L593t z=|LzAdDXe^!!3@T%>+_{v)=+V51<_YZ0*0pHvO*w98H_9eDyjEvj0x2OBB&M(tW{y zIt>B6T?;RJ#7i_^r#Pc=H-0-TrC()un;l?G;O{X=5MPw81)A|7$BuJYTc9c6(2d{j zFS#1rSeG8$tHAzUqg3<5JDW#h`ZgT^lDQD>Z3|6gqn8{KI?ojyUzM06J~(Gx zv=A!@T+&7Ww%+fTV~<3I_h{0BAFGlFTkFgAm6p!Mf`qgmj(M1P*m2j96O4F(EZbio z$m$wA#@Q98M|*pFw00?W+ z0AM~J6c{wW;tQ042;;K3JpxO*(mk&%19aC$|^zOsW6mG-gy%dw!ID5w%+K}I56DgWc&Z7asH zf1@{AHYhIrNK9^uZD%cyPY+&?EmMDVv}Q)ruKP8+@1ytO9MrTsPjqH**>Z9^QT;9lRc9$p*`d{=X8K#SGD1V1@m~r9;=M zhq5u?SeUuOnwO?IGK_9icmMc5c!nPyv`Gxu}`!0pJ$<7Yk zII~P{mUZ&0YFCo)A{F(TFlQD9Mu+mKdFfymC0lR|+cTvjV-3M$3;r`4{rHxtCg<6> z4Bt~{SaoTh(gd1@cgy$wLIr3{)xkNx)!>SDXJ)ezw?{#-j=uv_BTJ4ETgEQg;v{Jw z5nOnrAYk;bbh+)UqJ0rRQT3X3qp!1ciZ2}eX6;jpKp>sr|1ZGd4g`zr&Mx@~d9YT_ z3{H^dPmRzT-?*Lno=665%)J%U$WKj6=SaTK>h6q+N0N$KOwMr@(=ST*r12_PCJzB?S3t zS{Yoi@K*f-1ZVK|=R(&P74AJ_3&(XbY>(9jDg=BOz0jsq(6#(p&eqLzi~ro@-xBAC z<1)NYopGR_>DS1@vbdyu66!nidHl|esGOp8jsYbLqca~*KeWwz=LGs*IrVGob2>@- z49lWzL+QW{`B-*?>@_Wi-u#U#%|5q^o6;DBOSH1=S literal 0 HcmV?d00001 diff --git a/docs/reference/plot.modelAudit-2.png b/docs/reference/plot.modelAudit-2.png new file mode 100644 index 0000000000000000000000000000000000000000..d91e3e9f42b0b3c04e7bb126d40dc838f558cc0b GIT binary patch literal 22330 zcmdqJc|6q7_dl*p_UuHK>{&|~OHs&{y<{JiEe2zW8G8ziorG*jwya|(GYDhJk_dyz z$k>u)3?WPWUNgPlpYP}Y-}kTY^lEy{>viwB=bn4+InR5}c@<-7tjkEpLq|nL#i*~R zZB9jX4o*dN<}u9~;Le(!Stk|MsX9}``*(n!R8*=|R4!Dis#L1LcQTa=a5Yl3V}QHl zd*qLcsta%>tGYC*CMT;V1K&6!^5=<>k(ZHCgppCA(UT`ePqK`>yo|gOjl9Z@B5I5h z`&j3OeQMAYCDfsrUp6BCUnt@;xC783hTl2xgaU4Tn9`QHf1jmeF;WZX%)mr;2l zKqj%gysx}(p?smQeBq=f!l(w1udAzTbfIc=QEf~HE|e-=(o{sefQG`awT0p!TT0{s`tPZs(p z56N5r#f=THIDzTDlP&Kt=WJLyn9+@K0p~{1lbYi~ql0 z1-j_HVfnXz-v$1B5cacS>Uy1%CAGsJ!eX6k*jLr9sl__#;lI;+8Z}o4>s~s483w(j zdY;@oB`DjE!Hs$pH&hdb;P{^G2n@uA0YjfmGmQx@g^5(aD=`<1(K?TqWfngg{ezW`A zTPu|}R)z3>v!%u=F`(e5yT7iyh^V(-%L^^CR6l&ofUQfFkop2K!MBI(4qDoW{W?Q+ z_jSzP@n@OL9I#ppDE$7`PQO)NyE*Z^GTqAO!*y+?yNv$L(hoBoWxuI{ITj`G{U{ky zz$jDNa1pnbPf(06312%?aEhu*f{n;k(h!Yv9S-wmhkh(-Dm3(-PT5(TEsuQq%CABH z;c;&R%-vG)xtXGcD|=CW%2dM7}Go{HwB5{ZBLIfZ1CvBP_*_3x_o zzNWVO0rQfP1gtC@DQrDeXUU(s0lr$U@@tTeq=d$?L&ZG{uI@2n)NJA-f|y?KD3znA zu8oM{gDUf_+&*;UzJE6@`w+a)pP#;dZIa_f_Cm;E$xHqz{U~kTe$)&z^c%{E)c8$l z0G4xAjotCX+cVCsL%(Ei8P>-%fgutPc-)EgXKhYsV5;VCM~~drE9?|#0w<_+J? zuJr%fxk@W2_oD~gZipXJq4Cm<^BTLdnl#2)Iqq-}fri~UIVr+9M64=_lk3caOBv{%f48lk zi&JU7Um$5Ppcdz<>tJE)*uDjsJvKS{yLg49esbGyXd<}uQ5Cn=UB)xcchFR3BjR{N zgADo9F^wAQzs(aT>uy_($@`b~;VYIkio0JAd^~TV#~Ys?tK$QvUG}NHFc0nG^8tx- zkWOpg$%9|VE`WMV1-S4ZXK=<7D!xUzAIulNr$O?@HH;O90>gbv^V^=!!2_qO;mb{_ z7dai@0iyoTxZj0l!}g!DZ2mdNULxEJ;gl41zTkKH3s~MRd;n@_pplIq_eQ%kg(GZ>nZa+q$Or2aCWw$s+xbN_(+D$&-) zWyw1nyVpEhY`O*nw&g53S zwR+2)x?+Y7G#-MyIzOs(*W)RyHs$f}Rh48K@_h5*yfA*{zm31UedsMhZTqJ6hS33A zb147!%W;s7rS9OP^zcK8+LQICnOh&=^!xT%>_oS3SnTm)1zbG#n(1&DW&8v}<%1^| z)`w1M3_~N2?dElUzD#OQ`@CGP;Rznu@$q@Fi41EGaS_DNHyv$p{&M(xEZ)#9)@|EI zY|tmAgEWT+e9N1Lhu(8*?W~Dvk{3}J+`!;*mHL^*3;4IfYv(tHQKufx2;vn!hPIfA zG%=m|N=-0IJt~U{f#BxmVTai~ROH9nAIB%Rx+A%6aUnov#y-*O-bb`}Ib`+XbTe+x~u@&cX)IFr%y|4(!jn?zMV%~yO*o>TtI z5-qdp8xA`V$k-HjmMzARoLP=k~s--fMfXQ#^V?@*EF?)6605D}Vti!2qKll93X z2V1hdh)a6iL8Y%9ImlAOGp78IganBiu#p9eVtmDEHyU;K4EaZSp8pe1z9Kt1%8zXS z6%UK31Um9ESPb&qY^*YgeL|6YWrfv4DcK+iGHs;JgodYG=($MBQvCW#sMrY)qMsI=m>BAI1N`q*0 zXKdVT`yTyxZAudbFe@UCcR)8l;`ZhOueFAT%>TNeW|H+G+`((B_SC)KAV4%a?u6Dl zTr0`#E*e(m3JZV+yj3teZo4nX34Ptf3_SNGgs#l;@z-O5Yl2aK+Lfn+Mzwbi%|G6c zG@UU3SS*bJl{k-=fXXeRUM^!d8sFA`F*|CzFT-xe-o#F@==s%sSPlMubpO!9?nWiot9KEyBsTF2+qcLMRf@Bu68{%y;vy=d3;!Zl~!U zl!D1}%a)F#(KgPer?birVnNEk;vznPDQaivN*Kw$ckusp2i>pdfZj=;aTg$FSH94F z-6~fQD;&*Juxgn}Za>OJq(<7si6``_#+Nx*{HMJMbOWr4f1AHk81sJ5S^AOmF1=NK zJVz-PAYNyZ`VG0IhNLWzNO0lthSN2tnxijBJyBCffS-5{#NOu5R>KCQ<-P9{scbg* zj5*KxWOkgV5G$+M|i2cwlVe@NA@IJqgNrTDhsV#UKUoY?&c%L#^? zlxB31uZC1T*^0kQdB#)rO*YjasU^}3`s_^&Wgo_|{rsY^b-RG|J++h3nYolDvr`A zygV`ThP-D%Lh|peUS1(oXHo+?a|=zHj29KEP1Bbn@6?3oPn$ZZP?2eozb=%gDa@N^ zrukgxjpE2cn6Ewsl14-Zor`5*CX15y+|FYwo^{4}@5%EpjZ{WD zF`FW_uXR$^_{F?h&Pdf2yiA(cU12htU*SwH^^g}f+Z3ih{Ry%xX3y@}^OGFkr4V>T z;_Wkpt&=?Jv~4euWkKBy;V!TT9Zky&Jd)YTmKE&T z+S!4C&ND-=h7{Wy!a_;z9lvcTb}3pD`^n*QnJPt;)SBbf4&q=3m4(>Lr^(Z2JTt&> zB}8l)dIaA6X&F9tT@KIq!V#rD89FaukK}g@(zfagvMH)$lg}y$hFQ6YC0ep=pxpd>{RCv^lB=nHidj zL#u;VDrcpGf07cyAMEYS^J3L!EYx+-KWGSiMSo<2YJv~H%}%dx?M%kGKMyM54=^I7 zU#JT|dFTIQZvS)Th2iZO^LahTn$1s7LDGLGa*6o!C`dT^Fn4QiJltV#=fzBRZH7L-~PDUnEVW*Au@Cs1!5yQ zpw@+Tzj}GM2zYMKWba^4(AE`vH`{z#H�vE|e_-s4!6wZ&sFK%~0uHd$60oZ&BY6 zldrd%k$WZyI;PRJu;ADdT1ZXoc{kG!P*~kD4)D(73qf&0eQajp66_fx{_P1eCp%lD z9j$%mdKG6+58Tk+l}o!x;i%AeHJm=&Tyg^pDNh=mXh_e65wO>438GVvoj4tl`+n9c+q3mtV7?m+Fk09Z?WS9B!pL4%=uIGuZo1l0$?jNogO~6TB+B^=j zODGT#8QMnWDQ$!GcjUfI2Pd+7ND3iP)|6|3&qNqPb8#u@8+{%5T=r z{<(+d&2S7JhC#*f8be%yTZ>Vltqz+K_#*%=l7)95e4W=deCCg25Gz!Pzdi7VDNpn7 z)dh9D^dHb-9OJjKC5k4r2ZM;CCs}fGN6sVI3&t77uXAJI9We`-LxuJT!};TDC2G8D zS@#kr6dhjb5r*30k8wSb4J4d(L!&AGWFC{#a{K-9qVUD(64dOU{E(VQ(e57~wFSo+ zIZk!V4xwtlU$KJzsFV%6jsBtMPN>8LZMo~BcZhv)h$gE!i1f%?%%LTyeBH4-BGhc{ zv7yU}0C9YCRM&zrPUb=qp11if6XxAjV#wa{oslS5KncW=2X%jAK@QlCB8nuJ?T!l< zlDu|d%dcnGjc0dMF)YyHzs01adGEaTt)-Pu$EJLJuA4KcROfrMHK^3vm->k!*Jn_2 za;YD@bRHaeOe&07>2XcE~uKu2G_B z7;+Tq`C|js{s$be0E*t|rT3W}h7sFZ)GLFQ7wr!%6Y}t}^$4y@`iAJ8*Y9CyGWk|wL45*%RYbwr*@y4 z&FCudafv6)MER`db+<4A&RmAXFJ3?6AoDA8lZ3M0Grm61D%aaXSm5qP#m$dtAh?{Y zUc!?gZ5IMipbh@89sEW!VY46>QRHz=on4%IC94$$t$FHp!~0iWktE?3-#W7cPPANPQ3e4u0m=g zHO|;_=|_sWaYkrn7BG46Ta9tH;1cTU-5wuJGi0{crNCZ-ABj>Go`+l}0;Qu%!!-FGid6&rI>et&ODFAb)yn$ax;(>{mZ^V7G z`C55=`cvG@T`ZwpF5&!a*bg%v>GvJK7l6hi5Wt0|WWnQ5q7Oh@W!<=GwcVe=sF`t4 z5J*Jd3f=o!f8WLIM05%Kk}1|c3=rG`W>xR^UeQn=&Nh$b%~?#w7zW$+f>{n80iUVn zg$J)*Km96^#47o@qv)@&d^93AsWe9q%p%lc(4iI~8^>$Oe#l!SX=xG76vqGNP z)%p^qDQY4=yBaJ~z3^l7_BHwhvUlXG=Jz@D&}^u%W%b61&~pu!0z)akfUo;-=kJ58 z1E5B=KX;Xym}0FSl3@cRVc?H+Ix`pR08fQ&?S1`RH3=}qUn6CV3+j&6U1*UNx+s;n z*AoRV-g5w0^bBd5P{01+VB|*2gNdS<`igc} z-&q0S3;-JhC^HStD~)_;IvtmhA#DbI^Wb>-`|Xt2STetr-hAmLfA?#0YQgJE+ET6I z=ew_5A-nd5PT$vjsUX?-Sb0-yarbp%_#86sFkG zNs5?G??Lk`ZBL!$FIBD2W@`~k*i`3ZFK8v>52OlzdH8y8b>yYeAmCZO($FNBk3IkM zf1Y*K_-&Uz6t>6+@ar7^z%f}4NNw^tJb{!+?N3zYcKPt@o0suBn}!0_@0`904`?Wh za0Tq35j?N@$#lGQCWl#ZHS+h769fJ?g%#%Zl*v3({Rz+m3i88rr{nP7@+ey-qph zL7wl?T$-vBx%vQ9IFn;4BewY&0q?kkfjm1IboI#oKzuke`m_my>gig(8zLXQMo-a; zXD6GyGkHXi6$n^OK_juPG?9le3a$%0t26s2%1r%*e=2?_`*&il6}}5^wPBB`N)8e#(KkPLH9r)b^Be;>5c9-jAdF>tX3%Enhv%rD*&z z^F?^--a{Xr%Iw{Zj>==UWkE24j*#2sB0UwJ+VJJQs^co&-|cxRTj9iW%^iBOg5=(I znH>7=|23fb{miA$hm(lPbLW2XkeOFY`1&pzH3N~yr9X&z$Fex_yz?pL?47IQl;80~ z9mly}J?M>jf5pXIh%$_JABsBs$0ud+dK{)+acPuRw(~ro)nrmpuVF^VwegR@@TLUo z;KAZoc99oG?vR%l7W;;vIKV&*xaO9!ukb2v6T#(j8_m|2pj6Oa^dy-NzkYpIjJi_n zVAb^*Sd+XF*d~t%ihpaT1Zr{zlJdr>Ga;O*4^oeI*hrny2-qbRV%G7_=E~J4u=vmE z*W8sl95iIUWl`b*y)kn5&&qIEPE6x9h!Te0>^8c9CJ1YVW=q-JU@xe2ob>R;8CQJc z`PVx6chyID@8cS@T9*~-;@d>{Wl01qJ_@6DiDCT<0qgbn@b9J3EXr9xmwBfu0sgXc z&i)K~+Q_{Au_6+3&l1Jso z91r0;do}^r`2=6FauT8x}6*D)$uYD;Q*o1n7zla^{%dhY!n2R^pbzA%A^e} zxYx!YpZ7=rDt($b-w>YwfAj`}Iow2NVZndrNR!&mCeB$^+J|0r1U<@$iUH~cFF>sEQ z014lk@Y%6KxQM54_HJ6^b@R&~chIJTo%ay!7)WB;Jh_7*AjDL_T%F`;sA`R(os0K}hq zp6t-2>^V2rhd;7m&gxuv=^0EDzP;p{`_y@)$vr-=i}U42jNhI<+3tE{AI zBDPrE$eUl^7@g>$g+4XN3){Q>Y|v2XONkFFRQuoQUAXu~mosx_JfxtxlMvfJ_dr!Q z{{dwm*|I%lz8DYbs(yvHS(3ayVpn7{WP~OSQsM~^O=CD?kN*PX_OAdj_CYiWvnSoBqX>{qF}ZxPdn8#sysUn?n*@*DjTqONMfEortEIfi1S~+ zH#f%pQbDkN^-6?YlOE19+>pduEl~i0=p%8o-~6;v*|4CoHcBPz4vVM4zkaK%$X*F! z0C4dCYS8fe#o$Vc4qLuYF$~YY7Pto4scHL5>uG+Qp~JF%%u(_&hLa95DX4@~S`u9H z&X}NYj8YjX)9_D6!RHPCMIMYdYlP*%bI9qtgv~%fb)!TP-ehsz+d>Wc& zXvI!|)N_>*v$=_B))@NJoLHNt7`VLdV6XcS*af?SbG?6J-b@av)Ht8NvF!G5G8n`lr^Bn)mh;N~MTD%q;0zQQ;KeoJ6H zCQ(qOA_8`G>>&MOA_M2mCw`Z~i2kK+-fq;3d7H7gzYkZ(y^Mbx{C>V43#t!fu^jEV z@ZVYhGVpp*d+m8#6PM=i5O;h1nH4wG zPLR3pcHGYIa6u>cSjocSFjO+WM0#M>00()5rn4e#{VABus_aV3yy|P-y;F{IxBCw2 z33Le1&k|+81~qo`LOOYk(AE!)@QgNjMVQt5!ej^_mErOHOEZ&%u01|s;y!}w{d0Jc zxzQ*;cFw8RwFkm>7#RuI3QGip?qP!-5kuEtP#1V^D(%TL-PR~JzTg;(Ez+S(KzfS3 z(uXf-+&n6fn6_}iv0{s&PaFn{M(m`G;0qH5&NHD`@Z3urEYMFTzJTeJi38yyn-r^r zJ(6r10+ak^LKWu|Mx4yLS4}C&AgMHuS3Q8b$@n)cc~)K>!zX-wLSfL^e25v0KKxv= z`tH%pdunkKHB|8;Df&eQ^cDt(j z(R{1vMNst%GhRO35C>k0Bwo2E&NnA6%_wFzL1xO<&b(YG?WBtVO_rzt@(bwZ_3Pxd zL3f#9AK}~llklxr4GAVfl;|zA{AZUBz5a&8st$CkX!P^Yo#`Ks-1{7h>NW$}Rqr(O=cYc&7WiT-Id8(2v|kAD1#n^z6vvjk?j>6P{^L zrJV)0`(r?Zw)AB9aZn;J_y(TvSQZLqTMa;~p=hMf6QU+P?xRyId7j6B0&eD9t@A>? zp8uSNz}AwJC3_kL3x5gZqvo%#KpN&bmxg;@dK;W;XM=UAp~kBzB-&O0Gbs#47?6W2 z)4zWSq?NTEbRB)}@}ni`IPfqEfl&ybA&Bb?c%^ul;p=NsH^dSE`|)EyLIw5Tyvip&#iBR{1e*?Dzk{v{AdE@ zPx$T54iWoK-I{qv4V)!0}hrs9w z7GGt0?XDh8O|r2dqY+9_{Z=*0g^a0_>WZ{sZ*-MdFL?^2+Y0^QbTJ z+@xqVKaI;X1^(h}Q)xYebG1up_K_J53xE#+1z=V;?QMa+iotfDrP! zQxg8yaif?Vc}4R`;QAL|XKnDm{ND`C`LW+ndH5Pc_$kGs!cwvyA)8zEirbQi zF^Dz_DIYbw{8yJ$$n`Itp)0h_z|}lc?wFIp2d=^vCwzeYda0KEGrj1d?h!JDE*wpE zo8TnvrHjQ9`21U1Z-2K4!JC^?dBs9rr~#Q~Nd#6nB`{h)wn?B=VES82*KKiR|7QHU z-qh_8EKg_5-ozAr-tVL^($*Bm%Wt=G)?;8XqWE*iLCtq7z)!+gnWA#bB6cKeJs;^< z>7jd6$hj79-u<3@Rt~6?6)f|1Ps@zm5;_iko^oE^h>@0m&4&B{%buH#IG4_y^-qcjwvlf0kmDf^Ry*h>Vf ztEnCK!(v@O!t>C1e1CrJtw!c8BQ>@g@&b%sRC^es;|$^57~W5)z_0Qiw^kdsF7~eT zFlN*~Emf1S*lvm4`+VriF&yqKfjMl*7+6kw2*o19TLXC_sY$BhwV$uLkvPq?Y@5Eg z()Gs8+r^IFDTiN2hTS|o*|z-hMV60_#ChIVV0m~OyZw1XZWalERN)ACF58sTn|k=3 zSq0?keA>bFZYBv1sMvHTa{tAzz=poy!?jF-OH6t8Rbb>>VZ4NY<8-Gcp$A0^w}4c#)n=;Uxjez zhA@3o^loS`grDOTI!986uP7`kW>toF(`hJEc0b0Od$9txEo;ZI!_otW-T0 zpsoW+C-dzGTh=mosot~0VVm6pu8dn}5g=9sRwczKOrF5FG!y*jIc&>K9?8H=< zZ$a3iz)`kFyQ2JjtHM*Bv*$@IVzvEpW~7Nj*qJEe!u8*U5ox^chFRRO;2!9 zir}_yZykjd#T1J$Ap)b)Tq`z&=hfuc-$wGHGkM`>JHT^S`Xs z-Zev8pc6MwFUkjhB~Ggl%|WUXTdzSM;1^7eHwX4xd&A7_Ref62rc8cC=Cx--mCK0_ zqT#|d*GREm?oEh#eiEJQ^-G?n=&dQM>KyoxImt2_h*Rd?o6=?lvY5nx1o8H`sRd<1 zE~Pj_wWK!Y^;`I=_nFSPM{hTz2;rJ|06YKzn#7p3E!#ABcWoBp8yB>?A|5bu9GKNN zeX<(iBXBBQz)ATkk%D&#+p%WW0h`raxG} z-l$T*iS!qHyT5B~iqz2x6J$oDN6(e1D*Bq^r%7@FT92EwCyHA-NnJ#S%Hb5@I zej@$cj6mT79%d*#CR_R6kW!q;uIUK-p!}4)_wYr$_y6>{5{rcwyS@GBe~ktCNC<#G zMlrA&PjnlBu^uCp+xkt;=dnh4up%pEj=lE-Qbt*j-xeRw@p#FBHd&x&C?i}+xu_q9 zbuV@^rz+7D0%K76%*cB}!aOOj*pVKzmyo`xxKBxNUO_zOHrhBQ{;LRnN=TX0M-H^H zh{^s@1fg(qC4~hb5>%{WPmN{$KSa#gk*krgV&*UB*wGeL1kY!1w(}%aQF+ZwxVXU_ zSiR%X|DvpCjW)hMRPz|let{$=jF$t4?Vdpye&WNdzV4&BMxwSRq)8z%VCR-?)rTVC zEKmR?1AMZwBZm#Ttn@<+U_@}T=eJ!!FoqY<&DVX1$nMn}-`2Rg%e}3y2|=^?PLYK0 zz+#tZ>xjsJXK5UVE1O@!8QHp7iIsI&_29*|%y78!5l|$(+y>3K@+LJ0p4SFz!?hmI z{mhTR`Y|IdM3Rce|6;D&Zao&n*JBRX2V5^&dM%!)Z=XTgb-WqF9RBH%UG7fOVPZss zpTRwa0{<2_2n4QC5fqIU1i@YHO%oi%DXd1|*8Jc{B)@w2^4cr=s)vR^wa}#f;pXPg zrH$#CIju8DEz3M0k82w9E`nQ0%M0SYf%a;s)$tQ36F(2U^(@Io zdkcRP1wC3lMNl*bYEb|jEEfRfI??!W7I*U>ImANvc;~So!5#z2k|0z?pCKgNvLS>9 z)!Asm;b1vJBYBz;a2X+5JK07qiTl;z2=NCw(&$3)Cc3?zky0?sB5{cI26yyRfkZFElxx?9R`(Z(LAZbHB> zi^Y%wlP;$NYq?NC?@uOKF_6@Mz0?7;PmYC60IPeK8R;gXPYhyT=O;Ai|C0wfi6#&X z2M5J@*Ifz zNb?dJ49Jvn;C#1%yM?W*R?Wc(tRyfO0PYw#MXHmSGP;VMmOK`b0Dly^4CV#^g{ZvH z9a8Myb=uVV)WuC@>nd(t;23d^^1z4`EfM9vuUVlWh^Iz?0Nev?fY&jwGUmo}4A zR*n$WOfj7iuUL?_5_5`KzaQ}Yj@i4rWTit5)S=i44cuDgM6O&ZUU^RDSnU7UNooTv z^xk(2BrN)o0S1!W2S#sQxy_7OP4AOO-N&r5_Ai|+sDDJZf^7d|1px!8ly2{vI`&8m zjcB4J7+w0;UIerHdvDCsPf0KDMGjw1P^i^GcOMy{g1+%XPwx;6HPE z1%X{0K8T(SPA32w_@6mU1-7Hk(JgvwU2U=}8KzSJgegN2CfPMq-a}Vq8o%Xw(isQ0 zr5Hl8e-RY~A7&N@zrE)w_HmS15A90?ks}MMS^bjctb_)JrPRegAKj`Hfbu~A$i+U7JG6KBb`+DXJI*l;S=^kmk5fzhUg7Eq`N&dV1+G15CLLBz_Rdp3OO`f zo8oSF64&z%$eI49(=y_EUc=@;I3=kf(<$$tMD8E zZJpWl2_=qs=8Q*-#2W9*Sa8xY*KSoIJT+%ihn0wQ77Ce5?K&L){u?f`eSNK$e+1eC@@cC4K?ScuO6CyIqNI%JJ zy;T;dsc1AA9LidUGMwOT?x8<2ZJ*?QE=kfTw@a6+b-6x>jpYL0yz$WjE`5CwdwjIH z@K<$&;uPwRc7|uKIC#Z2r8R$9ip!`=Wty_K?jLMyf6I5czbJnjTKeefEe&iH+*VPa z9*Y zn@6e)xs-o)k@Cqk3cYH%$|VOHQx?Q`024tGJjee#k+?YQ)puxE_BHzr8js8llqbb|l!l+rH>qyuHya&jF<&D!q^1k|nIqiQ!M5ED-A0Nj|NDD#UVTZOw+ZyQ)xuUNVJWZ_R z8ki<->}#}JfD4s0<`vnYC^0vn2I8Kzw!wXLW%3-_wwr0u9)s)ELN_edUU9QT&qL6u zgmu{wusff}=0b16SF3y{#Ea7?Yo;qE@Fc$1KcNt_a62hE zF16sf-dqSP(<1&whZMHB8~1T@&3yHTbr@S;(Bag!!0V)KeQ%b^7RxSEV1F(e$GDy# zznx?Mw?R#uS={wW#uW;eUPSMCt(*w%i%5b;nrsY7{9(uaQ&WD(-E^Z1-S`(N!HSo} zx^ZpeokjBihog*C-$}^>v!S{rdLVsE}vDr+Z0q5!yO@ZIy zX+9DiuqOM@#g;s~Y{QpUY@4{0kI}yTJ|w#KAqrb2lJlnYu~?zkdrQ%mfqS)oQ_K6bIM6g^qavzsZ{EDsiyUD3M(Wn@Q)@sZ;|$$lOg^74;-U0p|vAsiB{t z33~pvG(`Q;%$2yfdT0wlks%7+L`T>$aLy`N+f$jZO+YFbMpeK0ZEOt_OT2Z4e%B0t zo7M!*f>ctHz>7}saIzt7&tBg#wt=Zfhtms#t)viG@f4rLm>8J)rwXN#N=TvCtXTRQ zP-h98S;I;h{Me6ICaXOP?jm&p4V(QYTFkPntkCp!*a$cX(15$neddH6m0*u)RY&`5 z(Z@)o^bMdahjfeFHw7>4_COiM2Y%s(;>>NTvOonY)IK=@ocRD}H|moRQHa3DS?Jli zE1vNMdDRM(6)YvijJ%UbSr4g{D};>mnXip8s73vY*VTG26|RE$leTsKjAl568*vy~ zPzn}q-pfphhx18USi|(HHoojgnvD`T9Ncc9r*EO(mJTMj3x>5ljRsX@mh8Oz7Syc$ zTQ0R4#v+GtP9-F?PY50vDY+`Wi-#?T8L@rJzfY+Ah|z&$8<10s;CAik!pq=QdF^Vi z#88|d*b0Qeg3?$zHL|z{&#uvbYdq^yk?q*}O%r|g?)PpQk{35-HM<{i2Ls7yg9S;i zE?Fr7`Hr+YBS8NkG?(!!2*2<@9oj*Me>44tBX-?TC)7HSCw zwfXy1RF$L-^HC1-FiAE}E~MMifE7r5l#gFWQ+Bf{lbM+QFFzoRk4feW%);XyU0Ge? zZn{8-8m}`W^?)JFC#hhLg3Ifzs0x2SO_~7(rx4P##hL%4DIQvrcxwOaD*d+Ix{^>|_^ z)9bw{aN1|)!bl~%zx_$b4Qen{UovoGc`->>(gI^BPnLKfIk}&SxF1H`$_6kicHJlg@(lBo_lRBelz{pT{%d#c?AsIJ#mirBqN!Jx7#hvr6ti(c-vNLSut`#>9?>5Nl?&5# zz$q&G`k3MEY}s0PkD?%NS!v299#p7U}- z2OFY$nwh+SK#L^=c-l8F7)YshN;6Q>KTG02C`BVM=T`>;e+0zEFaC}gs!$fBwavo0dGckzcL!( z!9E%)?*WL-YjnKNKp;Rr4r$415i6Q4^a@`0HMSzV?!qx+{#lCpJ#6uro>wglJktY? ze8%CfqXSqwBOnV21oT^2t28S=u@V^fy(ra8uU2$c;#ZU9N1XA`I5g4Kmw*)QjKqu& z-_~iXJ4-X?D@@hOp21(V0cTnHMj8B*r37L8R}}Iw+fxCeIl;f2fjlP;BajZ%?xpwV zw!MclXIp(M*;pxjJZZW17y;AxBvKYq-H_oH2O>)@B5t;F6fUv z%7K!@7&Q2`IbGqiX$40%torBkot2ldqG0SldocI3iy;xBlFFcKv+moa_fe~n3-CD} zV6@L5?*nu}#Dp9E$M{9WycGT`k#a0S<-m)ys-0Z9 zY??_$U_9ZZ2;FQ@O|>fY&ST$W_d(tw`L0uxb8eLl+NA`ELHkIu-9oeAZ;@&2F+2W< zPlCuLadU;7`=uyb;9#%w1z1iFOt94hw0gk^VQg#&vOV(SUPg^yDDav&KZahB+-u=1 z3vxWu%_L}@j_XIAWHdZ9h*I9QbXGw1-uyIBFA=y>hHY{BqImJ@|ALq_>$qo_yoW%SBJeRxQ{M{Yt)gb0Pz; zG0Oo_1JQ^Qav_O)#qxs*?J?d(0!!ELx$ad$BBd$kt@@PDai#unGY|9@twX8ht8LN zk%bT*agvT*2Bk_xmy?Sa^5a%)JOTeObMU2NpK=BKFC>wyS0-mK=|;~7iFx0;NgV+F zy6Km1R2#qo9ZZm*r~qb*kehf3Zo}hcz!Ri-lMgSk{f@x#fl@qjlf|3b@kW)nP_H#p z^6|RV7y0OUi1;N8um7?ld1rbud(jCC;;l3yK9|ZTJ{_pY0lPDsqgfLuUYIvByX#HT zYE7S6Q|NkV?h4;0RjpO7>B%_IMiB*GHR)ID$9FgLGqrw7W2)MSU;i#?S>AQ?bgX6J zHHsWlAJ%ba``ly?`WP21vsCpUru*U`w)yG=At3}xc{vRyG^WtwZnx(sCtBxtth)w| z>o=W>H(?S7X99JWKslw1=8)qN230@Gvlc9E|DH{K-9-xD_iu4=Vqc%t@?wDsh^x`M zDC<~IBMg8<%+PER3@$MNmf!;gQ2-BLC&QH_Xe}Ijdbwxoz(DAgFQtMMcbSp&_W8WM z6c9`_+&tR3C$u6$(Tuyy+p18uZd5v8eR)~+(2r**?Ih`%8I)PlHT1*u1PjfW`zZ^CMke=4Hw z8EYnA&Wu+lQzlDfCUgz#pN@U)rCCR9CwButu0Sy*;`blIt2t%mrtHDIhyX)(AQue0 zN9FX0(YZ(&KsAk@=`GIWCa0J((P@dohfbePjvh|5KlBcAmEV ziU%b#A>3!|bpxr_ji!b-WY@!sf*Hs=A@QyBd&`Vbnlla|BbP%UmHeRgu z#OEIs{lY=1KLslEt>S~YP6+NZfu0dz$%laP{^X?ULZlL6JGMw?RKKc3jG#X$mRg_U}H={B`!5 zy$yHMgJ`x=as8T(02w#;qqcj6bV5Rd*z|7cISCN9E|Z+ z>DcRM#}5a4IP2E8hiYI_>}3k=0oInKfifP z*-A)`Dy>?Ts;;Dae7_P*UPiDS<`4io^o@1S4Mvk1X=hH1pz(I2CA25YfM@c* zsz1}jUUCEX>qp+N(#{Hg9b-hhD94A*T#aDW2RJM%A?aPgRyJk$`4jC;(c~WDW?*a(YfSaDryQv&n0% zlihvq0p5_SP1S(eySwedOSweY>zq~@)-eTnl3|%tils0fWBA&1dT0PAR z3c5~Lh}33!P@JAgYoGy5OYq?+yd^Op))u;YuCP-LZrTAFh~p3Z~Ln~5Hz+edVd$`m>sz_A!N#h z))fGTdO%aBZ`WRtU1>AW;p6*+g)d@L9Q*V7NyYY_FO z)XTwD+?nRETNT-@VB<3m!xTOJKDV3d9upEj(^eiCiG6Xt-*x`lH+XX0Fnd(m#V z3V%fD)^IW#8SmY>X`lP<^QFKuPAd8nCC|e4>AN|!@OTK^i`1U>k3c~{M{cM!qD2jh zp+{flc}-Wo=sSmfH=DNSw!i+ZKzqF1TatCnq=3}Dmis($>;5=~dbDy)a^iz?)9!XV zWubX{^ag-%IO6(B=9=U!_hBw>eWm=2 zh+O&kxhoYSSz2#scKKXO>iPv7mN>87SVz;g=>@w^BQM(XJ|dS;6+&uV{4Mj-*R8TE_ z{Ll5A&?eg;DuVHoJh_2}6;1}OCM(8mmdAkjgJ`c}s+&886&>E*l z{+;i7+9#J0E)PBgIkA?92S=m$C!u%Me7MP)tjaUV_}RAd#wUfEa--9m@QNo=m; z(tPkm3>Go8N5X_N+V;`TYDVw3Ah69-=8Zb*!;xg}?;*X87h=mA>4HE0D3 zr`tz+jlzajnLYt7O>f^aipg`D#_f<($4AuXgk=Oxg zfJq6rOd?#c0jP#FD7^;;8h0l z6te=8DDyz?U8Lf?JotNOW$+Tw*+G1Nz`P*>Xpm#S>ETo6X1)$rWm+sHZqt0&o!d;4 zmIa(GRba(%^`XO|sB`AcjzGXj?nGLXELnyiecIa=v?)EsK}J%BzdlYFh};=YQY@4v z9$WOb0>4iQ+P^Urj!N^1&D4T{I#Rl|{9#Sp@sC3Wi6D*%M~vE-2*mg{=bZzj5WLbJ zDI4B~A|=mpf3PrXT|Q=JHDu>;MEB$ShT;LRadcG}hbKteP2a5+XDUT;tKawggnyWc zax7!I{PEWU!JVJw$VsmH_JbZw+lT7P=~tdhbC7jv+o%=>G6J8dI3&KZ8tG;WWMG0D ziQ_)Fijcvf%Rt1@1C~#~|8>{NhZhuxO%rahXw!%bTkDKV22%_r?sM|Tv(2PI54;Mv zzhs*_bM0(&!T%vNFeVSioa2(BTN{Oct?u2(TqkfWJ^~*Pm%Z5LR9-ubEaYJ}#VY2i zyF(_XRVYN?|15~|SjF8AaEQOhmi3#^#!HYkRcvUcFNdJ=J2k$#6~GOo5-Z}&`tSt? z$Dh1;uL3Glx>TlKml(LRDre_n4`!}=%t>R7)s(A`jeHl50;%6cDjlvj{dzdx1Uhv| zB)~6{xo;@ZD6*b!%nm-7yPL~qvFFg*pciJu0b@wwF+%(uKaoLdX>kJtkvswsx)891 zEvf@4`Zzl*basTkoTcu)GmtrHk?&BWYucls0~+L$71Y_3*s8=Uj463x2#|}%6?jsY zQXJ|tbbT@|Niru%&IKpbu|s$(C`BMD%>IG%%Y?!@W(-VVS-E%V#4o{c5P3rJ)Z@u1 zo6vItbdxQ+*nqsyJD~-}$@s@s@^PfMFjH59a?PZOWeovbK0`hIS~c7KUh4v73uZGm zvFt-vEde@4yHaB6az%*=IGZhc*bba>HB2Y50v&cW#d-3hW#_>(Q6F8q@>SjdN`rtJ zR63j&bIyJWLTN!&h17Ty{*3tA2lQ=J35of?&NBpYaehBn`43Ub)?ic4%y+t6dfJPf zsjWZSMqlY|mISli_CgEdv3H@A5a<}DaqXFfEov7uhJKao4C{XkV5+4a8$_r7FeEt* z;|5TRD&aan05KCuykrQT`P-X=K3fS_k4t_Z0Ye1uW@Q-GK?r4NCA~dRmW;XrD_%Bm9}b8k)lwI3M485ttjzPOdurDTG0l1 zR6w){u~kHy0#)Q8Nk|a`C?K_fJOW7xk0=n1Cm2G=#9$^-F_?)5{(B<$rEBw!2N=wRuq=*01O7fI5=P&0x%A-n1CGc6Z#+e32+FAbpXG_f=lF%euCZIquqnS#c_`= z1y2SzfXg8O{lo^uf-5H=Ruqr}E(A0U4vr3v<^)HV26I}Y!IQz@0{^u}mm;wanAiY^ zSnyb^1NvNSPHc`SR)lbZ-8s?0oYGcKE0TqN3bV2*vI@b~kX0ee3Bcq8ION2FD@RDDd+|%MUV>6MPXJ&1-MgDAwwDpvl=QY8f3Bt z1tN-d5ak4ja$?bLM2HAM#A0zPC%CmVy0sLLfXEuqhBEY{kSP!uf+)Z@@D+Rz1jz|N zN~1w9h$sgE&$n`r)>5Rk6;U*Rb_m)8kOoKq9iyFrr@=$(NjYBv-oJiy^PUqJ%)E2x z--MVp*dK#=8?$BO2cJ-{%A0g&{A>5LsaDzfO?)SQ+3dJ4FE~Ep0? zBQ|^;x9!c3er*=jz5e=@htn4NzuEfa6_S$C@qI@JQDZIFT+OO%NDHDfKHJ&E=*7cUZup}*Hn9~5Wke$tye=#rPNlCd#vI7d4Ja>Vk812NH}Ut8=(`@0a9X`Y-yrBA@%s5`yjw3L$#{fI;^yV`r6%QG zYvR<}5c%unwj`$dwXZ}1uAAzkhrR7~;>5}j(xrAc0-~*HhvZAdB72u`UB9Yn22|r` zr&H8S#EH+(3hbBi(~CVwAsscObiO)AoLIo4B2C=fZ+($sQB|g7X*hHm$nL^wIxL>q z9l4Zuq>!`gu;2q#S)@uTl_9O_9venyyZ5T#NL33*_7gJ!{6yIw%^Ws`lME3#YhrY6ot;o zUm@iqi9`zi$Nd#SJjw|+QPo)%Mo<ezF<<=;4w$D`>9Ae$uXH7G(|ZStfYo$IDzQ ziO=mVCXn%(Vht6qOC<^VpPXCGvah5reBj?LrR!=Mx#Zn(kPnxxJQaQ<&rRhE%A{ql4J9w{salB;!5-~!At2YW>6%u$kI~f?!!x>$$kASEmr`hpHEJuE?jW( z5?BUxdw|j(2ps;gHx~Wjjo}~0Z1p>TtdACICReg6fE{z);AhR#-}dCu2N!{f@V}PI&!8&?T`1sob+IQeByZw*EZL@U0%&IJ<-4_) zr0GTT-oHWB{Ay@sSbf;+J6Q6(Zp;FqX!77-!^`c@II)YdnW2|WN0te_&pDpj4EGie z4hC)?^23Q88YgUI4d7R6B=av!=)CkBmz}YBzf`wiiKup7vU(F}yv}A~@xROM#}ksRIiEm%@ZShg+od@Sc0UFWe^x zdbhJE_so0Ap|a`Jo;QmEV~G4x%`bd{P4})es{JK1c5-JxafHg#mE^{`U2^FGRRV{q zu$C_kZCxsKE@G*oRPQ=fh#sAc4MYbnUp)W{@>dsBFRoJxH0@--y%lEM>&1x|_lMgH z9p5(-uUwH40p*6-3%PuAGPQJ`Bvf8&TWL)y(3~lT+(&j8!IU*9DV9i{lIF!rax>GT zs7O`)xkRV{&YF{Q^?B2Wu)fPJce3`dONz8bwDroO%0%Xc{fJN~Z7Khpu7F?0R^r2U+<{2=68;KtTB2wM z)NnY^u|cp=mKp)HpglFhh>vZ8_wW1zmDH2xHpcq7`<>^qd6&%uhZCbv=v|K!t~XmS z0OT09j;ZS=o2@K>u4Ml-tZXE1_NRBnOWzuah=PP<&#M#77Bzt4+`C?^6K1O)fb1AB z0nlCY_+#9Y(<58xXL`)4PlJ5T z;1uLxu1{^)n>Yd!`j?!^d6sH!q;p*!UrP@$vt1wt9o^-;@2R-^dABO+Kk8iOWNskkA~Hpx;HN$A946X=af?U~1$4^Rs+2ga+E~k z=2pU!r`++{k#uu3$Nm$$^bO$Icg0EHG6vFUylo&qplfBv_3PzSa@}I#dSg(J2GRyT zR@C`bySiS1#XowmP8g$gG^jTao^+?=R!sD&7XE%VKvhE+Zt#^+q1gMy?68^VUrZ}< z!9Cg6A6dC+z_}jP>*^a+?shb(fHEk!*!sGQ!{ZC82)gIh`9jfIG!18v-Rj<1%BMSw z6PStCIjme<#sfYvFl4J#C#aM&533)V^t&^T1uSElj zwWe@q0FJ|*QgFA-R?=74$!3IuBthY5JW7vL!EH3Q6QV6DQ!zjw1pqnv8{BuaeqP8ig*)zoQnWvOmpGec}meJ^XAIL?#zEFCz8x5@K* zvtP~J`FJzB%L8q}5j%GQU-AZ(X1F}I!h3T)ZRUae*h2K8d9rHr695X}#Gn(Cen4gn zY~^f*Q{trtCmW>2T+wT2a8I7I;aZ$ZP4~VX6Acn#Ak%6>F_s*IUgIRp7JN~^SO~lh z6IQKkA-rpFf=&4upnW5NjRnAI!t|00q(TrO00(YVcW|FcidEbs~MBBJXpX0 zn8?_#ICCHBA5Y%Fi}&%VZa;iIuzSp8y3%Psb>%Ux?u+Sh)2qRVpLLT z<$W{CL6GqB?G*S~?~Nhx4$xfW?Zrd-D)p7#h(h27rvw_n8|cR%sbn`;pN7ObTj-Vs@EtzPbJz;#6`$O zTH%ae-dIiC_jqy)&{#MJ3)yH}5S<#)Fty5TL@5A9d`&2ibML_gtILW)bm8!p3pMOk z`9ZJV4^dx|a2ftDFBdAv_Qs%ezGUMOd!!7{h4HPkq2Ra@z}<4{X`GD{$`Wr+UZ`XJ z_fG+>v+dq(JL3wZM-5`xlNTr5HS)z|oJGQ<+_>~P?(oSg!$YJRSfNbH?7B&%Ty_%g z+`GSc$~N_{JHYBgCtZZsNK)`fA~QKRPVPK{a!_I7$~*zt1L`&I*3i;)6Rw~_VC$5& zAa<6F;L0T|bhja;Xy@Y#{OxG4H6wucQ@n+>0W@g8G%xipCZcAu(}a;Tu~3lR>ekc< z`r;T$!Y&gYU89mTk=eHDvTWTuqi!KD1?s@evdTksWCfM*+1X(xO<}3ZYI@(w@C+Cw zP_P!J6L70Xi34EGIZpg++P7$YIxGYfw0_TA0EWFdny|{x4t0e>hDieJ^7Fi{SMH3I z8(47;KB?t(Q_vXPcUU@L!Ot5ff1LY z&B8)fHarU$q?FL%I$!NJFr^atrKoU)x@hDcSS4ZX1Ioazl>pwx|Xtj&il}gbVx! zA-jABuhNAV>fD^=nw$B2txHHQO6l_p&Jq5d*PdcCDL7z!i@s*5w8i`n9!~uHSo193 z!n?}dgwJ-v;sV+a@NHR*-Z$Y0&6t=2`?KK7OzR#kt&qieuj|n&ze{s6ewj$Uy?@p~ z8O^EJz?Ug8^EjTnf_)!ePQ{6_kb~iAv?6Vp)5#yU?ztag>37MxfSMLgD0sl{NR?WqVqoi0akMgm^)C(<4c7m> z2fpm4cI{5Md%SZ&@iIDqV<1!hl6qApyAjMy=fN)kJY8d$zL7gabC5(xoddyMW6)Uh zze)Atbs9z)LG?FMcR0gPtAtkfnb7$e3+&HLN6UwPGn2;$8E2RIk{Q=7^Tjy(tFtB1 zAqj?RKu~E5N&$x!@r8!~Bl5Qz3ik{pg2T)1qXW%%{CralWr2p$L9`N)1$x?vTZrOQ zhNpRru5lHAjRFY)XQ&S}R3iQiDt6GGK$MCiBPZTaeK-Q?{yNjz@!8I;Xl)}}xd>`$ z1|ezHn*eA#(V*G5H)1RlHel@dw2UC>7wwKl?>DKn1{+~uc=;Vegl}q>F05aRW&x6< zzJ>}|5anCw&7)?5u;r~BnYJXVbCV#@S9a9*8 zSc*|i87FSo_xpWoY@Boda?X{Awu5LP?DJ5yela<`H`1b@es{98Y0i)fWk4J%@PH#N zR%C{^OwMHX!~QIa#gIich`43>5^+f)L|15gEI=q}SF^M2Mb(2~3U``uPH zydFM*t$j)+f*q#QLk_wD2BS$lkKi|YAGJ}s>D>x@{Zb)!iaB^5(}FrXbyFvaEw*h~ z4C(bjHiEsQ$zB%@0=k#&iy|tm`MnE(b}b%3^=ac?(fM^HpccE(a#qGKKY}Aw)BHhN z$ij5QK%TR8>1r_-1Y5%~iP10=&4j8tp>OiE!K~V;=t+TLJMvZmH3>TODcw+eI2;cc z8TO-)ChOI4Rgx0gBBA+cQaPC45r(Xx2MZC+%|QtWThQ{lj>!9SWvvGh(_xNT4?I)prz$fKiYnZ35>T2I2~%l;^TkSI3y*zc->8&P=^;5SFPC zHi(yn+Iv%DZ*;d%37NVD#)BdUP#?n7fiQ3vi?Ytt)i546L5;VWK{T{<1IJj=09^(S zkPStOMi3c305%-g8G9OkWDJgNI_NqZgPFb!eJ_Af`3H{AjdO1xDKM@)MguX1@{B9Y zINJPOaN+pL(5aOtC8;r2mR0t2ZuV+>RN{yK7;bMlr&<};7MdcZe`-S}4nQqKrbf-u_1f<|rX5y8KS`DaE^9Dzq zN0GF4g?MqIgr`oQ%>s)x6l--NgI(AY{OKz zO$DcVlnWp?6_K9jZ5E*!9AdCUzgwH*4ZDOY-|9p6qc%SD-nSbrfUP6Iizw=?4d{mE zK22aQIR$p1zj{KEXe)4H`B382Wd7h)DOHJ*g>aLXP_vN@-K4r2>cL0KVY&D((4jsC zhvLPXIJ7Ba(oK>eM&+2P3u~)yDWfod?gN!}V-8m&I3e%no@X}p|E(54AmDtNgx(Uk z#%cXiE>1jQtcj&FH$MSeQVw8Cis%IK)yMn^;=TY-rO`W9>k6hd1U98^)qzc^7NQkY zRfdHaV>R5Mvs%(y_RJ70j=w(Q|Niz2a4KWr0`c@5sdJKM>!yu|Tb0L??o(UbDtZr< z-#C6HtaYif?m0-%TP$bp%5PnzEZy1hwKPh*=S6&3^+LjJkkM5Hrh2XLit$MWHD{&l zgpcoUb3UFBc7wW*xyzw#@PYH|ZvM8H6VW~)g&z%-&&3~Ie5KCHCcLMeokD;0T%pi; z{P0;o2qi(WCggDpqf?xhm_gYv-#yW9&$o@jgFX;&S3MZ~vtLQRIWP z498-vdhb@)x~58mUw-UyR!L&6)eDot;I63mzNHaxB(EbLb`rH*Mj*M=`g0%Eda_iv ztVxWLdHav!`zy*sTh*XO*yakT5msMaM7)pEQPT_RS|OsYUwXTnlG~4tQk`W{HNPyy zho~=+3QmzFf)~)TFx4#M2A8m9_&~)t}w(j(Rh_R1qt1osE ztkxPwud+f|eJwIX<(jC@Et&*2337!=nYaCG?N;5O+T<*zAa5oUmU~o5D;!g+tL%xd zSJr+~Rn>`XXm}ok6Vi@)^i01!38ej7DhRecYibm)o;nij3R`EBeIA|21Lpy)$ur3X zH|L}@@-T7IDBIf?7ljfwSS%NZyYpXYD0bm8-)R>0a$3IEqDUe?Or2cIh|+ZH`EQfF z7CX_x)!lNzpAPqA$4i}WftT&<|LPKf9RHY-k=)xMnS!#jPs|akpJY##XSou{IL|ziR=ICR-3T_YjzU`6D_O5{|w^AClZ{H42din*I`I+7cpWJoNAp4sl z_NCCC4a<#^eO}V5Zr{{!_cc!Z@N}v@sv>{y3$uRX z`?j2x*pRem1fK_<-wYR@xhRdAeS_Na!4|l9swWS=c7y8o8cs~z?#Wwu21|AV#cr2B zVA)&8bEUdwh#{9srB+N`P6Q&YU9qA-0bUpMLRhKwBIQ$;pieh~w`n1L(&9>zs>_2Z zYjef-09dXw^pGUgy^=~3N!osjBtNgOqs)Uu5BCL!QD@l+=UO~2lj<}idVMYdIjV#u zU?f5YUjLqOE)AtpahJ+G4kt*s`j=^f6TbH-nOy}-q*(HWL}}FIwhGFc@bI1Y>^f8& z6+U_vc-xr8W4=^Jz=LAIGo(DmXU)Q%M$&!tL2=EW4c#60<}vkCa>+rUZ#_ykZ<#m| zvepQh8ob`hMuLUpZqoqW8_=023TZvTcV(eb_D*P1A1f&GJAP=Ys@-=gP`WN#bhNpk zO+gbc#=bWJB`7;_4x=wUGBOc*u6s{%e`%s`kM*8w)y9#iu#c*fspyzCP5t8Fo$FZgLuYj;|IRt^g=7D96U}eW!*$?Q zNgRQ3%lrY+C3aAAd8L7;TXK3Cd!>b$Q%vh;M(+=r;@HQ;o%S?S= vM_Rk~7yM(%4?^qTs4@ThyWF~v$?NtW`YAl`Lm%`FfLk_wyfNd$eP8?!f}Q7B literal 0 HcmV?d00001 diff --git a/docs/reference/plotACF-2.png b/docs/reference/plotACF-2.png new file mode 100644 index 0000000000000000000000000000000000000000..a57e20a5ecb1eb6711c116f4d2aec2f8741a60b2 GIT binary patch literal 18052 zcmeHv2|Sc<*Z)xJmy#_z(L$k8Nn}sj6pB#E)}n>1F?ZHVG1inMjivHK8cb2P86<;b zOOk9OW0?@+woTS~uX`BL?|I($dH?VBy#LQTpF5xCzOUt+bDeXpbDi(GC-9iTK`u^F zP815ob@-635emftp-@ZC{;>qy`Els@I~0no;@Hs>`@vTfN)?5&MWGldRaKO#ElM>U zWt#WXXt*ULfD!3C4u4aAY2GT&lLnC)_q1Tv@i^&9+(K zVt}R&4q*;qIES$J4!F)R(9;22;9FsWfm1>7J4gOGvz<(H224kqHXoy-hL~WY8Hv~S6AqInyWy^RU2Bu*&XEDG8oj6A4 zdq!s`7#H+m3{e@N9l|K!08EZd2nGZFa9yrKU@=!X9XjQTLP-Q5|Jd$!!52^{Db!)z zy(gfU{@6)BakJ}5%{y)%v6emMVvWwUF};M6_B?z5I&ji`jGfIUb1nXdlFF7_sau!q z_2XJ6ET|iD=TUg{sPxduY3jg;TVArluzUR;6G!i9buH+#lCdhjaH6+1y0^|Gb{h)y zSueQ<5Ye}c!hw1&LRyJBric+jJ+b9cKxtP=S)y({-b+NGl>8tz)Rkp0JL>bQf4yNH zC#>1nGgV|&WA9CyjGu5yt{Z<_R#Xe^?QG4fRR*hlzSx3TrYBx-*L`U0v;Z7Ne$Z!O{&VCc-q66R?B_Kh zm|a`5rDU@6r}yi7yvgaRF%)|^49~?)&J_FZHWW*!#Q+vuY_^fhmGeuL?Vr1ZqKR$t z-i512RHYl++ipT^QbOGn4W&C0&tJZK;V)ab-V$|bsUsYhnl3T)wDyZ}A7nM2pw;6& zWWxdP1hgj&3eraETj1qiY&COt=Xqc$M#b_7Q$#439w~b-Ovt;c1!wcRy4@Zg>J~-q z3VQOs3UC2J6sLzEjh(~bqVUE$VIq%i{*F2YXM=? z)0+%Wj29KEkI$UKiTZPI^7-C2svN4Yd8*dVD^Vib1!*x|c@d6x-FzAG znoZa-pKs@^M18GJ8H`OEhHW#tmYm+{Q;6O$!tM2=qC=8FJ{ZOr^Npl1mZGfr&cQMl zuha{pw2l7_v+dhxi9)UXe>L#G=?RpA&|)ZS{mb{Dz6u#dh}3f{M)-hBrS8T%D))FCuT!q=HCVM_kL~*VIx&YZ+3L=D zQk(qmi7WCRUT3h8WFDtt5zb$HC@dQDC(kB6%2vaeZSMnZHkKXLHNx<(fFEu$5b7jt zzkg0-hcAf;6-*4Gwp(+3|yN?!sAX%pWt*I@}P$8(qs{u0KN z9SNtsk%MHe#uPITp8eh$9>--5NEE~yO zqEK#~CD(dcDe@{Qa_>)*74Q{gd|MQ3T87udnE4&z#3(PpWUKm^=nzE_Iz+UI^)QZ) zQZIF%ol=FOq=i{U^5B;-r~ZAayS?*s-OQ5ZfUihda;%rl!O*{dIB@(7aYt@XeT_g# zZjZj-Q(nijU=)gp)csq55Y16gW9{{U^L3fiTT61wZ2b=q1NRa|F=jUpamr9yw{C0s zzScoN$WrWTqe8WJL38si*^Z)*808%pGp2xw_7RthdFPYc#A_VyW(8HW&LkBzlrNkk z0HOyS46st*%5G^BufB#Z!4ctdZ$D?pDL1n~#;oXcIu`kJ{y+IqH3 z&s>i7tg?Fn_Ad?hsL+EM_~SCY)dSe)!9;#P%1{CD$kG%Nc7bLCD|)RjJ0}8QMNh8kvD6k=(N$wkO1(CblgZ&FtkIml zvr{Z|??ez5G)41bvTKh|vy4{gCL|_NKWB}7Qsm~u@7F%`H+)U+x_tiQ7n2l`FW-Fy zs*_A8Ta{NUk`EjNEGQy2omw1{-JR3If(n)8TPUNSH7wANu+eShb!MdA}5M-uqpzV8CRgHZfS67#aqwAL+M-B!3fP zG4Zgh)DTFB9p1(c?^bL^$K8VR)y>R&UbzpcGM&HcsOY~}Ao8HlK#My?e z9mcU%{3Q>q_RAn&aZ%~#{gxzi?uE}T-Gj`O2f}|-+sm?A|!Uu(H%Y@lSuO9=iFy0F_B65+$|Li!&v3%Lhri%psTpzNMNV`-APkC|2? zQ)mJQs=ge#`QUzp3fShm(4)pd2rsvRiQ$2J`eW8G*8!Wv-GGE{vD^_mEGI?2Gi&;M zh}Cmq(Cb+K=0CM7&jI4y!fR*}wq^slp1GPl_}k}}m!;gtLh(81p(V5pWC3Snm09A+jw)|zJd>l{=YxNldliPjz>xH;BU+^Dz2tt5cz|o=IU*8>o-kJdG|bR(kkt( zsGAeVhh@9@X=D1fL;S{#8unr@KtUhV_ZA+$~vDEHH;bc|V((i}aQY~*X> zzfK7_(*eRRn33fBMdt*Am9>;O;HA9{f=^i?}GKks9 zQ%t~W%`Y!vUi*n377|rn;(6^t!scycm2-90!0SU`=Jt7B5(R0~RnN*c)NF0tB`ylf zkOA?(1e{VrFh7%1tI;C2jhJO$=k%BE(t@<21HNZHeTQ4l9oZd>279J3| zySmWwbjIafz}*r7`M*TW7mUu%X<_7Pz3!jVPXN&_1#ozKer+C@5)Yae_pMkimLQ+! zx;r!g8Qo$NyiA_8Mvr-Dy`>T^V%A(e*B*a;!yX#alrDFHpLS{VYm9zt#!T9Str|Xz zDZazS+v_q8RZUqQd#cwcQ{nvL^|C0@jM|L4>~+XlIw;{mP{KB8gGg|`KJ7lS`!;f5 zc79;w{5g@7@<}xH%KHNq25tV^!LeL6%t$UQ?}3VmUO^cB)8~e9>;bShd`3?2#^Q-5 z#NA|(!Q;<$zJK>$m_RZCe_;VA%jL$NW*#Jc zP;y+a%ePbG483yOQFWXmG^pX$y7Sw4!1HW8C8 zs(XKXlxjogfS$r)=4BENN#B9Ab0NyyMEw23|I?%%eNL3UOC8&KW8jVp?eV$9fJ85Eopfao5w{pzDA z`rP+6u2NiQ3C`>&5_awS!@{;YL{4Y0L04pIhMwY>U18}>|99u#lE#BGe~q$55qSa+ z6GKWdx&o8iws@!ywTyJPvcq545V-@(GoYN1eFLF`S1RWPn3vpXklDSqAH?8-h&BL+ z;{wbwu*CCaZG0cOO`ZO=ywps~T#D==1y&c>X!+q7IpBxM$6k7tBnDnBx#)8nvb#C! zTaZP2aFR$U>6&SnUQs&`%Xs&>F9LYlD+|WHT;lm!iAZvKxx?)q2sD@eqAFztobJ%F zE}P9-Ks7dr|MksfFCOR<>sEev1b4gnEjv8~Wv=a>5`?K>jAc*4^L9(wPkZ~E# zq+ih{y6r_28UzU-tkm<4h$#*vL`c|&Q1da_YZq`=PAdahgs%jl$zc$as3GPCd>G;k z;^$mBU9Q-9p|E#y|QWIp81PoR#6w3cZ=J|g(@%_&< zy=*RYH{E_sNr_kl)^hsH@fa+5*S!59IKeN!RGxHk(mcrZZWYL`88bHw1UFdZoDP_e z1-r)6#&+v}fVPjkP*=Ae5mK+TvyAfaZr);;EmvTY-sc;K~R2#4u@cKBcz3;YjgTx^jSGYb%_z4i}t#I;)d3p1)}x&-jx>X_YXr zqX)3ZO$bt|RwI4@!8!hX4UW^ImS`v!?VGLm)C`I$9!@whs$)9STNrR*wBFOtw>K1(Kd_Vqv!B3d}s!8y2V{bNFa{ZXnN=}M^Hj(dN!@rcAMHS^SW++&XneW9nOkz96`)f^|bDP_C z{Z!pE;+4(~^*Z{%>J*E6^E0ZG2xjW4Qy!Odx@Nkak_c+#U28qowrP&vr1R2VkS==F{C1{Ro5;Q^;`SSeZc8PsOjl|7F#|c} zx1TIjoP*iEj*mJwpYCcOB`t*6RW$~L=36;YsQtgIH`BFSqj9$o~`Rpg6)D$ad&6XLievw|CT z=iW46;QrECohCs}Pc2K~&Rj?CbV|PjR_yWNce=#ZV)?S5{IBsHV zN>#}M?JT(jLuMi#k8x;&X;dF%cE@%95||T^*Dpk?HdZhg2B}W@cXRUvjs?^0dn;rB z47LgYc{o5Duq|XYshkv(C(#>kVd%jPhCk&%mWV|>iHG)C%$}H=B^M(P0Nfk4_y1T= zwjxV7O--ZQbQg>*OwnlX@nk?A$CoVNT^D3q`KPJJq{t?$mDE*%E%S@{H=EAW%2rZ= zwZqL*=|u6i9Xs%S^g;y4NV7;gi$QxO#KgDtfl8hWDrUQQ5QX90M+6ALsrr{YS;S%1 zkpsoLDlZAaaVw}n%P0bXE6{b%;=zE20Z2B2UdjPc9VboxJc2$rc(2`rB~@J>Sksx- zx%^}qVV-X=G*BP(%)@4#hx4TGAbE~f`_U>3mx2|YCu=`Zu|bFjzj^@$lQN2APS(P% z$1roaAl)p;lJint+E_- zmkiF=4);GDv$iF&r`aXhVs>=2=GJ=;awia!yds))(hv1j3y{>_8Ok!BuCsg?Ve-rk ztgu9T@`Eo*#)`VU3KivYAM*hFVS~nceUDQ_&SH?P^rhC^ThPIuvWae0pI7ZAsZn{O zFlI>$y8>;fKB7f)Z}ajla>+o7FF@l3Lxbm?3BD%{vUaAaneov6&`Nxr9{qToKUBs| zIA3b+|0Px)gT5Vabh_ba70*6mMT!Cz`G!uHBJ=v_UA9nE+Q$R?Oom1i2G?6g|JFLS zBTaW9Ye-E+@&nuI$S#0oBKw48pfIJ?Cuvf!4?4mGu2GaoWYv-_2i$2HFP?5hkX=q@ zvkMZAAdL_719;>e%sliaC-e6vOtcrcU%-b8FqC$HeS(BP@Qq+Ykw8#QV9~(Gzr&!Z zJyzs=PkI%t`c%s?tKBPpJ$!~iPknr|N4Xp9<$$@lSvW7?I*|l?9&Ki1VzjSqqW{OU zWh76*Ig;*drsOwDkpJ+en$owD2WQ@cVPL3fPla+37c6M;_igM^d5dBZjP{`A&6VR%M4{qCddWGAq3{i5!vKE-0!)BNkbj@alavIB2yb>6De7e3pvE9>;ln3)UZ z@P06r#X`wK4`da|{jpKBnXG1S`T$0G990suy`$c`RQ_#<*;9Q*GW;>qDKwjJ!Gc}C z++F()W5%q`U?btatt02+M7#6XuF9ADo#U`CG=ubx{^L4C*M}pf6%WPd)kxqdNsS(1 z*J?!R$_mH%LDJ%P^#M)+ayERyNVSKSCw>{poPQ3d4V=w>^o2*caw=k8`a(Er7}J5aoz(ci`+ z_BS8Zs*0t@w~e=141le8v0h;zPaJxA z{3%a=H==yUqQ23A*}i!Ho6z+SgT0G+v!zIoaZi(5_Rz27w60f;brX60;d$E1mW;i) zk9luHk7en(Q!bR6vz4v*6R8W(kI6j)GQ8zSiPMwtSP2NR^yX?K=JX3t34EHCPk;3! zqtC98V#$SDOiFHG_C+!qx2OVj*k6+n)Xn zA-9kw`<1&ZukqqBb43M|%}5p&V6c0F(Y*MuMRx%V0IF;jOZ_M@Uu{>64@sI5xp@76 zDh_|HXdP&6SU!~sC$GxZmt8FJXb@XO|Ge3)wXloqJ2H4Cq^Bo-QAhN;-V?b^@+*^NAC0;KU#L?@Om`QyNU}JPAAC4 zvQhNks?)|K-S^~m5ALogHzmQVMv?=XH>h{E>D+^hS%8~s5oSJ=hph=y=6 z@tQ{p%$5&*%oO|@&xF602av2-&qO_erp*MTK;mFS%fCXqz>a|#4K9l1W|_$ zQNTTm{=x^0*xE z(nvWR;27Dp7huUACLb=G-o&hG11t&5))Xy3k{6J}56*OW@grkreO=Vn&^nWPo>F1t zctI>zB7^u61PW}-Fe>sXb&!-FA^EN9O(g3!5?-ebsQF@lR=u$omSfQZB4smLrKY(s z+>6xJArychv(Xp{2yLD-%kw~5LuVE2(00Bwc(&+Ae|xVHIL`IPW?N|!6Oobu=ET2_ z84Z(_>Yi!9clk4G^AM`Q!#5)p?MezBG94H3KBLxH_90)*lL}TOmFoJAVj3C zqC_$=!bol6c(gnj+bYS;7+D&B##{oK5UBvU2@NayzN^r8;c;|lBDf$c=u^!@i@|oz z(k`r5%`AXG2#7;!#e6jizQ0ZMN7RH_^TCJcB#AJsn>|^oT#%7J{Km>TB8G2{E(Fp9 zdl5fUlun+Q&XOo=1ZRU%1;A7wHi!?0-d>N8*W6Xn7Al!bYNh^SdP z8a4$fP!{<{F7VpfO~>GBe&P7{n5R^5xNKICB7a(d3mXM5s8xLop)Ds&vL^@nmV6nl z)e=~Mii6@N2j}(!bSGTSU=yh{p;c!M?eh|a1~&;ujs*zuU$FJ(K$A$5d79*W_Fr&u zA^@YrINk9%yI!UJth}oWLK2X4OEo-aS~OcLGl#=FIOj6le05%XQVX|_PMl`}Q*#vn zr{T3%xfFJY+aI;)v^Y#GHt$p)RWAG{N_(+@KTy{6=~REVp^rm%)f-k7NR##wlMgcF z9*zq`A@t}7TH&z8HllcokZ8ZB6JqIKw~o8hU6);fB_aHf94c%8r!K} z=S!MYY>iH~c=+Mr-G!*PTGb&IO79T|wfXu?2F{!ZA!_z1kZ)pP)`T0i6RqWLL=96u zkPLNoIAOZg+~rI14xIJu+eADx_HIxJOL&L1QzmGwB|o4yX^;pze|1OpuOIoMraUzM z*5z6~TK;FLwjkjvKZiPkYE~6iVJyz~2E~>>O~rGqh03vZznZMvLv;Dk8azGjAj`^d zjykN~lNo{}*k;i}0M%RHWZFdFLLRX2XOt8MvSe~1Zx@^89t4@ZA z@o#TPtGU*unvYop_s*eq0MhSHaigY05n2iAKQgwkn8V%}j}is7jE3oHtL6u@o(YKx zurOs7W-teQIcPMX1Gb7+tg4d#wWS1adnx%`sPM-I$z$uxnQuL%)`UC(S$O2Nv;{>< z{|SW;|5r-z?|X$$T8LH~8Tu>-I_FY{ir;jvQ& zrpsrI6Cm?f9>W8UF$AxP0N&YxyIDSYX*1sx`J#jZ(T?r~!I0}Ols^p;O1%QP$Dw&0 zm(4@&(pF`jmwWB*CbUwfTwTHYPO~L-%yNn`!}L+D{ZmcE`2BM=c*xt9fFn=|F>Xx1 z^40tsh(6ioiwja5@4No>J*Wi(4o$+~O#ss$B{SmL3gl@}I<|b)uYh+xkt(KzFMWb{ z5Lcpj{7Qkd)i>irN%7XXxC$!71UA&Mm0L4u=UH9MKDSJ$s0}T7o;2(MuHajgO?$yY9;wIJN z8@`xpVu?1P{iIC23hJ5uXb7cMRXo@55AmuEcJQ_PSz&>Jxk8)L>P?DIm z;n8sK#j?*kG2ll6mL5cY7r^k0#@FxhJL$^HT?JKao`KoD!oWLw`S>#9)`}F56>!#r zgstKkG5OEHrtYuTDCS$TrS7O{VBF)H>8kb%cV@JXUS_tM#0t$&;WJ%r!|t`~$H03k zQ-t9G>ksc}pA?bis(uAf9YTj}0)4N)1)shfWrGOyN@|MMZp?Y589>v>#RJ1Iu>h_ZeJ>u`5FRe)_HDjP?LZ5g$1ZPBuufmgLL8sT|F_P1K;Ym!| zG~6=Ysv8LE!R2pCVx}y$4XZAqDKC^k_-nU%x5p9R)mjykQWe6oU0yy)_z9^SSweN)~&9Paqvcjg$f&*;L~^;hm4R2 zTx5V*SWRT`3A?rYCeM<)Us@dvR6eY*?%)4Y3V**|5 z%FVUM+CrQ7(sWhHB-zT%-|Hoj1IzGswWHTl8M*jX+K3coRMWw*6P<#nm0nZF`&ouk~JjD3)4pyi07l)=^xuJ@X z7DAfLzZ>#UNy_rMBx$8xi8j%%{+#4=17n;PCmw{pmcj<>NFbChqe!I701Q*;F&q5u zbgdBW)ujM4j{uzT$$Hf2EkLe{G`T&`;tQ;kk2Fu(rZn{}BDUIkKTY1tg{yZd=(J<1 zvuRVn5mC)CE7e#-Nk<=Ad3&tb%m&IGQ6?!4_lK>tT+|z;zeX7d?s7u!e9lW+xt)#P zcL$J)+7$d=M(`n9=MtEGgls-}jltc~#f91fepW-HO>-otB{&cB3ZY=@&mQ4*?jSf5>KImJdW{0%+5BxI6FLkP9EPqGFT-yDHV*vRznZx@H KbklXLZ~Y53^jNU~ literal 0 HcmV?d00001 diff --git a/docs/reference/plotACF.html b/docs/reference/plotACF.html index 832e4494..f44f4ca4 100644 --- a/docs/reference/plotACF.html +++ b/docs/reference/plotACF.html @@ -125,12 +125,25 @@

    Ar +

    Examples

    + 
    library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+plotACF(lm_au)
    
+library(randomForest)
+rf_model <- randomForest(prestige~education + women + income, data = Prestige)
+rf_au <- audit(rf_model, data = Prestige, y = Prestige$prestige)
+plotACF(lm_au, rf_au)
    
+
+
    diff --git a/docs/reference/plotAutocorrelation-1.png b/docs/reference/plotAutocorrelation-1.png new file mode 100644 index 0000000000000000000000000000000000000000..2f1724bc5efcf01f407758c2767b24ec4dbef570 GIT binary patch literal 21095 zcmd_S2|SeVzc)UmLPFZaSQ14Er4T|Tw4s%3qY^3%#x{0kt7In$(SmA1$TDV_8rh>H z>x^My$TDUSlV!|vjV+z?`+v{#f6jS5=loy)X_}Y&y07iNuFw8?U-$iU270{fh1WwM z5Z+TKPh5aN)*>Mgj_X_;pk(;uc{~KN>fyPwmvq1-D2G7QAP^e}2M2^>4TOUQQB#Ac z*+A5yAU1{I9=n+RS;Mggd|4bU4h|M;4F_ZmC}Nj^4{HsH1b)`ASO;xbpf7d@?2nC_ z4fsZ>*%YcpfiFRy{ekQ2N9e=B7o{IjZNnZI)PvZtYe%uGvp-SbpG_3_EwqUu*c2Ap z6oOwCXbF!%!6T~SsNM+B3mkmGRc}N!D@qL#r3Tuwy8z9iqSV-}qY9%6!Iuz40ACgg zu8)dKt=E&6cWIfRmfshN9b2az^i*%)hrevN{tX@ zLns8_D8fP|c17@Efw}}13p_oEMCwJsd#fXQt3mfH76$~Z5qn7rZ9re33l^b}1se3C zSiPW2_7bw@#{u25SnL+c>t`rnH@KZnnz%q9qM_{nt0F0*))2@J$f*;@E+LbtDd89q zThG+i)&6?}!qVPn+kY4phE^TQa1NuSNo~aFYs+!2*|Hih<34z9LZ&T3%D?8(q&Tgi zb>#E#@W{b0N5&f*J!mr}AJo(^>Ws2{7rTbf>Mk}s5Xi||``fD^0T%=5t07V$|Jk42 z*2tU&8_VAgcnbALzMxG%Y5Q!{JL^>+_C)W;*3Esk`7-SNUA^nfw^tSi_HB&`QfVZt zh3wiC!f46EP2t~(g*eT=(Nge%XlTj@fvTZ`&jJJCKrcBo0DO&s6Rd5NO zb3K)L!V2HLFc7D`U=ruscb*By)edkuPJX?ci7IAZoMJW;?}b<0$SpN3JHh-C=B?$Z ziP&1sZ~3;&S$^}-dRpa$Ji1X%YqrfCpJRO2thCSLpe-&5k$K zvHUJ+6q$Y<+ttAA)^*?5bA4))Y;cFR>6seFi+o(IM?%u(-Upww#v%)<9Q`FCMpq|G z-N$3pK1DH~y`g5)Nw3w4i;XRA`4p55nNbfEin;i_7cVm{HJz+C3s3mD!LjN>wlYcE#RjpBG?-*JE~jt;xym5s1lfY|y5)-~*&#K^ z`)yXhbVvA;z`d~LlL$lMr-}Ww*#eVrN#`>H+zwD=;&|3^; zv%ct2xg1}dL?zygEUYtrzDr=ad6zf5=oMQ|L613(7{ePOC4*flyKImHt zGc#)C5r756O6emVmCB1W{aYll(EH<|9#hp5v0c8@nn7A1o`5_;UK^l%3Qyp(Y~LG9 z&(0i;5P(f0SEU6?k+Z%?)Y)B1_RR|^`rS7|hgpjDbZ#QGSTx?w7k+ePA`AC>f<@J= zBoxGvLxrwYda!Of*}M)@K;1g_;-)!HrAk{E@wpX+JU(e>L~+zn~=iOugSZrCDG zRjguXsRSMwNZJk^BtcN<#*BBnpi?UIAa=r&cfz+`UC>r(&_l=DnxT(y5ApEjOws+QVtJG4zN$M2v>$@vnwdt4 zFTd2H&HG{Kiy=kHqh>4{YGIUPks}X!^sxikg6N&))hjtw?_}q3Mpksr%xw&H;flD+ zO$BS(+mNxR(fxBn&&%FM6utKY46pW3oYZ_jzt56F#WE%@R``B2CR<=rEE?#UQ{r7U zBf@j^5$Llbv3wFczStFDR%scgsdKxTGe zKW>CU+BnH;Atyn#|Eiy}cj zPD#x|c8``u&bcakznl2Q`Ls=f@p0_3v8DOr=BLbKGx2wSdyR&awRtI==U^P8GT;6- zEvr_@5pyXUwGQhDP*6(UzPE_Ntc)vee1o*Tg9z11DTn0>_9bjYc$wTp{(JCWice`%eigO+0Ef$seFp1|J1 zvaZ7oWByXDc}hmK_p|4QJ^RadU{}f1?ZJeLl1j}SyXZEA>jedV=el+e>5#?{d?Qc0 zCSljt$$K;1k#=>TL;IK-f$i%ZmDj`3RGLaee#ZsVu%A;6p~sLM=fHA6rLj5?nqO(I zUPrwya>%u&6i3RnQ2rf;%F(34zJH+iaULwooh`>%Ye8EXue8^V1e#QF#dDq;ORdB` z!R5|&J;|vr+;Ev{nM@q}xC%k&aul(hx={9QG{O|a^8T|7Rv{ke?W-`6TPOKwYVX?p zns8TtV_joOY*v>ERh|D5zkLYfOr%G;JT$<+&XOXF$}y&4XZE|-PvKkW%3W8zk8Hwr zJ;-;nG}EH(>l*Ywf-_){JTy1pp#gcxd4x8yTv1sAU9;?WcU=W{9A&aVtrWMOHnxW) z(G_}|I&?{kPY`OgHT$+!F_)oV%bQ8WRG_#*#2X|2FC~)`CIX??oek~fFhjm(riv2ZIJ`p&#G&FWS&xFqV*f4 zglRTO!GLGRH1faaSKi{2`|$k4cUCJC?8xLXUvcLlp~`G}gD}%XC(~}wWa`o24Yd?< z7VcvUayyCE`Iv#JE;kEz9`E$;V5IN^S(UagbNJCtEWdkb5%TMFkX!rb%g8#H6G@p! zk|XxhOt_U0sywv0sFh6BbQnKIDVh-JY&E{-jWs_m_GIj&^-O#V&7R5O#)xi`>%y3c zT37QwepLT?QVIu~amF31`ZSPDS0;5wD8oH*VPNz&uryV13R;al%cCoIiaDaG&3D|s=mD)Z(gJUA9NQn~I%Y!QA z1Y~*?z0m)Lf?tc@^}6K#=FNHH&0!yj;-pIC6%s82jsuSuOaRlDw_&X0@ka?-yq!G` zAu8(C7|rO}&7I|E6$ctd=+pvtcO)X)`?V}3)9-^Tsy$PS--sL8*t`Ya3RT_p&I($3Vbt)$8Wq^wZkJV#Bx zXLB4=fr7U&xcdAXS>@qVv#+H~B1YXqiVjE)1}dJQ93V{|h?qF=<@%{YyFTS|jHY>K znf=u|64K#AUH*j$`qM5kQpN2f8)zOqk0WSId3SSkp`Sy~@^i^GmI@nTv^~`E7|r_0 zZu}O~@D9fp%KY|lX0!eM9}2fU>r#vPKF_4&%kR~E++2H3#K)rkw#+2HBj-Krg3Fg? zAB3D`-|aW8+67z=mfx$ut+W_Q9{my~P|E2S~GOZ*nd< z+GsR7xIK7f1sj^)cyb_5m2zFb%9A->ai^8PA!plTi)kkY-oCExdy|P+pN1Vja)!6C zvYhT$^f_Q;#!s-hv!)E|*_!J!-KO$@1Cy~V!_3~yjDj6z*1VO)wqJgOva8%j_Qg5h z91Cpz*wy?jBqxWD%QhH26Mh@oAb3&#(%u}Lms74Jw*I1Svp}DmF~Zui^|)!D^+c0T zf4q5pmDYFDKJDhAxInbSht}E(t;4p|RkV_{=bBzXIpT}mZw&^k5Oj~V>Sd%(v)9~G{3Vp(qoa-pM)Sw9A5%FR;p&HM}A=;bC;4C^Ldr%hcWjrA49U+|R9 za(uh*0dAxi_QFTo63*10fm>9_D)EUPqCsr<94B@g>6wMSwj^YG+%!mT;8#vA;Pe^i zEv%AkoUzzqSKyiXenK+L_)1r%?H~T)RaK~kSDP%FDiZxV?Yycy3vxxJ7b}C2u)VV& zRzs2ntyOyWZ6rbBC~BQ~F6&$nYn> zPhK|YlHfy$*_(eJ`nxVyjv$a{OQZbL)nRm>4zK{0=9&@fxnMG`W?KdkJTh3e;q@=) z9@iN){(LwjdF_G(7wk@dIDS?zfqSfTS>vWNOVSg3zLSc9wl4C#bt_l@2~ ztFziuwF%wWxVx4^T2gOm7IldYSsE%}afDQtrx^sd!QCJGP*W|y-U4>d$C0J4{`ao% zHA)J55sT_#3t~=fPozjw4R*QprfS}wv18TFtAYi$E{;g}jnMYnX)N|pUZpy3#5?{E<%qbhTp*_ZKB$P%AgWU~%jnSc52+#odQUw7|3YSx1_&RG@zgsysq{uDAHVDQl{CIjX*iawj%ga=}lQ=(kQtvRkhw^_M8* z0X(pCSupv(m$_3-+@A^5sg@=6TgT zFLNZ+u#B8~6djhN#cKHxD?8rbWheJ-yku`r^L^l!E-vpz5t7ziGj=_#Dq+mG^NWJk zOjFBF4TZOVkCjU8bO^!9847C3hqI{sY!`zEm zTyyJ?ju*_t8mqPIgn2@qcJk zr(J&^Hmmir5V{dx_jVoc!Ukk)B~9|69ukq{tUj7zq{oGY;@w+G;l@Tn=uv!Kyxk_i zVqkss2YWlXLl|@MQ!Yf*HN-;2z8ENji*_p5W0c!Ndh^i*TDTy1F8MlAFcpg)9zoFx z#E-IPo3Y2(Aw34Ms}^pG$aFzCuy$$~UJ%MLV9OvWiV@-UbMxT5q{qaXv(g0I$uF^& z7I#huJs}p8MqF>LqJ+MP4!FLu-5Sd6sx=e6Eh}WeZW%pfXkhZH#XtieI@$n13#RjN zs&Xuv5mbbg{t%IeEXs#iw`j|lQFJj;x3rSYp&ORV2)&gU*Dgp?O~~D)-jZ%0!31Qg zg%+*OTOmcq|G}uZcm!Q&(;E%_HOGg@I-Ry83^pel7+Ddcp_6?4E?Im36k`LPSH6-| zaY~&#+WH2vBms(=;-Ow!W`3=cAGEx_yqzi8B4p~Rwp{7IOZ15CMk`8^<*)>t|8)+* z!?<(SOLm*|K3nR@BfaFd4+5kp9j~V^7s)y$FS!8I8L66kM-nR$_Up*0MM71-rE2G) zF79@nLl3FFZNM{TiO7k3T#md3**g2ajZ4Lk4xV630<`ExlG<5mo+~f=Pc1W*`VK7b z-4fY@i*}q!ulvWEf&=H4Nwa8kMr?S%1CfQ`7%#fhX_d~ArRV>5#=K5Z^Bnp)as86L z2bgwEXN%s;wUm|>LiBmRQBvSDX=81jh-EiGwP^aSl`2|oMc3760n*cX*MLpVJNtE! z-p7}0*|20NnaWM({jg8a?V~4ugjIJ2kal0fW9^t=|F2N+@Z9f#FSZw-I`?R^tCgCG z0w5+`baB#y$?omz;KFf~EuF;y&-nq>C7E|S{PK2M!=bYJQ9;_W_S*=PzF3oJ6u7L> zjv`aeO4*w6FY7`G*-bG#*;z*>a>)ZpHg`FWOj)G&53Y*RL9I(F8R)Pey4niMAIx;6 zjSJn^&*Z*4aKmbuo(bnvSqEI?)3yurZdhD|b+zF~&Ybv*sG+-6Cb2gu(d@|fqE8V{ z_gXp5KV5-2WOxt`(3|S0N0;_Ox!qN{5hV?63`>7dqRM_R8k-;0Z|x zRW&=eafhK|w*Vm32>5(o)Z5SUT#lA+*5(?euq!J&J9LA}VX+$MzFh;ycok|>53}9p z-GGqCArXgDKJ$`A*RvmcGah=!ZMG5N!p~NidWy#yWy+=>7cbyrcw6^@@7a+ zxtJrgiWE_cdv0N0yoXwMi_d(D`{b0iQCI&>K67r+8*Lp^Wlem1yADBrF!N^P9a&wO z=w!R#dwk}r7MEB~C95Z)mLuV0!^}S2UrShkqT|~SFPcl}jHI?iNy?owlKtiq81Xo@;Rc{*1qB*VoAb_{2&4kj@fqyWc?c%4BU&KH?@h8906;te87uAs7E{{uO%IXKX5(|c{VBxfAgBsq}a~`DbRV(aV3_ce5ZOvj2UYo_tD@l}|jUf$pL-1(x9=$Ou$Zw zU;;AKMEI9Qz+a(*ZwlBKndp@k`4Pmx&gVxErTC<)nZPUWSkOOg;*qk8rzbt5#NHFQBhvD*!`NCpVbL0A%RVAWn^(N7Sj1}*>9J^&vZ)l#IzaN)dRh>Z9H}F};=WApCd-s_Q8&6D z8z}G07`V}D+fU*$|I<0)K(!9++cp0b*My40Pu5f4Ld8MeBa!jxVoIsAAAM%M}}XlURxz6k1d7WFBn{AJ>@&* zu0(fAo@E5L9_2mNK^}INGh%mlU{9Tk z&JShe3*MD~u>-s3yu11XI$ZVnS5~)zbnAs>TTMNJ&S!a{XHQ0Gp3$FBRz!Di2Wjnu z2F}L2H^dCLHk?O%+31vfY*1*cYBlkWs!WOzp+_$%2=%)>GVTht?}ZDAx)w%`zpI7b z1r`04+hW*Y!_SWsqTQuu=(NkdHmB|9jfdt3>lZmQvc1do8UprU!@G_jK;jbU87JE1 z(#=`>c^^S@gVAgkIZeq9a!HZP_U84LmTd$@M+<;ou=`}10 z5&a$5(j-*0Wjf%G9L_}p{5?>!hdc&0nb}<}I2G zNB@TG>ZtAK+r^5-7t-bz&5vHo(FsjHd+Ru-ynOLR{;*Z?)WwMIqbu3AJKU@FVTq6L zK=%~IMmES_Dh%}nMCIjPal)Cq;=#4na~nx`q8`0|!F!t|<^D(~USg@ookgnE%XVOOC>Z;WyJmk+!6yG;%D_Zlp;(_1b4T$$$Kt&)lFH6!_4O7Tt>$Gx=Mt z*UQbE-xg#EFruMkUz9z62qxCyI!3*{KcQc!Ys%LitP+De_tre0dWLd|Be;)$4QLc6dcw}^+3CsjqqDt@I&Z(^q_jt(Yo5fK4 z{o71m_BSs&u0_6xk6PA~C+vEkgsOxThtEY;-sBJ*bv|c;>Ir6a%<4_~J0`4x0a1H< z(Ni*Gnej=v@(8Q?_X&ToPx%V%R-U^SGoJ9|T;;P6zzyy2Jf(2c>gp_&#AjdZ zeW~u_(DqY|XcwO=mkK$pkV&ynu?gy^QP?l!n}^2IZ19Sk>g&F~PoYJ6H09OpvoUm| zU(Bz75-RDi)cOYBp)U$HtfZ8gJCtDVoOQME^kkTe3%;BnjZC^@@1ujX`!)Rw)Gh=9 zcXYTB+RnnoDE&U)6m0kTcGS^!2j>hor)Q^Jk=|Q#B%>x2X5l>^9uFdunc6S&G}?gP z43f~z}1Iu-3U1kXO{dT^(1_6v+g9dtz5%Oi8Tx?S_kUP7P} zc53RqS$>rf3n!Ru9((kg!x`7$HyAEq^yHn8GES(j6BL8F=+`^x{~QR6r{wwwMW4yL z16RtKAQDt;T;BT%?O>N}IGiA@e;j^|j|RY(j;!5DE%dY7t`XjcWG#E(Nkj)@ z7wH6oPO*9St*j>D!_p}Om!tDxXm=$XjM`%FKJsH<*No`9C0&Z%(^;r&?7(;ti$oVU znMx}=!ChHdDqSdYY97Z1Mz&3A$~ARtkjfrK7w-~2`Gp{Q(qr?Xp3I%CJ-by|w(SIO zN3DtPb>$^zkg+kO`WE8-Uazlu@LzjO&Jj^}&hzznhyUU#X7?~ExZm)FL z*|1HfZ#m`N#&~72FQ4&><=e%Uee#KBU-~lQhxBPeMYlMLg^PP@RMOB!3_qDBzVriF zapsv6tqo>C7eA5BKVc$&Kj{T}p!djz(j0u-C5{BmsdblH2S>ix{CM^rhE_&dC0Ah_ zqMu5?&i*W7jV8fMwS3C@rh7LvDx^0Bd)(axJ!gRmv!Lp0#IXeux(v?L^qK1`>Ai3a z8JbpNo0;Fdhl}^0kQdb`!vC5886yNbfAVc7lXr<(0co^3C54Kd#xgMoX| zf}rv{cRX_qYV|U!X7B#MQKJm8Il8je`e%(6_eN07=iGZ%uh()zx7ex^ zW`9kA?v}tLf_Xz)f>5laDe9K06#7G?tJZWVL#!y+{>8rjBm<+c>qr-~Frhh9iyTq9 zV%2-2Si}_sS=<3yIdCHfcWJbrxDCN!t=hVF%dVb7MFnwbg7&yy^j6h31y5q`Q`~cy z^5{L^hR^{ZdLS1^5rGq)K&PTb6tLHFyl>bki8j?zO=da~10LQpp^R&Ao_1Z6Y@8WG zpz|kxPg|$xTy0f>(PqWh#Ige1WqD^Ww7Lm^#+4Ea4|&8zl3#HOb2*CNHU1RGQRFc} zi#qcJHg7sKJD9mt&8&&=unDJ6?wn5jpv_CeyAw#;=XJ@tqF?n?iB>^8A%PyK$tgl| z9q5FT`cjZ+aYw;ggvMO3p?8!WE}7pTdqQ&VQ2#Li;v&i%rwk7BI1YtGtu;T|c*3N? zb(_j%7XtK?42R(5=yEfZe1t4^F4oR%lRfV|{iGNVN|C;FwnrjCp-d~#so3M3%Dc@uvr$neS9a| z-hl|6>pt0osG zkl~^?mFPQz;ukBPo#4vZrY9q439~{v*4r2ga=O!)J^-cO#;%Qz7piONo1A+2aQvY6 z_{5MUzi6>Z*c}C9@8;l2)6S4Qf^)4-W~*0D2&#_1N5#@>AYD3vcZS3MQjZUX#>%fgIs(yRy)Io-N=c^*Qqj^r| zkPD;0*?^h8C_s)<;pViyzF)3qIy#?`MJZkPn}6t5JFb^M%!m< zTC_bR#T+VxAL<1ueA=gnJBoIdFk63-`H3ewMV)(f)zHfI`yCL!#nEeiZJ?F<&o$?8 zF8YB|rt*7BtcrsbhgUy{R((Hk<06xz;G=*~Z)KGTiJvtSUIETFB%mgvRSGpK7oED; zHgQY*lOz{K4#9>y7Do@XOC<6dxMxj%6ebN#T?#?1iWTOfxnEC8auMcGS!Y$p`?@!S zutr*<$oZRH^8;pKR2^~tG(%;m!Un89ADJpuhE}c8auQvsdl9~P@BZs^XZ*PwlXz8| zcJIe09tum^lqoAH4$Fv5JQqFW@`~)`cQ3&T3w=-7K)4k1(;a=vxdb5@1mNBKURAgI z*EuPtNXW|P3oGBOp?1Eypi@+?AGY~Xm?nDn8pOKcrW!?<3DMiZXqYjtM}ReWDuL%?c`IDGcbi$N8gDRD?SFsQ4sQD z&S;s;_2+BNOge@v`skmwlX@GePED&-rP=9Ew)?f+AUnOQxzp*QD&s;=TFaYF>>EF~ zlDq@`3%tt~?1)(3rkdR-c&ENi;rZ}#Q`B*G$oZof$)hZxGl!h7^Jg?$ZP*I^r z;&1Z~BbAh?2_-)Jtid!kbifWtV;&*gP9XbUo2-796q|Aa$rGdB(s^t^*@^V?q)4yn zWp=8Fr-cqnsTZ445X8|5-u~)PB=ghjAme8xJoq8K1(eLBCss=)XR9Bk*a`Uo2m^M; zNSSizdD1bE`JIQ#eDtAo97H7@GXLTjfAA{XHUP$}oNCITJXenR0xIVh+E`nNq%Md) zWe{7Ee8KhLpKL!9&XXvZfQcPcMS^D4OA}M60SCRCw9Bq;8lDD zr7+5&;Svh-Rs68ULfxxJ(C($h#|*ZStb~ct-DNFQm#Jl1p8jCx3+>!HSnv zJ4irfj6FbLho_gwUe9M=93)apkRxV>@+|dX&7W0UVbno+S5A4(h0WT}HrnKkHpi@U zXWYZfT6PBi{BU_OyFQuJ>+`EF^HH-el1@cN?!tzi>kR(!q50^-xW(c*VOh=bN%^~! zo%9#8^FzDJ%RO9M7c5IfLb2OTjYChx8{2f3 zEOt6=j^0)P=;KhOUETNGN#@45TGRn2v!%O4De2o_{kb2uPI66j+R(OlRYPkQpFPza<#NG8nqb@s zf`&x)Q_G!%zoec7i7XoYY{IGiDWB&d2-kZnJ7O;B0_>Fg)i)#0B{Ewq68TM~t5wgt z^F%|bwtDP@nArg%k7xOcm~->!e0EgR_6%r4celzJIc{t1{%j$cinqH%cW;!%sDWVl zLMBxJ#uMbhF%;dY#15eUDJ#;Uft@n45d@?G&{jZmuf>~XvKrtKAOwGWAq{#~8bB*r zf4{+eHA%Dp`weoa;Xov8ByH+ns;94?jm`?IQDV<)HMw30>|q1Dz5dzkiKeVa=9|HY zpg};_(~La!?3-fjQolsU*sd`c8m~5k#7~Nxz`Y2+IY@!YKy#gs6V6t6q=sYyOITIa#ua3@c zz7nwq+jMCK7l1P=5xcRQsY~@2@EF08+_a!(i=XpdEEc`sqP=f#UM6B7xb-%Y?k~-F z5%9q&P8!HZE%O-Yo$m;C^}p#UkS|Afaa9*Uig3gFy|wWluI$|> zas!$9RI^3bdYMx}*;Qn7-rwWNVK2gjuvFX;dF(3`Rz&;2MsSFm6j)32P+bw zO&1HY;XLYJ>6OB~I*WrO_`)9xIebEBnYF!%y3Be_Z#K*k9k`x$Ja>Mp zD}KW{7VLNeRe6M#M+{@f^+ipQ+WOC(vOb?6RQwcwFJV?(YxMR0B5htFZ>^9_xLv;8 zyL+9(54|Fzi$JZ-XR$>PHH8nOIpJ-}e)e`sLW|kVG@N;fejuA2*q}sq1_DCfg}rr6 zE%DC9dZn^`CJ6e-VVxIWdcB~?ju%1QVn1K&&6d)HpH13PaC9@`B8A}$-DcIT@d zHqU3Tfi1k*6s6r}9f7=mL5)_F}WZ^wJ! zN}iQ=L0qtF<_DDw;B5xHWZnQCndIaaQ*aijU_ZWhomgcUKdnCjXErx5mz2;qZrs%Y zy#33DR@M;#;Hiu{%!*?O>oO&z1xa?}ir7@kr?x)*3@U*7OdK-m1#F;{2g%=R3X;aBEa&WmNJ%Kx+&j>r zY-)AwL+NxgS_*{iTLM=|NcGvk4VBcH&; zgtSMcTWi0Pa2Ld`|NebpXomt>pPMb4*~q5g1vrw3^bp;^VRf4R1A5`^xZJ9wO$OOZ zP{B~))#n~r0h(N}zD@)&-2I-N@RSdy-)0Ni1*2)dDKfD+?amUP?(cXO(mZR?H)`-; zxd?_tBlK4<=v)cgYgn*uivAJaN@pWhR1r*d@=#p007e3{6DY_0?ya}>u=LGgLYBc) zfXKU!3b0Qe{f(eIBh`;hxWA0Qm_LQ1+u+U6{0r?McRzW?uX!1i!S2Rvy(-J`=J~(y ziK{7vkK*aO{{W2+qp7!cVQY>pXkTEdE*Da@sq{!B4CbyR> zoY@SMPdoVslXM?H^fxx+3{Z5D%k$qKpPa6gdB921)!1tZ>-_j+!=}6ev!e82~e}QCA`WB9cTP;{OAhALWg3s7m{EhQ%LJRc?$u5KPt!$`| zAdro>*zW~kr;cLLCfRQ<{)OcK8|nK`SAYD1`FzHI13I7bd6I{baqMrLeLnNSz%77m zUID6a*wAWa7_yu=W-sY=G)LnNuvQP3fK;k0K`;QMxdIaN_Z8Kt_xmPxsB#GzRTLN< z8}=8_o=?ZXkr4yVCoE&E_)Zwm0|u{cNZz^JiUU~M%%e->PCW`xJzC4OtiDkdPvBn$ z8i5Y8F`0r$o=-EhhA!6JojK{}D3^?R2O%BrizL#WNDbHh5rz z`krMv$=TZKix=!;O~)VOL@w8(3%wNQ>RO;5p=< zqaS}6Hm8xQ=sq@tdLFQR_%VQpd=6cbTuz4pLS+4-+p#d;1vxtpaQzo&UY58mcn{ut z9mJ{jUDbTX@^3--uMQ9V*Pb5%(_jP5*(ZYkXAY)QSO4f!>62w)%9dK&_NgQVKQjIc z4i^@mRDZn=wT$9pMuo+#F8`$t*i^A}A}Fr&pRU+aXTeIF2k^3`&VsOI!#RM* z_#f@;zmTKyf`Dn^U zVG?27mSvOsyZ5vJ!4BZ{Ys-*xrEEBU7QijPj83XQLa|=5WF!;;y#KR*9Mc1h!pySa z`?G$2=r&dsm_`Sf1~=Jl(Ox+b!WgfkTnn}v7nk3r(%)5&D^B!n1a^G^`@q1m@v|Kq zmlPw}RgBPnxC?bpfKgwAQJ3u@{C0AEq&#tjo$Q9MDR{XMm%R26yxBlVjh&M}NI&oD zahnISy_Snynqnx80`C!d_D}<+VtzDwmpZkr#75xM* zeU+UNUs5VuytMjhU!f7pM6Ie);oW*m<@ZW&AYsv>ElhTLn;puXmtkPFCb0sf3Ta1q z)~`WtYN!AkT(d~=v+Eu#9_w3q0PO$r>BRqL?UDgrIr8B?c;N_SQ|u9}ym^&$z@72( zYSnAqA{$APfp^C7|3`nn3K4{K-vn!@dcjfUHhF%uNIrroyT8n`@?Rzn{w(?{bgr^4tQ|Z znbI*E8dgz{s33hV3+N;!e_@ST8go>BmlDzi)eJ-qb!ZPc! z1veP`|1Rd$K7^ezlw;(?X_ff++z-^-U2CX0KO1gw6|LvwdVl1#;K^XQj~wNcpvWZg zdOE2gGq%}CX7lB<_HgbEM8ECw(mur5lYo@je5N~lrbE#E*pdC_24HCfxEC00JCn_5 zMnC<8IjSCY-z6jPRrQfqk^U+<861d0SA`U^b@%i~r>X9qK0PU{9as}BV^NtmeQOo9 zzE)FPf=;h%SW`|31mmOWFqDNy_0|I#==$^%V%z1#!Qiig88%EW+6=%UIrAd<-^ks$ zGqiT0elGn{k?NC#gggFti%73rwQ8_3VEm6@{3}SuFHo|D&sg7>Va^!sRrEwVFMC-M zI5pvZpTOH~oMyqhZ2~_1SN$B;%x(}XJhl zY+XBesgF;=-k<7SW|}_-pgKq`?`xB1N12!Jb=9X%ey>w`Vrb^-%e|449ISm!h?MXs z@$(B$U!yVCxvV0Tf_P1!>28;)pkxJXizvXb(tJ$Ul7ky}V4Y-ch-xq@f0U>8cGkPQ zYfXEe2e}^GNO>HV0kZSC!_n4?Ir2E~7u9yQ$ejKzOP}A@$8T*75@b*RSyV71e%7$= ztESOx=fu8>A#G0MFs&^$=9+_vW5-g+7Je4k+A)6XSKJCO?||y>HaNDoPSoU4x-^U^ z9{SOrQOz$NU8An2Weu7%^K6El1as29)?W2INXLO^OpR3Akk9Oyj-Ik?5p#1R)D%=Q zxD}+>AuzE+_jMvk~;a^D(kwuRkCcmFyjq{7# zW|PF>EkGh>MUAZw5qd@%{WuHJG%K225Sq3hx8IGSz|xm`n@7|07xRf!&baQ066dtYv zOZ*JHr6M#(!vrJRj!>C=ZNHP&RB?iIS+OgtD`lVe_pwv_tgCLZ$-{NSwP9mF70AJt f{%hD{)_+G$YHh&nt0L?dMxN3!IFWt)>fQeZpm3^Q literal 0 HcmV?d00001 diff --git a/docs/reference/plotAutocorrelation.html b/docs/reference/plotAutocorrelation.html index 404937a6..b4c5cc7c 100644 --- a/docs/reference/plotAutocorrelation.html +++ b/docs/reference/plotAutocorrelation.html @@ -121,12 +121,20 @@

    Ar +

    Examples

    + 
    library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+plotAutocorrelation(lm_au)
    
+
    diff --git a/docs/reference/plotCooksDistance-1.png b/docs/reference/plotCooksDistance-1.png new file mode 100644 index 0000000000000000000000000000000000000000..8592313697ca4784de5ca48d9beaa9bf0c1183e2 GIT binary patch literal 19678 zcmeHv2{@E(-}hAZC6p~|N=PBHWi2Hlq(b%-V>gi)dyQ~MwuF!**|L>o#xl4kw{@~_ zF^tJtwwWROGT$|}a=*{>zVG)Q&v$&s@qN!UU30k3^ZcLNe?NcM_3VbO1|uC89S8(s zyry~OCJ00c1%VFTqd5fJnby?*3<4c^e&hOWb>L4BNC5-_gA^1%3cxiA1O~ov;1>A? z`2$u^h*AK96~Mq1t`HTa5CvQ@I^>Uwj!uM*3-Ha+iD)n;Qy~)qD}aDDKm)Ks6c`L5 zHzj|ffPdg9;0gyvVZd-W7!F)X00|eD2$zT)mxu;8!AVgVcoYT`g(1B$2ED;zb6j+CB3yDBMsr33>^3Z{QwOx-|PN(ln# za#Kiv{%l}IfuZdsbg^OYxYJh7vP*oHqXSJp#-V(KL;Kd4Q0Ik?_6bUw5U>H~+mAyJ_#RP!M#hwe zS*-AfaqNs8f;>N5RCC6WjRLL91f022Ft_E9px_?f^QlV{E1-X_s*MQ zu9dc0+LLS&mW|;tifirIoFOsGHW7=djnd`05+#v}vq@<$|1^jmXSZWM@c6Wp2Lb!+ zUH8Yl2$atY2&=j7Ww5h`WI#OrtZJnNCieUzl4I7(6T$jd8BDAnMQh%zpbed9T*BJj_kZ^{6xjK2h@)eQp@&&nw3+ zK;wl&Q*0)n_M2S=L|F<5Pj-BK%IB2&Om`y_57zqbK1`q2Q0#cKArBZ6;F@=*_d&R4 z-fgbziMh}M>xH_Kvu^?hEL`U_zL_#{wDSLD@8e&x#{EOp2cr7C;N^60foD8ddPW8I zAma(pIsLlBSZS8wTcr-z5^9KDl9~4 zvGcL&>GbV0RT?=WX6A6eXp2W#?0OcLm7(13y{31~DL@%b4X7k)oYjvHPiU}i&vSK; zI4X+P8o@Jzo7vNc=IK$j!CRybW0Av7?S+X&-K`6ZZ2Ym}>ilC1)?*Q8N~EbEfwSIQ zi*XxRj9%R)cS78)d3p1Ss$fly+hP* z6o-Tdr`q>jc%TeTa_2UED|8Ta%Vrd3&i(0lAi_6CwA#F+Ds5ynb1I|RO?1S1zQKYX z8+>PSc)Tf81@{u!r3T9Tgs{1A31k}D8#&9joS=L+a<;TLge(tX>RLU1Se zf*%Y~m~{mDqq(v!^o&PN5e``;@q&n;#ZcoD0d`=Ad17#4AACJ>vc|MRa5@E}`5q-) zbr=cg6tL>XU>4*;y}Ke61k+g=D~Lu6@E{q*$3#;|@p3Wkh=ntSjOrtaakZh2C;K=D z!-keOTS-+bT#y)-`9uC}ETC6sj~>R>lsq@i?a8$q5o@vUROcSI;G7#b$@Z1?ho=rZ z5QKWULQNlN^qs>7EsUGoC&a0P?tZv_4qC+dY+gt)LCkhCwvIP8IL78e_eW!te&#pp zsq|s*-5$w2 z+#=Bw$z*NSTbkB=r}u0Xm+TpCXA(#q{=IT|&RJ6Kinq$Z4cD3XKSlc2&~yHV=}Ccz zl>?y*VPZ1CBt&n~W1;esebp@x*0BVx!L~ckHnsi$`X5lsiat_{_}55na`cd#Z4p(64<3A z%&%*dDLr(~F6Bek>pyb80$<@D@3oICqU+&GR}vdF*>69ojRJ@E1UB`mCy4LSmv7dJY%*)_RqsT8*({CIjSVVgj8ZTCMWfCN$3=6 zZP;OjM=4oG8H*J0l<+?_B+4Y1^FtQCrGBDW07VOG`d65azgwPZC1?O0=)vSMMW}Nv z|4iLIALg6K-(S@HX88wB1{QTtfKrW)q()J|@|2b4H1o}6juX&ua`}^}&(+K*M+$QJ zQ`XHO8jF+U^5gFb5?2UZmw@tv0zm-+u-=BmHY@j8E1KxnKM*(U$Tf~bFJC5z?$s55 zvh7i3MgqiWPOsCmAg|I`{317GqDRC?b6h z_2<%at8#sz-@7q^B?c1f)%L3}U}|mlv{)P6Q%JWnVV}}OM%>mhQdHGmVjCMyiEiBs z=;i|9q=3!uqqVrA^eYR^{&3ton9_&{r&M-?SpQ)_H>LG1x113507TqH1@w-T0=Ww5t zOlzi3J|#rIGvRwjU~OZ)zR6p-`K|Dh4Hs$g=X}b546^^O zS=}57>-SjTnwpArwfdP=%If-x#LT`ob}bl!CetRjR+X(flfx#AwYf8=%72CAgd#QP z^RR~Xzz~0+a_@4ztS_0Fl6>RT-43}0@pbCzkr5+`E-755)*;IQoj)l7K1%ImK@yo^ z)AfSm!>uc4Iw*}~^DM_KPW)UCOQ{SHaG=HJ-n~VLgXeVLv6Ki83*{5*sBp8zdY{uY zU8vg~0t<2+SLvBr{FxcqJ<}72D8wE?{>UnU-mVd(dbzUO)2*Y(73u}0x|Uvgv%X^g z*i6!^=X2%Ije4ejaT#f9{59taZ$eLx_J|und}Vk;5DszbR;n4^TYU|JteIq451DM8GY$dSRZQ?l79sKPSoQSdwK*ffrRFd-W}+Thu8N zWvZ#EuvdyJBT55>%8wYZ1`oiPlB<4xte3-F_1jf@PAJH44oUl60wnbNOA1I$*4MKW z5izY33%I-j2o3gRrwrEMBcF`Lh`DLOb0b@%M*0)G*F@RJWKl*{oYI(TeNu~fHy1hK zh$wfM>J^vqWl^0?qQF`a@0$2NF)()!fjgFUee5qdXF-W~)ANDUw<0U+Ww2MbMHewD zm~`>mv}KpAisrqCe$OvG+7Q(v2_)SWDF5l2_>ebnNgY_A@P&n@QupwsAO2NB{4^}A zyL=>##)Y4+Gb65=SrX+RJ82aJ>zBkXq<^z+e0h&}l)mp`U<3*fOoZWmKR_^jAI^-% zgb^=d(Vd(PQ@blX&WZfdHyF3Dl&s>pep!ukP4(*9mZCx>P2`Jtg>|;hr6Eiudj#71 zzLF&S0hypVO@lq*snh85a>!GZirxu*C*+FleNw$0u=r$kgrLXTc+XT;D)}H0L!Mbv z|FO8%)qjFCZCn0P$43S2TX7T2Us;v&r-f z5Pq^cwF^dJAo9kR>-MiH%mb;|0|R(4OuDg=uz?< z|AqSe-=zO$;QqZJ|92O}ZXM@G0eVpW?RoFNx8ncqR{V=x#(!_)zqj!}4=Vnj=MXLt zsHMOAJPwy^8OO1)sK<2JB1c?Hw0P!g02AO5Z$(B&8LosCNBf6hJI^hN>H&#K17lp zVFCU51B}Dvg$r9W~qh!*=~JF=|Jg)I?RSHw|@@;g0S6X4Gs zmep^~9zkB-X=hIbQSo1LwV(cquAnX;eMmivQarae(0tXhI3@Mk%Q;+UR2(FYV6EWuS~~{h@34CtFV7lPDODk@4TI+5QBFOVG%4J8@uMsT5Tl}#(YNoCv<+d%Kn)xOLJ+?+f zVXa`%a%FvV=xTeJ$^>$6^G@6*@M*MT!Z?g9jo(aTF_A7mv-kCy3R^l?Uf2NhbY)G( z-%8CZCGmZy-`>K5l=wy;AAVNUnmZ|$&&X?!JJsLfbWY0AW2aM`&-^}0N)$KOHe)Pv zOnPSvRHeq9nsqI(V*E9nuI7@_U=uDRnt6P@|0y}ma!^1$3+GqPZ|?t!0$=2)@0;el zM(13+v2<}Odby~{GJPO4O(ax&7VkImd2Z-T<^Gi^E#umBQEmDjTS0+u+vf8VIKd08 zs%53u2hYc=Od0Q=6czr)KV@0tz$LlLeN$2|#VN0hc8`85$(m5NfO+2Cjy71%LL-;b zerA6Y>7P1(Mi8Yay)Ab%%OLgDw}b-7%si-eD~q%>J>};u<3^lNYpBW20KZOKrx%%x zk0b*@44EPgJ2E}j#-!mIc|8E-*8<%Uav(RATtIvSS@#OtzbK;6$TT2lGMYKzd7{b& zscuJv~VWliQgsLBg6AJ2a~FeLvs8DDg$6?R0!^Uor2@jtxn4kD`Du z?5YMJ>`wz&b|YnM9a-N%^=ny0pgy{k#``(+)+@nG+aUPxFNF%MmY?{P;r@;KsLlAA z2;N?X&($|3k{peKKm3i=J-wRN7BBAG{u5p4!AsTL>OMoIZ-~mlF*?-S986JB#!dvO z)9nr!NZ9QKnthGWcl-G#DMD)+Y>cl0c8vscM0Ot7HfJbU{0j8^E)lz&6=*BVUg0+& zRlHb59Nbv0&Kf%ZOZlGoDtMv2EQCmc{B_JXzf}%-6nSVz{oiG}Ay^cXert@Uj#%OM z_XTR)C>|O05sC2expu$^z1kLF>CTu?kgN9#-4D;UdfozfWQz-Pb z_0cVfd&+tMwlu10SS#9w)0EoE^(^V}+}!xZh4o9kBc#;yB?hdRWXx|bQgPk6Jw zYO9LhuYNuQvY{GT?K^A&9BZn6H`u3}0Kw5$Ix~7A;q}?cM`__WUe0Y^d`gEM5p+qJ z)tKN@so*mIv0vQOC?TtPN9*<1yH)Fz%4ARNXebAH<5ipZkUj*%d83-$rEa4Z0rJQ# z5;WLn+nOfyEqN;w(x2e=RFOBJ)yn?DEOFsaf*yD30D?3z@{PfDSn7k-uKL0~D0Ek8 zh%wdo##TJq&w0zB+86VUjPOd8PU0_D<#8lKHK`JV4zO4UlG&>Uzw49GwwO_d8~YZ5 z2D_ulKUYW5VPlpG0`OMrBq=|zy6_&`rcvX=a){INB?VmL2SRCg6z6Zc=`Wdoma^Zo z$c;F^&7?<%QNGDiQB0@f+Q({)_P(?G*by)hXiewe3bRZJi%GPFCc6?GiUW?**hp%kP(5t5 z|Hf*hD)01;AA$mo(avlJm6n0Y=W36({@6NL^QEm#^_pu85>c2p-28;^%i9p?*RCr{ zLB{Kty=WdVdg^pj$a`VYf!}j6Y>3}rkws7Ck&S-;H5-gRq1&e7_zgnUGJb4mmh=!T zoOGDx^ePozt{|Q1ONtKD8gRTd_wJRv=;79%Dw?Y{2bSif8fDRbW?J~z_mUe~U+b|< z9o_ccnVlp91TUqfIhp>o19m? zHV3|yE_5w%<0C`+vSMMJjjl>W;j!G2SN@#Uk6sM%i)p89xPMw6HYsnnio@WGRHU%c(D3D>Jz7V^l+xOWb{F4 zb&7f1r2gJkR-sH^e-rOKuUZp+tqS&W`QTSlWp&fo$Z}m@CgYkWVkJ@?YU|jPV1e18 zBl|%>7h7G$mfnl--qZ5$ma>9>W(sl?QHM%(P&SqXok43>>5tAOTQ4La__`LOuS_@c za}0fZVP377FCz_6q^l}-;&{rfyLh6kq+-bfzh`BqrJ*qozY4lD#g~+FsCT*&UC@t=RmRqGiI?hHphLQWSuG)1D|-tvK{4rBZ81TLG@bS_I>UN?VQ zpU!>H5*Z+{(ZlXnmoy5Qho|9k&>oi>s72x$*R)!v80cZ1514N<97EO~Jvw$!E}~Py zwr>shkqb?H_0fi?MUXWg(dnr0+F`>lW{k&%!rxVnhNwJ@Wg)v7_Zo0wbp!0SImGn7 zn$jXKpDl)9Ne;jzO>zeauL1D z`Mr}`e@caRrVR6k(sD0iEyP3lJu9LspH(e9AWj>4!%Y3%#4szaU4`4+^rzqjz=x4k zO&@K)&f@Mu%3M1Ax#`y&cm5Utmb#(Qi=j-G?2)CYtti7)!S4c>Bzl7b8o;#WKD zS+)33G<9Ff&w{?e5T%9P^G!#$c6po`skfw&6q@@a;gK;25VqG9wpFeh6&$NV5?d9( z%*a+OH(uA|(D|uC5a3-od5o*O{qZvq90 zXycHX;_QX`N06=Yi2!=;O!An@Ab$QL;}(5yMqvzPkz;B*QKD-hCqOIZsc7}rz0GW& zIuL4pu9}^Tdmruq2$)l)n+T=71H60TGAzk)&!J46t!Zq@XiW%k4gY2xvtzq1@xT28 zi1og%wafepqGqGN`K(w!Qm)3o*mEH%UJFj_1bL-{4{!SZs(lU`vfm5XHVZ)T3P2=Q zegi|y6Mw-T#z%f(C%)AGLPO#ekaY5Vo#9qW4dbcRXV0^?p zDS3Lzlj&a7M$Y7L1vLe}Wjj~^k~@O{)@CqJ&cAGVvIh7uGFhIRJ%Fm%!Kz3$pT|l- zgeJ-@tJnJV4Cw>bgn`yHJ0bso40b+THB+hO;35&lq>Vnj`8|aOJGc`i-az^AsK@gO zsw!6>RbL=ldouaITwi<7S{!LfN@~KZ2g$1bmP+ET_u*{S_8<<|LL&-SY4K>LB5ejs zY_8epDQG=tH;!Ez9T7=kpQB!QGzeSDJQfLHKjp^l1p<&NV%DdjIft6$M|cnHgwZL2 znY7|EPj_%Mzwwq`)Cx4|s*Lo;o7;Anl3!V;jAO`^<-s|5EGNv9V%yaM@{`WKZqAno z5eK*3PN0s2suI-CFCWMquFA((OgN_W|X& zKl}FE$o8M|ME{`S&9GE8;b>wHxvwDhax2h4aVP$u>4Pm{@sVuxo%X2=sh=n#s%7$+V)K!8M zfrQ$hhDOef#TQjt>Uo+EzGcd+LJRJU=^zDON|0Y%H!jsjsQl;gmHu`?lQ3NPqCWvJ z9hKA1WzE;!RTY+uS9#MXjI?70!u31=%ukFQc1@}-WzYh1*XOsPJf*=3-mo-lK1n>M za!HIDAD(;nbYx_QRLN&oB>0o}%hz)CKGo417K8g*0TVdE(y7g049={wYSh=D#?*-z3ay;TI$BIrsI<<(ApwX4#SwJ zSV(@i?AOH3b{oGP_(dUo>dz|=(cyaP^b1=C3h+b}nVVFHA&3QgyHtO&>|G)RgQ2P2 zY1XFB{&Xf;!el9BMyCFEKym|Sx5yN>kb9pWNNweIwt#u}RWAx$;1%oIO5OdIJNPHb zx&Jynzh49VkD-Bkrttq@B>ev$>7&e{ak>6Uk8iM%mF|}E{7kQ|f6A+dzIzY1DOh@g z)gVT$^ak%X+H32wa%YXuk9;Y^7 zRa}GJQG;9#l(vyd$73Y9%ax zD&A`mlLlhhtr>#P-VPXd*7#BybafYZ>KoJp_WH^)@0|K+M<}E$0aGKotFH)DpHpu~hp%?Wc;#(ta2(!SH}fd&w1K* zsOel^=&MRLW$d#FlpgktOwE7JkBkJM&Z6hll5W4sGNhj`WTdhsr{}*I*}bzxR`d=( zH~NNq-n)CahRQh(W!tjvU+&l?%Jq)3AqUK+D9GU6+Sfr>8_kF0dO3A_Xkmb#8EQ-) z9$nEA5(DJ^Id(9=@&S+Ufwrc-?P>hWpu@j&!T%;{b&XX0@dMhg9O=WU0h}KBM5dfJ z{QSK0=j*0+SGH7Y!mBpuM0oO#F13?>y_Y}#Rn8y~z6Dq=etK02GJQRsoofoyd?cgW zhW@GamL82c!ZnZlbe;@G-i9{6e0nv!pk)iRyj9`WkrPlw$#ik;U4}cAx*;Sav50U`F5$o-Yl)|U2U zqofT;9B(1CiNaS15x`mWR_y>a3jEi9P!LT^@0^r8V8(rH$0O)u>sL`erYkGH)34B( zt_fr;wa8U6NS6%uz8#ctUVZeoshz^En0;VIVYW_*fGK2%ULnADRYf)(3o>ulrJjrF z`jQ>=c^hKOo#>Hzu~VugE9l^^D{Pp0<7jkiW{}$M4cXMYmX+s|*y*U$LNCx>D0{0x z;5v2|8lvzR+^L2F00$=pBshKo;&qu4f0w$=$wY*c=Jfc<(Qz0b;GVq2@y>!0b?7M% z3Di10T{mkx2@PkMM?n8PWTzs=3S?1>SWZ9@1#O1DvLR1rh7X_=PtcqOpS(hFu}sZd zb~^kl=!eHK6y}g)QF0Y~p%gcu6v-#bwhuMG0$AAk0hi4Dpf6uE{z!5pA8VeZY z*9))3x@G1CO@Gl8xej0~(mJ|oFVix5fSSMSoTo7LHKf6)F@DI*MZ+Hhh*sOHD9rLE z-*vmJLw355!~?HP39@Bx3dJ!80d|9&X@)!?g

    5XF;A!mX~STE8rHxZxsN~&zv+D zb%HC~n8PV~gX$`#FA^fIX5mWsu0QnabV47O>#Zxlpi6MkkV|EO6tf`HSVW-B)ScId zq%r3&(mT8MBY_-&hx-w(sRCOD6efC;_lOXb`a%jlnnC3#Gt!`rMXK17Beh*YG8i{g z$IRO?kXKX+JNEJzP59Cq#<}dqFCuDjRKQt^?MobQh6dNtC4wmUxb(1($GR%k^jvUM zb}cOyb?hWGWb#FZGBYyt0!{dGob$?v^39n+&Q!FMhAe~X=#)AeqvG}PPy z_(^`eHx)-{IJ}}^u#f+;G7QlftSIjSu~v~AnMxh%b?F^y-8I>96?u&n zRh=pl&a?Gxiztje+MGv@q9D3Q@>S|93wp}zN0+y252)pZ+{$tGnRVId824wGk%fA? z4FHCZ#zLJrRi|>RZ*i1k@yt>OIDo-GwB=!0_%lf!UWsE$IonXy742^siu!2Ydw;mUR6*!D&!>zuG#dNF5}LWhH7Vt4^#zB zQ#W{+^Od7%uvHSJ9WcL#a@fMKw&N?^vBxO!n$9-^7*mI89jEVTE`93}vsSqXpPoaR z*r5*ri9cy5aFSP9%mFiM7wsy?r<#5+Y_^8UA^P)f#On^ggL0`G;32mVm`L-fArD2E zr({=3{^G!lxBhdSK{0K~tnYHhhgpay$`si`Kw;8@5*P0(U4*N=QD7{cvIroF={XY) zFJ?MkPSExFM2(L)1eKNR?JvJK5%6B<2r{Sl!V_FxhhP^nY|)%4s#8qOl>fM?QS}|4 zl}s6^^M<+Q&;>i=sc6w;Sq8<|xv9mH&^4r@T5%ivPGqWpsKcGk(rbZj8Gi1Y zU0?GcwUWgf2X0~tkzsLzvFt|LuRCyqzGoj@voOBOtX~?00eus~~k_Ns_%V z$`MehpPcEP`<%HK<5p&ud!iRAJ1pSNI=u>tGwIoXio+28x$preyL|8m07jOUL`{uf zzj>C7*}Fplv2oQ-d*r2uju4~cq^^bpbh(F5M@>8ouYWXE%96b&0phVrllfStFF9)O7+@89EXl zR-mE;9q~+JPX|zh1IkdukK~N%fP4IPYk39_!>ndx5H4BRTIWX|=dxv+ypPARYO5Mf zKpe4d<{vj(@KMK{HPkcX3+y19bDKYh7nBb#2&ALY60zSq{>b6SSo-_j|JDJ|Eqk{< z)RdWVxN_j*T7TrsBUw51@ZkEEJQD*dT5`5e7`~P5lReu6tg!cdbIHwH&JHC)lY@ht zk~3=DC5epT<|Y1DWFaEkLorr$FlFzBA)K&drwV2&uy@4#FomU^==fsU0IvXV*O4h6 zF=&$ay~`)z9`3Zf=|fib?cQF7bxPrtOAnV&`%e#)#YMm|2&TJ zS;A>FR_hfOJ6pUo0P=y*$M>c@zP_7rR7=*9Xrd;>h2BHw!4QF3*_u)JQd78^1CcD=_= zY(X{kmgm6!>If?`ymKhI;4T*?wG;LJX?eGCF2bXG^@&so&iRJf^l_-^5Q|%Hj}YW* z@vU3Mh#N;0tIG@}KAq-Hvb0^Z=w~wh= ztKIu^Q+?6*FuGKtSVF%7BztoDW6jNIw;%m+Ip$sLvT?Fs4G~V5kpB5aMx*>&a<#$i z{Q~82AFlauyZADdAm3W`!{5tXKM98zTl5s#qKRDv@zjU0zCZ8Oyn8;V^CCtzFz;su zlLhb7+uw8_amf~^5M4GDOvS65ze-semPr=+(HkHJKJ-m56gZpqHU8BCtti&wetE5yvhWX9C)6{7XHkFgITZ^OXec;L&cR;0W4!my%(iA5WZ z7SV52Q1FuXtEkn+c>le%q9>esD986@eYXo1l0Ldj{o%p5kYV55|Lr=3n7UBE zS{{Qy*WA)Y32bcJTc@?3BRJZ4{Kth)^EduzrSPEQs$Z*Vs%{P|q;sx#GbE`XyOSFp z7ramr;N}eY^4p1nw&Obh*`w#Bx8$z>7d*3*0b6U7p50J|On5!&FEjcJIJ6l=l^D5{ z6B#G4rt9XGL<#ZIPglc4{6a8FcH?Aj{|95mI*>AR~(V1v|nrA-&ouCqX|2BxV7|16CaRJw@G8l)$R*g&ar)ey*fUBJVr5F%d zrtVfA?xK_cJ@x@!#qc;<0D1s)HJIGPG2mI^yVifZnQ)pCkB)TV<3Y}&+qhyz5dq#0 z2qrzUmeoE{gc(c9xWpsfSHIo(Fc09PUza|U51#bhnDs175v6X;k9bc@3Gq1lKt!4l z_S1Q;UvJp53fY(h4%bS1Ad;s~ZxNBI;K@{o%i~c}RD2=Ciu7c{E{_f8Faba2b}@~_ zQCx|t>0izcd#{w!opz=cS2PD!b3ZXfM>+6e_PR4D_fjtUeyy-!O zj`cM~4hO^s_>TnO`PR>UY@;|WM;CJQ4EpkEd*O&wy6TOXKqcrI>ekta_dh7`Bhx{u z<55}j0B~I+d30uO?(&@V)&NW94tn9DVZ079jyCIE&6u^}AHxAe$k%0a+Bi(6OF*{T;4-7+UN`s;P2Fjk%!bKf2&fyq8@<%My z3v$2UN@e+AI^C(P;Cop-ffC$MuO-~Vbl3Z3q-JhzmMqZu`C2yfh}1`Kx`L;{BT&yr zf;z%buK~M5p4z>`v*RhxIO&Vub%^k2g};20h~qRFxhB~$`%<|Ku0&%oabOM17tcM0 zP9olTTd?^wSXAF07|qpC>f;xJxf%iyZiMMs%|u<`AnKl0Hv8O#^}>lpe%qtk#IO3# z$UG#YU-cF(c{{Uo@+Po+9)da|P!3DKV&7+Yf-p2(Sba8wy55L5iVV1N*&s_A80?|g zPxpB)%NWL20Q(Q{=V?F={>*;-Pr3geio}0?Q$QX#Q!w%5c8HN z(nP*#oqpVVW@GfTn;gVo_HlA5|f}!J4BdCE2Z$Dr3 zXC}cJ%CwC-Deb)n(S{nfss*f(;`P;H_ZPj_(Pv09p)P_`DYNwleB3gTecpt8gVkoo zSQDvGTwcCKPa>fy?<_RuW=J-=f!+mfc+w zEGFV6qJ{ZwZ6ndcM6a=VMf-+YmeM8EaNo?B$3)SFSU_Z$m}eo>LkyEE`yn;8qmp0A zOvy*$gT;3d7@~ajcaDx^pc|6|gi+$K8F!d~Q_{E(jvG)c7b)1BP>Tcf$aQYa{A>+*1=cQ`Vb**$h4 zQ!>6SHYcy$%6`9tV3yY!I+22n7l2l2wy68s$eb=6K!*>JB+oYouZsujR1e$-=?)_9%tK^A^z`9dE^242rrGBk;z4iSaEk=MwKnq2&YTRL%>!z&!BJ|wj+W+b<$Gd*^0@+R*J-XL4u8xg+K96aMBspuNssCJI8ES5o} zv=VsEd}Juhkzq;v_KS~vNXOWIm>dby#)TxFmJmj6b$K;~SVumM`F(6#F8*P zDfQ3@@pbqTvNvG;?T?!^1Y6`n4Cei2vQpuJ&ErrjcP?>6J`BNXPJ|XdWSUAl>>ylV zG?!P@ZXGt;3uQ!M9)u&_d_u1lXecHR9a+Cf`23xRjlVH6Z4wkHI6EoedFQ!?=14vd zvcA2{=f`A|7@|&}(J___=4l|peO^Cai;AC=vh-m@5@bT|%_O7??CNowixYm9Q^SNS zyZ&048=nM%zqQfR;z{@H>o~*IjSJ@&L8~cNbTQ+l1KwNV17oOl^zvu*R`a##K1n*s%Details

    For model classes other than lm and glm the distances are computed directly from the definition.

    +

    Examples

    + 
    library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+plotCooksDistance(lm_au)
    
+
    diff --git a/docs/reference/plotCumulativeGain-1.png b/docs/reference/plotCumulativeGain-1.png new file mode 100644 index 0000000000000000000000000000000000000000..5ec7ea0e877a25b9421fae5b17cf4a374bff9750 GIT binary patch literal 18617 zcmdtKeLRzU{6D@DKgzsiG|qErjDCcPB=*_q*AGd z6|u5w)K*DCZe}5ubGgghZP<*>?03y>(&u-+zkhz8KYowj&bp54dcWVV_v_~Qdc9xo zn`>A0?s3wZy>vDLfzaBydY zimxpKZs2R1aCkeqVW!=jDSCmu)f18t<;jfe&=uA!sB!BE6cSs8g3W|IYMZUI0 zzP?3Cwna(sb+T>|{An&~hQHDxsq|xl^T&k1k00Si(vMPUbCPXyl5cYn{7q_>*OS$S zKT^1Qvs4O#U$QPypx0E&)N#S}OWNF7oX$M>=BM+05O5wky zlK0z=!>ZLdx8qO<0%1Us{hOB9Id~F*SdQ5FhodV#y+1<|{jEOb2{4 z9)COO(%d8K@t*^IffvRbrdw+K`|f<-A%>pIxBlv{og!(}*IFmHoohIuJ3|Hh0owQR zd3A!C>_Fl0m7MFY<#P}S;QHT^Ul52KNBlIzrmg>PFP6UeY#azWU+?G)@zEsK`ROKS zv<6C&+zlmNyGQO+V`z4NBM@zV0B=v}j+^PC?S0L~4{+c6TkrDcp>Uuly(=TL=y59V zmy7W=4DmVC?=OZg)e8d>LH?gXF0E!arIcUArSVw1(piX$gN(FLVSOR8OFAZDy*#$R z6RuXYF`X1y<=^N}9A}Y-rNs9yXwwk)uKmNXOFWW4JkdsW8m3^*G+*eO$WWWjbqvk? z2#r_JO-l?Aw@yCfRjqVSI8rR384qWuX<|i7P10VGf~DALh{t-yfd75_MPi)z2xR{R zXWeo}x7kVy5hr`DAFtg?6l!xa)yT`Mks-FFr|(ucdEn|=$Q(8f+#`Ic<8&_GW^C!)+Vy^|gPp>!26GUa z+cmHvYZm82q$eZt;4-J@RNMR`l+M8lo`a{MD8*p?3mtGwYSvzgukCpi%kI5@zW?Bp zr)wbZ3r=%G5Eo}=#h@fkB22q|B_ydFQqL1=U;p!C6En^BQ=+#fw#5EUNIIAEG12Se zQz??^D6UE>ezpv>tcbLk@e5)$-1pMAUG%JLP)71ZvviNhW#q(n39W#WTHaID)V`}` z7t%J3SoqcH`8OT2iFUjj`@vgIoS+x|**CHDpxv<*0l|WspW^eL{YhC7#c4EJCyt)B z-0ud@kUCL8TMb0UXPe%oew{e0h2>;Wj)jDo0%ZEz_ZU)7NJHz+<}|DPyfq{o_hI(* ziyK{IsHcuR#grMx3h@H0c+B(~yjeFJwRgwh6fTpw(h%CPMd8`s*Sa&s}SQ_b&?lswUdBrL3Yvs*Oot(80!I z9#~5)nv;8(g`DJ!;M}#|W?F8nH#(T$|M&g>P%>A6#Ff=M>`>QZ}{5R>E`mZ(3 ztTe+C(p_Hha-h4$CeUbFha(9q~0;9!J>O#(u{Qo-9Fot-1sCtc0>8ls$ z+ZXU;D1Nb0ayy8=@o9{3taIll{nlKW^Qq>~1AQ820hgUIWt| z+aR{26%K7%qEIsZ8t<{|Gf`W_3lFG#B37JYzNUJ`q^S}gpgkS&&74JGwI*=};?%!S zmVs6CKvW6&!oKjiUh+Ek(Y8(7UGR;pi-z=I8j28ZnaT^C0UO9+za3;Sw}uz&Iz56v z_*Lx-(rV=+>QeCi3flW10O=8Uc*~@1Q`xv4GbogI(UScoE3wYu4?KzGrNxc!O-7}r z`aQX@FK!YdCAHMEPe<;h5|8)A3d@N_-r|=R9P_geXUwsWpocN+mNB3Vd-^(;e$soR zz|KiUi!A!K^7qeSm}tt_nG^Z3Wi`N%p)C4&W|C_tI#LclE*r!iaBrzrph;XPY>vG* z;HN;OT2Xx8BR64z0)W$-w}A!+RJUG@_6C=KRHnX&?8z(1RN%Jt!$9vFPgOsypJt^M z#879-du^Q!^-~l?t?p!tkp|f7Ng(7o8Bugjvm~=nnYfR4?>op|gJ~if`djPG-nILwi&qwHSmz}bHT`W^PlLxM<;AA_=ym-(}`>l&T=OB6*B zoe?fAS|OtsJ-xCv?W8XkWh~OVqSeV_ z!%=}>tA|`&v-#7`v-_$`C~{)VhSa|*KGi*xYvi7wQ_I`^u92LSTCO?Q`$*^M+R3m< zcq8fwoKl!$3`8hYo>M|xG~L8S!Cy3sooIMm)$EC=Fe~g(_#K6kpAaQyHGXvQ%m=;e zT1xg#Idju`(padAW@&4RFB_;H;l8Lt|dE}%Q$_hkRd+3^* zoYL_gJMW{ZD#Ehc#&p%~${rfw;S3eWWp%jm-;gS%60^CZ^UvgLa+c!&>D($PFi}Z> zzEjfcH>*I|DM+1&$qFSk2v=Xtq&vwKCvFh-o0+(z$W?6LOH=c3ZB5f7jyT8_#`S0| zrR8jLlhYTHxvj8X*T8KD#}W|}Hnz4)#j7tO)hU`q_!@CN_C?mwJ`PLTXRmOdEFyUz zf5=s?72+w$6?UV6yLs%VOvz;h$DZaa1x0ue)6QwNrh4_f|1w&DJRsN3^xpTy6`u|$ z+~lYrSRYWagLF0jI;HV5-M$~9kZN}=`}jN-v(ybOM#v3{PQm~`WI^sQ*Ketc2-+a& z+xle^HWEa{SZ>Q6k>i)40_|<`?uR1&8Lk)gk{rvc9rWZX)9h6{JzGBUqVznd_>quSw!qCz$@Y^CrII{KIKMzvfy z!gKl4x!yKAx&QEpBS+=>Bx=&jdaOD01x?is=jAPhZ1EHWihJq4xIWHwaif|%Y>E;h zT*?v(IZi8MGU*Cu!PPIs@Y6O=<`Uj~@VFN%vAi1{c~Wi>?mcAT4=urWmbBw8=#gqn znj9mj<9}xqTdA;JIzJ0YbB|Wx)wp0sUL_}5nZZb|tVM-7??J{X^N^MsIE$}o4tmPG z#qMd}S1T03Mw#c}_J`Y5e&a*R6bE$dx0!Xkj&wqq-KfQ&7AYH3>cZwP)2~xIttb>( zd73-;9urygD-xj6?Y(2CjUH>)DRU?Pc_2@j9rQg11us?cLhBu(>@Ab4{Vd27y7bKEywx z5Tr1-6>rY85CtmZkH1&zQ(BEP<)fnWI#FQDwSWj`1#_M(Y}luFM??;)`fjaRwE51I zDnWmY(P}qv@?L=DWR=?jQBP#y3mvYp| zS`T$EDtj;y^NKNEG#>lIv@Nshn&~I5TD58HPvfcQ7M=Oa8Ga! z2&Nx?Wfd7g2!@FL3C7~@Q7CEq+YY~L)hmG)y)$X#bD~qQQHD`Roo zGEOFH7~QZOSl9a~Y#qOT7ZX+tYCahGepWv{!iU@0{KhiVihhOysMhwbkAl<=}$jFNp?o}vHYZO=)~4fLbi$V{LKc?W)RXrv5uc%RiU z2fa*0z+b%WPtdjtZ0ui^5-nsx-(=FheHR~r6W@tGEXt_Der~4jxO&Zt+1#&`8GXmr z0x9k94c8_FA3QsjM=$%JgFP&Av_6kwYiq&)1rOpYya1R(oav?~NbGieR;_k(%a`oL z#yl6S4N%zM`q)by>nfU-MY}>gBI{0v(H!i`6dhV9K((r4H;FD$!(3`3W!A&~3dFbL z$Yq0O!frF+#+*mDcpn}hyKLgF2^?hOcbYo3{kH$30;9mLx8ALsUHGgo+O3DP!G$tO z7eX1jg33aFt4*cAxBIY;?bG`>#{TT!<-opf$$3;g#}sxM=NR0`%k!c6ZN)Yz2F1dw z@yRR~@0Gy1Zn`Vgo2w}|WYt~p7EZui`!b&Ao?s9u>MidWcM|xg&Ik4QCB^z(d~4W_ z+ZoLZ8Tyw%4;(WcR7Nn70JO$Or-PRj&e$WEDAsS|yDOa04UW4y|M52~PZ%--O9qXV zUenVMX&dsunX9YBaA+?*4E2hm1>0VhT#{X)TtAc&Hz^~nTQ-tHTd^C2;+e9lF{z}63 zqO6q_b%}Y3nmsjeP2zbv2hyNe#CVWOUM;#^!-@WqW_Xu3dn-P)JAT*Zr5O(D$_mlM za4@EvGrdMp!Kyp8jC&{DVV<(WC1NNT^PaO+S%Jw;t@5z6Ay`DzF&AQvs$)k*wc(6e z+1lF`l4yDRyk36$HD`LQg5*}VhuPo914S44k4eVxoCka(U};`Il;*HX(Ff{;WS@lb z{qbY%-AWn0vQVMyD*m({XKfdJ>91OJke-ijWteE$=o%>o6-^8_)d z%}Q?nu!pqvDjD6=S{%(z1Y=LbrTuX@5p($-hJHF&<2}8OL`K;IH9RofZYM@G(pcR} zGwELitl%Uj98RM}_qx1$3G#VHOgqW1JM(#%-FpZoeXD?J9GAYp`Z^M9PoSJ___Xf#^ov=IbkGftMLf{d6b|#%>`&S=i zhlbAOtMk31O>(&La>=Q|RWpqDKJkij=Jy9Kt22RDjKB!|Yxn440sD{Ao~xY5Nj|+G zLfE=P(U$CA;jA_mMppA|Y{c)N?cqe!FZPhz6WD$)czdM%wU2ONxGIb%FP;*c5rdmS z;0|nGM|X#Lz7~txHZFNN`=^ImanxX&+cq(5Y6*9m))rB&MJ`O~EpM(SB*!hMd$ zd%Pgh478fE*)o#vO+n_W#*Jx)t|L`}`NJj8lX;?g>}~JPIuo{BMIN;UtRWYS-3^DJ zYqGKyZ&sbZye!lEv%|o53!1uUnqS_vGp*J@Ru8pIj%Tk6B|J{2boLg!Jv{f9v1Lj^ zwN&u>e$_3nf#=zGl<+(2v6bk!Bd?4cC|S%enL+s*Gpi2Pqy8Lj-|}W!8n>r20_bV* zN!X1m+=GmrggdujeXL}NIN>A>vLqS$K_RkA%DFX z7unl6sdg4`?kq@fPq#Pk6X!S_0KsE;?J9z0dNObBBlMbee-Y!Z4Hv2Qv=x`iw z?nC55+L_0R`(Pj^L!FlFzh2-pxKBh!6;{;o%hQ?xrLg0%-^1#(FDqP)uG4YOE?k51 z3PV)eYAi{Tg(bKvWYq0d=9zTY<>UV_V?12Zhl5eI+Se2y6_umgGG8}HeqSpMn>7&l zZ(SK|)J@Q8U|O%*wSjWc+jT13EUwoETkd5idMjeq|Lwj`n}&lYMcOi9Cd28m2<;Xv zyl52Gt1Mt+ey1l6#M#lO!M2ZQjCWl!{mXm zzGZVZ^}Zr}U+uOJMSbA}zz#e~e?f$gK5%po_79jN8oZNWaXFbcyPF=0`pC(ZIr#__tjANPC_zn7yg zGHF%z1X1`1n=QSuilUAkUI3a3Ff{#d{F`ud7$xni!b?Xx3Y%%Q$O}91)H-oaU^Hl{ zfDjxo$Notrm7hLj47L2peNDUMjNJt@84XpU`|{PfOmDLo!|Qi>O)@YX!4G%nK#Qe0 zI7YJ%S4b$dlBml^lm*}scq)7Y*2XNR9sPRAefLGegQDlN7|mW>yJ9Pe-lT=$_Ne+H zcz5k{n*aT7r|!Vbb8`mBE~S6d=d>#LbZlBR}JdVlcz%N3gE!^q-W(<`~1SE3`5RXx^h*ixa zMp@b4`gb=7Yyj%ayHG$_z~CDvj>Im$vgR!#?N9|~pE}k_a;woGDxv}gmRJ)z@k0Ce z?4kHotG=6c`RHDiacoy#r!=7sj41ekJ z*mg_mG#L6KS!iJwAcO|mo@tD+nMf9IlzcXo>GEnv)vbA$0+_c*P3~aZGxa)?oy0>Q z9==+B{B8&HeQLZWd(%1_GLg0F zW(gKQOfAsy&PWX#94jGBFzvn_)rz5NI>oT_V7P${7;cXTK0k_@fbN})7oM-HD|)aR z;M{HDKPhsY+p!w(wyC9#*OVP)XLEJIwp00sP9wP(&a`1Owyj_(AY&fI5c@1tYPr z>W&00!wz0-A5VbxESX^LWuM-$0!RzlkVlLIpL=H#$=+J6*<}kJ-mjc^E3Kn7&Slg2 zM@eHCHYfG{#&?HxYPGW(hm&Jj3c8VZUyry4y<@yKPabb)C703;mRK`;Jhj5lsi|}M z1-rNomx|PsX8}NGDfKfg{k8Snu@ykiO|-}co*@v-uP5Kldmb{-+g5*t#VWrk_Ck6S z3eU5iPh+HUF?oisKWHpk86JPYSSgEu_{jp&`cMM=cDuMU(P1vlfe!LS7kPp2hFp(^ zRv-z>6!YIeM$ZB*Wj{@DCYQq}HZgIp)^@1pm|e>X9Lq{%=DAQ{@SEKX>vb& z4{gIn;(H;&t6g})fw7lJCB^qpuECeR6Yo&Jt8=fo=Dj5=+uHyf&c{%PQ}{NWc^H&H zJH$g_LiRF{Q|evJuNtUo>u=ljgYG9^o5*yT-5k|$mh-RS^Knjcd4~tpQ&w~CQispp zikjdSe5x1KWhB)uNSB-Ys63z;P2v?DKtFg}P@=(iho@T+Oxi~0qXdiF7tTkGQ1z3? zytRZ;7~aa47Tkfa=F>Kteqhix9Xb2L3q?rGCnswk7+z@1*^O>7>&+>oVn zwISGbt8qd?L)GGur&u+*8w{2So}n*k{jygM!2v-R26}8-blDZT-le4%dDb;e-UJ1J z1dx4IFr3hYcMfF5mt)$GFRj{5yN&(UHLdG&q1nqn*s0*O2r{f|0X+EFOxQGz1&B&3 z+3gwM1(i*OdUyM>Ny+w-RkWwj#4?6gcIa_<8lpAXpdZS>?2Py7pbGY%blK&BjLgpr zV1p)Rd&0=Xs3i<9W{Zl6eyGw*+;=QEqN{j&N1gs~9`RN{wGKQsNCYQ>C$hx;!qgSO z$tGccL`~)#8F7(~?EHziPs5=vn8!zo*ubcb2r6sQ-^5c={41JU=q4 zIe|x-vk*)lIluzCQL_|^t}-Ny3>5MsrQ_dFgi@S-4C;8@K#u~*VmLy?ui7Z6Jer?M z5-uP67xF5Hcg|%K2y>riKJ8^3ZnHW!XYA^CLxI6&*^HmN0;n_LR9(!#xkHlofe{s$ zFhcA#T*U(LpT0DlN2?+TJK+cFqI$w6GLTi*x{nwLrc-g+wFs9+weM`rtP5i>v@rh0EdQ-c1!6 zdfMC%*k@W{ z-)@^_MgV8#is7s!hTf13W@lts_n*Cy7r|$6^u59BV!I`2aNqXm??$yA1y+1u+C3{# z>&}JO2njJL^L7i!)J*es!B_H%xK7?kcV3A+07`xn<7YCxHm;5)Czm&h&ns0y9Odaa zS#6^2z>}OTfcBoqOR{c2rpBU1D}9r)!K(vjcDU=F`Zqu6*a$`+5Gi7ER{HA?Y5rSR zoaC~V%tu7A&*=Fgu@N?nPbmdb(S+$-cngKLV;iR&Uh@%mfZ{)RGy)CC)kSONA`8Ah; zE05*e<4A4>^?PHBsC~sZNK$dLmA)hkGH@%MIoYx>3W)r3Y1oyQl&yG4FBPFcX%|Vu z4=|&rvX9}#+*5jr$kW423xkum((#Gb)<)-t)tMH0plKNI&u;4U$#x>1p;5WZuvQDd zE+z)u+HwM4R*zLvdN`IhU|MSP?+wT_v(zoD%+Qd22o60XJol=K->O(iObot^h1Hm> zErB}olY&P~QF!GbP)JI3xi{}6wppcpIA$2!9O*U8PsEY^raTwGvE-0pN#rec?&;@? z!T!0YzIvL={TgmUylGe(IYMuhI*Gpfr>+N6nxG?V;kn?6il2aI~orfgQZ zJG|<)6-rS-3+8!l{3BihS$CRDYL8eK9y!`l3mV z%a-tZx0%nJ6qM1+*nxjEvY}fM0O0K=YlcaKN=Uf;4}52_(wOjKnjSnmi*WqnRVd$i zz~Sl3C&{kV;POe1=`pGY$JJrG*Hu_<5|2gJW)1}Y3jC$wh>es@N@E1! zD!@?CfZERB9xl#D6ee=n`RjN&dKSY3zhf(szIL)FIQZG@1kD{fheiU2F6CH?c%QgQR6KxPx>H zg>vG*GEKgzKC3v6DfV?^{627aE4Tz|zh z0af&1aQwVhv)vF35)9p=o`I79B-jYgJpQsj?N<+_wEn9Me~HV1f-;|s+aAKskk-p~ z$LDepDn%x)kge3H)oIHIKH1rXxsQ>*ObXq@6pxypjG>SWgYdEDiFIyh^+_2ENy5hW z59j#h1$G$*{pf`5ihbZV!s2j(+X5eyTFuh{ghbK!5+kzY5f z2qgXv6l~=j_)VR=Ty%eu2+|Gz9u=-J_5QUX*LURT+|yqVqV*t?i#LTKEn9P~-bXe{S%nb1R7|4}&AX z1%9s_S=CMDzW#)dQ4g4`-dX?#Ackk$Bllu$7T!Dk5 zY@nyu00r#=-fSNW5-%`UD36ns@KS`A$kE@fqOQSA(&m5EZw4f2RH3~Ra)x?N7=I=F z@XtuR2`TwX78<}zjjgzY^&~b{r5`v%Nnlsw$}^=HcI*f*0#x|}4AmPXHg0Nd2JISX zr*L4+pKe+pL3nujEP9kOVm)K_ma3$ONq6xQzNi>x^lri7omh!VZ`u-sFZ(*RV}6|Q zGVcKuPIzTp#0gKO_a)eGiYSf`NUk@C2!x+~=yiq{~6A3BEn zuHq#;L(0cw_>RF#c>Q)tr0v$^p5l@_MT7P5nI72=`F&HM-PZ$>r&REs_g)?Fg(_^q zq4|j>rC306SRh|?dd5f#Rzebh@f2pbL8ty&QN98)UvGKfU)K?Jq<|F4&|0Z z;62%*#pGT}*mU|KIn4-0m|Qk%*^HGh#q1u1atXzcrl@B&!|oYZ{Lyi*}1TA{#OZ^&_EH)@-dHSRG{Y%tuQp+o zj9XA=%0x4$BD#DmD*X}aWG=yC>`?nKV=njBi0_v)cxCA>&wBU-x}tZuVr-;8U6*Z~ zS(TrbkH+qC2)uCY4HVG#gJGES-NkJrU*qWq6;3@vO3PM}gs+Uwg` z(7J!$N7=c^STte%?eQLW3Fe0xudPL$%Iu?r4Rv)yB6YaAiwPJvJ?13Ab*ofG(G+=kx{E6r|QKXqg)j&Zu=Y2T3*eA*p4~1gk z(MQSD?1hK%1|(j@^GtOme79(FH5%PsDOIu9=sEB1*B^+1@vRA?LQCllbD;iN%BJdA zlmaZX7rNtJ27X|IV&NEzi~h+8_Tya~9vy~r;hgE zQE;IA;Vsi*ajxRWDx$Y|fvg|L0B?9K{^8e%$=RaP^LA@ECV#)*ZtsrJIeX4+e8-VNj2}*l?eggHE(8=diY<<23 z^}on+gp@$^xHX^IY)qTYRt50CbwT133@-Nl%o~ZgGbR2hj~4%QhWqbDAVzJ&FgF4sU<);|`UnkAEP)q()y^U&f-K*VyIKl@Up4tKr;407f5Q3-vgz*w4 z?R^N9s;M-E9=!NMgwuJIYV|14VtDHH1FZk4xzRb?o2g}uwPw?mj7>}R4 za#S6Qi@oQqr^NXjB&PAF2D7v&=ce``Kd1gbUMV=%&6|xe%qDpos^~1k4E}_sv-nOp z?@?j!^A}je{?5LwDjWW%D&yvG5s~=Cd8#pfi3Jc1&uUbbz6CMtelpRLwZQbLy1X@w z*(|ZEXjD@rME{8ec+oBE{s?c4Y8aVqxdX2@WwfPOOpm3OnanTHo~=ZS@-2X$-j2}w z71#==&OaD*WHf(|z1&EesdUfjF}N>3sknn_cXq0Zmn;V)n9E6oQ_3K}(h$4^r{1bT zJ@y}MY_;yM$C1mF>fS-Zb^k>39kW>&d-*F#P1!30GPv-Qi@=*-_=-MtjvT)X(gtPHna$#-l5RUm%{P)SDNHJvE<-ZL|hTrULoDgQ-^>dw7MGW$cgG zSfojjPIZU^H@wqN%Jqu#;H8`|O8iBssv-@p9z3J`F@pXODc+P}w>@l%TQnL056mBu z39FQlsY3(pvgxlX0jaYCR{rD{6VPJfik7}CWh}dO7c%I)825lDMMEP)YZYrZLI4}))b~;&%8osdElL< zI1|>=WuzdW@q22uG;i>6oH#@jOOP=@;%u z#_p+~mB<=L#8RtGZv2?lQ2)_o$9t>0jOf}0nV_t``Fv?7S@ujxHn1!08Dcn(&Dhv8 zu?S%i_kw3OSC9Oy{#?}CB4ilHAXHkGI5{P2YzuhTn>XtwIwF2Di{CDD`F-$tUDFsg zcb^skb5HNb{HJnlLUr!4GOyyvy$bp3RP-x6k$p(O?s}E)riBL)hJ5=y=cK?|g?EAE zFKDHybNk?o^Ej-Q{-z;kmieDbV+X(o5cwYfGSauXU>m*y#VR?dd_fDf0KBWLCR-u= z|Hm6#KSk3iFR*1!N6dMvZr?i-ntAb*-hDs1-b%oJ@9^-lU*J`ak4hH5QI^)X~P^L+sDP|dwd$~6eobemft9Wry8;;bIh~H z@R5v5{oq&I7Jh*HdsLz2k&<8X zk&gAHqQ*W-=I&?EwQ(%r9Q=ygIG>x_aHtdZx%Q)kSKm|Pqr6W>aWRJzeIctaJaX=w zvwa?=z{=)N@nR2jX7Er=lm|n9tX1?cBhs>!VIr+~7JPsy8T?nzOp`lYp*yjmb^WN@ zChoc$r*D<4e_rlG7<9?_7$qo(#7_7J@IOi$NIGDr^aZ-nr?2X%%sn^R#CeU!lkwEf z15)$Ab9Ww_Yo8tVDE-65fy8zWs5_BdNTyfjq z|9fDrbHJrMXC`h>!AnEaA859Redkz?`tzNv2Cxf``RJ1e({aNSRv1vC0pAqKk z3n1iLS{mik`OyzPgzzH=V8`hH`r;LA_d=cwsBd_`Al_;H@4Y1pzi_+mu}{BI z`L5FbvA*bz6k5N}pCPvZe*cx5mwcvwjpc1Ip+?o3+NqVN=lBs0y5>DkSc*YYruA*X z-@lgE82&14JkiwFty`yI9kZ8Xbv(w?#u={l&-FjF|rtQ3*9&Vmnb@cj+REO?;5#p-X z*d75eTSUS2sJol9yx#iOxLiqEK?c*nXP0wCf9eUv8W0BQ$Q?3K>z)l+?eTmNz82|SF*GCsEEBu-ZOj1OKJ6*a6^_Pxa=WORqKJ~)*) zn)2epGrL^ISM-i?;>xPMM4!f+_mt-JtZ`cOxwMSKNFj1>!ri&~J=@g2JZ+u0^j0wb zyLMXXO@0^ski;s7&U2*>SI`QaJg$#?RDrr>=Rxx}5^6 zdLR5V@eymUeknpGP}KvgM}ZAP1rhpZh-Dm>rN^L2aFHR{b|t*FHxZpf*JbO0ZIM-( zgN|a8r)e^BL3<;Poc_>hcx{UZK}(=pGH0--dD{7C-qP&T&%nc-Efa2`R|7f) z@PQ~aWn#3Q-~WtK(GbV0Lf$c2r+KOurgT%rn5cODamhTA$Q>t$rJS$Yx)RZ}0{HMW z(5}ibN-D0#>&xO%$Jx!RMEidmp zo%nnIeG@0EdTk^bh%3}BshyAM)_@JR5up0yy7s^0H58%QOq$I<{TA9-LZp>_zKNan zzn+{Ap7_KAorA}WgZ%LoMt*qVC+%+=0G93^{84{(N|5`Z^2C?6A)L%8nh!X~jNQLf}JK{g=)TZc(3yY0qJJEpxW^YAtIXZ;;FqJ+ie_l6|(EpB}(NU3+OxZP8Is=3U|!KIzw>JH=6fd0_tuBc zxTCtHQ*OxX!LI4?Dt?^dtYcTf(VO%oO8wrtN&v_`6(xviC2${xm+{ z|HucG@p`0A2GMx2e`029=`bsGTnhwbw2 zzIKn)>NUTB9cbLl*-+O`D^$?$~M|SY9qHqsmxc7?U3&Z+jVf3_kV@B>l zgW5RVRunCY^=1{CeY7yQ__NnAjG#|tE9x`%9Zqbkm!2+lXNvp}(%hNB%Nd$Jz@{Dt&-9_d?#a1#c=nTh`zV}>>igY^Cm$=(DFcLnm@<-RDSXLgMz^j==NBP zxvq~nT4YQ$V|qpO=E#^&IiB2GJv#A@oNNWeebO`ro?FG}&U&!m^N!t!^>B<+XJ~$z s1;xTK4gtry|Gxd-_{oFMQng##1_szq0t00~L9}z*oCumulative Gain Chart -

    Cumulative Gain Chartis is a plot of the rate of positive prediction against true positive rate for the different thresholds. +

    Cumulative Gain Chart is is a plot of the rate of positive prediction against true positive rate for the different thresholds. It is useful for measuring and comparing the accuracy of the classificators.

    @@ -126,6 +126,15 @@

    See a

    plot.modelAudit

    +

    Examples

    + 
    library(mlbench)
+data("PimaIndiansDiabetes")
+Pima <- PimaIndiansDiabetes
+Pima$diabetes <- ifelse(Pima$diabetes == "pos", 1, 0)
+glm_model <- glm(diabetes~., family=binomial,   data=Pima)
+glm_au <- audit(glm_model, data = Pima, y = Pima$diabetes)
+plotCumulativeGain(glm_au)
    
+
    diff --git a/docs/reference/plotHalfNormal.html b/docs/reference/plotHalfNormal.html index ac293120..44cc877d 100644 --- a/docs/reference/plotHalfNormal.html +++ b/docs/reference/plotHalfNormal.html @@ -121,7 +121,7 @@

    Ar quant.scale -

    if TRUE values on avis are on quantile scale.

    +

    if TRUE values on axis are on quantile scale.

    xlab diff --git a/docs/reference/plotLIFT-1.png b/docs/reference/plotLIFT-1.png index 75621c83222c73f9bd8e30ac5860a6710e32965a..452f160caac24d947eb2b46217934df4902e0cc1 100644 GIT binary patch literal 17847 zcmdsfcT`hZ)GvyPg))oaLsLH6U1Mqfnx`=kBg--YOl7tt5t-)s-rPpF4Sibp8?$@NI7_J^gQ z;SWr!AtRUlT=c&Pe+vCCvi%DS{R`pWQkW++G$k}8H#DU>G`B4U77+@6;BRdy)zXV- zjf?*1i!djwN5)+U|97#FeUUBA4fV)P3C*o;%Wae9=jRvtYZUsU3opW-aoI4T?1x>* zhCk9mskA!9qdFzDx*Fz?R!gPqi)i*me|91KxyXj;V39If_(uwpv!zl9g4%LJ+p1IA zs$mV%!H5uPp+77I=9IDvr7&GvuC%RM+6F(AiHAi>rSSht{~G;W1fw|X*p|Iv8XBgF zvVT)j+l7ZUG=9<8x@rAiKvp*`Bw=yDHQ(#g{k>ll7_B&XaP@XQTJgezB~PwjpU(R8 zE}`_)EsuxS5C2oTklkKXm@AUT`_QNxQ1(lj&l+29;Kuy7ZL5{3w`;h`&~JCZk_Gyg zc0L+j@RR=YHQIS+x2z=Y*>uN{zT9Hx1U?b30hdZHpJ>*I`F?G zvzp1L=jH|!*$fZ%)HgtxlJ?uV*4Sp+kvN{N=U5-DloeDq`~}xw&|F>;RmQNiu=p@r zQ-^=02=^%FJApBWIg?K*6DO@EUpl*m=tmT{mS#3Ud$F-6019|Kyh?C>%UVeyL747+ zw`k}MUk|(1`JH6Q=We{DH`CtF#R2pIgMrO=$cu=CCPuEK>;BmOn!eoEIy!l0wf}`1 z7k;kA)}_Q#e6XRw=F?0KdZ})ArRH1yE5Z5dUkrT#b8LvWP$(W7@Ck^oqmR^NvTWk} zwd@JQRC_L!B>9T!3LWg7ybH{VI)oDtU;mx_yg7eEBQ9dqSK+qH*b z=KdU-tF#F=*i{<^=BIxe;Q!_xJ)GR{;Ga}VY6iR^pA{hs?1!7AL9oFFL<6XC0iR5G z>dmA_hxdQsrzJkmvq6>g(s`OrL)`jG0lhJ~Oak>&g?Q$M}?H+P*|WY%*v5B^N_1K+j(o zK_B7TmzSZ*cA&+-u%PBJGd>+R<{Qz}Ll!_;m2h`XR|qOfN9vyKJs=AYV&)zLL1TZxlp~?t8Wk-gSLhT0D}OjjSH^p1@30C!#5IcZOrfhWYAz& zvBF~KA0B}H^)q%xP$$8-JS=2Bvsn--2`%*5&nJpI-tB#9VPU%Rt-ua5H`@Q1*JCdJ zY5&2NAy??1d4a|)_!mQA<=#F8e4Tl{%+2M!wUqLrLzF!mYD;aE@qej78*J@NZNfG|k6c#0bB_sMiHh@xLyz<_8Vus=B5j9+kg+l1Im*Y! zj2HT9fajGtqHAoZ_DuYfF-IcmPao^Hyi(Iro*!$h?h3Q7j0RlFi9LA_LxNpasQZOK z#ViCQ4*;toyAwL4gYC7~b<44$va?&J8|Xt-nba!}Ex_J|nQkgqI(=(qv__+Xam(M@ zkifq6ty9%C^|Zb}#1GV_G_#|$&ZuJ|79>iVNyLW5kjtr|dvm9-vWE;IQ?g42_<7x9 zZyNQ0SSL8Z{Tp4+)hVW3VBkhoMipOIuaIzpn*KJSR9A4Lw<5Y2r2CkVrplvmCCGMa z;`MYnK@Bd&W22Ui4Owf?{X#>Mcs+2La^ejkpoYXBaM>5Pu5rMtp)T`Pq87_>^!0ly zm4{xp){q6*c$bm0P(xwrX=dE#xfCbmNcX)#87P#{p&>9nlvYvF+E0H%OhCi=59roXlJ8dFy$LEyA|U?BuP%cL{?@ zw|6N+#(tyYm0~OYBproIpKP1l_G#&pFE~S_(eJ+f`h9Xo-gW$1p?9Hc`saN)N;heD zW4;NfY5miJAAV4dbz-6AlXrp|~rxflERE#S7 zjYXVp=Sf7mIOZftXgyrH7Lsaq1v?OU`hl7 zm$3-8Yn*PsNoEEDovb-txoZ@&MP~Louzr%2Z|Gi`NI}l0i%v`uWX`d6`hi5w6JUHm z%FYuk=(c}>@QXFLb`szRf#s7N)wdApnPeqb5J79vKp4&!M8v#9>XQm0ZXhi`Er=*a z@=ei)dXQ#L`5AgN$pYUBwg=KHCo9;mk$}(G2{^7pLhxcXt`ph2-{;^Mli)qZ39&~y z^CTxE3<_U#2dvl(|% zeO#Q>!`UEhobeOn9*Kxk?L}a3A6cA?7#T!;D2UFUC0}gp>AzP*hfZR%1Ou)ix<>!A zBHDiv(Nd5*iRf5G^zKPSzkyuv#SHbJ@Y}+1zKxt5W-NeqF%V(m_b11hh9n}+hptQ_ z^5r-`n?$q#n(O16ppKJmv4FfA=>j;9n}wWYY(W9}FC>wsHh_lO^BbwX9Y%2;&b9Odm(+kcs9RmQdf2X;z{V*54EPjis%p^^$$hP zZRiKsGq%5LoTge^FRTVTML*;1RB4y?L2dpYk@{$3WsZd-?jVZqg4!fwHPP$nGSM59 zq62|F?KwXloK)ontvY-VoJX3k%%3v-9&o(V3~uME>$d}wL?`eI)RYN{1T6Mqorzj+ zzX`C$5c|*Zjm1jPsL})qjNE~4cr3g(S93g9)LyK|C$|hj%kQb0ZtJ4*zz6X6sS_lv zx~NB>jAbIdl(CFF7JaB>75zRpe1oqG(VqU9UOHmj5-!n>i+WGv)l#PpAKd{RXU4r?#j{SU*91OrO&Z zzNj?On=U6meA-|a_6P8bf_y1>LA0StQ$fCnlXEp4Z8k%0%Jx~PJK$&GFMnE2gSQc@ z_qzi|Z19WlC&hORpx-_{RqG^rk*zsBlXI(r9Uu9!b;?c5%(w7RPr-glqa+80i zvkyjUtt3N=E*$|zmhpe7WEm@r)W*fPn^pqDa{P~7=X5^=HH|zy6*AX=vDXN{weqy& z5a$q!s0N>BtR`a>GJ}B;EB>)cmX-omU7TLKX&o^9yWGy_obDV@bD^i6LgqR!_9|gZ z>wj)?f*MYDHkh!`(?MaCE>1Ehn7+_+t-OJui;IlZvLhc*KxYm$iFAXVUMnOzf%WaC zO~6qFbWuPO!?9R+RRP_g;8SR?F3#zioIx8G7^$_6yg@FHScK2_JK1U_N7fhE&TxDs z{Fprfye-&pt=+T@cq8wzA!Ky8-Sj(fU-{jEm@bc!mjavLmhu0r+LbWj0@?SbV8agJ zsFHZe+IG_}V4L#${3Y$CJ-{;M_qFreO$ESg<#%Ik98+O7e@1gU;aw}wWWpN>oaUP& zwZ!$Q)G$R)2v_PDj$J~0vO>Szj}lPR+_Op{0(T{a;n*j{Cn*R*{eY2;6Q1w|ig*Pe z-P|)>LCv=#h1zMyJ9*2Iv;`gUdm;S`)Qw7o>ADO@q7W~SxtD^T>{3z60Vk3Yy%AfG zCLc7mU^MSOxY)?kO{oA|0^?Hypyd(h3y4`eBCA%BLzMt%#(dry<+hrPQMPQv?}UUG zsB;uHh;2>p5Zqe>&BtLOq?eD;4~Z&Lp+@ir55@ObTASo=2%Q{YINlc)q>T5wly1H> z3_Dm~yVqoonwKU>9`IzHm~E@o>X7e9b~^GpJ? zGSxD50<%O{_Zya7QM)%9w=o<$gm)%J8vz*h6&(m$P6!`+#1($8zDsCp-8vC2Jpx}Y z>1A2i!zGv7O-Fze3SeawgpgOL;k`N!FK*)xR$ZBxp_>m3tv|H7%+c`^$-FJDhkE7N z=DVPQEqU66Q43Nnqbs5%Lnx|`^vKAT&jK=ih(|js%u>cWncmn=yCBR`#x}X?I*)c$ zn57I(a!q7AEkl@fMiKqwS_dBOrZDT2vVm#TPP-$_nuwFkmjeHF&%yMyHh%TfZzBWznF>X?(Iauiq}i-|&=aB{n? zm|;SW;UiIDPF2cb)_v?y6e`@QN;!(GkMEB}ML4-B8y+5ak3s=XZc3ru$2UcyBAtp< zLQe!mp`x9NR4gaFB2h6;MM@Uyx#{9>RdbbEL*|>qH-QsEx(B9MDo3W{*JDwp zo~IQ^MZA0|QX}prYVyLJ^e3k58FaS(2%{6QPz=$c)dM*V!c9tu2whfrt>=^@+NN=< z`d3V&4X(un4s3a9K`c6WgV)_cJ*B7s`2wYPcVJI4mnt?`37l?nvdAI^o;GCFQaH8H z#!a!;qG?mssz@ICdSlNrXUhwOux~#-c1KkPs7X!w=W2TEYGw7r7Cij+!*<8mn(RhBNjkDtCf0$!DF@j*) zG?7c^O#?eK#RP7BxQD(~o%>CN)-E`@l(=2JrgsM+FUY)dJ%S-w?-qg})8%AeMWr$d za@NEQqYw;fo-MpH$@0|~UhEnNc+U|MN?mAo5jLiJQrZz5oh+XyzgFdt*f}uL2XFt> ztlsG2oTDzH{idfYLd2|?;osD)+SbORBl@-N$1Wd)NUxatEOjJLWO^QtR5v12Y~`UY z@{PXBHMvgD^#I=|wwu2*jOE|(RhdOE(!aeOVeK3JHZ>4DKGGKLY_zgnR8bCvH1B=fPLuW2i=wSh7be`YG?T=1Q|n~(ovM_$Z-8K zkeP=QTx*FJit1eC6BdNft(>kC@*WQ51i)X4Smh#c(0OGX9I@uf6F_3Rdx`U ze=DwaMB0iH>zN2$O8M-aU9qvN_buq9UpGS7tJuYesnCgh~SHMpbY3K%%{~0xO?upHZwOkN}ovCeD8SC zcTw^@7_{DAp0Ed(#$RLy(ll9HhYPR@xwNqEYwhHYu=4BX?=g!9DL&9>FfkK8J)1V} zJj-s@35EEFe*NyN~nbD5r&Bi$WD3h3a-3GNR(Oq5v@Nr_On`d`67BByo= zE09jDMa&EZ9M%E3Yr=MLVnwdfcAtE&}_K}L7*G63NeIv6_&^4`p0MIv=8T)Lr98h?iUpf zgZ(3`ruw&cv)8vRm|=>IX9#A!z@z&dl+$#2#H%2{Q{yfxhv}dKKwQHtj4vuJhn%P0 zWj$o_SN+K7(2ogV`b%W3vn-VRP;gq^^X#vfMY!k9QyFxF6-znxs}T0Uyv1|`cv_CN7Cxp2x2K^!nGvnU=2 z=W-h;;EC|LP%e%pZnI~79}^5;v42E%7WwJGlR8GvMKR&PmBYT1;(DIBc?)e8zX9@! zi;b1MA5A)FE1Ps_gVW?*(>syNX)R4EfXZj_9~Aq5PA!LQ!M|VNhlLIbFaAOwd4FOx zC!5nfKLg|A0$0Aq7j;VZX+mMYFOYPK*Y`c_t70O2C$RZ&6d0L)mqlTY$$`}}f}Ep4 zVv&|FI(E2AkuqH5c$4dGA08;>^dDU0sd<-`%OtB98Y98-Bjls^!v-npivGM8U{k?$R6c&#iP%2->{fLC2y*kZ&;Zpd-xUYw`0>?*>??Qg3m-@bE zPpml_l*;vReM?7{YQVh{HV;*Hie`%8DvfT2?#qCDP=hqi13!Ds*uyL%NZQ8UN6*$8 z$4;A)*=K-FoH7TEy9k=tqi!1 zJzw{;Ed6;WC`^#~m@~NIP15_l%A_>sWQ;#=I`6GAIo!F$rD}9cyl)HZd8P8?n~|7? z{e(XvJL#3BRa1LUT{EyVRXYoZ0&)!OO&3h0Xz=sM_#vK z@OAA=Fj~`O6`k>u+BEdlzE#wODYA;t_>u2&(=CzNtZa>ml+wzUVr;r8>IutF)u3Zq zkre!e_lrC|oR{Ibkt!8krfO;^g?OQ3sp-xnXuJ|cESi_WEX2TPVgg>Dj#6_(c$76N z4lPmSjkc6nwDVnp28%aWX>M0N4_EFtlf~0lHkrKR<%0AK3{F;F8^033y@_$UEGw1OmOuWwLnvlhsf?!nnAc^m4WQ?%I=hAh7d(FO@OnxhG4;H4G))SoK}B?k z6e>0*x{y*-4lqJ{rx6BOJos2y9t&AHEbpi)TavDdC=yM&MwrLq>8glwSv#WKR*@bl zz0GVyH-pu7X*|3tihf3WUnMxPc+-@8ckoS~{EWM-DM|=xcm-uGw)c4jD$Adut$G6pVI%cF_uwlY z2_5er?neocaigwAr7(=ddJ`SUa!?JZc|Wo)LyXM2ttz4o+|wfLS3E`)h-=YqRIvp$ z%tVw0;=0ZkR-Fp?EJGWSb?ZBs~{Bj0ebw_-H8a5B+D@{lFNJD!WHCg=8Cy}dV z7dxmsxo0KBIpn&Pun<1h%zYt8(naP>*XaGP{`oV|z?sCB1*fx9tZg7se7u*jRyLV< zKC83l(FD9NGhjU63o{h=!U|cLiB_~mc9Y~y_%{i0JEhKACQ~6L~tnm$Cu(FD0P z`?WHPsCVZ+bmCsz}c(@58Zfe=Uy>7`Z#H1cgpy$%#<4f=5`d%u#%& z|M(+MbfSVEe&j-S$Buj*c8zn`%U?GdRWoAI{+7iqI{jBzBqz3D^eA_&U8-#E?Yo!H zzt_N%SE9yxtIRyH!#9tgl1)9V+`7;x(s*^G=WsmWT3XbvJ9`|V08)1!dc0iO%*Yl* zy<%J1QlN0SI^a#6HGUsR{9z`aRg^|u-PQJ4wk}Nh5q#I+X1?N~dza{n@uw-+gEA9- z!H0fGdiQ+Fc*P*P(IHj*Oz)Aav}PbEh*-2BLvK^SHSF2C+2gB9&*AwHT;20*hWl{r zX?M{hBiW50L(=A`mFPJWH;&RD!naw*^sdy*$%}m)JMK}fJ7HaUTFa)bAvq{RWj*if zhol>IYwHw?jxYLgUxlJ-0pE|w(p^S-tX%2dYTeV^h6+}#bn82OKg`Kg-TJzTzKCFd zpbKBqP-B0f38#!|?45mN>}S~>sEKJ_vw`P;pwD9kMfpvf@rNy`q|tzlWbkfHEU@7kmRi)yvhsq<@hnbm9>(tUg9cVX4D9Baan`P%#saM%r)& z6M!&s@q6BHh+eEglMpyu*g{P}7_oy_fHYziDGg!7A5_*+q!Ho!kVfQSf{;ek2O^zO zfPRQH;vec6q!FEWkUAe-L8_o(5b?;J3Qy(g{x`@Di-=Tr#+e^k*VVxfvqE#>OB<>X zr!d|-SgJ$Cy^P1eRVr1KK3_rFg|N!To%;&D4y5vE*m1NaTw_v2+5Ve#@QnktxHR}L z437ZsaED20i-y|JvH6=@jKG3X?{F7X8$8_0;h~-gyN-~&#KyjAk$0x^3nJ3OglKsG zp(02{?@%`)75yH*KcnjCj)2N+bra0P7jz+z*b(r$3`y{*s}Xlnt)CsikKvk>3YpuO zgomPmhxw}H@?+zzOVC*O4dvS8MhdYL8*89-l#BT7Ivac5<{!bz#MV4~;K?%7rT}#* zObePJNtM{`;A-?rW~9_jRVFO=!YHbRlC^Sjsc#qHR_vSvyPWTN)aH={0G{{x2!E5lAq;l7( znC@bvBRW5XCTCP!4_SmLPOHOIm99P17SXq=u;oNTvTSj>jd|rla$z~16n^kqNN=f>>z9%iVH-#oI zlz^NK?_fFJ6L!5;wiJ6%;d4D>rkScM?C_&3_|UVhdsj(|Ehr3DsWZvhl>seE zp`KH!I}XpJk%Tdw)hJ^SsB_LVFa~`ufO3R77 zM1@Eodi-eex=K~neO7psmJ2zEUOK*}!?4w$P5JiPu}(ySrrc?(@n{deph}G^2QC*T zx|*plb0^h(a2yq?f`QwCe+FOIRB!3TUx7HOsvFYPKk%234ZN7oQPJvhEpk~AQR)r1 zrjvHVH&oTcKKxOTfsk@!EA<(Cc@(x^9tfL)(AGJG!Pb>v5M1<;-OSkcF|a+nP~Daz zf5Y=Ff{6_$(1?Z+^mAl`0s1Uh}T?e1ls*FoVbMGLS z(4QO}kWA0(&hbpg096!CC0#+Hy##HE6mlM)fzQs3XMgOIr8p`(%AaqjFwb|i|0lb8* z>io}zes|O*1P}l8AxNH&$xgg(xJamo=OcY2tkRmPck?@0{LWx?1r$#T!UnCFD1^lh zKUlk>bd(TeV7{^#DR2d6Jj0W9X;y617KDkl)DoJS25tnU3BJ+_AE8a$5^kP2+H zY({XDc&<{%fjWoc9<63H#@>Zn{=r|(-RNG2)d-I5lrRKRCH)Su2&C{mVF%Qa!kl4R zb*snVT9+zB1YI36X;e3I*N?D|%R|)sOZ~(hKzQo}#S39WlwcN1-Ft9(^^3YhRys3# zPm^ktWnfZWqLCc^jUnp3fNP%7h+b*LEJXMMu2T*yglO=qBLrg~S4lgqrp=8X-12rJ zi-3=cg?r(F*wg;8DL*sKNsf# zZ&M>TPAp*X+c$3ln!Hm1!ceCtOcNJ@i+eEA-iaE$AGuvg0>7ZsBRB%T_R(T2+X8pI zZ>y@!M7)hMzVGgD{R1#}k3&oIBYDp_)-#mX3dJ9`bisRCFWIXeO>N_QcKKUCd~E0( zeqK6=ve@}@Ng|>1^s4c_^~A|J@T%0HXraICeHZy5H~~c@%z(GaikD}^-}dUPmTg`Y zFU_P^d2xkf#X_z;tD1PbsHgo2e}Ad0_^MQUgA+Uasco}sZg#x#79#?c5 z9~vqxPv=9O%y@_Ho>Z65W!EQisEN0CCN_|&BYL$Ld;ULqM9+g?tNc+C5aI`HKC}kk zoL~6E30xdtE6pBxDcrPn7|5n`!SY%x}UxvM(h6vgB=)+Exz^E7LgQ9q!KOWA=+aZ0hQ;GMn@<@A60UZ>b(Y*<#T zaE%HW6U%~ssLnh(t>Rr)HOmLebWh8_48J0^`)y_Gw?ILACwyV);gh44#izCTMx%bh zy!JCbwPk}{WNE~WHA|nmC$aWEo{u%~OwhV=7% zy`?DH>dgA>=6#ma+VZ1&r6Hw&9ejuA=|Z=I^%qXeGJ>vLH!B#$4{-b9U*)^P8^cmrSl2D?=vE9t_sE+YW1ltuA8w<2=q^-B~fcaf%4v}aZyWC`LuU~LjqxOT}0ri#!Y`j z6<x6CVc*NP*X{amhN~)%TPIDcJ@)`pX40@V!{L)-i4ED>3`cre z>Xb^jAamf$gknd!& zG(Y*Ad#32yAasOsKvL&sz_iO1*zK-emwu7se7)Xn$hu|k*pZ>3on<3OHXpR0qzZ56 z>c3BLtx;yE_dQ(wO)?)cXx6t*m?jILE4-~UXE2BR+-5%+umM<`7m z^^#mGpCQSqpwiiV(OyHW)eFJ4w8CBe!scA5bum4qqBLp&anEd9@N!P~U$OY`{-ejj zt2pz=$p+}r+;?L=+Vti0D#5k|^yMckh~k|Y{YT?UUaWTY@$Q3PLq_qP#HB+9o=|aA zzh~Zl@7R8W+@P}OQeu+h@Ni$6YsR$>PJLG79H~=jbG?1s<7J;IW%iOn_$>5T|F*rY zadw};(!9Fd2WrjA1E0HN zd*ed?@s8v2ABl-Y$0c1tN_1rJIglOmc_Xt^x-Y~uK8DZ`VGla$l?>e>nE%xVZ`E@I zuUG75N)DT41q2wlGgdifjr4VI&i22a^{M9yg_$?h#Q$y|6UWpEAmF)tsC29?xxL@` zzu`}PC<^#A=Hy6k9`{rxyv)UYa!18~FJfuF+mm+q3v~2zN!-|`G=fufR-hZTu)#Af zjL~}|t|gx_lG!YM6w>;D=qxj%2sYza*bLk4Rk!rTT+a2o2d`h)eAfR|RCqWeGWu@% z+kc8gxd40bQzDR57+i^iZqy4q{Y(72z6idjnAu$kj}6P`wHvn- zNy2*_LsN{>#o&CXyR(Q~-6fq%AdhsfZ_ebdl~nE_kf8yoOIo~H+`HFB_Aoq~V0a!M zU-0R{G9NJJ+4{v7YA^Q4gbth*vs|SNW?5Ny{_F0Do`4z;!#(jKL;`pCq2-BK8gQ*E z*L9GAZLXAR+-Qa#H_yfiZZa&Jfj=+JT?u0$0&tb^*cj<)5JO#`1fiz0_@@cnv(dfh z_M__dWm0?vz3V{p+A?fQG<`g3nqodAYt47ir$<|LnF;NDQuHd=ASYX3Q)f0(DVA3G z^q@AD4wof*`QThbMP~_>lz2PlkK9td{P*urSTZDxV_!)HjP;g{53wVCN6V_%U#>T6 z^J^V-$TaA=Ocay3ulXg}8Is_191o@vde41vI@PlOH8Ut;guADOb~yT#89x+g&@15w zo||R}ZRdOsAKJXBC$G2gNWI5RmnMMvGPl&;=_jZ%>7S9hqo2zt^Yt34E|`0F!+BAp z;t=&DYF&%ECf= z<30t0Tf2r{)6HYJO})|N>b_1#*DRV=$Pnfnof#z5@63DDgJ(yKtr!5qLWX`xwxmgJ zT3Gr4s561f#=iG_J2M!*A?*P+WS>^YyMVP1pzKfDe7F2uGHvX@(B2t)m=b^e+m_<= zyb)}wBr|rM3oU4%@ZbLH z(@QCs!sD*SD_mxFc`?Ec5L_2LJuaz*->ZgR2-+y+D{1V!M`f-6))@7+`?C$@^(X3; z5T_#(`ewoUvRhm9jW}-2=hwg?yCD+D49GcGtphviH$6W6JGbS0^+GrtuO<_SP-Hh4vXoK&+{|oo4IgtPW literal 12590 zcmeHOeN# zOA=v(RzBj4Rh}#dh_ zPwrah+eqs%Ml2~il_s7k020B$Oy#Zq@|1Do-;#!=?KK4 z&`%EjVISN?AVLs`WJE{^A_P9O5XpSF?P|G7a!4{wusYK)TSzGgIFO5 zR!9gd8Lr9m68J2>oF#`iL@cLG#Zf^#9*>`l;3tRhS#V9}vsiqX1TJ!zP|lY_e2CA7 zF&slpiPFINU^|f0401KaSb3GUWUBqmH~9`R~OW#`$N-8$W!m zy#C!bMr`pTAAHpE?0?!(b(Rd>+OV3uy&&&!XNVBJVT3MZY4Sci=;t~TZ%9M0reL>S z-FEd&bT+wq`rfiTEAOnNrXuw_t9CW-e6;f~=niG&6W*q8_J6Z~=60~Ko80?O_tNgK z#XA|KwVgK-*Cws)DjPE#8jV}!VmSBG2S^P|yO??@buYoq+-(;3Y;nIt?zP3eD!M-w z?r*4jYvJA$x%Z0hEwtOSa64RXSMlHDL02V_F%*-GiE|G6d*GnKMqF00loA2E^zgwb z(}wW`M02hWVEPsY55C#| zxDagqY}6dLLSNs9p^Qs=Mu!yEZ>2W-0v2&ZYJ1u|VwTpYpcI638lOB~@GTSRg+@6i zN=RNLageFp#$g8wJ3C>I>e0>*b_qRW%A0Ns)yL39g1n<(*Jsx5$SdYoG|QMV1*ta$ z!l1^ss|V;=8KN4kwX#Rv#JvaoU`(_wW`NcOjW#gAr+S*$j*!O-*gbXm(d6(a(ah3J z@6aEm>=rT=!?g1myM$VBr_T!gH7S8aX0u^@14cN`kWuJXa}OGN6Xb!+{Nk^j3c`>h z(aO_#^c|wdN@c4mI+fvXN1P@z`R1+>l}8_N98y1CmA{Aq=DYSqcUCHu;Y0l$hFXju z-EsM(=Wg~1zVo}lA9cM{2xeuK>CepS95CY;!f&TlDIOf$hR_OisD6E|5$D}$$`!Jy zrU#z&7+OB0W(XR+YpGt;zrs6yghsxxr$?|lBDld8t7S`m7;J4VN3X$)+8251%So6p zUF)a;@4v81d)@t1+<1J*`pm=RG>VqBcb+*;FRAG8s}V=ZjLp(QuwF9Tf~L{3G?9{i zGD&H`A6*#Or-K^#)PlMG%>vIHGS_n+EV{4VEi}FEi7itcH}=%@krXXj1K#iLfDAGn zG~5NXQ|EppPunfT0ddrpa;e}Hj4;6%({>@J;{utv@Z9ddtDm^C(+3EcpSE8YDHCWP z4LLpf@YD{Rzo2RXh^iehR2j!l(tP#1Ts*qUa)t{@&e=YN)zVyvrfb?H#^^$>|AKyL zLBi4M65WpZIrE=u0e^_7uNg`}>do`g%W~E;K%c+0h6_Qagy2+@LTM6PA_JUTSkMK@ zQi1hn%Q2j!_W3#bNU5Hay~W6KItu$pyDD6OS<>3WJA{OXN>RjHO>Ks%*;hOM#%4;Y zg|c;nE^Yo*upEBY5FwTv7oO`S<(?-?zMh|}k9VyH)X?6H>1P9;7%OzbrkC`CCiwlh zu^^h#C8f-IX_=jr*`taL8WnV|BeOU=!SxVkZi{A>RO=)d_`F+c>xjh}p&j|yw^!w(p^yK&_TL-&e-B3Ln&=o{l@Fkm z!b04@ryCD;BiU|%e}1iV$35KPAgtSIb31MS9;eM6Q~kdfYUbHyHX#t6S6#UP?tr;F zkHDQ?;Z6*3=ga(mO(PPdN;gL>!9Tx=|C4m{xL4kMLe?H(y=*mGQ)s-sfA)wU@lAAx zGF-7DT)W!zukHBf>0&q&L^E4N6leq;gK^FR&-$Fw)jYHt`t!S5Exr|UgsG1 z0CzjBbn^w>Uz~OMNdY=>>F~Y2Jq+-d5Xpp-29;v01<f2<*VBCbt% zSd9^aW>hWVkV~S@B~f0TN&md@k)mOuXx(R;jbt{Xh(4vCje^9X1WuVeQzXIX0LZm7zFq>-NlFHTARI`qPFBx(}Qh zOa?)eLue-srBz5NcW?^8N^TXcGooK^zHcfX6!V@yIbs%5pP{H%YX|qG<7<8-F2x0* z;sqcVqK%;x;t%zqO(CJ^yX!z^^YuY-vldn>SlHrBG9P~F7c@qVj3ru&o6f@ax?94H z7uQl3G3t9Yk|ywhWXSea`MDRH>+_?A8^DHyyCta0;04_;W+Q+Y1~d(tC79{WL8_av z#BgEI^}2WU`C|K_Q$ZSmZ^EBNWv@Es@P}i^JzFzh zyXH%){vA+I5>>pl?WZR?{$na6SUNY^(ek8{Ywu8pwYQ>9JmXo-4(S~f+rq*j4?!2s zthNu7m)Q>9{zVo!^X{lJd}eNAnA9JWAiS`wGubzwV2VZ_EZ9mS2Q?$PwO>dn(d&`= zWPfP3yXDluvFX742pHb1GMAdvNd2iL(Va4-=ypzu#?jL5i8il^V1nM<3iGcRu>n3n z{25Y?Z{;-GGP@?ilM!3*Vy2VH{5?2IDjX<@hl3`=46TR4Az*LyLOaOT+OG>*MmCp2 zb_KOUji;ZV?Jfh#)%dLeL8fT|gDD~FM3w&JagmO4gv55X$UX9uU^k>R{&W_=O{-IXefzD1?)hgN*kZ03&xxz37dRm&}qgou& zs}(ghNU4ze+j_eW`L56xh?xE1xhakkI=`x3RISJpny&aWNMKUC(qWO|>N_cpO~$)c zDA%^zn1?6H55WPUKmd zL|;kcrsjU*ud~dp@tvAcasx=|4^s4*>_l_7qZ;GX>3zi8tzFG?-XPFZ z2i2)1i; zDY85v4)dB9#Prfm&1F2SMrpdnG9E?>LM@5By9__D*TUs^L^x*F$q7SYQ-EO#Gil&z zgM_FIpe;hZ9jC(dhqc(+3B#H4b$~;08p7qsD3u$Zz_zr&Py4E_TomnDirJHISjS;! z#H2hp;_s^=-^(c^X{`E#!^WB?D0cqb)msViP-5no1;wwN?g$)oJm&F?%-##2lo2_a zA11U(x}5CE3S3sn`wP0GsUXM`lyjipD4a7{FMxjPjp5b-+K$ISQBBnw5{5u~Pg_%2 zjmP$1u2zH@yGHND=8?#_u*q58THkwgD8v4(Rh~i$n~BVzNGT&hgHVai8S(PAYtomn z4?eJY8I%+0C?R+nR(D28wNF_N$4G6xmZ(0dz&7Lmac^g)i(k5Fz?(Px2I9{(C@R&P zs;)_LA7!)><$$4zY=_M~1)F<0ta9FAsf}#i!=+gxCBfurX(-N_XKq}I!)QnSPdMI` z6!hHEKM0o^rtEK(I9dpfle(&`wT0J@GDtRL7Y-?-#7dFQ+QJ6}lz6qxC=E2GIP3rc zQ!e6Pk#LegF!wiv58&5oLbY@%U{Y34AKGBIU2YA|ATz6ow#y#=5e8HH8_)8 zMmTTio%Xg8BP!FO@t~^l?x%Pfd8R!wUNEu8kABQpS=sq~4>1(%ewyPvX_GL|uW{*f zSD8Q@rEoG!8^BVna&n90i;+s5chqEc{oF!|7>8K@Z0Zg{&E}jyY|-x;0R74xnSGJD-Rxw zAe%NyNkHDjS&Jss{M7?)I*K~oW0qf*qw5{UX25%F3ftcmtE~kV2_W@yilTFkNYm`;5eZGRV#^-jU}N( zP5st^ajQW89*`OD!8T*hSee a

    plot.modelAudit

    +

    Examples

    + 
    library(mlbench)
+data("PimaIndiansDiabetes")
+Pima <- PimaIndiansDiabetes
+Pima$diabetes <- ifelse(Pima$diabetes == "pos", 1, 0)
+glm_model <- glm(diabetes~., family=binomial,   data=Pima)
+glm_au <- audit(glm_model, data = Pima, y = Pima$diabetes)
+plotLIFT(glm_au)
    
+
    diff --git a/docs/reference/plotModelCorrelation-1.png b/docs/reference/plotModelCorrelation-1.png new file mode 100644 index 0000000000000000000000000000000000000000..d48a51dd37103ab6d40cedffac7dbcef7d261af9 GIT binary patch literal 31548 zcmdS>c|27A8#oM)y|N}t5!x(etHfmgw67>aw$Xy@6T(3lM2jqmgph=onC#nNrjjir zF)@tE8iN^RU*>+#P@g{E`}OYVdluJ`r6_Uk(5;U)buyj#S!z+f=m zb7xN)!eAT_490e26C1cQe)jTv7>u>@(#0#Mz$FZ(0fX7WG&Eou;5Qm(2hI|3i*bW- z*lE~-Gg<@Oj0PuBk8!x_=|$?fy6U-tU$kCiy&V`r1Dv2OjM3aK+AbQLC3Yp?B-)kG zK?g>2*GSh$v}|iB! z8YR(SDbXb*#1bMn=_Pbx37w8h4aAX1__#nk8k}*UC%&+m(Uoz4|8(M;oAJ%v_~sFO zCk5XCIqPW@knZ#?jr}Jks3V-P{d+r<+H> zNpF1@-AW>Lq60h8ah-T@qC3GH6iO$B-btr-;|sg-`0i$KGW&IpfIr(Xq8Te-9CWY_BArgcrIJWsVA3Gkb+A5iupT`)2!NuGG#8FE<43x|*}O5* z2soy}pOI4Cs-MPg-)T+fIXnK24|7OYFen z>78f*4FiP$h(R=cu%13R2<8LB(J7sDFv@f{eR_lr`T$Hb&;!;7AY}jr<^(f+><>w+N97@%aMQ`iOhtH$&S*aRUy{Q&i z6%~G${}Et6cCL7PB@F!Qu?@$4Od$3uOqu=Ir5h|*aO)ul?YIEDw8;Nw4{F(|rlL;% zP4xPfiu4z=C(K8Di$yPpt~AdpB7SX)S?pW*I3HN&+tjzzTl4dZ;Rm5g<6WDA2Osev z_zImYYhhG)!1cCKVn9Q2Sw*aQ>cU#;mt59k0!Q8~kXPqOFTRjhOZ)P#{o1oS>}hB; zE3VtEzyj^wR8V2`TNLEL~lY%GF)_5tR^RwO7>`Z?P$OMR*4` zkWyoFtoT!B&3t+q-onco`;&{9U9+Tw$>4qFF%W)cguJB(HB4uT!|WFp%@4L6tAI4 zgp2wU3~s01H`JNB*>SK~Y9ZaRz1bK$d)!WV_fX_Cw+V5%Q;N3220QlUh_D3Ky7%Cn z=3J?6RO!kUil3OyYDeG~_gprr-OH<0hWywelkaZZ-tSR*d2d33_h?t^SZvA3=Bt}` zKz{qBA>u@uC(p6ylWq8Acv5v(6o!~70a12W6^{w4rN6Hp(sjmFrkRHjB%!8eIX~%p zC{^d0!ekp=d86-ou`2t>6InfNu0ATC|$;@YSc{i z6-zW&=@dSSHY`qWGBft*3cPfP{n%5ZJG5t4(Mhju4Nh>8npN|WJ(uUdKJys6d|fzL z99A;8E!!=_JkMuHhZkO}(2qz4PMoL@%(0 z;p7b*KK%?BsiAw*+iGIxry31mVALb$SxBlLHU7M5bAm}7wW?|2c(NJq>`|`TTGh=^ z$9^ef*px_#D1p&7ES44Pq!q_s=b&49qVk^G)%Pz%MXRoF`Z~qgQD&A|YwjDmo9FZG z!#kk3{XEBO4p1GVGhjgOIDmfAsI|#?7gtu3zJKx)+WGF;@9yLgSMilZ7Kg2HZrK4D z@AphSRr*K>J1s7^J{LQ-LxoSRHTFs0;m@sIpO;FkohQ2#cgXlD+?>@(TUxw6E-v@F zl&1-YzUV;Rp64o^m)(trXwR-QP`X>11*v-b+RWvt=oihjVA0hxG4}^)iuxvjxGIl` zs%_8tF9n&#?ZGxp$f}{&zR*s%|DN>o)2(Xp>1&zd=nfr`0uFL`z#G5n5AcAuR@ni5 z?^cctj=#eoDI)W%SIEYhcd;RpfnPsKi`clK(I!icEDAZ=f_KM(H>53?(b{V z+Elghfojb*UK!vpb1k`G{-v{b03nKClmq`~rK6ADG8Qz{w;Dcfx%;2Z2;1|kcYjfr zrgTYf>0Cn+!h!ewOf*tif!Kb1`65Gj9~1n4QIh{3hpJ_xs-3*_X5Z3r3EN%PTCCU^ z!2=JgFP+&@FB%1-V(*=QrTpzO=XC8}oThSG%ujC5*r2;pn`kW;{{N!O*P;WXJwwQ9 zr}4x0MDZFGRgigQi;HQ+9t%Qa%W}=fi>qV47p#kV-h1_@ zxU!NxjSH+`X7=WB>@=B}9Z;`)2ysojw%xnJnVp;)>n!?@NTP`}3-)2`b}V0WuM4X5 za)FhAQK@LFN#I@Tp`)~dFGUBkH9C}p_+ZW0w#=jwqG08Ul% zD#4iAFRC0%M=aNW51lq)0x|8|mn$wRW&i#>*-9?ujgIO4fMTQYRugVljGr4u`%1Iu zd<6{QHKa7GW@kr~T`6M47V!Qu@*~^UoI9y*n7<9D`IcMQEo;Psdq|635~-8MDb^F$!{ql!zVg|4P2;}Z;qD83=JTANsIqf z#=Il=(A?!q4~-~c^oULb-)2=8db2O7*K|zS*NXQmnDrFRy>H(u1`YC|b@p7WD4S+r zm<8#hpV!(x&Evcr=FVKz52FywQhaZyh`Y73==hb#PRm54Z@6vqOLkXIl#7+Ri?_EZ zwE0dR4mrIU$`JpV^@u!FeeUF9|5mbuNpEM>!MKz#hv50}j=HgL>`?B<$vg|voL`iX zDkMMHp+FQUyt#u-%M0T{9x`>k;U(#O)sGl=i)x9P>hV(>62Qy%qV^T{)ivFH`hdYZ z=*tZ~qrZ;8ush_gOL$gNI?p5)-M1m24;=K;yHbl7sSsO;)1-M>J8I9Q0NZ!1HhE%B z)0iCRietx)!yn2q7*j0n{>MAMVwsys72=ZQVpBhx_}mUB>qP?9=MoIb-A?S{%(#K! zCffplTC66kuap<<)VLg*T;fhUueR%)Fuuuu1DLk*rlI0**}vgY{YQTJc9KlCPq--? zq8h(+1YX$DLO0=CU3zscoFIT**#JPps%$P$=V(F-CkoCc{dRBA1By)cCWNOHbr)2t z)SXqH@YpLL+$`-`QPkhP;!bRmZEuIs>|WmU+=rT`Z2!x9UPnF@ z>cvkMdY7Q%MZ0-UtG>ZmU`&LgIj9r*27d3Nl_gma$&HcOWuDIs+jI7z2u7BsC)9OJ z*paI4P9toekCH4T?LSTNg~VHw4-GF_`p)$dX9a$E+AWq#Ml>0VYet%W|3}wT@4Mq! zWkSc7fDIh9R~(SN4ZnhRFc!p7vPJA?CvMah)=2j}ePl91N4Cv4^yJ_VV3T zqbk?-3CHoEeluQT2zf}Vn05zVc-Q2^8F*^a{R1mwagva&c=Wf~7T??vQq>MG{BQ8$ zC?8_ZI_AV3kxq*|ypDqkqKi!0LzAzs?`bstQw_00p1#X>CR4tDI+q;sTVB6Yy4Zg# zL|m^RMn>kh*nZo0K}MYLENAKj0=G z%{(v>7V$rA)dW#FB}q^Ir)>m#BH#Cj`u_pUQu{eyH}C)bZVVrBc8~+&E#29m@?kqF z{_L+!WNod=V#}1Hm>07RrpobWx;Hm88n+dN!eioU_zfehF8l|KEG}wCdy^rdH|x14 za@NOZ(5|-8li51dy3+w&Ncqp4KYx*Xtt2(AcfK%_tlXDeT&gvl`0B-*Yw~90N{J=3 z(*>-U5UUganLw6{x@L0f8#;?3lY5jx`#k;WRiYd{{%wzto&~fwVL4+{2l4)Y_TlFs zxvETyv=V5jMj0E;w76bssbp5ZpE3U7xh59JYf}6Evzbpryh~l%MErP-h6=@K=i{%O zY8L^XKH0OF|G&u1#`{5;qpIKg9G6|B3o8P+8e%H!0Rc9A!@SIT;*Y|@Fh8E{^|9N| zpv}xJq@1V63SR4-U)=I~Oi_1lxrZR`f-Yn8wf8{8LpNf~hQ5a-4P8il<-m>Hr&3eU z;J6**JoBpdFFJE5f#yphd*rOYiZE8|GbaqqU4daU|4>)rK1f-u)F2v$MCq7!Z1aHq zMPqtyS3XoVd3{$3y3Bk1wDeK_GvY!x%E&rdYN$iR-Q_(;5ni1?CZ~V;kHsZ1;n+*_ z?Sdz{Rj}N=3d5wX6E;9-M^Cv)uk>AqYeSig6`!N>d$QdtDrNbbP8$Gv?0l|3E39zJ zo@GnUhDJRmApqC-nKg>w|A)+FxsYx+t=rClXvfCGg^6`f;xv@reimk|a0iOe)PiiB z%a1WFCZggKic1G^O?m6>M^}!eDs{^KXFt!tkef1CkUvL8 z&8sx(|M{~Fdz5J|85u1={LemdLLHB2Ek{rUhd=PKVb9k>X3~Abe>27r9NO>&q0r+$ z+yZXKq*S_2sjyPNw`Sk-1;+PFvk<~dJY@^XwaJJJBED0XYTg? z53I!a{oell^3#7yA`Mg8r=6$chdsyJ{V19nw3sXp6$94(hU_8FhMQKgv>&&hTG}9C zPUw^w?TZR22_S5P6aWrmIe1s`l+yb!gzg^!wM%@vZ=D|yTeCC2<=b?@@w7m!6p(s< znkma_3UEG{-=qA83dP7nHuv!YQ#t^vtAB*xi?1Ps5kc|4TG`q*;0}U?d;PUXkDa$} zmm`%obJPBXcSqN>@)fN7-;+{LcP?;?QcnY+(z-6ZAL1TEPBKC;} zUG78qzJSWp|Kb*KxU$;Cs?nD!3Di@alt1xVeFL`^}g}A*D_qCXvO-*cdZK zi0I_Rn~=beBCkJDmtqsQllA5b^ibZBOfB3^?zK?D)LdDa?Xo2de39YsS60s#%~d|^ zKl7Uw8FFzqkc)m+802aoRm|dx2xi7($3PL(tm)g<|C_e-DrGrcagkMe@uddV~nUq_6XoONS$GkMlKDRC(7 z*D*6`;V|Y1JW%$N3+a-+4~2D|XmhQfXAOu;V#FmO1UxB6Wl=FMYfY%o28OhrKELE( zCatPc#OUStjI4NaPEdaBBW~HAkg@Pt&(;F1Q!Gwu1&y8!~&tMU-b2OS{fgRi`D^ z0^22Jz>wD8qKYgHH8VUX6>DsG`8jYHo#d@)B8W8;cD%*accNrl*|q-6$stZ%;^#4K zPO#PoeAg#U4e4gQFlA$!QYJ6y2KiXb<$)Pau$yoJ3rL1eFv2d!m~j5keR#y5;?3mv&m6MHGTp)AD6 zvjQ$OM_|RaC^HR2U7C^|8|lV^aRQ9G?z2RatE4Sx?)wt8pqtgNx09QhZiEXvDS19{ zxL3imFK{S{+9-s5ow`r*gYK6;*v3$xg-1O6rInF)mE28QfsqP~`VSC=>q@Fy09$*4 z$FpW_wDf@Qu6w*N?7o#JBtCxHx(TaB8K}yVlMHON682187WF>xCW#Fa^oRvRG27%6p)cPGZe*l2@dSuKs}^ZO%YJa>nm~DM4FhWlrn2ApIfLDu5aeRuKaSw z$-B&e0A)DC5q$PW~K&GrWi{J!l|`1G>& z!oKdjTH?>i``S3a*X_eCKavi^_+47u(x%F+%1*qAs9&~JUF3r!aig5WecI~1JhHLdIB=D&2a1?{|v>!VD? zyVfww7hs%?h%%f4pku>%jg*1bzGY>pgrT>)>LZyJ_58ld``28_Lw`shc_+5ANgPd| z?BO#M;Ef76X8u!`pA9*vTyO1w; z$ThKf8#aw}lxt&0TX?Z9F%w_PYWI9XRqiy7fww$kK`b%!^Utk#V&vARpT|N>w_h6m z(jV8Hd_BDM`#5*e2IwuhwM2$SP1|=ln?)~32w1#N8SQh`rR0KIpJRJhV6f=eSIa5$`Bx?+C?nnT)G9@ub~%5j?=w1Ge5F(E*IxyUie_7 zh)fl1S%gWmK^)l!Mzf8Q&i5x4%@d0En!GwuWatw#5B%RZw1v>Mw+vcjcx3myu{4-+)l{4;j^9CduM5llk#!m(1}gt*?GUG-h0SZ zsoGiPIw7v#-y67eI#r0NQC0(Ma!30)AhzemaYYHOCR@0#R|`tKierViRPV)?hY&Eq zGHj%hwxTulM(@tGQ>r4PVX3(?V=8{eQO=G8c>{|05${Vd?3&=qeLTNw0ql&WJVHVu?Id_ z^@DIv>0y?Qs4Mn7CvA(N*GJ4!+~_W z3B+{GCZ$#Gyv`)iEo9?!O+qL_R^jzMWJQApcR5!o-W2)v%z-%3k4;aj1H`(2-~ICQJXc*&ru!8QVWjsVSR)qd402ri zR=mW=OXr{GSzPI#Mgev^1=ua*c*cX97dhpDF&WpUp3AibXVDl3Iw0rYjSmlT_C^^_ zxwg+mY@1jWoR}65(7Dq9Bc%w%6$#3p8fX8c_+huLyS_LLq>~2ElE9Wh$%IV!J6|gT zFNTUxo4Gn0S==|OcB!U?a!W@FyKWMi&mI`MoMv$B?aBN0<-iI~pMPHG6TZkUY-c*e zOxW-Dz4st5!3W8L5lKqx*Pp#QKL=7?K%O{n-#qc(4zK zlothl|LZWIBa9Sy{LKGc&EEhKh|AD(+w#0ub%UpPZ^1jC>7X@ z%q@tzL%U(ht4!b7m!_s*d%3Z>UuLcpMzRlx>z%FEMa2hfxa!{VbuFS?x1QB0HQaLB z=GQbZ{VID46)xCexQzotd8!24P?CedmCrH908^vfOe5U7x>9Sua^fpm$~?l%F^BAV zw?zDRSY;};N1OH3o^KBiln`$ER z^^sK7M%5?io$rd~@>j(wOPa$))@jPVTajeqH%>0hv5$Gr1zFuR2VwhU334)mi8_9o zYhs;C+fpe1RPZ#TuX$xAF#d*_)=s8&PMYwUA363_?<;SMk~{35|0W#}QFN)Jx(`4J zX5$}!?AQ^Cel@#=`rZm3z4=IH~9vg`ZNmfXm1^a6wzXF1T`v11vjf&s4!509=P2?f=4RQtm{r^U{zq1}0 zDc2r#%4^}0zVp$BnW21reiAw>J|nNv;LrtayhyGogo5Wwked%NNFrGh80t4i!b4P= zZpIH5e%t2U<{QcdZ6mUfb~3TifUm4ER<*{Y=(rc&dFC4|Z;qkCkT*1ONjI4+1j2Mm zQE+-{Y>T16Z6=-TIdg5`6(m0*UDw3{x=czy3UM{%IvXQ2H8nR)_axegwXC!Bsoqoq!2g!o_uWiaP_z6`9CZxmPp$#7W)sgoJH@_X)1If=19i>`)fGlfv`S&QO}2Vy>D>!v zWvT-n)$#Uch9I{|m+1V>~h3TK!$T0RK~tf2Z-NDwAnKWQPyE*!KCP+}|Kc zA&(}!cq{Lkzr%O))Il==X4+GtRi~t{NvD%nXiHAsJ>!df+Q+pniu?->zeFkwd;WEv zFM5<;=f96y`LJw9g|%gVN`L%d^A}t_IL(h=tIrr9{--$)He^>ER21>&K1dA9KX}m} z?EU8aWyVU((oak<&`SyiocEff{%5bwXv%U-t8(|^ATCHG^=3fYB!CWwd zMy1}~R6r5-GpA&x&DRug;=@~`zUB(_UoZG~&jb0$s{T3UO7^rJ)oQFzvir@1!ibHn zXT!SMj-EUI2SMw%;rT?ZtqQCVTlJ@`n*IMpD*PRP^%+?msM*@e;g{98w*IkWS}-OW^7pRh-0YhZ(Ku;bg;H8bfhJ6vH+To*r+5Z zd;;6cD_b~_=O$2T_CG7xx%prVuaH-dDnBc<=n!=z=`UbT)ZJ&tNP8;=t69kWCbnR* zHZWG2kdxGKr!rR2!~{h;ti zj=d)rkN+s%!U}c$nXrNBzJFirzqU%vnEj@tiDzagw(d2(p=(7m_aN|Lxt*enqT{*9 z$zDg)8QGp@B08%{Mj4K0raG7{ZD~u-Y|kqC{3fczozVQVx+Z!jZ=ZO0{|)W@HTvsI ze}ttC-l^59au+B$op@sRRJ`eh3mDivqNg{e`qUXIH|#cKq{qym|mh~ zxOeFe+`CFGKAQQGsG)Rt>t^gw^`76`=tv$i3%|^3vUUzd;C(PBi7HK;J6qTgVcVjX zsK!X|Y_D?~o@c={|8vCWt^iG=qyjV+9wn@uE5QKpAl=DVSo<*w* zLPq(#WJMSvX7Vzwvb4w2Ql4v8vbIpndF6d{*s-#AUaMoPLx*q_jc(j#>^Y66650%& zX$UGUD|_o%@Zu=0z2U`*Opon^@1+aRZt)@Dz}nR>&;Q(Y8dP9U-5Q#KtiNgn&y$@O zZ<8+cYrrs{Fm-tnkgfb6A0po3DGQ>MNxPea2`6Eg7Ub<*1r2E8exz(wdmgq_*>>k& z;(D|g5^ZU{bbIDxpxnJmE=7{VnRQ)Gw6wgyf#~wm8~pijnQSe^kJFsk;Gz~+wKuz` zYm2wy#HWl!5llLOG4%x2im?C1jiYAnv~D;^YW>a6wRxP)V^zk%A%uZufk|@2yosLj zzhkbEYE@eyYnsw&7>1Gk{JSUI>nTz3*VGz04oS#R7?wm4R5wKHx}0mtt3fu)k+xy2 zG;rd||7sk5+H`q-NPiNHca7*pEj;2cwTRRVoe*b zkd{Mn4+o?=^gvXo>4**iu4!3w7=oBep6Jm8MH&Cl# zhje`(wHZi9=#O$j1Kl5%xRl=SH-SOR(ruCj42T3g8hYbbKaUVnb>@dXljf5*r$4P= zA(hRw;Vz(~N=?aAIHxaNFvd^^bv@d%jga=sUIc-FTG5zOS)ObFGkb&MzrNu#CwE8` zG6vir2#8G0!aVsn0Nu*Ho^-QIEVD8S5+aD;p zSDO8Q#2Zu%<%6})7I?er#N`f@-cyF-D0%yXO#R$)&md5ydnA~w02|IK<3x_QDwp-r z3Wo;8O6f0O_>SI(r@~0LSt03w-rI-slj1p{<(J~Z*a}zXcAys9ymql=@uz6aPWSD9 z)LNAtMiDEutz2-TUIXdPAMCVe<3g+clXG&cv@xwj;0iNfRj3`A(Y3O^DX(7XN;E0U zC3N4Nj?y1zpwfTkLsj{hq_sP_*pEHb%}h({128a?-PxXJko}7&^Zvt`1;=`5rPp*9 z&&YZ)5G5I)Y8)yYtB1fWm~Z2t9$a6G-F}El{kgOv-lRlUb)|?LoN3V2$QLI^IC;-E z+q+w)L2ETzHpE{h`Q--qNo!A9dVy8H5&bKbcS(_-MEW%URQpD7Q*&i*`n zPD&ZaO*3C~xpwqRJI>0weQ_Yzlvne?*gtW3LaYd&HRO3y(l=MR zRQ-1~RbanmY-=E)#_H9PdN!?(X;`6IIy>lIm*IN=JN9&|xA%eY znlt%G2FM48`|MKdmctxHJVwkn-`EeijU)!~wJJoVDDwsS`wR}xew&;IrUv=*^mpkr zrkXzp>CGhTVGXNjt$mgS^Rj_< zGcCnSqc$MQU3J%&tnF=fb*0(+6pUJd_ZzUwd4-&%pIe7V1QH%J-uqQ8mG}|X1d zuf8^w5*s2u(OinU)|r1HaOp$SP+O{e<1n(l_EO6bvqt7kP-!fxE=|8L&Z;m@4AS$v zWZ5WK->$re!5|FF=ol>}_l)X`*x*t1bD$@@ty&cIB zGw|)xTltMA`x6J>n;)d5yww?3ifS!HA1g~#gOPU2@H;U$n}u%d|R1qfemk70543B8UsSeS+d~L{Dd}-fFfDB$kwwb!wx3 z%;yQUeyS)l5%RO>I7r%SOr69(PSKY!zHebx6Wq%ycWTc zI@(nnRiE_!J!ekqc|$w)l^p!>pvxlaY%lUJva!NFt!9WL;m0D3a`s zcBSf?Y0bNylDhYf1sn99AjO9j)WtdNC-8Zq;EBMii`OAp?B$bH5yCkofr5(@u)W*} zQ(&gG0V7QlVHvLW;`5~$Hq5X7#8VDy(NqvC5PVsV=FN?*yv zJJ0oR6{=-K)V-XiSh3mt2{U((ixLiVVm>r!f;cq5np=w{g=>tK1Tw_*RFGeaC`| zk9T?cRJYg+6mMTxU9Gl^gCVSqK1=Y@w)p-?t(yCm9q)+|o$Tqb2(zB&3z$pKLM;85 zrY{>D^0mGEz)p$<+j5>8LDV;4N#lXI$lcWFOO8iqj*ZXwAzm;O=fS{<2vu$CrQM{} zczDN*_1bm2NfkH?_HyiAC?ZU_{+PV;wM}_21O0Qu z@$zigLnryM-Gv6nKL%)39`D0>AF<&^ShY>FVpx0`?b9i06Byyzo0Pc;gF}U>^wHTB zPw|C(c>c_Vp6Xv8UeFieTRy5qnQSI|njEE#ncV^jF5ZV}2{7o)%$w>qG9MRI)l5-y z)-z;zX;7@#JG;VHY>@0*OIHYqbMPh z3!!HXRI5wCaAwJ|Ww|q7n!kzRk=eT1^iSd>pBfk`Yay&a4!7ssLHf7V?s+!3MWLy(G#w8sjX_JS@x3-qXv`Q9CPw{w* zKJp9$B(ay*Bb^O#PS}u>dVqg*z=*y`M+7bft`Uvs9EIeNiQcXB(Lk#f`cu2Az`J9* z%c$ zV^VT2wLE*&=$ZwVqE_I1HpHRG5ES?~b+?u(<&MYLjXvtzS((`;L%f?c=Nc@6dE7EU z_dmN!Fpw*wQ5c(Znb&C^6vTa+6tBM29QZ4CP~>_5ERm6P#S{t#n|`{g4wdf+IXR>> zX%>5`NOOx7ucKSsBN0q#f_UAsNJ3?zGDv?vy1=laWmpkrD$kQtd!F&C%I%HrW5?!C zzDegq)Smjj{g_D#u;nW}Tn6&GKN`|Vm@x+!lp80ARaiP6Qfgr0s%>`Wp377RE0mt7 zCd@_iO)_qEgodfA|A>T*9rnjI9^wTv2nNTWk-GmLMxK}zd`CIww?`pd_a*S_CQR&t z$-Uoz1&c(K+9IL*zea7~D=VUpL>sfF3$z7zpbjfwoE3i!GCe7!X-ildRk<>pdIaLC z(Bmwj7(Tlyxy+q&F8Hx_SMdBIe7d#Qzlddmt2Q#!e7>;tz(BOKR4#ZEM?rXTAzR0X zYkXDjwuRZj9XfNpq5f!0~9I0&dhw0+{aG8YUM$D zWTB#5oeU$L%*2cF?EuA#+jwd2G0~UU_o`%!?-?%bXG2u>%NDa?hb8YH;Dls>JavzG z@=iAcRA_P?z*#s|lRb9j83 znQRQoc5PHktuQ-Q#!btdhuFu5dT-#i7ux!iqR$iOd{lpGjl%4@%mR*1rZo$Fn)c29TT zHVxd-`VS209_1bFmb~6WF+&C;;q4hebrHNcInTc7@LSJy;Bv=iGNZ1F4;NTW3*eG^ zw(YBb)6YUWcLw+a3=6E|{)a+~rlE&3RZLTszlIZ=KX77!g_IwBk#8$wh$D>G1`=$4IXj+Yqa;-rB7MSenw{tCP8k^W zb^88bMhfE0m<}ntX`tgpc+=D43>!D5%KDL+T|x@>vl#k4b&EJ-afcbHOJ)}U2DZGc zq!OE-SV(|DMvO?C&4l$?Y3rQclRGff=bOw{UU~sfL*>#UqsQi8Z&0;r$P0>y^+Zp= z>(iL2j)K{ya-yIA$6W#Hw6Vmx>)}$Jd>|$H#z}W8WGbK@!A8nCVY->5<`66KiadGa zw#4k|h1NxGvL{WhAzTCu3xYe|O=~@pj4+yxB4YTg_2za?eZ3IVf=EYs%0f_B{=+Z* zdXo>g?!yE!a5#wb%NJ`E$VUfp^yXZeFE~FecAM}5%K_dmusWY2ckJt47=sQ}8OVDZ z!G(ytgFfEXbRfy;y;ZM@A5k?2RL0v>#%etY-gh6yAV5d(j?MU;UjMD9RcUW5gb)1U zZIu|#XghxwJ3DW`f?$O=91ou%|nm<6~qI(a%?s~ZvN#yP&w?!qUO2(R0L=yDy38bbm)~+q(dM9> z2k;@++tV3<&G6deQ_S600~O9>1K9!S4Yo{XK&I8mh{hMkL00Wnk~SFJHT-}D@S@&M zY%RV^)!V>Q5QsadpOo-0;NJqUH=hV|@uockX50WarJ?^_;KPAYU6De5)fYIiq@x5||xys)>?S3dC16eZQDvlIUn$gre z@tuVPN!EQ}B{$3X3X&!6^$PSj%QawXq7xNMZ;6sb0Z~3xs2?qZL4^-fw4maM>zZ?i zD1IRX9V-SmK2@q8T7RYi-Tz@1q2uL=GJVbog>b6x+yO(X0pY^CR90+jhi+!U+7UAb z&xzUi+rzM3CkFR9IX`aB@#xw^tU#n{`_n|kCv#F&P3lF?mTVKlrZ2IOw1Pi_ z`bhAQjb<{2zd|H)KrX8=`#QRmko{tUNkRM#1rPnrXChG|vxn0J>Sf~WHDuqMwe1b3|&5nHaGHt+YFXP=kA$*g> zGY#4!c^I}O00lRT?tjk4Adp>9Xo&l!2>FIB1s%eAH_nB0onHsGp8XuZCS%6Ypwj#A zS*G)BMAW@)lX3E+-B{#L3mBHMZM%i`spqhOP^&B#X)P-7I$x!|ba8z-aj$awwP&J+ zL=oVI0<@lxKWhVuh4g-nyL#(?xkJ}VFeknRvzqoLv={BLa~HdA27f%%3os6s8VeRGM(nO{z@JS zOyqqE-hBMUhE3%Th8a-8Ih6p(_yQz)-nV(M zVVsX9y!*VOcEk$nYO#*HX^`A$I1N&jfWjASMM~+BJo+ejl`IAb5a(YjxTf>n9c0J( z2!ly3C`*!^76Wo|nq4=%@7!j^j%xdWNWBe6h?$f~V1owE(Acm>AUoA?nhhJl6V}Vu z+l{UP5HLr)(+Gi6^<$b)j6$a0Px~2|U zYf!(UzLCJPEZKIE8NC5MBgSP)!xaeMd8U}trjaV&-WeQr2O%EEKXE5ZOYTvwjSO=` z5YS(Ps;As;XNFBMLQ3xazXM7$79QTt%*B*5lhN7C{MM&wx~Gx%Dt*l)v=6+rIj782 zk>6_O2ClE;VnmdY0|r7Lot5Mo+B?+ns;o>4p=YTeTgEgMZVa9u=K`ez8?E$(A#chs zGXJ--{aphPT(sBV<&>%ngeHYDbnAz;XJ3GH-~?Ek;XWP?65$;p$c~0xEXbrIb5hc8 zltHx@BQc#Q2hHdFu;F27&bd<|g7xzYLH*pGM~;QEQc0ap3Ou}DqFG+az4-Pk6uh6E zM|K|ELJDu5*yhOmmWQEw@I1*@)7cboMDVUnF^!wCpfEh$<-V(CKq)*@bmLy-=T&^8 zCINgzX;-!-&hLr8(uW@jLzhPj#hABVxb8rd9H{i<7c!6y0e4=z!>FVfkVU)gwK~e) zT?sxKV)tmCa|`Hx_5k=e$}YKl#>Y-xeq?;`C|Hmid^~2;d4<0pJmMndOA$HGg)+bM zVb|?LTvqd?CV%z(8dSQ5yg_X_H(rMh92VW@$5vZ*zwM1zqU}f;_-aDo&m<}iAC2U7m<0$K+gvvxIPs#7lpEtWiNm0Cj8YCj#CP83 z;w$|p4_An7`WR)tQfvNR0Tq8W+Du|=hJm1Fb3qh4Da16Mf1jqc!OoQ4?u!Rci7S<7 z!w{y5BCCaB{4{;_2S*`MZXcHR*Z19IS*a5ppPi)Cy~`mD zNhk?kjuEehKU2Pjwx*E$nhyT%aTpTS&bY`wtj|VD<_gcE_LN`J@*4pk0pZVZn3{a{ zOHo5iWn-Zr;_)k_KG;;QqmjP~gk8&<2s#B-{=_)&Ig{Qw<0C$yywHCWt>QSO!>v|6 zz=l7c+`N@2N?1B&-f-*8IsS2d4w5@hS4)V~%4rFGufKDya`|H(Cv=R_-iBF9H&S9I z8tug;MX`smdEdfWv$(vo#vJ7=utd>E_d!tv-B=ikN*Te)^T?eD2iQ%^eqZVnYW$_& zbLx$+IvaaJ$K{F-XB#_(E5D^|2N2IqbVR(Le@o9@65kW#9f)=w&r7Ou8h(Y|ozwS8 ziE>D26^02pDr{m^G8dET7A;GLJYJf1u+)OyTT3>bkej zPI3f=3);-y%!xga^GK9^;Pn{>=6j=@MNWx#;0i@RLG+T|_(V30c6v(z8z$`HJv>@r z;k;#Yq*yzb^0F49R^kJmVOQ23C2bF2^SjTEf*VE)Lqk<~wNUZR|5s&S9uL*~_HQgB z%TU>}SIAaWLRpi_mL;hP&G;l*h_S>R`xZi$NQ%&gA|}c@NA_edWgW)Yk}xyK*!kV` z>G}Si-|PAP@%-n7bD#TM_jO_htJ(dnyWzx5+XWEO~8j3wEXy>)^_C2z5p0K&L z?kPb*jhwIkfU{JKJH)B}DWR&Ue)dx4v$F`CySw$2!wL7`oTP?%Qb_5h)J_U&^ufzx zyP()BVV!-dhc5fH=v?+ahffv66{TP{te3UODaYa|+Q)5mo-QVq@c@^?abWW$DY2pt zWg##Ai+A3z8pr=K3vx#(6JPC=EL!TkCQgan?eHl%Dj2P%7Psi)`niNz)BK_ zwAn-Nm^o3r)>tlF{;k%^0h3BGQHytusvuy*T6zFQ{cRhsZE#QZOPcZ?&d#NKAw9*8 zL#gYXqr{{zA)N4mU75_V8ersxH1fjajE59e%?#u;cJgd9H+)1g@!A2fYb7b-`)=w` z7F>#aJxGQ=A*H@3wrWjZfUG04&{HE;@SP$qS63+7i*&x?j4R43FT|Q^kxbamz_1wS zOJL}z#tG0Zlof{bxlNcLMY`*!S?nr0y5t=wU85vj)X1TpYD9#sOmGF8EqBM7WY{C(oc)bvqy0x2`7@4Ef(&v!j! ztICk{#Cx>WnF?+POuP=bb5i8c!l2a;z`<1^As__#3xg8a663I5fYbzq;C)(a1w-c? zxv_bphO6kNMyim`qsqpv^u-jR?vH><#SHUzUhQOa!&>)V<8m z>h9OR&u?aa**Slx?m9D+6{zVuG9nVSH?RkPp**x_Ztqbh!i?v4mWcRkTT$I(@!V0Z zypYrINKwQ{z%CJ@HXcDfnc>}o+h~K1Kbg^cWiCk`5vwMB6{N`QQl6jJwRV~A21NvY zA815P;DIcZ&$~bDcZ~~hGm=n6#vqAHOEB@|TCm-qXLTz|oR=P5boKRRN9)j@4B~-F z6%f-5Qa?rzFY?N=Kv7FwJI6D^ zq-9(&Semf8OO1&hH--*PNkh>;saj)XZSQ$Kl7hrV;B3uCVA~9`(lJPxD@LXbdleOo zmky#Gq_)NH;-!1^Pv177S8Q5~3ByVQs?^BY!qsruQm#W-#sW1O4Re8)l)>C$`v`dr zsDUWwG@QDK>MzEasB1u#)B34Lwl+HxMZAS@d>nzbi&ug2o6;nqbP<5dwcBb!pVO@t zZIn`NDpv^ZiH75{KnK=!K-CoO;x9<4TnL%Fh3b(AT3n)F^up{r?3)JUo>V4j7;|bj zG3KHP%rDbj3v=I(g!DWh{s8cXKpskfrbHs&_l(yK#Dv!SyLG<_63X&O=Gt_p(sa+5 zo@C;u$$2)K3mPa!z2DeGOUPBEMIx{-0{b|W+gTv}$EVA@GpB1>Vi_%5aQi?p6XDoZ zBxO)bdV-mH<>gKgK|+|X%e{-r6o^i(ll4u7R6L(;>q-Eb~qad00%n$HCC|z#& z`Cidd?Q}jUfJZv!w@)bOG-Wr$Ow8`SM_cZjCz@XpkO*z);DR-%O3?+Uo-#boQWiAs z19k*!F7~Em(8u|`E0BDBOkl>VfC6TCL&B4e&~>2W{RuL552 z)Ppd*%3vVp9{%rqKsJK?0cJ(3hFIyjSZA&^TaVUJpn+7;U_tc#2OAkC{0$y5x%z>r zpSqicp*ckNl{gJnTmjCN0q$V>v-EcTiYJ~*Nv66_y2^YIsvYVUpWXQJ_1oDkC}4&N z9B`WTzVZQf>@trCk^pn=m#QDMwS81PB)<2K|^2nElOhG7X z)v_DDsLNfK<5nKrGkt`{QuKknuQX)fR&`5d2(!Ay&U>XSxS$i&ntLbPzk3~Q<%MIu zQv_^#zp>+bMgq#@KHe8p4uJ%qEPC=mR>)d-?+0Cz!rG_RX)DsH;*c<_?mc%9cOt7v zq=m$Az}yHkV;RIn3y0z#NWjcK6RhMJQURsCxNuacQqpIu!OyNef>mKBJnY#BZvl)n zbyHp}jmXSW4&pm+ldv|{JCGL$I*8BxW`MmCF5Ic>dzW#_g5EuJY}u%OhGHEe6dx|8 zNoFe0H^mM?Y@#NMiR)}Ylc9Si8~oUpbl_$RAa>zb?IcL<_hF;1PNm)QB< zO_J;V=QjvjJhH3vvN01@1YtoCJdm@C9n;U}0}@yVK)p#SDZ=?{WFZo6+keV$pB!YW z&pwVMpUjUGt0sQU-(&XZDAvP?H-mPT^+>$>;siH#v@%=7XuoYK=Il*nz+Z0As)-qP zxH^43aI)Nm{B|L>lzsz+{Z@H^^@&^0%q`^i8qr^tAyQD?s~boxx2(yYDoTBa=}z2m zhbU~hfG@h)>3!@RKm7cQx)MW$1(dpE?%Ta?B0AMjygfQ3;QqmqzVX4_%DoF`v$@G< zUQ4cydf#zCkZq|>ztiIXIc{A6A>aXwW}8^!dp|0ri(1mAH1yVK7bt((+~sllenj9z zaEhoIBLS8_2;3Dlj7~zwjs?&D*k}c~eV38AQgTav_!sOBR&v8n%Ap@DatuUCEc-f;slPHJK)}KwYw+^Em2`1RNlvnef9D)Y4-S(9;s- zha+!1GUyPBtoo?sG4JcNUAlFN z|Fa3u#v6*y;$oS}mDxUi?mn;_peRP=q9z<-1I@P;LlAbZ5TX_#qwvvedqffx(DcKfnapzW>b- zG_%E-7!!?2QQ8csR7|^0J-8S<%(j@KY%}~b6us6xntqzAhbv`YtyKT`dRd!`b0@Lq zF6wwNK4_{pOLu*EeC}t5fa84Wq`ln4-1eA;At}0D4LGnPEB}s48KJt6-;gi`9oT=&afn7B zwQvNoZ8gSw<5W$kz~?q7UOU7e<_yMz*Kc0I10tH7-yJuU-gKP2@meM;cN|=x0-@L= z4kurmjS2gLeJlo{-y>-4jXIt;wCI-thzpyt6Zi=m`IsO4g(G0gs`Qn3rH9=MMKc<} z0nYmbv>btR1Lf^xUa33-)nmM_kNe(>w3@rvH)JB9LEj#Z88%(Ian({UeQqDE*D=L; zCv3?f>eesyA5?-^rrC9WCqBguvFfQiDSMx9J!8%nJvJtSrca|1@ycj$>2W#9n$^Vl znfg?stWwm}IT85NU}Sx?E*JgRkPyFuT=b1l%EGO=IIQ;@-z(r0p*YpoBZ1at7soyO z+{_C|^PjokIo%U4>snqmY5MkM?JitlD7J+QU1dYw z+6nU)T|ayK4)eRZ3EfH*q_u~gi&^Z`1Ra~dcjm^b_8A8E6u#FJP|``#uOV9nz$jO| z#A!)fD%AG)ynRE5F#PGI=L8pa5!jD~z~%C4cz35lZyFMwP!h7+{Efj6E^Np;5^PzZ zx>YZ{(JsZnPZZTENtbMjc<%|oJ~~SdEGzO+Ov^;V<4}=J?pMG(EzQioGUJK3C!mX_ z+h{K%DaE|vR)>jPJ`MEYm(TDC(#$kQ`yj9GY(1ad@@qH@D8ekhznC|H01m^6T~~d0 zQg7B2pamB@bQj+@s9Xu!vBUWlGvSi`k@aTPXHlUknwto+w8S9W!+-QR&h4t1;?sDY zKq*GX^|ld)m`Vk!r{wI%Mi4*(hVBMV)8qU7qtGXFh@=lmnP+gj=~Q?oK(tb*u4#Wg z3*0$#b^!q95d>|Ya@W9X=u(f}^bBI_!CDmmkr6iLo3~EBT@nsXA*Bb<<7~_L^~@;Z zWR<(s&ZgMxw4qPk5(jVD!2c=JT&s`a{_-{W^6X?-%FuJ|txKf!;wTGT;#QZ5GI~V) zYBjZe;E-S^_fgJn|D$%o6_(TkP}W#%imoP|Ggv^mAlA0*n4S`)Yg*WnQY=ktE=dV# zi(-^m3qZ4PBMvi~JJ5b>8=u@5ptwuzpBoa;^qa1g;q+i4xK1Rn5ZJsgnY9fn?VxyB zja)nXcI@KjTXrZ3OutSIMFwet`my}Mh*#~s3%|RIkhDX*{u~$-gF#-dOuVAY0`Uc- z2O54l?XhsBsLB$qDTf6loa&}rG(PwkUATn|SUrg`l2dFI(K^P2RRnoNt#;@&L8bEv z+E6huTnsV|DWg*r>C%KF5YA^aX{yiMU!;^`E7DdG9Z9ZZDe98ww+?YhlGCyhUp(v?`6?@FWd zQz~bSfhOoiO3RRc2RpsUgq?T$#JzM_uo0D>9=8Mp1pUtea!3T?1*DZiMMqnS58$w z|6W~KTZrzhX;GbTNIuV*qVbsr{;FZu+2@i;`MyrsS5vTi zzb>543FT?OT5V|Ze;A@}GyGJW33rlMlo%G$!%-PQsjQUSXiImdZ%|pFzO2g1pj6(? zL)R~HCQ6dcSm6b-=*Lg{rGQj}DQ|hJw<(emD zCJPXd;)$pAOgItZF9Xn=FFD*I&cw8bW$POO@Zdhwj9!BT^}th!Pa3lH2+k~LUSSF9 z<=ut8B&qQ;#dejJS5`sJ-f!AIjF|JC$SJ+RuH1oXlE4-_Hz+)fX9o}jUJ;4uo}|x% zif6otZf^iTlI$94F2TG3;zUeHTz|OSt+)khCJKsOU3%P?#_-FfOdO~1_X@`slG zqV=xTgC}D^-&W+}Dxs7wwtC6}F^|BNSyV766x7^QRHTzB$>ShkcJ!C?UG`SOyX^pQ z^3r7gcxT2D0E9*I#3RW?IaftHoOaGka~#y{N&|4HTSQ+Y#(p4NCl4L+=BRG@{L4yh z#z{^h*H475h5cHQee=B_c5NH>>|ZD+XcR& z-l~3$tZ9E*wVsszgc%Yq$xHTEcfuc4DgY-f2RV%2UALH*O*`QQ!y;9Wj`gbCw1|eI zj~`Xre6Mb~bChB3Ef5h<&P7-AUi331!>&H633W* zbd9G=527V&L31;0@D?j};3R^MEJ>3*|B2FNd@ytw{f=LoF8HhDt=kXW0d(L%x&Xw! zm^97%1XlWR!Yn+7Vg&dSt098#Auda;WvY&h9bShaeBbG3U)I3*p1p5>G9CHm! z(sLR7i>3MIlzmjoEzZkJLEPF9lhw3)t!c-tc|jVcIB-P9)(_NNPK{@ z|7cW^be2`wlSecJzwfaFPo(|txg-)_D0<+6m_=T>;#KXyO|I3lC(_$&7+j*;d(VDu zSd*7CMn?Voy;*ykP2O4kr{Nm21BrOt|cPyz}d&ehJeMFfPh@$4FFXA zW%^AddF4=DTchyc(bmk51C!iz4`W~vrS7oOwB1_d@R(6yATy&s*?%n*T_tJ?&J5mW zl<^L`4S%(AP+arH^@zcVeyk0qZehlu{7P{*j?rx-W0?q6$eiNk2G#WX+oQOD@*F4v zl;f=Anil6U(RlRQW5(AlS3q~J+P>Ce!tFy4)`xe{o7w2O0)j9LOEdp0Sg2hPm$zNB z_iQw#umclZ`TzmdMRpc9vJqU-Hh9%~pdI?(u_&mN0jrQ2+t1Gr@1!*ho(KUz^cMz2 z^9ZsH6RyH-rreZwD|JzY2pQN%6;z$Vn{_hk$*K^$QUOPvsGEA*v-@{u<*Qp_O)StM$xKCR(alT}+8HbKx0+15qzr0|?O8 z-L)!WVBMQfZ$%tNss=b@hI;tw|K~ zTy*SnB3cCw^ETk)$L8aF&?PU1ohcR#4D{Ogs?rtECIw z^*oOim&QL<{-ng-{DsgFg}< zzSecBb8zoCoG9*4*2zHq*7YNbzG{pnjzO&D-F*EDCb$XqmkJrc5!9=MU{N zj?dMLY0knCyY5L!?!`U3Nyrv|6{ztfBbABJOk=@%qYHYU)XojZA+JXK)0I4A$V3PL z(Z0ehjm3f$SBu`fQ@4kwy`bE0B(Y3O5JJ6sgHTo~aLLxLX_+z5r}8YE{@IKJN_RRB z3$(A6H6T9gdu^2?6@BX5Ea<Ni$P9&Rx44&5(36DE zvP^J36ZvcHs=+gNNn98yo&DwF?5|@YP&r?K3~p%daA8!b)dpq8`@uU~E}x6{<{bu- z4VYj+s-La(i+r{Z>cA+0DnF50F|}^qOcl%k=W2WIe5YNwH`6sFQhZFC+ffs`lL`|V zXz|<|9yxMz2iZf*`cT)+qP3d5=i{fWo>R>a|5H0qqqxjfQXXQz2VPggxh$1B(&q<>s~)N*B%TXxF5=l1U~Q#knm8@bKyuoT@U32hfBg@75) z@65cZTOR$g2eyeiQZjzDTTb1=ux#o#AO0};>^EjY8K&Dzk4ny}_iti^l&dP7ow>3SE`#nwFW`mFnXKSw>ssDH-Vm~W(T%Isd17PXL54>8J zJ4g!=q!a_z@3lx3_FQ48T-~DnW5}r-_Zm_pJ$Rp$KeV|-NuJ*CZiYhz_cXH5)Tt zFKs+cn3Z2+1sMQ^haqLyB>HUa>$xosJm+xREGL~Iv-1-9BL)G#9Z)Vt_ z(B7uLOVidP#rW3@F?)nm_M(!DlQt zMFDiBEm|(H5SCh?ad*cXhjn5z_d+P8f~MFf^MDy|1D~#K(eLrF(tp!&&fY34^>H1= zrN_q0xni6JUPsPcPaIsex%Ok5C~wJOXJ}V!85Q~K_ovyTHwqvRPuY@aq8F@*2Q0L( zN8_$0*eqU3G2l5l)OHP6e1IgCqLs~`H<0x6?62aETbFizraWbWvM?NqU7-lOKcjYX zpd|)#GX~PxbHH&e`>S+DLnVX1^wCgXJ0~TX+54hl?n&x}M-8X{*ffi;V6E^iNSs~J z2k6M?@Y5r^!=I&*^H-FK&d=QfX6Zrt2fFG!~|6g+Sr zw@S$`d?!=iAv!6^p6KJlj*r@oRkz&Q14maXj4CZom@hXbq&+yXy});BQ8j<-$>jW> zVLR1M3d6osV`Jr3Hs}N@6kTrXIH3B5FVO6-_0(BuXG?eQF%ukfoxJK}&}tgifv}*V zuS>j7EU>gNH)Dn-@7jjpch@x`MK0QtjO9N-C(4T<>jj19b|<1|9LYOPfe1n;M=3jv zKOzb2j3uRi04AB4Zj4S&ZpixAH8qBn4v|5;kR~*I69OnNz}q=qcz9efYXUIyw3w9B z-7e6{9_W`t{tlsaO)KAg5%AN4kx2`SN2}(Sn}6oFp{@Q-7%%*9xj0x2YAAfc0HOOt z-{8rwLoFi(JyvX`2R*lS2qy2Qg)R=u+5}u@u4@v}#XFHe^?%&KtHmuy*<^9e;>^32 zqZ8Y517>9bk_5|IBmg0Izf*7s%m757{2?TqIH>h*VnIda-~U>wuTjKZZdwD9uDT*n zmgn-5?Hy2UB0C@kYtDQVAup0|D-}e^s;Hyr5x*Om33o~ktNdp&_z9M@Gkx5$d>z*V zeRsgfEGFoLPiSdcX(ypS?aANeGp+G6KYwM_!&RC10fECk4g;Vr*^U@z3=OeO8Qy}e zY(X@Xjc)<^Zt5TwaGP72sCqw(#4#OA(C9XT1yz#=n?t8Sf$3J;;fxPKSLohjGc%sS z>R5mnk{u{(NRxsZR32t-E0l;(1U3)m21RnWwQhv~CalKrj{rD&waYLpMV8=}&9}wp zk19Zx=%ku=4($V;QqKa`Tb+&8&R!63OqV_8~<&(n>vEzl;z#J&4+kk z|DO5Ow1}$2A-AK!>fW#{6kai_XmZe;3S<$|-9}@aTVHTD0wz%**jp>xzx!4YK`l&h zu2fAaKz4OlU)X#G+(k#I=QO>4PW?aD>^WJB{2Wp$g}eGok{?)LH>_WE_O0#5ziZ;} zK^bqimiHlr*MCm#)m4MIvY(U89@%hInE;ktOOoHVB>*-E=O?M$6y|XkB@MEVRL+Up z@$mg^X@ooUOZK^0%Vmk(-G}e}b%L^%hGNS^uG_UDlOT5cC6A4(>2Ha+NLROXnXKz^ zVomvu|JNi-AYFzvHj#aNho~VE`$H>PN)TWoX@Dxx@VPo~%K!6UdoM4}7Rf49Yufmq zrYrn1#|ZN6`lB#lwj@@ack{@$P=Ym`$4f}~-$3@63AV5|Qi$pqG#6~}lp52z%lFqrnM0i_q=?tNyOhoP9$d^#kAS(5+ z06>v^UQ@L$YXwZShmZ7W4h5cBczX0Iiy5U7Z$0_B4bVTob=7+<(7nN2KnlVDdx4+*hEp$9 zDL!3UHV(5p`oP1dnu@XICb7WoK(Ibw=gRd%+_LiwCV<_Ft+C}981!+AwHt4d+v-tl zLE`@h2w&mYk9UqhRyb-Mi1-b<<`0Xs|6Pnv7?fiSe)ZI>#W^}wd+?6pv=XrKR{k+! zf1+ml@V~WhHsETLy8m(`QYl)Q2;W%8bq(zV{Jf2Dx7J^TV_ z;SlXAJW+!;XmAds#+VxXpD=%0ffs}@s)1U}{y3-C7rl-eR+A1aeEO*O(nRwtzX;~v z9h4?xm*}YuR5Sjf0B_DB=`R~Js{kU>tV|vX+Qbi$;Gk0>gKm^Tl7^)>mFJG?Nq*Hk zYbTH0)kuBD9I|Nd3A(#!PuwiO3H_2|IT89kSqh?IO6t6mUy3j{EpqJ-T-(7qo^)C% z;Dz1be@6(aCuEy{d@!05`DT*MG+Ae?E-D0{Qm%X1XToN$X{NtaqdD(|Z(OMg0iPqk zG1Ja4%DJ~%X;~dkJ6=sD;l`FGuR8haUC82HcC)0oNElqoo$l7Q&`Lk}{|;*eaGOor zqMRFd_M7?Pr`L7D{@cX>LKy1L`oH+P1t^!c}cB!l`MTRF*Qlv+Qm5eS@bOc zrW8?I@WeApEyGewV3EZ~KQn;T*)n5*CvF|ZOJet_=XRoAvBOGgzJ8OyN>sWfW0d^r zhlBB@G|Q~l_K84KUc!1aU-S5dAkt;?74ha9yMdISy$-A4oAvzMk(d5{f$WVN5ke_# z*-{`nI%%vetlW+gt-r1Lqrk-02#j&!Nn%&Ff_9()Kmf1Apn1`DoB8saL$SYK*%kNJ z_r_OR-Kyj>i+1EFbGg1Xl;i4i4X10!8CBE7U#Pc7!pdA4xsAa{GHBRU?o_03$?&B>g}2;4`F2o{+&tgmdtk;oyZmM_y-HePyj*J=><7pmF%R zMW=D1f>E1%C|_6hpMf+lMh<{44Frx}Y#BG{T*&u~DztNXbx@x~j#{3{6Bk<+1>0Ob z<>r2**F&fMqXAL{Y!AmMhUblV1oYHqY%5LkbXzcoDc7Gdp=c;DIz~PHu*12(OBYcZZ=0%-LSCg5`bz zmisDL?ibMDT!f%kBv2T@b+(hpyfAn=KJHJkK`Kns;d{Nb? z*TxgKf|@e9J4-V4Yx%+Zjk>~n@jLEAm5k%5w||}|_rIQ}hyqI0WoD$Y+kA}(+$J$% zlQF{+M`E#X(L94@c|Y^ot0e6q$JUJ6s@jXMntShT%gcybK# z?Ncd(j=sn6eZ#F$olokIxC+}-Q}6wr=@S>*6jf_mc&ta9KJ&RuPgXs|9gpb;-lW&o z^zf~kz@)5t*5hyK&NCR>;$H>SFmx8N3lVQHJnIi3yUY=J5^n+h#+L^`_SE zjQD%%NjrU!@T}3M7MNTC-u?Q7&+Qj~yonXJDqUaPtn1%K$e8LJtoS4&@ha#bKk2#X zD2Yq+_=@`ND)ZK7l|P~^)j#n#1>McOFZQq^@s;s;&!aMVrf)2*j+_D7l;!#bz8XIs zOkLQ>n%K?TTr(hR`N{KI<9`2DGEdwZil{4nB#fuIF}tMnQX}`u`?;(6vtgF#L@OgF zvuuZA`HP_n**mr%(MJCR82bNSee a

    plot.modelAudit

    +

    Examples

    + 
    library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+library(randomForest)
+rf_model <- randomForest(prestige~education + women + income, data = Prestige)
+rf_au <- audit(rf_model, data = Prestige, y = Prestige$prestige)
+plotModelCorrelation(lm_au, rf_au)
    
+
    diff --git a/docs/reference/plotModelPCA-1.png b/docs/reference/plotModelPCA-1.png new file mode 100644 index 0000000000000000000000000000000000000000..883134ef8db6a133a159317c51a6cffe1e9ecf25 GIT binary patch literal 19467 zcmeIacU+U(vM?M`u+UYCAjOIe5TytaP_b^B6_gNAP?Q=7C4mr7Q9wXIQ9&V~TLm-} zrG=OTL=uWrh0p?th9)Hm0Yd0`p8#(6`Q3ZI>$&^={(Ix2!fMZ~nOQTlrsUpfs}quI zl-7ViAjwlFkDdjAM3ErSa;H_xftKNuXFh>I%g&v)IDZWI6$CN@fi8hSE}(sAkdYC{ z$OU8+4{~tp;-z)UY3@zmR`VvwT!L01bk9UFQw95 zgv$XFKrTzu;)Ux87XUu-F7d!qS5EawG0z;8XVRf2dU zP`nH97yxHfA!S)F9^Ye>bKt(P_Me)GnQUnYYjs-q6 z;7<_^_*YOQpcM%ORk4;;v0ha@f+~Tat*wm~Z$yiCp%np7{L(-g@DTvRX#xSAPVd2b z^;E_7Q~@s$2#Q>Q`2t$Ja3x?+4_43vEF)Z10L%~whb(vA_7p(sYVVVmd_f?U2;tvl zalPDYAdouf)X~G|ktr;UXV}KdKynV9#RC6!KlXdM2y^-oJ#_@7&k-)PtEZM&Iy zXp?1ym_?Kmh~gkp@Vs|cVEr_8;ORhM==5tZD$B5cIUbzEE`eC{+UbLDQ>)j5K(8#| zD?y+G1~S^9n~G#{kh&OG1QdCg2m(3%hfUkFk-6LVJIrKFeJvk+J)?n3A+aXtp-6uO zoco1+_z5v^DB*r6aefq2(_WJcBM}dLa@hy4nh4kHMnGTPD<;OLyNPNFHSL%g-BmSj z1_Et8wuzn$&fO}xi;1tJp+c2xLI}9%RzfrRa0iBdn+8rr8N{7$__;LTOs~1 z&uKgY7ChllIYXNix`3>lmcTdly+b_@+fI9njL z_ZpP65fxX08si;^j=FM2sPA(HOpIecJs0sM_&RSoDAD>lW0<`Lbm&kJcb-9z)HX>W zPT=lQAkZH+$zD+bMhMm*ntHPQM1-^mC_a9iiJtKG{QQ*TowH2r5 zP^Ly5jF)|X`54){|C2l{%7JSGHa&QI#+#?=mAmYw(k-N8cBN8kea>FnB8bHR^c}K1 zXu8#1@J60vS6_I-I*RY6gT7+Oe3#g3mAdbx1ZaE}nV@K$oq1fTCGja$smKj<#bo*L zM8T6`nxl1wW4(58e@C!g={W1<^y8|maJSjZ{&Aja=HKh-WR@Q2^cERTuvpnF&F$5d zZFF8;?ofogtyX$yot(XUz?+7kLlecw(z(ez`luVc?agk!c4gQy(48G*NZnIR@_QxM zi4(%WPXfp@0@;|fpuMJ z>6N;cLxFJ6BqXm&5jK{iD(wLR8Ls8FI7^N_2!F|h3fe;pZHf7$loaY|->Wv|E!+0t zT0w`Rj}oKbhqs3g!PYao_Q&xDfHjP|x^@buYp&(mEMLjT4$*sGz4zqSb6%(@y0s~3 zM@AtKy&dp1<$XUm^)wJ@?Mqost-rzbCMFUo<`_a5AKOZwD)$<^a))YMV9S5Gf+-4; z3H#qRC7dOO0{Tqu2zPrYqHb(F;-m<^Fdh=)K5`W=3zLn9h~p{6Vkd|?nYr?Ccb_^> z<&E5m=OuPk*%UpTr#D$SY}#!TPQJCXs7w|nF^Ij}X=m?CTbj_+xvq6!FrCF(nq=X- z#X&D;aUez4fO(-?X>qlG*6}az{EvbBoe2Q2;yapu;-RTC()Pal;@)-Y?jx!HUB{{T znd+GD{12;t?J~S!uIJuI;;+dY4)PN;){Jfb3n|xrbXupLtd0J)tFx|@C27P?}y ztvHj)d`8nhz`TDLU8wG$nS=LS?1&zy)9ZjNfVAZVI##v7ui%C5q><%5(H3DrF<8DG#V;MnxyqEF+&M~I71Kc&nt z;b*xMWll0Au{J|#k;Ju=10qz(d~NP66D>Y+_wvF?2+RP+wt4S zr>|V=gg9E~hU%}Dp5N@Sa|w4_@{urGhOOhC96z=2N~L1FzC_u?;iXpwQV7K*7_{Te zgsUx=%|8)H*JK4p70E0SqG~tYAhpgBS-kPek6m=L`5pCyyBKS3>FUp)RVo*GdJEq# z&k#+4Fq1wli!w^Hi@B}vm>{}@Zf61p)6G+NkTn!NfEu@uh3oxIHqqe=paXYBTc6nl zMwyns`;Wx4OVkX{D#<^GILZ5}{gX5jP&77N$%-^?uGu5Ma7bmM5P6f@2CW-6;S_}| z6#lNH5EgMpd+zK{0r7|j9S8sci!6u_;B=VTG5jIClHu2mfP`3_WJ65oYb7~mi#EfqZ#QjSXHt{^s?U0k~mZUxtyX1$a zz3l}gwD1T~nsKj#qN}^s{)OI`ucnL6z)s<5m!Byw@#LcmjLB=TOZe`jzT-=*_L^$& zmi`rfLZ=Qh&}S#WJS)P%fStemI33;$xy+X7uEjJGj1fZ}bfI{R**v6t8ukFcJVqCB zgfl^V?~YoKlxwm%)v^&seADi9UJ=`16yOP?3Agv2XZ(Whfg^Z(t|K?gI~-=93+$s^FEU*{*ve3Sk76J7d}zqF=STe_|n8H7a8~< zN#BMIJ8;un+|n^F&nr$BqWg(X&deCB}8913fwIboXm_|8Uc3;~aVQLd(fP_m}hs1vts2v)=tCHzLTAMtgpZ z@7zHz5zTFf<<|ND_P4c zdcyE#X+nwNOA4aGo-sb?sa;yu0huih*Wo8@UX<5_l6xmM8dbrnww3=eR#czu&=d@6 zonO%1iYWBCx47up`eVe=jLD533qu!pu>N^Tb#pXQ`p;0W-evYP3+V3NGno7%Pl2nt zxjdmm`ddfog1WhWma%oPZYMntma~a22UXsL8i`e>EB2pbtQf3A`dS)CMIi}a@N)2# zoHfk*K2|&x2NERX!nck4p@(h(J){lw17wL?$mr(~cG-!I0Yuc`#{Hh0qWd;ci2XQ3 zoa3Q%6;ZC3A#Qqmii5mSk+CPF#0&Cj{LA^@E!uqg{Xs0Z13S@<`uZE&el{ZD1kfOx2 zQjo455Hn~MTh5g~Ea=?H&Ud9K>+WLKo$L>9P$BLHIK;3Oahdm7xY4Go90rtTytG#+ z%f`Fox#f~M~+h{}pUDnBVhchER@qCResqbn{^`DDkws2X~{ z8%M-@(G)w7F`ZhX@YsRW-%Q{3ZP7aLInKLZSMo;|eZL!L^UrZFr;lflwqF2vE&t|` z1yi9rW>DF&?6Ef);8|H%kUlE?%!s56EN1^(Sn})q>Sp&2dZd9N1lpuAxm}10Dz58m zyDq@gFmm!UR=w-GU~#f?ch(>cKHw2mMDMv@BnO~lhx_x)ajdL`c%&YXX!q2T^Q0D;D|%dP#$By4dELOY#(ve~q#3yMNXlqWqxHjbk*JqIYt;i(WDVUIPqWmn zUom$yX3;<^dQlpL@Wov^ohZG8SuvjHDQn*5U*;1|j|6aj;ga4x&5#;b^f~mGkjaE; z7-3t-`;`7N0AaQt-r$G>S6?_|$zY^;4@W~~;nbaGu>J7EnqJF})lP5bN`&x?Jw-F9pEJZCte9P4@o`fy7gwd#ur`99a*IAMS~IsvwMSk z-YFM}JHKcFB0zRA2i8AU=01srj(qR{gd7y@zNSXS26hE7*54G1I<`o1D**ZXa1>tI z46$Qp4s6Ba@kJGTCf~w=(U;J+kCMRfc8ERu`G79|sa4UZ-ILQWIY295OWZ%#qU}gi zzOZCX7o#)m7bM6b6oS0_0Mj$t7Tvl&dFD<~em@&&`P3M3!rnJo^aRn9`PJN<@iu6RJ%kkwtJa~l;`v58+IyAsWoYzmOmZs`7b zW7ye#A@?Bvi5u8qZ&9pLpC|+EZFO#o##o+3HHIpo5=lPNN2#vY_QZuQCVFjrkm)S0q~0P z>DN+er%Amy{uRK;v|Po!U*@+@v!>H)Q11pO%%C;NYC8bpsF~+NC zq0Ac)GOZy_OLx49J}pPmwG8lWchmPmJNC4rW&~UzhyE~Mh4O1+IX=2%SW~}kr~S;m zrCX%o6T)SlywZ?v4xsKA?>H${(6>R+5^`m~CMMu(&ckj!a4McyC)Dy{JnGsiXisE$ zB#mIPbWJkffw(oO;*Uymz76Hx|E9v?Jf)P)C&{9sr;@L!O@ZO`Q zg5rsU0pD`#x=er;_TautJq{_TW3@gfztSJX9T^%>128mY=pzT5Lifsz{_Nh>xPw!p zScB>>Th!)ht)_D`r&MPyh3ta^9H8TNOYY=W{@@+=6!cSSGPBKE1U|q@qt9(kn3Lh? z1A_E;3c;sB&$=Wlk#v1G-G17PNCPCGB8+|ioL6^eO(y*a1!ZSpJabB4u!-&|1Cxz0 z;P>ss`49G%P(e)?3I84a5(UrJ;)6u0L#iVa7@P=8R&08FKLcY_!<|p56 zIDoSt9Vlb=NcS9;L%y++W$p49o<-%wF4fVKg2h!Ca^ou{->`KFPi z-I2D7$KX{h<}@i%fm;F4Ff;cF8Gr5#pGc{xD?G5kX%7z~p4HIzD`+=We_B`~S{<>5 zmr6ihIwUK);1$uugERTfV~x|IpTmFgzb72=;qzMqH!OW!sQE7s$m?TltL~_w`*!ya zqR^|?7-1Wb>YI3{$dnV(fMLA#pz#Iq9TQ)!Yx+RAPn-h=w_bH z=EU;(j@_?GkZz*`_ZPbNCs{p7ve_cV%88SOh1zF01Fy?b@tqal@wMp)Nwe}!gre&q zqWc~S*xQ~AS<$0X6bhb%2;2to*2ic!N-R;R) zM*9d1u+}gmY9QI;w1QhhtNjlmzMkFKHT9;3?o)&)OVWORNZ6?x()^Kk$LJZ@b*B|; zwm9fSJAK=NLIaGH&vKmcACcudXoRcwVZOeafM@4y0WvNV@rVW8ms9rCN*?e8?6fDY zJhAck!n738^+Hwgx;fcha^ekcXsju}yTiIeOuKKzgx$W`F2}ha^%&DB0>)YLJ*Rsw z#=`t*Q*}}M8Exi;CM~34#=FPJ(3x(qoM4)Ri_`m9V*OEMjphT<_0?`)oEVTqk_oeG zdINOk6yclb+!wcP^ajps8N)JktO*=CVhyQOy3Ei3A==LmQ$@25F4>j4VA!q*ty+SM}X8HGy;CJYw<;|~*QTV*)8oY^aL z0zsaC*8GggT|lZ{XFsfeZfMTaCqvGcXa>+43e(i-o@*odW8hFDfxw{fW^3hODd!x( zEIxf&0}^kaTIffhqQwER=2Cf*$e1fob(-u~^OPK&ud~Tun5?d!oaw*YyJ38$cfnQL zC*iaM6mtD(tv4vB(FkT=$H%RKsvOw7TVI#yR0b;%ti2)DHf1_|!_mzY9N&bsneHiK zdZ9s$Fc}L6X>(PLY(Ak|Pc!!RtJ6s>n9X#}Bc?W`X&**n;W9$^bNGf*q_iupatyg2 zWsrfKIpcT2P(-LN%46(_GnI-qf;N9#AZhXP*lbXr1j|vOdgWR_uNs7su?s>?JNKTeqVyoZ#YNVw)LldHJk?%t_|I7(;|@m*PMfXUL( zoss$_l3nMEC8ehMF^K=7UDsXyqrsp887JHeFK;BfYY z>+%Ji_9$WIQGh{RUNV?3(WO|~LHIG->-Q*NQA6#-TRRMUU2@gHeVhL(v(c54He>@-Ms!*u103zpQ8s}y&+X17sA0#R zTmiJ__%S z;cgCAZvd1nd6{HO*4TOxQ@{@$p^eYHr_!xO~pLU32! z+1!Ypp4nu2VVd9Sl6KjBg+V4<2h+EEW<16UwO!cgnf3{YwJMe+#`0k$^*H$aL1a}Z zO0ixxv}_QhBUlx0pxfNV5-?K!)e4{rzQSd##sM2j}UaC020-kFKkCJri+S$-e4MXBCs{+vzLfI`} zkEG}>(E?mji9xFjEX{daC&IEL_Gu0~N8`L5S6>-*lJ%7i53<$(6O!G{RCj+baeo+4 zd*?C2_{DjqO7n+v9pGh^4fp58cZ_y^JxbI$8&LbG)K}c(MeLuloW_pVq=6?^7TwQ+&Z&+6&XCNXeP-r-kVW>-zhBZ`3e9@ znXTDf9>!rf6B}Gz$4%r+<9r0I%J?EpSIOvJfVnGY;?c92p6WAhBj+Be(=+n1U8bS4 zV~FhuG?h52XTH8VUDa=L;2D0UM@nzb*NX_dlPJXV=FUi*rVqDX3(09HEq+G)!g>g} zkhVSq^Av3p)p8%88e853Jo@2;kWy8YC)1vsW0K}6qgY#nBS5g|mde3`3%id8`)YQT zCC|VDWBl1KLbYEvYl-g&7vmQ7_IxfR)Kq>a8p;~!{>%mVfZ~3cjmB07Mj3GY@*Z_C z4jhtYTDo@aWU8c|qiE|-t{#PQO_D6Uf{g^D-+P!X-IZ~s#VMV`$Skkq!Yc*hJ042; z`I#PB%iT_D%Z`hOb5>t0a>vgbotc4$scCd8!g%MaAdiC_yRg^wIw!Nb-+%CI5xann z&{tDysy+lJ~22MvEv&D3*Eb5tWkzRU;4*Esuk=7|0|EtT_8 zgbb;u)4S!L5x|5RWMfM`!um1P(;N6q5*`*x?Z0STB>CqX&WO~W!$eUFjiwu|mc;uV zgy|Z6Bzxd$Yn;mV{{7-t7j!&Vj@KE8*(*|f$xbHc_B z_vZ;O^adH22|S8Vi(>?iW%J+0eFzSO>EW`P-W$O-xYRN=9~_380|MQz0n;rl?Ui$F z%S&WhOF~tj^o@&knnQkBv9!X=1qQ8auHEe1P(a&)bIP1+Jd;rZTaV}j<;w4js@@h63z=gG?|cn-xF>f{UPjG{Zu`*Sz;yF) zWeM~k#@y~6);pw(31(Q#My9^yv54&sSUxDt7Hg&y)awLE*X=n)CZX$O-XLj7}xUiv6i4idtefa?U*_j)0_ zncdg1MtH3~n1*z;Z^>60+|4lgIRXRkC$&Mh{vf*2{r3p(tH_FhtJ(_E+lF*P5&l_p z)PdDJ>eo$(5Y_|)|HNM~~g@2P`2q4FDXweyxum&f&I|OA2qo zBWs^X@J$!=ouj6vZ{iC;LsbeL6hOeQpc?u~(ads_P6uGHd4wfyqT6zaQ!UqxW2xw- z9nCl}R7|@YFaA}FN$pl5%5dqdX~V>5XMcw78Xn6cgU0*Px$P1n3dvh?F4=ytJT2L) zHRyz}y5wpXUz+Ae)~kx_QL3qH!8dx--GPEnL36pKFqB z;ws5acRGsSFTpBOdmd8Kp>-*9>w*KJodQPtz~J4XTj)n)wj-V>yJb@dkxBe7A28lR z-WrQW1kGhuuBTJpe}F07opx)l#ki}Q8E{?Z_ujKwSVA-s!L4RT8mxA%!oa34YH$Nm z4kaoG8Hc!vYvnk9skLz35*4U<^%(!JUXZ&B0pA)K7(=KHBze@lS_~@tsCn4m0>P<- zJKNk?E24zALhX~pF4J3*TvhS`#Oe-Daf4RCX)J8i7~4z_YwOc5U_TnT8no#CFxW;* zg%jJLfL#vwo5j~^n@O&IS4Hx_`vVJ2m`Kf^swvap%L{v8af`3Ftn5qr@#%vUo_{3) zHI#_4WP2_wwIv(2I&>YZR^+0?aBKl7`pS&hHxPbod|RRz12CHuucM=j#S7$N&M})V zpfctIEvKvNAK~Wl`+3_E#27CmxFJ(v28-MM@A5x6fTg za{C6&w@a3oS#e8(ukXVnLyge>FrWG^c5qgXa>WK`wD{8jMk9NgqRYa}_v;O4ghd-b z9QV17sO*d455hz8Na(rC6AXiyBtXHC4-uQPqq_`GbwEazCy%cqCnpCp(K=)7Ar3v+ zo(O(AOV6KL_eI-ea8c^V@HCGR#aUkAd*yQL_7tmn#lI!jTFsUG?7KOsc#SRz)T^$%C0~;+g&7BL+IzqVPd`(7I&UJIe}E==6xE z`H>LO@<&PrRjRpu5ag< zf)Ya#%J15{0l&O@W}WeHIY2xKJ@WIC<-W{7iQA&OvXIt^O;e5--0Zp=R4 zv=9la>CRKS5ke+uFvfTUkY*C5{PG6#!=GB|AK2Cxdl0=Rkj+j77s&~O-vCW>f~jrSZ!znl7ULUYJl3h2xUo~3 z^c>r-k+{9~Vg1RKGtptm^Lec2%bCVi$JrjCwMByUg*{Bxf%GV(c=>|BGBD{Pe6K-e zx8`o5hw1wEe?T|&mhWx?T)??6t{SwC{*+T03Dwz9UWk8gdDcEMDn8rw(uP_ZYfIQU zhW$`I_rR7P8V&#&4^+&+``TI!Oh)>9t+g}~lv%cC)ahX!)-`LvSz{W78L3t+Va`4t zsg;EL!q8kQudhR4Y}BdH_%$Ta@N)qLpw@aeZinj@hIaB?lCeH=gI zcn`7i9lN=R)M|=v(ky%9xfmnQghg)B3g}NN;tyWe_FCJy+JZ(iSWq;}CDNfY6Ix#F zl{@WeOW7vYU#mYv4EJ==FUe!aKNXS|^G^6Hy0ikMJE{pJ+1w>Js`2qwo$&IYQ7;&I zcln~?l5PsT!H-NM(v-QM7agz+v+?2=`gTGub-4S;OZ<$V3gB_M=gUv7-0Q&Ihq1Wp zKH`i=`KPv-!JnDm%?+KJROm7pSqoT^uI!Sg%Hw++ONMMkl$s`r0H<7Vkxy-E zbnLjHnTG?&Fij!!OWtl`lHR8M5x^~{@FNYDRl}w8 zZJa!ssuvO=rpPmYP8ZxOMb4HDhr${h4-r?NOh6THbK3#|0++%grU4iX)ymX(cFjs& zM%E_!idR*}-#&i}OIo5*GBWpi38|DT$F%%7f){PU{3IW(t}xuiu`Ag=_zp5*ueTS4 z!rmy1mkH^fY}L{{%ycIw-#qMFQ{YZpB&mn^jvTdGZC?fZ3*96D)a89Gmk@4Cox$ee zYAyWczJnMGug&xoK%gD@9^Bta15$thoi{}W1C9X4Q5&WCE^{*YKzWaiJ0Iv=2qSJ# zd$`}%v%DZ~yE3B)Y?F~~cjh>n7B?sH0OHl*p*zqzLAbm7iNcu+H>bexoc7@ zQ7hgc!^RYYa(0_qEMs-8UVsNmq#75>#c)**@1T#2>yQbn7s7E3nsjXS3a;3hE_-*K zxMf_g+Y5BsLwEZ=5>aZ$^{;gHr)5bVYqs5o$)XD9RsWzQyGWT!TY&%Y0&pZLZ_4pRB~l|b0Tl#~Mof>gdnyR#^O2(Km#?da zrub)cdvVqtCOYLs^JT}7=io+&dmSpisKnKPa_N!hoRdGjwf87{v_jGCcn6*G$#0)d z`*l4FEt6sWlE#BJ43!iYKr7i0ws>-GUs-lHX?P5|vKSYRl=j_wyk-Pl2k4mvS%x> z`@9FVD=f$I(xLZ~Kx)k;N82H*XfMu7lU)b+XTDl#m{(;g1+P-rgyZ`kCC^Mc ze(UWsv0{p@A5gRnlLj&CKEq?mH2DwVzG(?a$px{Aq#}$9h909V@j$Hi41j$t`cST_ zX~--#MD56#S4bf3kA8#aY}~2HE@_{>xx0_n8j<7c7#eK&)V`Bb(jb?w<{qgLnEGeu z*lMmkAYzG3Absx|>uEH>dWR zL93cE?Ke?pJEnXaR$`hs*qP%<+K>94EuF|oW#|xj19n7)$=mex#5o?^(V)MTuV9+e zQr?L(!3b(hxL&ZJP&wz2N39IV#w&(B5NwStlL2xgNlAPAkq&p9PlchcQ zR5@BY5xX8&+^R?W*6TzWXZ{fyheYV3OJm<3{2Uy0aV*vT@n9rUnl*CyZ5Xr5?bmAz z)2Q$C^7ewcHFBKNH`kSP(^b#64n-^9xxf4KVCxCiOH{O4zuTB(K6(yIa5uWEg68t8 zV?WF1(QpI1DrPga6*#GZ#q--Hyq~&p6gl4k6#Abe(j;|s)BD#gCS;0b78EGT2Y#4! z>P!3V{}`#D5X|FEQ%7e89p5UXYF&q4(C%~?9-4q>MB_~CZ}^@d&geranfg#D!K8C` z=zBa;ngeXejM?S&3tN!}ANRDEPI?R#K2CIFH9Oetey5t}P`dZrSY3rRo<2UXjH^oX zo1o0z&kx0ul4M6K)3WkZ)^f^JRIU7b`Z|uANl5l5ETuKyyp$K(z7ai7)eeQj@>~p|>7^6aa{A&zkxkTdG5rF#FYnWRQ^#xV8uTrfq|%MF=>Gq*R64TM z&eXvvF0rpEFFjdX_bLuKj+%=-$LzwnYSQm3yHnk@*;K}Pv*HLc3KONZ7U1NBHAV-B_q;c>FP_vyd>n%IwXF;DdvTaiic(iMKebM`vy7| zW=}m%m*;o^Yhqf|*1@}B24q5)jM;6#83VZX0CYDdSq02-`7RwFc&D=88Z)5>1K&?w ztfH*jm>hRE#rG%?JBFBh;n#FOu$WhBPb{?00fr|h4C*}Kh4t<(tEUsT&@p>5DB!tK z%-|Mos;4Q&BY%?^r3FxxvBES6AQ`uBfbiAJ;NZ+_ERZg@QJCToZbKZ(opx<4a(ot~ z!2P_C#k6CHV1$~nL;O*?K5Xd{afg>}O{W7vjK8G}=afYIA{1F)wJA&4+!8O48DTLx z&5ghEe{C2~y(5~m=FUnk)exNLVI=e_PMiHo|2>0V+48pmub912iJeXd;hd**mTa&B z0QVkx*{m=bn0;p$(s)BQSQ-GkxFpg5aWgg^tb$Ve{#_XQx& zQILhK{jax>Kn}uYb=-P#vJ_cage$)c|5}~yr%sm<#%(l3x!dmmxeq{&L_A~-({goF zwaCxm>*Y_U067xE@qcCL|4Z4zZxuoOPJO|@tzfY5{h6%?)LHyWx&?|c{>oJT=N@jd8PO_(EA<>>ho{1Ciq?n$fi^V~ zMvr;|S=SYM#WdG$xjCR&ihTNFg?o*`;QZSer17u?|UXMbe?t|A||WTZBh_k=?TXc{QQgM zMWX9}W`F-v07M7U@v@6WF#o*c?=Sq1A^fcg>G(^BUMytp0}+H@bqme5(SN1%|KpB-i^Jc7 z@ON+k0Q<8P>HjVP{!Yu^VvB#YC8uY}qU#sSqW-TE;9qF@k0AUl9Q?ndAq>a;)?xa8 zN8|rP#QvRA|IyJ%&|=|0pf$&Z-wW{HAFMbtV#BgOF7K}RxrmHn4y(|Z1VsnGR*HVghMk^k)m|E;n4pLhIQCiyKA{0@=-e=twg zB7nN`=OV(d!1!`cL29$&-CJS>I7Ow|6_EzwKym2*^5@^HS~n0EOfuM=Q}b!FP`2Xr zGDIlvB^YtTUB!jXV*FVBS55k5*=lJ-r6mdWHsz`(73}9MlnpNo7 zIS=)3K>Fth;sQiaX4-27S8c?bsXG`m=Em#OYy@f0=s8#Ro|pY;p}GpdI<<01D~u2l zWNbgqG)G&^q;$-2--!*Tr6pq#Jb|mbs2^J~(qPMY-FUErBNBa1T=8flKJGShtSqf` zV2YjLuPhjgQ|!5Lq~An}Sy!2hUu6#bzXCG@B#lvp;4! zCoH9GiI<-HripL|CtY;%gTHJEt=o1>gq*zGh<{2ZH#Qw9kcOUHp070ChzIiBeMh?b z5g}=^Csx-?5o)_H9PW?32{amtU%c=RZYhZYi!kdx<_S?7t*=FVtL-o}GALS`@l=;S37_a1;^c;P=9GR28R@v5v1QrD<=i8ivMAv0 zmi*r6Wk8l%((sobSc3TB5FdP7@BM~Ym=4Obj5Y>ywAU|ripCYOqHC(Om*3o??y%#I zBv%WqEDO67*NMVpt7CNGUsPBH%h373ly?Eb>t@uHym#2!`Cf+|K8Lh*ZIz+(|z{|yLzihg3lO)9UIwof5-Lse8zWrS& zGT}obP%rMhrrm^F5`x#kWC4*s6hjpDIPAUHk7WR2+hjQ`S2H32+Vt5m*Y0P&w!|UZ zT^DS-%N#u|HqkWb)jbs&)P1;9=&V7kTW`ngZT|F^UZk zNK8^`N6{2)jJnn~p?ao<;Oj3%7B?0mqw>0*p8{tbi|89`e3r{v#~J+r5!g76*l6pe zr)+ZgAu0r4hBG_}_bS>%CeVB5${|@|akzQUlF?#1v^yzMA?OwW;Y5zT@@b-VTzy!v zoupo~xTXz^Xxb&G?M!Tx2FTsGo}*ABx>kik2)Xw9OW!J1s-}Z|j)oNwYtob#=d9Dt zS9-oOQen-NIlsKAXW#mw7%fbwv}kQgAa_20z@K-XUTDqt(!o!9>)i8jcCDDBn0m!> z_r)np3tt|4Fb+pTwhD+qI(e|Qb9C?Ud$&(8%dy*hmpMV*CCM!Nu#lw_)w;`1j$`rC z9BtCk(c2=AbtQ~tj9bZD_d;2(O->reA^dmN0g)|(A-eF}sh~5TBXSN~ z%V@_W+_8OaKXSwo`0R&b^dt52@E$r4?`7Ecxf(iBc Ar scale -

    A logical value indicating whether the models residuals should be scaled bfore the analysis.

    +

    A logical value indicating whether the models residuals should be scaled before the analysis.

    invisible @@ -134,6 +134,15 @@

    See a

    plot.modelAudit

    +

    Examples

    + 
    library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+library(randomForest)
+rf_model <- randomForest(prestige~education + women + income, data = Prestige)
+rf_au <- audit(rf_model, data = Prestige, y = Prestige$prestige)
+plotModelPCA(lm_au, rf_au)
    
+
    diff --git a/docs/reference/plotModelRanking-1.png b/docs/reference/plotModelRanking-1.png new file mode 100644 index 0000000000000000000000000000000000000000..1e1ea3ce196f8d38522dca11744b8d172faef420 GIT binary patch literal 22337 zcmdqJc|4R+7dWm(NMx6NU&G-Sy(-)E-xeLuhdf8W2p)6;xD^W1ySx%ZrN&pG#;bHx}L++jG&eU^%fib40T zwh0v#HJpm-ls)Y!@Xgv?;|?mS6Lm)SAL@WVsi;(`sGO-(RjE|L?_?@x@M)lGM}u$4 z@5mo#RcG)?R&{PrO-@!#2ES+Y$sZSeeGh&8Fn#?*eHRyfmu!6x4}FhBeUA$Lup0fu zUS|-lD)@k-smK7pPja$za)Wd7jB`VSa|8HI`Uk>8Kao6?{7Ljk1fL3z#9ohz3Xh5f z5PF!4epr}GSPd=_#6;T-iqFZiiO^a1yW6zehm&+S6A2IOx575+K>!B&JD@Qp8So)BkY*Z4 zq~1jR-b9by3h+tn1p$GOa5xZH?*gfp)Z0rU%_OVNBspF63+8AJwxBclb!FI12gdMS@? zZK`yYd{h>K>8@Bxt)mC;%X6*r?|kn^>55)9V55HpQ%T9d7_426ELl{2zIMh*4W4{b zn`%qKQ{zcXneFyfQ=8!ZgAl5XKMxB6^n)Kfc!2e3prLy4E?35eit0sG82kj4aK!)L zueW!A-C^(iqr%{yW?nz*rxdpw&Ce9<;TP+kgp6FX~$`F#amvq zRbZnCF72b%qR+){qg=?FTR@}Rt_#%*sebf9msiz~ovAtju$TKv)jJkmn4|i^uB#B= zqO~W>Ym)bRUbpG`x%VQ?y=~s9PegDt3B*Tub^X9|aLIxP@@IZc89qn#k*F)^Z&7_> zaKaC7knIOwV)Bmhz|K166|;zXg}?7W=Vuj-oG)x<(Ts1T6<8{m+$wsZTT9+aAP04itKSmbpz3x&1??u@{ejclr#>u z4R_iPx74X3?_|M~3YOy1qaxr*0$p)==3S6Ed~d~g3M?_(ogbymIc z6}~D$E>41{eUa22dZ<0e;iTJDf>?535Qw$PoR;{Jirg$1j`5hXpXEZ#Rsm4^w@QQ6)|o zTr%et?+OGeI*&AoOUB~u)~L{CHT}aqtei^Oml&8!d65Lp;jegOnm(sPVZN4=4nSpW zEP->a5+XH*Fx>|hr&oV`_JXd(!w1$sRw&rIm86A=m5j)^?^on{Q7{A`hngxL*u3AJn9B{}cR7G~3-1xmIC^+W!l-sMHj;Xj`FPk(?fH>PoM zfb09;*bd>jkiT%|-+R<-JtEOi4p))IP>x%6y8(6-CXr-X88jAnwhqikAIJnZovE$1JAE zXYr%07QVHK`wP0G(6?a{JQr`b=bwrJHPl14*hb&wuz8rCEpLO7QsYav_&~Ckf}mT`n6ke=L}vws2}N3bUaQ79kp;X0ZI-b zIc%Q3B7fdUHwGNcO2^7S9EJ#^>6zHo@umZx&Nxt6C?QnzANhPg26(6@81VXOGd(;y z-m90X+y!x0E>>qtHZ-hjgfzC7pP)3qvZ|7?y$?U}JPgjd*i^s%;RGYqs~7OJ#jVZK z<_HbB6I2yvh$pGE|1W;sj)RAuF3c{ua{=+@HlW8zB`An6=K_sNFcVS%r18EW#0j(~ ze>8#qn*h~H1Uwxyful6UOQ(n@i_hat$#z5lT|w6UH~ya(cv*9)WAx<&EqQ4#`STfd zK5tS;a8+0+e0GWuYD4lVsv}q&Xc$2fI_q zmLtNxT4IuD`hrY6747hf%9V6UeKLIs%6A_<)8&+9ApbyyOcd4ozVg0E`Qb59QfJDp ze2Gj{b9v~W$rjwjH(_K5^|kh4RZTyOZjxETZAtp*waw0ShK%&RR$Sc#X+wxI`SF(u zmKQ4$)hGa%FDaGOnoLkuA|uK13jaPUoD9pf5TZZ5szO6vmgy()%HrczCl<*7Aj#93a6M!n_t#^0Kl;@9M7KrXX1?*) zHR(J5+Bs2)aDll=c3{t#pc&^5$Tq&=;%WFQ4kB5J*(B2dd2Cc;)q_Xu z>5&8OlHK_-AL;R?x4rR4T~?@SxIlj9*i4T~_3`foO`dJ!fIdX|aqMw7$ep|T0L%}i za$_B_YjE`Q%f?U|jr*&1+3~n8o<*5RczQ}M+;$&!K*L9btl?xya!G#tAB~S%9?G%{ zJ#1tFQMlq|ep+m=3t`sc-ebC!VT|h46oBznQJ1eUSCsGEVD$6rS7)3IHL;{;~tXwUOgsU&<-~4=O zJdVt&G$-b;-lsmAC!`+Afp|CZ*k9FAKR0Ph`gHzO7_^cJ64y9YYekq3uJif*q88)y z&aqnOM-IXD%Ui6IOb8u0ATH?jxyV_2~Wz-07 z3qzcWrE$^Ai@=WYL6l?Cx4As&DCvy3zwG6wT?fJW)SM)42()Ha>}&_b&iFsm9#~ZX z5;$NRDYQDerPcZ1B8nv;oX-JShoCNYWg2KW=f(Q7D2n{D3cnL!dF7!s`9{pjorf&! zo(iYgv^z%KX)QYzq%PK@EOYO86Mg9+PLPG-CJ-m=&LNYAJ%wj~^z@Vvd83PIUOI!QFjuzb zrHt_I<<`ME?joLzPfQw7Bwk)wj+G~JT#8HjEakV5sQw#xZJ_qY)C%Zj$}T!*m4Q%v z^DCX6{hzv^_3jK&o0eh9-Knm?QlOqhOgXSZ&q*N0{Y~AY$y}coDYGfM3Dvsas$geN zQ6O*Yy6AGQ+)B4KWCgh-i0i$3(LwzSZN&Xkm8D$djp%7TQhnjpuXI`#ell8~ba(x+ zTOy-Ot1kB`znQs=D?8b|Chtd3#>3sZS(vB#i#f@(xvljW{uX;dp^*E?i>Ot(#_k$bhu7MN)ANCj= zOHn)U2Fo`xiDX(t;FaRPR`Z0cXE;|-dL-|~|F}Z^f${pdl<7H5G6g+v0)UiRtp1xJ zfXoDy3pd7OOHpm``o{rPNn{vWMbPg^CR08NDNhx-P9j;6Nxa@&Oee_8j|y{&VjFRQ zQ0R18T_gni&Yz@3Ub)aGRC%FOGo@Fe_mkbF`>{PLeoAxj`Hk;k;qCr}phndGess^) z{vGboZ0GXFl{(9)-OqD>%i8Du;KxXtDAL~B{o$NwMS*+*Bd~7!jgG=`No72C9dhXM z^X9etPzaKSNW3d|W18VpZ%$Si+)6e0+0T)V2FwQku{QAiB!2rlF~RxrF+K>^dM&x0 zaZRAT9q`+L$&Pw%;Jf8Xv6G3wE$=5jSOu_Mlhk0cW@VYPwd}~;18&s9@JdOIRBnGYqi$$3p8f;b2SUW)9?Iq4i>rhFM34URTCeTqQX|{2|>F{_@mXW)x{W2 zx#LD~b(@XDajFdernTKWYtxP*{kbmiwBFh3!9)bSAmkB}cGn8%J&0aF?Xt6J> zMqVM5542VO#2-HP4a8hu+NhR|f^u9e?>~ zefbvfofglxXaLo1;LTc`gofIfF?5%O0u_$g<4_>_)G0+=nMxpD2ldrOWjkn>124mw z#DDyDwI?01I{si=B!l}C9a`<4r(?#bTQD0|KqG`>taz=d;)g+N0nRajlW@Cu`-gp7 zVBB$kEHy$6HTQIX-(WeM4o#mZh%*ilsk=JLylf}-!`^&-PJL~@b+X>>!+W3ORtfdXsC8`w8`BxnurJJZQl<0?ee*jF4+Es@Gf7{i}Ys5tK#eS1TG7WI*|6Vf9oj`H7X@ zHrVP5{@H;%s%^h1|54t~ukIv@i=(S5G-LG&x*{Hpo(b~zYI*Z}@Afu&o(FR*N-93a z;vBs`V-|nAzt7 zHw^@*qeV3QJhbgR=uB;Fgl^+DKHz`9%|?{0UB1C4ab_jEHOJSYA#Q$|jfd(S??phbr55i#3_no03V*gQwrPUY zi#}f|^))TdzGoGWhu5?gacBJ{1Yd~I)ZA-W1n*3qFhsxB$2U~91$ zF2#o7s6sp-^PJ39%k#-suWDmYHYxZXsXk}IQ-^}ostavICGCEA6KLV{vmBm+Df!HF zT|f1GM903o-Cxz`BP^z5Pw_qwVP0Kdo!#{FNZ4+O1*!M;#B2TQ_ad)8x^LRX$oKK4 zI;hb>Xdd4(19n|qu-OYg{A=>ozFM`?U*Uw?a5J{MEfB6CDmq0MS4T97QlK-G@*2LI z^av(VL5Lf(9H|OD@x5zI4})))O`x$={%y`J{pRzZ1+ep1C}^)zvf%?Lu?dw;SM;$P&rI{|0G_|6%U=$ zL~sH(0gp)rU~oVFMX>`Ad9N0>GKwI3R}cxeXqyHSOL0PQX7_2bF>HCP{xhTD>>$gr z&i7N~1A_0Tklrc7cMG~pKEX++GkC34C7p}N#v6HRLPT~z;^9Dx*oj8{+GoUERZxK{ zA~5{X%#VUnopvWg<2*clRtpi-6i;EIDSp_S&P%AK@^cHjUi!D@2z)xl{g}pIQLP|& zWc=kW;b|8(7rH6cLi1KhulWjpHWc<2{Cw(@smw*Ye%W9L6xATV%ob=*Vq z$>Gp!U# zCM1wO3Yljlw&`Z}o8MF3YoVx%prdCAW18~QJY*7P&)4i@T50rpQ{LY}QENiS64%Ey znX`HSwaN1udW5jM75^Ib&}`!NJsIc=%A*w%QvSwR;TVcBitGLUM=PdxX4rR(jW2l< z*iTXx7K`Z_#x*fse(3AkD5yPTa4Voq@r-8xr42E6cg^r!arAr0ItK!?aV4Li=J0dk z4%vZ;+N;`U2ufw=d*4!TC1~{-a%B#78%=K}2vNK)aZ^hV5$<5x>bF}K}n;s*nOMma9Tj| z%sLHaD&f1dyi--8m(5g)vEfEC;=jKj;GcQX&=;h^CvG|K2#>L&&l@{X-JQ#NfMV1d zJ!Q}f(r+GY0YSw=r3@P`s4u>mBKjCc@%{Zz-=5ohX?!EXHx0L)^CvOy(q_tOV)#V_ zj6dwNikHs&Ef*|Kq4UJ9GEd;GB@x{weu^JoclTUtxz&lQi4*ItFv4M}Vo1iwoz%y9 zl*8{b6Bj&f_pujuRnE=^uIiX|SrCFai_hzHmYxbtt^e}ohQlh(_i1=JYw<+*t!?l? zc?O@S={z|!>pSAt^agvf?_d&9MNR#Sn>=~7gptA=6c(y5lVSFY9um}Tm2~Uc4>## zoVa!S3I4irQO+M)&zUJr!lm#bg-%r2>yN!b+X((gTcla z&5D?i1FphMiidexc@D0x;l3l%;PaPQKP~7pWIyVfIu{}gc}-1B6j`vD$hvsL+^|p;9i{JSW5P57 zCdrFa`c#1}-Z{7?sziyJB!0++9}s_6Gq)~Yi1SP1Kt3;^9KP%#B~;At>In##exEqM zzDV8IX?dShl;sJIiVPY6d9Q=2oHdmV zCkRR7>d`enM5~{98LCnan|vKXgT3p+0_WmkRbJ4mXnJE!;8bstY#=csg;;&cfI;Hf z(;~xBOA10NJS&8gxKu-|W|d`F4t`o>-tSLt@GPK8 zn8pS-v8mYTWf>ylb=x-vz?$nb(Y5L`1C#bg;L#AY26BFw8?zcM%_zU!XFor0>@RGI zc_Rk|x43qQ-NL_bKn5leoKd>>f%C(w{_Eoc{E0SexZI#NFn7}IJ(TjvyxKB4{+>0(`?mK@bkhaH6rx9NwUTF-0Y6_i6TKX*GrNSUztyZYY<{;@_Edr- z(y;b5CV6Cc-Zv&5Zio2Ob?~?`aDL<1oUp!Gb|#->oM1#3-=jMyhQ2bGqyORg)V-kT zp>?W|IeoFaAM7eECuG_jcmmpP{q*H>y?ddPn!#=1in^%lsWBJ`Y?awlzK=l$_xNoeX&Jk|nf7V? z&A=q44r`5kmU90p80x$I2+ucHZ-i3*T^;o}qK{M^;bpqC{$+A=+r9Axo_$62pBJ?@ ztiCZ898kADeY~Y4j2w98pbKvIn(N{!b_rLvw>?yPa-Q~z=Yk4VM4rfKo#kh&?;&*} zy471|)+lu^EP|Gi{&BzL=C-GD<4ljP1TPp}1v@SU1g|VW&Yd5QTX#&tT{_Qj-ByU$ za&GU3@j@e8=UM4OA*})P!YL*>Z83Q;7E`}*W9K)Ji@}w98tnX7*>ZmqiwP0TN?2`f z`mx3y@`(E~O^h>rU|9g^J?Li^i{p;o?s_BJAYYz9!O_8<;PJH^i`#NP4apRWPWjrD zpTyH`Q)6a-YEfj=4cyDAxp2OzDEO(@pnDfVm6fHPYd9~8Lo89^0yOt&q6Y*OxG=Z9 zUUspEc2+%4yj2wi7rKOK6#6NsZ~+r#C)Qd&XzKi?`Cff?4tzd~V(yhAbANNkul8b& z37MnSZeQ&GGe&%kiG>Xr@6XxxHsPBXx4kZ37tg-~eWUo#NLYyVOyqW^*~wk6SCZkT zh!r$N)kvK@U)b#B&N=SGBvFVxNwBxb*T|YR1!~CKE(|W!VE|w5u6KV}pqY#Cqd$xl zo_6^+ZbA%_WSpDmM}PerG<4}3*B3m)QGYqbe25j@8UEAchxlcY99fD|suuIU=8n(( zjo(%TLuzO6GL{bk1I;{iTCN}c8`IEV(lBCo)+Qxx68_!c4g}~BsLw?IIJy~>4IXYG z>y!utJqJ4yYBVFa{a||o*XH)cluP}q7GPXT30O1=?k%>k&Z~}M^yr|Cf@U_|20CQL zi%OFB4o6^?TpQ7?QvS@@W6d}433ik?1uDraG@Izf=OhK)oW@!KDto5R3vLu0X52mW zvuUT5R{!!i9$h~8`>!#2)!2`0tauzccqv-JR=)DC{2r7`;$#O zFuYsjxC_j4lV8Xv=QEQRdKD7%pOI?H)ndh0SsnCo*q-tsBPI=EROr^fcrYhn;fj~~ zz&VCAv5ayC{L3y)z_{(c06)gWj5nc9b)6%gQ}uD64hzzUouV`2=?K4@GRE+Ci%kPy zL8Cmit=GGF4%aEplPeS9@w;sqMcxb20V7Md0H*YzIF(o!O;7zh&V$br71;1k+bh&t z?4AkhEnsr~UoC*k7R8VI>gaHq(^GD`rIn}U27)t#ns~O9`^jT#y&U-*_{ZBF6U$ff z8{wzgBf!1jW&?PM1E=O6;o_%y=b&OP!5pke2UGI=kdC#+_J~GylL*);%(AE`{^dJ2 zYaj)f5x{7Ed!2XK?iW5$#`Dbz!VVM_k6P&tW*YbEH_Z(0;svQwue=2Z)M z+5LARIv@7dOFmcgLb<9}zH4>#A2{hLwmdJs2~>rOC-kMzOy&+lIxGHV$xYx^d1;I=u5!0$|7Yc@ z^MMH%1(%=`i+tVx+j)XtW^Eh zP0yytKQQn@ZLs>ZaY6!B9icczuYxoz70I=99<@P2;%&L(Y~%52~@ylHn-7mruR z3^&GD95}H>_vw2Gb{ZAd6^Mu4V^l`y>B+vq+2U-8LilpHxILs3l??+bEPw_j zP+%tC!{@87NMFRU4MGpCSk`M9OV1l~q3OSB0>|a&Bzv|Ma5l35NBj4&iz^Epw#Ev& z#3=u#WJd`?dU)nEE7Ew7dI-9WdMbhAyCHSciAfIa{1%@8jDorAnpL~#MWm^p-Zhx- zOF=yZrk0-~Y=TqQyP6i) zu`0cB;0i>p5pM*8fzQCB&YdFLAkc(75(o%#FyF-A!H$h`65ikvTp={8I|C|SA&3lZ za08PAF!k%>8t)$lZbx@TL@%@86WXqDYXg4F4q2G4mQy8)E$=MisnJk#@IVm%4INm6 z+WB$(bqHIJ8cLx-RkSzCF{W38@xvQ%2rcn!BH=Werwj0y;QJ$scL(E{;DH*<^#lY5 zz0ICmy58Cx7--9XiPS#XdJS&BiMN?W{TN#Ph&CFP%UU_&Ely_hL}YS;cHSP}`oPeI zzEL34P zPy+ckpxZ6+?FUK>#50P>B;Pwgg)Lx~PEKJ_0wi{INTVC-$oXTDlN^el5W=aU(uU5pa@7p2Dzw46 zx>g@t9axn;t69X%xy{uaW&Gzkn5PeEK>0HlIP^=q!^&4fouHpCvC5oWiNuV4wy!(7GRR ztw09!SuxCnV`DELoXSRizB94K`f-U}ij+xS#Gh9y@N{%>fJD9)K+d42vLZzg=9l`* zWm`8w6d!%lC8!?X%Q-))5i8N!OYuw8S+brqeOia`%|A~Huw}mf23M|X;h0$sFPXzp zA|H2zx6VCaBN!DXN*ob7FQ*PXXTKgIIL1d&vHUTEiuX-`qq|k76ejovoxY&rVpNVF zX$Yl@aD1Q(3ZfO z9x-Hn@t2p(akG(S}nc;?t=_bCy}4#mMm!r*zVQ;x42;GOr211}81ZEz=<2u$gkK3_9JWRBknVB&zr z;rzd!Lr7DL`+xW4@d?y;UjxUqqGb4~sw=0@28H)=Bgej3z4?8wE3kcZC4{t)SNB9i zvdikQ(eqUh%HKk?>Ej*X>rL|9HuWrkaZyFUziy(P^`%$hT2E2LNl5Z~N`I(%XVq;W z^AVlvOoPEqAmu;Z%>m2xmXRf;X@jMP$#^)83)i1a0a8!s_F~;_z?_jT|LA*M=I|pn zIwnsr zqB9@nrJ|?ueqqGcd7Gl=@;dsMTEovMI}Y%`tH;*kz8DcM&8VDh8(#}>NfpN36@*~4&Hk2L#H~F~nWMef-5tAxM#w_z_}Y9G>nt*#LLD*!keGIL7vis_#vM>UM>O7fQvPEe4LV}fZx7E@F2`$~-$z0Ur6K+n zEVqDEIc1C#22u`_4qES7j92C)koLU~aOZjgl^%BdcUiT1#y~pE(1}x+vo3-kzb)rm z5g}~o9}x>9Eu3$+o()`+*e+r1L8ToP>+bzUbw$-Jc{m|dSa?{GKTG}M?ykhDJX7xc zdM0Uq_WhGCypmoQ@|@HuqH0-fjHn<^@WEFhOdr8sS#8574)nHGPf}W5<-?%_#y;67 z|1V5xJ@ z7}!d?kGZcu3@yC+i%_pGLgk-+-T~aDfjD?36|qIEc2HJ~$PYjj@N0?<*WT(%$?uy>LEb*x z!KWM2g$qK+2*fVp1g}|@XvAU^IOpO6DWO7NJ;yAYTlo6)Je!FO>iR&|)6 zM!HVV5LhbMu$f?78;z?}ER}>bbMlgpjg(Qbc!uO=U-^XU1=?3I8nP?-3eGvxy()!U z%z#(b!j8lZoYw-CSU_Va2{4;_I~k1=)W5EDBquXF~dmwj1tFp+y2kL;cSX z`Mo#^jdBHx*3G7e2ZQI=yr~^bSV4CV6%Iz@u3h;ZM2A;OT3BguTkw?Fz{UjyZ_u9Y zg6;)E%kb(4`x1sBxoW%PN6UmoFGPlu^`-(4U!b<^S{26a{Fi5q~z$y91)fOSDF-RM8EUrzreno&((c( zmdGt0+f-qf1Q$upfEVB@Gnx4FRpOfRv`!6U1R-O06%J?>gb2crI&HGo$w^3Zz26~% zlTMgPRAF<{1Q4(Y(8YA_v{(kgDj_geQbDkERaXQdXp~MWyPO_FMA-E{v>A8g4)~4& zgu>>SSaZ=qqV4(qT5?a#Q5HEA_tHs!Q0jklX#Wx){{J z;dwC97a@Yc(0UO9URBBd!*h+O8V*lLMu{x^k!NK>>IhR*;;UZ7AM`3}^s+T$<0w|o z9Prk;1zbKyk>ObUcI*|u+6N=fpG3&ZChtv=k1?=A>&$mx$QV6yk|@qd>FJH%M$ylI z%i1wsH0NgWq(|pmMPTI9Z3-WvSD9V+wO2oEN- zen*P~2u^%BSq+|f)C^z5xG*7YgrUTcKHh;|!4qVq#3e~hY?gC-CYK~c4t zFW@#B*cmYuJwE%A6aU|aNO+$8)RNn)8`nV5L(o&yA=b5v$64p9JFy!AyG_RY_@`S~K~eCKU-|_N1XuP$tF6Z`>|7wN1;;IsuFB(9LLD zPxbw}>!a)gwAX9_w>-~>Oh^Y|)EcOc?qAK~xR98-a8C;rVKS@VaFOVTpOd>Kh;!6^ z07M&|ELaY@H%_vv>T@w+xO_nZ0b?f64a8xvfq8q4!?MA6mea)U6GQ{~-w{!)KRQCb z-3DZ1l%*ljD;xa8?pr3niNQK?VpMD8=OftVwapq)1e|(q$pNu@Je6Kxb0hGW=HO_! zJw3E7bVIG{;nu_yRO4WCY6=tbNW8BgbZPuid_jBQ1n)3w@J|1fBI$#5O7O4vx}bv0X3q^i#5FPMz3q#=V!$8&2gRHn^sOS;}ka`l2z& zM690D9xKk_$4O-C8De!YJT3S4Z59G@Q8?&F+R?%GFE=5;>WS^O>TkG9q(hoT*4+xz z*(VUGq)=4Q^OF0&2hRuK-6d`~ZdtBAt`iS>stss?n0C-J)w+)aAc)`o?jkpJh#N_V8s}sRFn!X~ArzX7-is!PZgQZjQDsX`wG^ zICfbhv@D=S24{d5&yj!>*a~{~}~zBRsqQ zR3!g)rT84aSrErMi?;e(K4C7~iHW7DU#Pxfc>N+D4An4Sbq}udW;W5h|8mcioBGt6 zs7LKnMh@2_{9*<-4O;C&VZmxSTun)r9=)2|FFyJP&u9Jg0;41WoAx>;!2B(|>H!YP zYqdE*+O=)>Hj8O|2wALsD}P=VN{0+-lf!x7RdXZ=->Q$+Ht7o%F6NW^YIw`=eCIAF zLqii9P18P3zJ_N`PY8PZCqrv)18Piikua2TTy12&De48>3V(E%{wN#C5NvB2OT4V( zJ|vC8yUQp&XB9xt;8p@rd!)aiTe_^In-_7Psl@T_7*QD}BviQKFqO?y?(qde!#qw8 z0@&?7ZxW9c#odEUH_AGy|CFR*&1S4uy&0(SE@c9=N8Q*yuX zXgEI4;;BpYxmB!cNG)g@P#Tu5k~=-%QfHgD7mg-w;B4E#I^H}EPYJL2p&D@dQ^Dk3g8t69Izmi;(JOy8)TjyppI=@uy*M>;uclM-KsUd9A?4exWHkLQw?E zk%!E$Oz8Nc{S&#vy@l+^;QHOizx(T-67#L$e&s&DE1T#X>yFm`o`2sSr~8bns?EI9 z2!uOs5c7nDoTp~1`Y-J+*$~Y%I|Cbg9RfDjnI{XV@a)0mU2KG7@Jd;p`mU?z)N|Vn z^$X4BogpRw)=I`&l~;OW{P)rP+_paZ@tU_GWjk&ZER^SyR=j3(P~uN(l!&q)t2BQq zlNcAXGi^9}Q2w$j0i48J)=bDdm$vTe#lmj5@)EeyyTVN4Fjq7v1~{ev`m1jhGi}y= zh+SOkWhn-Qmq<0qaWOEc!+>4|Tff=km6B~ZG+TEsnPA75ZUMD&V677vogj~#te9zd zd>iMBfSO0myQ%aIOzeQMow{p8*{$_QE%+gW!%Q-6eIXKq)J|Q68@)BZ|vPj~X*F$>C9*;FI)v-aZ7z zk1x%z5`^P`RHR4Tn<;;c><&C%Ld~z!QH1y1TH*6dI3F6CXyXW$tpcM8L(58nMOjFbSQ zZ#+C~1QsYm90IdvE_+~T<&k%xg*4=Lj>K^r_+Z9_G!&la(*HdTX{C%}D@*`F+iR%;o3Y+a`t znrMk}&g-a1C{d#&-n!0&w7sNNtfH6A_GJcjKx|%(^sSm6dYhtiKm$rogCvfc!=IG} z>E2qKuP0%4p^|5)H63)Zh3`-VA-$K4I1sUd)7TSQva>A1=rwB~xH8o6ywr-qx5a`aho+1X6Drg;t!y{y9WS{7t zsSMS76L&{DNr5hqEW*kcaeGjPjsiz|=aY+#k?UrjpqU zt`QpCuU+|ULgs@UC;p{x1U&cwm(XE}f8X;@MK&}BQ;`iGVcQ1uL>6f;P7&~m2@}%u zlE|Al*v}=p9n0A`JM77US|NzVwHY?gKlM>eV8w>ycdW~V48nJ+>jFIj^PYnujEX5- zqq~pGUn3^xo^MQU06B2fb)jqB1&l0(+cBx5h2b!cX2ez ziPG4CfL$++hH=(-gn4l>%T?wl#H#E(ir6y@7>|E><#4esY>T7TLzC7nD=J-NIwDQMw}ru1X&O4$+Xm{r`i<3023S* zCcv3yaXW1I-`c3G-=K>)VAjPm1$+iAVcon@1ZqXp9vj{~8s&1!k{D%KPDwnTEMF?` z@fF>A1XsDZ%5gtaO^Non3_S^? zyWU6(HLDZjlFc<@HU~4&BWEa9W#g4fF+5O{0m!NJrN6DmSG=9UjCB8(5!8Nf86LZP z<(KBWc~sC?y~pRf&05O*lv8?^qats&@98c6T-Dd+n-ek@r2Su)vT}G9rk^3JC#f{I zs3tt$kSjab%KI)nF1y=`^VA-DD<;2(uI5+C$V{x?iJEpy7%!&17+ayH zwGcwn4}`(R#uB_$tF<6h6}^Dvr?b9q&mvTQ#?cWkIn3Y_oN-t246O&3lr?vWvSN_N zeu{X0eeUq5+m|-eu~lP2e?$snaEnrv#jdY%`yA0ZBD6a5!>%h6r{`oQc+01|yNhQ4 zIP#LIPIde9Srx27(!G-;3F(QYfSP(PaxNZfm!2C*-*lwJShkp1Whlo@&K27LDT6%L zz>!OZGU3xfluPhJ7tfwAcuWn0zZ_#wyizTuufPWFTH=##c^tf7WFLd6XCZG7^Q+j) z5%Z6}h<2u!p=K|eY$UJ01Syrn>B+kl#ZGW3^vza*`<}t?#j5ro7H==ia(qKKP7^BApc+ z$f*@6dCy!*1pz0ed=1-k;p+VS^nge=wQX2H!oW}S%#=E2Ic;jB9OrE+f zTLwwc%y$N2y3a;eEkqlCC21_m;v{i8!1PT(tb!G}wXgl?m#+%6~tyy|#|$y4Y1MZ#=T!@1SwbS38P+s$zFLk9B5%kUrsw_8%hmI0colX9HYr2(C9QrYEpl~ax$_=H_~%AF_WN-bctG`5-RexdXu4r~- z=ny$AMM!xu-}}sZ_%!3Yo=+PL+##|bbth!;3C+wDeEgOWU@Ya7p*l)O|TjYKYN}zX;!S(J= zP~?s8mcBz}x39*IiGtcf=%mW@M>}`Ap7t{ex1w zP#jlPGB9^oQeIJF**MlwCW8D`T)i;Q-oWW$PYtnD14^-~A)P&B+5HV1lL|%&wNA#E zS00ebLAa<{s#uNhLQOO&SQhcN=vq81<|WvZ z5v}&(usBKy2amLww{h->gV%?_qnQfEKU4^DSWen7(EC#aoKffokSkYscSZaP^wV|+ zIdQHDMBGi1ljTZ`@Imz*p8M!v@}K%m`nb%Tg(l`h@oV5Ef}21mZPH~Adaj7?jW4YS zQJ{~BfL+M(a!58CN*H<2U51TUy}PGlN2y2W)AaM6_t&|!M5!X}lEONWg%)=1tMO8x z&ZQilr3)THU!g6WU~K@XCit}e_>_=d8o!3I%sDImETrb-Wy>3{E#98?Q~ z)eXT$-uz?NTWKL&`PJ7jHqw78UlYF@u}+D{`rl!4X_#VsH1Th0C!0Tu*Xh4PPDZ_U zXOBskpa;D_aDy8>Rtgtq)mt~~0Ms2HxtB&PK!hUm42B(cdJSqbcbvx z#-NNT=VvduH(&81_m&8bUCNB}wEKZ@+w8iLKr|o&G~`LQjl6)5hr!F3xqZq*pSBqY zyQ}Gb`Ztm6yZCyZ>er3hwO=XX^+izemuUMH*j*&c*V{Qi3)#R_2gob1}|YmH5J@-E6B3&<`^xv6RXG96;rdoc- zijWa#9S*K)6x9wG3fbjA3nNUjDSH&6B~3G->rL=d&nfWUK8qRtE~0DlZ*8S;2JJa7 z_tdxc+x-}@Xj=EtzxUmH=X8d>)>BLP!-0~)Rz+b5Etn+eagfeWT)lkCbh%i?sHAj` zi*<{_Ij|vX*U_4W=iUA{p6c5V2=V3rHpZjx9yqXi>za{oxr&Q>_Z-(zn=Zo%^40_| z7~J&h_Wkbl{!VKVRAJ}K>->MjW3Se#Rj=+$dcgN9!6@zrtow8;g_Ttw_#E~3Cz=u! z3@}LCRiz67Pws!E2m^+($Ig!zQxo6hv3*-An3VT*yH!b=;&!t%{vENizVq!zz&KCc zLfii?L~uxKDbK4`(__kUy(K%Vg%;o+lmIUcOf>zUcCIuY%J%y!p~y02-ziOxk)>jk zJR+%SN>WkA7<;x%6yq6L9@!buf)XVmdzOr{rBKl*>%=f)S5#*nuW@=B+LAm{{+Tj)~W zojrV)ml{R=%xj`-{Xy4#3w!7GSyVT$ z)Ah{7;$T9D;CN8m^+^xpI?}v$H2UiM29bBl2X_ZAgNloN1#a`1x_^y)lS4SCXI|rF zhwsOpbpAro zE)(Z;pQAxnXCKDQ0{(DVfI<_hsyEFqD!+3&>g>AC`LnRYpQCh&3SLSl24vNEei`Af=!q`j_K?dlW-PeU{7a9g|MX6glr_TFpLjjNyg>1Ky=V*ZiK_4&1I z%}*k(_OhCB>wFH>%_d^?%<|iawXz0m^Y8hNJi$ig&G15fU#-fAtuo#smd4e-iNsF! zX3^f*=@_9~3%%LP)?uG|yw`Y1F(H!t726raxR8ld#b$`6I(@94&}_`Yv*eCIHL?Ct zBj|8Fv!5kqvzZwfqMwf9YRixL2ZW0CHA$ASUTao!m=o&ns@3tb7AFZnE0-Btqy*;R z7R)*jb{e49n*j8-?FVwy{t+3{rRyvi|zgaEL+$d0j7_loyTE)85odi2h z=gZYo&G=;_nBpAHMINI_X_KF zZL!A6FEyO&g@6Z3l%4qw5qyc%2^{3{qU29DRMhWe%3o^#G26VvI0Bt>p^zmwYv3SJm9(;b zwu%3uT0T{z!@X?2p8d8zanv{yy%9+{#42iw`jI`txEQeTeW(+vRDa2-ZzjB_GCDN? ztl*uHxjb$dx3b2RVhY`H);pt|(v_lmeaDuq_q6_Y=F!GSlhmM^Su_68BId{(pGr>! zKQ>7DiYFvW_Q>Vt)~r2P;oO8so^NJfeYJg)9CD8%T)=8zXFJ667Ks@m6=)PfE8?u9 zr9llzOZg8Lneuy%4z1Xb<b2c#M>H!Dj$hkQ|!`}EDSzZ0YjZm5{h@t&z&6`xOL`5p4=ZRugTMn z4HKw;-%)M*y<}Cn+xYoS>P35H0k*J9-NhLbE`&ANPPX0}o$aadxSqZhFykU2DYNu7 zMy=URHOu*L!OhhVUj}~f9a$plO^d%ep4Ub4`8u#VIxkxr=14f)&AGb#D(dv6R zB3U;4vK~XV4d+N(FPz}{gm9dAPU6UC!|F7zq%P7d;SMpKR6O6E@;hYCfAW^gg21Ap zzP^=O4yoM5CyaZ`jO{t_f_VObaf$dNB-BqwfStIP`Jg)c{&}?LJ4xB~pkIsAj$xtA z^SnTP;9WKdy6u1Xxz^r?!TN_VnTJ-Aztz0N{K^jzap^(5J%{TG^08wf3Y)0y0c!KS z#F3%?DPI6$mxW5?^xc-ZJvx<8tr8SZ{#{VyBv4j@#{1)oxB{?K5szWjoxVI;A<-;* zvK+WyqW-EdG4MzP-plt-!MVi8mWRwQ1o5298P1)6R2}(6X}#nXb?~eo3HA|6(lMgP zRX!c52(U%U8ev`FzdeGOXzn&tJd}o_HmbWA)}YUU#q-*yYQw<05#9f~FG(8r!gw2mtH*~?J9hj8r{c+zx z5>})8Ms`Xg>H>w{9|%uM(r8_+)Z&TS1$#hL3@CJGSbWkz-Ht~^aUJou!L`9uD(Bsh zr7OithE8_?GUhwqHv4ls2K-}AK@CqJ8OuH-xv=r|5Z-Mc5b;R68)?N8rF-YY9aa7f zk+X8xgp%o$AE)h5(p3a=1U$h%x-^7xy3MWK3c~`g`j3kHTm~^xyY$5=7=%R8Xq(rG zBTCa@ZqI3F0KKbMJzmD{z@qrMX_;C}CHOsMZO(0dro9}C`bHjdmIqI^jtxJP;0fzY zY0sK%foDDymr6cd1W-I3Pj(Z4fMwL3n_8nCE40VV(R)XF5 zh*|`1VP5pp-1am3(csPuFLXa!Gy2Ca3m60_bE7zsfg5vS80zL^ci{1ycGweeLTZNafE~k0IBEIs&~r@ zpDcpFg;Nj9&nLWw3Sl6t;WY5i^Kn(zfOecFwkzPh%FqrI<#kpJZ_7d=G77MGA82fnR z02uTkO`-Z4h6^nDU)^!*|L7`aI4)#E>)El@(!4>y*ZC_#_^}s4PvDgg)QU_X4SM#! fkN>v~me)5N!|Dcvjygrct#C0%tu4zfoTL5&DuY9F literal 0 HcmV?d00001 diff --git a/docs/reference/plotModelRanking.html b/docs/reference/plotModelRanking.html index c7c082b6..4a85ca4c 100644 --- a/docs/reference/plotModelRanking.html +++ b/docs/reference/plotModelRanking.html @@ -134,6 +134,15 @@

    See a

    plot.modelAudit

    +

    Examples

    + 
    library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+library(randomForest)
+rf_model <- randomForest(prestige~education + women + income, data = Prestige)
+rf_au <- audit(rf_model, data = Prestige, y = Prestige$prestige)
+plotModelRanking(lm_au, rf_au)
    
+
    diff --git a/docs/reference/plotPrediction-1.png b/docs/reference/plotPrediction-1.png new file mode 100644 index 0000000000000000000000000000000000000000..a0c23050764304af7a519e0d23123aa30db4cc72 GIT binary patch literal 21285 zcmeIaXIPU<)F_G-lxm|_*#e3bQADW?HRpXfi1 zs;bfS4@XB;NAO39YIL+}H2CZ_qW{2*j3SL-Fe4cF%r=T_bYuW>RAr%$P>ptUWTB6v z|3riT9HYT!iDPuHV+r_O0fXs7VUe)NY*=I?EPE&tfP;Zw(2yP3I275q60OP-4OYN_ z1qRb6r~j`cx&-|8M)#IP_pW5ajItwP*^NWlLo0=ag(Z$GC61~kj*cbKswL6j6ZCZ~ zq5t%j^n%}&l9iRlNTbF`SYtM4&%%?1MI@a5Z%fqhgaZqUIE((dvsaPH<0+5RggX*bU8BG0-Hz^b5k7-DYRf0- z@Ugq)Mc60Tt)DpVZ5J9kCo0Lh@8Rv|-<56KgM%ybAhh{E9#s^KH{lnp@cWnPcJ;uD zUzgtfX@7UikWJ!TT%+Y(9&POq;-OF;2Y#qF+a=Wh_Mi36NR#xv3GypJV>Gez-#hTZ zsnEwQx;cqDAqZt<{(`Iu0Z7D3IqmiD`Z2jEo2OaYY#+}nVAQ?_E0Y&?5G$uD z#GBaL|BOAxE=`p^%Sr%?x_Cwz^WF1C)ckS{m0T;`&6j#3J3Rkds_wFm093niyLC8i zZlHg-zka+z@y`OQtfV^IF|--?03IJwx?Hd@n64mCZf>UT)s}k6N65H57}+tumw=Bt zEOz5BMn(Z^$d-8578$cte<^YD5C%<&BFF~@yr7_uV?v{M-9o7l+=Z`kn$!xdgk4%% z9+csfXN+(}4qmM5_~9^G-|ZCsy@p-?gjiKIdvDF~(v$E)wS0=^$AzrGsi7VVkIS9SoIAm)J1h z-zW{dk-8T2*H8V)p&Iy&{D9s|lP{51ei15qKW28OU0~aD^J9Zh)_{z{NVn6B zzU3Up{g5a@;?fn(EZOechcNfYW6wW&<|x!3>~Dv&N`61DUz1a(Ul&4R-Q1B=lrJX#>`vvAI2Y=OG${;zNxAHPxb@ev zxn_QEh;8kdXYdtv%Ea==37=+S+-;}U@5^jwN03D;vnBZ6`H9fBC6h|1yG!row%ik2 zjpE!*9B!TvIys@Uoc9CzJ~>%EN9&>CJ_hv39Mq7?NzyM9GE6KmVR`N|xjJefB`do- z{aI_D{_NyuV#I>yGWNEvY*TB{jq3#|kFG->od}qCGsp@T3nU<^WY>soO%_kurqx%j zm6-T>_f}-0tbDf%9+6BlSh;o5?eg$cb?XQX(h_uMznJ{nAgQ^llNgv@8hvY)NU=i+ zK?kZobW@z2;gcs?JQmqgzl!Vay~IVi^s#(!%;Y@sd~bIlw~tTzE3bB1S=EA1j}p7Q zn#;4>s)5tpm)bvOzOi!K{(fUJw8QXH6L#^qJ~BT(?cJE~9_@3#q2=*DQ^*?y9>X}1 zs`MqNNpX9(BTKJ;6(11`4Q{Df7i`IYj5rKR%v?2hrr3<8hjppwZ~)q_jb+hqHrK7amp z>Tiz-VRpQ|y#Ugh?Hw~Eb}~qBu>ZTo6WPbp$(_67+}@GQ{EuAQ0BFGr{XTUt^Z}bP z2A!YPmj7r(J)rvU?4OW@UlV3N7Zi$aJ1b(Y#f4#ekx(NC8{{E6erh!_9VtzzI-J{x zA_U{G^uMFU>3mVky`xPWT|H03UdeU|nq(JbmNY-gHpzUgH2-co!m)Wu@KpO9YvDmR z6yh(Paz9X|zIl2`4>zs!cc;ovVp1x4J4#|EoLU}Yd>v(5UtZ6C<>QfCo*AD8<%C~z z7`s9eYT*@{Xe#cca;Yn5KVTcAikjQ`6;CDx>~{84wIDp2^eP~ZU;W`WFt-wz>&0mn z+2Yi6&$uo&dQ~t!`AGQz|z(E3x#!W-dXoAN4Oax9TqlESNiWbYLp;!BwAKw6r5~x?lqlGLUc4tYBeptO6AZUMtPMn~rpB zdvm^gY3rjN(fr@^z43>ul%G3N6{K9A)g88Yyly6YJb{BxciZgK*xOkKe&!FOX2p_C z$hHDn821C6Smd#g&muCo%IfLuSKO5;5wn2qF2r0qFIA>@7wN}6&c)xltyOJb#-!E< zF8Ev@GLRG(qVk@YtMKfK`Yh_UnsVgpKh<%x6JmXyt;M6oa90?hwie9tlEB>6dEG*r zeOg18hmVUq9%_%8FktYHH?q{JPB_!{W6cK6< zS@IJu0!*{SBY_z52ZEY92pR9YjLj7#y#HL5rKI@6JL%kMtFIG3e|48?$Sp&=71+B^ zl}jO^p*(v=i1?*8W#~n<8-40a7Yi=Z%zG~&v)NxY1ndi5+}G{na&@GkzJceNNDZIn z*o!DXX$b3L9c~-$igDAy;mo>!txB$XW`~!)QTp?aBLe8_D?xJ50gTrYB?bB7NBN}o z?-mPAEQ5H?$cMpq=H(=26*2c}sC#X>u|oVD3jgnqp**iSfYFiotcdyl@y}Bnl&nx5 z+Xv{1mO2MyQd-3?a#nc=&gG2d70bsTaU5`C9)(iAGX{3xnH^=m9qY=LapH|~X7Nqr zc|{EB|GxPDfD*iCK?w0cEmd&q;Rt6V=U>VHC}NcOp*rH3$8rykzlh=3gjW&I%Zigi z0tDfV1oT}78G4R!P)@D)=0_ofIr1fbsv=3VvqCn!E#bGwAsG@^A#4mbh@2-Qmc5N+DT*EDqyw@8XDbu zhX%ySa*jI(|cWk63x|zzGGdesgu)5#xhw!QN z>E1(O`ON9Yagc5YBrWIn@T@Si(-AzL4qQW_l)?ngOG;$`pY&MZUIl*3faa4xl)K*4 z%*nFa^45^%lt9E6K1vYUx(eu09QnD9*?nS*MNKp3R%S0fZb#57WW^($WfhkOxchY2 z-)_K!nN)&WwuAXu7Ke9kT}8kUu7KX<`1Qo=Ji}p+Yno?DcL{-(BX$-06EiQ`Hx1whi|JXYhmp^{>Yj zOKv?^gKR}rGzUc#li+XYd|o{FaPAq8%WgR*ut_1a9@3_koS+L@8jp9_PaXZyn1kyg`e?qEV^epv*X~W*v9kAx%BzfF ze5?F&#HQhVMG%QE8*)57S)}mg-%Za0UPm8bH$B&S<>}OKdVW3K*B8D4k93G+1!%m! zJks#*8{^5Fp6mF_nm4b9{TR|yY}4)&Z2rF4yj|Lz0-fnIO_fIlpnKNT6?tUnoEahY zwEZFeO^rjK5lYPM-Q00t=-gGPjgJ6SVtuSOFVr0&02SD1*bDXjZx0^AF+c%_HLFw+ z^NJk#Ssp7Jx`ssjw2%48@SM&2(BSYw^wn=#PipO7z<=6nbkVqXcr#4D6EOwN)ZI2r z^*McA3Scd6ji@B|i!Gbyv*XwJ?`)FKpF&XPY-={O?#q9cciC|>FlPZzpb6HeDta)t zc_EhnZUyWdwzgNl=+mB!28tW}r142<^ZSal%+2feQfT(xylzq6FPqnmKiUJ9xpQrq z=<6rZ9QizJW}>w4n{dJ2O}tuKfZR+7Sk2l0JPu@l(Hv`|yWC?oqrkQ7512V*jY0>K z9RL@uSxVC0=2i*WP3CG^G-30uR2$qj&-C>U&}9g8;AB)%%ScKuiM3U;ynN**_u4-8 zCDWA_OpIcH9?a~o7hC)bo2)Tex$e)i*28XpMKe`%0Xg+~d^`rfvhrc!x7l0>*z2mj z?QD|AqI-!(KJefG6~b_CfGKKi;l{tBb2r05iVa5+R^9B2VHiXW$o$Z!9L#auo`Yx(_^|1=eCw&bzyypo;iRQ~hEr5< zCjpyM;Iqu5qrmOVvlbFa_ z^}vi`fWw=}(iIhG6paGU5>uc12bxR^pSNRTDh1WmAwMznv;^R5O{jYukSQWhp3Ar; zZg5pGHpZ3Awap}^1gQ8m-s&NGDOK0HCU5S>E`!;f@4HE>aAj)j&JWzgQ}UUCr^_8r zZIvt87E`A8--25h6Ff9D@z6YlYDnz0%~XosjFW01YYxpFUQ z_Ov}mz9c{4tW56CjF}@DYFXs>!UGP-1g6sV+kp!ljXr$Q~xKN>}!@j;A*IUjnH{twg=BrI8uaB$WgmJ-ZJ!pRm zuG)2Lxib#6iQ@z>3o33x^*QIpO<11DIJQY?qhcb_?9w6|c6euuF#=JOab?5anBwMy zm1Ic5>nK)!=H>3ir(bb*-S|dGLR8n#xy zkRwfWt5?8EFn(-#~FIE@d>D(;zMR@8;G99DYXGCQbQ6!We_ADIMxRbCe)%y5)gNz1nIgF*(8~kN7 z0+YrTsfOf1?6v5IftYOP8a4#|bCV`e<2 zND&>R|JY`oQ~m#uBj=gmJT?eL&}%LneL4+dsx^P6N-v6(r-Do02!t0TG>)J_^Crk4 zMYn0-Fv08@zuP{Q(W2ZN=(Y9>@X?4)-Gp#UKLbQdru2sGD~U^ug}9O)ZtTq{ zQ`$%6$x}z9=Y3>(B@1w$drbXYe6|TVgFxs(LN7aAx2G5)av!VtaalYRzwmwR zQ5=N)h4}A^EY&dV_A1ev7imcw>PZGZ;C=qh>%5i~BNqeaRc)sdBtySQkzw;$r_d$x zrlEp_k*xcF{W}@knaN1#!Q*!-ZR90{ED(@qvgZu_YR2wYX{}M`WG5tH$l%g5Xc783 zCF*Xi|LiY?U={B+hFz8F6iFER>@HRL7x*#Jlqm7q1*#SS4@;{m@vm$RKH;|7jhEgn z^4~bGCKsG=0pZv7xn(v9OanNBfS2kv$%?KxZ)JevfIocJnSsYIOYZRZlAtvmT zOCOi1sg-gsS&$zFifv1)RCbo{jwdSb0F3T; zi4;b5IIYJc8Np8|Y{hvufg`4`CRWK$h{g1H$xq)olRo+ZQRC6;sbK%VeO*o~!bX^& z`^@*Jor~%3?-Dg4UY8cShE?k;2m^s+3>~{Z$Cv1+P_Pl zVA>Xie=6I_dAD2A#4iXcU`Upn76ADkPlZp>1uo$!v;-Y8%xRl3QJbW|p140DJ7x<# z?^78%ZL5pO9IaqIw!yu2maPfUJ6r--tE~zcCrX`kd%=K*h29xDqz1#Tin1a5ov707 zP-NRa7iT15&q$LpV-{UQb8Oj|uo8H8lTLYavJ^4!uV6yhcEU#XV#)o5IB)TlQYMk5u!<;b@Vp@;2$wLA8Y;5qFw1PICE zP?!SUaTJwvO9N^F;Mpm7S!u8<|2%8;oQQ(J1;&7!A{PXDB!0&+9FizE^)njr@?S=K zauJyf`_-|3%aap+$kK*=3a^;Xm8fK{dU(#lJh3Cnivx+wB2Ox<<}jn8%`_`|3vIvl z=&Ei}$5==4F|ukOi{|x}QC$z~4?dVh3P2gS&&18g2=GIt1s^Lenw?S`(Eg32Bds|@ zZUjX1#wU1R*{OE3c6ky`C0A$)tnyUxxt?1#J5#Nvc$;?YPc}xe($(deo-sQ9r{ajz zRDV}X;D;L0>CT!dmw$C|$NtpXj;5Uq+o*$!LCacx4>*`DOj6yHk);`$^yB03Sf_)s z!X&B9FAQ48^Rg%N;2BnDcEg=Dv8gJjQ#d&3e!3`0Ko{Zv=Du7_&xMKu8PrbR(4m6p zShMZ8iYtDdbdK7!W|vx2TWk}iF-;sC@EGNA#90QZYjO(ZOAK36KsMpzy1lgcWpg_& zRSS_I-6gnYpkC!H_~`SM+uv_%`m=p6p>RxL)^9;C5^YEiEzN!am-aaU#}R7kS9D(VF~u_gO*GeU@5(;q$Bt zRqp&N3aUu|o;L#YOzOuRE0a8ZA4G~M=D=2E-04wnO1J-nWi)!FdXLKUX6*qmts_3! zSW5NtPoIkWJULIlUJpj5LDl}=O6tGySLQ2aJ7a&}b4K}0pZv*l^R2m{dMK1C^{dS| zoxN@)DtuMNsV4BIUY!!hbatc}oFPU;DXCZ1`{&irk+|(1g@LPtsmEg^Mj? zdcW)7qn8c{S54dFZ2w?98P0a;ny5VJvE6AHg>xhJ&fFconz8XPrkuRr){$<3_$5V3D6SsK04T(l^ zz}4f%Y!{bRX(zK{hyX<%Th4oP3DCiE3KB%3s`R){FCJLc6Q3$hBKUMFF7V*Wi1;^% z%Atd&@0>BvxvnCgcqSUg6FNOa4O$4oU=ty#yx}URNyS>jGm6W8?);tSk*!r_jc5)l z_KP4v{BMPWh|)@?6`Qu7EwWX!nKJ3G$<;59NhtJRalEJTwK^zs(QWWIJEc3NYeaa+ zfu1Cq?XMW$Z9~cIWeh?uD!ywl1+SatFbp|`Da=|m z_zI5WzXPlmYB}h*m@cA{wUY>=w`t*HgJa?p_t-p>)P8okCFFN%y{^w7Wc>6#UxpYY z6!@IL=GdJTZhXb1?PrNJX-k%(S(;G(jS+J-iV3h5_QPxZto50Y?Q*k-wiRm%PP>T>Ec*8kP?-JFt4`1O;Rgy4RfTkG;2&%(LVmDoUP6FCF{>k?y-vhqoB zQuYIMS8ynu=uV-u@1-|_?i>T-i;@3&-q5P#je8*WVdxOHdbA%GgHYL3{XpyQv8A6` z!8sZa=;GAVPo0%Rv!8B1t7pOq_Zz-W=zuuG?YU3+h!D1<24Z~YW@o!seqg41@w%la z^ZN*zb09av-JyGouC*5g3CsQ#ey7^8CIlUljTi9ppo<vFF8(426xw^tGgvoe+%Qn8T%c*apqX849KYl3b~+EoH}2j z;DgORgWsf_+JZb(%1b0pkK9Ry{=75m>%;lc5vir`q`X+5j7f9sllcE@C{!i*MK04!6c=^gxg+^OnADs3l8I=Q|y>{#vPev)I{gu>lLtOlqf8ta}vw zgvon!IYp<5Ozy0HH6jZC+J4?+Ag+c>enk`QWm~Ok;qHvZ(iGxh-_ivL)9O9BE!pbr zKc%B_(6G{A5CBn7FQmJasAQ$S*1@FAP9+R<>*4V$$jt5;_qV50j_x>uiCV@Dq5tSS z3fbKxb}G9@S3Gkj7hNISnwOx{!Y;Eny4I>vJkJYa{m@pL78FoysTrIwg$&$!x#wTM zAjGk7RW?#_n9Avrq-9zH#-jz~wd8WFD%6gkU(!{{Wn}B}qC@SkOJ39wc-7)$7hifv z=^w)p^(p~{3-MoF8hK$qEjfd>93Bs!X(Y#I@?ng-k3pYIU+)wqJi*O0^%wPdj4!v? z3sMZ5zT>5>Q@&`4X9j){O~MyUzm`2$Ru}SA)P#koaRmSUZ&{UKYozqVUQBSX+RDu? zJR<0=79&mAL$CzC$2kcNmk2hyFS>ra88%{0m8bV_&(N-^kW!9(aO5-6xvv17zzZq+ z$=)fc@o**_ct|*6*k@Krh6{7D1cZSo^C+HLtL{MuB=K%+Npb2A&=NtnDOXkV{M$XA zm~W+f9YvWl?I7jhx1ER3W_w_^u=Vvoyw2b%l%iAuB-Q$g9VJ{_czy-&oC%G37O6aWeu!Tt?IOO3oy|qUhS=y^R@jmu@d1=*Xz$X@l zaGdO%DqvRy!fb~^oLm)`PR~L{3l>GYJxPFZFcx-iW|3^m<;}zN?vHlUy?atYu^iTQ zcScdg%+~H5B0!<+!6v0z_lD6dy@GJV`xw~y+9ad%Cgl zaf49EroIkVGY)S-pRZeqBK){vEPAO;qHE9yxRS=XvbqBEy^nqP9D^%Pu`A0q7O+%oNK~pVE8`j&tEy``ZTH`j?`F8VRFX|NVF*)zXVPWe=a} z3okJ8)S##BP->$+`o)Lf7fB7K$1z4DC(X-LWS-tM|vm!bVGuTwrch()5gbjNWveg*kyV&`L{6mM0RupIHX-4BllrA z;Q_C(A=shY&!^wBo<)|MZ38|PEXOK~EZ+sWLDw#VZ^LLVlMO@S*deNBC9m?&I9Fih z)jpET>}@}i{f@V%r#@A{rBi2zdiD|{5(aXyGj#FsxrqOs2JEteV$SD6D)6CQfIQOm-RG-SCf<%Mo1Jl1cC;FG;`0K$e}O}RhGdt?t-m;$Stx6@$g(OBl-ajl*0cu= z$cekLsm|lC(f22{=^JB&*3JEgg8ili%%!)1J;%=s=n7=8_c32bz@7GpSXX!*u1fq? zBmzZs?bRcl?)+Mzb{)zPo@1B^xzNi4XeVRFA*f$PaR~iD6%ooqfcQ}`AA1J_CvHe7 zTwypd8XY}NbXHNTWn+e<(w68%x}>o(qZz+v#f9(C>g6Lsu3Qulp7mpdR)Q0qvtJ*l zyAmcJeUMGtvtoSfUtkxeEip$d#?7#pyIZ;RNE4kfMmQF7V|;1Y0p<5G zNwoQHKyc1!3_Ih{N(0xUgw7n~dCXBv{ZMavW+Nk&o|E-O!b%>Nc^q!YQ9ON)u=%B3 zPSzM%p09M$x^M@|Qr+9_n0UWfHWwwm`otUzx9VLFcg9329pzU+b=_AEFZHpEknWPv z5Ocqj(OFo5K8NRrvacq;H1(Tf4i=^&!Ev!1v28);%L^<$`?XIq>UD@p@YHZZbrrt| zW=0Kq<{nBHC;8%FL8@w^&G(9lp%+_Rx#0D%2Aa!k16+zs1=)bVk{WLiTSrNrjq&*0 zKKR47rXrBx(mjtT?X@G^+sYlB!N*C-@ut5$TJniqrU=ATt%U48&v9Q-mor!~(jjbb zBBXl+KV~+6yj_xwt`jlMcXk=H+Llv&DB}jD6#G(K+AGnsbcH?)L9xqdL}eQ1aeAB2 zr2RRhF6eUlEXWchAOz&kk`f!Uf7szY@0bTGne9kJSzcsvnJnoZ{y4$m2gqVbBt^HE^Wc% zm_iURSr{SDn_qmc8BtuNwJ7`Fjh^$BgzTRD!PtG=7ZKN_gSb z-2-x34kAROg3&k|cGtk*zq)KhBa^)GT7NlJEw>0^RM#`*Wb4O|$n!%#UIxF_h`TYK zRKa13jC%chv0qe^Hq))8`@JYrkRNJjrkHY6|yJcr~eNy+esW zgU2QM#YVZ|6-VuPq4LkRfj2glY0W?36}$PNa-Cv?6Xh1j@}vI%Rb1}v%#~P8I&u@a zUKp0u+3^lt74OQ8&90jVJO~ZYmXjruJ~?wTtl39zJDZ(a*lYKtyXai=p9B}8Q_lRo zuRz}3WaBsIR|Demq)-~s^%4oT-;SXYVW&Ue{B;mT_eIY9*Ay;Ji%Qr%K%-Y=@D@dd z62HY!h=nYjyoMxgXAu`&0gQ&aCF`BH+vq9C+3$P_12ag4U}Z*X7>NT8?y^p>^!D}| zp+9coz&}ah1eWN9R|SZEUG{{YxQUEG<7aNY)#aftMJ!PC z{4XdbbwaAkg~}C6ou!m^j*$KAG!)CgEmi zX=}kpu0)m2!Iwq6z!5#Dh%vr*s=RX_0h|a0d=zD67Wl!=J~!?ZAe4*&uv`YN0N2%4 zH$hI@jz#|E@7-{JL?EN@bzcw=KjxECqs?Z#;{f#?Iss2%<1k&HrH`UJGK;SxkYYol zXH(OBCj_ys4^(h=73e3$v(q==C_j#~dOBe$iQn#!`#-V2G(mS*0^|Qc3pc~%|3jEo#T>|6{24yNcT2t_m6igU6nb8S|g8_Hcc8hDxUT*gA?ygtlLu}3&Aa|ZX z^D+PFtWy33h~C823Kg{Bb?%FBf|mWP$q}m8+XaC9qnPgbQ`}rmqI3g0aoJBCtx7yF zwl@mf{7Up79g1dU{Ee)Vm9}&AiDE^^@-85Epg&1YxW8rHrM-5NvXT)Fj{E)q#=s`+ z`_!xv753~WUeB;1+ub9AXvD_sms)q(hlmtrl{4Kc~l)pnKx zQOyn;r1V{_l-m@oljwlp-|IWzu9knv55Kb5B9RI_eF`_=@6`jQ?4tp@A)l2bHG)>q zr_7Wj(B7`;uY?Tm!d)a8^LE~}AU~;-KhK|)7OZRNb4cj@bt_K%^;-WcRt&=_Vl8#Z zq5LsimqbI92I^$C_PYjbJL4PTev*A^C?l#HR8toj%q(gin&DeZi5s}`pqx@mS#?G6@E|8D27ae z9mg0t@!f(X?+&Wc+PSt2GaH%9F&PULRwhdxo{g44iv_*jPZB6m5^I33-4P??DP#ph zHNla&)EZfioZ^Dhx?;4-8s)Ls`aI0zkljnV+j)1v5nJ$HAdkF%4egz;R`kZcfV3c| zvU?o9DvfmfKPz~>!to=AWIxQ=Ax8X}(E}=7U!7lr$Qy`HNzV5}q=4g!e}Q@kW2(PE zUNxA3%4OZ)6XWWILUHGug4Fb?#n|p9R_XRcnuLkz*#)EOf%yDwhl~ZyY zbOZ#u&kOzGU^W`*d0Hf--kE+iEk`d5ViEeYpZSLKoqnqtIXf2b&7r(=4Ifa`xK!_Y zBRO<7zYEVA>MCCz)NsuUu|=3Gw##f#_y^S|@X~R#E5FPB^`1BFk?5-Tz4!wh%DdNL zD#~L-ZkT-~3!((W)+1DYZ;xDmo1J)ap3U2{YgC-Qf2pnMHm~C?8%~`F;D|8~5}s7t zt#!0P@tPfL=h>KFhUAEJs}TCvbU}NgXH1@VmkjzWN3rxqM?Gh)3ZYM?3!4DO5fEMS z=zAQ+d>h@aI)~5?g9Tl#Y;5Osk+Tn0(8X$_=>qg6?B3}enz{PXDMLb6I zZ_VnEh7mO6o=n^0}iNSFo!$+1Hp(ir$ z5|!;QBGr5ly24q{&twaanPT^ZPOD-UmZaDzxh=A#r6!Xc6kv&-hL?`Yge;z_`-dM2 zHVbt?iuHe~UHI!*kiRg9R#+;T2bI{NMGga0F7K{uAe~F^WQR-(#LRJ%ju9v-`BG_f zK~v3tbbzm4@O+m^o_E?+J7lIQsLNN;tfIR3c#LFdz~6r4FfVIc|Z61xDB$UHj7nk2%B9a*W(ggdieB|JqzIZfd|Y@`{GMtj*SKrlH@ z-edlcTCqr4tB-HE-bgg(BHMSA)bS$kQmvGnR8V|o7NB0bhtLzMM4nJh_cXs+m8Kfd z6xzFlH#?%^MxBx-5*O^AgK7B)l$bdV_4b?R5!RW+1CV!b`YR_*(VDoA{L7VE+qX+p zmQXdT5{rN%{5n6cBgPf-_k*~x&>>e^!}Ek%G%Y+7pq&>WV29R{q?7X7D{hx_jk@{f zGXg=iWwtI4Zj=koNCy_bJ@IZ&)-+a>biQKr%>#~n-m`l7au|W`k2|2{Z;ZMyt zp^k{IOM3tO^~s7r(}zAw-CjnVj-kW-kc z!lXqRC;xQ1N6Lef<)+LwNu$YCQ#wnd9QkUWojN}eAvfW)jQTGv9q%mdyt z6Bv*?BMa<Fb`zr8)CEx-6r($1M_` z-S`=d7KWjPo#YfsO@0OT7`?}_LzIXW=xpEMzaT8(fJZhcAP{;la9?W+g&jy?Bhl9) zWzfF!qSaazuNam6Z>h7fMG}?&%BM};PRQWHX#be$Keb$?Y3-P}VU!v-F*v=@niH>e0@?E$8WU zM$*j)V^g-p#1wSHdtPV}*>7R__o}Y#6e1*stH#x`CqRPx#VYBnYQEhR*^px0`&GUD z-Cjc7NVMAl1-^;drSGdQr+65m-K!uh=*Qk;qkW&Bq0!`DH;4WLfcF^6`(>@#pRJG1 z2mQE=ckBK7T32BI$ju?-;_`14*YD%kCubM59wiHNIrvJV5s~pEP@H6HWd>b8NoJ!sD5=wEE8-QMr$$m%itQl*!c=GfM zWvkp!D;quH-)5l+2DEM9whF_o%)c^ku134+$Fc!e$t&ie19FM+wfI}LUoCR zsL+}+qz_$%D;KD0a?OY{kOF)xM}N!8zckSUeOKf_C6j603}W=JO8eGT*6~7)&ldT; zGw^>YQ=Z^(P~-5chy&mD?>fi|1%VDWsZGrT1%_YE7(d`p$`hHHb*TL@)slOX|NgD# z;B@8S1yt80UsXauQMs)rC_?yv9UWeH`B+?VWCut71CWL5yYw7FrTWcZ_$~eb<;$pl zg9y6&{0i+_9(qwq3H4#Z;U|O%e8&q&ca4Ee(1P(T>DAu0VbWbkV-%&(g>PaKZ=9*2 zRxspJ7opm%Z8bGG)KfDO22ksM*J$jO|VBOd%wah0QNQ>44DlE~z5Q}-9^YMERy8ul&aqI6rvpiIbb z`2NNlN5OR=I{SR!$`4_eIbl+QXpx8!(Yd!VVu~vN32N!-=lqLa{&0MiO5Vh4n3wOJ z=oOp-46=SKp~|b6*hW{;i#VNDg&V8(^d2M6#>W%~V>>FN%3(K?W3$A|FS}8`Id3~n zzrsY91m>Je8% zqPBq=$^CYL`si15@$ENl%>fzGTbM#4ib5Ei{e>t+2-&?MN1A>VB{?$%EEHt#wXPc>MMxK`ywM-_nSn29*kerpUV!Zz z?{6X(+@C{6pQi3!7wo_%*5S90Mps{FVwwm+N~cQ3fpBtJoaR8?MKyb3)lsj+LV?=j4k>z0-h=$Df8t85JA0GB<2cZ-4AsutLR zz=sjII4LX8h8~dYOO5;4bR?F>!#Ksns}izd2+ zINYSX%J`pLO!6XL_CcJQTzgNhnT{ME)x_ua@*z`0#js@JwGhVopX6Ix9aXxLITa>w zwZf`jeZBMSGaG@0cjzPd+$9!pIJesSJ{NrW(XK95m*U-3CGg-3HoHnR@|LQ=&gfOK+hdQMfsqS! zJ+|yvZ?Z*l7W8th3*k8=aYkwrscXWz(#f`wYxh4-?WX)Cy*)1dflJ>hiFO$Ma)Z&N zFoO#JzVL7Ayz5osTV3&Z?r|8CU5snhf|~AiKi)rWm?cCzx_Qt+%phO)i|V81`Cd;U z{~1&hssb4g_%niM*#LAeRHeGn-c7vcY{Jx$4-{*y`ud#yjG#}BP5wJ=ZM}GY z-@bEPm{nf#mhMW%YyTki^Ln~ZKC!#scyBcn$#GLnoFW?&J~ZFR=?;$b-n%{m!e<&w zes|JtD)+B2VU889x^9&U-z4;sz@Y;lD}w}}(CWs8o=m(k$o;vmn!}gWS)UA}p1A}2 zMANM8klCvm(ipj*gFBdeC-VjN9ls~BsdzU-3vSs*xCbdi6@A@N`}K|OmxgNyjlf`z zRY%2@Gyg3*^7B6+-T9WurX2aV5nbJyul8%{`mr&E^ST`}%(JmiWJlbKU@;~(&n0oTl?%E`KJ|k7;XkmaTjYnF zO6M@eonE~O2&~CH5yFzNk~m3Yy=99C0jIAlOxnBAB24&fy>mZ_Q4!0){yibWA7LdP z(vkH(_XG*^?GQGS>Uzr-K|=kZeQY>RdX*l-7;RO;fJF720-kx}5tM?nph~?(l=?HR zHtyGAs3i(tewKTwtwXxUOURqKgNY|IFFk^t{af2x&ebjBJi6nXXMiXP#>Dm3BN&Zl zt;nY*tA|Y@t0mW+Hu11hcsG6zZWd%YCwwy29l&JjY`%|t!tBoy^6AvbX%?oe-`h)g z80wg9etb+o8{ z)CNr#IVsP_{3JEFR&SEhA)UkwR*XKJ)>}t(Z5uW6OP&}meFLisShax+%gD;cLc#a*FSj;`KqUa3{1dr)l~Ex^R)qHQp`ODxQ-senNsFmW*@A1;Z0I%hg!CX5hF&9#S1%7bPT|x_+qhE$JvHpL`gIh@$f&u*q>1e28iHNda2U$aKzKixOnrAE?;V3 zvWP7*pwK6}3xvTV;GWxn#vj&I#xm09QYs3i-%5-B)UA9#JoI@1j!H0j6BAc!m1OEz z-hgf=z%KHrv96-2tU<_gWyElz2BN^Nd=%U$SX(PU!7U(Jf-^6i2sweiw?UkVV%NDM z2*pwPXy4|}PNgRmezAH@&7oU-!IvS}Ha<~Ob+kmnT^i-SktUB_|rE7~)rfLQK;$pY`pmF?AcSGG?*$LArBe&hy-mhXf zgafGB8%zp_sz_I=(8>#Vr>5gV98T)lk1CB@NJ?0C7E(}3#>fdFln=6B7QkC2nVVIX z6|$;VC5{@u?wIFMizt|f56N~5OJFmuiij_$U<^f}#X45d-k6oP>@t{By*6w7hI#YpJsWyh(< zVkIk-7|s>l`wgSBU8a{*|ELYrD;ea5k2-+odN16h3K zKK)qvj=oYwa>vj3k+Ml6w`~Bag;q%kg&Ow;(wuVcZF`@d)Y?C+4prH&>jhAOBD(!D zBYo@2ov!Rw*Sx^{QmFz|mmSW`miqgq1mJ0SVe)WzgUVo{iplc5ED38<0X&2iI%3KB zRVJ@-D5*yfRT>e{gb|qts-bnO8kgo)n&~@urQPvX3XkRf4Hf{XTEEJ169bs)pLzF$ zj-)RP#o%97V_*4bJCOPN+vERd9Q8l>ZV>wi@cwH4^WV#xt6Q}urY*fXhPl-vQx|%M zXLo%B-vqX#9w7Jm^vb3A!>EL4UqwttLL2t&xgIO#Q&bzojr&;$M^x2=eF2io|6mOp z)%l?~to+CCQ#TyMl10W3E`Ewf(cpemRXD&NHR)vh=J^xF7 zU67CAD{tpS;?k0C)v=!YTI!zx&iH$AR)`%vp=ID3&G71{F3#Se2_Mq+MeINa$Z7P( zlevSheDT){@l6g6IJA7r{OjlhYwHqijNcuD&yEPMi!wx#m;8`z@Rf=Qk&ZNU+kBJ1 zL+${PRjdEajg`@^mH*vS`)?RJx-2PCV%$Dw<{6%-wAbYwm2{Z>sAttZ=fDaxAj zM~$uvx8ozHu-u6L1fRuI-B0s0j^_E5e5X$U56~U|C1sgVEn74Yp0={&voP-JOdZS@ zTU;d168%YSg5RV*i2$^Xoa#T{qK~*YcpuUt8qIrxefZL3_)?I^{BT*aN6|M3UGlxEZ@$C z-$I0;O}*ek6h&$7KDXfuQ#QJp5uLRQeO?ALB6^eb!H+rB3c*=;Dg9^|+Wq4hk`)Hyl)g~BeG8kntCHY~73eAO`NSDUMrCD{k zjMbj3?Ohwvs!kX?z7YI1c;PGt)h!>G3F)$x<$J_AR+6x+Q?;!4T@>E@s%zj^WdGoJ z*D7*ssGo~JfB%NGHS_pT;ul&}G3u+lK%U3WM@~Q+SH1=PR$eOS%#F9hv`~Fq_YH8N z5~jbEn_-u4cXwP+ih6_}I^j4>O})?>91~c+{NXif!I@(&oNqGMyefU!)73KbO2~{( z+f1Q6UC#?t4pkG6dVMvku} zxBt>Y`2wjfWeO?lkJ+{gpwcU+LFl|zIk;>UG@poXV1-j&%qXJUiKjFmaUxsZ8b8)} z^yqzuXguU}r_XTD@=y4%nhU`1wJHy}wwzGJnIs+r5bLyAHPc1!ldR&EC9^d)#b4@P zv(AONEKpP9-&+P=*Q}IPT}i8`wOWb%(~5VlL|*T_mDgdaQP0G*(kCppCAmBv>?9a` zWuM`MPF_Glu%Sm%$?fiZ1Ej2>fthH@U~gncle|};?(nbrq)3`i`qHE=$-~b4&s4ya z*tcv3l?!;S74}_hv{l5|%PC^E??ff!>_8>_`!Drb@xRo);Ob=oFF$naHmqUiR;=O8 qo5)=f=LAp*Jle4~|J#4gtu%c3I*?4_v!#FCrT%&2b9ve~@Bcs4%F4I^ literal 0 HcmV?d00001 diff --git a/docs/reference/plotPrediction-2.png b/docs/reference/plotPrediction-2.png new file mode 100644 index 0000000000000000000000000000000000000000..92fa0c2b0ef98d79feda0ffcf83147fb103425cb GIT binary patch literal 23541 zcmeFZc|4R~_&2VNBq3X&WDlY2SyI^xMIn1+$vVn1gQ8WK>>^t#OUYKm#M~&mY#}Db zjEpVoG}a_MXU14Q-#?z;@Adlq{(4@IG&T2q&UK%2UGHl-*SXFedf7mmaUa({8X6i# zT^$W08k#)_8k${pdv}2=lRAb~G&DPIUe>#+3BJD1px?8pjfv${KKq ze1ZJqsH7A{{%~|uas>Y=QHqLEiUOZlee#cozJ7$hhljog_{`CdXmF&^a#W%r_fU#* zbfh8oBmYE!KaNr0v&1n9>sSJQ*Fa}-SC0sfh#ZfI29KPf2tdvQ{DKQP5e-8T4Qo+K zG*Ms#6k4D&`QhY$N}@`@FE$EW5`|sM@zBqS@W^Qx${AWKDk>^*q$zP!DsglyiBc+w z0-vC*V+r{OTY?3@Yb9%I4H5bc5grXW9t{nk-&(`k8a7G^8|8>C0l$DMr75{N_*nxz zuxo30Jboz0W2hlws3B))2y|NezQY4C=>$In-9R_~hP-_39&Rz7|D^k3ol z-8AjjIb!0oId7ZcuL;U+m2>5D3lj`8lH84-GcP_SHb`?1VO zC|@o+*SN#YXQ`1i?FCuB2>^|ll74E{NE3B0*&5}ggh|NgEj?WJf1bqp)+&mLaD7iWg z%XtQ$M4`@7o7~M!=X?QNUM#?isaDv0$B_v$Ux9RMZ$-&z)Fl6VXn1$6M~qdHu!n}p zE=-~Qs$F<^iHB97H>Bjx_iQ8`u3)F^@2o%=n3|(5D;GDnF)69D|<<@>!=Q6{>9H)M0^v9KncAC$hdF1dK>~9{Ql2Uue)FGzD%v0Xa zOiV+bvKsRcC&*2{;jwq^xHF1IDbSV+y?Y1WHzH{u;TvB`%$)or5#VAEp0w8cRQgx? z+%rc3eXi0&9x>VmX}ORD3yjqITA=-RDa~gMJrcex=q2pxt@3Z9(=k$$3!ci?7ZTSj zS&2O!So=x`lKDc>pf~1xl#>dsygbj}0(R+BrSdrUGd=eJ7f11DXJx*=kLK3Yp@2v|FvlC$eo1jWB+B>g4ThleW^$Z^GZ9d;V`n=XP3{BPjO-e{HF zrk8!a|KD+3W{+O1X2p#2nF^v-;7{WY%gc9#?~1KhqH@z1X!JB#iG$wbn1u%|1)WCj zGl5ydLp$5Fm@~qTBNx5V=%RlGc?kXGo)4_P`0>jw^Qt+f{nMzY51K6WJFJ{6Y+mH^ zfa&EtJ1h6~b7Y5AQj4tFP{42ly0w~+cokCkn)ZEx%)P!u*F=RjUtw_z$(-M*(=S9H zMWM63UvZX*DV(1pzNs-I>8;ka1m%BfZWq8;Df&SpFOqt`3Vq{n_@#X-!BIy4;t)>l zCRX|k&fR-l>{UFOX|KZ;hh6UaSe0KViWp??|Mt!|zsvk7W+DcRSM&qRwXy=cBH1zI z+CuT*74J|udUW!5i>h3q@r9Qxfa;i7OT27L!~BYkm8oUga@QPrn6jj!<-Z+owNJmh zFg%@@i_DUiUd)xm`*XJX^4xP)6AIHj`nCI_-+&GG%B-q8WU*w=oAcp~V~LBy2M&kd z6q;>aPc3`a@(V~>K5JRzVcJEw9QVv2lm-k(TWhL{DX6EDx+L%mE8kxa8@F-K3!36x zc```KN(r|dqF*e_sSlI+c{k1_?h9{bj;zHQQ<*}2h(hUrF_erc8ZfmORq=-}FO1jW z1`*=V+H)iV#@S(V7p{}!$&C#m3U@|0Va3ut?ccu%;8$0!D(YJo6kDsTN)@~juymDR zxGRI<;>{_1Q{r6P6=@VI{U_b~nPb!FxU-8QwuB^Ki(LcksDTLX3+#uLF}?yxC8@3} z%h^uo_U^+$JvrR=NE^eM!k023r(yI zFnKl>{#B-yxnsn$u!??R`2@b>)AzoeUG4uO=-F!Tt&oA4{YLRGZeb}#L(I4e zcO`RpZ)-^&OC~+z<8NSGjyV{9al_!ixYiE0Ea%X^GxuMc49eY=q&a!22+=8O)cCJ! z?uDZ%(y3(D6#HgB%wm^s%*V+$7ko`a7vW6#8SoE!^04MA|F{#5mrHkPnk+XdJufNp zgB26A6Z3@e7vf&=W){gNI~O)!%W*D~mCvOuSqsLRnC32!D!)Bf^bRqB9CAaI zJ76z`cN)*5W+F!Fjx1URq%V|^K|Vf}_3ZdAwF_`(`3}Kk%L0|bYl3g^b*@X6G}rAs zNcmEz8*wE_#u3bHdtOlz0%Kzm|JaiAimbd8R=jR;cyjY!Feny5@z1)FV7k*Eb4~G6;KA4+S!uR0~=B zd={daeTZP%U-SR`m6PU}bjbgIAFN@Ei!|?Pvb<-1(MWe8PDlS z;}8CiyKy4gM7&0sZgY~2%+8MyqdPWnJFne~NXQB{I}4dJH$J#7SgThaeUQkH-*!PY z+9Vs!LOij-Lc6SKol^1zJyE7xzAQwQt=X7o`2P1f&vf!y_S0`y^(&`iI{!;WH0BDpaCDPwr+f^$46Oyt zZjCNXC-uL>ozY3{)!g2qP)GH@En;+V|KrJ>rM3TgaHk(kMtvtCb=L;eo9*9D=WmZag!m<|r&ulHT!r|`G%v%a|E$d_AjxFGuCl-!a)#NZx)lt{sE1yG+`4@*(IxiL7V(Uz>@&KDwrD=w~rG0Si2e-y^#lGyvw<6uqBNAI7Mu$^RViU<=&)Kk@nki>(=Oqd3wAB6theDTa?c1e$%8`i28|>6cY$ij^l#@Ed zuvq6PAgq&A&0!PjJT}E|?LY;%==m&Lpwk574dPjCvOl&>FiEBJ`nKlI<9bH{va6^{ z*6}ehSV2bc*rtzk?$8U|em^ep-$x|k*~Zw$r2S0bm=M#$)UhR7S0ab~CEzCm2L-xf&NBs>2&2D_f#;`P2~qMvUDyISZa3*b*vjbz5z z#Pd)2)ggur@mJaJlLpGR>D2bch&CUW2JTO#@)vP!Y-ni6)W)9aMIa(z@j4x0{vO$V z?rC6qoyhmNRqpP;iZP;m7Vh`gN)e_&g!0|rgKAy!=b@uyBcDM^eBhTbV9)S*A}8?g zm&P2M+{*rcYp7&x_*bS2$E=yij=AHP-oQt+&J z$CZ`7@_BsvKur!3gIf7H^rkULp1r?67t?RgB)_)e<0D=(v4iZ4xe}a#L$S84!yt%) z3sx|9Xcx)e>7#+SzcY4>XdqI$m{3nlu6zzq}3s07{Ybe*SA!lsMo-jR9HEN8L?9hSn|{gWI-sDnvV^IKWgoGj2jrJn;J)%+`q)-it% zAV;fN_9?^;KTs=Mht4Xl2R8DB48}LrweclB?Y)WmaX^%}M)_Uhmy&S-LRT#jy*45! zkoPCBZQOp~Sj^)n0;9vw{aUuq=<*Rws0RudOS0mP=yz5+4OqX|m}%)V2Coek~#L*PpkJ>>i0S$J=%a+h@Y5nwkH zm?$>>f&R`6lmNsnDZ0+D@uLxI8aXVX(RLlo=6Rc5Ypjebcyw0Yb;fnX|zTKp)L1QQbvh~iO z&th40;*tkmV_J^V?pg-o$pQS4sZGNde;hv$D_pm!z>kMRF|LKZI%G&uj1zOAmjqjC zqHsmmBj6O*J=e|yA`DulS!SC?<@_glwgFG4q&M3&Jx00HZJQN}k?C~XW}suluQZ}x zaVz+5#iK?6S;j5sFU_vK>|3$FxePmApLU4$$Y)3Fw#&WJAP92XXMT2;3;uY^D>-Hv zccCq2Bh=!2@JF_Ya3yl#C7P92FK-Cz+({$VPLRJOooA&Q!FLW~;f`-Z6+XXWCeCbF z$_rUv?TgV6E@JiET?xAv z^BFhTwp)Nbal`_dOTRU+8NKt{cw!W<`*oYuzaT9t_aCz!s|$jyO|NI3mgBt50o~r_ zK>VZGww#e=M!4^=G#}O3yyOtgo_^PUDVa_+t;`U8%(^K0r{DVU7_6=yd?OmPeW8O>IB4y5ijV4) zs(7ORdi<>TVRs(#S|8D2{&_!mY3-)AlLY3S;a|4Cw+qY%Y`-5ZFfT77cw*}rd>(?a z@B|CJjo_MDE=Cv4ASt}DLbjJ7TztgG6pou>-S(ipiYX_`mtZZ>UA(&-(Qb?S zPJ@>X8s;1@?O6}gw7zXOsx-wk%2;8hC@#X|v+KtCT1Kia1IahS@hrr=mtq3+`0#VL z+CT`va35qQMrnE{^^(r$L9V@Lv`VfW!=HXxM_&EvT^`gwdRSQhWXk>rKxm4eb=+C& z{r9qunQKB>jV^jG?=gc19FQ`?)_gd#Q?ty(@sHquuJq&G6!a*5qBN&xb$$s?^}$6Y zK3G>f9`g(&1Mh4wCoITE0T%74Wi_er1Tp$@)EoV;iFdUcL~EFb>c|W}d`218OCb!0 zu+i?W4fFzXP9fZ#Q|q@VNbBoMi8jSAV&w?)Kfm$ohA7N?pb$+m61~-u3(4xhn;#_h zj3>5XCOU`W^wwr*NdBHTqes|?wXJAe3u+=5VbMWt$V^vS# z=s2D0T8ohkMQ|3WN40$T&hT5TD@V)I{sqk}dNLQ#J>hh&7_jFI^)nR)u4C^-G(xIh z_i6IPVxw!IJ0lqVuBWp7yTkg>S?Q(_R=&{fLq888^`S4xG5_vN@Ax?pyqJt|9t@`k zemV5xe7-((See+3FQH)R=cFY%X}^=s)26q<&zT#~N9kBh9XMFvWr(lkUEMbE-V z786ZyQ?qioA|>?N%aT20Rm1S%)}@y}JmsdYE0+zUTq(iU)5y5|(7|DFbBE`p!>dzm z{aCQ2)L$`|I7()bM&U^%qY941NVwG^!iF-q>ps#T4P)z;F=cLl2JiF7e|=6@pah%9 z9v~8p@;m?1)LPE?Q{Bx!^F;Wz4$kkY<;7#I|KvLFNfHjAvm`n|GMq)Ons2R z>o5_c>gVoL3%ey$rowrsy<4;;@30mnsrwyF} zp}IteNt~@Py@2)JC$o?K&633GK^g)>2RJT_zYKg0{Ivwdwtl+QSf6IupYoy2U#cF7 zxC=r^J_6$>VFM?T-gPrGLGc2+YLfBo(%)~PX{ELq$yOKEdR;RLCOktHNj6P? z@}5K>Q~~3P5VOkW!Dj-oNsQ|Q%};dAk#4p`(ng;+B#^2l>Jspn|`Vb!2**F`L6Erd0J}0+BsnJ#bC?9to;meUg(Ki1c9g!@%YFqoC31>6 z!=Mbpk~1$Q(pRCW^pqD+cPAZDS<&TEcG|m4(thQ@R?os~%-P()Sgab_hoIPjKb`j~ zE;%OHbY3f1C)F|o8(YFtxu>pTlN zs3F1k$Li2Rqe~#`alLJWk?gJI4vcxv1SWIx1ESJ@5piV>Q$%kPijY$4RUuUc)CNb! zU?Q#m<}S$V{8Ds~LMHF;U*Wwu7``W3$(iKgB%}VB%boW^ZJbOt=pt5jFJI9AN62C( zM(pDL6!wBj%Rp}XPpv)L#Ew#VI*oDRSr1X80{D$Y(|6CMh1rR9Ia09ID475&a%l>oP z5_2DZz*;Xs-0B&D`l}7Rqv4Pf*m{pOhGsFd^&zOR!H>9q0J4O(h}gBf2>cAiZT;r& z;jqdz(ilJ5!t9&k!C7qnY2THw#lWo2`M)!%bDShCXo+c1uh9wH-5IgmUxVV<`7A#t_s4SF?t> zw4%w?syCs5s%N32!27PU`(hjT=ffRCgz#@AxYVCpLXnk!t6^z2?1b_UxSxq_IquII zX+h_U&=~R2@>r$$B7Du45hxDuqFNy+IGdRusm`_i(ASTIm6@eNQ-v&vaVMt`RN7IJ zW6MY%FkDYK8ZDssMweUS&=Vni6Fdg?^Dp<>-}&tHx`5&-_ozXaLH%T|!es`pfW;6V zb3q$YuQ0u~+kmPpX(YX|J5wIdoyk~e{dxp@tp3)*i>%D&a`U%A(-X=uPwxIx!sNzw z*)cjRDw3val9-$tw4dcM>`CKDKN_ab0^3u+wESD~@Cqba$h|5Qj8MJiEhx2uKw!#* z4Fs>2b8ACRSb01Yz4-A^eKO2bEno-9#548t8|PadUnfJb=z9CcXq7!5y@^M`9wL-I zkdvG&CBWj|o4k-7FcydT&I!Z;p|XjADQ$dO5POQ#@3dIj;HJ)wzKK_0CC$Mj`t8!R zH505=r`Sm8Gd%WS5?H)DD3I)$Fjz99cqLy}%On$vp`e&otKb(LmAoJmb zqR}DJLa|Clm(>>|qh{GD{?lnHX}PKk&S!k=P)a>-fHr{jVG4WBGd}#j6Aan44+QqG zz-(+Rx|@H7$=;c{rO2_|aw}ngoCpHM_L3IDC7UeZZB1BA|5VVN;feL&DCw->2^*E2 zH4|TA1oq_qR+=-LdzWe|Ur^~+L(+c#19pJadjBGn(-jTFdh8&~UvG~-U;JBXvXr~U z(;Cs3(Vn|~@L7d$Le8ycHqtKp8k z8^-2F|1b>BT2#U$a$~0^Sdv~$Ku8hsJe>_lgzArUof6yfm3+%C2;GA}b>Gee@C+6C=Jt>o>}Ct9P0uU%+b839&Ju_pQB zWPYI!uJ_OCRBT+3&e4BSs((mnF5G<9Oba40x={Y=dz@FMwOoxdGe~U(jF{JdFMh+D z@^1(^-?=t8^em`frOaz)oO6Pxrsy}19XA1?<4UMKOM&a|9}A^lZw4>bV&|Qy!wXx? zykudc>lbATt316l=D&iQn)|{8d&41lpEAO7Lb*xS{IlNUg*~;{rCZcqz+*<{uYS~j zyr_WI&c55Zwpvzp7>G2IpOG|O+-*7zPrB)wubH{LOJW@xMJI-sUBQ zIXZ!OD_AjB<@BsOO95CPBi|s@nziKql^H{oZKvrxFV9ccY7Q2I49>^}%vS@*ON5>Q z1gX5FGdi>}chP}=>+P?q>q5ml9KHh;_RSdi^C(~9BEI}><@1}Ea&Z?(_$`RqMDe-2 zQ>~4coL%-dy%s2z<@SapS)c|AjZyG1%cA=TACjxf@lp;FtwUq9Ik(%gyhp5A8hlht zC^+`q@qabR3St>SC*Sc2GDHmh5}UyH4dBj3pReA%Z||c>1nOBIU87s^dWP=(Pn})0 z$#Q!G{7gT@Q8sBI4`QH5K_6b%vZ=W^>V#s)Ws>9fa;#EVvx1S{Zt^xRm&np!rTkJ^ zNedhmTiZ}*$hcI+nA^o1yhnS66~-6~he!WSNPSvoS9zN3Ws6j-j=nLt!8b>T>a>Ll zGV;*+C3NiCt=>{K`x5KUbEe!sxh(tK- z7C!LuaC@`g3S2-;S)9aJ%)e>dqPFjs=9()1@eL1ljsF^5TX>@OZ+fY#JvsH_h~hcu z=m}*bLE=cXp7^TPjrAwgCst(t!8fe^>zIvq4Z%Fw6=B~kNsv3J52^O=Ah;70F_%zy ztAaKY({kT%pxk{ryFjYjz2+dSKj9uCS+RTY?&zG_8EORo8!M z)$hVu*}t2`Wy8f_HS}dwLmCPH1ZTgfdn)!h0+x%a%w#E;h`YpPXN?#PS9sC?Z_%OB zN`RvE#!z*!xY>oU#2O_GGmIXin|9UP%R^Cq3}mX`t3^L0%#-r%L`5BAxD0%gRz0<# z)6+$(BoSTr#U6zT@uBBH7L$g8NVsa!;W~|^gJ1NFSdTNq_7phqxdY#_AlhM%H$EX$ zt7mj2m<9H@b#}D_U6KrpE6_Ju;@_!j@7J-}=d=peRt}BiwN-`CBOsrbIu%{GVterD z^T5W!^WAHfd&k2@Rmc+@(75e~k(M>3c2)|GwOT?CI-RNfm+%aB7?`sI!ZA5zu1QaU z@uO^XPt&u(hLN&&{F--%A$Tricn}v7DZR5pIFr037!nI2stco7PCwOY9kCjGaN|KH zWly}L_=LTrHAiD;!#R!H@EksT6xkERKW?sVBDa2|b0qyRGfan)?n16ae$1OL88f~D zWyyV`nlm{$!6PoEx9$cU18dL#-fV&u%I}8Ocy-A*ab1TZc<(wtF&D;P?AJtsCd)^i zvCTiFbMc!~jwVMiChmF-@bR0&T!OHRz$F-y71Y1pd?EJ^v{Bd)It zR8}%Xq#%#$BnZ8h4>{N53G?iYkFgU5u5UK%Q$L&31ke#Cfyav!>;VACN`*G9t%NHC z`rer%aPO)7^BqP`yR0DDtkE&+!m_(LIKKyg78WfGwuOZN_(7FQ?a7p8PB5_-nn`u& zu=R#jyZ1>fhS9{Bj&vT=`myl~?Ny)ig6s-KqU%iH0Vdka>m%XBDB_JI5{kL_3wfi@BT!8c6^K>i z_U4nC8In`h*l&xgcy`Y{>!WzgRlu>#oZW`LJ2F){`jE<8MJ%GAWL0%HnD>l;kGzZ} z+VP|mfw6{A6VU%M=?OOZTt2PoUMV%d(z)ZMc^UPLLJxD_fE3h9*LY?@XXVkLnsIv; zvpXPNi3W>`UH1{_g`oafgNoQN_>~r`yoh|8$`^MoRPK`^%-fDdmj!e&!>+y##dLVW zz6e_f5sepuO3KEIkF|Uxl>htm$7%Ri!V5BYfz7^M;cfLu9;9(OLaq^tW&4stPFP2d zPy4%&JiZ4kIwf-vk!$1SdSs8^9=(sKBy~O=aoB((ScfpRWA&AH}SyiFI>x| zdCo#rwF?LQR`R^Hs-_nMd@G;iOexTzd8^AG((G?pli_!86}$1D3D~fq_y>Ytn%^ zuYvLB;1=a>`4+?yvEadP&}KC5u6(rGuCnwvq2*uPgsVWcMdL%u+X`WvgCFK{!FmppJqCGl;sw9qR}C=W2PSQ7tLg!D=h-=fBmjO+H01Ge_& z2|1%PVYzGkJOUMYiYphggFeK_}KyLTi%?vv>Goq%V)*a131Nv(xh>r04a0y%i43aypLgtOcXL;28gkmA)snLd(S zSk#OPLjDTm`KH75@$<60gd-u%o`vTTy6*G89^2gcYoHH3)*~i}$CV;rdCIjGctth6 z?B3^4(*D$ILg6J-1oxhEO@gO+xnzJflUVo4!HN#M&gnyA4S7wG z7X}f$mC2EVQyegd!K!5LP}RjAC2oG`wBrn1o(rW?_F6guRq}AeP$5|V$(%_NSJ)-O zE<%@`Ey11SG1^+U`lGF1{7;q}*8E_iPS&9otqUr%HgMMC7t(5;)a?!fQKC>{F=;kvxtcd{@!$Bb zmbL3UHBZC~;p4|W+VEBXesKOHu*o!r!tXAQxXe#lggbWnC@p;cU{YOn1?tM=$oELo z>vloF7U30dtI{I53GUc)vu`JwT1-sOU>VWJgAVfYRI)0t_rKn^lIirAll1p}Mr(12 zV=#VY&(a4e@-$*tq+~tu_w6v=w?@p8$;R%cqFDl5#8r1HLRRDfx!7)sfHNq&sI$C_ zoYpwuv{Tcyz}yVF-+l84v$F{${QlJRo&y&xTyUYJ{b=@GS+JN8!0^q6$VyTA_c>fc zw(771)}X#|G|Gj!iC9m3MStOM3BL~9CIkF%_iJ&ZxRFj_iRiv`_yj(+4tijdLUyUh zWyxwOCq{HapM#?Ck!XG&OSzj`<4LlH&Nt6OMPQR-tgPub0}LY7%`Tm^X95nKff?3j zUu@OJMMwp8D9BmK>RQ#u&}a?tavy7xL%z#{Vx@f`n|I4bJyK2A1>IILhC1KMMe^s9 zz=K_cy+z*nEz;uxPG%xtqfwa-to$F}9yPbdl{+$=s`f1O)4Dr!V$#0%KG;G4>2`cE z4!ElOzd->s8bkXWPS7!S{QE@I$yub61N8PF;qR)N#ZQ7{{upZSZo>R|#7@m|+(#~D z*Oo$_>?%wBQ>T&2iTl737lesI;;UH`*-Ie8WRCay3}hfNzSiPzq-{T|ffp;;q=6+n4`D^=GkJ$ATEH0h<2BAF+uioEfcj|Ffg8_G zkS!AkoE)nG=TGal`_KTDOIbP26%T_(n z{ScDAJ;McpunHYXqKC-k-K@kv#;v<66)E9zU2*(@n}~(ViyUVc(Otb9Ak1`&w(P}e z?i0e(O#Iy!c#ATn@SG{PXSngv=`4b>$15Jt$}+kS>!)w9CwO1m}A|INeKPC%OELJH=40>`&&$ zuh4|N%b&wlAdd$e(jF46lNkZ$j~VV3?RErigN?kHQ&2=6BpRR(pbl^~F*AJeq87Z< zI_VPh{Xw+LOql{R48hS^8Xpd}sn0Q!v2zY$J*JxC#wo!Iii{pou+YJe7e4XmOw?iF z%h#Anm$hw`5h!f#1H3U6j?Bbkb-wkB9Y-1^&bkT(VD}rnkZpJG?#PJ^x+CylbbU#5 zW26_>f3vDZ(o2i!>{O;qj73zp{N0Yag4B}(>b9z%&{q$^FLQ2!J?ZY^u$JfA;Zk(7tKj_CHKSN?CXF9WuBVMq>_mb%dIXF%VNTpC&g;`@y1jI0yZ}=kJs3^#8i)g zxX@T+7;q-7;=aT2E!C?ks4U=bS}=L?x(wTIc{yn9Oq|i~bp#Y}yb$O!hb%r!yc@Sd z`jrc4o;^vC8F@f(1MTuxuf#CH@a2|?BcilhXC?5lV`8eVa;RzlE;mA+W{fLgb2LPi zPxkW1J2XS5V)aq-@hZH+_%WyO{aTw`E&3VP6Q#qMN63@nH#w|1!iV2Gn?Walkff+O zsD2 zp9J>+p`{%6!rqghNaS z6I}wFF$`^zKA$%Lp(Qf!m*2j^zcDRqMy-%V^CpXGXSl@$_4-%(q2D-Bn(JV4VZI7= zXTsf6Oe2&6gLW|gC6ufq#+tDzL_y|84|<25pS9|*Un_gg{z76Y-sS;9^Y^qRHdGo{7rL_ zwTGyt7FBk(NVZONlSJkxs>mdQHTMPN(9TJ9?eRagjTeMc4NBicC(V;G>?tV@#JlOeoAA*wA{WNJc z+tO3!%wtm+H%DEysW7D$Q?s&~ij0=ar4`omI*IL-HI=NakUEb@uzebsdf(08A{`8VFzSMVg zNMTHd>GlrTIp|@7JqAO zVi!t|E%Mm~QSEhBBhwI_v{r8rL1|tG3}XCUmPiIKmL7J)-68CZ+i>}gy`@r7bReKk z169vcrHrI*+Bm~OpIf)u53M<57b_*GFqscn!S!D5^@}>Sm+ZI58zVw^SO;mptQ^7! zfpW8ch*0*BW9dfA`DV(F*#;k@+5yTIPPQvc0k1MKz8NcpZxw2L!$v5HJ8zo1vJv9l zsabAmjOSeoHDugXdXpWN)+Jn7l$88BZs+1a_&KT}-Kb=CzglBacnzP~wVHJplx4cF zgTY4dNuq1@TO`WPT3hhaRB*H)L5`0c+euqPm(&!O=w0Q0h$2yAA7qW(YaYUU6rzNv z)*^wX={&iV`Qh6D6n~+hQQi`!9?i))Ageo?L@_4`%oC)*wShWx<=>K3C4&2#!nhla z_Sx=j@Pg6g<*UGM?o0v&>cSMg`?O2b?VandX>-4#C!?8|PPO^~g%m{M+4lSE+8o|e zoaNVa$<$`i1z-ML4-x|hz}6#?57|f)B^ps08ZK_~djS@EH7ANJhzBY^>;~3(-AGvQ zf0Y^ww!)^hl%sJkgWh22Y|GJ)qzrbf-$n}<^&3VaFhW!L`NmIsi<$_A*NBook+EmV zsx^GJ2J7*1wocybIclo35WZY%(bK6kdA)ECw~!>o>OJAJe)6z28N1*2S!ACWJGR4X zcofw;#R+Q}nE33oSj$CiN5^NKV7My;{)pgW(sGoex{(%v(uB@g!<-C1Ee92+f;;qiHQ7AEzTyd-8ls+%R53wEwsUepIOOumb6 zvIaDfTc-R|Kh_^!sufE0d3i8Q@td;#EM}t1dpNxGys)TdjQTpnoA^R7-K8bdizcqT zCf7-S^LCWZdLU*cyN}^YS=Rc-)i($>Vg#=RrQa8Rg06pj~?hae7aci5$xpb3jQH<>VUKcPT$QiPvvI z7*_QB_Qy7#JP#J78xHx1#v!7xM{X$UCjN+kHCW7rQt_jcdFmxU-o3zFsN-i=xG2=b z=|r`hS{c3j(6b(65%FC*HdtNIgp6U|XVst(#FNbGFVLCG+P+DSL~t0 zA$UX4>?%d7yK9siW6XtL+lXUI(&1JGLeaFj(?3dg!(Ij>HxWIHgePg*>(^A6ltJj^ zv!|}B&SrZk8QN}&ev%M={eVcOjv+r=uT`n|>(PhyT%h`9McVn;@zazwR%tD_<`GHX zXoAKMe|RV%m6V{n>s%u>#Je398i`8HEjdeSU24j>|8i*k3@)shIp+-V02_?$$cqG~ z3|s5X4k3Jh%PokO6Gxsi^T}^mG895c3BzxedB(YlJ$u~hp|(|{_-Mrh*GAV$M16OU)~{oZqvlQa#jQFM^xd%Eo8it*!jbwzd>T9k zj&u3>AbsEckPNn_j#}k$5l;vN@Ka*Q1bQ|c6*qgY<)B@iN&7aDW6(xJG!f7R+nt-5 znwnDPt6Xg&Ai8xC(BppV<<1pW3>Uv-E!d_s*v(JB?KYv7+g`Cpmd%xL^##=6@*)2- zviwdu|2jM!mI#a|@7pCESe7IzwV;1ADTq;{^M$j}>Q$%wJ@}bG7yf4Sfex;z#-4yo7hXQnJBr5h6jjf zHpIuUZFW9HQkp2pv75qW*}~gOju@51WiUUbq&glT>b>(zYmy`RT?=~R%dv`YJw!#R zJQ{vkYY_soXMj}~WECIo^^v-EK|`A2pKdo0aG|i5a8xoX4CShyg1gVd$m5@>A;?X! zhjb_K;j?AJMBj=J9{7$NP~LKcnG``?vosBaDJ)KV&YC>x8L?VazDTD52~YbT)$b%?a#H=6^0v~U?2rvDSylLy+y=;{4n4k7aJprJ=jTaX@-Z-XDl-y6!M&kQ&Cp_Nb2hqi-?+uq zw2QjXL?Wiu0E*?^cK|pZI%EOquPJ>~aZeZ`Ir)1I#A*!3d|#)a5pJ50iNx6G8)qM2 zCf3$^<1@Wl9#Mt!7zx+Nd@pI7gJ7M?7xv<-ZX_RJUyooyujaTz65P)sp8Lb4x%sU( z-!(w2duKqDe-dkD-f$g!IASdN5rMkU zh_j>O!WW`V}v7J`^{lLr?3?nxRcUu)AS^BD!D=gDZ=ctIMSX22G&s!TzvUF zL_VfZ2Hgo8NZ^nl-Y&)yL5yG28co_fQIA0=FX9OM&v7G^Yr&$IZd23CMk81cU(qv} z;FMx`g%a3slfrX;s6vj!Ozzf4=b(MejnoyPTohu_+{fis)Zn6be&|_2>Y@sjriaG7 z%Ng5E|4lVTZ#NZZ=b*c}CHN!qzc3o3yZ5n#*i#+#!sP`Iha~KsXnyrg0?8l2!K$!L zTU+wMeMf_q%rWaz)R{FPF)A@#HyU!pjoL?zpYn@iea(rIi<|ny=|f5y^;puIxve3l zLc0?G&ohF4Xh#6 zYgxaQP|l$r_xa|4y^bSPdB;myH?iS&5Ew^srOKeN#-5^M98%WRpkM(}jW=`e96726Sl$!oF7m~P)c zp!Ck)Y;u^Jooa%g9J6*({~~WhK4&8yOx4g878vFy?GqWK&RtOJQgDbmzXdJm41B0j zU_Jtri`Y?h7Kllv-}lmWFDOQcei+#j-I^_g2)nOHS zle){X!q%e~M?twYL&{l}eH%jmgy6=5QoQBj*(g`SBin5@pXVcD9zyqR^V<4QD)zhe zH*lb7%Zm5NkbGfR?pn8_o3?rW0fK~2N+~q)%kpBKHi$g@TlWVy-f4XpPPbm%+ zC|>T?iDT6Fy8$CcWMKG8$pNZD}dnT<2>^{43VuJRd*7 zx6T0ny;RHX)^}dn3J&npveC0y(mFD_O#K&>E(BZ#)oM2N5$2yK%ioJ|q=jdQ>Al>b zP|g91{Et)@%)sjitbT7Xy~l>MU<^-rhJWDD&7YL@F`<4jjo{eD+t#~$*oWtSM*lMZxmA0#pX!J7ijv`x$} z^4b@cldFLnADUL?d9Z^*!W{I(9-A#LfXY~KI9{PKNWmD_5>$y!9S0e+qQAt5=Y;v0 z>DyZ~M@Axo5XvxCM5k6T2Wj=psLH-j_#hAcb*6KW z7g#DYbqv@GkrP$5*(85cIEEoVW8E+qf*sU;b0&|<7}@Do?DwDj{}n4CFAp{|##$5x zPx%io@08Ei$J+gvewxlz2abtuNwBuf@)9xSU&hUE5_QBn-g@P3V4b$a88}{cC5cxB z(_9=)KEb)|j`j54EJ(5%qGkz(|43U5kFV^Q2%V1HQlQqngw^flL zE`~mg9-PvBMR%cbckS+7XQ6MqGVLGOJ=k%~`qzCU>2s$*4WQKAS<%Fo&#%*jaQeTD z)4Qy9^4>!ZDVopVWkxjj8vgemJTDPzShZAuvK*<7N+kM_+_Z)Fud56r6yVPAKa{wn z_5&X#Br0Mce9{X+Sh?ZrW51}eIxUa6ApY#Z(wAGN${BIKK zA5P}qy8OoIB;3H-y*yIZ{tjGu#VIA0zL_Tpq3|rOUvLd~l@PNA@}=|5_ccU0o8hQg zf7pWf4i~r9?2qpi6F)bSPc^`}!&&=(z?6{D5y`s_ecK@+>lZwW`eV)?yQ~y^h zXCKb=8pd%Y=X6CUT^4yyNiUMOnA1o{rCPNe&RT4Yq`YpT*i2qJ&Qa+s6&0Bkjzi77 zO#HB|@|Kt-g%O+D8Z!LOhROT+rT#sCo%7FgUC(trFZX>v&;9)IT%Y@UKnJ{w;kt4c zMwVtE&OC9csXwH%2-cP}dU&O4L0?OvbEI9J8YETM3l8QX%;B1_49#=+^to|I8rKTu zx*FQ$Rc~7ztTn@x}VOYtz|L!e$5|U%!7~X^Y6rVW&og zM+@4EnVU0q{0PcoV}0&5z^gXmfT!z>g&%t4dh9QsJa%M)-Z^cDYJR%+^*~JNm`2Xx zK5zQ8X;I!DD1g(Zq*nQ<4A1n|9$S<}SyV72u$gJxsHvu{|35XHBTuQ*GhGlObnJmH z+8L_hJkzSqU@>McwJxX|!LE`oJJ;6itX3wdU=j^4?W^Qi2m!tG@)D#Ns=G?!Ycvh7 zazPsEnOJKdTrO7k8^SjIm+Q&NkC5MPDC{{3hi)u%6ooV z#g%K%Z{wuWG`ruox`{A!QyviOH>jw1ve~z9S2^|R+geHm02g~8NCxtPQlR{{p!8BL zAu-xsCqX&eVGXiOdFk=Rj2^YPl@i~LL5DU}Zep(7_8sR|#7+G@da{t&<`M>-N6(zV zE>dwD1UQ3{Y+2X)$)ae5c&D)_w%@$FYd%t`9E`+Hh(>cM3*FSX`KRAjBPj-3TSv+q zJjU(^!&5l5Q{ugkYzhrYswienZ%9a?gJR!Ato%kh4*w7za27R?>g0++hbOr}vNT!% zMbow*x@WG*YaoMN_2%C7k|&cipu0vgl6}YIL3a~}RgES4xRADVliak-#DT`boH7d|Q$@-(V;iw(PS1}|O(qM%vs8>-C2 zKcOF2>?!o;h17~ULW5L!hp^}Oxs4y_a@v(6A94I0|BJLJwA z__ULZn!C-#SAlKIF6$kcGv2;vVXA&pz>25%I84NJBnRZZLvg2%VOb=s7Krnm@$-Rx zee$XOCyMpb__p`M958(p&Y9)Ry5&4e6!qeOBgp0Eo~8kNmD4M@~-meWX6$8HLGSNW?H^}lT*BspqZ rA73re2v+~MuG;=UZR`KoEG9B(LQ5UDH;|6Bn%dDrsDmYL{=fbM%PXb2 literal 0 HcmV?d00001 diff --git a/docs/reference/plotPrediction.html b/docs/reference/plotPrediction.html index 89476bd7..5831d3e1 100644 --- a/docs/reference/plotPrediction.html +++ b/docs/reference/plotPrediction.html @@ -125,6 +125,16 @@

    See a

    plot.modelAudit

    +

    Examples

    + 
    library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+plotPrediction(lm_au)
    
+library(randomForest)
+rf_model <- randomForest(prestige~education + women + income, data = Prestige)
+rf_au <- audit(rf_model, data = Prestige, y = Prestige$prestige)
+plotPrediction(lm_au, rf_au)
    
+
    diff --git a/docs/reference/plotREC-2.png b/docs/reference/plotREC-2.png index 3ae3a998bca48023be1caa02bf3acc4cc89c537b..f9cd48b87bac3eeac515b289596536a2315c303d 100644 GIT binary patch delta 16427 zcmZ{Ldpy(o|9F>kM3G8`DRe42MW~I+Eje){)G36v6fs8Yg1vL;oeUM~oD`Z|qNs$* zWo1LACTXs*(5B^3uG@0U{rh@vhVyy+emx%j;kDQ0dB4B8nG4@!E_}8{1|H0hu5eSN zWTZB~ak`d)Vr*N;lXGsU*kSuD$7>PBXjxx^9PiF$ zfmC*vhnFL#n$jd|-JqB6iy=Gy!cfW22z%)7PxC5TQOG=mr+RH&fs>IY)>7i)&c$~Z zvi&w|#XPKy+d$vC0o>XGA1iX8KFnBBhWCjml;zpWAg_O}FD}YP7fbIwBAp#qH*-EB z4%g_L(-p<0y#Lps3NM}e3)ui~v(dV(S8ABzWSm!)<{?LR+zb|30oK#q`t?d>hAgJ} zOJ@snXfuLAp;NTG!87)Us~KfPR(^DZ;J{ue3~uttS9;Q~AG4cYi^e@lJ&h(iE&@n+ z6hEx^`dlBC4&C>n>mQtbulOzAk4=bf56c)0Jg%L-fxc=5Hx*-F^$GGPU>pQ{8@?Jz z&n{=J-By?F{gfA)@pja67LK^JggR{FvHhhPtZSw4?DAhxjo-IpnhxiB`Ir4VdqtIC zPwg>FYDQo984<{->U6uZ?d{J8cS@&BFbq`pL7NY);AW_J-`()@ft6N(Cv90wNWOOw zmVI~@W}oN52^-kE_GV`EH2M|HAl_u;U(b1lgYz6Hs%%~Mjv3Ame0&=k@fw%cNx7u9 z{=S47osVN>h{tlB%x(Dcy>)YYtw`m8tU`Qr$U(~Wx)0L1vVi(>Jj_GA>E_$cIJ8)p z%%LFft;Lv;ldtD3(Y&;V3m=_Z2#Z;64!Q8ssLS%{crp1S1o~xOL`D3?Ix(MP68i(E zD0hN-M)1xA@sb?Rckjh3|5@PJcD%d7PWQ^4VGEgLcxPh~?q)`@nAuG$xP2>digt?~ z5ZROFJ3Jx4O2Mi&OJ>A*1Ks6u&ia9i==EYLc)>hOGQPy>UfVZjNU;@D=$PC1&h3iO zIHfUJi`R!Q@)ALFoJFVcWSJ2jtli$pH!`xs?=`*|;J8Y;ndkL?b~UwZa1sgPeeYZC zviD_~S3D*+D+j~tY~;nSKe4*Wm)fDUj3O7$5S~Sch(UPZac>f*eYNaUtxwUSyKs8f zLlJH(Fc(Q-O3}ZvI=7jQ=~I#cY@yc#xG9b60bD~H;z4=M!+z5*e+tU+-#CMH>70i5 zBn4bUbbQsj3AJcBR@}D!Kz&LHI0c7>3Z^gzUJmRkIad(>`Q;=e6f|=CyWakLW}@S* zd+AsonXT2nk5sG{y@pk|ENL7=;eumk(*oSVG){Z-VAPhoEY-IL+vU?bJ`QhcNogw{ zsC#;eVGYH+xP@(7;%1pQv{-|VvVj4XsW5c&#XHrvp~VTCE^xAnH|2N1?ZSAgkeYT= zU?#$%tu?bQ8Y^w1NU8O<*WnK$N?u%UX#DPcpeiS3apJlo3DcA6ZLTZ1U1l6|ynvE^ z51R{~X!v(=Vl= zh;YrLoaW41d3!>MPm$5#VHhvB(@K^zBVuirt4fDhQblAm!8J9vHXn|jC4O6e5UM&I)Sp?wsMW!KQ@VGuh0gGgriC z*asBIXJj%D_-CP9@FKsG>qv>?G#V$EP^ukYdu2YqhEVddVC;ccE4DGLE9bcr$LWzy zi!-9+Y)zZi{wJ{NLB|+QcQqrpPJb`rSWJK{4Ru#90)LD2+r%qE6{pxN*T28DaH04z zWj}~>l(e=f$^yEx4+^Q5-9@i{p;8~!^rz$miu<%EG}_{>2rJ|I{QjKIvV8TF-UvOE zFQDu~-jHQO;F?^p2yZZbvx14w7ug-QicMsH_xgj|q;qY=fTwlUV++E(-YWA79*f9n zhfXTW^4IMj$@{HXbRiE+R+vDHLs1G{AwPgSpEd( zSCgq-5zZdc{TS>w+SVlvWQ^mU5kK^M(KT5o8b9jGa zyt{dFjhIKxjMw5-Y(plk8?5>|UK%8zOMpRue<3^4Ja+LofyLNdi}n~1`~?Il1#TaE z_lOsIN)#D5zRKv?P3Y4y)?1C!r1Z%i6cPG8rno4}S2qzacx9p*!`vt$*;cmfX1a~Z zAy!J=&j%usbx=ad)Vd{3fjd#TVlZ49_$zW>ls!%FS^`Ut>!I2t%el1oQb(+#YJ5jr z(W>5vlsHl~dIe`p4zm(6HZN`v5!2hIW}{q@)RDB){xt8Fow}lDpEM2j=H!&E_FB(5 zL$RF!@Cn8&f;xGW8k@0m<}8i{eIEHUEUiqd>lmky(k}~(Q8|EdTik5FGvPOER_k94 zVWA>%aJ=u~lTqZNCFOO$s}38UE@LJ_y9M3(gjRVfj!CJuRBrJa(-TABU9S|=?;LfJ z;yvc?*ot2yRtQv#u)E3mY3-o~9a@Wp!gUdS?eRW;P`#g9?6hfv`@2y#x+0luOnrWY z^Wv>)E84~6P5o`=iW!)tVv@S!w1_#QVw)i%zcK2puXke{q^LbWg1p(Ifdu?DB|HoNYayDK7Rp#t0oYeUa(>F`fx zBkp|raQoYG#~@m!Vl1sIZoHAGNe?BnPo0ZGjf+V6T@AR1{2(LRy=mndkDJ#GR@tUa zj&iKxdNk-{QfCm9z0Tp$#xL-~E8udGGrQH**NFSvbVucPs|&GX$rbQXb^35okGt;j z>xnD-OBYxHt^xm51E>G1%Lx8TQ(L0{N^g4HZ0hH4^oFn^;6a9r=;zLthY+Mv0d`8s zLeD*2RB(#N zTEhpCN>@S%5u#g;HR?|O=JZZb?G*wI*vs9K;lmZmc9GSP)}-v7o&21^BbSqbj2+a{ z3`!u6R0|J4@yp(S^{4Zbm z+|NbIL}oC<(D-FY@GHklmj!_;+_!&4NH$KE2i?|o-F3bHj5N`RXJebbYt`d*=kQzW zf5S()bI{g57W;aQ8f-{!%CRmy^?cvSt}}lVS%(lT%Xus|Kl%0#ik8>A>a;DJ zFTUdy+{0#t{hqvIi|h#_uh{v+R0v3-H^8}L70R0@nmxY649roA##iRpl@2gg9!TD&?em7Iv+9i2`*U#dKtW@Ns#c)-nZQ5;jjUcC2dz=my zMHrZDEqf9n+heJ`%1184&nw~?mm(5Gjhu?{>90M)sXeq`_#G#YIz3HH$!G52t}|#Z z&`~63 zWPUs;jTrZ-2x@1Tb_iI^7A-nb>RYfU%3a1UGLlO%Bcc6dhT>XT~av>cjADMpM+Xh#2gS=9&_ps zrF8CM8_t?@blF@5R$%QXuml{zVjCqM)|5B&GaJ~F{p$4P==)^$HIKy-1VbYPl!X90 z81Zy_YJXYDm9s<{&0VO@^G|F31*IY~82+h`#}m}r7&I?NkI*G7LU4UA)JO0(J;5p! z?5XqlWrj-5?2mBHW}dJ7%&~%;$J0h98Lg^leUaTIxa4()eU>2xiGf^A9`UM$MLtN@ z)3d&2K`-#jlB6jA6f2lruAHmFvXG#Jwb{bsKo81ls8Tjd5wKete^J00P*|zY?~77|XWqK`;Ao4_LO7|p~I)8eUu~I_8C(IFn{`;I1q8vpQ@$?0cACDg=Eu#z# z=Al32#DnE^;$^2ctURN27Y$c}!JiieBpJ+hLE$^m9$38TQS;dcW)~rs)9ebW6l;;_ zV1_cWJEvPv_#p=dmn}kEIl(&b743R?>mC}n7=ynqf_ObEuJ?%?-zl;;aJVVeNrZSd zzA(Vi6QZ4F=K^BMh^|X*PR8Eh^@+TZgkl2}ScB83$n9?)`krleM07TWKye3WvG}pe zGtwSIK>0gjp&)m53b+j<>j04B?Wdt2e|F-$1y6{B9}As56D&(CmB}>#prZiNNIG!! z{29|5L^a#A?^EYaMpZ@DRnszKPoU&sE**pS26~yWoZrZOQTF?cgAm3m#!hz2tJBwd zd33d6iCh#K15l1$@BK2NHyAzLv!%s28LRq7)#E;^eA80HkY^qsfAQT1)%mnu1}11L zec&2D%;{d6drnY6JXwE(*O|ZC27caLN@o8?R%8{*0k|?4LAT)Qb9QO8X4aC?jZp$y z`EKB9*cvffA+|~Q`(0vT4!tkH^*zjMPWSmMDEU_?F5IA`6iJqR>vie2=t(m-bKtRc zS95(bK-RNd@A$#Bd95=EN`VY-f1dAR;0x~xIxGBo7>T*wj}Ahn)euSvsR!UI;pV%8 zI~SM%XgnA}$=Rp2kV&snwQv>VTrVSDlBz}BC-_rs~p|47*b_0t0qSw#(#F1e9I%U*5We zA(bAmp}56G>turJABb!ClYc{o7zsyHFOt@T$NH{Qh1YU6)A6@O?v4?JyVr(OwYc-P zXw-^uKev5Imu^wiQwDC*1~-|6GE$ipf}*+v#FQZ>fzp5;KR&{x==x|-KGQ1kGYj_w8 z&wjcowRwT)iTeCRLANx*4T)v?-GL@AcPlzWEL!Sx3v@PZn<6()whE;p zQQyUsbL0K*$!rTh0=jUoNCwsElNfAKj|sgn&87a6#4-;z`Bmn$3tFPjn7OIU7{6A> zhHP3jBgn(B=rL1f#;Q>>GhjE;`WU8}pPL`BS13_@3Rc}n*l4EBe-|x$A9lsGG zEMmbmsW7ONg?JdnU6RUr(|G67@-J%ur+?-77Tu3iW-P^O(&H?S;3`sofIAO}?wmwF zVYpyTGv=>Q7%q8d96P|BcSN9#d#w(q_WQ})$yG+#i+oyNW}O1JrQzez5)b@QF_tM7 zMrG_#gPaAOEQ%VaDG`D+;qe*bkQHOTi7|ettT4MJKH~yOMhCTd=9dk0 ze6T1AA*#VPBOB$wp;h8*>-_lJdHd7<5ZxAnMloE*H^eiw6UErMf*@K);7X0#gFn1MarKHn@Fj@wsu~S6)^z zry;76^Rp_d^3qUi$nsoRg(ao$>DUf z954h;FEF&FfU!tseTB7VA%8>-KdGN2c0&?hY$)M;b5o#-*~ z*5a0J>uQqLpI&29v&g85q0)8b|E$)eUEbWBlJ9}vt#fLh{w7CqsaA;|)aWD6i!m~=Oa%dh!H zyA>$C1mrq=L2|{iN?Xqcov-$C;eze*d*AdxZH6(L^oEOR{P@h`IokATl?(f�Z~zoRD52Og|PosO49 zv_NV(j9KkWGocH~2D@XvJ~;p8{$r~u(~qm01^QzwXQH)RErf)-O47uDLmNiZJnYN0 zXl@dBu@5q=eMWl^XeBB=Ebf8wtokno7dn?*8hLP=?QUfruy+6Nm6sx@{0%rpl*KiK zQPUp^(w{!CJVzi@AGiK94n~vF?R~ABOX*%MSS*134uD;h>V1v+=V2D=#WI7Z$FnwQ zV9QnN^>B3p{r;RBU~vuraee)|v9emTatAkQ@+b3jN4I;WhLvx7`l|a+z5kZWRj^(r zhCSh>D*tq_4EKcEH-j`$v8&*6lkh+Ub(HMLCcqIE4*^)OH4phUNJmijll+T;g%H&U zKz>gm(QangknF*l-^`lDcDjvS(sxfU8PrX&hFWc0%MIYz4^i&dJ@!)JTBgUBW^>2e z6VqMRm-s$g!QD>bX4?6!v&oAR3>V}tiK!54VOm!k$2J}I;$Uq6+7D+I|B)f~^gan> z)ou}$c!-KIe?o?SjtxN09|Jh|LWX$Rbzgl=Dcd>rgW$y{BFnHGwV2~;OtGC=>srUn zHGR1o6@!~ReSX_=ew1A&i9UR?gg5Y0NXUh8WBOM&(AT3E@%oxz?0)ciHsuB{L|D0{ zeJsV(3OWJrEKd4$*lOyh%3EUCYDTNs##K1QxSUksu?9W*Ku!tBs7GDW>tdW%asR#X zvO?JRQwY5nFV}RsD8pY$riL*?Aj1I1IskK4h70uVzReg4{)bb&{D+A$c6`!jc#_pC z?A7OC!vz6HYIn&KD;CR9fD}1nIE-;ER+rE4*U37&se5FDDMFm)sMV#N+%L>%L7Y0h z52I1k>WxmKWqkvB=g>g1FHbk38!T0EFVGHN%)^EX3fa=+SgFmM;6nDx<-`%0++-jv z&NghprO^Y=vj*z9Rr=6Ah-wbC5TcDiT1 z_qcdPts_hI2W%rEMKSXta590ROgEbvfr-<)b`~JQd$!O+#mHJs9l59pwUOg%LNQUm zVE`kFDY!^f$t42%z`n!@{XTw4lJT^<;XkKJ%7)~>4RGx8E?gDeo6UUluo8t|JJ^*I z2M|1EQ?ZlHeea+}pYqy~o)kGkgxj=mi6<{+N1$JlN#W-qctR)VMAFTau{TCEH!3r4 zC)Gqr39EB!pu+Jh;bur&(w^t^J#@y)$wtJG9I&^vZuwkv~`C+?stAfPf?e0Rg6POQgZ8_i*P>&3co?HyMOy zv>Er3I#yNib5SDuQb)fsv4P*r)$ir;!8In)w_R8F;qw532^x`F;(8S|&>OhFgWfz7N3>_h=7NuaM3 z6WR}72WJP7vpu${SMBz`8qSMOX+7Tg#TsG-kb3Y3-5n<|=ItOcKJaYnLxG)xPNtU} zk*AoJg@lkCa1Dj^0ZGuAk{=iyx2BLxi3V@b;mA58zlGd85^SL0D!FY z8nGBd15`0$yL_S2>zOo|xN8s0x+$O}3(l;IdEDFG{HpFdqSD<>LX8HFJl1%z4ue3a zC0e-U(7XfApaT(PyrEKh*V!V&fsOP|8to)nik9W^%_7|qy!hyN7H@H81Lv-$=)q5O z4{{nS*V&Rhabz}wOq#?Ww1pabKg0Mz#9(3A?f$ztNuw)pDjcjKDxG7WcOktl3mA

    kl-yr7-~qSV&e`xd6WDztCkL1(TNoXJ-bn=9a|;GY_kHC7$Moc9TS&EYZ-ZeU9(BwO>cT(4b_Pn z3f{KLCBx%)f=WtXbsQ^i#N9qSelD00xa(Tlctv=H&io1|mIzg>rMalaByE(NWfMgZ zx5K44^Ud1_E4WV?USx%w;Q%`w4N`;lNLE`8hVGE(0t1Cu>jD6AGo_oBc#W|CFgc}8 z|5nH8h)KtfKmiw5XlE8`)=f?HC*AY_mB(yeK_V9TNTg$O=t49#@X^TuJ#PBrXTNbn*lG7~p~Z=l#aCgW zxZs)FA}FfWdggc4kyRaIk&E0eL%g`Mys5(-Z3|cJA&)#=7|zNQROkKp+VJlSmzuV= z;GgFgd_2DCo7KdL2R+jhnWmFnH-!~+V$ii8jX_AOCtVF^q^*+H3+hy6;8 z`Wg+|{q=aKnIHmTIzjE`32ki$JI~ehCg1K@=pP?GVf~}@7iFQ@U5k5`1239BK#KBw zNw{=K5vM6mQ15{{#GT-~>)h4p1&aIZmg_!f4rx!!F#SFG-yHdws;j8zdUjC0(S`&& zTDoP;DYn1bfE++|TAAZ+6) zY}uqv-z=>|IVnokNNdIwzp_Bo>L;p-lI{pUbxiGr>aL11AkrE}ln2s(SjfYk?A535 z1bPHJ1LXh?HoC%gWQhkI|3(z6(XO-#ocXg@UKZqhLDPrl8CeH#0BnqcEXH*AER|KB$3uiY@!LE}(cKz-=W7rol zT-MU4#D|1;_114nf4c9gf-9ME<+Ss7 z$?>D0+Vf5&-r%udsI4_v%A1jhy~d_^3@Lg`E?C9Y9H=izn(`-t_-yn9@zbQ=gN5N# zC~5|PqqeCKj4oOO3-Rcpl_Yk*AISpBPCG5}Pcpn zeOM8gTkJcn96WJUru{i51rG2S`L@_E6u4hKI@?Fh7=dsw7iuaCf zwmJ*+-!~+#!~c2a5oW*B-^M6X_{&J06=azBREEfr zf8@N4r+wqWGP1#24~SrTC;^d$t`*#Ki?6quR+-dxHh*_E3YpkJa0>q0-=v%#ZzLG* zeVhKkZQ!qxDVvEpgJuh2@HjBuf!LZhJGJc*q|@!k2ig;b_G`YiVcO2)T1yk#MjBau zVejupw5S~_05ZGd*7g-#cy$&pn-+^acWxCo-_EI|Q;)9L_U<>*Hu%f_`j?tc>(w5X zMHx`oLWdu2ae2)?FJ8Skms81)ZWwD%3`aMSsl!W-W_Jj3qD9c3f(V*)Bo2**EGRfjb$mq=o6i`fG>Boc8$hvPTzUn$AOx7WKa}5?>f?I(;ZFwnI-FPSh;~t(j&Z zv-$YX;Rd;%gAX__=a0G3RmxpV{s?mGs9vOFqV4ndUqR8-laQk&a{SQG^-q6iF?)f- zbw>A>kNe~wul#%awolKVoOFY#qE`KAl-2Q!^gA)7-)1zm-zCgm4iu%J;Hf>Qja z5>y!~JM~q$HkQh=-f-c4kvg}J9Wtkz6t3gCcQi%WE$soppSnv0Z8v?J$~Vrv8uJrV z!ExJHCL6ZrHZ;C`+qh<14`gkc>Yb#h?^I7a|7e4nm7+A?r-0^xZWYH|yCyoE1B*U= z@36D}w&_EC!IA>c9ABWWZ}L>Ok#2mA+S^%GlQX>=p4^lCi>9eI&A}Xzy@orhOh;3y z6t*ng*tLk4)GWg<)E22>Brhpss0lw<-+HG!BhS6Bj6%SC(2pPu{k6F1|pYCn*JJjH?R9Ju6oz~OZWXrMf${KBHHu~O<6o;EIuecPiaR0?q#;&~No z1)MpLQv@pcB3q)n1}W`${dhZgcGdooo6F>}CeZ<08#SZ%`djxw+OrlAGz7ZLZtD+u z>s)^Y2DEDbGoY0Xx)8J8z?^4%?S(*fKdmCK%BZ}{98|VQCX_}y80siD)S%-QLNm^?FFRq)@QhKehcco3Q?4Ti$k1j&}d+?ubTFY>}%HfsO!DmOZ)xNV4_ zR$9#X2{5`9ySS*Qe73K#^#kNH{4FWz?&QS<`l4D9|8TGobrrYc$_r>cKPXcO%4U;CZGlK*`(z2HdFO=+~;+% zGMLS9<$KeQ2T0?1iYMaDkV&q=<$SCBFT?Fc_Huc>HzxgJnn%yyce;*;vN(M?Ua^uu z+I1Iwbc_@G7cO?QT(i^ahnuV;s2MaYrf)VAkUg;}v-3j%+1)A(wAisEnpca5qzHB>_ldKCJX>xEn*yj&86g3HUfRIvgmzW!!#U*Gu8qy%#lS-uUiRj`Bt!fj zkfz|G3W0?D0}jw9V* zm2md!0ZC|SzKq{AM`A_p6l$X-3fLT^a$feDK?`BDZlX&iOM@Gb8o81)G*0+1t3YMX z7_F`hnvL5d3Fxk_yuPfifx8OYXlCsTkb1*N?k&5OZlgh0!E}PD1TppzYq-g%3u40$ zLQeCg#B>?HR7|CWAXh*n=0pM`%>fdEui!F4Ixp#+k*T1GktTCk6#Cd;JZ>WNIRF?8 zD0$SaPy)_n0jv*-5NI=TF%wi2(`5ca@c0WF_X5$jI#Pt-k*Pc~DT#Sj(lRK!%xJZ9 zdnviZRhQ?xhlfqqGv-O2FP9;j#&pdBd!I}dlBqbiV9+xa<9Coe0wyo>2e>+3fo?O2 zcBClL&bTR>Bx<#S5=kT*DCngN-l!l|h)m(?uHeSTn#rwOJiY=KyL0z8*o4g9Cjko7 zh*kH?e=XgvA=EOMykJs=q{yn06gf(8BPg70A=w=I{6r46?`@^A)wkk-Qni2OwZJUR zqeQ`;rNjYW0;3iC*`hu7*O(eash@+H*{@HLv7iC1*LhlWAu<>=$t&2wgC*!@Fvi(d z_Zqv*0vcOwHQ$_BB0!$Xlqj~*!7b2;xS@;8OaD{<&hBwdrbAxzG6)NF0ONjwgWXWW@prb^S@ ztXzA!;aPP!IB~x3hrvK^XZ)99qv)+s{sXa1!7gwG;rXl(u1MKir$^VHvmbotm_~^N zE@IGZ-Dd5Fs}j#Q?_9?7&k`_o$$~r9&L6bL7zWYdS8yZQS{3qfMx9L9-D}~q?X%l*O z>1H|N5=S@)d^8}*5>G}_%gF{!yAlL5HuFktdFxbA@}9er1(0-tFCXv`$mb8gtmke= z44F8e29FF;5g0|2k3=w?nWlULux~Gvg;JcgDH|fGM@XJ_SS^i>NIZ%RbuML$e_Yjm zE|Zu@Vha=&9+KtV*=q(Rp80e>qSm*h=ih&?DS=#Dl%y{Nm?~JEofVB0J`l|YYHydt zmgE}G#1iTs1p)mzl*zJ<%TOtZ>DgP}T1@jEUUE|lA1oT4;@=wlnG-j&0Y=OjO?|wW zB3ThHxYVSch6V4gFg-<0%+7y%-sShot2)*G6pdR%uwWTm7tN7p8f7BIV5XdnT0jQ#}wXw(%qn6RWVCSH}nZsZn=LS)0ri!_# z%3lG;6FA&JKbj*RXo_~3t!r|BLQ?~6*$FUHGtids;1&3iph4UE&qyjQLvcnDQb|zm z@Qd=LmUUsfo>l6FkG9GGkXs94LHMH$q)n!>H{dYiVU}yrCWr~?bii!l8Nb&k_~vxk z6IArZdo<||j8?xY3MewovQBp`_uub~L3P77XZ4&uoEZ>>vT3~Ru6Yu-$c<;Se8_uR@`5xrX1|GH%pN$uJS zLOLl{wBWs~I^8mSAZ*57@4740Hwgm#Hru(8z5@xp@6&`bZ)S#bh=#kFt-)5n_JFy+ z_pV=V!@Mn;CJ|>P^O{qQiGB8RleWqDr(NKfi#4@}yEfhn zgjBW2$3`bZ7KMk-$4y$BZUY}1+C$eyYe?d*#d7@r;IHHZjpGl3SQ!3}OgKg;bLBvl zZB|Wn-wDp_s!jEr)q2;fJPv4y%!x?3EYU7Tre^4*(Sijl2aq25Or^-|Pu_Y17bfl1 ze63uxH23a*K-8qi=qzcrb6W}{B^+QFRvds-Y)Mo*&|8_cEWfP6U6>Em3JWOc#3cPL zbCblr-4^IiD3cZCDE2^V$<*-KUoHy@YZJ&bO1FZ$78MK3@g8x!w$E+V%%giD7Z`sK zOt^`N0HzzG1qYnPR*k%p+gXJqZs=`*K8s|C>1t=29?ZuH8Mq`e+cjL?a{Bm-q?gSE z#%CwtBDvuHKNMmPCkVx*Me+)6L_E*8X+HfHlG#3>(k$;PF{84Y^bkx0@F(IDEcG!{ zcLvML0{uoM;6g-YO7N8%s(cQYqi#yGxFmYZf`+OHl?i!bUJnwY;=NQhO^v9vzA1Ct%KsBMGuHUP}B^!K5Kz4-ZtUVY#RNe0c zjA2?r>rF*@Y+qk8?%=IR9Stx&U!crgJ|99Pf=u5c&p(We&>LNiJJK49hcAs(Tjq_) z5OW32-{-*z=I|!_Pu`9kId$uUf9~+DT8&LCo9-ah>BD6>2yV^!g3Wrqa7Lk#xO+?B zw_GR4ZY`LPQNxMnWBL@htSpH3ANzAnz#T0Q-jOIZ0y;>YREaU31jEDQXZ{20_jrO6 zK66R)hKQ)jQvr!;?bw~Xg0m(AAJ(>o;=bXorzVxS<$0rWN6qk5wR4R8H%1Byi@-$ZLD3eeT;XOANh-+Q*&GMUQe9 zDj0ioottARrp{y>>$v|lq_hZ9`)}a0fO>Io@%k(T%xINrTZ(eB(Amk_0dD*>>pEx3 z1rFwcq~O+GJscy8IeW?z`7Z0BJin&?M6t32s+Wb_zg4GA9(*_$h2gMICwCUwmP1k%6JnQ1PypCq>G zry4H(KN|#w^o;a*8@5RE8v>#$s&d=A3nu~=Y>|A%>)=U`_*S$H)v61(i_2@^Bs1m1 z!Fd#`K{Cd9E(?sI_4&j-6L?0JQH%c55e^8tZ7-qXAo%f=@%@Q+tr})9@QhE zid{KO$eq6fd=(&UAZN|(P%9@C%->)no7>piJx3D34ti5^)n9JwCA4*cvO!C3E?9}= z6^tB>LxBu@#yz=YJ(oCs&(2CSYcNNDd!~7HrLz z1m6CrC3CN4o?9TXPO984-lpsQYKr}@g0V_{^dL&`#rz=WQ6P%NGdX-0nBU&7M+IA& zjf)dL$CT0&dL2u{1c5}caJufHTh{dpdw-}q+xpre-y9jLvAQ+s*^D3y2s5J=O3Pzc zq7^)&1j$Ly?;T8^xtb?P{)3bUY6v84aSfqxsZI}MKYNCMSpTu{+^C@MO72cZR>O>n z_(1<-0ew}u=ML~SU;U~b`}%<5l6;yCRqC=vEcbxYFCCFs=h(3W>?Ji|@Ohz`S8Vb@ gi#*kXPnWD#>KClaO|3Lu0RCC+xBVk$pX-(X15^oZX#fBK delta 16499 zcmZvDc_5VQ7k{fL;-+gES-O?_7E#Sm*^=U0p?nJ=qY{RRX~Dc9Z(W0K4Be(hBdJ8) zY$2x1i;NmqvM*z4rY7098EXi?=bf?j`~CVW&pgX{&hk0uIp@6ZpD*S;U;Ju|6z!|T zGFWBLwyG0m&?XJUl-T6RcHK;mdibr@T(bcCswL){G z`LCBFm)mi9{5;zrEzL&BL|L!$(%X6LNm?s%YCTgCT zpY@id1j+Pe6n%n~{E_LtuwnXeEf)Xcu^Seiq4atp?7uXyERw>>P1-@R--J$05bUjr zdAGu9aQMv}S(53lRuO|5uOnx8ah?&gyIQWESg(WlV6`=nt?L0F=@iaiY{_w)xAo6C z(#@baFGuGKrn7{U*+u-lLFNpc=kAR2*6~en!vac{^RKSF6j@wdp&>o6>I)>vzq`*A ziuHNn7WS3q9{b@F1#l!KFR9s2HG7T#*>rj8dS9;K54f(hrSsGq!~_7LxrewJ>RoWi?8VStR4PrxV1G|| z@EcxPl2l2@-4iyPL)p}YYcq-cUulH7SZ}-YW5vRyIh;3VJkFqMQ)_tJD+iwbhL=JQ zeScOzcNO)jmgmR3;XrIEPAo9ZoQAZ%Pota^!@>olZU02{1WeIwqqHC+`pAsZxK3)A z-Q=V@wBAVLBzUHaSaJ;)mDxQ;G>2ekLz$DIg0SR^cbyAdvbr!5@fJ0vA{~6!|-K=^`*6^Z|V#V4~ednmn zV1RBtj#zFp=!09w3chK-T0?&(-r-zLxfS)*8^M%LtUl9 zdeB?f2kVsfrn`|a?gflRf;GXR8SGgH%k%K(jkh&q6~3uD&#ZjwlF*q7C>xUP|FE&i z=#f>yjoXbqHbE@|8jjZ9N1slPaShbVx;7(V*VuIS*T&Ni2|2;P% z-LDjB=h6bR?^E=y8cyx}r~k@Ni{-55aP9krLZa?=tc-C(aY9v0CAcdb5Ka!b)jDLD ztFl6GPm=ERglT@^A4p9|u9ObHw*{n($xl>fJ3Rr&Bze z>>0Eqc}LWcniW` z&PW9SS?@k)V{V5^dt>W?PX0N?H;VQTHi*5df9TJ>MmPHIq}A!hy2Uz(1hN)Ri z_jqBb^616h@8A_onXR3iBxR}G54Um4@CmNQbVCNj+!Ktv#BGPMSEF}eYnAq+^uF7C z40_yol6&u-8o-{9X}7E1)QHqQ*s8t9YhC0fYDSk&ear!L?mnoFxYwR>7fw`UVQ6*S z$2&xfye9DC40WdE7M`qBO6%K8y&~cn#r|!QJvm#3{e~UnN5t7xJ{1`kmmbWu)l(|M zY^zK4I{)OL$Pi!RjF`zpT}@nE`n4KsS9$cti}`gaoz2d+Av>ODIB*?a=rlQ^{=_~j zi3F2vW!QJvK7Jl&@(C&$sLhsPSWfjP)BCjEDSGch@hTaZxIJ!rrpo7t9Pg##?baj9 zKc65g)B_N`yC1?4CHt3nG|F@yB#Iyf-6Qt4t^Td5En*Iwwd(Kl!dS`IxY!|AqtmG4}-}Z&j3x`4kj&&lQTT>tOZB@2BDw%F8@~JOtmAcZR3WuIT zJj!%J)e8{`cQLRTw{AyF`5m364QM9Ith1(B0eUtPmpb;lQyXs<5@*j&|}fwRQi*!(eq}0GF~~lx*`&` z)+!lPKR%H!QC!IRyVyUip6G zh3M)Zv6@+6(C++nkW{>ROSDLl{5(JTbDncj3fspaEGAmak3+6Qxum&^^FVY**`w} z%bK@55vwdg%h!H_m@{?&=SsgPZ7CKQRv|Ze97lBE0{fX6bHwUtA^|R0^;Nw|o$ud? zNjl(~$lU9aHFBJ5O)sCBco@do1crWikw%BkUef1YDj4sj=-(1JYWdi>#*5CM zEHW^<;UDdBf6$}_xGAAI>(FbH0)vuET*`exfI5C#`0rhk!!FlSfOr5}094 z_Mt~_#u4SMCI#GBKRe~RtxSy$@D2SB>%;Y3>W)1S1V0q|HlPOfc*S5JeAr}phZG95 zmomc-LH+B}Dde}0weZCgJWoS@oSJ#nZ%b+3z)}h)^ux-CMCsWJjE9eIae8-QEtf0DgIKW-%`g6M&$r4G z&sx=Ao}m`-o#E~4R}G~qhoNjSK$25a9qM#T`x=gNV&ZfZ>50;Yh%2ec>13`-o6{~- zo!(u528WrO6A{fLn9Qs#hYzXwL%sf-w$nGCTP_=`mqtNYH}J)izE9bd!J(d&?uZ+e z+vm9M)5m|jO!IMOsQOtxe4F#L)e(6yYTXGt%IxUG;G=|g*n3PONjLeqWcZJIX%qu= zUp?&Ec=(We=KZ_Lv=7gSP)ov^6t68_TIz&X`Z3js%1eTXVQ7pT^G2HmT)zshe}h7Rf=)>ya71|VS=L}L%xQ$U@7PXXcoCCmhO z69Nq4Fc=RLYl_=el*C8Z$q{uuaKQIv7^+8rHTXp&n9KVZW+3Rr!txBoeXP zbBS)cIQ8?&4NkkXM5_;bp7Q0ePJ5Xg-TjK;eo|~n)w>@E=&-uwWc!=&;rbcd-;deM z#Tmtn_k@ki4(-I~%j1he95~!pJo*!{SsvJ>##E--l;-w?fu+{qY8uEAy0D=JJbF@A z%+Q?6dC&F3Vrch<<#`u)^z|sZQ#je~4g;ym7*@0F+!`}z;yN4EH*~HfOfnJ4L24~!wDYu5bYi?IxxD;Y{Nje| zg2RtB5G(!Kon{>$p`PJL4%K}F;k*c|z<&+#y=mZR=viSu!@Wbq(d=|(`LrzL~MBK?(8c=)Pqm|o0-T|1H%d;x2av0)P<=% z&prWh2|2TLdJ}REaPGJpxN9|QBF1?*!bj2Ey^N$5)~6WO^O8H*G+W^D%8RSQ;Q&nv zwhd>v`5Rp!R@RCX!yUJn!tncLAU}LG#S9&R=jH^5Gn{^zV;s(K^=tOZ4Vk@`*H0PJ zXivZZASoOriRy(R+q*%|gz?#%Q_(5WJ>$aq$KZVrD8$r3Dm*-Q_*<%JmIN9(;a&>$ z!CQNBpDT)E8i=$xExB_dh6>Y;Oxq_;bR+ioM{@?A5qamj1@{X}`6-Y8BgMpSISHY;21E5@&pJ7k?9? zw;mznc%vKs&Kr9_TBub{+R4dlI%;JQd`f*bhGpGcf={YL`L=Qa;dMD50A6UM@G)pUx8 zr&-;Fuv3V;HaHqgOFQ$zq3#wbGd^vHfy;L6k@bjz=UV(`jQq^?r24D=NE#dG(*B31 zZIWqpSev*}9v>lx$2RMMKsrXU|Jx$7-UmdflG_sQh&xuh!Dq+CXN4g^Y-sqc$qLM7 zoMh>WUo5wHs$bfa(v_{2uA){No|tGct#m};o1 z>=(hhw3nl=y%jLpPqVsM=GkNk-KB6oQS7I|os7^hnP^>;#B^kJo4ZQR;1SWX#*3A_ z0SVJYy1rnr;upYix<41TU4z%h9G}Io;~3c@BA7V|6j@57$ce%oK#|$AiX4V@on{fw zvyy*;8NZ2UJo9XHUe3pHoLhl)Qbmxlo*K^gOV}YPx)`vAXTt4>#Af6pdbB8NHp8T| z0{z{;d%?Gwu}P*gR^pEJW^PmDWl5J}RAwpKMbF{hl}e{})DzCn0u^A)QHUGPvGYBG ziJhIefnLw`Q^ChpX%o)R+Oid)=_nKzI{L}q_c&EvjKGrVi><=@_F||Z9qf*)FcEmi zyK?xYm_)vxJXa}?BqMTo%`P<~J7rXH+86ITe-Mqyv%pv)Gsl8vYu`%@GpC9`aDq4# zO5V|EJ3)V9BTi)T=++h(t*9g@(zF{)69?~s#Jzr;CW4)8uh-SG$__L<0G{BV_DC2F zkoKK&?rdL#H-$DGlj9|+cs*Eur$djQjinFll}Joi#vBykes6MTz4Nw&f6~;CkAu_1 zNu5XZD0#d}!aoj-N9)UUaHD^`0OtuP=?ok*4kx1qmZnTcrBO zyW_S2(zevVqFJ(5(PoIIMHc_E=1`tH;k9_T@FWW~{@5fY0{CpgPmX9h*(!d63`LQ; zMzo zIZ*XwT90{gcfrN!Hv&QH!nZ=8GLOf_>CtzwB9iWh!65aef!q(YVHpUi$wTbk;)w9{ zg|2`!s*AKtadB9BS!3N05Wq_y0Fa;>(#XAR7(3NZXipeRO(2Xy{#WF*pXY3@n)=x{ zR7jUf59i~moHr!wX|8uR0;0?Yw3$u|9(mL>(>i<%pIiBy>fQ9j3jQxWwszETD&bEu zANMzy-$)lt&qJs83(7Ym6QxdvuF?wBzmv6D21YMp1p$iqUEE$1x z_3VxQGQEGJg=r52<7hyYiY-aI2h_zKNcY_VNVdjSMz*WSaOJA)ixz1tI&{GFL~Od( z3ronP9P0YLC1YsUe`6}hiSbJ)z}Y+|LlrHd=bmSEDhgkQ?T7BK(D>$u^vAKm)4{N6 zw6q5AjyMza__hOplPKkIj3jA1@O46mPj4hSgF7|!bwt>TA6v|7Ue1bO-vTy%`s*>X zC)wRaDn}t&%@*se7VGGA-=Ai6zwyiq9J;+dr7_WH24g9|Z1vWSF10CMF>d6Z=fqFt z_g9tuPm;6(<8NOAa3Bla>a;3Juf!<2!mgCl|LD#DUCR^xxBTgrO^xXSde^KDcff5; zHg?qsZ?bV7X`414!R(I_c1eeJZXe=(bi1w=tS@$}Y|N-uc_Ldd6G%6E7uH`F>|T7o&v3APvZA$&1t}oak=( zX@0^XB{u%G!n?hA8NRnMzfK4Qj3!bAQfqs$D_PA?nS1fOurEa^o94r=DNL>fa5Y=O zSgv@?+_kIvoD(*d5YTnN15_uZ`*d%6i05)!B46fOOxWE@K zV=;N-rQhw=@f71f^+UZyK}GGt77l(I8S<7hgH${t$&6k?uAhBbIn_Kp$rW-5+WGO# zRJ+3(9_NcC$>aLf+a^=y!e)(7fnHTizt4mq_m%H*YB4>EA4eXhj(w^4f}#3+x-HNo zzc-2^6-O7-xa!6wACJJ0y#^u!ax2Z3u&PWkoi*CXV5R0&YQeug9xJZIN2W~%>rG6# zk3jyhg0%e*gLvMT!6ocfBUENxPN+)mRN#4dT6<(E_D2T~v~NU&E?I^pM+ahs68i2G z#xg$lWkxmEE}`?YGtNLClSj`_#;CRO^K2S4lD+xTDw6#xDdc4KVX{*gEpOvS*r%r9 zfgnfOYE&wn9;ZUZTX6)zV}~=62djCddJs6?3}Sfp_%fU!=aV2JcC}&%@*$J$UCAaB z?Ig9-2SVP93B7+ckY+3Z;!3&?zs!zSwz3!^{jL{7ep~CnVlLrxpJwT8zC64>~?GvzBYe_dCNP>yK1iQ<-U^D1PO6~H$cOVJEFCcXcBN*4)dZ8|QDO40^|Kh#g~_6^pwXJ1b!SCe zr)1P|_0X+XfUQ+4P6cjr$`HWg&r2fx)p!M0vmo!V)@)4m*EPJ~Kk_Gq1#g1=jDuf3 z0MV=R!?;5xOC{-PiX~$$+l1N0#--MAC-HGTSwL^p->)hkNWS|U@As|ztApeHT;rwg zhzf8;re!HBsd$v-R{#=;yE@(*dresf733=>7n z;rm44a=rA)kKA1vhzeo)Ez4Oe&$J~2;K{M9m+SG1zFnwJ-iy@R(QqnOU;17)zOCv& zbE97OX`5&~hN{uhGJZCPtC`Rl=WK*30J`bqUY;V1?7`&qxK}3|fHc9dQiqrj7*KMW zE45ZAwS^OWPk1@Dbluu;&RH@eihaO;xaTur2z@4ZSDczSH++d+U#WtRSb@ojVq22y z=6+;NOgbez3Fml`^`qIx=2sD;gzOq;ivoNN2G8VjG58ed@j1sFPw^FEy*Un!_tx@<;z@Kk;VX6IZ-sxY876?RpzIje#P|i_rV4L z5c>0DHpckEUT)lPyp<9&76mN-1#|C%qRzfZ!Mz=O_;Xv-o{HwQ`jX9|BTBvV_up5z z`52aaL5`1W7TXL8JMnLGtT(K|yRL%t9V0{7uBgO}5tAU=)Z`>l-7$WVJa0MM`eZX9 zW045E{>&8^!`mjWwS5oSpBi6a4qg647ON*JIe8wmzMnc&`r~%T6^gehwCj_HeFcgw zXr|(rOn=so!Oa8F1ncs%Opjq@Io?{81@~sD=zP~MzZicqfA@oWfn%SK8=797#kdy~ zvRc#qh=OB*!u-|{8H#@4;d$BIJs$Q&N8J&!+nV7iNm{}`xB-n?Yai|m>K)xS8U$a4 zOEbcf^S1CuT7J|IU04G$o~xo=j3fPdMppTTO-89f%yNNaK8ECm^^d~7m{T^E)5r6} zkJc#C_Cr}KpZ{k4rm5K|FXpoq<8yj2vmT^tv|iQB@Nxp!k`=Q+bKtk7prq5cowV*C zvpB0Xgs>;u=&upDo!lRUO^z3=;VolDn4{^e7kk)FMzycTl=^LkP78-WY>XY%d}5^@ zRbbf_s5WhLUBCwM*?v^5-E4~z2L1@!98vS1t_Nyb8w_N7xIO&`BNai4vDONbB1I;e zA#;jy7%GiW%Gth|+0;DA3AY*Q{yyqy0XII&x$tAX6e$Rvq}Y2vsbt0)yrKdT=xNIq zB-(s5A13zS&pTOkWo_Q&y%VEF1m5Rd0o<01*(%SA-u0-< zwZ{?iZ)=jgRlOeZklAwnQ7HM*UB!6K``m!3skWl~OCPuWvFGTw=|7yO+f61rkHV2A zZC9I*+)=Nm!o_xy{g+G~kf_nT8VJN~kxwUDJ=0mr=^;`&yU=L1oTZ}9`Z?vkGdj?H z^qH3I3#Qh0m)p~u;D2w(e#Cw=q~FhWXEPxP4!AJ!<5K$1Yx#oQ4pE5G(sQgR^?T`e zjivn5Jh^~N*VdQyseHjs9ujUOUxiwvNS81l4z=DeJAOSGeqo)<+>3FV*WHwfj`;Lx zPJi%7gb6OKPmAbX_A<=Dzc@IT-GjX9(!UN19GxtaM5f>3V_Os{*xoVufLIf9miTKz zRudVSSNV?VGxse#57jK#80v0ijWyU`Lp?MVEv`r z&JVTr`1NL9^2?0zl_C91)|a)z?UqTe>*<;`hWb$QgXUCzob#0CO@CfVK)@9xTZQhn z&8cG3Ox{kP+#^uc7E!T-qzsZf$55o=Yx6t)YnK1;(_bI<&c4H>EVyp$2=l)Hy6l6F zypc{Hp7#`z{ae$bu-ez6DTMZ7dT#iWpcuJx(VYr z3)<%VNt2@8wYPj>PQGSYS}fPP6h%XDMx_R#W30^9;bh)DcMmsq4%n0E_O+p-$?^H) zT}1UZ2CzxFWDI+3B|etU+93gOBU}ulgN$n2xz0`BK)4p!dM={Ru{LF06L{zOqL0A4 zg6)a}>{hF-L6f6;@z-w(6s%8X!ATC2p&0O-L=$%}D5E9FYtnO=8+#SLJjGG*H&H!w z2v*A&-R4vLYlXPqIAZ)Gfjebj@8OUHf5 zNgEJXAf^{UOoh40w8Y|o^gQor<)EJ@9tj(+fA9HpU2)mtO<-3lKhJ$a*DNwhIen=N zFjx%j#&%VBCCk8Ho_E&?yg*lrm|1>Uebn{HWpk*CP>Vi|`#)JhrS=;(%-oPdZrg$+ zHqTFgNMT$Wb4K}NZUe?=_r&J3SlrJ0(V`OS1ix+coO~BeqDyXwf2()-H(r-p z1$cq0(iex4TiZ?G2pEKuQQ7c|%V~Uon;9u3t9d0fA9^m9M={p5i>P+r@RAPkT zP7K_w>KLw|S+zyG1RAVr8I(02n;fKyK^HFht?~Z1qaItr8Lx!@8~hm(n@~mUJQ}RF z&E={=-lB#rM@g3+uYYSZxb$Vcg=b=W)^|fB^l#tmg1wR??h2xze39-Z?Gx+9^( zBjAgjN}?Ug-Lp#CKC<6x7VNU_jwUHopOoh{sUOR}SH#?j(%#KajS~QV9L8F&#v#aV zh4G?-$r`5wEOKa|`kr>gTY|%SsIjF^kmmEy6OY7ak4(hsz$yk`zKwg7w%e>G^~%1; zu!|Ndm{%`nId!FZmeKa@FtV^K3iJoM*ipY*iiAO+oPgeJm!Og0{~%W^Lxi%I`^7$IkZ(TP(^j88nS$fK(tbJY$fyKQvVKop9Yw2~d#FsNRsWCC;}RJ~b6 z!oMB6^Lia`xERt8V+7q8VSkKUjt_Ed&`2CnA{7bJqMogyaO@y`cN86-UR39KB(xq5 z^K~c;vz1XPa>C!amF^DhF?cpHz!+;2>NH_eyiO|ee6zkwDHKhl3>FW`;SKm)-#dkm z-BrYx1gFX3-gmo}@~!NA@_syf6*U?zo9Tzd7BMp~^2){xhgvHu?wZ=`Om#Zt zoRJyD7y^2C4r zXKl#LxYWKSU-Df3&z|x4n)H@K7Y1rFi7>8q^4d$B^M8c2>9>a0pX#DwJHqGYEJv}a zMHk6R=V7S$0Oq9z-+L)WCoiXlHL?Y1crQNtTlo)18TIW2<=bBh?#JF0)Ps%uM$YEf z4OiSR-F|aJ=Ms>@CrG5)`1)loHif(?1Z;amnhEk zWEuL7iJGzmTbf@;^0RNu!a67vJYQkcR0|@=Vw@grysLTea<($8gkEBbk31Upexp(+!7&w_X~Myj8-82dZC{~F)B5``<&Z=K!< z`l&k9Yh01dHkT~VOpS*8EEE?mcp62`r&Unf5KprJWsUnpi^gXohN}cxt3;uk{yTx* z1F_13Y>hmKJiocbe*keIs9PvRth-kXaV#M-X%dYp0w}b9NZ_Hl!WWbfX3Nms60;Z zMt&_ltXRYIZv^5Kbqs~++&+G}&2c~Iu==V@YVH9RE$Zwl0{1#VKFsloDa(}V*J^M@ zdb32P1bl?0i^9Ny=*2G?<33r`yk4ZFz^A-}e+)x9vI!s0a(_O{-p3L8|BFU_Xu(_Q z=jLN~m|!32Bj{fN&^CGA2z~ns4B(hH>e0RyffV^a=uT*6_VibNsx>5~LqCJ2bBk7! ztjJEpTvfEZJd=Y>PjXt2;01ywAoX&zD|$-s5>_)v*Hl4h?n#c9j{&(jBD!TIKeZc> zGgEIKsr5a@o)3UPhPzLMX=n|k*`lWNFw%?T&MB1~PmQj&Aj!*2vhWAa4W)cBzc;0` zZdTFuK`_&6+)os^i_VXtKU%OZHiXcdgTCK+k1oyVo^Fr8zkaB1Hj}4;IAil< z(d@BEDxh(8>j&twP^F!V8$YnLifDzMY-fH#@eVE5hpF&zT<^y_ zE<6Sa>?$;YEv<)i=QeLaB!14g^V4tmy=j1FOVIp&7>1WE&+El(ut24OrpycX6*2Rf zRxIK-<=If>Oc>dW%<%eT38W&Pqfz7pr(M`ZeKO0qKNp9Qkqnp_i@R!k`DrLyX)Z$J zhmwzw^}RmL@kM$&;*`m>aos+vI;RPIZWC7qLz`pP(pCKV2Yc7Dfve$El68Q~_~<_V21?|A@qqgs%B7stzZ`@G#SA;QeC9 z=Xn{bcu9-jUZOSbm>N*uoDG0uJuMgfW{zo@`wc|oUyLGcerZHC3=)GL=tKpLsMbZz zwywymlE2#r9eqkMh;C7_4=kZJM=Q#@^!7f&TlTSC@RlRVU;1~jRdgf7E=nSb?K}4+HT!0@rd8yY+$GY#(-u^hW zljpR!lZWFB#riR}BSs%&a8r(zKhS)u(kjsQTHf_*)z(kRl^2ECHhlPvmFq%BonpPZ8MK z27cVs=rr~(|Ea;lv?mAUVbwAy)*33s9FYgc-oi|+@v zu8>SWI2S3mSt}byw;gZF=2JH#C7x?H-`%jERLcRXJmu-=t zICKgipzejpQNz5wjpe~XEhwV;(tZ^FuqW+@lQDb4IQaSPT+*DU+#hj&&bRH*8}{-P zEHF1Q5p%Xu^kdmg1uiIFF0hVlO!D0C6mlHfXLip*4OVlT94RehPT_Saf}F0tortqv zDvZ512YS*PNH3~FBFL6BLA2-aThbWup8vxLNuB@05b0&cdY+#%k!9+<`Y-#zCgP%D zHl{flMG!G^rq-S8pEYj{py{j#*nNu#Q&VdiOlAxkwdXi?@GSX@`KeXAV`jbapN|2G zzKYbBA$9k6J-v8sHmK0}F7QXIA|kZc_$u)Ki2i{#0BSS{{A0m8ONTD%pL-IY&kJpMdg)XaZy4x<=RGUKSO|0yueeg}OXa{@^GPyp_8OYxUMZ6z$)}9ElP{10aeWIq| z{O_RF1d2vA^#1uLA)R3wEODZ+5Xr za)Sl`{>kcK#<%$1W70qvi$#61_hG?P<=4PeA}5MDSv619H^1`a-c&Z=}Hsy#ZwyD3@9o6vQ1R%2qe1fh47nI@@z|?yV1N+dAIIza?<8hvF1vsUQt5mv-@Dyt`MI^IzUV@EBmixK1`A0wf>n2srCmx7gERpN(a%> zDQy=oM;`bPdEFLqdPH|EZ?L3%DkYd5OZu(%sH~5=OW$4fTkt9p_qv49JY(Ehfw$v~ zGmH@-MSlR=YPm<}<60E=zyG`EAV0^1Gsg$-Em_K$G zYnvI6>)KqE_}854=BydLy2h^x#$<}nn`oh z|E*uNXpIb78}DcL!3%6eawB4%R{hG^Rc>~_cLJZjh5L!(x&>+^t&138B|uy$%8`Yv z>dyg%!1?2!gp!F1r6H|_G%u9nH9?M7l@e(Fnn_XWVM1oYPY}eJ&yleYY9>enmm*@M zBuRy83WTF7avR>DacG7$lA912Sb~2r#Qk?*j!I}r8WnH~XmgYN1Ce0{(w^*J3sZA$ zGMm3Fms0?-$a21SF28BoS3g#uNAL5gjtNy3?`yh9RLz-J%BgV9g>3n&8Aly13E%xZWM+At@EPXAGpymR}9U|Y%Pq)l3Hp)Cp;rXDKDTLL9+cZ zf{#vOtcTQiNvIh}pIz;| z0AE1sVkbkdK<~k$d2yIh7^rc;b0{Fa5uwIY7tB~sVc7n1PYon>HMV0OMnzG<0!utC z$@d;SKQs?4!2Rd^qQe1@(?W$c74Tv2(Q{o`fAF*uX-ybtdL!#kcm?eK>*+*sXt4;E zXHmJ%3u-IxspZ~3UzGMO zl+$TF1ibDCWai>z)gtEDhA^r0BjTuJNfG~72z`4Q()T_BInO>LR+Gve5F1-2b|vh> z!$*iEA2ETmnm?Ce_-}s{NyU)O9NV{)??)7a97tMZm42)%sSY3Y=uGE*O7VKtuuzCe zMFvd6$gL56gS7g{)Rt`DoC^-F@-qPSwSDt3IlS#mG({nYut7G8x*DxZUlaILHq1kd z3?_D#92V1begij1C8*;l$0NaG&bxp%0S@?ra@K^0G08J4|I{dIZt+3_=J~orhSdK5 zSqh8S{!qdvTVQJEjf0}h>#H!Ym_zTyeCOnhRkQe|i%gVo7un@%cin1rtIy@2Z)1 zh+j#Nw$(y3fK>2ky>QNBekDRy@p?9Jb;E4%1Yz)jzszuhsPUSos^%u3Li%OG87S3# zA;VyPHt2?#_XWmb9NuLILeDIC8%n3=Jy|~cx@-@rqAf1-mvMqpf5AREki=az=lW8s-dvkeQb-XWdvp_L?r(VE%A?FayBpcb}iFAI=qwt5P_DGsa)TH@b;_bF`xB zl2_oGxiqY|GG4yoVlsRAjPnCu!ieA#{sliBDWj2sm#@XI2HkZ$&{8-8^08?%`B*)a zLw9F56jl^?$I7cBYtbxPI#DSee a

    Examples

    - 
    library(auditor)
+    
    library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+plotREC(lm_au)
    
 library(randomForest)
-library(car)
-model_lm <- lm(prestige ~ education + women + income, data = Prestige)
-audit_lm <- audit(model_lm)
-
-plotREC(audit_lm)
    
-model_rf <- randomForest(prestige ~ education + women + income, data = Prestige)
-audit_rf <- audit(model_rf)
-plotREC(audit_lm, audit_rf)
    
+rf_model <- randomForest(prestige~education + women + income, data = Prestige)
+rf_au <- audit(rf_model, data = Prestige, y = Prestige$prestige)
+plotREC(lm_au, rf_au)
    
 
 
    
   
    
diff --git a/docs/reference/plotROC-1.png b/docs/reference/plotROC-1.png
index 6aded5addd5021de7b51524145a4ce0148bde3aa..31a45df14159a9eca0805a1b9bfa8d9962e777d5 100644
GIT binary patch
literal 20158
zcmdVC2Ut^E(=U#CRFJBuDAkUN6qR08R8$0xFA7Qtq6i2=K!k*@(o_Ug1Oz0A96+T+
zL5Pq9j)_X|O^9ra^qK$xLJ7Gm4Lr~N-v4v|_kQ>Lp3B+hIoW%!wPt3`n)%JFS$X)U
zsgdvo$qjsbe8OkXoctFb-&!Oe-N_{ztp&By1+r>)JW
z4L+anIfAPQ++y8e{W)rDKhbt{)OG})McPlEXg>j;Boo%3yNOA(i95KmO`eARV-dKRpryNew0m^6dvt|+c5gK3$Q@kZTW@p)
z^NBX!6EG^f7toB=^hwc^B5;wOkcys=z$Y`?-6T8OJ-ebeyO&u|P*CK^SLCQ&;n_qR%F9_<*cJHl-?yUfWGY68~1|Vqkf!k=(y-|G4
zXdSp9s*f8L57B(wXb;?INpEOLCA6Fxx{n*(=N{cBg6{L2?(>TN;2!
z39g7mJh)yh;)@qs1{a6G#av`Em+%ow_*Y9U;3{4kYFrv(E-{(RB1a$#X3Hxe0w$@5
z2^j9pX7*MvdwZEf#mu2b=FlK`2?&hIYy@&*G69$14l`Bk%2l8*0v>0sc=7ScM6mv?
zis_rU!N<3Q@9fFr7m+W=QWipFS_8j3DPB;_U;9Dnw1tO)^!1PHBEM`<705kRv&mWI
zvIxv@!$sfyZqJ{5a%=indpYg!UpcX#_;t44e!G#>@ZN97+Fe8Ern!dgB)=Md^@zB@wXwS0ry2!ebKheIX!UR~!`
z<~vp{2IIRMy%PuMG(@iA(+>atesM@1mtcWkjh)f+dwpk$9%hJ%AX(~P>5%QF6%T&E
zjw3TCDxE$F@*Rs2+KJnVEz>UcT)aqb(=i^BF}Q%NC@3`3Bii!u`Q6w-p0=2rgq3EI
z!-t6$A{2T}Az~HZU;;$&w+`B`6SVW(7^>35UWMX+U~!U|<*pp3QF?PWT{*(8l=}{}UR_j9Vxuw-G5@_@Z&JUWYZ>yrUR7O7!Av
zxm}pR%((K8d_Apguv8S{yPYqzeS9@vg9eeGLU*>R7`o{0FtyfPBMkGy0yeF}rqt;w
zx$8xe^aDrHnHK2IkXI_xZ|}naNKESGX$yT{=OdqOJ`MCm5Fep`d@kYV
zdtawQNS1kbdKF||47X}7Nj|9Bov{-)GEo%~?CtSvL}hBi=BvYn&J^jxYwq4yw-I{t
z!jtlvNE+4-9qTO`%#`VOO{V-y4#In0f$MzGf9fvpCEh4l^*wEdk8kS8UFyE?9
zBH__r|2iBk@(6KRsx2U4p6Ul>nf)PGD&6W+-y0p#EJX>>3b@&LPZ?gn>aK10?bTn$
z=>{_x{5*9WUH10Gl&vHIYoKv{Yr&}kk+3xsH;cbk-E~{H3DSAi)9p@7?)Ke{)xvwG
zt9*W6cXk`!)x@2lh<1tm!ZqR4w%QZt4MuFpwN5(ui80PDvmSp&kEweJgO^YP$aM2&
zi*cO`-yyOzJm{j-I*qnWb
zeB>drj_-2DEcKiGTBq(BOf;e=b~dgK?p#`JN*0clDGeR{JAu0TST;=#LI!?DRkj~Z
zEsjqek8egMq!6T_o#)+)atZIV<62$`>^#Lkybkq<-@f
zp7VDZ!KJO^Qv`zihOddfC|K=!eS`SMk-q8?Q;m{2rI9(?si6nAk;GaI1H0Hl{`DwA
zc$W}g{Pq*b$XMYCG9@MB=7au`iMG7EZ?M%4BD*Z(h*Ck=Nn_t@f<|>mbFQu7dl7Ry
z6rQj-mV0O
z&U*6QRUb@q5^OX^4g^=6T|l3BEQ5#Phd(R7lE>}iSN5Z=9-X9xw*Nss6$86#i$YP8
zcHjmZ1>aXUi^If2CG`AO`S|(~T<=p~8!7*-WM+mm5rfeN*M9FC5SY17`
z+HquKy2RCltpA2i5t(Jvb+ds?e}nm}HTfh}4PQ8bPKfap
zK-+S7ml?tYFbfeOKN%+7!Cq%qnxB@FrIyaaXkVj_#u>s0q?+m7sfvNYQy&T&2k#BI
zlqMcyb4)qSY;^Q_h3!jKs-4^fIY!5vBjbY{HcuqNO#;pDvZV$^EnP#A&fYitb++3#
z)z}ybmz9en`Ul+kS^RVOL*qTmcio#=Lbv{?k@M}*obyyv(X?@XT%GC{FX1al#>--q
z@mVC3nsz}8XW90PNE$I3pSS8u-o=_7|C!9z%NsG!OoS}t^_A+V98ZO
z&Xwt?&EMv}={obR_41G#Q4~H?BFI!ejud`bvS1k^m_e153*5V;0a?vw@&he^lJK5t
z7RW=3@yh#gL3&fV3DMNk&)@k?UDnR_xH0y(LI(U?%uYZqDPIHqtz^0`6TBzfwHH@d
zvjr+QH(h;KCTO94(ZH;9UXO_l{?{imqO513n^E6A!F-pHpr#Yt%ls;5#8eMMpayo~
zQs*p&lAEq;{sJS%b3@THX!x_2R$O?(CE>wF#4WUKR9v$iQerrd
z`MD*1;F*gsyvRYrwtS(l>6S;ze*gX^rg8(G7yVZKK}qm-I`ZjirdI
z@Ae^LzaMu_{-QkcEpgO3uUzM79~IJ7FVQK}H5_710iHiFav-$!L8}%N)akM-&|c1M
zU-zWI=7QL;*($358~;M&@%(I?6d}Ar;2qQN!R`Yu-*0~_6@Y&GGIo1JrBhz5$zI&&
z)^b9N{u9|>@oc>^ZYUoJJvG0zP9XVd(&yQ(rsDVd^D+(M&?%rMdk1^OH(d+t+tAgh
zN*qG?C-sbBGp4Qv({zrp*XAbLgqHn>piD2qt-ms{IdwFbFAUBSfZf;Emp{~2?_v5P
zg@~&I67&zJia^n&@^xE?uD)Tn=5`w2C@7J1t)8t{$5*XNIr8HX#~y$&x8#3-mfi|{
zzHNlbkbjr+?MMVdX{F;J6jjN*aWB@|HtG~|?=j?hxKX!wU>Ih{g@ppUKRHHY6K$$y
zqNv#xZ?Ld-nr(3m9PnQs)LrV3Y+;Nhw6N_BmD;k=SmMn1>r$ip
znH-j|?aHcW|6Hn3Bk0`W^o7Xlev36JC>Zs9#xaQ9#X+CP^9LR_u_?oQGop!2(#?0XP
za=Dj6P;fQv?C_XRf}YuP4lj|R>v8B(i9pYu^FvQG=Kh?HotWtrQ9C5nmU6W|_AjTx~hTz|m`|H$a(19aA%YT$UIE-`4txwr9qkEP!I9-=>LkZ8m7cki8=fdg^8D@Amo{mmqELyz
zqipT7bI3Xn_M++>RAgr^vOFmgFWzEHhmP*=4AnDx#u2Ze7?jq@^>?Lzi^LX1#{^aI
zyrS}ZV)BjOZ=mb;+{sCm;qmjX-OPmSlbyPTcf+Nvy$sQo7zF!1wTDe=_T}#P&S?sa
zA3OnCeh7lbOVs?XaK{*Kt-nkvqD>Kb%ofhiVMm$%a8Q?l0{4V;G9-|0SmdYma_!R^Gsq
z%9ddXzw5QAAp2#S!J6*l4nOj$lq@Oal_G-+Emh;aFoG&A9DlS8pU&l>Bn$qwq+pm7
z!lQ8<@E)@AFc-V)H02F<{P7_P(d;dO{yc#oROYQI0o}7@v+1JmNZm}b<41;^W1Bc^
z{TK(k$UIu=Ia(?GclLmBGMup|MM^W!$3lmndy=7X-cJFJ8Vk)f2;iY05yKT+kYNbr
z(vN9$$UWAqj8!u5p
zb}N@a`$0@oVmQ(?O&vGz$XwXmZR{^>-V${$7iQ@QF^aDtyWbQWB6qwjD^~AnS9i7k
zyHT$64>tIkpr75g8o1Ryio6|T9I;rIRLVdswJ;+M>PizsF}Splb^(>$K?y&u(hRaO7xW>v`FSDJ3p$~iX><5rg*qR88|pYRB2A-i
zVkt1lBJ40u5&v;@^zUTiZ(btCQ-A=EcUvQDfA4a>NgFEoYVDpf#c0nrKgf@^;Nr%J
zG`O~xV(GcMUg=-M$*x^K?X5h%ScAb!EDTlasUh!5Nu66gXc5Yvm*+J7;g8fdSV|7v
zLTW|2$7mXL4u?%dkeFv-*nvj{0#1g3<*|Y{Y#3x7s736br+!!8$N1yX9$c(+7I~}?
zJHAAXfOF^PDy^^H#+Z=Y`hq%xw$wusT(=VxPIs3d3E$usOvjTri%#K`!QJs;26>j-
z49y?Ntc_}%Bg%zxwRjV4jpp~L3*b&T_s*IYOQ$X2O}1MM7Vq)YPZyt7yy3LLWdO;=
zVbx*~c}Tdt|sPxUTNvg-y69k
zilSNpr+%hvs%dS4k-;5ax2uK_up|AGgAsY$Mx-oAHHCC9$o(R((af7vEY>s%mIRyr
zDS*Dg4-cL%E*NPU{5r(#btW^FiEPhktZvSh)g>1Sk;hERjv-_u@w&WG#;2#A7p-M%
zdeg>x!=~&cLS`G@hWCd1^i=Jk%k9b!U3hm)r@c&vI@^>Zm+y?zyvpJnE#a$Lc`T<4
zB^(@|^pjfY_dGled*4Xe4(&$`Z9fucO$!?@W(BlEl06##J27MOd~B+VU87y8y>yU!SHdi%7>WxzP4l
z_ojE#@79|k6%CQrjn;ZKDR$jkf4d_No24y3{>K+gi|x*IggKX>_B?2OS9tNX;xa+)
z@1V)y55CiGzuiGmOR~9h=xPRM20SdL$-G+TiI9sZr7UzWG_G$QV^SjQ&oTS6)&;Kb
zikod8c*2|5#F+X$tpU>kz6)keNlSefpL$s-xV}z$8ij$3wZLPWUh9s%rPSy5fNZWSqoGCt&>)5)kK15DuBvA6RTQdt{Dl?r_6nCzs}>
zn|NK{Rth#AYa^MHqvD^ZESbep1kg%67I%H4E>X&sMohYy$4kGbMf{T|fLJyLGo9x8
zqhphIjHBy!E;rMunFwD5=Fg;bIQ^fa<@dY`|B0B~Ar8C2)2&nIMv(PwT|J2IeYkTx
z^@&tXDOOLs|3Z4AXr|a@-xtQT)?eJow*G6#O4xdCzRTcI>2Q#mVfa7hD>O`x(cGCG
zJ7++T*g>Z&8XWQxt*$uoj}Cr)OFWcWxr$;@^1%MK9zY1x0Ak>GA;WGR0^gQ9J+f+^f;r)BN`#bwn95
z!T6SNJf^=7{;d!vm6y{sT}Vw8Os{X#kEYh0fg2-?SB66=xK5;vPVe@-
zAsD*8)Gm5S54Cu7EjcA>DOqYaZ{{FB(~R{Wv)%>j#YwN}*0oT)y#c&of5#HyaXu~0
z3Xn0{=^l(Tw~5oc*9Y~aH4YlrUy?h66sD`)d4pb&LSgUvkCts!vAB+>9y5?t=YT*c
zCb4Av5sA@=wNJ=umxcoBW(m%;p9-H1^wq1Jq-D*t1k_s8G;);qY98cMPB?EpPkZiRkrq|{z-eH$j&I_(&WiT*ZT#qHQq8mgLrcWotD
z+ec_Le;HdE>;m50l^;%g7d}+5?;X5!BeX$B@tPQBAss^bX^B_Ak236&A?A+^=7_R9sBZ3|gA(r>n<
zP%=-hQvMD)=TvoNp1!KL;(CIPefSDV8=;>r7|}K^Hu$#>UZy0detefIK(pdDt9@awcqMthgG~ypDuagl3XtF13rWUQDXB^x{G6HIgGz_u>(m|5A5!9uR9
zC&dIEZ*VQ-B-Su;jQi|K1;N?Ja73F{S3E89J}jG!6#kTi61&g48kMQ6G>!TZt@FGQu1+()#~rsp
z0`gUQ*nB@oi#-%}Bb0CiRy1-^0xHfsIu$5wh
zjQ45SjcXgNzSw?0=q$U3NKs1oz}OO@dApr~ed}9Q9DXR_4?IAAcp5c2#?Qag%SDj#
ztSgSIl*)P_JDL|zsF#&bRnlr~nElz94dhiVitfAFwJ8*1%xGe>ogfQMT!==FeNV7y
zc%K8UW0RE;q4AwMgBiHE878&TqdtzjlfuZ=0_lNsh(7MJFcziIpBkbt`4s4ReZk9H
zJL7e)yIsNWWz%dd3ZGjPFnx8I>giLW0G~CYaNt|RR;ZK~&(;$_=h*8*fEmSQ$!&re
zFAoZYytAA!
z60MEXxdHA10x^c2Z5UI0Zg~mm-)y~xEiyV4W;N~Zuf8-qd7*yBTk1||yVWvFK++`$
zYoDSdhU?TjestmT;4nX=v86orqn}ikP`x4fygf*I<=LWGx7&LPgFIp7#1U~A&6K0E
zXUTYWE;V>@Fr-rovuN3!47p&Jl{zB=5zwOZGPq!DD8+?NKfkHLvcCNXy|LevTsXCh
zXLXE4mEn1N0fI0d9BD4cHAeMQt^Bt9;x3G@5wlJ2Fbj$FYzfK*+{;^>9LEwPlTxPT
z-J?~u4;K%tvpYxbumEJNc>BzF7wOwu*J}hR+2(II^n812XgevVnA2Y78uT$ydJrWf8fa$e=nH?T6^Np~Msz5dQH~))CIll0yP?3C&cN%6
zC(a|4GmG^S5|B{XiHdV|d+a1ZVyCg(DWv&=Lt`=GMmf1H^$QOpEF1qk>{nH-pTdR#MIK&z3vw@Nh<)OC8)YqA
zj~#XvGR#(3n4D@Wr9Qrq^^$tJ0CyOmjTc1HRvrm^BQyx}3pe-v5r&yebnT-S9sQsZ
z^@(e6hscVG@&(aN6AL0s7XYqp}jV=L)H=+)VpeTUV*wdOn8=QOb-E01w`6tM>vp!Bog?iEoh7h5CD_Lpj32}z;8ZU-p_2|0+W(mrJYRt8pb$#w2-0#)fPWgDB>Nuo~B
z5$rZfm4us4iU8bfKAPnX
zbs%tn=UcvnwWHH@@I3j;6Lf+O^o0fI`OCoF5X;Q?&yficwg(OFy&hQh{eZs72wZoj
zDsDQW#1>%*jmJR3Kq=`|cO+C*I#>`cn(L=9YwdGRfO2fv$^xTQZj_!q5zh42bfLP%
zTRs=yhu6PVT($;&$mYo2TgZiw!9D8USwgdckF8Jt;C8)8{YJ@hD|Zrvk6_*O?u_ti
z0nXIDS{?vO1WG5=E@Fjp725*Ij$UfWZq1g(5r8xLW-eSAhui|=$KU=-!JTPHc>toN
zE#VrMW1JANZ()HFC(w0D4@k@go!0=6N0IR#hr1?jeax{B-fVvZWNeyCe$5!rq6aUD
z!mcCJM<&9{i%G!441YB$+qx4sbq|&c`nwdaLHAMptOAQMvuQ4jM)>Uv`NR;#?*;(7
zeLJ*+jix=+6(q)y3vqWap?9e>j@)(%LU6x+D`PQe?iktvL}?p{
zQnrHm__NTe2+UHF=5IV01T;Z`5j_st11$UG8HGYA!1+nN%<{qnCsqZ3lVh&mf&q8bWOgM)ekk=mc~o
zhQ*}y4m%tU_YD^r)w#=_r!ByEKj^DI`g|J!1-=GCd@s_{emx3=@c#|AbaoV&NPh1+e5
zB<4Zem;C2s>q+8&CF~Z}IH?z18si=#;$sl7OHr9zNH7JUge%>YFbyHMAMJyYw1qp*
z5X8v5?LIfv@OlgsweueJwcHz^o;re*qJ*F~^Yk|fHd{2X=T1E9jaqyyK$e;LV=Myk
zqpq((fD*u#EnU_^Eys!6W&X*~ibPmrB}@@ajm(So8grr)1c^wIQ$#r=x*-h$CWegM
zXY;A!^%OC6>ecB-_KM*ezNyOb<3)iT>j*k>gRR40Mu=4XVE+%<_B4?!#P>mM+z1M@
zFkoRY5jCOgS8aT7Sz%Mc5CN(OhavyqxxVS}-H@KQsP&_8s=GhL7*eZ3+0{jM`=W
z_vv|GyX~Ftl&=E|(zNo3x6RGLYqYCx3f>I;@|E)0b`gpAv>9GKlgL@}GNBj)NrL~)
zR_xSCX{dU(7e3T+?F>0313S55!FtX{;eoS$z2??b>-PbtyX3J-eJS=#!EPW!;AqFG
z$|5YNDfok}+#^D8D%sqhI6PjZKStO^6olK&fRKu1V9pUqvTHU_&aWsU$k!1CDCfn6
zSI=?{raclZbIU$_r;`df<>pyK*O|oQ?6wDqBfbhV=)0&R&#Chu)_cz~DJr;$n^Iq6
z;?M*A*Im;a*VJz*vN1UFXs!k`43F7vggq%Sl5A5J*9x|_Y1g>dMl5xExlYRX^ApEpB;J1|(VRT(}T6)=^HVQ471TS%zUx5O7=M0q+f(eCug)UfAW*vG<@To=uR
zvW%^T>fO>oQ~27qeGUNONdqw}2vN>EjCje9+=0s~6#2~0JRc_{A3C}~mtS%yN}#?@
zNC&iD0{-SUWx(tt)4F%609EXxtM$ob^^cB3*Klg4#;v)f4u|VtuUZ1^X|r8nyU6J*
z<1g?$lQ#zUcGZA%rR!mvE0OWBwt@Shi(dXG5MH<|?(!tCRfpq(0(smtSvYTNp1#iw
zMg2UzIM~b4;^DDV+E%SkQY|lNZbBK9=ya0Sv)5qu28xYM;GxmsH4_uJB%z~a&}!M=-7dOtp#eEV5q>TUR_Y~+gn0wSP4B`n-b
z5NWmBdfUFF#DZuvSLj)nA+QfOcnUbtAS#IX-`j8US(jw`YQJvJ5i>huDNA`BMsrej
zY>IJ_QFY}rknp6v21#YK9w=!9B`Q)*`7ibb)>_1v6fHPOT&Yz_#(T4!eSiTuWw)pW
z(fUe*m>21NmgKLqVJ{XBJ{jsAFNg0XnK6-#{dL#iQXIEpgdBJm+O-=R8=}g>XdNRr
z8Asdq4H$m`?~TociTXI@V}#iAE$0k8EfN}c(!ep!BHQuAgz*WB(rtfq!=`=4sKuk=
znM9qXLVt?h$C7+y1NfMrj;)dttc3ZT{MBjut?vnIIlfyQ7QF7!tejjF+C0d46Quk_
z?tF2u9<WT=#I$kz3=8&wc3-
z3cP+uzQ8nrY&&@waTY7XW_@u7QA(D2`Y1ZVLY^E2t&S{<>A&d|XiyU-zF+9_iZaMK
zAeD3X-Ly>&)i^j_7&5Vk_=}vONN=}Io{5Iuq;4LK0P`>1tZPhXxII)sZd
zz?+VOS$Be{XP?`EM4qy!wVpq`H}R*g$py-jvv&tBZ6
zLo0eAI%y?5^e)_Wy#V}ZJV4f5sJwnVe75Z`pyP!fmq;ra*DoJ
ztvgbgSxw!Z7iK@}Q}4I+M-H!)4EyPj!|mMgqJE^tuMD9Pw?i(hdMMU@Bm$uaP488f
zX%mCSG%*Pl#JhI-+t6Y~tV$(Ty;>=QnrSI-7ULn2wG&qf>k-fO?uoaCN;9
z!dpl{c4!&e%uD`nBh{xrkauYr^`PYI^%rB7-j=r=gx%xGp@O=uUS2*<(f4mx+#!d}
zvv;W*c;4AQTmwn=viG4NeJY&}hs`#*%!kX6$F{IF(x8Fb`B}B~J-N2{v>A@of?@J;06~7Th?yA%8yS+%AoT|8_Er7;9T*spXeHi!obW4}s
zgw!pCcmszQtU@xd^9h2u&wWPva)B2o3R7+88Q25757MxVoDFjJco(a!2u$8zZLNsll%ycU2g8)=pl_cPF@dWgh40QMM4grOS3<
zT9&>NLc;kT06l6s(+aSWF`foal?yj=f_*PLDHyQhkaAq@%Wo+;0!Jb;mC)-`CbeCc4
z9r_4vQdv;zH}-&lf>*C4pQ40w;@9u{Yew8v%3UXl8`2Z5u`>q~jRAAx;ZDAp0QYmW
zN)Oj#^m-b*Fz!F!o*r!A3$Gb)GtuO&&Ws2UTEZn=*O&g!^`NX&=!yTL+Rtc^#ksAp
zthj>YK(be3-}XGlXkd{+7rvD`uQg>HkHM_rEW7Q{gm|U5XPykr$GTJ+PNi42y|~j3
zH(SjYaxw_nt_Pp3&kgz|)niA~txjER?%#;6->B@z+5$ySJV219#?1`+Cg(0u-rG9)
zlc&M_B(NSG#*IKri#=g|0U(TCQQZy1fH^
zVIaUE0Ufh1WPCu31isNxoVTFq)bI!#3WM;z(LF{kTTs;Dsn#S>D!{+h_(NBh4^fBd
zMf$)sP$2d2lbAIV-rD6|UeJ~@7K-`JMrDxQVk`(G=w!&>%b)}lA#h5BL3%1edCP|Y
zy*s?YX;hfb;FhNz{Z^4H!U?rJkCZ?j_8HB+zZ_mCn`JFF=|NTK0NcM05P=EtXNC3K
zpj`uY2i|G03+&J1W~f#4K{=58
z)MMc{Q3}%bOIQP7owfH4q}XFLUaR@hg)t8x9;c`oq!Uw*eZHL^kCM=v-^oh(ZlL5X
z973?yF3Z;b$Ey8{h=mC2&3gZ_Iw&6g%X+y;wbFNb%`2#8=d>(KJ5jMblc0zD9FDN|
zkHxu#VroTSJ>doDlEejaEDGal=QGneus*oTBRTccK9A*0lx3R{ldct6`ufJ`SO{B;
z0+jdc+Pgb#~(Ikl*qP!l+8qep`zWe{fdm
zR*3(ArTj?dO7IChLv>}&bw!-a3g`f7D=dJj&y<}m_&f33+jg$ffoe*7Eu3*_QrK7u
zC(j1TS4P7Tl@bM?@JHE843w*!pAsEt)9IdNP#A+D!!t3=9>-4%P$dCWj|5bYC9Oqr
zK)}94T_h`3`&#R;FjVCO^od*fpvv%Y$EW0q`s4510)a~rqjmP2C~yv4oH~Z{&7w}+
za!pa41xL>Xt!{vIF3Oe7>G3B+}ji)KSnq^|j
zz+2>TM<6Df?D^q`%?}_mm#*L*&r8QF
z58I@S(#*2Zrdxf!GvNcVmxSlMcLFQG<>2N#`G=-C44o|V)7|8tj(3&Eh_d>LA1f(4
z)g_O71yok*v8VNiT3#NJzJqW(!oy@NDo331Ofv8E)Z6GVFnwlAzz}k)RUT)UZ3ltT
za_tJoV8PBJ;rd1Dl6q7d&t|!$Mdv$~B}4O1FVr}dUJ3#+J=?0mjF8Rmw_@jO_Y@)m
z73ce_Bv}t~0HQEL#>9x|O4#VBYg5k^^$`a1?D$`sc)BV-*0)~JieL=aomBWS^8jgp(qdFWb;$r((cY&gxW`pny!Rt7Hh=xol-L7I&RC2P){Y<
zt?Tg#X=ubqWbvC}dSe1A8#>2*-Yy0$-kquHbaWSUVu9MgXLIZdQeot)(w?`q{dcpV>jk&Jkh%&h|5%bU
zV8=@J8{vvkMmUMK@q;ExHrp;mKj1m5B%;5|#Va)`-Y0=Bu#c7iD#9-bcjx#Z{6xNA
z1IJl1Pl@qtXD9}Bi!uI|AU$5&la6gBl16Vm8tQYLA?Ps06_>NlAe=s*TD&#&)M8cd
zh~_8XyIwr>e2^fub$Yz2P||cuw-GjftD-!1{?BPV$Z*TzS!nGMb)BUk*hbCYDm&}g
zeoyG3h>ux@gnTxt#Bn#y)^uVy2TdS-0k!;~ph2$w8yT;1Fihi9ms}D-^xLA>0#{B>4v7P^n
z14dsa*}zPgW1g;Pv$FB%6C6v*bMpk(YaOiYAzp-&ls~i`s>3datt?Lw+TK~6SP!k?
z2|RoSs9hF77g`?8!msCfk;hR~EC0h&o&J36%mAxobNM*b!#)Cuaeg`G1m^F`L0nf^
z;j$BFRaO2+Q}k}0w!}W7>%`X@C(2qjhGbV3{Tc
z+xf!}7m>MTN!!QtI1vU|Y4HN+X^ErRcq87@72>+v{{~Q+ythup3gdl#N1UV5kkX4T3+{%LGt)|(#DX)F2NwreXFH}Gh?KeDiE^?*Ss&PU$zRw^^xwqyYU2%Z
z?bgR}KsKm#6ptSiFTuuhM5YbW@f2u(v#J?jVh1T5dRAe7rHKWd2)P%_gP6jekH
zq*wI-%0c+iLJ{;gvbb?pO-OUPJdS8I{nI-J=z5B*9$7{onB?2m8zeGqT9|Immn!(dCd272A7?JFxy
zYD`#{Gh%5cfF_mAKj=yS7qV+9TMqVnoWo!ZYwzbFaT>umA?EgIwpg$)u=%h{P+`U@
zg@x8EuxG|JYag=
z?94B#tZ_?g>G%0|f#*K0|6;H@D|q@iH9|D1itN3J4)P%D#VygyOlAsL3d|b3J?1Z_
z_ZDVXmu`Pew54G!x=8ivjk5X0aQgmwFtlb>V@U9y8_+$$(;8hp(cL5tkd~#$>8aZ*YN_TOT*%tzs5Ea
zq%Lg#@pd@au4F2BaV>bG%04E^jzLrIth5VUO&$}sQ2V3xbD)5mUmCuCxwS#Q;~XBG0VA-L%H2aFCT6_O37bMUR%0<9)hyybDJD(kghSH#_!!`FE;Cp?>jRdBkI08HMvh+2rw
zCF#MqLT8i4)`*wV0bM}!Z8O=*FENAjX#GrSSUGcey#%W+UHjzF^zlc@Ro$PywfroI
zT$L%GpL!1cXJ7xEv0B-D(_L@IaL8n69!pCF=Zbf2SQ?H1?S`+D&FJ@#5!F6_6Edqb
z@-E0MhT*W4FkiJ2O-e|#Na>8Foitb&fq!1n>7POCzu15#1y8RLQs%o$`v3PMF#rBn
z9k@R$qk1IBrFBYwqIJ06n^Gj6tEFJ3pO8(St{eHoS%x4OmE*rNmHv&^FG5&Y%rdPR
zb3x*35A9m@o{t>1Pbt@rnWJ>ZHdMo_rpLt(uT#vgd`AR4DAJ>Nbj>Jf7d}WInzoAL
z`+k>tLYxGh8w(inAX+p1a?kPII)+RWAP6>W3Y8e{pkDhG54JK~=zY+_v-3CbCDL$4
zZ+ge>Ulhx6WD!lZUBqvpr*$1RdE7E6iC$?wyF?>RkIEEGG@i6|sz37T4D8*0$Pk%^I?LL>J%H_5%1H4m#i{w<9q76ekfdUls-JYr
zY$U!54hpI<_3gU884u@r$1+--t?_TSLH^Bs!mXAlgUPyAO1M7Dt)-Kx#aT3GK5H?U
z^R5N6+4n|>aQhNz3uiN0VAETb`78vUAM}jNdTVDI
zACyp|s+#zStoO3m7_IA-HT>wW`Ks5JL7M#g#HIP#cHkOLO6D)>W#2|0Y^`1++2vO6
z;QsVF_VDec
z)fpj8V}ovQobr<&2_I72S`nk24S$}2d7hfN6Gyg9zxJ)tO?3-F$NO#xOur;gS63%T
zsVu)z0j)1`^$NeT>IET?_Sa`rjKPM=8e%o_e7a_D-|^RtOEw?8_)&cak1l1x0y#V)BCB8
zS+Q<=$horUt*My@aHK|acc<7d1reCVD#Ql(T--*OvnWB(WHXdAiNnt>O;-2KmhFNC
z>`@|-e?2~tC=-J;Hf!DtxvnQBJTud2NzNo%2lh!%5dP!{?~aMZpSH*+n-u@Rj-Bk$
zVP;UIqN$pIy*;WpbJy6-*h(>o76Y|;!)`}bwIs+~8^%xeWEU@y>vr;75C
z%8gr6`ks`^#Cy9ewm{Bn$5Vzj{Gh&4w@Owiwz_iuIeO5!J=wA`vq(XBliCZH_}EK!zM!UD?OBt;Zd`+GsDxF<=JR|HcH$ZihDuzOBnal7K&}F6
n`ES1dAN6BItPBvi|_0y)0258uHOG20qeh;

literal 21289
zcmeIa2|SeV`!K5dN+nT3kuBdSLQxckO7bnC&CV!$VWuoIW3Ob-QbH1vqOwfLOk-yF
z%GkFg>+r}RyJ_tEoJVHH^q%uO=l{N+_dVx)&gV>z`84aNtl=<4^;?
zV>leZ3j;Q-HLQIc)YM|s930dfz;BFNOpIC#_)XSd`@r<|qx50mm8Bn5
zM+`XY?@_>RYh7b7F&OY7$B;2GWbm7w1=G)pf@M|pXZ6zy3JNd|92f^RjDrIvMhz1K
ze*b2%(2Qmh{z)^ocxArXfp@WZ;>2!ej
z3}|=<07U>$2LJ#i`vIi^pa4LB7OcN2s=o@HnLhZ!b+7>#1c0$n*D+$GV}%$SU#G>UZ$MtqwP>4%1iZbUMZXM4tZr6^JvPjG==V_Gi)itLXjx^kE!*xQRYI
z1U>{(h)!<;2}7rYn1LP{qyj|YZ4-+5Uv+$$uuNy*A8+p6PEs8zf25l>M
zJx0F2zX}4AtTagk*|_x#0fZ(HwTVM*D{V7}$4&|-$Iw0!H^NJJmEdZS>S2&8cK?re%&Z@Qwd<4^bBu&5IG;9XZC`{;tQsOh`CiQ~5&QMUeF
zy+7&(RZ!bG?!y-)f#kmTl7mLL#7Ln!h=8WMu2-veU;+mRD$|kD{ZiyW=mp+cBTdf*
zIqMa~f~~W4{&9iHpVNI&V;TjT=J?SE!yN9taVBEC^2G?%se>G^Ji#HevxK*!dg`37
zCmBOdYOmns7`p#SLGV~O^qbZj4+~5*EL`<3E(`7}H$bRKntMA0*1Elzch?EET^|<{
zZbTqYEK=V8Xl|1tPb3xp`e(5pf)2q8ditJ*aB+-(OW-~{TS0H{5i^RIyE$`R`FqKm
z3k0sIN5gg)r|)TBX@J88VUADwh9n>4H~P3SVIe}bAhTIUm3zxh5z9xLIOLnTXcG(O
zD#(8&fe%+h7YwcbAuKrQs!ZbTZoC4HD*prf1=G(p&B$hJ#Rgfjm(@xkSt2A31lny;?jJ
z)nhB!sO-sLc0kIEs)+Fq^k$WR-r5g&fUpuQs0
zc+U~^ah`6Lg4AkSTEatTnTinLx!)CzHF{&Qc_;Y`Y&6y9Fs2hbT;59Y&`hYJw(;*U^C*Yihm_=n$pX-N+O4nqzTxqbtlnm5B=01LPa
z`{qM4_7S2PH@!!t8l2|gm|E_&HdvKi7>}0LnxFc@-$O5`?&qQprs}U&)WXKUq+VWK
zH0-m!Ln6-y^1_$`D
zfr&j9r;p1~X6bWH%h|!4+0xfxwSW$R`#vhHry(Y};v^`D14)eCw^=Ipj#)DAR
zobUuQ9+GVJxTDJeDf<8~#i|P*irqgRu9}pe)X=x$ecN^yh`3{JUHPrZeZ?q80Dnc8
z;@Y5-Ybj-HlKT~GbuuLAP3zciquhJ4x3$mp5}rczwDGkr*3ce4yBidy63h1yWx`FJ
z`_SUm#(dOz$HAvuT@PL#cMY2xY5HvKlk-`k$NlwYoV96b*0x#oH%X`txrZ($}5WC(>M!%+9yKa322$>y0oS9vz*w*-6F>MQP2
z?;fIjY{C19qJ(I7{sNa#88g+ztwWnoGD6&<<+?OTUP
zGlnV%uIrz8eAPbqC~&g5rnY=tJwe?p_T09uZ?H{^ONeGDqyELY+#qA9%bC`~5`Qx9B
zC+rm{IiO0GJAgl#xI9!QF+bn+#v{6*u|dCKbu9MBbR|^{_FiG28yriKF;++W$1)N0
zeGw}qqN#eq5#Rb+cfYclB=y|
zr4H0)pl-3ZRU9x+mi_$F=e7{-(pbw^b6hGe6uV|LT*izwWA0A*7NQjQh6sm$&>_^Y
z<^_4EAyr3R)br6)ea_2M&R_oM7qtA$d|=0kOufO@qRELL>_aM0Rsei?ODP}qmD@T&
zI!v)B&Ws@y8>gJEMoW?fXw-~VT2EJu*5U)52mBeN&Ci=D5MDm4dW-!j%!z31=L1oh
z#jro-cj=CEhN=_(=sj%CQ@@uS$BufCEmk_Vpv0-YP=^o*8pkzq1lht+pDw_9k=wH*?17z!!)cGc@6i-y>a9+hB-#(m<}%F
zvo{2_Czd{Ha7((yG|bKt2*h4&R#$L4(<1Lu$4pL}ap59vGM`Z&Y9I09p2TspdVwuL
zgsc)v9>&aoWTnctoHG+P8>5^;oTc7TG|^?)cI4;0h*Q}5E}cB4-yrHTb}qSF&|Rp4
zY5$QQ^SFIXkT`Ru4-gn>)s8Q!ZP~+cHNY-kfEKIVcm{sdW41!#j!rVj{Vq(WgKIy2
zKCBSomhgo&YD``zX!01oM^0W#?XeTZ8mQr}Sr#Zp!g4>lH51fdGU@iMy)}n?%!GsG
zvb+Ut{cQ#+;D7ETmnPrvBq=!0m~D1lNc$)%#@=+@V6Rb6vM|t>=!|x
zdY0{{YwM@pDo~BPn)ERtiti#^Z&4n`KKSHTV$1NktSW*buz<@Tb~DWZ27
zIAd$u^>DDv9l0pZKN@p9-bjjFe+PO5lq+S~mO(`IXT}rAjZUDD7F*FCew2EdYMI2J
z{n(Xz=bN}C(cf6sHfN@(ui8zfuKG=q=jbkzs#A>tR7L54mCTO7_b9z+e7oT>UP@e$
z7(5}bIo1i=gC3#*zDT7+=$Yf>J^^9t!^dLSX9J};J*yL_wjFGEBMF=(F=_qSGm5sV
z?QayMN06sp4f_-0B8QVM`qGX8#-ZZ?Ui06m$!dQHskEYSC$r(~M_@n0#fHtxFZYV;{|Y
zM6-O+9rpN%@vI2*iL2R_4Y0?N#SJ6ZHN>#{;R-qaq{)LnClDX5|(
zg(0>+Xge3%7K{k~=p_p?6Q*z5F1cprmGaiLaYmgdfRS+BF>Jegw7X_KHbaVJkMJu8kS`kXc<(+ZdNxiKe{KpYxX
z5XUPOnVT^+40fg6h#0Xan7IP3M-XodZr4^~F3~N#IG9U^urW!h_~_w+pDvCI;bVZ|
zDudByho2m#Lm*swvxO
zi~!x;nBNvh*mk#Kp73wOX=3ZL1g^O@bIldR<-WGL?vc|~wD59bLiyI#A_;;q&6e4Yc{D%o{|2g!4VD(0QZK1y^RkX$F6jU@rAHBYmfEKBuQ!mpI9_&GI~tmwFA
zze8UA60rIor=c-&5WoX^bo
z3*7s+?Qp3T==kTOe*!e6!HU?h3W?CHm?h9o%m&TvX{u(_?1^
zDOr*TjW;0Cb)pV;oF$6wf@t^0s{K6%($w-2kC6@jI2wU$Gvg_pQ<9Vd2{-tgaM--J
zUIeNUk+MVu8$+HjW(Ad@is-{CAHp7_aTXUFk~tPxx8zbwmSmdXq6UutoMq~V@_dw3
zS;~sez=&OJ>as1L@9M?!kr0Ke|Fweno~@@jqg
z!P`#HRHcbqbfkeUg4VoQ+jW#Jt24+Pi9Wdl6dq0b0?uivgu5u^D_`KAt?L36agSCs
z-1Yegiv|*acM)|Y;}t{wsPwm9*RAZ+g}%_#Jl-(>4H@{OB5#uyd1=PqR=T$p
zE_*YT9d@@&Wlv~8L)77}Q}G)2`r6Zad|WhEXA&HGLQ$EQe-0l+h%o_^?icOM(ya|7
zm>Hf@$Hp&u?V!}Z|21(xYy9eZ3@wRqu|p<(3I?vTvu24%y|0u4Ml
z+&2YDb01RlEsj?X6Y!JM6P7B-XA+g~*Ryh*5L+3$(d~90!vm
zfmas@lX-nPSt-lHcdWiC6syMm5;R5
zOPASiCrK7ER(b8+OxAU+D$G2G*4z`J!VkYa(O%fIFPiG-ff!dJjZRLy`Y;Y>#=`0%
zuuB`=z(^ND46n{y_IwGT!4|n8DI~Jj*aVY4VCYOex?7ZG9Ct<_u}65$!!
z5w|xGk^p{2P(BIcHJGz(N81wsSjHxr!bf4Vq&zt$v?70*h>7bjd_kJmpEv{<*qShj
zr25$(^$2BxqUN_+9Y=67hYqZ7a-z1SG|tbyH&(6>#ZI*gFk$OHt=TD)aN3ua`@<@z
zQo(2;!*?zwhHex&Qe+rc~WP}t#+2jpkw!*Ys*FJ!_<0{+aOM)bydc|LEu8;F
zz&VSA;b53W_`>3Lg;!2>BS6cI914T$Ly^_(Mmcyp7j70kl~5qRk~cFcm%r15AdfP+
zTKIw)-c>TCVUB%$_0GJ7A)r#4elWVzCk#C;UZ{_U4^Ga@VbPZ~8vFK>{}E1#t13o-
zi4#9{;`FZ{TaY`RBY#lFH8ySp){dsDLmvm=-F&~#7V&5cz~um=>p2q)XiF=GqQ>qN
z&bIv&eTTBx?{wvQ&Lrd3+m>ntbWiD_GW^#sZ@<)%Fx!}D--ZCKLW80yD49?bGlqzg
zDa4i1Xqi~?)#)A+P25SZsRVZsi|O2_CA-HNNFk%5qxyLLO|8_!(`c;^sL29%
z7%f)}-3LGK!x*VnrVUn-dT~0(P&U;g3>)Mt8X(olpwxxt>e*sG`s~O`MMkWvzO>fj
zv2B`~s)+>Ux&EMP0?OhU>`~OljLqC_v(z5Nd&B1Fa*^5F`~|>r#DW6#ZMB7vLpj+2
zu6hns_OlFpB^A+`COfeKysw}Ua|P~Zx^vOej*b_+;3-;5yD6gQ8GI6&Y$CSJhrpHM
zGDk8$k1qE)(l#!hlCn|c|QGZe|kjJgjOqB5Jyi;?~p2o|x}!2LAL>FA?6Y!l{B
zn-he>DSr6*I>*7+j^Py7o}vfwOz54>2enR>KXty>w{w8Yzx-=;;WrIn
zZn8cUY0BupqsVRMKG3N^alOYj2g$;1e85wW;+fmR_e}AIHsQ|i6>R&2a+E$ndTt)A
zIz|RvmhKU|fx;?2bm#9iI4KX@^nns|Wr5F|R|Ki`Q;GVqyWoc@b2|(ZAY_c^7I`Ko
zv|&(4|G`o&aZ_vc7;Efop^$mQ7`S1*3Ot|Qwby{Q;}wgcItAh9M+ciPOio*u<2C
zss?wYpG=A+VlKkfQPa=-NFvgY%JnbbS;ErVoyBgTdwRlGKHB#(PQvAj=(YAwo0-KJtF1{yO_{$_2BJ+KDbq
zes4|?twd~Pl7rMB$NLBZY$<73Rk9a;xqs_hW-UND`H82aEq)8jVg*sgKj1~CUz=}X
zGTzmLK(&SyX=GlcDP`S-QFRzBd}gw$8!?5FBSfIMVj0cbay6izJKk1vAJ*_Psos!a
zWmT_|vS+BQqN46U+Dm^reL_eSwf)*MnqC-UvBoJ7ANG#wmFX?0GP+pU0bku(OHH(D~0v=CZ);E<(6ouAT9V%P(#_6yzP*Uz+I8kePf~)9)3Z<#r?p<5mxgq6r
zZna&;19=rSZ{w^afFXr4WXV2#=TrMGwpUy!8~d0W6=>v@o#%GjUMN%*3JTO9Ec$};
zX!_?l^1;xypd2vY@~uVzEK8v3ZrQ0WLJM-1{z+@lxBGhUqipm^V}+ct&9sVTcp4lD
z1xn~?7?b|-x2QpxnBh~Vag`g{Nd=d3#*e^Ay!Er%^Ms8Sv^Z=@srMj65MN(3UboB$)jOfuQ>an+R62|JL9Vn55GYAb)FPTeyQ2}RMR`kDYoD24
zLQs_JrP@Bw#bpu}yxD%BUb)|lXGV2zD~qOIKB15)#}5M&wxbNdf^O4-NBqVY0t$*}
z$&H2!v-i=K+63r2#$ZOK1sO>2MJV4fB!dyqM_2a1+w$wKset~xye>1~voi@vb*(BnAmu6BRl(7kEj
z?;R`CiQfs}m`~R{VO0iSY93@(%^VDoV5oIf6u?YcCH(
zh$?3tW?YF|&EhRAj@_UZnB~hvYtl){>6gKZ5TQp~)iv;d3A#M#<&nooA2_*IMFJ{>
zvH8uDrp5%t9<%8?@3N(axm9MukhUi}mm1qjekCUdoWA3yx*N^SSgE5jU|G$Rt8-fO
z7HIhQY1Et%v0nKkrCTgg%%JVCj~9e4{*NBpzy^e2m;6`9DttcvdN`D#mMIJTOcbWU
z&M&1X?82R13V3XEmL)NH&rq2*`kBga3Thr+E*0s>4jFq3ik(~R+zmoPTZk9e4iY(V
zonFR!sScVINvk4$Qc0Cb#W&TxURP4&yZebVMomkSK(~VBbvLF4uz8ynY(f=}yl^q#
z`0_wR=0myYOrdL!6x)~V+LL@$AXY&rk%MmE$1v9d<5}894~jzssM+>TIQEIT9tHvs
zpFgXVdE^A2{|rLZ?x*!s1c@JC+0YYtV+T(+cJI%D%%1ZeCV6<~3*`$zy)<6jjn6S|
zwWUeReBVP8L@zsqXoj{C_o7W*wlLV^*0Ms`?u0hoxtHPPJ_D=EZ*E$Er7k>#to{v!
zsUNH}i$;rv77b0zbO~i@QO4CU+ZjuDh9Fr|k`nn3cH9a~f6XyW@9tDhtk$QAlrjJP
z^4~<(JoCSpq6RfvJP1l|(#>@d;U>vN1khB5f61QSP>E=9!F{)?z_J}_DS|n>e*Srifbq5RspD+L9JYw3>UYMxKEtYd`{%#vl@{{%X~X-I
z6rxJTd^I!lX&Yr0UHsy7zoAwz)Yszk0T;{iP@q
z5Vt(58!Nu-b$f|EfU-CWU}iUQbZ(+mNa54_jdeWtl3p0@s}1%{cXu&rl=;-!M|?Kt
zsHJXlz`6Z{@XhDvqOn>`>pbs&4{upyto4j<#+R4aRC=ZC#z)mgp>m&FldUrJmBB&j
z*piixzec*Sp&Om95RfHT7V7pUpwbOsTomG!y;SnTPcqdIDE5FkTr0B+7O=5rnYZo*
zM4+ee9Y^^$xpAp2cO|vn3gT3H4rtEz;yQ-yLa_-^ObAyyZj?II;z
zR$f{jj3pR8M)~aj?Pvtq(!yJ{wCchmEkaiwc@yCd^1)fU>BDwyViBrF;8KF#HmV_DZnY`bxff*ot?&m^X#>EiTB#274rWgD@%?g=)m;sa1
zSpxU+lexu+8XcpV$quucTM=O!ty~Dk9V7Z}t-}0!=y#7T
z`Fv?mPHzH)RCT#xv9QNcmc;>|W}VOeS{hA<;Jae{qP%Dm%MF3Nnjec15+$&4XS{qu
z!C_Ibrmp&Gu#v4vDbs$3BEQ}LCZZBs++TW`(D){~*6-|zcjhbL_%zgmNv;gaiuv-3
zKoQz3TmjR^Q-QLmj7AChqc?ms(NNXtVIf0KMH!Q@AbN*bj*eeTg4DfW2cA@Js9EX)
z#9rBZIBrSzIxTAAbm5fCP*+HxTqSof?0n#`T~2c(%4B#fmk+PRAm-2+LQIGdT
zAF;<`At{k6m*p*%A(H+VT_!9EO*r)Yy%T5fKf;cIO!?Wg1AmF7kgFn83mq@7HZB^{
zf2dNU4eWvpC;Vw$_e@nX6_{Ap81*p&-{~8(>aYg(5wv8){xs5pc^?*+Y$6
z%2eJ)q4f|;1jxDbK6MDS=O2$q0Xl-!X7ONPdC8Ecqg{pJd<20dO_b`a`MIG3ot;+J
zK9a-ROMD&2@ID6h%VJk00jW)t8&^fjbE=~EEnF#OkLdZ6Kp$ga%LXlB|Yz9$>%lYJ+0^!%<
zIy9IrgzVz_=%2juo>*i?!!ChH)adO}HWGP&b+uwtxzS;de7kp&FCL4GobbI{8F5xg
z20QOl<8Y!4dm`H83PC;K*D^NYa3c?^I1!Pj*5TlP*4%rOPQGw`K~p>!K_d1Xp{E=R
z7ARU
zuJ2d*Tlyqeu|fPDV$BU#zvA+#z`+!(@U-m??jBb+usZ#+@txCl(2}oLKaLlonwwpx
z+V&{wMxtUzW3YWEk%ALC)L;UN{QUbXmXDwV#%NaV`ijBQ4~euMed?~!>b>V%p9TH<
z*NUT1d6s|dEf4${=y$PD7ljVy$2{rVLLwh$av>Jgcc{5-!apyW*F9`*(%T!@MMH!#
z{BUmt!1x}|NtdYjq$7DEqG8A;WX=KdE|!Wat#GnFkt~@)&VU(ftN&q39fUj%Y)6Q}
zT~D3XH6@JiJmJLVXf(@>QbtEEILr6g?E@>lAnOrHcvYNCv2Zu%#3CBwDGcAiS`@IL
zN^Ljw;r^^j40DSDZVEuYE)5m5A%g`RjGZE-d2kloCoYM56K5{7h^a$3TMV=B&Ct$~
zlmjpqgrBkP$-xmcq`+A|8na>}z`5*xI*}}u_VI}tksTbWg
z7u-XWjbQjoA0W73R2*|!&>HzzhX(k}`0F=Un}e~(4NIU(yz5F|UD=b6doco88V#4k
z=riQ%0ZJPRHAL@&`g|T|r^jw}v-UJ!9cKodaC!YUxH(UV}xlv%4ANyH<5U{mRByxGy6#r~Vw*7ro@T*O6P6XC;ZY|vXGyDkvQi@asKoM-rCA)-#+%UEXM|Dfcqra;&LxRO*Ab|o+kb;=
z3-Dm`2Klxo1>Nh`uR!5REcQ^t$LsfWA1KuL1{P(`Faj~49d%lrco338S8Zyd%LrYIlG`$+Z|s*?9b7S+lHxoL
zMxfYS@-F*R0@MLdPAn2`R-|vs$%+-}KT8T%U1<_yBX?mqGLdL@#2BooVg!eh`_QLaov`0PxZu&Q0ovq!NQ^XP~-t8_c2wFMarZ9{OOHo^r
zL_EE8(^p2Fxh8f7h`F3*XYnd3I{I4YZ0>VZ0y#;*Mu!DxMP0m2_hfgopoZQc5G9RD>!jT=xW}3#^
zHgMNMX%47T#dB6>u}gl{$0#i#OmEH2i%3PjIz#YghL;Yhkc%I!NgGpO!&>nKHp=Qv
z`-35%ELFz#!Q%BCcJ=H=cO8VvVlkiE#thwFl+wpstrpg)JJ|+Z*t{bn)-#M5r-5H3
z_=w%g9sEY(I;Tgjde(XyjXtc5Zl>+i38S48J5y)
ziuR_vM@W|hyp|$Rv?+*P2hLA-fM+uvjExkcXBVE{N>k5eSLH2Ti;hnVzKO{T%dtR5
z3(^eu&>In?Jrpa~Xu-z<uh#wp5e;gh^k<
zIa!4yNBuKaCLfNC>^A!w!;D4zHzzgpd?>EAaKZ3#mJCA8%=zIW>IJ4QTr34#bFKT2
z+MB6Vy8Y)B8D;Wr>aq3c(iuYj4HfF(U~E&Ms+KIg#6zLOA43qO?UG`!pq!r36yUFw
zBr$9J9uA&ea9K(!ISSJyl!Y=(V9m7_FuznCt-14Iw02|h^)7$O6SRPxOJ!68X}Azp
z3b@7GiQB(-0zQ@{O*_F;6g|EALNW)zyARm!Ha6IccISL^f(?!O2lG`E2li>&Bm9HoBi9$1OBApDng-*$UPdaVaHMbv-=fDXxLs(WF97>Yc_
zP79Uw@5Ef_9>5o(X}JOWc|!od&f4g^g|8nTN#@JB3He*&x$`W8vWA!ey+B~#ICa&8hYIHB|y#kGf_
z2H6h=!L?x!PY(_M{r>XMsm{(~^ur9M(B1K>8FZY3DghRs?7vw5<6^rpX~(C~6>j
z)BV-^sH7`=)H>h1h_E{a$A945UF7Cac+;fIdWvV6=@snuLI@C{OO@wQusqN>9m?iS
zsH7PX94nM#_y6=Jv8ip5tB|Z-q$5#XYirk2l+g0Cpe9y|U^7kSU{Z-s#<5_Z(f;}3
zPd-Uj`p31pvqfnN^O6x82?;R6Pg;(1rWujomjj}MlDJR(KDfhhHKop_1F8kaWr-B8
zPmDlJ5(FE(;k04*x9!M^wSoxG`V@FdXuoclSPQ^(=(QOOz*V&g8(U=wAlTAJc6vnW
zUVw@qwfx>iF!nOvYilU3o^UYDz2OEN%?ii1B;VdkKE&E|{IT}-UNpq%ZyS4VPD-5p
zZ5qPsjy{{e$?oX<$p`tbQ5HZ_w=I6duZV9UktZ8YgpLdT|E#m2>;7k+>(ub`zGy>J
zSaRSPIte=C-Wx9Fe_p8n;d7{^4G+vXIQX8gy%*qr<(bslaO6W2mk`tP*wJtZ$%9feP`I9d3{O~p@9yT=!HH!xmteJm0
zJ^y*eP?MYRuDtGz(Q79u0_}-bHu%a7@0!gd{~>Vyi_ZEUl>#Qv`;6JrJvI4{PU9vLUna0_duSQ?`B^DYZY8728JUKOb^FssI&_{UaomfAlC+yZ}|m
z?(6+WO6!H2*jZcVS#g;^X1ZVbFHt&(^8IA5*QG4)kIj1jp$`B1;r)-0{FkN>bcJd;
z_a9~pve}z`^jbN(i+uZ{E!s30P&h;R;58h
z&w~f13;uU^glPT<*knM!H5BMS9$-n45Dog`G9agUfv_ctMZzppqyG)mkaH+|9D^KV
zVJIpZE$;OmalL$MHygr9U@`S6ie67n#|@hAWwYOPY&b^A;0fW5?n~#B@NI2&N*fVb
zKDe?$6fbeFrTTHr=?gO%;e)n6NlSD>Qu~Z<$x8w1-;O~mmV4N|X1G+YSmaW^YE<`9
zPK~}mqfA{G(rvcHcaQHXcrwc16YT_1x`^~}&@(#J<@hpR=WRJ10*)_a*_DawgGZ^$#Oa91KrKU+
zmkQx?CpdQQUn>hYE!b|mK9r%1p32w0LZ(i0Jr|+PQ%D);@BGS)YUqQ9B$%~&P?}zlVnp2P0tWkTcw-Xq+8`RQLfFB!t?3CNz$DfM!k8cg-pdC^VipC;=4T$}+bd=={)Xj*GaDS_;m&6B*~6W$rwnu$eM0g85G!oxrzL
z{0m0G{;yw&Gp$cx7AcH_94~PFYP~qU0_6)Y8m`E@SC>#cYELzHEbej(DqD4fC+~AS
zKd@`Omgn`;VoPt0A0=IJ!-=To^gPtDcoicJ^z-mL{;CVkg!LUH*9_L|D(wB22LU)`
zifDU+$UQg9J=FVjHxuxkGmz7o)7S2fljgsQw1AvyQs;Y8sB&&KLZWl8_$#4Wu6%@S
zG2vQ}Hr?$yDB^Ui+DApzW%1hTd$>27=mWV1B_y92r_Py+-oEaP?zb|Bm>W({xO$tW
zku@~$OIiT#NH6k0n?|;x>bBMSynAMZEvvPz5B$UCE-%(6CyG5=6FE7D;uj*7-vYwR
z1LCj-J4X)Z%uikt*tJqypBk#}w`Iw#EWaXpHRLIZYdL|ud1Vi^`c0Y1vZLv3P~(N)
zyTKnZw^rmJgpl(0laTpawnpB_sjpU_eq8yJqUtI4o{|^uJ^u~B$$yoj{UqMc(k)1P
z^=*yVeea}~2F<(`eu{|A=6ZgpkvDegudOfgFI#luzho@>%Niyk0fnFXaB)>lF_`Y{
z^ShoQa9;Pe5w3iPt1oUrV(?>e*Iy*^%VO~52#9N-^b%}FvT)CrPdX&0-+CGRUKVSb
z7O6OAgD?*;wT7KbMup5Kkhl5?pa;aL<>_DR+KD@Ayshk@qBbTX}4%W(>oLW}I9(%10(kH{R
z7Gw#FSJsq5{{eGf`vH;Wp1wYmzvUGffq{701FH!ZggZ7jtzn=AVJw}h#!hMy?lu0?
zdx}^2jT`P6rX4NmO^?%^qj}OhKe*`$>{_jrw@f_s865p60J00_ObJN@RAslGDM(-I
zy5avS1$U?5?dIkzpz+P92~Yn>Mz|vOM(@8RU9U7=se_zGvGKoG^>v+7d2%5F{_4>r
zT}Q+xL6v%qD~&FNLhe-QkYB&|%puoY2NEo@@3vdRjwvHuKtPYl0Foe!UhV;3KXnWR
zisFCm%~SuS2ip|X8*`#BSkM0)`x)6Jnn_Y})bvfuez9V8g8yHw&^85;^ce8HQ2y>*
z6u$)%1NoOm1tl{_`8R*%3~f6K7FN-<<6?^V;PH9?7~u7>Q<
zw=XW*11FAFkBQRy3h~xQ{px1Q(gSHOfkaQVT)^e!-rKXK)4dlE6)uCQJyvngsPOsM
zQs^!%;qk-O)COJQQ50+H!e>)brlHffuFxfiBlima=
zkKR5rQ{GoS`yJLX+UhUwKkrr^(s=5)IDtqIbImf44WBFZ@Gcum8Ke?q-tB>VHGYB6
z9p@4Np0E2soP3nJTT7@|wKM(28(OR?Xk6!Usc&t?)1FPUW7-F`
zE>M#eo{tRM4X4|^NmF=#7?3hU+-@uwJK-&DhiH5a(c1G@^QK+*C%~n+s1u)BAiH#@
z!W(xcJz+cv#yb>#6
zkqbB^WNJ3s!U`xDPH8OWJ#zrW2rLxyn^};VI1slQl=AX(=hWBHrYYJLm_h0Frmp+b
zZB;Iuav3G@ni&%{g^};KJIC&z$j=6H`)I2BW$#tOIyOUe313fxD}h5<7Z>#7>P*nS
zhaiLWHx`7B0lTCyl;cuXdGvdJDq{KxxkKWfJ1u_BR~7u)NqeZvhc??GlXW3|g?F`e
zbYRMQH(GOd()d63&ZpJoLV$0T-^0MNp1UTKw?anVc+narPD7wqwop#$$>w_)7#~xo
zNgR5y4N>{NQ<;8
zy~&<`uLIp)OvG7AoKGR?o|>w}?hc3Ir}c;v5X7wQ2ni1<>Kizbrf}PU;0_*R;Onch
ztg1_qg#Ox2Ia!;HQq{91Bn9EjtH(O0?FV$eyq4@BS$j^Q^u({r0HYx#zqH)hhjTyIh_^OkzFgZkPVNgx
zEep54ff<*IGn7nU&Y-6}+J2&@ip4I7oZ!Uh>dfPhDRO|y4kEeBzvbc-C7C?+&75aS
z5--G~VmZAa12;XP3{n{hx1Ts=P=#W|ebP`kTpjvZ#LB
z9=%qM+8*Q8=gX~Hz0R}AFT$~RpXN%xw^8dDOGz-6$=Y^gd_RRVS^{bs^z_)KSNlVS
zj5pCXAKgR=G6MY;z5A$J0(^@9?g8&}lDI$q#k&1J_*%dJM!8PWx0qEo_m##-JXw3?
PSee a
     
 
     
    Examples
    
-    
    library(auditor)
-library(mlbench)
+    
    library(mlbench)
 data("PimaIndiansDiabetes")
-
-model.glm <- glm(diabetes~., family=binomial,   data=PimaIndiansDiabetes)
-au.glm <- audit(model.glm, label="class glm")
-plotROC(au.glm)
    
-model.glm.press <- glm(diabetes~pressure, family=binomial,      data=PimaIndiansDiabetes)
-au.glm.press <- audit(model.glm.press)
-plotROC(au.glm, au.glm.press)
    
+Pima <- PimaIndiansDiabetes
+Pima$diabetes <- ifelse(Pima$diabetes == "pos", 1, 0)
+glm_model <- glm(diabetes~., family=binomial,   data=Pima)
+glm_au <- audit(glm_model, data = Pima, y = Pima$diabetes)
+plotROC(glm_au)

    Details

    -

    For RROC curves we use a shift, which is an equvalent to the threshold for ROC curves. +

    For RROC curves we use a shift, which is an equivalent to the threshold for ROC curves. For each observation we calculate new prediction: \(\hat{y}'=\hat{y}+s\) where s is the shift. Therefore, there are different error values for each shift: \(e_i = \hat{y_i}' - y_i\)

    -

    Over-estimation is caluclates as: \(OVER= \sum(e_i|e_i>0)\).

    +

    Over-estimation is calculated as: \(OVER= \sum(e_i|e_i>0)\).

    Under-estimation is calculated as: \(UNDER = \sum(e_i|e_i<0)\).

    The shift equals 0 is represented by a dot.

    The Area Over the RROC Curve (AOC) equals to the variance of the errors multiplied by \(frac{n^2}{2}\).

    @@ -142,16 +142,14 @@

    See a

    Examples

    - 
    library(auditor)
+    
    library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+plotRROC(lm_au)
    
 library(randomForest)
-library(car)
-model_lm <- lm(prestige ~ education + women + income, data = Prestige)
-audit_lm <- audit(model_lm)
-
-plotRROC(audit_lm)
    
-model_rf <- randomForest(prestige ~ education + women + income, data = Prestige)
-audit_rf <- audit(model_rf)
-plotRROC(audit_lm, audit_rf)
    
+rf_model <- randomForest(prestige~education + women + income, data = Prestige)
+rf_au <- audit(rf_model, data = Prestige, y = Prestige$prestige)
+plotRROC(lm_au, rf_au)
    
 
    
   
    
   
   
 
diff --git a/docs/reference/plotResidualDensity-1.png b/docs/reference/plotResidualDensity-1.png
new file mode 100644
index 0000000000000000000000000000000000000000..58f00c0627508503dd95efeac9b39e9235c8aee4
GIT binary patch
literal 19983
zcmeHvc|4R|*zol96xk_MNQv=SqEuvW*I0WjNkaBynW8fGmO-V+3|YqVR8yW(h$6X>
zkv&vGnvBMp#Eg9z%y;fFBlCUl`~JS)?|uLH{`lsZ=9xM7x%TT^=bYF
z!@uB{hmOu&9S;v35Aa#2bN8;!UGPaZgI|7TX0c{|;GJz2TkF9>;h}>703IF)7y^FX
z1^;>61)qf;cgY@wg&u|AlL;XG;8(0)Y_?x)tzUL;sIFElK<5YEpe;K#yEZnvH?|hM
znRj&%cL5U~;0>dLS%Cjnc()L|$#==%&CK>Q%l7ljj`ho~?al6G78Dc|dLRltbP7E@
z3h(L^-UXkm?uFn*E+m6DvyjQGjWw%{^{cG~K+IYulYCc)eAk0q2;O(epdZ{3yqKUb
znaQM3D81Q!y|uBuwSWS%zZ@ER`e-IPVm3K`?(sj2H-!srEzCj>fD|BNk_(vtvNxOA
zTg&VP-C=5g0+R{8Gbg>2ih(Z_1
zo+%m|ueR^(NeJ4LQSI$vI(+8nNT+YeXwwAd*`qrf^@fu4{?RlGIpF(c>e`>jVu*7C
zin8%>gv=Z72|==>H){jJ^Q`R>ZK7|`^o5QbJ!+=53h|FJzHAKw(IiOXM;zbu-~C7l
zCo!s8>m)2f83VFahSNhyNZW8xgNp$gvrU5*UH5|e$%b)SH>Xx3zEp36c4yqSu=z-D
zdOcQoHgUD#_vI>+t}$}(_a~@w=5)VcS4+fR74LC2)j)E$fMqT
zZrYkuWFkZ}?*AB#ZfcNPXpChXKp^-9NV-FvjjlpLi9S?^@C3zVtRzAwkC*n~^1A30
z?aGq#DDC-?MYyLPiSZ-LfLaQr58O?n|FNGZoVqa9IBPhSxzIU>cPg8mm`^S6j3}8u
zzy76>Y$$pvu{rFe5beYjG+M~sFgc>KZhh{e*TA5IMnUcmT*|_g_Iq*qqd(`Ao`+}K
z{>qt`o4Fc;Mj$+6jWAkSo41q}loft|n9hT=P@5|f>PS-0{aUCFW#^`bb$VB{=(_ha
z)#=tH?;%2V&523$G#ML6J~vg2o;SEaUiJ3-3tpPurH0r>W}(Zba)Nz((2fVMln45i
z^U(8z5qgub({+ScTyj%?1&4V$j+{4DRE03P!m(u
zXsB>2zNxY--hv@V%zVlxUbv
z-XZo)ltPzkVr&+r^c!WrmxCHI^K?YN4Hiva_sh-L!$7f6&<#pdyG~T6w%_;5O@$t>
z``Xx;l+!HYjiH&h{hh8)drg1(em>4dn~>QBL$(=y*Yw^|^njBM%+~
z4mi<=ne$nV0Z9k=7hB7iPoo;gQ+vMD0@%yLTJGpc{+zOz!8x;cfaDcQ^Qb{^phj_i
znT9u`^;y68^T|V9b0v-OL#nO^4AHWDw1*LM
zWM9ritkuq6du4akRw(9BgM0T>=SAw@0r!2r#ds59gd~zi9k+~je;sao^IOq>Y+bPB0$u#YafN&V?tZvP093VP}s7N`;L
zwGLh6G;`h0JZE0AX%FJ9STxi~m%6dYNY6r;gy&M*>2kC&`=ra@7k;ON)^%
z;|mW+CB?G2^)IDIFV969o;|S;F)0R&dFJX7jFzHQzhKx{QKN2X=Be<$-nuFpX`bGf
zmo~1RULG=C*=Qd%klUg^>vTdraIX;*VGLPY1f3*
z(q2s_1w3AbxQD?82INye&V7BRNGK{;sC*OC(8VkX8&B!0%zf@uI2U{=tG2!D^_!L|
z6{cU1&eR!9=C}E4f$?4;7oNA!MlM$cEI9HbHm*WaJKy9}E33j9%3sxW*_NOBc5Bq$
z(8(!1PkA7^i(t4|@;nf!H`lYfK`JSiME+JEy4dTkJRLoqLSt&qe2X<5vJp%Vk4P&I
z=y5_Xt_~{MiBSEa2o3NQ?dQ3&7h5Fs?GG75n+Qdje%TrEWk1GyC$q}u^gDipAhu{<
zV@x3QaxLp?gVZFwe;wlF0Zhzp!)E$BVMZYWA~oF}>sx^-tA)rJ?Xm&~gvhqZmNYa7Hzy~DG<;wYA`tck?hZi7b8$bGpX;#gG;
zTCiGMO#hS;C1rm}7IBQESHm;`YN_?4Y!M1(r|5r^7%H{B2JK*)m0R9E`Jr;CWldL@
zVd!S6SylBr4nL@rcH}d%gW#4o5eG00XIx!4^oj3>o)7ZV91LFX3ZvquqDRb}e8RSH
z!zQ;gBx4SBM7QTI(v_c($~Ezh9%Jc|>R{^yEwO
zviR%9gT3eQRhjml8?Hrfag3mrGch^~)3jlOc=}_P-@K$5X_7cg~(Y5D>7ErI0
zXe_MdSWMzIBS>Y$*9ol|%|+3gm)3vd^;NF64bW5PBgd)Q*d+{0MpGEnp=ez*4BQeN
z`tUg^fENv{%(1+2MPN?nskMPJ-}iFEI6HbC2@4-^6s$Njt=^x6*Pj_3@%F}QZGt&t
z<8^nG_36CzYq6^Pbs*z@gKlGE-Q}(~N4eCC>z}N!FUTn?+n3=>Dp~mO>w0;LdG5jw
zd}o#@m#>DeKEm=yGIasEFT0*#*8SUqYu(0X9e<{L@ez~dxSi=?1Lpj3%urvu8~*g>
z6pm|d%{M)F8spvDeg?m1*Lav->Rs(Tg)*e@QKK5G?8y<7tc;uWt9~n&FI%57&={?6ayQsF!Lo
zs%zN82RkPx(_t!%&f$W88go%$w*@AExDx)j9Z@&Am_*2MB!u;F6mZZcKCJk?B<1tO
zO8UyTe#N;r(H}qJg16}1uRI>5rNBl1oLuz56kRAQi>oWD_dIeudYT*S&l`si=O4yc
zm~d(3)-hAL2JCbK7X#;R9A1-ejfu11>U!n9t^h
zsOjXfm16P5yi0m<9uxN$7uILBqRy%^lo>9pw{A(}tH!8zc5rni*8XktOoUR)jrEqa
zWYuQs9WDl_?@3ZtT#D9?-yU;P2@>sl)uCm;356ThYir(kMGD!+rBh2eqk%j}jBp~C
zPLK7@Y(61CyUInp{zjTeWh%APiHnwKyw$0bd!dj9?*eovCqDnR&EJx5C@Rn?Xr-&J
zIc%=t+(#c#S}7>ir;_Zzg)uySz3xeUD4mOYH%aZi*C#8Kq@;6^&c8{l&TXbgaY-mbS#v}arLjD9^@^d)Wmn93
zweq-(vhd21^p*JkpgP2d;N9MGrZ}vg+@?3}A((a!>OloacD2vUp4E6%EDd+Kiy(S=
z8?;S&6a;Ti%JbVh!*IRorK)@$BPXH(oR^JU_~t$-9n(k{Di(%?M4$9`|14
zw4>xbM|g8JVwF%=*oz6?T>6v6>gkM)H3{QhmxFKz`zE_q_J2RW6Q13HhAj5
z{}~SzZ-?qPK9*lck~#=a0@@Dp0VB^y-j)e6*d*#Z&9VnD?#WL8J=2bxqNi9VV61mZz9S*-2JsP_BN^-P>Ko8R8U@$)dz4_We?
zI7H2e`$v9}ypL0^TA*~6iLN23u;+;LxMMfJ%|;e6$Am(RH8>(+ZMQ;yu$M(yH#XFz
zJ7YrBY5!!&^DLu?G{Z2|RyO%xJC^cI)X}}x3b%$s-H~{FM75F}5X7UW5X4r^dXkDy
zbWzus5XN|nL(eECpH)LIFd-_momukRIRtJW`v?=bYlU0SCa?{<7FCoxCggAI&#{it
zjf6%R)jkC~jukQSq~Zc0v_+rH_k`ZaWry02S;JmDJ~(1L(4-43Bm`ota2yM61BMW1
zuUBt~D`n`8)2A#c6=o>E-#UQJ#agv)vm}O&e5)iI1x0HrbZ`joi|2#g;_YL3!{6qM
zrB4B;FhhlNoZXms6n6G!N=gW-;5K;KC*pWt1)6NoUD5RJhIJhfYwcbIh2MI-7*!M;
z#Phoe&l|4;6TJJF$ore%2)#{>wxY@ZB+(Kk_>Yp(>Scn?78sSJ!2MR1Q6HnGN9`qB
z28U?FVLukD_%na$-GN7p|8e387%WXm>D|dn27T^gQ(#xu_=g@TD-uCQ3V%qh)nDs2
zy=@2W%wysPS3%m+qL{Z{S-3Mrj4}_4b(PMCwMFsL7GkQd4p$Dfhj+|=Sl}nwBc$-F
z9z^Q7(?3LSH3|%
z+9r-To>sYXr!G9+_z7Wm0=-R@w*N6vx<`Q4Bh@&IH9Hk3`$j8_x*jG2+zRGGS)sCI
zUu%gBrAW#kD&Tv|EmP#)h*NxFw8Y&m6I2HW{lf7N&u3E{V=??^T=Q*-O``p{3hB`k
zdc88$2^-udsJ@2Xr3J4uuF@smR=Z^$OML%)qd8_MF;K+H5;raY%g2K)LcntYYdqIG
zw4V2TO`_7(GuV`1Y}HcT4y}Q~4<5#-B(_Hw^X+bOCA%F1#xd(aJvD9LC=(vQ;8=Gd`pKPK{D`U$06
zM#6?@_VD_8gfHtkhyx`7!B^P3Hk`3+2P;vm-ch5$Np?34vckUeCGM~G)zb+$o&>t@NaN9b1Qpbw@YsXfT}DJQlm
zTjqO(Y=w5|W-0#ebP*Gi)Q&O!$>}6#nRhm18zicmrT)89D8?kIJIhq2H+$mo+U~6oBhWnex5|4+_W95~
zD@#r=>=0AJzc|TDqolW}FB4>qIM!C$=WxBXYHCGP(U~B@ETY4%Sa9`PT1ZunGKTbvmF}i`~%oQwF
z+CPQ-tSn{Nu48wrH@E$x2qh=o74aV^l0SZaR43y=bkXsk(#J#|j`V6ceTS_57;<3j
znq|4D3G{nPxvdEktJond)aR1}iCh+-$BxJ>!P(!buJ{oledtKN_a21>j^$TcP}Vc2
ztxiB6Qm7x=t)RbfnlpdB(3k~@ipGTB5?N`X7SmmKD=aaR-%yuWCq%V5{TNFx+z&Dv
zZjz+zGzgVXlSxwA2JL`T6CK;`YZL=4bqOLAO*r52Yd^+*d6vf#t&v*WdC^m2!KQTz
zRNw0$wSn4y%3b3SMm$C-1$@HUlT}`cb?-Nl2qln&l?K}gg{bGIj=Z_uI~DksJl8Fz
zw;oJy%4@Ci**m_%V>zadM@1>``}QW|I4o~Fp9K308A2`3n6=j5l@E=}ge@(>R^
zb+b}Szb=F4oJktrIU?q$5QgvlYNt7Fyrfv{^v>nSeT^o?lkp1&U>&K7jwy_vBMlD~%!oiX;6
zE$e`ph?h`A7xd^n*mWzYNonnviR%u>z)z80wDO!Y=AzvxuYd2OBPI1gP
zplbHi2D!p~17|IBHM~}ccnE(h5#^ddHB-%Hdrm+&(nbaUC)h=C)Ux}DeTsbbCd$iY
zZF+iI7HcT2K%<5KnuuCqrIZxwTvNX7f@sTS?e5c+IT)zRZj?M>mtwU-c}QgGiGJ&&(iHq}qufN5Cu+kfFOCyAe+qCncY9COf3<8}
zyW|PSl$I5aC4^kC?ccM4ovSwwxSP9vrs}^~2AVNbRSppQ?GZ=O{-L70xyRk`X)kp-
z?)Z@)E&C^X?S!I+&9_xuoSO?t7hagHX&HRQ9A3(!)hDNkaC#|G!!Thw10}RTy^Efs
z(}UwQ8rVZVwtUx{uobLt-y^l%qgeyOk`&@SM+!+2_A_;wAx_?BNVYFdjg3{rWvP#_
zAV|H$E&tKdaqh$OK`Hw<-vbycr8EAggaOZI@o9M`ES}d-Zvn2oz_b$|RH-``c*6k2(jKw&82?_#>TwG`GXK6MmZG9*Xy(ep+4x#MM;`s52P=5GVB|UimQmR;AwXIRCK^=E+c-G#vDDzyu1ET95a{M
z=Mp>|(G`R=f}Xf(YA@`(z1{Kt7vx}wv3c}%$44_yq8bbvir10|#*TRGMmBjRSxQ4l
zOS)}4*y-AtS-QXrU$At2G;bpqY`2bQX9>W;$KQ|
zaLqNn>T{+&@0=D`Pq7|LkuSVL=UbzNLR;ZLQeKRtt4mzYu|77O>m3`FeN5P?4z?n0
zyHRGV;9byuOkx6|SMSRk@s5RA5JOEAv{8Qw!0AU3!l%W+4tZQckH;mqHk}v)9_e|`%yYBcO
zB$W-F^7^KzwXA7vQwl0pge?eI$J}m^H{oUP1HkNh)E%b?;QuN?DO;dGs0ODCoA9W|
zLMs4jW+X}Hs@iG24Kyw4_h2433UZMuUh1Cf@qQo3Cw?+QpC55|8^#ob;4
z5W}a5uKO)}-wO8;>^X<)E)>|9&Y
zSKy0^$q8VaD*n_5XK7`*mXs|GrTxm*%2hMhcGLT%06mdLTmHp?7Lp!a{5e>6YaoBY
zltifihaisz^FJ2zFZ&Y4)8MO&0
za3lUfLngdi1xv_4#Td`KNcSW|s`xoy+%qdn31Eq|o`sHSt*)Oj<%^kPlzeaiB8Ila
zOtKid&QFVu(Nfndfb!04p%~Flcb0{blE#~Jo2xwZTk|H3PgN(i-UCD8fthh`I7!8t
zEI<30xMwv#Iv^%*Hu2>+y^+NDWzrBwcuNuLA|F?VoK7o1{865kp`$DUtNCfqvYQ(h
z=g0c$dY?4(C9WOk>DSMQ&|}Wep9x%~L=6;XT$UE2gqg;cODBtaR@D;u;GF4}RK1=3Ko>MA&3~k(1r%^-h%rOJJhI
zDW6X=u(tocM){kf1ObNOI0D_^)#Ms8-=d7;Kc&%^fk*8^+T1gMhvLq+^zcb)Zp74t
zn>dB`to*xFxo~q;Q~5ui``kKUY{{SP=3s-6K9CqSSw$r}D#Jfd4-J2!?f{(j<)I!u
zvcN>9667x#EAM(nS3_HmzgLNv&LYSdK^Cv{hmT#ZWc={VeJ^y`lUZWcU+DyV@&Nvn
z3d_tJPhbeyb!tUTqv4)I{2mUJL7#hcH763e`0?!_jHEyf@oPQsrB*ZC9);G8))*~k
zUp3FOIm#uc6=wQ>K8V8>q%eAl4f~
zZ?Dpmx;zqNvZ2v%A~P)T!eL#0T6wV2OeuaSWUuOV6M$X>pE{HQdo2(rsoZC*zM$Nf
zqVu9yw_`5d&8bYg{JYPkqI@xG*hF0UV&liIaS;#?!jLxY`XI=laqF{)%7@mW&2%am
zeavE=pW$PYDG^AjnR^_n6Aam<8At^xB22q&c>V8HIxj`f{D+YhMfKSWx
z>!c<*Ewr2gtF*cZbBz7JWvJM69LO-ZclmB3kPnDZ)&}Cgsw@Vuf%4VCpm2b;$I>;E
z37;M50U%^Y;HCE}gn_v#ENgSBlhQkF%33u3=TMjsdkSlkY|lt_YTBu;X1n)Up5~LX
zZ;~J?N1KTm!rQ{ck%qc^<$Yrx3HV8e5B^|T@i%@hJB%~`jc6S=MK($$=DIB^R3@P#
z1X5-vzNMJXY5s^W%W6*C7BxNAkQo*cE_@@G`Lm;|Z!raA>GQoUnOn23f(bv)Obi@{
zRfy)2I_tV$>>YG|qQ#nXfWCjOHC#)QihGVK77ybksZ8XfTpkk*d2@k?%$MC3gNB|`
zU~zEP(obI&QeK
z8_cFK8D$x2I@6#?c0RZYjT!hVZG!jr)?N!}y+ln}pvu9*VrWNY47q2+HTvWHT}nl`
zhn(5t5pn8hbeMx}j
zQ*wfR)eH8tIv9Fk$GA*gAsEGA1;v|N{TANl0e9%wMiXu+4+06F#7C&&y})ah78|iv
zf`*Ktx?T`Yyk-oN@Qu56D-~gTKng2@K)hru4OGw``)H^k`#BbgDLTvqnR5Jb=U)U-I0unr{
z>Uw$_&uxMi>7CSt?;+#(5->w&2dR6#mWKwvOf((E(wo+0z4LH1+Cm}V+siOP{(W7J
zj*FG8b?Xh|7XG9grU)~S>sAOEv9zPX6&_5rs
zy=$B-PU)D&j75~q-RUx%GeqLi9tQmikk`gZn2;K8|2ucb=nWL6`n6^S2tQyDJTdaD
z*bti6m@12vp_b~V%;#xe9j(d6zc24frz1a3cT=iiz>X~&@Im_5LEV^H`Rg~Y8%dqD
zJ)dLgl(YzZ|NGJ5Z_|K?(nR^|BDfyIq)@TS)lr>CoU&ajU_FI)ItTrTAVKNttV^Yb
zUr5wCu9~;g?pGjzB}UZqzh5M`Yh!IY0u3ohr~}<(f?0p^e|!2+nC6{?E!rxCY*_GX
z(FF(gQHSzS?J3;%v%EAfpQ(_pn2=J!t-?+VIw%?7(rwu4pcW0-O6NjsQRht3x0X8lVDMOgEQMjNZG%l0tebpk2RXSpzdo
z0MhZWQXagyFzwaB8SOG4W=K(tm@`9b#>sQxOhe{eJ9BWbF3~ok5|mXhP-mun#uqTKuuilxA`d?HNMHWzFi>Umy#RiGDL0CMuj{qX
zg~saV!=YyPMX=hvm$TQs;I;2^CvnQ`Rki6J!6$y7iXZz(6aiNe4~30C)fpEU{*v)7
zJB4;P0EKZKbhOfpA%jt*%rg8p35_iz6;?ftM;~ibVAbK)jLWzC2G_96z8rxrFPYZ?
zUuyES?W;Z(E_mWqrwVR`M1MJ1Cf*x40M{suc|~cRbZ2GWGE$Mz_Y&5z;P=$n+Xnzo
z0LeaZNDBHL#H<4=fBjmjLf=&wQ$KR@=w)G68tU`zn|78GFe{OCF$zdaU-?(Toz+PK
z`O4$6EI47|qxBT2J#K058Vdc<9I-pyk>AiTnm(fFkJ5&HMVzGjiEaQHq>pz_>u#B=
z?54GNmwyY|LhZEZ#reO5g*L$(A1VR)IU;=45;?6V`z^VQjv6{N{TS@d{TC}Pr+_V8
z>0x!H)l1ygY@&b)rw0a5nKrRA{Kx2>K?^lWSykq@{g`Rda-sknVT@fZ-Oo*fg*cW@
zNh$j>KYNsXNH|x^=uMGkrqe;p^!fL=pR#aSj|k;L)bxn}`HAzx6SuVH&
z#uF1!kuN%hsW#@q@ZpY96syu{hj3(;99T~K#oAkz!rjD4A#K#s0`0l55~}Nu?^gTn
z)Dh9EUFR}>mTe5f*e30Gskf)R@M=Syi}uvX$ALbF_jTK}A*%+a5YnT{kK!;ihtrI@
z5wOFOG*W+31`n6|YU0fI5fA_(D?^Op0@tAx6;+>Pz)$$7GVU1HoO3gW>_Ib67Q4Cr
z9*SD050c!toSv}lGghGL$$M^|vBN?hdY)EDoU4MBj15eq>eHKERWYIsy+Y)uzCG_0
zTGe5P=+IQsc@qt0xq}$lu4IGqfZV9>_jP4D6#(=bVlWH(D(YhgOu^C*H-2X5gxj>b
z1W&QO@Lnxt!nn(f9*ImEG@D@-Vz)#Yyh}?6h)7`Hy%clANhX-pU{pUb
zd1?sL0jr&Jp~9?l3=1XvghHznj9nCeaGVXsm(qLEGR&D}A{MBo-92k3*p-i%-4dWX
zvo`SHQ1|!Pv3EOVsSg7rO5nxThi+t1H%@l5w_I5AWEPqzACsrDFbAJJEYDztmqy|$
z{B4t`lC0KqxQHlrYdHRy$y4Dat-wRfx3+{h$8z~$WO4MqKUf6(3B8V%`YQM@tI#*CEKrJfREIBMoQv(}LT28_~VVs0&+ZDSs$e$sP+_S#K0`b3*#vj^wX066ZWk-$;G2oxaZh7@YiCW8wF8Vg
zzgeFAR}CwESZLxOm^@WxIgvNc`yLx#5{jx|!>XAR0lc2?r|u{vo?}^c0T~pf&BqdZ
zEIGl+Qk>=QtMIBV(rZ{*bgV5rc=@Ob&?-+E%4U@1Yu^S
z_tfod{(Fhp3St}XX(Wf)eO>eu_Li?;RQ1kyffzZEJXm(5L|(i=w%n5Lac1Y#p6GDG
z+m!%8bgP054~+a>vYXvTFepI!B%00#GjUU+E?+}vN$v-zVFjDj9F?BWpgu1no`X%8
zxDRg{;|jteNFT|kOym)jS*^$LryCwhv6!$l4YsrFTN=$kN^H?5oN^q@xQki-j=O3s
zuSD$}^g@Z(z{B<&(Bh}V(J7$yu~uiL(?&}#HHb8zI!kXmB=bZ#U|0$
zicp@KJe6lzp-Fz+r6Y=UWPmpnxM$6pWc-P!kv@=;fDaO^OjYk$YqQ8aLrtwIxW;N-
zZ+c7huZLB>uzDVvjj5+BoeqKQjf-~Ui=|0z8-&%m0#5#yrcZweb@j+@*4b0WLo+_r
z#|rG}5oCl;YGRAPS#R?TKEe`OKv=>Y)Qi-TWi!`g9@K|Vla3zj%0?<;wR-hp
zF$J=3eVhZV-M53fC4U@>$*(B8bSBBBmx`jXntD}9gdow#FRFg9KGV*A8Yk89QU$f6
z>HQ7|OE}Fwp9V;E>z2*}***O}^{|?>uhTtF8~Cz&$|p}0o(BhDhpJ^Mp)px9Y;HH;
zGbGF%0k=OY3BH3DotK!vxqWIN)d^4qH-%sVcBJ_&Ef{P*nFgQS2l9Aukq{gHFn*3-
zQ46c()=O_{?9&)dQ`8Lq`WF^79X}PnzWhgb_+S2(wYhh%QpOWCX5A5=`fy0xW
zU2$(cE|5W}R>(wkL|O@uq%@l79)vMowon?W38(k;3Lb{
z&ZA^hY^2rdr4!^OGbnlDoT;BdCEM-4psJ%GhHQ8RGfPQxaoA=g`}6tJY?rb8EbmMG
z4BHF|De#1-vpc(+SxT5Iz&0b>>|a25~bNNplAv!}m&i
z^gp_6?LP4mD>@Gs8$@lP+#3IOm2C?#U(fNVY&%kB^I#6r$a%Th6HNTG@v)Jh1Vzj3
zEp^yEfitEvOixLgtAozesG>~N3AQHZG`#HgajFQGw6Ks;OB&<>>iR;T(yZmgqzNxE
zwX_V0UuP>BGtXlNCnl$-^e5BdI)nf#M_
ztRk)FgBB7I6!Ocxp+B0&Bgz-*e%I!oOnxuE+Cpe4uwHBn2
z1!aZrSX89Ji|`*0irjU<*;vjN@1V0AjG#tlV2JdA_wY>!>J4xUWcFp&CGb3U-nue4
zd`_AIO15B4d`S-7JgV~D1Qc(qm7omI?yBHi%m|1#I5D!XGGyjyRJujZrW2UT+0nP0
zhy3wd?u{G+w;IB=UdIMb->--c3=CJzV_&-fH7jAmv3sECuHwtu^Yp^^ajQ6266|8E
z9iiVfR{sc#Qp7mdG2FIW295%-B;i88BbS*j7w$67Opmy&7Dm_1Pu#h46J8AXm=+#>
znnQU3l7isgK`pp<@S0U;bj5r&CN&-}?@j%ZK(r3087q3VZ+pL1p3Ndcv9M>^9;=81EWED_
z`8sdCEHcmGThHA{Qr$8X{6Ll*hnBXySnC2>tEpz`na0blM~Uywfz~prS!Slra;q`%tv_fjq&Ds{v{}{;@z~TPVC{4z
z!7E&ubH@jNGX5KXDm^MWN{c+7P{Xm^N4XT+JwQ1E=;~ReSdQIeMe5!VfpXk2<4qRM
z%M9N>*0k3Qb4a?95E5R`xv+zOcvwU297)P$BV~TvY6Hg@(n>gA8z6HzT_Pp(8i(WF
zlkuk;02g1tY%`xw$>G8%#_d!)R_omksHz{FR0~AN8&vzMu@
z(4%IsMNRX)%eqjEkyk?lLDo}FjpJoFg2>;He-2u^#Xw-kFJIXq-XN-;2YtmTPsj0+
z%YARkKLf4ZqLlh^JnP~SJnD%z)5_if){bDZn=Q;atl|FhAKR=5Z4;snJBMp5Ytt=$
zy`(l(aL^FaZ?w={?yTnjRReS`jV>yht&8Lct#KpmWz#zJu`cTHg>VgLj=QSLDXLy1
zNqq{yFw!$sIl2dn{sBo!#(*L}N5NnhQyf_|JzIB;gAlCaJ*dMG;rSf50e6JbY%zlU
zTtIe_?atg?tS~#cyUb#>!rI9K`El$>0uXCb8}o*I*LKt_-$v6;qW6E9)V%&{#oaF>
zOu#S9!vj;lZePkTVwt4kohcK(2zPDgh4qxX#zv6#B3kopKQ9Spc{_ZEZ@Z&A
zL~VRgaL8w+9GiRrH$yVqZC;?wi<|P_QCcvB-Y6HbqHCsmBakc#o+7>&nH*RJ8zIeBt4;@=tBFUwh>h%<9-9STb4I+W2hgWgS
zfdX=LT>rAtlp42y-Eu{_+pdAO?7z9&W}J}Sya?|#dFroJ5?s++BDsXRE{Ki|3zFv&Kwu9Lp!a`6SPKxwDRLu30EFrpSZ;*;03k+>
z8=)#d_`Qys!+!w65EOS?GH46D$=!Arv;}a(g3^u`o7`lV@BM)?3ob_lS%I3B<^;La
zI4&kZts|EiK`ka1!yp^MWj>HD;9~0kGw?sI0UU|5G}e(lH#;v4-!@r}dN?skbbD4n
z86&*r(2h)}{ahD1xvRz&?%!)x=f3C)YP=#|?7J6+S@^1M4>%liHjBug8FyU&r8D}JK{@Nj(DHrXv@MhxtyC-CY4sC|7p{ZnUEHia
zjhY7KV5`P7;DC7fwgHsQUwsYkb{=Fp*1*@D@dlK2pKmSQmIjvzc0@d__~Spj-7L`i
zbS?ky`^|~OAxszV;-znaVvkk7FIwYv=Ek8-GrNi<57Cb|3?zYa6V8+fl0FGR
zVR@IPUw{om&)4B-l5ion_E6(<-=EvrIyp%`YG|@u82Q~79yj$#QzNQ#9)!`Z8#q93zG>BQSm~SY5R%Sob
zRW$zVyJ4O;YS?ehtngfeQ(;w+Vds389P4Hh|>hHLWJ7{IjVJ0u#nV*aPsrBX6H$Ax!pTI1ih*r5wPYB*+u2TmIPHd3|$ghbxg1olMq5tQb(5n#%S5N(Gc
z1}+SJGxz;j5N4sOAMJxz@QD^dzLV{tFFL>Z{#AWIRu3wh`CdYs_H8vRdfb@rLQr+q
z{q+_*(<4O*Y4MH-37Y+0?eF7f=7d2nR`6#|47cu%Lz~$)-15!G4vW0S3ald24a#;c
z)Xg_{Fuj@=p@wYV)@}N;5LBR+&hmT$Ria5rfvJDL
z+0FcZyO_1-Z6{yz)rcO>6I`z$;8R)RAxg1tsO)M8$&NUjt`wNTWK3$FfjRT3#0sot
z(A5^xCuWY0$30?5rsbTwCkm4|aOU9r3t?J!rpfIO5~|sV!t1aUTPPth4RwV_Z}C-`s)i)HCu#*
z$5n=6Xlg6DHDh|H;5k))+&BN~a325q?l=dGmR{N3u<%Rg&RtTFvz7N-V#ZmLrDV$2
z;H>SmijMPf(+X?yWG*`&oF4@jsfGiS4a;_gWdx?H+wD*(tP?A&R0CWUQhoiN?eV2x
z7OyZ=pP$Tp;mR?FD{PFdV1r9ZT^PQ!m>I%&BnE>W;sq@DVpbul`KW6U{|fw1eVF)}
zm(6~hswq}=Zv{yF;wh2SiFP8AA0d4&jNj-J!yJQ9f6>p6|0z&Zov9`agJKTzp_a>K
zo33oaN-As6ek3}b4xb%A5;(w9;#69oN|Urz>`Dup`Oyig@n&r`*OY2Aei=1Dg;CQ}
z-Q!74Wzu@S(}Y#Y2Qc^L#_45+GvsG?%+{lutsw17=L2SwE*&Uu3H{p}<0-3N-tbG^
z?B9WiU*WqEyLr{E-6SZFu>{Emk2w8T^|UDW1MSqb$X7d{K-=b1VLdjOO7z+@YpId9
z-p{=b9rd;&E5w|nq?b2MksEE*wtSm=N^nrmS(Aw-l`t9+@3%t7<1e8+*L1poD==8LiRfiybZaVfqM%x&=nE{mu@x!zWL#F62YEbTrWyM+d(X
zo~bGFmoI4}UxspTNYG%uL+;^tQdf5@CdrndKVILpFzB(7LT3v-M9;C9s<(x7y&O-F
zBVwoff1dh2VDNPgGm!3`&6dE&I5;4TTJfL)_a%LZl$tHk7X7v%PHWaLC-}#Yy)4b=
zqq^tyg&I644rxNKOD{QpnY$4f@CqFuLwoZwP|+EKwm7A(IHZ@i_J=qyYKM+QX=!Mm
z_a)6UmurLjqQ|HIS-3bPP5ZgvI~17HXt>z_tH;S9-6!+h485<;t>Y`PM3!n*5!WSCM
z5ORqNpL{?6l{|2-os#3Ez&OtsaU0J~)gQbmn}f#fW}aX4xY_@U_S1{1wR-3OMU4Hg
gBQWb}e+1%hB$RuqI(--Xhuu&|%n#=rJag@T0VGvjB>(^b

literal 0
HcmV?d00001

diff --git a/docs/reference/plotResidualDensity-2.png b/docs/reference/plotResidualDensity-2.png
new file mode 100644
index 0000000000000000000000000000000000000000..b2c20a3d14a544efc07126805e97b36cb0ef6404
GIT binary patch
literal 20336
zcmeIacUTk8*C&orNHL-}ia%eSXjHpZmv+F}ky7&YV6oXU^`!(}qVyh1Lmi
zadC+rKX&LW7Z)GI#l?GNIWK7GJ9Z|Ii;Fw#^vUyw!6g@$78e(uOG}GO3;YIg;nU
    ^y6e;5Mba0
zzHtTtMVD&p@N=l~T3nz%9?yj$KtDm?4?YO|rs0F=__Q>98u(>{&Q4ANP62UF0Yy%6
z?H*W+$J;j^pW{5UvPjJ>0RXiV_=2150Y&T}Ev_Iy6CQj~bSOpWKWRZ};7bppgD*Rx
z_Sfs2>^LWbxB#cPqV~9U_Ls_vq`v;-gzn~u=1pI;zJ&g{&
z>@+sJD8Qg7z^SMR^kx^a+4LYSdJvwT2EIXb0EYsC4;#SJ*=z(s+T)zsivrq@++;3J|gBX>8E5J&xU8#BK-R=xAUBHXHn(E#^x$
z2bvMQe(aJn7niIb`j$LLAN^Ma
zySJTHHwfwrJ0R^>C;27e@P>HN=RVieUmw_^p?dp(P-X*(f;~mq1^x`PuwCvI^_5*C
zk76hd?j(0tYh-O_MHANapB2G0e2>7sL$_?W)m8*|d51nIa;EAZYTwJ)vT;a;wQ_}<
z81(Rgwg7zSP!un2jf-vHJdUrnk=_8mj^yI5J~`6_Cj(
z2v%ERbf25)6PGMpD6fs-p8f$E@xNPiha
zMK_6C0(xj;4zW5L4EB_z+{2KR&xz$w1XfhFNUnzq$@h7gt&hq#sIgX7Wl~$RW^Rwl
zPX%V@Ocv6~dQZ)rM}ND2_p|>Ipm*ELt+Fs7ff3K`am}-C^2{iowKzOpTo6mt3G2|w
zlq2HH&!ET%@jbp<@QqO1+=>JchT
z$}w6!ZvM%<>)BhQ;*4yeK6~~@X{3*pdZW0(3remmC)jwZi<6zU>wat-tYyS|&PZ#<
z20q-HdBA6^lqhdf?79V;IepcQPVX=>UwgS;^s!p=Ho~@!GNZEDEjerAC6K<`4?~~7
z4QSSB8vm0ZaL&ug@b@pDZBNS$wc87;tX*}oM_!HaWz}1Cp5(3CFUb!}N0zaLwXwP?
z*D}xiHpUv8&ZaI?nOgb1GOS}6kxHMw`+}^)P&rD_3zI>v9B|qAb$GCr-~6Ml?cRsG
zL=X90dce{(DKfVDJgxilSxLLm7MsvtMDxfEi0@c|!~LG2Vc%TJ%;hA#?R!fnA_K{q
zHoF-@*6SXKr7{?v40r!H{t~D5M@Z2Ct2}4w>P!ZojX&G2+0!V0a=4_eE{f%(7nV6{
zUvDaJ(bn^rc0un@*$e(RyecA)aBo2Ki*m!y31y#1n7HYHUp?=SdcnFk&3FD{4VUOb
zf$RxV&W+o@q>xq_LaC4K+8-n1>wFSER~S3Lzw>*auprX0p{;wQ-rJxziEf`B>9LDa
zBZTa}f^p5Ay5aSrzvq*W91B;Xn64A{oLe@KyyJs*>5XeM^@na}Y2c#>)0DAB5vu>{Uhz(Z;l5~FlDc`<&NO)o=hL(7wP^vLAO5~BB#KP`NLuei
zi%^vbl`0vX>TH;N<1@Vz`R+|fFu!DhO`Evv>N%D$F&^$S_?B$!l9~PhWoKq!Di~
zC2HKz)}%iG(DBZq6<)2exz-R$8a$SWFe)YZI4OMZUs!
z(>;`i`$B}b6Z5B7#Af?xdV!B^)~DCQgPvhC?FG^CQbmEn60%O*RCj1l^7kP>S(Z?%
z%8!R)SjLFFp6bb43~usRl0{j;Vfc`r3~Mrex>L5Xd2s!S_d@yM8z=wYApf(tVlq=U
zG5oJ_km`QUR?wCk7oy}?kcYh_mHGn*;
zBI<^J-&XFOA~Zv#Nz^`IWYLTGm5ZWyTNa_KiUA&-*0U8
z{?O;#$mH_jw3v8*5)8@`fa##~rM%wQZct!RUS9g9Sx;1h=lJoR7?-bfAu`sjjU;EZ;LnM`pWQk3IUf3}!wCylwENGxJvEs3Ysr~vttLL?
z7$-_R_5!0!aYm_9bKD9iwENGv{al3h#*A_d`HF=}I>nr&^#n82bq2KsRPKEs^xLY_W~~_h|m`4ZXk;POny6gDUY3=E>sa9w@R%dSrNOB!`ay5RZ5`^ncGv31(#m
zVS2jGENJ$pKD}F&bp#bXI^a(*;Hm}c-E1jKnQ^miYjIgm_*VHA;)viuXj-8;!~g2v
zOHDqUyIY&5TV6uOIucWsdWGF)@TlS4Ke*LQqZOse=oTS+d0sODH;re
zg=kLmiZ|U>mnt@+^N2jdJ7;ZAtk{WRZOn;J1)!wu*b%wzXFv~r5
z0xY<5SoofnGCMGOk9GnniYoM87}*g(c>aX|OzLu&+-TasMV!jB-%K#8v^usRs5Ahf
z$AM@yY4~S}7+OujB_PLk{~k9HJB~qpea;WxT_B8B?QN|7w`;gGWbhxbAD(L#EwRN9
zpzEWBuC>)>x%L|fCo8QkE*MWrise${Nzq_D69J~r3nuC?(Dlhe*Q#p%Okp^9K@nAe
zh+PXDnuH&OMBDwl+(gisr8<9V+u^EHewq;@Ipo_nzzPR6(Yp*~Dt`Nk>M%MU{Pof|
zml`e;1#+?G$i=8a)`BGQz=zlI!`t|Qsa7eALPiVf36I(9OH6{lXa}||1deh*#%>N7
zZ$O~_Mi1er>!2MgLs(qPnz
za-?t!NFj4U3We1LU$Lu@heJmOwfXmQY)A$mZ&^TY1(3^dklz5*-(R3UAja(uF&sXl
z9k}0+6C?`(^?MdHd2t;}$d5z)Dt+mWf$NZBv2_0Mnof?_odMXMEns^DO!el1xh1CD
zSgONB4FbzB7<0F4$B%`W3Xq>zK)y_0dTFFv2B_~}p#C!GAj_eC1sE@NVZ7-We;1+%
zEYU7H>n7sLF-sO$$+a$sW)?7`&0*%QMS~6TXf76q{D>~R&WYQ?U=oOv;~>ukOU2p+
zKgG;KCJZFH{V1SN=
z0sepiJQfDXP7xdkxJUd9Tj~XF;4F3}#{u;V{>THy>sc7DPCue`i6PbLpQB>WBCnzg
zUoEiZ4(2xM0!9D3iT&0raGtJ^^@x%?>3
zl<*q_+T{xz{l`UnjDho#xuZR%m?67~K&`Z5a18oBSbvLN;RxVAF8JV-hf8dS4+XSZ
zkktQpai5a%alr5n@gAJ38<@Kw!vPSSgBHx;f4=CeR-j-7k(MFfNo`*}jt?b*8RsN;CUbbtm6gQ&o_pn7)ned^~Y8*(W
zY8k|QSssXEMpjz(XWF_krcR7@b+iV?dt=HhsnR7tr(XnFIHf>Ka{O_}tZjOeStLux
z8=IEU!2^cVD`9_*JXDw6jZCz@ckhaxh?OtvB2DBL%nfKjIC^xJPTc%kk%QO=p(L
z7*gYkmLWYWzw}2qU7%skAI&yxwrYETDYBFq0l4UCS
z>zO*4L{^zcI@i5fvv|*WGQ>VLI{d4dH^sAB3badd!Mq)!!*2gtg17+I_A9GmF-VwY
z8xV%E;w>OzRYl5_PdPK5oA4lCxp973_+}g7iF5ksz|{`ZmPSX|^3u$`fz+Y$VolO5
z;1z%lZZrT#{PBW`%_e6jZ@SGKxN+gNYfV9_6_K`7#Obm3OcbOM^F(mxj5^S@kJQnAPW3$Wx;Z^+OPcD;jnz7U7Z!uf!UmU7&8
zziRnib79D@NV;`+&B7KKH12C!vU&R_6z}aMxwv!q;v2J3ALQ(tKYvc%6qA_vJih;de6J_*r5>7`SW40--!+4YyPuFNONg
z>patjTPmfC_vf#b8U1R6>y=g-3qd1YgI8qZ
zUI@Zj9ishi|5|hA2+(@x+KNR1T-Q&gCM{nSz}J{dmoF__6hLFOa-#AQ0XW%8UX)xS
zfOHLE`
zEmdRJ)+NSv*Cc%HQ@2F}*soG9vXrQx=lIU6OH_SKf0uJo(LadX5dRK^^%^Giv68FOj-Qc}yR
zm4lZW0N(cbu_dbJOV-fe{MezTNs+L%(#nJ5R-pCVW)7*x#F??H4(RPBXzrT1*`v6%
z-rG1>4$&pHUN4wXuX$Ue-L?tQ@q=G$2M#U>qO95>xNM1k;BC{6;g|SFvWDsA-2NH!__5GYpeb)&7Gw(NaPUz
zkoH`H23=#X*H2d1xg?ea#axnDYFtK
z-#mBQQATaQY0hoe(eVeTuyyF3?BAFd!b_1BRF~afiu7;y`Ap;eFB;Apmhhi}s&_Aj>&#J?a)YJ%y4|n_E)?eL2&82~N($|80Gv5~t_w~tURJsabd8O6Mnu1*Sw~Sj~_INptrdo8d@FeB!
zPsr!x@x(o;T!=p^xCb$Nx#me3`Q)p=8jiIiZcUB%DbV|aSF_>pHO}g@-im>&=4%%9F)m7x@l4#gr47WAosO$u`-`QeYfIuv
zBv%vBqg!9A9$(46J@PZy_ll_*Kdc`E9?G0&Tdt^Cy-VL5{n<@-vd
z+l(2B7Rq;=Vm_2=@{B__IcBUdH0DZADePtHKFu1dbMFW={M;Pbm(>%HZbAAm+FS;@
zF*~kWbTVf&-M`gZs)6lJ24e^6S_Oo)7gD+&j5XCBuC68RyC^VE#!X&AC_LG<;}>vf
zkm-DuS)VFeA3^E&@|pO;O@_iGWH~2@Bn4Ny3
zW{})yb{5^HJ6&IJNhI
zCHCeG7HxpzhdxCYLLivD>EDD%(^*lr6Nln}{ggz}PbeHpNJfKM(oBtsO6$v3Nq+E*f)ZuN%>
z0I}oTLjCF^)i3Lp1A_zm_z0F<&S2iqW#UB6h?!hl(Z81#Y5`_>$hX3FNzbnzZ6uJ^
z(A@;Ha|JH&L(p$tkm%XS$I#BQBlFq*RvEHu7-U;vGv{#g*-l<$$H=Ad(mA=K;M~lx
zN#*iu^Sd2!xG;y^L2lILVi<`zA889d2bs2ClUOUw+TL?-Y?PFfdC}w9OhIXg-i-+^
zkZUN5{P*a*RDSX?pG}|j)vr*qX&KMn;p93uOW7)nd+y
zZNa8cdItx!_t@E4IT(Xi^m;O*#w=XW&^H}euGv{BTnpLUm3p%AiG|n5shu_6wD<2c
zS1^oHdL1`_$nI*#4GV(FY+e9Wst_Tvf;6@ar0i8>p>z)M4KANrPIx^Eb%wh+veM3V
zw{`9O<(w=*`f_o4;7{KjjK9@)L?G>I}b5Z^;J@7dD5siMYR7Jw@ob_mhT|_s@SUGlu4X@L7L3M;Ywc-`86tBqzvYm(12Jx%a#qn`i+4I@
z*#8GHO=`(Lxx-(DI15g9Hh0G+M3l>jpVsqvxD0-zm6MS+CR=Rx`~vO4Zo((SUVO8a
zeTMVeqwpKc0P&-HTj$Q#dc28lMN`#Lm5uJ-OkJEo&fulp@+&4LEIAjI^4{S!GiVUJ
z@u|h1S%z24o;XlXq#NEF^Tl9`_>lD=NX&3RM#@v`XXRhj5seNSIjI=$zNa3qS+@Jp
zyec%fk)9`w!0~${1}r|9(rVS`KrRz
zsYp8z)+vmH@CmX3(2*iM+FL0%BqoW|8xtRMxZ3uz4cA(
zJzkI^uMBl~4I7Z2B7w9ejQJ>Mn!4wI!CDU=te-S^Y~K+P;+g2yb(fKXmiEmDsX7~+HoNHz~^j3_3{BM~|
zQ+!Rv!4}!qe|t;8g#@W)BQT}Z7ia0|Xm3F|{XB3H^6QpHiAs6RdUDvDg$pk?ob9Rs
zbu)vchzw6X;d!vlkUM=23>7;!)4#qiW+?uquC|Wz#8lHAO2J?p6SLNI@Yp@$zSy-md@K!icqa=~-AyZXYZ6x!Tv
zK*?yccB3|;(J1qTayX7VP+;3!d^@|-o0Xgsa`
zULEMmWws)9m(q=<*>Ew2k%)6;!VcJc=uvbbdTjKj0&_smD3{(VWf33_t-8aLUCWpAXr&d}Cp?aW+pEi3@ju(#x
z)0W?J(!h+$zH>adTy^<@Oz-sjxbERF^f>0{1Wq&uYn~-dK1aM`yrYbl62NGBVmzs>
zfS%>Jh^evT%T}3JDDU
z7DF=O>aHCR(RGF}qQ-WkG%@{jRT!&9hFcQ!A^Sfkq6;^p3>!cgukwxr3s+kSmXPnn
zb(#unI+XPA-}zl%*i~Cxql*ah5w2x8tN_&vSVuESFUBeyTw5umu~LiK{)5R9YO{~z
z*BV-ZHK||z?{&zNIp`E`Mpjju-&I1S9BCgkJz$j@n52Y1YNljAjO>d8Y7++x77^F!s{Mnn#vijU&9w!;Hv=mOSi$^-c3U`gj8@PuN*=
zBo7;KNRM>^Wv`qU%!7d>=(g)kH}$cq;rhV*>@eA4^YF+C*6aGu(^YjHU_0^g-r#6&
za?fZ-q>~N?J18}=wq5`+bI3QP4Bsy6r=6(bqFHWxf
zi7R1G9+(x!JWBqmSkazNQe*!foECd=LRzMl39oaGbG33Y96v7rJAwgvB;k=~|9%{n
zVSfCTLl=Ov{oHQSq+uzteN^H3_x|2vdZQl%34^7poXQO0jG}A{i;K@Auc~-GoEVbF
znaEg_$eNy*_^tT3Ejb$!%&N?(Y<)YWGp(uSvwu2k}
zXzXLGL!_O}3=jPrrp58|)ssy*$jq14^|vR2#zzJ|o|NWhLgHDu5v8RHJ2ll|tQvgDaovST|0Ay0Are~?~U{h=dW9q02Wr-m(NX9>{}
zt681xtDnbzH@kF!mpnb@2t^Q83qPxh7O4tfMB3Wjdken^5_+X
z`HUHG6sjqM2+G{PKc*E?ROgZBK9#ZZ*)GRsa*3sx?3-T!$`LHh>_Lm1VIgGlS#~{G
z6-G`E*7o$0OIjRfcsv>L@mD
z+6XecXgYd<#V3aa2(Du3+MD}H-zWk|CwK410)L}I_PEEO#lTb`99rsB;>*RJUQ;;yW7l~v!MZM9f{rctCAT|}dDmALDUy$Iu#R_aE)tUOk
z-xIiSq`6LhpeWFD%fTC$as%Slx#m&a&Kz*ro$u4Jtx14BKRVWG*Em_b+P@dVWK&0f#w1Q`$?`uZT6>}Z4cobSSo4G2aCW9i@Xx8HcYn{ypZ(0ZpmU40}<{p0<9Y(48rm+T66R85S%-Tetn&Eg!
z!+57MB(9}=q`4GhG~U#$0?|?Wz7G!J6q_w9T+dj{i~BUBqVZ=r^ZRPp3nfzUcT=(0
zR&?Vnfs+uq^S1!YoAz!ujQb5BxaX>~I^At&8%Kng-`AnFFbl1qR`!Bq3ByH=Ft?~f
zH~K8b?&Q+~WM{V!bmxZdAlz`_M~O3e?kk`|u%G}c7lHiksJ-FH+%g@N+Us2VW3N|%
zLY2R#@x$2uSh=M~ZNj*7LaAuE%G|~bmCI>X!`ZFAv=~$_2V1s)B_mdOGvvSRk1(?`
zjp4F&ktAig4TprYh2N%wild+$fJWc@y~NCYlcw%?l;b>MGSN}aL$(`uaYB2mJ8
zIDu7@zO=XKkn?qF9){Q+UmD;2{nXwgi>NHAz4sRJB(7(;9DGfLW{M+za%uz0+EU)C
zLb7MpEQeK>NRtar*eU`BSsbz^zxUq*93!2tLI}&TJ=)L8e5)=4m3RDA1V4O)n+ft)
za~r%Cmt&UuSSF>5!_iaTYC@4`*Q|sK7IE|9-rj^f7l}G4L^c&#w1B59t@o$7$%>0o
z6KruYu)NGNDOp5JOL?mTMV?!;4)$F{9Fp4`bwF_5zUHmx{aqUG{rNoTJHN4WH=9pk
zCSUmBcgdgAoboX43Efb%kcfOhymGXB6Hcx0Rg3Ikxa=a*;a&a9A%jJZ74Fc)@2`Wh
zK#>&6dyUG?K3_a0m%
zHj3d`TYQ6Rzlx=R7Q9T{NjFz4+}7fvyogT3|
zMEu>Z!PqSXNucF2FY_tq6hWrr3^n31n!tb>R-i>pF(5Uv1$bbXJw)tn*HD2CI}B_=
zm^hBYxHjM-%@k0#6hwVQ5TNmr
z{P@Yc+(POOeVX@xj2Et1P3DZPu4T{0e5H?246SXTU
zjXpP8r@>XF`O4I^8oMVV)y2op0JXG@_O5YFo?msE%UIxHR}RI
zeik3TL+x!{&)vVDJT>Cb}?XO|HI7#1l^8RHPD90Bp1U*?q)0QkX`a~#t$6>yFIsD*&{%RL^^#Q?;hI02cztOX5J)pvj)Ouy{&9ey7N`j0sJd?4
zHuBcVAH^w&jNLk=(!~nZYV%B3#rD6ldSv*VkDnX^pK;jeIj?g~rv}wM@4K&Fe8(CE
zbteYzNb_<4mL{j49I~Y4h=FwPz@2=1V$z0bgRA@I!H%4y#}{0UEE5vPC675Q_mo(>
zYQ9pqrAFbaFnnZ)Kl`BwhpivBQ)TKuia$XuO-h6x5k)`d*%FONGZqn!{4DejPRWfI
zIpixaCrgJPpiY5@91OQOZQR5&H*soSHW63-_g2!jW1z-L)J0+~s02ml$=RAo8_SrG
zHQiz3VJ~d~^x{e{IdV{3O(NJ@ak)=)Q^!eT-JZ!CNpVi$t{W0g#Rr&T`
z$V(DshK6&CT$x0oJo7d9w@g5KSg{@%po9etyqu7x&2vUAU}QRPLJ
zMQ|}YS|6l&t$f|_ekHP`*5b-0Mw87`3Ka|4o@?jBh1WrlabY5{;)0@^snaLJ!{?h#
zm9F6gVE=+I^cr(UyZ{VR%|$x!_in%cR&f!hD^IWFanL-cceiQ8>t?O#{WdTg3c|Hp
zuBc$H(KN578(EXmvkMDWFf)VwC|Tmr-d0DA*`Ux(xbU#vO-O`wwB1Xyua|Phm4%_W
zBgw+BR8t;hiyEu?n@qmDWA=?52m3F6T@IC^#vRbo^i&G6z2Zc+8!vxP@lVciqefuv
zn=`WZIN84KKv{X$3t8AsXSmeNln%!lTa)Oj8l^nQ_w%mq6k)jBSG%ys;F~$%rs-5d
zhn^m+m6-)9GkBoYEJIf*NG$*qRjPU$*DQlVALwQc;za!;5^8e-T{+1k2QPvsq?k-^
zHU|PMO8(q<=p|SbzK4%jG&Pt8H|>o8dUpDR2;98nn&=+y;ha=1Z;pi^MKJWGw&$8>
zag3OU2DkN)C269jTh53#@dn1-8DWyrCU%R-B9%IzcF@#61m$#^U#LH^mufG;3Yg0c
z+^oAv;KxN2s5(A{srnM2ln%Z7TpThU;!!gY0jbJIo@*gT9t0e0Y-AXTQk<5N#UqbA
zTMs{*hc8d8O%Q=K{c#Oz-0p-b0P-zUb=Xx0cxc
zkTqFtd*}-ldjMqtJdj~oKC=dL9O7rXh({dT#V}B3jOaL6VWRlSdXc`N+hH2OEdYD@
zIre{FB)-y8#eHxyq|>7T+c0ERQ5}2Jy3`pi&rd;QUX*+tF?+h-9oqZj`qGmyX~03k
zRv4YlvqXFAK=bAtmeWigF?4Q`q83dwTRhFKts6x(?_C)mmDWdN9(?hb-g8iRX_p^SwZg&472P2R~flH&X9cxcP_e
z>EireeH_Y_i_Yg}UG0r`41G?><4z6npp!e@GHa}*Mex?TpWM{mqw`=|4pd$3Jpk;H
zFtUFr!9pY7F=kFIE_)q*=xVD!G(4!a92E5nqXA3IPqfj`Z%dW!vEW?np?QfWTl$Q(
z?0w?mn(_WEE$UaeJ7BuHL>t^vOObU*jlYTJEZa)rC2Wv3abg7a$*+U>f12SLY>7=znY4r$rX(d8n|weB+7r~^vb
z=dhJpZW58@C0~fmKD?Y@F>hPG`A60W!AJPG$VzT^&`wTu%MTpQjr;Y{dPg4p9Fiba
zesh=EToA|S`wC~;%Ok;Nv0k$4VW;17NaHN?xto&3i7~W~76O7~;dw0hy34xmefhH8
zEw6bgp$f+&SNxo0#i5
ziujod?FX>R@UOX6X1nFV4w)2jg4A8ZEG;w0zXK%%`IzsUxA(d{qP#rv_G(2qtG$W+
zMi5i<8uhYBO^5XnR--NWkkj1A%-SrQPog&=bh1_ymHyEA)$=Q&ao#)q=moX#t3EO-
zzyykH%lCb~*GnFUDPP6t53YZ#P`ADiUC$8n5-stD^?q>*;XJTs((S5gLeN`uCdS^b
zTfakbAm2#hI5(nOpJn5PDGEl%mc=^!6IL_U0)KqRMTl0m&xzbS)=@k0f
zf&7re+z9SPwhc{j-u`_2MCsikV=dipxCl8S7Ae~4((T{SRfU+G=JnWQx?ijh4?MHe
zqpHNrDF}ooK>DpZhG&JHye4>j+Z{jpCjMsnenT{tF%vEG$Mz(9)=?!G{V(btUnni-
z->ZWt62@J1YxUrUXlC)rURviA|7#_2hQ5%R%Nn_zTO`dCY@OK)YI{(&X}dNfp
    MJD`I5nQc-d0z|s88T|-`yR>?0WSDY-FiTi{klybI*PvizoWSVZ#dKtw%
z>H(XOSp%=C+Zs+j8e*t4vMrBHT{NcJhs;#J&$gLa2be~eWyCRciq7Y^x>JcSwotLJ
z9;%rzeI0{FQQbG~F1yL@Sq?egOiZy=YY4hc2m;4Shp7~+u)%>^lR(e9fRzl{>UUC(
zmuEDODWYBat@~<
zln&2#xfWK_WcOBQDlvXD75h0@t)U%un(LB&Gs}24dbW9Y>~{X#h)rdMI3xQp4Xb0`
z#LI7S8gbf=bC8&!RAZz5m-znWEHQ_&$M~?&czGZ*!mdDfqZO=%b{pGGI1PH^JSDvo
zNZjbjUDkj>&FRC*;^@p^zio6oBel4;nm@;8)Kj;Um^X%QN|@VgakVe9Hd3))U#o$~
zMQsPt+))EGD#`k^Ti_8Flfj>Dqq;pdqk(k?SefLk>
zdXQzeNeY0o__J&bKb>+;9OMPUHh0M0eGtqy`vE1G_QTFK1sc6`bTfZpcP-;4OCRzk
z9-6VxIO=G)3zSY?K;hi}*7)Sw@NOvyPjNSW(7b;9+9(Fd3wv}+@XBgcI
zVi`79^f!ccJ`rcg(xarxZ)CmqZ^vLzn2ODeR15E&G?dQJ<1#PI
zy8vGFfJfg8Kz@_&Lvz5Uf80^NO-||#@fHQA(KQmSY3GL$#82*abvol2eh!=DO>}te
zuyJbL7kw_!=Pu0y8;x@eH`PLKfMvVqy3BLnhRvAQD)JHKXQ1%POmLs<@8n@VFdj=U9u6yG%+@}&`(U}5s4<-lXsc~Cfpc%)mO;e5XU>UB`q_Fc7;=Z0GbV3>zO`j;zC5jhlF(RKh
zNUR;R%^KUsSp8H3#-$GjyQTgE#l8c%Nlb3_ecG6-u4;}X5A*3Ea47x$;wRQ*b46jh
zz`rh3?6&U;JH1SpI{!d?TLj5hvGT!c>KC|~Dbs|F67NS4-aE#p@3J1H4d=QoLkaG5
zlX#&KKPI;vzI)ckI6YFlTxrcC%WZk?RlN!~J*!jZi4(?kxaul5UtaDzpH>mfRYEHK
z+T}%Z6E}l&q`kyP@L1h*A$YRiW1o=vv^dDo0Yaa6V;=Ow#C3lgTK#CQn{ve93o(Ms
z!}4>>$Hcmp)TVFXT*YX+IxMcg3VA$$3HAq_-}us8rxI>v8VlyKbd-%CHL%K6y#P64
z`j3c>ZC6=?E-tIv-`u0QQjoGH+!lUbu=vG=n|ZJroPMfgG{m)E<^m}o{d12+aCDVS
zoulqXT=Ojwj|Fgaf48HCqn|1~(Y5T9c4plnEwFFmMdD?s6npv6_xG8W+w$FSu!-HO6jfJRICNmwZa!=}TnKwaMTqFZ!0x
z!R@@C-mKfF#7LFFXGC(~l6=wu+%~i=EwWE=9^YMJ(OjD>J|%|Jw(~BLq1(5Gkt&Bz
zj_;cvcjq1AH{HGsV6BG#@`VEzF2*eKtn;MW>y};ip#z%hHbYEKbwou(rryO+Ir#0E
zm9~-ugf4^BDoIb-Zpj)h!|w;gdk%|{
z!P4M3wbvu;wvQQ&sK<{x+}4ssdaZ4Lz01J`NxN}wOu%1FVjHYGYB}XiqpLSdx4U{0
zuQH6@`HV?ji#{7(j_*0T&lAju3M{m&!3oecc)J
ze&i=?Ni`M(53>BX$FLuDefp1^Rh&Jh8=zps8&eCOen1P_S5=-$a8vr2bpjOG&pp?z
z&?hsdRu+vwQ}+uDn&f}-BIh~itDZ)-IrWPc4!kTEzt)TCAAcpudat$6tzTxoh~I0u
zX`X40Elr?z=^%txtP5w|pIu+GSkJuhi1`~E#!Rblgxge3g&nq%nd!#vX-gy5xHJ!u
z%SpOKRdyTO>rC{>cX>?qw+!ccgON&QJu;FrYwy}NWJt~q_somylI+6GT)8n&>>MFJ
zQBzL7IZ$jII)?MQHSo|_>btehpxt0#SJZf~akQBsyG^PT>-hyfIvQB2HtSD-C%;LM
zqm<;jZ~lrSjTo1n@*FCjW>b8GJa#mR|34$BX?5RAI1J{>4q8CpMVh
zk%I1oe&$8eEK?}}oJZ{vI10|UBLZ+fT#^`A_tXvu!Jr37)uxHYHLZp~k7BL=D+cIp
z*|O2rj#q34V~ZB+C%?>-ZDNC#e=({tddu4zSd0$
z`u-(lxjyk)`!>ev!v6;N2)rrh%{`v~^Xqc7VA6Pt$L!Bi`Bn0bq~1OcoM+I1u?iAp
z+SE>8-%;mUclPD>bZW~?xi<4-w6%OAHk!nWZ~i3z>{4h~hu6!7>a(V&jFQyWxT!io
zK&O)t-&+UnU*XL`lWToG*1G5PR6%`El=0M!Iedo&b1t`MyaE9Nq|o{*J6gUERf5c#
z7s#vyklr%U$Lp6uQUD||d-_yH>9DaRsPQ>MQkhymn^4}>%nq%6^2EgCW^b|n1mC7+
zK2hc;8Km@k3$qnJ677D2*xyaMsIuit%$D>h_^E~ZkohWBC;KpwePANmg;=5Bd?mh-
zaL&}kuJ=;tZ{Z`zV;*E$ukUPQokUaMIn&C_L!b*zgoTu;DaJYW6`Ora&XQOBlJfIc
zvTBvozpxZHjH%Rp7I|8KaO<0^ZiD8&GdfHE)U6q_C?8|&z?;|(Y{+ot6F=i4dC^yadraxvE&4@%J3ukL!EQt?3ay*<~)
zl=-q!rfG3}$XQcm
z$qzqG{qtqK)A+UHnSc)ez9|Q0Jo82KMG7q@fsn9!HtQa7`0)x^JXQaa((%x{ze>uK
zv-L-*kE2(OmGPNJ9{&(&Qs+BX8c3QbIGC&jM_By(Tb&nI(!fpdYP#sPAupm{b~~hR
zjcu7>y)KaYsH$ks;UrFsP&&ddpA)<*+;b|vc?ID{YW;i-yaBX;#Uz)aRZnpVB;q^L
zYh9z;vd)_ePuJBp6iVx5T=1Nih`ma8OznMvj9k-iPG(XUaH)w}%T#r7!{)e=A1%A*
z8C2LYwbn1MOnRc*TPamI|H4tYH_o%P7c#C!!gjZ0?X=H&`FWTc{`(&uT*)Wd$GC0T
z!$y&!7v++oplwrYQ)qTwP+T;@bf(>8bkL_XuvteZE*dR_um7AldbU?;lU5lpqn=P^
z0uuLnk3yD9=Hwo|$EJ~=Rhl2Sw6nK1N4)l6`U*5}Gt|*G_NsWx)PRxkD~J5nvd&(R
zML^|`{HGkBxSee a
     
    plot.modelAudit
    
     
 
+    
    Examples
    
+    
    library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+plotResidualDensity(lm_au)
    
+library(randomForest)
+rf_model <- randomForest(prestige~education + women + income, data = Prestige)
+rf_au <- audit(rf_model, data = Prestige, y = Prestige$prestige)
+plotResidualDensity(lm_au, rf_au)
    
+
    
   
   
 
diff --git a/docs/reference/plotScaleLocation-1.png b/docs/reference/plotScaleLocation-1.png
new file mode 100644
index 0000000000000000000000000000000000000000..db1ed4bcc19e159453a07efe5adc85fc21f5f67d
GIT binary patch
literal 21175
zcmeIa2{@GR+c!>H>}ye$q+%*tB@KolDwQmyvQrURN0J#?i>PENm9h;jh){%>k<27y
zE&Dbad$t+tU@-4>52^3_{GRuC-v9gmAOGWdkDu=}-(&9kx~}`auj{2t@xPZkz678ZLJH8mDB
z@EyfspRZ)k0EeIh(4W1UT9lf-y_!Av&R2^9pALQK&rM%HLf;L1GV~)V?3qK@vw(Ii
zpo6_y6x0Lyivs`IM}hBr`=}24{CxX-@XY|7-P|JFA~M_}D%>*qBEVQ~-~)d3MN}}N
z)L5dxRhgrJo>5V1&;U^#QTh2%`5jRm`B5E=3^)CZ2)B%izKlLbZfPg%?E!S`5oZH$Y(GrBJ?XF+$t(SCq@N>(GjKA5oOW;>`Y_+x
    #K<9s{j{aF!Jre5TF~QBcA~p^<^;nDj0p>3^X{Qm$g^mMP9K{RZ`k&bpHA)Pn6+jtWZzOm$6)
z_ss`poflYHF7Me&%C&(zD=g8dB_=9(8~kioedaorFGdP@2a0l>`j*9%0x*ueqJT9^
z#i>GSVq(iIeae=*+kawso?^qj6n2cLhhp7|W+M3~u2a7b9
zh|Y}$+{|2Zx3$Ram6|#xQqtP#G~#FwH&An@Qm7?FE{u)E)JP7GuJxHc-V!j^d(t_9
zxMb22R!fRs@=o|1Hgi?+Lr}{WQrMNvBcT=@!<>}bhH3)tAi3)R3wNq1W^n1I2kqOv
zxUntvgJn3=aeCOVV;FeL%RJc*0aDGNnOAe?1zijpJD`q_*>$0el|^oELA;CEJH5K4
z(K<1kgxBMhSjFy|TE2C4!s_^mnbEY*9ui;n-O6?O;y*E2N|^fomPrRz`pqO23;I?jNhoAy*YG2g?235OG
zb?11Z75sfQ8Q+d$;2k&H{Zk9YNDY~T&o$KTED+=_zt~^Dj?EfIckf)s5)t?V4MWg-
zf*eGCC6t`UH=rL+<2`c;R=eFLIuK*%SOhsig5O%x_j`GiYaX#<;!s?kegJAai^@8u
zPT|SXu$I{V@81#hZ#QO}N_^daxC9s6$Ovt=>Dc?T`DW)a51srbUQ{_W?deGJhCudx
zU6E)nYbW9NwH`~qmK;pHyCg|t@N6kEPn$3}zxbFFg*Zbq@Z#-MC^R*X)5Ie>cH&v0
zuxH7xibsc3Z1b1-loT{+1=z(B*-YxVO;M91sVsn}?E(se%8Hy2v}W0Qo}=^-^@3krPv
zsQuJ+_lr9?@qxFg>pru8^IvytYLW8ES{`O0K51q1l^)msgVb~$KgAUUCn5rF!vYHM
zpU||Wu|T~L8fs+c*Wws%A?U_R>nssn=1<<;tZM&st)@77_GOXVqlTi(m?^Uhb(`Iz
z79~SJw
zH|UP!T^{Msj_oiP7kvI?rstUs-4W{ka&*IH8@y&oa!_?3Ru*x^U=fz2
z{r@k1-67CrSps*Z7+^v*7B6fMyGlJ^B;-Ut^dun1SWHq?iiQk^Z}jDE3}(;16&vLv
zNf2X0ZgkQPZqd@ODCQ%Fvr4ilOA(xtWco;<)USb&w_^Fp%0@yS6djE1=W;FmyHwFM
zjzXFg{=iS$B$=Zap2px#IzMSEbeWxaFw(dmJBoX5YZ`}uH5lpNm;2{rMr|Xd>}|iC
zH}UY#lvZ$}8Xn7Mx6f7lnOM8v0!Pjm6Ib89KhrzR2iht8v)zAv0aOa@|6bIpN+1Jk
zE7!A*^Y6v_XxI90aro~l?4gpRl*-|^pNLMoBuNy~5_wh3qjaE&FToS2Y5Ru0{g)i(I@$?-V8Lhpo;C&i5;Z(l6W
zn%RL`uxGDdH6NfsDD{+kJ@UC`wpYXgivUS@)xLy|DlM0PW@+4Xmzuw7oK!Ai*TazO
zj3jpuIv
z@eh0=Kr$r$Ql$U)nn3l1-Nl+ke=h>B-w*$tQ41_HeyQbi91d|rEvjM}n1(q=eGIGlJS^tXZ>73^$%>?W@YrSR<-3N6rEsR^#eLo@i@v}D7
z0HYWG)m&>0XDrS)suW)6JJh^x4W#_6PhIrLIhguh*xjRM)ozu(H2lT2hqJiA^0UXm
zRnry{MBR&CemRMyWEB?dBV8l36n-g9f5$3f
z^25F`>*#kk%zARfbzS9(ogSi#Yhk2gqPJ-OeMlR#MKNhl@Y-ngG}XJ*r$K8QP&_bl
zu`=%k|8H~@qC-7nV{l>f+T*zMBYQ-QHs4w6@gIR!x+p0^Qls&!uE82+OO7RvskLSu
z2D)nvft}|@4NeNK%`F7q(yTE!k#ia0k@5deuwS(EAAomGu-)hV_P=37+O7|b+0B+(
zm)3B`kuAxIVma3;-~EA_%E1e6M^3LTC-uM%{L(uj_bL+k&wu>vGuIs5&$fyuO%0m)
z5Y?Yo0V|{@Bb87ya6*2k;CYHwvl-1s8W)ZL!TGdS3
zv6EZGuRqu+0?g_x26_bM5)u8O<2NoSFps4nMI1IVtkl
z)%#34Smj!EjYLQjD{cbiuSNZrzQ7w?@@bB2_BG!iv!Nx}Wc`{i(s;XOFL}$F|MAN6
z-VbhqEGy)lB#<*dE}KDMm>sp99d#DMAVma=sr#BMi{-rofAY-KL!n`IRFjWo8gun)
z*jCJDy&GnP)T9q}Rw;bCiNG}eOcVUYBS-yjyRMK_vD)X4>@Z!Pzr{X{<9&Sf-{4pw
zY5(8ukzUB(9#Ik13|}LSm;cK`nA7F>Mg`X_88jQ2zQYPTaa#WX`{oPhtc!8IFN0Q`
zG@XOkqZ~$%1Ggr9QQu(a*`Ou-Bc8h_PYSdCQ+^$Nf1GEI{0ILtm(kSVw>!Z6`7w~N
z`cO1JDz%4q?bmvf2R$N$2lKy@D=`n+x{r?F>qLP&2#
z$U%=>MNLvU%qFsR^j#>fn`aj!P^)@CCKC}Jh*xhY^4W{;t+PpCB4Ypp~O>!|K(#9|~(pm#6WVpPu6u`sIRajh~91QOo
z#PS{m2t36cgQ_)&Oo*`7&2Rr}C~#lH2p7Jx2WVL^c1q{EsQV&D@l(@_>pNb?Lv}B$59=4zKnU}aA
zM!>zgh(R3QsU|y$X(@k>XfD!*&0CNKNr^pQWO31`oc=G0v@2v
zhaOXo+=+>HrnjKQ&+4?#nD9o=e+I%B9&C^k^^`a0j040g}^foD?Z}Si=$htG{xG$CHE6{4Yt8
zVdML^?Yl$!{$ySQ>;}{=|MmwZihZniXn_hz^`NN|KDS$ioAPlN;RWJ!h!Z&hYlu@~
zysIi>M0WnQXUyl+dsXneTC}c?@0V~2MNdqO`wp19-V%nifEYP}5kbwb@4TdT4)GPC
z+2~HOo7hXy{Sg0F3{q+X$U1&f@rm*MQcjspDhZNZR^r1}edxZw_ieSqOI&b4cn`1f
z3$QB_4%G#ySu|67AuvV$o$4#AkOewG#KSwB`w~TObHmpIM{iY>XxMue<-C5r49_1WTJ8ovMn-
z4yP!r_>T3NV{kl@h}fu{{0J$;t}>!
zyX8U~%u?%NOfntV^K`B}YlE?ILDFF-?Nek4wBxt!Ay`WsnxICiMh4Mx+vm=S?8LL3
z5fW4@6vk}E>=4Khb@S+NuZ9t?VWo*H4ch(Rk9x*X^Fb?f0~sOGW|TLdCSEmyE_b)}
zyHl^R)mo}iNJuE7&W97>Ig!xJ9r_n2&CLeN8$eqFmJH7{6czb9^ba99=M`gRy|z$8Fn5Fy6lW
zC^KT*)Y$Z6u04V|m=e7e2sKxXFe6dz)dR(EwIA9dxD$V5)#2E{UjhDw!t_IQ_4+w8bZn_WQKoHd}=R}Q!
zL~-3zNSYh(l5|^|pU`aqffHm$+vtA1LaseI>dxv;$b;I!aDE7wz9IV9=4=6Rq=f3Z
zQpxr>3Hx6w*7Vrb;^5VLcu&9;2~kk713yMI>2tkUWQS!@KFxnMcw{^I&7mPw(!hE?
zC9mz$)0G&~IdH3cpj!o*g@lp`E32&8`DHjB2#Fm63Vw8t_|wMqN?csMp1od)SqUVE
zIXADsY3yfeqMN0RZ?1O{{YU}0d4{blz91%`NW(kz&n1q6OYCP}g3?4Ky|#JFcn9vO
zz-D>yR~HnoTC`gpnKelbh97W3ifW6&9e1pRueBAokyP;YKANP=FUVzg@4MvEndT$b
zOyJ0o?7)svfdfCX@;S=<
z{FpUQ>R@*hE!(~|S`bIdd5Xd87z&%vy|I|VtBST5!F0DR%v{dZ5$E$ax6`djEi$4{
zfrtwf<(H_i%CgJ|j5TykPN*~M5FsV-*~+d*R0mRd!J0&B#^bAtMJHbl7+dT)gtx*5
znXUJFR{A}ZHX4+X9Z)>Km#Adj&3NOSK}CK<21L`NaM4e+YEpCR$2W1&?i3uq*>-88
zZh*(w_a|){*UaIe+#drkZzKI8M%Lo!&A%gAja!D(9MKr8nei!Ctl^Eu;0S-!wt8xa
z8)VAC9Ure5)FN0Y76VW4H(ED5pPUsnZqsB0gO0BHhv}gOGkKr-?T$6zd~Lq+D!H$u
zFOpsuIq3MbObE+ShEME<9LPE#N`CVbu#*rFSP{*AoHs;1FxK67IQ1IsH=Y1FmM|4O
zjWIFuYx;Y}VD3Pr&8SaxAkeKJnUaZR<3hcewvJD<58cMJnlQ^0G+Vbx0jWVo+H9iI?!^!_LxW%cOdVgo`P
zn%ulDk2QS@slk3$)fpYzw&_f#r#G_fBJT(kE)tqst#EDo}T6E_x+y2fs!pYigI2(?}2(CRI~z4kEAcKG~>)>2L{%-VzgCgSmcl);|~1jqm_a
z-Z}v85)@gAOn$4_k$8%i2Q@xT+SizU5d<1v%(z~_2lm9L4#HX$W_*i$sKAcl7u>Gi
ziaZidomKY0U{cLQX1BXzB7t-3!#Ibxn+s|Q@L#TaS#oo^VKapG+HuJ|$cvlCL
z^2mI&^OB>u07))XoR`*TF6BgLze5Xav8Op>rcGLoXG_NklD?$PKejQjx4U)@qZIF0
z^(o$E=z2y?(lBx#tfkgpBUgow@?@ZL0uI}ScRVw-H-PmRi7I2$9!Fnyzx2FG+>sf-
z{Lpvi7{j=M$`aLi5~XfA`K0^OdI$*^UX#iQeM#)tM`@k4-;Ryy-P*yha^1)==fY!D
zb_0)+%igl=dyP!3fTZZNTkAT>AcD3%S9vHp_Cv9EIjpbRYNRBiW(N&fYLZp_@zY6S
z&3vZEacBp2Q9>T3&ChXDJX4FW8U7$gKMkbjOC}u->ZEfQnh*~H-2d^U0TWT(xiiX{
z!bv&w{X5AD`?%a^j5@Ba?Ya@zJuiz2?`wsKZAjr`ch(6$+mCP9JmxyT+nTI}iPphL
zr}Z@;E1vm2F+O;T*QkPqJ&bSoKGrq6tt6#DS>$%)A%2opx`flS1S1RKm=5g=)L*Vy
z);?9C1&jlgM8xE|j;Dqdh3_tg*DQ=PEP~NHAYE(Oxx+!2G{t`1BXg+v_KS=y-M85`
zPrCw5-r~=(oNNI?oN9O2BLe|k01NUDQwDNK-`YYW*6EC(7Me?9-7rrYl
z_C?5z^WUeN_)-C|!{o$DZ~z2B-`3t>@h1DNs2*98qq_VGH|5YkIOSQi^KA3Z6zzNo
zVQ*^tk}PsjMzwo+c5-X7O~^6_(^`j)>;pL
zepRu6`aJAA??oKKp*+>gJ8bkFYxm_sszH#y+r6#WiZ+2c457oYNw(!IBt6Pr
z#4_>5oSl4R#wXsGSQBu^?0jFIDrR^uY=7a)dTe^)esCkAFu(E|DM3ybV{3CR^ZCcR
zRCDhs%DYS5rv22~tqaZY^EVU|GbjRr+3$GRDdGgguKCKmA(Qhy`^IP9oF|PUTz(cv
z^Fuc?CSB>}vps2o6BkGwAnzc?-BdMO%-E-b&og*0K(hXJfp$5J&cId3y6})|h?hd(
zzcy^PwZ6bcut>#UakCd##=NI0_})K{cB)(V#H5weAgiCOMZ{gk*L`ehilScFiyDwP
zJcoG1O?e>ry{j{7@9uR~m6Ps$WQnD3oa%-7d3mj_Wl`u*9!7{A5drhLp?FwO=A0xj
zsl+p(@G@s-x<(+`_!C~5fapVA4K3gUSy<*+^dHATdo
zp8#qZlZ2aqr#>t3Y6o8M0kv{6`qeMvBD^Zvw7NhWELZgB@3Jn@cB%a!xif+Ej`-Pz
zyi*l-E%cZlEExUu`yF_f_8~%C-~?i4GpyxaGz&JTzlNq3K}WJv;+Jf7F?1<>@5y(t
zoqirS;1#fzd_<)LDLEjFs?dtK8C)PqK*Vmw?feF_@M7~j^%UMQqB3c*1J5;UzzXDV
z9xQZ|LcsPCpui31Tw!e@2awxvVnfF7@P*dp@4H#ZRyin6pw(Ehmd;(<9ZIFTcc-4k
zT(^g}rdoO{6-T^W;-K8`<)n}mU=3W93YSI>6lpw!{&*iMvE>?GgKX8H5n@gBc?Uud
z07}GnAF6rX5->YauIZOw=s6Z03)hxx3%^Y+Zapzx5KC@&VdR~QkI?-nMB-A@{qBkp
zIy2JOJ}=fS5>v9IUMfZsAWKL@T!ytY$5k$R!5bZpJfF1ZMm5?<<3&7cS!l^(CqXnP
z3x}XD=A|;jJ!nGQ_~A`wf=5Gc{NxfhlQ<}U|1rFL#Qp)C+?C|K(UVhp;ef_Q0>WX$
zIE0d*etyD;s3h{m&3Dn4vy~@fd>{ZPHgLW4RtWm>VRF~*{rEQqr(HE|TX%6#;&n|9
z^D4S5NqGU&OOha+lC(lf2$Bw_6I1TQ8?pC>Jfyn4M?96#u6%kqFY&+-aM){K%34q`
zBMLB~6R4{gJxAVn;mfE}ovo@7!RWYz@10vtc?cIxZPVFq;S<>2i1la8d9S7pm1+U!GgAucz(pAiAAcl5Q@5*!j5)m{i-s+
zhn}3qbUY(V_^18~yXV|XiBi({$__FArHt0OlzP|kVT&SJoo6U(
z>8uPM;SxDK*KarbQnfI@w6t3|=hV&cuB3s6%3HzkG~7VgbLx1Ga@I@5B=$A|wo_UA
zwc;9iC}xk)xGCtiDFs$i#kY`G>{1>!>`b-I@pgJ(Hx!v2j21!Q+1NV-$kHZTll1q6
zKro{~+6RIeHu;D3{VXbabj7tvw?yhqh2ZiBZ>GeiHk%Icq6pXZEKYb{x$aUG3>Ux0
z+MYC7nKwnXc1#oxh>V}6^~!gUmXPO*5c}|Er-f>a8}?tvL?(eR<*Y9MB#b6hHB#uMHHqX|5aToZ!r8B2+QH$<4+O?Ve3SU
zJb#=*O^mQPU4a8cKc#=rP-oO5(Na$$dOP-%B{%hI@)sTHgIdnRRtFb*7RFU>pt#x$
zam5?zB$}$m!K~`3mZ|ex=kh5OBDpo|s9WzDJMo6Q{yu=cox&d5NbT^-1AD%cKIuJE
za&h};xc~WEq3Q;s_en7b@|eseOhe+`bK8=(G>sb^b{;#32ZL`T82C(iy{;yQyJL^^
z2}o)hHaH28G~OOJJAU<^k7Nuv!7C4b#k?6g-)+e^b#F%)eaJi3^gf7|nMUMB)UTr<
zlS4)AVU17AilZ-@>D-G%Q?8=YO(rvIVTMzk*O0p^k~KXNWlS!swjtS3`~Z>E7^cY+
ze70ZeigtEY>qQK2DW+_5_JW@o{PD4R8|<p^XnOoi4P)XmSc+HoazzJu|lMe%v5q+6GxT
z-8ss8g=3t{Y(HM?qMB$ELVGUwTK?V3S|ZykRsH*vmvA=8WPCdKC74
zbUFOs`=)*&@3%YfevOIWB@}HkS<`_C218Jxw`05Sq_>N^hC$e?GBNbj-Dv^P?3};i
z_nFBiQ4r!ix#&?BeWPv9!}OSJ6m*e
zC_3d$UHcB
z0TH$9%h?YFP8bJtuuJ0Nxv@TTmN#`JZ;IUn=?}0Y$=X+P^f3B|yDv3+ReI)*oSDcJ
zBmJ6g(ZBvHAWR;{1)>4A(+~IrPtB(v1OXE+se6+Hcikurp)RkzFoOl5E*}(<*rAZY
zD4vi1+YEtoQVK8sRC|UPS5V|9Hr!=8L#;J@FY(zS%T))nNy%+8PWxCcxZnlt8&wwj
zis%I&Q7@kmaNa&4bQ4}hkd_R)Snd3oe_uR!+8^eh&X*;7dLrOBhh9!J%oumlfL{(4
zwqtooH{0lri3nNwYIdAF>YYXtCtuWa>pN7Lw$V(N>UCnvSB6rRC4@9>Z>NR@6~2qv
zhm)C?6U&I|B5+dLHks6QcPBC!GT$heFiVZMvmw%{k@Lo_JCZBV^|oY*?9vdU`L2co
zrNi9y%Z1j95|o$o0$ua^9t!-(uZV$*ZgbtnK3#n?@BO*CghjVg&+%IaW%=yd-0nH}
zHVv-Tbv=PPt7Jb<2rNmREvlp_y(_lTo`EJgKbUj;)n&^5(E0-{UE;mK{}d!kOo}vF
z!;krfd_bF|*?VzhSLPc%muP|~@8heF5G9YnkochGl=hL7$A&)0alb41!Gy2`jsmj&
z4Q*S>63SS8o)cw_jS&>qt1!th;us4{L1b#6cs<7WEWHyl4o*Ar9SGF&(0+U^jh
zt0}cgKuRUoe2jMqOUh5#>lS6`{S^7@$H?fq``S=)uTL4@rjT^i_+8-<ytuI_0{@*t)emD&8R<5nuZv5Z)t5JAT+UFsopo27|fL1=`jDJz6t|lS|E)n
zF%$wtseuDFLamKBs9tn%*%V5#htz%j0wCAb(RUzO4j_L263CZSFU0j^4F$vZiUNxA
z)^Le@C@5*=uBKT8GKRPc3KXz_9*zfamLGiO?Et)tXlJhR|Bz=Pf-MqnnGqgae+%da
z*z~u&hWQyM03LswR0^Omqe!(MhIGHc7Wzc1DxF@+c(RKaJ=i&C%@YtWaZv@4@cey*
z2-dB6zHi-q|8rigv3W+MCH@EPEKOV#&jre0u?Br{vfsHE2Mof_-rSpQ-`M5BM9U^u
zYkIGLd00!C80Y!Vq_f-|4@qafkLH!0@)qXWsarb2fkokBQD|&Mdek>8;TdYJ}Q@vwQIt=-VKhF=xu;
zeKSBVrw7ER3P=-zr1o{cZ{kuiC#;3{Ajt8C_ZFp!_m-_tY#$5nD~TW7PxMK3v^EuQ
z)u7)XhFYy&{XW;0lE9w*LG{s;<$
z_o9LfFhVbxS#A2BTnri*2#cvPlmo>J`|a9612nE$&g|9xZcmUd-8
zQATE+!9`Uw%{;GG(!=v{N5=g&2Gd+_AV`YKv9|br_BTdN6TbwZjoT>m0pd@Mmx~28
zS}mpAC{Hyu@&j~PCWG|FcsYGDS^ik7K;8Y`2Kls4fUwFWh>`(>T2-iLEs4i5M0WLZ
z8-|i1Z~;3rI|c&$ue_HV+Hyif90Uf8
zR(3bw2>jyJ3-!U)%eEK{wq$^Wl^#t0b|l~i1E$p(wZh{V9fMV`8O!)7^H?itXP=qd#&N_K=A`39jGGGy0ekeq}~6BXdd
z?nzSQG8e4ngV9u_)S=-twis?PX3o@;^;o&&WytkkN!1)=4@cA;UrCxC4UV~ipEKPp
zB3hX9U?n$t0BF!avP@0RMrQJk;QTWnH2h0($5Q
zCz4Lhaqp9?s$4h|rv*_mKL+j$*)_dwHun>lf#8;-fT3(?iYYN)^k6Ji#n>i$N(^V|pq2UcqGjYjwAlz;0R1RNWc70we_}x(v+Yp7
zMn2HST8=tQMhrw8Q-Z1yYoax676*K=2B}y@C3Pr^;y;AD)VbGNtSs8uyStY!`1f@A
zINV5XPw2lRl-kMemsVGCEbZ{^s>*{U<&x|xML@P8G*8f^rXSITusrA+PnG~nGESRg
zV7m-TAE*lt#A*E@e&6Hz6Cn4Rnqlk|Z;AK@V%?=+VWz!I!6I+^sWe`5tRg+6
z?S0o2`ja8b?~=H#2nnAy{|=D(+(R9&u^^u_6J1ZyQzwX%Xj>-r3D{4zG6|V7);T*~
z%BY0f_4!w3pU6v>mvFq>13di>dXMCWXZzB|?P~d!>)S{7SFyG7oL{4jZTcCFz~?%L
z)OmY&X}d17x)_cl^77w~+S^H5!tfi6e$&f(eSa`MoL}r~f1qfM^PO*B^lg{J*HJWb
zz5Zm*?U!ETq9wghARC_T_;CA*_6PaoZ!qHgot~=7d{z3-b}VhVd{fIH#ks_X_Sz<^
z1oStc*#~VH{1_{|&1lMz>%1n3$uRgj*JpahcyZl*)=ukBxMDwnj&e!2qZnsUbkW}M
zp#mhC_0pC(H$gIXhybe+ot%VMatwa$gH74Mc@@C}%Q9wrEBh!&XU(TnnPW8$7AG$1
zD?$sn6JPqay9@d86S4xQR*-*s@+(;2f|rgDHz;G}rS4?3uB4iIQb08Cf3DUjCzNp|
z=T~kxr4S`tHlH8nogLDmKi=YE5%@Et#8
zROxdh64mW3%)%Z0V?huie)5r(qez!H#R19lz%zK|{A916Z%%Pifg)ZEbvp*4F*upq
zY1II(*T#0l=|CNjjo$2SqWrei@c^?sVDElGoBDOqcUzUyYn!uk;iYu*)0pVX3y*mv
zMU19j9=-*YW=#jvzHe$lwgn`#D@d4Rb(yY5OZ)^dJl7LsT`$jX4ybyA)Cw-R16hVo
zXngl_)utFj1wY12WC`cZ^eOzO&LR_H&`55-9bZ5vvfwzT;qu&L&5HEjoh0c-L=(vX
zYP(#CCjHw&=e(*ySB?1JAuIoY+s2g9KQByaz?DwBX&T;d{f
zaY#J}Rny(6Kt%Y>(V{E$Pz5Hc;%JN>_PR7axCJVesCyUfY~wfI&=NavZ*bXhG&HL+
z7_Oijn)fY=Drn6#j5;RDz7tLWUfM$JAoUKnyQAMPS()fyII@|~c8R>yppJW~X$x{j
z?~kaxv%t7}gs-TTZGt5Fo16?m(h&Q0Q;ZpK6#?i6nQ#!$avp3ee!3fwrra^kHd<#S
zRy@;`$KU_W-&dE#Ph!a8Z5C4ZQf_nPOqT%Nd1kKA;VRIYPE13*nT)TY4SJ-T-(+q2m
zjH>)9t2v?!wxIs#@5+$!9vzHQ@>(szzyA3%C&-G0g?|!yFTn4r1>Ig^Wu7`T;Vazt
ziMe<2a$L}Zz8Z-hI(Q!3m%uy#k-X5vpJ;|Pg`53dZF(NNJ|;|&S!=Xfn|jpmZ08O~
z)>Z!=nxfsqI+&5$0H!mSTM(23-6;KC>UVE}pH#F~ZgI{JRGMsAbH(5C0dH}wW9ZM`WP_HdCqt+8-ZwX<2g)IC6ol4@HzLxXv>((N~0h;<_73>2gaQKH`1JZ40qvAQK
z+re-?;2xhrs;1^Iut?JrcWp9q^<~dyB|rImhmR~_ILe+L9%&6x3^xG4LvW7Ti~p{Z
zb{Kh^d_~oa7bps-t#TBi@bLNKz?}l1LQ4|4&BkCDlyX^A$irkmX7Ym@HSnD*j&Izw
z#}Gr*HFot~ub5PSn|kVJ8LXq~q+ei8yrmeG@@!40q1ieILfcUG{(5+zfxIzu4mjX-cs-G8j)O@Q00*m%oJDVHFx6^L7h$b+W9L4v50@%
z)qlM-7TQuwdHZ)M^hyQP{~d+i$&+N)*iWu&+Jw2fAgXexxPMhF^9Vj%N!#_K>GL9e
zU7X?y_+DoHdoqE7iBrCXY=YdB|LwZ>C)Q0DJx$zz^S)MIeOdMS-xBtxM9QerffB|n
zZ241iog7iOENS!4a;0+>%vsx(`MBfCZ|5@w-X`w&WAWXo$W)+xa9)BeLzhha)
zf1B467|i-dEv%z8T$cL{VED*mFB})DM*Pj6iO-dsUO|MCgpMN(Tl;Tl%FFRC*~t8^
zGwpiq_;#`gE4*t73^*=$l`6Lc6c_txrYKM#IpT-o`LlBLxum^DiqWGdAQ!(MINc$a!=
z^$ihsH|Ipm=z{3y?_gQ>k@%>>B5BdTqm?g$M`t>}r>&L}Lx=@b3$HTKfwl&&+*)r|
z@)#)nT^$^%{rhtU_|$*;d<=XcxmqN);xqrZk&%DDG2{OOo4Ze2KettRA5wNL(#|H3
zoMQIW+^WPR&>6Ty{wO
zroP`S`2Ye!4qmIT9RTvW8xYLJ;WF92hyCWreNRvepZ-;g%@CWtmC0rwo&N!%FNy7c
zUu7r$OlRVv`}_z(!^Rvq9mao^o{4IM^e36=cT*IcJCO1GNZNYZbcLp_5u1|FDh@Xz;LJ6eCtgdh(9`4j
zS1UK&)1?0MH^XFzUj7ReoGgl2bW*kg0wt49W@KJ`3kp
zx*7+)p=1(mp#*C=^oWb%f!r_QHP=$c)&JV2cA5H9O)>7Ug)Kqdsew}wG!~1#f+?^!
z$amZ=LK2HMLB=5$-6y}n^Yp)bM0o!SFmTwVgk6s|X;|Ov63#JoRTAty#+dy^*U7oB
zcFNnqMLG_h<)Q?QRMBL^;9l=~7MH#m+Lt6Ugw*LXU;7fiY2S2-fcgyzIU-M2C-E##
z_Ezr0gMQsmzp?&;fH=qZHE4=LKAlF+xdM1^hoW*Ntld%y$n>5GIP2u7V2RNUVgx<
z`LVXN(BOjRI(ftB#aH=}ym3(L^067i#_A;br>=REOdsrZN@8slp_IXPKVxd1y}
zlwQyhF5ZT&y^ddA@6
YHZf52vtUz(UO;*Bn8DF3?Tfen2OQIApa1{>

literal 0
HcmV?d00001

diff --git a/docs/reference/plotScaleLocation.html b/docs/reference/plotScaleLocation.html
index 1f94cf81..5bdc96a1 100644
--- a/docs/reference/plotScaleLocation.html
+++ b/docs/reference/plotScaleLocation.html
@@ -122,12 +122,21 @@ 
     Ar
     
     
 
+    
    Examples
    
+    
    library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+plotScaleLocation(lm_au)
    
+
+
    
   
   
 
diff --git a/docs/reference/plotTwoSidedECDF-1.png b/docs/reference/plotTwoSidedECDF-1.png
new file mode 100644
index 0000000000000000000000000000000000000000..e8337252ac176299d94c75ecb8c63c4e571d280d
GIT binary patch
literal 21463
zcmeHvdpy(q`@cISD(6bbX=bXsl8J@Tf!OWP-AO4XSroA%HVJh%r*fP=$tibnQzS)5
z-l!2)4wVox4N*>;WOHcS@AaO;^!a_h-^b(k_9$k%)+!h>?+q5qOUi
zaVrL&;ZN|7n~@uM#TkLdxHzLY@ZM<)|9IQl#@Kp;SFUYLof{Z$1YV%82;3e1iF1ns
zuVS~jPPgJ>w_@SFrp
z!1Vk{e=mNq8<+wN<98PGLBGCSeqSBG4}1yF4d&zX!QcG&UOo~qRpPvrgRh8)N;v%c
zTkMyy(;_13B3Sd?he@d;NCyf-xO2&DmJ*AnDOWR9OsP2sgsS?`=jM0Gf-5azpeJ7cK#8*m#|xn8u(*hiozH#e`4ZjN>jg_oeX`%
zeRnuTLTA@1appVaE+#Q|@Z+}`MT=xsYYo9hUjq`kpbph~Mq7=jnKLG5;pR2cDmbogjrOMdS1r%n@!c#)nAd3w;vJEPsQ9v+V6
zycEvYk)cdIW|0b~qx^HlG;Rj*sXT&%@n)X=yss>f*M7IMS(?mo@$JTNDhK+nb}G}{
z@Kmzvcx9P|M@XIN_0eRuQmd)hOh#vmPgP*Z3>E{8WK1^>RK=dY@8@>o$cX}Oi(B{y
zZK&Ulcfz>#K)1!SRl6=8>B;QG`-VpEd8Wjo
zR8~dHW*==RWZ)t9HmhTce`PuIZuD1KoUgX@Oyx#LAVo%uu4w00hxTCZH}s-{%K^`UuR
z(sL?L>UjTTjZfq{I}KNU`&1!M9n4CpOziBXm8lf4$9&a|FdLmm8zm
zJ546Tzh2$&>0HP|Zt0Be0jaPO!r|^#$y(E>G&7Ou*n5>(+%S`o(6&dnz&Qq~*mQg9F5PG3V|6Ch>nLF-QA?iEYI5+{>p$dNfzl4HTsT!308aSw=&5hnKZc
z!`XI-jvFd*=WAc;yv;6Z3(D{)Pvw$F
zw}l?V>qN)vWJ|^lwUzl!dBG&(NRO(rGCmjaJhtnAYR4(g$Rq!z3+G5_#)>=Q-gIrw<`}r9a(g
z4){fJ+&CPLD&qmGVmgGMA988DXBVk6quch-NXGfpSe4$Q+!kr3GFOM4Gjaat7S0pn
z*Zwyoc^_0`U7^OrJ00F(@F8!6Iu+hE5B`J0Jdw6Dge0
zXd{xHzRfD8`-J1jDB~lm_>{CUb2(czv@naS^NG1%|8|Sf8aln>O(^m26tcpP11p$p
z^?|BEPiOn(0V!drD+qpnyx5AuwCRNrPsVTRyHcox$Bq=mbXGy^xw{;E<;@5
z@!qQ3XSLQO#^wVn2tiWR{(mY0&VG0hFnGte$n>Yt)HMI0jy=8I!u0(8yCGjcPu>*^
z>^~k@?_10=(90rl8@l;zA;uS@N(_I0#LbS4@c%(nm!&y%ED_G^2dp9J%EPOP|Bwsp|$SE5}(AA`vS2=|p>EEUEoqF$L+CE*|
zArFi18v0;RQFfW{Qr@A!b)OkeE)-n7IGWPReUicr^k5T~dw)3X8{XA@w5vKGFo?LL
z=P)U)lj)w;(LMF!^WCt)a3F+T2V`e9OnVxU{0gf0`heH$(GJDftF@z>q|ZIUGEAVF
zwAaPb_k+&eMT?BZuOJkq&!`nUcigdfVwTHs7u7aE!H_LE0N7A>Oy??UfOd#X&C|}fK;!7JZmK~kb%qS}9W{$OnD-9Ngl$3P6
zdKO}qmS8xX@pX%3=i_{Sdd!9FJ=~VTYW^+~C;M<^$mb`@r^{abtO~psO(Yf=pC%Dk
zT)Yp!{VDYX=ZhPc!M(vVJXFPG9Njrw@hZgEWV@kXZzU7j5U9CyFJ^G8md6iw@V(Z^
z{mD(yq-2#f8w-$=3`z#`zap7%1_nA~p~d=nEglfaDy$WeQg|IHix?Ncx@V??XrcaD=N?^xP_v66BYTP$X|+N(<(Wg;}8#;KVx_Od(8
z#2L|phWEa1Tnngh_54(xKo5Oe1q41p9}*GK+C%zHL~if@-dlnel)gm7T-&m%CSDuD
zmGBUhP%|_NjW81YzPcfUTTWGuh>D1b1i#oZ1i9@hOAMiT&lUbX2#GWN)S;_&5npe^
zzpHijkW|D8>i>VZ5$b=;y3IO}4)dW0eQNJS`$YMhmceVw)0mZ$=lzCiV~3>kz0C~F
z>`0>VvhQ@^-;FqY03#^4U4n3k;YIeu(M!3LQ(po*PXyybJ{d#%H=&Xm{}^k+--wz!
z$TusQg)MPb8)9e7Aw{ZzEa;waa4DoegHn
z{mzthKQetdG;>b>an+DAU3k~iq+7WYtQP)ESu&dT?d$QY;*Y%2|Kp!gGYYg3C
z1bsLE2YO|euw_=tUftNd70~&KS83*$$IG7PKFxK@F7}
z+FC_ebouKXLwdUDBY#ppGtXY_Sy}nP
zaHXB2PbZzk7r1s~CE-nBOV&ftK&XrmaxsXLwp?fQS@$nGQ1FpuZ(JH)bz+3ontfm=
z+HySZIZ{mceJ}}XHvY4ZMUss#h-Fj%ioRsL)K1g%#x-Ly-#elvI>>i($ZgQjHR@K{Z`y(mL+
zca8Zz^V&>O{HsvT)MFT&qiemeP>@O?VF0a!F5zik`8&
z4?ZtfcL*BnSn2CmaD8MIVWRcK=fitH4aBw`h|)4iaNi@C8^0UTEM>4&2O3h~KR(_y
zeW1Bnfn)D>ti1ed-`(b^Z)%YSHocR41;}c>)?G`^)iR7_lo~|pJX9-@
zFAzvtK&1JkCqZ{Ic#&=@xv}iC|MHWW{aAoLUH)}u+`!n7;QXay4
zv%2xIO_~wi*h5WuPEEF^tO4jCe>Q$~{(9=r<6#zRLw-L6Zvphc{5YBAcJczliBl18
zkJOo^;XPub{}J(gQAXMUVG|i6YAw!u`9O@CvJ9ThD}HHhzj%HXf*N=xCXwZ~8=lP(
z$qNK#&_$79a=u@Q(eRgm7^@$gdlLCod#J{j^X7*K#DCP=1$u5|s32&&+5@&=X=rgNUzF;p0jZ`MMDoL4TE!opJs$k(Z!=ieh=M%3?!$IpJzCw~FAoZPmDWU}Kl<fq(lRK88
z0ZjHiS$ePeggPYk4;jAar^hONL&;H@X%0bM>-oyM-=EEEhx=KT7iIvHH}
zvhb3?7^C@qMS`)n*3(U7Yfm@&VG*!LK{-|(P(d_BL2Ic)R}-=IyI<)!Q3Udzx#mJT
zlg!ybZWC2YxUbnWP>MVNOAL0?sXKG+((>+qqtdPLvkW+R{o{Z!!(;_x;v^JlyyuQB
z(qNVh2@A2g5!WIaMVa!E(X)v9h?VSa$S9J*NxQ8ioC#>UfJJD6E$tym5YnksV^$X)
z@g!b=LA1d88nIT=)FIY41?y~%`T9w3F|8|S)`wIK{KYcb91_c!JPa(vI6Ry}%+W}&
zQlJj~xr-Fr2vBAU-Zjm*HpMzql;O8Q1FCIw)STUwx@MYwka4J1qYmvNNiaXbEiyQ2XZB~7YH;jrmKZFXluJ1p#Ss{C+uc5vYU*|5
z+`v1%(OY{~0_u&R@J3O@{B*usDk8K&-(i;Oj`6g)8K#d*N|^ry;vE`Jl*u3PSG4X4
z1;UJtv*J&Y?j)|&fTYN6pE+%gverE?3SlE6#xElw-@PQ02=|^To`r;UkHA5?5-~I1
z?$%@c3=?(2kLA^1F#HlIq5B@?~H^Os|(#;D3S&T<4;
zL;58MUpG5MSgFH)GkYxf-uwU!h+HDg80qC^cYRN+R)#$rMQMG!oCFyLb5k;AJq$op
zYtjtR!SS8iPzB7g`W-EC*2q;b6P-Q{7&0bce8blm($67w!@BBu{>}ioO+heQlj9q0
zxh1fFev3Dr%9<8zzZY1p>q~dR#z4Z(WN4)$?uNcONA7#|eroynnK-exGd88kjG!dq~=_{K*;A
zreN`Qf`L+u2}`gyr0dnMw=z`zVqJ>+(D$)BICLvb7jIsWGJIzTjD;Fdw&A7Jl6oz}>rqzT30(Pb
zmK-=b4zhM2@VXaUI6UUef*xr|y+kYZ+dRvce@?Iiw*@_yY(_64lro
zogiO#4jlJg*0db3{KrA_9>$T4`SmsNz^@S#n1iqDJ=CGCXv7{y!^ZcafN9tg(bjuNTL5;fk-v+{J95k1
z5}A$VNB@?jr2*Z#!ZNLdxX*Z>r|DljCSG1^EWurV_I#pu1e2ev?56?k-VnVqa&u&y
z)xHF6a!D<^3d9FRUW0FpbFUM5k7run7?-G-RbI}YW=(yuWLruQ#1CFeR&BJNHALl+1Dm+7*ur)(EJYau{%3Pj~++!JcSv
zNJIucaC!dBcRQ7i5bo)a^W{GWo8;W4py?RhS-B>)3lVlX8Uz~bD(GJ*~_>8+>tdVL&b;kttc
zUfwVs#fTHu%_J%?yy9hLcld6pv{IvbCdttU68${)hn93O^7dzt@G(0`T%)9c*cjUA
z7Yot}y!p~cE$Zs;uK}i$Iqy7bjYHNYF9a;-%+3^tvc%qB?+XdE^~Qcr_>?)b`Kzgl
z;Eg
z`@L-kQN_p=NP}-?E5!-nr^7kZqk~QZ$0djS3aiTc*AZ5G$VR&0^0eaBtG;~aG%cZa
zy0kN#Dz_cg&i&ZPvL}@5wrn&0S47R()d#Kb?LH{aao9yN-n|<+4DMQ#
zRSnB%|1wxU*7DRg?2OaZWi;619%#M0!g?++rMqg#0HVylt9sO-d{zncuMSwNYf<71
z{kaa+X+R&15CPdr-y_%0Dj*s)3bd_77B=k%`nCytvN+ufO+ec~M}Wo~ePrh5de$~O
z8rbzCeKPYs&C#k~jyO@Gkb3Q2Y*A%rH>^N4)m`5!(586FUnzaaf6;;q<>@Xks7YpO
zQ~U~c`(g_yb(w|j5=^inNX@)oLo+^vDn$lhUEg;NlZoqKOcebVfxpv##F0{u)D8IF
z_aiLPLGC}2C7^pAQP3y=F`5(&$k3t&C|
z3_J$NV}9M)x$RSvJjE2_SGhkrz1DCRg77xa?62+KhpZ}6^0|@vmjJ)esD0$UzzKe0
zYm_owjS}wg83HQJ(v)k@EPEiqydWSQ|MgGNUOd8F|C^TwH4ymwfJDX1zFVvVEE190
zy0+6P$t=}y*pTiDtEKteJPNoZ_pZAA1DUf!z$KudXatQK=;Qll4i)h>;`zJx0s7}Q
zE$AU3t=}g<22=n*@+>z5nhk7QoUTjGOF-!P9F2?!g4EGaJxLiEn#>>8I?Ov#IwGpGgw)$+8{FxCmytO|tI_x?-$7Pc%}f_Y3p
zeBTRQT$a-62z-xO8KMw5w~*oXmKW>uMK0K&R(T3(l4=}7>Ey$bbDeh6YqPMo94;{v
z1tP9_`%-tCM8^0C*hg-gwJ&H?ue81ly-xIb{}V*gwst=r06OGn%}o?-(hx^Y
zN&V;xm0J9qqm4ERf@p%zsr1rYPSwhDQ$Duq%(cU4
z{>GQQ{}AXXY^7<(;wLj8_Y&k-IrB+|
zYeIncQe=!wlPlzytD*H0wf96c%kGLm_%CNG-R`xux=;Ho?8nSau=t&sv<16jiEUVk
z5+hASkiv!Gt?nU1vg69UjsJIL7eHs~UP(ps{{KcJ!(<=`o3k`uuP3aH
zFP)Q-NM@2J8KZHa(eaHYT7HiBG01*z^^ZFYO0`=7Em*Ii@TI_%2y`GAq5CE<%UUks
z0jjHE`xD5f?0#8-1`n=!VS7Byr~Y*(7$j
zRi6vp*O5|ZgT7!O&qxCi5WtNjCAxgIe&mg)x>by{ZtVZhkLz0RXh&g>v*x?J2iEI0B_cm-qo6XT1=?hW^U@pLf
zO=#nJCahMR`U?dWZUeZ8zELkZx5T{&n@e3ffmoF8D|{JSFP$OO`bZ7*h)$P<4sAQ?
zc74cY;ytVN^PAm`@9_+wS)*k`5~h|bp{|?H!|eDCn>4rMEQ-ymP9zoCzCHff++pGU
z<7wkFZ=5K!$>i!C#8VWj?Tf)s;3fSBBk-$X{5K0?qrVPse%oW)yj?Yf?Qh+Bf_J>t
ze3M?=Dm3CZ_eWn8BIh-4);fGXF1ZA8U`}cTx*28gEf2$&ek(gG@>1~RHOW8PQds+D
z1)k*FpstC2U+qAkDg*Z(9Is1iJ!omHc3Nm*EL{OaeS>@n`e<+_B1*8l4Twdo|Ems%VC_A7NV47h;5^Xx!&aubpEMqcyfTO9sikglvPu5^
z$M?lg&NILhCL_x!S0mf%;{54Zl1=CiJKWx%=y}$@=J>p^uI}vpvW~FL(q`J)hNLM7
zxYcE2$IvY@uU+KbBPHO>3-An({f9+;p{wh+Ur4;o+UIta!F>~++me@VN)Pr4V)_(K
zf8IUNsblKcH9f{IJ6fWak`7!n^R(WH!Iys};x~oc)XT}!>%jd(ti3*ycXzt)OWJe-
z?4z@P_0el32q3Nn?A;2zbEm~bAj4V5Q6S^|B`@S5(Q~L6m*;JEtnyh|2eZTU_+n3e
z#RAaUtN_luc8gh)PHy?95xzIuXXveWrE}1+Hcq?8$?!y0n7|MNOVlTam0}c;p;GpD
zyMKMM?BvoLD$UMTK3U0}=(-EL|H4Vhu*d(e7I2Zkc98$_pzwp)NCXP!EkA>-i427Wug{qpb
z)who6ymg4vG^|Rfa)aGnV`y3PM-M)dyjIUB
z?&fbiiM?!SXm{%b(h$TbS|GqlX>DbA4G`4~1M)1Dk_$JaBIW73?nRPf4K{=9hT%!d
zrQ0@VfG>KwC&`mJ!dKbho0p|}_GBz(#S`~R?9DDg6+CW^
z$A}xB1H15RIu&s-WBabcUbVox%u?wMDlRu_&ojEOQ{O@>#yqHSD4(b~Ts6FaCU2@S
zZMdIRsIn0)lJln%NiJRNO#Ob6>n>QS1X%Rb>`#(9$TQ7<7GP7B5@HDijGH{r3Dzoz_H
zo4`Va3JmhS>!j%E#3xAH51Z*5SW?35bt$YvK1c}bu0&pN{NOgBvk8MyylXhf-So|S
zhQD?Yc%we&asYU8f@ZsCzC2~mZ3&%1CG1_Lbi
za{QBP{AF8c$Ji*traQ-0E^z%{>*I+(3~q{{KGkpbJ2YQ^0lWizh9
zf`0GqK)9!K+vB`pAxk}^S(Fq&om5xyA3qzEF2W#&i5z32?*tUGsqsA
z$W3>;+)MN$<%YC+QPhgl?J*=*TT-v4D}@cjv+c%JPyG!M_&$i*$%Q1C%4y2mi$;Em
zFruTQum|HazHRWu#=K9Cnhey4w(@V>204eYoq69*D0qqGo(wEI6AfIs#Z}UB@yPWk0WaQzA@g^TYif}K)34EHu;t{(?a49Y!d0}4XCE)4jh2(c==x8O+-f!ed_x5bN;e0!G3Omd>$Wb!2
z=;-g75V#Sb8MS~pd+qf5)*SfkNKKIw$a5=*gaX&Q!-*M@IhTTV2{?TwF~0rB{o{Ym
zE5uNdk~s51DjW#WfPoVTp3n6kfmF)6=Yh})#MHck?2{ePIdiM}t#M6?v$@Ee?t<%|
zZoO03Ron+*;HGeX&XkBG3TSLxPr%7a%)^0o^&N#je^QQB$QXv~aR+!V2$K-9bfZnL
zbRvc7WR8ONUw4)R3HP~`Bh5)eO*a;|{9B-OI17*3fuA;|O0e!VQdH)x{)WTOw_^w~)?e4grj2|Mau;oye7rA)63
z<|tRDuoDD^N;2LxXyXpZIpX3`cWmPhNV^!xumx8%5q0tIr)i8MrD37q~<=$(*p6FO@W{hno=MS;dp;Dtu(C7HOIx4`u(%)0xtj}j$t}-43XbM9Sn6%OH_pMNB
zX}?bm!{j#s>p@pf{hJE7M=hV{U3kU#X4C`3%>b;C^!SZcZEniu{SNcupctQkqVa|s
z%aC2+SdtSs;BNx$#hcqDWd>$!9HRVCMG3Vis!k$-oN>f3F_XVdVnH?V<}oRmJCoFV
zDLbSS7EGEs$V5E~&p-38Cb!u7!g-Sq{2p*&zkgwUS!$W8(TBfxFH~jiA+>?qhdHzX
zXJXd!_%o~HftciV1^9{uBcmAq&KJ5Nm7mnx@;3>jCqRG%x&`%j6jTk}Da{hjga&Tv
zO6h!XE3jzn6V#Zrfedc%!g^?M7wv)rVVH3K3#g6slf4c4i#okV($0W%U09EWAUXl(
z6opN0-mv2;_0NU+F&Vl(!(`si0!|_`nRVyCAsYp0&x2Ex_#w$PHu~#9>>;p4Xv7^~
zXr-i%FI2nGC89gY^M<63`y-Wk9}kTPZu2PWx;RPY9&N8B9ovEH1aCkUEGka)XVoG|L
zE2iwZ+L4*3e!5v$&T4e9@ZGuy
z8&hAe-Hb2wMTcZ?)>fpUjFp1WtVxF$STdqZ7lmWE)r#>naB>GpX*d3?gIRw|i9W4f
z^(U$GfmmVH%-Jf1KMnkHe5~uM5|)|V3VrgHWtv+{0}lvD-#p?AnFTqHfNPNxd8X%y
zf$hC8Pw!#L2k7;OB$uFofZkH1yC;_9aNF;i(AjHqV;?aq#y`JO;V27q=PXLs?q1zf
zq^PuoTQ4|-I+m%2UHXpobdT^7)99Xf!=BF*Dfl~Pa8Xi%O}&Wy*7);bs@Gvrz(+E;
z+#Hq8MMYn8cPI!=^sDMSK5dSBhEFTUyQhvTYvv~Q%&Z#a-JKRuwSpVh~+BA3%
zvfxH|KZpmLsevtqW~9&cMah>kubR*|z==z0Abb|9>6U4u_S!O)pxDc0=F6Zjh`iv;
zwj8|~fbP>nVMn*L=#mxs2k{^*qYvg`vXtB`7rwvAGCeUtEepOtI34EKnb3N>H~K29
zVmA7zz&cKb{LO+JJESOBlF81jcNmdeMMj2yjWRZ=(PbO9lpO}@m}ii30_Yd
z4Iwr{vfV~Xh-T!Z`qHKp_t>MZe7GpCA#Z-v~u>s
z<}@Hhn;K#DG5G!=%2l{mae`RF6Cqe@?bq+qQxq02AN;O9awi-r8y_mfT1ve|cF;fU%BY6IPBNy}_%7Pa|Caq6>_3R0pn7q*&oHiuE)Ptr??
z`bXI28H0hKCy99I;bJ=>PPmltPPi*Frkr+Wf#IO2kB;BIutiY6M?fbpSRV3&uvLpW
z(4X9Ea*c(qHC9|;V*SPb4hM3gUR##%Xp$baoL6OhIW8$LJc6Al-{J9nj+Aox2J56~
zp-k4FLce(zMzVhYP7_K1SJyik+$DdXCZ=La>b5zV9I;#n%-!Q!P%B=y3Z>U@^VM<6
z9o0Z6;bbgaoCdpy5}2f+&DX80-?s@S5QP1aQC1EN755E`WC##iU!A@{S>{8QoBr71
zqo>*Y6drYdnup9PCi(8lU$*LUPX)(+gI%ok_*T8P?NviTr_vU)+^yXH+8I)ij+Vxv
z9mE^jQl$*c9Vl47#bTJMi$Yxu4{+T~d+MsbSQ?X>kUu1g#jVj}PG-Ms!%c2y$2LC2
zCe8O3)Nn*GvJcc(AQS$z7X49Zal(>>2SQQN%~CR_
z8V9`H1KXwf8hoJ9r>Vw%Pmlf5*yz|S!K_aBws>hd#&O9#j5Pl#@x|LWzqH?aH@-k%
zzvf*TH%!vy+nA0N&m|~%;cog3l6Yb#pbG`Vi}&beAhFIX;^|OBil?5?pAN9yW0w(8
zG}N%e0o=vTi3X?xwapTW8mRR|H4CQ~CtOVUCZvmuc}}}1)Qc>oo)jA)Zbg=4Bsq``
z>GLToAYqV7!zV;)se#(UdXav4VxcUbys(8!sVFO?d}zs2l-toWi&>aob9;)ZmOI5DLuLXXP8_Ag-kU#ZxzMzORTToOx5e{EksA<6uo@@@taoGebWBlnbjzDm~t=+-FQ}Nsb@Ix$hlmSxqtc!IDcCoxj`Tz0Z2T;aiu@A{k
z@_bOGeBLXy)RqbyxY=721E@)7D5xuuIQX{pSARJ2a$eXEMq02}YP;=Uvrl6@J6W#VkSQ&t=;QgfQ
z+G(eMTZO(~xk6;eZuh6Zf77|n9a2~PhfFm4)4pMh_v1nlsCpt4O~2?GISo=Uit%3w
zkD}=VX`6d^2sT*F1ZREIgx);4v$N|dUKCvxzq-P
zoBgI`V0~}&Ur}{S21wW9VP|o(F{t|iE^a5`Xi*;h6380(Vh{U}%{X%%b0uwj2jtSL*X1DAV
zkH{|~B64zq{}*6Bp2l8?!VDg+swX^LcDsK6g6dN6IT}6dnV&N7&9(@k_Gc#bsvLTS
zMHHs*)NMzKEmHh6+MvbEi$^$I8I%=4)47HHSya~t{v-q?z?ovHl9P9E$q`u
zF5!Ts=wHB{`%yTaY%WYIU|rCo-2BHE3b3bqldBiCpG5ogcwV=PazQV~)M|{Paf9)0
z7T;=u@L_jv^a3w69J$Bis?T+tD}~yFcDad%w-LNXrFT*+aT!+asJ-hJG@E
zBpgM?d_)Qp6ygj?gGEDug?NVDzHn^732@&QX|XVK!4C7J!`Nb`jzA6}cs?akY>
zvFjH`#gkEbqhrOyHJZN|2`p4=+@wqIa+0NQ7s}OyF5NIoiA}U1H4Dvr-yuncFC?o?
zGO;}+H0+t_y(X*QJVERS1wjjO-X2nRin-8+X+X`k_k=@I14!=jsi)-97S4^#vcp6Q
zLr)+2AxS-&t$w7fkRrM-bm14zEg-#g?efLWO=?$>(kV6fbp$z~tJ(Jn;Eek(4uHFV
z6y_!G(PHz}=$WH2y{qa>0#bM)?)tULA!Oo1tdf9*>A}B!-mR0A#9Y=0s%qgHAT(ll
z%npqeX2n32a#H4ExlXWoF9d~cE!!H95(_$3SK2t%sBQ2LxlGuUbf?rH@$ePw65*kZ
zL-tiW_gqDd2_1lg$xE4ISs%Mp+$oEqnF&=woi2TKEwMHUxkyNZqlnXo_fjye`;syj
zHJi0;^NYbWY-nGXfESXi*iVuskCUzLC1~%votd#9>NGj}OS0UeBq7BZnhE=*VG7jI
znCx3PEf9_@_NHk&Teg{kEIMA8|4SMmnScx~!E`}pC{y+N>8vcHUy&;*zvc59`f7zb
z#j}ga&BvBxF1Ikk{1NZ87;*6W-&BluAm5kEG8*P9Pw?hG$v?Wc7^}Z8`=u3~ykp#@
z3c*#DrSB9lp!Ob=$iojrq#hzQ*KZg15~c+KA&b3jA3KKa>BX5q
zPzo$CS~9cG+SUcw>Syj=?6k}ILYCB&(f2z77teF=e1FF~7OHG}qv~SG-r$(aAdwC^
zDY?fkj&zpVBtH&zsVLxY&-;_7byf&v-&3B3%T;W1ZV$QBx?zU$RCvUoLcBJh68=Ub
z@8GCbyAY8244(9!+UtxRLM{%Q>QU^akyj6)#0lUzh}jzu&3h{JA9~Q5#Rm*R&BgmY
z6OM_!xp=4I`GWM?yqznxJ$Jg0h~ZF%g<=g#@HYjLVleupiFhGuf|~ujVTNAY!Gs{}
z@ddSz{VgG@ARLt1CjYcvq+%Oxe{@}GSO_Y>Pb}_wmDns!5F!bs8-FG^iq*Q9DR*`%
zZqQ-m33ua@vh%{(isWYO;xj9?wITU7QSu6PXm=K%3t1w;FcEt5luq-UXOfF~L-X20
ziWTAj9`kOyP@|+)r6G8d>1~g&?>iA5VoM1vwuKgd2>_M+3C=W{|aJhCDxagpKf3Up2JN>D1
zM<^(Gc?(y}16R8;@>8JaRAMIB8R+tV)zpI?Ws&sl4gyBh-2*ObiD5PCr%ws7Q?=LR
zag`t+P4nJEl0F1kT@V)Oh}7@Vfl5#Bx^a+NrnVuspA<6vtOIzBCC7t4kFpEkT!odt
zJXY50b
zg0wSrUQhPcfM<9CN9HQwJ9Unx`$l0_z)#7*zd|>6aV8f$ZwH=r0R#UpCl@@m13wuA
zmQ%$M{{Lh8b3B|w-T%G+;ec^SI3_1*ji^^7
zD~OzQkim&uss8WZtim}uf+w>-zhoy21t#VmnZeQ^;MI@IS{H=+eXY_nSNrnsmq?%N
z+e?q@>->HTzjEmF3($iBZUefeYbT~(b&ZVod-%=lo}i7?mX?3_2`ch%w%<%!+j@6-
zQ=IQE45%YJs&<6$&C4yH0#K0Fok%R6seJW4QTph}o9kNbRHGlC6@Auz4FkZ_ualYE
zvcGl6vcdP;feCEs&f|H(KbU3zoWyQA7QS`o-bT?b*64izJzZQUGf)2YO$nAv-jKJ%
zG0K*Qdll|z3|tK+4Vm41#54%mVp6%8M>;Z&K7}oQEG2eFWBO}&2`?~m;H@go-sISF
z(I%OozN(prs@g+4!>^}DKhep(mq_;8##;5x(gbSSN;p#cU^14Y%67jrH$0Tn&VCv>
z(zzryxmo*lu++pYa^exS)|W6lMgYTF?9|tC#YRq&-ry)w53j8R3;dv#4NQAXcn6-#
zQL(@yFK}je11R}%K#F-};IO3~wS6pVoC4N>8)c=K8KWEf0mqm=9Rap81%l1P-@KC~
z_@4gfh;RSY%B@d7JT^X6OF8GFvYr(7HA9*1o{J;3>5O`rPG8|)B+@szz$6C=z60_Q
z`oH>LgY2fvDCCFGxjz}NFu@o`tq4*BQkP(aYV9TMmZPq;4r5Wl<25c=8QhMQ;yRlp
zs4Lxn1K;i@X=uQ80laj$P^uxFU^+F}i_zKYeR-gyfit*Yr-Dmk7dq|c|KK)6(|MN#
zH4#1i?3pr|5PSZ|6K0bT$CYa=DszpsXO97cTV^XWbjB1qLn`C7s&(#n&b`*L`r^2#
ze)lA42Pob$oOEqW`z-=q^@t_m=Vfk-wjWVYl2y8enMlAv6;nT2^0#iK-}i1`{e#zE
zmQENqT1O9`;Iugh<#Sv|=LeIz^UXS*J~`V{wdvK&-sPMUwc!<)3QOOeBw^AC%+uq$
zQG#qEh$BAw0m>s<&kKE%E01fU7^16t#?_bULiTHW-RPB;)9*2v9<`*xcc(3TV>(S44Dj@JaH+7z9UDl<7{ks16
zvvw}jKh(r~V-_@YPZ>AAye1=Wpk{D4`I6W}NoGU8wsa^bwtKJ(Yi!qAsVAZ(W`DJ;AsVp7!!_mnt*3qa>-f>tF0|7G|LGO{|tCHF``G9}3RXXy%@D3G;H1rKmyK
zLrn0ov}^3bMqN7lXK`1OXUjl7!IVFdqR_QhGChddbE>mr=GxpoF4hu>Z5|&-6N0DQ
zW~Lejo7pG5e7A(P@!I-3Ry7nU3(UV0_}lmp53i8F}z~4IrfR{It76HfA+=;$+keP
W46bc|4gUw7SPMJzM|)2G^?v}cfVW8i

literal 0
HcmV?d00001

diff --git a/docs/reference/plotTwoSidedECDF-2.png b/docs/reference/plotTwoSidedECDF-2.png
new file mode 100644
index 0000000000000000000000000000000000000000..f0834f438c5cbe81be04a79519077632403c09f4
GIT binary patch
literal 22088
zcmdSBdpy(c`#7$XPL3fV(us0RVj>~Yt8%EEa+=C1#@2G!oGYa{j838ql_C}sIc|8#
zHWem0EXLGU$>jizV7REFY%P!
zG4TzG8$?7z#E<`V^o)qe8nlSWstfB@fhXgCoqjDMvcmP0jiVL#Dk5SmBH|}vY%F37
z-fxNcRf;r_!6W_y{-2+*A9&p|_Nz3$b<6k`cxTx1|KPT^skU(N!rP|4@dF@?!3*>i
z;dkf%-SWEyUX^~g7=D$NewE;z2gbnpf2r_PJUsOc91mV!QUM@1c!6j5RQ#J%@Z=46
z@opK5-10NN1pt9*`M@f{zgv~yopFl+UOYV977vHxQvsMS_%FQj^72YQkxD<~%3I*&
zC+G`i1|z^9qmlt$yh3tU&$DTu-ySFT`A_Yt4Zl}d-y
zOSiW5BYy;ri*hDPY!|MJ-k<)<)ETw2>t^j3kM~()u;}~l{rda&@2Ho)-9Ei)z$raF
zxApmpo8K^qr_M?uB2({9%!A4Ai?Y^;Oo{zJeM`Zh+nqfp8H`1H4xuEbBYN~=MXmmP
zeLYsEVd2-rgmnE<&$i;N(5oy}al?`CO%pL$^;}49*5r%+-`_g}a#K3CYwE1ibcz4m
zC{n$an;IPY>+6y#f%o>qb_w^-#N0T&%Hz6WTzJjw;oQY@MdeUO^nvj;+&5MURtjeg`96knUXPwWiymH-3&suZ8r*CeFnbBcMUsdX3LX
zvb0s&6i--_M0Cta@k+`Db?Fg7(PnNxr4g}Yh;72|2`bw}bTI!o~wW3#4bvdokJ-pCcUj=(
z7~jNo&Xd2VLCi+!aoxxlXGrf1ohQD0m+W0HR}BArPNW~;K6mXPqkUbvA+4VGb!*IA
z)EWGo#=E+3uWI>ij$W?^GSCgk3U!J#(KN1a4i%Y(&b_x#U*2BRSspX2+Hxl`)u@s;
zU~pz8f6}#!@#=Hw=+;_1+L&^%-nM-sKxDVnfAaW|_PPb@K-joaXOZ8XO!&o;}}F*VgOVxlK7aSmH{8^&6+
z!cT;e8H?o9q8R*P@_PQ{$Mpl2fb^(ugs7-Bh{09MQ+<
z^%^mYtqA<>l+96(`bs3(KWN|_|J9Y|b-(?&Vc@u%>FdJ#N09dhed8KSN@9M7hWzRd
zQHMfIvFzF2el+6*#`|CN^02YwsFs7
zS``j|*E~^V;^N9A
zf7GcX$}#Abe-XOnZeh%Wb}Bil#|ZMwD4ch!h}mbFtjJ~sS2#P6x_|YM-D8eAF<=-M
zZesURMnso_>H}3~k6obr(O{qRJ^U3?<-!}j_@cg08|uBV^x(JyCmu%DzlxiVTk_@E
zaBsjGCTRJEh2_x_HZM=Jf2t+U4e2yEKkDc_IlkG{sr;fc*IB1nqB3N2vA4=5L{-H@
zR`K4VO&mCH!FsDSVN}LsG`vEo`MD;TR5o5VgfERN5+S*c?F~ARs=<`;8&B}`Q;thk
z411m6syAD>4=-=(6n;_~V3muyHGJWkx=O$J_t>zp_E
z%z^0NVLbF$j|qnvP@>9z`82uNhxaH-Bj#ir>S68I^_V>l{+>${k&lcD!x
zxZosbVK`CAgZ8K4iR?FK5+Ufw)|p6
zz;t4spOa-l1(nRWxbTULpHgGpm|B0FL{S~SJ6^M`%!2u0yEm)t{_1g`GD2XfD%47u
za~Beq?$ppH!>LcH@*-I^Ic~zKF~gM+1r$xUZ&ixJ=7d8Rs!J8?c~G
zue~ARlx-Q@nU}~i4aCeHccl^)GCedGSjUoF3v`mA3=Yio!HZ9GC2UHR3n>i!Twfg~
zTnVp6?~6A|Si9;|&LeVG8$NrYXWj4Sz%8HNo;vv8NOn{~_h5KIO+i^4{^N5y=PB2g
z7Q+Br0w-Z7;9Os<*O;Sk&WwbC52BV!AfCQG>3V?S7=bEV;wfPhtNJ{h*pH3oX18k|
z*4xRQtwOeyb+30CHk{)t(R=9f*vSUX91Z8w<1RB2I*&dM{95R&MQ0&e;)-X^oy6`j
zESh#0jwMl0k!GS?pJzLnle1CMlakL}NUp)tW`>nPIacMi>2vG}x99IvWDwnl)8pm%
z8e!()jYO7m5PSZc<*%N49@17IExVcJP7`<%Cn%gAZHOuZYGQVv1zO@{XE0dlKK!b7
zsrmBN$u?R&G4A#7F~@$R7fZUQeC)k=4MmAXNN#x5;2e7TaYFPA;^l-LwQaF$b4Y0W
zla8(FO|ieXRqQNrectP4@M{i(YIr&y+g^i`s98v~mFJvO;)IvE?y?=26w-DtQo@XVJSM4ud4plk^IFJ-dA+kE^qbkL9|UVb^gFE%#99cY^g*p7Y&
zv+)J&`QE(wLR9;c?(0cAOTv2siesQ@=(vu)bXLE~&HhDleln^QJ7*H{!R}$yK9R}w
zCrQ01Kb}8lNr~H8GIRpz{$?>|Ma$`{*`-B<$%+Ny72kfb6kuv#EN9E3slWBF0I)d%H8X
z({yffJL>Su5kA-Z?814l7vXx-{6)TxhOr}yoxBHqXY2`c{p%K+&Avc>MNLn8Mwst@
z!I>uB<`o`ZI};Pj;6ls>8$4g0j+f{Cw2m$KK2ZF(zD`3-UUfxf4%&plG1PzuVB%s$A%@G
zr^uZ@egP3zIn7-uq9sk|EwR
z`MYBGrM9df@5sbu`hzZy-MC1UhRcTtkK*ZKICG$J_KHpvo
zh`ag#okririH(amH5(Puv02x@VQALWOVgNyfpk|psL@%;0QoJ6bEB7ZdyCHvYQ|0a
zkYqUBkBa~p8LY`OoYreTnA>PC)9N{1bQzSV`zyK+*;`mFZuW)Mmg9m#OCug43$z|#
z^uS7-+r<;K8jg(>hd8l{ixiEO
znS&XJ;#UVGy3AiPmlRBfKR*zZTCB#5v2b;6USJHn-kcllh+I5PWSmTcyfum>ou&dV
z_!WDYcp=(~zHuj^vFNa$Gc`YM3S0s9N)M?)4Am9m)+t&(DIv`>lB~x8JgL{U7C+@uDyjF
zh0iR&$Dra0R^qzeq?V+-W+g8^BZ5-qo{|o_)`w0!2|<;mJV}6LMdlTq*F&aot+xO*
zu@C1#{7IadpCp{jg&uN4C57RwU|n3DJ*h>+kplSR!E;IQ*
z`Y2wcctI$);}*(@>wk7BkXt@}d>F}{DX)nI1&3E^o(Zyv6L#1g$Q($b7evSe*`x^{
zDUUK|f|x%PJN<$1engeu^A;8(@}
z`bJ@rh=Kp=YeR$vEj)^F|I2=j@9_iqXN4e66r8Dw*%|8fjI{SazK8JPn~?zb7sYY&
z1;nd6H(j)86i%Mf*_nD4VK4&!g!!rDuzz`4eb$dx-c0x4=m(H_sw{R{7o-?X>{o?W
zeaF`8Sqatu&irJ0c0?Y+rb7q~^OjHJd*QcrErx>|Xh0&MWNi|E!I;t6%!k^xtH>
z+|Eph80h&<9n1uKg@172q}f*D2GbgbmB)Wz_X_8I@W_Em)F)i<#*>+uWx|f@hge~c
zm>-oK429&MPem7JL1wA<{-Bbn*L4Nml(ftU8*|cI^75)%@3EFRfLD}4oE3snNRoE1
zGlr6toP~sAF66&xCt|VE|8&`#wBg3Y+OxFD;^SvEp2D_OQ`fLhg^On<3^;y3*4_fSmcb#ATYo-j|#Fp~MkRg)3&+rr6G
z;}3Pp@qy?JW2T63{Vk0}i=$0Gc{-Qe__I16^uE!mjE8`(zV}DMm=YX6GHKSNjtj~6
z5l(-UCxu|UWTR+m|0Q5H@An3t%A#AGw;adrRT9qr$c2jEPe?w)e52%GBwQX5ZvG$S
zuAn=Gr?Z$jX+*dxqN>bL;h8D(Jn%0*oxq~ef8yQ#Fla61q%z{%KlDWPc$n;gE+i+g
z5jJmy2;WLQG*_ezPp;>N<>6KGs(2<$LDNP`Ln7Z{wj0aGPI3NE#SO;eYyZzabDvg3wfhWS1CZ-R~xVoyHOpy}~oVPz&F1
zS)7|BwA5rqMqc!2yAxe3b0al5ecz_7`!iPvdD;0*VduA5G{b(D1Do7VVPtL>Hr(AZ
z$}yy(P3$GcVMBUWj7$q*gTuE6a%0X0p}AcH^w0~zt^1ajqI&%g$4}v7XgT}9$(AdB
zDe2!560{NnsryeqZg4c%C6qMVC(Y@$lrzmrrm)blx=xeff3G^_@lb4f0qJ04mQ~EZT4c5q1%4xABQuH;q=c01
zePvqc3?rtZe!#`MxbK8I0|&mIXJ<9EG!pFi9AyQ+zc~
z3Q5)YKo#2sn)X?ebR{QE+v92?LrbA?KdNUxP}IkW4SS)7bRb3X=$%;DUuFA?juc^y
z=7zB4dY1g1mYEFfDo>-C?)WgO$>2CNa^@3rI%6%zx1s(J`eTeH3#(tEr)qK_%sEYI
zZ2C;M>Q+GZK6%dDT3HTvp2=>rdiI(1tT;H0vjoqZoZ7)OVk_=m7hiFqqWa|rQKc|(
zJwrbuzNC6{>ksXrEPPkxjMYcpN;XtS!Qq3`6;FT>mzM&Q9gvV8nPgLwB8nZqTYt=4
z!DoUEB`U0X$tzipc{l8Ee(B;bBgITgjH&
zNFXi1fK-n#wTw%v@?m_gGmakSQsQSfVj#5YgdI1dPbedf^5>KR?0Dm8qQ-pDl%<6X9*7?)k;q|%)
zG|fp!>PTdjTmfU);Bd(vCH+i5Z(}sqd4{O2T{pB_{HsRN{X5c#d&oZK1hr=32lZp-
zXa2Sx8r*g4<
zY2C;g@c1wLP;Jxjagy~YwnQ(U52ICz04&;iBLvG}A0ia1;3(X1HwceK$zvwVBHy`^
zn=d@^M>@8M?JEh~Qe)XG%8g80-d_g-#9m88RyCxep5_F_qZfsWu=apjLjsA>a5?zr
zW?u@SQ&Njc6;l_2%s(Bv?~|vMN6pNqzKZWvBh7NY-lD>DDBvaMo-=i#Vde;;|JDnb
zo**7SnrP^ap0qU+=TyIwPY0fNQr`e;u}T%QlUE9
zy10RPwVDet9DS!I<>H;Nd0Ba2Kd=V^Sjut!A-gH7p9Hpk5^99gQiyka&XG^{@7cu4
zzQBC0s9!Avb+6D8xGVX>Z?fd9%R+^j`hn!YrVb{dcP~RR5}!5h;+EV1=F6D25cTte
z;@wjvH_~Aky1Q`Lk?u97#e-5GwCp-b4v1c<)83+d>mCFF#5?ENUIk5zZ3Q!vZ>xeZ
z1$vf3O(z;)iwY3urp}<7TTQ~QX+NZj2~AC({j~q$mgq@V2=Urt7|btd5F%oTKo@DTdH|7hXV
zv_mKj(7xHu8J#eap73N?d^J%p0*o|@tPt+|(XhZYeX-_%$@B5(7-6qKo0|#=>{qDQ
zr{W3Ayt8|ovQ%ZT}?sfT6`NPyBz9Y
zAHsxIphEiIt@T%huK&i}RFL2O8TWp$qUJJIMc0(M%L1_J{Rif1PG7Z)r9v9;-0uKp
zcfBHJ-6xv_AB&7(PATbs5#n-uK{Do~rFduf(}R6d(cYp$d#v!H-66~cumKk}sc7UF{XQeVN|twgl`Efh7Ki8W&PH=nX$++Na1Dpk_|u{=S^MwaI(
z;i~RF#Fcmm8K;VwE^no=YiM~P|HCXu8->1v>?^FgXZIEKz*WJD7hc?mxPzLYb9X>d
zfL`ENp6F9<+smxrn`^bJ1a_=L$M?ynOC_{A#RGE{)03ahS^f)O^9fIPqyq|K*s6r~
z7FAhZ@2~*ul%3KiWo%Y0v15JZzwouhXP&!oyyfDqi|aVyZL%JB%_b9
z@+a-`o@;%fiU~bZSUmdXabbY!Klwan?$o53C=@YIxBRS8&r!7ZKh)bmI*1_RB@CcB
zbnG8Ea5|N0+pjzqcxk=BXQ$_PHsVH)kFk{X5O1&wLN}TIME{9#n9twyrs%u?ok8us{y{
z?%CC*ErIWYg4-DZ7noUyUj_8
zyM(9BfApCP?cVomn^JyJ
z@oGJ9p{=_i+!}@tu0@5hG&m1uBGj9EcfDNZxlV!Kt9-hcF{#hr|8U^h7LL!oCVp)G-pUoc<$oJVz+X9mG)+!%KbiVi`bX7rqjeEJ_bLgxDwX-
zhCe!iwK%3eHZw4ISXafv)c7pHEYc(D7wax~B1=#ijABMWSmIhGuG`)3K0Hq;?&(z+
zCl=g+yr8D=&%|?Tz_z3j2Yn==rf;^9rrRdJx&RwGE@BEgJJu3^bD(M`^KX`&`#98`
zv_Y^iAQ1VraiF1{SW)AiMxRqb=t$5PN+#Y$!We8~0|Pkz7|1IlvdIkrZPqMPXdG@4
z9dT>saxxDdRa0{@nO^P{vXDcNQwCuLH;=UUQiMB#z9DLKfW*D1Ge4rL%*;xlA3@0T
zRQG2q(qqbY=H6YK{k51JGh&@vG4rR>(jFPk*9?X_^Eat)%4&ALqH3utQpu-Pn$r?*
zgKzdNm?g2(y=7qS-t)GeIR?Cjx9i6EfL&RTG
zU@caGu`V~iN?AVsj0;SuDgZ;9z)*N~7zsn)oWL50oSB$tm*4in83L(6Ppj|W=ATwh
zFQ-j{Jo}IpNj!xTMS>144rAR&P9VkEw6Ji;UrO;AtycFQJakiFDJL79z4iSjJsFPk
zs~WFzuXoK~RXKOND|8LBw!t$98EMi883!(OahMlcTEEa>Kql($X&FVwEgTw~f||M!
z%mPtSBV5rf1>+n)n@NtH5fBCW=HqE}ML(9QW@v4%M{I56#Fz)EH_i6h7xnI@p!h5$
zGUEbm3&%_H`>%5Nf49j?t8>mLY+VHbknYwY`gj@Z@Os|KS?=AJ924jKg5y6_RzOsl
zqUHC+atT$QebE0Nr`_H>gXQ>bNtv>n;MzeDW9az6)^997%v>{v$1wXH24NjS}3yv?&aL)m2E5_+AU7DG0>&~S=fK@FH
z@_mChdjio40E7hBZud*0o!m)^+kO3ePQFv&EM?hROrt7DA_4<(Icp!sEws5eq~wVAx6{;$5A@^HrHwSW+BEAo3nH
zvlgx|r+Qo>(!w>FyphHEI)&M}z&+QK(MqaJO7rRNeYeRh8^oRIo4LMoDhu8y%
zWoFJw^*^;VjqsDs37{je`07q76OzcRpDqb}YYt1;;`h}pds&5{Mv#_^16bFz(9t@@
z{I&bK&VeieFqP2#x58~rp5CR=jub#LsVU1=a)vU%{`qs(0rtHjkzq48VP=;K%T#!qqzzTFlpHdU(4&OsyagQltQqOb!)^TSCMGy^yh)M
zQnR#~9S_{dj5XYRW%_eeaNYhN^{&38E-qCT;zFw9!3J+9&s_}T-IR2uFE#m1>sGlC
z;tuQT$4VjkkOiy6>U1@@skr3eO+-h(Bp0?f2%~`FF>O?884tQ}!TI8ERpu-9{TuF9eZ}HmN0gYB0%B
z>=D1|rit$C34Q-x@w?;EonU9q9v?r$HSD^i&NJBNV-8LI@9qHok$w>|(c)
zlw3h#!=TyAsY#SO2}0=24ZrE~`MtPGAf%M7U~7
zRlNOMbo8cnGY=lO!j16U#Mq?W5sA~G1W|r_zM{)mLS`bJeyZuk)2*G2vX+4CLj&1j
zTtjnGBDH%hGle_`yBrKXlQ8n*@m@d!UrMt4JiLo~kCN)&z4cQIZrwPP0w@rmx{Ljg
zk}k@cskm|he&^RF>5vb#jz8u195n}tsq9K~(&po1pyLiz<}R?OEJ33bVI2nYwz?84
zMX>tks}XtZ)+-%3vL=YL>zC}_S){0S=i{?$d^t~~8u%VnCRhP9`GO2`mI*0mYy57L
z`Q7=h&sC+QO$n16HCe+~NJm=UP|oNRfZ2Pt?cS2!8T`zOwwsD6sZHP14i0&OU{Z)V
zpTXBzZt>aWWE0q@?x5$5U8EE)Z6$xRbtb~>IqlLM(wS9FZw>T8KyIHv(b%e$IJ`Hu
zBVHs6Gmavr9ZWfNv{?85mD^rj
z)Hr_ecPe)Xsj@)2?WGYcfS6eQ@msT)l;mn9Yv+N~fd&(5E-dj2~
zjlT-U(Ls1bH(f^n?}&#n%V5J%As1y?cQz5;ngyl^#a5Q}K^igpUR8qoFrL43dqFIW
z3=`w~C2G@Fc7+oK=4Ic{`?`%;VmhBOkuz!2-*i8hnTx{%
zL6wF)$;OPL+sNQp(A!KlVV?>3%+a%pc3{%
z;bV1Z2*+TS=My$v_|{H};PfO-sVnt!ouW;eFK_{EC?@?PhKWmO0`|L;^m&JhKD&}c
z2L{Ah6*gVSygJiCRIy%c!RdXh>?RLxpv^j5@nm#VRM=v2+Ym7q!K;s3ba8c=2D*fi
zTkMQj+&k#AFkc~gQm_7JkdtY{z&C-4u{^wEVSYHP1PxQ-ctfMZqbefHKTaoWeaA{d
zvRdrR8*gNFZ+DWEHTjmWB6puTdq7q@7&^x9P~DQY5i>9_9mG1PbQl9&!@L=4-rRkA`I
zulG62l;t$>D63Bzv1kKQaNOpAR?YSO71VX*=hWy!=Tw>Qid|J^En%69r2App8niv{
zioSe^81WN{+Pkbw%W
z>hGIHRJF&Th#w#6cRlL2fK+HRsSh%*p!3o?3!i?Eqbu$di{GoB6)(@-9IG)?k^Xsc
z++uHyN%zK#8g|aT@IxBcGlE}Lu(P8f3(TP2-k=~4ile<>An;5cD$22(CIJPT5o|sM
zFPj63m8W6>M4Nb5bG@~?mg10b@5g3KX>q^LIbk3!(9dOcdMF+IdO~!aCUc1D+xoTO
z87!_khCLFVJQml#?U+01o${VDL~l}szTOHhRVAYct$uwc^WaZePO{{Q0H#Zu%hwD2
zVW(lHE%|7erFa__#VU50Km0Zp$}1@7UP65V7?~d<%?O8=p$$5vIa^7N2C}bPBJp(Q
z@2}g;f)lImjJVcWx+cvn`JE!oU|TYCnFy_yZ%(K?_dY6iBP9VG7_4Ai;(82Zw%UU^&~rv|?Y8(cDZfUhts@J62qIOd
zn@8-1VAM95t_+<)#5V4g5TK5Jbvs9^_RvF_WPL;kXpWi
z_6Eknj1d{Ony*8tAkH}kOwx7y!v%Yg_6$9|Ri1_A=M(;0Piy7jlA`lH=RwM3Io(H9
zE(mxy5=JV2lnQwwu+XrF?Ai}>x|FnCONU7d;!TKgq+9-jXhK57$AcylmW9A8ek(Yd
z$jBQ$p@;MXo}cg0vrSU+9zA6#;Z5okoMULVTFOPcERQVI*?FY5O}0nNq%15ibDx0(m#E;1w%K?rv|kN2d{vwuRt6ZH+1v
z6Pz5kskZLgk7WFVe_j82xs2O1;%HE9fC$QXw@v^$U@OZBpf>^_iBT5l4ekU^?2l^n
zC4PNXiOLs`=(75Stl?jT=D8dc6N{E6v^9-L6Evr(;e{#Sh}$Q_$)z7e#bubHXH?^+
zXb@rszqaZ3*T$$`g07?rztW07#zJt;frvzO%p9j`ps(pjW%F26TKU>P0SS*5ey+@l
z(103jer
z6?sZRb1T7&wmK_qZ%|yUM{wz%(yNIcu3K{XS5HP5NrvnWlOyBTveM5vJ6Y;5*<}t<
z&<$vZBuEr=00c0cT}oV2%D;HFXwuaZQG>u@14c{ZR_;*VMt-=VsU_Z%Q>iG(%0aVO
z6|yetXsM_PCjR{I%zGek2>B@W`PqITV&_uP(-xxXXnawE-OahV-R!*LREEd*~VHLQbSX|wa{l(SmFDjpf&;kN1h0E>D&AHd2K2OOC
zLr?q4s%J~D&Avj`L9`%cTJjUvTFz6WWLtC28)GCq`P~kpBNfPHX3|{ySW%G6>F(0K
zx#+W9nc19;ZJ=J0)xCW61A*rM-P4x_%OcOsPXr}%u(5bKP5R~UcSIve
zsld|(aq4W5`n(t%{2Ua#yeHPMnLqhF8{{FH*RuP3io;TcZob1iGk$>Z%l2YEo~a2$61jEPB&h{9l{0M~$v!
z{{l;~C11MS_I2DXG~?aAM+xV)e7%x5P6r==d^X1|&7Z2wAuT2k;2UU6fFBGUw#
zJj_3bud(vUc(+9`3Z#UTQ%r)-kD()3xNB&K)m$n_Dz9btu_^+YZ*O9CeA8_&`wz@YX&R!Kie;G
zgv1ZfSVkb3m3&)t413W3a&c<5^*@LvDENo?1@ED~?SFXpv1rrfGUNM-2Bjx`1-^rl
z53bv-?5Yu@+Xt>jpO-wNPjk*o2rFzA
zBsdPXgP4ROhORAO>V>VW;;ZNZfphqO*ZM
zi3CjT1_2q6MpK=F1@gu?#gaZVVoTv6qOr>JEeMz8=3K&BB
zegD7UDELQUP_K#_&$Rx9(+gLlU)FjRbT;E%kN_&#h+!peicAeu?6)mx(@<}D*->WU
zsWB}$_eIz*GPp%-4=1j%mb$~Xg2pWz+j0>?&h?$EqFe9T_;i^o(yq(Y~02SCx
zY*pw@{^}FZxV0ROc3L(nyVzswpmTgRT-Yfsgafi`CZUST+-t|A5F$ug9Vm#>nXo=a
z`Xo(OI)a07B!F`D>emWNt{V7;kw0_|y$TaDIRN5O2;}BcBP!$kYyVpU63t29k(0+1
zfmIz%asB&(ljY65xfVivlbRzk-5qe*#0LhxxHa=>=-B?J?W+IK7wvdAtetjV`+){+
z<*H+cOyGV0zzM?&GKdyDuwQXGq~3rte*PTUy0@tQ!5*;hW?V8@`R34iue?ISE`q74#&VtRRm8QvVMPa;cz#dZnX*
zkzl_(V@LDLFOgEZ=+&Tl50I-#KVVM!1T@*UVJ0yKI0y3n;wYB3*;?{O6?4)Z_leRkJx#WNwj;a2q=?pUGzMUgz@-%-raxl~#`Ec9uKf(=+
zahczVRXoe%LLPxqM%Xob?re<4A9UnyqHU*)K#gsqGR6gz%{;tnx2rqWZ*6(r3`!ncsh>|ZvB{v#D+b)d$t0TU43>|1LDqzoF^{MpP8h}hvA)1g%PX{+C{>O|Yo$aZ(;f`00
z-=a^E{W|WojeM`fz9${+rSc_az(o=yQ@+sJCZg({L($Tl_t_%2N5Fq=Flu>~#=L>X
z3xf*v_OUItf|2R{#|0LMd
z39Oj8+^X!}Bh?@)Ss6*%OUW`NOit;XAeqK*n4~a%#vej*jg^c~$3`Z4JmBk!>9-YU
zUi~+}K<79q#^C^s!oXcS;ZCBdZS2m4D!L2-iMcAnb#@ZZmf&zs=4jvO`+^>pD`>2E
zg3qC6Q=@#xJ+LFZA7?=9^qd1};ab^?)VZqmatTg%-pqVncoj;|l(}>yy4jRDyFdP3
z6sc&pob$JZA7`rf!@#QHexOnAhe&@)_*!JGq&NQ-5s{7I|1JPRN&c!_6&0zF`v?uo
zb=lzJCk~LY{C9?sx7UM-p|7eZ6Bqs#g7iyvaq2!5JXQK!&ty>kp`4ZjX_7sgB4JRy
z+ky+1(mm@_kH*gr+`SK-zLRiS&g$e_U`O?>;?h8^2&l5@{>PYY(0#_y3@@}$s0F6&}Fvq
z%l0TO4}!}JtJb&}1kJmY986+#UOK%4+bcgDR9`wfvK?BAS@XX+0o`(9lL(wqG(oiL
z4JfCwdTiZBB&O-TqykNunT!%WDa|qeoO#pz23`L6uJ@VoNZQFSqq#m8u;7F>Crz^E
z7l`#s$gSIu8rKsP`yW(sPpkE0^3~UvR!P;9Mq7^?Wz`z<)U9M!S4*quJewDK{8OFo
z1(4DrjX4bH>1qY6C@?ApUlyt$-lA=ai*Hup9=M>0eIw0Kz9R*p?LMc2u3~GPB
zx#sP+ReTFJYzv*^sjEppMA<9lUNaQ5ehq64UKN^wtYgj~38Dz3=kMn9g7N4HH-%vt
za@GzEJI1QRnP-!n835X
z)Xp)vmzUcta1IuT9ZH8M*CN`
z0z{rK71?sABC1pWJ`BX1OREwv!bDSot6@Rf+?LE|DJ@BVDSSJ00cnv`g?{bZ@4@E=
z3S9Vbx`vk472~7uVCmp-r}+44b26i5kCg5!3z9xt>?U_Bojad6W<^SMaVAY9ujC$4
zBAY;HLG$E^cLrX_7!1KfW;0^!i8<-LDAz90L8IqlUtd5P-Ni%qGBO?IIU7*`VjO;+
ztN4p!vc04r1opl7@)yNzl{#TDJ7xTQXx$+o14gz=7@sq
zfpIq|U*cR$N~*4Gm*PsaX|17WO0aS5rMAW~?63FnsyJ)phc
zW!ml_aS2a7j$6;)et0F6@s;@Mx2nu*?sZ0qO55L@d?s-0MnN@u%xhVK_B3r1=LZbr
zFW0fUvE@_8*!Kjznc=tOIn;}1H!L?;lIB&J8^{|^ND;zuwwyEFpL9wH%16nJ`amh&
zFRIW*qh#i@RQh=jdy_Yqs<3WV=o<@?3~M|hBORv0?wU~D#T;^qM{i#Xm{mUHnZY-I
z=*gkDGUcaaMlB+Ky1GzcFWdFwwj0MAtvb>DrbZnM;m<*#QTx$WV-
z92I}_nPvmlMAL=6gkQZ1Sf}kwSql;ySut|koMKY@mnx1wumq8P!J)!>x!vsXpEuAmxU$-q@Ss;2o&|;NF(z
zlw&UPF9*sVc(o&DpT(x58?ysdksg4%ktA>A4|IWyn+MvId3c->Ah3hHkvgxE(Tmg@
z>dboE|9Xf)8S{&MRtO~U0PO}U+sWW3MoGQ8`mZ8IDb59RK!5~ktSFUk-@oTG#q~!?
z6R7SbZjmBb<6=0qz%t$oPZ42{N67-|rzssl(S!2b+_b88bEajS8
zU4$Kcek4`Ho5^M26WIeLJ0auuq-?(()VcCFK{|52iN7@w5Ia3t`6Be3Wd;V7DWXQV
z{-(6Tn!hbgkVS8Y%_(?KHMvLY7pZGb*%=-|v<@rELXwlxn5Mq^`NiU#?2F6es#xa`Gt>5o}8!VZqHcUBx@#67$CEY1ebu
zJ7hTdhpTV=tE(kxkuL`bb=pnTgbQF$ry8mH6NOPf4ie_7OgM0-`UvcqO$8^fARCjb
z!g{we!H!J=z5=MbY_rFyZKpbE%e_EnWhk?3mB{#{kV(%mAZ&64$8I5gPu|dEQhjft
zJ4Lybtfb_@m*M_7o|ctvJJx@=z5}^gR4E$g+14oFjy|pVCtRC`8Jb$j$_95rGU-jd
z-MUBkd$LM;IPcNp&HhJWch+(3Fy;FjhnB__UAFT@$vtiQ%<;-J{U@fTY3LdD_&q}-
zGvbghhEHM->-UT7j}(Ot*9}+D6>Kf-yh}0R#Vt~N#uQVm)SM24ReYu8!Z0_-ORrL_d}Iwjnn10ywFR!WbQmqR1Kj{3`s^pH~XI1yC}
z1@;m~Dd@riGXDVkfbQ^mAS#>HpxRn%B=_5rJcF8h!JYP>6xi25E56r8hUFTuY}^lM
zacT7)0KJVegasqpA#sC`Y31OqJU1ET?d>DR_w%)z1FoUJf;%G;taQ~Fu3d59R1>L4
zbS=_3ahHxYw^G-itfanCibFPrnzaHWLfZfCS=OxW)-<$xhCT~>cQ*#r_s+nq6&Mk_
zXgfN{6Az7ca18~clBGEJq72X%dg>InQhImhR2Lgh
z*^_r{(2S${Qa#u$-y+SX*9!e3?stXN#8*$m$f;LBP
zpib2L-9B6i$GbbAlE}OG2+M;eCkLg;nijIGipI0&R9V5^X0)}ZDYo$WQ#3epO@pAG
z8QA<*Pm;3wXCLDRS~cr|;`>M=m;E?Iu
zxhmv{9APo;v(I%^ydsVqp;}@Tws2FI*$A)^&pJneEe`$w2a_=rf}Bj$vg=)v#-P5L
zTthce6VL<|TaLq(hzOZhA?
zTAHZWz-{rf{-kN!i3d^bUMi%F#rf}_&d(_?ak?ML49nF;8B`~Q*oGoCIJ2=kwr6`b
zpehBL>J>2mqPtm{bfuy8?NJE+6g&g`+1u-XnLWcR$V@AS8Dl;JT(z){)e_=8YxD4{Yt;a5O<;Fd~}!XmKTLw+<-02haEX>(bJ=(T|p_>QMIc
zK#^vn!hi0m&)x7_BOv2Bdrj5H=j_F5ZuyRX3KkPL9!gDzeUerGlfWQT6y)F5Db9a_
zieJ_L-<%kID%geR`Bm&%{kw+$eG&bt5$iSoKJQs6&Je4k*5QS_wp(5*_zeqwY2l`i
zQXC)tk5=3e)$Ca|3VBe*L?bay0aPtwzv@K0;VnydWfbpvvhL1E>)|Do$^Ib9L+C#p~pk@o-d+x0!n
zhNXeXn7O=WN<9A9+Oe=1RcWXxn($k@vHaxJJ&ij{{eNq&;3u|l#D*3XQsgZ&aA9pE
zuk0c!p5m_I(Ny56p5%!|jEd~wEvC~IG+%3baUY9vf`Y8$eqN7G2(4o1x7
zqWteNd!M0CtVxW6e|m6^lEqU-g`Hi}oBOW%?DMPd8?!$3?na+5_^{ajH>5EM!VCFd
z)4S+xa~J5&H_
z>*%RC-<>Labj?xEoi$1`z4sKBan=L9vsCJ3UEYJ)3P*oGFAY_gdFs!`pgkw&#P+iI
zXZjzSFI}M~@$ubGtGNBqymLdRPRb1RnYaCwgRm7a6rl1BALXuxB`w?O_QK|_XaF$4
z=d}O>+y@xoE7v#dw~E<6``)S_uej%ceN-(3j4|Vbo!j?(yu2$$qJH9|+686F&7AXM
zo0e};etMqwkI)?0L||_HZ;iF{j@AXKAw~AVPH_f>QUQI2hIDEXFN(J8`ncuakCU&q
zuIIhS#?T>N;<$%ln!}z2+>cl{usmW77SL}{><|Z@E5QI9gfn3M$RyEJG5y@r<*R?+
zuiX%}_utWP2fNSbtq;3??^p28sDA}tpFKaic&;Px1jMq%+vkft0&OXn`{?W3j{WEF
ze>=8*p4q)?cO(x?a@^ycu6-{)r*($+=aZ|Ry#2E@e|7uy;)T=L?(S23zV-Z-M|=MS
z{oHo#9K$r8N3m8j-PhM{to&H{?(Uk+zaLL;t*qa%ch|<+3gEGFrN*~6nY_68?dtN@
zxT%k7C+*)?`O)!l?%TPHI+90rml%D#cfS7iu8k#+Ci@)yy|8)lqv>-U-%pX&Ji5C!
z=1uBvZ_QV4+^f?WyxBhL&0SmJE&NXX^tSVN*L>N%+~9@Zoal|Kj#P*3U45%i_1-h6
zW1{WFCdaqtau-F;OZ}Wve;DDi
z%#A+z^>?5_WHIxu+8S*TCT9^K{rR<`X&R;b@<-u{nrp<55++po3F
zTN|^wjBP`T!23%#XMf2Eub5!HWATl!*oerj8(uSs_kaJTw_2{Mh8Lnj+c5fZfW>DW
zdA^DuZJyg-E52Xdmn!@I+?Mp!z@_7BrU2*SWV0Kd0+%8Ct=0dvWX8``Zp__3bk4>zj_7Z|nbGP#r3t_2Xaj)l~&=Cl*0HQuXuQyEtCg`Cr;^UwvF7
zvR!J8?)#$!z;hnopAERT`{A+hqZbadKdrv^Yt_Tou-FG4f*DuyZSybLBYOWoxP?{!
zE(@&QJzMqnzPj>FIji5!j{9FwK6%cY#BC9aWd5#&B`^ktdB9Xl8S(Q!qt;8l%+$8r
QSkQ^Ep00i_>zopr0I`G3ivR!s

literal 0
HcmV?d00001

diff --git a/docs/reference/plotTwoSidedECDF.html b/docs/reference/plotTwoSidedECDF.html
index b12e1f80..7612ac3b 100644
--- a/docs/reference/plotTwoSidedECDF.html
+++ b/docs/reference/plotTwoSidedECDF.html
@@ -142,6 +142,16 @@ 
    See a
     
    plot.modelAudit
    
     
 
+    
    Examples
    
+    
    library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+plotTwoSidedECDF(lm_au)
    
+library(randomForest)
+rf_model <- randomForest(prestige~education + women + income, data = Prestige)
+rf_au <- audit(rf_model, data = Prestige, y = Prestige$prestige)
+plotTwoSidedECDF(lm_au, rf_au, y.reversed = TRUE)
    
+
    
   
   
 
diff --git a/docs/reference/score.html b/docs/reference/score.html
index 2ed33a12..9a4196d4 100644
--- a/docs/reference/score.html
+++ b/docs/reference/score.html
@@ -114,7 +114,7 @@ 
     Ar
     
       type
       
    The type of score to  be calculated. Possible values: 'Cook', 'DW', 'GQ', 'HalfNormal', 'MAE', 'MSE', 'REC', 'RMSE', 'ROC', 'RROC', 'Runs'
-(for detailed description see functions in seealso section).
    
+(for detailed description see functions in see also section).
    
     
     
       ...
@@ -131,6 +131,22 @@ 
    See a
     
    scoreCooksDistance, scoreDW, scoreGQ, scoreHalfNormal, scoreMAE, scoreMSE, scoreREC, scoreROC, scoreRROC, scoreRuns
    
     
 
+    
    Examples
    
+    
    library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+score(lm_au, type = 'Runs')
    #> $name
+#> [1] "Runs"
+#> 
+#> $score
+#> [1] -0.5933797
+#> 
+#> $pValue
+#> [1] 0.5529271
+#> 
+#> attr(,"class")
+#> [1] "scoreAudit"
    
+
    
   
   
 
diff --git a/docs/reference/scoreCooksDistance.html b/docs/reference/scoreCooksDistance.html
index 3d10f2e8..5352d918 100644
--- a/docs/reference/scoreCooksDistance.html
+++ b/docs/reference/scoreCooksDistance.html
@@ -135,6 +135,80 @@ 
    See a
     
    score
    
     
 
+    
    Examples
    
+    
    library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+scoreCooksDistance(lm_au)
    #>        gov.administrators          general.managers               accountants 
+#>              2.428267e-03              2.832697e-01              1.626121e-03 
+#>       purchasing.officers                  chemists                physicists 
+#>              1.082658e-03              1.377992e-02              4.882702e-03 
+#>                biologists                architects           civil.engineers 
+#>              6.387086e-03              6.269429e-04              2.971297e-03 
+#>          mining.engineers                 surveyors               draughtsmen 
+#>              5.231977e-06              1.622283e-02              4.172801e-03 
+#>       computer.programers                economists             psychologists 
+#>              9.065386e-03              3.516136e-04              2.169004e-02 
+#>            social.workers                   lawyers                librarians 
+#>              4.736014e-03              2.362512e-03              5.954443e-04 
+#>    vocational.counsellors                 ministers       university.teachers 
+#>              1.987192e-02              8.388665e-02              1.484911e-02 
+#>   primary.school.teachers secondary.school.teachers                physicians 
+#>              1.584048e-03              2.548978e-05              6.166504e-02 
+#>             veterinarians  osteopaths.chiropractors                    nurses 
+#>              3.858089e-02              3.102104e-02              5.185906e-02 
+#>             nursing.aides          physio.therapsts               pharmacists 
+#>              4.911175e-04              5.498177e-02              1.893992e-04 
+#>       medical.technicians        commercial.artists       radio.tv.announcers 
+#>              3.391784e-02              5.101554e-03              1.935625e-04 
+#>                  athletes               secretaries                   typists 
+#>              3.390048e-04              6.852068e-06              1.779877e-03 
+#>               bookkeepers          tellers.cashiers        computer.operators 
+#>              1.487824e-03              1.014634e-03              5.068692e-04 
+#>           shipping.clerks               file.clerks              receptionsts 
+#>              3.824718e-03              3.959903e-02              3.093447e-03 
+#>             mail.carriers             postal.clerks       telephone.operators 
+#>              6.563431e-04              4.892611e-04              1.462173e-03 
+#>                collectors           claim.adjustors             travel.clerks 
+#>              1.760987e-02              1.937443e-03              8.541219e-03 
+#>             office.clerks         sales.supervisors     commercial.travellers 
+#>              6.700605e-03              3.567173e-04              8.673946e-03 
+#>              sales.clerks                  newsboys service.station.attendant 
+#>              1.562527e-02              1.177427e-01              4.948243e-02 
+#>          insurance.agents      real.estate.salesmen                    buyers 
+#>              1.459960e-03              9.756845e-05              9.584963e-05 
+#>              firefighters                 policemen                     cooks 
+#>              1.019968e-04              6.862129e-05              2.592845e-05 
+#>                bartenders         funeral.directors               babysitters 
+#>              1.659973e-02              3.232608e-03              1.266394e-02 
+#>                launderers                  janitors        elevator.operators 
+#>              8.930962e-03              1.188528e-02              8.503645e-03 
+#>                   farmers              farm.workers      rotary.well.drillers 
+#>              4.899856e-02              1.148605e-02              1.561217e-03 
+#>                    bakers            slaughterers.1            slaughterers.2 
+#>              8.279081e-03              4.390716e-03              9.233956e-04 
+#>                   canners           textile.weavers         textile.labourers 
+#>              1.749033e-03              6.540165e-03              1.489118e-03 
+#>           tool.die.makers                machinists       sheet.metal.workers 
+#>              9.062896e-04              2.451712e-03              1.151053e-04 
+#>                   welders              auto.workers          aircraft.workers 
+#>              5.388366e-03              9.738267e-07              2.200670e-03 
+#>        electronic.workers        radio.tv.repairmen     sewing.mach.operators 
+#>              4.934191e-02              4.137224e-03              1.397534e-02 
+#>            auto.repairmen        aircraft.repairmen        railway.sectionmen 
+#>              1.269647e-03              1.665114e-03              1.638252e-10 
+#>        electrical.linemen              electricians      construction.foremen 
+#>              1.183954e-04              2.873767e-03              2.019788e-02 
+#>                carpenters                    masons            house.painters 
+#>              1.491918e-02              1.027504e-02              4.754342e-04 
+#>                  plumbers    construction.labourers                    pilots 
+#>              3.493312e-03              1.594688e-03              1.748322e-03 
+#>           train.engineers               bus.drivers              taxi.drivers 
+#>              9.635459e-03              1.574710e-03              5.745797e-03 
+#>              longshoremen               typesetters               bookbinders 
+#>              8.498365e-03              8.455003e-05              7.186315e-04 
    
+
+
    
   
   
 
diff --git a/docs/reference/scoreDW.html b/docs/reference/scoreDW.html
index 067ea517..d8b35f06 100644
--- a/docs/reference/scoreDW.html
+++ b/docs/reference/scoreDW.html
@@ -99,7 +99,7 @@ 
    Durbin-Watson Score
    
 
     
     
    Score based on Durbin-Watson test statistic.
-The score value is helpful in comparing models. It is worth ponting out that results of tests like p-value makes sense only
+The score value is helpful in comparing models. It is worth pointing out that results of tests like p-value makes sense only
 when the test assumptions are satisfied. Otherwise test statistic may be considered as a score.
    
     
 
@@ -123,6 +123,20 @@ 
    Value
    
     
    an object of class scoreAudit
    
     
 
+    
    Examples
    
+    
    library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+scoreDW(lm_au)
    #> $name
+#> [1] "Durbin-Watson"
+#> 
+#> $score
+#> [1] 1.686923
+#> 
+#> attr(,"class")
+#> [1] "scoreAudit"
    
+
+
    
   
   
 
diff --git a/docs/reference/scoreGQ.html b/docs/reference/scoreGQ.html
index 7cedbf58..e6d62779 100644
--- a/docs/reference/scoreGQ.html
+++ b/docs/reference/scoreGQ.html
@@ -106,7 +106,7 @@ 
    Goldfeld-Quandt Score
    
 \(F = (MSE_1)/(MSE_2)\)
 where \(MSE = (RSS)/(n-p)\)
 where n is the number of observations and p is the number of variables .
    
-
    The score value is helpful in comparing models. It is worth ponting out that results of tests like p-value makes sense only
+
    The score value is helpful in comparing models. It is worth pointing out that results of tests like p-value makes sense only
 when the test assumptions are satisfied. Otherwise test statistic may be considered as a score.
 scoreGQ function uses a two-sided F-test.
    
     
@@ -131,6 +131,26 @@ 
    Value
    
     
    an object of class scoreAudit
    
     
 
+    
    Examples
    
+    
    library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+scoreGQ(lm_au)
    #> $name
+#> [1] "Goldfeld-Quandt"
+#> 
+#> $score
+#> [1] 0.3983684
+#> 
+#> $parameter
+#> df1 df2 
+#>  45  45 
+#> 
+#> $pValue
+#> [1] 0.002540368
+#> 
+#> attr(,"class")
+#> [1] "scoreAudit"
    
+
    
   
   
 
diff --git a/docs/reference/scoreHalfNormal-1.png b/docs/reference/scoreHalfNormal-1.png
new file mode 100644
index 0000000000000000000000000000000000000000..fdfafc3b9819da907e54ddcf1f704243c1063e04
GIT binary patch
literal 20122
zcmcJ%c|4R~_&=g>sDk+gI6%(Re*&<~(qbLfEWSK!|Lv|@-|44|jW|?6I6@#)>
z8e+`I*kUloHum}5_YCrVp6B)Yy}o}u(|r1L-{(5l^}d#Ko$Eg5J`-$o?F!!xu^k*7
z9DF)gFBx-iY(;W#aN2I?1n!Jpz5a!RV^gA${>{t4C2*gEL!E=eo`aKwudFgcmbEu0)%fLq`_Ch%tqlL>GEyMiBkb@eE9
zdwX?z;O{c^s3`R);BTS<_<Rzd9^fYm_+uXh{9R@r
zMYJy~vo8bwW&%Coz$XF)k7$6S`Xc~FaNrBvXovtV8-On}N}VGLkj>%+^apuFl|_{S
zUt&}lGm6MW!3|JwII5u^)z2(0E-tg@D6>~DivqqZIUp_YA(jz=FSCrvY=|&uh=4cr
zGaHypVw5^D%AQyTe4~hLB9IXHFacU3lS$^}Ad|O{$>e?%yuTr$zX1@!WO8x<#sV!=
zX3s2(0yqMUn8Y$B(5)ZE><1Ww=47&@0YaEeuv1EmnHJz2?uS<`+&DNSg24YaMGnyK
za&R2v(7AN}CNgO(nFo6W?~#)DS+ybkQpAg~d*_sE_sR1_+P=KYSrndRzGc+>e39nW
zV8w$}5oe3|xm!ASzC1Y`c#%0eS~Xg^XiS1aD|0H^7pfRu@73bQM^-+V(0<*t@w~q0
z!gd|qA_n)a3){s6l_Xyr4x}7;5mjr1d$B88BqVOvg*_MPdoEnHm4N|-ym-CslEG<6
zZpp*S|5xI$5+tqXn3e~6YI#QPGX0%fvPrEOMz{{cAd8!qAuBmI2t4ZX5T#&ZD*
z*#?H;7qihCp?rV_wY;+U#TFD{;j@&@{PksMU!J|rZTAOx_lH`%iqeQJ{MFW^$%%eO
zmx~gAb-7=kscRok!GXhmzk8pLoVNK87v3{JnKrESnDHx@DyZ$Scpj0}qFULv-!N(X
z$cx+~$;h)9(y=nkb>^pwxFCawykuf_l_N4|-sA{bBaclAqntHAm7O%F85^0t;$
zHoikn!d((SyUM~YT$TA+Yo#;&zOqA4iQbM#(9|Sdb9?{%Ug~K-pItPY6u;#!$>dF0
z*KR*7^M8oySaMD5Wp~?MtMP8HeW~-rm-FTwJ&vh5RnJwb0FifMUptiZDE1zrRqK8{we#$Y2#4FAPGJ-rW(;_
zjC&Dv+&Gv)o^LOFUWmh6Ef#k%Wyl(po+AgKo-39936dSv4-y|lYP#*Xl9Rr#<4o5e
z@xi|O48V7{M;~f*o;OdNoV3Gr|
zgy`I-t_XxRw^SO^e{Q4?TIwBwhB`;>ru~w2Zz=0I1GEL7J3&vOr9oxM_C@C};M%gj
zs}ZO8Pxl>pQ7ajPBoc3>&gGq*Yhl7l>xhb~m|7n%%f6XCG?q)-a2IiL)&Qw9K&nLa
zxz|`K-0{u6s5hW9)CopORs--)Qp6+=pUAEy7Ev`B#x?pHgxCC$sawV|$xV8=lUd(2
ziFQ*#l{q$L#M2Raz-at(^)R{R=HyB(l<(wNN$8d~extdUh;hLR2cnmDd2w{(Hks{`
zwuh7G?aUVDM0j?nliOIgMsUY+Lm@2;F#^)vuhJ-xIDkegp5HD>e!s_s8C=#<-CJ2p
z#67>ga71ktn3ikTdxmx(-IYi@UfZ)re|yojkHoKvhINbSpZRuZQSwSVWX3-aXBJL5
zNiM^WCTazcJIiR%IC{{sr*{2=q28qFJr_))Cwy@PjRu#;y;Ot`<9>`EMYFOvjgmYP
z&>!h;^J09S1K%$@-8!30971Fu(4za$@;&+c>*pTOn5r*!8A~a^NSEfHNM6`Je39-6
zCLiwqkXRr=MQt&{L4mw0}D%&gV!<_#(#O{b>62}A(rk_
zSL$WRNw=&U4@ZE!4|sTpIFf^_s3lNtcVpbpSeL+GTHFB^pO^dU+&$)G!i^p=xJOpHis7yppj5xZYsq_|w{ke0E>!(VFh;
z+h09Nt>?Kt=CWc?OtSNB(;A$edzhBi*J=7$Kx2?IDD$oeWam+!-(7`r8?k()eJ;n4
zADCnJHJx1DABQ}g`uMwgMtQ#E~Nh3iod`Im`?sV1pxi^wFE=+RA=
z-t8T#UTJQL+>eSeGyjIejF;0SjXvY>Y%I0!BX
zUHs*T{Nu-O77h6JC1l?27IDV`tddSK^zt4@>TMcRDQNq4Zqaw7Yi#m6o%SrLxshe4a~)Vgml~HOUJG%0)|Dbvr-Dd6(_4m&gYL20S2|0L
zmwvd$q`|gpDR!;cp6ZndMtdhwPNp6hjS~XhYV8`5f{-N(99Uk+G8~k!?s_D@CCUEN
zl>nG;m#dWJ5%O$SvdYW)Igw2CN|MPkeBlkDNU&DbG*Xg=bAi_86|l;+KKrTYDt
zn!ABJLeSOy3otoyJ3f5Y+6k9sgVyzAkcN*z9a5;4y!*AvJ+P$KRKU1YWG~=+fG(5K>+}|Tm}DIJ}nO05h!04;n@^cEaJmxgpAI}sM+KN|+R9Cg|+J5IX)eY^{<=6CwtynN|YBYc71
zAqjop@t`Gf{O_1%`6n=pgl>0X1q%dkWrW1Wxhe?Aj+c1K!jwPh3MnY{SxR5)Rs-N0
zKZ!YJ2?Lz)22%{+%HWVQDZzy~#cy|Yh($Qbz$916wYA2h5wbAZwaYW((Hod)tB-%&
z*m^oYXyfInampl|4==aHJo_D(^sd&;Oex~!wys`oubXKDF1c1O8}KtT8(LrDXJ$8C
zZpY8C>=CevR5Tvr1dKD?O{O{byhJ-r9CGcr7e^7|%)R+z@MnQ+Gyg3-9{Uj>EG*qxUto|`wut@%(ky$;|{@o-2g>k590L(i%TCI*WS>(X#rzZ
zxxorfeQ+ysUa&k_?!tEE%LAmm2M_Dyw*20=33Rnw
zYsGb|B1+|-USSAp6z_{P={IogKH_(-`*oYh78jy2~OyQTvM2A%0F)$In9C0qvK`~P9gB
zCom)3neAX>1O1~I9wi)QthouuVSJA&lAi*!+Sw_a07ip<�WIk8Dl5i3Phlxu=?@
zBWE@nE53u)LyB(ZXn~CLWB7W&?6#wC
zat_?`5;Z#t1JZ$zUFJ-3F(2px$AkI+eET=Cj>kcn
zo6BTo|K)9U(U`9D9rsu%}G(r%nNV6iO{}LfI)L~`HP&+TEG;?=AMg=z@BoSg&
zf-=X^V80&Ix7D=QT+@{r(e;o5yE%kBAe+dMQ!A&NQsV|%tG($Nx2aDZGIrg~s1OCa
zDvOt*%y2HyrTa7Wt+0jU&u`)=Dm;LJnq!;02y*1uNSjRLZBViDLw}%Sl;uvnY7God
zo1U;0&|on5g=c9f!vQe`)W_*i+y9WRpky`4QD`1T0ay?a@^hMNI*xbR3+l=L
z6VxWP(w%zfQ!5Ly-WxF79Z<)
z3W)Xbm0F-^L&eMMsT>0EA`lcX0Q4g=!~_8T*ps_~eCjA&Z5$4ooD}x~jDXkBY;7(8
z(YTH^7&~8cZ>Dns;{T7Cju8Ywv6WX@qewKyaStd~>pf8C
zqT-!(Rd$17g?|DQjETNtM#2tIEN3wAxZo%qX>70!5NmMly)XsyA95!8Vs<7NmzmPZ
zV7T8g%FzKO-Pg$mHNwU@+5)WM#y`CQUQOhT1Tgv&qiVtE=Ttob6fSV}Xdj@B_jki3
zpkMY?Fu9(*B_#k%-_o}H;5gnS9uL$z5N<3`?GRS!WPgJdgY746X`rMFZ-s5(=ROOR
zK`4>JSHXY*q>9r)SWm+Bfm%;I4hkj_F6TQyZPxvE6!lM(_8pfEqW1fM8Dmw{kKa8T
zL|x_r&AkeJpQjBgU2JA+A~-qmPqJN9&<4p*t-;*DmTc|ykv_g3;tG}-EL?Kew8#d(
zv6p`+I^9^mXP`|sz`Xa>H2~&(7W@3;YF>~GWTeeM8a-3;0A2;Z%0)*SO-lh>!bX#S
zu-psc*d3fJSg?z2&Tp?0J?-koV20H5>pVr~y&$IDI@JAsm)GwJih4sbky(CVwZWFW
zOU)bNMcXS_AhOCSDg(iod#MK2HY_t=ZfL{4bJaX#jC-~U=6ohuC``jmGp~9#Pz|%4
zySaY^nvH?AE6BpGvpq-B_lz`1+AUZ>3tWc@KVnDA1oI&;n>Qr7$dkb?Pgt_huSyYU
zJfEKS8oY7o$=UH(OiD+a_PR;20Zo-ajrDv1rJ_YRH3N8!^t
zybkblKMm@)Ibb!c_zn*d5r)A0wi6W
zc0lsqdH@r{Dt^xI6p{)hM*W`{>h(S-%=*S^e4%~-YXxS?Y|G|feuZ%8)Bd*Zp>f?)
zUI^*@{+W{f>lVttP(Ow}DoxQYhU);870XBCVsE?<*KkEUb=J+Y
zvLOOproGU@kRQYAp+pV6K=Y*3;ZoY4uc=~fc*>h00*T+C%CgZgDIa-5B6^)h$=w@}
zA-F1oUw6a!x?7^D`ok#s6i^Vb9VvW$m^A1O76|O?IHM1wHYhJp1F?evdM*vo>gEpA
z7i?R!r2oJ=$iOPu5v39IZGg0Moj6&#cM7%{(?Uo=7HpS{1)gBPUwG9x{0OZ5-)skx
z$F=|Nmubu^a`~Ku{b>KVI`WPtlxVn>tuyiX&&d_RwJtE?I4cdarSClc{$F~SHF^(C
z706f{TX12Mu9?$j>m5_Br$cFxlR)9X9(&`vp(tKI2VJ0IV@Czo7soi0Q+!>x
zEh(Bp(9g^e<154+cNH(bD~1U7>~Pkjj~r<;4(Bq5y}{(=P1i$J)H0DX@2YQhY>E|@
z8vklC(zh2cHU(h5Zj&RosgY+l!}-{lYp89E7hnK(S#|j(@yE?;t``-vuH%mP-^`Ka
zXmmOYZ#AB;<-@*uN(qomH8udI-6_|_=x>MN6JvIQO1$xJ98Y|j6pPfjc~jc8hSmin
zP{9+jggZ|LN+l5QWtLsNG(@*A=y^!o@-nEG5dU`0TI<}?r%#QcTg_oLuF$|P75D<=
zGGG$rGbfUPPU0PEC%cu$_q%Kc;M*eZRBUQ=Qq3nm!s1CoTSo!MHbpdX0|LV}GRl)F
z<1^*Lz`d}DCY?`{U11u-<;%6$MqqWm^7p=Yph_+kLD+lWR~~1L3Sjx7;4{XJnF|p?
z>;!`iSl;M>b$9x=XN4tx-o^(M`9+WuLx4bq@h>L1?yh#e39Z1xRHeCiyxx-mmAwcZ
z&tQuEZO{Q>MX$<%=L{=X;RkU>xcd>O3@PM1TVVYE7K?8L)RP08blLK}T_&$)@nmmssOdH>^tt<*Iiv7wfUY|pP2>ZLYU!)=nY_h|MBaF|*WG6ns0*gQSRlSEqx8DaSOP`1U7+7>hy05DT?&
z3>P6KkYr5CP2rZ8M?Exe>kogQMd#uIuNq3eg@s6weRl6h7-c}LK!7CWrg_WDq#o)L
z7~`6?^N;HvzVT=~4;uVB{5b<(nn)PqjdArddoDnbI>}Lp3+W5|eH+@X!1Ys_JofFu
zM0Ij51wXk!co)xDD6Ja!<(`JT!?h{a>_PYO%ef&MyM9#k4ezF9#sutM;Wyfcv9P&?
zrN8s1_8!gTE0sFAs}N_|$7N}2&|MYL9-tEY<%0pRLv?3biC?v4_QfZ1G@=y8RUbH)V=|*|
zSag;61W=b1Y;E^HVG7CF(NP
ziTSL-95*vl;xiKjRb|pT76MP+&>ob!v9AzkQ6G~UWG{hu`sBXX3gv+oIXSglRog8)
zkRuk-hf!XcPj&6K*z8i@V2W!Fg2pmjR8l8fh+pgODG-c4P1=h?T5_C}@*@TUZc$@J
zL(#Y!1>>rEmEnHNmOYOgD;hlSXm6Hx$#k`Yj*irtJkos7=286^@53~u_cL;cVk!BD
zn=%5G<0G2xJsD^|2|smo*2YMDVAnHeKeCh!eZRBSzQJ-v2&FFX*#X-4!PZxz{DnBR
zy70fXsHxqLI>zm(u@<4|rA5c5y$jct0r&JtyzXlV<2ENRQM6+y7Pz8_gU`Q*0bucH!Vykh`?l}}~n&vb&H{hAM*p5%#X(_DHI{LNf
zrX8SmC}tRrYCZ&yd)cmVa<5C=B3hc(mjOQ8CSL4*VR*8C7voay*1(g;YKc`b9iQu!
z_zUt``5WuseQ(^g6!@PMJ86grv*}>iB04b2W}@AEG!j-e
z&+6E2TIphG6fI&1C^c?>nj9B_WIwa?Wco-ypg03FN|)Oezn*2w1{xNqQM*}^N8>!J93k4Gu%J@H%kPuYk>WL%R|56+BK(I<`(?;0iO8em
zdX3J7S%F`h-vR{VbQfAw@?P=g``MEGKr{mZaiM{W@!BcB{m8ZJ+io4Y(3q$SkBXF5
zXz@0Dczo93EjXK!-Ca3jPNflA3?J=wu?ND$2&WJfOryJ&qL+{21Ph>_CNo3C<&R{U
z`t&$Rl6mv22Ia{b$@MRkLKDe(+mc`FvV`^$GUsht$47P**a<`m1n+^M0Ysf4jD;BS
zg4C+``RyUsS<61hcc%>)>_+J56_Y39TNgqNwcu5(IHL*SZqWKXO7|m8cWe^aZArcq
zH!ln^SEU&Xz>Z4ogE$PE-jOGh!{R6soYIF%a7BG7&8IRx;AO{#<2Hx94ok#(G=|}=
z$iul*a<5ncCri*nf5JQ}80#80Skg?pbn2)OgbKg{GA-=-8G`&Mtopj3k~ez)W7r4>
zDDs1=20S4a)p{uZcc{lD%CRDNd@+*0t^3{F7q?bT#$0b}){+(fS>*>$g10NU)M5f^
zusfk%Hkz+bXN|cMuA&dw0dH@RVuSe+h_ZF27)aS{wbk3n7KpT)sd!(`M|gZGvT?G;
z#iW>YrHZl~m;_WcyyoPqu0hWdlG~+!bp~R*_lmUKQ6T@tZ~_Cv-9gVnL1FNf_vQ-dU?}k`+D+1#82t90<)nK
z7;19DX1|P!UJQvNJasJjMMDsF)OUGz`M^NkfsbjwDL>#
zwe{cE1shAf8GnPFtg)Dwk`{C3)u|mg^#hFXJgD}Ti^1hnl#(5!
zpyfN`xdyuvn!u@SLyM17)0YC@nOOZ7S@DWK5LKsGF-7VTSUz2S6S!yS)TemQqxtOM
z4TJO8tXgt-I5Uga41Mxu-2jyD8n|mntH9`GPFK6fv{z)gbYhF>|F2SxwHwk=3-ugO
zr{|w`-xYD=Hm$CXxhaGbLgjIW;LehgDW$;j9uuRb)%@39f#Fq%u*YHN0X~!L<3I(K)PqW`{8Jsv;#o4!k|}u*OFWEocdE}L$$hQAPhc!AOt%km4n(p?xuZf
zJ4YkUA|y)yBIM?pYtcq96CIg0@a1AlFx57)#A-`B?7{m9pi
z4gL?w-gJG=FX`s2T$)q(zDlNxRPpI45t}^$b^M_Cp|ozmNfHWLpM0ZRCpkc2Nc($!
zZO#ctT4v1@rR(n0vm{;IHg4dbEK~c0Y1owuoY`VM|$i*i*MEwhe!MD2hdHTdF?*2h5)_PhWKPB8ctt!#Sw
zyEkN6a$bwQ>s|1kc-TM|SNm{FE~4}$;{dRn4eZV0zsdbo-P*43+1o4>SfGvO)9O5ONfAC1{uwxDTv-`ySkh@p9rh`wdKQF~{`D
z?GN)iE{xle4`0z9CdKZ}{dudN#H|d+GX-r}yQxgIR}yfmViHygT*HaU>BUKP
zs0r`2_mvs=mR#agjz|UW0kjvpZTa-xr|25
zQl}z>1Gq9}no~BZ_|~KOh1v2Qblpvw;_EDA{lpP9z^Mdd^4+{lq2BQ>6#`a^%~`{%
zQa-Nbg{V3D)Gw^x9T_sUBSn1b%-N^5Kz6bGN=20iV7h3wBDU`lzF&=S;#S~>2Ea-i
z=HJ>}NAMS}*(Fd(6{xN~ZreXNB#Q&{^j9n~wn`RFT@hhB4~_!br(lf;fR>`LU`T51x1P|_u!
znwgn}A7o3p4~v`N+B?0g;FDUvGs)PA#s#jh<=*rd^bmFVU=f)Sn3olW^^BQ?pJsQk
zgJsd{Qarpmx}-kq$&8W|*lPHC9Zec~`zK;r=DnUum&tD|5nP%#%^8{WOhRMcQzym;
zF(J8DBUDm2yTe_tdOhxCn*ICVOOAHd&@MtdHnHd^@LI!cW)X~u9i~b6gzis`;!FY;
zc&~hq?kErYlQ5-NBCrqPr=BdQ>ut7Ub*(e^rb@p@zNEgjzLle#eEv0R>@jb%J*)+!
z1RwI(03u!m3fbgJutYaiAu`yp;WdAcaCL2
zw`S_klo!0ql&(T}`~zCuGnSX^6VO6Ef8olJI^&NA7HdmwNhdnU;an^~HJ_mUc&zzD
zkzDu3qqJEnUy^3uiQUZxtTs62!?<@|iLO{yxvwM2vv`#BmSsr7(qzh#+VQb>$V&4t
zr*GK#8MrkoR2*SmLzx(zTBrN*X@^kcaCU4qAEjMIU2M}uA|&%wXoGFo`)ma*`aN3j
zUb$f%hv-Onq?)fXHuwX}%@!@%pPba7KJ+ONhn)aALpnrO#+#E+bKmips~kjk-4O2RKiYZYKKe3KkO
zb81}qYtl=nU)XyDeU{-Ejo9V(!d*$O4-`+{d}4BvWgC*5OQEOKnRB;0{?RpHd(XdY
zjx;(==_0K2`{ji`<0n1wr%PsBi)a5=4wOCHQO64w=SyPvoHc`C*1--@Q(U~QaIN~6r##nc@$Hi1=b&a
zZp%y)sN(9Nc^|4v&U(r~D|$eCnapSI2(!L#m(j
z0jf4tVafTgZ^)1k#$Ue{C&0IXFkmY1-V{zx@(wv(`%^`ns~!9GnrN?@q|Q#gOSmb8
zC;zw(Omc}8qq>?YP_p2i~WpE(RlWc
z$K}a^8Ku<4*oe{E7NLa)EJhh4}oRG|1r01ibX=B2@v!L$b^5w6WKBegG;+UP*U6D&g
z%yDlp*KIF{rcN8IrXS>OKYV(e%XI^Ui<1$Rkdm>b4)M-kf*XYR!h&Wq?aN3C8940q
zKmQCzi1A7;ZvI-@-6EaX;`;D|0^bG*9sS7|(KI_EH$9}u^XQwZJ^zf5<4@KZQwTv6
zD;_=ile+1j-@ONu+sMz5=y~Js1*PXr@=tm1iUlH*kHY9`L(h(Y`%>^(rOA7E4;Bg`<4Tq=Lv`}^bL^qo&C(9hTd
z=0;B51>ed2P-6UnM(-2NCoXQ)XQ&=$h0}4}nKP~ugC6onc*kK;sk50=idPvaw^&hq
z@QtHc(rbRBFn6M`OPHGu#|4HbyM^P8W2?Jay3NcHD*csX;K0MJ9zNPaG
z8gl5*j~MD~h$4!Fs-^Bw?&Zr{(>zGdB~BGS&{Y(%BUk<4^osreMQKf@n2(XUMOaBq
zT8~g_`N#U!OZUGbd_lKA`edz2mLtfbc4n4WD(JU(%8h!^vFPnim~zP1NquhZ^Xwjt90P!UU%U9#3fPk}ZP!IpmZJB`
z-muSwl1SnlK)0*7vnwN8@u*k3hT4;0(NbRfPdvb%yUz&xf+>2nn}!t@_McP|EKn`$
z4tjXx1L-B2Q!lN^2Lf1p_a2%sv*K|og@9KjLW6z3-&p~cT|H^ifEJI0J7i!6TYl$P
zKR1F2wJQ)jXr{pJSG9|11+&9f#7Ouahe%cK>l_Za3xDIKUKpGRJvqbJ>=mQ$=``(L
zu$^rog$%Jdm&FT~ILmes%M$m3UF_Qu8Dh@Zr=I9RlT4@rNsfyZHiu}&5-nzsQ{Pu^
z>A@bfE4a~Mu55Fv#f_L!D-yOhVdpP-9vT`C2h;|pkwZPkF}q3M-=e1ADeg4gDw6nC
z)--e}KcnJ@`%vY!7V9{(VmGHpW8|xB$4|-=3_glCeC+uZg8PB
zXGx=EvKJpv3>EpL1GeiuYP9{8S#}*WuF?i34&b4Z|E{u;HMu=}?bN{QjxbNR5%S^H
zyD}!5hIh`UIJ&46NKj+T-Ca(w;fub>`J|8dRr~&H++@N}_+C=t9v05p@r+{=w1xaT
ziAtHY%H&ojeXOXvizU0$Vr)*6qvMs2W5Ty7Dp{mTEJTfEyO)}JCZmVizkbBO?9J@M
z6(>3cNq^+Uqv9m=O!VFDNDHAIA3gLE8h}X}<|#)|$aHc*_X&|M({@f;&Wv#bOFxNSBVI}
z1nalG`Q|^y&=wEAvJN8vg~p{XRa2$?O$isSV6qH4Boe^4`@ve{zWB(-0ayZ;&!LofHKn^zfPJ~#bezmG&vpu{U>=CyNttno?X}H5`a8q
z#Aw``mLI3GuFnMuU#G*=o{J4|)=3<&rnx$u+@OB3;WptpU}-ne!DfaOIQ&&
zP-Uf1Q{?KKa243mUvu@#j4G=l?T1Tt%R4R}qsHz_C}U47^3$Z8Qj4KO&uJ|>CBRV|
zadut+T&r)+nPiojG}^wdaPK&lU{<@iGVyoCk)X^6>@1OAWp%rTdm!I+wqlC3W8Ik%
z;B7u9ULSLG|MwC;mg{VPA)MSra1Dj8Hz>Q{i#C3Fn@qYJ+`E0f_fQqjM4HomL^Y!a
zxo*MQBHFXZrxX4vmKGInV31J7GugXvnM5jGhkuEH=CiF(mIFJQc
zcEY|&7u5t-I-%^tX
zChoeR)hIzI2n;5zG?n&gk%9=)2{Bq7FW0=6Z}-S@WE49<2pA81mL+;%4T4J3oaLa;-QU}^
zJV$4eiP&*${VB_Jk3+w-MUbizC*ak5_@8;KgGRs*PR9FR>l)VJryWDDTT-JrC+3ML
zJ>nF~2D=uUz)Q;h$uLKmZ43pG!gWgOo#muoUak*v1`LK`x2=sNyJx1G^ShE;m@d7a
z|J+~GAt<*apL!ypm`|f?fE9$&ACUzm*RjgC;x@fb3{E;Mc?pt4_vDU`uE3#aQol@V
z)LsE+=2Qh~@dqIll~nJm27l#GK3z2~+V;`Aijuf2Wb=9kg^VV13siZ8bdcTGmFBa0
ze3_vblzAUuG(q9(cvp=$(sB~Q#{;-Ui=omGavvJ+WKg6gRq&H^)!eK8I#*S{?4_P?-~2d6E9x;6#=!W
zCg6oA@T9^%C3TTrXS;l86!)Nh?CCmH5TRYc0q?Wmi||=Jmy(7|FC`L}N#JA3V
zdu|)t<;d+8Y>mWc_93f4N{mAc!l7Nbh3rAwv3f#Du;6%0`S4QvjXJ0|RDJc(lMybu
zDfE%!lq_vOB)&^xjVElk_Lu43esBwPG09yDT>l47a$TguYZaPQGz@$YX*%nG&_zEn
zmC3QfqJ!dG>_c3@9+!Zt?#d2s4i4UM@OJ@{tQPJG=d%w+$&eLt>2QUgqJ29%L}IP}
zb>VcXq$;;*KA`?MypFB+s#ix*wprpj0It3@zpg0$vHOr%D5
zPTzCkUYA`tQPeL+gQMZx>wUKo+eIkm=ojl&+kMu++s8~7yB-rQ#s7UBj4KZ1#Xt1f
z7%MG*V6q}E$M1KqkVBjEwyb%LEPLkEFt*}*Cy;}Vt)7?*q)x=SCl+@3TTkgH5=0@l6OY&|23(R%u5#u}36xlRb2
zEIRJety7)}th%kyIpMIs^mWJ99E?M5tKc=ad06&(^Qwc+3l~Ho5Z~8&oC`&~Z_^oQ
z3Gwh!-?wd*=Ccs(p_uqP>nkU@SzC``PNJ9SJB4>$dj>77*fmeE+rMVb6y&zz&ihLV
zuheNAtA60Rh8xlu-yE7ZI@~R`%5alFLC{0ZHwgi2;JNg0iIr5;;Ndk!(MZiw4KFR=
zErhiwIY@^mjt&m2^LV=3#jg1r&Hf&+@W-~lQ7zHiO}qTHeRJEorJlTG$Xp9@b|@Js
z+FW#WHTa)Pl8e=Ys5=^|JYKr!wR2j#YKg^JX#HYOINxeWbG$^{GCG?!SO8re3q?xg
zqVvKT3G;hucCV_UtNwmMjcOY2gQ!X?xSinRCU;k9#`uPG0R3Q4IBUh28+LV*ISy4xAyic>qtuRg-p
zQ?Q*OZpuZYfd4}eusX%gcmUPOmSpq4COcNq{uZEhKkkTdms|6y9`46{la+-h7a&_CA&_rf3&1lP)Rv-it~N&?%&w#G-R+aIKk2~fkqfuNK__@
zg~YKcvRSyJ42-fBsM!9Wg#W9bKGAv%tVYagZQT=efZ2%$4$dqgd{VhY1eNH$c|0K<
z(mmB5yarunwRX$Pz&U#Rkr#TFG=H=3KjhavG(UO)Kl4xq(%>RJGk|gg*v~4PpSuf#
z>g~YmJ^l~*U`lZjq5vRyN>OQE#3joEzt;l%yR>OhNwdaB?B@mgo&z$l8eHQ%{1IRZ
zPP|hbtqnU27>!@Bz(mW7N(p^@PeF~{>6?{s_2TQw)=j%Y;^xlL#Rj0>2w`@w*O4|=
zr@!pH#?6*Gxv~|H<@vwh(_woh;JCs(laRO<=jeNs+g}2&=-^H-
zU3P^zzmy?=!$PVi(?421{IGMLQtOAZ%s_qx-c3GKr%op$edj_cxZk@BaY5Oh^k4LC
z2fD|V5L?i?^k@?!+@-KQitn6%%3g6wFyjy7T4PY3yW;SJ`!SRwa{nQNMFc3zy{I4^
zdwQ+ec$v6_AVINsw%cmVx1zWg$Jj<7LsFa-pFyjQapq7lpZ=K|GYA!R2a+>P)v(bj
zneC@vi0^wsY8x?drK#kfUBb-J2I!1R)0`d~e=5D^6_rMu^7qEo5j9A&L<)}${{l^C
z6o?7sB;X~TKKE^(6PvY9QZz?@EsY)~_r(;7`U9nr6l+w%7LF=;NT)v1EC;V+~c9(FDa!+@y0A#pEVv;N*dO?|X5&NIE?
zqAG5nq=NHGdXiG>^Lz0JZNGggIx+OtHUrZ|--($8R8FsMRHUHc$_LzvJ(gO#$x1QE
ztS#X{Sgppr49jQ?JqXdr54(>at3vgDj7Rv-Y1@G=GnA;xyJq0n`{MT#$`M=OM_3Xn
z_E-Hq=6C^TBCeEz&=|kzRkrXTgIJf?afQ=V7uR|J*2t5rblwOb3-n1rT4BtHj8a+s
zSZS94?R*I&GVf-Pnu68zio&_=c)k9I!HmPdO_TK~ni!N+Rb!iJQ0iG<`1?hIPDXRx
zjcsQn?mq1Hxklen`(_T4H=BE&A$Epn_BZg2~wQ6AEB}I2j-DHhJDSf+z$Mz$!`UKoV&d!DjfFX%4o061nBG&c_(UNBE0$y{QL;ydJg9}{jGPQS@e{}-fa$Dy
ze2vb~yZskmIc0x7LiR3_d|apD@oDP5gjsMkNvon8hNlL5{0=EVNdjFBzln`fj>e;AW_TA?anrc-!Jjh4SRDocq-(QN2u)$VyGWD%r8YB2o=3
z-4s_#EPrGM`EDWGyL{*UHh{rfAzH=|zSNW0w&T-;7R-eXQ|~}xU5@$;nO;xwB|3W)
z{0(J1!i%{qf2t+TTIWa2K%DpPp*`=*
z(mXTYtgQtw>)@0o6ABNLvpGF6{@5&XPnFgFf=r3W^Ud~w8u#uVCi{%Ne+>L)L^Hbi
zozCU&a^GKC0Lde8@rW8hqcW#{`?c0f$d_o}uy^mgNF6ttlMA)buMPGUURjKHGW0{I
zP}-|q$eOcXhL5N%o9;s=n)pMyJ#fjnj`P#%AE_>y*CqbSk{k5Ajc{8M`C$XcICOUY
f|M81BD`$@u2`ffdKvCdt%;{Xdb}9eDt!MuS#gdaP

literal 0
HcmV?d00001

diff --git a/docs/reference/scoreHalfNormal.html b/docs/reference/scoreHalfNormal.html
index 46a4ff26..8e051959 100644
--- a/docs/reference/scoreHalfNormal.html
+++ b/docs/reference/scoreHalfNormal.html
@@ -121,12 +121,21 @@ 
     Ar
     
     
 
+    
    Examples
    
+    
    library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+plotHalfNormal(lm_au)
    #> Gaussian model (lm object) 
    
+
+
    
   
   
 
diff --git a/docs/reference/scoreMAE.html b/docs/reference/scoreMAE.html
index b5c7b7d8..ae7df408 100644
--- a/docs/reference/scoreMAE.html
+++ b/docs/reference/scoreMAE.html
@@ -121,6 +121,20 @@ 
    See a
     
    score
    
     
 
+    
    Examples
    
+    
    library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+scoreMAE(lm_au)
    #> $name
+#> [1] "MAE"
+#> 
+#> $score
+#> [1] 6.166535
+#> 
+#> attr(,"class")
+#> [1] "scoreAudit"
    
+
+
    
   
   
 
diff --git a/docs/reference/scoreMSE.html b/docs/reference/scoreMSE.html
index d88ac07f..4bbe9eb8 100644
--- a/docs/reference/scoreMSE.html
+++ b/docs/reference/scoreMSE.html
@@ -121,6 +121,19 @@ 
    See a
     
    score
    
     
 
+    
    Examples
    
+    
    library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+scoreMSE(lm_au)
    #> $name
+#> [1] "MSE"
+#> 
+#> $score
+#> [1] 59.15265
+#> 
+#> attr(,"class")
+#> [1] "scoreAudit"
    
+
    
   
   
 
diff --git a/docs/reference/scoreREC.html b/docs/reference/scoreREC.html
index b6657c66..6d4367d9 100644
--- a/docs/reference/scoreREC.html
+++ b/docs/reference/scoreREC.html
@@ -126,6 +126,20 @@ 
    See a
     
    plotREC
    
     
 
+    
    Examples
    
+    
    library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+scoreREC(lm_au)
    #> $name
+#> [1] "REC"
+#> 
+#> $score
+#> [1] 6.010425
+#> 
+#> attr(,"class")
+#> [1] "scoreAudit"
    
+
+
    
   
   
 
diff --git a/docs/reference/scoreRMSE.html b/docs/reference/scoreRMSE.html
index 777d167b..1a879ac0 100644
--- a/docs/reference/scoreRMSE.html
+++ b/docs/reference/scoreRMSE.html
@@ -121,6 +121,20 @@ 
    See a
     
    score
    
     
 
+    
    Examples
    
+    
    library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+scoreRMSE(lm_au)
    #> $name
+#> [1] "RMSE"
+#> 
+#> $score
+#> [1] 7.691076
+#> 
+#> attr(,"class")
+#> [1] "scoreAudit"
    
+
+
    
   
   
 
diff --git a/docs/reference/scoreROC.html b/docs/reference/scoreROC.html
index b53667da..5959c84f 100644
--- a/docs/reference/scoreROC.html
+++ b/docs/reference/scoreROC.html
@@ -121,6 +121,24 @@ 
    See a
     
    plotROC
    
     
 
+    
    Examples
    
+    
    library(mlbench)
+data("PimaIndiansDiabetes")
+Pima <- PimaIndiansDiabetes
+Pima$diabetes <- ifelse(Pima$diabetes == "pos", 1, 0)
+glm_model <- glm(diabetes~., family=binomial,   data=Pima)
+glm_au <- audit(glm_model, data = Pima, y = Pima$diabetes)
+scoreROC(glm_au)
    #> $name
+#> [1] "ROC"
+#> 
+#> $score
+#> $score[[1]]
+#> [1] 0.8394254
+#> 
+#> 
+#> attr(,"class")
+#> [1] "scoreAudit"
    
+
    
   
   
 
diff --git a/docs/reference/scoreRROC.html b/docs/reference/scoreRROC.html
index 00fe801c..a26d34c4 100644
--- a/docs/reference/scoreRROC.html
+++ b/docs/reference/scoreRROC.html
@@ -125,6 +125,20 @@ 
    See a
     
    plotRROC
    
     
 
+    
    Examples
    
+    
    library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+scoreRROC(lm_au)
    #> $name
+#> [1] "RROC"
+#> 
+#> $score
+#> [1] 307712.1
+#> 
+#> attr(,"class")
+#> [1] "scoreAudit"
    
+
+
    
   
   
 
diff --git a/docs/reference/scoreRuns.html b/docs/reference/scoreRuns.html
index 6210426d..09a85d6f 100644
--- a/docs/reference/scoreRuns.html
+++ b/docs/reference/scoreRuns.html
@@ -99,7 +99,7 @@ 
    Runs Score
    
 
     
     
    Score based on Runs test statistic. Note that this test is not very strong. It utilizes only signs of the residuals.
-The score value is helpful in comparing models. It is worth ponting out that results of tests like p-value makes sense only
+The score value is helpful in comparing models. It is worth pointing out that results of tests like p-value makes sense only
 when the test assumptions are satisfied. Otherwise test statistic may be considered as a score.
    
     
 
@@ -119,12 +119,30 @@ 
     Ar
     
     
 
+    
    Examples
    
+    
    library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+scoreRuns(lm_au)
    #> $name
+#> [1] "Runs"
+#> 
+#> $score
+#> [1] -0.5933797
+#> 
+#> $pValue
+#> [1] 0.5529271
+#> 
+#> attr(,"class")
+#> [1] "scoreAudit"
    
+
    
   
   
 
diff --git a/man/audit.Rd b/man/audit.Rd
index 74955081..1564bd31 100644
--- a/man/audit.Rd
+++ b/man/audit.Rd
@@ -28,7 +28,7 @@ An object of class ModelAudit, which contains:
 \item \code{model} the audited model,
 \item \code{fitted.values} fitted values from model,
 \item \code{data} data used for fitting the model,
-\item \code{y} vecor with values of predicted variable used for fittng the model,
+\item \code{y} vector with values of predicted variable used for fitting the model,
 \item \code{predict.function} function that were used for model predictions,
 \item \code{residual.function} function that were used for calculating model residuals,
 \item \code{residuals}
diff --git a/man/plot.modelAudit.Rd b/man/plot.modelAudit.Rd
index af949cbb..ce719c34 100644
--- a/man/plot.modelAudit.Rd
+++ b/man/plot.modelAudit.Rd
@@ -9,20 +9,33 @@
 \arguments{
 \item{x}{object of class modelAudit}
 
-\item{...}{other arguments dependent on the type of plot or additionam objects of class modelAudit}
+\item{...}{other arguments dependent on the type of plot or additionl objects of class modelAudit}
 
 \item{type}{the type of plot. Possible values: 'ACF', 'Autocorrelation', 'CumulativeGain', 'CooksDistance', 'HalfNormal', 'Residuals', 'LIFT',
-ModelPCA', 'ModelCorreltion', 'Prediction', 'REC', 'ResidualDensity', 'Residual', 'ROC', 'RROC',
-ScaleLocation', 'TwoSidedECDF' (for detailed description see functions in seealso section).}
+ModelPCA', 'ModelRanking', ModelCorrelation', 'Prediction', 'REC', 'ResidualDensity', 'Residual', 'ROC', 'RROC',
+ScaleLocation', 'TwoSidedECDF' (for detailed description see functions in see also section).}
 
 \item{ask}{logical; if TRUE, the user is asked before each plot, see \code{\link[graphics]{par}(ask=)}.}
 }
 \description{
 This function provides several diagnostic plots for regression and classification models.
+}
+\examples{
+library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+plot(lm_au)
+
+library(randomForest)
+rf_model <- randomForest(prestige~education + women + income, data = Prestige)
+rf_au <- audit(rf_model, data = Prestige, y = Prestige$prestige)
+plot(lm_au, rf_au, type = "ModelRanking")
+
+
 }
 \seealso{
 \code{\link{plotACF}, \link{plotAutocorrelation}, \link{plotCumulativeGain}, \link{plotCooksDistance},
-\link{plotHalfNormal}, \link{plotResidual}, \link{plotLIFT}, \link{plotModelPCA}, \link{plotModelCorrelation},
+\link{plotHalfNormal}, \link{plotResidual}, \link{plotLIFT}, \link{plotModelPCA}, \link{plotModelRanking}, \link{plotModelCorrelation},
 \link{plotPrediction}, \link{plotREC}, \link{plotResidualDensity}, \link{plotResidual}, \link{plotROC},
 \link{plotRROC}, \link{plotScaleLocation}, \link{plotTwoSidedECDF}}
 }
diff --git a/man/plotACF.Rd b/man/plotACF.Rd
index 0298b94a..ad7a5523 100644
--- a/man/plotACF.Rd
+++ b/man/plotACF.Rd
@@ -18,3 +18,16 @@ plotACF(object, ..., variable = NULL, alpha = 0.95)
 \description{
 Plot Autocorrelation Function of models residuals.
 }
+\examples{
+library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+plotACF(lm_au)
+
+library(randomForest)
+rf_model <- randomForest(prestige~education + women + income, data = Prestige)
+rf_au <- audit(rf_model, data = Prestige, y = Prestige$prestige)
+plotACF(lm_au, rf_au)
+
+
+}
diff --git a/man/plotAutocorrelation.Rd b/man/plotAutocorrelation.Rd
index 498a1016..ef3fea50 100644
--- a/man/plotAutocorrelation.Rd
+++ b/man/plotAutocorrelation.Rd
@@ -16,3 +16,10 @@ plotAutocorrelation(object, variable = NULL, score = TRUE)
 \description{
 Plot of i-th residual vs i+1-th residual.
 }
+\examples{
+library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+plotAutocorrelation(lm_au)
+
+}
diff --git a/man/plotCooksDistance.Rd b/man/plotCooksDistance.Rd
index 0c7f865a..64b38231 100644
--- a/man/plotCooksDistance.Rd
+++ b/man/plotCooksDistance.Rd
@@ -26,3 +26,10 @@ It shows how much all the values in the model change when the i-th observation i
 
 For model classes other than lm and glm the distances are computed directly from the definition.
 }
+\examples{
+library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+plotCooksDistance(lm_au)
+
+}
diff --git a/man/plotCumulativeGain.Rd b/man/plotCumulativeGain.Rd
index b5ed7250..1d14c542 100644
--- a/man/plotCumulativeGain.Rd
+++ b/man/plotCumulativeGain.Rd
@@ -15,8 +15,18 @@ plotCumulativeGain(object, ...)
 ggplot object
 }
 \description{
-Cumulative Gain Chartis is a plot of the rate of positive prediction against true positive rate for the different thresholds.
+Cumulative Gain Chart is is a plot of the rate of positive prediction against true positive rate for the different thresholds.
 It is useful for measuring and comparing the accuracy of the classificators.
+}
+\examples{
+library(mlbench)
+data("PimaIndiansDiabetes")
+Pima <- PimaIndiansDiabetes
+Pima$diabetes <- ifelse(Pima$diabetes == "pos", 1, 0)
+glm_model <- glm(diabetes~., family=binomial,	data=Pima)
+glm_au <- audit(glm_model, data = Pima, y = Pima$diabetes)
+plotCumulativeGain(glm_au)
+
 }
 \seealso{
 \code{\link{plot.modelAudit}}
diff --git a/man/plotHalfNormal.Rd b/man/plotHalfNormal.Rd
index 295bd6af..a3a1234b 100644
--- a/man/plotHalfNormal.Rd
+++ b/man/plotHalfNormal.Rd
@@ -12,7 +12,7 @@ plotHalfNormal(object, score = TRUE, quant.scale = FALSE,
 
 \item{score}{If TRUE score based on probability density function is displayed on the plot.}
 
-\item{quant.scale}{if TRUE values on avis are on quantile scale.}
+\item{quant.scale}{if TRUE values on axis are on quantile scale.}
 
 \item{xlab}{The text for the x axis.}
 
diff --git a/man/plotLIFT.Rd b/man/plotLIFT.Rd
index 31692f29..2d20a409 100644
--- a/man/plotLIFT.Rd
+++ b/man/plotLIFT.Rd
@@ -23,6 +23,16 @@ LIFT Chart shows the ratio of a model to a random guess.
 }
 \details{
 Response vector provided by y argument in audit function should be an integer vector containing binary labels with values 0,1.
+}
+\examples{
+library(mlbench)
+data("PimaIndiansDiabetes")
+Pima <- PimaIndiansDiabetes
+Pima$diabetes <- ifelse(Pima$diabetes == "pos", 1, 0)
+glm_model <- glm(diabetes~., family=binomial,	data=Pima)
+glm_au <- audit(glm_model, data = Pima, y = Pima$diabetes)
+plotLIFT(glm_au)
+
 }
 \seealso{
 \code{\link{plot.modelAudit}}
diff --git a/man/plotModelCorrelation.Rd b/man/plotModelCorrelation.Rd
index 49d8e951..e2b2ff2e 100644
--- a/man/plotModelCorrelation.Rd
+++ b/man/plotModelCorrelation.Rd
@@ -18,6 +18,16 @@ ggplot object
 }
 \description{
 Matrix of plots
+}
+\examples{
+library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+library(randomForest)
+rf_model <- randomForest(prestige~education + women + income, data = Prestige)
+rf_au <- audit(rf_model, data = Prestige, y = Prestige$prestige)
+plotModelCorrelation(lm_au, rf_au)
+
 }
 \seealso{
 \code{\link{plot.modelAudit}}
diff --git a/man/plotModelPCA.Rd b/man/plotModelPCA.Rd
index cd8fe1ff..6c0b82a2 100644
--- a/man/plotModelPCA.Rd
+++ b/man/plotModelPCA.Rd
@@ -11,7 +11,7 @@ plotModelPCA(object, ..., scale = TRUE, invisible = "none")
 
 \item{...}{Other modelAudit objects to be plotted together.}
 
-\item{scale}{A logical value indicating whether the models residuals should be scaled bfore the analysis.}
+\item{scale}{A logical value indicating whether the models residuals should be scaled before the analysis.}
 
 \item{invisible}{A text specifying the elements to be hidden on the plot. Default value is "none". Allowed values are "model", "observ".}
 }
@@ -21,6 +21,16 @@ ggplot object
 \description{
 Principal Component Analysis of models residuals.
 PCA can be used to assess the similarity of the models.
+}
+\examples{
+library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+library(randomForest)
+rf_model <- randomForest(prestige~education + women + income, data = Prestige)
+rf_au <- audit(rf_model, data = Prestige, y = Prestige$prestige)
+plotModelPCA(lm_au, rf_au)
+
 }
 \seealso{
 \code{\link{plot.modelAudit}}
diff --git a/man/plotModelRanking.Rd b/man/plotModelRanking.Rd
index 6ac68b89..b6d83509 100644
--- a/man/plotModelRanking.Rd
+++ b/man/plotModelRanking.Rd
@@ -21,6 +21,16 @@ ggplot object
 }
 \description{
 Radar plot with model scores. Scores are scaled to [0,1], each score is inversed and divided by maximum score value.
+}
+\examples{
+library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+library(randomForest)
+rf_model <- randomForest(prestige~education + women + income, data = Prestige)
+rf_au <- audit(rf_model, data = Prestige, y = Prestige$prestige)
+plotModelRanking(lm_au, rf_au)
+
 }
 \seealso{
 \code{\link{plot.modelAudit}}
diff --git a/man/plotPrediction.Rd b/man/plotPrediction.Rd
index 71f17141..3b6b4929 100644
--- a/man/plotPrediction.Rd
+++ b/man/plotPrediction.Rd
@@ -15,6 +15,18 @@ plotPrediction(object, ..., variable = "Observed response")
 }
 \description{
 Plot of predicted response vs observed or variable Values.
+}
+\examples{
+library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+plotPrediction(lm_au)
+
+library(randomForest)
+rf_model <- randomForest(prestige~education + women + income, data = Prestige)
+rf_au <- audit(rf_model, data = Prestige, y = Prestige$prestige)
+plotPrediction(lm_au, rf_au)
+
 }
 \seealso{
 \code{\link{plot.modelAudit}}
diff --git a/man/plotREC.Rd b/man/plotREC.Rd
index 9cd52fa6..abd6f568 100644
--- a/man/plotREC.Rd
+++ b/man/plotREC.Rd
@@ -24,17 +24,15 @@ REC curve estimates the Cumulative Distribution Function (CDF) of the error
 Area Over the REC Curve (REC) is a biased estimate of the expected error
 }
 \examples{
-library(auditor)
-library(randomForest)
 library(car)
-model_lm <- lm(prestige ~ education + women + income, data = Prestige)
-audit_lm <- audit(model_lm)
-
-plotREC(audit_lm)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+plotREC(lm_au)
 
-model_rf <- randomForest(prestige ~ education + women + income, data = Prestige)
-audit_rf <- audit(model_rf)
-plotREC(audit_lm, audit_rf)
+library(randomForest)
+rf_model <- randomForest(prestige~education + women + income, data = Prestige)
+rf_au <- audit(rf_model, data = Prestige, y = Prestige$prestige)
+plotREC(lm_au, rf_au)
 
 
 }
diff --git a/man/plotROC.Rd b/man/plotROC.Rd
index 94e3611a..f9e4123d 100644
--- a/man/plotROC.Rd
+++ b/man/plotROC.Rd
@@ -19,17 +19,13 @@ Receiver Operating Characterstic Curve is a plot of the true positive rate (TPR)
 It is useful for measuring and comparing the accuracy of the classificators.
 }
 \examples{
-library(auditor)
 library(mlbench)
 data("PimaIndiansDiabetes")
-
-model.glm <- glm(diabetes~., family=binomial,	data=PimaIndiansDiabetes)
-au.glm <- audit(model.glm, label="class glm")
-plotROC(au.glm)
-
-model.glm.press <- glm(diabetes~pressure, family=binomial,	data=PimaIndiansDiabetes)
-au.glm.press <- audit(model.glm.press)
-plotROC(au.glm, au.glm.press)
+Pima <- PimaIndiansDiabetes
+Pima$diabetes <- ifelse(Pima$diabetes == "pos", 1, 0)
+glm_model <- glm(diabetes~., family=binomial,	data=Pima)
+glm_au <- audit(glm_model, data = Pima, y = Pima$diabetes)
+plotROC(glm_au)
 
 }
 \seealso{
diff --git a/man/plotRROC.Rd b/man/plotRROC.Rd
index 96b4870b..6413d19d 100644
--- a/man/plotRROC.Rd
+++ b/man/plotRROC.Rd
@@ -20,11 +20,11 @@ The RROC is a plot where on the x-axis we depict total over-estimation and on th
 under-estimation.
 }
 \details{
-For RROC curves we use a shift, which is an equvalent to the threshold for ROC curves.
+For RROC curves we use a shift, which is an equivalent to the threshold for ROC curves.
 For each observation we calculate new prediction: \eqn{\hat{y}'=\hat{y}+s} where s is the shift.
 Therefore, there are different error values for each shift: \eqn{e_i = \hat{y_i}' - y_i}
 
-Over-estimation is caluclates as: \eqn{OVER= \sum(e_i|e_i>0)}.
+Over-estimation is calculated as: \eqn{OVER= \sum(e_i|e_i>0)}.
 
 Under-estimation is calculated as: \eqn{UNDER = \sum(e_i|e_i<0)}.
 
@@ -33,17 +33,15 @@ Under-estimation is calculated as: \eqn{UNDER = \sum(e_i|e_i<0)}.
  The Area Over the RROC Curve (AOC) equals to the variance of the errors multiplied by \eqn{frac{n^2}{2}}.
 }
 \examples{
-library(auditor)
-library(randomForest)
 library(car)
-model_lm <- lm(prestige ~ education + women + income, data = Prestige)
-audit_lm <- audit(model_lm)
-
-plotRROC(audit_lm)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+plotRROC(lm_au)
 
-model_rf <- randomForest(prestige ~ education + women + income, data = Prestige)
-audit_rf <- audit(model_rf)
-plotRROC(audit_lm, audit_rf)
+library(randomForest)
+rf_model <- randomForest(prestige~education + women + income, data = Prestige)
+rf_au <- audit(rf_model, data = Prestige, y = Prestige$prestige)
+plotRROC(lm_au, rf_au)
 
 }
 \references{
diff --git a/man/plotResidual.Rd b/man/plotResidual.Rd
index 82e00fac..7fcc9e80 100644
--- a/man/plotResidual.Rd
+++ b/man/plotResidual.Rd
@@ -15,6 +15,18 @@ plotResidual(object, ..., variable = NULL)
 }
 \description{
 A plot of residuals against fitted values, observed values or any variable.
+}
+\examples{
+library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+plotResidual(lm_au)
+
+library(randomForest)
+rf_model <- randomForest(prestige~education + women + income, data = Prestige)
+rf_au <- audit(rf_model, data = Prestige, y = Prestige$prestige)
+plotResidual(lm_au, rf_au)
+
 }
 \seealso{
 \code{\link{plot.modelAudit}}
diff --git a/man/plotResidualDensity.Rd b/man/plotResidualDensity.Rd
index 9ccb0f5d..43d6fdf0 100644
--- a/man/plotResidualDensity.Rd
+++ b/man/plotResidualDensity.Rd
@@ -18,6 +18,18 @@ ggplot object
 }
 \description{
 Density of model residuals.
+}
+\examples{
+library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+plotResidualDensity(lm_au)
+
+library(randomForest)
+rf_model <- randomForest(prestige~education + women + income, data = Prestige)
+rf_au <- audit(rf_model, data = Prestige, y = Prestige$prestige)
+plotResidualDensity(lm_au, rf_au)
+
 }
 \seealso{
 \code{\link{plot.modelAudit}}
diff --git a/man/plotScaleLocation.Rd b/man/plotScaleLocation.Rd
index 84cf4de9..9f0f0545 100644
--- a/man/plotScaleLocation.Rd
+++ b/man/plotScaleLocation.Rd
@@ -17,3 +17,11 @@ plotScaleLocation(object, variable = NULL, score = FALSE)
 Variable values vs square root of the absolute value of the residuals.
 A vertical line corresponds to median.
 }
+\examples{
+library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+plotScaleLocation(lm_au)
+
+
+}
diff --git a/man/plotTwoSidedECDF.Rd b/man/plotTwoSidedECDF.Rd
index 37fadbc3..ad174005 100644
--- a/man/plotTwoSidedECDF.Rd
+++ b/man/plotTwoSidedECDF.Rd
@@ -25,6 +25,18 @@ ggplot object
 }
 \description{
 Cumulative Distribution Function for positive and negative residuals.
+}
+\examples{
+library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+plotTwoSidedECDF(lm_au)
+
+library(randomForest)
+rf_model <- randomForest(prestige~education + women + income, data = Prestige)
+rf_au <- audit(rf_model, data = Prestige, y = Prestige$prestige)
+plotTwoSidedECDF(lm_au, rf_au, y.reversed = TRUE)
+
 }
 \seealso{
 \code{\link{plot.modelAudit}}
diff --git a/man/score.Rd b/man/score.Rd
index def46f0c..03691d0f 100644
--- a/man/score.Rd
+++ b/man/score.Rd
@@ -10,7 +10,7 @@ score(object, type = "MSE", ...)
 \item{object}{Object An object of class modelAudit.}
 
 \item{type}{The type of score to  be calculated. Possible values: 'Cook', 'DW', 'GQ', 'HalfNormal', 'MAE', 'MSE', 'REC', 'RMSE', 'ROC', 'RROC', 'Runs'
-(for detailed description see functions in seealso section).}
+(for detailed description see functions in see also section).}
 
 \item{...}{Other arguments dependent on the type of score.}
 }
@@ -20,6 +20,13 @@ an object of class scoreAudit, except Cooks distance, where numeric vector is re
 \description{
 This function provides several scores for model validation and performance assessment.
 Scores can be also used to compare models.
+}
+\examples{
+library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+score(lm_au, type = 'Runs')
+
 }
 \seealso{
 \code{\link{scoreCooksDistance}, \link{scoreDW}, \link{scoreGQ}, \link{scoreHalfNormal}, \link{scoreMAE}, \link{scoreMSE}, \link{scoreREC}, \link{scoreROC}, \link{scoreRROC}, \link{scoreRuns}}
diff --git a/man/scoreCooksDistance.Rd b/man/scoreCooksDistance.Rd
index 8b77dad6..62672c57 100644
--- a/man/scoreCooksDistance.Rd
+++ b/man/scoreCooksDistance.Rd
@@ -27,6 +27,14 @@ It shows how much all the values in the model change when the i-th observation i
 
 Models of classes other than lm and glm the distances are computed directly from the definition,
 so this may take a while.
+}
+\examples{
+library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+scoreCooksDistance(lm_au)
+
+
 }
 \seealso{
 \code{\link{score}}
diff --git a/man/scoreDW.Rd b/man/scoreDW.Rd
index ae16be0f..d1c5cd39 100644
--- a/man/scoreDW.Rd
+++ b/man/scoreDW.Rd
@@ -16,6 +16,14 @@ an object of class scoreAudit
 }
 \description{
 Score based on Durbin-Watson test statistic.
-The score value is helpful in comparing models. It is worth ponting out that results of tests like p-value makes sense only
+The score value is helpful in comparing models. It is worth pointing out that results of tests like p-value makes sense only
 when the test assumptions are satisfied. Otherwise test statistic may be considered as a score.
 }
+\examples{
+library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+scoreDW(lm_au)
+
+
+}
diff --git a/man/scoreGQ.Rd b/man/scoreGQ.Rd
index 6f47ddab..6759e355 100644
--- a/man/scoreGQ.Rd
+++ b/man/scoreGQ.Rd
@@ -26,7 +26,14 @@ The test statistic is the ratio of the mean square residual errors for two group
 where \eqn{MSE = (RSS)/(n-p)}
 where n is the number of observations and p is the number of variables .
 
-The score value is helpful in comparing models. It is worth ponting out that results of tests like p-value makes sense only
+The score value is helpful in comparing models. It is worth pointing out that results of tests like p-value makes sense only
 when the test assumptions are satisfied. Otherwise test statistic may be considered as a score.
 \code{scoreGQ} function uses a two-sided F-test.
 }
+\examples{
+library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+scoreGQ(lm_au)
+
+}
diff --git a/man/scoreHalfNormal.Rd b/man/scoreHalfNormal.Rd
index 0697560d..737f8420 100644
--- a/man/scoreHalfNormal.Rd
+++ b/man/scoreHalfNormal.Rd
@@ -19,3 +19,11 @@ with the distinction that each element of sum is also scaled to take values from
 \eqn{res_i} is a residual for i-th observation, \eqn{simres_{i,j}} is the residual of j-th simulation for i-th observation, and \eqn{n} is the number of simulations for each observation.
 Scores are calculated on the basis of simulated data, so they may differ between function calls.
 }
+\examples{
+library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+plotHalfNormal(lm_au)
+
+
+}
diff --git a/man/scoreMAE.Rd b/man/scoreMAE.Rd
index 89c994b0..18d5b7dc 100644
--- a/man/scoreMAE.Rd
+++ b/man/scoreMAE.Rd
@@ -14,6 +14,14 @@ an object of class scoreAudit
 }
 \description{
 Mean Absolute Error.
+}
+\examples{
+library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+scoreMAE(lm_au)
+
+
 }
 \seealso{
 \code{\link{score}}
diff --git a/man/scoreMSE.Rd b/man/scoreMSE.Rd
index e41e07c6..3c48bdd8 100644
--- a/man/scoreMSE.Rd
+++ b/man/scoreMSE.Rd
@@ -14,6 +14,13 @@ an object of class scoreAudit
 }
 \description{
 Mean Square Error.
+}
+\examples{
+library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+scoreMSE(lm_au)
+
 }
 \seealso{
 \code{\link{score}}
diff --git a/man/scoreREC.Rd b/man/scoreREC.Rd
index cf90b959..99193aa1 100644
--- a/man/scoreREC.Rd
+++ b/man/scoreREC.Rd
@@ -15,6 +15,14 @@ an object of class scoreAudit
 \description{
 The area over the Regression Error Characteristic curve is a measure of the expected error
 for the regression model.
+}
+\examples{
+library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+scoreREC(lm_au)
+
+
 }
 \references{
 J. Bi, and K. P. Bennet, "Regression error characteristic curves," in Proc. 20th Int. Conf. Machine Learning, Washington DC, 2003, pp. 43-50
diff --git a/man/scoreRMSE.Rd b/man/scoreRMSE.Rd
index ee0b49a6..4e3af8ee 100644
--- a/man/scoreRMSE.Rd
+++ b/man/scoreRMSE.Rd
@@ -14,6 +14,14 @@ an object of class scoreAudit
 }
 \description{
 Root Mean Square Error.
+}
+\examples{
+library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+scoreRMSE(lm_au)
+
+
 }
 \seealso{
 \code{\link{score}}
diff --git a/man/scoreROC.Rd b/man/scoreROC.Rd
index d4f4b564..9504e3dc 100644
--- a/man/scoreROC.Rd
+++ b/man/scoreROC.Rd
@@ -14,6 +14,16 @@ an object of class scoreAudit
 }
 \description{
 Area Under Curve (AUC) for Receiver Operating Characteristic.
+}
+\examples{
+library(mlbench)
+data("PimaIndiansDiabetes")
+Pima <- PimaIndiansDiabetes
+Pima$diabetes <- ifelse(Pima$diabetes == "pos", 1, 0)
+glm_model <- glm(diabetes~., family=binomial,	data=Pima)
+glm_au <- audit(glm_model, data = Pima, y = Pima$diabetes)
+scoreROC(glm_au)
+
 }
 \seealso{
 \code{\link{plotROC}}
diff --git a/man/scoreRROC.Rd b/man/scoreRROC.Rd
index 1998f79b..c8dacd16 100644
--- a/man/scoreRROC.Rd
+++ b/man/scoreRROC.Rd
@@ -14,6 +14,14 @@ an object of class scoreAudit
 }
 \description{
 The area over the Regression Receiver Operating Characteristic.
+}
+\examples{
+library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+scoreRROC(lm_au)
+
+
 }
 \references{
 Hernández-Orallo, José. 2013. ‘ROC Curves for Regression’. Pattern Recognition 46 (12): 3395–3411.
diff --git a/man/scoreRuns.Rd b/man/scoreRuns.Rd
index 5ecbd457..55420915 100644
--- a/man/scoreRuns.Rd
+++ b/man/scoreRuns.Rd
@@ -13,6 +13,13 @@ scoreRuns(object, variable = NULL)
 }
 \description{
 Score based on Runs test statistic. Note that this test is not very strong. It utilizes only signs of the residuals.
-The score value is helpful in comparing models. It is worth ponting out that results of tests like p-value makes sense only
+The score value is helpful in comparing models. It is worth pointing out that results of tests like p-value makes sense only
 when the test assumptions are satisfied. Otherwise test statistic may be considered as a score.
 }
+\examples{
+library(car)
+lm_model <- lm(prestige~education + women + income, data = Prestige)
+lm_au <- audit(lm_model, data = Prestige, y = Prestige$prestige)
+scoreRuns(lm_au)
+
+}