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