(x <- c(sort(sample(1:20, 9)),NA)) (y <- c(sort(sample(3:23, 7)),NA)) union(x, y) intersect(x, y) setdiff(x, y) setdiff(y, x) setequal(x, y) 結果 > (x <- c(sort(sample(1:20, 9)),NA)) [1] 3 4 6 9 11 12 14 18 19 NA > (y <- c(sort(sample(3:23…