# NOT RUN {
data <- data.frame(Pbox$PTS,Pbox$P3M,
Pbox$OREB + Pbox$DREB, Pbox$AST,
Pbox$TOV, Pbox$STL, Pbox$BLK,Pbox$PF)
names(data) <- c("PTS","P3M","REB","AST","TOV","STL","BLK","PF")
data <- subset(data, Pbox$MIN >= 1500)
ID <- Pbox$Player[Pbox$MIN >= 1500]
hclu <- hclustering(data, labels=ID, k=7)
is.hclustering(hclu)
# }
Run the code above in your browser using DataLab