Hello,
I'm being lazy, but the following works.
r = 3 ; set.seed(1)
v <- matrix(c(rnorm(40)),10,4)
result <- vector("list", r*ncol(v))
ires <- 0
for (j in 1:4){
for (i in 1:r){
x <- t(v[,j]^(i)*v[,1:4]^((r-(4-1)):r))
#print(x)
ires <- ires + 1
result[[ ires ]] <- x
}
}
result <- do.call(rbind, result)
dim(result)
Lazy because there might be a way of avoiding the loops. If this is just
an example, is your real problem big?
Hope this helps,
Rui Barradas
Em 22-08-2012 14:23, bilelsan escreveu:
Dear Ruser,
Below, the deal (you can copy paste):
r=3 ; set.seed(1)
v <- matrix(c(rnorm(40)),10,4)
for (j in 1:4){
for (i in 1:r){
x <- t(v[,j]^(i)*v[,1:4]^((r-(4-1)):r))
print(x)
}
}
How to reach to " x " " row bind " inside or outside (preferred) of the
loop.
To obtain at the end something like:
x
matrix( , 12*4, 10)
Any help or advice is very welcome
Many regards
Bilel
--
View this message in context:
http://r.789695.n4.nabble.com/rbind-in-a-loop-with-elements-tp4640976.html
Sent from the R help mailing list archive at Nabble.com.
______________________________________________
R-help@r-project.org 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.
______________________________________________
R-help@r-project.org 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.
