diff --git a/02_Tidy.R b/02_Tidy.R
index c8e8e11..b640eba 100644
--- a/02_Tidy.R
+++ b/02_Tidy.R
@@ -1,13 +1,11 @@
 library(tidyverse)
 # library(lubridate)
-# library(stringr)
-# library(forcats)
 
 # Load the csv data and tidy it ----
 read_csv("Data/.csv") %>%
   select() %>%
   filter() %>%
   mutate() %>%
-  dmap_if(is.character, factor) %>%
+  mutate_if(is.character, factor) %>%
 # Save the tidy-ed data ----
   saveRDS(file = "Data/tidy.rds")
diff --git a/03_Transform.R b/03_Transform.R
index 8503e0f..921ba1e 100644
--- a/03_Transform.R
+++ b/03_Transform.R
@@ -1,7 +1,5 @@
 library(tidyverse)
 # library(lubridate)
-# library(stringr)
-# library(forcats)
 
 # Load the tidy-ed data ----
 readRDS("Data/tidy.rds") %>%