r - sapply および htest クラスを使用した Hmisc::latex は多くのテーブルを生成します

Question

Hmisc::latex関数でテーブルを取得できませんsapply。latex多くのテーブルを返します。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

編集：

解決策 (Sven Hohenstein に感謝):

library(Hmisc)
library(nortest)
set.seed(1)
x <- matrix(rnorm(10*100), nrow=100)
norm.x <- sapply(x, function(z) unlist(sf.test(z)[c("statistic", "p.value")]))
latex(norm.x, file="", dec=2)

Answer 1

関数およびを使用して、norm.xによって返されるオブジェクトを変更できます。sapply(x, sf.test)[1:2,]unlistmatrix

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)