Update SufficientFunds.R