Update NewGetData.R