if (FALSE) { # interactive()
# Get some `scores` objects:
my_scores_1 <- get_scores(c('PGS000012', 'PGS000013'))
my_scores_2 <- get_scores(c('PGS000013', 'PGS000014'))
#
# union()
#
# NB: with `union()`, PGS000013 is not repeated.
union(my_scores_1, my_scores_2)@scores
#
# intersect()
#
intersect(my_scores_1, my_scores_2)@scores
#
# setdiff()
#
setdiff(my_scores_1, my_scores_2)@scores
#
# setequal()
#
setequal(my_scores_1, my_scores_2)
setequal(my_scores_1, my_scores_1)
setequal(my_scores_2, my_scores_2)
}
Run the code above in your browser using DataLab