# Named integers: the names are the members
precious_metal <- c(Platinum = 1L, Gold = 2L,
Silver = 3L)
season <- c(Summer = 0L, Fall = 1L,
Winter = 2L, Spring = 3L)
# A factor: a fixed set of allowed values
planets <- c("Mercury", "Venus", "Earth")
earth <- factor("Earth", levels = planets)
# earth = Earth
gold <- precious_metal["Gold"]
# gold = Gold 2
fall <- season["Fall"]
# fall = Fall 1
cat("gold =", names(gold), gold, "\n")
cat("fall =", names(fall), fall, "\n")
cat("earth =", as.character(earth), "\n")