Create Two-way tables.R