请教一个sas计算的问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

下面的数据，如果需要把ACCT相同的列合并，把amount加总，代码该怎么写呢？

原始数据：

ACCT	Date	Amount
10001	20120101	130
10001	20120201	140
10001	20120301	124
10002	20120101	130
10002	20120201	120

期望的结果：
ACCT    Amount
10001   130+140+124=394
10002   130+120=250

不胜感激！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：amount date 原始数据 TEAM 不胜感激 不胜感激 amount

data test;
        input Acct $ Date Amount;
        cards;
        10001 201201 130
        10001 201201 140
        10001 201301 124
        10002 201201 130
        10002 201201 120
        ;
run;

data test1 (drop=Amount);
    set test;
        by acct;
        if first.acct then AccAmt=Amount;
        else AccAmt+Amount;
                if last.acct;
run;

我也想试试....

非常非常感谢！

sunset1986 发表于 2012-9-28 10:16
data test;
        input Acct $ Date Amount;
        cards;

高人，求助。
因为手头没有SAS软件，能否帮我run一个程序。估计samlpe size大小。谢谢。程序如下。
title"Computation of min sample size for test of fit";
data one;
rmsea0=.05;*null hyp rmsea;
rmseaa=.08;*alt hyp rmsea;
d=15;*degrees of freedom;
alpha=.05;*alpha level;
*initialize values;
powa=0.0;
n=0;
*begin loop for finding initial level of n;
do until (powa>powd);
n+100;
ncp0=(n-1)*d*rmsea0**2;
ncpa=(n-1)*d*rmseaa**2;
*compute power;
if rmsea0>rmseaa then do;
cval=cinv(alpha,d,ncp0);
powa=probchi(cval,d,ncpa);
end;
if rmsea0<rmseaa then do;
cval=cinv(1-alpha,d,ncp0);
powa=1-probchi(cval,d,ncpa);
end;
end;
*begin loop for interval halving;
dir=-1;
newn=n;
intv=200;
powdiff=powa-powd;
do until(powdiff<.001);
intv=intv*.5;
*compute new power;
ncp0=(newn-1)*d*rmsea0**2;
ncpa=(newn-1)*d*rmseaa**2;
*compute power;
if rmsea0>rmseaa then do;
cval=cinv(alpha,d,ncp0);
powa=probchi(cval,d,ncpa);
end;
if rmsea0<rmseaa then do;
cval=cinv(1-alpha,d,ncp0);
powa=1-probchi(cval,d,ncpa);
end;
powdiff=abs(powa-powd);
if powa<powd then dir=1;else dir=-1;
end;
minn=newn;
output;
proc print data=one;
var rmsea0 rmseaa powd alpha d minn powa; run;

不胜感激

liuliqingdong 发表于 2012-9-28 10:32
高人，求助。
因为手头没有SAS软件，能否帮我run一个程序。估计samlpe size大小。谢谢。程序如下。
tit ...

84   data one;
85   rmsea0=.05;*null hyp rmsea;
86   rmseaa=.08;*alt hyp rmsea;
87   d=15;*degrees of freedom;
88   alpha=.05;*alpha level;
89   *initialize values;
90   powa=0.0;
91   n=0;
92   *begin loop for finding initial level of n;
93   do until (powa>powd);
94   n+100;
95   ncp0=(n-1)*d*rmsea0**2;
96   ncpa=(n-1)*d*rmseaa**2;
97   *compute power;
98   if rmsea0>rmseaa then do;
99   cval=cinv(alpha,d,ncp0);
100  powa=probchi(cval,d,ncpa);
101  end;
102  if rmsea0<rmseaa then do;
103  cval=cinv(1-alpha,d,ncp0);
104  powa=1-probchi(cval,d,ncpa);
105  end;
106  end;
107  *begin loop for interval halving;
108  dir=-1;
109  newn=n;
110  intv=200;
111  powdiff=powa-powd;
112  do until(powdiff<.001);
113  intv=intv*.5;
114  *compute new power;
115  ncp0=(newn-1)*d*rmsea0**2;
116  ncpa=(newn-1)*d*rmseaa**2;
117  *compute power;
118  if rmsea0>rmseaa then do;
119  cval=cinv(alpha,d,ncp0);
120  powa=probchi(cval,d,ncpa);
121  end;
122  if rmsea0<rmseaa then do;
123  cval=cinv(1-alpha,d,ncp0);
124  powa=1-probchi(cval,d,ncpa);
125  end;
126  powdiff=abs(powa-powd);
127  if powa<powd then dir=1;else dir=-1;
128  end;
129  minn=newn;
130  output;
131  run;

