3

いくつかの変数を持つ回帰の要約表を取得しました。私が使用したコードは

    stock = dyn$lm(y1 ~ x1 +lag(x2, -1) + x2 + x3 +x4)
    print(xtable(stock))

次のような出力が得られました

    % latex table generated in R 3.0.1 by xtable 1.7-1 package
    % Mon Aug 12 21:01:51 2013
    \begin{table}[ht]
    \centering
    \begin{tabular}{rrrrr}
       \hline
     & Estimate & Std. Error & t value & Pr($>$$|$t$|$) \\ 
      \hline
     (Intercept) & 0.0031 & 0.0036 & 0.85 & 0.3951 \\ 
      x1 & 0.4947 & 0.0371 & 13.33 & 0.0000 \\ 
      lag(x2, -1) & 0.3745 & 0.0347 & 10.79 & 0.0000 \\ 
      x2 & -0.1248 & 0.0368 & -3.39 & 0.0007 \\ 
      x3 & 0.7368 & 0.0424 & 17.36 & 0.0000 \\ 
      x4 & -0.0033 & 0.0039 & -0.84 & 0.3983 \\ 
         \hline
       \end{tabular}
       \end{table}

行名（x1、lag（x2、-1）など）を手動でギリシャ語に変更して、研究の回帰に合わせることができます。ただし、多くの異なるデータ グループを使用して回帰を再現する必要があるため、1 つずつ実行するには時間がかかりすぎます。

行名をコードでカスタマイズするために機能する、より自動化された堅牢なソリューションはありますか?

4

1 に答える 1

2

あなたがしたいことは、要約をマトリックスに変換してから、ここのガイドを使用することだと思います: http://www.inside-r.org/packages/cran/xtable/docs/xtable

行と列の名前をプログラムでマトリックスに追加します。

私は今、自分でこれを理解しているところですが、これらの行に沿った何かがうまくいくはずです:

stock = dyn$lm(y1 ~ x1 + lag(x2, -1) + x2 + x3 +x4)
stock_matrix <- matrix(summary(stock)$coef, ncol = 4L)

rownames(stock_matrix) <- c("Intercept", "$x_{1,t}$", "$x_{2,t-1}$", "$x_2$", "$x_3$", "$x_4$")

print(xtable(stock_matrix), sanitize.text.function = identity)

デフォルトでは、 出力が確実にコンパイルされるように、 andprint.xtableなどのすべての LaTeX 認識文字をエスケープします。何もしないでこれをそのままにしておくカスタムテキストサニタイザーを提供することで、これをオーバーライドします。$%

于 2014-07-02T18:51:25.960 に答える