Create R Code for additional variables