Description Usage Arguments Value Author(s) Examples
View source: R/runComparison.R
Check that the dataset
, nbr.samples
, repl
and de.methods
columns of a data frame are consistent with the information provided in the input files (given in the input.files
column of the data frame). If there are inconsistencies or missing information in any of the columns, replace the given information with the information in the input files.
1 | checkTableConsistency(file.table)
|
file.table |
A data frame with columns named |
Returns a consistent file table defining the result files that will be used as the basis for a method comparison.
Charlotte Soneson
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | tmpdir <- normalizePath(tempdir(), winslash = "/")
mydata.obj <- generateSyntheticData(dataset = "mydata", n.vars = 1000,
samples.per.cond = 5, n.diffexp = 100,
output.file = file.path(tmpdir, "mydata.rds"))
runDiffExp(data.file = file.path(tmpdir, "mydata.rds"), result.extent = "voom.limma",
Rmdfunction = "voom.limma.createRmd", output.directory = tmpdir,
norm.method = "TMM")
runDiffExp(data.file = file.path(tmpdir, "mydata.rds"), result.extent = "edgeR.exact",
Rmdfunction = "edgeR.exact.createRmd", output.directory = tmpdir,
norm.method = "TMM",
trend.method = "movingave", disp.type = "tagwise")
## A correct table
file.table <- data.frame(input.files = file.path(tmpdir,
c("mydata_voom.limma.rds", "mydata_edgeR.exact.rds")),
datasets = c("mydata", "mydata"),
nbr.samples = c(5, 5),
repl = c(1, 1),
stringsAsFactors = FALSE)
new.table <- checkTableConsistency(file.table)
new.table
## An incorrect table
file.table <- data.frame(input.files = file.path(tmpdir,
c("mydata_voom.limma.rds", "mydata_edgeR.exact.rds")),
datasets = c("mydata", "mydata"),
nbr.samples = c(5, 3),
repl = c(2, 1),
stringsAsFactors = FALSE)
new.table <- checkTableConsistency(file.table)
new.table
## A table with missing information
file.table <- data.frame(input.files = file.path(tmpdir,
c("mydata_voom.limma.rds", "mydata_edgeR.exact.rds")),
stringsAsFactors = FALSE)
new.table <- checkTableConsistency(file.table)
new.table
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.