# NOT RUN {
.srch <- search()
library(stats4)
inheritedSlotNames("mle")
if(require("Matrix")) withAutoprint({
  inheritedSlotNames("Matrix")       # NULL
  ## whereas
  inheritedSlotNames("sparseMatrix") # --> Dim & Dimnames
  ##  i.e. inherited from "Matrix" class
  cl <- getClass("dgCMatrix")        # six slots, etc
  inheritedSlotNames(cl) # *all* six slots are inherited
})
# }
# NOT RUN {
<!-- % currently, don't do this when running all examples: classes remain -->
<!-- % cached anyway : -->
## detach package we've attached above:
for(n in rev(which(is.na(match(search(), .srch)))))
   try( detach(pos = n) )
# }
# NOT RUN {
<!-- % end{dontrun} -->
# }
Run the code above in your browser using DataLab