R/to.numeric.R

Defines functions to.numeric

Documented in to.numeric

to.numeric <- function(df, id = NULL){
	if(is.null(id)){
		id <- names(df)
		df[id] <- lapply(df[id],
			function(x) as.numeric(as.character(x)))
		} else {
		df[id] <- lapply(df[id],
			function(x) as.numeric(as.character(x)))
		}
	df
}
jasongraf1/JGmisc documentation built on July 8, 2024, 6:50 a.m.