From 3867156f9539ad309c422281ea71e35b095d175a Mon Sep 17 00:00:00 2001
From: Malcolm Barrett <malcolmbarrett@gmail.com>
Date: Sun, 10 Nov 2024 14:38:44 -0500
Subject: [PATCH] fix anscombe sub-datasets

---
 data-raw/clean-anscombe-data.R |   8 ++++----
 data/anscombe_leverage.rda     | Bin 164 -> 313 bytes
 data/anscombe_linear.rda       | Bin 163 -> 331 bytes
 data/anscombe_nonlinear.rda    | Bin 163 -> 330 bytes
 data/anscombe_outlier.rda      | Bin 163 -> 332 bytes
 data/anscombe_quartet.rda      | Bin 550 -> 557 bytes
 6 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/data-raw/clean-anscombe-data.R b/data-raw/clean-anscombe-data.R
index 3aebe86..e862285 100644
--- a/data-raw/clean-anscombe-data.R
+++ b/data-raw/clean-anscombe-data.R
@@ -16,21 +16,21 @@ anscombe_quartet <- anscombe |>
 usethis::use_data(anscombe_quartet, overwrite = TRUE)
 
 anscombe_linear <- anscombe_quartet |>
-  filter(dataset == 1)
+  filter(dataset == "(1) Linear")
 
 usethis::use_data(anscombe_linear, overwrite = TRUE)
 
 anscombe_nonlinear <- anscombe_quartet |>
-  filter(dataset == 3)
+  filter(dataset == "(2) Nonlinear")
 
 usethis::use_data(anscombe_nonlinear, overwrite = TRUE)
 
 anscombe_outlier <- anscombe_quartet |>
-  filter(dataset == 3)
+  filter(dataset == "(3) Outlier")
 
 usethis::use_data(anscombe_outlier, overwrite = TRUE)
 
 anscombe_leverage <- anscombe_quartet |>
-  filter(dataset == 4)
+  filter(dataset == "(4) Leverage")
 
 usethis::use_data(anscombe_leverage, overwrite = TRUE)
