add data and r code