# NOT RUN {
Pbox.BC <- subset(Pbox, Team=="Oklahoma City Thunder" & MIN >= 500,
select=c("P2p","P3p","FTp","P2A","P3A","FTA"))
out <- variability(data=Pbox.BC, data.var=c("P2p","P3p","FTp"),
size.var=c("P2A","P3A","FTA"), weight=TRUE)
plot(out, leg.brk=c(10,25,50,100,500,1000), max.circle=30)
# }
Run the code above in your browser using DataLab