[R] getting names of dimnames of xtabs into xtable latex output

[Juliet Hannah]

In R, the output of xtabs displays the names of the dimnames.  In the
example below, these are "change_diet" and "mydiet". Is there a way to
have xtable incorporate these names directly into the latex output.
Thanks for your help.

table2 <- structure(c(26, 0, 40, 0, 10, 0, 188, 0, 281, 0), .Dim = c(5L,
2L), .Dimnames = structure(list(change_diet = c("Don't know",
"Somewhat likely", "Somewhat unlikely", "Very likely", "Very unlikely"
), mydiet = c("0", "1")), .Names = c("change_diet", "mydiet"
)), class = c("xtabs", "table"))
table2


library(xtable)
xtable(table2)



> sessionInfo()
R version 2.13.1 (2011-07-08)
Platform: i386-pc-mingw32/i386 (32-bit)

locale:
[1] LC_COLLATE=English_United States.1252  LC_CTYPE=English_United
States.1252    LC_MONETARY=English_United States.1252 LC_NUMERIC=C
[5] LC_TIME=English_United States.1252

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base

other attached packages:
[1] xtable_1.5-6