Update PredictionAssignmentWriteup.R