Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- model.m <- lm(efficacy_C3 ~ TrialArm + Age_CT1a + female +rural + married +Work1_CT1a + GrantIncomeCap + highschool + asset_pca_CT1, data=STS_Data)
- model.y <- lm(econbeh_C3~ TrialArm + efficacy_C3+ econbeh_C1 + Age_CT1a + female +rural + married +Work1_CT1a + GrantIncomeCap + highschool + asset_pca_CT1, data=STS_Data)
- ### Non parametric
- out.1 <- mediate(model.m, model.y, sims = 1000,
- boot = TRUE, treat = "TrialArm", mediator = "efficacy_C3", cluster = "ClusterID_AT1a")
Add Comment
Please, Sign In to add comment