# NOT RUN {
# create a Site object with an Alphabet object attached
s<-Site(alphabet=Alphabet(symbols=c(0,1)), state=1);
# get current state
getState(s)
# get state via virtual field
s$state
# }
Run the code above in your browser using DataLab