Sortie xtable pour une liste de tables

Question

J'ai une liste de tables et je veux le marquer pour la sortie LaTeX. Voici le code:

Data <- esoph[ , 1:3]
library(plyr)
combos <- combn(ncol(Data),2)

TabelFn <- function(x) {
  Table <- addmargins(table(Data[, x[1]], Data[, x[2]]))
  return(Table)
  }

Table <- alply(.data=combos, .margins=2, .fun=TabelFn, .expand=TRUE)
library(xtable)

La liste Table A trois tables de contingence dans ce cas et je peux marquer la sortie en latex en utilisant ce code:

<< label = tabTable, echo = FALSE, results = tex >>=
print(xtable(Table[1]$'1', caption = "Contingency table for agegp and alcgp", label = "tab:Table[1]",
             digits = c(0, rep(0, ncol(Table[1]$'1'))),
             align = paste(paste("l|", paste(rep("r", ncol(Table[1]$'1')-1), collapse =     ''), sep = ""), "l", sep = "")),
      table.placement = "tbp", caption.placement = "top",
      hline.after = c(-1, 0, nrow(Table[1]$'1')))
@

Pour envoyer la sortie de trois tables de contingence, je dois écrire trois de ces commandes. Dans ce cas, c'est possible. Mais pour mes données réelles, j'ai de nombreuses tables d'urgence. J'aimerais savoir comment envoyer toutes les tables de contingence plus efficacement. Un choix est d'imprimer la liste Table sans pour autant xtable. Mais j'aimerais avoir la table d'urgence au format de sortie agréable. Merci pour votre temps et votre aide.