# NOT RUN {
data <- c(1,2,1,3,1,4,1,5)
components <- toListDivisive(data)
cluster1 <- matrix(c(1,2,1,3),ncol=2)
cluster2 <- matrix(c(1,4,1,5),ncol=2)
cluster3 <- matrix(c(1,6,1,7),ncol=2)
complementaryClusters(components,cluster1,cluster2) #TRUE
complementaryClusters(components,cluster3,cluster2) #FALSE
# }
Run the code above in your browser using DataLab