Create wharton_do.R