# load DBA objects with peak profiles and pairwise distances
data(Cfp1Dists)
# determine empirical p-values:
group1 <- c("WT.AB2", "Resc.AB2")
group2 <- c("Null.AB2")
Cfp1Pvals <- detPeakPvals(Cfp1Dists, group1=group1, group2=group2,
name1='Wt/Resc', name2='Null')
# plot distances and peaks which are significantly different:
plotHistDists(Cfp1Pvals, group1=group1, group2=group2)
Results
R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.
R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.
Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.
> library(MMDiff)
Loading required package: GenomicRanges
Loading required package: BiocGenerics
Loading required package: parallel
Attaching package: 'BiocGenerics'
The following objects are masked from 'package:parallel':
clusterApply, clusterApplyLB, clusterCall, clusterEvalQ,
clusterExport, clusterMap, parApply, parCapply, parLapply,
parLapplyLB, parRapply, parSapply, parSapplyLB
The following objects are masked from 'package:stats':
IQR, mad, xtabs
The following objects are masked from 'package:base':
Filter, Find, Map, Position, Reduce, anyDuplicated, append,
as.data.frame, cbind, colnames, do.call, duplicated, eval, evalq,
get, grep, grepl, intersect, is.unsorted, lapply, lengths, mapply,
match, mget, order, paste, pmax, pmax.int, pmin, pmin.int, rank,
rbind, rownames, sapply, setdiff, sort, table, tapply, union,
unique, unsplit
Loading required package: S4Vectors
Loading required package: stats4
Attaching package: 'S4Vectors'
The following objects are masked from 'package:base':
colMeans, colSums, expand.grid, rowMeans, rowSums
Loading required package: IRanges
Loading required package: GenomeInfoDb
Loading required package: DiffBind
Loading required package: SummarizedExperiment
Loading required package: Biobase
Welcome to Bioconductor
Vignettes contain introductory material; view with
'browseVignettes()'. To cite Bioconductor, see
'citation("Biobase")', and for packages 'citation("pkgname")'.
Loading required package: GMD
Loading required package: Rsamtools
Loading required package: Biostrings
Loading required package: XVector
Warning message:
Package 'MMDiff' is deprecated and will be removed from Bioconductor
version 3.4
> png(filename="/home/ddbj/snapshot/RGM3/R_BC/result/MMDiff/plotHistDists.Rd_%03d_medium.png", width=480, height=480)
> ### Name: plotHistDists
> ### Title: plot MMD distances
> ### Aliases: plotHistDists
>
> ### ** Examples
>
>
> # load DBA objects with peak profiles and pairwise distances
> data(Cfp1Dists)
>
> # determine empirical p-values:
> group1 <- c("WT.AB2", "Resc.AB2")
> group2 <- c("Null.AB2")
> Cfp1Pvals <- detPeakPvals(Cfp1Dists, group1=group1, group2=group2,
+ name1='Wt/Resc', name2='Null')
using NormTotalCounts for pooling
Using unfiltered Peaks
nPeaks = 1000 (of 1000)
nPeaks = 1000 (of 1000)
dN:
0% 5% 10% 15% 20% 25% 30% 35% 40% 45% 50% 55% 60% 65% 70% 75%
32 78 96 110 124 139 155 169 191 210 236 264 297 335 385 453
80% 85% 90% 95% 100%
520 639 828 1176 3699
Computing p-values
>
> # plot distances and peaks which are significantly different:
>
> plotHistDists(Cfp1Pvals, group1=group1, group2=group2)
using FDR from combined
>
>
>
>
>
>
> dev.off()
null device
1
>