# Tests for differences between player stats at home vs away
"home_vs_away" <- function(stat,desc,data) {
	away.stat <- as.numeric(data[ (data[,1] == stat),3])
	home.stat <- as.numeric(data[ (data[,1] == stat),4])

	cat("*** ",desc,":\n",sep="")
	print(cor.test(away.stat,home.stat))
	print(summary(fit <- lm(away.stat ~ home.stat)))

#	plot(home.stat,away.stat,main=paste("Home ",desc," vs Away ",desc,sep=""),xlab=paste("Home ",desc,sep=""),ylab=paste("Away ",desc,sep=""))
#	x <- seq(from=0,to=1,by=0.01)
#	curve(cbind(1,x) %*% coef(fit), add=TRUE)
}

sink("home_vs_away.06-07_to_08-09.txt");
for (year in 2006:2008) {
	cat("Season: ",year,"-",year+1,"\n",sep="")

	data <- as.matrix(read.csv(paste(year,".stats",sep=""),header=T))
	home_vs_away("ftp","FT%",data)
	home_vs_away("2fgp","2FG%",data)
	home_vs_away("3fgp","3FG%",data)
	home_vs_away("efg","eFG%",data)
	home_vs_away("orp","OR%",data)
	home_vs_away("drp","DR%",data)
	home_vs_away("to_poss","TO/Poss",data)
	home_vs_away("fouled_poss","Fouled/Poss",data)
	home_vs_away("steal_poss","Steal/Poss",data)
	home_vs_away("foul_poss","Foul/Poss",data)
}
sink();