Discussion :

[did10]

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

[manoir]

Bonjour,

Une parenthèse qui manque nn ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Manoir

[did10]

C'est bon j'ai trouvé, c'est bien une parenthèse mais c'est celle du paste() que j'ai pas refermé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci

[pitipoisson]

Bonjour,

Si tu aérais un peu ton code avec des espaces et des retour à la ligne + indentation, tu éviterais une bonne partie de ces oublis.
Et le déboguage en serait également facilité.

Il es franchement horrible d'avoir un truc aussi dense que cette dernière fonction sur une seule ligne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
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=TRUE),
            max(UCL_Xbar[i], UCL_EWMA[i],
                Data_Base$STD_DEV[Data_Base$PARAMETER == levels(Data_Base$PARAMETER)[-q][i]],
                na.rm=TRUE)),
     type="o", xaxt="n", xlab="", ylab="Value", pch=3, lty=1, col="orange")

(même comme ça c'est déjà pas facile de s'y retrouver )