# NOT RUN {
# create a Sequence object with some Alphabet objects attached
s<-Sequence(
alphabets=list(NucleotideAlphabet(),
BinaryAlphabet(),
NucleotideAlphabet()),
length=10
)
# get the list of attached alphabets
s$alphabets
# get the unique list of attahced Alphabet objects
getUniqueAlphabets(s)
# }
Run the code above in your browser using DataLab