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