如何在r中的PAM集群中选择手动medoid？

我试图在PAM算法中指定我自己的medoid，但无论我指定什么，它都会选择自己的medoid

使用下面的伪数据，如果我将数据放入cluster:：pam并尝试将行1和5（或任何其他选项）指定为medoid，它会选择不同的行作为输出

# Dummy Data
data <- data.frame(age = 1:10, height = 1:10, weight = 10:1, size = 10:1)

# Cluster
library(cluster) 
pam_fit <- pam(data, metric = "euclidean", k = 2, medoids = c(1, 5))

# Output
pam_fit$medoids
     age height weight size
[1,]   2      2      9    9
[2,]   7      7      4    4

#虚拟数据
数据1）首先将集群输出添加到数据中

data2将参数“do.swap”设置为FALSE以保留手动选择的medoid

pam_fit <- pam(data, metric = "euclidean", k = 2, medoids = c(1, 5), do.swap = FALSE)

# Output
pam_fit$medoids
      age height weight size
[1,]   1      1     10   10
[2,]   5      5      6    6


非常感谢你！确切地说，我需要的是这也可以为clara聚类算法做些什么？