Test

#if not installed, run next line
# install.packages("pacman")
pacman::p_load(tidyverse)

Hello, There

This presentation will show you examples of what you can do with Quarto and Reveal.js, including:

Presenting code and LaTeX equations
Including computations in slide output
Image, video, and iframe backgrounds
Fancy transitions and animations
Printing to PDF

…and much more

a code

glimpse(mtcars)

Rows: 32
Columns: 11
$ mpg  <dbl> 21.0, 21.0, 22.8, 21.4, 18.7, 18.1, 14.3, 24.4, 22.8, 19.2, 17.8,…
$ cyl  <dbl> 6, 6, 4, 6, 8, 6, 8, 4, 4, 6, 6, 8, 8, 8, 8, 8, 8, 4, 4, 4, 4, 8,…
$ disp <dbl> 160.0, 160.0, 108.0, 258.0, 360.0, 225.0, 360.0, 146.7, 140.8, 16…
$ hp   <dbl> 110, 110, 93, 110, 175, 105, 245, 62, 95, 123, 123, 180, 180, 180…
$ drat <dbl> 3.90, 3.90, 3.85, 3.08, 3.15, 2.76, 3.21, 3.69, 3.92, 3.92, 3.92,…
$ wt   <dbl> 2.620, 2.875, 2.320, 3.215, 3.440, 3.460, 3.570, 3.190, 3.150, 3.…
$ qsec <dbl> 16.46, 17.02, 18.61, 19.44, 17.02, 20.22, 15.84, 20.00, 22.90, 18…
$ vs   <dbl> 0, 0, 1, 1, 0, 1, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0,…
$ am   <dbl> 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 0,…
$ gear <dbl> 4, 4, 4, 3, 3, 3, 3, 4, 4, 4, 4, 3, 3, 3, 3, 3, 3, 4, 4, 4, 3, 3,…
$ carb <dbl> 4, 4, 1, 1, 2, 1, 4, 2, 2, 4, 4, 3, 3, 3, 4, 4, 4, 1, 2, 1, 1, 2,…

a plot

mtcars %>% 
  ggplot(aes(x = as.factor(cyl), 
             y = mpg)) +
  geom_boxplot()

in the same slide

mtcars %>% 
  ggplot(aes(x = as.factor(cyl), 
             y = mpg)) +
  geom_boxplot()

in the next slide

the graphic should appear in the following slide

mtcars %>% 
  ggplot(aes(x = as.factor(cyl), 
             y = mpg)) +
  geom_boxplot() +
  labs(title = "graph 1")

in the next slide 2

the graphic should appear in the following slide

mtcars %>% 
  ggplot(aes(x = as.factor(cyl), 
             y = mpg)) +
  geom_boxplot() +
  labs(title = "graph 2")

Mixed

in the next slide

the graphic should appear in the following slide

mtcars %>% 
  ggplot(aes(x = as.factor(cyl), 
             y = mpg)) +
  geom_boxplot() +
  labs(title = "graph 3")

in the same slide

mtcars %>% 
  ggplot(aes(x = as.factor(cyl), 
             y = mpg)) +
  geom_boxplot()

in the next slide 4

the graphic should appear in the following slide

mtcars %>% 
  ggplot(aes(x = as.factor(cyl), 
             y = mpg)) +
  geom_boxplot() +
  labs(title = "graph 4")