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

RUN;
PROC SORT DATA=tmp3;
BY f0_2lfdnr2;
RUN;
DATA tmp4;
MERGE tmp3 dsLLBHT;
BY f0_2lfdnr2;
RUN;
SAS-Programme
********************Berechnung der Gesamtverluste nach Teil B***************;
PROC MEANS DATA=Epileg_B_&Datum SUM NOPRINT;
WHERE f2_1verlust ne .;
VAR f2_1verlust;
BY f0_2lfdnr2;
OUTPUT OUT=VerlB SUM=verluste_B;
RUN;
DATA tmp5;
MERGE tmp4 VerlB;
BY f0_2lfdnr2;
RUN;
DATA tmp6;*Epileg.Epileg_A_&Datum;
SET tmp5;
);
AlterTage=f1_7alter_ein_w*7+f1_7alter_ein_t;
IF entnommen_ges = . THEN entnommen_ges = 0;
IF LWo ne . THEN dauer=LWo-(AlterTage/7);
ELSE dauer = floor( (f1_12dat_aus - f1_1dat_ein) / (60*60*24*7)
IF f1_19ereig_Hitze ne . THEN f1_19ereig_Hitze2 = 1;
ELSE f1_19ereig_Hitze2 = 0;
IF f1_19ereig_Erkr ne . THEN f1_19ereig_Erkr2 = 1;
ELSE f1_19ereig_Erkr2 = 0;
IF verluste_B ne . THEN verluste = verluste_B;
IF verluste_B = . THEN verluste = f1_6anz_ein - (f1_13anz_aus + entnommen_ges);
verluste1000 = (verluste /f1_6anz_ein) * 1000;
verluste1000Wo = verluste1000/dauer;
LG_Verl=LOG10(verluste1000Wo);
durchHenne=(f1_6anz_ein + (f1_6anz_ein - verluste - entnommen_ges))/2;
futter1000wo = (f1_15futter / durchHenne)/dauer * 1000;
IF f1_8beh_vor_a = 99 THEN f1_8beh_vor_a = .;
IF f1_8beh_vor_b = 99 THEN f1_8beh_vor_b = .;
IF f1_9beh_vor_a = 99 THEN f1_9beh_vor_a = .;
IF f1_9beh_vor_d = 99 THEN f1_9beh_vor_d = .;
IF f1_10beh_w_a = 99 THEN f1_10beh_w_a = .;
IF f1_10beh_w_b = 99 THEN f1_10beh_w_b = .;
IF f1_11verhalt_a = 99 THEN f1_11verhalt_a = .;
IF f1_11verhalt_b = 99 THEN f1_11verhalt_b = .;
(gekürzt)
IF f0_2lfdnr2 in (1864 3084 3085) THEN Betr_Gr=5000;*Im Betrieb 8 aus
dem Rheinland beträgt die eigentliche Betriebsgröße 5.000 Hennen und nicht
wie berechnet unter 3.000;
IF f0_2lfdnr2 in (2315.00 2326.00 1458.00 3119.00 3118.00 1858.00
1910.00 1890.00
131