使用 ReporteRs 将 lmer 摘要信息输出到 word
output lmer summary information to word using ReporteRs
我正在使用 R
中的包 ReporteRs
将统计测试和绘图的结果输出到 Word 2010
。
我正在使用 lme4
包中的 lmer
做一些分析,我想将 summary(foo.lmer)
的结果输出到 Word。我希望捕获 lmerMod
对象中的所有内容并将其放入 Word 中。例如,这是我的 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
如何使用固定宽度和硬 returns 存储此信息,以便我可以使用 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)
如果你想把你的回复作为答案,我可以接受并点赞。
尝试使用capture.output()函数。像这样:
Results <- capture.output(summary(your.lmer.model))
它将摘要信息存储在新变量中。之后,您可以在例如记者段落功能。
我正在使用 R
中的包 ReporteRs
将统计测试和绘图的结果输出到 Word 2010
。
我正在使用 lme4
包中的 lmer
做一些分析,我想将 summary(foo.lmer)
的结果输出到 Word。我希望捕获 lmerMod
对象中的所有内容并将其放入 Word 中。例如,这是我的 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
如何使用固定宽度和硬 returns 存储此信息,以便我可以使用 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)
如果你想把你的回复作为答案,我可以接受并点赞。
尝试使用capture.output()函数。像这样:
Results <- capture.output(summary(your.lmer.model))
它将摘要信息存储在新变量中。之后,您可以在例如记者段落功能。