# NOT RUN {
# create a geometric FastFieldDeletor
p<-FastFieldDeletor()
# set/get tolerance margin
setToleranceMargin(p,0.8)
getToleranceMargin(p)
# set/get tolerance margin via virtual field
p$toleranceMargin<-0.75
p$toleranceMargin
# }
Run the code above in your browser using DataLab