Nothing
# #############################################################################
# methods for generic: plot()
# #############################################################################
#' @rdname methods_eseis
#' @method plot eseis
#' @export
plot.eseis <- function(x, y, ...) {
if (class(x)[1] == "eseis") {
if(x$meta$type == "waveform" |
x$meta$type == "envelope" |
x$meta$type == "hilbert") {
eseis::plot_signal(x, ...)
} else if(x$meta$type == "spectrum") {
eseis::plot_spectrum(x, ...)
} else if(x$meta$type == "spectrogram") {
eseis::plot_spectrogram(x, ...)
} else {
graphics::plot(x, ...)
}
}
else {
if (missing(y))
y <- NULL
graphics::plot.default(x, y, ...)
}
}
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.