Create practicalMachineLearning_w4.r