*
* SIMULMULT.RPF
* RATS Version 8, User's Guide, example from Section 8.3.
*
source prsetup.src
smpl 1984:1 1985:4
forecast(model=prsmall,results=base)
compute govt(1984:1)=govt(1984:1)+2.0
forecast(model=prsmall,results=mults)
compute govt(1984:1)=govt(1984:1)-2.0

do i=1,%rows(mults)
   set mults(i) = (mults(i)-base(i))/2.0
   labels mults(i)
   # 'M_'+%modellabel(prsmall,i)
end do i

print(picture="*.###") / mults