pretty much same code as Ben's GettingData.R