আমি প্যাকেজটির জন্য ভিগনেট ব্যবহার করে আর-তে মধ্যস্থতা প্যাকেজটি পেতে চেষ্টা করব।
আমি mediate()ফাংশনটির আউটপুট বুঝতে সংগ্রাম করছি ।
require("mediation")
require("sandwich")
data("framing")
med.fit <- lm(emo ~ treat + age + educ + gender + income, data = framing)
out.fit <- glm(cong_mesg ~ emo + treat + age + educ + gender + income,
data = framing, family = binomial("probit"))
summary(out.fit)
# OR for sending a message to a senator for treated compared to untreated.
exp(as.numeric(coef(out.fit)[3]))
# mediation
med.out <- mediate(med.fit, out.fit, treat = "treat", mediator = "emo",
robustSE = TRUE, sims = 100)
summary(med.out)
...
Estimate 95% CI Lower 95% CI Upper p-value
ACME (control) 0.0802 0.0335 0.1300 0.00
ACME (treated) 0.0808 0.0365 0.1311 0.00
ADE (control) 0.0142 -0.1030 0.1325 0.78
ADE (treated) 0.0147 -0.1137 0.1403 0.78
Total Effect 0.0949 -0.0316 0.2129 0.14
Prop. Mediated (control) 0.7621 -2.0926 4.9490 0.14
Prop. Mediated (treated) 0.7842 -1.9272 4.6916 0.14
ACME (average) 0.0805 0.0350 0.1304 0.00
ADE (average) 0.0145 -0.1087 0.1364 0.78
Prop. Mediated (average) 0.7731 -2.0099 4.8203 0.14
...এর অর্থ কি চিকিত্সা প্রভাবের 8.08% চিকিত্সা করা হয় তাদের মধ্যে সংবেদনশীল অবস্থার মাধ্যমে মধ্যস্থতা হয়? নাকি এটির সহগের পরিবর্তন treat?
যদি কেউ আউটপুট ব্যাখ্যা করতে পারে তবে এটির অনেক প্রশংসা হবে।