### R代码来自Vignette Source'ClusterGraph.rnw'####################################################################################< - new（“ clusterGraph”，clusters = split（names（pm $ clustering），pm $ clustering））节点（cg）########################################################################################）cg.km = new（“ clusterGraph”，clusters = split（as.Character（1:75），km $ cluster））Inboth =交叉点（cg.km，cg，cg）######################################RNW：95-106 ######################################################### d1 = dist（ruspini）dg = new（“ distgraph”，dist = d1）rl = null j = 1 for（i in c（40，30，10，5））{ng = threshold（DG，i）Rl [[J]] = Conncomp（ng）J = J+1} ###############################################################代码CHUNK数字4：霍曼################################################## sapply（rl，长度）####################################################################