this is my code:
library(tseries)
library(forecast)
library(ggplot2)
library(caret)
library(zoo)
mydata<- read.csv("C:/Users/Jasmine.Caur/Documents/data.csv")
View(mydata)
# generate all dates
mydata$day_date <- as.Date(mydata$day_date,format="%m/%d/%Y")
all_dates = seq(as.Date(as.yearmon(min(mydata$day_date))),
as.Date(as.yearmon(max(mydata$day_date))), by="day")
View(all_dates)
clean_data <- merge(data.frame(date = all_dates),
mydata,
by.x='date',
by.y='day_date',
all.x=T,
all.y=T)
# creating training data
training_data <- createDataPartition(clean_data, p = 0.7, list = FALSE)
View(training_data)