this is for holding javascript data
kstatebioinfo Split figure 1 and 2
over 8 years ago
Commit id: eef3e14faafd423d694a98af84c8554c3b02db86
deletions | additions
diff --git a/figures/Fig_1_resource_metrics.pdf b/figures/Fig_1_memory.pdf
similarity index 78%
rename from figures/Fig_1_resource_metrics.pdf
rename to figures/Fig_1_memory.pdf
index 82f69e0..0af3bcf 100644
Binary files a/figures/Fig_1_resource_metrics.pdf and b/figures/Fig_1_memory.pdf differ
diff --git a/figures/Fig_2_run_time.pdf b/figures/Fig_2_run_time.pdf
new file mode 100644
index 0000000..c6c541b
Binary files /dev/null and b/figures/Fig_2_run_time.pdf differ
diff --git a/figures/figure_1.Rscript b/figures/figure.Rscript
similarity index 62%
rename from figures/figure_1.Rscript
rename to figures/figure.Rscript
index 99a37af..e6b80d6 100644
--- a/figures/figure_1.Rscript
+++ b/figures/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_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()