R to VBA

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