Update cover

09-hypothesis-testing.Rmd

@@ -1071,22 +1071,22 @@ bootstrap_distribution <- spotify_metal_deephouse |>
 ```
 
 ```{r echo=FALSE, purl=FALSE}
-#if (!file.exists("rds/bootstrap_distribution_spotify.rds")) {
-set.seed(16)
-bootstrap_distribution <- spotify_metal_deephouse |> 
-  specify(formula = popular_or_not ~ track_genre, success = "popular") |> 
-  # Change 1 - Remove hypothesize():
-  # hypothesize(null = "independence") |> 
-  # Change 2 - Switch type from "permute" to "bootstrap":
-  generate(reps = 1000, type = "bootstrap") |> 
-  calculate(stat = "diff in props", order = c("metal", "deep-house"))
-write_rds(
-  bootstrap_distribution,
-  "rds/bootstrap_distribution_spotify.rds"
-)
-# } else {
-#   bootstrap_distribution <- read_rds("rds/bootstrap_distribution_spotify.rds")
-# }
+if (!file.exists("rds/bootstrap_distribution_spotify.rds")) {
+  set.seed(16)
+  bootstrap_distribution <- spotify_metal_deephouse |> 
+    specify(formula = popular_or_not ~ track_genre, success = "popular") |> 
+    # Change 1 - Remove hypothesize():
+    # hypothesize(null = "independence") |> 
+    # Change 2 - Switch type from "permute" to "bootstrap":
+    generate(reps = 1000, type = "bootstrap") |> 
+    calculate(stat = "diff in props", order = c("metal", "deep-house"))
+  write_rds(
+    bootstrap_distribution,
+    "rds/bootstrap_distribution_spotify.rds"
+  )
+} else {
+  bootstrap_distribution <- read_rds("rds/bootstrap_distribution_spotify.rds")
+}
 ```
 
 Using this `bootstrap_distribution`, let's first compute the percentile-based confidence intervals, as we did in Section \@ref(bootstrap-process):

_includes/analytics.html

@@ -10,7 +10,7 @@
 <!-- Open Graph Meta Tags -->
 <meta property="og:title" content="ModernDive V2" />
 <meta property="og:description" content="An open-source and fully-reproducible electronic textbook for teaching statistical inference using tidyverse data science tools." />
-<meta property="og:image" content="https://moderndive.com/v2/images/logos/v2/v2_cover_2024-10.png" />
+<meta property="og:image" content="https://moderndive.com/v2/images/logos/v2_cover.png" />
 <meta property="og:url" content="https://moderndive.com/v2/" />
 <meta name="twitter:card" content="summary_large_image" />
 

index.Rmd

@@ -28,7 +28,7 @@ always_allow_html: yes
 twitter-handle: ModernDive
 graphics: yes
 description: "An open-source and fully-reproducible electronic textbook for teaching statistical inference using tidyverse data science tools."
-cover-image: "images/logos/v2/v2_cover_2024-10.png"
+cover-image: "images/logos/v2_cover.png"
 # url: 'https\://moderndive.com/v2/'
 apple-touch-icon: "images/logos/favicons/apple-touch-icon.png"
 favicon: "images/logos/favicons/favicon.ico"
@@ -259,7 +259,7 @@ source("R/image_functions.R")
 dev_version <- FALSE
 ```
 
-<div class='book-cover'><img src="images/logos/v2/v2_cover_2024-10.png" width="350" alt=""/></div>
+<div class='book-cover'><img src="images/logos/v2_cover.png" width="350" alt=""/></div>
 
 ```{block, include=is_html_output(), purl=FALSE}
 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/). It will be published as a print copy by CRC Press soon! You can find a summary of the updates in this version [here](https://moderndive.com/v2/preface.html#about-the-book).