# NBA 2013-2014 Player Heights and Weight
nba = read.csv("height-weight-nba.csv")
wnba = read.csv("height-weight-wnba.csv")
altura.nba = 2.54*nba[,3]
peso.nba   = 0.453592*nba[,4]
posicao.nba = nba[,2]
altura.wnba = 2.54*wnba[,4]
peso.wnba   = 0.453592*wnba[,5]
posicao.wnba = wnba[,3]
altura = c(altura.nba,altura.wnba)
peso   = c(peso.nba,peso.wnba)

par(mfrow=c(1,1))
plot(altura.nba,peso.nba,xlim=c(160,230),ylim=c(50,150),xlab="Altura (cm)",ylab="Peso (kg)")
points(altura.wnba,peso.wnba,col=2)
legend("topleft",legend=c("NBA","WNBA"),col=1:2,pch=16)
abline(lm(peso.nba~altura.nba))
abline(lm(peso.wnba~altura.wnba),col=2)
abline(lm(peso~altura),col=4)



par(mfrow=c(1,1))
plot(altura.nba,peso.nba,xlab="Altura (cm)",ylab="Peso (kg)",col=0)
text(altura.nba[posicao.nba=="G"],peso.nba[posicao.nba=="G"],"G")
text(altura.nba[posicao.nba=="F"],peso.nba[posicao.nba=="F"],"F",col=2)
text(altura.nba[posicao.nba=="C"],peso.nba[posicao.nba=="C"],"C",col=3)
title("NBA")
abline(lm(peso.nba~altura.nba),col=4,lwd=3)

par(mfrow=c(1,1))
plot(altura.wnba,peso.wnba,xlab="Altura (cm)",ylab="Peso (kg)",col=0)
text(altura.wnba[posicao.wnba=="G"],peso.wnba[posicao.wnba=="G"],"G")
text(altura.wnba[posicao.wnba=="F"],peso.wnba[posicao.wnba=="F"],"F",col=2)
text(altura.wnba[posicao.wnba=="C"],peso.wnba[posicao.wnba=="C"],"C",col=3)
text(altura.wnba[posicao.wnba=="GF"],peso.wnba[posicao.wnba=="GF"],"GF",col=4)
text(altura.wnba[posicao.wnba=="FC"],peso.wnba[posicao.wnba=="FC"],"FC",col=5)
title("WNBA")
abline(lm(peso.wnba~altura.wnba),col=4,lwd=3)


summary(lm(peso~altura))
summary(lm(peso.nba~altura.nba))
summary(lm(peso.wnba~altura.wnba))