Untitled
1 month ago in Plain Text
#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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31