if (FALSE) {
data(fasting)
data(pathway)
det_list <- pathway$data$fasting
M <- pathway$fasting
det_all <- unique(c(colnames(fasting$X), as.character(unlist(M))))
# SSEA
Z <- ssea_ora(det_list, det_all, M)
## PCA for SSEA score
pca <- prcomp(Z, scale=TRUE)
pca <- pca_loading(pca)
}
Run the code above in your browser using DataLab