View source: R/computeChIPProfile.R
computeChIPProfile | R Documentation |
computeChIPProfile
compute ChIP-seq like profile from occupancy data.
Occupancy data is computed using computeOccupancy
.
computeChIPProfile(genomicProfiles, loci, parameterOptions = NULL,
norm = TRUE, method = c("moving_kernel","truncated_kernel","exact"),
peakSignificantThreshold= NULL,cores=1, verbose = TRUE)
genomicProfiles |
|
loci |
|
parameterOptions |
|
norm |
|
method |
|
peakSignificantThreshold |
|
cores |
|
verbose |
|
computeChIPProfile
converts Transcription Factor occuapncy to a profile
resembling the one of a ChIP-seq profile. Internally a few paramters are required
to build a ChIP like profile. These parameters are either defined and stored in
a ChIPScore
object (Paramters are updated based on
your ChIP data ), a genomicProfiles
(user defined at the
start of the analysis) or a parameterOptions
(if you want to
update values as you go along)
Returns a genomicProfiles
objec containing all ChIP-seq like
profile for every combination of lambdaPWM
and boundMolecules
provided by the user.
Patrick C.N. Martin <pcnmartin@gmail.com>
Zabet NR, Adryan B (2015) Estimating binding properties of transcription factors from genome-wide binding profiles. Nucleic Acids Res., 43, 84–94. Patrick C.N. Martin and Nicolae Radu Zabe (2020) Dissecting the binding mechanisms of transcription factors to DNA using a statistical thermodynamics framework. CSBJ, 18, 3590-3605.
#Extracting Data
data(ChIPanalyserData)
# path to Position Frequency Matrix
PFM <- file.path(system.file("extdata",package="ChIPanalyser"),"BEAF-32.pfm")
#As an example of genome, this example will run on the Drosophila genome
if(!require("BSgenome.Dmelanogaster.UCSC.dm6", character.only = TRUE)){
if (!requireNamespace("BiocManager", quietly=TRUE))
install.packages("BiocManager")
BiocManager::install("BSgenome.Dmelanogaster.UCSC.dm6")
}
library(BSgenome.Dmelanogaster.UCSC.dm6)
DNASequenceSet <- getSeq(BSgenome.Dmelanogaster.UCSC.dm6)
# Building genomicProfiles object
GPP <- genomicProfiles(PFM=PFM, PFMFormat="JASPAR",BPFrequency=DNASequenceSet)
# Computing Genome Wide
GenomeWide <- computeGenomeWideScores(genomicProfiles = GPP,
DNASequenceSet = DNASequenceSet)
#Compute PWM Scores
PWMScores <- computePWMScore(genomicProfiles = GenomeWide,
DNASequenceSet = DNASequenceSet, loci = top, chromatinState = Access)
#Compute Occupnacy
Occupancy <- computeOccupancy(genomicProfiles = PWMScores)
#Compute ChIP profiles
chipProfile <- computeChIPProfile(genomicProfiles=Occupancy,loci=top)
chipProfile
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.