}
# Also plot ref curve, in red
plot(ref_serie, ylim=yrange, type="l", col="#FF0000", xlab="", ylab="")
- abline(v=24, lty=2, col=colors()[56])
+ abline(v=24, lty=2, col=colors()[56], lwd=1)
}
list("index"=index,"neighb_indices"=fdays[sorted_distances$ix[1:nn]],"colors"=colors)
par(new=TRUE)
plot(c(data$getSerie(fil$index),data$getSerie(fil$index+1)), type="l", lwd=2, lty=2,
ylim=c(usr[3] + yr, usr[4] - yr), xlab="", ylab="")
+ abline(v=24, lty=2, col=colors()[56])
}
#' Plot relative conditional variability / absolute variability