Learning how to create a data codebook

---

Load Packages

---

{r} load_packages, echo=FALSE} library(haven) library(tidyverse) library(summarytools)

Import Data

{r} dataset <- read_sav("dataset.spss.web")}

Codebook Summary

{r} # Data Cleaning} dataset.spss.web %>% select(coinflip, FFM_26, Potter16) -> newVariable print(dfSummary(newVariable, graph.magnif = .75), method = ‘render’)

---
# Bonus Points
---

{-library() https://www.rdocumentation.org/packages/base/versions/3.6.2/topics/library}
 
 %>% (pipe operator) https://magrittr.tidyverse.org/reference/pipe.html  
 
*read_sav() https://haven.tidyverse.org/reference/read_sav.html  

*select() https://dplyr.tidyverse.org/reference/select.html  

*print() https://www.rdocumentation.org/packages/base/versions/3.6.2/topics/print  

dfSummary() https://cran.r-project.org/web/packages/summarytools/summarytools.pdf