# NOT RUN {
# create a BrownianInsertor object
p<-BrownianInsertor(scale=0.002)
# set/get scale parameter
setScale(p,0.1)
getScale(p)
# set/get scale parameter via virtual field
p$scale<-0.1
p$scale
# }
Run the code above in your browser using DataLab