library(tidyverse)
library(stringr)
court2qe$DIV_PAP_RESULT<-str_c(court2qe$"diverted_case",court2qe$"papered_case")
freq(court2qe$DIV_PAP_RESULT)
library(tidyverse)
library(stringr)
court2qe$DIV_PAP_RESULT<-str_c(court2qe$"diverted_case",court2qe$"papered_case")
freq(court2qe$DIV_PAP_RESULT)