Folder<-"E:/EMBO/Epi4K_GGE";
source("E:/EMBO/CMHP.R")
CMHP("E:/EMBO/Epi4K_GGE/",2)
