1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
| >par(mfrow=c(1,1),bty='l',cex.axis=0.7,cex.main=1.5,cex.lab=1.5,las=2,adj=0.5,col.main="darkblue",yaxs="r")
>for (i in 1:length(levels(Data_Base$PARAMETER)[-q])){
>plot(l_sort[[i]],main=paste("Trend Chart: ",Data_Base$SPEC_FILE[i]," . Parameter: ",levels(Data_Base$PARAMETER)[-q][i],ylim=c(min(LCL_Xbar[i],LCL_EWMA[i],Data_Base$STD_DEV[Data_Base$PARAMETER==levels(Data_Base$PARAMETER)[-q][i]],na.rm=T),max(UCL_Xbar[i],UCL_EWMA[i],Data_Base$STD_DEV[Data_Base$PARAMETER==levels(Data_Base$PARAMETER)[-q][i]],na.rm=T))
,type="o",xaxt="n",xlab="",ylab="Value",pch=3,lty=1,col="orange")
>points(EWMA_filtered[[i]],type='b',pch=20,lty=1,col=2)
Erreur : symbole inattendu(e) dans :
",type="o",xaxt="n",xlab="",ylab="Value",pch=3,lty=1,col="orange")
points"
>points(EWMA[,i],type='b',pch=5,lty=1,col="darkgreen")
Erreur dans plot.xy(xy.coords(x, y), type = type, ...) :
plot.new n'a pas encore été appelé
> abline(h=c(Average2[i],UCL_Xbar[i],LCL_Xbar[i],UCL_EWMA[i],LCL_EWMA[i]),lty=c(2,5,5,5,5),col=c(4,"orange","orange","darkgreen","darkgreen"))
Erreur dans int_abline(a = a, b = b, h = h, v = v, untf = untf, ...) :
plot.new n'a pas encore été appelé
> axis(1,1:length(labels[[i]]),labels=labels[[i]])
Erreur dans axis(1, 1:length(labels[[i]]), labels = labels[[i]]) :
plot.new n'a pas encore été appelé
> }
Erreur : '}' inattendu(e) dans "}" |
Partager