From cf652f0646f1abaf059589802e3f63767ede1bee Mon Sep 17 00:00:00 2001 From: Indrajeet Patil Date: Tue, 4 Jan 2022 05:45:41 +0100 Subject: [PATCH] ready for CRAN? --- DESCRIPTION | 2 +- NEWS.md | 2 +- R/center.R | 15 ++++++------ R/data_extract.R | 4 ++-- R/standardize.R | 17 ++++++------- R/unstandardize.R | 3 +-- R/utils_standardize_center.R | 10 ++++---- README.md | 5 ---- cran-comments.md | 13 ++++++---- inst/WORDLIST | 1 + revdep/README.md | 25 ++++++++++++++++++++ revdep/cran.md | 7 ++++++ revdep/data.sqlite | Bin 0 -> 229376 bytes revdep/failures.md | 1 + revdep/problems.md | 1 + tests/testthat/test-std_center.R | 1 - tests/testthat/test-std_center_scale_args.R | 1 - 17 files changed, 70 insertions(+), 38 deletions(-) create mode 100644 revdep/README.md create mode 100644 revdep/cran.md create mode 100644 revdep/data.sqlite create mode 100644 revdep/failures.md create mode 100644 revdep/problems.md diff --git a/DESCRIPTION b/DESCRIPTION index bbb9be686..9e41b368e 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Type: Package Package: datawizard Title: Easy Data Wrangling -Version: 0.2.1.9001 +Version: 0.2.2 Authors@R: c( person("Dominique", "Makowski", , "dom.makowski@gmail.com", role = "aut", comment = c(ORCID = "0000-0001-5375-9967", Twitter = "@Dom_Makowski")), diff --git a/NEWS.md b/NEWS.md index 2c7ac1f60..e91874a6d 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,4 +1,4 @@ -# datawizard 0.2.1.9000 +# datawizard 0.2.2 - New function `data_extract()` (or its alias `extract()`) to pull single variables from a data frame, possibly naming each value by the row names diff --git a/R/center.R b/R/center.R index 1c07f39e5..7b1e878ea 100644 --- a/R/center.R +++ b/R/center.R @@ -90,13 +90,12 @@ center.numeric <- function(x, reference = NULL, center = NULL, ...) { - args <- .process_std_center(x, weights, robust, verbose, reference, center, scale = NULL) if (is.null(args)) { # all NA? return(x) } else if (is.null(args$check)) { - vals <- rep(0, length(args$vals)) # If only unique value + vals <- rep(0, length(args$vals)) # If only unique value } else { vals <- as.vector(args$vals - args$center) } @@ -147,8 +146,9 @@ center.data.frame <- function(x, ...) { # process arguments args <- .process_std_args(x, select, exclude, weights, append, - append_suffix = "_c", force, remove_na, reference, - .center = center, .scale = NULL) + append_suffix = "_c", force, remove_na, reference, + .center = center, .scale = NULL + ) # set new values x <- args$x @@ -186,9 +186,10 @@ center.grouped_df <- function(x, append = FALSE, center = NULL, ...) { - - args <- .process_grouped_df(x, select, exclude, append, append_suffix = "_c", - reference, weights, force) + args <- .process_grouped_df(x, select, exclude, append, + append_suffix = "_c", + reference, weights, force + ) for (rows in args$grps) { args$x[rows, ] <- center( diff --git a/R/data_extract.R b/R/data_extract.R index 18b570a3d..49bac4389 100644 --- a/R/data_extract.R +++ b/R/data_extract.R @@ -60,8 +60,8 @@ data_extract.data.frame <- function(data, select, name = NULL, ...) { name <- rownames(data) } if (length(name) == 1) { - stats::setNames(data[,select, drop = TRUE], data[,name, drop = TRUE]) + stats::setNames(data[, select, drop = TRUE], data[, name, drop = TRUE]) } else { - stats::setNames(data[,select, drop = TRUE], name) + stats::setNames(data[, select, drop = TRUE], name) } } diff --git a/R/standardize.R b/R/standardize.R index f7ff5e9ff..676d547eb 100644 --- a/R/standardize.R +++ b/R/standardize.R @@ -140,14 +140,13 @@ standardize.numeric <- function(x, center = NULL, scale = NULL, ...) { - args <- .process_std_center(x, weights, robust, verbose, reference, center, scale) # Perform standardization if (is.null(args)) { # all NA? return(x) } else if (is.null(args$check)) { - vals <- rep(0, length(args$vals)) # If only unique value + vals <- rep(0, length(args$vals)) # If only unique value } else { if (two_sd) { vals <- as.vector((args$vals - args$center) / (2 * args$scale)) @@ -172,7 +171,7 @@ standardize.integer <- standardize.numeric #' @export standardize.matrix <- function(x, ...) { - xl <- lapply(seq_len(ncol(x)), function(i) x[,i]) + xl <- lapply(seq_len(ncol(x)), function(i) x[, i]) xz <- lapply(xl, datawizard::standardize, ...) @@ -239,8 +238,9 @@ standardize.data.frame <- function(x, ...) { # process arguments args <- .process_std_args(x, select, exclude, weights, append, - append_suffix = "_z", force, remove_na, reference, - .center = center, .scale = scale) + append_suffix = "_z", force, remove_na, reference, + .center = center, .scale = scale + ) # set new values x <- args$x @@ -283,9 +283,10 @@ standardize.grouped_df <- function(x, center = NULL, scale = NULL, ...) { - - args <- .process_grouped_df(x, select, exclude, append, append_suffix = "_z", - reference, weights, force) + args <- .process_grouped_df(x, select, exclude, append, + append_suffix = "_z", + reference, weights, force + ) for (rows in args$grps) { args$x[rows, ] <- standardize( diff --git a/R/unstandardize.R b/R/unstandardize.R index 50dd4df06..9e7665e49 100644 --- a/R/unstandardize.R +++ b/R/unstandardize.R @@ -161,10 +161,9 @@ unstandardize.matrix <- function(x, centers <- attr(x, "center") xl <- lapply(seq_len(ncol(x)), function(i) { - tmp <- x[,i] + tmp <- x[, i] attributes(tmp) <- list(center = centers[i], scale = scales[i]) tmp - }) xz <- lapply(xl, datawizard::unstandardize, ...) diff --git a/R/utils_standardize_center.R b/R/utils_standardize_center.R index 6025455cf..3ca5c4e59 100644 --- a/R/utils_standardize_center.R +++ b/R/utils_standardize_center.R @@ -96,9 +96,9 @@ remove_na <- match.arg(remove_na, c("none", "selected", "all")) omit <- switch(remove_na, - none = logical(nrow(x)), - selected = rowSums(sapply(x[select], is.na)) > 0, - all = rowSums(sapply(x, is.na)) > 0 + none = logical(nrow(x)), + selected = rowSums(sapply(x[select], is.na)) > 0, + all = rowSums(sapply(x, is.na)) > 0 ) x <- x[!omit, , drop = FALSE] @@ -378,8 +378,8 @@ } ) if (is.null(model) || - # prevent self reference - inherits(model, "parameters_model")) { + # prevent self reference + inherits(model, "parameters_model")) { model <- tryCatch( { get(obj_name, envir = globalenv()) diff --git a/README.md b/README.md index f0437adaf..87c9c689e 100644 --- a/README.md +++ b/README.md @@ -16,11 +16,6 @@ transform, and prepare your data for analysis. # Installation -[![CRAN_Status_Badge](https://www.r-pkg.org/badges/version/datawizard)](https://cran.r-project.org/package=datawizard) -[![datawizard status -badge](https://easystats.r-universe.dev/badges/datawizard)](https://easystats.r-universe.dev) - - | Type | Source | Command | |-------------|------------|------------------------------------------------------------------------------| | Release | CRAN | `install.packages("datawizard")` | diff --git a/cran-comments.md b/cran-comments.md index 05ff7e263..db8543377 100644 --- a/cran-comments.md +++ b/cran-comments.md @@ -1,14 +1,17 @@ ## Test environments -* local R installation, R 4.1.1 -* ubuntu 16.04 (on github-actions), R 4.1.1 +* local R installation, R 4.1.2 +* ubuntu 16.04 (on github-actions), R 4.1.2 * win-builder (devel) ## R CMD check results 0 errors | 0 warnings | 0 note -* Maintenance release. +* Maintenance and bug fix release. -## Reverse Dependancies +## revdepcheck results -* No problems detected. +We checked 10 reverse dependencies, comparing R CMD check results across CRAN and dev versions of this package. + + * We saw 0 new problems + * We failed to check 0 packages diff --git a/inst/WORDLIST b/inst/WORDLIST index d866af241..02fa38651 100644 --- a/inst/WORDLIST +++ b/inst/WORDLIST @@ -62,6 +62,7 @@ rescaling stackexchange tailedness th +tibbles unitless untransformed visualisation diff --git a/revdep/README.md b/revdep/README.md new file mode 100644 index 000000000..274624151 --- /dev/null +++ b/revdep/README.md @@ -0,0 +1,25 @@ +# Platform + +|field |value | +|:--------|:--------------------------------------------| +|version |R version 4.1.2 (2021-11-01) | +|os |Windows 10 x64 (build 19044) | +|system |x86_64, mingw32 | +|ui |RStudio | +|language |(EN) | +|collate |English_United Kingdom.1252 | +|ctype |English_United Kingdom.1252 | +|tz |Europe/Berlin | +|date |2022-01-04 | +|rstudio |2021.09.1+372 Ghost Orchid (desktop) | +|pandoc |2.16.2 @ C:/PROGRA~1/Pandoc/ (via rmarkdown) | + +# Dependencies + +|package |old |new | | +|:----------|:------|:------|:--| +|datawizard |0.2.1 |0.2.2 |* | +|insight |0.14.5 |0.14.5 | | + +# Revdeps + diff --git a/revdep/cran.md b/revdep/cran.md new file mode 100644 index 000000000..7aa57f6df --- /dev/null +++ b/revdep/cran.md @@ -0,0 +1,7 @@ +## revdepcheck results + +We checked 10 reverse dependencies, comparing R CMD check results across CRAN and dev versions of this package. + + * We saw 0 new problems + * We failed to check 0 packages + diff --git a/revdep/data.sqlite b/revdep/data.sqlite new file mode 100644 index 0000000000000000000000000000000000000000..443b5c4ed42603e74d95822da085fbfb037b455a GIT binary patch literal 229376 zcmeFaOK==lnl45)yVcVV3f-fT>2`ZON9^e-P>oE~8-;3#LlB@Ov#!I0#v3p0%A0!^-ue~yhC95Nj&Q_8I2;bo#$Gt?o!NME9S$#S zFTC;hpK~(vR8`gkAV{&r1BpOY=E;-ieg5$(MW3+NWmEudRKw}5T|-2%D=bPMPfcqv=p#(#P3(OYl5_U}ek$F(EB=hMG$ZMW`k zJ-*K#Z{2%vpV1YzIm%jwb=1`_Ltw*gjw)?RCc&y*$ucPqSZ*vn-=?$q>nlgsSN@Nc|6%37S^38+M=SsN zOF7$gp>zxA7SJuATR^vfZUNl_x&?F#=oZi|pj$w^_ zT)+O~x22+m&i<#)7go^wvu|84y)D!+Tty+ZE+w;w|2B)o(hpy|{%1FP9eKS%*T03V zzq|53QVTX#{=b#~XXXD|`By9d`^rD8{BJA&%gW!08+23u=oZi|pj$wwdt{()p%a!LvbHgm%3v4ffLVwR>pE!2lImhhXj<|OBR9rCq zpnvDlN1lCJtC@|>a;;b^)f=0oYNK2%myKe{C{|gq+AM7}tCe5h>bh1K-fDh&E9ee; zeEYif+1f3?^VIG}x0=7c6-GU%%_+el1*Xsq= zQ`?UAQC@d_$M42Nlr~)dz==MLJL}noxh^)#b^f|=U8&?cimiS(TRctSz)RlVN{t#- zvt*XpDr!|SN~l%oc9v>{HX{o`lbto{hxMv)iho0t{m+ z&yb8rMn=(ryeN4|VW5I}Do86e-W^@bV;yQt*tc94R;ZkcWH*zB37s!Qw@(a=dsEa4X4YFt}yN-b)C^u zE%_$uWzYAFt@ifrE~b(dSltK%k$4Q(rcC3$3_opMI`SerQ>YcVWtxs#?{VSO70Z>PJCkv{NyNQu=o#2VYp zZLh$_2GX@@`(j72*A**&P8l%fY^?ifBG$zmpE2Ti>1dFSeC#%~tc(I5e}?(#d$T7{ ztH)<7ZK!z-gWKHz?=S-U2n(s#oxQ>h9TWvE-;*j!Hmg9<)@0Qk3WHYfMdt@ zHLETM2XRPP44C|9HYSzZ_s}U(ZZ7odm{!rL34_kJ&#d9d&3}Eiy3$4*vZKHsvI1SD zTIBA(A|diEWZQaPQ_I&vHm$#jU)4XxuksJ^>(76HUw`^N{Q5Wk2*3XIZ{yd$Mo9ke z@ss~+-^Is2dE@V|t^Cg`zsK4C?^ph-m4CYOpRW7|D|c5)EAfiG^4BYmR&KAn{l>p~ zi&QEL_w-x&?F#=oZi|pj$w8n-2Co!l3K4xzLFe;gAP#NbpWsA}aJ;>_i}oD)BfRZIL}L>r)tl zumNZc;K|I^uvd`S(gMdN780ZlL;C>#7|u)b@X^EjV?f5h7KluaC^}-vs}uGIUd#4J zyZih1cj&nt{``U0<|H3Yj>J6h4m^Uv0{jYC7=d5KH=+T-w<2yOoEG@XakljuE)si% zK+7IkZfN65Ae}xa4-QzRj1qJzU7W_JQVIb^!+m@{wSe>W`t)La^L+HQ_}H_?+%eW&#heL!Z?*5709g4RJGiyu17hoZ9@_`E)4q; zsy*x2KMjwa=|q7KP}F-J=JHdstto?Fi!nnRi6-9BA5yZ&%G zZ(QVXF3SEMU ze!tQH61hE{Ca?b80Iiw5Q#NQ;{~Yx9bjFJ+zgepnje4b0pQ?OkC}HI&L{^Hany1+B z>31s?=fLpk6tdb$r%#NWtf~M4I#~K7%G?a$&;_mTe)K4T5^c+}p$YqAX;j@RGj=Ir5Qn$%)jfF9g$HX)RPAUhE9?B+)yZ6ZKLrp$* zS!9(7Hsf~z`*qK|*h8J}#Ep(43M`%<%Mzu9aEn!L>=8!(3qwGUO>Fl;M5QO(biua5 zb1n;W(U39FYtaRJ2odsu(}hO~w*C+H9~hMb?@8-HlMSM16gJn_(+ABy0NHWJbbQqd zXZ^st7x!D-z7}Rr$+YO@EQ7Jf04|Pgw6OHLZ33dbdgnb>F{|io>4Mv2nPANC7R?g; zV{fl9f;Yn%2hE*%4#^Z{N{~%Mh@-s2DRVqtHOqKBlirhTt2|rYKoIw&=PyPYb>{o< z74QSRYUG~d523~T=W8S%bz!YsWBoq$3t0*2GyN^&L!=bqLtvo0YwXx_B4pqW?dlpE zcHnu8qEOFM?xT_T6Jj8&F;IU8$36elQ*sH0^d8)!ZnuIVMxt%wmz4U~SR&`kmPB2w7*y_8<*hLRHJ#u6I&Sztu|khm7*pUO*V{;8ZKGEe0pOi&0dyyWvURfLf=(+MF&WG$o& zmPisyWUcJ@Y1ZmaFY--ybf)auOXZ&Kt7-1ZewySQ95cQ(vQM#{ea8D_Y~NzEHHn*Z zd$w$(TgDwMA+#ce4!I#V*>-E|AyyhV2dwYM9oNCMc?{Rhhl!6LPFl&*Lb3yH+7Umd5&OaI+w9i| z-p{Z-CTW^Y{^^ic_mEz`DiVNdGI4*zp@|;G8cGgT`1bzRgZ6#&Ic0>bj-An=?;TQe z%B12J`txV(w^%`*Ja};6-GQiaha68GX7KD*8C(6T9dXZ%%Z>$lHC6C0uJogiN* zg0@^&$^9`YkPdF~vnn<+WXu~9%@f*5|1F;bR%@976^j1xA;vp=s#c^X*@EQU9gtu( z64R;43VaiV3<7ln#F8W5b^TMWjp1I!~ET-vQafFCfhw?=YGrv)`^V`4XY!83?X~NJr*k>c^E?0XDyHvgS&_A;TVNEic=YV z?a`^~JUf`*Hu-WvKKS?E-{U_2tGDUpJ~)N=p-T_}AemCkcj%$Kg;6|HC?j~m^NY@pQ!|S`a}Nee@yvnTP-ai@yTsTQ>%zE%^IwE*3rd9|C)r6bz|ZM#|Ka63)l`W*H#zp#WJwy`^y?2jm*Y*w+d&H3+*f&F*CZP)No5SV#RVxUlY@95t-ol{~a{Aw*P+(?Ef1ZX0cW; zqldNqU)%pdV#5t_nKqubHKtk#1yLImZWC#wIc*I8pzZ%D)MH#7uI>NY{?Cp|C5G9+y5u1K(+l};tRC>KSS+l`~S;e|M%UVimQ^O$cb%R z+y5c^5o(NNK-m8`#9wXy*Y^KZ*RJjV8hxOV7k`kblX1Jcw*N<&QC{2sVXGR)kZJqB zqwW6}#4Bj~{|uM_SwUZ%{l8Kbg8OC#f64ye(Dr}s>aFen0G<%);h8W7FPHtF`2Sve z{pL0NuYYt4=oZi|pj$w;PsjhGvpe_N zq~%1%|I_jRree&J|ACJGcO~)vE*7s4V(#m7{{QB+4{-kfX5kwf_;9(Ozxk_g-FW-W zV;(R1AN}&nn;91&oU`^U$O8_n8= z;{Wi~#f;7>x=taZv#(#Lh|yWC))B22Bjk_&sQ&|m?{kbW$NX|X1!kAtQ6~@fg1}7-)I(Jj-c>LQ_uv@zJ8ti`}=?Q*WbAD zlbfIM_57cF_T^25=Ys>$a!8BbmCQ+ZB~c?$Az>}YBq^E25=b3urADn%Z#3!?UA@t) zY`zpzTd5?U+sgN^Q)esHqUC(MwY&d#_tC>#?q7ZW*XMtI{^tS1<4&UMm=Th^B?G0? zdB*cSW2?QrtIz-X{GX{m+7+hH|N8t7tQfc$Kzbhd!v!4nA|d(br)&u`_GxPfVxbG4 z|NjWW{f#RX0Wtx(z!I*yf;bd{sU#!70A;pMED=q{srJW~iA1^VCG>z`D8Q-;g#jp( z=0ykS*`Pz}A?q1SG{_~Q0chXwzr_S$N6ImgaQ!RlN}e1Xy&`>9nw+Gx=-X#@H;$|h zcs4}8%}6(JdMKkzLyQ~?HWtd8LQ1AN3l5#UhDa2wNedR#?vN}R8NEhM`Ldfy78G)l zzlsj(GP>p=Aoo12<02h)sq(F;8bxbeu5;VH5_8s2G9MU9?8b%`f(dBnP>4!QwWf zK$1p>(^P>eh;?i-ePH3D5=z=nkS}r&8F9SiRcfq|SpH=Ulbq^nnIfV1-0J%axy;>}=*LY{ z*;lE|1W!FT%$u&?hiFbqX3vhm;T@X9ut)!qYwvQgr>c#*S=rdAzF6|9TPd<26G{^) z^0~^b)G&h6b79!4tliV7S5I(8;eizd$DbhV2J!s8B%H^dk2!@i3eE=m2sUE}jvolw zndIjkOrgN(AdCnIWyd09k?9RQkzY}WtVI-2`3Asg`l@GP$oR+QaS4{?% zbi;H&CSsDdUA8knG}b3r??Dtlivw<9Ftnj~joC9#c}{n`F(MUtrrkq)tav)#`JG-d zs-8ry>a3qPVgO&36^@x9;wE;vTipy@>Eh~}ZZCOQAI`8&eP%ua0cY%&URlrVi} zsyiN2(H4|!&l)^Ksj%bG8xUi05WvJ7c4>r7S8{$=@CYiC|$IWVGei_?VPPj~EWN!!7scWB4x9I%RDeY|y z?;_j_Wny|?Oy@Jd9%W;rQQa_#)e_?NO@)cO0N`mNQrv#vpWp};GRSi{zL4e`y#5Jc zJQTlU@*l-vOJzSUAf`g&kPD57I}qUz-gRTjbL8XPXb`nBl;`*^!^w$J%|jo>L(r|K zLZ-u3_qO&C$!mxp1;pq~{KR-CO?cA1uYQOCXULB2Acz~zS|X!eibR4l6EoO{JG(z; z9|dvP9ULQGSh-lLF(AL3CW5Jz00UXy#-*}B!A`3i8%FugZK{OGMjjC9dNqlP*Lt*npY{fXlp`{11Xqw*k>t!927IUdG)@5&=7)d731U2W z8wE7WkNAexK@i#=f;o^*F;wO(_2Fz%H+~fOWowOfTG6qtR(4a9QSCrQ3L=AEN2BU)lfJZe6|Dh9oDrjvdIlC zN9*{U$Z|Bmy*`5EP;01nC*jwZ;vfHH1fB$%M`R1!<@3gg)!I^I=; zvIB2@vC>2|yJ7`4HH5Omd25I;8R9rNCy?C|M006W;xx1x7Q8eXu@DUY@B+f62ZXDS zj<=Ue-v}E@67~`dc8c(OM>J_B<)*<$DK_Bz2!4vZnf6vHXNr8s+8AT!AvNeQmj79b%wGCaQSae8wMWOwcQV!z$e+_G4 zF0_@3L`$V6_Ji~f@ufzG01*4h_#h?03nJQR$-sWuAjsnSAspgTk^Hh}A%D&f*USB1I{c%`##OA9x0X4JHjqJ?t7>??8cllSkGm z7&j0A;rfU)^FVUpumWuxLe|T}+Yxjq2>i|OA`+E>^OAZAu_Djq12{wY%!vv(n^{Mg zkaYONajWYboy+GT^Pd1N1Ta!+n&PPlPS6wClEubg@1qm~gG5I){BQBNHHgN=V}S$r zZL{tDCnA29eMS+7SZiyKo!UGY4UyIZ*nm?7#BUP$eQw(bSBG7bo<$fZF6g_i?KYb* z6(RKGHeFw(nCY{-Mjoulp0t${q*LC$co?f}Ny)}EN;9xV_F>nd*Uc^yos8z)r*l|# zzd&CLDN<}T!L^mm60BagP4*aqkdVL6G?s>l&f zZgF6gG`!*1i{pCW_e35C9>xOoa$?dV*xCsUbQ}m44FW&z57L0QBF{q~g*$QV(}D;Y znAhUGHq<_kk@sX&RJ>wVEYoE8XUz>WE96|)#u3dv8~Gk7nJD^O-;NG(G{S-}i~h^45ZTRs*}B9KqJB-uS^0FOcWlRq!t6nff)lO493l;( z{heL^~s(&i?VF2&;Jyxhg9KaG~o3gSYB=d77k6FEGlaFm6v104uP zJfiZ-2XEajh!qjqEDU&#xNK#E*khwCFt)HY=XI)l>4nD)AKhu64ta>g=Ngc%RL1f* z9g&Vg)A5LOr7}K=kaUgmB|_4bYi6BO(v>I_9b?tHiG0X7|J#d(q*InmLQRo)l=h1P zNhy$?PzR*b0qOXT27y2!ihQo@+|1X5w&&BJz;&F}t&zult7;PS*?kM)eX*F;4 zgHpqG`tVbdiMVPY*TYPDCy*8d=IW5}$~gJ>_=CX3IqPaG@qo*}2TP(whSwR7b_2Y_ z2<#(xX2Hmq`vxkC#{X;lf9~K&)G4V;CB)nXewab*d32UdMml+JW{>lu6foOdB-Z$U zv{QjQbrzEOjkeMFf79gpfc^VB$svl=25o3h;;_k{EB-&1spv}a|A2TQ;#E!K|E=yZ zP7|r}tjV%-GBjpRPcygfAje?h=+1&;;HvBv*%4hVwM@Sk*?E$~VJoP*opHU1xq zKS(kOL0wcJbMv==3`sW)dsiU#8vjpb-}hK|^-*hkcZYAZSzBxTzsCQU%_8@X(D;9i z|M%=DvhT%?3vccwJN6vH6y2ZXwOSm{UgQ6Z^%SYD9%}?xJw3jR(T6X_!7C2LY3}fX z!ci#fh@3V4pZk+){6DarIotdzg#XV~5NiCtH6m9;?*0b+f0+&}q~;WVHU3|9Akg^# zpw}ak!}CnFDImBUCVB7uJLIr5N`N(Og@yEFVYIX+V3|ACg*_n4IuALvey{*Z6;p|K}_a z8vhRz^dpaLx3(U#)#r}?ubZ_5|KEV}a~A{se+>tg%+(06 zP0jre;3|3KC1m$A0N?^sdpYiZwJ+pClC5M3G*98*&u%6QWs3cO^bz%6%C?%^PYRz) z%&w#V>gYdXqedh3b@ZQCH~LT42TPt8aYnrYxi=KjwLf?HT{4X0zEPX%(9;3|# zo*Pi|K@KK0c4(dCJ4u@Uh{N$o{08Sj&NjvG&<)bdw=Dxd+GjH6MtU5`D@3vbW{IxIhrsgu6YG9^9`(F*GyoIqq2zpQ4SNO9 zCem?b8hMX_2Tq7+evWj6Ii$8aq}Bk`%IPkMV88i zJp>#&%oqjdJ#*D0{4_l1KeBu+$$MX~fHtQ7f^qLCo*)Qa$UdLRfGPSMR&R&groilZ z|L6$bhahP~h$mVv+F1{Pc|Ij|9OIZ@l3+fy+Rp`?Ekiio1+#_F64BHb6*M1lj8ZW;4MM%tzd%gs{`ERseT<*0FyY9y`;CQe5N${4Gcx!HFz# z$t+LP`OUAd2Gw5_RG(r;rkh&n-$mr|3mBrGKe;^V6M$k0MD@qt2X44|ZUrCNIo#Ju z-9N&HyqK<8AaTf|K1C|NV}TfXZu8Q5^=$9>1!NOJ2X!iY+>8$2YPY@;}Qo2zqZf?%+lVA8?Aww*l=@+OSV}afXR35W2|BLE#EONLT zgB99~!^=>ygY2}{s2dxl8m9$^4sp+dNP&L@rb~B^G0fMyGgkLI`IOq@jM}Gua4e|L zr23aOK(Rdvjst9f9O*%%&WRk-gU&diHs+j07P9Es?8Jh{esoS*2oa2}h9He|Avoch z%qAXD)J8~_GKmn-h|nu_sfJr5XPs^~!z8to=~izSlBod#7XOrFI}+v*V3Ksp^k&+z zg>c8MG98;}kwFwE_xFS(d)pt_UID6bnq(kr2D7r?Bl2oH>OzLTFokj^Qe1>WS$RrO zDC6Pzgxr~enXTS=j|e!SM+Ep*Hd%793I;Znfts$1x>9}dRFy+^6H3+RTzrriM-cf$GIwa_nJ z{{+8NitoNP99DCoyN7o07!rI+-kn6w0{>sXdxAC!yWnQaD7o=bG9t`9@E(E_Jlw_<0YM&3ktR;g zsUK#q2`>6_$v`9m&|?>C&1$V#l04Z@+V@)-O?Lj$LvT~{Phfv0#@6b)pb#8|&GmIZ z=sG=<=pi!*VJbY{Sz~t-c~MN~R4&9CC#1F|n4uN%EQPYZI0Eie)JbTv7g9M_3=qxL zjC!q7O3OPTTZqLJDl2X@%QG0Evn7$vn`4a7FPaWID+;HA&c4c6aT*Fb4h1dBy+uMoF9QY5 z+8DCW9oX~l@PG%0+{l6>Z+0IdALj|6xJrFi=E;a(g&6wC#Ql8P4I6m*Ja)rI!fsft zH!i_$2-w}GB-E}Eu(k?)O8s)^hOEW7-jGb=smZ^f-h2-1h9pMt7m_lSf9RY?wm}jb zV!d-w4Z1RHSs9xvDIZUpPM zt(f8x9q@Fb)V8SY|J2D@5BE$rwtF^M@9xIOw%G&uoni{%17cC%B35C|sFaHc0zJ{U zD*MFz{!NwQ)2~{r^*J zQ;R}Mr~9V1|Hqy64D7Uywu8gNI@e!^>Y7eeP}vf%?f=lv4w>!d+W%83s10thzECLW ztc_o7`+vm*APYaxqi}WuAofIS{`R8L4YL;2_J7iHOCTsWjVow^)MaV0%{+&G;8mkJ z$OhHd(*Az~`2W}5_`x;&uYYt4=oZi|pj$w5RM`K#A& zy#40!58pH@U;d+Cet9!H{=)fkF9{^KoLBCnkDyD0mu0z9EHySZE9H8v2&;P;-pnO~ zT%)SZQlnWd{`ywewL-$R+zPtG9#=^cQpWE*1y1i)^Vh`1A&@n<-jOsXuHRSaa|+wd z^(UbngzKqUo?G76cO*VAT>rp{K71ApC?~KJ9=t6kaXpNKdf2M)EJU43&=DjhOmIF; zHjVOOt3dp8oJdIyPaf{Y+Z|XzXh%)9+kVt&)HaP$mZi_>K0;P749_%;d&2DvQs`}DnBfb%QS5AEYiC>*fc3B?SEEO+3_>bUS?`WW5Ey*7*Hrddqrf2p z*~A<3p(u)hC@i7hN10( zi^^oX7%tSlaApJ516~3z1=|W8@KJ>4K=qyxSw06%qX@``aC6+`Y5+w&kQw5l$VDxI z1(MWrfUC(*o{+boDe&Wvt)4i(i{kL2z_}SDsvy4*-$W(@)WJtx;Tp|)ew3udM+5%$ z#wqR}qj>z0+l+9?C|ch~c~I}wk;8qxL{=ROcQKu#@HQjMi^;ZQFfVwKdk!!5h)I`! z-X!1%0CfP37Wno@=OfO~lT)n`n#$q`XY&5%?c7W_3Q&eMVhfX$1^g?bu*Yx-7dg=* zJct0Gqsbb^TPQLpr}eFek3QZaFLabr_)w!ms2%OZPh2!5dIX5|$f7v!NkhZQ9HRkk zB-$O0?|4~Y_lbOr_zIGYrWgm{KFAlR2fN$%AGYrwcu!gnnk@0Ih7LQhp4xWA2e*Pk zP{!!Gg8xdMlW+wz=;W55Jb2*Ui~B8`uYTDpmwI$vkQhvH7=Ua5v;qg7TvMB4jVW*f z8=NN~GsUI60|X!Fjofok0LaNGx{YQCJz6mqAA!D_V>2;S|c~cWEo*> zBiF#Sygp_Y=T8uS?w@fAIu5uW%LRy7{>I4ZQKjPu8^Id;q}49-8kNkFQ9)a_<9;8* z6G5_xOhMi%8q{1U9p)b%>i22X(ySEC0*($@DYLBBpGWD+7!o4u-X2Cg4P9h4MvjmX zAB1sm;+$Bn(u_1+D4GU;Nd?eeiV7Dw9n6R|cG7c>j<6jstwag=x^@U7$cU3^PW-CVAM=NrkZ&n|Z=rCBG_yYgMz-t%nl#Z6idi48{n zZCu>;t~4@+*1zq?+&{AGK*)%&!KeO@R@jtl9v|;(Y}XXh{%wreeKgaI8lh(N$~I>bP~%2!`y*+nID7zUJ9fW-UNQ4BQ7 zc=6P_D8$>tWi!V2FkU|Fbn`;AQ=WWN@(qJ#jF-D$1tF@SPsNs?Cx{q746Bf4&AS@VlRW`};q+`T1MW-~Hd8eR)$EHC(uvl+zaL3?4pud>?X2$=oOx z8`aHHwNb5Ji%;?&ndk*8J@n!KxI@KCZI3*iB!9B;aW`#}fs z5NzqB=SX-koWW%_#prQ%Bnrm7R;E)WC+E;{ME;QD zi1d06X{HcedQNnZt0vGW$>p+bgOHc8E3nHe^3M!`9=yAJ-86v-z-mj2gw(x3zb5`8 zo$hk+JW56IPl9J154=D=k6Y=&KN*DPd2U2F?%t#$?~Dye+yA+8mVRaI6XS-7X&d__ z6hYhnwf$e)|F!*}wqj|K*7pBoUDfvg$L|{rgx~;VB8JCili8l}q)ivJ{oesjOJaXs z75l$upKAL*nZ$uV4HzJRdG`NOjg}9ftcWe1Z~&L^y;lwuFs5nyKVn;bz3u;1F;*J% z7xw>JN!$NZkP97{bsU0YVocEX|F3}w{FSc4?|%A6S8xA^Tv9UYrCOs@uWUA|^-{e) zW&f|1Upo7LzBr}r|0Y1XJiY^&oH*W5fjo{Q6%$9N0!NQ%`@diT1Wwkz9k2G720A4P_bF*rM!w*On?VU?nf@p;UIkkhiK0|b9X zn{t;d8R$g{KCwp-QsmKfZA8}1jY^?D?xj}oamnej#hJ=)nF7i1S-cJ4B?|vV8j|Ej z1>m(rL?hw@j}-;={UF!o35OaWNj$joh1&ivCbcv@(eVJT7okJmUhqD{pJ8r*3&htD zD`L)=!#(n`;il#M+uZ=~FarC?hKC%5r_V{I?f-Cp$!nO@WUuZ26BGH>jU)0kwEyP| z^jB;DFO|*mMy>ve*#Cco!}7nW;ggq@R}x^U7N2H{PZM}u4Q$NYzh4=_rnL^E4oNF! z(6jPdVqOF_YNeQBR7R7h9AI*v>qfux=pit`+(R;o;fGFxn*O^0uB^IgHcFe77rU?E zZA&t^D4zZ)gUc3$mkxPY5_qPzGA@TbV58lT?Pu%&WArVc21q=^75bL$>J)*?j^zPC zJqej&OyO^N@cZBKSU=N=6cU$=yCpz0Al2QU%svWw>m`XDbVaeDh`%PQdeoU;b$@6M ztz-W*Ja%T&)i6#$0yH(t4@6TkYL$(eL4gRS2y4`U1Sm?{4O88o(nw8rs?ziKfQ4ue zz;$8;)9G?Me?bd?ImYtB!SF6lvys{9$EMXaL1J*>@KMhi8Z33fn|`%Yf9`QUo#HYz zzbI&N(I`;J8c@K6v_&az#?(mI9{}Ysny#eM44+v2zK^J>(}^zC68wecsm%296QOKu zG|Dw&qqb2|$NDr$)jcBofih~(oUVadO>iE0&hd1b%ha+X-g);_WNP|Be>&s&$kdXt zS*sU~dZjWQB&{=)8PBiz$KZcL-KXEIRC^0VL&m+>gEt4&T{3;~ReOBphQB*yX2OHU zH9F#fyD`X;BG6O0X4lGjS~eX>zG!7gN1@Dpe*G&(xmZOf7wZf9cMtqdjyIjXQpsP$ zt{V@jfNZjYX%TtEt#rwp9!CAAeyOxf7Qk`rSq`|f988)f6I(1xwo&%()D}3&3ibrV zF7OnXtO6&iC?s%%&=jN?V9f~0*@{z$G285$SqWU{*k*wd z;>~cVBFdvEusDaHO1C8P>H45Bbcm)6WIYcpnE9M$ZAm5U0EYTM`;LhIbg6k#hLL4txV9l$3+3C-NEkfo-z))BM3Bf~KYZ z0DvO^e&GaJ*p$bSO1;IqDPiyuElM5AdDX~RPAn#nsDZbGl3W%OoJh_YE=vB#r0^<( zSW+gE1<`2_98Ay<7{(9w9~hMh8ZV5UsW@V&Jw_N<47>J40*R@Q%^=|d!3TO#x-~Qz zkCsb}O)ZJQg)1|Mw2cY(%h>9@kER);V#Ak_i%Y!@ zSnE9e6-;4A=%$q5jY^6(wYwHBvA#7NR*4RaXtB!p;0}k6_wIqkX1mRQJ&Ge2TLeD0 zAGDM*xYmh9uW*Mpo_B}TcKGZ27!_6@qcp-Zds}Vf0$DC_P}d>m=~yvRO08kPdxHCL z&T){*Fm~ZrgLMN;b;zFc)p^Js#q%*G;I5>UgBZ$Omzd5nt}^VZm|FKSg~4bed;TyYf$w?-Soxi04kRXyKEM0;RlPS?3c0m<`Upln9Iy z?-BnONWV^PyXWA!k3ZPjJMiv%a2&<#YO*IYu)P=M@_LB;LmCy1SPq(4SPwjD!S6L$ zLV8s!v0|fHt2Yr&=gH&kpUb5`If+eg1)mCfuE1UtLn{rJn#LYe!=#E$D?QR+M2JHM zlle!T`S~kHiZp-qC?WDs&kSSKv)L;|XRW@Q@c)4q&gqfh1MP6JXy9MjNac277{h6R zjsqQ$eJYYC{AHqT7L{EQgwwK*3)`W{UkJJ^5oVWd8%4^L@yjxCl6@kiyJhoIB)YV$ zsU#;#DJ3?xrATG$Q%Fzqdr*;;WGRJE#Dw6(c$_vqt+^B@t#KNX*33O+S(GAK7y7mGY-IUUBk45FXW^~I%beF{ry8zKmJePs}dF%u>6dwr# zBb`CmuMfPRA&-RqOlfh*0Y8J#O?T;e*Y^6+0Q_h{ID*i+DhJVy9d-kUvnwNO<#FWx z=N~6h+QF>@{NNmS`_oTLpM7?l-C>pV-Hf%*LlbOVws(R&TCoSGeMfx2$8WRusAfA>a7w2k_M6{;FxVcsXo`Oa zv2^*xHP$la-28K&d^)IC=x4GG=-T^R4~PslO_F^4Efx}SQ3%}crSkTwt#rmj2EP># zDXkIuByWdT*&<1W+p+hkO=q=_eg|?cxGcDJZ?R?{}s0a&55^ZVEn~ju(xHC zD6L47?2!8=PfZKapuAo2>j7Xxbf%E=lfou*gdqq_kp)Rg2Ob7U``8(caH^n-Ax6wI z{SbQ59*%I_q3m#YLt9R>2$m8S!IVU>RNc4)i(t87Zg9^NIIR)$WCefgm-8Y}R)riE z!Lhr~fklua0ltL9fYgUHf-oXwtU`q5Us3Y^U4QMLUi;p= zub<(M{&^W&;BR-ncjHGlyF4hze^UGMCN@^E4IyBvSbb+iae%411|q)- z6q}7&Z3Co!YB-Kcsab8j6gYlSMJ_*!k5Y90TA=r3M#9`g z%E05WT+%g@CYF;F;rdu&+27W_d*dfJ+hR%k(=Tr-+Z&H9u!P;>(MP}omd)yB zxm<%+QniHtH^txRiJeY4Sk!MOyhd-V@t4Wm#M$`H_N*is^z(qeiI z1Gnk~I2b|*dy&4CW8Lveu3WU2NYY}`VvYaDu$?~<6l9h<)~5%12H2YJOJ%f6FxPaN%k;O# z|D*pHFxp_Opan!wEp+|26)$9zn!o<7{0jCuI9uYvt;7k5yc_Ot+*0LV=e;m`ml zOgR3*8Bn5%Qw(pCrrG451eo`bUY_E=Pk>6caf}BbmqU`*q$}fl0)w66tw9_xI`q9m za;1<-6;w4qzz?51c#s4dhregnBuy6~&>@S@WptO3+%^6m4Yj-%fyVy_P@8M~|Fg7$ z#{Vz7PL<&_Tq3PP$>b3z2>)Nx_$w$xq)8)ZVsC~PfB^Syisl&gbaEUYm`@7ITRabay=TBt=U?)mP~^vqJGcH6Q0 zd33Dv?dVx->>=o+;xP8^lClpZ5}-N&N0kZQr$O8?F@>k!K7U@9jXL<&3^+#o6@e^p z?ir)DOV+E5a%h(8>w%{*d^8!j<(TCRX(6Q;AqBDKrWAAxv=AUw>jX{@oNAP!Z;gn+ z3sg^@WbkYK!@u{BL%B!sRhW_q6g4f@IP&uKxeJ0qV&d!JjK$9V7%)%Eiv`(;DYJS! zP{J?a0Z?RMWhZ{IWK|bCFMo}Q^bn917+Io}5xhh}z$fz(HNn#{_IAYMfY33DJ1+JH z^6i6W*8_(Y?IFa31zwJx^M&yGqm4uo`N^zM;G`BJS3EXF^9FJSlF!(K-R=7iiLc{H z>p_zxBusg%Zz8XY5WdML60Wz|v~H!MS%Y0yQr3|dB`Dm$+*ak6Auu`p0eB+DY28Xy zvxJ8-f-(6Jt`i@ea_p8jHq3GgZNmbe5ypY<1APWUG07`7MGbe)0`W`A2gkYJB#9du z42){d2`7j<_8j^)M#7fuC*V;d>KYG>W4X*`iNZgRtqgL3)b-yZiHrClasI!?U-&$z z%eH;eWq=Y;h??1OXcbsNOqN5-?fYPq8w^e5A|z8jEO9NXdGZ832(m;qJ)a=z1)3G( z5A)tQ#Cp>~+Z{$0!q`COMLERqGF?#s`EAcRgD5qggSZ9T3C}uxP|0IJb`>>K%RkA> z!{m&FN1Pcj6|2>v*wx&}XwqVcsBa(&!6RqvrNo$wtnDB-53~TrI^_OLpQPr;x!I3s zeaU^gXCGNu*wiOPHPkEM8O(iH@(-#>`H)vHh*6*WIOqb^lwLfv1E;HAB2rQ;bGvY7 z$<2ZI`zG3to8iXWLK$&#G!P#rd}LhZU5D8!qh2LXn!HyZVy(7=u02wl?hufFwftfz z1K@>IcRbn@XSaC~gg*~mQ<+=;n)gw}B6sx5z*ZcSrZ@F_K( zgP3!CNYT5*S5Dh>i2W->#8qAfalIe-F}Q&adq+HzrDzX}n?|L`iZ#%}HH({q_7Fhl zp_QC?zB`isNsGKTN!aNn@EOvoOM|H}4K3!hfScXtBmC&aM4;SUG&>V^pu>{xQ z{5+SYITS)B6N2Ot%z=u4cL&m43rF100bS~OlWn)Q9ztxx_OZU7NidS`Quh1COh!O4 zai_=tv8TUaGC)y~X&#e{LjV%)y9@zPNcQ@|wEbUL=92_D*8fD$vdHS6o?$0HP4ah%nm-f0-;1d2Pr&*Tl3>f$anR!*(61i&gKZFq z3mB2P4~d*4=s$ndHo4C_=WUEV=M1ckU;(`7SZ+fmeWvj|nZfj!&I2jTDJmD~64JtS zHq(Nb&XNnElO#K7Nurc0WvnjXUt7B+jTwi~R1;3?9URCZ8VQT|J0TAHUHhGs!Y)-Z zaP2!R>6ywIGSt@D!Ka`&1ZuzOEY}!nx7zwrgzk8g6kVtK$A|PX?isfpP z%tksDervk17uiHp?I9i=XJAmnvds5NPqmBFuUGnd848Al7IAI=@7kA-GpMLur@DI_ zYd|3-GQ;H5?AG@GB*KTb|7-hyqRcLu+WxQY{~*)X_J0m9HMRYJ+Kg^$`@gpTlM^!= z<2cjyf56asf%Vk3BN^sU+y8s(h~(U}N9)`G72+F(YT-Np;^U=50DjHw|49r$ZT}b0 z4Q>DDVg9uJpMcwAp$%uE9kl(Q51FgB|2JsoFPaH5N!$OQ+1Fp&|Br2Z1n)g~SacEg zoI9c*l%*e7!Fhsw5PlisBmh@$|GxnMz_+dsuYJ$>&U@e9`_^apsDE?|=oWY$E$}Zs z{lSelWze(Voqu^VwC$oy^?*tzN3uHxS5iEO=wNSu4L3 z!5dL8j(Eo3uTx+ks+JOVY6c4dKojJIg7IVii%(ZB-`_mAU9quIsv#s)u~e>=CxdlX znx*1P)87=-?iKIvpZ&wn-?;Jik3>+zzqyT|hH%6hA|iYc!p=}buvW`+Y?sX=W9C6x zt7ds~bEDEImNDBKo0ai-Ufyh0HeQN;&+5mgd-nC~H0!fkjZJ>c@6~_!`Hg4qZ%iEY zcXgv$E?4V~dc9n(Pxtrc%humC-LsZ?HTwIff4lSjD~ZF5#zP$D3OaqGQ7JX52+2I& z<%q*vdpVZ&S^7&Ja#Jw8v{>R|16OLZ%vMpCl2Ixd#S$Db-jO^oKyh-vgC;v`)DP=b z;}riuIMP4GfqE66J5Hn|m#&w-qei2)X_T@o{SoO#LRK&g&o{`i9)9rr zGbfZWQotN9>=+XdcUqUo`>|=A2f)*Dm@Sq;m2&{K1P8Ux>~73`Ksh78OxWm)jPEA~ zZvjYP5A+Sm!5S_FId#a8sR`clRfxlU3)|RVk|cJ z6TZ6d8x5Mv>AXzRWJ7I9zXX_DY%f96=5;O6e1KyE|65G><)ls}vy$5Z#tWs-N|TfH zWgYlxcj&=C8DX}~vCAb?c?j=IqN6VX9l!%z}V-Q@Y6vDMz* z-Q{91=XA-HtI`KVV&Za&vC$4kAaDvH?u6C}=%R84W+wD#cbr6kz)VgL4tZ^sh$&g3 zD{{y2af~`~K(y%}9j2Mjquc!IsWi*As@bS+Rw$kYVm$~)=p)MwZCnZDv531q++6rvfxEFiiF-MQ49ZKLK{486z6U1kP*R=_XJ{P>$Jh!{?5Wd)fZMkOGn$CLu zLO;)eOuo$O%y%981-R}4`+WM%O6@;zaAcY{D;9Lh(7yY0*yovCjwyDd0_AXJqgqEX z$Gsw-isH-M=T~)m5D@9Am($EjWx+y=9?98r(_RJ$c)Gc=A=ph`V`A=6R(C;`8x2lD ze_{t7jmWvf@gb~;aQB-WV@e4h4IqQ%tYz~HsE(wu(BAxohggb0!$1uPMg15P?_#^= z1Ox9AY#~nM;8a4VK%(Q3G8vt}Gwl_LXeSof3S&f&p=p#-4?@!~SaD78MtBC|5tvxFckzpkLq75ipz@IsYA7puu>}P{&*rbNqjP$jq}pADDI0o#FrsT= zJR%S`4pQ>2uzMg&QK*ELf|K$S$1Ld9l1C)H=j!bO$Yi+|GC4muM5{=&7P4wbwiQvR z9K80}W*y&;;LdA}MqE-2Sm+SxDX$-jq%;v#Pn1iJ2bmGDWxcpd7816aT!L1Ys6pu( zJw{E-X`({g#c>puZ!;@or?%^gn&C@QIZlZz#BQk4`H6EZi{tofpPT>2)HP+qQ-LB$~1^VG`-%_95cC9en0bePdQqOVQjXP}& zfK#VC;NNKF!iN#w$adzEbr5vvcDWa5S1+iJJ*+ror7Q?ePN zN9ggr?Y(U(IgP5G!$G8cfLZtU&?XpZ78X8yIKo&O_PZzeji_B}M&S3QwG>&!d%Nhx zhn;Pawa1$|Ktp;M&IZ})*S@qBq#Ni+6ZFX_aSprG4dI+ z(_u`DzL>uNcaPVT((s$l)oQ@c2#gMRmlHi{V%$NPGFqE*%ZHw7FR`>a|KKeO-Fc5U-O53MLK>OYsD!;(eOuxL7YT zPQ`bO9WGb1Pa%na#;e0+SSAExaha{&RRvpY^sQwHh{Y@^mpK7(jb;f~Zi=Zyy3I_q zpc{%NRHzl{BE``~QmhK3E$ujd7vB=)DYuHlNY1_7%!tUGYyoseVv=H3S`$~ZKEOcx88RhW)1?@RvnP@7d{*N0t@(k3(|&)9 zj-F;92Hh^h$h;})e}{mW+P7S867#p5r$k`09lB~?EV4dfAYBq+5~T%P*CE7dn}qTqoXR>Rv( z94(=+Bp0?-vadm15!?nC5a3M`tpCyp+wv;K@B1KTe}R$@Iu@&GdOei!#1`6& z18?&3&zKPA<>7I0256f-3vCb&8G?m$pa6pAWdD~B7-Ay@ykT&(W_)2!uQ1?Cvo8?O zvoDnc@1EUvL}bNnoE}-*NT&N5ySw_6+jPK01M}!KpEKAzD{Ql|UM#JbHx9fcCL<1K z)b4$pbP;YZa-hk=nSd*Mng0TLN_VO51O{mYx!C*L|(lYgOdogss81&>{z5`d@eiHz$TnzKrZ9MX-v;WO)}~}lp~>i4Uz|g+$K?|K6s<(` zVJv0h!-Zoa+4RNR*mu8QV0=$iaMEc(#-l4l8$y-C|?F> z8n%Og#BBU@c9rbhMFttEW+%gfsqz0kj(z7AM{Ln!SoWNjRijoULqIx~ z=%5z_W6=2j%#o`FFh+pD8b)9r!H){6gIw@A%~p;7&zWo-TtTg)@&6x@gqC^;k`T*> z5}hbovCzb%Q4nS9(eyf{CPlrt{%AZaYTlT_b&+0SZ1vOlf3gIH5i|qb`Xs&qn?%t2 zB5w6!p*+Laa-(e4i^WYc9cldkTtuG6|2xy|lfn@fMa|Io|H$n0W7F!IdDwgCA4sDI z5O;U=QEPj5hr_u^5p3XJ*+@eIlVOru!$}o0g*8v@%hNrjU`x62c{;_ieK`(#(D?ta z9RL3gFvuGJkC`!hVn`^=^q^O!#g@kZYy7_tB`_J0H2#0wJ@Jml{{zpg@&6kC&mm>- zDuDG>ukrsj(DfSs4_wsev90m{!qr^k|DnOq`2Q=y|NCxFC2l2X zg2w+(qLn!CpHyTdt;xTHqfC4xH2xnb%<|6hsU)XVC4@O8!iSIkX>`Xu~+rKIuy8vhTj zEf=m4U5@)DSA}=r*#*{RgE^H(eeA+ny-MG?!^%uwhD%1)%lt;*$nt98|6!LpAK4u2 zy)Ot12y~Y)<|k<10(>~fxcxzqqN)9bL+y)$W zMR@oLvS_@5-m!oYJLBP-u9yM|mK=T4X)aUw4m{~1-@7Y``%FIoXL$-)mJ?^bBY?sL zINuRqe*k`<(RB7|-K>5eyg^sgvmnC73(ZrR>D@jp0GA{JZ{6v6n-(ow_?LAU2mYg(jF;L{^utTg50>HflzxQZLT08%@uFeLA=Q+CzlCI-vM} z#^fMMtF{2eyl3)EDtA3=1U5->PKk4<@6|Cm#wyOArm}7>sLwC3rC>%*mQxvx_uy`7 z=e&E_s&x4Cm|JG-ImQs-0nl5)!ni79)e&WoWxWE9^!>m;0rOVKh@F^|cMvbMU`?0& z;-m#j@0cJT0{yTT za;BjN1~|5!v>r5BQuMUErmTeHQ=P6L(ql&XEt$A;nZI+{ zzKH}p(!{LChd>^4boMx8o9^J$55T_-KQxRf#P0>i zoS(aaql!dvhn^haFEuuu!3emMm4RM{cIGV|IlXf}Dv%H# z(F7+w2XQZWiNNxXL`0AWGQ9qJlG8dEwgr(g#_fG?BDCoPbX^Q)-YWJZ~A!=wPS1j(`@UdU{y=^#fi zzEP)~$;!4Zip{q?Cbqvcm9iUR;#`DSnTC3$Su8e-B^v6a;E+2TQSM?nrz>NO$~d{x zwHHXJOq&X#xYJ%_YWU<7d@`d?F4k$UAkyn+gioTSF^(=kADqWMOl7$kjqV>fv2X&Z zn?<9GR>e``;{3Uvh`@|Z_93`A!S&L$d!V9px(@gRSBbU+WRy_S!6luCa}@lO*xzr1 zYeSNGu8shg#6YQ*iD>iDM@`b+iKyEM^oRf>h?~J6nhEY%5;|!=CO(-c%?>P}oM{HW zRDL`HjqW`wh)B`L9%HkIWWiriF4uWbnVG!6VyDmH!IbMxGm+=!B_T;^-hC{lh}bbN zg%os1tGk6QraK_3VU-vuh7tScBTd}fPE}38$HdveJXyy5A z*fl6?E;}WUtYaWMm;>SZNYLHV1b`;Z!?}UTUVHYD1=?JM<2gFjX6DXY3N%_*_1K zF80BBTmVxnVhDlk6VD@%N!K|#XN3P3dEfv8O$QM~f{U6Wn$Sc;N=N|7+d`Ax^FB&q zpV?g=t%+i0TO7ZE69tHmQE0?kVcYvp1izSlMv=W(Yikc-r9gBnlmQ@!vbcCoqtQpa z9jq3s!!8bn6aeczejIXL+if<*aQQwlo@A3pXyAlOEuev;=_SeG3h(%6)e28jw4Rd zsf`h_58I(@e&Y0^L9b&0Np|EBRUw-rA9h)3Ov!2D#1Y}uI z09|;8zybt|TDt7QmW+L!)BycUWJX&=mKSHa53xaE9kL_Z#Q6u#c)tb`E=+!U$Lxid zpT}pl9ltrV?dI%>Vn5D`X`dl%6@`|fpiL+i{hd|!nLEwgE_tqyPKr}EhrhX+&^K3V z#NNDvfPX@z=z+2ssy)nwaDb457y)2YhQ7t*tZRpeOF4ugHacJD-;MOULAsmJaEAs2 zv=9l*@C0M!q7RQomwWE>&oA|y9T-Q>ncchW!$R{k_Oyq9IbAT#hwHR-8eE5zBoKn- zA#_F|G@gFYGXlUc0?~GPiAdXOjC@R)^1?*E%M;3uD9y=kJY{)i$`i*&9eRGW;N2qK zz;cgfC!{fC;CNy19a1!rA>vfdEAisTCX3HC&xd?7TIZi}_JD5L=pY0r;u@ZMMlZLN zv!0_cAV&8>kBpozzOXL!%*Bcp`dui{mn<5VaM$3KS@tFT32Y%;O}}(?#-F;_yX**& zSC(yS@gn}nh2BDg@IvpP2gcrT2fB+pJWB0ST=!MzlqmuSLRD5MdQ`1pRyHn&bw^Qh zNbdR7=fH0NB1r8S=Z02Jwh*yoRNh6IP1g^_nN+|+ z-Q`iFHMw==3?q&I=Nf;{JOZn7=Q(XygVjJ zzFWXg^n}~f1UGoQLXoi`1$Wm)WOfRzg{bui!Pdf9Ejrkly|J`dwR@7~-@Uv~U|y@>Nj zt^Tr-wL`Ym_wrL6a8vj2()LzET0qBBjsKqqFx2>e zjsH&^3uePm6Oj45k)-ke8vhR{IUFbgplTEM89q!YXWZTKStaSKOp7sLkK8CxOi z1$CBLO!%+DyR9ZxS6XnVAZsbP)TA9>fq3KswiLKlHy{)MxN1|<+U^L)r7u%n;7}U}ecDDJL-qPg2G~jzkXp zUfd<cfHE5qI>+?orl6YiA^vh($owDnoe_*#5tESvKs`Xd)1oN6^~i^vHz|Ju2nCepwR(bM4vY=p^FVQdCxK&1I<5G0 z5qZ&!OIlU-g=iq@eZW1v@w6a6L@!GH6i5$<9zkRxuQAI7X$U$Ubn^tVSMx^Yh}46| zL5EPIs4o(V$3YCqCqDV{5@o_TyCa;?$&rRV*xkPWuzi1m>=BND0$<5Tsfzd@asp+E zSXVGP35kkAa+!|$eS%`H^YSQ9A9(lTJ`s`yG|(>o{4|@SAdaj`lE7VZNu;d#xD>I> zB(LEn>|#dMByJ0Z?ItBX1dF6-MOsj344gV&SV2$TFLP2v&K04OP0G7OEGg+E=}MLl zY;jdiJ2|vK@W{y>U<@KcMW+LQgp@DwlUBRT^MlxH zR8X8RYz$f-e2eY4584`P67bKQ$uvcygfx9u zrWwUSfIDC&2#$O3@J5L;y2m&;A@-V#?-67U7zP;LAH(&6NZ{|qj@!FXr0oaR7w5EN zHCYtISOW5x9Jl9iLr&gH7+8}0mSuq~ZL;Dt8gz-$aqtxvhWV zqBi{J8UBkKG_*1Tz!}7U(rIfofdgPf-AO#TR{0u-EBRzknk@$nlQq`l_QqS15>V3~ za@H0ET$oG+S&_#Q0m~S+@iI@$84j?q(?R|Da@Ev%=YGoG-`ah^ijWFE*=jvRDSpG+ zAMNh5YCU1AsdBcO3-T{O?*e@bABA;-p={Ji55wK&*KQHV0k)+>xDnFnWh?;SJE0#3 zT^k%W;t<0Mlg*Y##xSug6xefMW*}jJv?uSdAp}b)fP+nmbHTaToybFy?cC!UmKQ2v!0zx*Wn)o zuX@1@7fzkC=LyXq?0biaa)$ zSwh?Ywf$e)|Hsh>Q_&=~{h#6`YWx4p*pS-({|9dW=du1KR6pAOpJ)Fs5#v4C|D^@C zl<)Yj?f+?Two66J(e{5F(CmN#R5?8gVgHw-kmCSg|3@fMZT}}&stxE_rlThN06)80001OU0ss^n#f?(AQfgGo)As-B%W40g zBQ$IK|45jB_Y=Py)xHqYqO;&2<`R<^9gPJKqYT?yaDycej}?xcToz!n5!=bm5M{;vbJ zAaZgDv=}V7`7^Y~4h~{%{|Asj+y6;hz$4)h%ct3bq&FEFjP`78|F@zT4v`dkivA-qzJ?-zEKK%E8AQb$ zOEBdNm-~b+pT1>rK&Ghk>9%6A&m8s1b)P%i&W{ZWN7rsnQ@ved+0&zGWLgWuTbEJKEjBsg2C|E3RqW9>qfcM5cQr#)vz^mcy*Nm?L4(y|0Fzi@>)A96Fq6}{NiJ^R5L673x8mF z9{iQY>yFX=#r(HCl@H#HkThXVSf=`=Qn75*HcFe+?aB496t`nT>TU31GY-5IV0V%;Bo*N z0nrJFJTc=%Xlf=2CBoauu_$>RkZ=O-&ri8h$|jHXt{ZdgROk#xU)~yJ|Pt5p98}Xe{e$Nd{`bg@djF2vLxYZ5Wa~k|6tX6{5_sa330nn=?WZ;0Xwp2@l)5%VAc0 zsQLzyVv^KZ_HxVG!8#%;go7ge_3>+j3TBIs=D==@CZW;9tQrKt(XBIT!1pkE_h>Kjs01eNC98aet&@Q^*6_@)+-d0>=@Jp zvX!6~V8fsRg7&yCEx{_+)j(Y`8pf3YNCE*}0%M4VnBaCL1012qXNZPUM%jk}x0bKl zR|?Z1u_Lq~17tYKI510ev{7Jm?oJC0bpt$#Y_X^Cg?YoqM?Z#h=s1zRznaJ4gd^z$ zOoKjp1+WJA5sXIf-u#Ilp?~@M?^)QEgZ?F;3P?kc4#7xO5(!!0EGi`GB8h3VU=9+* z1WPkUN#hJgQ$91d>I*alwE%X8w`U9UHL!y1NG>3kgmw&@DC7QC+D7v7{YYPAJ#5lA z3-9lsIAmie6!%I8Ua@dktQ?jKgb`pR4OyAT&Pmo+>N(ZegixJtBqo&h;#tIz?ke%b z0VEL48N5?W6t*Q2PZCTbW?q1~lo|7ND$>?6h*$(>yQIkAUS4s3P& zNf%o^uxq#}4#zMq@sbA!Z_`~+RO3239coiXlWhV?nfIpfTD?k+h?&O{Xfg*;X2H*3Ae2pYW5OnIL9X$x7 zO47Ii=D=s91&DwzvUF!L0|XP38`76Jb8wyjv{Pgy4)lD?2H_-ui5*@+w}gMcTz^DQ z0O>R6`41ca|NNh4_~-tlj7cEAS|N9-H$fddUXqRFAK#3MFL#Qda$MzS4vMqEtazB7;*V&hSUFtGOP=i2*FK_=eln^xTKm;fpyQ28ne2U3j^0d zavbBf=!!I3@+(=ej}p-@Qr9Mh(AM%x{bV}vcU_Q&k020#TVl;^Jv#B1vyct?^E^YW zb@K8xvDSoY3ucrC4O)T3+@notn>stge%8{j63?=I4khE*j11A|bLgq1WU zWxOC1j1BQguxa9>C@o1FTqz}_Z2SDmyf9|* z47U)O-~#p+pUZD-xk)sHZUxQE$QqlI$DHUwjQZP86GbJ%X;fjd=9RbCh0~btt;q-K zq8n|jfF}^QU#sP-2Q}Cw(Oyc!xU8iTM)ugaDHJTRf*Rx%&4%mHE1t0nuD_}M?!f0C z;&ZpkPhQ&TLFd2C@qg{~|1g@2VGNDU_!N83es=o5)Bm0R@AQAC|2zF(TnG^B42%47 zjRU9uck=$kO8HLzhbNHJ|4;CRvfrF{0<7pn4eijgm{{?D&IhED$HqBbe+6S10~l_U{g;N<_bPWHs&xSjkj g9zUzpdI0X7{LjzmcnyNb$M!cW`AWV1#Pt8#f46tFbpQYW literal 0 HcmV?d00001 diff --git a/revdep/failures.md b/revdep/failures.md new file mode 100644 index 000000000..9a2073633 --- /dev/null +++ b/revdep/failures.md @@ -0,0 +1 @@ +*Wow, no problems at all. :)* \ No newline at end of file diff --git a/revdep/problems.md b/revdep/problems.md new file mode 100644 index 000000000..9a2073633 --- /dev/null +++ b/revdep/problems.md @@ -0,0 +1 @@ +*Wow, no problems at all. :)* \ No newline at end of file diff --git a/tests/testthat/test-std_center.R b/tests/testthat/test-std_center.R index 1655757ac..61343e88a 100644 --- a/tests/testthat/test-std_center.R +++ b/tests/testthat/test-std_center.R @@ -1,5 +1,4 @@ if (require("testthat")) { - d <- iris[1:4, ] # standardize ----------------------------------------------------- diff --git a/tests/testthat/test-std_center_scale_args.R b/tests/testthat/test-std_center_scale_args.R index 031d26d56..ff1d2b4d3 100644 --- a/tests/testthat/test-std_center_scale_args.R +++ b/tests/testthat/test-std_center_scale_args.R @@ -1,5 +1,4 @@ if (require("testthat")) { - d <- data.frame(a = 1:5, b = 21:25, c = 41:45) test_that("standardize", {