R/working.R

In 3schwartz/AFD:

library(readxl)
library(lubridate)

dfex <- read_excel("C:/Users/Soren Schwartz/Dropbox/Egne dokumenter/Skole/Teori/Analyzing financial data and implementing financial models using r/price_bitcoin_180627_180630_1min.xlsx",
               range = cell_limits(c(25, 2), c(NA, 10)))

View(dfex)

date <- as.Date(dfex$`Local Time`)
class(date)
head(date)