if (FALSE) {
# Nonparanormal(npn) transformation
als.npn <- transformData(alsData$exprs)$data
# Selection of FTD-ALS pathways from kegg.pathways.Rdata
paths.name <- c("MAPK signaling pathway",
"Protein processing in endoplasmic reticulum",
"Endocytosis",
"Wnt signaling pathway",
"Neurotrophin signaling pathway",
"Amyotrophic lateral sclerosis")
j <- which(names(kegg.pathways) %in% paths.name)
GSA <- SEMgsa(kegg.pathways[j], als.npn, alsData$group,
method = "bonferroni", alpha = 0.05,
n_rep = 1000)
GSA$gsa
GSA$DEG
}
Run the code above in your browser using DataLab