Nothing
.subset <- function (x, ...){
validObject (x)
x@data <- subset (x@data, ...)
validObject (x)
x
}
##' subset for hyperSpec object
##'
##' @title subset
##' @name subset
##' @param x hyperSpec object
##' @param ... handed to \code{\link[base]{subset}} (data.frame method)
##' @docType methods
##' @aliases subset subset,hyperSpec-method
##' @return hyperSpec object containing the respective subset of spectra.
##' @author Claudia Beleites
##' @seealso \code{\link[base]{subset}}
##' @export
setMethod ("subset", signature = signature (x = "hyperSpec"), .subset)
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.