for (i in 1:length(v)) { bi <- binc(v[1:i]) mat[1:length(bi),i]=mat[1:length(bi),i]+bi }
On 16/10/06, Serguei Kaniovski <[EMAIL PROTECTED]> wrote: > Hello, > > how can I best fill a (fixed) matrix with vectors of varying lengths by > column, setting the superfluous elements to zero? Here is my code: > > v<-(1,1,2,3,4,6) > > binc<-function(x){ > l<-sum(x)+1 > y<-c(1,rep(0,l-1)) > for (i in x) y<-y+c(rep(0,i),y)[1:l] > } > > mat<-matrix(0, nrow=sum(v)+1, ncol=length(v)) > for (i in 1:length(v)) mat[,i]=mat[,i]+binc(v[1:i]) > > the expression in the for-loop produces an error since mat[,i] and > binc(v[1:i]) are of unequal lengths, except on the last iteration. > > Thanks in advance, > Serguei > -- > ___________________________________________________________________ > > Austrian Institute of Economic Research (WIFO) > > Name: Serguei Kaniovski P.O.Box 91 > Tel.: +43-1-7982601-231 Arsenal Objekt 20 > Fax: +43-1-7989386 1103 Vienna, Austria > Mail: [EMAIL PROTECTED] > > http://www.wifo.ac.at/Serguei.Kaniovski > > ______________________________________________ > 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. > -- ================================= David Barron Said Business School University of Oxford Park End Street Oxford OX1 1HP ______________________________________________ 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.