setwd('//home//wax//Documents//Cour2017-2018//machineLearning//')
list.filenames<-list.files(pattern=".csv$")
list.data<-list()
for(j in 1:length(list.filenames))
{
  list.data[[j]]<-read.csv(list.filenames[j], header=TRUE, sep=",")
}

write.csv(list.data[[1]][2:22], file = "allseason.csv",append=T)
for(i in 2:length(list.data)){
  write.table(list.data[[i]][2:22], "allseason.csv",col.names=F, sep=",", append=T)
}
allseason<-read.csv("allseason.csv", header=TRUE, sep=",")

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)

allteams = list(teams07,teams08,teams09,teams10,teams11,teams12, teams13,teams14,teams15,teams16)
dates = c(d1,d2,d3,d4,d5,d6,d7,d8,d9,d10,d11,d12,d13,d14,d15,d16,d17,d18,d19,d20)
inc = 0
length(allteams)
for (i in seq(allteams)) {
  print(paste("saison",6+i))
  k = 0
  l = 1
  for(t in allteams[[i]]){
    homeTeam = allData[which((allData$HomeTeam==allteams[[1]][k+1]) & as.Date(allData$Date , "%d/%m/%Y") >= dates[l]  & as.Date(allData$Date , "%d/%m/%Y") <= dates[l+1]),]
    homeTeam$FTR <- as.character(homeTeam$FTR)
    homeTeam$FTR <- replace(homeTeam$FTR,homeTeam$FTR == "H","3")
    homeTeam$FTR <- replace(homeTeam$FTR,homeTeam$FTR == "A","0")
    homeTeam$FTR <- replace(homeTeam$FTR,homeTeam$FTR == "D","1")
    resultHomeTeam = sum(as.integer(homeTeam$FTR))

    awayteam = allData[which((allData$AwayTeam==allteams[[1]][k+1]) & as.Date(allData$Date , "%d/%m/%Y") >= dates[l]  & as.Date(allData$Date , "%d/%m/%Y") <= dates[l+1]),]
    awayteam$FTR <- as.character(awayteam$FTR)
    awayteam$FTR <- replace(awayteam$FTR,awayteam$FTR == "H","0")
    awayteam$FTR <- replace(awayteam$FTR,awayteam$FTR == "A","3")
    awayteam$FTR <- replace(awayteam$FTR,awayteam$FTR == "D","1")
    resultAwayteam = sum(as.integer(awayteam$FTR))
    print(paste(resultHomeTeam+resultAwayteam,allteams[[1]][k+1]))
    k = k+1
  }
  print(paste(""))
  print(paste(""))
  print(paste(""))
  print(paste(""))
  l = l+2
}