求帮忙修正一段代码，运行不对很拙计啊

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

%eqname="eq01"    'please set the estimated equation name,
%maxlag = "12"              'maximum number of lags
%dep = "M2GR"               'please set the dependent variable name
%regs1 = "RGDPGR"               'independent variables name
%regs2 = "CPI"  
%regs3 = "CREDITGR"  
%criterion = "@AIC"   '  "@AIC" for Akaike, "@schwarz" for Schwarz, and "@HQ" for Hannan-Quinn

!maxlag = @val(%maxlag)      'trans string to a value

close {%eqname}     ' 不显示eq的估计结果

smpl @first @last

!mincrit = 1e10 '赋予初值

!x1lag=0
for !i=0 to !maxlag
  !x1lag = !x1lag + !i

    !x2lag=0
  for !j=0 to !maxlag
        !x2lag = !x2lag + !j

     !x3lag=0
   for !k=0 to !maxlag
        !x3lag = !x3lag + !k
        
  'estimate equation
  equation {%eqname}.ls {%dep} {%regs1}(0 to -!x1lag) {%regs2}(0 to -!x2lag) {%regs3}(0 to -!x3lag) c

  'capture criterion
        if @upper(%criterion) = "@AIC" then
        !crit = {%eqname}.@aic
        endif
        
        if @upper(%criterion) = "@SCHWARZ" then
        !crit = {%eqname}.@schwarz
        endif
        
        if @upper(%criterion) = "@HQ" then
        !crit = {%eqname}.@hq
        endif

        'compare criterion
        if !crit < !mincrit then
        !mincrit = !crit
        !bestx1lag = !x1lag
        !bestx2lag = !x2lag
        !bestx3lag = !x3lag
        endif
        
      next
   next
next

equation {%eqname}.ls {%dep} {%regs1}(0 to -!bestx1lag) {%regs2}(0 to -!bestx2lag) {%regs3}(0 to -!bestx3lag) c

show {%eqname}
matrix bestlags = @filledmatrix(!bestx1lag,!bestx2lag,!bestx3lag)

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：运行不对 求帮忙 Independent CRITERION Dependent equation Schwarz please number

该怎么取消悬赏了？  我自己解决了啊

请版本帮忙取消悬赏吧