sts_numeric = new.env()
sts_numeric$convert_to_numeric = function( data, vars ){
data[vars] = lapply(data[vars], as.numeric) print( paste( "as.numeric is applied to", paste( vars, collapse=",") , sep=" ") ) return( data )
}
sts_numeric = new.env()
sts_numeric$convert_to_numeric = function( data, vars ){
data[vars] = lapply(data[vars], as.numeric) print( paste( "as.numeric is applied to", paste( vars, collapse=",") , sep=" ") ) return( data )
}