SAS基础宏之14：ChkDummyVar-经管之家官网！

经济学管理学金融学统计学

您当前的位置> 软件培训>>

SAS基础宏之14：ChkDummyVar

人大经济论坛-经管之家：分享大学、考研、论文、会计、留学、数据、经济学、金融学、管理学、统计学、博弈论、统计年鉴、行业分析包括等相关资源。
经管之家是国内活跃的在线教育咨询平台!

完整电子版已上线CDA网校，累计已有10万+在读~ 教材严格按考试大纲编写，适合CDA考生备考，也适合业务及数据分析岗位的从业者提升自我。

TOP热门关键词

专题页面精选

用于检查某变量是否是虚拟变量的宏，即是否只有1、0或缺失三种值%macroChkDummyVar(SourceTable,InputVar,FlagIsDummyVar);/**********************************************************************//*此宏的作用是 ...

免费学术公开课,扫码加入

用于检查某变量是否是虚拟变量的宏，即是否只有1、0或缺失三种值

%macro ChkDummyVar(SourceTable,InputVar,FlagIsDummyVar);
/**********************************************************************/
/* 此宏的作用是检查某数据表中的指定变量是否为虚拟变量，即取值只能为0*/
/* 或1。其中，SourceTable是原始表格；InputVar是指定的变量，若为多个变 */
/* 量，请用空格分隔；FlagIsDummyVar是标记宏变量名称，=1表示变量为虚拟 */
/* 变量，否则=0，若有多个InputVar变量，则不同位置上的1或0代表相应的变 */
/* 量是否是虚拟变量。注意，若某变量除含有0或1之外，还含有缺失值，则仍 */
/* 然认为其为虚拟变量。 */
/* */
/* 最终得到的是宏变量&FlagIsDummyVar，若该数据表中指定变量为虚拟变量，*/
/* 则&FlagIsDummyVar=1，否则=0，若为多个变量，则不同位置上的1或0代表*/
/* 相应的变量是否为虚拟变量。 */
/* */
/* Created on 2013.3.30 */
/* Modified on 2013.3.30 */
/**********************************************************************/
%if %SYSFUNC(FIND(&SourceTable,.)) NE 0 %then %do;
%let CDV_LibName=%UPCASE(%SCAN(&SourceTable,1,.));
%let CDV_MemName=%UPCASE(%SCAN(&SourceTable,2,.));
%end;
%else %do;
%let CDV_LibName=WORK;
%let CDV_MemName=%UPCASE(&SourceTable);
%end;
/* 检查SourceTable的存在性 */
%ChkDataSet(DataSet=&CDV_LibName..&CDV_MemName,FlagDataSetExists=CDV_FlagDataSetExists);
%if &CDV_FlagDataSetExists EQ 0 %then %do;
%put ERROR: The DataSet &SourceTable does not exist, please check it again.;
%goto exit;
%end;
/* 检查InputVar的存在性 */
%if %SYSFUNC(FIND(&InputVar,%STR(:))) NE 0 %then %do;
%GetVarListForTable(SourceTable=&SourceTable,
TargetTable=,
OutputVar=CDV_InputVar,
VarType=&InputVar);
%let InputVar=&CDV_InputVar;
%end;
%ChkVar(SourceTable=&SourceTable,InputVar=&InputVar,FlagVarExists=CDV_FlagInputVarExists);
%if %SYSFUNC(FIND(&CDV_FlagInputVarExists,0)) NE 0 %then %do;
%put ERROR: The InputVar "%SCAN(&InputVar,%SYSFUNC(FIND(&CDV_FlagInputVarExists,0)))" does not exist in SourceTable, please check it again.;
%goto exit;
%end;
/* 拆分InputVar */
%SeparateString(InputString=&InputVar,OutputString=CDV_InputVar);
/* 开始进行计算 */
%global &FlagIsDummyVar;
%let &FlagIsDummyVar=;
/* 检查InputVar的格式，若为字符型，则一定不是虚拟变量 */
%ChkVarType(SourceTable=&SourceTable,
InputVar=&InputVar,
FlagVarType=CDV_FlagInputVarType);
%do CDV_i=1 %to &CDV_InputVar_Num;
%if %SUBSTR(%UPCASE(&CDV_FlagInputVarType),&CDV_i,1) EQ C %then %do;
%let &FlagIsDummyVar=&&&FlagIsDummyVar..0;
%end;
%else %if %SUBSTR(%UPCASE(&CDV_FlagInputVarType),&CDV_i,1) EQ N %then %do;
proc sql noprint;
select COUNT(&&CDV_InputVar_Var&CDV_i) into :CDV_NumOfNonDummyValue
from &SourceTable
where &&CDV_InputVar_Var&CDV_i NE 0 AND &&CDV_InputVar_Var&CDV_i NE 1;
quit;
%if &CDV_NumOfNonDummyValue GT 0 %then %do;
%let &FlagIsDummyVar=&&&FlagIsDummyVar..0;
%end;
%else %do;
%let &FlagIsDummyVar=&&&FlagIsDummyVar..1;
%end;
%end;
%end;
/* 若要显示&FlagIsDummyVar的值，请取消下面的注释 */
/*%put &FlagIsDummyVar=&&&FlagIsDummyVar;*/
%exit:
%mend;
%macro Demo();
%let SourceTable=Have;
%let InputVar=a b c d;
%let FlagIsDummyVar=FlagIsDummyVar1;
%ChkDummyVar(&SourceTable,&InputVar,&FlagIsDummyVar);
%put &FlagIsDummyVar1;
%mend;

复制代码

「经管之家」APP：经管人学习、答疑、交友，就上经管之家！
免流量费下载资料----在经管之家app可以下载论坛上的所有资源，并且不额外收取下载高峰期的论坛币。
涵盖所有经管领域的优秀内容----覆盖经济、管理、金融投资、计量统计、数据分析、国贸、财会等专业的学习宝库，各类资料应有尽有。
来自五湖四海的经管达人----已经有上千万的经管人来到这里，你可以找到任何学科方向、有共同话题的朋友。
经管之家（原人大经济论坛），跨越高校的围墙，带你走进经管知识的新世界。
扫描下方二维码下载并注册APP

本文关键词：

本文论坛网址：https://bbs.pinggu.org/thread-2376553-1-1.html

上一篇 | 资本资产定价模型（厦门大学课件）

下一篇 | 国际四大会计师事务所毕马威财务分析

SAS软件培训精彩帖子推荐更多

您可能感兴趣的文章

本站推荐的文章

人气文章

本文标题：SAS基础宏之14：ChkDummyVar

本文链接网址：https://bbs.pinggu.org/jg/ruanjianpeixun_sasruanjianpeixun_2376553_1.html

1.凡人大经济论坛-经管之家转载的文章,均出自其它媒体或其他官网介绍,目的在于传递更多的信息,并不代表本站赞同其观点和其真实性负责；
2.转载的文章仅代表原创作者观点,与本站无关。其原创性以及文中陈述文字和内容未经本站证实,本站对该文以及其中全部或者部分内容、文字的真实性、完整性、及时性，不作出任何保证或承若；
3.如本站转载稿涉及版权等问题,请作者及时联系本站,我们会及时处理。

SAS基础宏之14：ChkDummyVar-经管之家官网！

SAS软件培训