*==============================================================================
* FILE: 3F-Robustness analysis
* Researcher: Julian B. Adam
* Version: July 2018
*
* Project: Works Councils reform act
*
* Data used: Establishment panel 98-04
*
* Description: This program performs various robustness checks
*
*==============================================================================

clear
set more off
set linesize 120
cap log close
log using "$log\3F-Robustness.log", replace
use "$data\panel_1_F.dta", clear



* II. Donut-hole estimator 150-195 and 205-250 #################################

gen donut1=0
replace donut1=1 if gesamt<196
replace donut1=1 if gesamt>206

*spec. (1)
xtreg kuend_an ib3.treat_group##i.post ib2001.jahr lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & donut1==1, fe vce(cluster idnum)

*spec. (2)
xtreg kuend_an ib3.treat_group##i.post ib2001.jahr lgeschvol lva_pc rpc_pay_1000 ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & donut1==1,fe vce(cluster idnum)

*spec. (3) manually
xtreg kuend_an treat4 post ib2001.jahr treatpost treatposttarif lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & donut1==1, fe vce(cluster idnum)
test (treatpost treatposttarif)

*spec. (4) manually
xtreg kuend_an treat4 post ib2001.jahr treatpost treatposttarif lgeschvol lva_pc rpc_pay_1000 ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & donut1==1, fe vce(cluster idnum)
test (treatpost treatposttarif)

*spec. (5)
xtreg kuend_an ib3.treat_group##ib2001.jahr lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & donut1==1,fe vce(cluster idnum)

*spec. (6)
xtreg kuend_an ib3.treat_group##ib2001.jahr lgeschvol lva_pc rpc_pay_1000 ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & donut1==1,fe vce(cluster idnum)

*spec. (7) manually
xtreg kuend_an treat4 j98 j99 j00 j02 j03 j04 j98treat j99treat j00treat j02treat j03treat ///
j04treat j98treattarif j99treattarif j00treattarif j02treattarif j03treattarif j04treattarif lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & donut1==1, fe vce(cluster idnum)
test (j00treat j00treattarif)
test (j02treat j02treattarif)
test (j03treat j03treattarif)
test (j04treat j04treattarif)

*spec. (8) manually
xtreg kuend_an treat4 j98 j99 j00 j02 j03 j04 j98treat j99treat j00treat j02treat j03treat ///
j04treat j98treattarif j99treattarif j00treattarif j02treattarif j03treattarif j04treattarif lgeschvol ///
lva_pc rpc_pay_1000 tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & donut1==1, fe vce(cluster idnum)
test (j00treat j00treattarif)
test (j02treat j02treattarif)
test (j03treat j03treattarif)
test (j04treat j04treattarif)

gen donut2=0
replace donut2=1 if gesamt<191
replace donut2=1 if gesamt>211

*spec. (1)
xtreg kuend_an ib3.treat_group##i.post ib2001.jahr lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & donut2==1, fe vce(cluster idnum)

*spec. (2)
xtreg kuend_an ib3.treat_group##i.post ib2001.jahr lgeschvol lva_pc rpc_pay_1000 ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & donut2==1,fe vce(cluster idnum)

*spec. (3) manually
xtreg kuend_an treat4 post ib2001.jahr treatpost treatposttarif lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & donut2==1, fe vce(cluster idnum)
test (treatpost treatposttarif)

*spec. (4) manually
xtreg kuend_an treat4 post ib2001.jahr treatpost treatposttarif lgeschvol lva_pc rpc_pay_1000 ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & donut2==1, fe vce(cluster idnum)
test (treatpost treatposttarif)

*spec. (5)
xtreg kuend_an ib3.treat_group##ib2001.jahr lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & donut2==1,fe vce(cluster idnum)

*spec. (6)
xtreg kuend_an ib3.treat_group##ib2001.jahr lgeschvol lva_pc rpc_pay_1000 ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & donut2==1,fe vce(cluster idnum)

