Nothing
#' @title Plot the kern object
#' @description See kern
#' @details See kern
#' @rdname Kernel-functions
#' @importFrom graphics plot par
#' @export
#'
kern.plot <- function(scale = 12, shift = 0) {
par(mfrow = c(2, 2))
plot(c(kern(scale, "rectangular", shift), 0),
type = "s",
xlab = "", ylab = "", main = "rectangular"
)
plot(c(kern(scale, "triangular", shift), 0),
type = "s",
xlab = "", ylab = "", main = "triangular"
)
plot(c(kern(scale, "circular", shift), 0),
type = "s",
xlab = "", ylab = "", main = "circular"
)
plot(c(kern(scale, "gaussian", shift), 0),
type = "s",
xlab = "", ylab = "", main = "gaussian"
)
}
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.