get_medical_savings_data = function(){
    fn = '../../Data/Medical_savings.txt'
    DF = read.table(fn, header=FALSE, skip=0, col.names=c('Type_of_Equipment', 'Current_Price', 'New_Price', 'Percent_Savings'), fill=TRUE)
    DF[is.na(DF)] = 0
    DF
}