*spec. (7) manually
xtreg kuend_an treat4 j98 j99 j00 j02 j03 j04 j98treat j99treat j00treat j02treat j03treat ///
j04treat j98treattarif j99treattarif j00treattarif j02treattarif j03treattarif j04treattarif lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & donut2==1, fe vce(cluster idnum)
test (j00treat j00treattarif)
test (j02treat j02treattarif)
test (j03treat j03treattarif)
test (j04treat j04treattarif)

*spec. (8) manually
xtreg kuend_an treat4 j98 j99 j00 j02 j03 j04 j98treat j99treat j00treat j02treat j03treat ///
j04treat j98treattarif j99treattarif j00treattarif j02treattarif j03treattarif j04treattarif lgeschvol ///
lva_pc rpc_pay_1000 tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & donut2==1, fe vce(cluster idnum)
test (j00treat j00treattarif)
test (j02treat j02treattarif)
test (j03treat j03treattarif)
test (j04treat j04treattarif)


* III. Placebo estimation ######################################################
* treatment one year before

* PLACEBO: virtual treatment one year before, period 1998-2004
gen post_placebo=0
replace post_placebo=1 if jahr>2000
gen treatpost_placebo=treat4*post_placebo
gen treatpost_placebotarif=treat4*post_placebo*tarif_1

*spec. (1)
xtreg kuend_an ib3.treat_group##i.post_placebo ib2000.jahr lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251, fe vce(cluster idnum)

*spec. (2)
xtreg kuend_an ib3.treat_group##i.post_placebo ib2000.jahr lgeschvol lva_pc rpc_pay_1000 ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251,fe vce(cluster idnum)

*spec. (3) manually
xtreg kuend_an treat4 ib2000.jahr post_placebo  treatpost_placebo treatpost_placebotarif lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251, fe vce(cluster idnum)
test (treatpost_placebo treatpost_placebotarif)

*spec. (4) manually
xtreg kuend_an ib2000.jahr treat4 post_placebo  treatpost_placebo treatpost_placebotarif lgeschvol lva_pc rpc_pay_1000 ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251, fe vce(cluster idnum)
test (treatpost_placebo treatpost_placebotarif)

* PLACEBO: virtual treatment one year before, period 1998-2002
*spec. (1)
xtreg kuend_an ib3.treat_group##i.post_placebo ib2000.jahr lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2003 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251, fe vce(cluster idnum)

*spec. (2)
xtreg kuend_an ib3.treat_group##i.post_placebo ib2000.jahr lgeschvol lva_pc rpc_pay_1000 ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2003 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251,fe vce(cluster idnum)

*spec. (3) manually
xtreg kuend_an treat4 ib2000.jahr post_placebo  treatpost_placebo treatpost_placebotarif lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2003 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251, fe vce(cluster idnum)
test (treatpost_placebo treatpost_placebotarif)

*spec. (4) manually
xtreg kuend_an ib2000.jahr treat4 post_placebo  treatpost_placebo treatpost_placebotarif lgeschvol lva_pc rpc_pay_1000 ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2003 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251, fe vce(cluster idnum)
test (treatpost_placebo treatpost_placebotarif)

* PLACEBO: virtual treatment two years before, period 1998-2000
gen post_placebo_99=0
replace post_placebo_99=1 if jahr>1999
gen treatpost_placebo_99=treat4*post_placebo_99
gen treatpost_placebotarif_99=treat4*post_placebo_99*tarif_1

*spec. (1)
xtreg kuend_an ib3.treat_group##i.post_placebo_99 ib1999.jahr lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2001 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251, fe vce(cluster idnum)

*spec. (2)
xtreg kuend_an ib3.treat_group##i.post_placebo_99 ib1999.jahr lgeschvol lva_pc rpc_pay_1000 ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2001 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251,fe vce(cluster idnum)

