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) |