data("rl_reg1")
clusters <- split(rl_reg1, identity.rl_reg1)
clust_proto_random(clusters[[1]])
not_clusters <- lapply(seq_along(clusters), function(x){
if(nrow(clusters[[x]]) > 1)
do.call(rbind, clusters[-x])
})
clust_proto_minimax(clusters[[1]], not_clusters[[1]], dist_binary)
Run the code above in your browser using DataLab