this is for holding javascript data
Jennifer Shelton added file figures/Fig_1_memory/figure.Rscript
over 8 years ago
Commit id: 633b5fe5bec3ca54197b2274dd7557d1f3570136
deletions | additions
diff --git a/figures/Fig_1_memory/figure.Rscript b/figures/Fig_1_memory/figure.Rscript
new file mode 100644
index 0000000..e6b80d6
--- /dev/null
+++ b/figures/Fig_1_memory/figure.Rscript
...
#!/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_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()