dat <- rbind(matrix(rnorm(100, mean = 0, sd = 0.3), ncol = 2),
matrix(rnorm(100, mean = 2, sd = 0.3), ncol = 2),
matrix(rnorm(100, mean = 4, sd = 0.3), ncol = 2))
sim <- computeGaussianSimilarity(dat, 1)
ML <- list(c("10","20"), c("60","70"))
CNL <- list(c("30","80"), c("90","120"))
res <- KwaySSSC(sim, K=0, list.ML=ML, list.CNL=CNL)
critMNCut(sim, res$label)
Run the code above in your browser using DataLab