Error in code section 12.2

In my tidied data, the intercept and slope are:
```{r}
intercept <- as.numeric(tidied[1,4])
slope <- as.numeric(tidied[2,4])
```

NOT 

```{r}
intercept <- as.numeric(tidied[1,5])
slope <- as.numeric(tidied[2,5])
```

(I think that's the error on the intercept/slope)