if (FALSE) {
bel <- BEIDList(
l=list(
kinases=c("117283", "3706", "3707", "51447", "80271", "9807"),
phosphatases=c(
"130367", "249", "283871", "493911", "57026", "5723", "81537"
)
),
scope=list(be="Gene", source="EntrezGene", organism="Homo sapiens")
)
scope(bel)
metadata(bel)
metadata(bel) <- dplyr::mutate(
metadata(bel),
"description"=c("A few kinases", "A few phosphatases")
)
metadata(bel)
}
Run the code above in your browser using DataLab