Nothing
#' @title Print poly_trend
#' @description print method for class "poly.trend"
#'
#' @param x Object of class poly.trend
#' @param ... Ignored
#'
#' @return Prints trend model summary, order and trend confidence intervals
#'
#' @method print poly.trend
#' @export
print.poly.trend <- function(x, ...) {
cat("Polynomial trend model fit using a", x$order,
"order polynomial", "\n")
print(summary(x$model))
cat("", "\n")
cat("Summary of trend confidence intervals", "\n")
print(summary(x$trend[,2:3]))
}
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.