HW 3

title: “HW 3” output: html_document —

library(readxl)

district <- read_excel("SAPD Data Set current YA.xlsx")

head(district)

## # A tibble: 6 × 8
##     Report_ID Report_Date         Offense Severity CENTRAL Report_Month Zip_Code
##         <dbl> <dttm>              <chr>   <chr>    <chr>   <chr>           <dbl>
## 1 39328004496 2023-01-01 00:00:00 Assaul… Class A… CENTRAL January         78201
## 2 39329425918 2023-01-01 00:00:00 Crimin… Class B… CENTRAL January         78201
## 3 39329822778 2023-01-01 00:00:00 Burgla… Class A… CENTRAL January         78201
## 4 39330003757 2023-01-01 00:00:00 Wanted… Misdeme… CENTRAL January         78201
## 5 39332065043 2023-01-01 00:00:00 Unlawf… Class A… CENTRAL January         78201
## 6 39332065043 2023-01-01 00:00:00 Poss M… Class B… CENTRAL January         78201
## # ℹ 1 more variable: DateTime <dttm>