Adding revised wine_1.R script to share with Dennis

This is good because it forces me to learn Git.
Merge https://github.com/jones4me/wineproject