X-Git-Url: https://git.auder.net/?p=aggexp.git;a=blobdiff_plain;f=pkg%2FR%2Fz_plot.R;fp=pkg%2FR%2Fz_plot.R;h=9e9491319a732f6648be2883b85ca0da8007b515;hp=cf36ed69e08a191c7a011adbb47f4187e92e8cf6;hb=d1ae093753e81f18ffeaced56ea74446c5922bd6;hpb=ac475607b3776ed6fdbdc1a26a86f6c0d8498011

diff --git a/pkg/R/z_plot.R b/pkg/R/z_plot.R
index cf36ed6..9e94913 100644
--- 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)))
 }