2

のパッケージを使用してReporteRs、R統計検定の結果とプロットを に出力していますWord 2010。

パッケージで を使用lmerして分析を行っており、その結果を Wordlme4に出力したいと考えています。summary(foo.lmer)オブジェクト内のすべてをキャプチャして、lmerModWord に入れたいと考えています。たとえば、summary(foo.lmer)これが私が持っている結果です：

Linear mixed model fit by REML ['lmerMod']
Formula: value ~ Drug * Time + (Time + 1 | ID)
Data: DWeight.Female

REML criterion at convergence: 2296.9

Scaled residuals: 
    Min      1Q  Median      3Q     Max 
-3.3165 -0.6132  0.0343  0.6476  2.3088 

Random effects:
Groups   Name        Variance  Std.Dev. Corr
    ID   (Intercept) 573.98186 23.9579      
         Time          0.07738  0.2782  0.29
Residual              15.61168  3.9512      
Number of obs: 360, groups:  ID, 40

Fixed effects:
                 Estimate Std. Error t value
(Intercept)     270.44441    5.83694   46.33
Drug              1.24479    4.11450    0.30
Time              1.30481    0.07641   17.08
Drug:Time        -0.11055    0.05386   -2.05

Correlation of Fixed Effects:
        (Intr)   Drug  Time  
Drug    -0.758              
Time     0.211 -0.160       
Drug:Tm -0.160  0.211 -0.758

ReporteRs を使用してこの情報を出力できるように、固定幅とハード リターンでこの情報を保存するにはどうすればよいですか? コピーして貼り付けることはできましたが、出力を自動化しようとしており、出力された Word ドキュメントを頻繁に書き直しています。

固定効果の出力は最も重要な部分ですが、すべての出力を Word にコピーすると非常に便利です。

更新と解決 返信でcapture.outputを使用するという提案のおかげで、このコードは私にとってはうまくいきましたが、まだReporteRsを使用しています:

 D1male.Results <- capture.output(summary(D1Male.lmer))
 myBWdoc = docx()
 myBWdoc = addTitle( myBWdoc, "Drug 1 Results", level = 1 )
 myBWdoc = addTitle( myBWdoc, "Repeated Measures Models", level = 2 )
 myBWdoc = addParagraph( myBWdoc, D1male.Results)

回答を回答として掲載したい場合は、それを受け入れて賛成できます。

4

1 に答える 1

3

capture.output() 関数を使用してみてください。このような：

Results <- capture.output(summary(your.lmer.model))

要約情報を新しい変数に格納します。その後、ReporteRs の段落関数などで使用できます。

于 2015-04-27T10:25:24.607 に答える