# NOT RUN {
plot(htseg1, levels = c(0, 2))
plot(infantgts, include = 10, levels = "State")
plot(infantgts, include = 10, levels = "State",
col = colours()[100:107], lty = 1:8, color_lab = TRUE)
# }
Run the code above in your browser using DataLab