chapter04_4-2.Rに対応したR Notebook

4.2 Rプログラミングの基礎(if, loop, 関数)

4.2.1 条件分岐(if)

if文

if文の例

#if statement
a <- 3 #aというオブジェクトに3を代入
if(a > 3) {　#「a > 3」という条件式で条件分岐させる
  #「a > 3」という条件式が真のときに次のコードが実行される
  cat("a is greater than 3.", "\n") #this is executed when the condition is true
} else {　#「a > 3」という条件式が偽のときに次のコードが実行される
  cat("a is less than or equal to 3.", "\n") #This is executed when the condition is not true
}

a is less than or equal to 3. 

[a > 3]という条件式の真(TRUE)／偽(FALSE)を判定する→aの値は3なので、当然偽(FALSE)である

a > 3

[1] FALSE

他の関係演算子の挙動を確認してみよう

a < 3    #aは3より小さい(=3未満)か？

[1] FALSE

a >= 3　#aは3以上か？

[1] TRUE

a <= 3　#aは3以下か？

[1] TRUE

a == 3　#aは3と等しいか？

[1] TRUE

a != 2　#aは2と等しくないか？

[1] TRUE

a == b #aはbと等しいか？

Error: object 'b' not found

if文の失敗例

#if statement
a <- 3 #aというオブジェクトに3を代入
if(a > 3) {　#「a > 3」という条件式で条件分岐させる
  #「a > 3」という条件式が真のときに次のコードが実行される
  cat("a is greater than 3.", "\n") #this is executed when the condition is true
} 
else {　#「a > 3」という条件式が偽のときに次のコードが実行される

Error: unexpected 'else' in "else"

else if文

a <- 2
if(a > 3) {  #条件式のチェック
  cat("a is greater than 3.", "\n") #「a > 3」という条件式が真のときにこのコードが実行される
} else if(a > 1) {
  cat("a is less than or equal to 3 but greater than 1.", "\n") #「a > 3」という条件式が満たされず、かつ「a > 1」が満たされるときにこのコードが実行される
} else{
  cat("a is less than or equal to 1.", "\n") #「a > 3」という条件式が満たされず、かつ「a > 1」も満たされないときにこのコードが実行される
}

a is less than or equal to 3 but greater than 1. 

4.2.2 繰り返し処理=ループ(for loop)

ループの例

n <- 10 #ループの回数を指定するオブジェクトnを用意して、10を代入
sum <- 0　#sumというオブジェクトの初期値を0に設定

#for loop 「ブロック」
for(j in 1:n) { #()の中でループの開始点(j = 1)と終了点(j = n)を指定
  sum <- sum + j　#sumの値にjを足したものを上書きする
}
print(sum)　#ループ終了後のsumの値を表示する

[1] 55

(ループを使わない場合)

sum <- 1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 + 10
print(sum)

[1] 55

4.2.3 関数

関数定義の形式

関数名 <- function(パラメータ名 = デフォルトの引数値) {
  関数の中身
  return(戻り値)
}

関数の使用例

関数定義の例1

f_sum <- function(n = 10) {
  sum <- n*(n + 1)/2
  return(sum)
}

関数の呼び出し

f_sum(n = 5)

[1] 15

f_sum()

[1] 55

関数定義と呼び出しの例2

#任意のnからmまで足し算をする関数
f_sum2 <- function(n = 3, m) {
  sum <- 0 #初期値の設定
  #for loopを使って足し算の繰り返しを実現
  for(j in n:m) { #for loopの開始点はn, 終了点はm
    sum <- sum + j
  }
  return(sum)
}
#関数呼び出し＆代入
test <- f_sum2(n = 100, m = 1000) #関数を呼び出して、戻り値をtestに代入
test

[1] 495550

関数定義・呼び出しにおける失敗ポイント

定義されていないパラメータに引数を渡す場合

f_sum(n = 100, m = 1000)

Error in f_sum(n = 100, m = 1000) : unused argument (m = 1000)

デフォルトの引数が指定されていない関数なのに引数を指定しなかった場合

f_sum2(n = 100)

Error in f_sum2(n = 100) : argument "m" is missing, with no default