분할 한 관찰

Question

나는 다음과 같은 SAS 데이터 세트가 있습니다

data mydata; 
    LENGTH id 4.0 num 4.0 A $ 4. B $ 8. C $ 20.; 
    input id num A $ B $ C $; 
    datalines; 
1 1 x yy zzzzz 
2 1 x yy zzzzz 
3 2 xq yyqq zzzzzqqqqq 
4 1 x yy zzzzz 
5 3 xqw yyqqww zzzzzqqqqqwwwww 
6 1 x yy zzzzz 
7 4 xqwe yyqqwwee zzzzzqqqqqwwwwweeeee 
; 

문제가

mydata 
------------------- 
id num A B C 
1 1 x yy zzzzz 
2 1 x yy zzzzz 
3 2 xq yyqq zzzzzqqqqq 
4 1 x yy zzzzz 
5 3 xqw yyqqww zzzzzqqqqqwwwww 
6 1 x yy zzzzz 
7 4 xqwe yyqqwwee zzzzzqqqqqwwwwweeeee 

처럼 보이는 납입이> (1) 실제로 데이터를 포함 관측 각 다수의 "관찰"과 나는 SAS의 일부 논리를 사용하여 그것을 나누고 싶다. 여기에 내가 얻을 원하는에 대한 예는 다음과 같습니다

mydatawanted 
------------------- 
id num A B C 
1 1 x yy zzzzz 
2 1 x yy zzzzz 
3 1 x yy zzzzz 
3 1 q qq qqqqq 
4 1 x yy zzzzz 
5 1 x yy zzzzz 
5 1 q qq qqqqq 
5 1 w ww wwwww 
6 1 x yy zzzzz 
7 1 x yy zzzzz 
7 1 q qq qqqqq 
7 1 w ww wwwww 
7 1 e ee eeeee 

기본적으로, NUM> (1) I 출력 후 납입 새로운 관찰과 같은 사람들을, 그 길이에 따라 각 변수의 문자열을 각 항목에 대해하고 싶은 경우 = 여기에 1. 내가 지금까지 코드에 시도 것입니다 :

data mydata2(drop=i _:); 
    set mydata; /*use the data from the original data set */ 
    _temp_id = id; /*create temp variables from the currently read observation */ 
    _temp_num = num; 
    _temp_A = A; 
    _temp_B = B; 
    _temp_C = C; 
    if (_temp_num > 1) THEN /* if num in current record > 1 then split them up */ 
     do i = 1 to _temp_num; 
      id = _temp_id; /* keep id the same */ 
      num = 1; /* set num to 1 for each new observation */ 
      A = substr(_temp_A,i,i); /*split the string by 1s */ 
      B = substr(_temp_B,1 + 2 * (i - 1),i * 2); /*split the string by 2s */ 
      C = substr(_temp_C,1 + 5 * (i - 1),i * 5); /*split the string by 5s */ 
      OUTPUT; /* output this new observation with the changes */ 
     end; 
    else OUTPUT; /* if num == 1 then output without any changes */ 
run; 

그러나 나는 그것을 원하는대로 (I 각 단계에서 무슨 일이 일어 났는지 생각 보여 일부 의견에 넣어) 작동하지 않습니다. 실제로 다음 결과가 생성됩니다.

mydata2 
------------------- 
id num A B C 
1 1 x yy zzzzz 
2 1 x yy zzzzz 
3 1 x yy zzzzz 
3 1 q qq qqqqq 
4 1 x yy zzzzz 
5 1 x yy zzzzz 
5 1 qw qqww qqqqqwwwww 
5 1 w ww wwwww 
6 1 x yy zzzzz 
7 1 x yy zzzzz 
7 1 qw qqww qqqqqwwwww 
7 1 we wwee wwwwweeeee 
7 1 e ee eeeee 

이 mydata2 결과는 mydatawanted와 같지 않습니다. num = 1 인 행은 괜찮지 만 num> 1 일 때 출력 레코드는 내가 원하는 것과 많이 다릅니다. 총 레코드 수는 정확합니다. 어떤 일이 일어나고 있는지 잘 모르겠다. 이처럼 복잡한 SAS 로직을 처음 시도한 것이므로, 코드를 수정하거나 다른 방법으로 원하는 것을 성취하는데 도움이된다. 고맙습니다!

편집 : 원래 입력 된 mydata 데이터 문에 문제가 있으며 질문이 업데이트되었습니다.

Answer 1

부분 문자열이 잘못되었습니다. Substr은 (original string, start, ending position)이 아니라 (original string, start, length) 인수를 취합니다. 따라서 length은 1,2,5이 아니고 i,i*2,i*5이되어야합니다.

 A = substr(_temp_A,i,1); /*split the string by 1s */ 
     B = substr(_temp_B,1 + 2 * (i - 1),2); /*split the string by 2s */ 
     C = substr(_temp_C,1 + 5 * (i - 1),5); /*split the string by 5s */