Update NewGetData.R

Update code for 2003&2004