R Notebook

getwd()
library(dplyr)
library(lubridate)
library(foreign)  

goog = read.csv('weka3goog.csv', stringsAsFactors = F)

goog %>% glimpse()

goog = goog %>% mutate(Date1 = as.Date(Date))

goog <- goog[order(goog$Date1),]

write.arff(goog, file='goog.arff')
goog %>% glimpse()