[R] Loop elimination question

[Peter Dalgaard BSA]

Prof Brian Ripley <ripley at stats.ox.ac.uk> writes:

> rep(rep(c(3,4), length(dim)), as.vector(t(cbind(1, dim))))

Or (using slightly dirtier tricks):

N <- length(dim)
rep(rep(3:4,N),rbind(1,dim))

And of course, the generic (although likely less efficient) approach
would be

unlist(sapply(dim,function(x)c(3,rep(4,x))))
-- 
   O__  ---- Peter Dalgaard             Blegdamsvej 3  
  c/ /'_ --- Dept. of Biostatistics     2200 Cph. N   
 (*) \(*) -- University of Copenhagen   Denmark      Ph: (+45) 35327918
~~~~~~~~~~ - (p.dalgaard at biostat.ku.dk)             FAX: (+45) 35327907
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-help-request at stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._