- tryCatch(dt <- as.POSIXct(index), error=function(e) stop("Unrecognized index format"))
- #TODO: tz arg to difftime ?
- integerIndex <- round( (as.numeric( difftime(dt, data$getTime(1)) ))[1] ) + 1
- if (integerIndex > 0 && integerIndex <= data$getSize())
- {
- #WARNING: if series start at date >0h, result must be shifted
- date1 = as.POSIXlt(data$getTime(1)[1])
- date2 = as.POSIXlt(data$getTime(2)[1])
- shift = (date1$year==date2$year && date1$mon==date2$mon && date1$mday==date2$mday)
- return (integerIndex + ifelse(shift,1,0))
- }
- stop("Date outside data range")
+ index = (i%%3) + 1
+ level = mean(s[[index]])
+ serie = s[[index]] - level + rnorm(L,sd=0.05)
+ # 10 series with NAs for index 2
+ if (index == 2 && i >= 60 && i<= 90)
+ serie[sample(seq_len(L),1)] = NA
+ series[[i]] = list("level"=level,"serie"=serie) #no need for more :: si : time !!!