Rでベクトルにその要素が無いなら追加する関数

notin_add <- function(data,ad_data)
{
if(any(data == ad_data) == FALSE)
{
data = c(data,ad_data)
}

return(data)
}

使い方

自作関数なので、まずはRに先ほどのプログラムを読み込ませましょう。

関数は

notin_add(追加元のベクトル,ベクトルに追加したい要素)

として使います。では、実際に使用例を見ていきましょう。

使い方説明のために、aという数字をいくつか格納したベクトルを作成します。

a <- c(1,3,7,9,11,13)

このベクトルに5や17を追加するには、

notin_add(a,5)
[1] 1 3 7 9 11 13 5

notin_add(a,17)
[1] 1 3 7 9 11 13 17

と記述することで、出来ます。

そして、例えば3を追加しようした場合、3は既にベクトルの要素に含まれているので、追加されず、

notin_add(a,3)
[1] 1 3 7 9 11 13

というように、元のベクトルのままとなります。

※R言語入門のトップページはこちら