Mercurial > repos > greg > ks_distribution
comparison ks_distribution.R @ 58:9ca7354c86a1 draft
Uploaded
author | greg |
---|---|
date | Mon, 26 Jun 2017 14:59:30 -0400 |
parents | 5db52c7bdccb |
children | ae25785e78e1 |
comparison
equal
deleted
inserted
replaced
57:5db52c7bdccb | 58:9ca7354c86a1 |
---|---|
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) |