* Entropy and Deviance by GDP
* ---------------------------

version 8.2

	// Data
	// ----

	use plurality_ses_ci, clear

	gen fc = inlist(s_cntry,3,5,7,13,16,17,21,22,23,24)

	replace gdppcap = gdppcap/1000
	drop if iso3166_2 == "LU"
	
	reg entropy_s_ses gdppcap1
	estimates store entropy_simp
	
	reg entropy_s_ses gdppcap1 Npl_ses fc 
	estimates store entropy_mult

	reg deviance_ses gdppcap1
	estimates store deviance_simp
	
	reg deviance_ses gdppcap1 Npl_ses fc 
	estimates store deviance_mult

   lab var entropy_s_ses "Entropie"
	lab var deviance_ses  "Devianz"
   lab var gdppcap1  "BIP"
	lab var Npl_ses  "Beob. für SES"
	lab var fc  "frühere Kommunistische"
	lab var emplrat2 "Beschäftigungsquote" 

	estout entropy_simp entropy_mult deviance_simp deviance_mult ///
	  using anplurality.tex, se(paren) star replace  ///
	  stats(r2 N) stfmt(%9.3f %9.0f)           ///
	  stlabels("\$r^2$" "n")               ///
	  label conslbl(Konstante) style(tex)      ///  
	prehead("\begin{tabular}{lrrrrr}" \hline) ///
	  posthead(\hline) prefoot(\hline)         ///
	  postfoot(\hline "\end{tabular}")         ///
	  varwidth(22) modelwidth(6)

	exit