# HG changeset patch
# User greg
# Date 1498244442 14400
# Node ID 79e00e063a4099e0d1db67cd8172c632910cfb6e
# Parent  14f771140d458052e780121574a2521d1bf20b0b
Uploaded

diff -r 14f771140d45 -r 79e00e063a40 ks_distribution.R
--- a/ks_distribution.R	Fri Jun 23 15:00:34 2017 -0400
+++ b/ks_distribution.R	Fri Jun 23 15:00:42 2017 -0400
@@ -7,7 +7,7 @@
     make_option(c("-k", "--kaks_input"), action="store", dest="kaks_input", help="KaKs analysis input dataset"),
     make_option(c("-n", "--num_comp"), action="store", dest="num_comp", type="integer", help="Number of significant components in the Ks distribution"),
     make_option(c("-o", "--output"), action="store", dest="output", help="Output dataset"),
-    make_option(c("-r", "--colors"), action="store", default=NA, help="List of component colors"))
+    make_option(c("-r", "--colors"), action="store", default=NA, help="List of component colors")
 )
 
 parser <- OptionParser(usage="%prog [options] file", option_list=option_list)
@@ -82,7 +82,7 @@
     barplot(nc, space=0.25, offset=0, width=0.04, xlim=c(0, max_ks), ylim=c(0, ymax), col="lightpink1", border="lightpink3")
     # Add x-axis.
     axis(1)
-    if(is.na(colors)
+    if is.na(colors)
     {
         color <- c('red', 'yellow', 'green', 'black', 'blue', 'darkorange')
     }