Pourriez-vous m'éclairer par rapport à ce message d'erreur? Sachant que j'ai bien une situation où i=0, i-1=0 et i-12=0
Code : Tout sélectionner
a=c(0,0,0,0,0,0,0,1,0,0,0,0,
0,0,0,0,0,0,0,1,0,0,0,0,
0,0,0,0,0,0,0,1,0,0,0,0,
0,0,0,0,0,0,0,1,0,0,0,0,
1,1,1,1,1,1,1,1,1,1,1,1,
0,0,0,1,0,0,0,0,0,1,0,0,
0,0,0,1,0,0,0,0,0,1,0,0,
0,0,0,1,1,1,1,1,1,1,0,0,
0,0,0,1,0,0,0,0,0,1,1,1,
0,0,0,1,0,0,0,0,0,1,0,0,
0,0,0,1,0,0,0,0,0,1,0,0)
b=data.frame(a)
group1<- function(x) {
g0 <- 1
v<-c(13L,25L,37L,49L,61L,73L,85L,97L,109L,121L)
v2<-c(2L,3L,4L,5L,6L,7L,8L,9L,10L,11L,12L)
for (i in seq.int(g)) {
g[i] <-
if (x[i] == 0 && i==1L) {
g[i]<-g0
} else if (x[i]==0 && i%in%v && x[i-12]==1) {
g[i]<-g0 <- g0 +1
} else if (x[i]==0 && x[i-1]==1 && i%in%v2) {
g[i]<-g0 <- g0 +1
} else if (x[i]==0 && x[i-1]==1 && x[i-12]==1) {
g[i]<- g0 <- g0 +1
} else if (x[i]==0 && i%in%v && x[i-12]==0) {
g[i]<-g0 <- g[i-12]
} else if (x[i]==0 && x[i-1]==1 && x[i-12]==0) {
g[i]<- g0 <- g[i-12]
} else if (x[i]==0 && x[i-1]==0 && i%in%v2){
g[i]<-g0 <- g[i-1]
} else if (x[i]==0 && x[i-1]==0 && x[i-12]==1){
g[i]<-g0 <- g[i-1]
} else if (x[i]==0 && x[i-1]==0 && x[i-12]==0){
g[i]<- g0 <- g[i-1]
} else {
g[i]<- g0 <- "bord"
}
}
g
}
b$group=group1(b$a)
Le message d'erreur est le suivant:
Error in if (x[i] == 0 && x[i - 1] == 0 && x[i - 12] == 0) { :
valeur manquante là où TRUE / FALSE est requis