# NOT RUN {
# create an object
o<-PSRoot()
# add some comments
setComments(o,"Random comment")
# get the comment
getComments(o)
# get/set the comment via virtual fiels
o$comments<-"Second random comment"
o$comments
# }
Run the code above in your browser using DataLab