adding typo on template analysis script

Methylation/MethylAnalysis_Adults_samples.R

@@ -250,8 +250,7 @@ MethylAnalysis <- function(methcall.folder = NULL, # input folder with .cov file
   color_list[["sex"]] = c('M' = set1cols[9], 'F' = set1cols[1])
   
   print(color_list)
-  
-  
+    
   
   # Heatmap
   
@@ -288,4 +287,4 @@ MethylAnalysis <- function(methcall.folder = NULL, # input folder with .cov file
   saveRDS(myobj, file = paste0(outfolder,proj.id,"_methylkit.rds"))
   saveRDS(myobj, file = paste0(outfolder,proj.id,"_methylkit_meth.rds"))
 
-}
\ No newline at end of file
+}