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 March 21, 2022, 7:42 a.m.