Skip to content
Prev 60043 / 398502 Next

Seeking help with a simple loop construction

Does this do what you want?

foo.df <- data.frame(x = rnorm(12), y = runif(12), z = factor(rep(1:3,4)))
bar.mat <- matrix(NA,  nrow = ncol(foo.df)-1, ncol = nlevels(foo.df$z))
for(i in 1:(ncol(foo.df)-1))
{
    bar.mat[i,] <- xtabs(foo.df[,i] ~ foo.df$z)
}
bar.mat

There's probably a slicker way with apply...

HTH, Andy
http://www.R-project.org/posting-guide.html