# The members are the levels of a factor
seasons <- c("Summer", "Fall", "Winter", "Spring")
summer <- factor("Summer", levels = seasons)
# summer = Summer
winter <- factor("Winter", levels = seasons)
# winter = Winter
cat("summer =", as.character(summer), "\n")
cat("winter =", as.character(winter), "\n")