get_dermatologist_data = function(){ fn = '../../Data/dermatologist.txt' DF = read.table(fn, header=FALSE, skip=0, col.names=c('Medical_procedure', 'Medical_or_Cosmetic', 'Medicare_reimbursement', 'Estimated_time'), fill=TRUE) DF[is.na(DF)] = 0 DF }