- ref_serie = c(ref_serie,data$getCenteredSerie(index+1))
- centered_series = rbind( centered_series, data$getCenteredSeries(fdays+1) )
- yrange = quantile(cbind(ref_serie,centered_series), probs=c(0.025,0.975), na.rm=TRUE)
+ ref_serie = c( data$getCenteredSerie( pred$getIndexInData(index)-1 ),
+ data$getCenteredSerie( pred$getIndexInData(index) ) )
+ centered_series = rbind(
+ data$getCenteredSeries( pred$getParams(index)$indices ),
+ data$getCenteredSeries( pred$getParams(index)$indices+1 ) )
+ yrange = range( ref_serie,
+ quantile(centered_series, probs=c(0.025,0.975), na.rm=TRUE) )