Bonjour,
J'ai un code en C et je n'arrive pas à l'écrire en R
Voici le code en C :
Voici le code que j'ai tapé, mais malheureusement ça ne marche pas
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 cste = 1.0/(double)N ; for ( i = 2 ; i < (N-3) ; i++ ) { ang = 0.0 ; m = 0 ; for ( j = -1 ; j <= +3 ; j++ ) { ang = ang + atan2 ( (arr[i+j]-arr[i+j-1]), ctse ) ; /* normalisation */ m = m + 1 ; } angle[i] = ang/(double)m ; /* moyenne */ }
Veuillez s'il vous plaît voir et m'aider à trouver une solution.
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 am = function(data) { library(dagR) n = length(data) cste = 1.0/n angle = NULL for(i in 3 : n-3) { bb = paste("b",i,sep="") k = NULL for (j in -1:3) { m=NULL aa = paste("a",j,sep="") k = c(m,assign(aa,atan2(data[i+j] - data[i+j-1],cste), pos=1)) m=m+1 } angle = c(angle,assign(bb,(k/m),pos=1)) } return(angle) }
Merci d'avance
Partager