# NOT RUN {
# create a GeneralInDel object
# proposing event lengths in the range 1:10
o<-GeneralInDel(rate=1, propose.by=function(process){sample(c(1:10),1)});
# propose indel length
proposeLength(o)
# }
Run the code above in your browser using DataLab