## simple slope for three way interaction
	
	library(car)
	data(Highway1)
	model3<-lmres(rate~len*trks*sigs1, centered=c("len","trks","sigs1"),data=Highway1)
    S_slopes<-simpleSlope(model3,pred="len",mod1="trks", mod2="sigs1")
## The function is currently defined as
function (object, pred, mod1, mod2, coded, ...) 
UseMethod("simpleSlope")
Run the code above in your browser using DataLab