diff --git a/R/plot.OutputsModel.R b/R/plot.OutputsModel.R index 568c218749e1099050f8604fa5477e0c0cdc074b..5b3911eff21860e0de00811697aaf63f83d5eef4 100644 --- a/R/plot.OutputsModel.R +++ b/R/plot.OutputsModel.R @@ -401,7 +401,7 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea = type = "l", xaxt = "n", yaxt = "n", ylim = ylim2, col = "green4", lwd = lwd * lwdk, lty = 3) legend("topright", legend = c("pot.", "actu."), col = c("green3", "green4"), - lty = c(1, 3), lwd = c(lwd*1.0, lwd*0.8), + lty = c(1, 3), lwd = c(lwd * 1.0, lwd * 0.8), bty = "o", bg = bg, box.col = bg, cex = cex.leg) } axis(side = 2, at = pretty(ylim1), labels = pretty(ylim1), cex.axis = cex.axis, ...) @@ -462,7 +462,7 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea = mtext(side = 2, expression(paste("temp. [", degree, "C]"), sep = ""), padj = 0.2, line = line, cex = cex.lab) legend("topright", legend = c("mean", "layers"), col = c("darkorchid4", "orchid"), - lty = c(1, 3), lwd = c(lwd*1.0, lwd*0.8), + lty = c(1, 3), lwd = c(lwd * 1.0, lwd * 0.8), bty = "o", bg = bg, box.col = bg, cex = cex.leg) AxisTS(OutputsModel) @@ -488,13 +488,13 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea = } plot(Xaxis, SnowPackLayerMean, type = "l", ylim = ylim1, lwd = lwd * lwdk *1.2, col = "royalblue", xlab = "", ylab = "", xaxt = "n", yaxt = "n", ...) for (iLayer in 1:NLayers) { - lines(Xaxis, OutputsModel$CemaNeigeLayers[[iLayer]]$SnowPack, lty = 3, col = "royalblue", lwd = lwd * lwdk *0.8) + lines(Xaxis, OutputsModel$CemaNeigeLayers[[iLayer]]$SnowPack, lty = 3, col = "royalblue", lwd = lwd * lwdk * 0.8) } axis(side = 2, at = pretty(ylim1), labels = pretty(ylim1), cex.axis = cex.axis, ...) mtext(side = 2, paste("snow pack", "[mm]"), line = line, cex = cex.lab) legend("topright", legend = c("mean", "layers"), col = c("royalblue", "royalblue"), - lty = c(1, 3), lwd = c(lwd*1.2, lwd*0.8), + lty = c(1, 3), lwd = c(lwd * 1.2, lwd * 0.8), bty = "o", bg = bg, box.col = bg, cex = cex.leg) AxisTS(OutputsModel)