R help - Dec 2007 - alternatives to latex() or xtable() ?

Hello everyone,

I have several problems with exporting to LaTeX the output of
numSummary() from the abind package.
> numSummary(finance[,"Cash_flow"], statistics=c("mean",
"sd", "quantiles"))
     mean       sd      0%   25%   50%      75%    100%  n NA
 188070.9 414771.9 -426804 26743 53866 150975.5 1871500 54  4
> xtable(numSummary(finance[,"Cash_flow"],
statistics=c("mean", "sd", "quantiles")))
Error in UseMethod("xtable") : no applicable method for
"xtable"
> latex(numSummary(finance[,"Cash_flow"],
statistics=c("mean", "sd", "quantiles")))
The latter gives me much more verbose error messages (please see the
attached log). Checking the temporary files, I found the tex code
generated by latex() and tried it in LyX, but the document fails to
compile.

Could anyone please suggest either (1) alternative commands to latex()
or xtable() or (2) a way to tweak the latter commands so that these
work with numSummary()?

Thanks in advance,
Liviu

On 12/5/07, Romain Francois <rfrancois at mango-solutions.com>
wrote:
>
>
>
> Hello,
>
>  My guess is that you are actually talking about the numSummary function in
> Rcmdr, not in abind. In that case, you can look how the structure of the
> output is like:
>
>  > str( numSummary( iris[,1:4] ) )
>  List of 4
>   $ type      : num 3
>   $ table     : num [1:4, 1:7] 5.843 3.057 3.758 1.199 0.828 ...
>    ..- attr(*, "dimnames")=List of 2
>    .. ..$ : chr [1:4] "Sepal.Length" "Sepal.Width"
"Petal.Length"
> "Petal.Width"
>    .. ..$ : chr [1:7] "mean" "sd" "0%"
"25%" ...
>   $ statistics: chr [1:3] "mean" "sd"
"quantiles"
>   $ n         : Named num [1:4] 150 150 150 150
>    ..- attr(*, "names")= chr [1:4] "Sepal.Length"
"Sepal.Width"
> "Petal.Length" "Petal.Width"
>   - attr(*, "class")= chr "numSummary"
>
>  and then use the table element from it:
>
>  > xtable( numSummary( iris[,1:4] )$table )
>  % latex table generated in R 2.6.0 by xtable 1.5-2 package
>  % Wed Dec 05 12:16:44 2007
>  \begin{table}[ht]
>  \begin{center}
>  \begin{tabular}{rrrrrrrr}
>    \hline
>   & mean & sd & 0\% & 25\% & 50\% & 75\% &
100\% \\
>    \hline
>  Sepal.Length & 5.84 & 0.83 & 4.30 & 5.10 & 5.80 &
6.40 & 7.90 \\
>    Sepal.Width & 3.06 & 0.44 & 2.00 & 2.80 & 3.00 &
3.30 & 4.40 \\
>    Petal.Length & 3.76 & 1.77 & 1.00 & 1.60 & 4.35
& 5.10 & 6.90 \\
>    Petal.Width & 1.20 & 0.76 & 0.10 & 0.30 & 1.30 &
1.80 & 2.50 \\
>     \hline
>  \end{tabular}
>  \end{center}
>  \end{table}
>
>  Otherwise, you can define your own xtable.numSummary function that would
> wrap this up. (This one does not do everything as it does not take into
> account the groups argument of numSummary, so you might want to do
something
> else if you have used it, ...)
>
>  > xtable.numSummary <- function( x, ...){
>  +  out <- cbind( x$table, n = x$n )
>  +  xtable( out, ... )
>  + }
>  >  xtable( numSummary( iris[,1:4] ) )
>  % latex table generated in R 2.6.0 by xtable 1.5-2 package
>  % Wed Dec 05 12:20:13 2007
>  \begin{table}[ht]
>  \begin{center}
>  \begin{tabular}{rrrrrrrrr}
>    \hline
>   & mean & sd & 0\% & 25\% & 50\% & 75\% &
100\% & n \\
>    \hline
>  Sepal.Length & 5.84 & 0.83 & 4.30 & 5.10 & 5.80 &
6.40 & 7.90 & 150.00 \\
>    Sepal.Width & 3.06 & 0.44 & 2.00 & 2.80 & 3.00 &
3.30 & 4.40 & 150.00 \\
>    Petal.Length & 3.76 & 1.77 & 1.00 & 1.60 & 4.35
& 5.10 & 6.90 & 150.00 \\
>    Petal.Width & 1.20 & 0.76 & 0.10 & 0.30 & 1.30 &
1.80 & 2.50 & 150.00 \\
>     \hline
>  \end{tabular}
>  \end{center}
>  \end{table}
>
>  Hope this helps,
>  Romain
It helped. Thanks.
Liviu