Commit 1846eba4 authored by Ilya Prokhorov's avatar Ilya Prokhorov

btc usd csv, readr package

parent 81d7c494
This source diff could not be displayed because it is too large. You can view the blob instead.
df <- read.csv("rub_usd.csv", colClasses = "character")
df <- read.csv("btc_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)
df$y = parse_number(df$y)
df$Open = parse_number(df$Open)
df$High = parse_number(df$High)
df$Low = parse_number(df$Low)
m <- prophet(df)
future <- make_future_dataframe(m, periods = 365)
forecast <- predict(m, future)
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