Added test of CreditAdj to testbed.R