Commit cce5b893 authored by Holger Brandl's avatar Holger Brandl

cont cs analysis

parent 216fe1dd
......@@ -94,6 +94,11 @@ deResults %>% ggplot(aes(pvalue)) +
#res <- results(dds, contrast=c(c("condition","H1M_Shield", "H3K4_Shield")))
deResults %<>% mutate(is_hit=pvalue<0.01)
write.delim(deResults, file="deResults.txt")
# deResults <- read.delim("deResults.txt")
#' [deResults](deResults.txt)
degs <- deResults %>% filter(is_hit)
ggplot(degs, aes(paste(sample_1, "vs", sample_2))) + geom_bar() +xlab(NULL) + ylab("# DBGs") +ggtitle("DBG count summary") + coord_flip()
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment