# #设置,包括= FALSE ----------------------------------------------------- knitr: opts_chunk设置(echo = TRUE) #美元避免加载消息库(NanoMethViz预加载 ) ## ----------------------------------------------------------------------------- 库(NanoMethViz)库(dplyr ) ## ----------------------------------------------------------------------------- 伊斯兰教纪元< - rtracklayer:进口(系统。文件(包= " NanoMethViz”、“c_elegans.gtf.gz”))(伊斯兰教纪元 ) ## ----------------------------------------------------------------------------- 庵野< -伊斯兰教纪元% > % as.data.frame () % > % dplyr::重命名(= seqnames,从而向符号= gene_name) % > % dplyr::选择(gene_id,空空的,链,开始、结束transcript_id,符号)头(伊斯兰教纪元 ) ## ---- 消息= FALSE --------------------------------------------------------- 核磁共振< - load_example_nanomethresult () plot_gene(核磁共振,“Peg3 ") ## ----------------------------------------------------------------------------- new_exons < - NanoMethViz:外显子(nmr) % > % exons_to_genes() % > %变异(transcript_id = gene_id) NanoMethViz::外显子(nmr) < - new_exons plot_gene(核磁共振,“Peg3”)