{
ref_var = c( apply(data$getSeries(fil$neighb_indices),1,sd),
apply(data$getSeries(fil$neighb_indices+1),1,sd) )
- fdays = .getNoNA2(data, 1, fil$index-1)
+ tdays = .getNoNA2(data, 2, fil$index)
global_var = c(
- apply(data$getSeries(fdays),1,sd),
- apply(data$getSeries(fdays+1),1,sd) )
+ apply(data$getSeries(tdays-1),1,sd),
+ apply(data$getSeries(tdays),1,sd) )
yrange = range(ref_var, global_var)
par(mar=c(4.7,5,1,1), cex.axis=1.5, cex.lab=1.5)