*spec. (3) manually
xtreg kuend_an treat4 ib1999.jahr post_placebo_99 treatpost_placebo_99 treatpost_placebotarif_99 lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2001 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251, fe vce(cluster idnum)
test (treatpost_placebo_99 treatpost_placebotarif_99)

*spec. (4) manually
xtreg kuend_an ib1999.jahr treat4 post_placebo_99 treatpost_placebo_99 treatpost_placebotarif_99 lgeschvol lva_pc rpc_pay_1000 ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2001 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251, fe vce(cluster idnum)
test (treatpost_placebo_99 treatpost_placebotarif_99)


* IV. Regressions separately by coll. agr. status ##############################
* rule out that results depend on small number of establishments that
* change the status

*spec. (1)
xtreg kuend_an ib3.treat_group##i.post ib2001.jahr lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & tarif_1==1, fe vce(cluster idnum)

*spec. (2)
xtreg kuend_an ib3.treat_group##i.post ib2001.jahr lgeschvol lva_pc rpc_pay_1000 ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & tarif_1==1,fe vce(cluster idnum)

*spec. (3) manually
xtreg kuend_an treat4 post ib2001.jahr treatpost treatposttarif lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & tarif_1==1, fe vce(cluster idnum)
test (treatpost treatposttarif)

*spec. (4) manually
xtreg kuend_an treat4 post ib2001.jahr treatpost treatposttarif lgeschvol lva_pc rpc_pay_1000 ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & tarif_1==1, fe vce(cluster idnum)
test (treatpost treatposttarif)

*spec. (5)
xtreg kuend_an ib3.treat_group##ib2001.jahr lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & tarif_1==1, fe vce(cluster idnum)

*spec. (6)
xtreg kuend_an ib3.treat_group##ib2001.jahr lgeschvol lva_pc rpc_pay_1000 ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & tarif_1==1,fe vce(cluster idnum)

*spec. (7) manually
xtreg kuend_an treat4 j98 j99 j00 j02 j03 j04 j98treat j99treat j00treat j02treat j03treat ///
j04treat j98treattarif j99treattarif j00treattarif j02treattarif j03treattarif j04treattarif lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & tarif_1==1, fe vce(cluster idnum)
test (j00treat j00treattarif)
test (j02treat j02treattarif)
test (j03treat j03treattarif)
test (j04treat j04treattarif)

*spec. (8) manually
xtreg kuend_an treat4 j98 j99 j00 j02 j03 j04 j98treat j99treat j00treat j02treat j03treat ///
j04treat j98treattarif j99treattarif j00treattarif j02treattarif j03treattarif j04treattarif lgeschvol ///
lva_pc rpc_pay_1000 tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & tarif_1==1, fe vce(cluster idnum)
test (j00treat j00treattarif)
test (j02treat j02treattarif)
test (j03treat j03treattarif)
test (j04treat j04treattarif)

*spec. (1)
xtreg kuend_an ib3.treat_group##i.post ib2001.jahr lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & tarif_1==0, fe vce(cluster idnum)


*spec. (2)
xtreg kuend_an ib3.treat_group##i.post ib2001.jahr lgeschvol lva_pc rpc_pay_1000 ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & tarif_1==0,fe vce(cluster idnum)

*spec. (3) manually
xtreg kuend_an treat4 post ib2001.jahr treatpost treatposttarif lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & tarif_1==0, fe vce(cluster idnum)
test (treatpost treatposttarif)

*spec. (4) manually
xtreg kuend_an treat4 post ib2001.jahr treatpost treatposttarif lgeschvol lva_pc rpc_pay_1000 ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & tarif_1==0, fe vce(cluster idnum)
test (treatpost treatposttarif)

*spec. (5)
xtreg kuend_an ib3.treat_group##ib2001.jahr lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & tarif_1==0, fe vce(cluster idnum)

*spec. (6)
xtreg kuend_an ib3.treat_group##ib2001.jahr lgeschvol lva_pc rpc_pay_1000 ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & tarif_1==0, fe vce(cluster idnum)

