M <- matrix(1:9, 3,3)
colnames(M) <- c("A1", "A2", "A3")
BStest <- BSseq(pos = 1:3, chr = c("chr1", "chr2", "chr1"),
M = M, Cov = M + 2)
results <- fisherTests(BStest, group1 = "A1", group2 = "A2",
returnLookup = TRUE)
results
Run the code above in your browser using DataLab