powered by
plotLocalTestResults(x, xlab = "test statistic (95% CI)", xlim = c(min(x[, c(4, 5)]), max(x[, c(4, 5)])), ...)
plot
d <- simulateSEM("dag{X->{U1 M2}->Y U1->M1}",.6,.6) par(mar=c(2,8,1,1)) # so we can see the test names plotLocalTestResults(localTests( "dag{ X -> {M1 M2} -> Y }", d, "cis" ))
Run the code above in your browser using DataLab