get_breast_cancer_data = function(){ fn = '../../Data/breast_cancer.dat' DF = read.table(fn, header=FALSE, skip=0, col.names=c('Mortality_rate', 'Mean_annual_temperature'), fill=TRUE) DF[is.na(DF)] = 0 DF }