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 |
Partager