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

B.3 Deskriptive Auswertungen für die Variable Legelinie
SAS-Programme
/*************************************************************************
Programmdatei: Auswertung_TeilA_LeLi.sas
Autor: Jan Schäl
Deskription für die Variable Legelinie nach unterschiedlichen
Gesichtspunkten
**************************************************************************/
*Zusammenfassung der Legelinien, Ausschluss des Ausreißers und Definition der
Variablen futter1000woKg;
DATA ADS;
SET ADS_A;
WHERE verluste1000wo=30 THEN f1_3legelinie=30;
futter1000woKg=futter1000wo*1000;
RUN;
IF f1_11verhalt_a = . THEN f1_11verhalt_a = 99;
IF f1_11verhalt_b = . THEN f1_11verhalt_b = 99;
IF f1_11verhalt_c = . THEN f1_11verhalt_c = 99;
PROC SORT DATA=ADS;
BY Groesse;
RUN;
%ODSHoch(Deskription_LeLi);
TITLE 'Zweidim. Häufigkeitstabelle nach Legeli. und Haltungssys. getrennt
nach BGK';
%Haeufig1(f1_3legelinie,Groesse);
TITLE 'Verluste pro 1000 Anfangshennen und Woche nach Legelinie und Haltungsform';
PROC TABULATE DATA=ADS;
class f1_4haltung f1_3legelinie;
var verluste1000wo;
table verluste1000wo*f1_3legelinie*(n='Anzahl' Mean='arithm. Mittel'
cv) verluste1000wo*all='Gesamt'*(n='Anzahl' Mean='arithm. Mittel' cv),
f1_4haltung all='Gesamt' /rts=20 condense;
%FormLab;
RUN;
PROC SORT DATA=ADS;
BY f1_3legelinie f1_4haltung;
RUN;
%OPTIO;
AXIS1 LABEL=(F=swiss h=1.2 'Verluste pro 1000 Anfangshennen und Woche')
VALUE=(F=swiss h=1.2)
width=1.2;
*Boxplots der Verluste pro 1000 Anfangshennen und Woche nach Haltungsformen,
getrennt nach Legelinien;
%BOXPLOT(verluste1000wo,f1_3legelinie);
TITLE 'Zweidim. Häufigkeitstabelle nach Legeli. u. Beh. während od. Verhaltensbes.';
PROC FREQ DATA=ADS COMPRESS;
133