Seperate out exphelper
Factor out rpy
Decrease numRecordSteps