par(mfrow=c(2,2), mar=c(4.7,5,1,1), cex.axis=2, cex.lab=2, lwd=2)
L = length(err)
yrange = range( sapply(1:L, function(index) ( err[[index]]$abs$day ) ), na.rm=TRUE )
for (i in seq_len(L))
{
plot(err[[i]]$abs$day, type="l", xlab=ifelse(i==1,"Temps (heures)",""),
par(mfrow=c(2,2), mar=c(4.7,5,1,1), cex.axis=2, cex.lab=2, lwd=2)
L = length(err)
yrange = range( sapply(1:L, function(index) ( err[[index]]$abs$day ) ), na.rm=TRUE )
for (i in seq_len(L))
{
plot(err[[i]]$abs$day, type="l", xlab=ifelse(i==1,"Temps (heures)",""),