fixed header typos

LSOA-Domestic/extract-DECC-LSOA-energy-data-from-excel.do

@@ -29,7 +29,7 @@ capture log close
 
 set more off
 
-local where = "/Users/ben/Documents"
+local where = "~/Documents"
 local projroot = "`where'/Work/Data/Social Science Datatsets/DECC"
 
 local dpath = "`projroot'/LSOA Energy Data"
@@ -52,7 +52,7 @@ local do_2008 = 0
 local do_2009 = 0
 local do_2010 = 0
 local do_matrix_graphs = 0
-local do_bar_graphs = 1
+local do_bar_graphs = 0
 
 
 
@@ -330,14 +330,18 @@ foreach dv of local dist_testvars {
 	tabstat *Meters_*_delptc_ppn , by(`dv')
 }
 
+gen lsoacode_2001 = ew_lsoacode
 
 preserve
-	keep zonecode regioncode regionname countycode countyname districtcode districtname *200* *dif*
+	keep zonecode lsoacode_2001 regioncode regionname countycode countyname districtcode districtname *200* *dif*
 	outsheet using "`dpath'/processed/llsoa-electricity-all-years-England-geo.csv", comma replace
 	outsheet using "`dpath'/processed/llsoa-electricity-all-years-England-geo-southwest.csv" if regionname == "South West", comma replace
 	export excel using "`dpath'/processed/llsoa-electricity-all-years-England-geo.xls", sheet("data") firstrow(variables) replace
 
 restore
+
+
+
 save "`dpath'/processed/llsoa-electricity-all-years-England-geo.dta", replace
 
 

NEED/analyse-NEED-EULF-2014-descriptives.do

@@ -32,7 +32,7 @@ clear all
 capture noisily log close
 
 * written for Mac OSX - remember to change filesystem delimiter for other platforms
-local home "/Users/ben/Documents"
+local home "~/Documents"
 local proot "`home'/Work/Data/Social Science Datatsets/DECC"
 * for clam
 * local proot "`home'/Work/NEED"

NEED/analyse-NEED-EULF-2014-electricity-consumption.do

@@ -37,7 +37,7 @@ capture noisily log close
 set more off
 
 * written for Mac OSX - remember to change filesystem delimiter for other platforms
-global home "/Users/ben/Documents"
+global home "~/Documents"
 
 global dpath "$home/Work/Data/Social Science Datatsets/DECC/NEED/End User Licence File 2014/processed"
 global rpath "$home/Work/Papers and Conferences/RSS-2015/results"
@@ -62,13 +62,26 @@ lab def EconsValidr 1 "(V)alid" 2 "not set" 3 "(L)Elec < 100" 4 "(G) Elec > 25,0
 
 * also be aware that the consumption is rounded in buckets:
 /*
-GconsYEAR	.	Missing, off gas or invalid consumption
	100 � 7,999	Gas consumption kWh rounded to nearest 500 kWh
	8,000- 15,999	Gas consumption kWh rounded to nearest 100 kWh
	16,000 � 24,999	Gas consumption kWh rounded to nearest 500 kWh
	25,000 � 34,999	Gas consumption kWh rounded to nearest 1,000 kWh
	35,000 � 50,000	Gas consumption kWh rounded to nearest 5,000 kWh


EconsYEAR	.	Missing or invalid consumption
	100 - 9,999	Electricity consumption kWh rounded to nearest 50 kWh
	10,000 - 11,999	Electricity consumption kWh rounded to nearest 100 kWh
	12,000 - 14,999	Electricity consumption kWh rounded to nearest 500 kWh
	15,000 - 19,999	Electricity consumption kWh rounded to nearest 1,000 kWh
	20,000 - 25,000	Electricity consumption kWh rounded to nearest 5,000 kWh
+GconsYEAR	.	Missing, off gas or invalid consumption
+	100 � 7,999	Gas consumption kWh rounded to nearest 500 kWh
+	8,000- 15,999	Gas consumption kWh rounded to nearest 100 kWh
+	16,000 � 24,999	Gas consumption kWh rounded to nearest 500 kWh
+	25,000 � 34,999	Gas consumption kWh rounded to nearest 1,000 kWh
+	35,000 � 50,000	Gas consumption kWh rounded to nearest 5,000 kWh
+
+
+EconsYEAR	.	Missing or invalid consumption
+	100 - 9,999	Electricity consumption kWh rounded to nearest 50 kWh
+	10,000 - 11,999	Electricity consumption kWh rounded to nearest 100 kWh
+	12,000 - 14,999	Electricity consumption kWh rounded to nearest 500 kWh
+	15,000 - 19,999	Electricity consumption kWh rounded to nearest 1,000 kWh
+	20,000 - 25,000	Electricity consumption kWh rounded to nearest 5,000 kWh
 set more off
 */
 
 log using "$rpath/analyse-NEED-EULF-2014-electricity-consumption-`version'.smcl", replace
 
-if `do_desc' {
+
 di "************************"
 di "* Using `sample'% sample"
 * load the yearly consumption data
@@ -77,6 +90,9 @@ if `do_desc' {
 * merge in the xwave file (fixed data - we assume!)
 merge m:1 HH_ID using "$dpath/need_eul_may2014_xwavefile_100pc.dta"
 
+lab var Econs "Electricity (KwH/year)"
+lab var Gcons "Gas (KwH/year)"
+
 * set as panel in case it wasn't
 * fix format of year so xtset doesn't break
 format year %ty
@@ -101,6 +117,9 @@ foreach v of local vars {
 	lab var `v'Validr "Recoded `v'Valid"
 	lab val `v'Validr `v'Validr
 
+	di "* Check transitions (`v'Validr)"
+	xttrans `v'Validr, freq
+
 	* set up consumption deciles
 	levelsof(year), local(levels)
 	foreach l of local levels {
@@ -116,18 +135,19 @@ foreach v of local vars {
 	tab `v'_dec year
 }
 
-stop
 * flag dwellings which are off gas for electricity
 * NB - in this dataset we don't know if they use electricity as main heat (could be oil)
 gen ba_off_gas = 0
 replace ba_off_gas = 1 if  GconsValidr == 2
 lab def ba_off_gas 0 "On gas (GconsValid!=O)" 1 "Off gas (GconsValid=O, from EPC)"
 lab val ba_off_gas ba_off_gas
+
 * check
 tabstat Gcons Econs, by(ba_off_gas)
 di "* MAIN_HEAT_FUEL - Description of main heating fuel (gas or other). EPC - but NB could be 'other' but still be 'on gas'"
 
 tab ba_off_gas MAIN_HEAT_FUEL, mi // suggests EPC says 'off gas' (via GconsValid) but main heat fuel still says 'gas'?
+
 table year MAIN_HEAT_FUEL, by(ba_off_gas)
 * roughly constant rate throughout years
 table year MAIN_HEAT_FUEL, by(ba_off_gas) c(mean Gcons n Gcons)
@@ -153,24 +173,20 @@ stop
 	if `do_graphs' {
 		di "* Running graphs - do not keep in memory, just save out"
 		di "* Running graphs: histo"
-			histogram `v' if `v'Valid == "V", by(year)
+		histogram `v' if `v'Valid == "V", by(year) scale(0.75)
 		graph export "$rpath/graphs/NEED-EULF-2014-`s'pc-histo_`v'_by_year_valid.png", replace
 
 		di "* Running graphs: boxes"
-			graph box `v' if `v'Valid == "V", over(year)
+		graph box `v' if `v'Valid == "V", over(year) scale(0.75)
 		graph export "$rpath/graphs/NEED-EULF-2014-`s'pc-box_`v'_over_year_valid.png", replace
 
-			graph box `v' if `v'Valid == "V", over(year) by(FLOOR_AREA_BAND)
+		graph box `v' if `v'Valid == "V", over(year) by(FLOOR_AREA_BAND) scale(0.75)
 		graph export "$rpath/graphs/NEED-EULF-2014-`s'pc-box_`v'_yr_floor_valid.png", replace
 
-			graph box `v' if `v'Valid == "V", over(year) by(EE_BAND)
+		graph box `v' if `v'Valid == "V", over(year) by(EE_BAND) scale(0.75)
 		graph export "$rpath/graphs/NEED-EULF-2014-`s'pc-box_`v'_yr_ee_valid.png", replace
 
 	}
-
-	di "* Check transitions (`v'Validr)"
-		xttrans `v'Validr, freq
-	}
 }
 
 di "* Done!"

NEED/analyse-NEED-EULF-2014-models-v2.0.do

@@ -32,7 +32,7 @@ clear all
 capture noisily log close
 
 * written for Mac OSX - remember to change filesystem delimiter for other platforms
-local home "/Users/ben/Documents"
+local home "~/Documents"
 local proot "`home'/Work/Data/Social Science Datatsets/DECC"
 * for clam
 * local proot "`home'/Work/NEED"

NEED/process-NEED-EULF-2014.do

@@ -52,7 +52,7 @@ clear all
 capture noisily log close _all
 
 * written for Mac OSX - remember to change filesystem delimiter for other platforms
-local home "/Users/ben/Documents"
+local home "~/Documents"
 local proot "`home'/Work/Data/Social Science Datatsets/DECC"
 * for clam
 * local proot "`home'/Work/NEED"