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

RUN;
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;
SAS-Programme
IF f1_4haltung=3 THEN DELETE;*VoA=Ausschluss wegen zu kleinem n;
IF Haltung=3 THEN Haltung=2;
IF Haltung=4 THEN Haltung=3;
*Übergabe von jeweils zwei Variablennamen, -ausprägungen und -bedeutungen
sowie einer WHERE-Bedingung;
%MACRO IAP(F1,F2,LF1,LF2,NF1,NF2,WO);
PROC SORT DATA=neu;
BY &F1 &F2;
RUN;
PROC MEANS DATA=neu MEAN NOPRINT;
VAR verluste1000wo;
BY &F1 &F2;
&WO;
OUTPUT OUT=mean mean=mwe;
RUN;
LEGEND LABEL=(h=1.1)
VALUE=(h=1.1);
AXIS1 LABEL=(h=1.1 angle=90 'Mittelw. d. Verluste pro 1000 AH u. Wo')
VALUE=(h=1.1)
width=1.5
ORDER=0 to 5;
SYMBOL1 C=black VALUE=none H=0.8 I=join W=2 LINE=1;
SYMBOL2 C=black VALUE=none H=0.8 I=join W=2 LINE=2;
SYMBOL3 C=black VALUE=none H=0.8 I=join W=2 LINE=4;
AXIS2 LABEL=(h=1.1 "&NF1 ")
VALUE=(h=1.1)
SPLIT="*"
order=&LF1 by 1
width=1.5;
TITLE1 'Mittelwerte der Verluste pro 1000 AH u. Woche';
TITLE2 "Variable &NF1 auf der X-Achse";
PROC GPLOT DATA=mean;
PLOT mwe*&F1=&F2/HAXIS=axis2 VAXIS=axis1 LEGEND=legend;
%FORMLAB;
LABEL mwe='Mittelw. d. Verluste pro 1000 AH u. Wo';
RUN;
AXIS2 LABEL=(h=1.1 "&NF2 ")
VALUE=(h=1.1)
SPLIT="*"
order=&LF2 by 1
width=1.5;
137