winetaste <- winequality[, names(winequality)!="quality"]
winetaste$taste <- factor(winequality$quality < 6,
labels = c('good', 'bad')) # levels = c('FALSE', 'TRUE')
str(winetaste)
Run the code above in your browser using DataLab