simple list question

[Dave Evens <devens8765@yahoo.com>]

Dear all,

My problem involves naming elements of list within a
list using lapply. For example, if I have a list of
lists of matrices

x <- lapply(1:5, function(k) {lapply(1:k, function(i,
k) {matrix(rnorm(i*i, 1*k, 1), nrow=i, ncol=i)}, k)})

I would like to name the only element in the first
list "A", the elements in the second list "A" and "B"
etc 

I thought the following would work - but it doesn't
change the names in x

lapply(1:5, function(k, list.mat)
{return(names(list.mat[[k]]) <- LETTERS[1:k])}, x)

also 
names(x) <- lapply(1:5, function(k, list.mat)
{return(names(list.mat[[k]]) <- LETTERS[1:k])}, x)

doesn't work.

How can I label the names in x using lapply rather
than a for loop?

Thanks in advance for any help.

Dave



__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com