# NOT RUN {
data <- subset(Pbox, MIN >= 1500)
data <- data.frame(data$PTS, data$P3M, data$P2M, data$OREB + data$DREB, data$AST,
data$TOV,data$STL, data$BLK)
mds <- MDSmap(data)
is.MDSmap(mds)
# }
Run the code above in your browser using DataLab