Update Crime1.R