Minor correction.
Now CrossTable() prints only what is set to TRUE.
Previously, to keep the function compatible with gmodels' CrossTable(),
the argument 'expected' was set to TRUE if chisq = TRUE, and chisq test
results were printed whenever they were computed.