Create PredictionAssignmentWriteup.R