data rand.ultra; set ww;
if R3CVDs ne 1 and R3DIABE ne 1 then groups= 1;
if R3DIABE eq 1 and R3CVDs ne 1 then groups= 2;
if R3DIABE ne 1 and R3CVDs eq 1 then groups= 3;
if R3DIABE eq 1 and R3CVDs eq 1 then groups= 4;
if %eval(missing(r3smoken)=1)+%eval(missing(r4smoken)=1)+%eval(missing(r5smoken)=1)+%eval(missing(r6smoken)=1)+
%eval(missing(r7smoken)=1)+%eval(missing(r8smoken)=1)+%eval(missing(r9smoken)=1)+%eval(missing(r10smoken)=1)
+%eval(missing(r11smoken)=1)=9 then smoke=5;
else smoke= 9*sum(R3SMOKEN, R4SMOKEN, R5SMOKEN, R36MOKEN,R7SMOKEN,R8SMOKEN,R9SMOKEN,R10SMOKEN,R11SMOKEN)/(%eval(missing(r3smoken)=1)+
%eval(missing(r4smoken)=1)+%eval(missing(r5smoken)=1)+%eval(missing(r6smoken)=1)+%eval(missing(r7smoken)=1)+
%eval(missing(r8smoken)=1)+%eval(missing(r9smoken)=1)+%eval(missing(r10smoken)=1)+%eval(missing(r11smoken)=1));
run;