merge with remote

[aggexp.git] / pkg / R / z_plot.R

diff --git a/pkg/R/z_plot.R b/pkg/R/z_plot.R
index cf36ed6..9e94913 100644 (file)
--- a/pkg/R/z_plot.R
+++ b/pkg/R/z_plot.R
@@ -33,7 +33,7 @@ plotCurves = function(r, station=1, interval=1:(nrow(r$data)/length(r$stations))
        }
        plot(Y, type="l", ylim=yRange, xlab="", ylab="", lwd=2, cex.axis=1.5, ...)
        title(xlab="Time",ylab="Forecasts / Measures", cex.lab=1.6)
-       legend("topright", title="Historical PM10",lwd=c(2,1),lty=c("solid","dotted"),horiz=TRUE,legend=c("Measures","Forecasts"))
+       legend("topright", lwd=c(2,1),lty=c("solid","dotted"),horiz=TRUE,legend=c("Measures","Forecasts"))
 }
 
 #' @title Plot error
@@ -143,7 +143,6 @@ plotCloud = function(r, thresh=30, hintThresh=c(30,50,80), station=1, noNA=TRUE,
        plot(Y, hatY, xlab="Measured PM10", ylab="Predicted PM10",
                cex.lab=1.6, cex.axis=1.5, xlim=c(0,120), ylim=c(0,120), ...)
        abline(0,1,h=hintThresh,v=hintThresh,col=2,lwd=2)
-#      legend("topleft",legend=c(paste("EV   ",indics$EV),paste("RMSE ",indics$RMSE)),cex=1.2)
        legend("topleft",legend=paste("RMSE ",indics$RMSE))
        legend("bottomright",legend=c(paste("TS ",indics$TS)))
 }