R包mediation分析中介效应时置信区间上限小数位数问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

R包mediation分析中介效应时置信区间上限只保留两位小数，请问怎么才能达到和上限一样的小数位数，有没有解决办法？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：mediation ATION Media 中介效应 置信区间 R包mediation分析中介效应时置信区间上限小数位数问题

包里的原函数调出来，改函数中的小数位设定

R语言mediation包分析中介效应时，输出的置信区间上限仅保留两位小数，因为该函数将其有效数字位数设定为3。可以执行以下代码来进行临时性修改：

1. trace(mediation:::print.summary.mediate,
   
2.       at = 11,
   
3.       tracer = quote({
   
4.         printCoefmat <- function(x, digits) {
   
5.           p <- x[, 4] #p-values seem to be stored rounded
   
6.           x[, 1:3] <- sprintf("%.6f", x[, 1:3])
   
7.           x[, 4] <- sprintf("%.2f", p)
   
8.           print(x, quote = FALSE, right = TRUE)
   
9.         }
   
10.       }),
    
11.       print = FALSE)

复制代码

【说明】“%.6f”中的数字“6”代表保留6位小数，可以根据需要修改。
【参考资料】stackoverflow答案

非常感谢769610570提供的方法！
不过我自己使用的时候发现只运行本代码再运行mediation小数位数并没有改变（也可能是我的问题）。
溯源答主提到的stackoverflow，我发现需要再补一句话，用这样的顺序去做：
1 运行mediation
2 运行答主上文中给出的代码
3 再运行：

1. mediation:::print.summary.mediate(summary(contcont))

复制代码

就可以看到想要的结果了

也许能帮到一小部分人~

Aurora萌儿 发表于 2023-3-15 20:32
非常感谢769610570提供的方法！
不过我自己使用的时候发现只运行本代码再运行mediation小数位数并没有改变 ...

我还是不行哎
运行769610570的代码会出现这个提示：
Tracing function "print.summary.mediate" in package
"mediation (not-exported)"
运行你给的代码出现另一个提示：
Error in h(simpleError(msg, call)) :
  在为'summary'函数选择方法时评估'object'参数出了错: object 'contcont' not found

天天向上xp 发表于 2023-3-29 23:39
我还是不行哎
运行769610570的代码会出现这个提示：
Tracing function "print.summary.mediate" in pac ...

contcont是楼上自行设置的函数名称，需要改成你自己的

天天向上xp 发表于 2023-3-29 23:39
我还是不行哎
运行769610570的代码会出现这个提示：
Tracing function "print.summary.mediate" in pac ...

请问解决了吗？我运行也是显示Tracing function "print.summary.mediate" in package "mediation (not-exported)"