# NOT RUN {
# create an object
o<-Alphabet()
# toggle write protection
o$writeProtected<-TRUE
# check if it's write protected
getWriteProtected(o)
# check write protection via virtual field
o$writeProtected
# }
Run the code above in your browser using DataLab