Nothing
#' Print a summary of an Euler diagram
#'
#' This function is responsible for printing fits from [euler()] and provides
#' a summary of the fit. Prints a data frame of the original set relationships
#' and the fitted values as well as `diagError` and `stress` statistics.
#'
#' @param x `'euler'` object from [euler()]
#' @param round number of decimal places to round to
#' @param vsep character string to paste in between `euler` objects
#' when `x` is a nested `euler` object
#' @param ... arguments passed to [base::print.data.frame()]
#'
#' @return Summary statistics of the fitted Euler diagram are printed to
#' screen.
#' @seealso [euler()], [base::print.data.frame()]
#'
#' @export
#' @examples
#' euler(organisms)
print.euler <- function(x,
round = 3,
vsep = strrep("-", 0.75*getOption("width")),
...)
{
stopifnot(is.numeric(round), length(round) == 1L, round > 0)
if (!is.null(attr(x, "groups"))) {
for (i in seq_along(x)) {
if (i != 1L && !is.null(vsep))
cat(vsep, "\n")
cat(names(x)[i], "\n")
print(x[[i]], round = round, ...)
}
} else {
print(round(data.frame("original" = x$original.values,
"fitted" = x$fitted.values,
"residuals" = x$residuals,
"regionError" = x$regionError),
digits = round), ...)
cat("\n")
cat("diagError:", round(x$diagError, digits = round), "\n")
cat("stress: ", round(x$stress, digits = round), "\n")
}
invisible(x)
}
#' Print a summary of a Venn diagram
#'
#' This function is responsible for printing objects from
#' from [venn()] and provides a simple description of the number of
#' sets and the specifications for the ellipses of the Venn diagram.
#'
#' @param x an object of class `'venn'`
#' @param round number of digits to round the ellipse specification to
#' @param vsep character string to paste in between `euler` objects
#' when `x` is a nested `euler` object
#' @param ... arguments passed to [base::print.data.frame()]
#'
#' @return Summary statistics of the fitted Venn diagram are printed to
#' screen.
#'
#' @seealso [venn()], [base::print.data.frame()]
#'
#' @export
#'
#' @examples
#' venn(organisms)
print.venn <- function(x,
round = 3,
vsep = strrep("-", 0.75*getOption("width")),
...)
{
stopifnot(is.numeric(round), length(round) == 1L, round > 0)
if (!is.null(attr(x, "groups"))) {
for (i in seq_along(x)) {
if (i != 1L && !is.null(vsep))
cat(vsep, "\n")
cat(names(x)[i], "\n")
print(x[[i]], round = round, ...)
}
} else {
n <- nrow(x$ellipses)
cat(n, "set Venn diagram", "\n\n")
print(round(x$ellipses, digits = round), ...)
}
invisible(x)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.