obj <- new("VersionedBiobase")
isVersioned(obj)
isVersioned(1:10) # FALSE
A <- setClass("A", contains="VersionedBiobase",
prototype=prototype(new("VersionedBiobase", versions=c(A="1.0.0"))))
a <- A()
isVersioned(a)
removeClass("A")
Run the code above in your browser using DataLab