Code: Select all
if robust {
mcov(lags=.75*(endr-startr+1)^.333,lwindow=quadratic) startr endr %resids
# %rlfromtable(%eqntable(eqnshift))
compute omega=%cmom/%nobs
compute omega1=%cmom/%nobs
}Code: Select all
if robust {
mcov(lags=.75*(endr-startr+1)^.333,lwindow=quadratic) startr endr %resids
# %rlfromtable(%eqntable(eqnshift))
compute omega=%cmom/%nobs
compute omega1=%cmom/%nobs
}