sum ID
global MaxID=r(max)
forvalues i=1(1)$MaxID{
qui reg R_Rf Rm_Rf SMB HML if(ID==`i' & estimation_window==1 )
* qui reg R_Rf Rm_Rf if ID==`i' & estimation_window==1
predict p if ID==`i'
replace predicted_return=p if (ID==`i' & event_window==1)
drop p