【正文】 seed) 產(chǎn)生標(biāo)準(zhǔn)正態(tài)分布隨機(jī)數(shù)，利用變換抽樣法 RANEXP(seed) 產(chǎn)生λ =1 的指數(shù)分布隨機(jī)數(shù) RANGAM(seed,alpha) 產(chǎn)生伽馬分布隨機(jī)數(shù)， alpha0,seed 為任意數(shù)值 RANTRI(seed,h) 產(chǎn)生三角分布隨機(jī)數(shù)， 0h1,seed 為任意數(shù)值 RANCAU(seed) 產(chǎn)生標(biāo)準(zhǔn)柯西分布隨機(jī)數(shù) RANBIN(seed,n,p) 產(chǎn)生二項(xiàng)分布隨機(jī)數(shù)， n0 的整數(shù) ,0p1,seed 為任意數(shù)值 RANPOI(seed,lambda) 產(chǎn)生泊松分布隨機(jī)數(shù)， lambda0,seed 為任意數(shù)值 RANTBL(seed,p1,…,p2,…pn) 產(chǎn)生離散分布隨機(jī)數(shù)， 0≤ pi≤ 1,seed 為任意數(shù)值 注：種子 seed 一般取 0，或 5 位， 6 位， 7 位的奇整數(shù)。 ? Array x{5,3} T1T15 。 第一種方式表示定義了一個(gè)一維名為 X 的數(shù)組，它有三個(gè)元素，對(duì)應(yīng)的變量為 T1， T2和 T3。第五種方式下標(biāo)用星號(hào) *來(lái)代替，表示 SAS 系統(tǒng)通過(guò)數(shù)組中的變量個(gè)數(shù)來(lái)確定下標(biāo)。程序如下： Data DoArray 。 a{i}=(X1+X2+X3)*i 。 Run 。 3. 在循環(huán) DO 組中使用 OUTPUT 語(yǔ)句產(chǎn)生數(shù)據(jù)集 如果在 DO－ END 內(nèi)循環(huán)結(jié)束語(yǔ)句 END 前插入一條 OUTPUT 語(yǔ)句，那么每次內(nèi)循環(huán)將輸出一條觀測(cè)，而不是內(nèi)循環(huán)所產(chǎn)生的所有變量值只輸出在一條觀測(cè)中。但如果新增變量值是歷史觀測(cè)中原變量值和循環(huán)變量值的函數(shù)值時(shí)，首先考慮是將歷史觀測(cè)中原變量值取到中間變量，例如數(shù)組變量中。 我們這里給出了 RETAIN 語(yǔ)句幾種常用的使用格式： ? Retain 。 ? Retain T1 T2 T3 (100 99 98 ) 。第四種使用格式是將初始值 100 用小括號(hào)括起來(lái)， SAS 系統(tǒng)將分配括號(hào)中的這個(gè)值給變量列表中的第一個(gè)變量，即 T1=100， T2 和 T3 為缺失值。昨天和前天收盤(pán)價(jià)數(shù)據(jù)要在產(chǎn)生時(shí)用 RETAIN 語(yǔ)句事先保留下來(lái)，在計(jì)算當(dāng)日移動(dòng)平均價(jià)時(shí)才不至于取到缺失值，而不能計(jì)算。 Array a{4} 。 t=0 。 End 。 i=i+1 。 程序中使用了自動(dòng)變量 _n_，它自動(dòng)存放當(dāng)前觀測(cè)的邏輯順序號(hào)。如果指定數(shù)組 a{i}，產(chǎn)生的數(shù)據(jù)集只有 DATE、 CLOSE 和MOVEAVER 三個(gè)變量。 對(duì)于只有少量觀測(cè)的數(shù)據(jù)集，我們還可以編寫(xiě)如下程序： Data MAV(Keep= date close moveaver) 。 a{ _n _}= close 。 Do i =_n _ － day + 1 to _n _ 。 End 。 這個(gè)程序的特點(diǎn)是將歷史記錄的收盤(pán)價(jià)全部存放到數(shù)組 a{i}中，因此 程序編寫(xiě)簡(jiǎn)單和短 圖 用循環(huán) DO 組、數(shù)組和 RETAIN 語(yǔ)句所產(chǎn)生的 MAV 數(shù)據(jù)集 81edb6ff5799cbd72b415b6e1b9a8a6b SAS 系統(tǒng)和數(shù)據(jù)分析 電子 商務(wù)系列 上海財(cái)經(jīng)大學(xué)經(jīng)濟(jì)信息管理系 IS/SHUFE Created by Page 14 of 20 小，容易理解，執(zhí)行速度快。例如求 3 日移動(dòng)平均線相應(yīng)的程序如下： Data MAV 。 19MAY99 20MAY99 21MAY99 24MAY99 25MAY99 Proc print data= MAV 。 SELECT— WHEN 結(jié)構(gòu)非常類(lèi)似其他程序語(yǔ)言中的 DO CASE 結(jié)構(gòu)。最后用一個(gè) END 語(yǔ)句 結(jié)束這個(gè) SELECT 組。 要特別注意，一個(gè) SELECT 組是按順序判斷 WHEN語(yǔ)句，一旦某個(gè) WHEN語(yǔ)句滿足條件執(zhí)行了，就跳出這個(gè) SELECT 組。 程序如下： Libname Study “d:\sasdata\mydir” 。 Select 。 Otherwise grade=”D” 。 程序運(yùn)行結(jié)果見(jiàn)圖 所示。 當(dāng)我們?cè)趧?chuàng)建 SAS 數(shù)據(jù)集時(shí)使用 IF 語(yǔ)句的格式之一，可以根據(jù)被處理的觀測(cè)是否使 IF條件表達(dá)式為真，來(lái)決定是否執(zhí)行 THEN 后面的 SAS 語(yǔ)句。 1. 使用 IF— THEN/ELSE 語(yǔ)句 例如，我們有一個(gè) SURVEY 數(shù)據(jù)集，其中有人的身高 HEIGH和體重 WEIGHT 數(shù)據(jù)，現(xiàn)在我們要?jiǎng)?chuàng)建一個(gè)新的數(shù)據(jù)集 SURVEY02，新的數(shù)據(jù)集新增一個(gè)變量 FATNESS，用以標(biāo)識(shí)這個(gè)人是否肥胖。 Data Survey02 。 else If weight=(heigh*100102)* then fatness=y。 在使用 IF— THEN/ELSE 語(yǔ)句的多層嵌套結(jié)構(gòu)時(shí)要注意兩點(diǎn)：一是要以鋸齒型來(lái)排列一81edb6ff5799cbd72b415b6e1b9a8a6b SAS 系統(tǒng)和數(shù)據(jù)分析 電子 商務(wù)系列 上海財(cái)經(jīng)大學(xué)經(jīng)濟(jì)信息管理系 IS/SHUFE Created by Page 17 of 20 組組 IF— THEN/ELSE 語(yǔ)句，目的是為了通過(guò)程序書(shū)寫(xiě)格式就能明確 IF— THEN/ELSE語(yǔ)句的層次和配對(duì)。例如，我們要從 SURVEY 數(shù)據(jù)集中挑選出所有男性觀測(cè)來(lái)產(chǎn)生一個(gè)新數(shù)據(jù)集SURVEY03。 if sex=M ； Proc print data= Survey03 。要注意 GOTO 語(yǔ)句只能在同一個(gè) DATA步中進(jìn)行轉(zhuǎn)移。 ?? 。 GOTO 語(yǔ)句是一種非結(jié)構(gòu)化程序設(shè)計(jì)語(yǔ)句，它通過(guò)語(yǔ)句標(biāo)號(hào) 可轉(zhuǎn)移到任意目的地的特性常常破壞程序的結(jié)構(gòu)化，許多其他語(yǔ)言都不主張使用或禁止使用。例如，我們81edb6ff5799cbd72b415b6e1b9a8a6b SAS 系統(tǒng)和數(shù)據(jù)分析 電子 商務(wù)系列 上海財(cái)經(jīng)大學(xué)經(jīng)濟(jì)信息管理系 IS/SHUFE Created by Page 18 of 20 要對(duì)當(dāng)前輸入的一組成績(jī)數(shù)據(jù) TEST 進(jìn)行動(dòng)態(tài)統(tǒng)計(jì)，計(jì)數(shù)到目前輸入為止不及格（ 60 分）的人數(shù) COUNTIF，和累計(jì)的總分 ACCTEST（包括不及格的分?jǐn)?shù)）。 input test 。 ok: acctest=acctest+test 。 程序運(yùn)行結(jié)果如圖 所示。 圖 用 GOTO 語(yǔ)句設(shè)計(jì)的條件計(jì)數(shù)器和累加器 81edb6ff5799cbd72b415b6e1b9a8a6b SAS 系統(tǒng)和數(shù)據(jù)分析 電子 商務(wù)系列 上海財(cái)經(jīng)大學(xué)經(jīng)濟(jì)信息管理系 IS/SHUFE Created by Page 19 of 20 五、 實(shí)現(xiàn)連接（ LINK 語(yǔ)句） LINK 連接語(yǔ)句的作用是立即轉(zhuǎn)到由 LINK 語(yǔ)句指示的語(yǔ)句標(biāo)號(hào)，并從那里開(kāi)始繼續(xù)執(zhí)行語(yǔ)句直到一個(gè) RETURN 語(yǔ)句被執(zhí)行。 ?? 。 RETURN 。 Run 。每一個(gè)子程序的 RETURN 語(yǔ)句能正確地返 回調(diào)用點(diǎn)，而不發(fā)生混亂，是通過(guò)內(nèi)部的堆棧結(jié)構(gòu)實(shí)現(xiàn)的。因此，沒(méi)有 LINK 和 RETURN 語(yǔ)句的數(shù)據(jù)步，執(zhí)行到最后 DATA 結(jié)束處，是通過(guò)隱含的 RETURN 語(yǔ)句返回到數(shù)據(jù)步 DATA 開(kāi)頭。子程序中我們用前面已介紹過(guò)的 SELECT— WHEN 選擇語(yǔ)句進(jìn)行轉(zhuǎn)換。 Retain test 0 grade 39。 link recode 。 grade2=grade 。 Return 。 when(test=80) grade=39。 otherwise grade=39。 Proc print data= 。每條觀測(cè)需要調(diào)用三次這個(gè)子程序， Test 變量的值分別來(lái)自數(shù)據(jù)集字段變量 Test Test Test3。 圖 用 LINK 語(yǔ)句調(diào)用子程序來(lái)創(chuàng)建數(shù)據(jù)集