add TabX function

a modified version of CrossTable from gmodels package