strata creation for xtabs made consistent with by()