From: Benjamin Auder Date: Tue, 28 Feb 2017 23:39:43 +0000 (+0100) Subject: add vertical line on FilamentsBox plot X-Git-Url: https://git.auder.net/variants/img/current/%7B%7B%20asset%28%27mixstore/common.css?a=commitdiff_plain;h=d5fe1f304b07f01264c7dca9702f75dcb8a3b7c1;p=talweg.git add vertical line on FilamentsBox plot --- diff --git a/pkg/R/plot.R b/pkg/R/plot.R index 2ef9074..2e960f5 100644 --- a/pkg/R/plot.R +++ b/pkg/R/plot.R @@ -224,6 +224,7 @@ plotFilamentsBox = function(data, fil, ...) 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