# NOT RUN {
data <- data.table::data.table(DateTime = as.Date(Sys.time()),
Target = stats::filter(rnorm(1000,
mean = 50,
sd = 20),
filter=rep(1,10),
circular=TRUE))
data[, temp := seq(1:1000)][, DateTime := DateTime - temp][, temp := NULL]
data <- data[order(DateTime)]
p <- ggplot2::ggplot(data, ggplot2::aes(x = DateTime, y = Target)) + ggplot2::geom_line()
p <- p + ChartTheme(Size = 12)
# }
Run the code above in your browser using DataLab