R to VBA

Chris -  
Chris128 Messages postés 1 Statut Membre -
Bonjour à tous,

Est-ce que quelqu'un saurait traduire ce code R en VBA :

rw<-rnorm(100)

m<-median(rw)
trade<-rep(0,length(rw))

for(i in 1:(length(rw)-1)){
if(rw[i] < m) trade[i]<- (rw[i+1]-rw[i])
if(rw[i] > m) trade[i]<- (rw[i]-rw[i+1])
if(rw[i] == m) trade[i]<- 0}

eq_curve<-cumsum(trade)

par (mfrow = c(2, 1))
plot(rw,type='l',main='random walk')
plot(eq_curve,type='l',main='eq_curve')

Un grand merci d'avance.

Chris

2 réponses

  1. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 783
     
    Je suis pas un spécialiste des statistiques et encore moins du R.
    Ce langage est vraiment puissant et déjà la première instruction pose problème !!!

    Pour traduire ce programme, il va falloir trouver un statisticien qui connais le VBA et coté graphique cela risque d'être hard !
    0
  2. Chris128 Messages postés 1 Statut Membre
     
    Merci Patrice pour ta réponse, je vais essayer de trouver un statisticien ;-)

    Bonne soirée
    0