Commit 81d7c494 authored by Ilya Prokhorov's avatar Ilya Prokhorov

RUB USD analytics from Facebook prophet quick start manual

parent eb9882da
df <- read.csv("rub_usd.csv", colClasses = "character")
df$ds = anydate(df$ds)
df$y = as.numeric(df$y)
df$Open = as.numeric(df$Open)
df$High = as.numeric(df$High)
df$Low = as.numeric(df$Low)
m <- prophet(df)
future <- make_future_dataframe(m, periods = 365)
forecast <- predict(m, future)
tail(forecast[c('ds', 'yhat')])
prophet_plot_components(m, forecast)
\ No newline at end of file
This source diff could not be displayed because it is too large. You can view the blob instead.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment