我有一个 hclust 对象列表,这些对象是由一个变量的细微变化(用于计算距离矩阵)产生的
- 现在我想从这个列表中制作一个共识树。
是否有通用软件包可以做到这一点?我正在通过 maanova 的一些代码破解我的方式,它似乎可以工作 - 但它很丑陋并且需要大量破解,因为我没有进行“正常”引导(它是化学数据)。
/Palle Villesen,丹麦
c1_list <- seq(10,100,by=10)
c2 <- 30
e<- 1
mboot <- list()
for (i in 1: length(c1_list) ) {
c1 <- c1_list[i]
cat("Doing C1=",c1,"...")
x <- hclust(custom_euclidean(t(log2(data[, all]+1)), c1,c2,e), method='average')
cat("..done\n")
mboot[[i]] <- x # To get hclust object back use mbot[[i]] to get i'th object
}
#### Now extract the robust groups from mboot...