Re: [R] Fill a matrix with vectors of different lengths

From: David Barron <mothsailor_at_googlemail.com>
Date: Mon 16 Oct 2006 - 08:54:12 GMT

 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 <kaniovsk@wifo.ac.at> 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: Serguei.Kaniovski@wifo.ac.at
>
> 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.
Received on Mon Oct 16 19:10:56 2006

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.1.8, at Mon 16 Oct 2006 - 10:30:10 GMT.

Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-help. Please read the posting guide before posting to the list.