index = i - first_day + 1
serie = c(data$getCenteredSerie(index), data$getCenteredSerie(index+1))
if (!all(is.na(serie)))
- range(serie, na.rm=TRUE)
+ return (range(serie, na.rm=TRUE))
c()
}) )
grays = gray.colors(20, 0.1, 0.9) #TODO: 20 == magic number