Bonjour,

J'ai un code en C et je n'arrive pas à l'écrire en R

Voici le code en C :
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 */
	}
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
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)
}
Veuillez s'il vous plaît voir et m'aider à trouver une solution.
Merci d'avance