2020/6/17: SAS ADVANCED 过经，加详细Lab机经，9.4版课本和选择题63+20

复习：3天看书注意是9.4版不是9版，老的9版800多页，新的9.4版只有400-500页。内容更改很多，千万别看错了。我上载了我自己看的9.4，虽然排版有问题，但基本可以看。
4天做题上级练习。刚好一周

上机：书本后十道题，机经，还有官网模拟考11题，我觉得足够了。
选择：63+20

在家考，全程顺利，提早45分钟做完了，也没检查就交卷了。两个Macro不会做，胡乱写的程序，一直报错。最后905过


选择17题全部在63+20上
填空，put _global_
Lab: 合计11题，除了两题不会做的MACRO，其他9题都在我归纳的LAB机经里。

LAB机经见下面：

注意事项：每道题写完程序要按名字保存在program里，然后打开program里的%scoreit()，这个括号里就是你保存的程序文件名，然后跑，看log，log告诉你要在答案里填的response value.
%scoreit()经常有问题。解决办法：把studio整个关掉再重开就好了。已经做完的部分不会遗漏。

ADV的考试结果不对但程序有写的话是有部分分数的，所以每道题要按要求保存program文件。

----------------------------------------------------------------------------------------------------------------------------
LAB我自己总结的机经：(数据用的是课本的附带数据，只有一个ARRAY题（第七题）我自己构建了一个简单的dataset。

1. 在proc SQL里创立一个table，table里读取某个文件所有的变量，但只显示另外一个文件里NAME存在的观察。

where name in (select name in cert.XXXX)

2. 在PROC SQL里面创建一个新的Variable，case expression:

Libanme certadv ‘/folders/myfolders/certadv;
proc sql;
        create table work.result as
                select  month, date, case
                        when RevCargo < 2000 then 'low'
                        when RevCargo < 24000 then 'middle'
                        else 'high'
                        end as new_var3
                from certadv.cargorev;
quit;



3. 让你建一个maro，在do loop里面写一个if语句;
%macro loop(start,end);
%do i =&start %to &end;
   %if &i>10 %then %do;
    data x&i;
        x=&i;
        run;
        %end;
%end;
%mend;
%loop(1,200);

.
4. 写一个array，把一个dataset的所有的missing value变成0-
Libname cert ‘/folders/myfolders/cert/input’;
Data miss;
Set cert.input04;
Array vars(*) _numeric_;
Do i=1 to dim(vars);
If vars(i)=. then vars(i)=0;
End;
Drop I;
Run;
.google  иProc print;
Run;


5. 写一个array，把var12-var15所有的missing value变0
.--
Libname cert ‘/folders/myfolders/cert/input’;
Data miss;
Set cert.input004;
Array vars(4) var12-var15;/注意：array的名字Vars不能和变量的名字重复，变量名字是var没有s
Do i=1 to 4
If vars(i)=. then vars(i)=0;/注意：这里是Array的名字
End;
Drop I;
Run;
Proc print;
Run;


. 1point3acres.com 6. proc fcmp IN to CM, 建好function后options cmplib=work.functions，然后建个新data里面有个新列newheight=IN to CM（height）cm=2.45IN

libname certadv ‘/folders/myfolders/certadv’;
proc fcmp outlib=work.function.add;
function add(inch);
cm=inch*2.45;
return(cm);
endsub;
run;
options cmplib=work.function;
data work.height;
set certadv.all;
Height=add(fee);
Run;
Proc print data=work.Height;
. 1point3acresRun;


7. array 把q1-q10的A，B，C，D，E换成1，2，3，4，5存在num1-num10中

proc import datafile=’/folders/myfolders/certadv/ABCDE.xlsx’
dbms=xlsx
out=abcde
replace;
run;
这里跑一次
data work.result;
SET abcde;
Drop i;
ARRAY qq (10) Q1-Q10;
ARRAY numnum (10) num1-num10;
DO i=1  to 10;
If  qq（i）=’A’ then numnum(i)=1;
Else If  qq（i）=’B’ then numnum(i)=2;
Else If  qq（i）=’C’ then numnum(i)=3;
Else If  qq（i）=’D’ then numnum(i)=4;
Else If  qq（i）=’E’ then numnum(i)=5;
End;
Run;
这里再跑第二次









8. 写出一个macro，包含global 的macro variable X，赋予其initial value：1.25，做do loop，by increment 0.25，%put X的值，直到2为止；
9. macro %check15用option在log里看 找到问题对应的内容就好 这个有两问 一问问 positional parameter 另一问问IF作用于哪个variable？还有一问是问里面data set 中if作用的variable是什么，这个就得%check15（10），我记得variable应该是age

%let x=1.25;

%macro loop(y);

%do %until （&y>2);
%put &y;
%let y=%sysevalf(&y+0.25);
%end;
%mend loop;
options mprint mlogic;
%loop(y=&x);



10. macro，用sql把region='AMR'的avg（var）存成一个macro variable 用into:mvar

proc sql;
select avg(RevCargo)
into: mvar
from certadv.cargorev
where Date=20160;

考试里是Where region='AMR' ; （注意：where 不是when ）
quit;



11. use SQL to create a new table that contains all unique values of Make and Type from cert.cars, and Rebate from cert.rebate. For Rebate, show Make and Type if matching; if no matching Make and Type, show missing. Only three variable: Make, Type, Rebate.

Proc sql;
Create table cert.car as
Select cars.make, cars.type, rebate.rebate
From cert.cars full join cert.rebate
On cars.make=rebate.make and on cars.type=rebate.type
Quit;

12. Hash form: 根据country19建立hash表，然后input contry20，根据key查表，成功的输出work.XXX, 失败的输出到work.errors。
length Country name $30;
if _n_=1 then do;
call missing(Country name);
declare hash C(dataset:'country19');
C.definekey('country_code');
C.definedata('country_name');
C.definedone();
end;
set country20;
rc=c.find( );
if rc=0 then output info19;
else output errors19;
run;

自己练习书本课后题：

Data work.success work.fail;
Drop rc;
Length Ctname $30;
If _N_=1 then do;
Call missing (Ctname);
Declare hash c(dataset:’certadv.continent’);
c.definekey(‘ID’);
c.definedata(‘Ctname’)
c.definedone();
end;
set certadv.airports;
rc=c.find();
if rc=0 then output work.success;
else output work.fail;
run;

proc print data=work.success;
run;


HASH要全部写完程序跑

第十一题，既然是要unique的value，是不是要在select的variable之前加一个distinct？

congratulation

正在整理lab的code就看到这个帖子，太感谢了！！！！

下周考试，正在复习，谢谢楼主整理的详细机经

Thank you so much!!!

很详细，感谢！

太有用了，感谢！

感激不尽

真不错啊啊啊啊啊

太棒的帖子了， 好详细，好整洁！