## Not run:
# dat = data.frame(x = 15L, y = 3.14, z = "abc",
# u = TRUE, stringsAsFactors = FALSE)
# all(colClasses(dat) ==
# c("integer", "numeric",
# "character", "logical"))
# ## End(Not run)
Run the code above in your browser using DataLab