SAS中文论坛

标题: 请教关于赋值的问题 [打印本页]

作者: shiyiming 时间: 2010-5-9 23:42
标题: 请教关于赋值的问题
请问如何将一列随机数的数值全部改为这列数的第一个数的值，如：
x
y
z
w
s
q
全部改为x.
谢谢

作者: shiyiming 时间: 2010-5-10 14:21
标题: Re: 请教关于赋值的问题
[b:13x8vmq3]
Data exp;
Input  xx $ @@;
Cards;
x i d s j a
;
run;

%macro datannnn(tem_table,col_name);

data &tem_table;
set &tem_table;
line=1;
line1+line;
run;

proc sql noprint; select &col_name into : firstname separated by ' '
from &tem_table where  line1 = ( select  min(line1)  from &tem_table  ) ; quit;

%let tem = %scan(&firstname., 1, ' ');
data &tem_table ;
set &tem_table;
other_&col_name="&tem.";
keep &col_name. other_&col_name;
run;
%mend ;

%datannnn(exp,xx);

输出结果：
xx other_xx
x       x
i       x
d    x
s       x
j       x



[/b:13x8vmq3]

作者: shiyiming 时间: 2010-5-10 15:56
标题: Re: 请教关于赋值的问题
to wujiyan99
FT, 为啥要把data Pass twice？

作者: shiyiming 时间: 2010-5-10 17:02
标题: Re: 请教关于赋值的问题
[b:k2o4vy1s]

Data exp;
Input xx $ @@;
Cards;
x i d s j a
;
run;

data  newdata;
      set exp(firstobs=1  obs=1) nobs=ntotal;
      do _k=1 to ntotal;  output; drop _k;
      end;
run;

好代码[/b:k2o4vy1s]

作者: shiyiming 时间: 2010-5-10 17:20
标题: Re: 请教关于赋值的问题
Another one:

data new;
retain y;
set exp;
if _n_=1 then y=xx;
run;

作者: shiyiming 时间: 2010-5-10 17:43
标题: Re: 请教关于赋值的问题
已解决，十分感谢

欢迎光临 SAS中文论坛 (http://www.mysas.net/forum/)