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

*Berechnung der Residuen des Endmodells;
PROC GLM DATA=neu noprint;
CLASS Haltung Groesse;
MODEL verluste1000wo = Haltung | Groesse;
output out=residuenM1_Mort r=Res;
RUN;
quit;
PROC FORMAT;
VALUE grufmt
1='Kä. < 50000'
2='Bo. < 50000'
3='Fr. < 50000'
4='Kä. >= 50000'
5='Bo. >= 50000'
6='Fr. >= 50000';
RUN;
%ODSQuer(Residuenplot);
%OPTIO;
*Histogramm der Residuen;
PROC GCHART;
HBAR res;
LABEL Res='Residuen';
RUN;
QUIT;
SYMBOL I=none V=PLUS;
*Residuenplot;
PROC GPLOT;
PLOT Res*Gruppe /VREF=0;
FORMAT Gruppe grufmt.;
LABEL Res='Residuen'
Gruppe='Faktorstufenkombination';
RUN;
QUIT;
ODS RTF CLOSE;
B.6 Interaktionsplots
SAS-Programme
/*************************************************************************
Programmdatei: Interaktionsplots.sas
Autor: Jan Schäl
Interaktionsplots für die Endmodelle
**************************************************************************/
%OPTIO;
PROC FORMAT;
VALUE vHaltfmt
1='Käfig-Batteriehaltung'
2='Bodenhaltung'
3='Freilandhaltung';
RUN;
DATA neu;
SET ADS_A;
IF verluste1000Wo>90 THEN DELETE;
IF f1_3legelinie in (10 12 17 18) THEN f1_3legelinie=1;
136