*spec. (7) manually
xtreg kuend_an treat4 j98 j99 j00 j02 j03 j04 j98treat j99treat j00treat j02treat j03treat ///
j04treat j98treattarif j99treattarif j00treattarif j02treattarif j03treattarif j04treattarif lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & tarif_1==0, fe vce(cluster idnum)
test (j00treat j00treattarif)
test (j02treat j02treattarif)
test (j03treat j03treattarif)
test (j04treat j04treattarif)

*spec. (8) manually
xtreg kuend_an treat4 j98 j99 j00 j02 j03 j04 j98treat j99treat j00treat j02treat j03treat ///
j04treat j98treattarif j99treattarif j00treattarif j02treattarif j03treattarif j04treattarif lgeschvol ///
lva_pc rpc_pay_1000 tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & tarif_1==0, fe vce(cluster idnum)
test (j00treat j00treattarif)
test (j02treat j02treattarif)
test (j03treat j03treattarif)
test (j04treat j04treattarif)

*spec. (1)
xtreg kuend_an ib3.treat_group##i.post ib2001.jahr lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & TV==1, fe vce(cluster idnum)

*spec. (2)
xtreg kuend_an ib3.treat_group##i.post ib2001.jahr lgeschvol lva_pc rpc_pay_1000 ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & TV==1,fe vce(cluster idnum)

*spec. (3) manually
xtreg kuend_an treat4 post ib2001.jahr treatpost treatposttarif lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & TV==1, fe vce(cluster idnum)
test (treatpost treatposttarif)

*spec. (4) manually
xtreg kuend_an treat4 post ib2001.jahr treatpost treatposttarif lgeschvol lva_pc rpc_pay_1000 ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & TV==1, fe vce(cluster idnum)
test (treatpost treatposttarif)

*spec. (5)
xtreg kuend_an ib3.treat_group##ib2001.jahr lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & TV==1, fe vce(cluster idnum)

*spec. (6)
xtreg kuend_an ib3.treat_group##ib2001.jahr lgeschvol lva_pc rpc_pay_1000 ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & TV==1,fe vce(cluster idnum)

*spec. (7) manually
xtreg kuend_an treat4 j98 j99 j00 j02 j03 j04 j98treat j99treat j00treat j02treat j03treat ///
j04treat j98treattarif j99treattarif j00treattarif j02treattarif j03treattarif j04treattarif lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & TV==1, fe vce(cluster idnum)
test (j00treat j00treattarif)
test (j02treat j02treattarif)
test (j03treat j03treattarif)
test (j04treat j04treattarif)

*spec. (8) manually
xtreg kuend_an treat4 j98 j99 j00 j02 j03 j04 j98treat j99treat j00treat j02treat j03treat ///
j04treat j98treattarif j99treattarif j00treattarif j02treattarif j03treattarif j04treattarif lgeschvol ///
lva_pc rpc_pay_1000 tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & TV==1, fe vce(cluster idnum)
test (j00treat j00treattarif)
test (j02treat j02treattarif)
test (j03treat j03treattarif)
test (j04treat j04treattarif)

*spec. (1)
xtreg kuend_an ib3.treat_group##i.post ib2001.jahr lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & TV==0, fe vce(cluster idnum)

*spec. (2)
xtreg kuend_an ib3.treat_group##i.post ib2001.jahr lgeschvol lva_pc rpc_pay_1000 ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & TV==0,fe vce(cluster idnum)

*spec. (3) manually
xtreg kuend_an treat4 post ib2001.jahr treatpost treatposttarif lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & TV==0, fe vce(cluster idnum)
test (treatpost treatposttarif)

*spec. (4) manually
xtreg kuend_an treat4 post ib2001.jahr treatpost treatposttarif lgeschvol lva_pc rpc_pay_1000 ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & TV==0, fe vce(cluster idnum)
test (treatpost treatposttarif)

*spec. (5)
xtreg kuend_an ib3.treat_group##ib2001.jahr lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & TV==0, fe vce(cluster idnum)

