Create .reClass.R

Internal function