Update 1-clean.R