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

# The values of ordinal-level variables can be compared; there is an order to them.
# The immigpo_level variable in the NES dataset is an example of a ordinal-level variable.
# There are more tools for description than we have for nominal-level variables.

cat("Frequency Distribution Table:\n")
freqC(nes$immigpo_level, nes$wt)

cat("\nMode:\n")
wtd.mode(nes$immigpo_level, nes$wt)

cat("\nMedian:\n")
wtd.median(nes$immigpo_level, nes$wt)