################################################### ### code chunk number 12: jn20 ################################################### m1psts <- testSlopes(m1ps)