"type.df" <-
structure(list(abbrev = c("Sm", "Md", "Cm", "Lr", "-", "Vn", 
"Sp"), Type = c("Small", "Medium", "Compact", "Large", "", "Van", 
"Sporty")), .Names = c("abbrev", "Type"), class = "data.frame", row.names = c("Small", 
"Medium", "Compact", "Large", "NK", "Van", "Sporty"))