1行プログラムその5：有無変数

有無変数を１行でつくる方法を紹介。

サンプルデータ作成

---

data DT1; length NO $3. ALLERGY $20.; input NO$ ALLERGY$; cards; 001 花粉症 002 . 003 猫アレルギー ; run; データセットDT1 NO   ALLERGY 001    花粉症 002    003    猫アレルギー

やりたい事

---

サンプルに対して、以下の有無変数を作成したい。

【アレルギー有無】 ALLEYN 【導出方法】 アレルギー（ALLERGY）に記載がある場合「2：有」、それ以外「1：無」とする。 欲しい結果 NO   ALLERGY       ALLEYN 001   花粉症               2 002                            1 003   猫アレルギー       2

１行プログラム

---

*** 有無変数を1行で作るいくつかの方法 ******************; data DT2;     set DT1;     *** 通常のやり方 ;     if  ALLERGY^="" then  ALLEYN = 2;     else  ALEEYN = 1;     *** 方法① 真偽値 ;     ALLEYN1 = (ALLERGY^="") +1;     *** 方法② WHICHN関数 ;     ALLEYN2 = whichn(1,  ALLERGY="",  ALLERGY^="");     *** 方法③ IFN関数 ;     ALLEYN3 = ifn(ALLERGY^="",  2, 1); run;

解説
--- 方法① ------------
論理式の結果が「1:TRUE」か「0:FALSE」で返されるので、それに+1してやれば有無変数になります。

--- 方法② ------------
このやり方については「こちら」で解説してます。

--- 方法③ ------------
IFN関数の構文は「IFN(論理式,  論理式がTRUEの戻り値,   論理式がFALSEの戻り値)」でEXCELのIF関数に似てる。
ただし返す戻り値が数値の場合はIFN、文字の場合はIFCと使い分ける必要があります。


１行プログラム番外編

---

有無変数を「NO、YES」と文字で持たせたい場合は以下のようになります。

data DT2;     set DT1;       length ALLEYN4 ALLEYN5 $10.;     *** 方法① IFC関数 ;     ALLEYN4 = ifc(ALLERGY^="",  "YES",  "NO");     *** 方法② CHOOSEC関数 ;     ALLEYN5 = choosec((ALLERGY^="")+1,  "NO",  "YES"); run;

解説
--- 方法① ------------
前述したIFN関数を使うやり方と同様。

--- 方法② ------------
真偽値と「こちら」で紹介したやり方をミックスした方法です。


注意点

---

今回紹介した方法は、有無の条件が排反である場合に限ります。
（有無が「有」になる条件以外すべて「無」になるような裏と表の関係）