EVOLUTION-MANAGER

Edit File: chartSeries.R

# chartSeries demo # Jeffrey A. Ryan 2008 require(quantmod) chartSeries.demo <- function(x) { data(sample_matrix, package="xts") data <- as.xts(sample_matrix) cat("A simple xts object:\n") print(str(data)) cat("chartSeries(data)\n") chartSeries(data) readline("Press <Enter> to continue") cat("Now we can add builtin indicators:\n\n") cat("Moving Average Convergence Divergence Indicator (from TTR)\n> addMACD()\n") plot(addMACD()) readline("Press <Enter> to continue") cat("Add Bollinger Bands\n> addBBands()\n") plot(addBBands()) readline("Press <Enter> to continue") cat("Drop Bollinger Bands\n> dropTA('BBands')\n") dropTA('BBands') readline("Press <Enter> to continue") cat("Zoom chart from full data to last 3 months\n> zoomChart(\"last 3 months\")\n") zoomChart('last 3 months') readline("Press <Enter> to continue") cat("Zoom back to full data\n> zoomChart()\n\n") zoomChart() rm(data) } chartSeries.demo(data)