latex tables for 3+ dimensional tables/arrays

I'm looking for an R method to produce latex versions of tables for  
table/array objects of 3 or more dimensions,
which, of necessity is flattened to a 2D display, for example with  
ftable(), or vcd::structable, as shown below.
I'd be happy to settle for a flexible solution for the 3D case.

UCB <- aperm(UCBAdmissions, c(2, 1, 3))
ftable(UCB)
               Dept   A   B   C   D   E   F
Gender Admit
Male   Admitted      512 353 120 138  53  22
      Rejected      313 207 205 279 138 351
Female Admitted       89  17 202 131  94  24
      Rejected       19   8 391 244 299 317
structable(Dept ~ Admit+Gender, UCBAdmissions)
               Dept   A   B   C   D   E   F
Admit    Gender
Admitted Male        512 353 120 138  53  22
        Female       89  17 202 131  94  24
Rejected Male        313 207 205 279 138 351
        Female       19   8 391 244 299 317
?latex  # yes I know you are aware of this but it seemed as though you  
hadn't read its help page.
# Attached is the output on my device from the following command:
latexVerbatim( ftable(UCB))

# (OK, so I can't speell.)
David.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: verbatiom.pdf
Type: application/pdf
Size: 6791 bytes
Desc: not available
URL: <https://stat.ethz.ch/pipermail/r-help/attachments/20101202/22adfc9e/attachment.pdf>
-------------- next part --------------

>
>
> I tried using the xtable package but discovered that xtable.table is  
> silently
> wrong for tables of length(dim(x))>2.  E.g., for a 2 x 2 x 6 table,  
> we get only UCBAdmissions[,,1]
>
> > xtable(UCBAdmissions)
> % latex table generated in R 2.11.1 by xtable 1.5-6 package
> % Tue Nov 16 13:23:44 2010
> \begin{table}[ht]
> \begin{center}
> \begin{tabular}{rrr}
>  \hline
> & Male & Female \\
>  \hline
> Admitted & 512.00 & 89.00 \\
>  Rejected & 313.00 & 19.00 \\
>   \hline
> \end{tabular}
> \end{center}
> \end{table}
> >
>
> The author of xtable tells me that only 2-way tables are presently  
> implemented, and, while I would normally
> look to Hmisc for all things LaTeX, I don't find anything useful  
> there:
>
> > library(Hmisc)
> > methods("latex")
> [1] latex.bystats                  latex.bystats2
> [3] latex.default                  latex.describe
> [5] latex.describe.single          latex.function
> [7] latex.list                     latex.responseSummary
> [9] latex.summary.formula.cross    latex.summary.formula.response
> [11] latex.summary.formula.reverse
> > latex(UCB)
> Error in x[, j] : incorrect number of dimensions
> > traceback()
> 3: format.df(object, dcolumn = dcolumn, na.blank = na.blank,  
> numeric.dollar = numeric.dollar,
>       cdot = cdot, math.row.names = math.row.names, math.col.names =  
> math.col.names,
>       double.slash = double.slash, ...)
> 2: latex.default(UCB)
> 1: latex(UCB)
>
>
> -- 
> Michael Friendly     Email: friendly AT yorku DOT ca
> Professor, Psychology Dept.
> York University      Voice: 416 736-5115 x66249 Fax: 416 736-5814
> 4700 Keele Street    Web:   http://www.datavis.ca
> Toronto, ONT  M3J 1P3 CANADA
>
> ______________________________________________
> R-help at 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.

David Winsemius, MD
West Hartford, CT

latex tables for 3+ dimensional tables/arrays

Thread (7 messages)