Added third R script that produces plot comparing Castle data to US homicide data.