求助

shiyiming

求一组数据中前k项均值与后n-k项的均值差值得最大值，即求k值和最大值,

shiyiming

感觉问题描述不够清晰，是不是对k进行遍历一次，求得某个k值时的目标值最大？

shiyiming

就不告诉你 ，就不告诉你。

shiyiming

[code:2su7wsq8]data ahuige;
   input A B;
cards;
2 3
2 3
5 7
7 9
. 2
1  5
3  8
1 15
;
run;

data ex2(rename=(a=ma b=mb));
  set ahuige (obs=0);
  k=.;
  run;

%macro sxl (data= , outfile=ex2);

data _null_;
   set &data. (drop=_all_) nobs=nmax;
   call symput('nmax',nmax);
run;

%do i=1 %to &nmax-1;
data ex(keep=k ma mb);
   set &data. ;
   k=&i;
  if _N_ <= &i then
      do;
           aa1+A;bb1+B;
                   if missing(A) then missa1+1;
           if missing(B) then missb1+1;
        end;
      else do;
          aa2+A;bb2+B;
          if missing(A) then missa2+1;
          if missing(B) then missb2+1;
        end;

  if _N_=&nmax then
        do;
           ma=aa1/(&i.-missa1)- aa2/(&nmax-&i.-missa2);
           mb=bb1/(&i.-missb1)- bb2/(&nmax-&i.-missb2);
           output;
        end;

   run;

proc append base=ex2 data=ex ;                                            
run;

%end;
%mend;

%sxl(data=ahuige , outfile=ex2);

   proc print;
   run;[/code:2su7wsq8]

shiyiming

模仿一下（缺失值的个数没有计入分母）：

shiyiming

就是遍历求差值的最大值，大家都是高手，这么快就编好了

shiyiming

不用宏也可以实现。
双set + sql方法，不过有点麻烦的。