chip <- matrix(c(5,6,5,6,10,12,10,12), nrow=4,
dimnames=list(c("f1", "f2", "f3", "f4"), c("s1", "s2")))
rowRanges <- GRanges(IRanges(start=c(10, 20, 30, 40), end=c(11, 21, 31, 41)),
seqnames=c("1", "1", "1", "1"))
names(rowRanges) = rownames(chip)
chipDf <- DataFrame(totalCount=c(100, 100),
row.names=colnames(chip))
cSet <- ChIPseqSet(chipVals=chip, rowRanges=rowRanges, colData=chipDf)
chipVals(cSet)
chipVals(normalize(cSet, method="scaleMedianRegion"))
chipVals(normalize(cSet, method="quantile"))
Run the code above in your browser using DataLab