Create 4SummaryStats.R