predictWebsiteHits.R

   1 library(jsonlite)
   2 library(fable)
   3 library(tsibble)
   4 library(lubridate)
   5
   6 logfile <- file("data/photos.vanrenterghem.biz.access.kvp.log")
   7
   8 apachelog <- stream_in(logfile)
   9
  10 #apachelog$time <- gsub("\\[|\\]", "", apachelog$time)
  11 apachelog %>%
  12   mutate(time = gsub("\\[|\\]", "", time),
  13            time = dmy_hms(time)) %>%
  14   group_by(time) %>%
  15   summarise(hits = n()) ->
  16   apachelog
  17
  18 as.tsibble(apachelog, index = time)