Supporting code from a 90min talk in Nov 2013 to Dublin R user group about customer clustering for retailer marketing