This produces a list whose ith element is matrix Xi :
X4 <- replace(matrix(0, 4, 4), cbind(4, 4), 1)
lapply(1:4, function(i) replace(X4, cbind(i,i), 1))
On 10/4/06, Ya-Hsiu Chuang <[EMAIL PROTECTED]> wrote:
> Hi,
>
> I am trying to create matrices X's based on one indicator variable, r.
>
> Given a 4 x4 matrix X= [ 0,0,0,0
>0,0,0,0
>0,0,0,0
>0,0,0,1]
> r= c(0, 0, 0, 1)
>
> I'd like to create separate matrices where
> when i = 1, X= [1,0,0,0
> 0,0,0,0
> 0,0,0,0
> 0,0,0,1]
>
> when i =2 , X= [0,0,0,0
> 0,1,0,0
> 0,0,0,0
> 0,0,0,1]
>
> when i = 3, X= [0,0,0,0
> 0,0,0,0
> 0,0,1,0
> 0,0,0,1]
>
> when i = 4, X= [0,0,0,0
> 0,0,0,0
> 0,0,0,0
> 0,0,0,1]
>
> Any suggestions would be very appreciated.
>
> Thanks
\
__
R-help@stat.math.ethz.ch 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.
