import delimited "Peer_Instruction_Efficiency.csv", clear

graph set window fontface "Times New Roman"

* Correct answer % before discussion and after discussion
twoway (scatter after before) ///
	(function y=2*x-x^2, lcolor(black) lpattern(solid)) ///
	(function y=x, lpattern(shortdash)), ///
	ytitle(Correct answer % after discussion) ///
	xtitle(Correct answer % before discussion) ///
	legend(off) scheme(s2mono) graphregion(fcolor(white))
graph export "Figure1.png", as(png) replace
graph close


* Correct answer % before discussion and PI efficiency
twoway (scatter pie before) ///
	(function y=x, lcolor(black) lpattern(solid)), ///
	ytitle(PI efficiency) ///
	xtitle(Correct answer % before discussion) ///
	legend(off) scheme(s2mono) graphregion(fcolor(white))
	
graph export "Figure2.png", as(png) replace
graph close