Allocate 19
Open data sur.wks
data(format=wks,org=obs) /
print /

*************************************************************
display 'Problème n°1 : estimation sur différentes sous périodes '
*************************************************************
display 'période 1970 1998'
linreg pinatm7098
# constant psnatm7098
prj prevpinatm7098

*comparaison des valeurs observées et prévues*
scat(style=symbol,header='relation épargne investissement',$
hlabel='S/Y moyen', vlabel='I/Y moyen') 2
# psnatm7098 pinatm7098
# psnatm7098 prevpinatm7098

*estimation sur un sous-échantillon*
linreg pinatm7098 1 15
# constant psnatm7098
prj pip15

display 'estimation sur différentes sous-périodes'
linreg pinatm7079
# constant psnatm7079
linreg pinatm8089
# constant psnatm8089
linreg pinatm9098
# constant psnatm9098


*************************************************************
display 'Problème n°2 : décomposition de épargne nationale entre épargne publique et épargne privée'
*************************************************************
linreg pinatm7098
# constant psprivem7098 pspublicm7098
restrict(create) 1
# 2 3
# 1 -1 0
linreg pinatm7079
# constant psprivem7079 pspublicm7079
restrict(create) 1
# 2 3
# 1 -1 0
linreg pinatm8089
# constant psprivem8089 pspublicm8089
restrict(create) 1
# 2 3
# 1 -1 0
linreg pinatm9098
# constant psprivem9098 pspublicm9098
restrict(create) 1
# 2 3
# 1 -1 0

linreg pinatm9098 / resid
# constant psprivem9098
set res1 = resid
linreg pspublicm9098 / resid
# constant psprivem9098
set res2 = resid
linreg res1
# constant res2
linreg pinatm9098
# constant psprivem9098 pspublicm9098

*************************************************************
display 'Problème n°3 : estimation avec la méthode sur '
*************************************************************

Equation per7079 pinatm7079
# constant psnatm7079

Equation per8089 pinatm8089
# constant psnatm8089

Equation per9098 pinatm9098
# constant psnatm9098

SUR 3
# per7079
# per8089
# per9098