tt <- data.frame(matrix(NA, nrow=3, ncol=3, dimnames=list(1:3, paste("column", 1:3, sep="."))),
stringsAsFactors=FALSE)
tt <- setcolclass.df(df=tt, colclass=c("numeric", "factor", "character"),
factor.levels=list(NULL, c("F1", "F2", "F3"), NULL))
Run the code above in your browser using DataLab