Hi Nathan,

Do not know a direct way, but the following seems to work:

# data
means <- matrix(1:10,nrow=2)
sds <- matrix(seq(0.1,1,by=0.1),nrow=2)
colnames(means) <- colnames(sds) <- c("a","b","c","d","e")

# adding "( )" to the SDs
sdsn <- t(apply(sds, 1, function(x) paste('(', x, ')', sep = "")))

# formatting
res <- do.call(rbind, lapply(1:nrow(means), function(i) rbind(means[i, ],
sdsn[i, ])))
res

# LaTeX
require(xtable)
xtable(res)

*HTH,*
*Jorge*
*
*

On Sat, Mar 19, 2011 at 12:13 PM, Nathan Torrance <> wrote:

> Is it in bad form to double post to StackOverflow and R-help? Apologies if
> so. Here's my task:
>
> I've got a matrix of means like so
>
> means<-matrix(1:10,nrow=2)
> colnames(means)<-c("a","b","c","d","e")
>
> and a matrix of standard deviations like so
>
> sds<-matrix(seq(0.1,1,by=0.1),nrow=2)
> colnames(sds)<-c("a","b","c","d","e")
>
> and I want to output a Latex (or HTML) table where the standard deviations
> appear in parens just below the corresponding means.
>
> Something like this:
>
>    a    &   b    &  c    &  d    &  e \\
>    1    &   3    &  5    &  7    &  9 \\
>  (0.1)  &  (0.3) & (0.5) & (0.7) & (0.9) \\
>    2    &   4    &  6    &  8    &  10 \\
>  (0.2)  &  (0.4) & (0.6) & (0.8) & (1.0) \\
>
> except in proper Latex (or HTML).
>
> How can I do this from R?
>
> Someone mentioned the "apsrtable" package but that seems to require my
> having a model object.
>
> Thanks in advance folks.
>
>        [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help@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.
>

	[[alternative HTML version deleted]]

