Bonjour,
J'ai créer une fonction qui permet de me renvoyer un vecteur, cependant celle ci n'aboutie pas.. Je crois que je devrais changer les boucles for en apply mais je ne comprend pas bien comment ça fonctionne.. Quelqu'un peut m'aider s'il vous plait ?
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
21
22
23
24 vect<-function(X1,X2) { j=1 A=c(rep(0,75)) N=c(rep(0,1000)) for(i in 2 : length(X2)) { if (X2[i-1]!="falling" & X2[i]=="falling") { A[j]=i j= j+1 } } t=0 k=A[1] for(i in 1 : 50) { N[i]= X1[k-i-50] } while (X2[k] == "falling") { N[50+t]=X1[k+t] X2[k]=X2[k+1] t=t+1 } return(N) } res1<-vect(mydata$X1, mydata$X8)
Partager