Commit e8c671e4 authored by Holger Brandl's avatar Holger Brandl

replaced score rounding impl

parent 4d51c7a8
......@@ -58,7 +58,8 @@ calc_ci = function(df, variable, ci_interval=0.95){
# data %>% head()
de_res <- read_tsv(file.path(dataPath, "de_results.txt")) %>%
transmute(external_gene_name, ensembl_gene_id, condition_1, condition_2, logfc = c1_over_c2_logfc, pvalue, padj, is_hit, c1_overex)
de_res[,c(4:6)] <- round(de_res[,c(4:6)], 3)
de_res %<>% mutate_at(vars(padj, logfc, pvalue), round,2)
design <- read_tsv(file.path(dataPath, "basic_design.txt")) %>% select(condition, replicate)
......
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