Update predictionExercise.R