# NOT RUN {
# create a sequence object
s<-Sequence(length=4)
# get ancestral object
getAncestral(s) # newly created sequences have the "Root insertion process" as ancestral
# clone sequence
cs<-clone(s)
# get ancestral object id via virtual field
cs$ancestral$id
# }
Run the code above in your browser using DataLab