Create wharton_func.R