Bonjour,

Je cherche à créer un vecteur composé de manière un peu complexe :
A, B et C sont des vecteurs de taille 74 avec A l'indice de debut de la chute, B l'indice de fin de la chute et C l'écart entre B et A. J'ai un vecteur X8 de très grande taille dans lequel plus données sont prises pendant la chute.
Je souhaite construire un nouveau vecteur construit de la manière suivante : pour toute les chutes ( 1 à 74) je souhaite récupérer les 50 données de X8 précédent la chute et toutes les données pendant la chute. J'ai le code suivant :
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
vectX2<-function(X2) {
  l=1
  N=c(rep(0,1000))
 
  for(s in 1:74) {
  for(i in l : (l+50)) {
    N[i]= X2[A[s]+i-51]
  }
    N[l+51] = X2[A[s]]
    for (t in 1:C[s])
  {
    N[51+l+t]=X2[A[s]+t]
    l=l+C[s]+51
  }
 
  }
  return(N)
}
 
resessai<-vectX2(mydata$X8)
Il tourne mais le résultat n'est pas bon..
Quelqu'un a une idée pour m'aider s'il vous plait ??