# NOT RUN {
data <- data.frame(Pbox$PTS,Pbox$P3M,Pbox$P2M,
Pbox$OREB + Pbox$DREB,Pbox$AST,
Pbox$TOV,Pbox$STL,Pbox$BLK)/Pbox$MIN
names(data) <- c("PTS","P3M","P2M","REB","AST","TOV","STL","BLK")
data <- subset(data, Pbox$MIN >= 500)
out <- corranalysis(data, threshold = 0.5)
plot(out)
# }
Run the code above in your browser using DataLab