Create exploratoryAnalysis.R

exploratory analysis