Bonjour,

Mon code ci-dessous indique une erreur mais impossible de la résoudre

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 "}"

Merci de votre aide