document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. ClOp <-Cl(x) /  Op(x)
  2. HiOp <-Hi(x) /  Op(x)
  3. LoOp <- Lo(x) / Op(x)
  4. dat<- as.matrix(data.frame(ClOp, HiOp , LoOp))
  5.  
  6. # Identify 7 clusters
  7. km <- kmeans(dat,7)
  8. scatterplot3d(dat,color=km$cluster)
');