calculating ratios from all combinations

I have no idea what's going on in the code you provided, particularly
why there are no ratios given your subject line or why you are looping
over an unused variable, but how about this:

n <- colnames(d)
n <- n[-length(n)] # Throwout unwanted columns
n <- expand.grid(n,n)

res <- apply(n, 1, function(x) d[,x[1]]/d[,x[2]])
colnames(res) <- apply(n,1,paste,collapse="/")

Michael Weylandt

On Mon, Oct 17, 2011 at 1:39 PM, 1Rnwb <sbpurohit at gmail.com> wrote:

so here is the code I need help to fix the line for 'st' when it reaches
maximum, that's where i am getting stuck.

thanks
Sharad
set.seed(100)
?d=data.frame(x=rnorm(20)+5,
?x1=rnorm(20)+5,
?x2=rnorm(20)+5,
?x3=rnorm(20)+5,
?x4=rnorm(20)+5,
?x5=rnorm(20)+5,
?x6=rnorm(20)+5,
?x7=rnorm(20)+5,
?x8=rnorm(20)+5)
?r2=c()
?cinit=0
?for (col in 1:9)
?{
?cinit=cinit+1
?st=cinit+1
?end=dim(d)[2]
?r=d[,cinit]-d[,st:end]
?r2=cbind(r2,r)
?}

--
View this message in context: http://r.789695.n4.nabble.com/calculating-ratios-from-all-combinations-tp3912560p3912767.html
Sent from the R help mailing list archive at Nabble.com.