Commit e87f90fd authored by Lena Hersemann's avatar Lena Hersemann

fixed bug (tibble::rownames_to_column() did not report the actual rownames and was replaced)

parent 241be808
......@@ -467,8 +467,11 @@ deResults = plyr::alply(contrasts, 1, plyr::splat(function(condition_1, conditio
# results(dds, contrast=c(contrastAttribute, condition_1, condition_2)) %>%
results(dds, contrast = c(contrastAttribute, condition_1, condition_2), lfcThreshold = lfc_cutoff, filterFun = ihw) %>%
# results(dds, contrast = c(contrastAttribute, condition_1, condition_2), lfcThreshold = lfc_cutoff) %>%
as_tibble() %>%
tibble::rownames_to_column("ensembl_gene_id") %>%
as.data.frame() %>%
mutate(ensembl_gene_id = rownames(.)) %>%
push_left("ensembl_gene_id") %>%
# as_tibble() %>%
# tibble::rownames_to_column("ensembl_gene_id") %>%
## see http://rpackages.ianhowson.com/bioc/DESeq2/man/results.html when using contrasts argument
rename(c1_over_c2_logfc = log2FoldChange) %>%
mutate(condition_1 = condition_1, condition_2 = condition_2) #%>% head %>% print_head
......
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