# 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)
