Hi
with your specific example you can use
remat<-function(mat) {
mt<-t(mat)
mt<-c(mt[1:3], rep(0,6), mt[4:6])
matrix(mt, 2,6, byrow=TRUE)
}
lapply(sample, remat)
Regards
Petr
> -----Original Message-----
> From: [email protected] [mailto:r-help-bounces@r-
> project.org] On Behalf Of Kathryn Lord
> Sent: Wednesday, January 16, 2013 9:00 AM
> To: [email protected]
> Subject: [R] matrix manipulation with its rows
>
> Dear R users,
>
> I have a question about matrix manipulation with its rows.
>
> Plz see the simple example below
>
>
> sample <- list(matrix(1:6, nr=2,nc=3), matrix(7:12, nr=2,nc=3),
> matrix(13:18,nr=2,nc=3))
>
> > sample
> [[1]]
> [,1] [,2] [,3]
> [1,] 1 3 5
> [2,] 2 4 6
>
> [[2]]
> [,1] [,2] [,3]
> [1,] 7 9 11
> [2,] 8 10 12
>
> [[3]]
> [,1] [,2] [,3]
> [1,] 13 15 17
> [2,] 14 16 18
>
> With this list, I'd like to create this below
>
> [[1]]
> [,1] [,2] [,3] [,4] [,5] [,6]
> [1,] 1 3 5 0 0 0
> [2,] 0 0 0 2 4 6
>
> [[2]]
> [,1] [,2] [,3] [,4] [,5] [,6]
> [1,] 7 9 11 0 0 0
> [2,] 0 0 0 8 10 12
>
> [[3]]
> [,1] [,2] [,3] [,4] [,5] [,6]
> [1,] 13 15 17 0 0 0
> [2,] 0 0 0 14 16 18
>
>
>
> Any suggestion will be greatly appreciated.
>
> Regards,
>
> Kathryn Lord
>
> [[alternative HTML version deleted]]
>
> ______________________________________________
> [email protected] 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.
______________________________________________
[email protected] 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.
