# 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