# NOT RUN {
# create a DiscreteInsertor object
i<-DiscreteInsertor(rate=1, sizes=1:3)
# set/get length probabilities
setProbs(i,c(1/3,1/3,1/3)) # equal probabilites
getProbs(i)
# set/get length probabilities via virtual field
x<-c(2,2,1)
# normalize x
x<-x/sum(x)
i$probs<-x
i$probs
# }
Run the code above in your browser using DataLab