Update data.R

My thoughts on what to include.