Displaying 1 result from an estimated 1 matches for "clusterme".
Did you mean:
clustermi
2008 Nov 08
1
Clustering and functions
...et with 60,000 points. I am not sure why, but I keep getting a run-time error. Any suggestions would be greatly appreciated.
Here is the code:
library(cba)
d<-read.csv("data.csv", header=TRUE)
v<-c(53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,21,72 73,74,75,76,77,78)
clusterMe<-function(d,v){
tempMat<-subset(d,d[,v[1]]=="TRUE")
rc<-rockCluster(tempMat,n=5,theta=.2)
tempMat<-cbind(tempMat,rc$cl)
M<-tempMat
for (i in 2:26){
tempMat<-subset(d,d[,v[i]]=="TRUE")
rc<-rockCluster(tempMat,n=5,theta=.2)
tempMat<-cbind(tempMat...