# NOT RUN {
# create a Sequence object with NucleotideAlphabet
#and BinaryAlphabet objects attached
s<-Sequence(alphabets=list(NucleotideAlphabet(),BinaryAlphabet()),length=5)
setStates(s,c("A","0"))
# get the list of attached Alphabet objects
getAlphabets(s)
# get Alphabets from a range
getAlphabets(s,c(2:3,5))
# get alphabets via virtual field
s$alphabets
# }
Run the code above in your browser using DataLab