あなたが使用することができますswitch
ここでは、最後の値がデフォルトです
switch (INCOME_CD ,
A= list(income.min = 1000,income.max = 14999),
B =list(income.min = 15000, income.max = 24999),
list(income.min = 99999,income.max = 999999))
例えば
INCOME_CD <- 'A'
上記のコードは
$income.min
[1] 1000
$income.max
[1] 14999
OPへの説明を編集する
通常、このコードは関数で使用します。
get.income <- function(INCOME_CD){
switch (INCOME_CD ,
A= list(income.min = 1000,income.max = 14999),
B =list(income.min = 15000, income.max = 24999),
list(income.min = 99999,income.max = 999999))
}
> get.income('A')
$income.min
[1] 1000
$income.max
[1] 14999
> get.income('B')
$income.min
[1] 15000
$income.max
[1] 24999
> get.income('C')
$income.min
[1] 99999
$income.max
[1] 999999