Raw Message

Message-ID: <09151670-3A56-11D9-AD50-000A95D7BA10@mail.nih.gov>
Date: 2004-11-19T18:08:37Z
From: Sean Davis
Subject: Running sum

I have vector X of length N that I want to have a running sum for 
(called Y).  I just need max(Y).  I do this with a "for" loop like so:

     Y <- vector(length=N)
     Y[1] <- X[1]
     for (i in 2:N) {
       Y[i] <- Y[i-1]+X[i]
     }
     return(max(Y))

Is there a faster way to do this?

Thanks,
Sean