get_car_data = function(){
    fn = '../../Data/cars.dat'
    DF = read.table(fn, header=TRUE, skip=19, na.strings='.', fill=TRUE, stringsAsFactors=FALSE)
    rownames(DF) = DF$car_name
    DF$car_name = NULL
    DF
}