/* this merges the Wards quantity with the Edmunds previously consolidated data*/
/* created by TLM 7.28.04*/
/* modified 8.16.04*/
/* modified 4.4.05 due to DSI renaming pathnames! grrr and because I forgot to merge on mydate!*/


clear
set mem 100m
#delimit;


use "C:\Workdocs\Hellerstein\edmunds\july-august\vers 3 total_shw edmunds reconciled models.dta", clear;
	merge make model mydate using "C:\Workdocs\Hellerstein\edmunds\july-august\vers 3 total_shw wards reconciled models.dta", _merge(mwards);

	  label variable date "string from Edmunds";
	  label variable year "model year";

	  label variable quant_wards "quantity from Wards data";
	  label variable company "from Wards data";

	  label define mwardslab
	  	1 "only in Edmunds data"
	  	2 "only in Wards data"
	  	3 "in both Wards and Edmunds data";

	  label values mwards mwardslab;

	  label variable mwards "model make Edmunds or Wards indicator";

	  note _dta:  created on TS from merging Wards and Edmunds from completed set.do;

	  drop if mydate<m(2002m9);

save "C:\Workdocs\Hellerstein\edmunds\july-august\wards edmunds from ver3.dta", replace;
/* really I only use up to here, the rest of this do file was from pre-April 2005, using smoothed data, but
   we aren't using smoothed because things were merged incorrectly before April 2005*/

*checking the data**********************;
*where was the msr price just put in for edmunds price?;
 		gg msrtmv_indi=1 if  edmunds_tmv_price==msr_price;
 		gg t_indi=1;
 		bysort make model: egen total_msrtmv_indi=sum( msrtmv_indi);
 		bysort make model:  egen t_msrtmv_indi= sum(t_indi);
 		bysort make model:  gen ratio_msrtmv= total_msrtmv_indi/t_msrtmv_indi;
 		label variable ratio_msrtmv "ratio of where msr=tmv over total";
 		label variable total_msrtmv_indi "total w/in make mode where tmv=msr";
 		label variable msrtmv_indi "=1 if tmv=msr";
 		drop t_msrtmv_indi t_indi;
 		order msrtmv_indi ratio_msrtmv total_msrtmv_indi;

 		*there are no zero obs for edmunds_tmv;
 		drop if edmunds_tmv==.;

 		*get averages over the multiple observations of style;
                collapse (mean)  edmunds_tmv_price invoice_price msr_price, by(make model year mydate);
 		drop if  year==.;
		reshape wide  edmunds_tmv_price invoice msr, i(make model mydate) j(year);