}
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
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)))
}