#' Print MHz Object
#'
#' @param x
#' MHz object
#' @param ...
#' Ignored.
#'
#' @name print-MHz
#' @rdname print-MHz
#' @method print MHz
#' @export
print.MHz <- function(x, ...)
{
cat(paste(paste(x, "MHz", collapse=" "), "\n"))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.