Initial Data Import R Code