#' Check if the object x is of class spectral
#'
#' @export
#' @importFrom methods is
#' @param x Object to check if it is of class spectral
#' @return TRUE if x is of class spectral. FALSE otherwise
is.spectral <- function(x) {
is(x, "spectral")
}
#' Print a short description of the spectral object
#'
#' @export
#' @param x Object of class spectral
#' @param ... Further arguments to be passed from or to other methods.
print.spectral <- function (x, ...) {
print(sprintf("Spectral signatures of %d files", nrow(x$data)))
}
#' Print the summary of the spectral object
#'
#' @export
#' @param object Object of class spectral
#' @param ... Further arguments to be passed from or to other methods.
summary.spectral <- function (object, ...) {
print(sprintf("Spectral signatures of %d files\n\n", nrow(object$data)))
cat("\nRanges\n")
max(as.numeric(object$range))
cat(sprintf(" Length: %s\n", length(as.numeric(object$range))))
cat(sprintf(" Min: %s\n", min(as.numeric(object$range))))
cat(sprintf(" Max: %s\n", max(as.numeric(object$range))))
cat("\nFiles\n")
print(object$files)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.