get_university_endowment_data = function(){
    fn = '../../Data/university_endowments.txt'
    DF = read.table(fn, header=FALSE, skip=0, col.names=c('University', 'Endowment', 'Percent_Change', 'Per_Student'), fill=TRUE)

    DF$Number_Students = 1000 * ( DF$Endowment / DF$Per_Student ) ## See Exercise 5.7.1

    DF
}