powered by
assign_clustpp
assign_clustpp(X, init_centers, kmpp_flag = TRUE, max_iter = 20)
p <- 2 n <- 100 k <- 3 sigma <- 0.25 missing <- 0.05 Data <- makeData(p,n,k,sigma,missing) X <- Data$Missing Orig <- Data$Orig clusts <- assign_clustpp(Orig, k)
Run the code above in your browser using DataLab