if(require(cluster)){
k <- 3
chunk1 <- iris[1:30,1:4]
clus1 <- clarasub(chunk1,k)
chunk2 <- iris[-c(1:30),1:4]
clus2 <- clarasub(chunk2,k)
subclusters <- list(clus1, clus2)
b <- claramerge(subclusters,k)
print(b$medoids)
print(nrow(b$tablefreq))
print(b$tablefreq)
}
Run the code above in your browser using DataLab