Data Science r code