*spec. (6)
xtreg kuend_an ib3.treat_group##ib2001.jahr lgeschvol lva_pc rpc_pay_1000 ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & TV==0, fe vce(cluster idnum)

*spec. (7) manually
xtreg kuend_an treat4 j98 j99 j00 j02 j03 j04 j98treat j99treat j00treat j02treat j03treat ///
j04treat j98treattarif j99treattarif j00treattarif j02treattarif j03treattarif j04treattarif lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & TV==0, fe vce(cluster idnum)
test (j00treat j00treattarif)
test (j02treat j02treattarif)
test (j03treat j03treattarif)
test (j04treat j04treattarif)

*spec. (8) manually
xtreg kuend_an treat4 j98 j99 j00 j02 j03 j04 j98treat j99treat j00treat j02treat j03treat ///
j04treat j98treattarif j99treattarif j00treattarif j02treattarif j03treattarif j04treattarif lgeschvol ///
lva_pc rpc_pay_1000 tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251 & TV==0, fe vce(cluster idnum)
test (j00treat j00treattarif)
test (j02treat j02treattarif)
test (j03treat j03treattarif)
test (j04treat j04treattarif)

* V. how valid is the measurement of voluntary quits? ##########################
* probably employers cannot distinguish b/w voluntary quits and dismissals?
* see, if numbers of quits and dismissals are similar/ have different effects


corr entlass kuend_an
corr kuend kuend_an
* if there is high corr kuend kuend_an, this could indicate that some employees
* anticipate layoffs by quitting
corr kuend_an einvern

* voluntary quits
xtreg kuend_an ib3.treat_group##i.post ib2001.jahr lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251, fe vce(cluster idnum)

* number off firings
xtreg kuend ib3.treat_group##i.post ib2001.jahr lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251, fe vce(cluster idnum)

* number of quits total
xtreg entlass ib3.treat_group##i.post ib2001.jahr lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251, fe vce(cluster idnum)


* VI. ##########################################################################
* now control for female share in order to account for potential changes in
* workforce composition that lead to zero wage effect

*spec. (1)
xtreg kuend_an ib3.treat_group##i.post ib2001.jahr lgeschvol frau_quota ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251, fe vce(cluster idnum)

*spec. (2)
xtreg kuend_an ib3.treat_group##i.post ib2001.jahr lgeschvol frau_quota lva_pc rpc_pay_1000 ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251,fe vce(cluster idnum)

*spec. (3) manually
xtreg kuend_an treat4 post ib2001.jahr treatpost treatposttarif lgeschvol frau_quota ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251, fe vce(cluster idnum)
test (treatpost treatposttarif)

*spec. (4) manually
xtreg kuend_an treat4 post ib2001.jahr treatpost treatposttarif lgeschvol frau_quota lva_pc rpc_pay_1000 ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251, fe vce(cluster idnum)
test (treatpost treatposttarif)

*spec. (5)
xtreg kuend_an ib3.treat_group##ib2001.jahr lgeschvol frau_quota ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251,fe vce(cluster idnum)

*spec. (6)
xtreg kuend_an ib3.treat_group##ib2001.jahr lgeschvol frau_quota lva_pc rpc_pay_1000 ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251,fe vce(cluster idnum)

*spec. (7) manually
xtreg kuend_an treat4 j98 j99 j00 j02 j03 j04 j98treat j99treat j00treat j02treat j03treat ///
j04treat j98treattarif j99treattarif j00treattarif j02treattarif j03treattarif j04treattarif lgeschvol frau_quota ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251, fe vce(cluster idnum)
test (j00treat j00treattarif)
test (j02treat j02treattarif)
test (j03treat j03treattarif)
test (j04treat j04treattarif)

