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