#' @import ggplot2
#' @export
plot.prophet_shf <- function(x, ...) {
ggplot(x$observed, aes_string("x", "value")) +
geom_point() + geom_smooth(method = "loess", se = FALSE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.