R Programming: add data set