Update calculateSCEbaseline.R