version 9.2

	// Data
	use data/eqls_4, clear
	
	// Recoding
	ren q31 lsat
	tab q32, gen(mar)
	ren hh2b age
	gen men =  hh2a==1

	// Listwise deletion
	mark touse
	markout touse lsat mar* age men
	keep if touse
	
	// 40 pro Land
	by s_cntry, sort: keep if _n <= 40 

	// Regression
	reg lsat mar? hhinc4 age men

	// Form correlation matrix of residual by country
	predict res, resid
	by s_cntry: gen case = _n
	keep s_cntry res case
	reshape wide res, i(s_cntry) j(case)

	corr res?
	
	exit