x <- 1L
print(c(class(x), mode(x), storage.mode(x), typeof(x)))
x <- 1
print(c(class(x), mode(x), storage.mode(x), typeof(x)))
x <- letters
print(c(class(x), mode(x), storage.mode(x), typeof(x)))
x <- TRUE
print(c(class(x), mode(x), storage.mode(x), typeof(x)))
x <- cars
print(c(class(x), mode(x), storage.mode(x), typeof(x)))
x <- cars[1]
print(c(class(x), mode(x), storage.mode(x), typeof(x)))
x <- cars[[1]]
print(c(class(x), mode(x), storage.mode(x), typeof(x)))
x <- matrix(cars)
print(c(class(x), mode(x), storage.mode(x), typeof(x)))
x <- new.env()
print(c(class(x), mode(x), storage.mode(x), typeof(x)))
x <- expression(1 + 1)
print(c(class(x), mode(x), storage.mode(x), typeof(x)))
x <- quote(y <- 1 + 1)
print(c(class(x), mode(x), storage.mode(x), typeof(x)))
x <- ls
print(c(class(x), mode(x), storage.mode(x), typeof(x)))