R - 预测自定义聚类

Question

我已经实现了我自己的聚类算法，我需要知道的是如何使我的聚类可以通过默认方法“预测”来预测测试集实例的聚类归属。
我有训练集，我根据它们制作集群，然后我得到一个代表集群中心的新对象，对于训练集的每个实例，他的集群；现在我想使用“预测”将测试集的每个实例分配给他自己的集群

Answer 1

基本思路是:

# clustering function
myclust <- function(x){
  ret <- list(x=x)
  class(ret) <- "mycluster" # your class name
  ret
}

# predict function for your class
predict.mycluster <- function(obj){
  result <- obj$x
  return(result)
}

# clustering
y <- myclust(1:4)
class(y)
# [1] "mycluster"
predict(y)
# [1] 1 2 3 4