powered by
A four-variable dataset with 100 cases, with one influential case.
pa_dat2
A data frame with 100 rows and 5 variables:
Case ID. Character.
Predictor. Numeric.
Mediator. Numeric.
Outcome variable. Numeric.
library(lavaan) data(pa_dat2) mod <- " m1 ~ a1 * iv1 + a2 * iv2 dv ~ b * m1 a1b := a1 * b a2b := a2 * b " fit <- sem(mod, pa_dat2) summary(fit) inf_out <- influence_stat(fit) gcd_plot(inf_out)
Run the code above in your browser using DataLab