Редактировать: я должен добавить, что метод print.xtable также делает html (я не должен предполагать, что он известен).Используйте параметр type = "html".
Нет опыта работы с html, но я делаю следующее с LaTeX.
В пакете xtable метод print.xtable имеет параметрadd.to.row, что позволяет вам сделать это.Для add.to.row вы добавляете список списков, где первый список представляет собой список номеров строк, а второй список представляет собой список команд, которые нужно вставить в это место.Из ?print.xtable:
add.to.row - список из двух компонентов.Первый компонент (который должен называться «pos») представляет собой список, содержащий положение строк, в которые должны быть добавлены дополнительные команды в конце. Второй компонент (который должен называться «command») является символьным вектором того же самогодлина первого компонента, который содержит команду, которая должна быть добавлена в конце указанных строк.Значением по умолчанию является NULL, т. Е. Не добавлять команды.
Для LaTeX я использую следующую домашнюю команду, которая добавляет «(1)» над столбцом коэффициентов и t-stat.
my.add.to.row <- function(x) {
first <- "\\hline \\multicolumn{1}{c}{} & "
middle <- paste(paste("\\multicolumn{2}{c}{(", seq(x), ")}", sep = ""), collapse = " & ")
last <- paste("\\\\ \\cline {", 2, "-", 1 + 2 * x, "}", collapse = "")
string <- paste(first, middle, last, collapse = "")
list(pos = list(-1), command = string)
}
HTH.