循环语句对数据归一化处理

如图所示，数据由因变量Y与自变量x1-x200构成整个数据集，储存在在work.indices中;
现在我想将x1与x2做归一化，x1与x3做归一化，x1与x4归一化...直到x200......同样做x2与x3归一化...直到x200....依此类推直到x199与x200做归一化，公式为：

n1=(x1-x2)/(x1+x2),n2=(x1-x3)/(x1+x3),n3=(x1-x4)/(x1+x4),n4=(x1-x5)/(x1+x5),.........n201=(x2-x3)/(x2+x3),.......
nK=(x199-x200)/(x199+x200).（K为常数）
将所有数据在所得到的新变量还是按照Y、n1、n2、n3....nk储存起来在新的数据集work.new中。

[size=13.333333969116211px]pobel大哥 给了我这个程序：
data test;
    y=1000;
        array x[200] x1-x200;
        do _n_=1 to 200;
           x(_n_)=_n_;
        end;
run;

data test1;
    set test;
        array x(200);
        array nn(19900) ;
        do i=1 to 199;
          do j=i+1 to 200;
         num+1;
                 nn(num)=(x(i)-x(j))/(x(i)+x(j));
          end;
        end;
        keep y nn1-nn19900;
run;

语句是没有了问题。但是我将数据集test换成我的数据集work.indices后，只生成一行以nn1-nn19900为变量名的第一行数。
我的目的是想每行数均需要进行归一化计算，而且我的数据有400行，需要考虑多行，因此还需更正？还请大侠们帮助，这个程序对我非常重要。。。先谢谢各位了！！

黄建荣 发表于 2012-11-30 16:17
谢谢pobel 大哥，这次确实非常准确了。。非常谢谢您的帮助，我是SAS程序菜鸟，想进一步提高自己的编程能力 ...

个人认为SAS programming I、II、III和SAS Certification Prep Guide 都挺好

试试加一行 num=0；

data test1;
    set test;
     num=0;
        array x(200);
        array nn(19900) ;
        do i=1 to 199;
          do j=i+1 to 200;
         num+1;
                 nn(num)=(x(i)-x(j))/(x(i)+x(j));
          end;
        end;
        keep y nn1-nn19900;
run;

pobel 发表于 2012-11-30 08:49
试试加一行 num=0；

data test1;

这是一个5行的例子：

1. data test;
   
2.     y=1000;
   
3.         array x[200] x1-x200;
   
4.         do _n_=1 to 200;
   
5.            x(_n_)=_n_;
   
6.         end;                  
   
7.         do _n_=1 to 5;
   
8.                   output;
   
9.                 end;
   
10. run;
    
11. 
    
12. data test1;
    
13.     set test;
    
14.         array x(200);
    
15.         array nn(19900) ;
    
16.          num=0;
    
17.         do i=1 to 199;
    
18.           do j=i+1 to 200;
    
19.                num+1;
    
20.                  nn(num)=(x(i)-x(j))/(x(i)+x(j));
    
21.           end;
    
22.         end;
    
23.         keep y nn1-nn19900;
    
24. run;

复制代码

pobel 发表于 2012-11-30 08:51
这是一个5行的例子：

谢谢pobel 大哥，这次确实非常准确了。。非常谢谢您的帮助，我是SAS程序菜鸟，想进一步提高自己的编程能力，能否建议一两本书让我学习一下？

pobel 发表于 2012-11-30 16:37
个人认为SAS programming I、II、III和SAS Certification Prep Guide 都挺好

谢谢pobel 大哥，我已经找到了您说的教程了。以后有问题还是要麻烦大哥帮忙啊。。谢谢您。。真的。。这已经解决我大问题了。。

pobel 发表于 2012-11-30 08:51
这是一个5行的例子：

pobel 大哥还请你帮个忙啊，如帖上的循环，虽然归一化数据是出来了，但是没有标签，不知道得到的变量nn是谁与谁的归一化运算的结果，因此还需要加入标签，不然自己输出后在excel中加标签太多了...非常麻烦....

黄建荣 发表于 2012-12-3 15:37
pobel 大哥还请你帮个忙啊，如帖上的循环，虽然归一化数据是出来了，但是没有标签，不知道得到的变量nn是 ...

加上加粗部分的代码试试。蓝色的是每个变量的label部分。

data test1;
    set test;
        array x(200);
        array nn(19900) ;
         num=0;
                *** prepare label;
                 length code $200;
                 if _n_=1 then call execute("proc datasets nolist; modify test1; label ");
        do i=1 to 199;
          do j=i+1 to 200;
               num+1;
                           if _n_=1 then do;
                                 _label=cats(i)||" VS "||cats(j);
                                 code=vname(nn(num))||"="||quote(strip(_label));
                                 call execute(code);
                           end;
                 nn(num)=(x(i)-x(j))/(x(i)+x(j));
          end;
        end;
                if _n_=1 then call execute("; run; quit;");
        keep y nn1-nn19900 ;
run;

pobel 发表于 2012-12-3 16:04
加上加粗部分的代码试试。蓝色的是每个变量的label部分。

data test1;

已经完全解决了，谢谢大哥。呵呵。以后要多多学习了。

pobel 发表于 2012-12-3 16:04
加上加粗部分的代码试试。蓝色的是每个变量的label部分。

data test1;

大哥您好，您已经帮我解决的数据排列如下图所示：

如果我的数据排列没有转置过来，在原来的那个未经筛选的数据集中（如下面两图所示），怎么进行归一化处理？

我要归一化的数据没有变量名，怎么写程序引用某个波段wave对应的ref值？