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.