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 be28404..6662aaf 100644
Binary files a/Data_Manipulation/titanic_4.rds and b/Data_Manipulation/titanic_4.rds differ
diff --git a/Data_Manipulation/titanic_4_b.rds b/Data_Manipulation/titanic_4_b.rds
index a35a04e..6662aaf 100644
Binary files a/Data_Manipulation/titanic_4_b.rds and b/Data_Manipulation/titanic_4_b.rds differ