* Makro, um eine Grafik der Residualmittelwerte bei Vorliegen von Interaktion in einer zweifaktoriellen Varianzanalyse zu erzeugen (nach Bortz, 2005, S. 300). * Autor: Hans Grüner (http://userpage.fu-berlin.de/~gruener/) letzte Modifizierung: 11. August 2011. * Für SPSS-Installationen ab Version 14. Für frühere Versionen muss das Makro modifiziert werden. * ******************* Vorgehensweise in 3 Schritten ***********************. * Schritt 1 Zuerst die zu analysierende Datendatei im Dateneditor öffnen und sicherstellen, dass es das Hauptfenster ist. * Schritt 2 Dann das Makro ab "Schritt 2" ausführen * (Cursor auf die Zeile mit "Schritt 2", dann "Menü Ausführen - Bis Ende"). * Schritt 3 Dann den Makroaufruf mit den zu definierenden Variablen anpassen und * nur die Zeile mit dem Makroaufruf ausführen (Cursor auf die Makroaufrufzeile, dann "Menü Ausführen - Aktuellen Befehl"). * Es werden die relevanten Mittelwerte und zwei Liniengrafiken ausgegeben. * Schritt 3: Aufruf des Makros (krit= Kriteriumsvariable; faktor1 = 1. Faktor; faktor2 = 2. Faktor). res_means krit=depressivitaet faktor1=dosis faktor2=geschlecht. * Schritt 2: Installation des Makros. set printback=off messages=off. define res_means (krit=!token(1) /faktor1=!token(1) /faktor2=!token(1)) preserve. DATASET NAME originaldatei. DATASET COPY zwischendatei. DATASET ACTIVATE zwischendatei. AGGREGATE /OUTFILE=* MODE=ADDVARIABLES /BREAK=!faktor1 !faktor2 /means_emp = MEAN(!krit). AGGREGATE /OUTFILE=* MODE=ADDVARIABLES /BREAK=!faktor1 /means_faktor1_emp = MEAN(!krit). AGGREGATE /OUTFILE=* MODE=ADDVARIABLES /BREAK=!faktor2 /means_faktor2_emp = MEAN(!krit). COMPUTE break_var = 1 . AGGREGATE /OUTFILE=* MODE=ADDVARIABLES /BREAK=break_var /grand_mean = MEAN(!krit). DATASET DECLARE means. AGGREGATE /OUTFILE='means' /BREAK= !faktor1 !faktor2 /means_emp = FIRST(means_emp) /means_faktor1_emp = FIRST(means_faktor1_emp) /means_faktor2_emp = FIRST(means_faktor2_emp) /grand_mean = FIRST(grand_mean). DATASET ACTIVATE means. COMPUTE means_theo = means_faktor1_emp + means_faktor2_emp - grand_mean . EXECUTE . COMPUTE resid_means = means_emp - means_theo . EXECUTE . formats means_emp, means_theo, resid_means(f16.2). variable label means_emp "emp. Mittelwerte" / means_theo "theoret. Mittelwerte" / resid_means "Residualmittelwerte". SET OVars Labels ONumbers Labels TVars Labels TNumbers Labels. SUMMARIZE /TABLES=!faktor1 !faktor2 means_emp means_theo resid_means /FORMAT=VALIDLIST NOCASENUM NOTOTAL /TITLE='Tabelle der Mittelwerte für das Interaktionsdiagramm' /MISSING=VARIABLE /CELLS=COUNT . GRAPH /TITLE='Interaktionsdiagramm der Residualmittelwerte' /LINE(MULTIPLE)MEAN(resid_means) BY !faktor1 BY !faktor2. GRAPH /TITLE='Interaktionsdiagramm der Residualmittelwerte' /LINE(MULTIPLE)MEAN(resid_means) BY !faktor2 BY !faktor1. DATASET ACTIVATE originaldatei. DATASET CLOSE zwischendatei. DATASET CLOSE means. restore. !enddefine. set printback=on.