Michael,

I think this is what you are looking for.
Rich



library(Hmisc)
tmp <- array(rnorm(60), c(3,4,5),
list(letters[1:3],LETTERS[4:7],letters[8:12]))
## latex(tmp)
ftable(tmp)
dviname <- latex(ftable(tmp))
ft <- ftable(tmp)
dviname <- latex(ft,
                 colheads=attr(ft,"col.vars")[[1]],
                 rowname=attr(ft,"row.vars")[[2]],
                 rgroup=attr(ft,"row.vars")[[1]],
                 n.rgroup=c(4,4,4))

	[[alternative HTML version deleted]]

