R/print.likert.gap.R

In bryanmayer/likert_custom: Functions to analyze and visualize likert type items

#' Prints results table.
#'
#' @param x the likert class to print.
#' @param ... parameters passed to \code{\link{print.data.frame}}.
#' @export
#' @method print likert.gap
#' @S3method print likert.gap
print.likert.gap <- function(x, ...) {
	cat('Satisfaction results:\n')
	print(x$results, ...)
	cat('\nImportance results:\n')
	print(x$importance$results, ...)
}