R code for our chicago crime project