R Hmisc：：具有sapply和htest类的latex生成许多表格

我无法使用

Hmisc:：latex

和

sapply

函数获取表格<代码>乳胶返回许多表。我想使用

Hmisc:：latex

，因为它更灵活

重现问题的步骤：

library(xtable)
library(Hmisc)
library(nortest)
set.seed(1)
x <- matrix(rnorm(10*100), nrow=100)
norm.x <- sapply(x, sf.test)[1:2,]
latex(norm.x, file="", dec=2)
xtable(norm.x) # In contrast xtable produce pretty output

库（xtable）
图书馆（Hmisc）
图书馆（nortest）
种子（1）
x您可以使用函数
unlist
和
matrix
修改
sapply（x，sf.test）[1:2，]
返回的对象
norm.x

norm.x <- matrix(unlist(norm.x), nrow = 2, dimnames = list(c("w", "p-value")))

norm.x谢谢你的提示。但我转置'norm.x'，因为它包含许多列。使用转置变量“dec=3”时，选项不起作用。
norm.x <- matrix(unlist(norm.x), nrow = 2, dimnames = list(c("w", "p-value")))

library("xtable")
library("Hmisc")
library("nortest")
set.seed(1)
x <- data.frame(replicate(10, rnorm(100)))
norm.x <- sapply(x, sf.test)[1:2,]
norm.x <- matrix(unlist(norm.x), nrow = 2, dimnames = list(c("w", "p-value")))
latex(norm.x, file="", dec=2)
xtable(norm.x)