# #设置,回声= FALSE --------------------------------------------------- 库(UseBioconductor) stopifnot (BiocInstaller:: biocVersion() = = 3.1” ") ## ---- 风格,回声= FALSE,结果= '飞机 '------------------------------- BiocStyle:减价()knitr: opts_chunk设置(整洁= FALSE) # #——美元S3 ------------------------------------------------------------------ x < - rnorm (1000) < - x + y rnorm (1000 5) df < - data.frame (x = x, y = y)符合< - lm (y ~ x,df)类()方法(类=类(适合))方法(方差分析)情节(y ~ x, df) abline(健康,坳=“红色”,lwd = 2) # #——S4 ------------------------------------------------------------------ suppressPackageStartupMessages({库(IRanges)})开始< - as.integer (runif(1000年,1,1 e4)) < - as.integer宽度(runif(长度(开始),50岁,100))红外< - IRanges(开始,宽度=宽度)覆盖(ir) findOverlaps (ir) showMethods(“报道 ") ## ---- showMethods,eval = FALSE --------------------------------------------- # showMethods(类=类(ir),=搜索 ()) ## ---- S4-methods ---------------------------------------------------------- suppressPackageStartupMessages({库(GenomicRanges)}) showMethods(“报道 ") ## ------------------------------------------------------------------------ suppressPackageStartupMessages({库(Biostrings)})数据(phiX174Phage) m < - consensusMatrix (phiX174Phage)[1:4],多态< - colSums (m > 0) > 1 endoapply (phiX174Phage,“[”,多态)