SAS学习系列06.-使用SAS函数

06.使用SAS函数（一）创建并定义新变量可以在数据步中，利用赋值语句创建或重新定义新变量（列），语法：变量名=表达式;注：（1）表达式可以是数值或字符常量、数学表达式、函数等；（2）加减乘除幂：+-*/**，也可以使用括号。例1下面数据（C:\MyRawData\Garden.dat）是番茄、南瓜、豌豆、葡萄的重量：代码：datahomegarden;infile'c:\MyRawData\Garden.dat';inputName$1-7TomatoZucchiniPeasGrapes;Zone=14;Type='home';Zucchini=Zucchini*10;Total=Tomato+Zucchini+Peas+Grapes;PerTom=(Tomato/Total)*100;run;procprintdata=homegarden;title'HomeGardeningSurvey';run;运行结果：程序说明：（1）5-8行使用了5个赋值语句，第6行改写旧变量，运行结果将输出所有变量；（2）若观测值中有缺省值，相应的新变量也出现缺省值。（二）使用SAS函数一、SAS函数概述SAS自带数百个函数，主要包括以下函数类：字符/字符串函数日期/时间函数距离/州/邮编代码函数数学函数概率/描述统计/随机数函数金融函数宏函数变量信息函数函数基本调用形式（可以嵌套调用）：函数名(参数1,参数2,…);例2南瓜雕刻比赛的数据（C:\MyRawData\pumpkin.dat）包含了参赛者的名字、年龄、雕刻的南瓜类型、报名日期、五位裁判给出的分数：代码：datacontest;infile'c:\MyRawData\Pumpkin.dat';inputName$16.Age3.+1Type$1.+1DateMMDDYY10.(Scr1Scr2Scr3Scr4Scr5)(4.1);AvgScore=mean(Scr1,Scr2,Scr3,Scr4,Scr5);DayEntered=day(Date);Type=upcase(Type);/*转化为大写*/run;procprintdata=contest;title'PumpkinCarvingContest';run;运行结果：程序说明：（1）均值函数mean()返回非缺省值参数的平均值；（2）day()函数返回日期值距离1961年1月1日的天数。二、常用的数学函数int(x)取整（舍去小数）round(x)取整（四舍五入）log(x)取自然对数log10(x)取以10为底的对数max(x1,x2,…)返回最大值（忽略缺省值）min(x1,x2,…)返回最小值（忽略缺省值）mean(x1,x2,…)返回平均值（忽略缺省值）sum(x1,x2,…)返回求和值（忽略缺省值）n(x1,x2,…)返回非缺省值的个数nmiss(x1,x2,…)返回缺省值的个数三、常用的日期函数datejul(day)将日期数值day转化为Julian日期值today()返回今天的日期数值mdy(mm,dd,yy)将月mm、日dd、年yy转化为日期数值day(date)返回日期数值的日month(date)返回日期数值的月（1-12）year(date)返回日期数值的年qtr(date)返回日期数值的季（1-4）weekday(date)返回日期数值是周几（1=星期日）yrdif(date1,date2,‘AGE’)计算两个日期的“年龄差”示例：a=MDY(4,13,2000);b=MDY(8,13,2012);YRDIF(a,b,'AGE');返回12.3342注：（1）日期数值=当前日期距离1960年1月1日的天数；（2）Julian日期为当年的第多少天，例如2月1日是32.四、常用的字符串函数anyalnum(str,n)返回str从n位置开始，第一次出现字母或数字的位置示例：a='123ESt,#2';anyalnum(a);（默认）返回1；anyalnum(a,10);返回12anyalpha(str,n)返回str从n位置开始，第一次出现字母的位置anydigit(str,n)返回str从n位置开始，第一次出现数字的位置anyspace(str,n)返回str从n位置开始，第一次出现空格的位置cat(str1,str2,…)拼接字符串str1,str2,…，开头和末尾加上空格cats(str1,str2,…)拼接字符串str1,str2,…，忽略空格catx(‘sign’,str1,str2,…)拼接字符串（忽略空格），字符串间加分隔符signcompress(str,‘sign’)压缩字符串（去掉符号sign，默认去掉空格）index(str,‘sign’)返回字符或子串sign首次在字符串str中出现的位置left(str)左对齐字符串str示例：a='mycat';left(a);返回'mycat'lenth(str)返回str的长度（忽略末尾空格，缺省值长度是1）propcase(str)将字符串str第一个字母大写，其余小写substr(str,pos,n)从str第pos位置开始提取长度为n或直至结束的子串translate(str,‘to’,‘from’)将str中的字符‘from’换成‘to’tranwrd(str,‘from’,‘to’)将str中的字符串‘from’替换为‘to’示例：a='MainStreet';tranwrd(a,'Street','St');返回'MainSt'trim(str)去掉str末尾的空格upcase(str)将str所有字母转化为大写