Message-ID: <1301772400362-3422619.post@n4.nabble.com>
Date: 2011-04-02T19:26:40Z
From: Pete Brecknock
Subject: cumsum while maintaining NA
In-Reply-To: <1301710743873-3421513.post@n4.nabble.com>
Here's one way .....
Lines<-"x1 x2 x3 x4 x5 x6
NA NA 3 4 NA NA
5 3 4 NA NA NA
7 3 4 4 NA NA
11 3 4 5 NA NA
67 4 4 NA NA NA"
d <- read.table(textConnection(Lines), header = TRUE,
colClasses=c("integer"))
closeAllConnections()
res = t(apply(d, 1, function(x) ave(x,is.na(x),FUN=cumsum)))
print(res)
x1 x2 x3 x4 x5 x6
[1,] NA NA 3 7 NA NA
[2,] 5 8 12 NA NA NA
[3,] 7 10 14 18 NA NA
[4,] 11 14 18 23 NA NA
[5,] 67 71 75 NA NA NA
HTH
Pete
--
View this message in context: http://r.789695.n4.nabble.com/cumsum-while-maintaining-NA-tp3421513p3422619.html
Sent from the R help mailing list archive at Nabble.com.