[R] Fill a matrix with vectors of different lengths

2006-10-16 Thread Serguei Kaniovski 
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.

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

2006-10-16 Thread Dimitris Rizopoulos 
you can try something like the following:

out - lapply(1:length(v), function(i) binc(v[1:i]))
nout - max(sapply(out, length))
sapply(out, function(x) c(x, rep(0, nout - length(x


I hope it helps.

Best,
Dimitris


Dimitris Rizopoulos
Ph.D. Student
Biostatistical Centre
School of Public Health
Catholic University of Leuven

Address: Kapucijnenvoer 35, Leuven, Belgium
Tel: +32/(0)16/336899
Fax: +32/(0)16/337015
Web: http://med.kuleuven.be/biostat/
 http://www.student.kuleuven.be/~m0390867/dimitris.htm


- Original Message - 
From: Serguei Kaniovski [EMAIL PROTECTED]
To: r-help@stat.math.ethz.ch
Sent: Monday, October 16, 2006 10:27 AM
Subject: [R] Fill a matrix with vectors of different lengths


 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.
 


Disclaimer: http://www.kuleuven.be/cwis/email_disclaimer.htm

__
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.

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

2006-10-16 Thread David Barron 
 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.