# NOT RUN {
# }
# NOT RUN {
library("xts")
data(sample_matrix)
matrix_xts <- as.xts(sample_matrix, dateFormat = "Date")
head(matrix_xts)
class(matrix_xts)
highchart() %>%
hc_add_series_ohlc(matrix_xts)
library("quantmod")
x <- getSymbols("AAPL", auto.assign = FALSE)
y <- getSymbols("SPY", auto.assign = FALSE)
highchart() %>%
hc_add_series_ohlc(x) %>%
hc_add_series_ohlc(y)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab