[R] Consensus dendogram help?

[david v]

Hello,
The follwing code generates 1000 dendograms from 1000 input binary matrices.
I dont't know how to generate a consensus dendogram from the 1000.
Can you help me ?

#code
library(ade4)
library(cluster)
library(stats)

for (i in 1:1000) {
#read each file
data<-read.table(i,header=FALSE,sep="\t",row.names=1)
dis<-dist.binary(data,method=5,diag=TRUE)
clust<-hclust(dd)
dend<-as.dendrogram(clust)
}
Thanks for your help.