lm.1 <- lm(mpg ~ hp * wt, data = mtcars)
pI <- probeInteraction(lm.1, hp, wt, JN=TRUE, n.interval.moderator = 3,
quantile.moderator = c(0.1,0.9), values.moderator = 2)
print(pI)
Run the code above in your browser using DataLab