Adding R wine classification code