* Histogramme des Alters 
* ----------------------

* ATTENTION: This Do-File automatically installs 
* Stata-Ados from the Internet. Comment the section
* "Cool-Ados" if you want to install them by hand!

clear
version 7.0
set more off
set memory 60m


*+--------------------------------+
*| INSTALLATION VON ZUSATZMODULEN |
*+--------------------------------+

* COOL-ADOS: Diese Ados werden im Folgenden automatisch über das 
* Internet geladen und installiert.
* Das setzt natürlich voraus, dass ihr Rechner eine feste Verbindung 
* zum Internet hat. Sollte dies nicht der Fall sein müssen Sie die 
* entsprechenden Ados von Hand installieren. Hinweise hierzu in 
* Kohler/Kreuter (2001)


capture which hist3
if _rc ~= 0 {
	archinst hist3
}

* +----+
* |DATA|
* +----+

capture use traeg if welle <=97, clear
if _rc == 601 {
	di as text "Data not found. Try to recover"
	do crtraeg
	use traeg if welle <=97, clear
}

else if _rc ~= 0 {
	exit _rc
}


* +-------------------------+
* |Auswahl der Beobachtungen|
* +-------------------------+

* Lag-13: Zeitraum: 1984-1999 (13-Jahre)
* ------------------------------------

sort persnr welle
by persnr: gen pil13 = pi[_n-13]	
by persnr: gen egpl13 = egp[_n-13]

* Lag-1 
* -----

sort persnr welle
by persnr: gen pil1 = pi[_n-1]	
by persnr: gen egpl1 = egp[_n-1]

gen valid13 = pi ~= . & pil13 ~= . & egp ~= . & egpl13 ~= .
gen valid1 = pi ~= . & pil1 ~= . & egp ~= . & egpl1 ~= .

* +------+
* |GRAFIK|
* +------+

capture program drop grtraeg
	program define grtraeg
		gph open, saving(traeg2_1, replace)
			local opt `"bor l1(" ") v(20(10)90) gap(4)"'
			local opt `" `opt' xlab(20(10)90) "'
			hist3 age if mark & valid13,  b2(Alter 1997) `opt' /*
			*/ bbox(0,800,23063,16500,900,450,0) ylab(0(.01).04)
			hist3 age if valid1, b2(Alter t) `opt'  /*
			*/ bbox(0,15500,23063,32000,900,450,0) rlab(0(.01).04) /*
			*/ ylab(0) ytick(0(.01).04)
			gph pen 1
			gph font 960 550 
			gph text 12531 600 1 0 Dichte
		gph close
	end

grtraeg

exit