var_x <- "Hello"

cat("The class of var_x is ",class(var_x),"\n")

​

var_x <- 34.5

cat("  Now the class of var_x is ",class(var_x),"\n")

​

var_x <- 27L

cat("   Next the class of var_x becomes ",class(var_x),"\n")

​