lighter vertical line on filaments plot

[talweg.git] / pkg / R / plot.R

diff --git a/pkg/R/plot.R b/pkg/R/plot.R
index 2e960f5..372abf0 100644 (file)
--- a/pkg/R/plot.R
+++ b/pkg/R/plot.R
@@ -192,7 +192,7 @@ computeFilaments <- function(data, index, limit=60, plot=TRUE)
                }
                # 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)