# Descriptive Statistics for Nominal-Level Variable
#############################################################
library("poliscidata")
#############################################################

# Nominal-level variables categorize observations into different groups.
# The zodiac variable in the GSS is an example of a nominal-level variable.
# Because it is a low level of measurement, the tools for description are limited.

cat("Frequency Distribution Table:\n")
freqC(gss$zodiac, gss$wtss)

cat("\n\nMode:\n")
wtd.mode(gss$zodiac, gss$wtss)