アメリアの結果、texregまたはstargazerで

Question

サマリーの結果をtexまたはhtmlにtexregまたはstargazerでエクスポートする方法を知りたいと思います。 しかし、どちらのタイプのパッケージでもエラーが表示されます。

library(Amelia) 
library(Zelig) 
library(texreg) 
library(stargazer) 

mi <-amelia(x = d,m = 5) 
summary(mi) 
lmi <- zelig(y ~ x1+x2, 
data = m, model = "logit") 
summary(lmi) 
mi2 <-amelia(x = d,m = 5) 
summary(mi2) 
lmi2 <- zelig(y ~ x1+x2, 
data = m2, model = "logit") 
summary(lmi2) 

stargazer(lmi,lmi2, title="hogehoge", omit.stat=c("f","ser"), align=T, no.space=T) 

>Error in envRefInferField(x, what, getClass(class(x)), selfEnv) : 
>‘result’ is not a valid field or method name for reference class “Zelig-logit” 

models <- list(lmi,lmi2) 
texreg(l=models,file="texreg.tex", caption="texreg", 
    digits=3, booktabs=T, dcolumn=T, center=T, use.packages=F, caption.above=T, custom.model.names=c("model1", "model2")) 

>Error in (function (classes, fdef, mtable) : 
>unable to find an inherited method for function ‘extract’ for signature ‘"Zelig-logit"’ 

Rによる多重代入の結果をどのように表示できますか？

P.S.

> summary(lmi) 
Model: Combined Imputations 
        Estimate Std.Error z value Pr(>|z|)  
(Intercept)   -4.15186 0.41048 -10.1147 0.000e+00 *** 
x1     9.76225 0.18356 12.4336 0.000e+00 *** 
x2     1.76719 0.18031 10.9489 0.000e+00 *** 
--- 
Signif. codes: '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1 

For results from individual imputed datasets, use summary(x, subset = i:j) 
Next step: Use 'setx' method 

lmi2は、lmiと似ています。

Answer 1

現在、すべてのモデルオブジェクトがどちらのパッケージでもサポートされているわけではありません。使用しているモデルの場合がそうです。あなたがモデルオブジェクトをサポートしていない場合、私は解決策を認識していません。しかし、texregは拡張性があります。モデルオブジェクトから必要なものを抽出する簡単な関数を書くことができます。そして、通常のtexregコマンドはその抽出関数で動作します。これはtexregのthis articleで明確に説明されています。

また、texregの著者は、私がhereに質問した質問に答えて抽出関数を書く方法の例を書いて、texregを拡張する方法のさらに包括的なレビューを書いたhere。私はあなたのモデルオブジェクトで動作する抽出関数を記述し、texregを使用することをお勧めします。