08-lm-continuous.qmd

# Regression with one continuous predictor

```{r setup, include=FALSE}
knitr::opts_chunk$set(warning = FALSE, 
                      message = FALSE, 
                      echo = TRUE)

```

```{r echo=FALSE}
library(patchwork)
library(effectsize)
library(correlation)
library(performance)
library(tidyverse)
```

So far in this book, we have been building your data wrangling and visualisation skills and you now have the basis for a lot of the work you will do in research. Most of the work in data analysis is invested in getting your data into an appropriate form for analysis. Once you get there, the functions for inferential statistics are pretty short, but the challenge now comes to expressing your design as a statistical model and interpreting the output. 

In this chapter, we focus on simple linear regression for testing research questions and hypotheses for the relationship between two continuous predictors. We will also explore the concepts of correlation and checking the statistical assumptions of your regression model. 

**Chapter Intended Learning Outcomes (ILOs)**

By the end of this chapter, you will be able to: 

- Visualise the relationship between two continuous variables using a scatterplot. 

- Apply and interpret a Pearson's and Spearman's correlation. 

- Apply and interpret linear regression with one continuous predictor variable. 

- Check the assumptions of linear regression through diagnostic plots. 

## Chapter preparation

### Introduction to the data set 

For this chapter, we are using open data from @dawtry_why_2015. The abstract of their article is:

> The present studies provide evidence that social-sampling processes lead wealthier people to oppose redistribution policies. In samples of American Internet users, wealthier participants reported higher levels of wealth in their social circles (Studies 1a and 1b). This was associated, in turn, with estimates of higher mean wealth in the wider U.S. population, greater perceived fairness of the economic status quo, and opposition to redistribution policies. Furthermore, results from a large-scale, nationally representative New Zealand survey revealed that low levels of neighborhood-level socioeconomic deprivation?an objective index of wealth within participants' social circles mediated the relation between income and satisfaction with the economic status quo (Study 2). These findings held controlling for relevant variables, including political orientation and perceived self-interest. Social-structural inequalities appear to combine with social-sampling processes to shape the different political attitudes of wealthier and poorer people.

In summary, the authors investigated why people with more money tend to oppose wealth redistribution policies like higher taxes for higher incomes to decrease inequality in society. We are using data from Study 1A where 305 people completed measures on household income, predicted population income, their predicted social circle income, in addition to measures on support for wealth redistribution and fairness and satisfaction with the current system. 

They predicted people with higher incomes have social circles with higher incomes, so they are more satisfied with the current system of wealth redistribution and less interested in changing it. In essence, poorer people and richer people have different experiences of how rich and equal their country is. In this chapter, we will explore the relationship between a range of these variables. 

### Organising your files and project for the chapter

Before we can get started, you need to organise your files and project for the chapter, so your working directory is in order.

1. In your folder for research methods and the book `ResearchMethods1_2/Quant_Fundamentals`, create a new folder called `Chapter_08_regression_continuous`. Within `Chapter_08_regression_continuous`, create two new folders called `data` and `figures`.

2. Create an R Project for `Chapter_08_regression_continuous` as an existing directory for your chapter folder. This should now be your working directory.

3. Create a new R Markdown document and give it a sensible title describing the chapter, such as `08 Correlations and Regression`. Delete everything below line 10 so you have a blank file to work with and save the file in your `Chapter_08_regression_continuous` folder. 

4. We are working with a new data set, so please save the following data file: [Dawtry_2015.csv](data/Dawtry_2015.csv). Right click the link and select "save link as", or clicking the link will save the files to your Downloads. Make sure that you save the file as ".csv". Save or copy the file to your `data/` folder within `Chapter_08_regression_continuous`.

You are now ready to start working on the chapter! 

### Activity 1 - Read and wrangle the data

```{r echo=FALSE}
# Load the tidyverse package below
library(tidyverse)

# Load the data file
# This should be the Dawtry_2015.csv file 
dawtry_data <- read_csv("data/Dawtry_2015.csv")

# Reverse code redist2 and redist4
dawtry_data <- dawtry_data %>%
  mutate(redist2_R = 7 - redist2,
         redist4_R = 7 - redist4)

# calculate mean fairness and satisfaction score  
fairness_satisfaction <- dawtry_data %>% 
  pivot_longer(cols = fairness:satisfaction, 
               names_to = "Items", 
               values_to = "Response") %>% 
  group_by(PS) %>% 
  summarise(fairness_satisfaction = mean(Response)) %>% 
  ungroup()

# calculate mean wealth redistribution score  
redistribution <- dawtry_data %>% 
  pivot_longer(cols = c(redist1, redist2_R, redist3, redist4_R), 
               names_to = "Items", 
               values_to = "Response") %>% 
  group_by(PS) %>% 
  summarise(redistribution = mean(Response)) %>% 
  ungroup()

# join data and select columns for focus
dawtry_clean <- dawtry_data %>% 
  inner_join(fairness_satisfaction, by = "PS") %>% 
  inner_join(redistribution, by = "PS") %>% 
  select(PS, Household_Income:redistribution, -redist2_R, -redist4_R)
```


As the first activity, try and test yourself by completing the following task list to practice your data wrangling skills. Create a final object called `dawtry_clean` to be consistent with the tasks below. If you want to focus on correlations and regression, then you can just type the code in the solution. 

::: {.callout-tip}
#### Try this

To wrangle the data, complete the following tasks: 

