2つのベクトルの両方に含まれる要素(メモ)
appear <- function(x, vec){ sapply(x, function(a){ any(vec==a) }) } two <- 2 * 1:10 thr <- 3 * 1:10 two[appear(two, thr)]
appear <- function(x, vec){ sapply(x, function(a){ any(vec==a) }) } two <- 2 * 1:10 thr <- 3 * 1:10 two[appear(two, thr)]