library(Rinbix)
context("GSEA")
test_that("Map SNPs to Genes Biomart", {
snp.info <- mapSNPsToGenesBiomart(c("rs1048194", "rs13126272"))
expect_equal(nrow(snp.info), 2)
})
test_that("Lookup Gene Descriptions Biomart", {
gene.info <- lookupGeneDescBiomart(c("RXRA", "ATMIN"))
expect_equal(nrow(gene.info), 2)
})
test_that("getReactomePathways", {
data(geneListSymbols)
reactomePathDesc <- getReactomePathways(geneListSymbols)
expect_equal(class(reactomePathDesc)[1], "enrichResult")
})
test_that("getGOAnalysis", {
data(geneListSymbols)
goEnrichment <- getGOAnalysis(geneListSymbols)
expect_equal(class(goEnrichment)[1], "enrichResult")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.