#' convert data frame object, where first column is a date vector, to an xts object
#'
#' @param rawDataFrame
#'
#' @return xts object
#'
#' @examples
#' none
#'
#' @export
toXTS <- function(rawDataFrame){
xtsObject <- xts( x = rawDataFrame[,-1] #exclude date column
, order.by = as.Date(rawDataFrame[,1]) #select date column
)
return(xtsObject)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.