document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. # here we indicate that we want between 2:15 cluster
  2. zpamk<-pamk(data=dat,krange=2:15,criterion="ch",usepam=TRUE)
  3. scatterplot3d(dat,color=zpamk$pamobject$clustering)
');