Homework 5, Isley Jean-Pierre, today’s date is 2025-09-29 {r} ## Cleaning data endpoint <- “https://data.cityofnewyork.us/resource/833y-fsy8.json” resp <- httr::GET(endpoint, query = list(“\(limit" = 30000, "\)order” = “occur_date DESC”)) shooting_data <- jsonlite::fromJSON(httr::content(resp, as = “text”), flatten = TRUE) view(shooting_data) {r} ## Cleaning Data view(shooting_data) summary(shooting_data) nrow(shooting_data) colnames(shooting_data) {r} ## Removing NAs sum(is.na(shooting_data\(boro)) # Count NAs before shooting_data <- shooting_data %>% filter(!is.na(geocoded_column.type)) view(shooting_data) {r} ## Making values lowercase shooting_data\)perp_race <- tolower(shooting_data\(perp_race) {r} ## Creating time_of_day column (Morning, Afteroon, Evening) shooting_data\)time_of_day <- shooting_data %>% mutate( time_of_day = case_when( is.na(hour) ~ NA_character_, hour >= 5 & hour < 12 ~ “Morning”, hour >= 12 & hour < 18 ~ “Afternoon”, TRUE ~ “Night” ))