library("prolfquapp")
annot <- data.frame(names = c("a1","b1"), group= c("a","b"), ddd = c("T","C"))
testthat::expect_error(extract_contrasts(annot))
annot$control <- annot$ddd
contrast <- extract_contrasts(annot)
stopifnot(contrast == "G_a - G_b")
annot$Contrast <- c("G_a - G_b","G_b - G_a")
annot$ContrastName <- c("a_vs_b","b_vs_a")
annot$control <- NULL
ct <- extract_contrasts(annot)
stopifnot(length(ct) == 2)extract contrast from annotation file
Description
extract contrast from annotation file
Usage
extract_contrasts(annot, prefix = "G_", group = "group")
Arguments
annot
|
annotation data frame |
prefix
|
prefix for group levels |
group
|
name of the group column |