Create freq.table.R