bikes_reading_data_part2.R

# Libraries
library(tidyverse)
library(lubridate)
library(prophet)
library(forecast)

# Read data
bikes <- read_csv('bikes.csv') %>%
    mutate(datetime = date(datetime))

# Separate data
train <- bikes %>% select(datetime, count, weather, temp, humidity, windspeed) %>%
    filter(datetime < ymd("2012-01-01")) %>%
    group_by(datetime) %>%
    summarise(y = sum(count),
              weather = mean(weather),
              temp = mean(temp),
              humidity = mean(humidity),
              windspeed = mean(windspeed)) %>%
    rename(ds = datetime)

valid <- bikes %>% select(datetime, count, weather, temp, humidity, windspeed) %>%
    filter(between(datetime, ymd("2012-01-01"), ymd("2012-06-30"))) %>%
    group_by(datetime) %>%
    summarise(y = sum(count),
              weather = mean(weather),
              temp = mean(temp),
              humidity = mean(humidity),
              windspeed = mean(windspeed)) %>%
    rename(ds = datetime)

test <- bikes %>% select(datetime, count, weather, temp, humidity, windspeed) %>%
    filter(datetime >= ymd("2012-07-01")) %>%
    group_by(datetime) %>%
    summarise(y = sum(count),
              weather = mean(weather),
              temp = mean(temp),
              humidity = mean(humidity),
              windspeed = mean(windspeed)) %>%
    rename(ds = datetime)