d1 = as.Date("07-08-04")
d2 = as.Date("08-05-17")
d3 = as.Date("08-08-09")
d4 = as.Date("09-05-30")
d5 = as.Date("09-08-08")
d6 = as.Date("10-05-15")
d7 = as.Date("10-08-07")
d8 = as.Date("11-05-29")
d9 = as.Date("11-08-06")
d10 = as.Date("12-05-20")
d11 = as.Date("12-08-10")
d12 = as.Date("13-05-26")
d13 = as.Date("13-08-09")
d14 = as.Date("14-05-17")
d15 = as.Date("14-08-08")
d16 = as.Date("15-05-23")
d17 = as.Date("15-08-07")
d18 = as.Date("16-05-14")
d19 = as.Date("16-08-12")
d20 = as.Date("17-05-20")

teams07 = unique((allseason[which(as.Date(allseason$Date, "%d/%m/%Y") >= d1 & as.Date(allseason$Date, "%d/%m/%Y") <= d2),])$HomeTeam)
teams08 = unique((allseason[which(as.Date(allseason$Date, "%d/%m/%Y") >= d3 & as.Date(allseason$Date, "%d/%m/%Y") <= d4),])$HomeTeam)
teams09 = unique((allseason[which(as.Date(allseason$Date, "%d/%m/%Y") >= d5 & as.Date(allseason$Date, "%d/%m/%Y") <= d6),])$HomeTeam)
teams10 = unique((allseason[which(as.Date(allseason$Date, "%d/%m/%Y") >= d7 & as.Date(allseason$Date, "%d/%m/%Y") <= d8),])$HomeTeam)
teams11 = unique((allseason[which(as.Date(allseason$Date, "%d/%m/%Y") >= d9 & as.Date(allseason$Date, "%d/%m/%Y") <= d10),])$HomeTeam)
teams12 = unique((allseason[which(as.Date(allseason$Date, "%d/%m/%Y") >= d11 & as.Date(allseason$Date, "%d/%m/%Y") <= d12),])$HomeTeam)
teams13 = unique((allseason[which(as.Date(allseason$Date, "%d/%m/%Y") >= d13 & as.Date(allseason$Date, "%d/%m/%Y") <= d14),])$HomeTeam)
teams14 = unique((allseason[which(as.Date(allseason$Date, "%d/%m/%Y") >= d15 & as.Date(allseason$Date, "%d/%m/%Y") <= d16),])$HomeTeam)
teams15 = unique((allseason[which(as.Date(allseason$Date, "%d/%m/%Y") >= d17 & as.Date(allseason$Date, "%d/%m/%Y") <= d18),])$HomeTeam)
teams16 = unique((allseason[which(as.Date(allseason$Date, "%d/%m/%Y") >= d18 & as.Date(allseason$Date, "%d/%m/%Y") <= d20),])$HomeTeam)