
***IPC wide
*******************************************************************************/


cap mkdir $HDdata/Temp
tempfile temp
use $HDsources/IPC/AppIPC3d.dta, clear
merge m:1 appln_id using $HDsources/Citations/App_CitingOrCited.dta, nogen keep(3)
egen o_appln_id2 = group(appln_id)
save `temp', replace
forvalues s=1/10 {
di in blue `s'
use `temp', clear
qui sum o_appln_id2
keep if o_appln_id2 > (`s'-1)*`r(max)'/10 & o_appln_id2 < `s'*`r(max)'/10
drop o_appln_id2
xtset appln_id ipc3d
gen ipc = 1
tsfill, full
replace ipc = 0 if missing(ipc)
greshape wide ipc, i(appln_id) j(ipc3d)
save $HDdata/Temp/Temp`s'.dta, replace
}
clear
gen appln_id = .
forvalues s=1/10{
append using $HDdata/Temp/Temp`s'
}
gduplicates drop appln_id, force
compress
label data "Appln ID and its IPC, wide format"
save $HDsources/IPC/App_IPCwide_NMVcitations.dta, replace