Added contextAnalysis.R