j = index + 1
while (length(days) < min( limit, ifelse(is.null(days_in),Inf,length(days_in)) ))
{
+ if (i < 1 && j > data$getSize())
+ break
if (i >= 1)
{
dt = as.POSIXlt(data$getTime(i)[1])
#
.isSameSeason = function(month, month_ref)
{
+ if (month_ref == 3) #TODO: same as Bruno (but weird)
+ return (month %in% c(2,3,4,9,10))
if (month_ref %in% c(11,12,1,2)) #~= mid-polluted
return (month %in% c(11,12,1,2))
if (month_ref %in% c(3,4,9,10)) #~= high-polluted