Fix script ordering

scripts/02_initial_analysis.R → scripts/01_initial_analysis.R

 # Initializing single cell data
 # Author: John T Lafin
-# Updated: 2024-08-13
+# Updated: 2024-09-17
 
 print("Script begin at: ")
 Sys.time()
@@ -24,7 +24,7 @@ options(future.globals.maxSize = 8000 * 1024^2)
 set.seed(42)
 
 # Create output dir
-outdir <- "data_modified/2024-08-13_initial_analysis/"
+outdir <- "data_modified/01_initial_analysis/"
 dir.create(outdir, showWarnings = FALSE)
 
 # Load data ---------------------------------------------------------------

scripts/01_preprocess.R → scripts/02_preprocess.R

 # Pre-processing single cell data
 # Author: John T Lafin
-# Updated: 2024-08-13
+# Updated: 2024-09-17
 
 print("Script begin at: ")
 Sys.time()
@@ -24,11 +24,11 @@ options(future.globals.maxSize = 8000 * 1024^2)
 set.seed(42)
 
 # Create output dir
-outdir <- "data_modified/2024-08-13_preprocess/"
+outdir <- "data_modified/02_preprocess/"
 dir.create(outdir, showWarnings = FALSE)
 
 # Load data
-seu <- readRDS("data_modified/2024-08-13_initial_analysis/merged_object.rds")
+seu <- readRDS("data_modified/01_initial_analysis/merged_object.rds")
 
 # Clustering --------------------------------------------------------------