library(graphite)
data(NCI60_4arrays)
gss <- prepGraphite(db = kegg[6:10], id="symbol")
sup_data1 <- prepSupMoa(NCI60_4arrays, geneSets=gss)
gene_list <- lapply(NCI60_4arrays, rownames)
sup_data2 <- prepSupMoa(gene_list, geneSets=gss)
Run the code above in your browser using DataLab