diff --git a/data/anscombe_leverage.rda b/data/anscombe_leverage.rda
index c359d7c5768cf353474409f6c3fe8705af438731..b6ac9d9809e2600134ce65c43cd9ffe06df6f03a 100644
GIT binary patch
literal 313
zcmV-90mlA9T4*^jL0KkKS;5$U761U~f8YPVZ=K*_90EjyFhswH{qRBni~#^Z5C8yx
zAP7PMumJc}G?P%!XaE2PfB*mh#-@)`Y7R1F(THMcfPsND!5AhcnrHyR2_#J^>Nlw}
zJvAB)000kBk*BBzO*GJGxvU#Z6fr17ub2wWsmMkS6XzU}RV+&P<-syYdu7Fi;z4PI
z9=LntA~%L`i;tKnWNM)dfinq#l1^a>%m7{c-eBjD17(pMl#3ez+(=`6BL6e`(jQmF
zn06#^bTC$;t9da?eo0VIZN%Sl5e;d<6P57GH=Q6z8;<?3gNwQt;L;Z{5OdfBaJ!5!
zi2Lw@n8#b@MGFpu`)HsQ>YZV<<{ZU7&jnw&z{}4#WV)q`;!@aB#sNyr`-o^P4g6in
L6yZWc2VwkJ9cP96

literal 164
zcmV;V09*e;T4*^jL0KkKS&Asy&Hw;ie}Mn9XaE2K5C8-K5J10&o!|fgAOMmLQxi=M
zG#WGmA)^pTl^%(jK+pz3pn8_fx<NAPjZz@bV-`@z>q!Yiqe3lcK2yfRW69K3!to6x
z!Xg@mfMXD0(h9}|Y>wO5)h`H$2N?c{7&~<K`XTg;5R}6-2-hj*J*7JF>E%%vfKm=5
SYdj7gi@744C`d&VZD#;R?LS}u

diff --git a/data/anscombe_linear.rda b/data/anscombe_linear.rda
index 6f9cb6858e7e8cdda80d69e8e9b6d8ceb10cd617..122f496180d848f3a007b6a5ea975d2245684735 100644
GIT binary patch
literal 331
zcmV-R0kr-?T4*^jL0KkKSt#j-TmS&%|NsBH?M?r6FakuxFhsv6-0(sGfB^_W06-81
z0DvG20|BrA_BMv1n@|k^003kF001-rrjJncL8S?apwMZc(9qBT0B8*W15E$~iYgin
z0iX<nMj!wKLF!>N8ZaglRf(&xy0Ygi`~?I=!3e7)4~BW906I8nr$&Ss`@JFrB|rb`
z5fTli0bazI#IfZF->Dps)o9*A8U)y_z#xSdAwhs1Z6k*7Y*9&_?L6jNp2!NwGr1vw
zJt9vOhZ3jfDn^W{m?gqT#_(T++I8a$&r$%$x=|d23hOB>x>(^$mTRy!7y=o(;e>*?
zQ{Cah>3~Lr664YFfPx{koTx~q-~@6CHgE*abzqqc@M(hY6!HrMs>lqFKNLC2D|-Cc
datjdf5P~5EBS>q1Kww|u?ntK!5(OPF%Yb4^hh6{x

literal 163
zcmV;U09^k<T4*^jL0KkKS)dk`761TUe}Mn9$N&HV5C8-K5J0~toZtWfAOMmLQzL2(
zG-%KP>J2gp5~k4)Pz+5PG#VbJxtnAYHdbzt1zMQBxPux<OE*S@O`!WvTuF~NSz`-C
zG?NI3Y8nBILEjiG7$D-KZbrvk=mVN%JVH=<ufIw4q!lk&52%h(6C){JlkwIestG{a
REbMYW7ji{7P>`S&l@<(IIb8q%

diff --git a/data/anscombe_nonlinear.rda b/data/anscombe_nonlinear.rda
index 962b44fd2ae74a407edee2ba62e79c2d630201c5..db15e0694c510a077abf1efe39c0d696cd185cc0 100644
GIT binary patch
literal 330
zcmV-Q0k!@@T4*^jL0KkKS$OknX8-`^f8YQ6Tt{_v7y?wmFhsv6-1tHehyegV7zO}<
zAP55iumKh|29lnL&;S4c&;S4cGy_c@lhh3=ZA}dt28|d9003lYGynhq5-Mp=(j&?M
z02&$^00x>g&}bV|APGuoh1y{?*;*(P!f}BKs~`_Z^MM&q@rZ-R2nNIVas&}G{QbKD
zAkttSH*LyLJD6fC!k}ifRzeyC*uG>55yZfih)`lV7?Ib%_HxPrVa0>Schd{QT*(au
zWQ%1~h!;JvcoH&Ijml`ug9I4+hoiSS(T)ZN4EO06h&C;)$pW?ORvH`B0F+gb(Zzmw
z`|n1X!AM50rXVPv69U0qMvMTZ1wItl>M<Eqg+MI(W5Y7ahXxqCztS0Cm+-nmttGI6
cK<XGIKuAd>ez~x82L}Ew<ce^iAo1qb&N#1wY5)KL

literal 163
zcmV;U09^k<T4*^jL0KkKS)|LGi2wjye}Mn9SO5S45C8-K5J0~toZtWfAOMmLQzmH*
z0MG&I4KfK5qtOp20Agqw9;T_3kW8h9$q;AK#qJpxRzg`iv?6T>+WOv5c{>YOaS+l>
zA|a?~1~CRWL1@7T6`i>qPPxzqr7hwTgW0|MPo*HIdq{l9<snrSQnoVrPsdn-SV{)b
RZ)1`8yOJrwgoP$t+(>8sKcD~r

diff --git a/data/anscombe_outlier.rda b/data/anscombe_outlier.rda
index 3b8c39dc45e1eb9a2e14b0829b36a6d7a70b4c89..0384f04d4e199a84c2bb4e8624512f41b3e9d1a1 100644
GIT binary patch
literal 332
zcmV-S0ki%>T4*^jL0KkKS#>+%k^lhZf8YPRPjB^g7y?9uutdKn{`f)whyegV5C#B%
zAPfQlumJWphM^!00001KpaGx&Gy$im(=`K0BO^wdGHIrPqd))v0iXaH01_yvpvkAG
zXfzrC(?cLMX`>U=27tuVLa`c_%Tm^6V-Ns_7EBObghA?_a3@A03<ldULEay{Q6P+m
zixt?32D1S3yK@+xIcA97j!0=VZJ`WEz|<I+G$^qO3;^xIx*`Eh^)R0c{Ea~e*wu7~
zi4rbYNQ#%{N~sj=GeDOz4-SlPN%b51%;2K=L*~H50W-8NLtQm5T2$j2PFM#>DzbaL
zx?tcC!323f0FWKh0Gy;qCUNN~&eH{eEE$f3W#0pgE^hJxIH5rSbcGfvEFdGpL}cuk
ejE;+w?-VppfEz&l!Pqb_@pmLsg$V~!z8N4r(}N@c

literal 163
zcmV;U09^k<T4*^jL0KkKS%#Yar~m+6e}Mn9NB{r<5C8-K5J0~tp5OohAOMmLQzIbB
zpbZ*5BSxAD5~I-%BmiV+G#;j@l#ooNh0-9;rHj-uFsy{Kb!bG|50&${pz?MWu;3x2
zm_$QR&<tV@*g<H(#UvH_mAPS*LuW^VGlFuuf_#a>YxPMHU(J~;Iv0j7f!J*72QYWi
RV1Ri1UC9*TLP8pA`k>e@L^}Wg

diff --git a/data/anscombe_quartet.rda b/data/anscombe_quartet.rda
index 9cdee17ba9089028122189692d42e1a556a6dbb3..af2f17b4a64e519e090d1a52fc9ddb38546b427d 100644
GIT binary patch
delta 530
zcmV+t0`2{#1g!)PLRx4!F+o`-Q(1O9*87nTCx82?UCvGtRLUlgQMDQX000I+4Ke^U
z4GjP=O&+5sq%%_!MuXI3&;S4c00w{n0000q07WXBNujB<$~_q;pb4^@K$>JQ3Fru7
z4WLaLY3gJ$0VIlgqd)<m27mwoqamXp007X?05WK#)N5qER-Q0sL0N*kAzAUbQrhej
z!hexYf+<rD<b-HBBphs!vf?A*9EB;-KuejvXU=*^3&uzpeBS8^#9-MI-wI9=0g~h|
zp)ti6RC^(F3B!TFuUHU7WQ3l=C9+6c%#rj+&&_%Xa7YZ6ikKL&VD>OH+=1v9hzv6z
zGKC@qAO@<HRM1mJP6Iw0dkR=mf|u$bL4PX+$v#3w!z4nT$qZS!BD~euapb~{9a4R>
zz_SpyhZtZAc<*gHP(BVF2=Wp_Mid|r5eiQv!iEWCmWT;X34@69Se3(xaJy9CZUay_
zgok;0y4nW)r0c|_$(Onck;e!~sSd({O{AHTX3wP&!4zH+DWrWQLoD5(kr(4_BzyHF
z5)_H0tA#uYekL~_8N!k&B+t5(tCk@OHtJJS6oojf%9TbhB^JaU&WX4RdMzn2NZrPn
zB7+b}t)m@)L#$2rsL+J@FZqCMK0o&mY7MECSd<A*K^`;nugdTgU1A6lAbJJ?bK+`1
U%I+tKqkoIJBAh5lJ00tNfVmsiSpWb4

delta 523
zcmV+m0`&c@1f~QILRx4!F+o`-Q(3);04|XZCx6Bk+Ce1}dZvMsAY{nM27qK500000
z4IZG;p{JxXQ)vc+)MU^A000000000013&~)r=*!Q)Y=4M3?_^Km>|*UXdr2b$kPI8
z>SVwUG&D3c13+R1fXDy?O#lr5$N&Hakfo{Es}V`R43-m<3}pzMr74bB$%J5#Nsfex
zbAN0HTsf&A<zhzLNKZOw=sWAcOQD}syWU9w8Hocwd+U5uBh9)d)G1I%25S(d34kcV
zqs<6GI3+32rSt+4gg~nbkIEGPnfacnAy#^Uj}%x4Eubry9?8f_2aE_J5HbZK1t13n
zOcgU!&QoB^hQhLyl(kanN#l}^xv5b|lz+sBLux|{cBDo%HX1&`Tue|sCFLied&C4F
z9O1s%_MUVcIv(;OM0*MV3<zZ=kYPa)WR`>p4H1M4Ada^1wW)O)a`H(CMJa3SeWV7J
zJ<FBQ(5vqUl+~C~P1Vny?;3nDIsHAMut%&>Bi$qAA;p!8=@C5iQX?rakfd1^=ya(~
zPxS_kwV0&JO+)&n&M8_DxUf>`NKzEp-IT5(q>02IJ^L>znf275rLWw|C_dB_D&$XS
z4ytp~rtm_jYkxEfH42|l$B<}n{<SC)^g%v7PPs*B4_g+Xfg%X7Gz)&yE(X?OibNUy
NF64@Ep&@$^09;|3*GK>W