################################################### ### code chunk number 5: demo10 ################################################### m1ps <- plotSlopes(m1, plotx="x1", modx="x2", modxVals = "std.dev") plot(testSlopes(m1ps))