# NOT RUN {
# sample bipartite graph-based hierarchical clustering of three groups
data(ctrp2)
groups = ctrp2$groups
X = ctrp2$X
Y = ctrp2$Y
groupNames = names(groups)
groupSmall = groups[groupNames[1:3]]
# }
# NOT RUN {
result = hierBipartite(X, Y, groupSmall)
# set fictitious p-values, with one cluster with p-value less than the cutoff
# and the other not
result$nodePvals = list(0.03, 0.12)
getSignificantMergedGroups(result, p = 0.05)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab