Commit 7e5f3c1c authored by Valentina Galata's avatar Valentina Galata
Browse files

figures/stats: print stats (for paper) when ceating prodigal fig

parent 3ace90aa
...@@ -35,6 +35,21 @@ for(sname in names(snakemake@config$samples)){ ...@@ -35,6 +35,21 @@ for(sname in names(snakemake@config$samples)){
TABS[[sname]] <- read_prodigal_gcounts(snakemake@input[[sname]]) TABS[[sname]] <- read_prodigal_gcounts(snakemake@input[[sname]])
} }
############################## STATS
print("STATS: Number of total proteins: max vs min:")
for(sname in names(snakemake@config$samples)){
print(sprintf(
"STATS: Sample %s: %s vs %s = %d / %d = %.2f",
sname,
TABS[[sname]]$tool[which.max(TABS[[sname]]$total)],
TABS[[sname]]$tool[which.min(TABS[[sname]]$total)],
max(TABS[[sname]]$total),
min(TABS[[sname]]$total),
max(TABS[[sname]]$total) / min(TABS[[sname]]$total)
))
}
############################## PLOT ############################## PLOT
# individual plots # individual plots
......
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