* Макрос предназначен для проверки линейных гипотез общего вида (General Linear Hypotheses)
* вида cb = d, где b - вектор коэффициентов регрессии, а 
* c - матрица линейных ограничений.
* (По Searle, 1971, Linear Models (Wiley)).
* Код с генерацией данных для примера прислал David Matheson.
* Автор: Johannes Naumann (email=johannes.naumann AT uni-koeln.de)
* 22 марта 2005 .

* Создадим 100 наблюдений трёх предикторов x1, x2, x3 и одной зависимой переменной;
* все - из стандартного нормального распределения.

new file.
input program.
loop id = 1 to 100.
numeric x1 to x3.
do repeat z = x1 to x3.
compute z = rv.normal(0,1).
end repeat.
compute y = rv.normal(0,1).
end case.
end loop.
end file.
end input program.
exe.

* сделаем так, чтобы x1 и x2 коррелировали с y с коэффициентом .70 и между собой с коэффициентом .20,
* в то время, как x3 останется некоррелированным как с x1/x2, так и с y.

matrix.
get z
 /variables = x1 x2 x3 y.
compute cor = {1.0, 0.2, 0.0, 0.7;
 		   0.2, 1.0, 0.0, 0.7;
		   0.0, 0.0, 1.0, 0.0;
               0.7, 0.7, 0.0, 1.0}.
compute cho = chol(cor).
compute newz = z*cho.
save newz/outfile=* /variables= x1 to x3 y.
end matrix.

* Проверяем гипотезу, что все регрессионные коэффициенты равны.

preserve.
save outfile = 'alh__tmp.sav'.
set results listing printback on mprint off.
define alh_mak (dep = !charend('/')
               /pred = !charend('/')
               /cmat = !charend('/')
               /dmat = !charend('/')).
count miss__ = !pred !dep (sysmis missing).
select if miss__ = 0.
compute eins = 1.
matrix.
get y /vars = !dep.
get x /vars = eins !pred.
compute b = (inv(t(x)*x))*t(x)*y.
compute c = !cmat.
compute d = !dmat.
compute q = t(c*b-d)*inv(c*inv(t(x)*x)*t(c))*(c*b-d).
compute s = t(y)*y-nrow(y)*((csum(y)/nrow(y))**2).
compute z = t(b)*t(x)*y-nrow(y)*((csum(y)/nrow(y))**2).
compute e = s-z.
compute zdf = nrow(c).
compute ndf = nrow(x)-ncol(x).
compute f = (q/zdf)/(e/ndf).
compute o = {q,e,f,zdf,ndf}.
comp xx = inv(t(x)*x).
save o /outfile = alh_erg.sav /variables = qs_h qs_e,f_wert,df_h,df_e.
compute br = b-xx*t(c)*inv(c*xx*t(c))*(c*b-d).
print b /title 'вектор b (исходный)'.
print br /title 'вектор b (с учётом линейных ограничений)'.
end matrix.
get file = alh_erg.sav.
compute p = 1-cdf.f(f_wert,df_h,df_e).
execute.
formats all (f11.5).
formats df_h df_e (f11.0).
variable labels qs_h 'Сумма квадратов модели'
 /qs_e 'Остаточная сумма квадратов'
 /f_wert 'Статистика F'
 /df_h 'df модели'
 /df_e 'df ошибки'
 /p 'Значимость'.
report
  /format=list automatic align(left)
  /variables= qs_h qs_e.
report
  /format=list automatic align(left)
  /variables= df_h df_e.
report
  /format=list automatic align(left)
  /variables= f_wert p.
get file = alh__tmp.sav.
!enddefine.
restore.
alh_mak pred = x1 x2 x3/ dep = y/ cmat = {0,1,-1,0;0,0,1,-1}/ dmat = {0;0}/.