Expansion code added to Thomas's Ch4Tables.R file