Create HW2 R script