Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ClOp <-Cl(x) / Op(x)
- HiOp <-Hi(x) / Op(x)
- LoOp <- Lo(x) / Op(x)
- dat<- as.matrix(data.frame(ClOp, HiOp , LoOp))
- # Identify 7 clusters
- km <- kmeans(dat,7)
- scatterplot3d(dat,color=km$cluster)
Advertisement
Add Comment
Please, Sign In to add comment
