## Not run:
# dat = randNormDat(3, 3)
# dat[, 2] = as.character(dat$V2)
# dat1 = correctTypes(dat, types = rep("numeric", 3))
# all(colClasses(dat1) == rep("numeric", 3))
# dat2 = correctTypes(dat, 2, "numeric")
# all(colClasses(dat2) == rep("numeric", 3))
# ## End(Not run)
Run the code above in your browser using DataLab