Link - Frau Prof. Dr. rer. nat. Kira Klenke - Hochschule Hannover

DATA Ausr;
MERGE Resi Grubbs;
BY f1_4haltung;
T=(xq-Residuen)/s;
RUN;
PROC SORT DATA=Ausr;
BY f1_4haltung T;
RUN;
SAS-Programme
*Ausgabe der Kritischen Werte zu jeder Beobachtung;
%ODSHoch(Ausreißer);
TITLE2 'Ausreißertest';
PROC PRINT NOOBS DATA=Ausr;
BY f1_4haltung;
WHERE T ne .;
VAR T f0_2lfdnr2 verluste1000wo f1_4haltung f1_6anz_ein f1_13anz_aus;
RUN;
ODS RTF CLOSE;
B.5 Histogramm der Residuen und Residuenplot
/*************************************************************************
Programmdatei: Residuen_Grafiken
Autor: Jan Schäl
Histogramm der Residuen und Residuenplot
**************************************************************************/
DATA neu;
SET ADS_A;
IF verluste1000Wo>90 THEN DELETE;
RUN;
IF f1_3legelinie in (10 12 17 18) THEN f1_3legelinie=1;
IF f1_3legelinie >=30 THEN f1_3legelinie=2;
IF f1_10beh_w_a = 2 THEN f1_10beh_w_a = 1;
IF f1_10beh_w_b = 2 THEN f1_10beh_w_b = 1;
IF f1_10beh_w_c = 2 THEN f1_10beh_w_c = 1;
IF f1_10beh_w_d = 2 THEN f1_10beh_w_d = 1;
IF f1_10beh_w_e = 2 THEN f1_10beh_w_e = 1;
IF f1_10beh_w_f = 2 THEN f1_10beh_w_f = 1;
IF f1_10beh_w_g = 2 THEN f1_10beh_w_g = 1;
IF f1_10beh_w_h = 2 THEN f1_10beh_w_h = 1;
IF f1_10beh_w_i = 2 THEN f1_10beh_w_i = 1;
IF f1_10beh_w_j = 2 THEN f1_10beh_w_j = 1;
IF f1_11verhalt_a = 2 THEN f1_11verhalt_a = 1;
IF f1_11verhalt_b = 2 THEN f1_11verhalt_b = 1;
IF f1_11verhalt_c = 2 THEN f1_11verhalt_c = 1;
IF f1_4haltung=3 THEN DELETE;*VoA=Ausschluss wegen zu kleinem n;
IF Haltung=1 AND Groesse=0 THEN Gruppe=1;
IF Haltung=3 AND Groesse=0 THEN Gruppe=2;
IF Haltung=4 AND Groesse=0 THEN Gruppe=3;
IF Haltung=1 AND Groesse=1 THEN Gruppe=4;
IF Haltung=3 AND Groesse=1 THEN Gruppe=5;
IF Haltung=4 AND Groesse=1 THEN Gruppe=6;
135