Code: Select all
dlm(type=csimulate,presample=ergodic,a=a,c=c,f=f,sw=sw,y=%xt(y,t)) rstart rend xstates
*
* Put the conditionally simulated values of y into yhat. These will
* match wherever y exists.
*
do i=1,n
set yhat(i) rstart rend = [vector] ypatch=tr(c)*xstates,ypatch(i)
end do iCode: Select all
do i=1,n
filter(weights=1.0~~-1.0*psi(i),type=lagging) yhat(i) / fy
filter(weights=1.0~~-1.0*psi(i),type=lagging) cycle / fcycle
cmom
# fcycle{0 to glags(i)} fy
compute gamma(i)=%ranmvpostcmom(%cmom,1.0/sigsqe(i),hgamma(i),bgamma(i))
end do i