### R代码从vignette源的byChroms。Rnw ' ################################################### ### 代码块1号:loaddata ################################################### 库(“注释”)库(hu6800.db)透镜< - unlist (eapply (hu6800CHR、长度))表(透镜)wh2 = mget(名字(透镜)[镜头= = 2],env = hu6800CHR) wh2 [1 ] ################################################### ### 代码块2号:fixdata ################################################### chrs2 < - unlist (eapply (hu6800CHR x (x)函数[1]))chrs2 < -因子(chrs2)长度(chrs2)表(unlist (chrs2 )) ################################################### ### 代码块3号:strandloc ################################################### 链< - as.list (hu6800CHRLOC)分裂< -分裂(链,chrs2)长度(分裂)的名字(分裂 ) ################################################### ### 代码块4号:chrloc ################################################### newChrClass < - buildChromLocation(“hu6800 ") ################################################### ### 代码块5号:cPlot ################################################### 库(geneplotter) cPlot (newChrClass)