Create NHL.pt1.R

The first R script for Stat545 Homework 6