Adding the courseSummary.R function.