reghdfejl_estat.ado

// The MIT License (MIT)
//
// Copyright (c) 2014 Sergio Correia
//
// Permission is hereby granted, free of charge, to any person obtaining a copy
// of this software and associated documentation files (the "Software"), to deal
// in the Software without restriction, including without limitation the rights
// to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
// copies of the Software, and to permit persons to whom the Software is
// furnished to do so, subject to the following conditions:
//
// The above copyright notice and this permission notice shall be included in all
// copies or substantial portions of the Software.
//
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
// OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
// SOFTWARE.

* Copied from reghdfe 6.12.3 with almost no change

program reghdfejl_estat, rclass
	version `=cond(c(version)<14, c(version), 13)'
	if !inlist("`e(cmd)'", "reghdfe", "reghdfejl", "ppmlhdfe") {
		error 301
	}
	
	gettoken key 0 : 0, parse(", ")
	local lkey = length(`"`key'"')

	if `"`key'"' == substr("summarize",1,max(2,`lkey')) {

		local 0 `rest'
		syntax [anything] , [*] [noheader] // -noheader- gets silently ignored b/c it will always be -on-

		**if ("`anything'"=="") {
		**	* By default include the instruments
		**	local anything // `e(depvar)' `e(indepvars)' `e(endogvars)' `e(instruments)'
		**}

		* Need to use -noheader- as a workaround to the bug in -estat_summ-
		estat_summ `anything' , `options' noheader

	}
	else if `"`key'"' == "vce" {
		vce `0'
	}
	else if `"`key'"' == "ic" {
		syntax, [*]
		estat_default ic, df(`=e(df_m)+1') `options'
	}
	else {
		di as error `"invalid subcommand `key'"'
		exit 321
	}
	return add // ?
end