Nothing
ev <- function(x){
UseMethod("ev", x)
}
ev.ts <- function(x){
result <- (x/stats::lag(x, k = -1) - 1) * 100
return(result)
}
ev.mts <- function(x){
result <- (x/stats::lag(x, k = -1) - 1) * 100
colnames(result) <- colnames(x)
return(result)
}
ev.xts <- function(x){
result <- (x / stats::lag(x, k = 1) - 1) * 100
return(result)
}
time_to_date <- function(x){
time <- time(x)
years <- as.integer(round(round(time,3) - (round(time,3) %% 1), 1))
months <- as.integer((time %% 1) * 12 + 1)
dates <- sprintf("%i-%02d-01", years, months)
dates <- as.Date(dates)
dates
}
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.