if (FALSE) {
## PathBank
library(AnnotationHub)
ah <- AnnotationHub()
qr <- query(ah, c("pathbank", "Homo sapiens"))
#tbl_pathbank <- qr[[1]] # metabolomics
tbl_pathbank <- qr[[2]] # proteomics
ids <- names(tbl_pathbank)[-c(1:4)]
id <- ids[1] # Uniprot ID
subs <- unique(tbl_pathbank$`Pathway Subject`)
subject <- subs[6] # Protein
M <- pathbank2list(tbl_pathbank, subject, id)
}
Run the code above in your browser using DataLab