Mercurial > repos > greg > ks_distribution

comparison ks_distribution.R @ 55:1659cbe0d5c3 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 14:50:59 -0400
parents 139e726dcb95
children d79951635f5d
comparison
equal deleted inserted replaced
54:139e726dcb95 55:1659cbe0d5c3
26 colors <- as.character(colors) 26 colors <- as.character(colors)
27 items <- strsplit(colors, ",") 27 items <- strsplit(colors, ",")
28 for (item in items) { 28 for (item in items) {
29 component_colors <- c(component_colors, item) 29 component_colors <- c(component_colors, item)
30 } 30 }
31 num_colors_specified <- length(component_colors) 31 #num_colors_specified <- length(component_colors)
32 if (num_colors_specified < number_comp) { 32 #if (num_colors_specified < number_comp) {
33 for (i in num_colors_specified:number_comp) { 33 # for (i in num_colors_specified:number_comp) {
34 if (!('red' %in% names(component_colors))) { 34 # if (!('red' %in% names(component_colors))) {
35 component_colors <- c(component_colors, 'red') 35 # component_colors <- c(component_colors, 'red')
36 } else if (!('yellow' %in% names(component_colors))) { 36 # } else if (!('yellow' %in% names(component_colors))) {
37 component_colors <- c(component_colors, 'yellow') 37 # component_colors <- c(component_colors, 'yellow')
38 } else if (!('green' %in% names(component_colors))) { 38 # } else if (!('green' %in% names(component_colors))) {
39 component_colors <- c(component_colors, 'green') 39 # component_colors <- c(component_colors, 'green')
40 } else if (!('black' %in% names(component_colors))) { 40 # } else if (!('black' %in% names(component_colors))) {
41 component_colors <- c(component_colors, 'black') 41 # component_colors <- c(component_colors, 'black')
42 } else if (!('blue' %in% names(component_colors))) { 42 # } else if (!('blue' %in% names(component_colors))) {
43 component_colors <- c(component_colors, 'blue') 43 # component_colors <- c(component_colors, 'blue')
44 } else { 44 # } else {
45 component_colors <- c(component_colors, 'darkorange') 45 # component_colors <- c(component_colors, 'darkorange')
46 } 46 # }
47 } 47 # }
48 } 48 #}
49 } 49 }
50 return(component_colors) 50 return(component_colors)
51 } 51 }
52 52
53 get_pi_mu_var = function(components_data, number_comp) 53 get_pi_mu_var = function(components_data, number_comp)