Mercurial > repos > matteoc > agame_custom_tools

diff fosm_cluster/kmeans.R @ 0:68a3648c7d91 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author matteoc
date Thu, 22 Dec 2016 04:45:31 -0500
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/fosm_cluster/kmeans.R	Thu Dec 22 04:45:31 2016 -0500
@@ -0,0 +1,11 @@
+#!/usr/bin/env Rscript
+args = commandArgs(trailingOnly=TRUE);
+data<-read.table(args[1],sep="\t",row.names=1);
+data<-data[,1:258];
+data[,2]<-data[,2]/sum(data[,2])
+file<-(args[3])
+num=as.integer(args[2])
+K<-kmeans(data,num,nstart=1500)
+clust=K$cluster
+
+write.table(clust,file);