Mercurial > repos > greg > ks_distribution

comparison ks_distribution.R @ 34:1800b6cdd672 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author greg
date Mon, 26 Jun 2017 10:48:39 -0400
parents 5652711d5ae4
children a96e89657621
comparison
equal deleted inserted replaced
33:5652711d5ae4 34:1800b6cdd672
165 # Read in the components data. 165 # Read in the components data.
166 components_data <- read.delim(opt$components_input, header=TRUE) 166 components_data <- read.delim(opt$components_input, header=TRUE)
167 number_comp <- opt$number_comp 167 number_comp <- opt$number_comp
168 168
169 # Set component colors. 169 # Set component colors.
170 specified_colors = set_component_colors = function(opt$colors, number_comp) 170 specified_colors = set_component_colors(opt$colors, number_comp)
171 171
172 # Set pi, mu, var. 172 # Set pi, mu, var.
173 items <- get_pi_mu_var(components_data, number_comp) 173 items <- get_pi_mu_var(components_data, number_comp)
174 if (number_comp == 1) 174 if (number_comp == 1)
175 { 175 {