Update crime03.R