---
title: "Moderation with R rockchalk"
output:
  html_document: default
  pdf_document: default
  word_document: default
---

```{r include = FALSE}

# Set as working directory to load data. Set the working directory to the drectory in which the Rdata resides.

load(file="PPT.Rdata")

# Knit to current working directory [Knit Directory, under Knit icon on top of window]

```


```{r}

library(rockchalk)

R.rc<-lm(Y ~ X*Z, data=Moderation)

summary(R.rc)

```

## Plots

```{r}

PS.rc<-plotSlopes(R.rc, plotx="X", modx="Z", modxVals="std.dev")

TS.rc<-testSlopes(PS.rc)

plot(TS.rc)

```


## jtools plot

```{r}

library(jtools)

MOD3<-lm(Y ~ X*Z, data=Moderation)

johnson_neyman(model = MOD3, pred = X, modx = Z)

```