# HG changeset patch
# User greg
# Date 1498500783 14400
# Node ID 06461aa190f7db707a450b06d9bcee1aed6b8e74
# Parent  399cd9dd2c3e4a3a3338a466eca9745f4631fb7b
Uploaded

diff -r 399cd9dd2c3e -r 06461aa190f7 ks_distribution.R
--- a/ks_distribution.R	Mon Jun 26 14:09:09 2017 -0400
+++ b/ks_distribution.R	Mon Jun 26 14:13:03 2017 -0400
@@ -133,7 +133,7 @@
 
 # Read in the components data.
 components_data <- read.delim(opt$components_input, header=TRUE)
-number_comp <- opt$number_comp
+number_comp <- as.integer(opt$number_comp)
 
 # Set component colors.
 specified_colors <- set_component_colors(opt$colors, number_comp)