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 :
Il tourne mais le résultat n'est pas bon..
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)
Quelqu'un a une idée pour m'aider s'il vous plait ??
Partager