Update data.R