在复刻论文 可以帮忙看看嘛

mat rq=yyy
local i=1
local mname ""
foreach var of varlist $v1 {
  tempvar t_`var'
  gen `t_`var''=_b[`var']*`var'
  qui su `t_`var'' if `esamp'==1
  mat rq[1,`i']=r(sd)*r(sd)
  if $pva ==1&stdtp[1,`i']>$pcv{
    mat rq[1,`i']= 0
  }
  local i=`i'+1
  local mname "`mname' `var'"
}