UMPD Data Exercise — Week of June 29, 2026 – July 5, 2026

Generated 2026-07-12. The data URL below is pinned to commit cb064d6f8, a snapshot of the dataset as of this exercise — so your numbers should match these exactly.

This week's numbers

• Incidents last week (Mon–Sun): 13
• Mean per day: 1.9    Median per day: 2
• Daily mean over Summer 2026 to date: 2.2
• Same week last year (June 30, 2025 on): 21 incidents — down 38.1%

Questions

1. The mean and median daily counts above are different. Which days of last week pulled the mean away from the median? Run the starter code, look at the daily counts, and explain in two sentences which number you would put in a story.
2. Using the percent change above: is this a real shift or ordinary week-to-week noise? The Learn page's spike detector uses mean ± 2 standard deviations of weekly counts as its "normal" band — compute that band in R (sd() on the weekly totals) and say whether last week falls outside it.
3. A press release claims "campus crime fell 30% since 2020." Using what you know about 2020 (check the yearly chart on the Trends page), explain why that baseline is misleading — and what baseline you would use instead.
4. In R, compute the mean and median incidents per day for each of the last four complete weeks (hint: floor_date(day, "week", week_start = 1) then group_by(week)). Is last week unusual among them?

Starter code (R)

library(tidyverse)
library(lubridate)

activity <- read_csv("https://raw.githubusercontent.com/dwillis/umpd-logs/cb064d6f84f231d3958a736664c90c89de288259/data/all-police-activity.csv")

week_start <- ymd("2026-06-29")

daily <- activity |>
  mutate(day = as_date(`Date Occurred`)) |>
  filter(day >= week_start, day < week_start + days(7)) |>
  count(day, name = "incidents") |>
  complete(day = seq(week_start, week_start + days(6), by = "day"),
           fill = list(incidents = 0))

daily |>
  summarize(total = sum(incidents),
            mean_per_day = round(mean(incidents), 1),
            median_per_day = median(incidents))

Check your work

Your summarize() output should match "This week's numbers" above: total 13, mean 1.9, median 2. All values here use round(x, 1), which rounds halves to the nearest even digit — the same rule as R's round().

Stuck on the concepts? The site's Learn pages walk through every technique used here, with this same dataset.