# NOT RUN {
# create a nucleotide sequence
s<-NucleotideSequence(string="ATATATATATATATATA")
# copy sites in the range 3:8 in a new object
s2<-copySubSequence(s,3:8)
s2
# copy sites 1,3 and 5 from s2
s3<-copySubSequence(s2,c(1,3,5))
s3
# }
Run the code above in your browser using DataLab