# \donttest{
# only gene ids
data(geneList, package = "genekitr")
id <- names(geneList)[abs(geneList) > 1]
gs <- geneset::getGO(org = "human",ont = "mf",data_dir = tempdir())
ora <- genORA(id, geneset = gs)
# gene id with groups
id <- c(head(names(geneList), 50), tail(names(geneList), 50))
group <- list(
group1 = c(rep("up", 50), rep("down", 50)),
group2 = c(rep("A", 20), rep("B", 30))
)
gora <- genORA(id, geneset = gs, group_list = group)
# }
Run the code above in your browser using DataLab