GetNumberOfTOForTeams <- function(file)
{
	a = c()
	b = c()
	home = substr(file, 13, 15)
	away = substr(file, 10, 12)
	for (i in 1:length(files))
	{
		if (substr(files[i], 10, 12) == home || substr(files[i], 13, 15) == home)
		{
			a = c(a, GetNumberOfTO(d[[i]], home))
		}
		if (substr(files[i], 10, 12) == away || substr(files[i], 13, 15) == away)
		{
			b = c(b, GetNumberOfTO(d[[i]], away))
		}
	}
	c(mean(b), mean(a))
}