*spec. (8) manually
xtreg kuend_an treat4 j98 j99 j00 j02 j03 j04 j98treat j99treat j00treat j02treat j03treat ///
j04treat j98treattarif j99treattarif j00treattarif j02treattarif j03treattarif j04treattarif lgeschvol frau_quota  ///
lva_pc rpc_pay_1000 tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251, fe vce(cluster idnum)
test (j00treat j00treattarif)
test (j02treat j02treattarif)
test (j03treat j03treattarif)
test (j04treat j04treattarif)


* VII. Do results depend on working proprietors counted as employees? ###########
* subtract board members and working proprietors etc. from the number of employees

gen gesamt_a=gesamt-inhaber

gen treat_group_a=.
replace treat_group_a=1 if gesamt_a<101
replace treat_group_a=2 if gesamt_a>100 & gesamt_a<151
replace treat_group_a=3 if gesamt_a>150 & gesamt_a<201
replace treat_group_a=4 if gesamt_a>200 & gesamt_a<301
replace treat_group_a=5 if gesamt_a>300 & gesamt_a<401
replace treat_group_a=6 if gesamt_a>400 & gesamt_a<501
replace treat_group_a=7 if gesamt_a>500 & gesamt_a<601
replace treat_group_a=8 if gesamt_a>600 & gesamt_a<701
replace treat_group_a=9 if gesamt_a>700 & gesamt_a<901
replace treat_group_a=10 if gesamt_a>900 & gesamt_a<1001
replace treat_group_a=11 if gesamt_a>1000 & gesamt_a<1501
replace treat_group_a=12 if gesamt_a>1500 & gesamt_a<2001
replace treat_group_a=13 if gesamt_a>2000 & gesamt_a<2501


*spec. (1)
xtreg kuend_an ib3.treat_group_a##i.post ib2001.jahr lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group_a>2 & treat_group_a<5 & betrratmean==1 & gesamt_a>150 & gesamt_a<251, fe vce(cluster idnum)


* VIII. Poisson regression #####################################################


gen treat_times_post=treat4*post

*spec. (1)
xtpoisson kuend_an treat_times_post treat4 post ib2001.jahr lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251, fe robust

*spec. (2)
xtpoisson kuend_an ib3.treat_group##i.post ib2001.jahr lgeschvol lva_pc rpc_pay_1000 ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251,fe robust

*spec. (3) manually
xtpoisson kuend_an treat4 post ib2001.jahr treatpost treatposttarif lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251, fe robust
test (treatpost treatposttarif)

*spec. (4) manually
xtpoisson kuend_an treat4 post ib2001.jahr treatpost treatposttarif lgeschvol lva_pc rpc_pay_1000 ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251, fe robust
test (treatpost treatposttarif)

*spec. (5)
xtpoisson kuend_an ib3.treat_group##ib2001.jahr lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251,fe robust

*spec. (6)
xtpoisson kuend_an ib3.treat_group##ib2001.jahr lgeschvol lva_pc rpc_pay_1000 ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251,fe robust

*spec. (7) manually
xtpoisson kuend_an treat4 j98 j99 j00 j02 j03 j04 j98treat j99treat j00treat j02treat j03treat ///
j04treat j98treattarif j99treattarif j00treattarif j02treattarif j03treattarif j04treattarif lgeschvol ///
tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251, fe robust
test (j00treat j00treattarif)
test (j02treat j02treattarif)
test (j03treat j03treattarif)
test (j04treat j04treattarif)

*spec. (8) manually
xtpoisson kuend_an treat4 j98 j99 j00 j02 j03 j04 j98treat j99treat j00treat j02treat j03treat ///
j04treat j98treattarif j99treattarif j00treattarif j02treattarif j03treattarif j04treattarif lgeschvol ///
lva_pc rpc_pay_1000 tarif_1 west gesamt i.bran if betrrat==1 & geschart<4 & jahr<2005 ///
& treat_group>2 & treat_group<5 & betrratmean==1 & gesamt>150 & gesamt<251, fe robust
test (j00treat j00treattarif)
test (j02treat j02treattarif)
test (j03treat j03treattarif)
test (j04treat j04treattarif)



log cl