#do teams that win in the HALF TIME RESULT, win in the FULL TIME RESULT?? Half time result momentum?
epldata <- read.csv("/Users/Neville Munien/Downloads/FullEPL.csv")
epldata <- epldata[c(4, 5, 8, 11)]
#remove matches draw matches
#HTR
epldata <- subset(epldata, HTR!= "D")
#FTR
epldata <- subset(epldata, FTR!="D")
# of winnings in HTR how many away won in HT and how many home won in HT
HTRW <- table(epldata$HTR)
#Away winnings in HTR
epldata2 <- subset(epldata,HTR!="H")
#how many aways that won in the HTR also won in FTR
FTRW <- table(epldata2$FTR)
View(FTRW)
#Table of HTR home winnings
epldata3 <- subset(epldata, HTR!="A")
#how many home winnings continued to win in the second half
FTRWhome <- table(epldata3$FTR)
view(FTRWhome)
#How many games did away win in halftime then how many of them won in fulltime
#How many games did home win in halftime then how many of them won in fulltime