Create wharton_clean.R