#' 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, ...)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.