Erreur "argument is of length zero"

Version imprimable

Bonjour, j'ai encore un problème et oui ;). J'ai la suite de code suivante :

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
> AT3bc <- for(i in AT3) { 
+     X <- T3$HIGH[i:(i+4)]
+     Y <- T3$LOW[i:(i+4)]
+     Z <- cbind(X, Y)
+     c = max(Z)
+     d = min(Z)
+     X <- T3$HIGH[(i+5):(i+15)]
+     Y <- T3$LOW[(i+5):(i+15)]
+     Z <- cbind(X, Y)
+     e <- Z[Z > c | Z < d]
+     w <- which(X == e[1])
+     w1 <- which(Y == e[1])
+     mi <- min(w, w1)
+     X <- T3$HIGH[(mi+(i+4)):(mi+(i+34))]
+     Y <- T3$LOW[(mi+(i+4)):(mi+(i+34))]
+     Z <- cbind(X, Y)
+     f <- Z[Z > (c + abs(c-d)) | Z < (d - abs(c-d))]
+     x <- which(X == f[1]) 
+     x1 <- which(Y == f[1])
+     mj <- min(x, x1)
+     if(x==integer(0) & x1==integer(0)) stop()
+     X1 <- T5$HIGH[((mj+mi)+(i+4)):(mi+(i+34))]
+     Y1 <- T5$LOW[((mj+mi)+(i+4)):(mi+(i+34))]
+     w2 <- which(X1 >= f[1])
+     w3 <- which(X1 <= f[1])
+     w4 <- which(Y1 >= f[1])
+     w5 <- which(Y1 <= f[1])
+     print(w2)
+     print(w3)
+     print(w4)
+     print(w5)
+ }
Error in if (x == integer(0) & x1 == integer(0)) stop() : 
  argument is of length zero

Je ne comprends pas pourquoi la console me retourne cette erreur. Cordialement.

22/09/2014, 14h06
chautho

Essaye déjà d’exécuter une fois ta boucle en mettant i = 1 avant par exemple et voir si tu as l'erreur et où. (exécute ligne à ligne)
22/09/2014, 16h12
A. D.

Bonjour,

Bon conseil de la part de chautho, toujours utile lors d'erreurs au sein d'une boucle ;)

Sinon pour rappel, l'opérateur booléen pour le "ET" en R est : &&.

Bonne continuation ! :)

Cordialement,

A.D.

En fait, il n'y a aucun pb jusqu'à la ligne 21

Code:

if(x==integer(0) & x1==integer(0)) stop()

. J'ai ajouté cette ligne pour justement corriger les valeur de i qui retourne "integer(0)". Dans la matrice données AT3 sur laquelle la boucle se base, il y a un seul élément i qui retourne "integer(0)".
AD: Oui en effet, il y a 2&, merci. Quand j'ai ajouté un 2e &, le message d'erreur s'est changé, comme ceci:

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
> AT3bc <- for(i in AT3) { 
+     X <- T3$HIGH[i:(i+4)]
+     Y <- T3$LOW[i:(i+4)]
+     Z <- cbind(X, Y)
+     c = max(Z)
+     d = min(Z)
+     X <- T3$HIGH[(i+5):(i+15)]
+     Y <- T3$LOW[(i+5):(i+15)]
+     Z <- cbind(X, Y)
+     e <- Z[Z > c | Z < d]
+     w <- which(X == e[1])
+     w1 <- which(Y == e[1])
+     mi <- min(w, w1)
+     X <- T3$HIGH[(mi+(i+4)):(mi+(i+34))]
+     Y <- T3$LOW[(mi+(i+4)):(mi+(i+34))]
+     Z <- cbind(X, Y)
+     f <- Z[Z > (c + abs(c-d)) | Z < (d - abs(c-d))]
+     x <- which(X == f[1]) 
+     x1 <- which(Y == f[1])
+     mj <- min(x, x1)
+     if(x==integer(0) && x1==integer(0)) print(NT) else 
+         X1 <- T5$HIGH[((mj+mi)+(i+4)):(mi+(i+34))]
+     Y1 <- T5$LOW[((mj+mi)+(i+4)):(mi+(i+34))]
+     w2 <- which(X1 >= f[1])
+     w3 <- which(X1 <= f[1])
+     w4 <- which(Y1 >= f[1])
+     w5 <- which(Y1 <= f[1])
+     print(w2)
+     print(w3)
+     print(w4)
+     print(w5)
+ }
Error in if (x == integer(0) && x1 == integer(0)) print(NT) else X1 <- T5$HIGH[((mj +  : 
  missing value where TRUE/FALSE needed

22/09/2014, 17h13
A. D.

Re-bonjour,

Pour essayer de comprendre d'où vient l'erreur, il faut tester les éléments un par un.
Ici, le message d'erreur vous indique qu'en sortie du "IF" il attend une valeur "vraie" (TRUE) ou "fausse" (FALSE) et que ce n'est pas le cas. C'est donc votre condition "if" qui n'est pas correcte à mon avis...
Avez-vous essayé de voir ce qu'elle renvoie en tapant dans R uniquement : (x==integer(0) && x1==integer(0)) ?

De plus, pour info, une autre manière de tester si un élément est vide peut être de tester si sa taille/longueur est nulle.

Bonne continuation ! :)

Cordialement,

A.D.
25/09/2014, 16h04
Sengar

Salut,

Remplace

Code:

(x==integer(0) && x1==integer(0))

par

Code:

(length(x)==0 && length(x1)==0)