Create crime.R