Data.R update