附带:关联交易率程序及结果回归分析程序及结果说明:土木工程专业
程序部分:
导入portfolio.csv文件
data portfolio;
infile "D:\portfolio.csv" delimiter =',' MISSOVER DSD firstobs=2;
input Code1$ Code1Name$ Date Code2$ Code2Name$ ;
format date yymmdd10.;
informat date yymmdd10.;
run;
从文件夹 D:\csv中获取文件名、股票代码
filename folder pipe 'dir D:\csv /b'; /*指定待获取文件名的文件夹*/
data file_list;
length fname $13.; /*设定文件名的长度及变量名*/
infile folder truncover; /* 获取文件名 */
input fname $13.; /* 将文件名写入fname变量中*/
call symput ('num_files',_n_);
/* 将文件数量保存到宏变量num_files中*/
stockcode=substr(fname,8,2)||substr(fname,1,6);
/*获取股票代码*/
code=substr(fname,1,6);
run;
仅保存file_list数据集中包含在portfolio中的192只研究样本
proc sql;
delete from file_list
where file_list.code not in (select code1 from portfolio);
quit;
/*创建宏语句,并导出到文件:d:\port.txt*/
data importcsv;
set file_list;
filename= trim(fname);
a='%importcsv(';
b=',';
c=')';
file "d:\port.txt";
put a $ filename$ b $ stockcode $ c$;
run;
/*创建宏程序*/
%macro importcsv(filename,stockcode);
data test;/*导入股票数据*/
infile "D:\csv\&filename" delimiter =',' MISSOVER DSD firstobs=2;
input stockcode $ symbol $ date lagclose close updown turnover;
format date yymmdd10.;
informat date yymmdd10.;
run;
.................