Create NHL.pt2.R

This is the second R script for Stat545 Homework 6