Extended TotalLossEstimate.R