(R) Code and presentation for 1st place Accenture-City of Chicago Analytics Competition