setwd("/Users/hedibert/Dropbox/Econometria16-2/aula5-2408-suposicoes") # NBA 2013-2014 Player Heights and Weight nba = read.csv("http://hedibert.org/wp-content/uploads/2016/03/height-weight-nba.csv") wnba = read.csv("http://hedibert.org/wp-content/uploads/2016/03/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) pdf(file="height-weight-nba-wnba.pdf",width=6,height=6) 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),lwd=3) abline(lm(peso.wnba~altura.wnba),col=2,lwd=3) 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[posicao.nba=="G"]~altura.nba[posicao.nba=="G"]),col=1,lwd=3) abline(lm(peso.nba[posicao.nba=="F"]~altura.nba[posicao.nba=="F"]),col=2,lwd=3) abline(lm(peso.nba[posicao.nba=="C"]~altura.nba[posicao.nba=="C"]),col=3,lwd=3) 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[posicao.wnba=="G"]~altura.wnba[posicao.wnba=="G"]),col=1,lwd=3) abline(lm(peso.wnba[posicao.wnba=="F"]~altura.wnba[posicao.wnba=="F"]),col=2,lwd=3) abline(lm(peso.wnba[posicao.wnba=="C"]~altura.wnba[posicao.wnba=="C"]),col=3,lwd=3) abline(lm(peso.wnba~altura.wnba),col=6,lwd=3) dev.off() summary(lm(peso~altura)) summary(lm(peso.nba~altura.nba)) summary(lm(peso.wnba~altura.wnba))