# NOT RUN {
# create a site object
s<-Site()
# create an Alphabet object
a<-Alphabet(c("A","T","G"))
# attach alphabet to site object
setAlphabet(s,a)
# get attached alphabet
getAlphabet(s)
# get attached alphabet via virtual field
s$alphabet
# }
Run the code above in your browser using DataLab