I have collected National Basketball Association data ( NBA Standings  2012-13 , Eastern Conference) from ESPN NBA. The best k in this case is 15.03. The lucky teams Brooklyn, Milwaukee, Charlotte, Philadelphia . On the other hand, the unlucky teams include: Washington, Toronto, Detroit, and Cleveland.   R code #png(“NBA2.png”) windows(height=10, width=10) NBA.data<-read.table(“NBA.csv”,header=T, sep=”,”) par(mfrow=c(2,1)) […]