# HG changeset patch # User greg # Date 1498492726 14400 # Node ID 686ea47c0ce3e2ee52c8f671cc2bde860b29dd5d # Parent 68447763ccc2d0672a0cebda4e62407afa134056 Uploaded diff -r 68447763ccc2 -r 686ea47c0ce3 ks_distribution.R --- a/ks_distribution.R Mon Jun 26 11:22:29 2017 -0400 +++ b/ks_distribution.R Mon Jun 26 11:58:46 2017 -0400 @@ -32,7 +32,7 @@ { specified_colors <- c(specified_colors, item) } - num_colors_specified = length(specified_colors) + num_colors_specified <- length(specified_colors) if (num_colors_specified < number_comp) { for (i in num_colors_specified:number_comp) @@ -168,7 +168,7 @@ number_comp <- opt$number_comp # Set component colors. -specified_colors = set_component_colors(opt$colors, number_comp) +specified_colors <- set_component_colors(opt$colors, number_comp) # Set pi, mu, var. items <- get_pi_mu_var(components_data, number_comp)