set.seed(123)
x1 <- runif(10)
x2 <- as.character(sample(c(1:20), 10, replace = TRUE))
x3 <- sample(letters, size = 10, replace = TRUE)
df <- data.frame(x1, x2, x3)
head(df, 3)
sapply(df, class)
class(df$x2)
df <- as_num(df)
head(df,3)
sapply(df, class)
class(df$x2)
Run the code above in your browser using DataLab