## the super- and subclasses of "standardGeneric"
## and "derivedDefaultMethod"
am <- classesToAM(list(class(show), class(getMethod(show))), TRUE)
am
## Not run: 
# ## the following function depends on the Bioconductor package Rgraphviz
# plotInheritance <- function(classes, subclasses = FALSE, ...) {
#     if(!require("Rgraphviz", quietly=TRUE))
#       stop("Only implemented if Rgraphviz is available")
#     mm <- classesToAM(classes, subclasses)
#     classes <- rownames(mm); rownames(mm) <- colnames(mm)
#     graph <-  new("graphAM", mm, "directed", ...)
#     plot(graph)
#     cat("Key:\n", paste(abbreviate(classes), " = ", classes, ", ",
#         sep = ""),  sep = "", fill = TRUE)
#     invisible(graph)
# }
# 
# ## The plot of the class inheritance of the package "graph"
# require(graph)
# plotInheritance(getClasses("package:graph"))
# 
# ## End(Not run)
Run the code above in your browser using DataLab