# Load libraries
library(readr)
library(tidyverse)
# Load in crime data
crime <-
read_csv("https://myxavier-my.sharepoint.com/:x:/g/personal/johannk_xavier_edu/IQAiBNqM3PJrSoQrcdpUlD9yARPWamDZ--KznXg5_Hnu77I?download=1",
guess_max = 100000)Introduction to Crime Dataset
Introduction to Kaitlyn’s Crime Dataset
This is a massive dataset containing all recorded crimes up until the past few years.
A Visualization
When you click the Render button a document will be generated that includes both content and the output of embedded code. You can embed code like this:
# 3. Create and explain at least 1 new object that summarizes some aspect of
# the data. Explain why this new object is useful.
Avg_Vict_Age <- mean(crime$New_Vict_Ages, na.rm = TRUE)