# NOT RUN {
# create objects
a<-NucleotideAlphabet()
p<-Process(alphabet=a)
s<-Site(alphabet=a)
# attach Process p to Site s
s$processes<-list(p)
# get active Event objects (empty list)
getEventsAtSite(p,s)
# }
Run the code above in your browser using DataLab