erreur else if

Version imprimable

erreur else if

Bonjour,

Je suis en train de faire un programme avec des conditions "else if" mais ca ne marche pas...
J'ai une erreur qui dit else in else...

Savez-vous pourquoi? Et si oui, pouvez-vous m'aider?

Code:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
indice=c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10,1.2, 2.4, 3.6, 4.8, 6, 7.2, 8.4, 9.6, 10.8, 12,1.4, 2.8, 4.2, 5.6, 7, 8.4, 9.8, 11.2, 12.6, 14,1.6, 3.2, 4.8, 6.4, 8, 9.6, 11.2, 12.8, 14.4, 16,1.8, 3.6, 5.4, 7.2, 9, 10.8, 12.6, 14.4, 16.2, 18,2, 4, 6, 8, 10, 12, 14, 16, 18, 20,2.2, 4.4, 6.6, 8.8, 11, 13.2, 15.4, 17.6, 19.8, 22,2.4, 4.8, 7.2, 9.6, 12, 14.4, 16.8, 19.2, 21.6, 24,2.6, 5.2, 7.8, 10.4, 13, 15.6, 18.2, 20.8, 23.4, 26,2.8, 5.6, 8.4, 11.2, 14, 16.8, 19.6, 22.4, 25.2, 28,
         3, 6, 9, 12, 15, 18, 21, 24, 27, 30)
mat31415=matrix(indice,11,10,byrow=T)
 
seuils=c(304.15,294.15,306.15,296.15,308.15,298.15,310.15,300.15,312.15,302.15,314.15,304.15,316.15,306.15,318.15,308.15,320.15,310.15,322.15,312.15,324.15,314.15)
 
matseuil=matrix(seuils,11,2,byrow=T)
 
indextype=c(2,rep(c(1,2),30))
 
data <- read.table("source.csv", sep=";", dec=",", quote="\"")
 
newDataFrame = matrix(NA,400,61)
 
for (i in 1:dim(newDataFrame)[1]) {
  s=1
  for (j in 1:dim(newDataFrame)[2]){
    if(data[i,j]< 292.15 & (s==1) & indextype[j]==2)
    {
      newDataFrame[i,j]=0
    } 
 
		else if(data[i,j] < 302.15 && (s == 1) && indextype[j] == 1)
		newDataFrame[i,j]=0 else
				if(data[i,j]<292.15 && (s!=1) && indextype[j]==2)
			newDataFrame[i,j]=mat31415[k,s-1] else
				if(data[i,j]<302.15 && (s!=1) && indextype[j]==1)
           newDataFrame[i,j]=mat31415[k,s-1] else
				if(indice<length(mat31415)+1)
			newDataFrame[i,j]= mat31415[k,s] else
				if(data[i,j]>=292.15 & indextype[j]==2 || data[i,j]>=302.15 & indextype[j]==1) 
 
 
              {
                k=1
                while(data[i,j]> matseuil[k,indextype[j]])
                {
                  k=k+1
                }
 
                newDataFrame[i,j]= mat31415[k,s]
                s=s+1
              }
  }
}
 
write.table.....

19/05/2016, 14h36
UVB_PC

Pourrais-tu donner une instruction qui remplace le data <- read.table("source.csv", sep=";", dec=",", quote="\"") par une structure équivalente

Car à la lecture, il n'y a pas d'erreur évidente, et sans le fichier c'est une autre erreur que produit R

Pierre
19/05/2016, 14h47
lorpins

1 pièce(s) jointe(s)

oula, une structure équivalente?

Si tu veux que je décrive ma donnée, je peux^^

