Try this:

l <- sapply(c(4, 3, 2), q.1)
aggregate(V3 ~ V1 + V2, as.data.frame(do.call(rbind, l)), mean)

On Tue, Dec 14, 2010 at 9:19 PM, Worik R <wor...@gmail.com> wrote:

> I am sure this si a simple problem but the solution is evading me.
>
> I have a list of matrices all with the same number of columns but different
> number of rows.  The first two columns label the row.  The labels are
> allways the same for the same row numbers, just some matricies have more
> rows.
>
> For example using 3 column matrices...
>
> > q.1 <- function(r){return(cbind(seq(0, 10, by=1)[1:r], seq(10, 30,
> by=2)[1:r], runif(r)))}
> > sapply(q, q.1)
> [[1]]
>     [,1] [,2]      [,3]
> [1,]    0   10 0.5399220
> [2,]    1   12 0.1551015
> [3,]    2   14 0.9664470
>
> [[2]]
>     [,1] [,2]       [,3]
> [1,]    0   10 0.09678172
> [2,]    1   12 0.75177116
> [3,]    2   14 0.59927159
> [4,]    3   16 0.18472215
>
> [[3]]
>     [,1] [,2]      [,3]
> [1,]    0   10 0.6343689
> [2,]    1   12 0.8121039
>
> Given such a list I would like to create a matrix:
>
> 0 10 mean(ThisCol for this row)
> 1 12 mean(ThisCol for this row)
> 2 14 mean(ThisCol for this row)
> 3 16 mean(ThisCol for this row)
>
> I can loop using a for loop but I would like to use apply but I have no
> idea
> how to get it to work.  If I could pass arguments by reference to a
> function
> it would be easy but as far as I can tell there is only pass by value.
>
>
>  cheers
> Worik
>
>        [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>



-- 
Henrique Dallazuanna
Curitiba-Paraná-Brasil
25° 25' 40" S 49° 16' 22" O

        [[alternative HTML version deleted]]

______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Reply via email to