Mercurial > repos > greg > ks_distribution
comparison ks_distribution.R @ 55:1659cbe0d5c3 draft
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) |