library(lazytrade)
library(readr)
library(dplyr)
library(magrittr)
library(lubridate)
library(ggplot2)
data(DFR)
dir <- normalizePath(tempdir(),winslash = "/")
# create pdf file with two graphs
opt_create_graphs(x = DFR, outp_path = dir)
# only show time series plot
opt_create_graphs(x = DFR, graph_type = 'ts')
Run the code above in your browser using DataLab