多くの回帰結果が xtable で Latex へのエクスポートをサポートしていないクラスからのものであることを考えると、回帰結果の独自の要約を作成しようとしています。これまでのところ、次のマトリックスを作成できました。
> coef <- coefficients(summary(tob1))[,1]
> se <- sqrt(diag(vcov(tob1)))
> pvals <- 2*(1-pt(abs(coef)/se, df.residual(tob1)))
> ttob1 <- cbind(coef,se,pvals)
> ttob1
coef se pvals
X1 175.1252128 19.861699207 0.000000e+00
X2 -0.3377459 0.252531805 1.810945e-01
X3 -113.7189271 14.943601767 2.864375e-14
X4 50.8150461 13.863303952 2.475501e-04
X5 -244.2535872 12.739088876 0.000000e+00
X6 -244.4901871 13.447635109 0.000000e+00
X7 -3.5817039 1.675738225 3.257835e-02
今、次の形式のテーブルを作成する関数を作成したいと思います
X1 175.12
(19.86)
X2 -.3377
(.25)
X3 -113.72
(14.94)
どうすればいいですか？