### R代码来自Vignette Source'Matrixrider.rnw'##########################################################################################################################################）库（tfbstools）库（BioStrings）pfm <-getmatrixbyId（jaspar2014，“ ma0004.1”）##以下序列具有一个完美的匹配##，因此它具有所有截止值的结果。序列<-dnastring（“ cacgtg”）getSeqoccupancy（sequence，pfm，0.1）getSeqoccupancy（序列，pfm，1）####################################################################################<-pfmatrixlist（PFM，PFM2）名称（PFMS）<-C（名称（PFM），名称（PFM2））##此计算两个PFMATRIXES的总亲和力。getSeqoccupancy（序列，PFM，0）