clear
capture log close

version 8.0
log using sentences.log, replace
*log using S:\Lobby\Agendas_Project/death_penalty/book/chapters\current\ch6_sentences\run_sent_regress2_homSDB.log, replace


#delimit ;
set more off ;

* ***********************************************************************************************************;
*   Path Name:      J:\Lobby\Agendas_Project\Death_Penalty\book\chapters\current\ch6_Sentences\analysis2007 *;
*   File-Name:      sentences.do                                                                            *;
*   Date:           May 15, 2007                                                                            *;
*   Author:         sdb                                                                                     *;
*   Purpose:        1) Replicate sentencing model from book                                                 *;
*                   2) Estimate with exonerations                                                           *;
*                   3) Estimate with exonerations and executions                                            *;
*   Data Used:  yrlyopinion.dta                                                                             *;
*   Output File:        sentences.log                                                                       *;
*   Data Output:        none                                                                                *;
*   Previous File:  None                                                                                    *;
*   Machine:        mac                                                                                     *;
* ***********************************************************************************************************;

*use /projects/death_penalty/book/chapters/current/ch6_sentences/analysis2007/all_yrly_data.dta;

use all_yrly_data.dta;


tset year;
replace hom=hom/1000;

*****************************************;
*Replicate model of sentences in book   *;
*****************************************;
regress sentences L.sentences L.net_tone L.netpsm L.hom d1973 d1975 if tin(1962,2005);
predict repl, resid;
wntestq repl, lags(8);


*****************************************;
*Add exonerations                       *;
*****************************************;
regress sentences L.sentences L.net_tone L.netpsm L.hom L.exonerations d1973 d1975 if tin(1962,2005);
predict withexon, resid;
wntestq withexon, lags(8);


*****************************************;
*Add executions                         *;
*****************************************;
regress sentences L.sentences L.net_tone L.netpsm L.hom L.exonerations L.executions d1973 d1975 if tin(1962,2005);
predict withexec, resid;
wntestq withexec, lags(8);

exit;

*estimates table basemoratorium baseyrs base2yrs basenonettone, title(Models of sentences    with standard errors) stats(N ll chi2 aic) se;
*estimates table basemoratorium baseyrs base2yrs basenonettone, title(Models of sentences    with p values) stats(N ll chi2 aic) p;
*
****** Robustness checks ****;
***  a model of changes on lagged changes ****;
*regress D.sentences L.D.sentences L.D.net_tone L.D.netpsm L.D.hom d1973 d1975;
*
**** see run_sent_regress2_senthom.do for more ***;
*


regress netpsm L.netpsm L.net_tone L.hom d1973 d1975;
*exit;