# NOT RUN {
p<-BrownianInsertor(type="discrete")
# get type
getType(p)
# get upstream classes
class(p)
p<-BrownianInsertor(type="continuous")
# get type via virtual field
p$type
# get upstream classes
class(p)
# }
Run the code above in your browser using DataLab