3/4 final copyedits fixed

01_introduction.Rmd

@@ -215,20 +215,22 @@ This will help you develop robust and reproducible data analysis skills.
 
 > You can restart R by clicking on `Session -> Restart R` (top menu).
 
+```{r chap01-fig-settings, echo = FALSE, fig.cap = "Configuring your RStudio Tools -> Global Options:  Untick ``Restore .RData into Workspace on Exit\" and Set ``Save .RData on exit\" to Never.", out.width="100%"}
+knitr::include_graphics("images/chapter01/rstudio_settings.png")
+```
+
 <!-- There's also a Keyboard shortcut for it: `Ctrl+Shift+F10`, but considering how hard it is to use function keys on laptops, that's hardly a shortcut. -->
 
 <!-- > We recommend changing your "Restart R" keyboard shortcut to `Control+R `or `Cmd+R` (`Cmd+Shift+R `if using RStudio Server or Cloud).  -->
 <!-- This can be done in `Tools -> Modify Keyboard Shortcuts`. -->
 
-Furthermore, RStudio has a default setting that is no longer considered best practice.
+Furthermore, RStudio has a default setting that is no longer considered best practice (Figure \@ref(fig:chap01-fig-settings)).
 After installing RStudio, you should go change two small but important things in `Tools -> Global Options`:
 
 1. **Uncheck** "Restore .RData into Workspace on startup"
 2. Set "Save .RData on exit" to **Never**
 
-```{r chap01-fig-settings, echo = FALSE, fig.cap = "Configuring your RStudio Tools -> Global Options:  Untick \`\`Restore .RData into Workspace on Exit\" and Set \'\'Save .RData on exit\" to Never.", out.width="100%"}
-knitr::include_graphics("images/chapter01/rstudio_settings.png")
-```
+
 
 This does not mean you can't or shouldn't save your work in `.RData/.rda` files. 
 But it is best to do it consciously and load exactly what you want to load. 

07_linear_regression.Rmd

@@ -660,7 +660,8 @@ sum_wcgs[[1]] %>%
 t = sum_wcgs[[2]] %>% 
   select(-c(5, 9))
 t$levels = stringr::str_replace_all(t$levels, "\"", "\\`\\`")
-t$levels = stringr::str_replace_all(t$levels, "``,", "\"")  
+t$levels = stringr::str_replace_all(t$levels, "``,", "\"")
+t$levels = stringr::str_replace_all(t$levels, "``$", "\"")
 t %>% 
   mykable(caption = "WCGS data, ff\\_glimpse: categorical.") %>%
   kable_styling(latex_options = c("scale_down")) %>%  

index.Rmd

@@ -93,7 +93,7 @@ University of Edinburgh
 
 ## Contributors {-}
 
-We are indebted to the following people who have generously contributed time and material to this book: Katie Connor, Tom Drake, Cameron Fairfield, Peter Hall, Stephen Knight, Kenneth McLean, Lisa Norman, Katie Shaw, Michael Ramage, Einar Pius, and Olivia Swann.
+We are indebted to the following people who have generously contributed time and material to this book: Katie Connor, Tom Drake, Cameron Fairfield, Peter Hall, Stephen Knight, Kenneth McLean, Lisa Norman, Einar Pius, Michael Ramage, Katie Shaw, and Olivia Swann.
 
 
 # About the Authors {-}