Exercise 4-4

x <- structure(c(13, 2, 6), names = c("spam", "sausage","celery"))
typeof(x)
## [1] "double"