kstatebioinfo Split figure 1 and 2  over 8 years ago

Commit id: eef3e14faafd423d694a98af84c8554c3b02db86

deletions | additions      

          Binary files a/figures/Fig_1_resource_metrics.pdf and b/figures/Fig_1_memory.pdf differ       Binary files /dev/null and b/figures/Fig_2_run_time.pdf differ              

#!/usr/local/bin/Rscript  # Makes a charts of tool metrics  pdf('~/Fasta-O-Matic-a-tool-to-sanity-check-and-if-needed-reformat-FASTA-files/figures/Fig_1_resource_metrics.pdf', pdf('~/Fasta-O-Matic-a-tool-to-sanity-check-and-if-needed-reformat-FASTA-files/figures/Fig_1_memory.pdf',  bg='white', width=12, height=4) assemblymetrics <- read.csv("~/read-cleaning-format-conversion/KSU_bioinfo_lab/fasta-o-matic/stats.csv", header=TRUE)  ballgownCol <- rgb(0,0,1,3/4)  barplot(assemblymetrics$max.mem.kbytes, xlab = "FASTA file tool", ylab = "Max memory (kbytes)", ylim = c(0,140840), names.arg = assemblymetrics$program, col=c(ballgownCol))  dev.off()  pdf('~/Fasta-O-Matic-a-tool-to-sanity-check-and-if-needed-reformat-FASTA-files/figures/Fig_2_run_time.pdf', bg='white', width=12, height=4)  assemblymetrics <- read.csv("~/read-cleaning-format-conversion/KSU_bioinfo_lab/fasta-o-matic/stats.csv", header=TRUE)  ballgownCol <- rgb(0,0,1,3/4)  barplot(assemblymetrics$run.time.s, xlab = "FASTA file tool", ylab = "Run time (s)", ylim = c(0,150), names.arg = assemblymetrics$program, col=c(ballgownCol))  dev.off()