Try this:
lapply(names(col.prop), function(idx)rbind(col.prop[[idx]], n[[idx]]))
On Thu, Apr 23, 2009 at 7:33 AM, David Hajage <dhajag...@gmail.com> wrote:
> I have two lists (and possibly more):
>
> col.prop <-
> structure(list(B = structure(c(0.5, 0.5, 0.6, 0.4, 0.555555555555556,
> 0.444444444444444), class = c("cast_matrix", "matrix"), .Dim = 2:3,
> .Dimnames = list(
> NULL, NULL)), D = structure(c(1, 0, 0.666666666666667,
> 0.333333333333333,
> 0.8, 0.2), class = c("cast_matrix", "matrix"), .Dim = 2:3, .Dimnames =
> list(
> NULL, NULL))), .Names = c("B", "D"))
> n <-
> structure(list(B = c(4, 5, 9), D = c(4, 6, 10)), .Names = c("B",
> "D"))
>
> > col.prop
> $B
> [,1] [,2] [,3]
> [1,] 0.5 0.6 0.5555556
> [2,] 0.5 0.4 0.4444444
>
> $D
> [,1] [,2] [,3]
> [1,] 1 0.6666667 0.8
> [2,] 0 0.3333333 0.2
>
> > n
> $B
> [1] 4 5 9
>
> $D
> [1] 4 6 10
>
> I would like to "rbind" each element with the corresponding element of each
> list ($B with $B and $D with $D):
>
> > res
> $B
> [,1] [,2] [,3]
> [1,] 0.5 0.6 0.5555556
> [2,] 0.5 0.4 0.4444444
> [3,] 4 5 9
>
> $D
> [,1] [,2] [,3]
> [1,] 1 0.6666667 0.8
> [2,] 0 0.3333333 0.2
> [3,] 4 6 10
>
> I've made an ugly loop to do this... Is there an easier way?
>
> Thank you very much.
>
> David
>
> [[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.
