Refactor compare_f_estimators.r