made small changes to R Code - trying to get Chicago sensitivities