From 28123b085e947950baa2816f166c14f65f9109ec Mon Sep 17 00:00:00 2001
From: "Roger D. Peng" <rdpeng@jhu.edu>
Date: Mon, 6 Jul 2020 10:02:51 -0400
Subject: [PATCH] Convert from old dplyr grouped_df format

---
 Data_Manipulation/convert_old_dplyr.R |  10 ++++++++++
 Data_Manipulation/titanic_4.rds       | Bin 448 -> 418 bytes
 Data_Manipulation/titanic_4_b.rds     | Bin 441 -> 418 bytes
 3 files changed, 10 insertions(+)
 create mode 100644 Data_Manipulation/convert_old_dplyr.R

diff --git a/Data_Manipulation/convert_old_dplyr.R b/Data_Manipulation/convert_old_dplyr.R
new file mode 100644
index 0000000..1815341
--- /dev/null
+++ b/Data_Manipulation/convert_old_dplyr.R
@@ -0,0 +1,10 @@
+## Convert from old grouped_df dplyr format to ungrouped format
+
+x <- readRDS("titanic_4.rds")
+x <- ungroup(x)
+saveRDS(x, file = "titanic_4.rds")
+
+
+x <- readRDS("titanic_4_b.rds")
+x <- ungroup(x)
+saveRDS(x, file = "titanic_4_b.rds")
diff --git a/Data_Manipulation/titanic_4.rds b/Data_Manipulation/titanic_4.rds
index be284048efe3f32ebdd3376ee6efb9e89b5f6571..6662aaf4cd81e2b99913e800f2d2a61e10066f5f 100644
GIT binary patch
delta 388
zcmV-~0ek+y1EK>ZABzY80000000WEQVqjokW?*4pVqj(kG8tGyL)>&NfMUWx4v`%x
ze^76ML^(q9Qc{Z)3{7EtLsNy4d<9bjD4*TG3@8ocq8i4UoRe4#GYf7*T4HiZei4xM
z4=N)Bmr2b{%t?jvSdiGmM+T7^U@_nZ#2!#_DIf+VCy;tuAohc*;Q?Z4DE0#4o6wl#
zL`z*DwJt!c02OCNGS33aXM(Ebg^DWzf3Yl73<UT<<~evmI1Z6eI>J+B5)e7KSv>9o
zBDlD*weUtDg7aZ?*yoJbEJiU7l1ro<mq<A|1grvq)eZ_!+C%7D%ie|h4h~Shn~(IG
zpCX4Gw05PIoO(G8W)1?NBrMLN{Bpg##N5<ks7II@fW-g*|KFjfK$s#>I%9*yR!aaR
zT|#+@>8Z(yB~Tu7aB2mV$>;~Ot+=$PEVC@X2&RR%Ahjqt9wM5W0<n_mKLcu>VJk_>
iiBCy`nG57WnOrG}C5d`zML?H<G64V@ypw7`1ONaF9iTe^

delta 418
zcmV;T0bTy01Hc0vABzY80000000WEQVqjokVqj)wWME<jGMR;e1d$~ve_&aNC`V{s
zN@|gUp(%`SXsS?>uV88b<+J;j0i}UlRKr-4a}tYTX2ESpOH3}wF9NduL1l#CGO4+V
zIjK+{3le+y$RJV!EC$?w*aIpq1;n6K1X6Dc#C}jUJU}cB#a=*s6B?78XsHXN)&+<a
zpyI4Z=2<}bOi;DFP;o^df0l)cfdC)KJO@t*#~~6*M|i4C0wM=Di^qLH1Q$297TyR%
za6XI<`<(Hb#VE!>a*34V5-BH#fK?!{+Cc$IdkB4N*}G8R!2!y5^O0WjQ{<3?)~?i&
zQ!l5%%s~K9!eaUlO))IcFy%@w$}cTQO^HuQgN1oXQVxR04CKL-e5NFpB<iIVCFZ80
zrBcqK{BpfKpm;GfRG1oo#Q*>Q-=QgFDN8H@sS$>UBGk?RSUQJ`B&Me(Czhb=PbtbT
zfW`<kFQR4_m?J=5WJ5C?)nKUif>SG?Oh!MLZ;DHc$}-FHi(p!K3sQ@c;~}D{DL{dL
M0Pn4qlBom$0KXBj5&!@I

diff --git a/Data_Manipulation/titanic_4_b.rds b/Data_Manipulation/titanic_4_b.rds
index a35a04e6b78cdbfc7ba3b022f23f387c04ea7c6c..6662aaf4cd81e2b99913e800f2d2a61e10066f5f 100644
GIT binary patch
delta 388
zcmV-~0ek+r1EK>ZABzY80000000WEQVqjokW?*4pVqj(kG8tGyL)>&NfMUWx4v`%x
ze^76ML^(q9Qc{Z)3{7EtLsNy4d<9bjD4*TG3@8ocq8i4UoRe4#GYf7*T4HiZei4xM
z4=N)Bmr2b{%t?jvSdiGmM+T7^U@_nZ#2!#_DIf+VCy;tuAohc*;Q?Z4DE0#4o6wl#
zL`z*DwJt!c02OCNGS33aXM(Ebg^DWzf3Yl73<UT<<~evmI1Z6eI>J+B5)e7KSv>9o
zBDlD*weUtDg7aZ?*yoJbEJiU7l1ro<mq<A|1grvq)eZ_!+C%7D%ie|h4h~Shn~(IG
zpCX4Gw05PIoO(G8W)1?NBrMLN{Bpg##N5<ks7II@fW-g*|KFjfK$s#>I%9*yR!aaR
zT|#+@>8Z(yB~Tu7aB2mV$>;~Ot+=$PEVC@X2&RR%Ahjqt9wM5W0<n_mKLcu>VJk_>
iiBCy`nG57WnOrG}C5d`zML?H<G64V@ypw7`1ONa4fuJ-1

delta 411
zcmV;M0c8H71GxhoABzY80000000WEQVqjokVqj)wVqjthGMR;e1d$~ve_&aNC`V{s
zN@|gUp(%`SXsS?>uV88b<+J;j0i}UlRKr-4a}tYTX2ESpOH3}wF9NduL1l#CGO4+V
zIjK+{3le+y$RJV!EC$?w*aIpq1;n6K1X6Dc#C}jUJU}cB#a=*s6B?78XsHXN)&+<a
zpyI4Z=2<}bOi;DFP;o^df0l)cfdC)KJO@t*#~~6*M|i4C0wM=Di^qLH1Q$297TyR%
za6XI<`<(Hb#VE!>a*34V5-BH#fK?!{+Cc$IdkB4N*}G8R!2!y5^O0WjQ{<3?)~?i&
zQ!l5%%s~Lugq4?=n+i)<Y_Q-CfFw64FEKqeIk5!FV-8NOfHE2Vb)XE+;?knB%(DC<
zm=@lG)S~2gh-hjG#7d_BP+M4_in!8?@=FU+Q{q$7U^bN`<sf*>KpsqKN@7W(URn{*
zt!VD&EXps}gZTjz5ljt0;{X5u@6Z&olqD9y{K<sZpJ@70it-Dfkq^uE{{X4&<aVJ1
F001h<wZi}a