if (interactive()) {
library(SIFT.Hsapiens.dbSNP132)
## metadata
metadata(SIFT.Hsapiens.dbSNP132)
## available rsid's
head(keys(SIFT.Hsapiens.dbSNP132))
## for column descriptions see ?SIFTDbColumns
columns(SIFT.Hsapiens.dbSNP132)
## subset on keys and columns
rsids <- c("rs2142947", "rs17970171", "rs8692231", "rs3026284")
subst <- c("RSID", "PREDICTION", "SCORE")
select(SIFT.Hsapiens.dbSNP132, keys=rsids, columns=subst)
select(SIFT.Hsapiens.dbSNP132, keys=rsids[1:2])
}
Run the code above in your browser using DataLab