通过列表列表中的冗余元素进行合并

Question

我刚从一些数据上运行spider包中的tclust函数，该函数应该通过输出每个聚类的索引列表列表将一系列DNA序列分配给聚类。因此，例如，如果您有n个序列，则将整数1到n分配给某些＆lt; n簇。这是一个模拟的例子，n = 7分为三个集群（test [1]，test [2]，test [3]是集群）：

>test <- tclust(CloneSample)
>test
[[1]]
[1] 1, 2, 3, 4

[[2]]
[1] 1, 2, 3

[[3]]
[1] 5, 6, 7

问题有时它会为不同的集群分配相同的序列，如上面的test [1]和test [2]。我想削减这个列表列表，这样每个整数1到n只出现一次;如果它出现在多个集群中，我希望将这两个列表合并为唯一元素。对于上面的内容，输出将如下所示：

>testfixed
[[1]]
[1] 1, 2, 3, 4

[[2]]
[1] 5, 6, 7

感谢您的帮助！