## setMethod("show",
## signature(object = "SummaryLifeTable"),
## function(object) {
## mx <- object@mx
## cat("An object of class \"", class(object), "\"\n\n", sep = "")
## cat("dimensions:\n")
## limits <- dembase::limits(mx)
## limits[] <- lapply(limits, as.character)
## first <- limits["first", ]
## last <- limits["last", ]
## first <- as.character(first)
## last <- as.character(last)
## m <- rbind(`name:` = names(mx),
## `length:` = dim(mx),
## `dimtype:` = dembase::dimtypes(mx),
## `dimscale:` = dembase::dimscales(mx),
## `first:` = first,
## `last:` = last)
## colnames(m) <- rep("", ncol(m))
## print(m, quote = FALSE)
## cat("\ndefault functions:", paste(object@showFun, collapse = ", "), "\n")
## cat("radix:", object@radix, "\n")
## })
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.