Nothing
ModeOfSeries <- function(x) {
tsobjs <- c(
"zoo", "xts", "tslist", "tbl_ts", "timeSeries", "tbl_time", "tbl_df",
"data.table", "data.frame", "dts", "tis", "irts"
)
if (inherits(x, "xts")) { # xts may be also a ts, treat as xts
"tsbox"
} else if (inherits(x, "ts")) {
"ts"
} else if (inherits(x, tsobjs)) {
"tsbox"
} else if (is.numeric(x)) {
"numeric"
} else {
stop("series must be a time series object or numeric.", call. = FALSE)
}
}
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.