Hi, Here is my implementation. Hope this helps.
> b [1] 1 2 3 4 5 > c [1] 1 2 1 3 5 4 > sapply(b,function(x)ifelse(x==c,1,0)) [,1] [,2] [,3] [,4] [,5] [1,] 1 0 0 0 0 [2,] 0 1 0 0 0 [3,] 1 0 0 0 0 [4,] 0 0 1 0 0 [5,] 0 0 0 0 1 [6,] 0 0 0 1 0 -- View this message in context: http://r.789695.n4.nabble.com/quetion-about-matrix-compute-tp4702505p4702532.html Sent from the R help mailing list archive at Nabble.com. ______________________________________________ R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see 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.