NOTE: 变量 powd 未初始化。
NOTE: 缺失值的生成是对缺失值执行操作的结果。
      指定每个位置的方式: （次数）（行:列）。
      1，位置: 111:13。   1，位置: 126:9。    1，位置: 126:17。
NOTE: 数据集 WORK.ONE 有 1 个观测和 15 个变量。
NOTE: “DATA 语句”所用时间（总处理时间）:
     实际时间          0.04 秒
   CPU 时间          0.04 秒

liuliqingdong 发表于 2012-9-28 10:32
高人，求助。
因为手头没有SAS软件，能否帮我run一个程序。估计samlpe size大小。谢谢。程序如下。
tit ...

Obs    rmsea0    rmseaa    powd    alpha     d    minn      powa

   1      0.05      0.08       .      0.05    15     100    0.20603

liuliqingdong 发表于 2012-9-28 10:32
高人，求助。
因为手头没有SAS软件，能否帮我run一个程序。估计samlpe size大小。谢谢。程序如下。
tit ...

您这里是不是缺少run
另外，需要继续检查code

sunset1986 发表于 2012-9-28 11:23
Obs    rmsea0    rmseaa    powd    alpha     d    minn      powa

   1      0.05      0.08      ...

非常感谢。但我似乎少了powe=.80;*desired power; 可否再用如下程序，run一次。非常感谢。
title"Computation of min sample size for test of fit";
data one;
rmsea0=.05;*null hyp rmsea;
rmseaa=.08;*alt hyp rmsea;
d=15;*degrees of freedom;
alpha=.05;*alpha level;
powe=.80;*desired power;
*initialize values;
powa=0.0;
n=0;
*begin loop for finding initial level of n;
do until (powa>powd);
n+100;
ncp0=(n-1)*d*rmsea0**2;
ncpa=(n-1)*d*rmseaa**2;
*compute power;
if rmsea0>rmseaa then do;
cval=cinv(alpha,d,ncp0);
powa=probchi(cval,d,ncpa);
end;
if rmsea0<rmseaa then do;
cval=cinv(1-alpha,d,ncp0);
powa=1-probchi(cval,d,ncpa);
end;
end;
*begin loop for interval halving;
dir=-1;
newn=n;
intv=200;
powdiff=powa-powd;
do until(powdiff<.001);
intv=intv*.5;
*compute new power;
ncp0=(newn-1)*d*rmsea0**2;
ncpa=(newn-1)*d*rmseaa**2;
*compute power;
if rmsea0>rmseaa then do;
cval=cinv(alpha,d,ncp0);
powa=probchi(cval,d,ncpa);
end;
if rmsea0<rmseaa then do;
cval=cinv(1-alpha,d,ncp0);
powa=1-probchi(cval,d,ncpa);
end;
powdiff=abs(powa-powd);
if powa<powd then dir=1;else dir=-1;
end;
minn=newn;
output;
proc print data=one;
var rmsea0 rmseaa powd alpha d minn powa; run;

sunset1986 发表于 2012-9-28 11:24
您这里是不是缺少run
另外，需要继续检查code

缺了desired Power, 漏掉了。能否加你好友。qq40731237.