UMPD Data Exercise — Week of September 7, 2026 – September 13, 2026

Generated 2026-09-14. The data URL below is pinned to commit 4bd0a6251, 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): 15
Mean per day: 2.1 Median per day: 1
Daily mean over Fall 2026 to date: 5.2
Same week last year (September 8, 2025 on): 63 incidents — down 76.2%

Questions

If one day last week had seen a big spike — say 30 incidents — how would the mean have changed? How about the median? (You can test this in R by editing one value.) What does that tell you about which average to trust on skewed data?
The comparison above uses the same calendar week last year. Why is that fairer than comparing last week to the week before? Name one rhythm in campus life that would fool a week-over-week comparison.
Find the crime type with the biggest percent change between the last two full months (group by month and Crime Type in R). Would you report it? Apply the small-number test: what are the raw counts behind the percentage?
In R, count last week's incidents by Crime Type and sort descending. What share of the week is the top type? (mutate(share = n / sum(n)).) Does the "most common incident" match what you'd guess from campus-crime coverage?

Starter code (R)

library(tidyverse)
library(lubridate)

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

week_start <- ymd("2026-09-07")

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 15, mean 2.1, median 1. 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.