Mercurial > repos > greg > ks_distribution
comparison ks_distribution.R @ 47:06461aa190f7 draft
Uploaded
author | greg |
---|---|
date | Mon, 26 Jun 2017 14:13:03 -0400 |
parents | 399cd9dd2c3e |
children | 5c48e4c497f4 |
comparison
equal
deleted
inserted
replaced
46:399cd9dd2c3e | 47:06461aa190f7 |
---|---|
131 return(fx) | 131 return(fx) |
132 } | 132 } |
133 | 133 |
134 # Read in the components data. | 134 # Read in the components data. |
135 components_data <- read.delim(opt$components_input, header=TRUE) | 135 components_data <- read.delim(opt$components_input, header=TRUE) |
136 number_comp <- opt$number_comp | 136 number_comp <- as.integer(opt$number_comp) |
137 | 137 |
138 # Set component colors. | 138 # Set component colors. |
139 specified_colors <- set_component_colors(opt$colors, number_comp) | 139 specified_colors <- set_component_colors(opt$colors, number_comp) |
140 | 140 |
141 # Set pi, mu, var. | 141 # Set pi, mu, var. |