- for (my.color in rain) {
- my.color <- col2rgb(my.color)
- if ((my.color[1] > 200) & (my.color[2] > 200) & (my.color[3] < 20)) {
- tochange <- append(tochange, compt)
- }
- compt <- compt + 1
- }
- if (!is.null(tochange)) {
- gr.col <- grey.colors(length(tochange))
- compt <- 1
- for (val in tochange) {
- rain[val] <- gr.col[compt]
- compt <- compt + 1
- }
- }
- cl.color <- rain[classes]
+ #for (my.color in rain) {
+ # my.color <- col2rgb(my.color)
+ # if ((my.color[1] > 200) & (my.color[2] > 200) & (my.color[3] < 20)) {
+ # tochange <- append(tochange, compt)
+ # }
+ # compt <- compt + 1
+ #}
+ #if (!is.null(tochange)) {
+ # gr.col <- grey.colors(length(tochange))
+ # compt <- 1
+ # for (val in tochange) {
+ # rain[val] <- gr.col[compt]
+ # compt <- compt + 1
+ # }
+ #}
+ rain <- del.yellow(rain)
+ cl.color <- rain[classes]