# NOT RUN {
data(fingerprintMat)
data(geneMat)
MCF7_F = Cluster(fingerprintMat,type="data",distmeasure="tanimoto",normalize=FALSE,
method=NULL,clust="agnes",linkage="flexible",gap=FALSE,maxK=55,StopRange=FALSE)
L1=list(MCF7_F)
Comps1=FindCluster(L1,nrclusters=7,select=c(1,1))
Comps2=FindCluster(L1,nrclusters=7,select=c(1,2))
Comps3=FindCluster(L1,nrclusters=7,select=c(1,3))
L2=list()
L2$'Cluster 1'$objects$LeadCpds=Comps1
L2$'Cluster 2'$objects$LeadCpds=Comps2
L2$'Cluster 3'$objects$LeadCpds=Comps2
MCF7_PreparePaths=PreparePathway(Object=L2,geneExpr=geneMat,topG=NULL,sign=0.05)
str(MCF7_PreparePaths)
# }
Run the code above in your browser using DataLab