R/factor2number.r

In jae0/emaf.base: Base tools to bootstrap and interoperate with 'em*' and associated projects.

  factor2number = function(x, vars=NULL) {
	if(is.null(vars)) {
	x = as.numeric(levels( x ))[as.integer( x )]
	return(x)
	}
    for (i in vars) {
			if ( is.factor( x[,i]	) ) {
				x[,i] = as.numeric(levels( x[,i] ))[as.integer( x[,i] )]
			} else if ( is.character( x[,i] ) ) {
				x[,i] = as.numeric(as.character(x[,i]))
			}
		}
		return(x)
  }