index.Rmd

---
title: "Principles of Psychological Assessment: With Applied Examples in R"
subtitle: "version 1.0.7"
author: "Isaac T. Petersen"
date: "`r Sys.Date()`"
site: bookdown::bookdown_site
documentclass: book
bibliography: [book.bib, packages.bib]
csl: apa.csl
link-citations: yes
description: "This is a textbook on *Principles of Psychological Assessment*. The goal of this book is to provide computational examples to apply principles of psychological assessment into practice."
url: 'https\://isaactpetersen.github.io/Principles-Psychological-Assessment/'
github-repo: isaactpetersen/Principles-Psychological-Assessment
cover-image: "Images/cover.png"
---

<!-- To add a comment, select the text you want to be a comment and press CTRL-SHIFT-C -->

<!---
Or for comment blocks,
do this.
-->

<!---
To do:
-margin/side notes
-code folding
-->

<!---
To include LaTeX code, see here:
https://bookdown.org/yihui/rmarkdown-cookbook/raw-latex.html
-->

<!---
To run chunk depending on whether it is HTML (including epub) or LaTeX/PDF, see here:
https://bookdown.org/yihui/rmarkdown-cookbook/latex-html.html

eval = knitr::is_html_output()
eval = knitr::is_latex_output()
-->

<!---
Display HTML in LaTeX/PDF:
https://bookdown.org/yihui/rmarkdown-cookbook/html-widgets.html
-->

<!---
Line breaks (https://stackoverflow.com/questions/33191744/how-to-add-new-line-in-markdown-presentation):
<br/>
&nbsp;
\
two spaces at end of line
-->

<!---
Tables:

library("rmarkdown")
paged_table(data)

library("DT")
DT::datatable(data, options = list(scrollX = TRUE))

library("kable")
kable(data)
-->

<!---
Adding packages:
1. Add to relevant `.Rmd` file: library("packageName")
2. Add to `DESCRIPTION` file
3. Add to `packagesForBibliography` (below)
-->

```{r setup, include = FALSE}
knitr::opts_chunk$set(
  message = FALSE, #don't show messages
  warning = FALSE, #don't show warnings
  error = TRUE, #do not interrupt generation in case of errors
  echo = TRUE, #show R code
  time_it = TRUE, #time code chunks
  fig.align = "center",
  dpi = 300,
  comment = "", #for accessibility: https://bookdown.org/yihui/rmarkdown-cookbook/html-accessibility.html
  dev = "png",
  dev.args = list(type = "cairo-png")) #plot anti-aliasing using cairo-png
```

# Book Cover {-}

![book cover](Images/cover.png)

```{r include = FALSE}
# Working title:
# "Principles of Psychological Assessment: With Applied Examples in R"

# Time the code chunks
all_times <- list() # store the time for each chunk
knitr::knit_hooks$set(time_it = local({
  now <- NULL
  function(before, options) {
    if (before) {
      now <<- Sys.time()
    } else {
      res <- difftime(Sys.time(), now)
      all_times[[options$label]] <<- res
    }
  }
}))

# Automatically create a bib database for R packages
packagesForBibliography <- c(
  "bookdown", "knitr", "rmarkdown", "tidyverse", "readr", "here", "psych", 
  "MBESS", "rms", "lavaan", "semPlot", "semTools", "semPlot", "simsem", 
  "dagitty", "dmacs", "mirt", "mirtCAT", "blandr", "gtheory", "rockchalk", 
  "pROC", "ROCR", "ResourceSelection", "PredictABEL", "snow", "mice", "grid", 
  "gridExtra", "corrplot", "nFactors", "tinytex", "kableExtra", "DT", "tufte", 
  "servr", "MOTE", "Cairo", "irrCAC", "lme4", "simstandard", "MASS", "caret", 
  "randomForest", "elasticnet", "LiblineaR", "glmnet", "car", "latticeExtra",
  "strucchange", "nonnest2", "ggrepel", "performance"
)

knitr::write_bib(c(
  .packages(), packagesForBibliography
), 'packages_new.bib')
```