if(interactive()){
mart <- useMart("ensembl", dataset="hsapiens_gene_ensembl")
#seq<-getSequence(chromosome=c(2,2),start=c(100000,30000),end=c(100300,30500),mart=mart)
#exportFASTA(seq,file="test.fasta")
martDisconnect(mart = mart)
}
Run the code above in your browser using DataLab