Create calculateSCEbaseline.R