Guest User

Untitled

a guest
Aug 20th, 2019
70
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. plot(forecast(na.omit(ar(transformed, order.max = 2)), h = 2), xlim = c(480, 510), ylim = c(2800, 3050), main = "", xlab = "Time", ylab = "USD")
  2. lines(prices[, "GSPC.Close"], col = "red")
  3. legend(502, 3025, legend = c("Signal", "Transformed", "Predicted"), col = c("red", "black", "blue"), lty = c(1, 1, NA), pch = c(NA, NA, 16))
RAW Paste Data