getSequence( chromosome, start, end, id, type, seqType, upstream, downstream, mart, verbose=FALSE)
if(interactive()){
mart <- useMart("ensembl",dataset="hsapiens_gene_ensembl")
seq = getSequence(id="BRCA1", type="hgnc_symbol", seqType="peptide", mart = mart)
show(seq)
seq = getSequence(id="1939_at", type="affy_hg_u95av2", seqType="gene_flank",upstream = 20, mart = mart)
show(seq)
}
Run the code above in your browser using DataLab