simpler code for descriptive.table.R in Deducer