Adding initial hockey_start.R script provided by Professor