get_alcohol_data = function(){
    fn = '../../Data/alcohol.txt'
    DF = read.table(fn, header=FALSE, skip=0, col.names=c('region', 'alcohol', 'tobacco'), fill=TRUE)
    DF[is.na(DF)] = 0
    DF
}