data a1;
        set sashelp.class(obs=16);
        keep name age;
run;

data a2;
        set sashelp.class(obs=8);
        keep name age;
run;


%macro survey(indata1=,indata2=,id=,seed=,rate1=,rate2=,re=);

data birth_data1;
        set &indata2.;
run;
data mean;
        format order mean std 8.;
        delete;
run;

%do i=1 %to &re.;
proc sort data=&indata1. ;by &id.;run;
proc surveyselect data=&indata1.
                                        method=srs
                                        rate=&rate1.
                                        seed=&seed.
                                        out=sample1
                                        outall;
run;


proc sort data=birth_data1;by &id.; run;
proc surveyselect data=birth_data1
                                        method=srs
                                        rate=&rate2.
                                        seed=&seed.
                                        out=sample2
                                        outall;
run;

data birth_data1;
        set sample1(where=(Selected=1))
                sample2(where=(Selected=0));
        drop selected;
run;

proc means data=birth_data1 noprint;
output out=aa n=n mean=mean std=std;
run;

data mean ;
        set mean
                aa(in=a);
        if a then order=&i.;
        keep order mean std;
run;

%end;
%mend;
%survey(indata1=a1,indata2=a2,seed=20140324,id=name,rate1=0.25,rate2=0.5,re=1000);

你好，我刚才调试了一下，你这个程序是按照id或者那么来进行替换的，相同的name或者·id彼此替换数据，并不是从outlier里面抽取一部分数据来替换birth里面的数据。情况是这样的，假设一下，outlier里面有100000条数据，都是birth_data的模拟值。从里面随机抽取n条（占birth_data的数据rate），来替代birth_data的真实值,这样的随机过程要实现1000，最后得到的数据集要求保留rate，每次替代的number（第一次替代为1，第二次替代为2.。。。。），替代后的均值和标准差。我会一个一个替代，但是写出循环比较难

程序中是分别从第一、二个数据集内，用简单随机的方法抽取25%（4个）和50%（4个）的数，然后用从第一个数据集内抽出的替代第二个数据集内抽出的数据，再计算均值和标准差。在第一个proc surveyselect内，因为每次的数据集排列顺序和seed都没有变，所以每次随机抽出的数据是相同的，想要改变这个只要每次循环改个seed就行。程序只是给你提供一个思路

但是是这样的，每个循环我要执行1000次，如果每次都改seed的话，这样写出来的循环也就没有意义了呀

seed=%eval(&seed.+&i.)