if (FALSE) { # interactive()
# Get a few polygenic scores:
my_scores <- get_scores(sprintf('PGS%06d', 10:14), progress_bar = FALSE)
#
# Subsetting by position
#
my_scores[c(1, 3, 5)]@scores
#
# Subsetting by PGS identifier (character)
#
my_scores[c('PGS000011', 'PGS000014')]@scores
}
Run the code above in your browser using DataLab