index.qmd

# Welcome to ModernDive (v2) {.unnumbered}

```{r setup-init, include=FALSE}
library(knitr)
source("scripts/image_functions.R")
```

```{r set-options, include=FALSE}
if (!"knitr" %in% installed.packages()) {
  install.packages("knitr", repos = "http://cran.rstudio.com")
}
library(knitr)

if (is_html_output()) {
  options(width = 120)
}
options(digits = 7, knitr.kable.NA = "NA")
opts_chunk$set(
  tidy = FALSE,
  fig.align = "center",
  comment = NA,
  fig.retina = 1,
  fig.asp = 2/3
)
```

```{r index-conditional, include=FALSE}
needed_CRAN_pkgs <- c(
  "dygraphs", "fivethirtyeight", "gapminder", "ggplot2movies", "infer",
  "ISLR2",
  "janitor", "knitr", "moderndive",
  "nycflights23", "scales", "tidyverse", "broom",
  "gridExtra",
  "GGally",
  "devtools", "ggrepel", "here", "kableExtra", "mvtnorm", "patchwork",
  "remotes", "rmarkdown", "sessioninfo", "viridis", "webshot"
)
new_pkgs <- needed_CRAN_pkgs[!(needed_CRAN_pkgs %in% installed.packages())]
if (length(new_pkgs)) {
  install.packages(new_pkgs, repos = "http://cran.rstudio.com")
}

needed_pkgs <- needed_CRAN_pkgs

write_bib(
  c(
    .packages(),
    "broom", "dplyr",
    "fivethirtyeight", "forcats", "gapminder",
    "ggplot2", "ggplot2movies", "ggrepel", "gridExtra",
    "infer", "ISLR2", "janitor", "kableExtra", "knitr",
    "lubridate", "moderndive", "mvtnorm", "GGally",
    "nycflights23", "patchwork", "purrr", "readr", "rmarkdown",
    "scales", "sessioninfo", "stringr", "tibble", "tidyr", "tidyverse",
    "viridis", "viridisLite"
  ),
  here::here("bib", "packages.bib")
)
```

```{r images, include=FALSE}
source("scripts/image_functions.R")
```

```{r index-create-dev_version, echo=FALSE, include=FALSE}
dev_version <- FALSE
```

```{r ggplot-theme, include=FALSE}
library(ggplot2)
theme_set(theme_grey())

generate_r_file_link <- function(file) {
  cat(glue::glue("An R script file of all R code used in this chapter is available [here](scripts/{file})."))
}
```

<div class='book-cover'><img src="images/logos/v2_cover.jpg" width="350" alt=""/></div>

This is the [website](https://moderndive.com/v2/) for *Statistical Inference via Data Science: A ModernDive into R and the Tidyverse (Second Edition)*. Visit the [GitHub repository for this site](https://github.com/moderndive/ModernDive_book/tree/v2/).

The First Edition of this book is available at <https://moderndive.com>.

<a rel="license" href="http://creativecommons.org/licenses/by-nc-sa/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by-nc-sa/4.0/88x31.png" /></a><br />This work by [Chester Ismay](https://chester.rbind.io/), [Albert Y. Kim](https://rudeboybert.github.io/), and [Arturo Valdivia](https://avaldivi6.github.io) is licensed under a <a rel="license" href="http://creativecommons.org/licenses/by-nc-sa/4.0/">Creative Commons Attribution-NonCommercial-ShareAlike 4.0 International License</a>.