R help - Nov 2008 - Question on creating list object

I get following result, while I write this code :
> lapply(1:5, function(i) c(1,2,3)^i)
[[1]]
[1] 1 2 3

[[2]]
[1] 1 4 9

[[3]]
[1]  1  8 27

[[4]]
[1]  1 16 81

[[5]]
[1]   1  32 243

This is fine. However my goal is : each element of this list should depend
on previous element like :

lis # List name
then,

lis[[i]] = lis[[i-1]] + c(1,2,3)^i

How can I modify my current code without having a "for" loop ?

Regards,
-- 
View this message in context:
http://www.nabble.com/Question-on-creating-list-object-tp20536658p20536658.html
Sent from the R help mailing list archive at Nabble.com.

On Mon, Nov 17, 2008 at 5:00 AM, megh <megh700004 at yahoo.com>
wrote:
>> lapply(1:5, function(i) c(1,2,3)^i)
> [[1]]
> [1] 1 2 3
...
> This is fine. However my goal is : each element of this list should depend
> on previous element like :
>
> lis # List name
> then,
>
> lis[[i]] = lis[[i-1]] + c(1,2,3)^i
>
> How can I modify my current code without having a "for" loop ?
This is a cumulative sum, so you can use Reduce with the accumulate parameter:

     Reduce(`+`, lapply(1:5,`^`,c(1,2,3)),accumulate=TRUE)

You might think (actually, I thought this too until I tried it) that
cumsum(X) == Reduce(`+`,X,accumulate=TRUE), but it is not: cumsum only
handles vectors of numbers (what R calls "numeric objects"), not lists
of other types (such as vectors of numbers), even if `+` is defined on
them.

              -s