# NOT RUN {
data(tra)
lm.mod1 <- moderate.lm(beliefs, values, attitudes, tra)
ss.mod1 <- sim.slopes(lm.mod1, tra$values)
## requires user interaction
## graph.mod(ss.mod1,beliefs,attitudes,tra,"Interaction Example")
# }
Run the code above in your browser using DataLab