## ----生物通用器，eval = false -------------------------------------------------------------------------------------------------------------------------------------＃if（！sireseenamespace（“ biocmanager”，悄悄= true））＃install.packages（“ biocmanager”）＃biocmanager :: install（“纳米管”）## ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------library, results='hide', message=FALSE----------------------------------- library(nanotubes)## ----------------------------------------------------------------------------------------------------------------------------------------------------------＃DevTools :: install_github（“ Maltethodberg/nanotubes”）## ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- citation("nanotubes") #＃----纳米管-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------数据（“纳米管”）knitr :: kable（纳米管）## --------------------------------------------------------------------------------------------------------库（rtracklayer）bw_fname < - 系统。file（“ extdata”，纳米管$ bigwigplus [1]，package =“ nanotubes”，必须work = true）导入（bw_fname）## --------------------------------------------------------------------------------------------------------------------------------＃图书馆（cagefightr）＃＃＃设置路径＃bw_plus <-system.file（“ extdata”，纳米管$ bigwigplus，＃package =“ nanotubes”，＃usework = true = true）＃bw_minus <-system.file（“ extdata”，nanotubes $ bigwigminus，＃bigwigminus，＃package =“ nanotubes =” nanotubes =“ nanotubes =” nanotubess“，＃usework = true）＃＃＃保存为命名bigwigfilelist＃bw_plus <-bigwigfilelist（bw_plus）＃bw_minus <-bigwigfilelist（bw_minus）（bw_minus）＃名称（bw_plus）＃ctsss < - ventifyctsss（bw_plus，bw_minus，design =纳米管）## -----会话---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- sessioninfo（）