An example Quarto document

# Load packages
pacman::p_load(tidyverse)

# Load crime data
crimes <- read_csv("crime_data.csv")

Rows: 2304 Columns: 2
── Column specification ────────────────────────────────────────────────────────
Delimiter: ","
chr (1): month
dbl (1): year

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

# Count number of crimes in February 2021
crime_count <- crimes |> 
  filter(year == 2021, month == "February") |> 
  nrow()

There were 2,304 crimes recorded in February 2021.