# NOT RUN {
# create an object
o<-Process()
# toggle write protection
setWriteProtected(o,TRUE)
# check write protection
o$writeProtected
# set write protection via virtual field
o$writeProtected<-FALSE
o$writeProtected
# }
Run the code above in your browser using DataLab