R/make_sps/nibrs_administrative_segment_sps.R

In jacobkap/crime_data: Clean FBI data

source(here::here('R/make_sps/make_sps_utils.R'))
source(here::here('R/make_sps/nibrs_sps_utils.R'))
# Page 42-45

col_positions <- c("1-2",
                   "3-4",
                   "5-13",
                   "14-25",
                   "26-33",
                   "34",
                   "35-36",
                   "37-38",
                   "39-41",
                   "42-43",
                   "44-45",
                   "46-49",
                   "50",
                   "51-58")

col_labels <- c("segment_level",
                "state",
                "ori",
                "incident_number",
                "incident_date",
                "report_date_indicator",
                "incident_date_hour",
                "total_offense_segments",
                "total_victim_segments",
                "total_offender_segments",
                "total_arrestee_segments",
                "city_submissions",
                "cleared_exceptionally",
                "exceptional_clearance_date")

nibrs_administrative_segment_value_labels <-
  c(state_value_labels,
    "report_date_indicator = ",
    "R = report date",
    " = incident date",
    "incident_date_hour = ",
    "00 = on or between midnight and 00:59",
    "01 = on or between 01:00 and 01:59",
    "02 = on or between 02:00 and 02:59",
    "03 = on or between 03:00 and 03:59",
    "04 = on or between 04:00 and 04:59",
    "05 = on or between 05:00 and 05:59",
    "06 = on or between 06:00 and 06:59",
    "07 = on or between 07:00 and 07:59",
    "08 = on or between 08:00 and 08:59",
    "09 = on or between 09:00 and 09:59",
    "10 = on or between 10:00 and 10:59",
    "11 = on or between 11:00 and 11:59",
    "12 = on or between 12:00 and 12:59",
    "13 = on or between 13:00 and 13:59",
    "14 = on or between 14:00 and 14:59",
    "15 = on or between 15:00 and 15:59",
    "16 = on or between 16:00 and 16:59",
    "17 = on or between 17:00 and 17:59",
    "18 = on or between 18:00 and 18:59",
    "19 = on or between 19:00 and 19:59",
    "20 = on or between 20:00 and 20:59",
    "21 = on or between 21:00 and 21:59",
    "22 = on or between 22:00 and 22:59",
    "23 = on or between 23:00 and 23:59",
    "cleared_exceptionally = ",
    "A = death of offender",
    "B = prosecution declined (for other than lack of probable cause)",
    "C = extradition denied",
    "D = victim refused to cooperate",
    "E = juvenile/no custody",
    "N = not applicable")

setwd(here::here("setup_files"))
make_sps_setup(file_name     = "nibrs_administrative_segment",
               col_positions = col_positions,
               col_labels    = col_labels,
               value_labels  = nibrs_administrative_segment_value_labels)