*** this is on my computer but the file is also posted ***
clear
insheet using "H:\Work files\Teaching\Biostat 200 -- 2013\pocket_change_survey__2013.csv"


describe
summ cents
codebook cents

tab cents, missing

destring cents, gen(cents_n) force
replace cents_n=141 if cents=="141 cents"
tab cents_n, missing


** discuss whether or not do change these values **
** see if student remembers entering this number **
/*
replace cents_n=39 if cents=="0.39"
replace cents_n=104 if cents=="1.04"
replace cents_n=262 if cents=="2.62"
replace cents_n=510 if cents=="5.1"
replace cents_n=573 if cents=="5.73"
*/



hist cents_n, fcolor(blue) percent
hist cents_n, fcolor(blue) lcolor(black) width(50) percent title("Distribution of change in Biostat 200")

hist cents_n, fcolor(blue) lcolor(black) width(50) percent title("Distribution of change in Biostat 200") by(sex)

save "H:\Work files\Teaching\Biostat 200 -- 2013\pocket change_2013_edited.dta", replace