## If the data files are collected in a zip archive, the following
## commands will first extract them to the temporary directory.
geneExpFile <- system.file("extdata", "GeneExpExample1000.txt", package="DEGseq")
set.seed(100)
geneExpFile1 <- geneExpFile
geneExpFile2 <- geneExpFile
output <- file.path(tempdir(), "samWrapperOut.txt")
exp <- readGeneExp(file=geneExpFile, geneCol=1, valCol=c(7,9,12,15,18))
exp[30:35,]
exp <- readGeneExp(file=geneExpFile, geneCol=1, valCol=c(8,10,11,13,16))
exp[30:35,]
samWrapper(geneExpFile1=geneExpFile1, geneCol1=1, expCol1=c(7,9,12,15,18), measure1=c(-1,-2,-3,-4,-5),
geneExpFile2=geneExpFile2, geneCol2=1, expCol2=c(8,10,11,13,16), measure2=c(1,2,3,4,5),
nperms=100, min.foldchange=2, max.qValue=1e-4, output=output, paired=TRUE)
cat("output:", output, "")
Run the code above in your browser using DataLab