Create cleaning.r

functions for cleaning/processing