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.
