datathon_playing.R

library(readr); library(dplyr); library(lubridate)

dat_2 <- read_csv("Datathon WC Data Games 11-20.csv")
glimpse(dat_2)



dat_3 <- read_csv("Datathon WC Data Games 21-30.csv")

as_datetime <- function(x){
  out <- as.POSIXct(x, format = "%d/%m/%Y %I:%M:%S %p", tz = "UTC")
  out
}

# Transforming date columns

jimsfunction <- function(x){
  x <- x %>% mutate(
    EVENT_DT = as_datetime(EVENT_DT),
    OFF_DT = as_datetime(OFF_DT),
    diff = difftime(EVENT_DT, OFF_DT)
  )
  x
}



dat_3 <- dat_3 %>% mutate(
  EVENT_DT = as_datetime(EVENT_DT),
  OFF_DT = as_datetime(OFF_DT),
  diff = difftime(EVENT_DT, OFF_DT)
)

dat_3 <- dat_3 %>% group_by(ACCOUNT_ID) %>%
  mutate(cumulative_number_bets = 1:n()) %>% ungroup %>%
  group_by(ACCOUNT_ID,MATCH_BET_ID) %>%
  mutate(number_of_bets_match = n())

glimpse(dat_2)

all_dat <- bind_rows(dat_2, dat_3)

#