Mnozinove funkcie

(x <- c(sort(sample(1:20, 9)), NA));
(y <- c(sort(sample(3:23, 7)), NA));
vystupZjednotenie = union(x, y)
vystupPrienik = intersect(x, y)
vystupZRozdiel = setdiff(x, y)
vystupZRozdiel2 = setdiff(y, x)
vystupZPorovnanie =setequal(x, y)

x;y;vystupZjednotenie;vystupPrienik;vystupZRozdiel;vystupZRozdiel2;vystupZPorovnanie;