set.seed(1234)
chip <- matrix(c(rpois(20, lambda=10), rpois(20, lambda=20)), nrow=20,
dimnames=list(paste("feature", 1:20, sep=""), c("sample1", "sample2")))
rowRanges <- GRanges(IRanges(start=1:20, end=1:20),
seqnames=c(rep("1", 20)))
names(rowRanges) = rownames(chip)
cSet <- ChIPseqSet(chipVals=chip, rowRanges=rowRanges)
tmmSet <- normalize(cSet, method="tmm", trim=0.3)
mean(log(chipVals(tmmSet))[, 1], trim=0.3) -
mean(log(chipVals(tmmSet))[, 2], trim=0.3) < 0.01
quantSet <- normalize(cSet, method="quantile")
all(quantile(chipVals(quantSet)[, 1]) == quantile(chipVals(quantSet)[, 2]))
Run the code above in your browser using DataLab