C'est un fichier de 61 colonnes (représentant mes jours et mes nuits) sur 400lignes (représentant mes mails). Mes valeurs correspondent à des températures en Kelvin (compris entre 280 et 316)
J'envoie le fichier, si cela peut t'aider à m'aider, c'est avec grd plaisir! (il est en xls, j'arrive pas à le télécharger en csv)
19/05/2016, 17h41
A. D.
Bonjour,

Juste une remarque comme ça, avez-vous essayé de mettre le "else if" sur la même ligne que l'accolade fermante du 1er "if" ?
Egalement, il me semble qu'il manque pas mal d'accolades ouvrantes et fermantes pour toutes les sections "if" et "else".

Pour rappel, la structure devrait être la suivante :
Code:

1 2 3 4 5 6 7 if (condition1) { expression1 } else if (condition2) { expression2 } else { expression3 }
Cordialement,

A.D.
20/05/2016, 13h35
lorpins

Merci pour la petite aide.
Mais rien n'y fait.

Un peu désemparée mais je vais y arriver, enfin j'espère!

Merci en tout cas pour vos conseils!

Laura
20/05/2016, 17h37
A. D.

Bonjour,

Avez-vous repris votre code en faisant bien attention aux accolades et positions des "else if" ?
Si oui, peut-être pourriez-vous poster ici le code corrigé et l'erreur qu'il renvoie, cela nous aiderait peut-être à vous aider à débugger tout ça ^^

Bonne continuation :)

Cordialement,

A.D.

C'est trop adorable...
J'ai aucune erreur...sauf que le programme ne fait pas mes conditions...mais aucun message d'erreur.
Voici ma correction :

Code:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
indice=c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10,1.2, 2.4, 3.6, 4.8, 6, 7.2, 8.4, 9.6, 10.8, 12,1.4, 2.8, 4.2, 5.6, 7, 8.4, 9.8, 11.2, 12.6, 14,1.6, 3.2, 4.8, 6.4, 8, 9.6, 11.2, 12.8, 14.4, 16,1.8, 3.6, 5.4, 7.2, 9, 10.8, 12.6, 14.4, 16.2, 18,2, 4, 6, 8, 10, 12, 14, 16, 18, 20,2.2, 4.4, 6.6, 8.8, 11, 13.2, 15.4, 17.6, 19.8, 22,2.4, 4.8, 7.2, 9.6, 12, 14.4, 16.8, 19.2, 21.6, 24,2.6, 5.2, 7.8, 10.4, 13, 15.6, 18.2, 20.8, 23.4, 26,2.8, 5.6, 8.4, 11.2, 14, 16.8, 19.6, 22.4, 25.2, 28,
         3, 6, 9, 12, 15, 18, 21, 24, 27, 30)
mat31415=matrix(indice,11,10,byrow=T)
 
seuils=c(304.15,294.15,306.15,296.15,308.15,298.15,310.15,300.15,312.15,302.15,314.15,304.15,316.15,306.15,318.15,308.15,320.15,310.15,322.15,312.15,324.15,314.15)
 
matseuil=matrix(seuils,11,2,byrow=T)
 
indextype=c(2,rep(c(1,2),30))
 
data <- read.table("inte_moyenne.csv", sep=";", dec=",", quote="\"")
 
newDataFrame = matrix(NA,400,61)
 
for (i in 1:dim(newDataFrame)[1]) {
  s=1
  for (j in 1:dim(newDataFrame)[2]){
    if(data[i,j]< 292.15 & (s==1) & indextype[j]==2)
    {
      newDataFrame[i,j]=0
    } 
 
		 if((data[i,j] < 302.15 && (s==1) && indextype[j]==1)){
			newDataFrame[i,j]=0 
				} else if((data[i,j]<292.15 && (s!=1) && indextype[j]==2)) {
			newDataFrame[i,j]=mat31415[k,s-1] 
				} else if ((data[i,j]<302.15 && (s!=1) && indextype[j]==1)){
            newDataFrame[i,j]=mat31415[k,s-1] 
				} else if ((data[i,j]>=292.15 & indextype[j]==2 || data[i,j]>=302.15 & indextype[j]==1)){
                k=1
                while(data[i,j]> matseuil[k,indextype[j]])
                {
                  k=k+1
                }
 
                newDataFrame[i,j]= mat31415[k,s]
                s=s+1
              }
  }
}
 
write.table(newDataFrame, file="new.csv", row.names=FALSE, col.names=FALSE, append=TRUE)
 
View(newDataFrame)

Si vous trouvez, mon week-end sera excellent !
Je m'y planche demain, là, j'ai mon cerveau à plat !

Merci encore pour votre aide.