### R代码来自Vignette Source'bychroms.rnw'###################################################################################表（镜头）wh2 = mget（名称（镜头）[镜头== 2]，env = hu6800chr）wh2 [1] ############################################################################################）x [1]））chrs2 < - 因子（chrs2）长度（chrs2）表（unlist（chrs2））############################################################################################Strand，Chrs2）长度（拆分）名称（拆分）##################################################################################################代码块数字5：CPLOT #######################################################图书馆（Geneplotter）Cplot（newchrclass）