# \donttest{
{
### Data preparation ###
data(testotu)
rownames(testotu) <- testotu[, 1]
inputotu <- testotu[, -c(1, ncol(testotu))]
head(inputotu)
group <- c(rep("a", 10), rep("b", 10))
### DESeq analysis ###
if (requireNamespace("DESeq2", quietly = TRUE) &&
requireNamespace("S4Vectors", quietly = TRUE) &&
requireNamespace("tibble", quietly = TRUE)) {
Deseqresult <- Deseq_analysis2(
inputframe = inputotu,
condition = group,
cutoff = 1,
control_name = "b"
)
### Paired DESeq analysis ###
subject <- factor(c(1:10, 1:10))
Deseqresult <- Deseq_analysis2(
inputframe = inputotu,
condition = group,
cutoff = 1,
control_name = "b",
paired = TRUE,
subject = subject
)
}
}
# }
Run the code above in your browser using DataLab