### R代码来自Vignette Source'clusterstab.rnw'############################################################# ###代码块数字1：clusterstab.rnw：105-114 ############################################################< - log2（exprs（fibroeset））filt <-cv（0.1，inf）索引< - genefilter（fibroeset，filt）fb < - fibroeset [index，] bh <-benhur（fb，0.7，6.7，6，6，seednum = 12345）#seednum仅用于确保可重复性#########################################################代码块编号2：clusterstab.rnw：129-130 ##############################################################################################################################（t（exprs（fibroeset [index，]）））），labels = pdata（fibroeset）[，2]，sub =“”，xlab =“”）############################################-164 ############################## plot（hclust（d（t（exprs（fibroeset [index，]，]，]））））），labels = pdata（fibroeset）[，2]，sub =“”，xlab =“”）ecdf（bh）################################＃代码块编号5：clusterstab.rnw：176-178 ############################################################