# NOT RUN {
# create a sequence with a process attached
s<-Sequence(
string="ATGC",
alphabets=list(NucleotideAlphabet()),
processes=list(list(JC69()))
)
# get the active events from range 1:3
getEvents(s,1:3)
# get all active events via virtual field
s$events
# }
Run the code above in your browser using DataLab