' Legen sie ein neues EViews workfile an mit 
' Frequency Integer Date und 100 Beobachtungen.
' smpl 1 100

smpl @all
series x1 = nrnd
series x2 = x1 + 0.1*nrnd 
' probieren sie statt 0.1 andere Werte. Z.B.: 0.05, 0.2, 0.6
' nrnd erzeugt Realisationen einer N(0,1) Zufallsvariablen

' Angenommen sie kennen den wahren datengenerierenden Prozess. 
' Er lautet:

series y = 1 + 2*x1 + 3*x2 + 1*nrnd
' ( 1*nrnd ist der Fehler)

' Es liegt ihnen ene Stichprobe im Umfang n=100 vor und sie 
' schätzen (das korrekt spezifizierte Modell):
ls y c x1 x2

' Entspricht die Schätzung ihren Erwartungen?

group grp1 x1 x2
grp1.line
group grp2 x1 x2
grp2.scatpair 

' Korrelationsmatrix zwischen x1 und x2
group grp3 x1 x2
grp3.corr

' Varainace Inflation Factor VIF(i) = 1/(1-R(i)^2) 
scalar vif = 1/(1-@cor(x1,x2)^2)
show vif

' Wiederholen sie die Generierung und die Schätzung öfters.