Create wineclustering.R