Update analysis_main.R

Author: tanlabcode

R/BenchMark/ESC_human/analysis_main.R

@@ -42,6 +42,8 @@ library(NbClust)
 library(fpc)
 library(class)
 
+source("analysis_library.R")
+
 # load the data
 # ---------------------------------------------------------------------------------
 data_sc <- fread(file = "data_all/data_sc_TPM.csv", 
@@ -501,4 +503,4 @@ for(j in c(1:3)){
     height = 5
   )
 
-}
+}