str(d <- data.frame("var1" = 1, "var2" = TRUE, "var3" = FALSE,
"var4" = as.factor(1), "var5" = as.factor("a"),"var6" = "b",
stringsAsFactors = FALSE))
str(set.col.type(d))
str(set.col.type(d, list("numeric" = NULL)))
str(set.col.type(d, list("character" = c("var1" , "var2"),
"numeric" = "var3", "logical" = "var4")))
str(set.col.type(d, list("numeric.if.possible" = NULL)))
str(set.col.type(d, list("numeric.if.possible" = NULL),
transform.factors = TRUE))
str(set.col.type(d, list("numeric.if.possible" = NULL), transform.factors = TRUE,
maintain.factor.scores = FALSE))
Run the code above in your browser using DataLab