Week1 Exploratory data Analysis for Plot1.R