diff --git a/exec/pca_example.R b/exec/pca_example.R
index d7be244..107a5b8 100644
--- a/exec/pca_example.R
+++ b/exec/pca_example.R
@@ -4,6 +4,7 @@ library(shinydashboard)
 source("../R/columnSelector.R")
 source("../R/function.R")
 source("../R/pca.R")
+source("../R/global.R")
 
 #### Test Data
 data <- data.table::as.data.table(mtcars, keep.rowname = "id")