Update calculateCurtailment-FB.R