3# sushe1527

您的附件里的数据就是我想要的，非常感谢！！

请问能否将code语句告诉我呢？是怎么做到的？

6# jingju11

data new1; set new; retain m; if first.date then m=n/5; run; 运行这个语句后，得不出m值。是不是由于n不一定能够整除5所致？
如果一期中有132个值，要分5组，一般是如何处理呢？把多余的值都放入最后一组？还是......？
请指点一下！

8# funwin

proc sort data=test(where=(^missing(to))) out=old; by yyyymm to; run;
data new;
set old; by yyyymm to;
if first.yyyymm then n=0;
n+1;
run;
proc sort data=new; by yyyymm descending n; run;
data new1;
set new; by yyyymm;
retain m;
if first.yyyymm then m=n/5;
run;
proc sort; by yyyymm n; run;
data new2;
set new1;
do i=1 to 5;
if (i-1)*m<n then if n<=i*m then do;
portfolio=i;
return;
end;
end;
run;

proc means  n mean;
class yyyymm portfolio;
var  to mv rirf;
run;
*我的代码里，哪个组多和少依据具体数字，但是差别（在to这一组中）不大于1；
结果类似于：
The MEANS Procedure

                      yyyymm       portfolio    N Obs    Variable    Label        N            Mean
                -----------------------------------------------------------------------------------
                      199301               1       26    to          to          26       0.0047284
                                                                  mv        mv          26     149.3469231
                                                                  rirf        rirf        26       0.1092223
                                                 2       26    to          to          26       0.0236519
                                                                  mv        mv          25     289.4752000
                                                                  rirf        rirf        26       0.1094165
                                                 3       27    to          to          27       0.0387948
                                                                  mv        mv          27     457.9077778
                                                                  rirf        rirf        27       0.0621011
                                                4       26     to          to          26       0.0601412
                                                                  mv        mv          26     489.8403846
                                                                  rirf        rirf        26       0.0887881
                                                5       27     to          to          27       0.1832554
                                                                  mv        mv          27         1116.44
                                                                  rirf        rirf        27       0.0729516
                      199302               1       26    to          to          26       0.0048998
                                                         mv          mv          26     149.5103846
                                                         rirf        rirf        26       0.1379030
                                           2       27    to          to          27       0.0244961
                                                         mv          mv          26     443.5315385
                                                         rirf        rirf        27       0.0245299
                                           3       26    to          to          26       0.0411493
                                                         mv          mv          26     308.8773077
                                                         rirf        rirf        26       0.0362451
                                           4       27    to          to          27       0.0609519
                                                         mv          mv          27     984.0548148
                                                         rirf        rirf        27       0.0229519
                                           5       27    to          to          27       0.1863149
                                                         mv          mv          27     670.3185185
                -----------------------------------------------------------------------------------

The following code gives you slightly different results. You may change the way of determining the portfolio number.

libname MySASDat 'D:\MySAS\SASData\';
/* import data from excel */
proc import out=MySasDat.FunWinsData
     DataFile = "D:\MySAS\SASData\FunWinsdata.xls"
  DBMS=Excel Replace;
  SHEET    = "Sheet1$";
  GETNAMES = yes;
  MIXED    = yes;
  SCANTEXT = yes;
         USEDATE  = yes;
  SCANTIME = yes;
run;

/* remove records with missing TO */
data FunWin_1;
    set MysasDat.funwinsData (rename=(to=Ato yyyymm=Adate));
where ATO is not missing;
keep Adate code ato mv rirf;
run;

/* Count the number obs in each group (by yyyymm) */
proc sql;
    create table funwin_2 as
select *, count(adate) as GTN
from funwin_1
group by adate
    order by adate, ato;
quit;
proc sort data=funwin_2;
    by adate ato;
run;

/* Find the portfolio number */
data funwin_3;
    retain NG;
    set funwin_2;
N5 =  INT(GTN/5);        /* use another method may affect accuracy */
    if first.adate then NG=1;
    else NG+1;
Portfolio=int(NG/N5)+1;  /* use another method may affect accuracy */
if Portfolio > 5 then Portfolio = 5;
by adate;
run;

/* Find the average value for each portfolio */
proc sql;
     create table funwin_result as
     select adate, portfolio, mean(ato) as mean_to,
                              mean(mv)  as mean_mv,
                              mean(rirf) as mean_rirf
  from funwin_3
  group by adate, portfolio
  order by adate, portfolio;
quit;