现想将field24拆分成8个类似‘单选’的二分类变量(0-1变量),
已用substr函数提取并生成最终想要的 SerumTestPoup11-SerumTestPoup88 这8个变量,
请问能否用数组或者其他方式来实现?
谢谢!
变量field24中的部分数据:
FIELD24
1234678 13457 12467 12347 1 123457 12347 123457 68 12347 134 1345 12347 12348 1347 123457 1347 2347 12345 12347 7 12347 138 47 8 27 1345 12347 1234567 23478 12347 1234 123457 123457 123467 123478
生成 SerumTestPoup11-SerumTestPoup88的code如下:
data bb1;
set bb;
SerumTestPoup1 = substr(field24,1,1);
SerumTestPoup2 = substr(field24,2,1);
SerumTestPoup3 = substr(field24,3,1);
SerumTestPoup4 = substr(field24,4,1);
SerumTestPoup5 = substr(field24,5,1);
SerumTestPoup6 = substr(field24,6,1);
SerumTestPoup7 = substr(field24,7,1);
SerumTestPoup8 = substr(field24,8,1);
if SerumTestPoup1 = '1' then SerumTestPoup11='1';
else if SerumTestPoup1 = '2' then SerumTestPoup22='1';
else if SerumTestPoup1 = '3' then SerumTestPoup33='1';
else if SerumTestPoup1 = '4' then SerumTestPoup44='1';
else if SerumTestPoup1 = '5' then SerumTestPoup55='1';
else if SerumTestPoup1 = '6' then SerumTestPoup66='1';
else if SerumTestPoup1 = '7' then SerumTestPoup77='1';
else if SerumTestPoup1 = '8' then SerumTestPoup88='1';
if SerumTestPoup2 = '2' then SerumTestPoup22='1';
else if SerumTestPoup2 = '3' then SerumTestPoup33='1';
else if SerumTestPoup2 = '4' then SerumTestPoup44='1';
else if SerumTestPoup2 = '5' then SerumTestPoup55='1';
else if SerumTestPoup2 = '6' then SerumTestPoup66='1';
else if SerumTestPoup2 = '7' then SerumTestPoup77='1';
else if SerumTestPoup2 = '8' then SerumTestPoup88='1';
if SerumTestPoup3 = '3' then SerumTestPoup33='1';
else if SerumTestPoup3 = '4' then SerumTestPoup44='1';
else if SerumTestPoup3 = '5' then SerumTestPoup55='1';
else if SerumTestPoup3 = '6' then SerumTestPoup66='1';
else if SerumTestPoup3 = '7' then SerumTestPoup77='1';
else if SerumTestPoup3 = '8' then SerumTestPoup88='1';
if SerumTestPoup4 = '4' then SerumTestPoup44='1';
else if SerumTestPoup4 = '5' then SerumTestPoup55='1';
else if SerumTestPoup4 = '6' then SerumTestPoup66='1';
else if SerumTestPoup4 = '7' then SerumTestPoup77='1';
else if SerumTestPoup4 = '8' then SerumTestPoup88='1';
if SerumTestPoup5 = '5' then SerumTestPoup55='1';
else if SerumTestPoup5 = '6' then SerumTestPoup66='1';
else if SerumTestPoup5 = '7' then SerumTestPoup77='1';
else if SerumTestPoup5 = '8' then SerumTestPoup88='1';
if SerumTestPoup6 = '6' then SerumTestPoup66='1';
else if SerumTestPoup6 = '7' then SerumTestPoup77='1';
else if SerumTestPoup6 = '8' then SerumTestPoup88='1';
if SerumTestPoup7 = '7' then SerumTestPoup77='1';
else if SerumTestPoup7 = '8' then SerumTestPoup88='1';
if SerumTestPoup8 = '8' then SerumTestPoup88='1';
run;



雷达卡



京公网安备 11010802022788号







