# NOT RUN {
# create a sequence object
s<-Sequence(alphabets=list(NucleotideAlphabet()),string="AATTGCCC")
# get the list of aggregated Site objects
getSites(s)
# get Site objects via virtual field
s$sites
# }
Run the code above in your browser using DataLab