## 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 DataCamp Workspace