1. Load the following packages (three of these are new, so revisit [Chapter 1](#install-tidy) if you need a refresher of installing R packages, but remember not to install packages on the university computers / online server):

    - <pkg>tidyverse</pkg>
    
    - <pkg>effectsize</pkg>
    
    - <pkg>correlation</pkg>
    
    - <pkg>performance</pkg>

2. Read the data file `data/Dawtry_2015.csv` to the object name `dawtry_data`.

3. Reverse code two items: `redist2` and `redist4` to create two new variables `redist2_R` and `redist4_R`. See the codebook below, but they are on a 1-6 scale.

4. Summarise the data to calculate the mean `fairness_satisfaction` score, by taking the mean of two items: `fairness` and `satisfaction`. 

5. Summarise the data to calculate the mean `redistribution` score, by taking the mean of four items: `redist1`, `redist2_R`, `redist3`, and `redist4_R`.

6. Create a new object called `dawtry_clean` by joining `dawtry_data` with your two new variables `fairness_satisfaction` and `redistribution`. 

7. Decrease the number of columns in `dawtry_clean` by selecting `PS`, all the columns between `Household_Income` and `redistribution`, but removing the two reverse coded items `redist2_R` and `redist4_R`. 

Your data should look like this to be ready to analyse:

```{r echo=FALSE}
glimpse(dawtry_clean)
```

:::

::: {.callout-caution collapse="true"}
#### Show me the solution
You should have the following in a code chunk: 

```{r eval=FALSE}
# Load the packages below
library(tidyverse)
library(effectsize)
library(correlation)
library(performance)

# Load the data file
# This should be the Dawtry_2015.csv file 
dawtry_data <- read_csv("data/Dawtry_2015.csv")

# Reverse code redist2 and redist4
dawtry_data <- dawtry_data %>%
  mutate(redist2_R = 7 - redist2,
         redist4_R = 7 - redist4)

# calculate mean fairness and satisfaction score  
fairness_satisfaction <- dawtry_data %>% 
  pivot_longer(cols = fairness:satisfaction, 
               names_to = "Items", 
               values_to = "Response") %>% 
  group_by(PS) %>% 
  summarise(fairness_satisfaction = mean(Response)) %>% 
  ungroup()

# calculate mean wealth redistribution score  
redistribution <- dawtry_data %>% 
  pivot_longer(cols = c(redist1, redist2_R, redist3, redist4_R), 
               names_to = "Items", 
               values_to = "Response") %>% 
  group_by(PS) %>% 
  summarise(redistribution = mean(Response)) %>% 
  ungroup()

# join data and select columns for focus
dawtry_clean <- dawtry_data %>% 
  inner_join(fairness_satisfaction, by = "PS") %>% 
  inner_join(redistribution, by = "PS") %>% 
  select(PS, Household_Income:redistribution, -redist2_R, -redist4_R)
```

:::

### Activity 2 - Explore the data {#08-explore}

::: {.callout-tip}
#### Try this
After the wrangling steps, try and explore `dawtry_clean` to see what variables you are working with. For example, opening the data object as a tab to scroll around, explore with `glimpse()`, or try plotting some of the individual variables using a histogram. 
:::

In `dawtry_clean`, we have the following variables:

| Variable       |       Type                       |           Description          |
|:--------------:|:---------------------------------|:-------------------------------|
| PS | `r typeof(dawtry_clean$PS)`| Participant ID number. |
| Household_Income | `r typeof(dawtry_clean$Household_Income)`| Household income in US Dollars (\$). |
| Political_Preference | `r typeof(dawtry_clean$Political_Preference)`| Political attitudes: 1 = very liberal/very left-wing/strong Democrat to 7 = very conservative/very right-wing/strong Republican. |
| age | `r typeof(dawtry_clean$age)`| Age in years. |
| gender | `r typeof(dawtry_clean$gender)`| 1 = "Male", 2 = "Female. |
| Population_Inequality_Gini_Index | `r typeof(dawtry_clean$Population_Inequality_Gini_Index)`| Measure of income inequality from 0 (perfect equality) to 100 (perfect inequality), here where participants estimated population in equality. |
| Population_Mean_Income | `r typeof(dawtry_clean$Population_Mean_Income)`| Participant estimate of the mean household income in the population (\$). |
| Social_Circle_Inequality_Gini_Index | `r typeof(dawtry_clean$Social_Circle_Inequality_Gini_Index)`| Measure of income inequality from 0 (perfect equality) to 100 (perfect inequality), here where participants estimated inequality in their social circle. |
| Social_Circle_Mean_Income | `r typeof(dawtry_clean$Social_Circle_Mean_Income)`| Participant estimate of the mean household income in their social circle (\$). |
| fairness_satisfaction | `r typeof(dawtry_clean$fairness_satisfaction)`| Perceived fairness and satisfaction about the current system of wealth redistribution: Mean of two items (1 extremely fair – 9 extremely unfair) |
| redistribution | `r typeof(dawtry_clean$redistribution)`| Support for wealth distribution: Mean of four items (1 strongly disagree – 6 strongly agree). |

We will use this data set to demonstrate correlations and regression when you have one continuous predictor. 

## Correlation

Before we cover regression as a more flexible framework for inferential statistics, we think it is useful to start with correlation to get a feel for how we can capture the relationship between two variables. As a reminder from the course materials, correlations are standardised to range from -1 (a perfect negative correlation) to 1 (a perfect positive correlation). A value of 0 would mean there is no correlation between your variables. 

### Activity 3 - Visualise the relationship

To explore the relationship between two variables, it is useful to create a scatterplot early for yourself, then provide a more professional looking version to help communicate your results. For most of the demonstrations in this chapter, we will try and answer the research question: "Is there a relationship between support for wealth redistribution and fairness and satisfaction with the current system?"

::: {.callout-tip}
#### Try this

Using your data visualisation skills from Chapter 7, recreate the scatterplot below using the variables `fairness_satisfaction` and `redistribution` from `dawtry_clean`. 

```{r, echo=FALSE}
dawtry_clean %>% 
  ggplot(aes(x = fairness_satisfaction, y = redistribution)) + 
  geom_point() + 
  geom_smooth(method = "lm") + 
  scale_x_continuous(name = "Perceived Fairness and Satisfaction", 
                     breaks = c(1:9)) + 
  scale_y_continuous(name = "Support for Wealth Redistribution", 
                     breaks = c(1:6))
  
```

Looking at the graph, we can describe the relationship as `r mcq(c("positive", "little to no correlation", answer = "negative"))`.
:::

::: {.callout-caution collapse="true"}
#### Show me the solution
The scatterplot shows a negative correlation between the two variables. You need to be careful interpreting fairness and satisfaction as it is coded a little counterintuitive. Higher values mean great *dissatisfaction*. 

As support for wealth redistribution increases to be more positive, perceived fairness and satisfaction tends to decrease. This makes sense as people who are more dissatisfied with the current system think there should be more wealth redistribution strategies. 

You should have the following in a code chunk: 

```{r eval=FALSE}
dawtry_clean %>% 
  ggplot(aes(x = fairness_satisfaction, y = redistribution)) + 
  geom_point() + 
  geom_smooth(method = "lm") + 
  scale_x_continuous(name = "Perceived Fairness and Satisfaction", 
                     breaks = c(1:9)) + 
  scale_y_continuous(name = "Support for Wealth Redistribution", 
                     breaks = c(1:6))
```
:::

### Activity 4 - Calculate the correlation coefficient

Visualising the relationship between two variables is great for our understanding, but it does not tell us anything about the inferential statistics for what we can learn from our sample in hypothesis testing and measures of effect size.

A correlation is a specific application of the general linear model. We want to capture the covariation between two variables. If you are interested, see the Handy Workbook ([McAleer, 2023](https://psyteachr.github.io/handyworkbook/pearson-correlation.html){target="_blank"}) for the calculations behind different types of correlation and how it represents the covariance of two variables compared to their total variability. They are not the only methods, but the two most common versions of a correlation are:

-  Pearson's product-moment correlation (often shortened to the `r glossary("Pearson", def = "A standardised measure of the linear relationship between two variables that makes stringent assumptions about the population.")` correlation) and symbolised by **r**.

- Spearman's rank correlation coefficient (often shortened to the `r glossary("Spearman", def = "A standardised measure of the relationship between two variables that assumes a monotonic - but not necessarily a linear - relationship and makes less stringent assumptions about the population.")` correlation) and symbolised by $r_s$ or sometimes the Greek letter **rho** $\rho$.

There is a function built into R (`cor.test()`) to calculate the correlation between two variables, but we tend to use the `correlation()` function from the <pkg>correlation</pkg> package as it has more consistent reporting features. The `correlation()` function requires:

- The name of the data set you are using.

- The name of the first variable you want to select for the correlation.

- The name of the second variable you want to select for the correlation.

- The type of correlation you want to run: e.g. `pearson`, `spearman`.

For our `dawtry_clean` data, we would run the following code for a two-tailed Pearson correlation:

```{r eval=FALSE}
correlation(data = dawtry_clean, 
            select = "fairness_satisfaction", 
            select2 = "redistribution",  
            method = "pearson", 
            alternative = "two.sided")
```

```{r echo=FALSE}

correlation(data = dawtry_clean, 
            select = "fairness_satisfaction", 
            select2 = "redistribution",  
            method = "pearson", 
            alternative = "two.sided") %>% 
  # knitr prints the p-value weird
  mutate(p = "< .001")
  
```

Your output will look a little different due to how our book renders tables, but you should get the same information. For the three key concepts of inferential statistics, we get 

- **Hypothesis testing**: *p* < .001, suggesting we can reject the null hypothesis assuming $\alpha$ = .05. 

- **Effect size**: *r* = -.70, suggesting a strong negative correlation. 

- **Confidence interval**: [-0.75, -0.64], showing the precision around the effect size estimate.   

To summarise: a Pearson correlation showed there was a strong, negative, statistically significant relationship between attitudes on wealth redistribution and perceived fairness and satisfaction, *r* (303) = -0.70, *p* < .001, 95% CI = [-0.75, -0.64].

If we had reason to use a Spearman correlation instead, all we need to do is change the `method` argument. 

```{r eval=FALSE}
correlation(data = dawtry_clean, 
            select = "fairness_satisfaction", 
            select2 = "redistribution",  
            method = "spearman", 
            alternative = "two.sided")
```

```{r echo=FALSE}

correlation(data = dawtry_clean, 
            select = "fairness_satisfaction", 
            select2 = "redistribution",  
            method = "spearman", 
            alternative = "two.sided") %>% 
  # knitr prints the p-value weird
  mutate(p = "< .001")
  
```

Similarly, we could report the results as: a Spearman correlation showed there was a strong, negative, statistically significant relationship between attitudes on wealth redistribution and perceived fairness and satisfaction, $r_s$ (303) = -0.68, *p* < .001, 95% CI = [-0.74, -0.61].

::: {.callout-tip}
#### Try this

Great work following along so far, but now it is time to test your understanding on a new set of variables. Use the variables `age` and `redistribution` from `dawtry_clean`. We can ask the question: "What is the relationship between age and attitudes on wealth redistribution?"

1. Create a scatterplot to visualise the relationship between `age` and `redistribution` from `dawtry_clean`. 

2. Apply the Pearson correlation to get your inferential statistics and answer the following questions: 

    - **Hypothesis testing**: Assuming $\alpha$ = .05, the relationship between age and wealth redistribution is `r mcq(c("statistically significant", answer = "not statistically significant"))`.
    
    - **Effect size**: Rounded to 2 decimals, the value for Pearson's correlation coefficient is `r mcq(c("-0.14", answer = "-0.03", "0.08", "-0.49"))`.
    
    - **Confidence interval**: Rounded to 2 decimals, the lower bound is `r mcq(c(answer = "-0.14", "-0.03", "0.08", "-0.49"))` and the upper bound is `r mcq(c("-0.14", "-0.03", answer = "0.08", "-0.49"))`.
:::

::: {.callout-caution collapse="true"}
#### Show me the solution
The scatterplot shows very little correlation between the two variables. The regression line is almost flat and there does not appear to be a clear pattern to the data points. 

```{r}
dawtry_clean %>% 
  ggplot(aes(x = age, y = redistribution)) + 
  geom_point() + 
  geom_smooth(method = "lm") + 
  scale_y_continuous(name = "Attitudes on Wealth Distribution", 
                     breaks = c(1:6))
```

For our inferential statistics, the relationship is not statistically significant and the Pearson correlation coefficient is very weak, *r* (302) = -0.03, *p* = .625, 95% CI = [-0.14, 0.08]. Note there is a missing value for age, so we have one few participant / degrees of freedom. 

```{r}
correlation(data = dawtry_clean, 
            select = "age", 
            select2 = "redistribution",  
            method = "pearson", 
            alternative = "two.sided")
```

:::

## Linear regression with one continuous predictor

Now you know how to calculate a correlation in R, we can turn to simple linear regression as a more flexible tool for modelling the relationship between variables. 

In Research Methods 1, we focus on just two variables, before scaling up to more complicated models in Research Methods 2. In this chapter, we focus the relationship between a continuous `r glossary("outcome", def = "The outcome (also known as the dependent variable) is the variable you are interested in seeing a potential change in.")` and one continuous `r glossary("predictor", def = "The predictor (also known as an independent variable) is the variable you measure or manipulate to see how it is associated with changes in the outcome variable.")`, before extending the framework to one categorical predictor in Chapter 9. There is also a chapter in the Handy Workbook ([McAleer, 2023](https://psyteachr.github.io/handyworkbook/simple-linear-regression.html){target="_blank"}) dedicated to manually calculating simple linear regression.

### Activity 5- Calculating descriptive statistics

For all the information we want to include in a report, calculating descriptive statistics is helpful for the reader to show the context behind the results you present. Here, we can report the mean and standard deviation of our two variables.

```{r}
dawtry_clean %>% 
  # pivot longer to avoid repeating yourself
  pivot_longer(cols = fairness_satisfaction:redistribution,
               names_to = "Variable", 
               values_to = "Value") %>% 
  # group by Variable to get one value per variable
  group_by(Variable) %>% 
  # mean and SD, rounded to 2 decimals
  summarise(mean_variable = round(mean(Value), 2),
            sd_variable = round(sd(Value), 2))
```

::: {.callout-note}
If you want some reinforcement of how these skills apply to published research, look at Table 1 in @dawtry_why_2015. The means and standard deviations here (and the correlation in Activity 4) exactly reproduce the values they report.
:::

If other types of descriptive statistic would be more suitable to your data, then you can just replace the functions you use within `summarise()`. 

### Activity 6 - Using the `lm()` function 

For our research question of "is there a relationship between support for wealth redistribution and fairness and satisfaction", we can address it with simple linear regression. 

Instead of a standardised correlation coefficient, we can frame it as whether knowing fairness and satisfaction can predict values of support for wealth redistribution. The design is still correlational, so it does not tell us anything about a causal relationship in isolation. We use the word predict in the statistical sense, where we can ask whether knowing values of one variable help us predict values of another variable with a degree of error. 

The first step is to create an object (`lm_redistribution`) for the linear model.

```{r}
lm_redistribution <- lm(redistribution ~ fairness_satisfaction,
                        data = dawtry_clean)
```

The function `lm()` is built into R and is incredibly flexible for creating linear regression models. 

- The first argument is to specify a formula which defines our model. The first component (`redistribution`) is our outcome variable for what we are interested in modelling. 

- The tilde (`~`) separates the equation, where everything on the right is your predictor variable(s). In simple linear regression, we just have one predictor, which is `fairness_satisfaction` in our model here. This is saying we want to predict `redistribution` as our outcome from `fairness_satisfaction` as our predictor. 

- We then specify the data frame we want to use.

::: {.callout-note}
In some resources, you might see people enter the same model as `redistribution ~ 1 + fairness_satisfaction`. The `1 +` component explicitly tells R to fit an intercept, plus a slope from `fairness_satisfaction`. R includes an intercept by default, so you do not need to add it, but some people like to include it for clarity.
:::

When you create this object, it stores a bunch of information, but does not really tell us all the statistics we expect. If you simply print the object in the console, it will tell you the intercept and coefficient(s), but none of the model fitting nor hypothesis testing values. If you look at the object in the R environment, you will see it is a `r glossary("list")` containing several elements. It stores things like the model, the residuals, and other information you can use.

```{r}
lm_redistribution
```

To get that extra information, we need to call the `summary()` function around the linear model object to explore it's properties like estimates and model fit.

```{r}
summary(lm_redistribution)
```

To walk through the output, `Call:` summarises the model you specified. `Residuals:` provides a summary of the model residuals which we will come back to later. `Coefficients:` provides our model output, this time with inferential statistics. The two key lines are:

1. `(Intercept)` - This is the value of the outcome when our predictor is set to 0. For a fairness and satisfaction value of 0, we would expect a value of 5.32 for redistribution. You get a *p*-value for this, but in isolation it is not too useful. It just compares the intercept estimate to 0 which typically you are not interested in.

- `fairness_satisfaction` - This is the regression slope or coefficient. This is the change in the outcome for every 1 unit change in the predictor. So, for every 1 unit increase in fairness and satisfaction, we expect support for wealth redistribution to decrease (as we have a negative value) by 0.40 units. This is consistent with the correlation as we have a negative relationship between the two variables. Looking at the *p*-value, this is statistically significant (*p* < .001), suggesting we can reject the null hypothesis and conclude there is an effect here.

::: {.callout-note}
#### Does it matter if the slope is positive or negative? 
When you have a continuous predictor, the sign is important to keep in mind. A positive slope would mean an increase in the predictor is associated with increased values of your outcome. A negative slope would mean an increase in the predictor is associated with decreased values of your outcome. This is crucial for interpreting the coefficient. 
:::

At the bottom of the model output, you then get the fit statistics. Multiple 
$R^2$ tells you how much variance in your outcome your predictor(s) explain. Adjusted $R^2$ tends to be more conservative as it adjusts for the number of predictors in the model (something we will not cover until Chapter 14), but they will be very similar when you have one predictor. Adjusted $R^2$ is .49, suggesting fairness and satisfaction explains 49% of the variance in support for wealth redistribution.

Finally, we have the model fit statistics to tell us whether the model explains a significant amount of variance in the outcome. With one predictor, the *p*-value next to the coefficient and next to the model fit will be identical, as one predictor is the whole model. The F-statistic is 291.7, the model degrees of freedom is 1, the residual degrees of freedom is 303, and the *p*-value is *p* < .001.

::: {.callout-important}
#### What does 2e-16 mean? 
For the *p*-value here, the output looks a little weird. R reports very small or very large numbers using scientific notation to save space. We normally report *p*-values to three decimals, so we report anything smaller as *p* < .001 to say it is smaller than this.

If you want to see the real number, you can use the following function which shows just how small the *p*-value is:

```{r}
format(2e-16, scientific = FALSE)
```
:::

::: {.callout-note collapse="true"}
#### How are correlation and regression the same? 

If you are interested in the relationship between the two concepts, we said correlation was a specific application of the general linear model. It describes the - standardised - covariation between two variables compared to their total variability. For values of -1 and 1, knowing the value of one variable perfectly correlates to the value of your other variable. As you approach 0, the relationship between the variables is less perfect, meaning there is more variability left over compared to the covariance.

In regression, we frame it as how much variance you explain compared to the total amount of variance. The more variance your predictor explains, the less unexplained variance there is left over. We no longer calculate *r*, we calculate $R^2$ as the proportion of variance in your outcome explained by your model. A value of 0 would be you explain no variance and a value of 1 means you explain all the variance.  

You can see the connection between the two by comparing the value of Pearson's *r* from Activity 4 (-.70) to the value of $R^2$ = .4905. If you take the square root to get *r* (`sqrt(.4905)`), you get .70, which is exactly the same absolute value since $R^2$ can only be positive. 

So, when you have a single continuous predictor, it is the exact same process as correlation, just expressed slightly different. 
:::

### Activity 7 - Calculating confidence intervals

In the standard `lm()` and `summary()` output, we get most of the key values we need for our inferential statistics, but the one thing missing is confidence intervals around our estimates. Fortunately, R has a built-in function called `confint()` for calculating confidence intervals using your linear model object. 
```{r}
confint(lm_redistribution)
```

Normally, you focus on the confidence interval around your slope estimate as the intercept is not usually super useful for interpreting your findings when you have a continuous predictor. Now, we can summarise the three key concepts of inferential statistics as:  

- **Hypothesis testing**: *p* < .001, suggesting we can reject the null hypothesis assuming $\alpha$ = .05. Fairness and satisfaction is a significant predictor of support for wealth redistribution. 

- **Effect size**: $b_1$ = -0.40, suggesting fairness and satisfaction is a negative predictor.  

- **Confidence interval**: [-0.44, -0.35], showing the precision around the slope estimate.  

::: {.callout-tip}
#### Try this

Great work following along so far, but now it is time to test your understanding on a new set of variables. This time, use `redistribution` as your outcome, `age` as your predictor, and use `dawtry_clean` as your data. We can ask the same question as before: "What is the relationship between age and attitudes on wealth redistribution?". 

Apply simple linear regression to get your inferential statistics and answer the following questions: 

- **Hypothesis testing**: Assuming $\alpha$ = .05, age is a `r mcq(c("statistically significant", answer = "non-significant"))` predictor of support for wealth redistribution.
    
- **Effect size**: Rounded to 2 decimals, the age coefficient is `r mcq(c("4.01", answer = "-0.003", "0.005", "0.22"))`.
    
- **Confidence interval**: Rounded to 2 decimals, the lower bound of the age coefficient is `r mcq(c("3.59", answer = "-0.01", "4.44", "0.01"))` and the upper bound is `r mcq(c("3.59", "-0.01", "4.44", answer = "0.01"))`. 
:::

::: {.callout-caution collapse="true"}
#### Show me the solution
The conclusions are the same as when we calculated the correlation where age is not a statistically significant predictor of support for wealth redistribution. As a regression model, we get the same conclusions expressed in a slightly different way. Age is negative, but the size of the slope is very small (-0.003) and non-significant (*p* = .625). We explain pretty much no variance in support for wealth redistribution ($R^2$ = .0008), so age is not very informative as a predictor.  

```{r}
# Create lm object for age as a predictor
lm_age <- lm(redistribution ~ age,
             data = dawtry_clean)

# summary of the model object
summary(lm_age)

# confidence intervals around estimates
confint(lm_age)
```

:::

### Activity 8 - Centering and standardising predictors

So far, we have covered specifying your outcome and predictor variables as their raw values in the data. However, there are two variations that are useful to understand: centering and standardising predictors. These do not change the model fitting or *p*-values, but change how you interpret the intercept and/or slope. 

#### Centering predictors

`r glossary("Centered predictors", display = "Centering", def = "Usually, centering a predictor means subtracting the mean from each value, so the mean is 0. You can then interpret the intercept as the value of your outcome for the mean value of your predictor(s).")` predictors is where you change the values of your predictor, but not their scale. Typically, this means substracting the mean of your predictor from each observation. This changes how you interpret the intercept of your regression model. 

Remember the interpretation of the intercept is the predicted value of your outcome when your predictor is set to 0. If 0 is not present in your data or a value of 0 would be uninformative, the intercept can be difficult to interpret. When you center your predictor, 0 becomes the mean value of your predictor. So, the intercept is now the predicted value of your outcome for the mean value of your predictor, but the slope itself does not change. You can see the impact of this by plotting the data side by side in @fig-centering-predictors. 

```{r}
dawtry_clean <- dawtry_clean %>% 
  # subtract fairness values from mean of fairness
  mutate(fairness_center = fairness_satisfaction - mean(fairness_satisfaction))
```

```{r centering-predictors, echo=FALSE}
#| label: fig-centering-predictors
#| fig.cap: "Top: The relationship between wealth redistribution and perceived fairness and satisfaction using raw values. Bottom: The relationship after centering perceived fairness and satisfaction values."
#| fig-alt: "The plot at the top shows the relationship between wealth redistribution and perceived fairness and satisfaction using raw values. The plot at the bottom shows the relationship after centering perceived fairness and satisfaction values, so the values shift to the left."

normal <- dawtry_clean %>% 
  ggplot(aes(x = fairness_satisfaction, y = redistribution)) + 
  geom_point() + 
  geom_smooth(method = "lm") + 
  scale_x_continuous(name = "", 
                     breaks = c(1:9)) + 
  scale_y_continuous(name = "Support for Wealth Redistribution", 
                     breaks = c(1:6)) + 
  labs(title = "Raw predictor values")

centered <- dawtry_clean %>% 
  ggplot(aes(x = fairness_center, y = redistribution)) + 
  geom_point() + 
  geom_smooth(method = "lm") + 
  scale_x_continuous(name = "Perceived Fairness and Satisfaction") + 
  scale_y_continuous(name = "Support for Wealth Redistribution", 
                     breaks = c(1:6)) + 
  labs(title = "Centered predictor values")

normal + centered + plot_layout(ncol = 1, nrow = 2)
```

The relationship between the two variables is exactly the same, but the values of fairness and satisfaction shifted so the mean is 0. If you create a new linear model object, you can see the difference this makes to the output. 

```{r}
lm_center <- lm(redistribution ~ fairness_center, 
                data = dawtry_clean)

summary(lm_center)
```

Every single one of the values remains the same apart from the intercept. Now, we can interpret it as the predicted value of redistribution when fairness and satisfaction is set to 0, i.e., the mean value. So, for the mean value of fairness and satisfaction, we would predict a value of 3.91 for redistribution. 

#### Standardising predictors

`r glossary("Standardised predictors", display = "Standardising", def = "Standardising involves substracting the variable mean from each value and dividing it by the variable standard deviation. It then has the property of a mean of 0 and standard deviation of 1, so you interpret the units as standard deviations.")` predictors is where you first convert your values to z-scores. This means you interpret the values as standard deviations rather than your original units. This is more useful in multiple regression (Chapter 14) to compare the magnitude of predictors, but it is useful to get used to now when you only have one predictor to focus on. 

The first step is to standardise **all** your variables, not just the predictor this time. This involves subtracting the mean of your variable from each value, and dividing by the standard deviation of the variable. They now have a mean of 0 and a standard deviation of 1. 

```{r}
# Be careful with the bracket placement to subtract the mean first
dawtry_clean <- dawtry_clean %>% 
  mutate(redistribution_std = (redistribution - mean(redistribution)) / sd(redistribution),
         fairness_std = (fairness_satisfaction - mean(fairness_satisfaction)) / sd(fairness_satisfaction))
```

Once we enter them into the model, we no longer have values in the original units of measurement, we now have them expressed as standard deviations. 

```{r}
lm_standardised <- lm(redistribution_std ~ fairness_std, 
                      data = dawtry_clean)

summary(lm_standardised)
```

Like centering, the model fit and *p*-values do not change again, apart from the intercept. The relationship between the variables is exactly the same, but we changed their units. The intercept is tiny and close enough to zero that the *p*-value is 1. 

More importantly, the slope is now expressed in standard deviations. Annoyingly, R prints the values in scientific notation, so this can be awkward to read (remember the `format()` function). Now, for every 1 standard deviation increase in our predictor, we predict the outcome to decrease by 0.70 standard deviations. 

::: {.callout-tip}

It is important to demonstrate the underlying concepts first but if you want a shortcut without needing to standardise all your variables, the <pkg>effectsize</pkg> package has a handy function called `standardize_parameters()` which you can apply to your initial `lm()` object.

```{r}
standardize_parameters(lm_redistribution)
```
:::

## Checking assumptions

For the inferential statistics to work as intended, the model makes certain assumptions about the data you are putting into it and the accuracy of the inferences depends on how sensible these assumption are. Remember these functions will always work even if the numbers you enter are nonsense, so it's important for you as the researcher to recognise when it's appropriate to use these techniques and when it is not.

### Activity 9 - Diagnostic plots for linear regression

As a reminder, the assumptions for simple linear regression are:

1. The outcome is interval/ratio level data.

2. The predictor variable is interval/ratio or categorical (with two levels at a time).

3. All values of the outcome variable are independent (i.e., each score should come from a different participant/observation).

4. The predictors have non-zero variance.

5. The relationship between the outcome and predictor is linear.

6. The residuals should be normally distributed.

7. There should be homoscedasticity.

Assumptions 1-4 are pretty straight forward as they relate to your understanding of the design or a simple check on the data for non-zero variance (the responses are not all the exact same value).

Assumptions 5-7 require diagnostic checks on the `r glossary("residuals", def = "The difference between the observed value in the data and the predicted value from the model given its assumptions.")` from the model. The residuals are the difference between your observed values in the data and the values your model predicts given it's assumptions. If you remember back, we highlighted the model output mentioned `Residuals:` and they are saved within the model object.

```{r}
# head shows the first 6 values 
head(lm_redistribution$residuals)
```

::: {.callout-note}
#### What does the $ symbol mean? 
We have not used this symbol in the book yet, but it is a base R operator for extracting information. You use it to access specific components within a data frame or object.

Try the following in the console to see what it does:

- `dawtry_clean$age`

- `lm_redistribution$coefficients`

If you type an object name into the console and add the `$`, you will see all the components appear to auto complete. 
:::

In your reading, you might see individual statistical tests to check these assumptions, but they have more limitations than benefits. The best way to check the assumptions is through diagnostic plots which express the model residuals in different ways. We want to walk through this longer way of checking assumptions to develop a solid understanding before showing you a shortcut to see them all below. 

In the code below, we use a format you will be less familiar with as all these functions come from base R. If you just run the code for the diagnostic plots `plot(lm_redistribution)`, each one gets individually printed to your Plots window. Here, we create a 2x2 panel to show them all together. 

```{r}
# Change the panel layout to 2 x 2
par(mfrow=c(2,2))

# plot the diagnostic plots 
plot(lm_redistribution)
```

For more information on each of these plots, see this great resource by [Kim (2015)](https://library.virginia.edu/data/articles/diagnostic-plots){target="_blank"} via the University of Virginia, but we will break the key ones down below. 

### Checking linearity 

To isolate each plot, we can use the `which` argument. Plot 1 is a residuals vs fitted plot and helps us check linearity by showing the residuals on the y-axis and the fitted (predicted) values on the x-axis. 

```{r}
plot(lm_redistribution, 
     which = 1)
```

Here, you are looking out for a roughly flat horizontal red line. Common patterns to look out for if there is a problem are when the line has an obvious curve to look like a hump or several bends to look like an S. 

The only downside to using diagnostic plots is it takes experience to recognise when there is nothing wrong with a regression model compared to when it violates the assumptions. It is easy to see a little deviation and think there is some drastically wrong. Our advice is if you squint and it looks fine, it is probably fine. You are looking for clear and obvious deviations from what you expect and all the models we use in Chapters 8 and 9 are intentionally fine to develop foundational skills. In Chapter 11, we then introduce you to more problematic cases and what your options are. 

::: {.callout-important}
#### Error mode

If you want to save these plots to add into a report, you might try using `ggsave()` like we have covered in the data visualisation chapters. However, it will not work as these plots have not been created by <pkg>ggplot2</pkg>. 

To save these plots, you can either right click and choose save as to save on your computer. Alternatively, if they open in the Plots window, you can click on Export and save them as an image or PDF to insert into your documents. 
:::

### Checking normality 

Plot 2 is a qq-plot (quantile-quantile plot) and helps us check the normality of the model residuals by showing the standardised residuals on the y-axis and the theoretical quantiles on the x-axis. A common misconception is your variables should all be normally distributed, but it is actually the model residuals which should be normal. 

```{r}
plot(lm_redistribution, 
     which = 2)
```

In this plot, you are looking for the data points to roughly follow the dashed line. The idea is there should be a linear relationship between the residuals and the values we would expect under a normal distribution. 

Like the other diagnostic plots, it is tempting to think there are problems where there are none. The vast majority of the points here follow the line nicely, but tail off a little at the extremes. It flags the points with the largest deviations but there do not appear to be any obvious problems. 

When there are problems with normality, you are looking for obvious deviations, like the points curving around in a banana shape, or snaking around like an S.

### Checking homoscedasticity 

Plot 3 is a scale-location plot and helps us check homoscedasticity by showing the square root of the standardised residuals on the y-axis and the fitted values on the x-axis. Homoscedasticity is where the variance of the residuals is approximately equal across the range of your predictor(s).

```{r}
plot(lm_redistribution, 
     which = 3)
```

In this plot, you are looking out for a roughly random spread of points as you move from one end of the x-axis to the other. The red line should be roughly flat and horizontal. 

When there is *heteroscedasticity*, the characteristic patterns to look out for are a kind of arrow shape where there is a wide spread of points at one end and decreases to a denser range at the other end, or a bow tie where there is a wide spread of points at each end and dense in the middle. 

### Checking influential cases

Finally, there are two main plots to help us identify influential cases. You might have heard of the term outlier before and this is one way of classifying data points that are different enough to the rest of the data in a regression model. It is not strictly an assumption of linear regression, but it can affect the other assumptions. Identifying outliers is a complex decision and we will explore your options in the course materials and Chapter 11 on data screening. 

If you only run `plot(lm_redistribution)` and cycle through the plots, you do not see this version. This plot shows values of Cook's distance for each observation in your data along the x-axis. Cook's distance measures the influence of deleting a given observation, where higher values mean deleting that observation results in a larger change to the model estimates. There are different thresholds in the literature, but estimates range from 1, 0.5, to 4/n. We explore the decision making around this and your options in Chapter 11.  

```{r}
plot(lm_redistribution, 
     which = 4)
```

Finally, we get a residuals vs leverage plot to show influential cases in a slightly different way. Instead of just the Cook's distance value of each observation, it plots the standardised residuals against leverage values.  

```{r}
plot(lm_redistribution, 
     which = 5)
```

Influential points and potential outliers would have high leverage values and the plot will show a threshold of Cook's distance as red dashed lines. In this plot, they are not visible as there is no value with a big enough leverage value, but you would be looking for data points outside this threshold to identify influential values. 

### Checking all the assumptions

Now we have covered the individual diagnostic plots, there is a handy function called `check_model()` from the <pkg>performance</pkg> package. This function reports all the diagnostic checks from `plot()`, but tidies up the presentation and has some useful reminders of what you are looking for. 

```{r}
check_model(lm_redistribution)
```

The key difference is you get a posterior predictive check (essentially comparing values you observe compared to what your model predicts) and the qq-plot for normality of residuals looks a little different. Instead of a kind of angled line, the residuals are expressed as deviations instead, so the points should be close to a flat horizontal line. This version can make smaller deviations look worse, so keep in mind again you are looking for clear deviations in the overall pattern. 

::: {.callout-note}
The <pkg>performance</pkg> version of the diagnostic plots are actually created using <pkg>ggplot2</pkg>, so the function `ggsave()` would work here if you need to save the plot to add into your report. 
:::

::: {.callout-tip}
#### Try this

In activity 7, you should have calculated the relationship between age and support for redistribution for your independent task. Using the model object `lm_age`, work through assumptions for simple linear regression and make a note of whether you think it meets the assumptions, or there might be any problems. Some of the assumptions you consider what you know about the design, while others you need the diagnostic plots. 

1. The outcome is interval/ratio level data.

2. The predictor variable is interval/ratio or categorical (with two levels at a time).

3. All values of the outcome variable are independent (i.e., each score should come from a different participant/observation).

4. The predictors have non-zero variance.

5. The relationship between the outcome and predictor is linear.

6. The residuals should be normally distributed.

7. There should be homoscedasticity.

:::

::: {.callout-caution collapse="true"}
#### Show me the solution

1. The outcome is interval/ratio level data.

**There is a debate here we cover in the course materials, but there is an argument you can treat the average of multiple Likert items as interval, but you need to be careful.**

2. The predictor variable is interval/ratio or categorical (with two levels at a time).

**Our predictor age is nicely ratio.**

3. All values of the outcome variable are independent (i.e., each score should come from a different participant/observation).

**You need to know this from the design / data collection, but it appears to be the case in this study.**

4. The predictors have non-zero variance.

**There are a range of ages in the data.**

5. The relationship between the outcome and predictor is linear.

**Looking at the first plot, the red line is pretty flat and horizontal, so we are happy with this.**

```{r}
plot(lm_age, which = 1)
```

6. The residuals should be normally distributed.

**The qq-plot is fine for the vast majority of the range. We just have a few deviations in the extreme ends of the x-axis, but this is a byproduct of using a scale score as our outcome as responses cannot go beyond 1-6.**

```{r}
plot(lm_age, which = 2)
```

7. There should be homoscedasticity. 

**The red line is pretty flat and it looks like there is a fairly even range of values across the x-axis range.**

```{r}
plot(lm_age, which = 3)
```

All in all, there do not appear to be any issues with the assumptions here.
:::

## Reporting your results

Now we have some results to go with, there are a few recommendations on how to communicate that information. In psychology (and other disciplines), we tend to follow the American Psychological Association (APA) formatting guidelines as they provide a comprehensive standardised style to make sure information is being reported as easily digestible and consistent as possible. You can see [this PDF online](https://apastyle.apa.org/instructional-aids/numbers-statistics-guide.pdf){target="_blank"} for a little cheat sheet for numbers and statistics, but we will outline some key principles to ensure you provide your reader with enough information.

1. Explain to the reader what your linear regression model was. For example, what was your outcome and predictor variable?

2. Report descriptive statistics to help contextualise your findings. For example, the mean/standard deviation for your outcome and continuous predictor.

3. Provide an appropriate data visualisation to help communciate key patterns to the reader. For example, a scatterplot for the relationship between your outcome and predictor.

4. Report all three key inferential statistics concepts for the coefficient: the slope, the confidence interval around your slope, and the *p*-value for hypothesis testing. When you have one predictor in simple linear regression, you typically focus on the slope as your key effect size that helps address your research question and hypothesis. APA style rounds numbers to 2 decimal places when numbers can be bigger than 1, and 3 decimals with no leading zero when it cannot be bigger than 1. When you report the unstandardised slope, you use the symbol $b_1$ but for the standardised slope, you use Beta instead $\beta_1$.

5. Provide an overview of the model fit statistics for whether your model explained a significant amount of variance in your outcome. Remember: the *p*-value for your model will be the same as for the slope in simple linear regression. 

For our main example, we could summarise the findings as: 

"Our research question was: is there a relationship between support for wealth redistribution and fairness and satisfaction with the current system? To test this, we applied simple linear regression using fairness and satisfaction as a predictor and support for wealth redistribution as our outcome. Figure 1 shows a scatterplot of the relationship.

```{r echo=FALSE}
dawtry_clean %>% 
  ggplot(aes(x = fairness_satisfaction, y = redistribution)) + 
  geom_point() + 
  geom_smooth(method = "lm") + 
  scale_x_continuous(name = "Fairness and Satisfaction", 
                     breaks = c(1:9)) + 
  scale_y_continuous(name = "Support for Wealth Redistribution", 
                     breaks = c(1:6)) + 
  theme_classic()
```

Our model explained a statistically significant amount of variance in our outcome (adjusted $R^2$ = .489, F(1, 303) = 291.70, *p* < .001). Fairness and satisfaction was a negative predictor, where for every 1-unit increase we expect support for redistribution to decrease by 0.40 ($b_1 = -0.40$, 95% CI = [-0.44, -0.35], *p* < .001)."

Note: we have not included an APA formatted Figure title here as it is not easy to format in our book, so refer to the course materials for guidance. 

## Test Yourself

To end the chapter, we have some knowledge check questions to test your understanding of the concepts we covered in the chapter. We then have some error mode tasks to see if you can find the solution to some common errors in the concepts we covered in this chapter. 

### Knowledge check

For this chapter's knowledge check section, we have something a little different. Instead of purely conceptual questions about functions, we have another example of linear regression from @dawtry_why_2015. Feel free to create this model yourself, but we will show you some output and ask you questions based on it. 

For this model, we focus on the two variables estimated population inequality index (`Population_Inequality_Gini_Index`) and support for wealth redistribution (`redistribution`). Check back to the code book in [Activity 2](#08-explore) if you need a reminder of what the variables mean.

**Question 1**. In the scatterplot of the relationship below, this shows a negative relationship between the inequality index and support for redistribution: `r torf(FALSE)`. 

```{r echo=FALSE}
dawtry_clean %>% 
  ggplot(aes(x = Population_Inequality_Gini_Index, y = redistribution)) + 
  geom_point() + 
  geom_smooth(method = "lm") + 
  scale_x_continuous(name = "Population Inequality Index", 
                      breaks = seq(10, 60, 10),
                      limits = c(10, 60)) + 
  scale_y_continuous(name = "Attitudes on Wealth Redistribution", 
                      breaks = c(1:6)) + 
  theme_classic()
```

**Question 2** For the next few questions, we have the output from a linear regression model and we would like you to interpret it. 

```{r echo=FALSE}
lm_test <- lm(redistribution ~ Population_Inequality_Gini_Index, data = dawtry_clean)

summary(lm_test)
```

The outcome variable in this model is `r mcq(c(answer = "Attitudes on Wealth Redistribution", "Population Inequality Index"))` and the predictor variable is `r mcq(c("Attitudes on Wealth Redistribution", answer = "Population Inequality Index"))`.

**Question 3** Rounded to 2 decimals, when the predictor is 0, we predict a value of `r fitb(3.10, tol = 0.1)` for our outcome variable. 

**Question 4** The predictor is `r mcq(c(answer = "significant", "non-significant"))` with a *p*-value of `r fitb(.009)`.

**Question 5** The predictor is `r mcq(c(answer = "positive", "negative"))`, where we expect for every 1-unit increase in the predictor a `r fitb(0.02)` -unit `r mcq(c(answer = "increase", "decrease"))` in the outcome.

### Error mode

The following questions are designed to introduce you to making and fixing errors. For this topic, we focus on simple linear regression between two continuous variables. There are not many outright errors that people make here, more misspecifications that are not doing what you think they are doing. 

Create and save a new R Markdown file for these activities. Delete the example code, so your file is blank from line 10. Create a new code chunk to load <pkg>tidyverse</pkg> and wrangle the data files: 

```{r eval=FALSE}
# Load the packages below
library(tidyverse)
library(effectsize)
library(correlation)
library(performance)

# Load the data file
# This should be the Dawtry_2015.csv file 
dawtry_data <- read_csv("data/Dawtry_2015.csv")

# Reverse code redist2 and redist4
dawtry_data <- dawtry_data %>%
  mutate(redist2_R = 7 - redist2,
         redist4_R = 7 - redist4)

# calculate mean fairness and satisfaction score  
fairness_satisfaction <- dawtry_data %>% 
  pivot_longer(cols = fairness:satisfaction, 
               names_to = "Items", 
               values_to = "Response") %>% 
  group_by(PS) %>% 
  summarise(fairness_satisfaction = mean(Response)) %>% 
  ungroup()

# calculate mean wealth redistribution score  
redistribution <- dawtry_data %>% 
  pivot_longer(cols = c(redist1, redist2_R, redist3, redist4_R), 
               names_to = "Items", 
               values_to = "Response") %>% 
  group_by(PS) %>% 
  summarise(redistribution = mean(Response)) %>% 
  ungroup()

# join data and select columns for focus
dawtry_clean <- dawtry_data %>% 
  inner_join(fairness_satisfaction, by = "PS") %>% 
  inner_join(redistribution, by = "PS") %>% 
  select(PS, Household_Income:redistribution, -redist2_R, -redist4_R)
```

Below, we have several variations of a misspecification. Copy and paste them into your R Markdown file below the code chunk to wrangle the data. Once you have copied the activities, click knit and look at the output you receive. See if you can identify the mistake and fix it before checking the answer.

**Question 6**. Copy the following code chunk into your R Markdown file and press knit. We want to create a simple linear regression model to specify `fairness_satisfaction` as our outcome variable and `Political_Preference` as our predictor. Have we expressed that accurately? 

````{verbatim, lang = "markdown"}
```{r}
lm_fairness <- lm(Political_Preference ~ fairness_satisfaction,
                        data = dawtry_clean)

summary(lm_fairness)
```
````

::: {.callout-caution collapse="true"} 
#### Explain the solution

In this example, we mixed up the variables. The formula in `lm()` has the form `outcome ~ predictor`, so we mixed up the order. In simple linear regression, it makes no difference to the slope, but it is important to be able to express your model accurately and it would make a difference once you scale up to multiple linear regression. 

```{r eval = FALSE}
lm_fairness <- lm(fairness_satisfaction ~ Political_Preference,
                        data = dawtry_clean)
                        
summary(lm_fairness)
```
:::

**Question 7**. Copy the following code chunk into your R Markdown file and press knit. We want to standardise the outcome and predictors, so that we get the intercept and slope estimates in standard deviations. Have we expressed that accurately? 

````{verbatim, lang = "markdown"}
```{r}
dawtry_clean <- dawtry_clean %>% 
  mutate(fairness_std = (fairness_satisfaction - mean(fairness_satisfaction)) / sd(fairness_satisfaction))

lm_fairness <- lm(fairness_std ~ Political_Preference,
                        data = dawtry_clean)
                        
summary(lm_fairness)
```
````

::: {.callout-caution collapse="true"} 
#### Explain the solution

In this example, we only standardised the outcome. When we standardise predictors, we must standardise both the outcome and predictor so they are expressed in standard deviations. It is just when we center, we only center the predictor. 

```{r eval = FALSE}
dawtry_clean <- dawtry_clean %>% 
  mutate(fairness_std = (fairness_satisfaction - mean(fairness_satisfaction)) / sd(fairness_satisfaction),
         Political_std = (Political_Preference - mean(Political_Preference, na.rm = TRUE)) / sd(Political_Preference, na.rm = TRUE))

lm_fairness <- lm(fairness_std ~ Political_std,
                        data = dawtry_clean)
                        
summary(lm_fairness)
```
:::

## Words from this Chapter

Below you will find a list of words that were used in this chapter that might be new to you in case it helps to have somewhere to refer back to what they mean. The links in this table take you to the entry for the words in the [PsyTeachR Glossary](https://psyteachr.github.io/glossary/){target="_blank"}. Note that the Glossary is written by numerous members of the team and as such may use slightly different terminology from that shown in the chapter.

```{r gloss, echo=FALSE, results='asis'}
glossary_table()
```

## End of chapter

Great work, that was your first chapter working on inferential statistics! 

We have spent so long developing your data wrangling and visualisation skills that the code for statistical models is pretty short. Hopefully, you now believe us when we said almost all the work goes into wrangling your data into a format you can analyse. Once it comes to inferential statistics, it shifts from wrangling the data being the most difficult to being able to express your research question/design and interpret the outcome being the most difficult. 

In the next chapter, we reinforce most of the content by applying simple linear regression to a categorical predictor. This is when you want to test for differences between two groups on your outcome instead of testing the relationship between two continuous variables.